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IDENTIFICATION 

PRODUCT CODE: 7Z-ENSAA-7.0 

PRODUCT TITLE: VAX DIAGNOSTIC SUPERVISOR 

PRODUCT DATE: 18-JUN-1934 

DEPARTMENT: BAjt SYSTEM DIAGNOSTIC ENGINEERING 



COPYRIGHT (C) 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01 P5A 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MA^E AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OUNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED, 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WJTHOJT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELJA8ILJY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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A buffer 
characters. 



in show device was increased to 256 



Channel services was fixed to disable interrupts before 
releasing the vectors and the INVALIDATE function made to 
work. 

SET MM ON, SET MM OFF, and SHOW MM commands were added 
to enable and disable memory management. At the same time 
DSSMMON and DS$MMOFF were modified to prevent the program 
from disabling memory management it the operator enabled it. 

SYSSSETJMR and SYSSCANTJM were enhanced to change mode 

to kernel before doing MTPR's or disabling interrupts. This 

resolved so^e problems caused by interrupting programs that 
had set the processor mode to user. 
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Cleanup was enhanced to reset memory management and 
re-initialize the SCB after the program cleanup is complete. 

Dummy entry points were added to $DS DSSDEF and the 
entry vectors to accomodate SYS$UW5ET, SYSSSETAST, 
SYSSSETPRI, SYS$SETRWM, SYS$ULKPAG, SYSSULWSET. 



SYSSFAO used in stand-alone was modified to 
problems with !*? directives. 



fix 



The known device data base was updated to include Dl11* 
LP2S, RX02, RX211, T.V8, TS04, T S11, TU58, and Tu78 support. 
The descriptor for KA780 has changed, the optional arguments 
are now G-floating, H-floating, WCS last address, and 
accelerator type. 

An error is now gererated if the processor type 
specified in the system identification register is not 1, 
indicating an 11/780. 

Error text and status codes are returned if the 

supervisor is run from a command file. The next release 
will support running in batch. 

DSSLOAD has been enhanced to allow programs to read 
parts of files indicated by the starting block number 
argument. The name of the console storage device is now 
always CSan. 

The count of loops on subtests has been fixed to 
correctly reflect the number of passes thru the specified 
subtest. 



The logout for S8J WRITE 
timeout address register. 



timeouts now includes the 



The ABORT command and DSSABORT now reset the stacks and 
reset the processor mode before doing program cleanup. 
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Release 5.4 of the diagnostic supervisor has been made. 
ESSAA.EXE 5.4;2U and ECSAA.rXE 5.4; 121 represent 11/780 and 
11/750 supervisors. Relevent files can be found on PROTO 3 
in Tewksbury as follows: 

SYS$LIBRARY:DJAG.MLB;611 



C0S]ESSAA.EXE;2H 

[DS]ECSAA.EXE;121 

[DSJEVCDB.EXE 

LDS3EVQDL.EXE 

[DSDEVQDR.bXE 

[dsjevqdm.exe 
[ds:evq. w j.exe 
[dsdevqtm.exe 
ed5jevqt5.exe 
cdsdd1agb00t.exe 



11/780 STAR supervisor 
11/750 COMET supervisor 
QJO driver for RP04,5,6 
QIO driver for 
QIO driver for 
QIO driver for 
QIO driver for 
QIO driver for 
QIO driver for 



R102 

RM80,RP07,RM03,RM05 

RK06.RK07 

DR780 

TM03/TE16,TU77,TU45 

TS11 



Secondary Bootstrap 



Please use these components in testing programs. 
Needless to say if any problems are encountered please 
report them to me immediately so their solutions can be 
included in the next release. 

Release notes 

o Support for drivers was upgraded to t reflect VMS 2.0 
interface changes. Loadable drivers have been 
re-released to reflect Release 2.0 of VMS. 

o The supervisor can be run from a VMS command proceedure. 
When the supervisor is running under VMS it uses RMS to 
access SYSSINPUT and SYSSOUTPUT. 

o 8ug fixed to remove supervisor error when supervisor is 
started again after interrupting a script. 

o The APT interface will now generate an error if no PTEXT 
is found when a process PTEXT command is given. 

o A buffer in show device was increased to 256 characters. 

o Internal processor registers can be examined with 
EXAMINE Pxx, where xx is a register number in the 
current radix. If only the decimal values are available 
Try EX PXD127 to get register A X7f . Internal registers 
can be changed with the DEPOSIT command. 

o Channel services was fixed to disable interrupts before 
releasing the vectors and the INVALJDAiE function made 
to work. Also SETMAP now sets and clears all map 
registers and allows all to be used for transfers. 

o Support was added for the RL02 as a boot device, 

o Time conversion rojtines were changed to fix loss of 
precision in hundredths. 

o SET MM ON, SET MM OFF, and SHOW MM commands were added 
to enable and disable memory management. At the same 
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time DSSMMON and DSSMMOFF were modified to prevent the 
program from disabling memory management if the operator 
enabled it. ALsr the reiurn code in RO now indicates 
the previous state of memory management and an error 
return if DbSMrtOFF was trying to disable memory 
management and the operator had enabled it. If memory 
management is enabled the stack for each mode is write 
protected against lower access modes. 



DSSASKSTR now returns 
qiven to a query. 



in R1 if the default answer was 



o SYSSSETIHR and SYSSCANTIM were enhanced to change mode 
to kernel before doing HTPR's or disabling interrupts. 
This resolved some problems caused by interrupting 
programs that had set the processor mode to user. 



o Cleanup was enhanced tc reset 
re-initialize the SC8 after 
complete. 



memory management and 
the program cleanup is 



Corrected errors induced when more 
memory was present. 



the 2 megabyte of 



Dummy entry points were added to $DS DSSDEF and the 
entry vectors to accomodate SYS$LKW5ET, SYSSSETAST, 
SYSSSETPRI, SYSSSETRWM, SYSSULKPAG, SYSSULWSET. 

SYSSFAO used in stand-alone was modified to fix problems 
with !*? directives. 

The known device data base was updated to include DL 11* 
LP25, RX02, RX211, TM78, TSOA TS11, TU58, *nd TU78 
support. The descriptor for KA780 has changed, the 
optional arguments are now G-floating, H-floating, WCS 
last address, and accelerator type. 



An warning is 
specified in 
correct . 



now generated if the processor type 
the system identification register is not 



DSSlOAP has been enhanced to allow programs to read 
parts of files indicated by the starting block number 
argument. The name of the console storage device is now 
always CSan. 



The count 
correctly 
spec i tied 



of loops on 
reflect the 
subtest. 



subtests 
number 



has been 
of passes 



fixed 
thru 



to 
the 



The logout for SB! WRITE 
timeout address register. 



timeouts now includes the 



The processor mode and and all stacks and registers are 
now reset before the users cleanup code is executed. 
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1.0 BUFFERED I/O SUPPORT 

The supervisor now includes support for Q10 drivers us- 
ing buffered I/O (such as line printers), 

?.0 HELP FACILITY 

The new Supervisor includes a HELP facility. Jt is 
invoked via the "HELP" command. In general it is identical 
functionally with the VMS HELP command. Additionally., it 
supports gathering HELP on diagnostics via typing the diag- 
nostic code (ES, EV, EC pre-fix followed by diagnostic name, 
as "EVRAA", etc.) as the first keyword after HELP (e.g., 
"HELP EVRAA"). In standalone mode the HELP command will 
function off of any load media (including magtape and con- 
sol? media). In user mode however, it will not function 
frofi magtape or the cooole media, as these are not fully 
supported by VMS RMS (see below, description of Supervisor 
RMS), 



3,0 LOAD AND SCRIPT 

The Supervisor LOAD 
RUN and LOAD as well 
service call) and SCRIPT 
modified to use RMS file 



(which loads files for the commands 
as for diagnostics via the $DS_LOAD 
file handling services have been 
services. 



4.0 MAGTAPE 



The 
media. 
release. 



supervisor 
TS-11 and 



now supports 
TU-78 will 



magtape (TM03 only) as load 
be supported in a future 



5,0 RMS IMPLEMENTATION 



The diagnostic supervisor implementation of RMS is 
similar to tne VMS implementation, but is speciticaUy adap- 
ted to the standalone DS environment. 



DISCLAIMER 

Since there are currently 
diagnostics 



are . 
which 



no 
RMS 



U>a^nu3i in nn iv" uac niij 

services, we can not guarantee 
100X functionality of RMS 
code, though we have attempted 
thorough 0A testing. However, 
services within the Supervisor 
which use RMS will function 



correctly. 



Console Device Naming 

Previous to release 6.0, due 
r o a file name-handling loop- 
hole in the file load routine, 
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it was possible to specify the 
console device as "CS:'\ This 
is not consistent with Super- 
visor convention, which re* 
quires complete device namos 
(i.e.. "DMAO:" not M 0M:" ev?n 
it only one RK06/07 is attach- 
ed). In Version 6.0, 
will not function on 

it will fail wnen 

driver attempts to 

non-existent drive. 

that full 

be typed. 
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(11/730), 

the TU58 
access a 
The solution is 
device names MUST 



iigc ... 

COMET 



In future versions of the Sup- 
ervisor, this naming "loop- 
hole" will be closed, and 
omitting the controller letter 
or drive number in the console 
device specification will ret- 
urn an illegal device error 
(RMSS DEV). 



5.1 User Mode 

To consistent 
cal Is are passed 
command will funct 
LOAD). This is 
SYSSDISK for devic 
routine to alter 
handling routine w 
ever for this to 
either by V or by 
command is used, 
(and CAN not be) r 



ly support RMS 
through 



in u 

to VMS), th 

ion correc tly in us 

done by transla 

e names, and via 

default directory. 

i 11 restore the ori 

occur, the Supervis 

a A Y, EXIT sequenc 

the original def 

estored. 



ser mode 
e Supervis 
er mode (a 
ting or 
an RMS h 
The Supe 
ginal val 
or must be 
e. If the 
ault direc 



(where 
or SET 
s will 
reassi 
ouseke 
rvisor 
ues: 
termi 
(VMS A 
tory i 



RMS 
LOAD 
SHOW 

gning 

eping 
exit 
how- 

nated 
STOP 

s not 



5.<? Differences Between DS RMS And VMS RMS 



Supervisor RMS func t iondl ity not duplicated by VMS: 

o Supervisor RMS supports files on the console media 
(floppy or ru-58). These files are in RT-11 format, 
but tne Supervisor RMS $GET facility will provide file 
records *.* if the file were an ODS CR-attribute, var- 
iable length record file. The FAB's RFM field 
(FABSB.RFM) will have the value A. 

Random by RFA (record's file address) access is sup- 
ported for magtape as well as for conventionally 
random-access devices. VMS does NOT support magtape 
random access. In general, random file access snould 
not be used by any level 2 diagnostic, since if the 
load device is magtooe, the function is unsupported in 
user mode. 

VMS RMS functionality not duplicated by Supervisor: 

o The Supervisor does not support NAM blocks in any 
form. 
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o The Supervisor supports onl** one form of XA8 (the FHC 
XAB, returning file heajer characteristics). Any 
other XAB in the FAB's X/S chain will be ignored, 
though no error will resi.lt. This is because the in- 
formation is not meaningful I in the diagnostic envir- 
onment. 

o In the FHC XAB, the LRL (longest actual record length) 

field is not supported. It is meaningful only for ODS 

tiles in any case. It will be set to maximum record 
length always, 

o Only sequential f'es are supported. An attempt to 
open a file witr. INDEX or RcLATJVE organization 
results in error RMS$ ORG (illegal file organization). 
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o Only READ-type fun tions are supported, since the sup- 
ervisor does not support write access to any media. 
To be specific, the functions which the Supervisor RMS 
package implements is: 

1. $0PEN (access a tile on media and initialize FA8) 

2. SCONNECT (Define a record stream for access to a 
file, initialise RAB) 

3. $GET (Copy a record within the tile to a user 
buffer) 

4. SREAD (Unformatted read from file, beginning on 
block boundary) 

5. SDISCONNECT (Close out a record stream) 

6. SCLOSE (Close out any record streams associated 
with FAB, and de-access file attached to FAB) 

o The bits in the TUP and ROP fields are not signific- 
ant, except for the BJO bit in the ROP field (spec- 
ifying block I/O via the SREAD call). 

o Asynchronous n'le operations are not supported. 

o RMS operations to the terminal are not supported, 

o A user may have up to three files open simultaneously. 

o Multibuf fering and mul t iblock ing dre not supported. 

o Random access by key o>" r?ccrd number is not support- 
ed. 

o The RAB TMO (lime out) field is ignored, 

6,0 BUG FIXES 

The following Supervisor "bugs" have been tixed for the 
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o Channel services incorrectly calculated the number 
of map registers required for a transfer. 

o The operator request routine incorrectly defaulted 
parameters when prompting was disabled. 

o The COMET machine check log^out was incorrect, 
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1.0 BUG FIXES 

O BUG: "EXAMINE PSl" with "/WORD" or "/8YTE" would 
use only low-order bits of PSL, but the hiqh-order 
fields would still be decoded and typed as 



V 



FIX: PSL is now unaffected by '•'WORD" and "/BYTE"; 
it is always longword. 

BUG: Previous to Version 6.0, ihe console storage 
device could be specified by "CS:". This is at 
odds with Supervisor convention which requires full 
device name given in attach command. It results 
from an accidental "loophole" in that only the 
first two characters were checked* and an unspec- 
ified unit number was converted to 0. In Version 
6.0, tht unit number conversion was (also accident- 
ally) removed, and using the "CS:" iorm to Version 
6.0 causes a device error on COMET (the STAR con- 
sole load routine does not use unit number) when 
the TU58 attempts to access a non-existant (neg- 
ative. 1 unit. 



fix 
It 



The 



wi' I 



"CS:" short torn, is no longer allowed. 

result in an "invalid or illegal device" 
RMS error (RMSS.DEV) during name parsing. You must 
type the full device name (e.g., *CSA0; ') . 



2,0 ENHANCEMENTS 



o The Supervisor now supports 
The format is: 



a DIRECTORY command. 



DIRECTORY [device :JCLdi roc tor> J] 

Samples: 

DS> DIRECTORY j)B83: CSYSMAINT] 

DS> DIR MTA0: 

DS> DIR CSA0: 

0S> DIR CDS] 

DS> DJR D6B3: 

DS> DIR 

Device and directory default to the current load 
path (original default is "<load device>: 
rSYSMAINT]" or last SET LOAD specification). All 
load media are supported. The format is identical 
to the standard default VMS directory format. 
There are no qualifiers. Only file name and ver- 
sion (if applicable, i.e., not on RT-11 media) are 
typed, and there is no Drovision tor typing dates, 
sizes, etc. 

o To support the AUTOSIZER program, the supervisor's 
ATTACH command processor has been made externally 
callable. The entry point is DSSATTACH 
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(cmdline, [prompt]) where cmdline is the address of 

a string descriptor for the ATTACH command to be 

parsed, and prompt is the address 

tor a buffer (MUST be at least 1 

prompt is given!) to receive the 

which to prompt the operator if the 

incomplete or incorrect (on error. Lie prompt 

string is set, and the cmdline descriptor length is 

decreased to include only the correct part of the 

input line). The prompt argument is optional t and 

in general is useless except within the Supervisor. 



of a descriptor 

byte long if 

ASCJC text with 

commend line is 



Format 



$DS ATTACH (cmd, CpmtJ) 
$DS*ATTACH x cmd, CpmtJ 



Bliss 
Macro 



The Supervisor HELP routine has been made callable, 
to allow programs implementing a conversation mode 
to include a HELP command. You pass the address of 
a descriptor of a command string; this string is 
just what you'd type on a Supervisor HELP command 
line, except leave out the "HELP" keyword. You can 
access the program's usual HELP file (preferable) 
by prefixing whatever keys the operator types with 
tne program natfie. Keep in mind tnat HELP k'U fid- 
dle with the adapter and controller, etc* in the 
path to the load device. 



Format: 



$DS HELP (keylst) 
$DS>ELP„x keylst 



! Bliss 
; Macro 



o User control of A C 



In some diagnostics, it may be necessary to 
call DS services which do implicit M $D$_8REAK" 
calls during sections of code which mus' not be 
interrupted by " A C". To solve this problem, 
new functionality has been added to the 
$DS,CNTRLC service. A second argument, DJSA8L, 
h; s'been implemented. Thj value of this arg- 



ument defaults 
routine accepts 



to 'V. and the DSSCNTALC 



cepts argment lists of only one arg 
ument to maintain compatibility with current! 



If the low bit (bit 0) 
A C will be ignored by the 



released diagnostics. 
of D1SABL is SET, 

Supervisor, If a user A C handler is set, it 
will not be called, nor will the Supervisor it- 
self take any special action beyond setting 
it's A C flag bit. Note that if *C recognition 
is disabled, and a A C character is typed < the 
A C will be honored as soon as *C recognition is 
re-enabled. Therefore, the A C is effectively 
postponed beyond the non-interruptable segment 
of code, but is not lost . 



Format : 

$DS CNTRLC (Castadr], CdisabU) ! Bliss 
*DS"CNTRLC Castadr], [disablJ 
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Previously, the user A C handler routine had no 
value. Now, the user handler has the option of 
telling the Supervisor to handle the A C normal- 
ly even though there was a user handle* defin- 
ed. To do this, the user's handler should re- 
turn a failure status code (RO bit clear). 
If the user handler returns a success code, the 
Supervisor will do nothing further. 



It is possible for messages to be typed out asynch- 
ronously, by AST routines for example. T hi «* fy^e- 
out may occur while the operator is keying in c\,.n 
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mands and/or data. 
will retype the input 
A R had been typed), 
let the line "dangle 
perform the " A R" 



In such a circumstance, VMS 

line automatically (as if a 

but the Supervisor would just 

Now, the Supervisor will 



5.0 NEW LOAD DEVICE SUPPORT 

o Supervisor RMS (and therefore all Supervisor file 
utilities including HELP, DIRECTORY, DSSLOAD, RUN, 
and LOAD) now will function with the TS-11/TS-04 
tape drive sub-system. This addition is transpar- 
ent to users of the utilities, syntax and progf amm~ 
ing-wise. 
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A user control-C handler returning failure status under 
APT would cause the Control-C to be ignored, .since status 
information was cleared before the user routine was 
CALLea. This has been fixed by deferring the status clear. 

OIRICTORY - due to an inconsistency in strinq descriptor 
handing, access violations could occur during DIRECTORY 
depending on previous stack contents. Specifically, if 
a HELP command with keywords was entered previously, 
DIRECiOR/ would fail, but wojld succeed if HELP without 
any keywords was typed. The problem has been fixed. 

NOTE 



Addition to directions fo r DIRECTORY command: 



1) 



2) 



3; 



In order to get a directory in user mode, the target 
device must Be mounted (do NOT use the /FOREIGN 
qualifier!). You can not get a directory from the 
console device in user mode, since VMS RMS does not 
suoport it. 

The target device must be attached before you can get 
a directory of it. This applies in both standalone AND 
user modes. This is due to the fact that the Supervisor 
does not enforce device naming conventions, and therefore 
requires access to a Ptable to figure out what type of 
directory structure it is accessing. 



T he directo r y command wi'. not work 
(eve* 1 disks in standalone. (This 
be corrected in a future version of 



on ODS structure 
is a bug, and wi v I 
the Supervisor! ) 
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V6.3 



1.0 DUG r IXES 







It the COMET supervisor is Loaded from a Massbus device, it 
currently attaches the load MBA as RHO, irregardless oi" the 
actual unit number. In version 6.3, this has been fixed* and 
will attach the correct unit number. 



o 



it 



In the $DS_DEVTYP rmcro, under certain cir instances the 
supervisor'could be fooled into thinking t. .t a device name 
string was part of a Ptable descriptor when it actually was only 
a name, This is because it looks 5 bytes beond the end of the 
string for a byte 80(x), and if the byte IS 80, the supervisor 
thinks it is a Ptable descriptor. This has been fixed by adding 
a null byte to the end of the Dt'VTYP string list. This does not 
affect any diagnostic already assembled as it i: transparent to 
fc^th diagnostic and supervisor, occurirg oi 
DIAij. 



g only within the library 



i ABORT macro, there was a difference in syntax between 
ind BLJSS forms, as BLISS required •PROGRAM' while 



For the $DS 
the MACRO al 

MACRO would accept PROGRAM or program. BLISS will now accept 
PROGRAM and program, as well as 'PROGRAM' for compatibility with 
older versions. 



o The $DS,WAITMS macro has been fixed so it will wotk correctly, 

o T he DV11 is now ATTACH-able. Previously the Supervisor knew of 
the device but would not allow ATTACH-ing it. 

o RMS fixes (to match VMS RMS functionality more closely): 

- When $GET ret jr. is RMS$ RT8, the RA8$L_STV field will 
contain the ft i I recor3 size. 

- SRfAD will 'eturh the block number read in the first 
icngword r, the RFA (RAB$L RFAO). The byte offset of the 
RFA (RFA*W_RrAO is 0. 

o SBI silo register rijmp (11/780 only). Due to an incorrect 

assumption as to instrjction context in indexed addressing mode, 
the wrong field was decoded for function ID, This problem has 
Deen corrected. 

o A fix to OSSwAI TuS to promote more correct and consistent 

Li>h3viour. This involves ensuring that the interrupt and error 
bits in the timer CSR are cleared. 



It is now legal for a section name to include the characters "$" 
and " ". Prev.ously, they could be used in a diagnostic section 
fume definition, but the Sup rvisor /SECTION qualifier (RUN and 
START commands) would not recognize them as legal. T he 
Supervisor will row accept these characters. In conjunction with 
this, the function code CLllK_SYM80L has been added to the 
$D5_CLIDEF macro, and may be used by any diagnostic. This code 

O^C t„ rornnni to * c t r- 1 n n COmjQSed Of th? Cha^Cte^ "A" 

, anit 



to "/ 



PA^SE to reco 



to 



gniz 



to 



a strini 

MQII tl, 
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n stanaai ont: . the JSETPRT service would return an inenrrec 
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address vector. The start address would be 1FF hex, due to a 
reversal of operands in a B1CL3 instruction. The address will 
now be correct. 

o In standalone, the $DS RELBUF (or SCNTREG) would fail with an 
ERRSUP (Supervisor fatal error) if the page geing released was ir\ 
PI or SYS space and had been modified with memory management on 
(M bit set in PTE). V6.3 corrects this problem, 

2,0 ENHANCEMENTS 

o Several QIO driver service entry points have been added to 

support level 2R to l«?vel 2 conversion: I0CSALL0SPT, 

EXESMAXACMODE, and EXESREADLOCK. These entry points are defined 
in th» DJAG.MLB $DS_Q10VEC macro. 

o Previous to V6.3, it was possible to attach a device to any of 
the predefined "main buses" recognised by the supervisor. Now, 
an error message will result if the main bus name does not match 
the CPU typr; for example, if a device is attached to an SBJ on a 
COMET processor the error message is "there is no SBI on this 
type processor." Also, two new "main bus" names have been 
defined. These can be used on any VAX implementation. They are 
PHAO (for "Physical Address Decoder") and HUB. 

p The SDS.SETVEC macro (DSiSETVEC routine) now allows setting the 
processor mode in which an interrupt will be handled, without 
changing the handler address. To do this, set the SRVADR 
argument to 0, and use the CODE argument as usual. Bits 2 to 31 
of the SCB vector will be unchanged, but bits and 1 will still 
be set to CODE. 

o New commands. These support customer service and manufacturing 
in using terminals narrower than 132 columns, without losing 
data. 

- SET WIDTH n 

- SHOW WIDTH 

These commands will be accepted and carried out in user mode, but 
will have no effect on terminal characteristics tuse VMS SET 
TERMlNAL/WlDTH=n before running Supervisor). In standalone, a 
newline is forced when the cursor (printhead) passes column n. 

o In user mode (only), the Supervisor will accept subdirectories in 
file specifications. 

o HELP FILE: Where possible, I have included standard (fixed) CSR 
and vector addresses in the DEVICE portion of EVSAA.HLP. Also, 
the lines which used to read "Device:" now read "Description:" to 
avoid possible confusion cjer actual names. Finally, the 
recommended generic names have been brought into agreement with 
the "MASTER LIST OF PDP-1 1/VAX-1 1 DEVICE NAME CONVENTIONS" 
maintained by Kerby Altmann of VMS Development. 

o Beginning with V6.3 f the Supervisor .DOC file will contain a 
concatenation of all release note files (from V5.3 on). This 
will allow easier reference to warnings on use of Supervisor 
features, as well as tracking enhancements/bug fixes. 
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o QIO driver entry points IOCSALLOSPT, EXE$MAXACMODE, and EXESREADLOCK, 
which were supposed to have appeared in version 6.3, somehow didn't. 
They are present in 6. A. 

o ECSAA attached MASSbus Load device incorrectly. This has been fixed. 

o Mos*- ^its of the 11/750 UBJ register are undefined, specified as MBZ 
(Must Be Zero) but are actually unpredictable. This is confusing in 
the output of a SDS^SHOWCHAN call. Therefore, the Supervisor will 
now mask out these undefined bits. 

o The SSETPRT system service (standalone) would not work if the caller 
was not already in Kernel mode. Version 6. A will do a CHMK to insure 
kernel mode privilege for the routine. 

o The byte context PRVPRT output argument of SSETPRT was being written 
as a longword. Version 6. A will write it as a byte. 

o The diagnostic cleanup code was not called when a loop on subtest 
terminated. This has been fixed. 

o If a range of tests were used with the /SUBTEST qualifier, the 
diagnostic would loop on the first subtest with the specified number, 
irregardless of which test it was in. Now, it will only loop on the 
correctly numbered subtest in the last test number given. 

o The VMS console device non-interrupt I/O drivers have been 
incorporated into the Diagnostic Supervisor. This means console 
reads which fail due to media bad spots will be re-tried. (This is 
more of an enhancement, but is listed under bugs because 
Manufacturing has complained of trouble with console bad spots under 
APT control). 



The bliss 
inc luding 
errors in 

incorrect 
fixed. 



diagnostic library (DJAG.132) had several bugs in it, 

incorrect macros for SDS^SINIT JAL JZE and $DS„$SiRING, many 

XERROR statements to point out bad macro useage. and 

compilation of $DS PRJNTSIG macro. These have all been 



A bug in $DS, 
' soft-vectored'" 
include BPT and 



5E TVEC prevented setting the mode in 
exception was handled. Soft vectored 
T-bit traps. This problem has been fixed. 



which a 
exceptions 



2.0 ENHANCEMENTS 



FIELD definitions 
been added to the 
$DS HPODEF macro; 



for all Ptable types known to the Supervisor have 

Bliss library (DJAG.L32). They can be used via the 

for example, M $DS..HP0DEF ($6s_DZ11_DEF) M allows 
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access to the basic Ptable fields, plus the fields of the DZ11 
Ptable. Also, literals representing the length of these Ptables have 
been added. There are no FIELD definitions Tor Ptables which have no 
device dependent fields. 

o Correct spelling of many Supervisor messages, ana change to mixed 
case for greater legibility. 



3.0 MISCILLANEOUS 

o Note: The SSETAST system service (as documented ir. the VMS System 
Service manual) is supported by the Supervisor in standalone. It was 
added in version 5.4 for Supervisor internal use and was not 
documented. It may be used by level 2 and 3 programs freely. 

o Note: The Diagnostic Design Guide is in error over the PRINT 
($DS PRINTX, tDS PRINTS, SDS PR1NTF) format argument. It should be 
counted ascii (ASClC) not ASCID. 



3,1 Previously Undocumented Gems Of Wisdom: Linking Diagnostics 



Bliss-3? => If 



in Bl iss-32, without 
with 
(for system 



-3? => If a diagnostic is written entirely 
any Mac ro-32 modules, the diagnostic must be linked with a DS.STB 
file defining Diagnostic Supervisor entry points 
services, etc.). 

DS.STB can be created easily from the following Macro-32 source: 

.TITLE DS.STB Symbol tabl? to link with BLISS modules 

.LIBRARY ' SY$$LIBRARY;DIAG' 

$DS DSADEF GLOBAL 

SDS'DSSDEH GLOBAL 

.EWE 

And assembled/linked as follows: 

$ MACRO DS 

$ LINK/SYMBOL, TABLE=DS/NOEXECUTABLE DS 

Link <diag> as such: 

$ LINK <qualifiers> <diag>+DS. STB 



Macro-32 => The $DS_BGNMOD and $DS_ENDM0D macros use a label 

$M0 

$DS_ 

macro will cause an "undefined symbol" error at assemoiy 



called 



) for checking." The $DS BGNMOB macro defines "$M0 == 0", and the 
i ENDMOD defines "$M0 == $R0 ♦ V. Therefore, a missing $DS„BGNMQD 
;ro will cause an "undefined symbol" error at assembly time Tn that 
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module, and a missing fcDS^ENDMOD will cause a "multiply defined 
global" error at link t?me, due to the fact that correct module(s) 
define SMO as 1 and modules missing $DS_ENDM0D macros define $M0 as 

0. 
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A, GENERAL ENCHANCEMENTS 

1. UNIBUS Mapping 

The entire UNIBUS is now mapped, instead of just the I/O pages* 
This allows 'iagnostics to get UNIBUS NXM errors instead of 
access violv-uion errors. 

2. Channel Services status 

By popular demand, channel services has been enhanced to return 
additional information: 

o UNIBUS NXM errors reported by bit CHS$M BUSNXM 
o MASSbus writecheck errors reported by three bits: 

a. CHSSM CHNDPE is set if either of the other two are 
set: 

b. CHS$M_MBAWCKLWR is set if the MASSbus write check 
lower~bit is set. 

c. CHS$M.„MBAWCKUPR is set if the MASSbus write check 
upper~bit is set, 

3. APT troubleshooting 

To enable troubleshooting of diagnostic problems under APT, the 
hardware context will not be initialized when an ABORT command 
code is received from APT, if errors have occurred, 

4. Automatic diagnosis assistance 
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There are several programs 
act as operators to VDS. Cu 
parsing of the VDS ASCII ou 
growing to make the task of 
Hag has been implemented. 
VDS will output a binary ' t 
message ( inc luding prompts 
byte will indicate the mess 
program start, harderror, e 
macro $DS_TYP£CODE in DIAG 
implementation is incomplet 
will have a type code of 
program sequence messages ( 
command messages will gener 
BINARY flag is off by defau 
ALL (or turned off by CLEAR 

5. DEVICE UNIQUENESS 



(including APT, RD, and EVXBB) which 
rrently, this process requires 
tput. With Version 6,5, VDS is 

automated diagnosis easier: A new 
called BINARY. When this flag is set, 
ype byte 1 as the first byte of every 
and diagnostic PRINTS). This type 
age class (e.g., command error, 
tc.) The type codes are defined in 
.ML8 and DJAG.L32. Currently, the 
e. Most messages for this release 
(ds$k_tyc)e_Qeneral) . Only prompts, 
startT first_pass, end, etc.), and 
ate meaningfull type codes. The 
It, and is not turned on by SET FLAGS 

FLAGS ALL), 



The concept of a unique device has been altered. Previously two 
devices with the same name were considered the same, and could 
not be ATTACHed at the same time. To support network nodes 
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(which may be accessible through several different network 
adapters), TWO DEVICES WITH THE SAME NAME BUT DIFFERENT LINKS 
ARE NOW CONSIDERED DIFFERENT. This means that a device attached 
to the wrong adapter can not be 'edited' by re-attaching it. The 
new DEAVTACH command gives the ability to correct any ATTACH 
errors. 

6. Error messages 

All error messages (ERRHARD, ERK:.0FT # ERRDEV. ERRSYS, and 
"Software detected error**) now include a trailing "End of error" 
line heralded by "********". This makes it easier to separate 
errors and assorted intervening text on printouts. It was 
particularly devised in conjunction with the BINARY flag (see 
item 4 in this section), and has its own unique type code. 

Bv COMMAND ENHANCEMENTS/ADDITIONS 

1 . New Qualifier /BRIEF 

This qualifier can be used on the SHOW DEVICE and SHOW SELECT 
commands. It will cause only the device name and type fields to 
be printed. 

2. New qualifier /ADAPTER=name 

This qualifier can be used on the DEATTACH, SELECT, DESELECT, 
and SHOW DEVICE commands. It will limit the command to devices 
attached to the adapter with device name 'name 1 . E.g., for 
select, *'SELECT/ADAPTER=DWO ALL" will cause all devices attached 
to DWO (but not devices attached in turn to those devices) to be 
selected for test. The special adapter name "HUB" is recognised, 
but not "SBI", "CMJ", etc, 

3. DEATTACH 

This command reverses the ATTACH command for a device. It can be 
used to remove incorrectly attached devices. The /ADAPTER=name 
qualifier is REQUIRED on this command. Since Ptables are linked 
in a tree structure, it makes no sense to de-attach a device 
which has other devices attached to it, unless those devices are 
also de-attached. Therefore, the DEATTACH command will 
recursively "seek and destroy" alt lower level devices for each 
device it de-attaches. E.g., if DWO has devices DMA and TTA 
attached to it, TTA has device TTAO attached to it and DMA has 
DMAO attached to it, typing "DEAT rACH/ADAPTER=HU8 DWO" will 
cause DWO, DMA, TTA, DMAO, and TTAO to be de-attached, a message 
will be typed Tor each as it is de-attached, (note that the 
message order may appear strange, since the de-attach routine 
does a post-order search). 

4. EXIT 

In on-line mode, this command will execute a VMS SEXIT system 
service to terminate the VDS image. In standalone, it will do a 
HALT after re-ini t ial i^ing the machine (a console CONTINUE will 
return to VDS command mode, however). 

5. SHOW BASE 



12 

77-ENSAA-7.0 Documentation Fiche 1 Frame 12 Sequence ?1 

Displays the current base value, (as in "SET BASE ') . 

6. SHOW DEFAULT 

Displays the current default radix and data size. 

7. SHOW SECTIONS 

Lists the SECTION names supported by the current diagnostic. An 
error results if no diagnostic is loaded. 

8. SHOW STATUS 

Prints the name, revision, current time, error count, section, 
pass count, test, subtest, and PC for a CNTRL/C'd diagnostic. If 
there is not a runninn diagnostic, an error is typed, 

9. SHOW SUPPORT 

Prints the list of devices supported by the current diagnostic. 
An error results if no diagnostic is loaded, 

C. GENERAL CLJ/PARSE ENHANCEMENTS 

1 . New PARSE features 

Special function codes have been added to PARSE to improve 
command parsing for the VDS CLI (they can also be used by 
diagnostics) : 

o CLI$K_E0l: Accepts a string consisting of blanks (any number 
of spaces and/or tabs; including none of either) followed by 
either end of line (no more characters in string) or a "!" 
character (comment delimiter). It will call the action routine 
and branch through the miss label, as appropriate. 

o CLlSK.SLASh: Accepts blanks, followed by the character "/" 
tol lowed by blanks. 

o CLiSL COMMA: Like CUSK.SLASH, but expects a "." instead ot a 



o CLI$K VALUE: like CU$K SLASH, but expects either an "-" or 
":" instead of a "/"« '£" and ":" are exactly equivalent (a 



a 

,._._..., is 

in VMS DCD. 



2, CI I improvements: 

o CLI uses the features listed above to make command syntax 
more flexible. For example, the qualifier "/PASSES:!" is the 
same as " / PASSES = 1". 

o The old CLI had two e r ror messages: "Illegal command" and 
"Ambiguous command"; both of which were usually rather 
ambiguous themselves. The latter has been replaced by 
"Incomplete command" and the rules for generating each have 
been tightened: 

a, A command is illegal if something unexpected is found. 
E.g., the command xk VillV\ 
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b. A command is incomplete if something expected is NOT 
found. E.g., "CLEAR" lacking any arguments. 

furthermore, both error messages include some information on 
what was in error. "Illegal command" displays the command line 
UP THROUGH THE FIRST ILLEGAL CHARACTER, "incomplete command" 
displays up to where the expected data should nave been. E.g., 
the command "XYZZY" results in! 

?? Illegal command 
\X\ 

while the command "CLEAR" results in: 

?? incomplete command line 
\CLEAR\ 

D. PTABLE DESCRIPTOR ENHANCEMENTS 

1 , New directives 



tsly, to request logical (yes/no) data, it was necessary 
the $DS_$STRING directive, supplying prompt, "NO", and 



o Previous 
to use 

"YES'* strings. I have implemented the new directive 
$DS SLOGI CAL . It's only argument is the prompt string. This 
saves program space, and also allows ABBREVIATION of the words 
"Yes" and "No". All Ptable descriptors within VDS which 
require "Yes/No" input have been modified to use this 
directive. 

o Value translation can now be accomplished by the directive 
$DS,$CASF. The argument is a list of "case pairs"s. The 
current VALUE register is compared to the Tirst value of each 
pair u til a match is found; the second value of that pair 
becomes the new VALUE, and the case directive is exited. VALUE 
is not altered if no match is found. 

Bliss-32: 

$ds_$case <<1 ,*x'FFF •>, <?,3(x , KE0 , >) 

MACRO-32 

$ds_$case << 1 ,< A xFFF»<?,< A xUE0»> 

E. MISCELLANEOUS ENHANCEMENTS 

1. VFRIFY 

VDS now supports a mechanism similar to the VMS "SET 
[N0]VERJFY r \ The flag VERIFY can be set or cleared via "SET FLAG 
VIRJFY" or "CLEAR FLAG VERIFY", when the flag is set, commands 
read from VDS scripts arc echoed to the console. When the flag 
is clear, command lines are not echoed. This does not affect 
error or information messages, and has no effect unless commands 
are being processed from a VDS SCRIPT file : commands read from 
a VMS command file are considered by VDS to be coming from the 
console! 
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!!The flag is CLEAR by default!! 

2. MIXED CASE MESSAGES 

Many messages throughout VDS have been altered from all caps to 
mixed case. We feel that this is much easier to read, as wei i as 
appearing M warmer M , in the line of "human engineering". 

F. BUG FIXES 

1. Ptable descriptor location 

A butt has existed which could cause errors when a proqram's 
Dc'VTYP list existed but had elements. This has been fixed. 

3, ATTACH 

It is now possible to CNTRl/C out of an ATTACH prompt. 
Furthermore, ATTACH will not attempt to prompt a SCRIPT or APT 
for a missing or invalid parameter: the command will be aborted. 
From a SCRIPT, the error 'Prompt not found" is generated. From 
APT mode, a "Software detected error" is generated, 

3. Fixes to DIAG.132 macros 

o $DS_ENDMOD malfunctioned when a module did not contain tests 
(incorrectly setting an overlayed PSECT which at runtime 
should contain highest test number). This has been fixed. 

o $DS,HPO_DECl has been fixed to correctly accept multiple 
arguments. 

o $DS.$STRING and $DS„$IN1UAUZE did not function properly. Now 
they will . 

4, Event flag services 

All standalone event flag services have been re-written to 
correspond to the VMS services. The SSETEF and SCLREf services 
will return SSS WASSET or SS$ m .WASCLR when they shoula, as will 
SREADEF. 

G AUTOMATED DIAGNOSTIC QUALITY ASSURANCE 

G.1 Background 

Enhancements have been made to the Diagnostic Supervisor to enable 
it to automatically perform Quality Assurance checks on 
diagnostic programs. 

This version of the Supervisor performs the Normal Start check 
(Section 5.1 in the 'VAX Diagnostic Quality Assurance Checklist"), 
the Multiple Pass check (Section 3.2), the Locp on Test check 
(Section 3./), and the Run Backwards check (Section 3.5). Other 
sections in the checklist will be added to the Supervisor as time 
and resources permit. 

The Normal Start check does the following: saves the current 
setting of the Supervisor flags; turns on the TRACE flag; turns 
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oft the following flags: BELL, IE1, IF.2, IE3, JES, LOOP, OPER, 
PROMPT, QUICK, and SEARCH; performs a normal start of the 
diagnostic program, running all the tests in the specified 
section; turns the TRACE flag off; and either stops when a QA 
error is detected or proceeds to the next check. 

The types of errors that the Normal Start check will detect are 
asking for operator input when the no-default flag is set (in the 
$DS ASK macro) and reporting a diagnostic error via one of the 
$DS"ERR macros. When a QA error is detected, the Supervisor will 
print out information that should help the diagnostic engineer 
determine why the program failed QA, Then, an overall error 
summary table is printed, the Supervisor flags are restored to 
their previous settings, and the diagnostic is aborted. 

If the Normal Start check succeeds, the Multiple Pass check is 
performed. This check performs a number of passes of the 
diagnostic program. The current settinq of the GAMULTIPLEPASS 
flag is the number of passes that will Be executed (see Section 
G.4). The types of QA errors that can occur are the same as those 
in the Normal Start check. 

If the Multiple Pass check succeeds, the Loop on Test check is 
executed. This check runs each test QATESTLOOPS times (see Section 
G.4). Assuming a diagnostic has tests 1, 2, and 3, and 
QATESTLOOPS has been set to A, this check will run the 
initialization code, followed by tests 1, 1, 1, 1, 2, 2, 2, 2 t 3, 
3, 3, and 3. The types of QA errors that can occur are the same as 
those in the Normal Start check. 

If the Loop on Test check succeeds, the Run Backwards test is 
executed. This check runs the tests in reverse order. If a 
ri-laonostic contained tests 1, 2, 3, and 4, this check would 
execute the initialization code followed by test A, test 3, test 
2, and then test 1. The types of QA errors that can occur are the 
same as those in the Normal Start check. 

If the Run Backwards check suueeds, the overall error summary 
table is printed, a line is printed saying that the program passed 
Auto-QA, the Supervisor flags are restored to their previous 
settings, and the diagnostic is aborted. 

G.2 START/OA 

A new qualifier has been added to the START command. If the START 
command contains the /QA qualifier, QA will be performed on the 
currently loaded diagnostic program. It the /QA qualifier is 
present, the /PASSES, /SUBTEST, and the /TEST qualifiers ^re 
ignored. The /SECTION qualifier may be used to run QA on a 
particular section in the program. 



G.3 RUN/QA 



The /QA qualifier has also been added to the RUN command. It 
functions exactly the same as the /QA qualifier on the START 

command. 
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G.4 QA Flags 

There are five new Supervisor flags that will affect QA. However, 
only two of these are used in the current implementation. 

The QAMULTIPLEPASS flag controls how many passes are performed in 
the Multiple Pass check. Th** flag may be set as follows; 

DS> SET QAMULTIPLEPASS 10 
DS> SET UAM 3 

In addition, the current setting of the flag may be printed as 
follows: 

DS> SHOW QAMULTJPLEP/SS 
DS> SHOW QAM 

Note that the QAMULTIPLEPASS flag may be abbreviated to QAM. The 
initial (and default) setting for this flag is 10. That is, 10 
passes of the diagnostic will be executed in the Multiple Pass 

check. 

The QATFSTIOOPS flag controls now many tim?s each tes«" is 

executed in the Loop on Test check. For example, if a diagnostic 

program contains three tests and QATESTLOOPS equals 2, this check 

will first execute the initialization code, then tests 1, 1, 2, 2, 

3, and 3. 

This flag may be SET a-id S^OWn in the same manner as the 
uAMULTlPLtPASS flaq. This ."lag may be abbreviated to QAT. The 
initial (and default) settirg Tor this flag is 100. 

Also, the following command will set all the QA flags to their 
default settings: 

DS> SET QADEFAULTS 

QADEFAULTS may be abbreviated to QAD. To show the default settings 
(not the current settings) of the five QA flags, the following may 
be used; 

DS> SHOW QADEFAULTS 

G.^> Modifications Necessary For QA 

Diagnostic programs wishing to undergo QA must call the 
$DS_ENDPASS macro in the initialisation code. This is necessary 
for"the internal Supervisor sequencing of QA checks. The branch 
macros discussed in the "Design Specification for Automatic 
Quality Assurance for Diagnostic Programs" need not be used in the 
diagnostics for this version of QA. 

Because of the way the Supervisor works, the code executed in the 
diagnostic's initialisation code when passO is true (in 
conjunction with the $DS_8 p ASS0 or SDSJ3NPAGS0 macros) will be 
done only once. It is done at the start of the Normal Start 
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check. Also, the cleanup section will be done only once. It is 
done at the conclusion of the Normal Start check (before the 
Multiple Pass check is started). 

Thus, the whole QA sequence of checks may be thought of as 
executing the diagnostic a number-of**passes times, with different 
thirds happening in different passes. That is, one pass is 
executed for the Normal Start check, then QAMULTIPLEPASS passes 
are executed in the Multiple Pass check, then one pass is executed 
mi the Loop on Test check (with the tests executing more than 
once), and then one pass is executed for the Run Backwards check 
(with the tests being run in reverse order). 
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RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.7 
03-May-1982 



GENERAL ENCHANCEMENTS/NOTES 

1. This release is almost identical to the Version 6.6 

VDS which was released in the previous cycle. However, 
due to technical difficulties, particularly due to the 
support of VMS V?-style QIO interface in standalone, while 
linking VDS under V3 of VMS, it was not possible to release 
version b.6 VDS for 11/780 and 11/750 processors. 

This release (6.7) includes all thre* processors; ENSAA 
(11/730), ECSAA (11/750), and ESSAA (11/780). 

2, VMS V3a support 

Support of VMS V3a includes support for the new system 
directory structure, where [SYS0. SYSMAINT] replaces the old 
[SYSMAINT] directory. Earlier versions of VDS will not 
operate correctly with a 'rooted' SYSMAINT directory. This 
support requires DIAG800T.EXE VA, which was released with 
the previous release cycle. 

A side-effect of the support of rooted systems is that VDS 
now fully supports subdirectories in standalone mode. 

NOTE that while VDS 6.7 supports the directory structure of 
VMS V3a, it is linked under VMS V2.5, and so will run under 
VMS V2.5 or V3a. 
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3. New Device support 

VDS V6.7 includes support for the UDA-50 UNIBUS 
adapter/co.itroUer, and for the RA- series disk 
can attach to it. 



to SI disk 
drives which 



B. COMMAND ENHANCEMENTS/ADDITIONS/FIXES 

1, SELECT/DESELECT 

In version 6.5, the SELECT and DESELECT commands did not handle 
the new definitions of 'device uniqueness 1 correctly. If the 
device name specified was attached to more than one adapter, the 
commands would simply act upon the first such device found 
(unless the /Adapter qualifier was used). Since the SELECT 
command affects the order in which device names are searched, 
this often meant that it was impossible to DESELECT the device 
which had been SELECTed; yet no error message was given. Now, 
such a situation will result in an error message saying that the 
/Adapter qualifier must be used. 

2. HELP 

in the process of major restructuring of the VDS command parser 
for version 6.5, a bug was inserted in the parsing of the HELP 
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command. Specifically* any command line which began with 'H* 
was taken as a HELP command; for example, a 'SH0W T command 
mis-typed as 'HSOW* was interpreted as if 'HELP SOW* had been 
typed. This has been fixed for VDS 6.6. 

3. SHOW MEMORY 

This new command displays the layout of VDS memory. In default 
mode, the start and end addresses of the diagnostic, VDS, and 
dynamic memory (used by VDS) are typed, as well as the physical 
memory size of the system, in both HEX and DECIMAL radix. There 
are several qualifiers to this command. Note that you can not 
use these qualifiers prior to the MEMORY keyword. E.g., 
'SHOW MEMORY/ALL' but not 'SHOW/ALL MEMORY 1 . 

a. /MAP : same as default mode 

b. /DATA.STRUCTURE : shows internal VDS data structure 
addresses, including all stacks, page tables, SCB, and 
various simulated VMS data structures (PCS, PHQ, etc.). 
knowing the addresses of these data structures can be 
useful! in debugging. Note that the memory layout in 
on-line mode is quite different than in standalone; in 
on-line mode, none of the aforementioned data structures 
are present within VDS memory space, and will not be 
displayed. 

c. /BUFFER : Show available space for diagnostic buffers, 
both above and below VDS (this command is not meaningfull 
when no diagnostic is loaded). Note that since on-line 
mode allocates buffer space above VDS via SEXPREG as it 
is requested, /BUFFER on-line will not show space above 
VDS. 

c. /ALL : Combine /Map, /Data^Structure, and /Buffer 

4. DIRECTORY 

The DIRECTORY command has been enhanced. Previously, it would 
accept as arguments only the device and directory parts of a 
filespec, and would take only one level of directory in 
standalone mode. Now, you can specify the filename, type, and 
version fields of the filespec; additionally, both the filename 
and type fields may include both "*" and "% ' wildcards (with 
the same meaning as under VMS), Furthermore, subdirectory 
specification is now legal in standalone as well as on-line, 

5. SUMMARY 

The SUMMARY command has been enhanced. Whether or not the 
diagnostic program contains summary code, VDS will generate a 
header containing the name of the diagnostic and a summary of 
all HARD, SOFT, DEVICE, SYSTEM, and SUPERVISOR DETECTED errors 
which occurred during the run. 

C. AUTOMATED DIAGNOSTIC QUALITY ASSURANCE 

1 . In troduct ion 

These sections will explain what functionality J have added 
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to the Automatic Quality Assurance enhancement to the 
Diagnostic Supervisor, and what problems I have fixed since 
the 6.5 version of the Supervisor. Note that when I speak of 
versions of QA or versions of the Diagnostic Supervisor, I am 
actually speaking of the same thing* 
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2. Additional Functionality 

The following gives the two new 

added to the 6.6 version: 



QA checks that have been 



Loop On Subtest check: 

This check performs a loop on every subtest in the 
diagnostic. The number of loops is user-controlled via 
the QASUBTESTLOOPS Supervisor flag. The following is an 
example of how this check works: 

Assumptions: 

Diagnostic EXXXX contains two tests. 
Test one has three subtests. 
Test two has two subtests. 
QASUBTESTLOOPS has been SET to 



3. 



Order of Execution 
1.1 
1.1 
1.1 

1.1 

1.2 
1.2 
1.2 

1.1 
1.2 
1.3 
1.3 
1.3 

1.1 

1.2 
1.3 
2.1 
2.1 
2.1 

2.1 
2.2 
2.2 
2.2 



(Test/*. Subtest//) 




.. 
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for each of the above groupings 



b. Error Phase One check: 

This QA check forces as many error reports as possible to 
be printed. This is a way of insuring that the 
parameters passed to the error routines are correctly 
coded, as well as allowing the user to check the format 
of the error messages. The following lists some points 
that must be considered when writing a diagnostic that 
will be QA'ed using Auto-QA: 



n 



t n 



iv 



Any error call that was not forced (i.e., was not 
receeded by a branch macro In which QA forced the 
ranch to change sense) will be treated as a QA 

error, resulting in termination of Auto-QA. 



B 



No two branch macros should occur in sequence $ wi thout 
an intervening error macro call. That is, the 
sequence should always be one branch macro followed 
by one error macro call. 

No branch macros should occur in a subroutine. 
B r anch macros in subroutines may cause QA to go into 
an infinite loop and print error reports ad 
infinitum! This may ce fixed in a later version of 
OA. 

The branch macros for use in MACRO diagnostic modules 
are listed below. For an explanation of the 
parameters, see Revision 1.1 of the "Functional 
Specification for Automatic Quality Assurance for 
Diagnostic Programs" memo. Contact Jack Stansbury 
(TW/F18) for a copy of this memo. 



$DS BLSS 

$DS~BLSSU 

$DS"BLEQ 

SDS'BLEQU 

SDS^BEQl 

$DS BEQLU 

$DS"BGEQ 

$DS~BGEQU 

$DS"BGTR 

SDSlBGTRU 

$DS BGfRU 

$DS"BNEQ 

$DS~BNEQU 

$DS"BVS 

$DS"8VC 

$DS"8CS 

$DS~8CC 

SDSlBBS 

$DS BBC 

$DS"B8SS 

SDS'BBSC 

SDS'BBCS 

SDS'BBCC 

$DS"BBCCI 

$DS~BBSS] 

SDS BLBS 



ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

POS, BASE, ADR, NUM 

SRC, ADR, NUM 
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SDS^BLBC 


SRC, ADF 


\ t NUM 




SDS.BERROR 


ADR, NUM 




SDS.BNERROR 


ADR, NUM 




v. The branch macros for 


use in BL1S 




are as follows 


(note 


that the BC 




branch macros are not 


implementab 




$DS BLSS 


(VAL, 


NUM) 






SDS~BLSSU 


(VAL, 


NUM) 






SDSlBLEQ 


(VAL, 


NUM) 






$DS BLEQU 


(VAL, 


NUM) 






SDS.BEQL 


(VAL, 


NUM) 






$0S BEQLU 


(VAL, 


NUM) 






SDSlBGEQ 


(VAL, 


NUM) 






JDS BGEQU 


(VAL, 


NUM) 






$DS"BGTR 


(VAL, 


NUM) 






SDSlBGTRU 


(VAL, 


NUM) 






$DS BGTRU 


(VAL, 


NUM) 






SDS~BNEQ 


(VAL, 


NUM) 






$DS~BNEQU 


(VAL, 


NUM) 






SDSlBBS 


(POS, 


BASE, 


NUM) 




SDS.BBC 


(POS, 


BASE, 


NUM) 




$DS BBSS 


(POS, 


BASE, 


NUM) 




SDS BBSC 


(POS, 


BASE, 


NUM) 




SDSJ3BCS 


(POS, 


BASE, 


NUM) 




SDS BBCC 


(POS, 


BASE, 


NUM) 




SDSlBBCCJ 


(POS, 


BASF, 


NUM) 




SPS..8BSSJ 


(POS, 


BASI , 


NUM) 




SDS BLBS 


(SRC, 


NUM) 






SDSlBLBC 


(SRC, 


NUM) 






SDS BERROR 


(VAL, 


NUM) 






$DS"BNERROR 


(VAL, 


NUM) 
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modules 
and BVC 



After all the errors are forced, a table is printed 
rhat summarizes the error numbers. This is the 
Forced-Error Summary table. This table looks like the 
fol lowing: 



Summary of Forced-Errors 



Test X1 Subtest Y1 



aaaaa-bbbb ccccc-dddd ... 

mmmmm-nnnn . . . 

Test X2 Subtest Y? 

AAAAA-BBBB CCCCC-DDDD EEZEE-fFFf GGGGG-HHHH 
MMMMM-NNNN 00000-PPPP QQQQQ-RRRR . , . 



The error numbers are printed in a test/subtest order, 
with the error numbers sorted within each test/subtest. 

The Xi and Yi are the test and subtest numbers, 
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respectively. The 'aaaa*, *cccc', ..., 'AAAA' 
etc. are the error numbers that are passed 
$DS_ERRxxxx macro. 



6 3 

•CCCC\ 
to the 



The "bbbb 1 , l dddd\ ..., 'B8BB', 'DDDD', 
the ni'»Ljr of times that error was forced, 
s^uid be one except in those cases where the 
number is used more than once in one subtest. 



etc. are 
This number 
same error 



Jf the diagnostic runs on a subset of the total 
number of tests in the DEFAULT section (by using the 
/TEST qualifier), the Overall Error Summary table will 
not be printed. 

However, if the /TEST qualifier is not used, the 
Overall Error Summary table will be printed. This table 
gives the number of errors that occurred in each QA 
check. For the 6.6 version of the Supervisor, these 
numbers should be either all zeroes (in which case a line 
is printed saying the program passed Auto-QA) , or else 
there will be at most one error (since Auto-QA is aborted 
upon detection of a single QA error). 



3, Auto-QA Problems in the 6.5 Version 

The following is a list of problems with QA 
discovered in the 6.5 version of the Supervisor; 



that were 



a. The Halt-On-Error flag was not cleared before starting 
QA. I had meant to clear all the Supervisor flags when 
QA started, and then restore them when QA ended. 
However, I forgot this one fl?g. Although improbably 
will not cause any problems in the 6.5 version, it would 
have caused problems in rhib new version. 

b. If a previously-started diagnostic is running, a 
Control-C is typed, and then a CONTJNUE Supervisor 
command is executed, Auto-QA will start behaving 
strangely (it will set the number of passes to 0* and 
start executing forever). 

c. The cleanup code in the diagnostic was executed at the 
end of the first QA check, the Normal Start check. After 
executing the cleanup code, QA caused the diagnostic to 
continue running by starting the Multiple Pass check. 
That is, the /QA qualifier on the START or RUN commands 
cause the following to happen? 

i. The diagnostic is started and executes one pass. 
This means it executes the initialisation code (doing 
the pass-zero things, such as allocating buffer? and 
assigning channels), then executes all the tests in 
the appropriate section (the DEFAULT section by 
default). 



i i 



after executing the last test 



I 



Then, 

the 

This time, the pass-zero things will 

the ENDPASS routine will be called. 



Supervisor calls the initialization code again 



in that section, 

3d 
not be done and 
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*i 



the diagnostic 's cleanup 
are usually deallocated and 



iii. The ENOPASS routine calls 
code (where the buffers 
channels deassigned). 

iv. Normally at this point (i.e., when NOT under control 
of QA), the Supervisor would return to command mode. 
However, QA will cause the ENDPASS routine to set the 
number of passes to QAMULTJPLEPASS (settable via a 
•'SET QAMULTIPLEPASS" DS command) and start the 
Multiple Pass QA check. 



Note that the 
in between the 
check. Thus, 
were deallocated at the end of the 
(in the cleanup code) are no 
to the diagnostic in the Multiple 
was causing several diagnostics 



d. 



t. 



v. This causes test one to execute again. 
initialization code is NOT executed 
Normal Start check and Multiple Pass 
the buffers that 
Normal Start check 
longer available 

Pass check. This — , 

(including the Cluster Exerciser) to fail 

The branch macros (i.e., $DS BERROR, SDS BLBS, SOS BBS, 
$[)S_BNFQ, etc.) will destroy the contents of RO. "This 
happens because the branch macros expand into a 
Supervisor service routine, which is executed with a 
CALLS instruction. Since RO is never saved across CALL 
instructions, the contents can not be guaranteed upon 
return from this routine. 

The register values that ire printed out when a QA error 
is detected are incomplete. That is, at most three of 
the registers are correct, with the others having a 
default vulue of zero. This led to some confusion. 

The /TEST qualifier was ignored on the START or RUN 
commands when used in conjunction with the /QA qualifier. 



The /SECTION qualifier did not work properly 

DEFAULT section 



con junc t ion 
is the only 
qualif ier. 



with the /QA qualifier. The 
section that can be run when 



using 



when used in 
the /QA 



Fixes to the Above Problems 

The following describes the status of the above problems: 

a. The HALT flag is now cleared when QA is running. As with 
the other Supervisor flags (e.g., JET, IE2, IE3, TRACE, 
BELL, etc.), it is restored to its previous state (i.e.. 



to the same setting it had before the START or auN 
command was executed) after QA finishes. 



b, 
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(before the diagnostic's Control-C handler) and will 
abort the diagnostic. Note that a CONTINUE Supervisor 
command in this context will not work, 

c. The way the QA check routines execute the diagnostic has 
been fundamentally changed. Whereas before the sequence 
of checks could be thought of as executing a variable 
number of passes of the diagnostic, the sequence is now 
like STARTing the diagnostic a fixed number of times (the 
number of times depends on the number of QA checks). 

for example, ASSUMING (note that even though there 
is none, this has been suggested as an enhancement) there 
was a new qualifier on the START (and RUN) command that 
would allow one to select which particular QA check 
routine to execute (such as /QA=NORMAL_START to execute 
ONLY the Normal Sta^t QA check on the diagnostic), then 
the sequence of checks can now be thought of as being: 

DS> START /QA=N0RMAL START 
DS> START/QA=MULTIPCE PASS 
DS> START/QA=L00P ON.TEST 
DS> START/QA=L00P"0N SUBTEST 
DS> START/QA=RUN BACKWARDS 
DS> START/QA=ERR0R„.PHASE_ONE 

That is, the diagnostic program is reSTARTed at the 
beginning of each QA check and executes as though a 
normal START Supervisor command had been executed. This 
implies that the initialization code is always '*one at 
the beginning of each check routine, then all the tests 
execute (a varying number of times depending on wh'ich QA 
check is executing), then the ENDPASS routine is executed 
causing the cleanup code to execute, and then the next QA 
check routine performs the same way. This new 
implementation should alleviate the deallocation problems 
encountered by several people. 

d. The implementation of the branch macros has changed 
somewhat. Some diagnostic engineers felt that the 
$DS BERROR and 5DS.8NERR0R macros should NOT alter the 
contents of RO both when QA is not running, and when QA 
is running but not forciny errors (as happens in the 
Error Phase One QA check). Jn this version of the 
Supervisor and of the DIAG library, the $DS BERROR and 
$D$_BNERR0R macros will alter the contents of RO only 
when QA is running and forcing errors. 

For branch macros other than $DS_ BERROR and 
$DS_BNERROR, the contents of RO may change across the 
branch macro call. The main reason an exception was made 
in the case of the above two macros is that they existed 
prior to the QA enhancement and did not alter the 
contents of RO. Therefore, to be compatible with old 
diagnostics, it was felt that this should not change. 
However, with the new branch macros, RO will change only 
in the tow hit position (i.e., it may change from a one 
to a zero, or vice-versa). Note that this bit may change 
even when the /QA qualifier is not being used (i.e., m 
normal running of the diagnostic). 
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e. the register values printed out when a QA error is 
detected are now correct. The values printed are the 
values at the time of the call to the Supervisor Service 
routine that produced the QA error (e.g., a SDS^ERRHARD 
call). 

f. The /TEST qualifier is no longer ignored when used in 
conjunction with the /QA qualifier. This allows one to 
run QA on a particular test in a diagnostic, or on a 
range of tests. However, if the /TEST qualifier is used, 
the Overall Error Summary table is not orinted (see later 
section) , 

g. The /SECTION gualifier is still, essentially ignored. 
This will be fixed in fhe next version of the Supervisor. 

D. DIAGBOOT (DIAGNOSTIC SECONDARY BOOTSTRAP PROGRAM) 

(DIAGBOOT has not changed from release 6.6 to 6.7 of VDS; this 
section is included for the convenience of those who have not 
seen the 6.6 release notes). 

DIAGBOOT is loaded by VMB when a BOOT command is issued with 
register 5 bit A set. DIAGBOOT will sense the type of processor 
(11/780, 11/750, or 11/730) and load the appropriate VDS image 
(ESSAA, ECSAA, or ENSAA respectively). This new version of 
DIAGBOOT (version 4) supports the new VMS rooted systems 
(the old CSYSMAINT3 becomes CSYSO^YSMAINH, or [SYS1 . SYSMAJNT], 
etc.). The high nibble (bits ?8 to 31) of R5 at boot time 
represent the hex digit which should be converted to ASCII and 
appended to the root directory name 'SYS'; this allows system 
root directories of 'SYSO 1 to *SYSF' to co-exist on the same 
disk pack. 

This new version of DIAGBOOT also allows the VDS image being 
booted to be non-cort iguous. With previous versions of 
DIAGBOOT, VDS had to be contiguous. 



RELFASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.6 
6-JUI-1982 



A, GENERAL ENCHANCEMENTS 

1, ATTACH enforces device naming conventions 



An additional Ptabie descriptor statement ($DS_$NAMF; see 
VAx-11 Diagnostic Design Guide, chapter 17 for~informat ion) 
allows VDS to verify the names given to devices when they 
are attached. For example, when an RK07 is ATTACHE, it 
must have a name of the generic format 'ggan', where 'gg* is 
the device generic prefix, 'DM 1 , 'a' is the controller 
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letter of the RK6I1, and 'n* is the unit number. 
Previously, VDS imposed no constraints on device names other 
than on whether a unit number was allowed, and on the 
magnitude of the unit number if allowed. 

Because this is new functionality, and some old SCRIPTS or 
even diagnostics may not function under these new 
constraints <3.g., scripts which ATTACH an RK0? as 'DMC*), 
new commands have been implementec which will enable and 
disable this functionality under operator control. The 
commands are: 

o SE T ENFORCE : This command enables enforcement of device 
name enforcement. It is the default condition when VDS 
starts, EXCEPT when running under APT. 

o CLEAR ENFORCE : This command disable: enforcement of 

device name enforrment. It will cause VDS to behave as it 
did prior to this enhancement. CLEAR ENFORCE is the 
default condition when VDS is run under control of APT. 

****N0TE**** 

These commands are intended only for EMERGENCY use. You 
should fix your script files and/or diagnostic programs 
immediately to conform to the device naming conventions. 

2, AUT0SI7ER (EVStj*) changes 

The autosizer (EVSBA V1.0 has been modified to generate the 
correct names for V6.8 of the Diagnostic Supervisor. The 
entire attach command line generated for each device is 
described in a separated document. 

3, $DS_ERRPREP,x [num], [unitD, [msgadr], CprlinkJ, Cp1— • 6D 

A new error message facility has been added to the Supervisor 
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tor detecting device preparation errors. You should use 
this macro after detecting a device preparation error (e.g. 
disk not spinning) instead of another error message facility. 
The parameter list is the same as for the other error macros 
and is fully described in section 8.7 of the Vax-11 Diagnostic 
Design Guide (EK-1VAXD-TM-002) . 

B. GENERAL BUG FIXES 



1, KERNEL STACK NUT VALID ABORTS 

Previously, VDS allocated only 
In certain commands, notably a 
disk (standalone only, with MM 



3 pages for KERNEL mode stack. 

directory ot an ODS stuctured 

ON), these 3 pages could be 

overflowed, resulting in a KERNEL STACK NOT VALID ABORT, due 
to the page below the kernel stack being marked 'no access' 
to catch stack overflows. To minimize the chances of this 
sort of behavior, the kernel stack has been expanded to 10 
pages \or V6.8. This problem can not occur in on-line mode 
(under VMS). 

?. TM03/TE16/TUA5/TU77 

The problem with not being able to access magtapes on this 
controller through the Supervisor has been solved in this 
released. 

3. MACHINE CHECK LOGOUT 

The machine check logout for the 11/780 (ESSAA) has been changed 
to show the error summary register in addition to the other 
parameters. 



C. NOTES 



1. TM78 SUPPO:l 

VDS theoretically supports MAGTAPE devices as file load devices. 
Currently, the only Magtape devices supported are TM03 and 
TS11 controllers. This release includes the beginnings of 
TM78 (TU78 drive) support: however, due to a lack of standalone 
hardware, it is not debugged or supported. This note is just 
to warn those who may try a file command (DIRECTORY, HELP, 
LOAD, RUN) from a TM78 magtape, or who look at the VDS mjp 
listing and see 'TF8TDR1VR' (which is the VDS TM78 readonly 
driver; that < ne TM78 code is undebugged and probably will not 
work as-is. However, TM78 support will be completed cs soon 
as possible, and documented in a future release. 

?, INTERRUPT STACK 

The INTERRUPT stack size has be increased 4 pages so the 
priviledge exerciser can print out errors without failing. 
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3. CUSTOMER RUNNABLE DIAGNOSTICS (CRD) 

The Supervisor has been enhanced to support CRD AUTO TEST 
on the 11/730 machine. For more information on CRD, see 



the "Nebula Customer Runnable Diagnostics Functiona 
Specification" DTM-82-001-01 , document. 



RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.9 
8-NOV-1982 



1.0 BUG FIXES 



o The following sequence of commands caused a "?? Translation not 
valid Fault ..." : 

DS> SET MM ON 
DS> ATTACH ... 

This occurred only in standalone mode, and only if a program had not 
been previously loaded with a supervisor LOAD command. 

o A " A Z", typed at the console terminal in stand-alone # mode, echoed 

garbage as a non-printing character. It has been fixed so that it 

now imitates the supervisor EXIT command, and returns control to the 
console program. 

o T he following error message appears when any file services (such as 
LOAD, RUN, DIRECTORY, HELP, and script files) are attempted with an 
RL11/RL0?: 

XRMS-F-DEV, oad device, or inappropriate device type (R0-000184C4) 

This is a bug only in version 6.8 in standalone mode, and is fixed in 
version 6.9. 

o Also, only in version 6.8 and only for the 11/750, there is a bug 
which prevents the supervisor from loading large files tiom the 
console TU58 tape cartridge. Some small files could be loaded. 
Typically, the tape cartridge indicator light would remain lit for an 
excessively long time, and eventually t>e supervisor would respond 
with an error message. This is fixed i p i version 6.9. 

o New versions of VMS which modify the system service transfer vector 
table experienced a problem running the supervisor in on-line mode. 
This occurred because the supervisor copied three pages of system 
service vectors for its own use, but the transfer vectors had been 
modified to branch into a fourth page. Jn order to accomodate other 
possible modifications to the VMS .ystem service transfer vectors, 
the supervisor's fansfer table was modified to jump directly to the 
actual VMS system service transfer vector table. 
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2.0 ENHANCEMENTS 

o Support for the TM78/TU78 magnetic tape device as a file load device 
is now functional. This means that commands such as DIRECTORY, HELP, 
LOAD, and RUN, will now work when the TU78 is ATTACHed and a SET LOAD 
command has been executed. 

o The SHOW MEMORY/BUFFER command has been enhanced to show the amount 
of buffer space in use by the diagnostic. The command displays the 
amounts in use in PO, PI , and SO space (the number of pages in use). 
Previously, only the available buffer space was displayed. The SHOW 
MEMORY/ALL also displays this information. 

o CUSTOMER RUNNABLE DIAGNOSTICS (CRD): VAX-1 1/730 MENU TEST 

The VAX Diagnostic Supervisor now supports VAX-11/730 MENU TEST (CRD 
MENU) as part of the CRD Package. CRD MENU is an off-line 
Menu-driven test feature of CRD. The purpose of CRD MENU is to 
provide the customer, or inexperienced operator, stand-alone VAX 
Diagnostic test capability for the VAX-11/730 'base 1 system package 
and, in particular, for VAX-11/730 Add-on options. CRD MENU, 
therefore, represents a complementary test package to VAX-11/730 AUTO 
It ST (see DTM-82-001-01 Nebula CRD Auto Test Functional 
Specification) . 

CRD MENU, when invoked, will automatically determine CRD MENU 
supported hardware on the system and satisfy the necessary software 
requirements required for executing VAX Diagnostics. Through the 
Menu interface, the operator may select and test one supported 
hardware unit for test, or with the 'Test All" mode feature, select 
and test all supported system hardware. CRD MENU, 4 therefore, 
provides full functional verification and fault isolation to the 
subsystem level of the system. 



CRD MENU is invoked by VAX-11/730 Console Command (typing 

console prompt), at the successful completion of VAX- 1 1 /730 

(invoked by typing 

Supervisor Command 

However, the 'CRD' Supervisor "command is not 

Supervisor command files. 



'T* to console prompt), or from 
Level (typing 'CRD' to VDS CLI 



'T/M* to 

AUTO TEST 

VAX Diagnostic 

command prompt). 

supported for use in 



Four new Supervisor commands have been added for CRD MENU Test. The 
commands are as follows; 

SET CRD/TRACE 
CLEAR CRD/TRACE 
SHOW CRD 
CRD 

The functions of these commands are explained in the ENSA8.DOC file. 
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o see ENSAB.DOC 

o see the Functional Specification for VAX-11/730 MENU TEST 
o Tvpe "HELP ENSAB MENU" to VDS CLI Command prompt (this requires 
that the ENSAB, HLP file be on the load device). 



3,0 MISCELLANEOUS 



o A bug in the $Dt_ERR_L MACRO in DIAG, 
conditional directiveT has been fixed. 



4,0 KNOWN BUGS AND DEFICIENCIES 



which caused an invalid 



o The following commands will cause 
follows the command; 

SET ENFORCE 
CLEAR ENFORCE 
SET CRD/TRACE 
CLEAR CRD/TRACE 
SHOW CRD 
CRD 



an error message if a comment 



For example. 



DS> SET ENFORCE 
?? Illegal command 
\SET ENFORCE 



! Comment 
! C\ 



All of the above commands except the 'CRD* command will still perform 
their correct function even though the Supervisor responds with '">'' 
Illegal command". NOTE: the 'CRD Y command will FAIL if the comi 
is followed by a comment on the same line. 



;ommand 
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RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.10 
3-Jan-1982 



1.0 BUG FIXES 



The 6.9 

commands 

comments 



VDS 



bug concerning 
has been fixed, 
after the command! 



comments on the following Supervisor 
All of the following commands now accept 



o SET ENFORCE 

o CLEAR ENFORCE 

o SET CRD/TRACE 

o CLEAR CRD/TRACE 

o SHOW CRD 

CRD 



2.0 ENHAW-MENTS 



j Sji-pK*'t tor the TM80 magnetic tape device as a file load device is 
not functional. This means that commands such as DIRECTORY, HELP, 
Liv.p, and RUN, will now work when the TU80 is ATTACHed and a SET LOAD 
co» nand h>js been executed. 

o A .vw supervisor service call, which loads the COMET PCS microcode 
*n. ■ odtch bits, has been added. The service is called by a 
supervisor macro, $DS LOADPCS x (SDS LOADPCS DEF, $DS LOADPCS G, 
ti)S LOADPCS L, and SDS^LOADPCS^S for" mCRO "and SDS LDADPCS Tor 
BLi'*'. ; >, with" no argumentl. The iervice returns DS$ NORMAL if the 
service is completed successfully, and DS$_N0PCS~ if PCS is not 
avii'.able on this CPU. Currently, the only diagnostic program which 
u< :i this call is FCKAX. This release does not contain PCS microcode 
which affects any instructions. It merely restores the PCS to a 
k;.uwn state. If the CPU attempts to execute any of the PCS 
rr croc ode, an error message will be printed out. 



3.0 MISCUlANEQUS 



o 
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RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.11 
23-May-1983 



1.0 BUG FIXFS 



o Implementation of Control-2 recognition in standalone mode was done 
incorrectly and has been removed, although no symptoms have been 
discovered. 



2.0 ENHANCEMENTS 



1. VDS o.11 suoports booting and file loading from HSC50 on CI780. 



3.0 MISftLLANtOUS 

<i. T he durfke name tor booting from the RP07 disk will now be DRan and not 

DBan 

3. The driver for the TM/8/TU?8 was changed to have a longer delay between 
dccessvr. of tre ATTENTION register during the wait for command completion to 
prevent spurious operations caused by false signals. The dnver was enhanced 
to wc*rk with tapes written at 6250 b.p.i and be usable on drives other that 
number 0. 

o 



4.0 KNOWN UUliS AND DEFICIENCIES 



o 
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RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.12 
21-Jul-1983 



1.0 NfcW FEATURES 



o 



o 



o 



fhe SET WIDTH command has been changed to work in online mode. The 
default is the same as for standalone mode/ 80 characters. 



The f.F. T PAGE command has beer added to freeze terminal output after 
opacified number of lines. The user is then prompted for mo 
■j'.'tput. The default value is zero, which indicates that no pagi 
will be done. In order to determine a maximum value for a vid 
terminal such that no terminal output will be lost, subtract 2 fr 
i>.e number of lines capable of being displayed at one time by t 
terminal. Two is the number of lines taken by the prompt messag 



A v hjnge has been made so that a person creating a script can force 
thv answer to a prompting question to be fetched from the user 
•rr/iwnal instead of from the script. If, in the script, a prompting 
m sr.aqe is followed by M " instead of the answer to the prompt, then 
i h? vds will print that prompt on the terminal ^nd wait 4 for a 
response to be typed. then the vds will continue executing the 
scrip*, full documentation on this feature will be available in the 
•■ipx t version of the vax-11 diagnostic design guide. 



t ; vi fd1 p-tabLe descriptor has been added, so that 
supported with p-table descriptors for the rc11, rc?5. 



aztec is 
and re f 25 . 



now 



.. ni»rf vds service has been added, called SdsGetterm. this service, 
"get terminal characteristics", can be used in both standalone and 
l.s#.t mode to obtain characteristics about the user terminal, you can 
determine the terminal type, whether it is a video or hardcopy 
•.e.'minal , other information, full documentation on this feature will 
\ (- available in the next version of the vax-11 diagnostic design 
guide. 
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Page 2 



o A oroblem with ECKAX hanginq has been fixed. The CLRVEC routine was 
r Surged to reset the clock vector before resetting the clock. This 
compensates for the TOK hardware bug on 11 /750s, which caused 
interrupts once in a blue moon when resetting the clock. 



o 



o 



£1? SPRINT macros now return an error status, 
or 5SSBADPARAM will be returned. 



SSSNORMAL, SSSBUFFEROVF , 



HS1NLOOP will return DSSNORMAL or DS$ERR0R, instead of just setting 
or clear the low bit of R0. 



3.0 MISCEt : ANEOUS 

o u v low Cost Nebula will be supported with ENSAA diagnostic 
Sup. 'visor. 



RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 6.13 
21-Nov-1983 



1,0 MtiW FEATURES 



o 



o 



fhis is the first- Diagnostic Supervisor to be linked under 
vi ■ -■on $ of VMS. Therefore it will not function correctly under 
thv.e systems running version 2 or earlier versions of VMS. 



The method of attaching the load path to the CJ network has been 
m. i:ried to allow access to a user specified disk on the HSC50 
cc .-«f roller. An example of the attach command lines for the 11/780 
U ! lows: 

P>* ATTACH CI?80 HUB PAA0 H 5 A 

V • ATTACH CI NODE PAA0 CJA10 HSC50 10 

PS- DISK riAlD HSC50SDUA1 

Please note the addition an extra attach command line tor Di St 
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cji d the new form of the generic name. The name must be of the form 
V :Kf!<>$DUannn' where 'name 1 is any alphanumeric string 1 to 6 
characters long, and the 'SOU' is required. The controller, V, is 
u* jally 'A 1 and 'nnn' is the disk unit number, 

o A "SET MEMORY n" command has been added which allows the operator to 
c-. tnje the amount of total physical memory available to the 
supervisor and diagnostic programs. This feature is useful when $ it 
i". desired to verify tnat a diagnostic program and the supervisor 
wii.l run in a smaller amount of memory than is actual y available on 
1 1 •■? system. 

The unit of measurement for "n" is pages. The value of "n" must 
I), ureater than or equal to zero, but less than the last value 
$>*-Lified for total available physical memory. Total available 



physical memory may be reset to the actual available physical memory 
l, .iSing a value of zero for "n". A value qreater than 
available physical memory will be accepted But not used. 



The command will not be accepted in user mode. Also note that 
ar y devices attached or selected will be deselected and deattached 
«Vtf performing the command. 

o Ar "lNITPCS" command has been added. When this command is executed, 
lie supervisor searches for the PCS750.BIN file on the console TU58. 
I* it is found, the supervisor onboard image of the PCS750.BJN is 



ZZ-ENSAA-/.'J Documentation 



I 4 



Page 2 



Fiche 1 Frame 14 



Sequence 47 



overwritten with the image found on the TU58- Otherwise, the 
supervisor onboard image "emains the same. Then, the PCS is reloaded 
with the current PCS image* 

This command will be useful when the supervisor being run does 
no\ contain the latest PCS750.BIN file, but the file is available on 
Ov console TU58. The command is not accepted when running the 
supervisor under VMS, and will only be accepted when running on an 
11/750. 



Also, 
patches. 



this supervisor contains version CMT098 of PCS microcode 



i'.O DUG F J Xl : 



o A hug in the SDS EXJT TEST macro, which caused an "[aborted]" message 
io he printed if TRACE was set and the low bit in RO was clear, has 
of*.-fi fixed. Now, the "[aborted] 11 message will only appear if the 
program does a SDS ABORT TEST 



'5.0 M1SCLUANF.UUS 



HfcLEASE NOTES fOR 
VAX-11 DIAGNOSTIC SUPERVJSOR 
VERSION 6.14 
20-Feb-1984 



1 NEW FFAPJRES 



o 



New device support is provided for DM232. 



? HUG < IXf.S 



SnvMl supervisor BOOTpRJVRs use the TODR to perform a 
t iir.ef ,t function. For the 11//50, the TODR remains at zero 
■' t the battery backup has failed, and the system has been 
pcvorgd oft. Thus, the TODR in this case was not able to 



SjSAA-7.0 Documentation 

perform the timeout function 
BOOTDRIVRs were written so that 
to succeed. This has been fixed 



o 



J A 

correctly. However, the 
the code would always appear 
by writing a 1 into the TODR 
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(which starts the clock ticking) if the battery backup has 
tailed atv.1 the system was powered down. This may fix some of 
the Vmkown error' problems with supervisor file services for 



The problem of terminal output from a user 
handle" being suppressed has been fixed. This 
only in standalone mode. 



s control-C 
bug occurred 



When .> dia^ncstic is aborted, the supervisor attempts to 
print out * user PC. When run under VMS, sometimes a PC in 
VMS svstem space was printed. This has been fixed. 



MISCELLANEOUS 











The SET MEMORY command has been enhanced so that ptables for 
the console load dtvice and the boot path devices are saved. 

Previously, all ptables were lost. 

The format of super* isor messages which inform the user that 
an interrupt, irap, or exception has occurred, has been 
chanqed to state thaV the interrupt, exception or trap 
occur:'- through an SIB vector rather than just a vector. 
For v *-.frple. 



ZZ-ENSAA-7.0 Documentation 



K 4 



?? Reserved/nrivileged instruction Fault through SCB 
vector; 10(X) 

instead of, 

?? Reserved/privileged instruction Fault through 
vector: 10(X) 



RELEASE NOTES FOR 
VAX-11 DIAGNOSTIC SUPERVISOR 
VERSION 7.0 
18-Jul-1984 



1 NEW FEATURES 



o VtfS V4 support 

1. Long file name support, 

Lonq filename support has been added to this version 
of VDS. A full file specification will have the 
capability for the filename and filetype each to have up 
to 39 characters maximum. The version number can have up 
to 5 characters. The directory names can have up to 39 
characters and up to 7 nested sub-directories, each with 



up to 39 characters. The device names can have up to 
characters and overall the full file specification is 
to e*'.eed ?5? characters includinq punrtuat ion,. 

EXAMPLE: DEVICE: CD IRECTORYJFILENAME .TYPC; VERSION 

15 39. 39. etc 39 39 5 



15 
not 



c\ 



Long dov ice names. 



Suppor 
names up 
line for th 
dynamical ly 
Ptable,othe 
be handled 

descriptor 
string add 
contain the 
ne* de\ji 
•nameSgaan 1 
exceed 15 c 



t code 
to 15 
e long 
add 
rwise 

as 
,HP$Q_ 
ress 
devic 
ce n 
,the 
haract 



has b 

charac 
devic 
dev 
device 
before 
DEVICE 
or th 
e name 
ame 
total 
ers. 



een a 
ters. 

e name 
ice 

names 

In 

, wil 

e devi 

with 
format 

combi 



dded to 

VDS will 

format. 

name buf 

of the f 

both c 

I contai 

ce name a 

the forma 

will 
nation o 



allow fo 
scan 'dev 
If found 
fer space 
ormat 'qg 
ases, ,the 
n the le 
nd HPST.DE 
t of 'gga 
be as 
f which 



r device 
ice name' 
VDS will 
to the 
an' will 

quadword 
ngth and 
VICE will 
n\ The 

follows: 
must not 



3, DIRECTORY/WIDE 

\r\ order to display long filenames, the DIRECTORY 
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command now has a /WIDE switch, which causes one filename 

per Line to be printed. A DIRECTORY command without the 

/WIDE switch will display filenames in four 20-character 
columns, but for filenames longer than 20 characters, 
truncation will occur. 
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A. The value ot the symbols IPL$ TIMER and SIPL SYNCH is 
changed from 7 to 8 in VRS V4 library LIB. The 
supervisor, however, will continue to use the old value 
(7), because of possible conflicts between QIO services 
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and timer services. In order that diagnostics are 
encouraged to use the old value, the SI PLDEF macro has 
been included in the D1AG libraries. 

5. This supervisor is not supported on versions of VMS prior 
to version 4. 



2 BUG FIXES 



o The $DS_CJ_NODE ptable has been changed so that a response of 
KL 10 to the Node.type question produces a value of 6 and a 
response of CINT a value of 7. 

o Some internal supervisor errors of the form,' 

?? Software detected error in ... 

were causing the supervisor to hang in the middle of printing 
out the rest of this message. This has been fixed. 



5 MISCELLANEOUS 



o 



The supervisor now displays a legal statement at boot time 
regarding the right to use of the diagnostic supervisor and 

diagnostic programs. 



Two new 
been added. 



VDS services, $DS_M0UNT and SDC.DJSMOUNT , have 



o 



As of VMS Version '♦, you cannot 
before running the VDS. 
p- table indicates that the 
the VDS SELECT command 
because the SELECT command 
but you cannot allocate 
mounted (in VMS V"5 you could, 
by you and not someone else). 



issue a VMS MOUNT command 

If you do, and if the device's 

device should be allocated, then 

wilt fail. This failure occurs 

will try to allocate the device. 

a device that has already been 

it the device had been mounted 



Any diagnostic programs that require a device to be 
allocated AND mounted Before it is tested will not work «nth 
this release. We know of only one such diagnostic. EVRMD. 
We are in the process of correcting the problem. The 
correction will be in a future release. 
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When the supervisor is run in online mode Under VMS), the 
default load path has been changed to '-)e equivalent to 
SYS$SYSR00T:CSYSMAINT3. Previously, a bug ir. the supervisor 
caused the default load device to be the translated value of 
SYSSDISK from the process name table rather than from the 
system name table. Normally, SYS!SYSROOT:[SYS«AJNT] is the 
equivalent of SYSSMA1NTENANCE, and the supervisor will be 
changed in some future release to fully translate 
SYSSMaINTENANCE. 



2Z-ENSAA-7.0 Map 
WORK$:ENSAA.EXE;574 



XLINK, 2 undefined symbols: 

XL1NK, DSSGB CI INIT (Weak Reference) 

XLINK, FILSGQ CfiCHE (Weak Reference) 

2LINK, FILSGT~TOP$YS (Weak Reference) 

XLINK, SYS$Dl5M0U 

XL INK, SYSSMOUNT 

XLINK, XDELBP1 (Weak Reference) 

XLINK, XDELTB1T (Weak Reference) 



B 5 
26-JUL-1984 09:25 
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! Object Module Synopsis ! 
+ — + 



Module Name 



KERNEL 

ACPFDT 

ANSI 

APT 

ASSIGN 

ASTCON 

ASTDEL 

ATTACH 

BOOTDRIVR 

BOOT 10 

BUFCTL 

BUFFER 

CALL FRAME 

CANCEL 

CHAN730 

CHMK 

CLI 

CLOCK 

COMDRVSUB 

CONFIG 

CONSOLE 

CRDIMAGE 

CSDDBTDRV 

DSVECS 

CVRTIM 

CVTFILNAM 

OASSGN 

DEBUG 

DEVALC 

KLINK, 



XLINK, 



undef ine 
in psec 
in modu 

undef ine 
in psec 
in modu 



OEVICE 

DIRECTORY 

DISPAT 

DLBTDRIVR 

DMBTORIVR 

ORINT 



Ident 

07-97 

06-03 

07-07 

07-10 

05-02 

V02-001 

07-07 

07-27 

V02-017 

06-02 

05-03 

07-06 

01-01 

05-04 

06-11 

07-07 

07-80 

07-30 

06.01 

06-19 

07-23 

02-11 

06-11 

01-09 

V02-02 

06-02 

05-02 

07-15 

05-03 
d symbol 
t SEP off 
le DEVALC 
d symbol 
t SEP off 
le DEVALC 

06-01 

07-17 

07-37 

V02-002 

V02-002 

V01 



Bytes 



File 



6027 DRB1 

251 DRB1 

2482 DRB1 

501 DRB1 

303 DRB1 

44 DRB1 

433 DRB1 

5092 DRB1 

527 DR81 

84 DRB1 

100 DRB1 

223 DRB1 

464 DRB1 

265 DRB1 

1330 DRB1 

146 DRB1 

7752 DRB1 

1172 DR81 

245 DRB1 

2091 DRB1 

1709 DR81 

5699 DRB1 

649 DR81 

112 DR81 

1036 DRB1 

214 DRB1 

189 DRB1 

4004 DR81 

405 DRB1 

SYSSMOUNT referenced 

set XX00000172 

file DRB1 .-CDS.WORKJDS 

SYSSDISMOU referenced 

set XX0000018F 

file DR81:CDS. WORLDS 

175 DRB1 

2870 DRB1 

2089 DRei 

312 DRB1 

315 DR81 

29 DR81 



.-cds.workjds 
: cds.workjds 
: cds.workjds 
♦•cds.workjds 
:lds.work]ds 
.'cds.workjds 
: cds.workjds 
.♦cds.workjds 
: cds.workjds 
:[ds.work]ds 
: cds.workjds 
:Cds.workjds 
: cds.workjds 
.'cds.workjds 
: cds.workjds 
: cds.workjds 
:cds.work]ds 
: cds.workjds 
: cds.workjds 
.♦cds.workjds 
.'cds.workjds 
.♦cds.workjds 
: cds.workjds 
: cds.workjds 
: cds.workjds 
♦.cds.workjds 
: cds.workjds 
.'cds.workjds 
: cds.workjds 



.OLB;18 



.0L8 
.OLB 
.0L8 
.OLB 
.OLB 
.OLB 
.OL8 
.OL8 
.OLB 
.OLB 
.OLB 
.UL8 
.OL8 
.OLB 
.OLB 
.OLB 
,0L8 
.0L8 
.OLB 
.OLB 
.OLB 
.OLB 
.OLB 
.OLB 
.OLB 
.OLB 
.OLB 
.OLB 
♦ OLB 



18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 



.OLB; 18 

:CDS.W0RKJDS.0L8;18 

:CDS.W0RKJDS.0L8;18 

:CDS.W0RKJDS,0LB;18 

:CDS.W0RKJDS.0LB;18 

;C*S.W0RKJDS.0LB;18 

:CDS.W0RKJDS.0LB;1b 



Creation 


Date 
15:46 


Creator 


23-JUL-1984 


VAX-1 


1 Macro V03-01 


3-FEB-1984 


09:00 


VAX- 1 


1 Macro V03-01 


6-Jun-1984 


17:53 


VAX-1 


1 Bliss-32 V4. 0-742 


8-MAR-1984 


12:51 


l.OM 


1 Macro V03-01 


3-JAN-1984 


1 1 : 04 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


11:07 


VAX-1 


1 Macro V03-01 


9-APR-1984 


15:17 


VAX-1 


1 Macro V03-01 


7-JUN-1984 


08:40 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


11:14 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


11:15 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


11:16 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


11:19 


VAX-1 


1 Macro V03-01 


9-Jan-1984 


14:07 


VAX-1 


1 Bliss-32 V4. 0-742 


3-JAN-1984 


11:21 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


11:29 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


14:18 


VAX-1 


1 Macro V03-01 


7-JUN-1984 


08:41 


VAX-1 


1 Macro V03-01 


17-FEB-1984 


13:49 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


14:39 


VAX-1 


1 Macro V03-01 


10-JUL-1984 


16:21 


VAX-1 


1 Macro V03-01 


23-JUL-1984 


16:06 


VAX-1 


1 Macro V03-01 


9-Jan~1984 


14:09 


VAX-1 


1 Bliss-32 V4. 0-742 


9-APR-1984 


16:10 


VAX-1 


1 Macro V03-01 


3-JArt-1984 


16:24 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


15:10 


VAX-1 


1 Macro V03-01 


3-JAN-1984 


15:11 


VAX-1 


1 Macro V03-01 


3-FEB-1984 


09:05 


VAX-1 


1 Macro V03-01 


23-JUL-1984 


15:36 


VAX-1 


1 Macro V03-01 


20-JUL-1984 


16:15 


VAX-1 


1 Macro V03-01 



3-JAN-1984 
6-Jun-1984 
9-APR-1984 
3-JAN-1984 
3-JAN-1984 
3-JAN-1984 



15:19 VAX-11 Macro V03-01 

17:54 VAX-11 Bliss-32 V4. 0-742 

16:14 VAX-11 Macro V03-01 

15:28 VAX-11 Macro V03-01 

15:30 VAX-11 Macro V03-01 

16:05 VAX-11 Macro V03-01 
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Map 


WORKSjENSAA.EXE 


;574 


Module Name 


Ident 


OSLOAD 


07-09 


DQBTDRIVR 


V02-001 


ENTRY 


07-35 


ERROR 


07-24 


EVENT 


06-01 


EXCEPT 


07-24 


FAO 


03-02 


FLAGS 


07-13 


FILEREAD 


06-02 


FRKCTL 


06-03 


GETTIM 


01 


GTCHAN 


02-01 


HEl° 


06-10 


10BASE 


12-46 


IOPOST 


05-04 


10SNPG 


06-03 


IOSPGD 


05-02 


IOSRAH 


05-02 


LOAD 


07-21 


LOOMAP 


05-02 


LOOP 


07-19 


MCHK730 


06-07 


MBAiNT 


01 


MEMALC 


07-06 


MEMMGT 


06-29 


ODS 


01-04 


ONLY 7 30 


07-12 


PARAK 


6.5-11 


PARSE 


07-14 


PCSLOAD 


06-03 


PRINT 


07-19 


PROBE 


01-05 


PUBTDRIVR 


06-01 


QACHECKS 


6.5-03 


QAFLAGS 


6.6-04 


QAMAIN 


1-08 


010 


07-18 


QIOFDT 


05-05 


Q10REQ 


01-02 


RELOCDRV 


01 


RMS 


06.23 


RT11 


01-04 


SCB 


07-29 


SCRIPT 


07-18 


SHOWMFMORY 


06-06 


STAR1 


07-41 


TSBTDRIVR 


V01-02 


MUBTDRIVR 


06-9 


UNWIND 


01-1 


VER730 


7.0 


VMSDUMMY 


05-0? 


SYSSIOOEF 


V03-001 



Bytes 

"""604 
333 

2985 

3425 
241 

3701 
865 
582 

2129 

102 

26 

136 

2528 

9799 
979 
767 
402 
373 
875 
255 
815 

1163 
180 
707 

2H0 

972 

663 
1575 

1155 

11 

1748 

184 

768 

2098 

484 

2799 

2875 

479 

564 

164 

2960 

835 

1093 

1708 

1961 

1868 

522 

990 

297 

106 

30 





File 



DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DR81 

DR81 

DRB1 

DRB1 

DR81 

DR81 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DR81 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DR81 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 

DRB1 



[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

LDS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 

[DS.WORKJDS.OLB 



SYS$SYSR00T:[SYSLI8J 



26-JUL-1984 09 


;25 




Creal 


18 


23-Jul-' 


18 


9-APR-" 


18 


13-JUL-' 


18 


24-APR-' 


18 


4-Jan-' 


18 


26-JUN-' 


18 


4-JAN-' 


18 


4-JAN-* 


18 


1-JUN-' 


18 


4-JAN-' 


18 


4-JAN-' 


18 


4-JAN-" 


18 


6-Jun- 


18 


23-JUL- 


18 


3-FEB- 


18 


3-FE8- 


18 


4-JAN- 


18 


4-JAN- 


18 


20-JUL- 


18 


4-JAN- 


18 


4-JAN- 


18 


4-Jan- 


•18 


4-JAN- 


•18 


9-APR- 


•18 


22-JUN- 


•18 


24-Mav- 
23-JUL- 


•18 


;18 


4-JAN- 


;18 


7-JUN- 


;18 


9-Apr- 
23-JUL- 


;18 


;18 


4-Jan- 


;18 


24-JAN- 


;18 


4-Jan- 


;18 


4-Jan- 


;18 


4-Jan- 


;18 


26-APR- 


;18 


3-FEB- 


;18 


3-FEB- 


;18 


4-JAN- 


;18 


13-Apr- 


;18 


4-Jan- 


;18 


4-JUN- 


;18 


9-APR- 


;18 


17-Feb- 


;18 


9-APR- 


;18 


9-APR- 


;18 


9-APR- 


;18 


4-JAN- 


;18 


26-JUL- 


;18 


5-JAN- 


STARLET. 0LB;2 


3-JUN- 



Fiche 1 Frame C5 

VAX-11 Linker V3A-18 



Sequence 54 



Page 



Creator 



1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 
1984 



15:52 

16:15 

14:06 

09:24 

08:57 

09:39 

09:01 

09:08 

09:38 

09:09 

09:10 

09:11 

17:54 

15:40 

09:08 

09:12 

12:01 

12:02 

14:16 

13:39 

13:33 

13:43 

13:35 

16:31 

10:04 

16:16 

16:09 

15:30 

08:47 

15:15 

15:50 

15:43 

10:08 

15:59 

16:02 

16:03 

10:41 

09:14 

09:16 

16:11 

10:32 

16:15 

13:37 

16:42 

14.29 

16:43 

16:47 

16:33 

16:36 

09:25 

09:19 

11:29 



VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 
VAX- 



Bliss- 
Macro 
Macro 
Macro 
Bliss- 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 
Bliss* 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 
Bliss- 
Macro 
Macro 
Macro 
Bliss- 
Macro 
Macro 
Macro 
Bliss- 
Macro 
Bliss- 
Macro 
Bliss- 
Bliss- 
Bliss- 
Macro 
Macro 
Macro 
Macro 
Bliss 
Bliss- 
Macro 
Macro 
Bliss- 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 
Macro 



•32 V4. 0-742 
V03-01 
V03-01 
V03-01 

■32 V4. 0-742 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
12 V4. 0-742 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 

-32 V4. 0-742 
V03-01 
V03-01 
V03-01 

•32 V4. 0-742 
V03-01 
V03-01 
V03-01 

•32 V4. 0-742 
V03-01 

■32 V4. 0-742 
V03-01 

•3? V4. 0-742 
■32 V4. 0-742 
•32 V4. 0-742 
V03-01 
V03-01 
V03-01 
V03-01 

•32 V4. 0-742 
-32 V4. 0-742 
V03-01 
V03-01 

■32 V4. 0-742 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 
V03-01 



ZZ-ENSAA-7.0 Map 
WORK$:ENSAA.EXE;5?4 



D 5 
26-JUL-1984 09:25 



Fiche 1 Frame D5 

VAX-11 Linker V3A-18 



Sequence 5$ 



Page 



Module Name 



LIBSCVT ATB 
SYSSPPDfF 
SYSSSSDEF 
SYSSP1 VECTOR 



Ident 

V03-001 
V03-000 
V03-000 
V03-040 



Bytes 







File 



Creation Date 



Creator 



SYSSSYSR00T:CSYSLJ8]STARLFT,0L8;2 
SYS$SY$ROOT:[SYSLJ8]STARLET.0L8;2 
SYS$SYSR00T:[$YSU8]STARLET.0L8;2 
SYS^SYSR0OT:[SYSLJ8]STARLET.0L8;2 



3-JUN-1984 
3-JUN-1984 
3-JUN-1984 
3-JUN-1984 



14:47 

12:30 
13:01 
12:04 



VAX-11 
VAX-11 
VAX-11 
VAX-11 



Macro V03-01 
Macro V03-01 
Macro V03-01 
Macro V03-01 



E 5 

ZZ-ENSAA-7.0 Map Fiche 1 Frame E5 Sequence 56 

DRB1:CHUSE.W0RK.«00ULES3ENSAA.EXE;574 26-JUL-1984 09:25 VAX-11 Linker V3A-18 Page 

+ —<....... + 

! Image Section Synopsis ! 
+ ™«™_«™-™—— --- + 

Cluster Type Pages Base Addr Disk VBN PFC Protection and Paging Global Sec. Name Match Majorid [J| no £2^ 

DEFAULT CLUSTER 67 00010000 2 READ ONLY 

H 00018600 69 READ WRITE COPY ON REF 

122 0001 A200 83 READ ONLY 

2<> 00029600 205 READ WRITE COPY ON REF 

1 0002C600 229 READ WRITE FJXUP VECTORS 

253 20 7FFFD800 READ WRITE DEMAND 2ER0 

Key for special characters above: 
+ •„„ «. — ™-..- + 

! R Relocatable ! 

! P - Protected ! 
+ — + 



ZZ-ENSAA-7.0 Map 

DRB1 j [MUSE. WORK.MObULE S3ENSAA.EXE; 574 



Psect Name 


Module Name 


Base 


SBASE 


00010000 




ENTRY 


00010000 


DATA 




oooi oe<iO 




KERNEL 


00010840 




ANSI 


0001 OCBO 




APT 


00010CC8 




ASTDEL 


00010CFO 




ATTACH 


OO01OD04 




CALLFRAME 


00010FE4 




CHAN730 


000110C8 




CHMK 


00011124 




CLI 


00011129 




CLUCK 


0001 20F 5 




CONFIG 


0001 20FC 




CONSOLE 


0001219C 




CRDIMAGE 


0001 22DC 




DEBUG 


00012FC4 




DEVICE 


0001 32AC 




DIREiTORY 


0001 32B4 




DISPAT 


0001347C 




DSLOAD 


00013718 




ENTRY 


00013778 




ERROR 


000137C0 




EXCEPT 


00014058 




FAO 


000I47C0 




FLAGS 


000147FD 




HELP 


000148D8 




IOBASE 


0001497F 




IOPOST 


00016B94 




LOAD 


000168A5 




LOOP 


00016C09 




MCHK730 


00016CB0 




MEMALC 


0001 70D0 




MEMMGT 


0001 70EC 




ONLY730 


0001712C 




PARAM 


O001713C 




PCSLOAD 


0001 72^C 




PRINT 


0001 72AF 




OACHECKS 


0001 72C0 




QAFLAGS 


0001 765C 




QAMAIN 


00017704 




QIO 


0001 7B8C 




RMS 


00017C84 




SCB 


0001 7f 54 




SCRIPT 


0001 7f 38 




SHOWMEMORY 


0001 7FA4 




START 


00018319 



F 5 
26-JUL-1984 09:25 

+ — -« ,-+ 

! Program Section Synopsis ! 

End Length Align 



Fie he 1 Frame F5 

VAX-11 Linker V3A-18 



Sequence 57 



Page 



Attributes 



00010827 00000828 ( 
00010827 00000828 ( 



000185CI 

00010CAF 

00010CC7 

00010CEC 

0001 0D02 

00010FE1 

0001 10C4 

00011120 

00011128 

0001 20F4 

000120FA 

0001219A 

0001 22D8 

0001 2FC3 

0001 32A8 

0001 32B2 

00013478 

00013716 

00013777 

0001 378^ 

00014057 

0001478E 

000147FC 

000I48D6 

0001 497E 

0001 6B91 

00016BA4 

00U16C08 

0001 6CAC 

0001 70CF 

0001 70E8 

00017129 

0001/138 

00017278 

0001 72AE 

0001 72BE 

0001 765A 

00017702 

0001 7B8A 

0001 7C83 

0001 7f 33 

00017F37 

0001 7FA1 

00018318 

00018536 



00007A82 ( 

00000170 ( 

00000018 ( 

00000025 ( 

00000013 ( 

000002DE ( 

O00000E1 ( 

00000059 ( 

00000005 ( 
00000FCC ( 

00000006 ( 
0000009F ( 
0000013D ( 
00000CE8 ( 
000002E8 ( 

00000007 ( 
000001 C8 ( 
0000029B ( 

00000060 ( 
00000048 ( 
00000898 ( 
00000767 ( 
0000003D ( 
000000DA ( 
OOO0OOA7 ( 
00002213 ( 
00000011 ( 
00000064 ( 
000000A4 ( 
00000420 ( 
0000001 C ( 
0000003E ( 
00000010 ( 
0000013D ( 
00000033 ( 
00000010 ( 
0000039B ( 
O000OOA7 ( 
00000487 ( 
000000F8 ( 
00000280 ( 
00000004 ( 
0000006A ( 
00000375 ( 
0000021E ( 



2856.) 
2856.) 



31362. 

368. 

24. 

37. 

19. 

734. 

225. 

89. 

5. 

4044. 

6. 

159. 

317. 

3304. 

744. 

7. 

456. 

667. 

96. 

72. 

2200. 

1895. 

61. 

218. 

167. 

8723. 

17. 

100. 

164. 

1056. 

28. 

62. 

16. 

317. 

51. 

16. 

923. 

167. 

1159. 

248. 

688. 

4. 

106. 

885. 

542. 



QUAD 
QUAD 



NOPIC,USR,CON,REL,LCL, SHR,NOEXE, RD,NOWRT,NOVEC 



2 ** 5 NOPIC,USR,CON,REL,LCL, SHR,NOEXE, RD,NOWRT,NOVEC 

BYTE 

LONG 2 

LONG 2 

LONG 2 

LONG 2 

LONG 2 

LONG 2 

LONG 2 

BYTE 

BYTE 

LONG 2 

LONG 2 

LONG 2 

BYTE 

BYTE 

LONG 2 

LONG 2 

LONG 2 

QUAD 3 

BYTE 

LONG 2 

LONG 2 

BYTE 

LONG 2 

BYTE 

LONG 2 

BYTE 

BYTE 

LONG 2 

BYTE 

LONG 2 

LONG 2 

BYTE 

LONG 2 

BYTE 

LONG ? 

LONG 2 

LONG 2 

LONG 2 

LONG 2 

LONG 2 

BYTE 

LONG 2 

BYTE 



ZZ-ENSAA-7.0 Map 

DRB1 : [MUSE. WORK. MoSuLESJENSAA. EXE ;574 



Psect Name 
DATA 

WORK 



CODE 



Module Nan .» 



TSBTDRIVR 
VER730 



KERNEL 
ATTACH 
BUFFER 
CHAN730 

chm:; 
cli 

CLOCK 

CONSOLE 

CRDIMAGE 

DSVECS 

DEBUG 

DIRECTORY 

DISPAT 

ERROR 

EXCEPT 

HELP 

IOBASE 

LOAD 

ME MAI C 

MEMMGT 

ONLY 750 

PARSE 

PRINT 

QACHECKS 

CAFLAGS 

Q AMAIN 

QIG 

RMS 

SCB 

SCRIPT 

SHOWMEHORY 



KERNEL 

ANSI 

APT 

ASTCON 

ASTDEL 

ATTACH 

BOOTIO 

BUFFER 

CAILFRAME 

CHAN730 

CHMK 
CLI 

CLOCK 
CONFIG 



Base 

00010840 
00018540 
00018560 

00018600 
00018600 
000190EC 
000190F8 
00019118 
0001 920C 
00019210 
000196(0 
000196C8 
0001 96D0 
0001975'* 
000197C4 
00019950 
00H995C 
0G019964 
0001 9994 
000199A8 
0001 99D8 
00019DF4 
00019FH 
00019F30 
00019F50 
00019F54 
O0C19F5C 
00019FE4 
00019FE6 
00019FF0 
0001A028 
0001A038 
0001A048 
0001A09C 
0001A168 

0001A200 
0001A200 
0001AD34 
0001B6D0 
000188A0 
000188CC 
0001BA6C 
C00UB68 
0001 CBBC 
0001CC7C 
0001 CD6C 
0001D154 
0001D1DD 
0C01DC0C 
O001E034 



End 

000185C1 
0001 855F 
000185C1 

0001A168 

0001 90E9 

0001 90F5 

00019117 

00019208 

0001 920F 

0001 965C 

0001 96C7 

0001 9SCF 

00019753 

000197C3 

0001 99<,C 

00019959 

00019963 

00019993 

0001 99A7 

0001 99D5 

00019DF3 

0001 9F 13 

0001 9F2F 

00019F4C 

00019F53 

0001 9F 58 

0001 9F El 

00019FE5 

00019FED 

0001A024 

0001A034 

0001A0A7 

0001A098 

0001A164 

0001A168 

000293D2 
00O1AD30 
0001B6CD 
0001B89F 
000188C8 
0001BA69 
0001C867 
000H8B8 
0001CC7A 
0001 CD6A 
0001D153 
0001D1DC 
0001 DC08 
0001E031 
0001E78F 



Length 



G 5 
26-JUL-1984 09:25 



Align 



Fiche 1 Frame G5 

VAX-11 Linker V3A-18 



Sequence 58 



Page 



Attributes 



00007A82 
00000020 
00000062 

00001B69 

00000AEA 

0000000A 

00000020 

000000F1 

00000004 

0000044D 

00000068 

00000008 

00000084 

00000070 

00000189 

0000000A 

00000008 

00000030 

00000014 

0000002E 

0000041 C 

00000120 

0000001 C 

0000001 D 

00000004 

00000008 

00000086 

00000002 

00000006 

00000035 

0000000D 

00000010 

00000051 

OOO0O0C9 

00000001 

0000F1D3 
00000B31 
0000099A 
000001 DO 
0000002C 
0000019E 
00001 OF C 
00000054 
0000008F 
0000O0EF 
000003E8 
00000089 
00000A2F 
00000426 
0000078C 



31362,) 2 ** 5 NOPIC,USR,CON,REL,LCL, 
32.) 2 ** 5 
98.) LONG 2 



SHR,NOEXE, RD,NOWRT,NOV£C 



7017. 

2794. 

10. 

32. 

241. 

4. 

1101. 

104. 

8. 

132. 

112. 

393. 

10. 

8. 

48. 

20. 

46. 

1052. 

288. 

28. 

29. 

4. 

8. 

I34. 

2. 

6. 

53. 

13. 

16. 

81. 

201. 

1. 

61907. 
^865. 
2458. 

464. 
44. 

414. 

4348, 

84. 

191. 

239. 
1000. 

137. 
2607. 
1062. 
1932. 



LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 

LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
BYTE 
LONG 
LONG 
LONG 
BYTE 
LONG 
LONG 2 



N0PIC,USR,C0N,REL,LCL,NOSHR,NOEXE, RD, WRT,NOVEC 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

2 
2 
2 
2 
2 
2 
2 
2 

2 
2 
2 

2 



N0PU\USR,C0N,REL,LCL, SHR, EXE, RD,N0WRT, NOVEL 



7Z-ENSAA-7.0 Map 

DRB1 1 [MUSE. WORK. MObULESDENSAA. EXE; 574 



H 5 
26-JUL-1984 09;25 



Psect Name 
CODE 



J.IB$fUDE 
$SC8 

BOOTDRIVRJ 
BOOTDRIVRJ 



Module Name 



CONSOLE 

CRDIMAGE 

CVTF1LNAM 

DEBUG 

DEVICE 

DIRECTORY 

DiSPAT 

DSLOAD 

ENTRY 

ERROR 

EVENT 

EXCEPT 

FAO 

FLAGS 

FILERFAD 

HELP 

10P0ST 

LOAD 

LOOP 

MCHK730 

MEMALC 

MEMMGT 

OPS 

ONLY730 

PARAM 
PARSE 
PCSLOAD 
PRINT 

QACHECKS 
OAF I AGS 
Q AMAIN 
QIO 
RMS 
RT11 

:ce 

SCRIPT 

SHOWMEMORY 

START 

VER730 

VMSDUMMY 



IIB$CVTJ\TB 

SCO 

BOOTDRIVR 



Base 

00Q1A200 
0OO1E7CO 
0001ED28 
0001 F 600 
0OOU6D6 
00020209 
000202B4 
00020C18 
00021 1A0 
0002.59C 
000213DS 
00021870 
00021964 
00022060 
00022384 
000224FO 
0OO22D44 
00023650 
00023A12 
00023BF9 
00O23E84 
00023EEF 
000241 7C 
00024980 
00024D4C 
0OO24FD0 
000254BA 
03025938 
00025952 
0OO25F90 
00026428 
00026560 
00026B94 
00O275CC 
00O27E9C 
0OO281E0 
0OO284D0 
00028A4C 
00028E7F 
000293AD 
00O293B5 



End 

000293D2 

0001ED27 

0001F5FE 

0001F6D5 

00020208 

O002O2B0 

00020C17 

00021 19D 

00021 39B 

00021 3D4 

00021 86D 

00021960 

0002205D 

00022383 

000224EF 

000221)40 

0002364E 

00023A11 

000238F8 

00023E83 

00023EEE 

00024179 

0002497C 

00024D48 

00024FCE 

00025489 

00025934 

00025951 

00U25F8F 

00026424 

0002655E 

00026B92 

000275C9 

00027E98 

000281DE 

000284CF 

00028A48 

00028E7E 

000293AC 

00029384 

000293D2 



Length 



0000F1D3 

00000568 

000008D7 

000000D6 

O0OOOB33 

00OO00A8 

00000964 

00000586 

000001FC 

00000039 

00000499 

O00O00F1 

000006FA 

00000324 

000O016C 

00000851 

00000908 

000003C2 

000001E7 

00000288 

0000006B 

0000028B 

00000801 

000O03CC 

00000283 

000004EA 

00000478 

0000001A 

0000063E 

00000*95 

00000137 

00000633 

00OO0A36 

000O08DO 

00000343 

000O02F0 

00000579 

00000433 

0000052E 

00000008 

0000001E 



( 



00029600 000296FF 
00029600 000296FF 



( 



C0O293D4 0002944D 0000007A ( 
0OO293D4 0002944D 0000007A ( 



00000100 ( 
000001C0 ( 



00029700 000298A1 000001A2 ( 
00029700 000298A1 000001A2 ( 

0OO29A00 0002A9C5 000O0FC6 < 



61907. 
1384. 
2263. 

214. 
2867. 

168. 
2404. 
1414. 

508. 

57. 

1177. 

241. 
1786. 

804. 

364. 
2129. 
2315. 

962. 

487. 

651. 

107. 

651. 
2049. 

972. 

643. 
1258. 
1147. 
26. 
1598. 
1173. 

311. 
1587. 
2614. 
2256. 

835. 

752. 

1401. 

1075. 

1326. 

8. 

30. 



Align 



LONG 
LONG 
LONG 
LONG 
BYTE 
BYTE 
LONG 
LONG 
LONG 
BYTE 



BYTE 



LONG 
LONG 
LONG 
BYTE 
LONG 
LONG 
LONG 
BYTE 
BYTE 
LONG 
BYTE 
LONG 
LONG 
LONG 
LONG 
BYTE 
LONG 
BYTE 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
BYTE 
LONG 
BYTE 
BYTE 
BYTE 



2 

2 
2 

2 
2 
2 


2 

2 
2 
2 
2 

2 

2 
2 
2 
2 
2 
2 
2 

2 






Fiche 1 Frame H5 

VAX-11 Linker V3A-18 



Attributes 



Sequence 59 



Page 



NOPIC,USR,CON,REL,LCL, SHR, EXE, RD,NOWRT,NOVEC 



122.) LONG 2 P1C,USR,C0N,REL,LCL, SHR, EXE, RD,NOWRT,NOVEC 

122.) LONG 2 

256.) PAGE 9 NOPIC,USR,CON,REL,LCL, SHR, EXE, RD, WRT,NOVEC 

256.) PAGE 9 

418.) BYTE NOPIC,USR,CON.REL,LCL,NOSHR, EXE, RD, WRT,NOVEC 

418.) BYTE 

4038.) PAGE 9 NOPK,USR,CON,REL,LCL,NOSHR, EXE, RD, WRT,NOVEC 
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I 5 
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Psect Name 
BOOTDR1VR.2 



BQ0TDR1VR_3 
BOOTDRIVR 4 



BOOTDRIVR_5 
B00TDRIVR.6 
SEP 



Module Name 



CSDDBTDRV 
DLBT0R1VR 
DMBTDRIVR 
DQBTDR1VR 
PUBTDRIVR 
TSBTDR1VR 
MUBTDRIVR 



BOOTDRJVR 



CSDDBTDRV 
DLBTDRIVR 
DMBTDRIVR 
DQBTDRIVR 
PUBTDRIVR 
TSBTDRIVR 
MUBTDRIVR 



BOOTDRIVR 



BOOTDRIVR 



ACPfDT 

ASSIGN 

BUFCTL 

CANCEL 

C0MDRVSU8 

CVRTIM 

DASSGN 

DEVALC 

DRINT 

FRKCTl 

GETTIM 

GTCHAN 

I0BASE 

I0SNPG 

IOSPGD 

IOSRAM 

LODMAP 

MBAINT 

PROBE 

QIOFDT 

QIOREQ 

RELOCDRV 

UNWIND 



Base 

00O29A00 
00029AOO 
00029C71 
00029D91 
00029EB4 
0002A000 
0002A2E8 
0002A60O 



End 

0002A9C5 
00029C70 
00029D90 
00029E83 
00029FE8 
0002A2E7 
0002A489 
0002A9C5 



Length 



00000FC6 
00000271 
00000120 
00000123 
00000135 
000002E8 
000001D2 
000003C6 



0002A9C6 
0002A9C6 
0002A9DE 
0002A9F6 
0002AA0E 
0002AA26 
0002AA3E 
0002AA56 



0002AA6D 
0002A9DD 
0002A9F5 
0002AA0D 
0002AA25 
0002AA3D 
0002AA55 
0002AA6D 



0002AADC 
0002AADC 
0002ABD8 
0002AD08 
0002AD6C 
0002AE78 
0002AF70 
0002B37C 
0OO2B43C 
000285D4 
0002B5F4 
0002B65C 
00028678 
0OO2B7O0 
0002B718 
0002BA18 
0002B8AC 
0002BD24 
0OO2BE24 
0002BED8 
0002BF90 
0002C170 
0002C3A4 

0002C448 



0002C570 
0002ABD6 
0002AD06 
0002AD68 
0002AE74 
0002AF6C 
0002B37B 
0002B438 
000285D0 
000285F0 
0002B659 
00028675 
000286FF 
0002B717 
0002BA16 
0002BBA9 
0002BD20 
0002BE22 
0002BED7 
00028F8F 
0002C16E 
0002C3A3 
0002C447 
0002C570 



000001DF 
00000234 
0000O0A4 



( 



( 



0002A9C6 0002A9C6 00000000 ( 
0002A9C6 0002A9C6 00000000 ( 



000000A8 ( 
00000018 ( 
00000018 ( 
00000018 ( 
00000018 ( 
00000018 ( 
00000018 ( 
00000018 ( 



0002AA6E 0002AA71 00000004 ( 

0002AA6E 0002AA71 00000004 ( 

0002AA72 0002AADA 00000069 ( 

0002AA72 0002AADA 00000069 ( 



00001A95 ( 

OOOOOOFB ( 

000001 2F ( 

00000064 ( 

00000109 ( 

000000F5 ( 

0000040C ( 

000000BD ( 

00000195 ( 

0000001 D ( 

00000066 ( 

0000001A ( 

00000088 ( 

00000018 < 

000002FF ( 

00000192 ( 

00000175 ( 

000000FF ( 

00000084 ( 

00000088 ( 



00000129 ( 
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NOPIC,USR,CON,REL,LCL,NOSHR, EXE, RD, WRT,N0VEC 



Align 

4038.) PAGE 9 

625.) BYTE 

288.) BYTE 

291.) BYTE 

309.) BYTE 

744.) PAGE 9 

466.) BYTE 

966.) PAGE 9 

0.) BYTE NOPIC,USR,CON,REL,LCL,NOSHR, EXE, RD, 
0.) BYTE 

168.) BYTE NOPK,USR,CON,REL,LCL,NO$HR, EXE, RD, 

24.) BYTE 

24.) BYTE 

24.) BYTE 

24.) BYTE 

24.) BYTE 

24.) BYTE 

24.) BYTE 

4.) BYTE NOPIC,USR,CON,REL,LCL,NOSHR, EXE, RD, 
4.) BYTE 

105.) BYTE NOPJC,USR,CON,REL,LCL,NOSHR, EXE, RD, 
105.) BYTE 



WRT,N0VEC 
WRT,NOVEC 



6805.) LONo 2 N0P1C,USR,C0N,REL,LCL, SHR, EXE, RD. 

251.) LONG 2 

303.) LONG 2 

100 ) LONG 2 

265.) LONG 2 

^45.) LONG 2 

1036.) LONG 2 

189.) LONG 2 

405.) LONG 2 

29.) LONG 2 

102.) LONG 2 

26.) LONG 2 

136.) LONG 2 

24.) LONG 2 

767.) LONG 2 

402.) LONG 2 

373.) LONG 2 

255.) LONG 2 

180.) LONG 2 

184.) LONG 2 

479.) LONG 2 

564.) LONG 2 

164.) LONG 2 

297.) LONG 2 



WRT,NOVEC 
WRT,NOVEC 
WRT,NOVEC 
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Psect Name 
YSEXEPAGED 

LAST 



Module Name 

ASTCON 

KERNEL 



Base 



End 



Length 



J S 

?6-JUL-1984 09:25 



Align 



Fie he 1 Frame J 5 
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Attributes 



Sequence 61 



Page 



0002C571 0002C571 00000000 ( 

0002C571 0002C571 00000000 ( 

0002C600 0002C600 00000000 ( 

0002C600 0002C600 00000000 ( 



0.) BYTE N0PIC,USR,C0N,REL,LU,N0SHR, EXE, RD, WRT,NOVEC 

0.) BYTE 

0.) PAGE 9 NOPIC,USR,CQN,REL,LCL,NOSHR, EXE, RD, WRT,NOVEC 

0.) PAGE 9 
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Symboi 



AAT ARITH 

ACC5HANDLER 

ACPSACCESS 

ACPSACCESSNET 

ACPSDEACCESS 

ACPSMODIFY 

ACPSMOUNT 

ACPSREADBLK 

ACPSWRITEBLK 

ACT CONT 

ACT~DEFAULT DBG 

ANSTSCACHEVBN 

ANSISCLOSE 

ANS1SGET 

ANSISOPEN 

ANSISREAD 

APSLMNE 

APT 

APT COM 

APT~DONE 

APT~MSG 

ax Buff 
bfSin 



begin bliss 
boo$ac vector 
boo$drTver 
boosimage.att 

BOO$MAP 
BOOSQIO 

BOOSSELECT 

BOOT 

BOOTSL AOP 

BOOT$L~CSR 

BOOr$L"0EVTYP 

BOOT$L~R2 

BOOTSL R5 

BOOT$L~UNIT 

BPTCOOF 

BPTMAX 

breakup file 
bug$che7k 



CDBSBLOCK 
CHRSMCHK 
CI.I ACTION 
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Sequen 
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VAX-11 Linker 


V3A-18 




! Symbol Cross 


Reference ! 




Value 


Defined By 
EXCEPT 


Referenced By .. . 






000KU3-R 






0002BF4B-R 


PROBE 








0002AADC-R 


ACPFDT 


ENTRY 






0002AADC-R 


ACPFDT 








0002AAE7-R 


ACPFDT 


ENTRY 






0002AAF2-R 


ACPFDT 


ENTRY 






0002AAFD-R 


ACPFDT 


ENTRY 






0002AB08-R 


ACPFDT 


ENTRY 






0002AB25-R 


ACPFDT 


ENTRY 






0001DAC6-R 


CLJ 








0001D4D9-R 


CLJ 


START 






0001B30D-R 


ANSI 








0001B2DC-R 


ANSI 








0001B4D3-R 


ANSI 








0001AD34-R 


ANSI 


RMS 






0001B412-R 


ANSI 








0001318C-R 


DEBUG 


EXCEPT 


MCHK730 




0001A297-R 


KERNEL 


ENTRY 






0001B6DO-R 


APT 


CLI 






0001B891-R 


APT 








0001B888-R 


APT 


CLJ 


ERROR 




0002C600-R 


KERNEL 


SHOWMEMORV 






Q001A91E-R 


KERNEL 


CLI 


DISPAT 


DSVECS 






LOAD 


LOOP 


SCRIPT 






START 






0001A91E-R 


KERNEL 


CRDIMAGE 


DIRECTORY 


SHOWMEMORY 


0002970O-R 


BOOTDRJVR 


DIRECTORY 


RMS 




000298A2-R 


BOOTDRIVR 








0001CB88-R 


BOOTIO 








000297F1-R 


BOOTDRJVR 








00029716-R 


BOOTDRIVR 


ANSI 
RT11 


DIRECTORY 


ODS 


0002AA72-R 


BOOTDRIVR 


DIRECTORY 


RMS 




0001A200-R 


KERNEL 


ENTRY 






00018DD4-R 


KERNEL 


CONFJG 






00018DD8-R 


KERNEL 


CONFIG 






00018DE8-R 


KERNEL 


CONFJG 






00018DE0-R 


KERNEL 


CONFIG 






00018DE4-R 


KERNEL 








00018DDC-R 


KERNEL 


CONFIG 






00000003 


DEBUG 








0000000F 


DEBUG 


EXCEPT 






0002589F-R 


PARSE 


DIRECTORY 


LOAD 


RMS 


000271AF-R 


010 


FRKCTL 


IOPOST 


I0SNPG 






IOSRAM 


LODMAP 


MBA I NT 






MEMALC 


ONLY730 


Q10REQ 


00019118-R 


CHAN730 








00023E84-R 


MCHK730 


EXCEPT 






0001P31A-R 


CLI 


APT 







62 
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Symbol 



clksre ini t 

cmksastex1t 

cmkscantim 

cmkshiber 

cmksinitscb 

cmksmmenable 

cmksrconsole 

cmksrefresh 

cmksset1mr 

cmkssetipl 

cmkssetprt 

cmkssgipr 

cmk$tconsole 

comsdelattnast 

comsdrvdealmem 

comsflushattns 

comspost 

comssetattnast 

command tree 

cono debug 

cond~handlr 

crd$expreg 

crdsgl crd command df8ug 

crd$k Trd Initialization 

crd$k~ds Control c 

crd$k~ds"flags 

crd$k~hoOk point 

crd$k"last"access code 

crd$k~last~ds variable 

crd$k~last~fuRction 

crd$k~last~hook point 

crd$k~read~ 

crd$k~typecode 

crdsk'write 

ctlsgc.ccb 

ctl$gl_ccbbase 

ctlsgw chindx 

ctl$gw~nmjoch 

cvtst wbamap 

cvt$t~mbasr 

cvt$t~ubadpr 

cvt$t~ubamap 

debug5gb.flags 

DEBUG HI 
DEBUG'LO 

DEBUG~THE SUCKER 
DEF$C"8KSTP LEN 
DEFSCf BACKSTOP 
DEF$Q~DEV 
DEF$Q"DIR 
DEV$M"DMT 
DEV$M~FOR 



Value 

0001DFE4-R 

O001D1A8-R 

O001DD88-R 

O001DD5D-R 

00028203-R 

00024 708-R 

0001E8C9-R 

O001AA29-R 

O001DE21-R 

00028451 -ft 

0002472B-R 

00020063-R 

0001EA72-R 

0002AE78-R 

0002AEEB-R 

00Q2AEAB-R 

0002AED8-R 

0002AF10-R 

000112A9-R 

0001FCB4-R 

00021 964-R 

000244C2-R 

00019758-R 

00000000 

00000001 

00000000 

00000000 

00000002 

00000002 

00000002 

00000001 

00000000 

00000001 

00000001 

0001899C-R 

00018D9C-R 

00017BC6-R 

0001 78C4-R 

QC01916C-R 

00019168-R 

00019170-R 

00019174-R 

000197C4-R 

00019945-R 

0001 9941 -R 

00019FE1-R 

00000011 

00017C84-R 

00019E6C-R 

00019E92-R 

00200000 

01000000 



Defined By 

CLOCK 

CHMK 

CLOCK 

CLOCK 

SCB 

MEMMGT 

CONSOLE 

KERNEL 

CLOCK 

SCB 

MEMMGT 

DEBUG 

CONSOLE 

COMDRVSUB 

COMDRVSUB 

COMDRVSUB 

COMDRVSUB 

COMDRVSUB 

CLI 

DEBUG 

EXCEPT 

MEMMGT 

DSVECS 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

KERNEL 

QJO 

OJO 

CHAN730 

CHAN730 

CHAN730 

CHAN730 

DEBUG 

DEBUG 

DEBUG 

PRINT 

RMS 

RMS 

LOAD 

LOAD 

SYSSJODEF 

SYSSIODEF 



L 5 

26-JUL-1984 09:25 

Referenced By . . 

CSDDBTDRV 

ASTDEL 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

CHMK 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

APT 

EXCEPT 

KERNEL 

CRDJMAGE 

CLI 
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KERNEL 



SCB 



QNLY730 



ONLY730 



KERNEL 



ASSIGN 

IOSPGD 

IOSPGD 

PRINT 

PRINT 

PRINT 

PRINT 

CLI 

MEMMGT 

MEMMGT 

SCRIPT 

DIRECTORY 

DIRECTORY 

DIRECTORY 

DIRECTORY 

DASSGN 

DASSGN 



IOPOST 



IOSPGD 



EXCEPT 

SHOWMEMORY 
SHOWMEMORY 



KERNEL 
KERNEL 



RMS 
RMS 



M 5 
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Symbol 



NAME 



DEVSM MNT 
DEVSM'RCK 
DEV$M~SWL 
DEV$M~WCK 
DEV$V~ALL 
OEVSV'DMT 
DEV$V~FOD 
f)EV$V~FOR 
V$V"MBX 
Vi V$V"MNT 
DEVSV~NET 
DEVSV'SHR 
DEVSV~SPL 
DEV$V~SQD 
DIAG FILE 
DISPATCH " 
DRSINIT1AL 
DRSINT 

DSSAA BPTADDR 
DSSABORT 
D5SABORTWAIT 
DStAB BPTINST 

dsial'ds dispatch vectors 

ds$aq~ssFnd 

dssaq'syssrv 

dssaskadr 

dssaskdata 

dssasklgcl 

dssaskstr 

dssaskvld 

dssattach 

DS$AX AR8 
DSSAX'JIB 
DS$AX~SOFTPCB 



DS$A_PRGBGN 

OSSBGNSUB 
DSSBRANCH 
DSSBREAK 

DSSCANWAIT 
DS$CHANNEL 
DSSCKLOOP 
DSSCLI 

DSSCLRVEC 

DS$CNTRLC 

DS$CVTRFG 

DSSDOSUMMARY 



Value 

00080000 
40000000 
02000000 
80000000 
00000017 
00000015 
OOOOOOOE 
00000018 
OOOOOOH 
00000013 
OOOOOOOD 
00000010 

ooooooot 

00000005 

00019DF4-R 

00020C18-R 

0002B5E8-R 

0002B5D4-R 

000197D8-R 

00010020-R 

00010070-R 

000197C5-R 

0001975C-R 

000107FF-R 

00010200-R 
00010090-R 
00010080-R 
00010093-R 
000100A0-R 
00010088-R 
000101A8-R 
0002C86C-R 
0002C800-R 
0002C8E4-R 



00000200 

00010030-R 
000100A8-R 
00U0058-R 

00010070-R 
00010180-R 
000100AO-R 
0001D1DD-R 

00Q10168-R 
000I0078-P 

00010080-R 

00010028-R 



Defined By 

SYSSIODEF 

SYSSIODEF 

SYSSIODEF 

SYSSIODEF 

SYSSJODEF 

SYS5I0DEF 

SYS$IODEF 

SYSSIODEF 

SYSSIODEF 

SYSS10DEF 

SYSSIODEF 

SYSSJODEF 

SYSSIODEF 

SYSSJODEF 

LOAD 

DISPAT 

DRINT 

DRINT 

DEBUG 

ENTRY 

ENTRY 

DEBUG 

DSVECS 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

KERNEL 

KERNEL 

KERNEL 



KERNEL 

ENTRY 
ENTRY 
FNTRY 
ENTRY 
ENTRY 
FNTRY 
CLI 

ENTRV 
ENTRY 

FNTRY 

ENTRY 
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Referenced 


By ... 




DASSGN 






DASSGN 






DASSGN 






DASSGN 






DASSGN 






DASSGN 






ASSIGN 




QIOREQ 


DASSGN 




QIOREQ 


ASSIGN 






QIOREQ 






ASSIGN 






ASSIGN 






ASSIGN 




QIOREQ 


IOPOST 






DEBUG 






START 






QIO 






QIO 






ERROR 




EXCEPT 


EXCEPT 




PARAM 


ERROR 




LOOP 


CRDIMAGE 






KERNEL 






KERNEL 




MEMMGT 



V3A-18 
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LOOP 
SCRIPT 



SHOWMEMORY 






SHOWMEMORY 






ASSIGN 


ASTCON 


CANCEL 


CHMK 


DASSGN 


DEVALC 


EVENT 


QIOREQ 


SHOWMEMORY 


APT 


CLI 


LOAD 


MEMMGT 


SHOWMEMORY 




CLOCK 






CONFIG 


PROBE 




DEBUG 


EXCEPT 


KERNEL 


SCRIPT 






START 






ATTACH 


CRDIMAGE 


DIRECTORY 


DISPAT 


KERNEL 


QAMAIN 


CHAN730 


DEBUG 


EXCEPT 


FLAGS 
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DS$ENDPASS 


0001 001 O-R 


ENTRY 








DSSENDSUB 


00010038-R 


ENTRY 








DStENTRY 


000293AD-R 


VER730 








DSSERROEV 


00O100C8-R 


FNTRY 








DSSERRHARD 


00O100DO-R 


ENTRY 








DStERRPREP 


00010108-R 


ENTRY 








DS$ERRSOFT 


000100D8-R 


ENTRY 








DSSERRSYS 


00O100CO-R 


ENTRY 








DSSESCAPE 


G0010050-R 


ENTRY 








DSSFAB INPUT 


0CO18600-R 


KERNLL 








DS$FAB"nUTPUT 


00O 1 8694-R 


KERNEL 








DStFRFF->B3SYM 


000101B8-P 


ENTRY 








DSSGA BKEAKVEC 


00O1AGAD-R 


SCB 


EXCEPT 






OS$GA BUFPTR 


00018EAC-R 


KERNEL 








DS$GA"CHKLPPC 


00O18E2C-R 


KERNEL 


DISPAT 


ERROR 


LOOP 


DSSGA~CHMKVEC 


0001A049-R 


SCB 


CHMK 






DS$GAlCRD.DS. INTERFACE 


00019760-R 


DSVECS 


CLI 


KERNEL 


PRINT 








SCRIPT 






DSSGAJ)S_CTRL_CJ r IRST 


00O'i8728-R 


KERNEL 


CLI 


CRDIMAGE 


DSVECS 








Q AMAIN 






DSSGA DS CTRL C SECOND 


00O1872C-R 


KERNEL 


CLI 


CRDIMAGE 


DSVECS 


DSSGA^LA^TADR" 


00018DF4-R 


KERNEL 


CRDIMAGE 


MEMALC 


MEMMGT 








SHOWMEMORY 






DS$GA LOOPAPR 


00O18E3O-R 


KERNEL 


LOOP 






DSSGA~PTA3LE 


00O198FO-R 


IOBASE 


ATTACH 


DEVICE 


DSVECS 








KERNEL 






DS$GA PTDE5C 


00OH97F-R 


IOBASE 


ATTACH 






DSSGA'SELfcCTFD 


000199FC-R 


IOBASE 


CONFIG 


DEVICE 




DS$GA~SELECTS 


000199D8-R 


I08ASE 


ATTACH 


DEVICE 


KERNEL 


ds»ga;softint 


00O1A059-R 


SCB 


CLOCK 






DS$GA SUPPORT TASl E 


00O17DC4-R 


RMS 








DSSGA'TBITVEC" 


00O1A051-R 


SCB 


EXCEPT 






DSSGA'USER ERROR TEXT 


00019778-R 


DSVECS 


ERROR 






ds$gb"byte6uf 


00O18E5O-R 


KERNEL 








DS$GB~CI IMI T 


oooooooo 




WK-RMS 






D5$GB"JNRIBI t naming 


00O18ES2-R 


KERNEL 


ATTACH 


CLI 




DSSGB'MM ENB 


0001^F4C-R 


MEMMGT 


CLI 


DJSPAT 


KERNEL 


ds*gb~giCact 


0001A16A-R 


SCRIPT 


PRINT 






OSSGB'STOPPING THb.TIMER 


0001A048-R 


SCB 


CLOCK 






DS$GBlTYPECODE" 


00018E51-R 


KERNEL 


DISPAT 


ERROR 


EXCEPT 








MCHK730 
START 


PRINT 


SHOWME 


DS$GB UDASQ INI I 


00O2A0U-R 


PU8TORJVR 


RMS 






DSSGB'VDS DfBUG 


00019FE1-R 


PRINT 








DS$G8"wID7m 


000196CA-R 


CONSOLE 


PRINT 


Q AMAIN 




DStGETADDRESS 


0CO1009O-R 


ENTRY 








DS$GETBUF 


00O10120-R 


ENTRY 








DSSGETDATA 


00010080-R 


ENTRY 








dssgetlogical 


00010098-R 


ENTRY 








DS1GETSTRING 


00O100A0-R 


FNTR> 








DStGETTERM 


00J10U8-R 


ENTRV 








PSSGETVIELD 


0OO10088-R 


ENTRY 
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Symbol 



Value 



DS$GK 51D 

DSSGK~SUPPORT table rows 

dssgk~usovr 

dssgl actual mems1ze 

ds$gl~bufcnt~ 

DS$GL~BUfLEN 
DSSGL'CLIBASE 



DSSGL CRD DEBUG 
DS$GL~CRD~FLAGS 
DS$GL~OEVERR COUNT 
DSSGL"EFCO 
DS$GL~tFC1 
DS$GL~ERRCNT 
DStGL'ERRSUP COUNT 
DSSGL'FLAGS 



Defined By 



03000000 


0NLY730 


00000017 


RMS 


00000200 


ONLY730 


00019K4-R 


MEMMGT 


00019100-R 


BUFFER 


00018E48-R 


KERNEL 


00019210-R 


CLI 


0001978C-R 


DSVECS 


00019754-R 


DSVECS 


00018E10-R 


KERNEL 


00018DEC-R 


KERNEL 


00018DF0-R 


KERNEL 


00018EOO-R 


KERNEL 


00018E18-R 


KERNEL 


00018DF8-R 


KERNEL 



DSSGL.FSTTEST 


00018E20-R 


KERNEL 


DSSGL HARDERR COUNT 


00018E04-R 


KERNEL 


DS$GL~LO0KASlGE 


00019F24-R 


MEMALC 


DSSGLlL STTEST 


00018E2A-R 


KERNEL 


DSSGL MEMS WE 


00019F40-R 


MEMMGT 


DS$GL"NUMTEST 


00018E1C-R 


KERNEL 


DS$GL~PAGE 


00019F69-R 


PRJNT 


DS$GL~PCBVEC 


00018DAO-R 


KERNEL 


DS$GL~PREPERR COUNT 


00018E08-R 


KERNEL 


DS$GL"RADIX 


00018E40-R 


KERNEL 


DS$GL~RUNTIM 


00018E34-R 


KERNEL 


DSSGLlSET MEMSWF 


00019F4.8-R 


MEMMGT 


DS$GL SJZF 


00018E44-R 


KERNEL 


DS$GL~SOFTERR^COUNT 


00018E0C-R 


KERNEL 


DSSGL^SUBTEST 


00018E28-R 


KERNEL 


DSSGL SYSERR COUNT 


00018EK-R 


KERNEL 


DS$GL~TERMCH*R 


0Q0190F n -R 


KERNEL 


DS$GL~TIMESEC 


000181 .,tf-R 


KERNEL 


DS$GL"WA1TJM 


00018E3C-R 


KERNEL 


DSSGPRARD 


00010018-R 


ENTRY 


DSSGQ BUFQWD 


00018E48-R 


KERNEL 


DS$GQ**CURYEAR 


00019668-R 


CLOCK 


DS$GQ~DAYTIM 


00018560-R 


VER730 
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26-JUL-1984 09:25 


VAX-11 Linker 


Referenced By ... 




KERNEL 




CLOCK 




KERNEL 


MEMMGT 


PARAM 


PRINT 


APT 


ATTACH 


DEBUG 


DIRECTORY 


KERNEL 


LOAD 


QACHECKS 


Q AMAIN 


START 




CLJ 


CRDIMAGE 


ATTACH 


CONSOLE 


DJSPAT 


ERROR 


FLAGS 




DJSPAT 


ERROR 


DISPAT 


ERROR 


APT 


ATTACH 


CLI 


CLOCK 


CRDIMAGE 


CSDDBTDRV 


DSVECS 


ERROR 


LOAD 


LOOP 


PRINT 


SCB 


SHOWMEMORY 


START 


DISPAT 


UACHECKS 


START 




DISPAT 


ERROR 


SHOWMf'.oHY 




DI rr MT 


LOOP 


07 MAIN 


START 


DEBUG 


MEMALC 


START 




ENTRY 




ERROR 




DEBUG 


PARSE 


SHOWMEMORY 




DJSPAT 


ERROR 


DISPAT 


LOOP 


START 




DJSPAT 


ERROR 


CONSOLE 




CHAN730 


DEVICE 


QIO 


START 


KERNEL 




KERNEL 
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SHOWMEMORY 

CONFIG 
DISPAT 
PARSE 
SCRIPT 



CRDIMAGE 



LOOP 

CALLFRAME 

CONSOLE 

DISPAT 

EXCEPT 

MEMMGT 

SCRIPT 

QAMAIN 



QACHECKS 
SHOWMEMORY 



QACHECKS 



ERROR 
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Symbol 


Value 


Defined By 


Referenced By . . . 




DS$GQ EH 


00018DEC-R 


KERNEL 


EVENT 




DSSGCfPHYADR 


000190F8-R 


BUFFER 


MEMMGT 




DSSGQ" TESTID 


0001996C-R 


ERROR 


START 




DSSGTlASCIBUF 


00018E53-R 


KERNEL 






DSSG1 BUFFER 


00018E62-R 


KERNEL 


PRJNT 


SCRJPT 


DSSGT NEWYEAR 


00019670-R 


CLOCK 


KERNEL 




DSSGT'PROMPT 


000185BD-R 


VER730 


CLI 


KERNEL 


DSSGT'START 


0001857F-R 


VER730 


KERNEL 




DS$GT~STRBUF 


00019062-R 


KERNEL 


FLAGS 


PARAM 


DSSGT'VALPHA 


0OO256A0-R 


PARSE 






DS$GT"VALPHANUM 


000256B2-R 


PARSE 






DS$GT~VDS VERSION 


00018584-R 


VER730 


ERROR 




DS$GT"VFlCE 


000256C4-R 


PARSE 






DSSGT~VHEX 


00025725-R 


PARSE 






DS$GT~VSPACE 


000256D6-R 


PARSE 






DS$GT"VSY«BOL 


0002568E-R 


PARSE 






DSSGUf TTIN 


00018DFC-R 


KERNEL 


PRJNT 


SCRJPT 


DStGW^TTOUT 


00018DFE-R 


KERNEL 


CONSOLE 


ERROR 








PRJNT 


SCRJPT 


DSSHELP 


0OO101B0-R 


ENTRY 






DSSINITSCB 


00010170-R 


ENTRY 


DJSPAT 


KERNEL 


DSSINLOOP 


00010048-R 


ENTRY 






DS$K ASCIBUF 


0OO0OOOF 


KERNEL 






DS$K~BBC 


00000O1D 


DJSPAT 






os$k;bbcc 


00000021 


DJSPAT 






DS$K BBCC1 


00000023 


DJSPAT 






DSSK'BBCS 


0000001 F 


DJSPAT 






dssk'bbs 


0O00OOU 


DJSPAT 






ds$k"bbsc 


00000020 


DJSPAT 






dssk'bbss 


0000001E 


DJSPAT 






DS$K~BBSSI 


00000022 


DJSPAT 






ds$k~bcc m 


0000001B 


DJSPAT 






ds$k"bcs~m 


0000001 A 


DJSPAT 






DS$K~BEOCu B 


00000005 


DJSPAT 






DS$K"BEQLU"M 


00000011 


DJSPAT 






DSSK'BEQL B 


00000004 


DJSPAT 






DS$K~BEQL~M 


00000010 


DJSPAT 






dssk'berrOr 


00000026 


DJSPAT 






dssk'bgequ b 


00000007 


DJSPAT 






dssk'bgequ'm 


00000013 


DJSPAT 






ds$k~bgeq_B 


00000006 


DJSPAT 






ds$k~bgeq m 


00000012 


DJSPA T 






ds$k~bgtr0 b 


00000009 


DJSPAT 






ds$k"bgtru~m 


00000015 


DJSPAT 






dssk'bgtr B 


00000008 


DJSPAT 






DS$K~BGTR~M 


OOOOOOH 


DJSPAT 






ds$:Tblbc" 


00000025 


DJSPAT 






ds$k~blbs 


00000024 


DJSPAT 






DS$K BLEQU B 


00000003 


DJSPAT 






dssk'blequ'm 


OOOOOOOF 


DJSPAT 






DS$K~BLEQ_B 


00000002 


DJSPAT 






DS$K~BLEQ M 


OOOOOOOE 


DJSPAT 







EXCEPT 
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Symbol 


Value 

00000001 


Defined By 
DISPAT 


Referenced By • . . 






DS$K BLSSU B 






DS$K~B!.SSU~M 


OOOOOOOD 


DISPAT 








DSSK'BLSS 6 


oooooooo 


DISPAT 








DS$K~BLSS~M 


oooooooc 


DISPAT 








OSSK'BNEQO b 


00000OOB 


DISPAT 








DSSKlBNEQU'M 


0000001? 


DISPAT 








DS$K BNEQ B 


OOOOOOOA 


DISPAT 








DS$K~BNEQ*"M 


00000016 


DISPAT 








dssk~*bnerRor 


00000027 


DISPAT 








DS$K~BUFSIZ 


00000200 


KERNEL 


PRINT 


SCRIPT 




DS$K~BVC M 


00000019 


DISPAT 








DS$K~BVS~M 


00000018 


DISPAT 








DSSKlCCB' 


OOOOOOAC 


KERNEL 


QIO 






DSSK NYSI2 


OOOOOOH 


CLOCK 


KERNEL 






DS$K~PRGSIZ 


OOOOF800 


KERNEL 


APT 


LOAD 


MEMMGT 


dssOssize 


00000600 


ENTRY 


KERNEL 






DSSK STRBUF 


00000080 


KERNEL 


FLAGS 


PARAM 




dsslOad 


00010198-R 


ENTRY 


CRDIMAGE 


QIO 


SCRIPT 


DSSLOADPCS 


000101CO-R 


ENTRY 


KERNEL 






DSSL USERCNTRLC 


00018730-R 


KERNEL 


CLJ 


CRDIMAGE 




dssmApdbgblock 


00010118-R 


ENTRY 








DSSMMOFF 


000101 58-R 


ENTRY 


CRDIMAGE 






OSSMMON 


000101 50-R 


ENTRY 








DSSPARSE 


000100B8-R 


ENTRY 








DSSPRINTB 


000100EO-R 


ENTRY 


CHAN730 






DSSPRINTF 


000100FO-R 


ENTRY 


ATTACH 


DEBUG 


DEVICE 








DIRECTORY 


DSLOAD 


HELP 








QACHECKS 


QAFLAGS 


Q AMAIN 








SHOWMEMORY 






DSSPRINTS 


000100F8-R 


ENTRY 








DSSPRINTSIG 


00010100-R 


FNTRY 








DSSPRINTX 


000100E8-R 


ENTRY 








DSSPROBE 


000101AO-R 


ENTRY 








DSSRAB INPUT 


00018650-R 


KERNEL 


SCRIPT 






DSSRAB~OUTPUT 


000186E4-R 


KERNEL 


PRINT 


SCRIPT 




dssrelBuf 


00010128-R 


ENTRY 








DSSSERV1CE DISPATCHER 


000101DO-R 


ENTRY 








DSSSETIPL 


00010178-R 


ENTRY 








DSSSETMAP 


00010188-R 


ENTRY 








DSSSETPRIEXV 


000101 10-R 


ENTRY 








DSSSETVEC 


00010160-R 


ENTRY 








DSSSHOCHAN 


00010190-R 


ENTRY 








DSSSHOWCHAN 


00010190-R 


ENTRY 








DSSSOFTIPL5 


0001A402-R 


KERNEL 


SCB 






DSSSRVDISP TABLE 


000137B0-R 


ENTRY 








DSSSUMMARY* 


00010028-R 


ENTRY 


DISPAT 


LOOP 




DSSliSERMODE 


0001AA0D-R 


KERNEL 


VER730 






DSSWAITMS 


00010060-R 


ENTRY 








DSSWAITUS 


00010068-R 


ENTRY 


CLOCK 


CONFIG 


0NLY73 


DSA$M DFLTFLGS 


00003000 


KERNEL 


FLAGS 






DSISCRANNEL Vl'C 


0001DOEC-R 


CHAN730 


SCB 






DSISTIMER ~ 


0001DEF4-R 


CLOCK 


SCB 
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Symbol 



DSiSTIMSRV 

DSPSCONFIG ADP 

DSPSCONFIG'LOAD 

OSPSGEN PTSBLES 

DSPSREMOVEBREAK 

DSPSSHOWMBA 

DSPSSHOWUBI 

DSRSALLOCATE PSEUDO RPB 

DSRSCHECKLOAB 

DSRSCHECK AUTOTEST OFF SET 

DSR$CHECK~MENUTEST OFF~SET 

DSRSCOMPLETION 



DSRSOEALLOCATE PSEUDO RPB 

DSRSFAULT CLEAR 

DSRSFIND OSER PC 

DSRSIFLOSDDEV" 

DSRSKEY EQUAL 

OSR$LOAl5 CRD 

DSRSMMENRBLE 

DSRSPRINT TYPECODE NAME 

DSRSRESTORE CRD VECTORS 

DSR$SETIMRjNl " 

DSR$UNLOAD CRD 

DSVSATTACH 

DSVSDEATTACH 

DSVSDEBUG 

DSVSDESELECT 

DSVSDIRECTORY 

DSV$EXIT 

DSVSINITPCS 

DSVSLOAD 

DSV5RUN 

DSV$SELECT 

DSVSSETLOAD 

DSVSSETPAGE 

DSVSSHOWDEVICE 

DSVSSHOWDEVICEB 

DSVSSHOWLOAD 

DSV$SHOWMEMORY 

DSVSSHOWPAGE 

DSVSSHOWSELECT 

DSVSSHOWSELECTB 

DSX$ABORT 

DSXSATTACH 

DSXtBGNSUB 

OSXtBRANCH 

DSXSCANWAIT 

DSX$CHANNEl 

DSX$CHECK SUPPORT 

DSX5CKL00P 



Value 


Defined By 


0001DE94-R 


CLOCK 


00024D4C-R 


ONLY730 


0001E083-R 


CONFIG 


0002023B-R 


DEVICE 


0001FC29-R 


DEBUG 


0001CFED-R 


CHAN730 


0001CFF7-R 


CHAN730 


000275CC-R 


RMS 


00028A4C-R 


SHOWMEMORY 


0001AD04-R 


KERNEL 


0001ACE0-R 


KERNEL 


00021 7E2-R 


ERROR 


00027645-R 


RMS 


00023EE8-R 


. MCHK730 


0001CD5B-R 


CALLFRAME 


00023AAE-R 


LOAD 


000234E9-R 


HELP 


0001ED28-R 


CRDIMAGE 


000246F8-R 


MEMMGT 


0001F4AE-R 


CRDIMAGE 


0001F036-R 


CRDJMAGE 


0001DDC0-R 


CLOCK 


00Q1EF53-R 


CRDIMAGE 


0001BA6C-R 


ATTACH 


0001C5A3-R 


ATTACH 


000200A1-R 


DEBUG 


000K7C2-R 


ATTACH 


00020BEF-R 


DIRECTORY 


0001AC37-R 


KERNEL 


00025942-R 


PCSLOAD 


00023AD9-R 


LOAD 


00023AD8-R 


LOAD 


0001C63C-R 


ATTACH 


00023A12-R 


LOAD 


00025952-R 


PRINT 


0001C511-R 


ATTACH 


0001C50A-R 


ATTACH 


00023A8E-R 


LOAD 


00028A6B-R 


SHOWMEMORY 


00025979-R 


PRINT 


0001C572-R 


ATTACH 


0001C56B-R 


ATTACH 


00029228-R 


START 


0001BB76-R 


ATTACH 


00023C0E-R 


LOOP 


00026560-R 


Q AMAIN 


0001DC0C-R 


CLOCK 


0001CD6C-R 


CHAN730 


00027658-R 


RMS 


00023E1D-R 


LOOP 



E 6 
26-JUL-1984 09:25 

Referenced By . . . 

SCB 
CONFIG 

START 



CONFIG 

CALLFRAME 

CRDIMAGE 

CRDIMAGE 

ATTACH 

DIRECTORY 

SCRIPT 

CONFIG 

EXCEPT 

DISPAT 

ATTACH 

DIRECTORY 

CLI 

DISPAT 

KERNEL 

KERNEL 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLI 

CLJ 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 
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DIRECTORY 

DISPAT 

DSVECS 

DSVECS 

CLI 

LOAD 

DIRECTORY 

SCB 

EXCEPT 



KERNEL 
SHOWMEMORY 



MEMMGT 
KERNEL 



START 
CRDIMAGE 

CONFIG 
Q AMAIN 

Q AMAIN 
QACHECKS 



MEMMGT 

ERROR 

ERROR 

DEBUG 

QIO 



S.mRT 



DSVECS 



KERNEL 



QAMAIN 
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Symbol 



DSX$CLRVEc 

DSXSCNTRLC 

DSXSCVTRE6 

DSXSDIRECTORY 

DSXSDISMOUNT 

OSXSDOSUMMARY 

DSXSENDPASS 

DSXSENDSUB 

DSX$ERRDEV 

DSXSERRHARD 

DSXSERRPREP 

DSXSERRSOFT 

DSXSERRSYS 

DSXSESCAPE 

DSXSFREEDBGSYM 

DSXSGETADDRESS 

DSXSGETBUF 

DSXSGETDATA 

OSXSGETLOGICAL 

DSXSGETSTRING 

DSXSGETTERM 

DSXSGETVIELD 

DSXSGPHARD 

DSXSHELP 

DSXSINITSCB 

0SXS1NLOOP 

DSXSLOAD 

DSXSLOADPCS 

DSX$MAPDBGBLOCK 

DSXSMMOFF 

DSXSMMON 

OSXSMOUNT 

DSXSPARSE 

OSXSPRINT 



DSXSPRINTB 
DSX$PRINTF 
OSX$PRINTI 

DSXSPRINTS 

OSXSPRINTSIG 

DSX$PRINTSIGI 

DSX$PRJNTX 

DSX$PROBE 

DSXSRELBUF 

DSX$SERVKEJ>ISPATCHER 

DSXSSETIPL 

DSXSSETMAP 



Value 

00028372-R 
0001AC0C-R 
00025DDA-R 
00020A01-R 
0002B5B4-R 
00021 045-R 
00020E88-R 
00023CAC-R 
OO02H4A-R 
00021 3FC-R 
O002H23-R 
00021 3D5-R 
0002K78-R 
00023BF9-R 
0002489F-R 
000250A8-R 
0001C8BC-R 
00024FDO-R 
000250F2-R 
000251C4-R 
0001AD23-R 
00025046-R 
00020209-R 
00022D44-R 
000281E0-R 
00023E5D-R 
00021 1A0-R 
00025938-R 
00024851-R 
000246DE-R 
00024600-R 
0002B59A-R 
000254C1-R 
00025COD-R 



00025C75-R 
00025C8D-R 
00025CA2-R 

00025C5B-R 
00021A6OR 
00021A7E-R 
00025C68-R 
0002BED8-R 
0001CCQE-R 
00021 39C-R 
00028418-R 
0001CE1D-R 





F 6 


Fiche 1 Frame F6 


Sei 




26-JUL-1984 09:25 


VAX-11 Linker 


V3A-18 


Defined By 


Referenced By .. . 






SCB 


ENTRY 






KERNEL 


ENTRY 






PRINT 


ENTRY 






DIRECTORY 








DEVALC 


ENTRY 






DJSPAT 


ENTRY 






DJSPAT 


ENTRY 






LOOP 


ENTRY 






ERROR 


ENTRY 






ERROR 


ENTRY 






ERROR 


ENTRY 






ERROR 


ENTRY 






ERROR 


ENTRY 






LOOP 


ENTRY 






MEMMGT 


ENTRY 






PARAM 


ENTRY 






BUFFER 


ENTRY 






PARAM 


ENTRY 






PARAM 


ENTRY 






PARAM 


ENTRY 






KERNEL 


ENTRY 






PARAM 


ENTRY 






DEVICE 


ENTRY 






HELP 


CLI 


ENTRY 




SCB 


ENTRY 






LOOP 


ENTRY 






DSLOAD 


DEBUG 


ENTPY 


LOAD 


PCSLOAD 


ENTRY 






MEMMGT 


ENTRY 






MEMMGT 


CLI 


ENTR> 




MEMMGT 


CLJ 


ENTPr 




DEVALC 


ENTRY 






PARSE 


ENTRY 






PRINT 


ATTACH 


CALLFRAME 


CLI 




CONSOLE 


CRDIMAGE 


DISPAT 




DSVECS 


ERROR 


FLAGS 




KERNEL 


LOAD 


LOOP 




MEMMGT 


PARAM 


QIO 




SCRIPT 


START 




PRINT 


ENTRY 


EXCEPT 




PRINT 


ENTRY 


LOAD 




PRINT 


DEBUG 
PCSLOAD 


EXCEPT 


KERNEL 


PRINT 


ENTRY 






EXCEPT 


ENTRY 






EXCEPT 








PRINT 


ENTRY 


EXCEPT 




PROBE 


ENTRY 






BUFFER 


ENTRY 






ENTRY 








SCB 


ENTRY 






CHAN730 


ENTRY 
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Symbol 



DSXSSETPR1EXV 

DSXSSETVEC 

OSXSSHOWCHAN 

DSXSSuPERPARSE 

DSXSTYPE OUT 

DSXSWAITflS 

DSXtWAITUS 

DSX$WAITUS USOVR 

DS_CLEANUP~ 



DS^ERRSUP 



OS GETLINE 

OSlSUPERLINE 

DS TESTID 

OYR$C ACB 

DYNSC^ADP 

DYN$C~AQB 

DYN$C~BRDCST 

DYN$C"BUFI0 

DYNSC'CEB 

DYNSC^CRB 

DYN$C"CXB 

DYNSC'DDB 

DYN$C~DPT 

OYN$C"EXTGSD 

DYNSC'FCB 

DYN$C~FRK 

DYN$C"GSD 

DYNSC'IDB 

DYNSC'JRP 

OYNSC'IRPE 

DYN$C"JIB 

DYN$C~JPB 

DYN$C~KFH 

DYN$C~KFI 

DYNSC'LOG 

OYN$C"MBX 

DYNSC'MTL 

DYN$C"MVL 

OYN$C"NDB 

DYN$C"NET 

DYN$C'P8H 

DYN$C~PCB 

DYN$C~PDB 

DYNSC'PFL 



Value 



Defined By 



00022021-R 


EXCEPT 


O00282B7-R 


SCB 


0001D008-R 


CHAN730 


O00254BA-R 


PARSE 


O0025999-R 


PRINT 


O001DC33-R 


CLOCK 


O001DCBC-R 


CLOCK 


0001DCD7-R 


CLOCK 


O002OF82-R 


DISPAT 


00021 6B5-R 


ERROR 



00028684-R 


SCRIPT 


O002867D-R 


SCRIPT 


00021649-R 


ERROR 


00000002 


QIO 


00000001 


QIO 


00000003 


QIO 


0000001A 


QIO 


00000013 


QIO 


00000004 


QIO 


00000005 


QIO 


0000001B 


QIO 


00000006 


QIO 


0000001 E 


QIO 


00000028 


QIO 


00000007 


QIO 


00000008 


QIO 


00000015 


QIO 


00000009 


QIO 


OOOOOOOA 


QIO 


0000002C 


QIO 


0000002F 


QIO 


0000001F 


QIO 


00000026 


QIO 


00000018 


QIO 


OOOOOOOB 


QIO 


0000002B 


QIO 


00000019 


QIO 


00000016 


QIO 


0000001 C 


QIO 


00000017 


QIO 


00000020 


QIO 


oooooooc 


QJO 


00000021 


QIO 


00000023 


QIO 



6 6 
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Referenced By .. 

ENTRY 

ENTRY 

ENTRY 

APT 

SCRIPT 

ENTRY 

ENTRY 

KERNEL 

CLI 

KERNEL 

SHOWMEMONY 

APT 

CHMK 

C0NFI6 

ENTRY 

KERNEL 

MEMMGT 

SCRIPT 

PARAM 

ATTACH 

START 
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CLI 



CRDIMAGE 


DIRECTORY 


LOAD 


LOOP 


START 




ASTDEL 


ATTACH 


CLI 


CLOCK 


DEVICE 


DISPAT 


EXCEPT 


IOPOST 


LOOP 


MEMALC 


ONLY730 


QIO 



CLI 
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Symbol 


Value 


Defined By 


Referenced By .. . 






DYNSC PIB 


00000022 


QJO 








DYN$C~PQB 


0000000D 


QJO 








DYNSC~PTR 


00000025 


QJO 








DYNSC'RBM 


00000031 


QJO 








DYN$C~RVT 


OOOOOOOE 


QJO 








DYNSC'RVX 


00000027 


QJO 








DYNSC"SFT 


00000024 


QJO 








DYNSC~SHB 


0000002A 


QIO 








DYNSC'SHMCEB 


0000002E 


QJO 








DYNSClSHMGSD 


00000029 


QJO 








DYN$C SHRBUFIO 


00000080 


QJO 








DYN$C~SLAVCEB 


0000002D 


QJO 








DYNU SPECIAL 


0000008C 


QJO 








DYN$C~SSB 


0000001 D 


QIO 








DYN$C"TQE 


O0OOO00F 


QJO 








DYN$C~TWP 


00000030 


QJO 








DYN$C~TYPAHD 


000000H 


QJO 








DYN$C"UCB 


00000010 


QIO 








DYN$C~VCA 


00000032 


QIO 








DYN$C~VCB 


000000* i 


QJO 








DYN$C~WCB 


00000012 


QIO 








ERL$dEVKERR 


000293B7-R 


VMSDUMMY 


ENTRY 






ERLSDEVICTMO 


000293B7-R 


VMSDUMMY 


ENTRY 






ERLSRELEASEMB 


000293B7-R 


VMSDUMMY 


ENTRY 


IOSNPG 




ESTKPTR 


0002FE00-R 


KERNEL 


EXCEPT 


MEMMGT 


SHOWMEMORY 


EXCHANGE DISPATCH VECTORS 


0001F081-R 


CRDIMAGE 








EXESABORTlO 


0002C30A-R 


QIOREQ 


ACPFDT 
QIOFDT 


COMDRVSUB 


ENTRY 


EXESACVIOLAT 


00021DE4-R 


EXCEPT 








EXESALLOC 


0002B446-R 


DEVALC 


ENTRY 






EXESALLOCATE 


00023FB6-R 


MEMALC 








EXESALLOCBUF 


00023EEF-R 


MEMALC 


COMDRVSUB 


ENTRY 


QIOREQ 


EXESALLOCCEB 


00023EF3-R 


MEMALC 








EXESALLOCIRP 


00023F00-R 


MEMALC 


ENTRY 


QIOREQ 




EXESALLOCJIB 


00023EF7-R 


MEMALC 








EXESALLOCPCB 


00023F04-R 


MEMALC 








EXESALL0CPQ8 


00023FOC-R 


MEMALC 








EXESALLOCTQE 


00023F15-R 


MEMALC 


CLOCK 






EXE$ALONONPAGED 


G0023F4F-R 


MEMALC 


ATTACH 


CANCEL 


CONFIG 








CRDIMAGE 


DSVECS 


ENTRY 








ODS 


ONLY 730 


QAMAIN 








QIO 


RMS 


SCRIPT 


EXESALTQUEPKT 


0002C335-R 


QJOREQ 


ENTRY 






EXESASCTIM 


0002AFD5-R 


CVRTJM 


ENTRY 






EXESASSIGN 


0002ABDC-R 


ASSIGN 


ENTRY 






EXESBINTIM 


0002B076-R 


CVRTIM 


ENTRY 






EXE$BREAK 


00021E0C-R 


EXCEPT 








EXESBUFFRQUOTA 


000293B8-R 


VMSDUMMY 


ENTRY 






EXESBUFGUOPRC 


000293B8-R 


VMSDUMMY 


ENTRY 






EXESCANCEL 


0002AD73-R 


CANCEL 


ENTRY 






EXESCANTIM 


0001DD73-R 


CLOCK 


ENTRY 






EXESCARRIAGE 


0002C127-R 


GJOFDT 


ENTRY 
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Symbol 



EXESCLREF 

EXESCNTREG 
EXESDALLOC 

EXESDASSGN 

EXE$DEALLOCATE 

EXE$DEANONPAGED 



EXESEXPREG 

EXESFAO 

EXESFAOL 

EXESFINISHJO 

EXE$F1NISHI0C 

EXESFORK 

EXESFORKDSPTH 

EXESGB ADPTYPE 

EXESGB'CPUTYPE 

EXESGETTIM 

EXES6L ABSTIM 

EXE$GL~PWRDONE 

EXESGLlSCB 

exe$gl;splitadr 

EXE$GG_SYSTiME 

EXESGTCHAN 

EXESHIBER 

EXESINSERTJRP 

EXESINSIOQ 

EXES1N5TJMQ 

EXESIOFORK 

EXESMAXACMODE 

EXESMODJFY 

EXESMODIFYLOCK 

EXESMODIFYLOCKR 

EXESNUMTIM 

EXESONEPARM 

EXESPWRTJMCHK 

EXESQIO 

EXESQIOACPPKT 

EXE$QIODRVPKT 

EXESQIORETURN 

EXESREAD 

EXESREADCHK 

EXESREAOCHKR 

EXESREAOEF 

EXESRFADIOCK 

EXESREAOLOCKR 

EXESROPRAND 



Value 



Defined By 



00021 8A9-R 


EVENT 


000245E3-R 


MEMMGT 


0002B4DF-R 


DEVALC 


00C2B386-R 


DASSGN 


00024051-R 


MEMALC 


00023FDE-R 


MEMALC 



0002A4DF-R 


MEMMGT 


0002206C-R 


FAO 


00022O68-R 


FAO 


0002C319-R 


QJOREQ 


0002C317-R 


QIOREQ 


0002B5F9-R 


FRKCTL 


0002861 8-R 


FRKCTL 


00029715-R 


BOOTDRJVR 


000297K-R 


BOOTDRJVR 


0002865C-R 


GETTIM 


00010810-R 


ENTRY 


00017B90-R 


QIO 


OOO1A055-R 


see 


00019F20-R 


MEMALC 


00010B00-R 


ENTRY 


0002B678-R 


GTCHAN 


0001DD3D-R 


CLOCK 


0002C38D-R 


QJOREQ 


0002C372-R 


QJOREQ 


0001DDDD-R 


CLOCK 


0002B5F4-R 


FRKCTL 


000271A0-R 


QJO 


0002BF9C-R 


QJOFDT 


00028FD4-R 


QJOFDT 


00028FD7-R 


QJOFDT 


0002B26C-R 


CVRTJM 


0002BF90-R 


QJOFDT 


000275B9-R 


QJO 


00026B94-R 


QIO 


0002C357-R 


QJOREQ 


0002C^31-R 


QJOREQ 


C002C369-R 


QJOREQ 


0002BFA2-R 


QJOFDT 


0002C05E-R 


QJOFDT 


0n02C072-R 


QJOFDT 


00021 8D6-R 


EVENT 


0002BFCE-R 


QJOFDT 


00028FE1-R 


QJOFDT 


00021DD4-R 


EXCEPT 
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Referenced By .. 

ENTRY 
ENTRY 

ENTRY 
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Sequence 73 
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ASTDEL 


ATTACH 


CLOCK 


COMDRVSUB 


CONFJG 


CRDJMAGE 


DASSGN 


DSVECS 


ENTRY 


JOPOST 


0NLY730 


Q AMAIN 


Q20 


QJOFDT 


RMS 


SCRJPT 






ENTRY 






ENTRY 






ENTRY 






ENTRY 


JOSRAM 


QIOFDT 


ACPFDT 


ENTRY 




COMDRVSUB 


ENTRY 




QJO 


SCB 




CSDDBTDRV 


DISPAT 


KERNEL 


ENTRY 






CLOCK 


JOSNPG 




SHOWMEMORY 






CLOCK 


CVRTJM 


GETTIM 


10SNPG 


KERNEL 




ENTRY 






ENTRY 






ENTRY 






ENTRY 


JOPOST 




ENTRY 






ASSJGN 


C0MDRVSU3 


DEVALC 


ENTRY 






ENTRY 






ENTRY 






ENTRY 






ENTRY 






ENTRY 






ENTRY 






ENTRY 






CANCEL 






ACPFDT 


ENTRY 


QIOFDT 


ENTRY 






ENTRY 






ENTRY 






ENTRY 






ENTRY 






ACPFDT 


ENTRY 




ENTRY 







ZZ-ENSAA-7.0 Map 

DRB1: CMUSE. WORK, MODULES3ENSAA.EXE; 574 



Symbol 



EXESSENSEMQDE 

EMESSETAST 

EXESSETCHAR 

EXESSETEf 

EXESSETiMR 

EXESSETMODE 

EXESSETPRT 

EXESSNOEVMSG 

EXESTBIT 

EXESUNWIND 

EXESWAITFR 

EXESWAKE 

EXE5WFLAND 

6XESWFLOR 

EXESWRITE 

EXE$WRITECHK 

EXESWRITECHKR 

EXESWRIIELOCK 

EXE$WRITELOCKR 

EXESZEROPARM 

EXE ACCVIO 

EXE~ARITH 

EXE BREAK 

EXE~CHME 

EXElCHMK 

EXE.CHMS 

UE CHMU 

EXE~CMODKRNL 

EXElCOMPAT 

EXE KRNLSTK 

EXE"MCHK 

EXE~OPCCUS 

EXE'OPCDEC 

EXE'POWER 

EXE'RADRMOD 

EXE'ROPRAND 

EXE'TBIT 

EXE~TRANSL 

FXE~UNEXPINT 

fetTh LONG 

FETCH~STORE 

FFTCH'STOR PREG 

MLSCACHE INIT 

FIL$CACHE~TRUNC 

F JLSCVTFICNAM 

FIL$C DJR SIZE 

FILtC'SIZF 

FILSFlNDFJLID 

fjl$gq cache 

riL$6T"000EV 

FIl.SGT DDSTRING 
FIL$GT~TOPSYS 



Value 

0002C0FF-R 

0001B8AO-R 

0002C0D1-R 

00021 88F-R 

0001DE0F-R 

O002COEF-R 

00024719-R 

000293B7-R 

00021 E38-R 

0002C448-R 

000218FA-R 

0001DC27-R 

00021 938-R 

00021917-R 

0002BFAB-R 

0002C06A-R 

0002C09C-R 

0002BFD1-R 

00028FE8-R 

00028F96-R 

00021DE4-R 

00021E00-R 

00021EOC-R 

00021E6C-R 

00021 E6A-R 

00021E7A-R 

00021E7C-R 

0001D154-R 

00021 DF8-R 

00021 DAC-R 

00021D8C-R 

00021DCC-R 

00021DC4-R 

00021 DB8-R 

00021DDC-R 

00021DD4-R 

00021E38-R 

00021DEC-R 

00021E59-R 

00024E76-R 

0001FE99-R 

00020072-R 

00022602-R 

00022676-R 

0001F600-R 

00000024 

00000218 

000227DD-R 

00000000 

00016B83-R 

00016BB4-R 

00000000 



Del ined By 

QJOFDT 

ASTCON 

QIOFDT 

EVENT 

CLOCK 

QIOFDT 

MEMMGT 

VMSDUMMY 

EXCEPT 

UNWIND 

EVENT 

CLOCK 

EVENT 

EVENT 

QIOFDT 

QIOFDT 

QIOFDT 

QIOFDT 

QIUFDT 

QIOFDT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

CHMK 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

FXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

EXCEPT 

ONLY730 

DEBUG 

DEBUG 

FILEREAD 

MLEREAD 

CVTFILNAM 

FILEREAD 

FILEREAD 

FILEREAD 

LOAD 
LOAD 



J 6 
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Referenced By .. 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ACPFDT 

ENTRY 

ENTRY 

SCB 

SCB 

SCB 

SCB 

SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
SCB 
ONLY730 

ONLY730 



FILEREAD 
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VMSDUMMY 



ENTRY 



SCB 



RMS 



RT11 



WK-F1LEREAD 

WK-FJLEREAD 

FILEREAD 

WK-FILERF.AD 



ZZ-ENSAA-7.0 Map 



Symbol 



filsmount 
filsopenfilf 
filsrdchkfilhdr 
filsrowrtlbn 
f1lsreadvbn 
f1lsstatblk 
filswritevbn 
find userpc 
get Block length 
gt renu error 
heCpinfO 
hpsc namelen 
image header 
image'header end 
inisbRk 

inisload device 
inisptabce 
inisrdonly 
iniswri table 
init context 



INS$PTABLE 

JOSGQ PHYSICAL 

IO$M CANCTRLO 

IO$M*CTRLCAST 

IO$M"FCODE 

IO$M~NOW 

IO$M~TRMNOECHO 

iostEstcsr L 

IO$TESTCSR*W 

io$v canctRlo 

10$ [OGICAL 

I0$~PHYSICAL 

JQ$~READLBLK 

IO$"READPR0MPT 

IO$lREADVBLK 

10$ SENSEMODE 

IO$"SETMODE 

I0$>RITEVBLK 

10C$ALL0SPT 

jocsaloubamap 

iocsaloubamapn 

i0c$altu8amap 

ioc$al sysucb 

i0csapplyecc 

iocscancelio 

jocscvtlogphy 

i0cscvt devnam 

jocsdiaSbufill 
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Value 


Defined By 
FILEREAD 


Referenced By ... 








0002274D-R 




000224FC-R 


FILEREAD 


ODS 








00022AE4-R 


FILERFAD 










0001CB68-R 


BOOTIO 


FJLEREAD 








00022BC3-R 


FILEREAD 


ODS 








00022C7A-R 


FILEREAD 










000228BC-R 


FILEREAD 










00021D31-R 


EXCEPT 










0001B6AO-R 


ANSI 


ANSI 








00011 21 C-R 


CLI 


KERNEL 








000199A8-R 


HELP 


CLI 








OOOOOOK 


ATTACH 










0001879C-R 


KERNEL 


DEBUG 


DSLOAD 


LOAD 




0001899C-R 


KERNEL 


DSLOAD 


LOAD 






0001A400-R 


KERNEL 


CLI 








0001E034-R 


CONFIG 


KERNEL 


SHOWMEMORY 






0001C92E-R 


ATTACH 


KERNEL 


SHOWMEMORY 






0002497C-R 


MEMMGT 










0002497C-R 


MEMMGT 










0001A93B-R 


KERNEL 


CLI 


DIRECTORY 


DISPAT 








LOAD 


LOOP 


SCRIPT 








START 








0001CAD0-R 


ATTACH 


CONFJG 


0NLY730 






0001 7134 -R 


ONLY 730 


MEMMGT 


PROBE 






00000040 


SYS$J0DEF 


EXCEPT 








00000100 


SYS$J0DEF 


KERNEL 


PRINT 






0000003F 


SYSSJODEF 


QIOREQ 








OOOOOOAO 


SYS$I0DEF 


KERNEL 








00001000 


SYSSJODEF 


PRINT 








00024ECD-R 


ONLY730 


QIO 








00024EEC-R 


ONLY 730 


010 








00000006 


SYSSJODEF 


CONSOLE 








0000002F 


SYSSJODEF 


QI0RE0 








0000001 F 


SYSSIODEF 


QIOREQ 








00000021 


SYSSJODEF 


QJOREQ 








00000037 


SYSSIODEF 


CONSOLE 


SCRIPT 






00000031 


SYSSJODEF 


KERNEL 
SCRIPT 


PRINT 


QJOREQ 




00000027 


SYSSJODEF 


CONSOLE 








00000023 


SYSSJODEF 


CONSOLE 


KERNEL 


PRINT 




00000030 


SYSSJODEF 


ERROR 
QJOREQ 


EXCEPT 
SCRIPT 


PRINT 




0002BA0C-R 


IOSNPG 


ENTRY 








0002B963-R 


IOSNPG 


ENTRY 








0002B95F-R 


IOSNPG 


ENTRY 








0002B941-R 


IOSNPG 


ENTRY 








0002B700-R 


JOBASE 










0002BBAC-R 


JOSRAM 


ENTRY 








0002871 8-R 


IOSNPG 


ENTRY 








00028C20-R 


JOSRAM 


ACPFDT 


JOPOST 






0002BA21-R 


JOSPGD 


DEVALC 








0002B72F-R 


IOSNPG 


ENTRY 









ZZ-ENSAA-7.0 Map 
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Symbol 


Value 


Defined By 


locsoiRPosn 


0OO23952-R 


IOPOST 


IOCSFFCHAN 


0002BA55-R 


IOSPGD 


I0CSF1LSPT 


0002AD61-R 


BUFCTL 


IOCSGETBYTE 


0002AD08-R 


BUFCTL 


IOCSGL ADPLIST 


0002B70C-R 


IOBASE 


IOCSGLlDEVLIST 


0O02B7O8-R 


JOBASE 


IOCSGL DPTL1ST 


0O02B710-R 


IOBASE 


!0C$GL"IPPFL 


00019F28-R 


MEMALC 


IOCSGL.PSBL 


0001081OR 


ENTRY 


IOCSGL PSFL 


00010818-R 


ENTRY 


iocsinTtbufwind 


0002AD2A-R 


BUFCTL 


10CSINITDRV 


0002C3A8-R 


RELOCDRV 


IOCS1N1TIATE 


0O02B835-R 


IOSNPG 


IOCSIOPOST 


00023654-R 


IOPOST 


IOCSK OIAGPID 


00660000 


KERNEL 


IQCSK'IOSPACE 


40000000 


ONLY 730 


iocslOadmbamap 


00028D24-R 


LODMAP 


IOCSLOADUBAMAP 


0002BD85-R 


LODMAP 


10CSLOADUBAMAPA 


0002BD6E-R 


LODMAP 


IQCSMAPVBLK 


0002BC47-R 


IOSRAM 


IOCSMOVFRUSER 


0002AD31-R 


BUFCTL 


10CSMOVFRUSER1 


0002AD42-R 


BUFCTL 


I0CSM0VFRUSER2 


0002AD35-R 


BUFCTL 


IOCSMOVTOUSER 


0002AD49-R 


BUFCTL 


JOCSMOVTOUSER1 


0002AD5A-R 


BUFCTL 


I0CSM0VTOUSER2 


0002AD4D-R 


BUFCTL 


IOCSPTETOPFN 


00028E01-R 


LODMAP 


JOCSPURGDATAP 


00024EAA-R 


ONLY 750 


IOCSPUTBYTE 


0002AD19-R 


BUFCTL 


IOCSQNXTSEG 


0002379C-R 


IOPOST 


IOCSQNXTSEG1 


000237A8-R 


IOPOST 


JOCSREINITDRV 


0002C3AE-R 


RELOCDRV 


IOCSRELCHAN 


0002B76A-R 


IOSNPG 


IOCSRELDATAP 


0002B868-R 


IOSNPG 


IOC$RELMAPREG 


0002B8F5-R 


IOSNPG 


IOCSRELSCHAN 


0002B760-R 


IOSNPG 


IOCSREQCOM 


0002B7F5-R 


IOSNPG 


lOCSREQDATAP 


0002B8BC-R 


IOSNPG 


lOCSREQHATAPNW 


0002B8B8-R 


IOSNPG 


IOCSREQMAPREG 


0002892F-R 


IOSNPG 


IOC$REQPCHANH 


0002B7C1-R 


IOSNPG 


IOCSREQPCHANL 


0002B7CA-R 


IOSNPG 


IOCSREQSCHANH 


000287AD-R 


IOSNPG 


JOCSREQSCHANL 


00028787-R 


IOSNPG 


IOCSRETURN 


0002B9C5-R 


IOSNPG 


IOCSRTM 


00010930-R 


ENTRY 


IOCSSEARCHDEV 


0002BA7C-R 


IOSPGD 


]OC$SEARCHGEN 


0002BA81-R 


IOSPGD 


10CSSENSEDJSK 


00D2BD16-R 


IOSRAM 


I0C5UNL0CK 


00028B73-R 


IOSPGD 
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Referenced By . . 



ASSIGN 

ENTRY 

ONLY730 

CLOCK 

QIO 

QIO 

QJOREQ 

CANCEL 

IOSNPG 

IOPOST 

ENTRY 

QIO 

ENTRY 

QIO 

CLOCK 

CONFIG 

ENTRY 

ENTRY 

ENTRY 

IOPOST 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

IfNTRY 



QIO 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

QIO 

ASSIGN 

DEVALC 

ENTRY 

ASSIGN 
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QIO 
DEVALC 



COMDRVSUB 
QJOREQ 



QIOREQ 
SCB 

DISPAT 



IOSPGD 
IOPOST 



IOSRAM 



DEVALC 
DASSGN 



DEVALC 



ZZ-ENSAA-7.0 Map 
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Symbol 



IOC1UPDATRANSP 

IOCSVER1FYCHAN 

IOC$WAKACP 
IOCSWF IKPCH 
lOCtWFlRLCH 

IOGENSCNTRL INi 
10GENSCONN SEC 
ISTKPTR 
KB CHECK 



KB CHECK APT 
KB~POLL 

ksTkptr 
li8scvt dtb 
libscvt'htb 
lib$cvt"0tb 
line count 

LOCSfiDAPTER 

LOCSPTABLE 

LOCSPTDESC 

MA*$IOSPACE 

MAPFREE 

MAPMEM 

MAPMEMSIOSPACE 

MAP DEBUGGER 

MBA$INITIAL 

MBASINT 

MEMPOOLSINIT 

MMG$GL POBASE 

MMG$GL~SPTBASE 

MMG$IO[OCK 

MMGSPAGEFAULT 

MMGSUNLOCK 

MODELST 

MS$CMD 

MTSCHECK ACCESS 

ODSSGET 

ODS$OPEN 

ODSSREAP 

ONLY CLOCK INJT 

ONLY~SCB 

POPT BASE 

PARSF DEVICE 

PCB B*SE 

PFNlAB STATf 

HFN$AB"TYPE 

PFNSAL'BAK 



Value 

0002BCDA-R 
0002BB77-R 

00023806-R 
0002B9C6-R 
0002B9E8-R 
000274E6-R 
00024F0B-R 
0002F800-R 
00Q1AB36-R 



0001AB3C-R 
0001E86C-R 
0002F000-R 
000293DD-R 
000293ER-R 
000293E4-R 
00019F65-R 
0001C9D2-R 
0001CA27-R 
0001CA76-R 
00024E28-R 
00024426-R 

000241 7C-R 

0002432B-R 

000248C9-R 

0002BECF-R 

0002BE24-R 

000240A7-R 

00010808-R 

00010804-R 

00024843-R 

00021DEC-R 

0002484D-R 

000131FD-R 

00018540-R 

000293B5-R 

00024B70-R 

00024A7F-R 

00024C99-R 

00024FC8-R 

00024F44-R 

00030A00-R 

00018F46-P 

0002C678-R 

00019F4C-R 

00000000 

00019F38-R 



Defined By 

I0SRAM 
IOSPGD 

I0POST 

I0SNPG 

IOSNPG 

QJO 

ONLY730 

KERNEL 

KERNEL 



KERNEL 

CONSOLE 

KERNEL 

LJBSCVT.ATB 

LIBSCVTjUB 

LIBSCVTJUB 

PRINT 

ATTACH 

ATTACH 

ATTACH 

0NLY730 

MEMMGT 

MEMMGT 

MEMMGT 

MEMMGT 

MBAJNT 

M8AINT 

MEMALC 

ENTRY 

ENTRY 

MEMMGT 

EXCEPT 

MEMMGT 

DEBUG 

TSBTDR1VR 

VMSDUKMY 

ODS 

ODS 

ODS 

ONLY 730 

ONLY730 

KERNEL 

ATTACH 

KERNEL 
MEMMGT 
MEMMGT 
MEMMGT 



M 6 
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Referenced By . . 

ENTRY 
CANCEL 

QIOREQ 

ENTRY 
ENTRY 

QJO 

EXCEPT 

ANSI 

BUFFER 

DIRECTORY 

EVENT 

SCB 

CLJ 

CSDDBTDRV 

MEMMGT 

CVTFILNAM 



CLI 

DIRECTORY 

QIO 

MEMMGT 

CLI 

START 

KERNEL 

ONLY730 

DEBUG 

QIO 

QIO 

KERNEL 

IOSNPG 

QIOFDT 

IOPOST 
EXCEPT 

ENTRY 

RMS 

CLOCK 

SCB 

ENTRY 

EXCEPT 
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DASSGN 



GTCHAN 



MEMMGT 
APT 

CLJ 

DISPAT 
LOOP 



KERNEL 

SHOWMEMORY 

FILEREAD 



RMS 

CRDIMAGE 

SHOWMEMORY 

START 

MEMMGT 
IOSRAM 

MCHK730 



SHOWMEMORY 

ATTACH 

CLOCK 

ENTRY 

PRINT 



LOAD 



MEMMGT 



MEMMGT 

SHOWMEMORY 



SHOWMEMORY 
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Symbol 



pfnsal ptf 

pfn$aw*blink 

pfn$aw~flink 

pfmavTrefcnt 

pfnsaw'swpvbn 

PHD BASE 
PROlAPEN 

preSovblk 

PRTSC UR 

PRT$C"UW 

ptsexTract 
pts1nterpret 
qa$add forced error 
qasadd"qa epr5r 
qa$aobIchEck_state 

QA$AOB_FLAGi 

QASAOB ROUTINE STATE 
QA$FINl5 USER C?IL FRAME 
QA$LOOP~ON SUBTEST 
QA$LOOP~ON~TEST 
QA$t SAVED~DSA FLAGS 
Q ASMS IN 

qasmultiple pass 

qasnormal start 

qaiprint Forced errors 

qasrun backwards 

qa$t hfader 1 

qa$t~header~2 

qa$t~header~3 

qa$t~opfratur request message 

ua$w*branch 

oa$w"error number 

QA$W~MULTlPlEPASS 

qa$w~save last 

qa$w"save"test 

qa$w"subtfstloops 

qa$w"testloops 

qiosXdounit 

oio$cleanup 

giosdf allocate 

QiOfclNITIAL J7t"' 

QIOSMINCORE 
QIOCLEAN CPU 
ADAPTER 

rCtru 
readvblk 

RMSSAilOC CACHfc 
RMSkLEANOP 



Value 



Defined By 



00019F34-R 


MEMMGT 


00000000 


MEMMGT 


00000000 


MEMMGT 


00019F3C-R 


MEMMGT 


00019F30-R 


MEMMGT 


0002C600-R 


KERNEL 


00000038 


SYSSPRDEF 


0001EAA4-R 


CONSOLE 


0000000F 


SYSSPRDEF 


00000004 


SYSSPRDEF 


0001C34C-R 


ATTACH 


0001C07E-R 


ATTACH 


000266DE-R 


QAMAIN 


000266E1-* 


QAMAIN 


0001A020-R 


QAMAIN 


0001A024-R 


QAMAIN 


0001A0U-R 


QAMAJN 


0002687F-R 


QAMAIN 


0002622C-R 


QACHECKS 


000261 2A-R 


QACHECKS 


0001A018-R 


QAMAIN 


000268FF-R 


QAMAIN 


0002605B-R 


QACHECKS 


00025F90-R 


QACHECKS 


00026AD8-R 


QAMAIN 


0002634C-R 


QACHECKS 


0001 7 44F-R 


QACHECKS 


00017475-R 


QACHECKS 


Q001 7 49C-R 


QACHECKS 


000172C9-R 


QACHECKS 


0001A00E-R 


QAMAIN 


0001A0T0-R 


QAMAIN 


00019FEC-R 


QAFLAGS 


0001A0K-R 


QAMAIN 


000U012-R 


QAMAIN 


00019FEA-R 


QAFLAGS 


C0019FE8-R 


QAFLAGS 


00026CFA-R 


QJO 


00026C33-R 


QIO 


000275A-R 


Q10 


00026BDF-R 


QIO 


C00C5E3C 


KERNEL 


00024F16-R 


ONLY 730 


000190EE-R 


ATTACH 


0001AA97-R 


KERNEL 


0001EAA4-R 


CONSOLE 


00.V78D8-R 


RMS 


0Q027937-R 


RMS 
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Referenced By . . 
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SHOWMEMORY 

APT 

QIO 

DEBUG 

DEBUG 



QACHECKS 

QACHECKS 

DISPAT 

START 

DISPAT 

START 

QACHECKS 

QACHECKS 

QAMAIN 

QAMAIN 

DISPAT 

LOOP 

QAMAJN 

QAMAIN 

QACHECKS 

QAMAIN 

QAMAIN 

QAMAIN 

QAMAIN 

QAMAIN 

QACHECKS 

QACHECKS 

QACHECKS 

DISPAT 

QACHECKS 

QACHECKS 

QACHECKS 

START 

DIRECTORY 

START 

ONLY730 

KERNEL 

MEMALC 

CIO 

CLJ 

PRINT 

QIO 

ANSI 

DISPAT 



LOOP 
PARAM 



QACHECKS 
QACHECKS 



ERROR 
PARAM 



KERNEL 
START 



QAMAIN 
QACHECKS 

QAMAIN 
QAMAIN 

DISPAT 



SCRIPT 



ODS 



RT11 



ZZ-ENSAA-7.0 Map 

DRB1: [MUSE, WORK. MODULESJENSAA.EXE; 574 



Symbol 



RMSSCL.3E 

RMSSCONNECT 

RMSSD1SCONNECT 

RMSSERROR 

RMSSFILE TABLE 

RMSSGET " 

RMSSINIT 

RMSSLOAD XAB 

RMSSOPEN" 

RMSSREAD 

RPTEADR 

RT1UGET 

RT11SOPEN 

RT11SREAD 

SCANSALPHA 

SCANSALPHANUM 

SCANSBINARY 

SCANSCOMPARE 

SCANSDEC1MAL 

SCANSDEVICE 

SCAN$FiLE 

SCAN$HEX 

SCANSNUMERIC 

SCAN$OCTAL 

SCANSSEARCHLJST 

SCANSSPACE 

SCANSSPACES 

SCANSSPANC 

SCANSSYMBOL 

SCBVECTOR 000 

SCBVECTOR~038 

SCBVECTOR~03C 

SCBVECTOR"050 

SCBVECTOR~054 

SCBVECTOR~058 

SCBVECTOR~05C 

SCBVECTOR~060 

SCBVECTOR~064 

SCBVECTOR~068 

SCBVECTORI06C 

SCBVECTOR 070 

SCBVECT0R~074 

SCBVECT0R~078 

SCBVECTOR~07C 

SCB"ECTOR~080 

SCBVECTORI0C4 

SCBVECTOR 0C8 

SCBVECTOR'OCC 

SCBVECTOR'ODO 

SCBVECTOR'ODA 



Value 

00027E<«B-R 
00027C43-R 
00027DF1-R 
000277F7-R 
0001A038-R 
00027CC5-R 
00027928-R 
00027889-R 
000279BB-R 
00027D62-R 
00024801 -R 
00028067-R 
00027F71-R 
00028177-R 
0002569E-R 
000256B0-R 
00025750-R 
00025703-R 
00025746-R 
00025843-R 

000256C2-R 
00025755-R 
00025758-R 

00025748-R 
000257F4-R 
000256D4-R 
000256D4-R 
000256E8-R 
0002568C-R 
00024F49-R 
00024F4D-R 
00024F51-R 
00024F55-R 
00024F59-R 
00024F5D-R 
00024F61-R 
Q0024F65-R 
00024F69-R 
00024F6D-R 
00024F71-R 
00024F75-R 
00024F79-R 
00024F7D-R 
00024F81-R 
00024F85-R 
00024F89-R 
00024F8D-R 
00024F91-R 
00024F95-R 
0Q024F99-R 



Def int-d By 

RMS 

RMS 

RMS 

RMS 

RMS 

RMS 

RMS 

RMS 

RMS 

RMS 

MEMMGT 

RT11 

RTI1 

RT11 

PARSE 

PARSE 

PARSE 

PARSE 

PARSE 

PARSE 

PARSE 
PARSE 
PARSE 

PARSE 
PARSE 
PARSE 
PARSE 
PARSE 
PARSE 
ONLY 730 
ONLY 730 
ONLY 730 
ONLY730 
ONLY730 
ONLY 730 
ONLY730 
ONLY730 
ONLY730 
ONLY 730 
ONLY 730 
ONLY 730 
ONLY 730 
ONLY 730 
ONLY 730 
ONLY730 
0NLY730 
ONLY 730 
ONLY 730 
ONLY 730 
ONLY730 



B 7 

26-JUL-1984 09:25 

Referenced 8y .. 

ENTRY 
ENTRY 
ENTRY 



ENTRY 
KERNEL 

ENTRY 
ENTRY 



RMS 

ATTACH 
ATTACH 

SCRJPT 
ATTACH 
ATTACH 

RMS 



ANSI 
DSVECS 

QJO 

ATTACH 

ATTACH 

SCB 

SCB 

SCB 

SCB 

SCB 

SC8 

SCB 

SCB 

SCB 

ScB 

SCB 

SCB 

SCB 

SCB 

SCB 

SC8 

SCB 

SCB 

SCB 

SCB 

SIB 
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QIO 



DIRECTORY 



ATTACH 
PARAM 



PARAM 



LOAD 



DIRECTORY 



SCRIPT 



ZZ-ENSAA-7.0 Map 
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Symbol 



SCBVECTOR 0D8 
SCBVECTOR"0DC 
SCBVECTOR 0E0 
SCBVELTOR'OEA 
SiBVECTOR~OES 
SCBVECTOR'OEC 
SCBVECTOR'OFO 
SCBVECTOR'OFA 
SCBVECTOR 01-8 
SCBVECTOR OFC 
SCB BASE 



SCBJMAGE 
SCB.UNKINT 

SCHSASTDEL 

SCHS6L CURPCB 

SCH$GL>CBVEC 

SCHSLOfKW 

SCHSNEWLVL 

SCHSPOSTEF 

SCH$QAST 

SCHSUNLOCK 

SCHSWAKE 

SCRIPTSCONT 

SCRIPT$FLUSH 

SCRIPT$INIT 

SCRIPTSMINCORt 

SfRIPTSOPEN 

SCRIPTSSTOP 

SEC TICK 

SET "ABORT 

SGN$C IRPCMT 

SGN$C~NPAGFDYN 

SHOWMEMORYFLAGS 

JIZE TERM 

SSSjCCVIO 

SS$ BADPARAM 

SSS'BREAK 

SS$ CANCEL 

SS$" CONTINUE 

SS$~CONTROLC 

SSS'CTRLERR 

SSS'DATACHECK 

SSS'DEVOFFLINE 

SS$~ENDOfFILE 

SS$~FluNOTACC 



Value 



Defined By 



00024F9D-R 


ONLY730 


00024FA1-R 


ONLY730 


00024FA5-R 


0NLY730 


00024FA9-R 


ONLY730 


00024FAD-R 


ONLY 730 


00024FB1-R 


ONLY730 


00024FB5-R 


ONLY730 


00024FB9-R 


ONLY730 


00024FBD-R 


ONLY730 


00024FC1-R 


ONLY730 


0002CA00-R 


KERNEL 


00029600-R 


SCB 


0002D200-R 


KERNEL 


0001B8CC-R 


ASTDEL 


00018DA0-R 


KERNEL 


0001080C-R 


ENTRY 


0002938C-R 


VMSDUMMY 


0001B8F9-R 


ASTDEL 


00021 8C3-R 


EVENT 


000189ED-R 


ASTDEL 


000293C3-R 


VMSDUMMY 


000293B8-R 


VMSDUMMY 


00028645-R 


SCRIPT 


00028621 -R 


SCRIPT 


000284D0-R 


SCRIPT 


00000400 


SCRIPT 


00028ADA-R 


SCRIPT 


0002863C-R 


SCRIPT 


00000064 


CLOCK 


00C18B69-R 


ATTACH 


00000040 


KERNEL 


0000263C 


KERNEL 


0001A168-R 


SHOWMEMORY 


0001EC51-R 


CONSOLE 


OOOOOOOC 


SYSSSSDEF 


OOOOOOH 


SYSJSSDEF 


OOOOOAH 


SYSSS3DEF 


00000830 


SYS$SSDEF 


00000001 


SYS$SSDEF 


00000651 


SYSSSSDEF 


00000054 


SYSSSSDFF 


0000005C 


SYSSSSDEF 


00000C8A 


SYSSSSDEF 


00000870 


SYSSSSDEF 


OOOOOOAC 


SYSSSSDEF 



C 7 

26-JUL-1984 09:25 

Referenced By .. 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

CHAN730 

ONLY730 

SHOWMEMORY 

CONFIG 

0NLY730 

CHAN730 

SCB 

SCB 

ASTDEL 

ASSIGN 

ENTRY 

ASTCON 

ENTRY 

CLOCK 

IOPOST 

ENTRY 

CLJ 

ATTACH 

LOAD 

KERNEL 

MEMALC 

CLI 

DEBUG 

MEMALC 

CLJ 

KERNEL 

DEBUG 

OJOREQ 

ACPFDT 

DEBUG 

CANCEL 

DEBUG 

CONSOLE 

ERROR 

ONLY730 

QIOREQ 

ACPFDT 

ACPFDT 
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CONFIG 
Q10 

EXCEPT 

QIO 

MEMMGT 



ASTDEL 

CHMK 

JOPOST 

COMDRVSUB 



CLI 

SHOWMEMORY 



EXCEPT 



DISPAT 
SCB 

KERNEL 

0NLY730 

IOPOST 

ENTRY 



DIRECTORY 
START 



KERNEL 



ERROR 



ONLY730 
ONLY730 
ONLY730 



CLI 



IOPOST 



SCRIPT 
SCRIPT 



ZZ-ENSAA-7.0 Map 

DRB1: [MUSE. WORK. MObULESDENSAA.EXE; 574 



Symbol 



SSt ILl.BLKNUM 
SS$*"ILLIOFUNC 

SSS'lNSFMEM 
SS$~IVCHAN 
SSS"NOPRIV 
SS$~N0RMAL 



SSS NOSUCHDEV 

SSS"NOSUCHFILE 

SSSJJOTRAN 

SSS PAGOWNVIO 

SSS'RESIGNAL 

SSS~ROPRAND 

SS$IrBIT 

SSS WASSET 

SSTRPTR 

STACK BASE 

SWlSGC FQBL 

SWlSGL~FQFL 

0YMTAB~HI 

syssalCoc 

syssasct1m 

syssassign 

sysibintim 

sysscall handl 

sysscancfl 

sysscantim 

syssclose 

syssclref 

sysscntreg 
sys5connect 

sysscreate 
sysscrelog 
sysscretva 
syssdalloc 
syssdassgn 
syssdclexh 
syssdeltva 
syssdisconnect 

SYSSDISK 

SYSSDISMOU 

SYSSEXIT 

SYSSEXPREG 

SYSSFAO 



Value 



Defined By 



000000DC 


SYSSSSDEF 


000000F4 


SYSSSSDEF 


000001 24 


SYSSSSDEF 


000001 3C 


SYSSSSDEF 


00000024 


SYSSSSDEF 


00000001 


SYSSSSDEF 


00000908 


SYSSSSDEF 


00000910 


SYSSSSDEF 


00000629 


SYSSSSDEF 


000001EC 


SYSSSSDEF 


00000918 


SYSSSSDEF 


00000454 


SYSSSSDEF 


00000464 


SYSSSSDEF 


00000009 


SYSSSSDEF 


00030400-R 


KERNEL 


0002DA00-R 


KERNEL 


000T8DA8-R 


KERNEL 


00018DA4-R 


KERNEL 


00019949-R 


DEBUG 


00010238-R 


ENTRY 


00010248-R 


ENTRY 


00010250-R 


ENTRY 


00010258-R 


ENTRY 


00010210-R 


ENTRY 


00010260-R 


ENTRY 


00010268-R 


ENTRY 


000105B8-R 


ENTRY 


00010298-R 


ENTRY 


000102A0-R 


ENTRY 


000105C0-R 


ENTRY 


7FFEE1C8 


SYSSP1 VECTOR 


7FFEDEB0 


SYSSPrVECTOR 


800000C8 


KERNEL" 


000102D8-R 


ENTRY 


000102E0-R 


ENTRY 


7FFEDEF0 


SYSSP1 VECTOR 


80000110 


KERNEL" 


000105D0-R 


ENTRY 


00019E5C-R 


LOAD 


00000000-* 




00010340-R 


ENTRY 


00010348-R 


ENTRY 


00010350-R 


ENTRY 



D 7 

26-JUL-1984 09:25 

Referenced By .. 

ACPFDT 

QIOREQ 

CANCEL 

010 

ACPFDT 

ACPFDT 

COMDRVSUB 

010 

SCRIPT 

ERROR 

ERROR 

KERNEL 

BUFFER 

DEBUG 

DEBUG 

DEBUG 

CONSOLE 

EXCEPT 

EXCEPT 

FRKCTL 

MEMMGT 

ATTACH 

FAO 

KERNEL 

CONSOLE 

EXCEPT 

DASSGN 

CLOCK 

DIRECTOR> 

SCRIPT 

CLOCK 

LOAD 

BUFFER 

DIRECTORY 

KERNEL 

KERNEL 

KERNEL 

DEBUG 

ATTACH 

KERNEL 

DSLOAD 

KERNEL 

DEVALC 

CLI 

BUFFER 

ANSI 

DEBUG 

JOSPGD 

SCRIPT 
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IOPOST 
SCRIPT 
QIO 
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BUFFER 
IOSNPG 
QIOREQ 



0NLY730 



MEMMGT 
MEMMGT 



KERNEL 

UNWIND 

PRINT 

DISPAT 

DSLOAD 

FLAGS 

QIOREQ 
CRDIMAGE 
DSLOAD 
SCRIPT 

LOAD 

KERNEL 



SCRIPT 



CANCEL 
IOSRAM 
SCB 



SHOWMEMORY 
SHOWMEMORY 



HELP 
KERNEL 

HELP 



KERNEL 




CRDIMAGE 


MEMALC 


ATTACH 


CVRTIM 


DIRECTORY 


ERROR 


PARAM 


PRINT 



ZZ-ENSAA-7.0 


Map 
.MODULES]ENSAA.EXE;57A 




DRB1: [MUSE. WORK 




Symbol 


Value 


Defined By 


SYSSFAOL 


00010358-R 


ENTRY 


SYSSGET 


00010580-R 


ENTRY 


SYSSGETCHN 


000KKC8-R 


ENTRY 


SYSSGETSYI 


7FFEE3F8 


SYSSP1 VECTOR 


SYSSGETTIM 


00010378-R 


ENTRY " 


SYSSGL OPRMBX 


00010800-R 


ENTRY 


syssgtChan 


00010380-R 


ENTRY 


SYSSHIBER 


00010388-R 


ENTRY 


SYSSLKWSET 


000103A0-R 


ENTRY 


SYSSMOUNT 


00000000-* 




SYS$NUMTIM 


000103B8-R 


ENTRY 


SYSSOPEN 


00010608-R 


ENTRY 


SYSSPARSE 


7FFEE230 


SYSSP1 VECTOR 


SYSSPUT 


7FFEE188 


SYSSP-TVECTOR 


SYSSQIO 


000103C8-R 


ENTRY 


SYSSQIOW 


00010200-R 


ENTRY 


SYSSREAD 


00010590-R 


ENTRY 


SYS$READEF 


000103D0-R 


ENTRY 


SYStSEARCH 


7FFEE248 


SYSSP1 VECTOR 


SYSSSETAST 


000103F8-R 


ENTRY " 


SYSSSETDDIR 


7FFEE250 


SYS$P1„VECT0R 


SYSSSETEF 


00010400-R 


ENTRY 


SYSSSETEXV 


80000208 


KERNEI 


SYSSSETIMR 


00010420-R 


ENTRY 


SYSSSETPRJ 


00010428-R 


ENTRY 


SYSSSETPRT 


00010430-R 


ENTRY 


SYSSSETRWM 


00010438-R 


ENTRY 


SYSSSPACE 


7FFEE218 


SYSSP1 VECTOR 


SYSSSYSROOT 


00019E49-R 


LOAD 


SYSSTRNLOG 


00010458-R 


ENTRY 


SYSSULKPAG 


00010460-R 


ENTRY 


SYSSULUISET 


00010468-R 


ENTRY 


SYS$UNWIND 


00010470-R 


ENTRY 


SYSSWAITFR 


00010478-R 


ENTRY 


SYSSWAKE 


00010480-R 


ENTRY 


SYSSWFLANID 


00010488-R 


ENTRY 


SYSSWFLOR 


00010490-R 


ENTRY 


TS11 DRIVER 


0002A2E8-R 


TSBTDRIVR 


TSTSflCHK 


00021D7A-R 


EXCEPT 


TU INI T 


00Q2A600-R 


MUBTDRIVR 


T EMESSG1 


000111D4-R 


CLI 


uBa$injtjal 


00024ECA-R 


ONLY 730 


UBASUNEXJNT 


00024ECC-R 


ONLY 730 


UBAOP CPU 


00024EBD-R 


ONLY730 


UBINTS7 


000000B4 


ONLY730 


UB1NT DISP 


00017BD0-R 


010 


UDA RESPONSE 


0002A250-R 


PU8TDRIVR 


UD TNIT 


0002A000-R 


PUBTDR1VR 



E 7 








Fiche 1 Frame E7 


Sequence 


26-JUL-198^ 09:25 


VAX-11 Linker 


V3A-18 


Referenced By . . . 






ATTACH 


DEBUG 


PRINT 


DIRECTORY 


HELP 


SCRIPT 


KERNEL 






KERNEL 






CLOCK 






CLOCK 


SCRIPT 




DEVALC 






CVRTIM 






DIRECTORY 


DSLOAD 


HELP 


KERNEL 


SCRIPT 




DIRECTORY 






PRINT 






EXCEPT 


SCRIPT 




CONSOLE 


ERROR 


KERNEL 


PRINT 


SCRIPT 




DSLOAD 






CONSOLE 


FLAGS 


SCRIPT 


DIRECTORY 






KERNEL 






KERNEL 


LOAD 




CLOCK 


CONSOLE 


FLAGS 


QIOREQ 






EXCEPT 






CLOCK 


CONSOLE 




DEBUG 


ONLY730 




DSLOAD 






KERNEL 






KERNEL 






CONFIG 


DEBUG 


EXCEPT 


MEMMGT 


ONLY730 


PROBE 



82 
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CLOCK 



DISPAT 

DEBUG 
QIO 

QIO 
010 
QIO 

ONLY730 

CONFIG 

CONFIG 



SCRIPT 



ONLY730 



ZZ-ENSAA-7.0 Map 
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Symbol 



UNMAP DEBUGGER 

USTKPTR 

VMSSQIO 

VR ABORT 

VRCLRBRK 

VRCLREF 

VRCLRFLG 

VRDEPOSIT 

VREXAMINE 

VRRESTART 

VRSETBASE 

VRSETBRK 

VRSETDFLT 

VRSETEF 

VRSETFLG 

VRSETMEM 

VRSETQA 

VRSETWIDTH 

VRSHOWBASE 

VRSHOWBRK 

VRSHOWDFLT 

VRSHOWEF 

VRSHOWFLG 

VRSHOWQA 

VRSHOWSECTIONS 

VRSHOWSTATUS 

VRSHOWWIDTH 

VRSHOW CALLS 

VRSTART 

VR SUMMARY 

VRSUPPORT 

WIDE FLAG 

WRITEVBLK 

XDELBPT 

XDELTBIT 

XDS$INIT 



Value 

000248E2-R 
00030A00-R 
0002C177-R 
0002924E-R 
0001FBD9-R 
000223DC-R 
000223A7-R 
0001FA88-R 
0001F7A0-R 
00028EDQ-R 
0001F6D6-R 
0001FB83-R 
0001F6F3-R 
000223BB-R 
00022384-R 
00028E21-R 
00026428-R 
0001E7C0-R 
0001F6DF-R 
0001FC52-R 
0001F736-R 
00022491-R 
000223FD-R 
000264D5-R 
0002935B-R 
0O021OCF-R 
0001E84C-R 
0001CC7C-R 
00028E7F-R 
00021057-R 
00029301-R 
00019959-R 
0001EA88-R 
00000000 

ooocoooo 

00000000 



Defined By 

MEMMGT 

KERNEL 

QJOREQ 

START 

DEBUG 

FLAGS 

FLAGS 

DEBUG 

DEBUG 

START 

DEBUG 

DEBUG 

DEBUG 

FLAGS 

FLAGS 

SHOWMEMORY 

QAFLAGS 

CONSOLE 

DEBUG 

DEBUG 

DEBUG 

FLAGS 

FLAGS 

QAFLAGS 

START 

DJSPAT 

CONSOLE 

CALLFRAME 

START 

DJSPAT 

START 

DIRECTORY 

CONSOLE 



MEMMGT 



F 7 

26-JUL-1984 09:25 

Referenced By ., 

DEBUG 

EXCEPT 

QIO 

APT 

APT 

CLI 

CLI 

CLI 

CLI 

APT 

CLI 

CLI 

CLI 

CLI 

CLJ 

CLI 

CLI 

CLI 

CLI 

CLJ 

CLJ 

CLI 

CLI 

CLJ 

CLJ 

CLJ 

CLI 

CLI 

APT 

CLI 

CLI 

CLJ 

QJO 
WK-CLI 
WK-KERNEL 
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MEMMGT 

CLI 
CLI 



DISPAT 



SHOWMEMORY 



LOOP 



KERNEL 



QAMAIN 
Q AMAIN 



CLI 



WK-KERNEL 



LOAD 



ZZ-ENSAA-7,0 Map 
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G 7 
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Fiche 1 Frame G7 
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Value 
00000000 

00000001 

00000002 

00000003 
00000004 
00000005 
00000006 

00000007 
00000008 
00000009 
0000000A 
OOOOOOOB 
OOOOOOOC 
OOOOOOOD 
OOOOOOOE 
OOOOOOOF 

00000010 
00000011 
00000012 
00000013 
00000014 

00000015 
00000016 
00000017 

00000018 
00000019 
0000001 A 
0000001 B 
0000001 c 
0000001 D 
0000001 E 
0000001 F 
00000020 
00000021 
00000022 
00000023 
00000024 

00000025 
00000026 



crdsk crd initialization 

crdsk'reab 

pfnsaq blink 

crdsk us control c 

crdsk"wrTte 

sss continue 

crd$k last access.code 

os$k bleq b 

bptcOde 

dssk beql b 

DEVSfl SQD" 
DEVSV~SPL 
IOSV CANCTRLO 
DSSK'BGEQU B 
DSSK'BGTR B 
DSSK'BGTRO B 
DSSK~BNEG 6 
DSSK~BNEOO 8 
DSSK~BLSS fl 
DEVSfljJET" 
DEVSV FOD 
BPTMAS 
DYN$C TQE 
DEV$V~SHR 
DFF$C"BKSTP LEN 
DSSK BGEQ M" 
DEVStf MNT" 
DEVSV'MBX 
DYNSt'TYPAHD 
DEVSV~DMT 
DSSK BNEQ H 
DEVS9 ALL - 
DYNSC'NET 
DEVSV'FOR 
DSSK BVC M 

dssk;bcs;m 

DSSK BCC M 
DSSK~8BS~ 
DSSK BBC 
DSSKlBBSS 
DSSK BBCS 
DSSK'BBSC 
DSSK^BBCC 
DSSK BBSSI 
DSSK'BBCCI 
DSSK'BLBS 
SSS ROPRIV 
DSSR BLBC 
DSSK~BERROR 



! Symbols By Value ! 
+ — — ™.™„- — — + 

Symbols.. . 

CRDSK DS FLAGS 

DSSK BLS3 B 

PFNSSW FLTNK 

CRD$K CAST HOOK_POINT 

DSSK BLSSUlB 

sss .Normal 

crdjk last ds. variable 

dynsc~acb " 

dssk ble0u.8 

DYNSt CEB 
DSSK BEOLU B 
DSSKlBGEQ.B 

DYNSC FC8 

DYNSC~FRK 

DYN$C~JD8 

DYN$C~IRP 

DYNSClLOG 

DYNSC PCB 

DSSK BLSSU M 

DS$K~BLEQ fl 

DSSK~ASClBUF 

PRTSf UR 

DSSK BEOL M 

DSSK'BEGLO.M 

DYNSt WC8 

DSSK BGEQU M 

DSSK'BGTR fl 

HPSC~NAMEUEN 

DSSK'BGTRU M 

DYN$r MVL 

DSSGKlSUPPORT.TABLE^ROWS 

DSSK 8VS M 

DYNSt MTE 

DYNSC~BRDCST 

DYNSC~CX8 

DYNSC'NDB 

DYNSC'SSB 

DYNSC'DPT 

DYNSC~JP8 

DYNSC'PBH 

DYNSC'PDB 

OYNSC'PJB 

DYN$C~PFL 

DYNSClSFT 

DYNSC PTR 
DYNSC'KFH 



CRDSK HOOK POINT 
PFNSAB TYPE 
XDSSINTT 
CRDSK TYPECODE 
DYNSClADP 

CRDSK_LAST_FUNCTJON 

DYNSC AQB 
PRTSC~UW 
DYNSC~CRB 
DYNSCDDB 



SSS.WASSET 

SSS ACCVIO 
DYN$C PQB 
DYNSC"RVT 
DSSKjJLEQUJI 

DYNSC. UCB 
DYNSC. VCB 

DYNSC BUFIO 
DSSK flYSlZ 
SSS BADPARAM 
DYNSC.GSD 

DS$K_BNEQU_M 

DYNSCKFI 



IOS.PHYSICAL 

JOS^READLBLK 

IOS SETMODE 
FIL$C PIR SIZE 
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Value 



00000027 
00000028 
00000029 
0000002A 
0000002B 
0O00002C 
0000002D 
0000002E 
0000002F 
00000030 
00000031 
00000032 
00000037 
00000038 
0000003F 
00000040 

00000054 

0000005C 

00000064 

00000080 

00000084 

0O00OOAC 

OOOOO0B4 

OOOOOODC 

OOO0O0F4 

00000100 

00000124 

000001 3C 

000001EC 

00000200 

00000218 

00000400 

00000414 

00000454 

00000464 

00000600 

00000629 

00000651 

00000830 

00000870 

00000908 

00000910 

00000918 

00001000 

0000263C 

00003000 

00005E3C 

OOQOFSOQ 
00010010 
00010018 
00010020 



DSSK BNERROR 

DYNSC EXTGSO 

DYN$C]>HMGSD 

DYNSC SHB 

DYNSC'MBX 

DYNSCJRPE 

DYNSC_SLAVCE8 

DYNSC SHMCEB 

DYNSCfJlB 

DYNSC'TWP 

DYNSC~RBM 

DYNSC'VCA 

10$ RtADPROMPT 

PRS~MAPEN 

IO$R FCODE 

DS$K"CCB 

SGNSt IRPCNT 

SSS CTRLERR 

SSS~DATACHECK 

SEC'TICK 

DSSE STRBUF 

SSS DEVOFFLiNF 
SSS'FJLNOTACC 
UBlRTSZ 
SSSJLLBLKNUM 
SSS ILLIOFUMC 
lOSfl CTRLCAST 
SSS INSFMEM 
SSS~IVCHAN 
SSS'PAGOWNVIO 
DSSS PRGBGN 
FILSt SIZE 
SCRJPTSMINCORE 
SSS BREAK 
SSS~ROPRAND 
SSS'TBIT 
DSSR SSSIZE 
SSS ROTRAN 
SSS'CONTROLC 
SSS~CANCEL 
SSSlENDOFFJLE 
SSS NOSUCHDEV 
SSS**NOSUCHFJLE 
SSS'RESJGNAl 
IOSfl TRMNOECHO 
SGNSt NPAGEDYN 
DSA$M~DFLTFLGS 
QIOSMTNCORE 
DSSK PRGSIZ 

R-DSSERDPASS 

R-DSSGPHARD 

R-DSSABORT 



Symbols.. . 

DYNSC RVX 



H 7 

Fiche 1 Frame H7 Sequence 85 
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IOS.SENSEMODE 



33 



10S LOGICAL 

JOS'WRITEVBLK 

lOSlREADVBLK 



IO$M_CANCTRLO 



DYNSC SHRBUFJO 



IOSMJJOW 



DYNSC.SPECJAL 



DSSGK^USOVR 



DSSK BUFSIZ 



ZZ-ENSAA-7 


.0 Map 

. WORK. MODULESDENSAA. EXE; 574 


I 7 


Fiche 1 Frame 17 


Seque 


DRB1:CMUSE 


26-JUL-1984 09; 25 VAX- 11 Linker 


V3A-18 


Value 




Symbols. . . 






00010028 


R-DSSDOSUMHARY 


R-DSSSUMMARY 






00010030 


R-DSSBGNSUB 








00010038 


R-DSSENDSUB 








00010040 


R-DSSCKLOOP 








00010048 


R-DSSiNLOOP 








00010050 


R-DSSESCAPE 








00010058 


R-DSSBREAK 








00010060 


R-DS$WAITMS 








00010068 


R-DSSWA1TUS 








00010070 


R-DSSAB0RTWA1T 


R-DSSCANWAJT 






00010078 


R-DSSCNTRLC 








00010080 


R-DS$ASKDATA 


R-DSSGETDATA 






00010088 


R-DSSASKVLD 


R-DS$GETVJELD 






00010090 


R-DSSASKADR 


R-DSSGETADDRESS 






00010098 


R-DSSASKLGCL 


R-DSSGETL06JCAL 






0001 OOAO 


R-DSSASKSTR 


R-DS$GETSTRJNG 






0001 00A8 


R-DSSBRANCH 








0001 00B0 


R-DSSCVTREG 








00010088 


R-OSSPARSE 








0001 OOCO 


R-DSSERRSYS 








0001 00C8 


R-DSSERRDEV 








0001 OODO 


R-DSSERRHARD 








0001 00D8 


R-DSSERRSOFT 








000100E0 


R-DS$PRINT8 








000100t8 


R-DS$PRINTX 








000100FO 


R-DSSPRINTf 








0001 OOF 8 


R-DSSPRJNTS 








00010100 


R-DSSPRINTSIG 








00010108 


R-DSSERRPREP 








00010110 


R-DSSSETPRJEXV 








00010118 


R-DS$MAPDBGBLOCK 








00010120 


R-DSSGETBUF 








00010128 


R-DSSRELBUF 








00010150 


R-DSSMMON 








00010158 


R-DSSMMOFF 








00010160 


R-DSSSETVEC 








00010168 


R-DSSCLRVEC 








00010170 


R-DSSINITSCB 








00010178 


R-DSSSETIPL 








00010180 


R-DSSCHANNEL 








00010188 


R-DSSSETMAP 








00010190 


R-DSSSHOCHAN 


R-DSSSHOWCHAN 






00010198 


R-DSSLOAO 








00C101A0 


R-DSSPROBE 








000101A8 


R-DS$ATfACH 








'J00101B0 


R-DS$HELP 








00010188 


R-DSSFREEDBGSYM 








000101C0 


R-OS$LOADPCS 








000101C8 


R-DSSGETTERM 








000101D0 


R-DS$SERVICE DISPAUHfcR 








000)0200 


R-DSSAQ SYSSRV 


R-SYSSQIOW 






ooo^02^\o 


R-SYSSCSLL HANDL 









86 



Page 34 



ZZ-ENSAA-7 


.0 Map 
.WQRK.M0DULES3ENSAA.EXE; 574 




DRB1:[MUSE 




Value 




Symbols. . . 


00010238 


R-SYSSALLOC 




00010248 


R-SYSSASCTJM 




00010250 


R-SYSSASS1GN 




00010258 


R-SYSSB1NTIM 




00010260 


R-SYSSCANCEL 




00010268 


R-SYSSCANTIM 




00010298 


R-SYSSCLREF 




0001 02A0 


R-SYSSCNTREG 




000102D8 


R-SYSSDALLOC 




000102E0 


R-SYSSDASSGN 




00010340 


R-SYSSEXIT 




00010348 


R-SYSSEXPREG 




00010350 


R-SYSSFAO 




00010358 


R-SYSSFAOL 




00010378 


R-SYS$GETTIM 




00010380 


R-.sYSSGTCHAN 




00010388 


R-SYS$HiBfR 




0001 03A0 


R-SYSSLKWSET 




0001 03B8 


R-SYSSNUMTIM 




000103C8 


R-SYSSQIO 




000103D0 


R-SYSSREADEF 




000103F8 


R-SYS$SETAST 




00010400 


R-SYS$SETEF 




00010420 


R-SYS$SETIMR 




00010428 


R-SYSSSFTPRI 




00010430 


R-SYSSSETPRT 




00010438 


R-SYSSSETRWM 




00010458 


R-SYS$TRNL0G 




00010460 


R-SYSSULKPAG 




00010468 


R-SYS$ULWSET 




00010470 


R-SYSSUNWIND 




00010478 


R-SYS$WAITFR 




00010480 


R-SYSSWAKE 




00010488 


R-SYS5WFLAND 




00010490 


R-SYSSWFLOR 




000104C8 


R-SYSSGETCHN 




00010580 


R-SY5$GET 




00010590 


R-SYS$READ 




0001 05B8 


R-SYSSCLOSE 




000105C0 


R-SYS$CONNECT 




000105D0 


R-SYS$DISCONNECT 




00010608 


R-SYSSOPEN 




000107FF 


R-DSSAQ SSEND 




00010800 


R-SYS$GC oprmbx 




00010804 


R-MMG$GL"SPTBASE 




00010808 


R-MMG$GL~POBASE 




0001080C 


R-SCH$OL~PCBVEC 




00010810 


R-EXE$GL"A8STJM 




00010818 


R-IOC$GL"PSFL 




0001 081 C 


R-I0C$Gl."P5BL 




00010930 


R-IOCSRTR 




O00I0BO0 


R-EXESGO SYSriME 
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Value 



00011104 

0001121C 

0001 12A9 

0001 31 BC 

000131FD 

00013780 

000141C3 

0001497F 

0001 6BB3 

00016B84 

00017134 

000172C9 

0001744F 

00017475 

0001749C 

0001 7B90 

0001 7BC4 

0001 7BC6 

0001 7BD0 

0001 7C84 

0001 70C4 

00018540 

00018560 

0001857F 

000185B4 

000185BD 

00018600 

00018650 

00018694 

000186E4 

00018728 

00018/2C 

00018730 

0001879C 

0001 899C 

00018D9C 

00018DAO 

000180A4 

00018DA8 

000180D4 

00018DD8 

00018D0C 

00018DFO 

000180E4 

00018DE8 

00O18DEC 

00018DF0 

000180F4 

00018DF8 

00018DFC 

00018DFE 

00018E00 



Symbols. . . 



R-T EMESSG1 
R-GT MENU ERROR 
R-COHMAND~TREE 
R-APSLMNE" 

r-modelst 

r-dsssrvdisp table 

r-aat arith " 

r-dss5a ptdesc 

r-filsgt dddev 

r-f1lsgt ddstr1ng 

r-10sgq phvsical 

r-qa$t Operator requestjiessage 

r-ga$t~header t 

r-qa$t~header""2 

r-qa$t~header 3 

R-EXE$CL purdOne 

R-CTL$6W^NM10CH 

R-CTLSGW CHINDX 

R-UBINT I5JSP 

R-DEFSCf BACKSTOP 

R-DS$GA~SUPPORT TABLE 

R-MSSCMD 

R-DSSGQ DAYTIM 

R-DS$GT"START 

R-DS$GT~VDS VERSION 

R-DS$GT>ROfiPT 

R-DS$FAB INPUT 

R-DS$RAB~INPUT 

R-DS$FAB"OUTPUT 

R-DS$RAB~0UTPUT 

R-DSSGA BS CTRL C FIRST 

R-DS$GA~DS~CTRL~C~SECOND 

R-DSSL USERcNTRCC" 

R-IMACE HEADER 

R-CTLSGC CCB 

R-CTL$GL~CCBBASE 

R-DSSGL PCBVEC 

R-SWISGC FQFL 

R-SU!$GL~FGBL 

R-800TSL.ADP 

R-BOOT$L CSR 

R-800T$L~UNIT 

R-800T$L~R2 

R-B00T$L"R5 

R~BOOT$L"DEVTYP 

R-DS$GL PFCO 

R-DS$GL*EFC1 

R-DS$GA"LASTADR 

R-DS$GL"FLAGS 

R-DS$GW"TTJN 

R-DS$GW"TT0UT 

R-DS$GL~ERRCNT 



R-]MAGF_HEADER_END 
R~SCH$GL_CURPC8 



R-DSSGQ EFL 



ZZ-ENSAA-7.0 Map 

DRB1: [MUSE. WORK, MODULESIENSAA. EXE ;574 
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Fiche 1 Frame I? 
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Sequence 89 
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Value 



0001 8E04 

00018E08 

00018E0C 

0001 8E 10 

0001 8E 14 

00018E18 

0001 8E1C 

00018E20 

0001 8E24 

00018E28 

00018E2C 

0001 8E 30 

00018E34 

00018E38 

00018E3C 

00018E40 

00018E44 

00018E48 

00018E4C 

00018E50 

00018E51 

00018E52 

00018E53 

00O18E62 

00019062 

000190E2 

0001 90EE 

000190F8 

00019100 

00019t18 

00019168 

0001916C 

00019170 

00019174 

00019210 

00019668 

00019670 

000196CA 

00019754 

00019758 

0001975C 

00019760 

00019778 

0001973C 

000197C4 

000197C5 

000197D8 

00019941 

00019945 

00019949 

00019959 

0001996C 



Symbols.. . 



R-DSSGL HARDERR COUNT 

R-DSSGL PREPERR~COUNT 

R-CSSGL~SOFTERR~COUNT 

R-DSSGL DEVERR COUNT 

R-DSSGL"SYSERR~COUNT 

R-DSSGL"ERR3UP~C0UNT 

R-DSSGL~NUMTEST 

R-DSSGL~FSTTEST 

R-DSSGL~LSTTEST 

R-DSSGL SUBTEST 

R-DSSGA'CHKIPPC 

R-DS$GA~LO0PADR 

R-DSSGL~RUNTIM 

R-DSSGL~TIMESEC 

R-DSSGL WAITIM 

R-DS$GL~RADIX 

R-DSSGL~SIZE 

R-DSSGL BUFLEN 

R-DSSGA~8UFPTR 

R-DSSGB~BYTEBUF 

R-DSSGB~TYPECODE 

R-DSSGB~INHIBIT NAMING 

R-DSSGrASCIBUF~ 

R-nSSGT"BUFFER 

R-DSSGT^STRBUF 

R-DSSGL~TERMCHAR 

R-Q ADAPTER 

R~D$$GG phyadr 

R-DSSGL~BUFCNT 

R-CDBSBCOCK 

R-CVTST MBASR 

R-CVTST'MBAMAP 

R-CVTSTUBADPR 

R-CVTST~UBAMAP 

R-DSSGL~CLIBASE 

R-DSSGCfCURYEAR 

R-DSSGT"NEWYEAR 

R-DS$GB"WJOTH 

R-DS$GL"CRD FLAGS 

R-CRDSGC CRD COMMAND DEBUG 

R-DSSAl PS DlSPAfCH VECTORS 

r-dssga~cr5 ds interface 
r-ds$ga"user error^text 
r-dssgl~crd debug 
r-debugSgb Flags 

R-DSSAB BPTlNST 

r-dssaa"bptaddr 
r-debug~lo 
r-debug~hi 
r-symtaB hi 

P-WIDE FfAG 

r-ds$gQ testjd 



r-dssgq bufqwd 



ZZ-ENSAA-7 


.0 Map 
.W0RK.M0DULESDENSAA.EXE; 574 




0RB1:CMUSE 




Value 




Symbols. * . 


000199A8 


R-HELPINFO 




00019908 


R-DSSGA SELECTS 




0001 99EC 


R-DS$GA~SELECTED 




00019BF0 


R-DS$GA~PTABLE 




00019DFA 


r-diag pile name 




00019E49 


R-SYSSSYSROOT 




00019E5C 


R-SYSSD1SK 




00019E6C 


R-DEFSQ DEV 




00019E92 


R-DEF$Q"D]R 




00019F20 


R-EXESGC SPLITADR 




00019F24 


R-DSSGL C00KAS1DE 




0001 9F 28 


R-IOCtGC IRPFL 




0001 9F 30 


R-PFN$AW~SWPVBN 




00019F3A 


R-PFNSAL~:TE 




00019F38 


R-PFN$AL**BAK 




00019F3C 


R-PFN$AW"REFCNT 




00019FA0 


R-DSSGL REMSIZE 


R-PFN$AB_STATE 


00019F44 


R-DSSGL"ACTUAL MEMSJZE 




00019FA8 


R-DS$GL"SET MEBSIZE 




00019FAC 


r-ds$gb mm Enb 




00019F65 


R-LINE COURT 




00019F69 


R-DS$G[ PAGE 




00019Fc1 


R-DE8UG~THE SUCKER 


R-DSSGB_VDS_DEBUG 


00019FE8 


R~QA$W TESTLOOPS 




00019FEA 


R-QASlTSUBTFSTLOOPS 




00019FEC 


R-QA$W"MULTIPLEPASS 




0001A00F 


R-QA$W~BRANCH 




0001A010 


R-QA$W*ERROR NUMBER 




0001A012 


r-qa$w"save Test 




0001AOK 


r-qasw~save~last 




0001A018 


R-QASL SAVED DSA FLAGS 




0001A01C 


r-qa$aDb rouTine'state 




0001A020 


R-QA$AOB~CHECK STATE 




0001 A024 


R-QA*A0B~FlAGS~ 




0C01A038 


R-RMS$FlCE TABLE 




0001A048 


R-DSSGB STOPPING THE TIMER 




0001A049 


R-DS$GA"CHMKVEC 




0001A0AD 


R-DS$GA"BREAKVcC 




0001A051 


R-DSSGA"TrilTVEC 




0001A055 


R-EXESGC SCB 




0001A059 


R-L>S$GA SOFTINT 




0001A16A 


R-DS$GB~QJOAr T 




0001A168 


R-SHOWMEMORYFLAGS 




0001A200 


R-BOOT 




0001A297 


R-APT 




0001A400 


R-INI$BNK 




000IAA02 


R-DSSS0FTIPL5 




0001A40D 


R-DS1USERM0DE 




0001A91E 


R-BEGIN 


R~8tGINJ3LlS$ 


0001A93B 


R-INIT CONTEXT 




0001AA29 


r-cmk$Rffresh 




0001AA97 


R-RCTRLC 
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Value 



0001 AB36 
0001AB3C 
OOOIACOC 
0001AC37 
0001ACEO 
0001 AD04 

0001AD23 

0001AD3A 

0001B2DC 

0001B30D 

0001B412 

0001BAD3 

0001 B6A0 

0001B6D0 

0001 B888 

00018891 

0001 B8A0 

0001B8CC 

0001B8F9 

0001B9ED 

0001BA6C 

0001BB69 

0001BB76 

0001BF46 

0001C07E 

0001C34C 

0001C50A 

000U511 

0001C56B 

0001C572 

0001CSA3 

0001C63C 

0001C7C2 

0001 C92E 

OO0K9D2 

0001CA27 

0001CA76 

0001 CADO 

0001CB68 

000K888 

0001CBBC 

0001CC0F 

0001CC7C 

000UD3B 

0001CD6C 

O001CE1D 

0001CFED 

0001CFF7 

00010008 

0001 P ISA 
0001 D 148 



Symbols 



R-KB CHECK 
R-K8~CHECK APT 
R-DSXSCNTRCC 

R-DSVSEXIT 

R-DSR$CHECK MENUTEST OFF SET 

R-DSR$CHECK~AUTOTEST~OFF~SET 

R-DSX$GETTERM 

R-ANSISOPEN 

R-ANSISCLOSE 

R-ANSISCACHEVBN 

R-ANSISREAD 

R-ANSUGET 

R-GET BLOCK LENGTH 

R-APT~COM 

R-APT~MSG 

R-APT~DONE 

R-EXElSFTAST 

R-SCHSASTDEL 

R-SCHSNEWl.VL 

R-SCH$QAST 

R-DSVSATTACH 

R-SET ABORT 

R-DSXfATVACH 

R-PARSE DEVICE 

R-PT$INTERPRET 

R-PTSEXTRACT 

R-DSVSSH0WDEVICE8 

R-DSV$SHOWDEVKE 

R-DSVSSH0WSELECT8 

R-DSV$SHOWSELECT 

R-DSV$DEATTACH 

R-DSVSSELECT 

R-DSVSDESELECT 

R-INISPTABLE 

R-LOCSADAPTER 

R-LOC$PTABLE 

R-LOCSPTDESC 

R-INStPTABLE 

R-FRSRDWRTLBN 

R-BOOSIMAGE ATT 

R-DSX$GETBUr 

R-0SX$RELBUF 

R-VRSHOW CALLS 

R-DSRtFlR|) USER PC 

R-DSXSCHANNEL 
R-D'JXSSETMAP 

R-DSPSSHOWMBA 
R-DSPSSH0WU81 
R-DSX$SHOwCHAN 
R-DSWHANNEl VfcC 
R-EXE rMODKRML 

r-cmkJastexit 



ZZ-ENSAA-7.0 Map 
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Value 



000101DD 

0001D31A 

00010AC6 

O001D4D9 

00010COC 

O001DC?/ 

O001DC33 

O001DCBC 

0001DCD7 

0001 DD30 

0001 DD5D 

0001DD73 

0001 DD88 

O001D0C0 

0001 DDDD 

0001DEOF 

O001DE21 

0001 DE94 

OOOIDEF^ 

0001DFE4 

O001E03A 

0001E0B3 

0001 E7C0 

O001E84C 

0001E86C 

0001E8C9 

O001EA72 

0001EA88 

0001 EAA4 

0001EC51 

O001ED28 

0001EF53 

0001 F 036 

0001F081 

0001 FAAE 

0001 F 600 

0001F6D6 

0001 F6DF 

0001F6F3 

0001F736 

0001 F7A0 

0001 FA88 

0001FB83 

0001 FBD9 

0001FC29 

0001FC52 

0001FCBA 

0001FE99 

00020063 

00020072 

000200A1 

00020209 



Symbols, . 



R-DSSCLI 

R-CLI ACTION 

R-ACT"C0NT 

R-ACT"DEFAULT DBG 

R-DSX5CANWAIT 

R-EXESWAKE 

R-DSXSWA1TMS 

R-DSXSWAITUS 

R-DSXSWAITUS USOVR 

R-EXESH1BER " 

R-CMKSHIBER 

R-EXESCANTIM 

R-CMKSCANTIM 

R-DSRSSET1MR INI 

R-EXESINSTIMQ 

R-EXESSETIMR 

R-CMKSSETIMR 

R-DS1STIMSRV 

R-OSISTIMFR 

R-CUSRE IN1T 

R-IMI$L050 DEVICE 

R-DSP$CONFTG LOAD 

R-VRSETnJIDTH~ 

R-VRSHOWWIDTH 

R-KB POLL 

R-CMK$RCONSOLF 

R-CMKSTCONSOLE 

R-WRITEVBLK 

R-PREADVBLK 

R-SIZE TERM 

R-DSRSfOAD CRD 

R-DSR$UNLOAD CRD 

R-DSRSRESTORF CRD VECTORS 

R-EXCHANGEDl5PATrH VECTORS 

R-DSRSPRINT typecodP name 

r-filscvtfiTnam 

r-vrsetbase 

r-vrshowbase 

r-vrsetdflt 

r-^/rshowdflt 

r-vrexamine 

r-vrdeposit 

r-vrsetbrk 

r-vrclrbrk 

r-dspsremovebreak 

r-vrshowbrk 

r-cond debug 

R-FETCfl STORE 
R-CMK$S5lPR 
R-FETCH STOR PREG 
R-DSV$DFBUG " 
R-DSXSGPHARD 



R-READVBLK 



ZZ-ENSAA-7.0 Map 
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Value 



O002O23B 

O002OA01 

00020BEF 

O0020C13 

00020EB8 

00020F8? 

00021045 

00021057 

O00210CF 

00021 1A0 

00021 39C 

00021 3D5 

00021 3FC 

00021423 

00021 44A 

00021478 

00021649 

00021 6B5 

00021 7E2 

00021 88F 

00021 8A9 

000218C3 

00021 8D6 

000218FA 

00021917 

00021938 

00021964 

00021A6C 

00021 A7E 

00021 D31 

00021 D74 

00021 D8C 

00021 DAC 

00021 DB8 

00021DC4 

00021DCC 

0002 I DD4 

00021 DDC 

00021DE4 

00021 DEC 

00021DF8 

00021 EOO 

00021E0C 

00021E38 

00021E59 

00021E64 

00021E6C 

00021 E 74 

00021 E7C 

O002202'\ 

00022060 

00022068 



Symbols.. , 



R-DSP$GEN PTABLES 

R-DSX$DIRECTORY 

R-DSVSD1RECT0RY 

R-D1SPATCH 

R-DSXSENDPASS 

R-DS CLEANUP 

R-DSXSDOSUMMARY 

R-VRSUMMARY 

R-VRSHOWSTATUS 

R-DSXSLOAD 

R-DSXSSERVICE DISPATCHER 

R-DSXSERRSOFT" 

R-DSXSERRHARD 

R-DSXSERRPREP 

R-DSXSERRDEV 

R-DSXSERRSYS 

R-DS TESTID 

R-DS~ERRSUP 

R-DSRSCOMPLETJON 

R-EXESSETEF 

r-exesclrep 

r-schspostef 

r-exe$readef 

r-exeswaitfr 

r-exesuflor 

r-exeswfland 

r-cond handlr 

r-dsx$Printsig 

r-dsxsprintsigi 

r-find userpc 

r-tst$rchk 

r-exe mchk 

r-exf~krnlstk 

r-exe~power 

r-exe"opcdec 

r-exe~opccus 

r-exe5r0prand 

r-exe radrmod 

r-exf$acviolat 

r-exe transl 

r-exe"c0mpat 

r-exe~arith 

r-exe$break 

r-exestbit 

r-exe unexpjnt 

r-exe~chmk 

r-exe~chme 

r-exe~chms 

r-exe"chmu 

R-DSXfSETPRIEXV 

R-EXESFAO 

R-EXESFAOL 



R-EXE_ROPRAND 

R-EXE ACCVIO 

R-MMG5PA6EFAULT 



R-EXE 
R-EXE' 



BREAK 
'TBIT 



ZZ-ENSAA-7 


.0 Map 




DRB1 :CMUSE 


.W0RK.M0DULESDENSAA.EXE; 574 


2 


Value 




Symbols. . . 


00022384 


R-VRSETFLG 




000223A7 


R-VRCIRFLG 




000223BB 


R-VRSETEF 




000223DC 


R-VRCLRFF 




000223F0 


R-VRSHOWFLG 




00022491 


R-VRSHOWEF 




000224FC 


R-FILSOPENFILE 




00022602 


R-FILSCACHE.1NIT 




00022676 


R-F1LSCACHE TRUNC 




0002274D 


R-FIL$M0UNT~ 




000227DD 


R-FILSF1NDFILID 




00022AE4 


R-FILSRDCHKFILHDR 




00022BBC 


R-FJLSURITEVBN 




00022BC3 


R-FIl$READVBN 




00022C7A 


R-FIL$STATBLK 




00022D44 


R-DSXSHELP 




000234E9 


R~DSR$KEY EQUAL 




00023654 


R-IOC$IOPuSl 




0002379C 


R-10CSQNXTSEG 




000237A8 


R-IOCSQNXTSEG1 




00023806 


R-IOC$WAKACP 




00023952 


R-IOCSDIRPOST1 




00023A12 


R-DSVSSETLOAD 




00023A8E 


R-DSVSSHOWLOAD 




00023AAE 


R-DSRS1FL0ADDEV 




00023AD8 


R-DSVSRUN 




00023A09 


R-DSV$L0AD 




00023BF9 


R-DSXSESCAPE 




00023COE 


R-DSXSBGNSUB 




00023CAC 


R-DSX$ENDSUB 




00023E1D 


R-DSXSCKLOOP 




00023E5D 


R-DSXSJNLOOP 




00023E84 


R-CHR$MCHK 




00023EEB 


R-DSR$FAULT CLEAR 




00023EEF 


R-EXE$ALLOCBUF 




00023EF3 


R-EXE$ALLOCCEB 




00023EF7 


R-EXESALL0CJ1B 




00023F 00 


R-EXESALLOCIRP 




00023F04 


R-EXE$ALLOCPCB 




00023F0C 


R-EXESALLOCPQB 




00023F15 


R-EXE$ALLOCTGE 




00023F4F 


R-EXESALONONPAGED 




00023FB6 


R-EXESALLOCATE 




00023FDE 


R-EXE$DEANONPAGED 




0002A051 


R-EXE$DEALLOCATE 




000240A7 


R-MEMPOOLSINIT 




000241 7C 


R-MAPMEM 




0002432B 


R-MAPMEMSIOSPACE 




00024426 


R-MAPFREE 




000244C2 


R-CRDSEXPREG 




000244DF 


R-EXESEXPREG 




000245E3 


R-EXE$CNTREG 





8 
26-JUL-1984 09:25 



Fiche 1 Frame D8 

VAX-11 Linker V3A-18 



Sequence 94 



Page 42 



ZZ-ENSAA-7.0 Map 

DRB1: [MUSE. WORK. MODULES] ENSAA.EXE; 574 



E 8 

26-JUL-1984 09:25 



Fiche 1 Frame ES 

VAX-11 Linker V3A-18 



Sequence 95 



Page 43 



Value 



00O246DO 

00O246DE 

00O246F8 

00024708 

00024719 

0002472B 

00024801 

00024843 

0002484D 

00024851 

00O2489F 

000248C9 

000248E2 

00O2497C 

00024A7F 

00024B70 

00O24C99 

00O24D4C 

00024E28 

00024E76 

00024EAA 

00024EBD 

00O24ECA 

00O24ECC 

00O24ECD 

00024EEC 

00O24F0B 

00O24F16 

00O24F44 

00024F49 

00024F40 

00O24F51 

00O24F55 

0OO24F59 

00O24F5D 

00O24F61 

0OO24F65 

00024F69 

00024F6D 

00024F71 

00O24F75 

00O24F79 

00024F7D 

00024F81 

00024F85 

00024F89 

00O24F8D 

00O24F91 

00O24F95 

00024F99 

00O24F9D 

00O24FA1 



R-DSXSMMON 

R-DSXSMMOFF 

R-DSRSMMENABLE 

R-CMKSMMENABLE 

R-EXESSETPRT 

R-CMKSSETPRT 

R-RPTEADR 

R-MMGS10L0CK 

R-MMGSUNLOCK 

R-DSXSMAPDBGBLOCK 

R-DSXSFREEDBGSYM 

R-MAP DEBUGGER 

R-UNMSP DEBUGGER 

R-1NISRD0NLY 

R-ODSSOPEN 

R-ODSSGET 

R-ODSSREAD 

R-DSP5C0NFIG ADP 

R-MAPSIOSPACE 

R-FETCH LONG 

R-IOCSPORGDATAP 

R-U8ADP CPU 

R-UBA$lRlTJAL 

R-UBASUNEXJNT 

R-IO$TESTCSR_L 

R-IOSTESTCSR W 

R-IOGENSCONN VEC 

R-QIOCLEAN CPU 

R-ONLY SCB" 

R-SCBVECTOR 000 

R-SCBVECTOR~038 

R-SCBVECTOR~03C 

R-SCBVECTOR~05O 

R-SCBVECTOR~054 

R-SCBVECTOR"058 

R-SCBVECTOR*"05C 

R-SCBVECTOR~060 

R-SCBVECTOR~064 

R-SCBVECTOR.068 

R-SCBVECTOR.06C 

R-SCBVECTOR 070 

R-SCBVECTORI074 

R-SCBVECTOR 078 

R-SCBVECTOR.07C 

R-SCBVECTOR 080 

R-SCBVECTOR~0C4 

R-SCBVECTOR~0C8 

R-SCBVECTOR~0CC 

R-SC8VECTOR~0D0 

R-SCBVECTOR~0D4 

R-SCBVECTOR~0D8 

R-SCBVECTOR~0DC 



Symbols. .. 



R-1NJ$WRITABLE 



ZZ-ENSAA-7 


.0 Map 

.W0RK.M0DULESDENSAA.EXE; 574 




0RB1:CHUSE 




Value 




Symbols... 


00024FA5 


R-SCBVECTOR 0E0 




00024 FA9 


R-SCBVECTOR~0E4 




0OO24FAD 


R-SCBVECT0R"0E8 




00024FB1 


R-SCBVECTOR~0EC 




00024FB5 


R-SCBVECTOR~0FO 




00024FB9 


R-SCBVECTOR"0F4 




00024FBD 


R-SCBVECTOR~0F8 




00024FC1 


R-SCBVECTOR"0FC 




0OO24FCB 


R-ONLY CLOCK JNIT 




00024FDO 


R-DSX$BETDATS 




00025046 


R-DSXSGETVIELD 




000250A8 


R-OSXSGE'f ADDRESS 




000250F2 


R-DSX$6ETL06ICAL 




000251 C4 


R-DSXSGETSTRING 




000254BA 


R-DSXSSUPERPARSE 




0OO25AC1 


R-DSXSPARSE 




0002568C 


R-SCANSSYMBOl 




0002568E 


R-DSSGT VSYMBOL 




0002569E 


R-SCANSflLPHA 




000256AO 


R-DSSGT VALPHA 




000256B0 


R-SCANS^LPHANUM 




000256B2 


R-DSSGT VALPHANUM 




000256C2 


R-SCANSFlLE 




000256C4 


R-DSSGT VFILE 




000256D4 


r-scan$5pace 


R-SCAN$SP^ 


000256D6 


R-DSSGT VSPACE 




000256E8 


R-SCANS5PANC 




00025703 


R-SCANSCOMPARE 




00025725 


R-DSSGT VHEX 




00025746 


R-SCANSDECIMAL 




0O02574B 


R-SCANSOCTAL 




00025750 


R-SCANSBINARY 




00025755 


R-SCANSHEX 




00025758 


R-SCANSNUMERIC 




0OO257F4 


R-SCANSSEARCHLIST 




00025843 


R-SCANSDEVICE 




0002589F 


R-BREAKUP FILE 




00025938 


R-DSXSL0A5PCS 




00025942 


R-DSV$INITPCS 




00025952 


R-DSVSSETPAGE 




00025979 


R-DSVSSHOWPAGE 




00025999 


R-DSXSTYPE OUT 




0OO25COD 


R-DSX$PRINT 




00025C5B 


R-DSXSPRINTS 




00025C68 


R-DSX$PRINTX 




00025C75 


R-DSX$PRINTB 




00025C8D 


R-DSXSPRINTF 




00025CA2 


R-DSXSPRINTI 




00025DD4 


R-DSX$CVTREG 




00025F90 


R-QASNORMAL START 




0002605B 


R-QA$MULTIPUE PASS 




000261 2A 


R-QASLOOP ON TEST 





F 8 

26-JUL-1984 09:25 



Fiche 1 frame F8 

VAX-11 Linker V3A-18 



Sequence 96 



Page 44 



ZZ-ENSAA-7.0 Map 

DRB1: [MUSE, WORK. MObULESDENSAA.EXE ;574 



G 6 
26-JUL-1984 09:25 



Fiche 1 Frame 68 

VAX-11 Linker V3A-18 



Sequence 97 



Page 45 



Value 



0002622C 

00O2634C 

00026428 

000264D5 

00026560 

0002660E 

00O266E1 

0002687F 

000268FF 

00026A08 

00O26B94 

00O26BDF 

00026C33 

0OO26CF*, 

000271A0 

00O271AF 

00O274E6 

00027574 

000275B9 

000275CC 

00027645 

00027658 

000277F7 

00027889 

000278D8 

00027928 

00027937 

0OO279BB 

00O27C43 

00027CC5 

00027D62 

00027DF1 

00O27E4B 

00027F71 

00028067 

00028177 

00O281E0 

00028203 

000282B7 

CZ028Z72 

00028418 

00028431 

000284D0 

000284DA 

00028621 

0002863C 

00028645 

0002867D 

00028684 

00028A4C 

00028A68 

00028E21 



Symbols.. 



r-qasloop on subtest 
r-qa$run Backwards 
r-vrsetqS 
r-vrshowqa 
r-dsxsbranch 
r-qasadd forced error 
r-qa$add~qa error 
r-qa$find user call frame 

R-QASMA1N" 

R-QASPR1NT FORCED ERRORS 

R-EXESQIO " 

R-QIO$INITIALIZE 

R-QIOSCLEANUP 

R-QIO$ADDUNIT 

R-EXESMAXACMODE 

P-BUGSCHECK 

R-IOGENSCNTRL, INI 

R-QIO$DEALL0CATE 

R-EXESPWRTIMCHK 

R-DSRSALLOCATE PSEUDO RPB 

R-DSR$DEALLOCATE pseuBo_rpb 

R-DSXSCHECK SUPPORT 

R-RMS$ERROR" 

R-RMSSLOAD XAB 

R-RMS$ALLOC CACHE 

R-RMSSINJT 

R-RMSSCLEANUP 

R-RMSSOPEN 

P-RMSSCONNECT 

R-RMSSGET 

R-RMSSREAD 

R-RMSSDISCONNECT 

R-RMS$CLOSE 

R-RT1U0PEN 

R-RT11SGET 

R-RT1UREAD 

R-DSX$INITSC8 

R-CMKSINITSCB 

R-DSXSSETVEC 

R-DSX$CLRVEC 

R-DSX$SETIPL 

R-CMK$SETIPL 

R-SCRIPT5INJT 

R-SCRIPTSOPEN 

R-SCRIPT$FLUSH 

R~SCRIPT$ST0P 

R-SCRIPTSCONT 

R-DS SUPERLINE 

R-DS~GETLINE 

R-DSR$CHECKLOAD 

R-DSVSSHOWMEMORY 

R-VRSETMEM 



ZZ-ENSAA-7.0 Mao 

DRB1: [MUSE. WORK. MODULE SlENSAA.EXE; 574 



H 8 
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F f che 1 Frame H8 

VAX-11 Linker V3A-18 



Sequence 98 



Page 46 



Value 



00028E7F 
00O28EDO 
00029228 
0002924E 
00029301 
00O2935B 
00O293AD 
000293B5 
000293B7 

000293B8 

000293BC 

000293C3 

0002930D 

00O293E4 

000293EB 

00029600 

00029700 

00029714 

00029715 

00029716 

00O297F1 

00O298A2 

0OO2A00O 

0002AOC4 

0002A250 

00O2A2E8 

0002A600 

0002AA72 

0002AADC 

0002AAE7 

0002AAF2 

0002AAFD 

0002AB08 

0002 AB2 5 

0002ABDC 

0002AD08 

0002AD19 

0002AD2A 

0002AD31 

0OO2AD35 

0002AD42 

0002AD49 

0002AD4D 

0002A05A 

0002A061 

0002AD73 

0002AE78 

0002AEA8 

0002AEDB 

0002AEEB 

0002AF10 



Symbols. . . 



R-VRSTART 

R-VRRESTART 

R-DSXSABORT 

R-VRABORT 

R-VRSUPPORT 

R-VRSHOWSECTIONS 

R-OSSENTRY 

R-MTSCHECK ACCESS 

R-ERLSDEVICERR 

R-EXE$SNDEVMSG 

R-EXESBUFFRGUOTA 

R-SCHSLOCKW 

R-SCH$UNLOCK 

R-LIBSCVT DTB 

R-LJB$CVT"OTB 

R-LIBSCVT"HTB 

R-SCB IMAGE 

R-BOOlAL VECTOR 

R-EXE$GB~CPUTYPE 

R-EXE$GB~ADPTYPE 

R-BOO$QlS 

R-BOO$MAP 

R-800$DRIVER 

R-UD INIT 

R-DS$GB UDA50 INN 

R-UDA RESPONSE 

R-TS1T DRIVER 

R-TU IRIT 

R-BOS$SELECT 

R-ACPSACCESS 

R-ACPSDEACCESS 

R-ACPSMODIFY 

R-ACPSMOUNT 

R-ACPSREADBLK 

R-ACPSWRITEBLK 

R-EXESASSIGN 

R-IOCSGETBYTE 

R-I0CSPUT8YTE 

R-iOC$INJTflUFWIND 

R-IOCS10VFRUSER 

R-JOf$MOVFRUSER2 

R-'OC$MOVFRUSER1 

R-IOCSMOVTOUSER 

R-JOr$M0VT0USER2 

R-IOC$MCVTOUSFR1 

R-IOCSFILSPI 

R-EXEICANCEL 

R-COMSDELATTNAST 

R-COM$FlUSHATTNS 

R-COMSPOST 

R-COMSDRVDEALMEM 

R-COMSSETATTNAST 



R-ERLSDEVJCTMO 
R-EXES8UFQU0PRC 



R-ERLSRELEASEMB 
R-SCHSWAKE 



R-ACPSACCESSNET 



ZZ-ENSAA-7.0 Map 

DRB1: CMUSE.W0RK.M0DULES3ENSAA.EXE; 574 



I 8 
26-JUL-1984 09:25 



Fiche 1 Frame 18 

VAX-11 Linker V3A-18 



Sequence 99 



Page 47 



Value 



0002AFD5 

00028076 

0002B26C 

0002B386 

0002B446 

0002B4DF 

0002B59A 

0002B5B4 

0002B5D4 

0002B5EB 

0002B5F4 

0002B5F9 

0002B618 

0002B65C 

0002B678 

0002B700 

0002B708 

0002B70C 

0002B710 

0002B718 

0002B72F 

0002B760 

0002B76A 

0002B7AD 

0002B7B7 

0002B7C1 

0002B7CA 

0002B7F5 

0002B835 

0002B868 

0002B8B8 

000288BC 

0002B8F5 

0002B92F 

00028941 

0002B9SF 

0002B963 

000289C5 

0002B9C6 

0002B9E8 

0002BA0C 

0002BA21 

0002BA55 

0002BA7C 

0002BA81 

0002BB73 

0002BB77 

0002BBAC 

0002BC20 

0002BC47 

0C028CDA 

0002BD16 



R-EXESASCTIM 

R-EXESBINTIM 

R-EXE*NUMTIM 

R-F.XESDASSGN 

R-EXESALLOC 

R-EXESDALLOC 

R-DSXSMOUNT 

R-DSX$0ISM0UNT 

R-DRSINIT 

R-DRS1N1TIAL 

R-EXESIOFORK 

R-EXESFORK 

R-EXESFORKOSPTH 

R-EXE$GETTIM 

R-EXE$GTCHAN 

R-IOCSAL SYSUCB 

R-10C$GL'DEVLIST 

R-IOC$GLlADPLIST 

r-iocsgl dptlist 

r-ioc$caRcelio 

r-10c$diag3ufjll 

R-IOCSKEi SCHAN 

R-IOCSRELCHAN 

R-10C$REQSCHANH 

R-IOCSRPQSCHANL 

R-IOCSRtQPCHANH 

R-IOCSREQPCHANL 

R-JOCSREQCOM 

R-IOCSINITIATE 

R-JOCSRELDATAP 

R-JOC$REQDATAPNW 

R-IOCSREQDATAP 

R-IOCSRELMAPREG 

R-IOCSREQMAPREG 

R-IOCSAL TUBAMAP 

R-JOCSALOUBAMAPN 

R-JOCSALOUBAMAP 

R-IOC$RETURN 

R-IOCSWFIKPCH 

R-IOCSWFIRLCH 

R-IOCSALLOSPT 

R-IOCSCVT DI-VNAM 

R-IOC$FFCRAN 

R-IOCSSEARCHDEV 

R-IOCSSEARCHGEN 

R-IOCSUNLOCK 

R-IOC$VERIFYCHAN 

R-IOCSAPPLYECC 

R-J0C5CVTL0GPHV 

R-IOCSMAPVBLK 

R-IOCSUPDATRANSP 

R-IOC$SENSEDISK 



Symbols.. . 



-J 







J 8 


ZZ-ENSAA-7 


.0 Map 

.WORK.MODULE S3ENSAA.EXE; 574 


Fichc 


0RB1:EMUSE 


26-JUL-1984 09:25 


Value 


Symbols.. . 




0002BD24 


R-IOCSLOADMBAMAP 




0002BD6E 


R-10CSL0ADUBAMAPA 




0002BD85 


R-IOCSLOADUBAMAP 




0002BE01 


R-IOCSPTETOPFN 




0002BE24 


R-MBASINT 




0002BECF 


R-MBASINITIAL 




0002BED8 


R-DSXSPROBE 




0002BF4B 


R-ACC$HANDLER 




0002BF90 


R-EXESONEPARM 




0002BF96 


R-EXESZEROPARM 




0002BF9C 


R-EXESMODIFY 




0002BFA2 


R-EXESREAD 




0002BFAB 


R-EXESWRITE 




0002BFCE 


R-EXESREADLOCK 




0002BFD1 


R-EXE$WRITELOCK 




0002BFD4 


R-EXESMODIFYLOCK 




0002BF07 


R-EXESMODIFYLOCKR 




0002BFE1 


R-EXESREADLOCKR 




0002BFE8 


R-EXESWRITELOCKR 




0002C05E 


R-EXESREADCHK 




0002C064 


R-EXESWRJTECHK 




0002C072 


R-EXESREADCHKR 




0002C09C 


R-EXE$WRITECHKR 




0002C0D1 


R-EXESSETCHAR 




0002C0EF 


R-EXE$SETMCDE 




0002C0FF 


R-EXESSENSEMODE 




0002C127 


R-EXE$CARRIAGE 




0002C1 77 


R-VMSSGIO 




0002C30A 


R-EXESABORTIO 




0002C317 


R-EXE$FJNISHJOC 




0002C319 


R-EXESFIMJSH10 




0002C331 


R-EXESQIODRVPKT 




0002C335 


R-EXE$ALTQUEPKT 




0002C357 


R-EXE$QIOACPPKT 




0002C369 


R-EXESQIORETURN 




0002C372 


R-EXE$INSJOQ 




0002C38D 


R-EXE$INSERTIRP 




0002C3A8 


R-IOCSINI TDRV 




0002C3AE 


R-IOC$REINITDRV 




0002C448 


R-EXESUNWIND 




0002C600 


R-AX BUFF R-PHD BASE 




0002C678 


R-PCB BASE 




0002C800 


R-DS$XX..JIB 




0002C86C 


R-DSSAX AR8 




0002C8E4 


R-DS$AX"SOFTPCB 




0002CA00 


R-SCB BSSE 




00020200 


R-SCB'UNKJNT 




0002DA00 


R-STArK BASE 




0002F000 


r-kstkpTr 




0002*800 


R-ISTKPTR 




0002FE00 


R-ESTKPTR 




00030400 


R-SSTKPTR 





> 1 Frame J8 

VAX-11 Linker V3A-18 



Sequence 100 

Page 
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ZZ-ENSAA-7.0 Map 

DRB1: [MUSE. WORK •MODULESDENSAA.EXE; 574 



K 8 
26-JUL-1984 09:25 



F iche 1 Frame K8 Sequence 101 

VAX-11 Linker V3A-18 Page 49 



Value 



00030AOO 
00080000 
00200000 
00660000 
01000000 
02000000 
03000000 
40000000 
?rFEDEB0 
7FFEDEF0 
7FFEE188 
7FFEE1C8 
7FFEE218 
7FFEE230 
7FFEE248 
7FFEE250 
7FFEE3F8 
80000000 
80OO00C8 
80000110 
80000208 



R-POPT BASE 
DEV$R MNT 
DEV$M~DMT 
IOCSlCDIAGPID 
DEVSM'FOR 
DEV$M"SWL 
DSSGK'SID 
DEV$M~RCK 
SYSSCRELOG 
SYSSDCLEXH 
SYSSPUT 

sysscreate 

syssspace 

syssparse 

sysssearch 

sysssetddir 

syssgetsyi 

devsm wck 

sysscRetva 

syssdeltva 

sysssetexv 



Key for special characters above: 
+ --.-,---. „-«..+ 

! * - Undefined 

I U - Universal 

! R - Relocatable 

! x - External 



Symbols. . . 

R-USTKPTR 



I0C$KJ0SPACE 



L 8 

ZZ-ENSAA-7.0 Map Fiche 1 Frame L8 Sequence 102 

DRB1:[MUSE.WORK.MODULES3ENSAA.EXE;574 26-JUL-1984 09:25 VAX-11 Linker V3A-18 Page 

+ .. — ... — + 

! Jmage Synopsis ! 
»..—. + 

Virtual memory allocated: 00010000 0002C7FF 0001C800 (116736. bytes, 228. pages) 

Stack size: . . 20. pages 

Image header virtual block limits; 1. 1- ( 1. block; 

Image binary virtual block limits: 2. 229. ( 228. blocks) 

Image name and identification: ENSAA 7.0 

Number of f i les: 2. 

Number of modules: 91. 

Number of program sections: 18. 

Number of global symbols: 1025. 

Including undefined count of: 2. 

Number ot cross references: 2563. 

Number of image sections: 6. 

User transfer address: 000293AD 

Imaqe type: EXECUTABLE. 

Map format: FULL WITH CROSS REFERENCE in file DRB1 : [MUSE .WORK. MODULESJENSAA. MAP; 574 

Estimated map length: 321. blocks 

+- — -.—.-.—.—-—--«—.+ 

! Link Run Statistics ! 
+— -. — + 

Performance indicators Page Faults CPU Time Elapsed Time 

Command processing: 88 00:00:00. 49 00:00:00.99 

Pass 1: 372 00:00:10.81 00:00:29.96 

Allocation/Relocation: 77 00:00:00.64 00:00:01.07 

Pass 2: 233 00:00:11.18 00:00:26.01 

Map data after object module synopsis: 16 00:00:07.08 00:00:07.60 

Symbol table output: 00:00:00.02 00:00:00.16 

Total run values: 786 00:00:30.22 00:01:05.79 

Using a working set limited to 1850 pages and 702 pages of data storage (excluding image) 

Total number object records read (both passes): 10796 

of which 5398 were in libraries and 3294 were DEBUG data records containing 1234231 bytes 

Number of modules extracted explicitly = 86 

with 5 extracted to resolve undefined symbols 

? library searches were for symbols not in the library searched 

A total of global symbol table records was written 

i INK/MAP=WORK$ : ENSAA; 574/CROSS/FULL/N0PEBUG/N0TRACE8ACK/N0SYSSHR/EXE=W0RK$: ENSAA. t XL; 574 DRB1 : CDS. WORKDENSAA. OPT; /OPTIONS 
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M 8 

ZZ-ENSAA-7.0 VAX DIAGNOSTIC Fiche 1 Frame M8 Sequence 103 

VAX DIAGNOSTIC 



IDENTIFICATION 

PRODUCT CODE: ZZ-ENSAA~7.0 

PRODUCT TITLE: VAX DIAGNOSTIC SUPERVISOR 

PRODUCT DATE: 18-JUN-1984 

DEPARTMENT: BASE SYSTEM DIAGNOSTIC ENGINEERING 



COPYRIGHT (C) 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED, 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



N 8 

ZZ-ENSAA-7.0 *** ACPFDT ACP function dispatch 27-JUL-1984 F jche 1 Frame N8 Sequence 104 

ACPFDT *** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 Macro V03-01 Page 
able of contents 

(1) 87 ACCESS AND CREATE ACP FUNCTION PROCESSING 

il) 136 DEACCESS ACP FUNCTION PROCESSING 

<1> 190 DELETE AND MODIFY ACP FUNCTION PROCESSING 

(1) 2?.? MOUNT ACP FUNCTION PROCESSING 

(1) d60 READ AND WRITE SLOCK ACP FUNCTION PROCESSING 
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03 
03 
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02 
02 
02 
02 
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0000 
0000 
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0000 
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0000 

0000 
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0000 

0000 

0000 

0000 
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0000 
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0000 
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19 
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.TITLE ACPFDT *** ACPFDT ACP function dispatch 

JDENT /06-03/ 

.PSECT SEP, SHR, EXE, WRT, LONG 

COPYRIGHT (c) 1977, 1978, 1979, 1980 * 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



OF ITS 



D. N. CUTLER 22-NQV-76 
MODIFIED BY: 

V0006 ACG0100 Andrew C. Goldstein, 3-Jan-1980 17:19 
Permit partial dismount of volume sets 

V0005 RIH0036 Richard I. Hustvedt 02-Nov-1979 

Set IRP$V_FILACP for file acp requests and bump DIO count 

V0004 RIH0033 Richard I. Hustvedt 16-Oct-1979 15:55 

Change PCBSW BYTCNT to JIBSL BYTCNT; PCB$W,BYTLM to JIB$L_BYTLM; 
PCBSW.FILCNT'to JIB$W_FJLCNTT 

V0003 ACG0047 Andrew C. Goldstein, 8 T Aug-1979 17:23 
Interface change to protection check routines 

V0002 ACG23542 Andrew C. Goldstein, 4-May-1979 14:43 
Check LBN of mapped virtual I/O against UCB$L_MAXBLOCK 



02 



03 



Dave Butenhof 13-may-1980, Version 5.4 

Modify VMS V2.0 source for Supervisor environment. 



Dave Butenhof, 08-oct-1980, version 6.1 
Changed some word offsets to longword. 



* * 



ACP FUNCTION DECISION TABLE ACTION ROUTINES 
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*** ACPFDT ACP function dispatch 27-JUL-1984 Fiche^l frame 

*** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 

1-APR-1980 10:25:33 
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00000000 
00000004 
00000008 

oooooooc 

00000010 
00000014 



00000016 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 



MACRO LIBRARY CALLS 



SCC8DEF 
SDEVDEF 

SDYNDEF 

SJPLDEF 

SIODEF 

SJRPDEF 

$JIBDEF 

SPCBDEF 

$PRDEF 

SPRVDEF 

SUCBDEF 

SVADEF 

SVC8DEF 

SWCBDEF 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 



P1=0 
P2-4 
P3=8 
P4 = 12 
P5 = 16 
P6=20 



MAXIMUM NUMBER OF ACP DESCRIPTORS 



MXDESCR=5+17 



DEFINE CCB OFFSETS 

DEFINE DEVICE CHARACTERISTICS BITS 

DEFINE STRUCTURE TYPE CODES 

DEFINE INTERRUPT PRIORITY LEVELS 

DEFINE I/O FUNCTION CODES 

DEFINE IRP OFFSETS 

DEFINE JIB OFFSETS 

DEFINE PCB OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE PRIVILEGE BITS 

DEFINE UCB OFFSETS 

DEFINE VIRTUAL ADDRESS FIELDS 

DEFINE VCB OFFSETS 

DEFINE WCB OFFSETS 



FIRST FUNCTION DEPENDENT PARAMETER 
SECOND FUNCTION DEPENDENT PARAMETER 
THIRD FUNCTION DEPENDENT PARAMETER 
FOURTH FUNCTION DEPENDENT PARAMETER 
FIFTH FUNCTION DEPENDENT PARAMETER 
SIXTH FUNCTION DEPENDENT PARAMETER 



; MAX I MUM NUMBER OF ACP DESCRIPTORS 



i 
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ACCESS AND CREATE ACP FUNCTION PROCESSIN 27-JUL-1984 Fiche 1 Frame D? Sequence 

*** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 Macro V03-01 Page 

ACCESS AND CREATE ACP FUNCTION PROCESSIN 1-APR-1980 10:25:33 DMA1 :[SYS0.SYSMAINTJACPFDT.MAR;49 



"1 



3 

(1) 



-2 
-1 
02 
03 



50 0000'8F 3C 
OOOOOOOO'EH 16 



0000 
0000 
0000 

oooo 

0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

COOO 
OOOO 
OOOO 
OOOO 
OOOO 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0005 



87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

118 

120 

.1 

,2 



.SBTTL ACCESS AND CREATE ACP FUNCTION PROCESSING 

ACPSACCESS - ACCESS AND CREATE ACP FUNCTION PROCESSING 
ACPSACCESSNET - ACCESS (CONNECT) TO NETWORK FUNCTION PROCESSING 

***TBS*** 



INPUTS: 

RO = 

R1 : 

R2 : 

R3 : 

R4 : 

R5 = 

R6 = 

R7 : 

R8 : 
R9 : 

R10 
R11 

AP : 

OUTPUTS: 

***T8S*** 



.ENABL 
ACPSACCESS:: 
ACPSACCESSNET: 

MOVZWL 
JS8 



SCRATCH. 

■ SCRATCH. 
: SCRATCH. 

: ADDRESS OF I/O REQUEST PACKET. 

• CURRENT PROCESS PCO ADDRESS. 

• ASSIGNED DEVICE JCB ADDRESS. 

■ ADDRESS OF CCB. 

: I/O FUNCTION CODE BIT NUMBER. 

: FUNCTION DECISION TABLE DISPATCH ADDRESS. 

: SCRATCH. 

= SCRATCH. 

= SCRATCH. 

: ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 



LSB 



#SS$ FILNOTACCRO 
L A EXE$ABORTIO 



ACCESS AND CREATE ACP FUNCTION PROCESSING 
ACCESS (CONNECT) TO NETWORK FUNCTION PROCES 

ROUTINE NOT IMPLEMENTED IN S/A 

ABORT THIS QIO 
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DEACCESS ACP FUNCTION PROCESSING 27-JUL-1984 Fichel Frame E? Sequence 

*** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 Macro V03-01 Pg9?„ 
DEACCESS ACP FUNCTION PROCESSING 1-APR-1980 10:25:33 DMA1 :CSYS0.SYSMAINTJACPFDT«MAR;49 



4 

(1) 



02 
03 



50 000O'8F 3C 
00000000' EF 16 



OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
COOB 
0008 
OOOB 
OOOB 
OOOB 
0008 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
OOOB 
0010 



136 
137 
138 
139 

no 

141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
.1 
.2 



.SBTTL DEACCESS ACP FUNCTION PROCESSING 
ACPSDEACCESS - DEACCESS ACP FUNCTION PROCESSING 
***T8S*** 



INPUTS: 

RO = 

R1 = 

R2 : 

R3 = 

R4 : 

R5 : 

R6 = 

R7 : 

R8 : 

R9 ■< 

R10 

R11 

AP : 

OUTPUTS: 

***TBS*** 



ACPSDEACCESS:: 

M0V2WL 
JSB 



SCRATCH. 

SCRATCH. 

SCRATCH. 

ADDRESS OF I/O REQUEST PACKET. 
: CURRENT PROCESS PCB ADDRESS. 
• ASSIGNED DEVICE UCB ADDRESS. 
: ADDRESS OF CCB. 
= I/O FUNCTION CODE BIT NUMBER. 

■ FUNCTION DECISION TABLE DISPATCH ADDRESS. 
= SCRATCH. 

= SCRATCH. 
= SCRATCH. 

■ ADDRESS OF ?1RST FUNCTION DEPENDENT PARAMETER 



#SS$ FILNOTACCRO 
L A EXE$ABORTIO 



DEACCESS ACP FUNCTION PROCESSING 
FUNCTION NOR SUPPORTED BY SUPERVISOR 
ABORT THIS QIO 
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DELETE AND MODIFY ACP FUNCTION PROCESSIN 27-JUL-1984 Fiche 1 Frame F9 Seguence 

*** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 Macro V03-01 Page 

DELETE AND MODIFY ACP FUNCTION PROCESSIN 1-APR-1980 10:25:33 DMA1 :CSYS0.SYSMAINTJACPFDT.MAR;49 



5 

(1) 



02 
03 



50 000Q'8f 3C 
OOOOOOOO'EF 16 



0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
C016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
001B 



190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
.1 
,2 



.S8TTL DELETE AND MODIFY ACP FUNCTION PROCESSING 
ACPSMODIFY - DELETE AND MODIFY ACP FUNCTION PROCESSING 
***TBS*** 



INPUTS: 

RO = 

R1 : 
R2 : 

R3 s 

R4 : 

R5 : 

R6 : 

R7 : 

R8 : 

R9 : 

R10 
R11 
AP ■ 

OUTPUTS: 

***TBS*** 



ACPSMODIFY:: 

MOVZWL 
J SB 



: SCRATCH. 

SCRATCH. 

: SCRATCH. 

• ADDRESS OF I/O REQUEST PACKET. 

■ CURRENT PROCESS PCB ADDRESS. 

■ ASSIGNED DEVICE UCB ADDRESS. 

■ ADDRESS OF CCB. 

■ I/O FUNCTION CODE BIT NUMBER. 

: FUNCTION DECISION TABLE DISPATCH ADDRESS. 

• SCRATCH. 
= SCRATCH. 
= scratch 

"ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 



#SS$ FILNOTACCRO 
L A EXE$ABORTIO 



.•DELETE AND MODIFY ACP FUNCTION PROCESSING 
; ROUTINE NOT SUPPORTED BY SUPERVISOR 
; ABORT THIS QIO 



ZZ-ENSAA-7.0 

ACPFDT 

l>6-03 



MOUNT ACP FUNCTION PROCESSING 

*** ACPFDT ACP function dispatch 
MOUNT ACP FUNCTION PROCESSING 



G 9 

27-JUL-1984 Fiehe 1 Frame 
27-JUL-1984 14:59:08 
1-APR-1980 10:25:33 
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02 
03 
-8 



50 0000'8F 3C 
00000000'EF 16 



0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

C021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0021 

0026 

002C 



222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
.1 
.2 
258 



.SBTTL MOUNT ACP FUNCTION PROCESSING 
ACPSMOUNT - MOUNT ACP FUNCTION PROCESSING 
***TBS*** 



INPUTS: 

RO : 

R1 : 

R2 = 

R3 : 

R4 : 

R5 : 

R6 : 

R7 : 

R8 : 

R9 : 

R10 
R11 
AP i 

OUTPUTS: 

***TBS*** 



ACPSMOUNT;: 

MOVZWL 

JSB 

.DSABL 



SCRATCH. 

SCRATCH. 

SCRATCH 
■ ADDRESS'OF I/O REQUEST PACKET. 
= CURRENT PROCESS PCB ADDRESS. 

• ASSIGNED DEVICE UCB ADDRESS. 
: ADDRESS OF CCB. 

• I/O FUNCTION CODE BIT NUMBER. 

• FUNCTION DECISION TABLE DISPATCH ADDRESS. 
: SCRATCH. 

= SCRATCH. 
= SCRATCH. 
: ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 



*SS$ FILNOTACCRO 

L A EXE$ABORTIO 
LSB 



MOUNT ACP FUNCTION PROCESSING 
FUNCTION NOT SUPPORTED BY SUPERVISOR 
ABORT THIS QIO 
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READ AND WRITE BLOCK ACP FUNCTION PROCES 27-JUL-1984 ^ F jchel Frame H? Sequence 

*** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 Macro V03-0 i Page 
READ AND WRITE BLOCK ACP FUNCTION PROCES 1-APR-1980 10:25:33 DMA1 : [SYS0.SYSMAINT:1ACPFDT.MAR;49 



7 

(1) 



-1 



5A 
22 34 



OOOO'CF 

A5 1E 

4000 8F 

20 A3 

1A 



03 

-1 



-1 



50 0000'8F 
00000000' EF 



46 34 

5A 
DE 34 



A5 19 

0000' CF 



A5 
50 



51 04 



05 34 



50 
51 
3E 



A5 

51 



A3 



08 
3C 



1F 
6C 
AC 
DD 
05 
OE 
1B 
6A 
AC 
A3 
51 
A3 



9E 
E1 
A8 

11 



3C 
16 



EO 
9E 
EO 
DO 
3C 
13 
E1 
D1 
14 
16 
DO 
3C 
80 
B4 



002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

C02C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

002C 

0031 

0036 

003A 

003C 

003E 

003E 

003E 

003E 

003E 

0043 

0049 

0049 

0049 

004E 

0053 

0058 

005B 

005F 

0061 

0066 

0069 

0068 

006D 

0071 

0075 

0079 



260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

271 

27U 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

292 

293 

294 
295 
296 
297 
298 
299 
.1 
301 
302 
303 
304 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 



.SBTTL READ AND WRITE BLOCK ACP FUNCTION PROCESSING 

ACPSREAD8LK - READ BLOCK ACP FUNCTION PROCESSING 
ACPSWRITEBLK - WRITE BLOCK ACP FUNCTION PROCESSING 

***TBS*** 



INPUTS: 



RO = SCRATCH. 

R1 = SCRATCH. 

R2 = SCRATCH 

R3 = ADDRESS*OF I/O REQUEST PACKET. 

R4 = CURRENT PROCESS PCB ADDRESS. 

R5 = ASSIGNED DEVICE UCB ADDRESS. 

R6 = ADDRESS OF CCB. 

R7 = I/O FUNCTION CODE BIT NUMBER. 

R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 

R9 = SCRATCH. 

R10 = SCRATCH. 



R11 = SCRATCH. 
AP = ADDRESS OF 



FIRST FUNCTION DEPENDENT PARAMETER. 



OUTPUTS: 
***TBS*** 



.ENABL 
ACPSREAD8LK:: 
MOVAB 
BBC 
10$: BISW 



LSB 

;READ BLOCK ACP FUNCTION PROCESSING 
W A EXE$READL0CK,R10 ;SET ADDRESS OF READ CHECK AND LOCK ROUTINE 
S A #DEV$V RCK,UCB$L DEVCHAR(R5) ,20$ ;IF CLR, NO DEVICE READ CHECK 
*IO$M DATACHECK,IRP$W FUNC(R3) ;SET DATA CHECK ENABLE 



ZERO 



BRB 20$ 
LENGTH TRANSFER 



15$: 



M0V2WL 
J SB 



ACP$WRITEBLK:: 
BBS 
MOVAB 
B8S 

20$: MOVL 

MOVZWL 

BEQL 

BBC 

CMPL 

BGTR 

30$: JSB 
MOVL 
MOVZWL 
MOVW 
CLRW 



*SS$ NORMAL, RO 
L A EXE$FINISHIOC 



S A #DEV$V SWL,UCB$L 

W A EXE$WRTTEL0CK,R1 

S A #DEV$V WCK,UCB$L 

P1(AP),R0 

P2(AP),R1 

15$ 

S A #DEV$V SQD,UCB$L 

014, R1 " 

45$ 

(R10) 

P3(AP),R0 

IRP$W 8CNT(R3),R1 

R1,IRP$W 0BCNHR3) 

IRP$W ABfNT(R3) 



;SET NORMAL COMPLETION 
.-FINISH I/O OPERATION 

;WRITE BLOCK ACP FUNCTION PROCESSING 
DEVCHAR(R5),60$ ;IF SET, SOFTWARE WRITE LOCKED 
;SET ADDRESS OF WRITE CHECK AND LOCK ROUTINE 
DEVCHAR(R5),10$ ;IF SET, DEVICE LEVEL WRITE CHECK 

;GET STARTING ADDRESS OF TRANSFER 

;GET NUMBER OF BYTES TO TRANSFER 

;IF EQL ZERO LENGTH TRANSFER 
DEVCHAR<R5),30$ ;IE CLR, NOT SEQUENTIAL DEVICE 

.-RECORD TOO SHORT? 

;IF GTR YES 

;CHECK BUFFER AND LOCK IN MEMORY 

;GET STARTING MEDIA ADDRESS 

.-RETRIEVE TRANSFER BYTE COUNT 

; SET 0RIGN1NAL BYTE COUNT 

; CLEAR ACCUMULATED BYTE COUNT 



.J 



"/Z-ENSAA-7.0 
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8 
(1) 



06 
2F 20 



00 
A3 
1B 
07 



50 



0000'8F 
OC 



50 



0000'8F 
05 



03 
-1 
-22 



-2 



50 0000'8F 
00000000'EF 



34 



50 



51 
52 

1F 



A3 

59 

0084 
1A 
1C 

06 
20 



20 



03 
-5 



03 
-1 



50 
50 
C4 
A5 
A5 
00 
A3 
28 
15 
A3 
05 
5A 

5A 

59 

19 

5A 

12 

59 

FF23 

1800 8F 

20 A3 

OOOOOOOO'EF 

50 0000'8F 

05 

50 0000'8F 

00000000' EF 



19 34 A5 

5A n 
5A 
0084 C5 
50 



ED 

15 
11 



3C 
11 



3C 
11 



3C 
16 

DO 
7D 
DO 
3C 
DO 
ED 

15 
A2 

EO 
D7 
78 

CO 
1F 
D1 
1E 
DO 
30 
AA 

16 
3C 

11 
3C 
16 



007C 

007F 

0082 

0084 

0086 

0086 

0086 

0086 

0086 

0086 

008B 

008D 

008D 

008D 

C08D 

008D 

008D 

0092 

0094 

0094 

0094 

0094 

0094 

0094 

0099 

009F 

009F 

00A3 

00A6 

OOAB 

OOAF 

00B3 

0066 

00B9 

008B 

OOBD 

OOBF 

00C4 

00C6 

OOCA 

OOCB 

OOCE 

OODO 

00D5 

00D7 

OODA 

OODD 

00E1 

00E3 

00E9 

OOEE 

OOFO 

00F5 

O^FB 



318 
319 
320 

.1 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 

.1 
355 
378 
379 
380 
381 
382 
385 
386 
387 
388 
389 
390 
391 
392 

393 
394 
395 
396 
397 
398 
399 
400 

.1 
406 
407 
408 

J 
410 



CMPZV #IRP$V FCODE,tfIRP$S FCODE,- ;LOGJCAL OR PHYSICAL 1/0 FUNCTION? 

IRP$WjUNC(R3),0IO$;LOGICAL ; 
BLEQ 120$ ;IF LEQ YES 

BRB 50$ ; Supervisor does not support Virtual 

RECORD LENGTH TOO SHORT FOR MAGTAPE TRANSFER 



45$; MOVZWL #SS$.BADPARAM,RO 
BRB 70$ 



FILE NOT ACCESSED ON CHANNEL 



50$; MOVZWL #SS$ FILNOTACCRO 
BRB 70$ 



PRIVILEGE VIOLATION 



;SET BAD PARAMETER STATUS 



;SET FILE NOT ACCESSED 



60$: 
70$: 

120$: 



130$: 



140$: 

150$: 
170$: 

180$: 
190$: 



MOVZWl 
J SB 

MOVL 

MOVQ 

MOVL 

MOVZWL 

MOVL 

CMPZV 

BLEQ 

SUBW 

BBS 

DECL 
ASHL 

ADDL 

BCS 

CMPL 

BGEOU 
MOVL 
BSBW 
BICW 

JS8 

MOVZWL 

BRB 

MOVZWL 

JSB 

.DSA8L 



0SS$ NOPRIV,R0 
L A EXE$ABORTIO 



SET NO PRIVILEGE 



RO,IRP$L MEDIA(R3) ;SAVE MEDIA ADDRESS 

R0.R9 " ;SAVE TRANSFER PARAMETERS 

PCB$L ARB(R4).R0 ,*GET ACCESS RIGHTS BLOCK 

UCB$W"VPR0T(R5),R1 ;GET VOLUME PROTECTION MASK 

UCB$L~OWNUIC(R5),R2 ;GET VOLUME OWNER UIC 

#IRP$V FCODE,*JRP$S_ FCODE,- ;PHYSICAL I/O FUNCTION? 

IRP$W FUNC(R3),#I0$_PHYSICAL ; 

150$ " ;IF LEQ YES 

#10$ WRITELBLK-I0$ WRITEPBLK.- ;C0NVERT TO PHYSICAL I/O FUNCTION 

IRP$0 FUNC(R3) 

S A *DEV$V SQD,UCB$L DEVCHAR(R5),140$ ;IF SET, SEQUENTIAL DEVICE 

R10 " ; ROUND BYTE COUNT DOWN 

tf-VA$S BYTE, RIG, R10 .'CONVERT TO BLOCK COUNT 



R9.R10 

170$ 

R10 f UCB$L MAXBL0CK(R5 

170$ 

R9 RO 

IOC$CVTLOGPHY 

#IO$M JNHERLOG!IO$MJ 

IRP$W~FUNC(R3) 

L A EXElQJODRVPKT 

#SS$ ILLBLKNUM,RO 

190$' 

*SS$ ENDOFFJLE,R0 

L A EXE$FINISHJOC 

LSB 



; CALCULATE ENDING BLOCK NUMBER 

;IF CS ILLEGAL BLOCK NUM8ER 
) ;LEGAL BLOCK NUMBER? 

;IF GEQU NO 

;RETRIEVE STARTING MEDIA ADDRESS 

.•CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 
NHSEEK,- ;CLEAR INHIBIT ERROR LOGGING 

;AND EXPLICIT SEEK 

;QUEUE I/O PACKET TO DRIVER 

;SET ILLEGAL BLOCK NUMBER STATUS 

;SET END OF FILE STATUS 
;F1NISH I/O OPERATION 



J 9 

ZZ-ENSAA-7,0 READ AND WRITE BLOCK ACP FUNCTION PROCE5 27-JUL-1984 F jchej Frame J? Sequence 113 

ACPFDT *** ACPFDT ACP function dispatch 27-JUL-1984 14:59:08 VAX-11 Macro V03-01 . t Pa 9 e „ ,? x 
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*** 


ACPFDT ACP function 


dispatch 


27- 


-JUL-1984 14:59:08 VAX-11 Macro 


V03 


10 


Symbol table 












1- 


-APR-1980 10:25:33 DMA1 : CSYS0.SYSMAIMTJACPF0T.MAR;49 


(1) 


ACPSACCESS 


00000000 RG 


D 


01 


1RPSQ NT PRVMSK 


0000003C 


D 


PCB$W GRP 


0000008A 


D 






ACPSACCESSNET 


00000000 RG 


D 


01 


IRPSS'FCODE 


00000006 


D 


PC8tW~MEM 


00000088 


D 






ACPSDEACCESS 


OOOOOOOB RG 


D 


01 


IRPSV'FCODE = 


00000000 


D 


PCB$W~MTXCNT 


OOOOOOOE 


D 






ACPSMODIFY 


00000016 RG 


D 


01 


IRPSUfABCNT 


0000003C 


D 


PCBSVfPPGCNT 


00000036 


D 






ACPSMOUNT 


00000021 RG 


D 


01 


IRPSW'BCNT 


00000032 


D 


PCBSUfPRCCNT 


00000042 


D 






ACPSREADBLK 


0000002C RG 


D 


01 


]RP$W~B0FF 


00000030 


D 


PCBSW^SIZE 


00000008 


D 






ACPSWRITEBLK 


00000049 RG 


D 


01 


1RP$W~CHAN 


00000028 


D 


PCB$W STATE 


0000002C 


D 






CCB$B AMOD 


00000009 


D 




IRP$W~FUNC 


00000020 


D 


PCB$W TMBU 


00000032 


D 






CCBSB'STS 


00000008 


D 




1RP$W"0BCNT 


0000003E 


D 


SJZ..T = 


00000001 


D 






CCB$C~LENGTH 


000000 1 


D 




IRPSWSJZE 


00000008 


D 


SS$ BADPARAM 


******** 


X 


01 




CCBSK'LENGTH 


00000010 


D 




1RP$W~STS 


0000002A 


D 


SS$~END0FFILE 


******** 


X 


01 




CIB$L~D1RP 


oooooooc 


D 




IRP$W~TT PRMPT 


0000003C 


D 


SS$~FILNOTACC 


******** 


X 


01 




CCB$L~UCB 


00000000 


D 




MXDESCR " - 


00000016 


D 


SS$IJLL8LKNUM 


******** 


X 


01 




CCBSL'WIND 


00000004 


D 




P1 - 


OOOOOOOO 


D 


SSSJJ0PR1V 


******** 


X 


01 




CCBSW'IOC 


OOOOOOOA 


D 




P2 


00000004 


D 


SS$ NORMAL 


******** 


X 


01 




DEVSV~RCK 


= 0000001 E 


D 




P3 


00000008 


D 


UCBlB AMOD 


00000053 


D 






DEVSV"SQD 


- 00000005 


D 




P4 = 


OOOOOOOC 


D 


UCB$B"CEX 


00000077 


D 






DEV$V~SWL 


= 00000019 


D 




P5 


00000010 


D 


UCB$B"CM1 


0000004A 


D 






DFVSV'WCK 


= 0000001 F 


D 




P6 


00000014 


D 


UCB$B~CM2 


0000004B 


D 






EXESABORTIO 


******** 


X 


01 


PCBSB AS1ACT 


OOOOOOOC 


D 


UC8$B DEVCLASS 


00000038 


D 






EXESF1NISHIOC 


******** 


X 


01 


PCB$B~ASTEN 


OOOOOOOD 


D 


UCB$B"DEVTYPE 


00000039 


D 






EXESQIODRVPKT 


******** 


X 


01 


PCBSB'PRI 


OOOOOOOB 


D 


UC8$BlDIPL 


00000052 









EXESREAOLOCK 


******** 


X 


01 


PCBSB'PRJB 


0000002F 


D 


UCB$BJ>X SCTCNT 


00OO00A6 


D 






EXESURITELOCK 


******** 


X 


01 


PCB$B~TYPE 


OOOOOOOA 


D 


UCB$8 ER7CNT 


00000070 


D 






IO$M DATACHECK 


= 00004000 


D 




PCB$B"WEFC 


0000002E 


D 


UC8$B ERTMAX 


00000071 


D 






IO$M~INHERLOG 


= 00000800 


D 




PC8$C~LENGTH 


0000008C 


D 


UCBSB'FEX 


00000076 


D 






!0SM"INHSEEK 


= 00001000 


D 




PCB$K~LENGTH 


0000008C 


D 


UCB$B~FIPL 


OOOOOOOB 


D 






10$ LOGICAL 


= 0000002F 


D 




PCB$L~ARB 


00000084 


D 


UCB$B LOCSRV 


0000003C 


D 






IOt'PHYSICAL 


- 0000001 F 


D 




PCB$L~ASTQBL 


00000014 


D 


UCB$B OFFNDX 


00000094 


D 






JOS"WRITELBLK 


= 00000020 







PCBSL'ASTQFL 


00000010 


D 


UCB$B~OFFRTC 


00000095 


D 






IO$~WRITEPBLK 


= OOOOOOOB 


D 




PCB$L~EFC2P 


00000058 


D 


UC8$B~REMSRV 


0000003D 


D 






I0C5CVTL0GPHY 


******** 


X 


01 


PCB$LlEFC3P 


0000005C 


D 


UCBSB'SECTORS 


0000003C 


D 






IRP$B CARCON 


00000038 


D 




PCB$L EFCS 


00000050 


D 


UCB$B"SLAVE 


00000074 


D 






IRPSB'EFN 


00000022 


D 




PCB$L~EFCU 


00000054 


D 


ucb$b;spr 


00000075 


D 






IRP$B"PRI 


00000023 


D 




PCB$L~EFWM 


0000004C 


D 


UCB$B STATE 


00000052 


D 






IRP$B~RM0D 


OOOOOOOB 


D 




PCBSL'JIB 


00000078 


D 


UCBSB^TRACKS 


00000030 


D 






IRP$B~TYPE 


OOOOOOOA 


D 




PC8$L~0WNER 


0000001 C 


D 


ucb$b;tt_crfill 


0000009D 


D 






JRP$C~LcNGTH 


0000005C 


D 




PCB$L~PHD 


00000064 


D 


UCB$B_TT,DECRF 


0OO000A1 


D 






IRP$K~LENGTH 


0000005C 


D 




PCB$L"PHYPCB 


00000018 


D 


UC8$B_TT_DELFF 


000000A2 


D 






IRPSL'ARB 


00000050 


D 




PCBSL'PID 


00000060 


D 


UCB$B,TT_DESPEE 


OOOOOOAO 


D 






IRP$L"AST 


00000010 


D 




PCB$L~PQB 


0000004 C 


D 


UCBSB TT DETYPE 


00O00OA4 


D 






IRPSL'ASTPRM 


00000014 


D 




PCBSL'SQBL 


00000004 


D 


UCBSBlTTlLFFILL 


0000009E 


D 






IRP$L"DIAGBUF 


00000044 


D 




PCB$L~SQFL 


OOOOOOOO 


D 


UCBSB.TT SPEED 


0000009C 









IRP$L"EXTEND 


0000004C 


D 




PCBSL"STS 


00000024 


D 


UC8SB TYPE 


OOOOOOOA 


D 






IRP$L"JOQBL 


00000004 


D 




PCBSLlUJC 


00000088 


D 


UCB$B~VERTSZ 


0000003F 


D 






IRP$L~IOQFL 


00000000 


D 




PC8$L WSSWP 


00000020 


D 


UCBSC^LENGTH 


00000074 


D 






IRPSL'JOSB 


00000024 


D 




PCB$L~WTJME 


00000028 


D 


UCBSC.MB.LENGTH 


00000090 









IRP$L~I0ST1 


00000034 


D 




PCB$G~PRIV 


0000007C 


D 


UCB$C TT LENGTH 


OOOOOOBC 









IRP$L"I0ST2 


00000038 


D 




PCBST'LNAME 


00000068 


D 


UCBSK LERGTH 


00000074 


D 






IRP$L "MEDIA 


00000034 


D 




PC8$T~TERMJNAL 


00000044 


D 


UCBSK'MB LENGTH 


00000090 


D 






IRP$L"PID 


OOOOOOOC 


D 




PCB$W~APTCNT 


00000030 


D 


UCB$K"TT"LENGTH 


OOOOOOBC 


D 






irp$l"segvbn 


00000040 


D 




PC8$W"ASTCNT 


00000038 


D 


UCB$L~AMB 


00000054 


D 






irp$l"seqnum 


00000048 


D 




PC8$W"8I0CNT 


0000003A 


D 


UCB$L~ASTQBL 


00000010 


D 






irp$l"svapte 


0000002C 


D 




PC8$W~BI0LM 


0000003C 


D 


UCB$L"ASTQFL 


OOOOOOOC 









IRP$L*TT TERM 


0000003d 


D 




PCB$W"DJ0CNT 


0000003F 


D 


UCBSL'CPIO 


0000005C 


D 






IRP$L"UCB 


0000001 C 







pcbsWdiolm 


00000040 


D 


UC8SL CRB 


00000020 


D 






IRPSL'WJND 


00000018 


D 




PCBSW'GPGCNT 


00000034 


D 


ucb$l;ddb 


00000024 


D 







ZZ-ENSAA-7.0 
ACPFDT 
Symbol table 



Symbol table 



*** ACPFDT AtP function dispatch 



L 9 

27-JUL-1984 



Fiche 1 Frame L9 



27-JUL-1984 

1-APR-1980 



Sequence 115 
14:59:08 VAX-11 Macro V03-01 Page 11 

10:25:33 DMA1 : [SYS0.SYSMAINT:]ACPFDT.MAR;49 (1) 



UCBSL 
UCBSL 
UCBSL 
UCBSL 
UCBSL 

ucbsl: 

UCBSL 

UCBSL" 

UCBSL* 

UCBSL" 

UCBSL" 

UCBSL" 

UCBSL" 

UCBSL" 

UCBSL" 

UCBSL] 

UCBSL 

UCBSL" 

UCBSL" 

UCBSL" 

UCBSL 

UCBSL 

UCBSL* 

UCBSL' 

UCBSL* 

UCBSL* 

UCBSL* 

UCBSL* 

UCBSL' 

UCBSL' 

uCBSL* 

UCBSL' 

UCBSL' 

UCBSL' 

UCBSL' 

UCBSL' 

UCBSL' 

ucbsl; 

UCBSL 
UCBSL' 
UCBSL' 
UCBST' 

ucbsw' 

UCBSW 
UCBSW 
UCBSW 

UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 



OEVChAR 
DEVDEPEND 
DPC 

DUETIM 
DX BFPNT 
OX'BUF 
DX**RXDB 
hflB 
FIRST 
FPC 
FQBL 
FQFL 
FR3 
FR4 
IOQBL 
IOQFL 
1RP 
LINK 
LOGADR 
MAXBLOCK 
MB.MBX 
MB PORT 
M8*~RA$T 
MB'SHB 
'MB~WAST 
MB'WIOQBL 
MB~WIOQFL 
'MEDIA 
"NT DATSSB 
"NT'INTSSB 
'OPfNT 
'OWNUIC 
PID 
'RQBL 
"RQFL 
'SVAPTE 
'SVPN 

"TT DECHAR 
*TT"RDUE 
"TT'RTIMOU 
*VCS 

'PARTNER 
"8CNT 
"BCR 
"BOFF 
"BUFQUO 
"BYTESTOGO 
"CHARGE 
"CYLINDERS 
'DA 
"DC 

"DEVBUFSIZ 
"DEVSTS 
"DIRSEQ 
'DSTADDR 
'DX BCR 
"ECT 



00000034 D 

0000003C D 

00000080 D 

O000005C D 

0000009C D 

00000098 D 

000000A0 D 

00000078 D 

00000014 D 

OOOOOOOC D 

00000004 D 

00000000 D 

00000010 D 

00000014 D 

00000044 D 

00000040 D 

0000004C D 

0000002C D 

00000064 D 

00000084 D 

0000007C D 

0C00008C D 

00000078 D 

00000080 D 

00000074 b 

00000088 D 

00000084 D 

0000008C D 

00000074 D 

000000/8 D 

00000060 D 

OOOOOOK D 

00000028 D 

00000004 D 

00000000 D 

00000068 D 

00000064 D 

O000O0A8 D 

0000008C D 

00OOOOB8 D 

00000030 D 

OOOOOOOC D 

00000C6E D 

00000096 D 

0000006C D 

00000018 D 

0000003E D 

0000004A D 

0000003E D 

0000008C D 

0000008E D 

0000003A D 

0000005A D 

00000068 D 

OOOOOOK D 

O0O000A4 D 

00000090 D 



UCBSW EC2 

UCBSWERRCNT 

UCBSW~FUNC 

UCBSW MB SEED 

UCB$W""MS*3CNT 

UCBSW~MSGMAX 

UC8SW"*NT CHAN 

UCBSW'OFFSET 

UCBSWREFC 

UCBSW.SIZE 

UCBSW SRCADDR 

UCBSW""STS 

UCBSW~TT DESIZE 

UCBSW'UNlT 

ucb$w~vprot 
vass Byte = 

VCBSB BLOCKFACT 

VCBSB'CUR RVN 

VCBSB"EOFDELTA 

VCBSB'IBMAPSJZE 

VC8S8*"lBMAPV8N 

VC8$B~LRU LJM 

VCBSB^QNAflECNT 

VCBSB RESFILES 

VCBSB'SBMAPSJZE 

VCBSB~SBMAPVBN 

VC8SB"*STArUS 

VCBSB~STATUS2 

VCBSB'TM 

VCBSB'TYPE 

VCBSB'WINDOW 

VCBSCCOMLEN 

VCBSC~LENGTH 

VCBSC~MRKLEN 

VCB$K*"COMLEN 

VC8SKILENGTH 

VC8SK MRKLEN 

VCBSL*>Q8 

VCBSL BLOCKBL 

VCB$L"BLOCKFL 

VCBSL'CACHE 

VCBSL'CUR FID 

VCBSl"FC8BL 

VC8SL~FC8fL 

VCBSL'FREE 

VCBSL>0ME2LBN 

VCBSL H0MEL6N 

VC8SL~IBMAPLBN 

VCBSL~IXHDR2LBN 

VCBSL'MAXFILES 

VCSSL'MVL 

VCBSL""OUOCACHE 

VCBSL"QU0TAFC8 

VCBSL'RVT 

VC8SL~SBMAPLBN 

VCBSL^START FJD 

VCBSL~ST RECORD 



00000092 

00000072 

0000007E 

00000000 

00000016 

00000014 

0000007C 

0000008A 

00000050 

00000008 

0000001A 

00000058 

OO0OOOA5 

00000048 

0000001A 

00000009 

00000052 

0000002F 

0000004E 

00000038 

0000003A 

00000049 

OOOOOOOB 

0000004F 

00000039 

0000003B 

OOOOOOOB 

00000053 

0000002E 

OOOOOOOA 

00000048 

00000024 

00000064 

OOOOOOOB 

00000024 

00000064 

OOOOOOOB 

00000010 

00000004 

00000000 

00000058 

00000024 

00000004 

00000000 

00000040 

00000028 

00000024 

00000030 

0000002C 

00000044 

0000003^ 

0000005C 

00000054 

00000020 

00000034 

00000028 

00000030 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



VCBSL. 

VCBSL 

VCBSL 

vcbsl; 

VCBST. 

VCBST 

VCBSW" 

VCBSW" 

VCBSW 

VCBSW" 

VCBSW 

VCBSW" 

VCBSW 

VC8SW 

VCBSW. 

VCBSW. 

VCBSW. 

VCBSW 

VCBSW 

VCBSW 

VCBSW" 

WCBSB] 

WC8SB 

WCBSC 

WCBSC' 

WCBSK 

WCBSK' 

WCBSL' 

wcbsl; 

WCBSL 

WCBSL 

WCBSL 

WCBSL 

WC8SL' 

WCBSL 

WCBSL' 

WC8SL' 

WCBSL' 

WCBSW' 

WCBSW" 

WCBSW 

WCBSW 

WC8SW 

WCBSW' 

WCBSW 

WCBSW 



USRLBLAST 
'VPBL 
VPFL 
WCB 
QNAME 
"VOLNAME 
'CLUSTER 
'CUR NUM 
'CUR"SEQ 
'EXTEND 
"FILEPROT 
'MCOUNT 
MODE 
'PENDERR 
QU0SI2E 
'RECORDSZ 
'RVN 
'SIZE 

'START NUM 
"START~SEQ 
"TRANS'" 
[ACCESS 
TYPE 
"LENGTH 
'MAP 
"LENGTH 
"MAP 
"FCB 
"LBN 
ORGUCB 
"P1 LBN 
"P2"LBN 
"PID 

"PREVLBN 
"RVT 
"STVBN 
;WLBL 
WLFL 
"ACON 
"COUNT 
NMAP 

"P1 COUNT 
"P2"C0UNT 
"PRPVCOUNT 
IREFCNT 
SIZE 



00000044 

00000040 

0000003C 

00000038 

OOOOOOOC 

00000014 

0000003C 

00000024 

00000026 

0000003E 

0000004A 

0000004C 

0000002C 

00000062 

00000060 

00000050 

OOOOOOOE 

00000008 

00000028 

0000002A 

OOOOOOOC 

OOOOOOOB 

OOOOOOOA 

00000024 

00000024 

00000024 

00000024 

00000018 

00000002 

00000010 

00000026 

0000002C 

OOOOOOOC 

FFFFFFFC 

OOOOOOK 

00000020 

00000004 

00000000 

00000014 

00000000 

00000016 

00000024 

0000002A 

FFFFFFFA 

OOOOOOOE 

00000008 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

i> 

D 
D 
D 
D 
D 
D 



ZZ-ENSAA-7.0 

ACPFDT 

Psect synopsis 



Psect synopsis 



*** ACPFDT ACP function dispatch 



M 9 
27-JUL-1984 



27-JUL-1984 
1-APR-1980 



Fiche 1 Frame M9 



Seguence 116 
K:59:08 VAX- 11 Macro V03-01 Page 12 

10:25:33 DMA1 :[SYS0.SYSMAINT]ACPFDT.MAR;49 (1) 



PSECT name 

, ABS . 

SEP 

$ABS$ 



AUocat ion 

00000000 ( 
OO00O0F8 ( 
FFFFFFFC ( 



+ -— — — ----+ 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPK USR 

251.) 01 ( 1.) NOPIC USR 

0.) 02 ( 2.) NOPIC USR 



con 


A8S 


LCL NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


REL 


LCL SHR 


^XE 


RD 


WRT 


NOVEC 


LONG 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYIfc 
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Cross reference 



SYMBOL 



ACPSACCESS 

ACPSACCESSNET 

ACPSDEACCESS 

ACPSMODIFY 

ACPSMOUNT 

ACPSREADBLK 

ACPSWRITEBIK 

DEVSV RCK 

DEV$V~SQD 

DEVSVlSWL 

devsv wck 
exesaBortio 
exesf inishioc 
exesqiodrvpkt 

exesreadlock 
exe$writelock 
io$m datacheck 

IO$^"lNHERLOG 

IOSM~INHSEEK 

I OS LOGICAL 

I01TPHYSICAL 

I0S"WRITEL8LK 

IOS WRITEPBLK 

IOC$CVTLOGPHY 

1RPSL MEDIA 

IRPSS'FCODE 

IRP$V~FCODE 

IRP$W~ABCNT 

IRP$W"BCNT 

IRPSuf FUNC 

IRPSUfOBCNT 

MXDESfR 

PI 

P2 

P3 

P4 

P5 

P6 

PCBSL ARB 

SS$ BADPARAM 

SS$~ENDOfFILE 

SSS'FILMCTACC 

SSS'ILLGLKNUM 

SSS'NOPRIV 

S:>$"NORMAL 

'.if L DEVCHAR 

\)C t'MAXPLOCKl 

UCdR"OWNUIC 
UCBSW'VPROT 



VASS 



Byte 



VALUE 

000G0000- 

00000000- 

OOOOOOOB- 

00000016- 

00000021* 

0000002C' 

00000049- 

=0000001 E 

-00000005 

=00000019 

=0000001 F 

00000000 

00000000 

00000000 

00000000 

00000000 

=00004000 

=00000800 

^00001000 

=0000002F 

=0000001 F 

=00000020 

=0000000B 

OOOOOOOl 1 

0000003-'.. 

-OOOOOOfj 

=00000000 

UU00003C 

00000032 

00000020 

0000003E 

=00000016 

=00000000 
=00000004 

-00000008 

=0000000C 

=00000010 

=00000014 

00000084 

00000000 

00000000 

00000000 

00000000 

ooooooco 

00000000 
00000034 
0000008^ 

oooooou 

oooooou 

^00000009 



XR 
XR 
XR 
XR 
XR 



-XR 



XR 
XR 
XR 
XR 
XR 
XR 
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DEFINITION 



118 
120 
163 
217 
21 9 
289 
302 



85 
74 
A 
76 
77 

78 
79 



+ ---«. -•• — + 

! Symbol Cross Reference ! 
+ + 

REFERENCES... 



#-292 

#-310 

#-303 

#-306 
120.2 
299.1 
400.1 
290 
304 

#-293 

#-399 

#-399 

#-319 

#-386 

#-388 

#-388 

#-398 

#-378 

#-318 

#-318 

#-517 

#-31S 

#-2/3 

#-3; 6 

#-307 

#-308 
#-314 



#-380 
#-339 
#-408 
#-^20.1 
#-406 
#-353 
#-299 
292 
#-395 
#-382 
#-381 
#-392 



#-390 



(1) 



163.2 (1) 
408.1 (1) 



217.2 (1) 



249.2 (1) 



353.1 (1) 



#-385 
#-385 



V!9 



(1) 
(1) 



(1) 



386 <1> #-389 (1) #-400 (1) 



#-163.1 (1) 



#-217.1 (1) #-249,1 (1) #-346 (1) 



303 



(1) 



306 (D 



310 (1) 



390 (1) 
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ACPFDT 

iross reference 



Cross reference 



*** ACPFDT ACP function dispatch 



B 10 
27-JUL-1984 



27-JUL-1984 
1-APR-1980 



Ffche 1 Frame B10 



Seguence 118 
14:59:08 VAX-11 Macro V03-01 Page H 
10:25:33 DMA1 :[SYS0.SYSMAINTDACPFDT.MAR;A9 (1) 



MACRO 



SCCBDEF 
SDEFINI 



SDEVDEF 

SDYNDEF 

SIODEF 

SiPLOEF 

SIRPDEF 

SJIBDEF 

SPCBDEF 

SPRDEF 

SPRVDEF 

SUCBDEF 

SVADEF 

SVCBDEF 

SWCBDEF 



SIZE 

1 

1 



1 

2 

17 

1 

4 

3 

4 

4 

4 

10 

1 

6 

3 



DEFINITION 



53 
53 



54 
55 
57 
56 
58 
59 
60 
61 
62 
63 
64 
65 
66 



(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



+ + 

! Macros Cross Reference ! 
+.. ._ — — + 

REFERENCES... 

53 

53 (1) 54 

58 (1) 59 

63 (1) 64 

54 

55 

57 

56 

58 

59 

60 

61 

62 

63 

64 

65 

66 

+ _--_ + 

! Performance indicators ! 

+ + 



(1) 

(1) 
(1) 



55 
60 
65 



(1) 


56 


(1) 


57 


(1) 


(1) 


61 


(1) 


62 


(1) 


(1) 


66 


(1) 







Phase 

Initial ization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



Elapsed Time 



37 

123 

677 



117 

30 

6 

21 

1015 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.15 
:00.76 
:18.44 
:01.65 
:03.53 
: 00. 22 
:00.02 
:00.24 
:25.01 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00;00 



:00.33 
:02.09 
:29.17 

:01.77 
:06.21 
:00.75 
:00.02 
:00.25 
:40.61 



The working set limit was 1000 pages. 

83787 bytes (164 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1185 non-local and 15 local symbols 

333 source lines were read in Pass 1, producing object records in Pass 2. 

104 pages of virtual memory were used to define 23 macros. 
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+ + 

! Macro Library statistics ! 
+ + 

Macro y name Macros defined 

DMA1 : [. ,SYSMAINT3DS.MLB;218 

DHA1:CSYS0.SYSMAINT:DIAG.MLB;953 9 

SYS$SYSRCOT:CSYSLJB3LIB.MLB;1 2 

SYS$SYSROOT:CSYSL IB] STARLET. MLB; 2 8 

TOTALS (all libraries) 19 

1568 GETS were required to define 19 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LI STEEDS. LIS3/CR0SS/ENABLE= (DEBUG, TRACE) ACPFDT/UPDA=(ACPFDT,UPD / ACPFDT.ENH)+SYS$LIBRARY:LIB/LJBRARY+DMA1 : [SYSO.SYSMA 



ZZ-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 
00?0 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
004 7 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



*** ANSI 
*+* ANSI 



magtape 
magtape 



RMS 
RMS 



support 
support 



D 10 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



15:52:20 
09:38:03 
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I 0MA1:CSVS0.SYSMAINTJANSI.B32;168 (1) 



Xtitle 
module 



'*** ANSI magtape RMS support 1 
ansi ( 



ident 
) = 



= '07-07' 



! Routines to handle Magtape 



COPYRIGHT (c) 1980, 1981, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC, 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



+ + 
FACILITY: 

ABSTRACT: 



DIAGNOSTIC SUPERVISOR 



These modules simulate the function of the respective 
RMS functions. 



AUTHOR: 
MODIFIED BY: 



01 



Roger Riggs, CREATION DATE: 10-November-1979 



02 
03 

04 
05 



Dave Butenhof, 07-oct-1980, version 
To allow support of magtape directo 
function in standalone or user mode 
of wildcarding. "*" means open nex 
full file name in NAM block if any. 
context of any sort; the caller mus 
file it found, and exit the wildcar 
is repeated. This is for Superviso 
be documented outside the program I 
DIRECTORY. 

Support version numbers 
Roger Riggs, 22-oct-1980 
Added code to implement FAB$V_RW0 r 
The magtape is rewound before the s 
also added to code to issue I0$_drv 
•Dave Butenhof, 02-Jun-1981, version 
Fix library specifications, use $DS 
flexibility. 



6.1 

ry command which will 
, support minimal level 
t file on tape, return 
There is no wildcard 
t remember the first 
d loop when that name 
r use only and will not 
istings of ANSI and 



ewind on open, 
earch for the file begins, 
clr before first operation 
6.4 
, $DIAG logical names for 



- Jack Stansbury, 28-0ct-1981, Version 6.- 

Changed the PSECT declarations to take out the SEP PSECT. 
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0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 












1 



*** ANSI 
*** ANSI 



magtape 
magtape 



RMS 
RMS 



support 
support 
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2 

(1) 



06 



Bob Bergazzi May 14, 1984 Version 7.0 
Fixed the compiler warning from BLISS released with VMS 4.0. 
This occurred at the redeclaration of B00$QI0 with the CALL.B00 
linkage in routine ANSJSOPEN. 



Bob Bergazzi 
Added support 



May 25, 1984 
for VMS V4 long 



Version 7.0 
filenames using 



HDR4 labels. 



07 

begin 

include files: 

library *$diag'; J 

library '$ds'; ! 

library f sys$library : I ib' ; 

linkage 

jsb - jsb, 

jsb scan = jsb (register = 3, register = 4, register = 5) : nopreserve (2), 

getlblock = call ( /register = 2) : global (cblock = 9, fab = 11); ! 

table of contents: 



forward routine 

ansiSopen : call rms addressing_mode ( long_relative) , 
ansiSclose : call_rms addressing_mode ( long_relative) , 
ansi$read : call.rms addressingJSode ( long_relative) , 
ansiSget : call^rms addressing mode ( long^relative) , 



!0pen file on magtape 
! Close f i le on magtape 
!Read block(s) from magtape 
'Get record from magtape 



get^btock^lengtR : getlblock a3dressingjnode ( long_relative) ; !Do a B00$QI0, returning block length 



macros 



external references: 



external routine 

scanSnumeric : jsb_scan address ing^mode ( long relat ive) , 

kb check : jsb addressing^ mode ( long^relat ive7 f 

rmsSalloc cache : jsb cblock addressTngjnode (long_relative) ; 



psect definitions: 



PSECT 

PI ft 



= Data (NoExecute, Share, NoWrite, 

Address ing_Mode (Long_Relative) ) ; 



[053 
[053 
[053 



ZZ-ENSAA-7.0 

ANSI 
07-07 



0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 



*** ANSI magtape RMS support 
*** ANSI magtape RMS support 
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3 

(1) 



PSECT 

Code = Code (Execute, Share, NoWrite, 

Addressing^Mode (Long_Relat ive) ) ; 



PSECT 
Own 



= Work (NoExecute, NoShare, Write, 

Addressing_Mode (long_Relat ive) ) ; 



PSECT 

Global = Work (NoExecute, NoShare, Write, 

Addressing Mode (Long^Relat ive) ) ; 



[05] 
[053 
[05] 

[05] 
[05] 
[05] 

[05] 
[05J 
[05] 



ZZ-ENSAA- 


7.0 


ANSI 




07-07 




; 0127 


1 


; 0138 


1 


; 0129 


1 


0130 


1 


0131 


1 


; 0132 


1 


0133 


1 


; 01 34 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 0138 


1 


; 0139 


1 


OHO 


1 


OKI 


1 


0H2 


1 


0H3 


1 


0144 


1 


0145 


1 


0146 


1 


0147 


1 


; 0148 


1 


0H9 


1 


0150 


1 


0151 


1 


0152 


1 


0153 


1 


; 01 5A 


1 


; 0155 


1 


0156 


1 


; 0157 


1 


; 0158 


1 


0159 


1 


0160 


1 


0161 


1 


0162 


1 


; 0163 


1 


0164 


1 


0165 


1 


0166 


1 


0167 


1 


0168 


1 


0169 


1 


0170 


1 


0171 


1 


; 0172 


1 


0173 


1 


; 0174, 


1 


0175 


1 


; 0176 


1 


0177 


1 


; 0178 


1 


0179 


2 


0180 


2 


0181 


2 


; 0182 


2 


; 0183 


2 



15:52:20 
09:38:03 
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ansiSopen 27-Jul-1984 

*** ANSI magtape RMS support 27-Jul-1984 

ansiSopen 26-Jul-1984 

%sbtt L 'ansiSopen* 

global routine ansiSopen : call.rms = 

+ + 
Functional description: 

This routine is responsible for locating the file specified 

by the FAB on the magtape specified. It will search forward 

from the current tape position to locate the file. 

When a HDR1 record is found the file name is checked, 

if the filename matches the rest of the header are skiped. 

When a EOF 1 record is found the file name is checked. 

if the filename matches the tape is backspaced to the start of the 

If at the beginning of the wrong file the entire file is skiped. 

If the incorrect file is the same as the first file found when the 

search began RMSS_FNF is returned. 

If double tape marks are found instead of a file header the, 
tape is rewound and the search continued until end of tape is 
encountered again, when file not found is returned. 



Fiche 1 Frame G10 Sequence 123 
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data 



For the correct file the entire file is 
The first two blocks read from the tape 
to reduce the amount of positioning for 
The current tape position within a file 



read to determine it length, 
are saved in thu cache 
small files. 
is maintained as TAPEPOS. 



If the FABSV.RWO bit 
the search begins 



is set in the FAB the tape is rewound before 



Formal parameters: 
Implicit inputs: 



none 



FAB Address of related FAB 

cblock Address of per-file context area 



Implicit outputs: 



FAB Various fields updated to reflect the 
cblock Various fileds updated to reflect the 



file 

file 



found 
found 



Routine value: 

Standard RMS completion codes 
Side effects: 

The device and associated channel are accessed 



BEGIN 

literal 

true = 1 , 
false = 0, 



! Truth 
IFalsity 



ZZ-ENSAA-" 


f\Q 


ANSI 




07-07 




; 0184 


2 


; 0185 


2 


; 0186 


2 


; 0187 


2 


0188 


2 


0189 


2 


0190 


2 


; 0191 


2 


0192 


2 


0193 


2 


; 0194 


2 


; 0195 


2 


; 0196 


2 


; 0197 


2 


; 0198 


2 


; 0199 


2 


0200 


2 


; 0201 


2 


02O2 


2 


0203 


2 


0204 


2 


; 0205 


2 


; 0206 


2 


; 0207 


2 


0208 


2 


0209 


2 


; 0210 


2 


0211 


2 


0212 


2 


; 0213 


2 


0214 


2 


; 0215 


2 


; 0216 




; 0217 




0218 


2 


0219 


3 


0220 


3 


; 0221 


3 


0222 


3 


; 0223 


3 


0224 


3 


j 0225 


3 


; 0226 


3 


; 0227 


3 


0228 


3 


; 0229 


3 


; 0230 


3 


; 0231 


3 


; 0232 


3 


; 0233 


3 


; 0234 


3 


0235 


2 


; 0236 


2 


; 0237 


2 


; 0238 


2 


; 0239 


3 


; 0240 


2 



ansiSopen 
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ansiSopen 
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end_of_pass1 = 1, 
end~of_fi le = 2; 

Local 

version, 

tapeversion, 

flag : bitvector [32], 

hdrl : block [80, byte], 

hdr2 : block [80, byte], 

hdr4 : block C80, byteD, 

first 1 : vector [80, byte], 

filename : vector [132, byte]; 

external register 

fab = 11 : ref Sfab.decl, 
cblock = 9 : ref block [, byte]; 



!Set if end of tape encountered once 

!Set if end of file sensed on previous read 



i Version 
! Version 
[Contains 
[Contains 
[Contains 
[Contains 
[Contains 
[expected 



name 
block 



number in file 

number in hdrl 

flag bits 

HDR1 record 

HDR2 record 

HDR3 or HDR4 record 

first HDR1 record found 

filename in HDR1 label 



[07] 



[Base of FAB 

[Base of common area 



external routine ! [06] 

get block_length : get. block addressing.mode ( long. relative) , !B00$QI0 that returns block_length 
BooJqio ;"addressing_mode ( long^relative) ; [ [06] 



[06] 



bind 



status = fab [fab$l_stv]; 



[Return value from boo$qio 



Initialize dispatch addresses 

cblock [ctlSl.get] = ansiSget; 
cblock [ctl$l read] = ansilread; 
cblock [ctl$l"close] = ansi$close; 

convert the file name in the control region into the format 
expected for comparison with HDR1 labels. 
note that the version number is ignored. 

begin 

local 
len, 
verlen, 
veradr, 
adr; 



[Length and address of current segment 



adr = chSf 
veradr = c 
len = .ver 
veradr = . 
verlen = . 
version = 
chSfill (' 
chimove (. 
end; 

flag = fal 
first! [01 



ind 



...- ch (.cblock CctlSw file len], .cblock Cc tl$l f i le Dtr], XC 1 ]') + 1; 

h$fTnd ch (.cblock [ctT$w fTle len], .cblock [ctT$l f i le otr], U 1 ;'); 

adr - Tadr; ! Calculate length of <name>.<type> 

veradr + 1; ! Address of version (after ",") 

cblock Cctl$w file len] - (.veradr - .cblock [c t l$l_f ile^ptr]); 5 Length of rest of name 

scan$numeric 710, Tverlen, .veradr); ! Convert ascii to binary 

\ 132, filename); 
len, .adr, filename); 



se; 

= 0; 



if nut (status = boo$qio 
then return .status; 



[Clear first character 
(0, 0, 0, io$_drvclr, 0, .cblock [ctl$l_rpb])) 



ZZ-ENSAA- 


7.0 


ANSI 




07-07 




; 0241 


2 


0242 


2 


; 0243 


2 


; 0244 


3 


0245 


4 


; 0246 


3 


; 0247 


2 


; 0248 


2 


; 0249 


2 


0250 


3 


; 0251 


3 


; 0252 


3 


; 0253 


3 


0254 


3 


; 0255 


3 


0256 


3 


; 0257 


3 


; 0258 


4 


; 0259 


4 


; 0260 


4 


; 0261 


4 


; 0262 


5 


; 0263 


5 


0264 


5 


; 0265 


7 


; 0266 


6 


; 0267 


6 


0268 


6 


0269 


6 


; 0270 


6 


; 0271 


6 


0272 


6 


; 0273 


6 


; 0274 


6 


; 0275 


6 


0276 


7 


; 0277 


6 


; 0278 


6 


; 0279 


6 


0280 


6 


; 0281 


6 


0282 


6 


0283 


6 


; 0284 


6 


; 0285 


6 


0286 


6 


; 0287 


6 


0288 


6 


0289 


6 


0290 


6 


; 0291 


6 


; 0292 


5 


; 0293 


S 


; 0294 


4 


; 0295 


5 


; 0296 


5 


; 0297 


5 



ansiSopen 
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if .fab [fab$v_rwoD 
then 

begin 

i f not (status = booSqio (0, 0, 0, io$_rewind, 0, .cblock Cctl$l_rpbJ)) 

then return .status; 

end; 

unti I do 
begin 

kb check (); ICheck for A C 

status = booSqio (hdrl, 80, 0, io$_readlblk, 0, .cblock Cct ISl^rpbJ ) ; 

selectone .status of 
set 

Css$ normal] : 
Begin 
flag tend_of_file] = false; 

if ((.hdrl eql Xasci i *E0F1 ' ) or i.hdrl eql Xasc i i , HDR1 I ) ) and 

begin . ^ n 

tapeversion - (scan$numeric (10, 4, hdrl [hd1$t_genno]) - 1 > * 1 00 + scanSnumenc (10, 2, 

hdrl ChdHt genverJ) + 1; ! Calculate version number 
if ((chScompare (17, filename, 17, hdrl Chd1$tJ i laid], 0) eql 0) or (.filename COD eql Xc 
'*• and .hdrl eql Xasc i i 'HDR1 * )) and (.tapeversion eql .version or .version eql 0) 
then begin 

status - booSqio (hdr2, 80, 0, io$_readlblk, 0, .cblock Cct LSL.rpbD); 
if not .status then return rms$_rer; 



status = booSqio (hdr4, 80, 0, io$_readlblk, 0, .cblock Cct l$l_rpbD); 
if not .status then return rms$_rer; 

status = booSqio (hdr4, 80, 0, io$_readlblk, 0, .cblock Let l$l_rpb]); 



! Really 

! reads HDR3 

! Reads HDR4 

If wildcar 



it ((.filename COD eql *c**') and (.version eql 0)) 
then true 

else if .status eql ss$_endof f i le 
then true 
else i f not .status 

then return rms$ rer 

else it .hdr4 [h34$b_f i leid_ext_size] eql 

then true - - - , 

else ! Compare the rest of the filename in HDR4 

if chScompare (.hdr4 ChdASb fileid ext size], ! 

f ilename"C17], " " ! 

,hdr4 Chd4$b fileid ext size], ! 
hdr4 Chd4$tjileid_ext], 0) eql ! 



EOF means 
no HDR4 
Error whic 
is not EOF 
Filename fits in H 



then true 
else false 



then 



end 



end 
else faLse 



begin 

local 



ZZ-ENSAA- 


7.0 


ANSI 




07-07 




; 0298 


5 


; 0299 


5 


0300 


5 


; 0301 


5 


; 0302 


5 


; 0303 


5 


0304 


5 


; 0305 


5 


0306 


5 


; 0307 


5 


; 0308 


5 


; 0309 


5 


0310 


6 


0311 


6 


; 0312 


6 


; 0313 


6 


03H 


6 


; 0315 


6 


0316 


6 


0317 


6 


; 0318 


6 


; 0319 


6 


0320 


6 


; 0321 


6 


; 0322 


6 


0323 


6 


0324 


6 


0325 


6 


0326 


6 


0327 


6 


0328 


6 


; 0329 


6 


; 0330 


6 


; 0331 


7 


; 0332 


6 


0333 


6 


0334 


6 


0335 


6 


0336 


6 


0337 


5 


0338 


5 


0339 


5 


0340 


6 


0341 


6 


; 0342 


7 


0343 


7 


0344 


7 


0345 


7 


0346 


6 


; 0347 


6 


0348 


6 


0349 


7 


; 0350 


7 


0351 


7 


; 0352 


6 


; 0353 


6 


; 0354 


6 
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7 

(2) 



block_length; 



KLUGE: 



This module does NOT actually 
is present , it will copy the 
field. This supports the DS ' 
purpose. 



support SNAM block. However, if one 
'resultant name string" into the RSA 
'Directory" command and has no other 



if .fab CfabSl.nam] neq 
then 

begin 



bind 



phynam = .cblock Cct l$l_ptable] 
nam = .fab [fab$l_nam] : bblock; 



bblock, 



1 



Trim off "J 



local 

blank, 

dev : bblock [dsc$c_s_bln] , 
file : bblock CdscSc.s bin], 
longfile : bblock Cdsc$c_s_bln], 
a : bblock Cdsc$c_s_bln]; 

a CdscSw_lengthD = .nam [nam$b rssJ; 

a [dscSa"~pointer] = .nam CnamSl rsaJ; 

dev [dscla_pointer] = .phynam [BscSa pointer] 

dev Cdsc$w~length] = .phynam CdscSw TengthJ - i; 

file CdscSa DOinterJ = hdrl [hdlSt Ti leid] • 

blank - chSTind ch (17, hdrl [hd1$f f i leidJ , Xc ' '); 

file [dscSw length] = (if .blank eqT then 17 else .blank - hdrl LhdlSt^ti LeidD ) 

longfile [dscSa ^pointer] = hdr4 [hd4St.J i leid.ext]; 

if T(.hdr4 egl lasc i i , H0R4 t ) or (.hdr4 egl Xasc i i , E0F4 1 )) 

then longfile CdscSw. length] = .hdr4 Lhd4Sb_f i leid_ext_size] 

else longfile CdscSw" length] = 0; 
Sfao (Sascid C ' !AS: JAS!XS; !ZL * ) , a, a, dev, file, longfile, . tapeversion) ; 

J Convert version to ascii 
nam [namSb.rslJ = .a Cdsc$w_lengthj 
end; 

if .hdrl eql XasciTHDRV 

then begin 

if .hdr4 eql Xascii , HDR4 l ! At start of file, skip leading EOF 
then begin ! Already there if pre-VMS V4 tape 

status * booSqio (1, 0, 0, io$ skipfile, 0, .cblock Cctl$l_rpb]); 
if not .status then return rmsS_rer 
end 
end 
else begin ! at end of tile, backover trailers and data 

if ,hdr4 neq Xascii , E0F4 t ! Backup an extra tape mark 
then begin 

status = booSqio (-1, 0, 0, ioS.sk ipti le, 0, .cblock Ec t ISl.rpbD) ; 

if not .status then return rmsS'rer 

end; 

status - booSqio (-1, 0, 0, ioS.skipti le, 0, .cblock [ctl$l„rpb]) ; 



C07] 



C07] 
C07] 
C07] 
C07] 
[07] 



[07] 
C07] 
[07] 



[07] 
[07] 
[07] 
[073 
[07] 



ZZ-ENSAA- 


7.0 


ANS1 




07-07 




; 0355 


6 


; 0356 


6 


; 0357 


6 


; 0358 


6 


; 0359 


6 


; 0360 


6 


; 0361 


6 


; 0362 


6 


; 0363 


6 


; 0364 


6 


0365 


6 


0366 


5 


; 0367 


5 


; 0368 


5 


0369 


5 


; 0370 


6 


; 0371 


6 


; 0372 


6 


0373 


6 


; 0374 


6 


0375 


6 


0376 


6 


0377 


6 


0378 


6 


0379 


6 


0380 


5 


0381 


6 


; 0382 


6 


; 0383 


6 


0384 


6 


0385 


6 


0386 


6 


0387 


7 


0388 


7 


0389 


7 


0390 


6 


0391 


6 


0392 


6 


; 0393 


7 


0394 


7 


0395 


7 


; 0396 


6 


0397 


6 


0398 


6 


0399 


6 


0400 


6 


0401 


6 


0402 


6 


; 0403 


6 


0404 


6 


0405 


6 


0406 


6 


0407 


6 


0408 


6 


0409 


6 


0410 


6 


0411 


6 
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if not .status then return rms$_rer; 

status = booSqio M, 0, 0, ioS.skipfile, 0, .cblock [ctl$l_rpb.]); 

if net .status then return rms$_rer; 

status = booSqio (1, 0, 0, io$_skipf i Le, 0, .cblock [ctl$l H rpb]>; 

if not .status then return rms$_rer; 

end; 

if ,(hdr2 [hd2St„recatr1J) neq Xascii 1 ' 
then 

begin 



bind 



fat = hdr2 Chd2$t_recatr1 1 : block [fat$cjength, byteD; 



else 



fab [fab$b rat] - .fat C tatSb rattribJ; 

fab ffab$b~rfm] = .fat CfatSv.rtype]; 

fab [fab$b"fsz] - .fat C f at$b_vf csize]; 

fab [fab$w„mrs] = .fat CfatSw^maxrecJ; 
end 

begin 

selectone ,hdr2 [hd2$b„.rec format] of 
set 

LXt'ri : 
begin 

fab CtabSb rfm] = fab$cjix; 
fab [fab$wjnrs] = scan$numeric (10, 5, hdr2 [hd2$t„reclen]); 

end; 

CXc'D'] : 
begin 

fab [fab$b rfm] - fab$c var; 
fab L'fab$w~mrs] = scanSnumeric (10, 5, hdr2 Lhd2$t_reclen]) - 4; 

end; 

[otherwise] : 

return rrns$ org; 
tes; 

selectone .hdr2 [hd2$b_tornicntrU of 

set 

HC'A'J : 

fab [fab$b_rat] = tabSm^ftn; 

[2c ' '] : 

fab [fab$b_rat] = tab$m_cr; 

[otherwise] : 
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0412 6 fab CfabSb.rat] = 0; 

041 3 6 tes; 

0414 6 

0415 5 end; 

0417 6 if not (status = rmsSalloc cache ((scanSnumeric (10, 5, hdr2 Chd2$t_blocklenD) + 51D/512 

0418 6 )) 

0419 5 then 

0420 5 return rmsS dme; 

0421 5 

0422 5 cblock [ct ISl.eof vbn3 = 0; 

0423 5 cblock Cct Uw.of f bvteJ = 0; 

0424 5 cblock Cc t LSI IvbnJ = cblock Cctl$l_hvbnJ = 1; 

0425 5 cblock Cc t l$l"tapepos3 = 1; 

0426 5 p _, 

0427 5 while get block length( ;block length) do i C06J 

0428 6 begin" 

0429 6 

0430 6 bind . , 

0431 6 size = cblock CctlSw cache si2eJ : word; 

0432 6 \ ~ 

0433 6 if .cblock CctlSl.tapepos] eql 1 

0434 6 then 

0435 7 begin 

0436 7 

0437 7 local 

0438 7 trap; 

0439 7 

0440 7 tmp = .cblock Cct l$l cache3J; 

0441 7 cblock CctlSl cache3J = .cblock CctL$l_cache1]; 

0442 7 cblock Cc t ISTcachel ] = .tmp; 

0443 7 cblock CctlSL.hvbnD = .size + 1; 

0444 6 end; 

0445 6 

0446 6 it .cblock Cct l$l„tapepos] eql .size + 1 

0447 6 then 

0448 7 begin 

0449 7 

0450 7 local 

0451 7 tmp; 

0452 7 

0453 7 tmp = .cblock Cct l$l cache3]; 

0454 7 cblock Cc t IS L cache3J = .cblock Cc tl$l_cache2]; 

0455 7 cblock Cc t l$l"cache23 = .tmp; 

0456 7 cblock CctLSl htfbn] = ,size A 1 + 1; 

0457 6 end; 

0458 6 

0459 6 cblock CctlSl tapepos] = .cblock Cct LSI tapepos] + .size; 

0460 6 cblock Cct l$Teof vbn] = ((.cblock Cc t L ST eofvbn] + .size - 1) and not (.size - 1)) ♦ 

0461 6 ((.block length + 511) A -9); 

0462 6 cblock CctlSw offbyte] = ,block_length and 511; 

0463 5 end; 

0464 5 

0465 5 cblock CctlSl eotvbnJ - .cblock Cct LSI eof ubnD ♦ 1; 

0466 5 status - booSqio (-1, 0, 0, io$ skipfile, 0, .cblock Cc t l$l_rpb3) ; 

0467 5 

0468 5 it not .status then return rms$„rer; 



ZZ-ENSAA- 


7.0 


ANSI 




07-07 




; 0469 


5 


; 0470 


5 


0471 


5 


; 0472 


4 


0473 


5 


0474 


5 


0475 


5 


0476 


5 


0477 


6 


0478 


6 


0479 


6 


; 0480 


6 


0481 


7 


; 0482 


7 


; 0483 


8 


0484 


8 


0485 


8 


0486 


8 


0487 


8 


0483 


8 


; 0489 


8 


; 0490 


7 


0491 


7 


0492 


7 


049 5 


7 


; 0494 


7 


0495 


7 


0496 


7 


0497 


7 


0498 


7 


0499 


6 


0500 


6 


0501 


6 


0502 


6 


; 0503 


o 


0504 


7 


0505 


7 


050o 


i 


0507 


6 


0508 


6 


; 0509 


6 


0510 


6 


0511 


6 


0512 


6 


0513 


6 


0514 


6 


0515 


6 


0516 


6 


0517 


6 


0518 


5 


0519 


5 


0520 


4 


; 0521 


4 


0522 


3 


; 0523 


3 


0524 


:> 


; 0525 


4 
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else 



Return RM$S_normal 
end 

begin 

if .hdrl eql 'HDR1 ' 
then 

begin 



! Not correct file 

! If at start of file skip whole file 



if chScompare (80, hdrl, 80, firstl, 0) eql 
then 

begin 

if .hdr4 eql Xascii * HDR4 ' 
then begin 

status = booSqio (-1, 0, 0, ioS_sk iprecord, 0, .cblock Cctl$l_rpb]) 
if not .status then return rms$_rer; 
end 

else begin ! Must be pre-VMS V4 tape (no HDR4) 

status = booSqio (-1, 0, 0, io$_skipf i le, 0, .cblock Cct L$l_rpb3); ' 
if not .status then return rms$~rer; 
end; 
status = booSqio (-1, 0, 0, io$_skiprecord, 0, .cblock Cct t$L_rpbD); 
if not .status then return rms$~rer; 

status = booSqio (-1 , 0, 0, ioS^skiprecord, 0, .cblock Cct l$l_rpbJ); 
if not .status then return rmsS rer; 

status = boo$qio (-1 , 0, 0, io$_skiprecord, 0, .cblock Cct LSl_rpbJ ); 
if not .status then return rms$~rer; 
return rms$_fnf; 
end 
else 

if .firstl COJ eql then chSmove (80, hdrl , firstl); 

it .hdr4 eql Xascii'HDR4' 
then begin 

statu; = booSqio (1, 0, 0, io$ skipfile, 0, .cblock Cct l$l_rpb]); 

if not .status then return rms$_rer; 

end; 

status = booSqio (1, 0, 0, io$_skipf i le, U, .cblock Cct l$l_rpb]) ; 

it not .status then return rmsS_rer; 

status = booSqio (1, 0, 0, io$_skipf i le, 0, .cblock Cct lSl_rpb]); 

if not .status then return rms$_rer; 

flag Cend_ot_tile] = true; 
end; 



[07] 
C07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
C07] 



C07] 
C07] 



end; 

end; 

[ss$ dataoverunJ : 
Begin 



ZZ-ENSAA- 


7.0 


ANSI 




07-0? 




; 0526 


4 


0527 


4 


0528 


4 


; 0529 


4 


; 0530 


4 


; 0531 


3 


; 0S32 


3 


; 0533 


3 


0534 


4 


053 r , 


4 


0536 


4 


; 0537 


4 


0538 


5 


; 0539 


5 


; 0540 


5 


0541 


5 


0542 


5 


0543 


5 


0544 


5 


0545 


4 


; 0546 


4 


0547 


4 


0548 


3 


0549 


3 


0550 


3 


0551 


3 


; 0552 


3 


0553 


3 


0554 


2 


0555 


2 


0556 


2 



0557 1 
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status = booSqio (1, 0, 0, io$_skipfile, 0, .cblock Cctl$L_rpbD); 
if not .status then return rms$_rer; 

flag Cend_of_f Ue3 = false; 

end; 

Lss$ endof f i le3 : 
Begin 

if .flag Cend_of_f He J 
then 

begin 

status = booSoio (0, 0, 0, io$_rewind, 0, .cblock Cc tl$l_rpb]); 

flag [end„.of_fi leJ = false; 

if .flag [end_of,pass1 3 then return rms$_fnf else flag Cend_of_pass1] = true; 

end 



else 



flag Cend^of^fi leJ = true; 



end: 

[otherwise] : 

return rmsS^rer; 
tes; 



end; 

s;S normal 
END? 



4C 5A 21 38 53 41 21 53 41 21 3A 53 41 21 00000 P.AAB: 

0000E 
0000000E 00010 P. AAA: 
00000000' 00014 









05FC 


00000 




5F 


FE14 


CE 9E 


00002 




56 


OC 


A8 9E 


00007 


Or 


A9 


00000000V 


EF 9E 


00OOB 


10 


AQ 


00000000V 


Ef 9E 


00013 


14 


A9 


00000000V 


EF 9E 


0001 B 



.TITLE ANSI *** ANSI magtape RMS support 

.IDENT \07-07\ 

.PSECV DATA,NOWRT,NOEXE, SHR,2 

.ASCII \!AS:!AS!AS;!ZL\ 

.8LKB 2 

.LONG 14 
.ADDRESS P.AAB 

.EXTRN SCANSNUMERK, KB CHECK 

.EXTRN RMSSALLOC CAC4F " 

.EXTRN GET BLOCfTLLNGT. 

.EXTRN B0C$QI0. SYSSFAL 

.PSECT CODE,NOWRT, S. IR , 2 

.ENTRY ANSISOPEN, Save R2,R3,R4,R5,R6,R7,R8,R10 

MOVAB -492CSP), SP 

MOVAB 12(FAB), R6 

MOVAB ANSISGET, 12(CBLOCIO 

MOVAB ANSISREAD, 16(CBL0CK) 

MOVAB ANSISCLOSE, 20(CBLOCK) 



0129 

i 

0206i 

02111 
0212 
0213 



ZZ-ENSAA-7.0 

ANSI 
07-07 



an<;i$open 

*** ANSI magtape RMS support 

ansiSopen 



4C 89 



AC 89 



48 A9 



58 

50 



48 



AC 



0084 8F 



20 
28 AE 



000000006 



000000006 



31464F45 
31524448 



57 
A9 



51 

A9 
54 
54 
55 
53 

6E 

6E 

67 



7E 



EF 
66 
1C 



7E 



7E 

7E 

000000006 EF 
66 
01 



5A 

8F 
55 



5D 



01 



48 



000000006 



28 



OOAC 
38 



04 
38 



EF 
66 
04 
50 

OOOOOOOOG 
58 38 



50 
BO 



BO 
BO 
03 



8F 

02 

51 

A1 

3B 

02 

51 

57 

51 

51 

A9 

50 

51 

OA 

EF 

50 

00 

AE 

58 

5A 

CE 

A9 

04 

7E 

7i 

06 

50 

50 

AB 

18 

A9 

24 

7E 

7E 

06 

50 

30 

66 

EF 
A9 
58 
21 
7E 
8F 
AD 
06 
50 
66 
03 
0470 
04 
AD 
OA 
AD 
5A 
AD 



3A 
12 
D4 
9E 
3A 
12 
D4 
C3 
D6 
C3 
3C 
CO 
DO 
DO 
16 
DO 
2C 

28 

D4 

94 

DD 

7D 

7C 

D4 

FB 

DO 

E9 

95 

18 

DD 

7D 

7C 

D4 

F8 

DO 

E8 

DO 

04 

16 

DO 

DD 

7r 

D< 

9A 

9F 

FB 

DO 

D1 

13 

31 

8A 

D1 

13 

D1 

12 

9E 
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131 



00023 

0002A 

0002C 

0002E 

00032 

00038 

0003A 

0003C 

00040 

00042 

00047 

0004B 

0004E 

00051 

00054 

0005A 

0005D 

00064 

00066 

0006B 

0006D 

00071 

00074 

00077 

00079 

0007B 

00082 

00085 

00088 

0008B 

0008D 

00090 

00093 

00095 

00097 

0009E 

OO0A1 

000A4 

000A7 

OO0A8 

OOOAE 

000B2 

00084 

000B7 

000B9 

OOOBD 

OOOCO 

000C7 

OOOCA 

OOOCO 

OOOCF 

OO0D2 

000D5 

OOODD 

OOODF 

000E7 

000E9 



1$: 



2$: 



3$: 
4$: 



5$; 



6$: 



LOCC 

BNEQ 

CLRL 

MOVAB 

LOCC 

BNEQ 

CLRL 

SUBL3 

JNCL 

SU8L3 

MOVZWL 

ADDL2 

MOVL 

MOVL 

J SB 

MOVL 

M0VC5 

M0VC3 

CLRL 

CLR8 

PUSHL 

MOVQ 

CLRQ 

CLRL 

CALLS 

MOVL 

BL8C 

TSTB 

B6E0 

PUSHL 

MOVQ 

CLRQ 

CLRL 

CALLS 

MOVL 

BL8S 

MOVL 

RET 

JSB 

MOVL 

PUSHL 

MOVQ 

CLRL 

MOVZBL 

PUSHAB 

CALLS 

MOVL 

CMPL 

BEQL 

BRW 

BICB2 

CMPL 

BEQL 

CMPL 

BNEQ 

MOVAB 



#93, 72'CROCK), S)76(CBL0CK) 
U 



R1 

KR1), ADR 

#59, *2(CBL0CK), S76CCBL0CK) 

2$ 

R1 

ADR, VERADR, LEN 

VERADR 

VERADR, 76(CBL0CK), RO 

72(CBLOCK), VERLEN 

RO, VERLEN 

VERADR, R5 

#10, R3 

SCAN5NUMERIC 

RO, VERSION 

#0, (SP), #32, #132, FILENAME 

LEN, (ADR), FILENAME 

FLAG 

F1RST1 

56(C8L0CK) 

#4, -(SP) 

-(SP) 

-(SP) 

#6, BOOtQIO 

RO, (R6) 

RO, 3$ 

4(FAB) 

4$ 

56(C8LOCK) 

#36, -(SP) 

-(SP) 

-(SP) 

#6, BOOSQIO 

RO, (R6) 

RO, 4$ 

(R6), RO 

KB CHECK 

56TCBLOCK), R8 

R8 

#33, -(SP) 

-(SP) 

#80, -(SP) 

HDR1 

#6, BOOSQIO 

RO, (R6) 

(R6), #1 

5$ 

54S 

#4, FLAG 

HDR1, #826691397 

6$ 

HDR1 , #827475016 

9$ 

HDR1+35, R5 



Page 12 
(2) 

0227 



0228 



0229 
0230 
0231 



0232 



0233 

0234 
0236 
0237 
0239 



0242 
0245 



0246 

0251 

0252 



0257 



0259 
0261 



0263 



ZZ-ENSAA-7.0 

ANSI 
07-07 



ansiSopen 
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RMS support 



B4 AD 



04 
28 



31524448 



000000006 



000000006 



000000006 



00000870 



54 
53 

57 
57 
55 
54 
53 

AE 
54 
AE 

54 



2A 
8F 
6E 



00000064 
D7 



OOOOOOOOG 
9D 



7E 
7E 

EF 
66 
48 

7E 

7E 

EF 
66 
2C 

7E 

7E 

EF 
66 
2A 



8F 

03 

50 



04 
OA 
000000006 EF 
50 
8F 
AD 
02 
OA 
EF 

A047 
01 
11 
03 
01 
54 
10 
AE 
12 
AD 
08 
AE 
07 
6E 
03 

0084 
58 



28 
BO 
04 



50 

FF60 



50 
FF10 



50 

FF10 



28 



FF14 



21 
7E 
8F 
CD 
06 
50 
66 
58 
21 
7E 
3F 
CD 
06 
50 
66 
58 
21 
7E 
8F 
CD 
06 
50 
AE 
04 
6E 
2C 
66 
23 
66 
03EE 
CD 



DO 

DO 

16 

DO 

C4 

9E 

DO 

DO 

16 

9E 

DO 

29 

1A 

D9 

D5 

13 

91 

12 

D1 

12 

D1 

13 

D5 

13 

31 

DD 

7D 

D4 

9A 

9F 

FB 

DO 

E9 

DD 

7D 

D4 

9A 

9F 

FB 

DO 

E9 

DD 

7D 

D4 

9A 

9F 

F8 

DO 

91 

12 

D5 

13 

D1 

13 

E8 

31 

9A 
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13 
(2) 



OOOED 
OOOFO 
00OF3 
00OF9 

OOOFC 

00103 

00107 

001 OA 

0010D 

00113 

00119 

001 1 c 

00122 

00124 

00127 

00129 

0012B 

0012F 

00131 

00139 

001 3B 

001 3F 

00141 

00K3 

00145 

00148 

00I4A 

0014D 

0014F 

00153 

00157 

001 5E 

00161 

00164 

00166 

00169 

0016B 

0016F 

00173 

001 7A 

001 7D 

00180 

00182 

00185 

00187 

0018B 

0018F 

00196 

00199 

0019D 

0019F 

001A1 

001A.3 

001AA 

001AC 

001AF 

001B2 



7$: 



8$: 



9$: 
10$: 



11$ 
12$ 
13$ 



MOVL 

MOVL 

JSB 

MOVL 

MULL2 

MOVAB 

MOVL 

MOVL 

JSB 

MOVAB 

MOVL 

CMPC3 

BGTRU 

SBWC 

TSTL 

BEQL 

CMPB 

BNEQ 

CMPL 

BNEQ 

CMPL 

BEQL 

TSTL 

BEQL 

BRW 

PUSHL 

MOVQ 

CLRL 

MOVZBL 

PUSHAB 

CALLS 

MOVL 

BL8C 

PUSHL 

MOVQ 

CLRL 

MOVZBL 

PUSHAB 

CALLS 

MOVL 

BLBC 

PUSHL 

MOVQ 

CLRL 

MOVZBL 

PUSHAB 

CALLS 

MOVL 

CMPB 

BNEQ 

TSTL 

BEQL 

CMPL 

BEQL 

BLBS 

BRW 

MOVZBL 



#4 t R4 
010, R3 

SCAN$NUMFRIC 

RO, R7 

#100, R7 

HDR1+39, R5 

#2, R4 

#10, R3 

SCAN$NUMERIC 

-99<R0)[R7], TAPEVERSION 

#1, R4 

#17, FILENAME, HDR1+4 

7$ 

#1, R4 

R4 

8$ 

FILENAME, #42 

9$ 

HDR1, #827475016 

9$ 

TAPEVERSION, VERSION 

10$ 

VERSION 

10$ 

15$ 

R8 

#33, -<SP) 

-<SP) 

#80. -<SP> 

HDR2 

#6, B00$QI0 

RO, (R6) 

(R6), 12$ 

R8 

#33, -<SP) 

-(SP) 

#80, -<SP) 

HDR4 

#6, BOO$QIO 

RO, (R6) 

<R6), 12$ 

R8 

#33, -<SP) 

-<SP) 

#80, -(SP) 

HDR4 

#6, B00$QI0 

RO, (R6) 

FILENAME, #42 

11$ 

VERSION 

16$ 

#2160 



0264 



0265 



0266 



0268 



0269 
0271 



0272 
0274 



(R6) 

16$ 

(R6) 

61$ 

HDR4+4, 



13$ 



RO 



0276 

0278J 

0280 
0282 



2Z-ENSAA-7.0 

ANSI 
1)7-07 



ansiSopen 

*** ANSI magtape 

ansiSopen 



FF15 CD 



RMS support 



39 



24 
20 



AE 
AE 



B4 AD 



18 

14 

34524448 

34464F45 

10 



0OO0O0OOG 

03 
31524448 



OOOOOOOOG 



54 

AE 

54 



52 





50 


08 


AE 


OC 


AE 


04 


AO 




60 


1C 


AE 




11 



51 

50 
51 
AE 
AE 
8F 

8F 

AE 



00 
A2 
8F 



34524448 8F 



71 



EF 
66 
55 



28 



3C 
02 
04 



B4 



B4 



FF15 
FF10 

FF10 

FF14 

10 
04 
14 
20 
?X 
t8 
1C 

oooooooo 

08 
BO 

FF10 



34464F45 8F 



FF10 



16 
01 
50 
03 
01 
54 
03 

0282 
AB 
03 

0086 
A9 
A2 
A2 
01 
01 
AD 
20 
02 
51 
51 
05 
11 
07 
AD 
50 
51 
CD 
CD 
08 
CD 
08 
CD 
03 
AE 
AE 
AE 
AE 
AE 
AE 
AE 

' £F 
07 
AE 
AD 
24 
CD 
6B 
58 
25 
7E 
01 
06 
50 
66 

0314 
CD 



13 

DO 

29 

1A 

D9 

D5 

13 

31 

DO 

12 

31 

DO 

98 

DO 

C1 

A3 

9E 

3A 

12 

D4 

D5 

12 

DO 

11 

9E 

C2 

BO 

9E 

D1 

13 

D1 

12 

98 

11 

B4 

DD 

9F 

9F 

9F 

9F 

9F 

9F 

F8 

90 

D1 

12 

D1 

12 

DD 

7D 

7C 

DD 

F8 

DO 

E8 

31 

D1 



D 11 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 1 Frame D11 Sequence 133 

15:52:20 VAX-11 Bh'ss-32 V4. 0-742 Page 

09:38:03 DMA1 : CSYSO.SYSMAINTJANSI .B32; 168 



14 

(2) 



001B7 

001B9 

001BC 

001C3 

001C5 

001C8 

001CA 

001CC 

001CF 

001 D3 

001D5 

001 D8 

001DC 

001E1 

001E6 

001EC 

001F1 

001F6 

001FB 

001FD 

001FF 

00201 

00203 

00206 

00208 

0020C 

0020F 

00213 

00219 

00222 

00224 

0022D 

0022F 

00235 

00237 

0023A 

0023D 

00240 

00243 

00246 

00249 

0024C 

00252 

00259 

0025E 

10266 

00268 

00271 

00273 

00275 

00278 

0027A 

0027C 

00283 

00286 

00289 

0028C 



14$: 

15$: 
16$: 



17$: 



18$: 



19$: 
20$: 



21$: 

22$: 
23$: 



24$: 



25$: 



R4 

FILENAME+17, HDR4+5 

R4 



26$: 
27$ i 



BEQL 16$ 

MOVL #1 , 

CMPC3 RO, 

BGTRU 14$ 

SBWC #1, 

TSTL R4 

BEQL 16$ 

BRW 42$ 

MOVL 40(FAB), R2 

BNEQ 17$ 

BRW 24$ 

MOVL 60CCBLOCK), RO 

MOVZBW 2(R2), A 

MOVL 4(R2), A+4 

ADDL3 #1, 4(R0), DEV+4 

SUBW3 #1, (RO), DEV 

MOVAB HDR1+4, FILE+4 

LOCC #32, #17, HDR1+4 

BNEQ 18$ 

CLRL R1 

TSTL BLANK 

BNEQ 19$ 

MOVL #17, R1 

BRB 20$ 

MOVAB HDR1+4, RO 

SUBL2 RO, R1 

MOVW R1, FILE 

MOVAB HDR4+5, LONGFILE+4 

CMPL HDR4, #877806664 

BEQL 21$ 

CMPL HDR4, #877023045 

BNEQ 22$ 

MOVZBW HDR4+4, LONGFILE 

BRB 23$ 

CLRW LONGFILE 

PUSHL TAPEVERSION 

PUSHAB LONGFILE 

PUSHAB FILE 

PUSHAB DEV 

PUSHAB A 

PUSHAB A 

PUSHAB P. AAA 

CALLS #7, SYS$FAO 

MOVB A, 3(R2) 

CMPL HDR1, #827475016 

BNEQ 27% 

CMPL HDR4, #877806664 

BNEQ 29$ 

PUSHL R8 

MOVQ #37, -(SP) 

CLRQ -(SP) 

PUSHL #1 

CALLS #6, BOO$QIO 

MOVL RO, <ft6> 

BL8S (R6), 29$ 

BRW 61$ 

CMPL HDR4, #877023045 



0288 



0308 



0313 
0323 
0324 
0325 
0326 
0327 
0328 



0329 



0330 
0331 



0332 

0333 
0334 



0336 
0339 

0341 

0343 



0344 
0348 



ZZ-ENSAA-7.0 

ANSI 

07-07 



ansiSopen 

*** ANSI magtape RMS support 

ansiSopen 



E 11 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 1 Frame E11 Sequence 134 
15. "52: 20 VAX-11 BUss-32 V4. 0-742 Page 

09:38:03 DMA1 :CSYS0.SYSMAINT3ANSI.B32;168 



15 
(2) 



000000006 



000000006 



50 



FF6F 



CD 



000000006 

20202020 

1E 

1F 
3F 
36 

46 

1F 

36 
44 

1F 



36 AB 



7E 

7E 
EF 
66 
DB 

7E 

7E 
EF 
66 

C4 

7E 

7E 
EF 
66 
AD 

8F 

A8 
04 
AB 
AB 
AB 

50 
8F 

AB 
55 
54 
53 

AB 

8F 

AB 
55 
54 
53 



FF6F 
FF70 



FF7E 
FF7F 

FF64 



FF6A 
000000006 



FF6A 
000000006 



41 
1E 



50 

50 0001860C 

50 84 

8F 

AB 



17 

58 

25 

7E 

01 

06 

50 

66 

58 

25 

7E 

01 

06 

50 

66 

58 

25 

7E 

01 

06 

50 

66 

95 

CD 

1F 

CD 

00 

50 

CD 

CD 

6E 

CD 

50 

1B 

01 

CD 

05 

OA 

EF 

50 

2A 

50 

1C 

02 

CD 

05 

OA 

EF 

04 

08 

8F 

AD 
50 
06 

01 
OE 



13 

DD 

7D 

7C 

CE 

FB 

DO 

E9 

DD 

7D 

7C 

CE 

FB 

DO 

E9 

DD 

7D 

7C 

CE 

FB 

DO 

E9 

11 

D1 

13 

90 

EF 

90 

90 

BO 

11 

9A 

91 

12 

90 

9E 

DO 

DO 

16 

BO 

11 

91 

12 

90 

9E 

DO 

DO 

16 

A3 

11 

DO 

04 

9A 

91 

12 

90 

11 



00295 

00297 

00299 

0029C 

0029E 

002A1 

002A8 

002AB 

002AE 

002B0 

002B3 

002B5 

002B8 

002BF 

002C2 

002C5 

002C7 

002CA 

002CC 

002CF 

002D6 

002D9 

002DC 

002DE 

002E7 

002E9 

002EF 

002F6 

002FA 

00300 

00306 

00308 

0030D 

00311 

00313 

00317 

0031 C 

0031 F 

00322 

00328 

0032C 

0032E 

00332 

00334 

00338 

0033D 

00340 

00343 

00349 

0034E 

00350 

00357 

00358 

0035C 

00360 

00362 

00366 



28$: 



29$: 



30$: 



31$: 



32$: 
33$: 



BEQL 

PUSHL 

MOVQ 

CLRGi 

MNE6L 

CALLS 

MOVL 

BLBC 

PUSHL 

MOVQ 

CLRQ 

MNE6L 

CALLS 

MOVL 

BLBC 

PUSHL 

MOVQ 

CLRQ 

HNEGL 

CALLS 

MOVL 

BLBC 

BRB 

CMPL 

BEQL 

MOVB 

EXTZV 

MOVB 

MOVB 

MOVW 

BRB 

M0VZ8L 

CMPB 

BNEQ 

MOVB 

MOVAB 

MOVL 

MOVL 

JSB 

MOVW 

BRB 

CMPB 

BNEQ 

MOVB 

MOVAB 

MOVL 

MOVL 

JSB 

SUBW3 

BRB 

MOVL 

RET 

MOVZBL 

CMPB 

BNEQ 

MOVB 

BRB 



28$ 

R8 

037, -<SP> 

-(SP) 

#1, -(SP) 

#6, BOOfQIO 

RO, (R6) 

(R6), 26$ 

R8 

037, -(SP) 

-(SP) 

#1, -(SP) 

#6, BOO$QIO 

RO, (R6) 

<R6), 26$ 

R8 

037, -(SP) 

-(SP) 

01, -(SP) 

#6, BOOSQIO 

RO, (R6) 

(R6), 26$ 

25$ 

HDR2+15, 05389/6288 

30$ 

FAT+1, 30(FAB) 

00, 04, FAT, RO 
RO, 31 (FAB) 
FAT+15, 63(FAB) 
FAT+16, 54(FAB) 
36$ 

HDR2+4, RO 
RO, 070 
31$ 

01, 31 (FAB) 
HDR2+10, R5 
05, R4 
010, R3 
SCAN$NUMERIC 
RO, 54(FAB) 
33$ 

RO, 068 
32$ 

02, 31 (FAB) 
HDR2+10, R5 
05, R4 
010, R3 
SCAN$NUMERIC 
04, RO, 54(FAB) 
33$ 

099852, RO 



RO 



0350 



0351 
0354 



0356 
0358 



HDR2+36, 

RO, 065 

34$ 

01, 30(FAB) 

36$ 



0360 
0362 
0368 

0375 
0376 

0377 
0378 
0368 
0383 
0386 

0388 
0389 



0383 
0392 

0394 
0395 



0383 
0399 

0402 
0405 

0406 



ZZ-ENSAA-7.0 

ANSI 
07-07 



ansiSopen 

*** ANSI magtape 

ansiSopen 



RMS support 



20 
1E AB 



55 
54 
53 



50 
50 

66 
08 
50 



24 A9 

26 A9 

58 A9 

OO0OOO00G EF 

53 

68 

01 



34 
2C 
24 



24 



50 



44 



A9 

51 



52 
A9 
53 



34 
30 



58 



42 



1E 
FF65 



OOOOOOOOG 

01FF 
00000200 
000000006 



000184D4 



OOOOOOOOG 



50 
A9 
A9 
A9 

50 
51 
51 

51 
A9 
A9 
50 

A9 
50 



51 
52 
52 
51 
09 
A9 



7E 

7E 
EF 



44 
42 



58 

34 
2C 

OA 
24 
OA 
01 
58 

34 
30 



24 
44 



01FF 
F7 



44 
38 



50 
06 
02 
03 
A8 
CD 
05 
OA 
EF 
CO 
8F 
EF 
50 
50 
8F 

A9 

A9 

01 

01 

01 

00 

52 

50 

A9 

15 

A9 

A9 

50 

A9 

A9 

A9 

AO 

A9 

15 

A9 

A9 

51 

01 

A9 

50 

A9 

51 

50 

50 

C3 

8F 

52 

00 

50 

88 

A9 

A9 

25 

7E 

01 

06 



91 

12 

90 

11 

94 

9E 

DO 

DO 

16 

9E 

C6 

16 

DO 

E8 

DO 

04 

D4 

B4 

DO 

DO 

DO 

F8 

DO 

E9 

D1 

12 

DO 

DO 

DO 

3C 

D6 

3C 

9E 

D1 

12 

DO 

DO 

DO 

78 

D6 

CO 

C1 

D7 

D7 

CA 

9E 

78 

C1 

EF 

BO 

11 

D6 

DD 

7D 

7C 

CE 

FB 



F 11 
27-jul-1984 
27-JuL-1984 
26-Jul-1984 



15:52:20 
09:38:03 



Fiche 1 Frame F11 



Sequence 135 
VAX-11 BUss-32 V4. 0-742 Page 

DMA1:[SYS0.SYSMAINT]ANSI.B32;168 



00368 

0036B 

0036D 

00371 

00373 

00376 

0037B 

0037E 

00381 

00387 

0038C 

00393 

00399 

0039C 

0039F 

003A6 

003A7 

003AA 

003AD 

003B1 

003B5 

003B9 

003CO 

003C3 

003C6 

003CA 

003CC 

003D0 

003D5 

003D9 

003DE 

003E1 

003E5 

003E9 

003ED 

003EF 

003F3 

003F8 

003FC 

00401 

00404 

00408 

0040D 

0040F 

00411 

00414 

00419 

0041E 

00423 

00428 

0042C 

0042E 

00431 

00434 

00437 

00439 

0043C 



34$: 



35$: 
36$: 



37$: 



38$ 



39$: 



40$: 



41$: 



CMPB 

BNEQ 

MOVB 

9RB 

CLRB 

MOVAB 

MOVL 

MOVL 

JS8 

MOVAB 

DIVL2 

JSB 

MOVL 

BL8S 

MOVL 

RET 

CLRL 

CLRW 

MOVL 

MOVL 

MOVL 

CALLS 

MOVL 

BLBC 

CMPL 

BNEQ 

MOVL 

MOVL 

MOVL 

MOVZWL 

INCL 

MOVZWL 

MOVAB 

CMPL 

BNEQ 

MOVL 

MOVL 

MOVL 

ASHL 

INCL 

ADDL2 

ADDL3 

DECL 

DECL 

BICL2 

MOVAB 

ASHL 

ADDL3 

EXTZV 

MOVW 

BRB 

INCL 

PUSHL 

MOVQ 

CLRQ 

MNEGL 

CALLS 



032 



R5 



RO, 

35$ 

#2, 30(FAB) 

36§ 

30CFAB) 

HDR2+5, 

#5, R4 

#10, R3 

SCAN$NUMERIC 

51 1<R0>, RO 

#512, RO 

RMS$ALLOC CACHE 

RO, (R6) " 

RO, 37$ 

#99540, RO 

68(C8L0CK) 
66(CBL0CK) 



16 
(2) 

0408 

0409 

0412 

0417 



36CCBL0CK) 

40(C8LOCK) 

88(CBL0CK) 

GET BL0CKJ.ENGTH 

R3 " 



#1, 

#1, 

#1, 

#0, 

R2, 

RO, 41$ 

88CCBL0CK) 

39$ 

52(CBLOCK) 

44(CBLOCK) 



#1 

TMP 
52(CBLOCK) 



R1 

TMP 
52(CBLOCK) 



TMP, 44CCBLOCK) 

10CCBLOCK), 36(CBLOCK) 

36CCBL0CK) 

10CCBL0CK), RO 

KRO), R1 

88CCBL0CK) 

40$ 

52CCBL0CK) 

48(CBL0CK) 

TMP, 48(CBLOCK) 

#1, RO, 36(CBL0CK) 

36CCBL0CK) 

RO, 8P(CBL0CK) 

68(CBL0CK), RO, R1 

R1 

RO 

RO, R1 

51KR3), R2 

#-9, R2, R2 

R2, R1, 68(CBLOCK) 

#0, #9, BLOCK LENGTH, RO 

RO. 66(CBL0CK7 

38$ 

68CCBL0CK) 

56(CBL0CK) 

#37, -(SP) 

-(SP) 

#1, -(SP) 

#6, BOO$QIO 



042O 

0422 
0423 
0424 

0425 
0427 



0433 

0440 
0441 
0442 
0443 

0446 



0453 
0454 
0455 
0456 

0459 
0460 



0461 



0462 

0427 
0465 

0466 



ZZ-ENSAA-7.0 

ANSI 

07-07 



ansiSopen 

*** ANSI magtape RMS support 

ansiSopen 



66 
7E 
50 

31524448 8F 



OOAC CE 



BO 



OO000000G 



000000006 



OOOOOOOOG 



OOAC CE BO 
34524448 



54 

AD 

54 



34524448 8F 

7E 



00010001 
BO 



0050 



7E 

/E 
EF 
66 
75 

7E 

7E 
EF 
66 
74 

7E 

7L 
EF 
66 
76 

7E 



7E 

OOOOOOOOG EF 

66 

70 



AD 
8F 



7E 



FF10 



OOAC 

0050 
FF10 



6 11 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 1 Frame 61 1 Sequence 136 
15:52:20 VAX-11 BUss-32 V4. 0-742 Page 

09:38:03 DMA1 : CSYSO.SYSMAINTJANSJ .B32;168 



17 
(2) 



OOOOOOOOG EF 



50 DO 00443 MOVL RO, <R6). 

66 E9 00446 BLBC <R6), 47$ 

8F DO 00449 MOVL #65537, RO 

04 00450 RET 

AD D1 00451 42$; CMPL HDR1, #827475016 

03 13 00459 BEQL 43$ 

FC4A 31 0045B BRW 4$ 

01 DO 0045E 43$: MOVL 01, R4 

8F 29 00461 CMPC3 #80, HDRi , FIRST1 

03 1A 0046A BGTRU 44$ 

01 D9 0046C SBWC #1, R4 

54 D5 0046F 44$: TSTL R4 

71 12 00471 BNEQ 48$ 

CD D1 00473 CMPL HDR4, #877806664 

07 12 0047C BNEQ 45$ 

58 DD 0047E PUSHL R8 

26 7D 00480 MOVQ #38, -(SP) 

05 11 00483 BRB 46$ 
58 DD 00485 45$: PUSHL R8 

25 7D 00487 MOVQ #37, -(SP) 
7E 7C 0048A 46$: CLRQ -(SP) 

01 CE 0048C MNEGL #1, -(SP) 

06 FB 0048F CALLS #6, BOO$QIO 
50 DO 00496 MOVL RO, (R6) 

66 E9 00499 BL8C (R6), 50$ 

58 DD 0049C PUSHL R8 

26 7D 0049E MOVQ #38, -(SP) 
7E 7C 004A1 CLRQ -(SP) 

01 CE 004A3 MNEGL #1, -(SP) 

06 FB 004A6 CALLS #6, BOO$QIO 

50 DO 004AD MOVL RO, (R6) 

66 E9 004B0 BLBC (R6), 52$ 

58 DD 004B3 PUSHL R8 

26 7D 004B5 MOVQ #38, -(SP) 

7E 7C 004B8 CLRQ -(SP) 

01 CE 004BA MNEGL #1, -(SP) 

06 FB 004BD CALLS #6, BOO$QIO 

50 DO 004C4 MOVL RO, (R6) 

66 E9 004C7 47$: BLBC (R6), 53$ 

58 DD 004CA PUSHL R8 

26 7D 004CC MOVQ #38, -(SP) 

7E 7C 004CF CLRQ -(SP) 

01 CE 004D1 MNEGL #1, -(SP) 

06 FB 004D4 CALLS #6, BOO$QIO 

50 DO 004DB MOVL RO, (R6) 

66 E9 004DE BLBC (R6), 55$ 

00A9 31 004E1 BRW 57$ 

CE 95 004E4 48$: TSTB FIRST1 

09 12 004E8 BNEQ 49$ 

8F 28 004EA M0VC3 #80. HDR1, FIRST1 

CD D1 004F3 49$: CMPL HDR4, #877806664 

16 12 004FC BNEQ 51$ 

58 DD 004FE PUSHL R8 

25 7D 00500 MOVQ #37, -(SP) 

7E 7C 00503 CLRQ -(SP) 

01 DD 00505 PUSHL #1 

06 FB 00507 CALLS #6, B00$QI0 



0468 
0470 

0475 

0479 



0482 
0484 

0488 



0489 
0491 



0492 
0493 



0494 
0495 



0496 
0501 

0503 

0505 



ZZ-ENSAA-7.0 
ANSI 

07-07 



ansiSopen 

*** ANSI magtape 

ansiSopen 



RMS support 





66 
4A 




7E 


000000006 


EF 
66 
76 




7E 


000OO000G 


Ef 
66 
5A 


00000838 


8F 



7E 



OOOOOOOOG Ef 
66 
3F 

5A 



00000870 



17 



OOOOOOOOG 



08 



8F 
5A 

71 



U 
66 
5A 
5A 
50 00018292 



50 

66 

58 

25 

7E 

01 

06 

50 

66 

58 

25 

7E 

01 

06 

50 

66 

5E 

66 

18 

58 

25 

7E 

01 

06 

50 

66 

04 

37 

66 

31 

02 

58 

24 

7E 

7E 

06 

30 

04 

01 

8F 



5A 02 

03 

5A 04 

FB08 

50 0001C0F4 8F 



DO 

E9 

DD 

70 

7C 

DD 

F8 

DO 

E9 

DD 

7D 

7C 

DD 

F8 

DO 

E8 

11 

D1 

12 

DD 

7D 

7C 

DD 

F8 

DO 

E9 

8A 

11 

D1 

12 

E1 

DD 

7D 

7C 

D4 

FB 

DO 

8A 

E1 

DO 

04 

88 

11 

88 

31 

DO 

04 



H 11 

27-JuL-1984 
27-Jul-1984 
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18 
(2) 



0050E MOVL RO, (R6) 

00511 50$: BLBC <R6>, 55$ 

00514 51$: PUSHL R8 

00516 MOVQ #37, -(SP) 

00519 CLRQ -(SP) 

0051B PUSHL #1 

0051D CALLS #6, B00$QI0 

00524 MOVL RO, (R6) 

00527 52$: BLBC (R6), 61$ 

0052A PUSHL R8 

0052C MOVQ #37, -(SP) 

0052F CLRO -(SP) 

00531 PUSHL #1 

00533 CALLS #6, BOOSQIO 

0053A MOVL RO, (R6) 

0053D BLBS (R6), 59$ 

00540 53$: BR8 61$ 

00542 54$: CMPL (R6), #2104 

00549 BNEQ 56$ 
0054B PUSHL R8 

0054D MOVQ #37, -(SP) 

00550 CLRQ -(SP) 
00552 PUSHL #1 ' 
00554 CALLS #6, BOO$QJ0 
0055B MOVL RO, (R6) 
0055E 55$: BLBC <R6>, 61$ 
00561 BICB2 #4, FLAG 
00564 8RB 60$ 

00566 56$: CMPL (R6), #2160 

0056D BNEQ 61$ 

0056F BBC #2, FLAG, 59$ 

00573 PUSHL R8 

00575 MOVQ #36, -(SP) 

00578 CLRQ -(SP) 

0057A CLRL -(SP) 

0057C CALLS #6, BOO$QJ0 

00583 MOVL RO, (R6) 

00586 BJCB2 #4, FLAG 

00589 BBC #1. FLAG, 58$ 

0058D 57$: MOVL #98962, RO 

00594 RET 

00595 58$: BISB2 #2, FLAG 
00598 BR8 60$ 
0059A 59$: BISB2 #4, FLAG 
0059D 60$: BRW 4$ 

005A0 61$: MOVL #114932, RO 

005A7 RET 



0506 
0509 



0511 
0513 



0515 
0524 
0526 



0528 
0530 
0254 
0533 

0536 

0539 



05mO 
0542 



0536 
0546 
0254 
0551 
0557 



Routine Size: 1448 bytes. Routine Base: CODE + 0000 



0558 1 



ZZ-ENSAA-' 


7.0 


ANSI 




07-07 




; 0559 


1 


; 0560 


1 


0561 


1 


0562 


1 


; 0563 


* 
i 


0564 


1 


; 0565 


1 


; 0566 


1 


; 0567 


i 


; 0568 


1 


0569 


1 


; 0570 


1 


0571 


1 


; 0572 


i 


; 0573 


1 


; 0574 


i 


0575 


1 


; 0576 


1 


; 0577 


1 


0578 


1 


; 0579 


1 


; 0580 


1 


0581 


1 


058? 


1 


; 0583 


1 


0584 


1 


; 0585 


1 


0586 


1 


; 0587 


1 


0588 


1 


0589 


1 


; 0590 


1 


0591 


2 


059? 


2 


; 0593 


2 


0594 


2 


; 0595 


2 


; 0596 


2 


0597 


2 


; 0598 


2 


; 0599 


2 


0600 




0601 


2 


060? 


2 


; 0603 


2 


0604 


2 


; 0605 


2 


; 0606 


2 


0607 


2 


0608 


2 


; 0609 


1 



ansifcc lose 

*** ANSI magtape RMS support 

ansiSc lose 

XsbttL 'ansiSclose' 

global routine ansiSclose : call„.rms = 

+ + 
Functional description: 

This routine is used to close a file. It positions the tape 

to the final end-of-file mark. 

This positioning is important since if the same file 

is opened again the tape will already be positioned to the EOF 1 

record. 
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Formal parameters: 
Implicit inputs: 



none 



FAB Address of FAB 

cblock Address of perfile data 

Implicit outputs: 

Routine value: 

RMS completion code? 
Side effects; 

The tape may be moved 



begin 

external register 

cblock - 9 : ref block [', byte], 
f*b = 11 : re1 Sfab.decl; 

external routine ! 

booSqio : addressing_mode ( long^relative) ; ! 

bind 

status = fab [ fab$l„stv.l; 

k b check ( ) ; 

status = booSqio (1, 0, 0, iofc_sk ipf i le, 0, .cblock Lc t l$l_rpbJ) ; 

if not .status then return rms$_ccf; 

return rms$_normal; 
end; 



C063 
[06] 



05FC 00000 



.ENTRY ANSISCLOSE, Save R2,R3,R4,R5,R6,R7,R8,R10 ; 0561 



ZZ-ENSAA-7.0 

ANSI 
07-07 



ansi$c lose 

*** ANSI magtape 

ansiSclose 



RMS support 



000000006 
0C 



7E 



EF 
AB 
08 
50 



OOOOOOOOG 
38 



oc 

0001 CODC 



A9 
25 
7E 
01 
06 
50 
AB 
8F 
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50 00010001 8F 



Routine Size: 49 bytes. Routine Base: CODE + 05A8 



16 
OD 
7D 
7C 
DD 
F8 
DO 
E8 
00 
04 
DO 
04 



00002 
00008 
OOOOB 
0000E 
00010 
00012 
00019 
0001 D 
00021 
00028 
00029 
00030 



1$: 



J SB 

PUSHL 

MOVQ 

CLRQ 

PUSHL 

CALLS 

MOVL 

BLBS 

MOVL 

RET 

MOVL 
RET 



KB CHECK 

56TCBL0CK) 

#37, -<SP) 

-<SP) 

#1 

#6, BOOSQIO 

RO, 12CFAB) 

12(FAB), 1$ 

#114908, RO 

#65537, RO 



20 
(3) 

0603 
0604 



0606 



0608 
0609 



0610 1 



ZZ-ENSAA-7.0 

ANSI 
07-07 



0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

064/ 

0648 

0649 

0650 

0651 

0652 

065 3 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 



c 

2 
2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
2 
2 
3 
3 

3 
4 
•♦ 

4 
4 
4 



ansiScachevbn 

*** ANSI magtape RMS support 

ansitcachevbn 

Xsbttl 'ansiScachevbn 1 

global routine ansiSCACHEvbn (vbn) : call.rms = 

+ + 
Functional description: 

This routine is used to place the desired block in the cache 
If necessary the tape is re-positioned to the desired block 
and the cacne updated to include the desired data 

Formal parameters: 

VBN VBN of block desired in the cache 
Implicit inputs: 

cblock Address of per-tite area 
Implicit outputs: 

cblock The cache may be updated 
Routine value: 

Success or failure RMS codes and 1/0 failure codes 
Side effects: 

The device and controller may be accessed to read data from the tape. 



begin 

external register 

cDlock - 9 : ref block [, byteJ; 
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icontrol region 



external routine ! 

booSqio : address ing„mode ( long^relati ve) ; ! 

local 

status; IStatus of boo$qio calls 

if ,vbn geq .cblock [c t LSl.eofvbn] then return ss$_endof f ile; 

if (.vbn Iss .cblock [ctl$l„lvbnJ) or (.vbn geq .cblock [ctlSL.hvbn]) 
then 

! This block is not in the cache 

begin 

while .cblock [ct l$l_tapepos] gtr .vbn do 

begin IBackup until the block found 

kb check (); 

status = boolqio (-1, 0, 0, ioS.sk iprecord, 0, .cblock Let l$l_rpb]); 

if not .status then return .status; 



[06] 
[06] 







ZZ-ENSAA- 


7,0 


ANISI 




17-07 




; 0668 


4 


; 0669 


4 


; 0670 


4 


; 0671 


3 


067? 


3 


0673 


3 


; 0674 


4 


; 0675 


4 


; C676 


4 


; 0677 


4 


; 0678 


4 


; 0679 


4 


0680 


4 


0681 


4 


; 0682 


4 


0683 


4 


; 0684 


4 


0685 


4 


; C686 


4 


; 0687 


4 


0688 


4 


; 06b9 


4 


; 0690 


4 


0691 


4 


; 0692 


/, 


; 0693 


4 


0694 


5 


; 0695 


5 


; 0696 


5 


; 0697 


5 


0698 


5 


0699 


5 


; 0700 


4 


0701 


4 


0702 


4 


0703 


4 


0704 


4 


; 0705 


4 


0706 


4 


0707 


4 


; 0708 


4 


; 0709 


4 


0710 


4 


0711 


4 


; 0712 


3 


0713 


3 


0714 


-> 


; 0715 


i- 


0716 


2 


; 0717 


1 



ansiScachi vbn 

*** ANSI magtape RMS support 

ansiScachevbn 
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cblock [ctl$l tapepos] = .cblock Cct l$l_tapepos] - .cbLcck Lctl$w_cache_sizeJ; 
cblock CctLSrivonJ = cblock Cct LSl.hvbnJ = .cblock Cctl$l_tapeposJ; 

end; 

until (.vbn geq .cblcck Cc t LSI IvbnJ) and (.vbn Iss .cblock Cctl$l hvbnJ) do 

begin IRead forward until desired data is in the cache 



lAddress of cache block 



local 

cache; 

kb„check (); 

case (.cblock Cct ISl^hvbnJ - .cblock CctlSL.lvbnJ)/. cblock CctlSw^cache^sizeD from to 3 of 
set 



[03 : 



cache = .cblock Cctl$l_cache13; 



C1] 



cache = .cblock Cctl$l_cache2J; 



C2] : 



each" = .cblock Lctl$l_cache3D; 



C3J : 



begin JRotate cache in use 

cache = .cblock Cc 1 1 S I cachel]; 

cblock [ctl$l cached = .cblock CctLSl cache23; 

cblock [ctl$Tcache2J = .cblock [c t l$l_cache3J; 

cblock Cc t LSl_cache3J - .:ache; r , „ 

cblock Cctl$LlvbnJ = .cblock Let LSL^L vbnJ + .cblock Cctl$w_cache w si2eD; 
end; 
tes; 

chSf ill (Xc tA \ 12*. cblock CctLSw cache size], .cache); 

status = booSqio (.cache, .cblock [ct l$w_cache_sizeJ*512, 0, io$_readlblk, 0, 
.cblock [ctl$l_rpb]>; 

if not .status then return .status; 

cblock CctlSl tapepos] = .cblock IctlSl tapeposl + .cblock [ct l$w_cache_size]; 
cblock [ctl$l"hvbnJ = min (.cblock Cct iSl.eofvbn] + 1, 
.cblock Cctl$l_hvbnJ + .cblock Let ISw.cache^sizeJ) ; 
end; 



end; 

ss$_norma 
end7 



ODfC 00000 



.ENTRY ANSJSCACHEVBN, Save R2,R3,R4 ,R5,R6,R7,R8,~ ; 0613) 

R1Q,R11 



ZZ-ENSAA-7.0 

ANSI 
07-07 



ansiScachevbn 
*** ANSI magtape 
ans i$cachevbn 



RMS support 



44 



5E 
58 
A9 

50 



28 A9 

24 A9 

57 
58 
5A 
5B 



0OO0OO00G 



?8 



7E 

7E 
EF 
6E 
03 

5C 
67 
6A 
A9 



001A 



50 



03 

oou 



28 A9 

6A 



6A 
51 
50 
00 
OOOE 



56 
56 

56 



50 



5E 8F 





56 


?c 


A9 


34 


A9 




50 


28 


A9 




50 




50 




6E 



04 
0870 



58 
OA 
24 



000000006 
38 



OOOOOOOOG 
28 



2C 
30 

34 

2C 
30 



04 
AC 
5B 
06 
8F 

5B 
06 
58 
4A 
A9 
A9 
A9 
67 
30 
EF 
A9 
26 
7E 
01 
06 
50 
6E 

0088 
68 
50 
67 
6A 
C8 
58 
08 
58 
03 

0091 
EF 
A9 
68 
51 
50 

0008 



A9 
20 
A9 
1A 
A9 
14 
A9 
A9 
56 
68 
50 
68 
OC 
00 
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23 
(4) 



C2 

DO 

D1 

19 

3C 

04 

D1 

19 

D1 

19 

9E 

9E 

9E 

D1 

15 

16 

DD 

7D 

7C 

CE 

F8 

DO 

E8 

51 

3C 

C2 

DO 

DO 

11 

D1 

19 

D1 

18 

31 

16 

C3 

3C 

C6 

CF 



DO 
11 
DO 
11 
DO 
11 
DO 
7D 
DO 
3C 
CO 
3C 
C4 
2C 



00002 

00005 

00009 

OOOOD 

OOOOF 

00014 

00015 

00019 

0001B 

0001 F 

00021 

00025 

00029 

00020 

00030 

00032 

00038 

0003B 

0003E 

00040 

00043 

0004A 

0004D 

00050 

00053 

00056 

00059 

0005C 

00060 

00062 

00066 

00068 

0006B 

0006D 

00070 

00076 

0007B 

0007E 

00081 

00085 



0008D 
00091 
00093 
00097 
00099 
0009D 
0009F 
000A3 
000A8 
OOOAC 
OOOAF 
000B3 
000B6 
000B9 



1$: 



2$: 



3$: 



4$: 



5$: 



6$: 
7$: 



8$: 



9$: 
10$ 
11$ 

12$ 



13$: 



SUBL2 

MOVL 

CMPL 

BLSS 

MOVZWL 

RET 

CMPL 

BLSS 

CMPL 

BLSS 

MOVAB 

MOVAB 

MOVAB 

CMPL 

BLEQ 

JSB 

PUSHL 

MOVQ 

CLRQ 

MNEGL 

CALIS 

MOVL 

BLBS 

BRW 

MOVZWL 

SUBL2 

MOVL 

MOVL 

BRB 

CMPL 

BLSS 

CMPL 

BGEQ 

BRW 

JSB 

SUBL3 

MOVZWL 

D1VL2 

CASEL 

.WORD 



MOVL 

BRB 

MOVL 

BRB 

MOVL 

BRB 

MOVL 

MOVQ 

MOVL 

MOVZWL 

ADDL2 

MOVZWL 

MULL2 

M0VC5 



*4, bP 

VCN, R11 

R11, 68(CBL0CK) 

1$ 

02160, RO 



40(C8LOCK) 



36(CBLOCK) 



R7 
R8 
R10 



R11 

2$ 

R11 

6$ 

88(CBL0CK), 

10(CBL0CK), 

36(CBL0CK), 

(R7), R11 

5$ 

KB CHECK 

56TCBL0CK) 

038, -(SP) 

-<SP) 

#1, -(SP) 

06, B00$Q10 

RO, STATUS 

STATUS, 4$ 

14$ 

(R8), RO 

RO, <R7) 

<R7), (R10) 

(R10), 40(CBL0CK) 

3$ 

R11. 40(C8LOCK) 

7$ 

R11, (R10) 

7$ 

17$ 

KB CHECK 

407CBLOCK), 

(R8), R1 

R1, RO 

RO, #0, #1 

9$-8$,~ 

10$-8$,- 

11$-8$,- 

12$-8$ 

44(CBL0CK), CACHE 

13$ 

48UBL0CK), CACHE 

13$ 

52(CBLOCK), CACHE 

13$ 

44(CBL0CK), 

48(CBL0CK), 

CACHE, 52(CBL0CK) 

(R8), RO 

RO, 40(CBLOCK) 

(R8), RO 

01?, RO 

00, (SP), 094, RO, 



0655 



0657 



0662 
0669 
0670 
0662 

0664 
0665 



(R10), RO 



0667 

0669 

0670 

0662 
0673 



0679 
0681 



CACHE 
44(CBLOCK) 



0685 

0688 

0691 

0695 
0696* 
069§ 
069^ 

07031 



(CACHE) 





ZZ-ENSAA-7,0 


ansiScachevbn 




ANSI 


*** ANSI magtape 
ansiScachevnn 




07-07 



7E 



RMS support 



7E 

50 
50 

O00OO00OG Ef 
6E 
04 
50 



38 



51 



44 



50 
67 
A9 
50 
50 
50 

51 

:a 

50 



66 
A9 
21 
7E 
68 
09 
56 
06 
50 
6E 
6E 

68 

50 
01 
68 
6A 
51 
03 
50 
51 
FF61 
01 



DD 
7D 
D4 
3C 
78 
DD 
FB 
DO 

DO 
04 

3C 
CO 
C1 

3C 

CO 
D1 
15 
DO 
DO 
31 
DO 
04 



; Routine Size; 261 bytes. Routine 8ase: CODE + 05D9 



0718 1 
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24 
(4) 



000BF 
000C0 
000C3 
000C6 
000C8 
000CB 
000CF 
000D1 
000D8 
OOODB 
OOODE 
000E1 
000E2 
000E5 
000 J 8 
OOOED 
OOOFO 
000F3 
000F6 
000F8 
OOOFB 
OOOFE 
00101 

oon* 



14$: 
15$: 



16$: 
17$: 



PUSHL 

MOVQ 

CLRL 

MOVZWL 

ASHL 

PUSHL 

CALLS 

MOVL 

BLBS 

MOVL 

RET 

MOVZJL 

ADDL2 

ADDl3 

MOVZWL 

ADDL2 

CMPL 

BLEQ 

MOVL 

MOVL 

BRW 

MOVL 

RET 



56(CBL0CK) 

#33, -(SP) 

-<SP) 

(R8), RO 

#9, RO, -(SP) 

CACHE 

#6, B00SQ10 

RO, STATUS 

STATUS, 15$ 

STA.'JS, RO 

:-.', RO 

kO, (R7) 

#1, 68CCBL0CK) 

(R8), RO 

(R10), RO 

R1, RO 

16$ 

Rl 

(R10) 



0705 
0704 



R1 



RO, 

R1, 

5$ 

#1. 



RO 



0707 



0709 

0710 
0711 



0710 
0673 
0717 



77-ENSAA-" 


7.0 


ANSI 




07-07 




; 0719 


1 


; O7?0 


1 


; 0721 


1 


; 0722 


1 


; 0723 


1 


; 0724 


1 


; 0725 


1 


; 0726 


1 


; 0727 


1 


; 0728 


1 


; 0729 


1 


; 0730 


1 


; 0731 


1 


; 0732 


1 


; 0733 


1 


; 0734 


1 


; 0735 


1 


; 0736 


1 


; 0737 


1 


; 0738 


1 


; 0739 


1 


0740 


1 


0741 


1 


; 0742 


1 


; 0743 


1 


0744 


1 


; 745 


1 


; 0746 


1 


; 0747 


1 


; 0748 


1 


; 0749 


1 


; 0750 


1 


; 0751 


1 


; 0752 


1 


; 0753 


1 


0754 


1 


; 0755 


1 


; 0756 


? 


0757 


2 


0758 


2 


0759 


2 


; 0760 


2 


; 0761 


2 


; 0762 


2 


; 0763 


2 


0764 


2 


; 0765 


2 


0766 


2 


; 0767 


2 


; 0768 


2 


; 0769 




; 0770 


2 


; 0771 


2 


; 0772 


2 


0771 


2 


0774 


2 


; 0775 


2 



ansi$read 

*** ANSI magtape RMS support 

ansifcread 

%sbt t L 'ansiSread' 

global routine ansiSread : call.rms = 
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1 1 



Functional description: 

This routine is used to read a block from an open file. 
It uses the block number in the RAB to select the next block 
to be read. Dat? blocks read from the tape are cached so 
this may not require a tape access. Most of the work to fill 
and update the cache is done by ANSJ$cacheVBN. 



Formal parameters: 
Implicit inputs: 



none 



FAB Address of FAB tor file 
RAB Address of RAB from caller 
cblock Address of per-file area 

Implicit outputs: 

FAB Unaffected 

RAB The current position is updated 

cblock The cache may be updates 

Routine value: 

RMS completion codes 
Side effects: 

The device and controller may be accessed to read data from the tape. 



begin 

external register 

cblock = 9 : ref block [, byteJ, 
fab - 11 : ref $fab decl, 
rab - 10 : ref Srab,decl; 

external routine ! 

booSqio : addressing_mode ( long^relative); 



[06] 
[06] 



local 

cache : ref vector [, byte], 

user_size. 

user'address, 

vbn;~ 

bind 



lAddress of current cache block 
ISiee to be transtered 
lAddress to receive data 
iCurrent desired VBN 



status - rab [rab$l_ntv3; ICurrent status return value 

vbn » (it .rab [rab$l^bkt] eql then .cblock CctlSL^nbp] else .rab [rab$l^bkt]); 
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3 


0787 


3 
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3 


; 0789 


3 


079O 


3 


0791 


3 


; 0792 


3 


0793 


3 


; 0794 


3 


; 0795 


3 


0796 


3 


; -'079 7 


3 


0798 


3 


0799 


3 


0800 


3 


0801 


3 


0802 


3 


0803 


2 


0804 


? 


0805 


2 


0806 


2 


0807 


2 
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2 


0809 


2 
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2 


081 1 


2 



0812 2 

0813 2 

0814 1 
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26 
(5) 



= .rab Crab$l,ubf]; 



! offset within cache 

llndex to current section of cache 



user size - .rab [rab$w usz3; 
user~address = rab CrabJl.rbfJ 
rab frab$w_rsz] = 0; 
rab Oab$l_rfa0D = .vbn; 
rab Crab$w_rfa4] = 0; 
status s rms$_normal; 

while .user_si*2e gtr do 

begin 

local 

cache^of f set , 
cache~section; 

status = ansiScachevbn (.vbn); 

if not .status then exitloop; 

cache.offset = (.vbn - .cblock [ctlSl.lvbn]); 

cache"section = .cache of fset/. cblock Cctl$w_cache size]; 

cache'offset -- ( .cache'of f set - .cache section*. cblock [c t l$w_cache_sizeJ)*512; 

cache~= .(cblock CctlSl cacheU + .cacfie_section*4) ; 

chSmove (min (512, .user_size), cache [. cache. of fset], .user.address) ; 

user address = .user address + min (512, .user_size); 

rab TrabSw.rszD = .rab Oab$w rsz] + min (512. .user.size) ; 

user. size = .user.size - min (512, .user.size); 

vbn = .vbn + 1 ; 

end; 

cblock LctL$l_nbpD = .vbn; 

if .status and Zx'FFFF' neq 

then 

.status 
else 



it .status eql ss$_endof f i le then rms$_normal else rmsS.rer 



end; 









01FC 00000 




.ENTRY 




5E 




08 


C2 00002 




SUBL2 






OC 


AA 


9F 00005 




PUSHAB 






38 


AA 
07 


D5 00008 
12 OOOOB 




TSTL 
BNEQ 


04 


AE 


04 


A9 
05 


DO OOOOD 
11 00012 




MOVL 
BRB 


04 


AE 


38 


AA 


DO 00014 


1$; 


MOVL 




56 


20 


AA 


3C 00019 


2$: 


M0VZWL 




50 


24 


AA 


DO 0001 D 




MOVL 


28 


AA 




50 


DO 00021 




MOVL 


08 


AE 




50 


DO 00025 




MOVL 






22 


AA 


B4 00029 




CLRW 



ANSISREAD, Save R2,R3,R4,R5,R6,R7,R8 

#8, SP 

12(RAB) 

56(RAB) 

1$ 

4(CBL0CK), VBN 

2$ 

56(RA8), VBN 

32(RAB>, USER SIZE 

36(RAB), R0 

R0, 40(RAB) 

R0, USER ADDRESS 

34(RAB) 



0721 

0773 
0775 



0776J 
0777 



0778 
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10 
00 



FEB3 

00 



51 
50 



52 
51 



04 



08 BE 



00000200 



08 
22 



04 



00000870 



AA 
BE 



CF 
BE 
49 
AE 
50 
51 
52 
52 
51 
52 
58 
57 
8F 

57 
6148 

AE 
AA 
56 



A9 
05 
50 



04 

14 

00010001 



04 



00 
28 

OA 

OA 



AE 
AA 
8F 
56 
59 
AE 
01 
50 
BE 
A9 
A9 
50 
A9 
50 
52 
09 
2C A940 
56 
57 
05 
8F 
57 
57 
57 
57 
AE 
A3 
AE 
BE 
BE 



0200 



04 



04 
00 
00 



8F 00 
50 00010001 
50 0001C0F4 



BE 

08 
8F 

8F 



DO 
B4 
DO 
D5 
15 
DD 
FB 
DO 
E9 
C3 
3C 

a 

3C 

C4 

C3 

78 

DO 

DO 

D1 

15 

3C 

28 

CO 

AO 

C2 

D6 

11 

DO 

E9 

DO 

04 

D1 

12 

DO 

04 

DO 

04 
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0002C 

00031 

00034 

0003C 

0003E 

00040 

00043 

00048 

0004C 

00050 

00056 

0005A 

0005E 

00062 

00065 

00069 

0006D 

00072 

00075 

0007C 

0007E 

00083 

00089 

0008D 

00091 

00094 

00097 

00099 

0009E 

0OOA2 

0OOA6 

0OOA7 

OOOAF 

000B1 

000B8 

0OOB9 

oooco 



3$: 



4$: 



5$: 



6$: 



7$: 



MOVL 

CLRW 

MOVL 

TSTL 

BLEQ 

PUSHL 

CALLS 

MOVL 

BLBC 

SUBL3 

MOVZWL 

DIVL3 

MOVZWL 

MULL 2 

SUBL3 

ASHL 

MOVL 

MOVL 

CMPL 

BLEQ 

MOVZWL 

M0VC3 

ADDL2 

ADDW2 

SUBL2 

INCL 

BRB 

MOVL 

BLBC 

MOVL 

RET 

CMPL 

BNEO 

MOVL 

RET 

MOVL 

RET 



VBN, 16(RAB) 

2C(RAB) 

#65537, SO(SP) 

USER SIZE 

5$ ' 

VBN 

#1, ANSISCACHEV8N 

RO, aO(SP) 

aO(SP), 5$ 

40CCBLOCK), VBN, CACHE OFFSET 

10(C8LOCK), CACHE SECTION 

CACHE SECTION, CA^HE.OFFSET, CACHE_SECTION 

10(CBE0CK), R2 

CACHE SECTION, R2 

R2, CflCHE OFFSET, R2 

#9, R2, CACHE OFFSET 

44(CBL0CK)CCACHE - SECTI0NJ, CACHE 

USER SIZE, R7 

R7, 9512 

4$ 

#512, R7 

R7, (CACHE 0FFSET)[CACHE:, SIUSER.AD DRESS 

R7, USER ADDRESS 

R7, 34<R*8) 

R7, USER SIZE 

VBN 

3$ 

VBN, 4(CBL0CK) 

aO(SP), 6$ 

aO(SP), RO 

aO(SP), #2160 

7$ 

#65537, RO 

#114932, RO 
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0779 
0780 
0781 
0783 

0790 



0792 
0794 
0795 

0796 



0797 
0798 



0799 
0800 
0801 
0802 
0783 
0805 
0807 
0809 

0812 



0814 



Routine Size: 193 bytes, Routine Base: CODE + 06DE 



0815 1 
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0825 


1 


0826 


1 


; 0827 


1 
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1 


; 0829 


1 


; 0830 


1 


; 0831 


1 


0832 


1 


; 0833 


1 


; 0834 


1 


; 0835 


1 


0836 


1 


0837 


1 


; 0838 


1 


0839 


1 


0840 


1 


0841 


1 


0842 


1 


0843 


1 


0844 


1 


; 0845 


1 


0846 


1 


0847 


1 


0848 


1 


0849 


1 


0850 


1 


0851 


1 


; 0852 


2 
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2 


0854 


2 
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2 


0856 
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2 
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2 


; 0859 
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2 
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2 


0862 


2 
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2 


; 0864 


2 
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2 
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2 
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2 
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2 
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2 
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2 
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2 
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2 



ansifcget 

*** ANSI magtape RMS support 

ansiSget 

%sbttl •ansiSget 1 

global routine ansiSget : call.rms = 

Functional description: 

This routine transfers the next record from the tape into # 
the callers buffer. Only sequential mode is allowed. ansiScachevbn 
may be called to read more data from the tape. The routine does 
the necessary deblocking of records from ANS X3.27 format tapes. 
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Formal parameters: 
Implicit inputs: 



none 



FAB Address of related open file block 

RAB Address of RAB 

cblock Address of per-file area 

Implicit outputs: 

fAB unaffected 

RAB the current position is updated 

cblock Various fields may be updated 

Routine value: 

RMS completion codes 
Side effects: 

The device and associated channels may be accessed to read the record. 



begin 

external register 

cblock = 9 : ref block [, byte], 
rab = 10 : REF $RAB_DECL, 
fab = 11 : ref $fab_DECL; 



!Base of control block 
IBase of current rab 
!Base of current fab 



external routine ! 

boo$qio : addressing_mode ( long_relative) ; 



[06] 
[06] 



local 

boff, 

vbn; 

bind 



status = rab Oab$l_stv3; 

vbn = .cblock Cc t ISl vbn]; 

boff = .cblock [ctl$w_byte]; 

if .rab [rab$b_rac] eql rabSc^seq 



ICurrent byte offset in page 
(Current desired VBN 



iStatus returned by calls 

.'Fetch current virtual block 
!Fetch byte offset 

! If sequential access 
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3 
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3 


0899 


4 


0900 


4 
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5 


0904 


5 


0905 


5 
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4 


0909 


5 


0910 


5 


0911 


5 


0912 


5 


; 0913 


5 


0914 


6 


0915 


6 


0916 


6 


0917 


6 


0918 


5 


0919 


6 
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6 


0921 


6 
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5 
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5 


0924 


5 
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5 
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ansiSqet 

*** ANSI magtape RMS support 

ansi$get 



then 
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lUpdate position based on RFA 



do 



begin 

vbn = .vbn + (.cblock Cctl$w rec.sizeJ + .boff )/(512*. cblock Cctl$w_cache^size3); 

boff = (.cblock Cctl$w_rec_sTze3 + .boff) mod (512*. cblock Cctl$w_cache_size3); 

end; 



begin 

local 

cache : ref vector [, byte3, 
cache_of fset, 
cache~section; 



iAddress of current cache block 

loffset within cache 

! Index to current section of cache 



if not (status = ansi$cachevbn (.vbn)) then exitloop; 

cache_offset = .vbn - .cblock Cctl$l IvbnJ; 

cache section = .cache of fset/. cblock Cc t l$w_cache_size3; 

cache~offset = .cache offset - .cache_section*. cblock Cctl$w_cache_size3*512; 

cache~= .(cblock CctlJl cachelJ + .cache_section*4) ; 

rab Crab$l_rbf3 = .rab Irab$l_ubf3; 

case .fab [fab$b rfm3 from fab$c_fix to fab$c_vfc of 
set 

Cfab$c_fix3 : 
begin 

if (.boff + .rab Cfab$w_mrs3) geq (.cblock Cct l$w_cache_size3*512) 
then 

begin 

vbn = .vbn + .cblock [ctl$w cache size3; 

boff = 0; 

status s 

end 
else 

begin 

cblock [ctl$w_rec_size3 = .fab [fab$w_mrs3; 

if .rab [rab$w_uszJ Iss .cblock Cctl$w_rec_size3 - 4 
then 

begin 

status = rms$_rtb; 

rab [rab$w_rsz3 = .rab [rab$w_us23; 

end 
else 

begin 

status - rms$ normal; 

rab Crab$w_rsz3 = .cblock Cctl$w_rec_size3; 

end; 

ch$move (.rab Oab$w_rsz3, cache C.botf3 / .rab CrabSl_rbf3) ; 

status = rms$_normal7 

end; 

end; 
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; 0946 


6 


0947 


6 


0948 


u 
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6 
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6 
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6 
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6 
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5 
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5 
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5 
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4 
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3 
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3 
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4 


0964 


4 
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5 
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4 


0967 


5 
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5 
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5 
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5 
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5 
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4 
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5 
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5 
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5 
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5 
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6 
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ansiSget 

*** ANSI magtape RMS support 
ansilget 

[fab$c_var] : 
begin 
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0986 5 



if (.cache C.boff] Iss Xc'O') or (.cache [.boff] gtr Zc'^) 
then . 

begin !Not valid record go to next block 

boff ^ 0; 

vbn = .vbn + .cblock [ctl$w_cache_size]; 

status = 0; 

end 
else 

begin IValid record copy it 

cblock Cctl$w_rec,size] = scanSnumeric (10, 4, cache C.boff J) ; 

if .rab Crab$w_uszJ Iss .cblock CctlSw^rec^sizsJ - 4 
then 

begin 

status = rms$_rtb; 

rab [rab$w_rszJ = .rab [rab$w_usz]; 

end 
else 

begin 

status = rms$ normal; 

rab Crab$w_rsz] = .cblock [ctl$w_rec_si2e] - 4; 

end; 

ch$mo\/e (.rab [rab$w_rsz], cache C.boff + 43, .rab CrabSl.rbf]); 

status = rms$_normal; 
end; 

end; 

Cfab$c_vfcJ : 

begin 

if (.cache C.botr] Iss Xc'O') or (.cache C.boff] gtr Xc'V) 
then 

begin !Not valid record go to next block 

boff = 0; 

vbn = .vbn + .cblock CctlSw^cache.sizeD; 

status = 0; 

end 
else 

begin IValid record copy it 

cblock Cctl$w_rec_size] = scanSnumeric (10, 4, cache [.boff]); 

if .rab [rab$w use] Iss .cblock tctl$w_rec_size] - .fab [fab$b_fsz] - 4 
then 

begin 

status = rms$ rtb; 

rab [rab$w_rsi] = .rab [rab$w_usz] - .rab CfabSb.fszD; 

end 
else 

begin 

status = rms$ normal; 

rab [rab$w_rsz] = , cblock [cU$w_rec..size] - .tab Cfab$b_tsz] - 4; 

end; 
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3 


0999 


3 


1 000 


3 
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3 
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3 


1003 


3 


1004 


2 


1005 


2 


1006 


2 


1007 


2 


1008 


2 


1009 


2 


1010 


2 


1011 


2 


:oi? 


? 


1013 


2 


10K 


2 


1015 


2 


1016 


1 



ansiSget 

*** ANSI magtape RMS support 

ansiSget 
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if ,rab [rab$l_rhb] nen 
then 

chSmove (.fab Cfab$b fsz], cache C.boff + 4J, 
,rab Crab$l_rhb37; 

chSmove (.rab Crab$w_rszJ, cache C.boff + .fab [fab$b„fsz3 + 43, .rab CrabSLrbfJ); 

status = rms$_normal; 

end; 



end; 

[outrange] : 

return rms$_org; 
tes; 

end 
until .status; 

cblock CctlSl^vbn] = .vbn; 
cblock Cctt$w_byte3 = . bo f f ; 

if .status and %x*mf % NEQ 

then 

rms$_normal 
else 



if .status eql ss$_endotf i le then rms$_eof else rms$_rer 



end; 



7F 
56 



50 
51 

00 
56 



FDFE 



53 



5E 
58 

56 



52 
52 
50 
50 
52 
6E 
52 
8E 

CF 

68 
03 

6E 
51 





01FC 


00000 




04 


C2 


00002 


oc 


AA 


9F 


00005 


18 


A9 


DD 


00009 


1C 


A9 


3C 


OOOOC 


1E 


AA 


95 


00010 




20 


12 


00013 


IE 


A9 


3C 


00015 




56 


CO 


00019 


0A 


A9 


3C 


0001 C 




09 


78 


00020 




50 


C7 


00024 




51 


CO 


00028 




01 


7A 


0002B 




50 


78 


00030 




6E 


DD 


00035 




01 


FB 


00037 




50 


DO 


0003C 




50 


E8 


0003F 




015C 


31 


00042 


28 


A9 


C3 


0004 5 


OA 


A9 


3C 


0004A 



1$: 



2$: 



.ENTRY 

SUBL2 

M0VAB 

PUSHL 

M0VZWL 

TSTB 

BNEQ 

MOVZWL 

ADDL2 

MOVZWL 

ASHL 

DIVL3 

ADDL2 

EMUL 

EDIV 

PUSHL 

CALLS 

MOVL 

BLBS 

BRW 

SUBL3 

MOVZWL 



ANSISGEf, Save R2,R3,R4 ,R5,R6,R7,R8 

04, SP 

12(RAB>, R8 

24(CBL0CK) 

28(C8L0CK), 

30(RAB) 

1$ 

30(CBLOCK), 

BOFF, R2 

lO(CBLOCK) , 

#9, RO, RO 

R2, R1 

VBN 

R2, #0. 

<SP>+, 



RO, 
R1, 

#1. 

RO, 

VBN 

#1, 

RO, 

RO, 

21$ 

40CCBLOCK) 

10(CBLOCK) 



BOFF 



R2 
RO 



-(SP) 
BOFF, BOFF 



ANSISCACHEVBN 

(R8) 

2% 



VBN, 
R1 



CACHE OFFSET 



0818 

0867 
0869 
0870 
0872 

0875 



0876 
0887 



088S 
0890 
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50 
52 
52 



02 
00AF 



28 



53 
50 
52 
53 
57 
AA 
01 
005D 



50 



52 
52 
51 
50 

6E 



1E 



50 



20 AA 



28 BA 



22 
22 



55 



1E 



50 



20 AA 



28 BA 



22 



22 



2C 
24 
1F 



51 
51 
09 
52 

A940 
AA 
AB 

000E 



50 0001860C 8F 



A9 

50 
50 
10 

68 
AA 

68 

AA 

6647 

30 

39 

57 
54 
53 

A9 
50 
50 
10 

68 
AA 

68 
AA 
04 A647 

30 

39 



36 
1E 



000181A8 
20 

00010001 
1E 
22 



36 AA 
56 

09 
52 
08 
51 
56 

009A 
AB 
A9 
04 
00 
OE 
8F 
AA 
OC 
8F 
A9 
AA 
50 

6647 
58 

1647 
52 
36 
04 
OA 
OOOOOOOOG Ef 
50 
A9 
04 
00 
OE 
8f 
AA 
08 
Sf 
50 
AA 
79 

6647 

06 

6647 

09 

56 



1E 



000181A8 
20 

0001 U001 

22 



DO 

04 

3C 

CO 

78 

D1 

19 

CO 

D4 

31 

BO 

3C 

C2 

ED 

18 

DO 

BO 

11 

DO 

BO 

28 

11 

91 

n 

91 

1A 

CI 

DO 

DO 

16 

BO 

3C 

C2 

ED 

18 

DO 

BO 

11 

DO 

80 

28 

11 

91 

IF 

91 

18 

D4 



I 12 
27-Jul-1984 
27-Jul-1984 
26-JUI-1984 



Fiche 1 Frame 112 Sequence 151 

15:52:20 VAX-11 Bliss-32 V4. 0-742 Page 

09:38:03 DMA1 : CSYSO- SYSMAIMT3ANSI ,B32; 1 68 



32 
(6) 



C7 0004E 

C5 00052 

78 00056 

C2 0005A 

DO 0005D 

DO 00062 

8F 00067 
0006C 3$: 



00072 

00079 

0007A 

0007E 

00081 

00085 

00088 

0008A 

0008D 

0008F 

00092 

00097 

0009B 

0009E 

O0OA4 

000A6 

OOOAD 

000B2 

000B4 

OOOBB 

OOOCO 

O0OC7 

000C9 

OOOCD 
OOOCF 
000D3 
000D5 
000D9 
OOODC 
OOODF 
000E5 
000E9 
OOOED 
OOOFO 
00OF6 
000F8 
OOOFF 
00104 
00106 
0010D 
00111 
00119 

0011B 
001 IF 

00121 
00125 
00127 



4$: 



5$: 



6$ 
7$ 
8$ 



9$: 

10$ 

11$ 
12$ 



13$: 



DIVL3 R1, CACHE OFFSET, CACHE.SECTJON 

MULL3 Rl, CACHE~SECTION, R2 

ASHL 09, R2, R2 

SUBL2 R2, CACHE OFFSET 

MOVL 44(CBLOCK7[CACHE_S[CTJ0N3, CACHE 

MOVL 36(RAB), 40(RAB) 

CASEB 31 (FAB), 01, 02 

.WORD 4$-3$,- 

8$-3$<- 

12$-3$ 

MOVL 099852, RO 
RET 

MOVZWL 54(RAB), R2 

ADDL2 BOFF, R2 

ASHL 09, R1, RO 

CMPL R2, RO 

BLSS 5$ 

ADDL2 R1, VBN 

CLRL BOFF 

BRW 14$ 

MOVW 54(FAB), 30(CBLOCK) 

MOVZWL 30CCBLOCK), RO 

SUBL2 04, RO 

CMPZV 00, 016, 32(RA8), RO 

BGEQ 6$ 

MOVL 098728, (R8) 

MOVW 32(RAB), 34(RAB) 

BRB 7$ 

MOVL 065537, (R8) 

MOVW 30CCBL0CK), 34(RAB) 

M0VC3 34(RAB), (BOFF) [CACHE J, Q40(RAB) 

BRB 11$ 

CMPB (BOFF)CCACHE], 048 

BLSSU 13$ 

CMPB (BOFF)CCACHE], 057 

B6TRU 13$ 

ADDL3 BOFF, CACHE, R5 

MOVL 04. R4 

MOVL 010, R3 

JSB SCAN$NUMERIC 

MOVW RO, 30(CBL0CK) 

MOVZWL 30(CBLOCK), RO 

SUBL? 04, RO 

CMPZV 00, 016, 32(RAB), RO 

BGEQ 9$ 

MOVL 098728, (R8) 

MOVW 32(RAB), 34:RAB> 

BRB 10$ 

MOVL 065537, (R8) 

MOVW RO, 34(RAB) 

M0VC3 34(RA8>, 4(90FF ) [CACHE], 5)40(RAB) 

BRB 19$ 

CMPB (BOFFHCACHEL 048 

BLSSU 13$ 

CMPB (BOFF)[CACHE], 057 

BLEQU 15$ 

CLRL BOFF 



0891 



0892 
0893 
0895 



1000 
0901 



0904 
0905 
0906 
0910 
0912 



0915 
0916 
0912 
0920 
0921 
0924 
0925 
0933 



0942 



0944 



0947 
0948 

0944 
0952 
0953 
0956 
0957 
0965 



0968 



ZZ-ENSAA-7.0 

ANSI 
07-07 



ansiSget 
*** ANSI 

ansiSget 



magtape RMS support 



J 12 
27-JuL-1984 
27-Jul-1984 
26-JuM984 



fiche 1 Frame J12 Sequence 152 

15:52:20 VAX-11 BUss-32 V4. 0-742 Page 

09:38:03 DMA1 :[SYSO.SYSMAINTJANSI .B32;168 



55 



IE 
04 



50 



20 AA 



22 AA 



2C 


BA 




50 


28 


BA 



20 

22 

04 
04 



18 

1C 



00000870 



6E 



57 
54 
53 

A9 
AE 
50 
50 
50 
10 

68 
50 
AA 

68 
AA 



A647 
56 

A047 
68 
03 

A9 
A9 
08 

5u 



000000006 

3F 
1E 
04 



0001 81A8 
3F 



00010001 

2C 

04 

04 

22 

00010001 



00010001 



8f 

50 0001 827A 
50 000K0F4 



51 
68 
68 
56 
04 
0A 
EF 
50 
AB 
A9 
AE 
04 
00 
13 
8F 
AA 
50 
OB 
^ 
50 
AA 
08 
AE 
AE 
AA 
8F 
68 
FE94 
6E 
56 
68 
8F 

68 

08 
8F 

8F 



CO 

D4 

11 

C1 

DO 

DO 

16 

BC 

9A 

3C 

C2 

C2 

ED 

18 

DO 

9A 

A3 

11 

DO 

BO 

D5 

13 

28 

CI 

28 

DO 

E8 

31 

DO 

BO 

E9 

DO 

04 

D1 

12 

DO 

04 

DO 

04 



00129 

0012C 

0012E 

00130 

00134 

00137 

0013A 

00140 

00144 

00149 

0014D 

00151 

00154 

001 5A 

0015C 

00165 

00167 

001 6D 

00161- 

00176 

001 7A 

0017D 

0017F 

00187 

0018C 

00194 

0019B 

001 9E 

001A1 

001A5 

001 A9 

001AC 

001B3 

001B4 

001BB 

001BO 

001C4 

001C5 

001CC 



14$: 
15$: 



16$: 
17$: 

18$: 

19$: 
20$: 

21$: 



22%: 
23$: 



Ai)DL2 

CLRL 

BRB 

ADDL3 

MOVL 

MOVL 

J SB 

MOVW 

MOVZBL 

MOVZWL 

SU8L2 

SUBL2 

CMPZV 

BGEO 

MOVL 

MOVZBL 

SUBW3 

BRB 

MOVL 

MOVW 

TSTL 

BEQL 

M0VC3 

ADDL3 

M0VC3 

MOVL 

BLBS 

BRW 

MOVL 

MOVW 

BLBC 

MOVL 

RET 

CMPL 

BNEQ 

MOVL 

RET 

MOVL 

RET 



R1, V8N 
(R8) 

20$ 

BOFF, CACHE, R5 

#4, R4 

#10, R3 

SCAN$NIUMERIC 

RO, 30(CBLOCK) 

63(FAB), 4(SF0 

30(CBLOCk), RO 

4<SP). RO 

#4, RO 

#0, #16, 32(RAB), RO 

16$ 

#98728, (R8) 

63(RAB), RO 

RO, 32(RAB), 34CRAB) 

17$ 

#65537, (R8) 

RO, 34CKAB) 

44(RAB) 

18$ 

4(SP), 4 (BOFF) [CACHE], S44(RAB) 

4(SP), BOFF, RO 

34(RAB), 4(R0)CCACHEJ, 5)40(RAB) 

#65537, (R8) 

(R8), 21$ 

1$ 

VBN, 24(CBL0CK) 

BOFF, 28<CBL0CK) 

(R8), 22% 

#65537, RO 

(R8), #2160 
23$ 
#98938, RO 

#114932, RO 



33 
(6) 

0969 
0970 
0965 
0974 



0976 



0979 
0980 

0976 
0984 
0985 
0988 

0991 

0993 

0994 
1004 

1006 
1007 
1009 



1014 



1016 



Routine size: 461 bytes, Routine Base: CODE ♦ 079F 



1017 

1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 



1 
1 
1 
1 
2 
2 
2 
? 

2 

-> 

c 

? 

2 

2 
? 



global routine get„b lock... length ( ;block_length) : get.block = 

begin 

I inkage 

eall_boo = call : global (rl = 1); 

external routine 

boo$qio : call^boo addressing^mode Uong_relative) ; 

global register 



! begin L06J 



iai regi 
r1 - T; 



ZZ-ENSAA- 


7.0 


ANSI 




07-07 




1031 


? 


; 1032 


2 


; 1033 


? 


; 1034 


2 


; 1035 


? 


1036 


2 


1037 


? 


; 1038 


2 


1039 


2 


1040 


2 


1041 


2 


; 104? 


2 


; 104 3 


1 



ansiSget 

*** ANSI magtape RMS support 

ansiSget 



external register 

cblock = 9 : ret block [, byteJ, 
tab = 11 : ret Stab decl; 



K 12 
27-Jul-1984 Fiche 1 Frame K12 Sequence 153 

27-JuM984 15:52:20 VAX-11 Bliss-32 V4. 0-742 Page 34 

26-JUL-1984 09:38:03 DMA1 : CSYSO.SYSMAINTJANSI .B32;168 (6) 



!8ase of common area 
.'Base of FAB 



bind 



status = fab CtubSl.stvD; 



'.Return value from boo$qio 



kb check ( ) ■ 

status = booSqio (.cblock [ctl$Lcache3J, .cblock Cctl$w..cache_si2e]*512, 0, io$_readlblk, 0, .cblock [ctl$l_rpb 

block_length = .r1; 

.status ,. % „ 

end; ! end L06J 



7t 









05F8 00000 


.ENTRY 






00000000G 


V 


16 00002 


JSB 






38 


A9 


DD 00008 


PUSHL 




7F 




21 


7D 0000B 


MOVG 








7E 


D4 0000E 


CLRL 




50 


OA 


A9 


3C 00010 


MUVZWL 




50 




09 


78 00014 


ASHL 






34 


A9 


DD 00018 


PUSHL 


OO00OO00G 


Ff 




06 


F8 0001B 


CALLS 


oc 


A8 




50 


DO 00022 


MOVL 




52 




51 


DO 00026 


MOVL 




50 


OC 


A8 


DO 00029 
04 0002D 


MOVL 
RET 



Routine Si?e: 46 bytes. 



Routine Base: CODE + 096C 



1044 


1 




1045 


1 


end 


1046 





eludom 



PSECT SUMMARY 



Name 



Bytes 



Attributes 



PATA 
CODE 



24 NOVECNOWRT, 
2458 NOVECNOWRT, 



Library Statistics 



RD 
RD 



,NOEXE, 
, EXE, 



SHR, 
SHR, 



LCL, 
LCL, 



GET BLOCK LENGTH, Save R3,R4,R5,R6,R7,R8, 

RIO" 

KB CHECK 

56TCBL0CK) 

#33, -CSP) 

-<SP) 

10(CBLOCK), RO 

#9, RO, -CSP) 

52(CBLOCK) 

06, BOOSQIO 

RO, 12(FAB) 

R1, BLOCK LENGTH 

12(FAB), RO 



1019 

1039 
1040 



1041 
1043 



REL, C0N,N0PK,ALIGN<2) 
REL, C0N,N0P1C,AL1GN(2) 



ZZ-ENSAA-7.0 

ANSI 
07-07 



F ue 



ansi$get 
*** ANSI 

ansiSget 



maQtape RMS support 



L 12 
27-Jul-1984 
27-Jul~1984 
26-Jul-1984 



DRB1:CDS.WORK]DIAG.L32:265 

DRB1:CDS.WORK3DS.L32;159 

SYSSSYSR00T:[SYSLIB]L1B.L32;7 



Total 

784 

653 
18017 



Symbols - — - — 
Loaded Percent 



1 
23 
65 



15:52:20 
09:38:03 

Pages 
Mapped 

85 

42 

975 



Fiche 1 Frame L12 Sequence 

VAX-11 Bliss-32 V4, 0-742 
DMA1:[SYS0.SYSMAINTJANSI.B32;168 

Processing 

Time 

00:00.2 
00:00.2 
00:04.9 



154 



Page 



35 
(6) 



COMMAND QUALIFIERS 
BLISS/NOOBJECT/L I ST=[DS.L I SJ/OPTIMIZE= (LEVEL: 3, SPACE) /DEBUG/TRACE ANSI 



Si?e: 


2458 code + 


24 


data bytes 


Run lime: 


00:47,2 






Elapsed Time: 


03:32.9 






Lines/CPU Min 


: 1330 






Lexemes/CPU-M 


in: 16626 






Memory Used: 


403 pages 







Compilation Complete 



ZZ-ENSAA-7.0 *** APT 

APT 

'able of contents 



M 12 
interface *o APT control 27-JUL-1984 Fiche 1 Frame M12 Sequence 155 

*** APT interface to APT control 27-JUL-1984 H:59i50 VAX-11 Macro V03-01 Page 







(1) 
(2) 



7'i 

102 



DECLARATIONS 

APT SUPPORT ROUTINES 



7Z-ENSAA-7.0 

APT 

07-10 



*** APT interface to APT control 

*** APT interface 



)7 



)9 

10 

11 



10 
17 



0000 
0000 

oooo 

0000 
0D00 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
OVQQ 



1 

2 

I 

A 

5 
6 

7 

8 

9 

10 

11 

12 
13 
H 

15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
17 
38 
39 
40 
4i 
42 
43 
44 
4 5 
4o 
47 
48 

50 
51 
32 
53 
54 

56 
5? 



to APT control 



N 12 

27-JUL-1984 



Fiche 1 Frame N12 



27-JUL-1984 
23-MAY-1984 



Sequence 156 
14:59:50 VAX- 11 Macro V03-01 Page 1 
14:09:20 DMA1 : CSYS0.SYSMAINTJAPT.MAR;71 (1) 



.TITLE 
. IDENT 

• Lisr 

.NLJST 



APT 

/07-10/ 

MEB 

CND 



*** APT interface to APT control 



COPYRIGHT (C) 1977, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DEC ASSUMES 
SOFTWARE ON 

FACILITY; 
ABSTRACT: 

ENVIRONMENT; 

AUTHOR: 
MODIFIED BY; 

01 

02 

03 

04 

05 



Ob 

07 
Ob 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 



EQUIPMENT WHICH 



IS 



NOT SUPPLIED BY DEC. 



VAX DIAGNOSTIC SUPERVISOR. 



N. HOWGATE 



03-PEC-77 



VERSION 01. 

VERSION 02(ESSAA-4.03) . 

VERSION 03 (ESSAA-5.01) 



N, HOWGATE 22-JJN-78 

CORRECT DUMP-MODE PROBLEM 

N. HOWGATE 07-DEC-78 

EMULATE CHARACTER STRING INSTRUCTION 

R. RIGGS 12-JUL-79 

ADD CODE TO EXECUTE APT PTEXT DECODER 

Roger Riggs, 28-May-1980, Version 5.4 

Added code to check that on APT PTEXT command 

that there is at k 3 ast one command to process. 

- Jack Stansbury, 2°-Oct-1981, Version 6.- 
Changed SEP Psect to CODE. 

Fixea truncation errors. Change to 'oner case on message. 
Also added .LIBRARY statements tor $DS and $D1AG. 

- 'ack Stansbury, 12-0ct-1981, Version 6.- 

Changed the call to DSSPARSE to DSXSSUPERPARSE , See the CLI 
mof'uTe for an explanation of SUPERPARSE. It returns with the 
low bit clear in RO if anything went wrong. 

- )dck Stansbury, 12-0c t-1 981 # Version 6.- 

Tock out references to HALTD and MALT I . Made them just HALT. 

- Jack Son lury, 3-Feb- 1 982, Version 6.6 

Added a .:. IURARY statement tor LIB. Note: This .LIBRARY 



Z7-ENSAA-7.0 

APT 

07-10 



*** APT interface to APT control 

*** APT interface 



0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


6? 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


^0 


0000 


71 



to APT control 



B 13 
27-JUL-1984 



27-JUI-1984 
23-MAY-1984 



F iche i Frame 81 3 



Sequence 157 
K;59;50 VAX-11 Macro V03-0T Page 
14:09:20 DMA1 :[SYS0.SYSMAINT]APT.MAR;71 



? 

(1) 



09 



statement must be the first one since the libraries are 
searched in UFC (Last-In, First-Checked) order. 

Bob Bergazzi 2-Feb-1983 Version 6.11 

Added code to COM PTEXT that clears out DS$GL_CLI8ASE . 

We should clear tfiese flags out on every command, 

otherwise subsequent commands may be affected by previous 

commands. This coincides with a change to APT which allows 

any commands as PTEXT. The bug prompting this was 

SET EVENT 1. CLEAR EVENT 1, which caused a hung load. 



10 



Bob Bergazji 11-Apr-1983 
Fixed the previous edit. 



Version 6.11 



7Z-ENSAA-7.Q 

APT 

l'7-IO 



DECLARATIONS 



*** APT interface 

DECLARATIONS 



to APT control 



C 13 

27-JUL-1984 



Fie he 1 Frame C13 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

00000000 

0000 

54 50 41 00' 0000 

03 0000 

b4 65 76 7? 65 73 65 52 20 3F 3F 00' 0004 

64 6fc 61 6D 6D 6f 63 20 54 50 41 20 0010 

64 65 76 69 65 63 65 72 20 001 C 

20 0004 



73 

7^ 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 



27-JUL-1984 
23-MAY-1984 



14:59:50 
14:09:20 



Seguence 158 
VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINTJAPT,MAR;71 



3 

(1) 



.S8TTL DECLARATIONS 



INCLUDE FILES: 

.LJ8RARY 
.LIBRARY 
.LIBRARY 



MACROS: 



EQUATED SYMBOLS: 

$DS DSDEF 

$DS~DSADEF 

$DS"HDRDEF 

CLlPEF 

DSFDEF 



OWN STORAGE: 



/SYS$LIBRARY:LIB/ 

/$DS/ 

/SDJAG/ 



[083 
C05J 
C05D 



APT DEFINITIONS 
HEADER DEFINITIONS 
CLI DEFINITIONS 



SMODULE: 



.SAVE 

.PSECT 

MODNAM 



100 T_PRGERR: 



Data, NoExe, Shr, NoWrt, Long 

APT 

•ASCI C \APT\ 

.ASCIC M ?7 Reserved APT command received" 



[05] 
[05] 



ZZ-ENSAA-7.0 

APT 

L>7-10 



D 13 

APT SUPPORT ROUTINES 27-JUL-1984 Fiche 1 Frame 

*** APT interface to APT control 27-JUL-1984 14:59:50 
APT SUPPORT ROUTINES 23-MAY-1984 14:09:20 



D13 Sequence 159 
VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINTJAPT.MAR;71 



09' 00 0000Ft04'EF CF 

0036' 
0014' 
OODD' 
004 3' 
007B 1 
OOAA 1 



0025 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0008 

0008 

000A 

oooc 

000E 
0010 
0012 



102 
103 
104 
105 
106 
107 
108 
109 
110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

H3 

144 

145 

146 

147 

148 

149 

150 



.S8TTL APT SUPPORT ROUTINES 
.PSECT Code, Exe, Shr, NoWrt, Long 
+ + 
FUNCTIONAL DESCRIPTION: 

CALLING SEQUENCE; 

NONE 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



4 

(2) 



[051 



APT COM:: 

CASE 



DSA$GLJ*PTCOM,LIMIT*0O,TYPE=L,<- 



30000$: 



COM NOP, 

COM'RSRV,- 

COM'PTEXT,- 

COM~DUMP,- 

COMORO,- 

COM START, - 

COM'ABORT,- 

COM'RSRV,- 

COM'RSRV,- 

COM'CONT,- 

> 

CASEL DSA$GL_APTCOM,0O,S A *«3OOO1$-3OOOO$>/2>-1 

.SIGNED WORD COM NOP-30000S 

.SIGNED'WORD COM~RSRV-30000$ 

.SIGNED'WORD COM~PTEXT-300OO$ 

. S I GNED'WORD COM~DUMP-30000$ 

. SI GNED'WORD COM~ZERO-30000$ 

.SIGNED'WORD COM~START-30000$ 



<000> 


NOP 


<001> 


RESERVED 


<002> 


PROCESS PTEXT 


<003> 


DUMP 


<004> 


ZERO CORE 


<005> 


START DIAGNOSTIC 


<006> 


ABORT DIAGNOSTIC 


<007> 


RESERVED 


<O10> 


RESERVED 


<011> 


CONTINUE 



ZZ-ENSAA-7.0 

APT 
07-10 



E 13 

APT SUPPORT ROUTINES 27-JUL-1984 Fjchel Frame 

*** APT interface to APT control 27-JUL-1984 14:59:50 
APT SUPPORT ROUTINES 23-MAY-1984 14:09:20 
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5 
(2) 



OOOOFEOO'fF 
OOOOFEOO'EF 



04 A2 



0000FE04 , EF 
0000FE40'EF 

00000000'EF 

00000004'EF 

01 

00000000'EF 03 



0000FE04'EF 
0000FE40'EF 



0C00FE04'EF 
OOOOFEOO'EF 
88000000 8F 
00001000 8F 
06 
00000000'EF 
00000000'EF 
00000000'EF 



OOBD' 
0014' 
0014' 
00D0' 



D4 
D4 

DF 
DF 
DD 
FB 
05 



D4 
D4 
05 



D4 
D4 
CA 
C8 
C8 

9E 
16 
05 



0014 
0016 
0018 
001A 
001 C 
001 C 
001 C 
001 c 
0022 
0028 
0028 
002E 
0034 
0036 
C03D 
003E 
003E 
003E 
0044 
004A 
0048 
0048 
0048 
0051 
0057 
0062 
006D 
006F 
0074 
007C 
0082 



151 
152 
153 
154 
155 



156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 



30001$; 



.SIGNED 
.SIGNED' 

.signed; 

.SIGNED. 



COM RSRV: 

CLRL 
CLRL 
ERRSUP 



RS8 



COM..NOP: 



COM_ 



CLRL 
CLRL 
RS8 

DUMP: 

CLRL 

CLRL 
BICL 
8ISL 
BISL 

M0VA8 

JS8 

RS8 



WORD COM ABORT-30000S 

WORD C0M~RSRV-30C00S 

WORD CQM"RSRV-30000$ 

WORD COM C0NT-30000S 



DSASGL APTCOM 
DSA$GL"MSGTYP 
I "" MSGADR=T prgerr 
PUSHAL $MODULE 
PUSHAL T PRGERR 
PUSHL #$ER 
CALLS #3, DS ERRSUP 



DSASGL APTCOM 
DSASGL MSGTYP 



; CLEAR COMMAND 
; CLEAR MESSAGE TYPE 
RESERVED COMMAND CODE 



RETURN 



CLEAR COMMAND 
CLEAR MESSAGE TYPE 
RETURN 



DSASGL APTCOM ; CLEAR COMMAND 

DSASGL'MSGTYP ; CLEAR MESSAGE TYPE 

#DSA$M~APT!DSA$M NORPT, DSASGL FLAGS ; CLEAR APT AND NO REPORT 



#DSA$M~OPER,DSA$GL FLAGS 
#DS$M CODFLGIDSSM 5TRFLG,- 
DSSGL'FLAGS 

VRRESTART,CLI$L C0MMAND(R2) 
VRRESTART 



INDICATE OPERATOR PRESENT 

INDICATE PROGRAM LOADED AND STARTE 

LOAD DUMMY RESTART COMMAND 

DO A RESTART [05] 

RETURN 
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00000000' 8F 00 

0000FF.04 , EF 
OO00FE4O'EF 

0000001 C'EF 00 
00000000' EF 

50 

0000'CO 
F4 50 00000000'8F 



OOOOFEOA'EF 

0000FE40'EF 
00000000' EF 



OO00FEO4 , EF 
0000FE40'EF 
00000000' EF 



0000FF04'EF 
0000FE40'EF 



0083 
DA 0083 
D4 008A 
D4 0090 
D2 0096 
16 009D 
D4 00A3 

00A5 
7C 00A5 
F2 00A9 
05 00B1 

0082 

00B2 

04 00B2 
D4 C0B8 
16 OOBE 

05 00C4 
00C5 
00C5 

D4 00C5 
D4 OOCB 
16 00D1 
05 00D7 
00D8 
00D8 
04 00D8 
D4 OODE 
04 00E4 



174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 



CQM.ZERO: 

MTPR 

CLRL 

CLRL 

MCOML 

J SB 

CLRL 

10$: CLRO 

AOBLSS 
RSB 

COM START: 

CLRL 
CLRL 
JS8 
RSB 

COM ABORT: 

CLRL 
CLRL 
JSB 
RSB 

COM CONT: 

CLRL 
CLRL 
RET 



#0,*PR$ MAPEN 

DSA$GL_APTCOM 

DSASGL MSGTYP 

*0,DS$5L CLIBASE+CLISL DATA 

VRCLRBRK" 

RO 

DSSA PRGBGN(RO) 
4<DSSK..PRGSIZ/8>,R0,10$ 



DSA$GL APTCOM 
DSASGL'MSGTYP 
VRSTART 



TURN OFF MEMORY MANAGEMENT IF ENA8 
CLEAR COMMAND 
CLEAR MESSAGE TYPE 
SET UP AN "ALL" INDICATOR 
AND GO CLEAR BREAKPOINTS [053 
CLEAR INDEX 

CLEAR 

ALL LOCATIONS 

RETURN 



DSASGL.APTCOM 
DSASGL MSGTYP 
VRABORT 



DSASGL APTCOM 
DSASGL'MSGTYP 



CLEAR COMMAND 
CLEAR MESSAGE TYPE 
START 
RETURN 



CLEAR COMMAND 
CLEAR MESSAGE TYPE 
ABORT 
RETURN 



CLEAR COMMAND 
CLEAR MESSAGE TYPE 
RETURN TO CLI'S CALLER 



C05D 



C05J 
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7 
(5) 







00E5 


203 














00E5 


204 


COM.PTEXT: 






30 


BB 


00E5 


205 




PUSHR 


M M<R4, 


R5> 


55 OOOOFAOO'EF 


9E 


00E7 
OOEE 


206 
207 




MOVAB 


DSA$AT_ 


APTTXT,R5 


04 


11 


OOEE 


208 




BRB 


15$ 




65 


95 


OOFO 


209 


10$: 


TSTB 


(R5) 




26 


13 


00F2 
00F4 


210 

211 


15$: 


BEQL 


25$ 




50 OOOOFEOO'EF 


9E 


00F4 


212 




M0VA8 


DSA$AT 


APTTXT+1024,R0 


54 65 


9E 


OOFB 


213 




MOVAB 


(R5),R? 




64 OAOD 8F 


B1 


OOFE 


214 


20$: 


CMPW 


A XOAOD 


,(R4) 


18 


13 


0103 


215 




BEQL 


30$ 




F5 54 50 


f2 


0105 


216 




A08LSS 


R0.R4,20$ 






C109 


217 




ERRSUP_ 


S 




00000000'EF 


DF 


0109 








PUSHAL 


$MODULE 


00 


DD 


010F 








PUSHL 


00 


02 


DD 


0111 








PUSHL 


0$ER 


00000000'EF 03 


FB 


0113 








CALLS 


03, DS..ERRSUP 


0090 


31 


011A 
011D 


218 
219 


25$: 


BRW 


100$ 




54 55 


C2 


011D 


220 


30$: 


SUBL2 


R5,R4 




54 04 


C2 


0120 


221 




SU8L 


04, R4 




13 


18 


0123 


222 




BGEG 


40$ 








0125 


223 




ERRS\JP m 


S 




00000000'EF 


DF 


0125 








PUSHAL 


$M0DULE 


00 


DD 


012B 








PUSHL 


00 


03 


DD 


012D 








PUSHL 


0$HR 


00000000'EF 03 


FB 


012F 








CALLS 


03, DSJRRSUP 


75 


11 


0136 
0138 


224 
225 




BRB 


100$ 




85 203E5344 8F 


D1 


0138 


226 


40$: 


CMPL 


A A"DS> 


M ,(R5)+ 


13 


13 


013F 


221 




BEQL 


45$ 








0141 


228 




ERRSUP. 


,S 




00000000'EF 


DF 


0141 








PUSHAL 


$M0DULE 


00 


DD 


0147 








PUSHL 


00 


04 


DD 


0149 








PUSHL 


0$ER 


00000000'EF 03 


FB 


014B 








CALLS 


03, DS„ERRSUP 


59 


11 


0152 
0154 


229 

230 




BRB 


100$ 




03 


88 


0154 


231 


45$: 


PUSHR 


A M<RO, 


R1> 


50 00000444'EF 


DE 


0156 


232 




MOVAL 


L A DS$GL 


_CLI8ASE+CLI$K 


70 


D4 


015D 


240 




CLRL 


-(RO) 




51 00000088 8F 


DO 


015F 

0166 


242 
243 




MOVL 


0CLI$K.. 


.SIZE/8, R1 


70 


7C 


0166 


244 


50$: 


CLRQ 


-(RO) 




FB 51 


F5 


0168 


245 




S08GTR 


R1,50$ 




03 


BA 


016B 
016D 


246 
247 




POPR 


A M<RO, 


R1> 


54 A2 54 


70 


016D 


248 




MOVO 


R4,CLI$Q3UFQWD(R2) 






0171 


249 










OOOOOOOO^f 


DF 


0171 


250 




PUSHAL 


L A CLI ACTION 


00000000'EF 


DF 


0177 


251 




PUSHAL 


L A COMflAND TREE 


34 A2 


7f 


01 7D 


252 




PUSHAQ 


CLI$Q BUFQWD(R2) 


00000000' 9F 03 


FB 


0180 


253 




CALLS 


03, 5>0DSX$SUPERPARSE 






0187 


254 










13 50 


E8 


0187 


255 




BL8S 


R0,60$ 





Save a couple 
Point to text area 

Assume must be some text 
Any text left? 
NO, exit 

Point past two pages t 
Point to current position 
CRLF here? 
Branch if it is 
increment and try next 



; Exit 

; Length of text just scanned 

; Must be at least 4 characters 

; Branch if enough 



; Exit 

; Prompt present? ''DS.^ " 

; Branch if present 

; no prompt present 



; Exit 

; Better saved than sorry. 
SIZE ^RO ; Start at the end. 

; After this it is quad aligned 

; Number of QUAD words to clear 

; Loop til we reach beginning 

; Restore 

; Set length and address of input 

; Push SUPERPARSE params 

* 

; Call the Supervisor Parser 

; Branch if it worked 



[09] 
[09] 
[103 
[09] 

[09] 
[093 
L09] 



[06] 
[06] 
[063 
[06] 

[06] 
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8 
(5) 



OOOOOOOO'EF 

00 

05 

QOOOOQOO'EF 03 

10 



50 



55 02 



04 A2 
02 
60 

A544 
FF43 



Df 
DD 
DD 
FB 
11 



30 
O000FEO4 , EF 
0000FE40'EF 



DO 
13 
16 

9E 
31 

BA 
D4 
D4 
05 



01 8A 
018A 
0190 
0192 
0194 
01 9B 
01 9D 
019D 
019D 
019D 
019D 
019D 
01A1 
01A3 
C1A5 
01A5 
01AA 
01AD 
01AD 
01AF 
01B5 
01BB 



256 



257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 



ERRSUP S 



BR8 



PUSHAL 

PUSHL 

PUSHL 

CALLS 

100$ 



SMODULE 

#0 

tf$ER 

ttZ, DS.ERRSUP 



OOPS, APT should not make mistakes 



Exit 



; No longer need to check NOTNUF flag. 

60$: MOVL CLI$L C0MMAND(R2) ,R0 

BEQL 70$ 

JSB (RO) 

70$: MOVAB 2(R5) CR4J ,R5 

BRW 10$ 

100$: POPR * A M<R4,R5> 

CLRL DSA$GL APTCOM 

CLRL DSA$GL"MSGTYP 
RSB 



C06J 

[06] 
C06D 



; Address of processing routine 
; Branch if none 
; Call it 

; Point past current line 
; Try again 

Restore 
Clear command 
Clear error text 
Return 
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9 
(7) 







01BC 


275 










01BC 


276 


; + 








01BC 


277 


; ROUTINE TO 


SYNCHRONIZE SUPER 






01BC 


278 


; WITH APT RECIEPT OF ERROR ME 






01BC 


279 


» 








01BC 


280 


APT MSG:: 




OOOOFEOO'EF 01 


03 


01BC 


281 


BITL 


#DSA$M HALT, - 






01C3 


282 




DSA$GL~FLAGS 


OE 


12 


01C3 


283 


BNEQ 


APTJUR 






01C5 


284 










01C5 


285 


APT DONE:: 








01C5 


286 


10$T 




OOOOOOOO'EF 


16 


01C5 


287 


JS8 


KB CHECK 


0000FE40 I EF 


05 


01CB 
C1D1 


288 
289 


TSTL 


0$a$GL_MSGTYP 


F2 


12 


01D1 


290 


BNEQ 


10$ 






01D3 


291 


APT RTN: 






05 


0103 


292 


RSB 








01D4 


293 


.END 





1? HALT ON ERROR 

IN-LINE BPT HAS ALRf.ADY 
BEEN SET 



; Check for A C at terminal 

; WAIT FOR MESSAGE TO BE 

; ACKNOWLEDGED 

; LOOP 

; RETURN 



C07] 



[05] 
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(7) 


SER 


= 00000006 D 




COMMAND TREE 


******** 


X 


03 




SMODULE 


00000000 R D 


02 


COM ABORT 


00OO0OC5 R 


D 


03 




APT COM 


00000000 RG D 


03 


COM'CONT 


OOOO0OD8 R 


D 


03 




APT~DONE 


000001 C5 RG D 


03 


COMlDUMP 


0000004B R 


D 


03 




APT'MSG 


000001BC RG D 


03 


COM NOP 


0000003E R 


D 


03 




APT~RTN 


00000103 R D 


03 


C0M~PTEXT 


000000E5 R 


D 


03 




bitT.. 


-= 0000001A D 




COMlRSRV 


0000001 C R 


D 


03 




CLISK BUFSIZ 


* 00000100 D 




COM START 


00000062 R 


D 


03 




CLlSlTSIZE 


00000444 D 




C0M"ZERO 


000000*3 R 


D 


03 




CL1$L~ADDRESS 


00000018 D 




DSSfi PRGBGN 


******** 


X 


03 




CLISL'COMMANO 


00000004 D 




DSSGC CL3BASE 


******** 


X 


03 




CLISL~DATA 


0000001 C D 




DSSGL'FLAGS 


*** ***** 


X 


03 




Cll$L~FLAGS 


00000000 D 




ds$k Error 


« 00000002 


D 






CLISL^LAST 


00000024 D 




DSSK'NORMAL 


= 00000001 


D 






CLISL^NFXT 


00000030 D 




DSSK'PRGSIZ 


******** 


X 


03 




CLI$L~PASS 


0000002C 




DS$K~SEVERE 


= 00000004 


D 






CLl$u"SUBT 


00000028 D 




DSSK^SUBSYS 


= 00000066 


D 






CLISL~TEST 


00000020 D 




DS$K WARNING 


= 00000000 


D 






CLI$CfBUFQWD 


00000034 D 




DS$M~ABRTFLG 


= 00000040 


D 






CLISQ'FILE 


00000008 D 




DSSMlBADTIME 


= 00100000 


D 






CLI$(TSECTION 


00000010 D 




DS$M BATCH 


= 00400000 


D 






CLI$Q"TIME 


0000043C D 




DS$M~BRKCLR 


= 00001000 


D 






CLI$T~BUFFER 


0000003C D 




DSSM'BRKPT 


= 00000800 


D 






CLISV~ADAPTER 


= 00000018 D 




DS$M"CHARFLG 


= 00000100 


D 






CLISV^ADR 


= 00000008 D 




DS$M"CMDFLG 


= 00000080 


D 






CLISV ASCII 


= 00000013 D 




DSSM'CTRLC 


= 00000001 


D 






CLI$V"8REAK 


= OOOOOOOA D 




DSSM^CTRLO 


= 00010000 


D 






cli$v"brief 


= 0000001B D 




DSSM.DEVFLG 


= 00000200 


D 






CLI$V~BYTE 


= OOOOOOOD D 




DS$M DISABLCC 


= 01000000 


D 






CLI$V~CLEAR 


= 00000002 D 




DSSM'DONFLG 


= 00002000 


D 






CLI$V~DEC 


= 00000010 D 




DSSMJRRFLG 


- 00000010 


D 






CL l$\f DEFAULT 


= OOOOOOOC D 




DS$M EXCEPT 


= 00080000 


D 






CH$V"DEPOSIT 


= 00000019 D 




DSSM'EXETST 


- 00040000 


D 






CL I1V"EVENT 


= 00000008 D 




DS$M~HLTFLG 


= 00000008 


D 






CLI$V"fcXAM 


~ 00000005 D 




DS$M"LODFLG 


= 00000002 


D 






CLI$V"FLAGS 


= 00000009 D 




DS$M"MEMMGT 


= 00008000 


D 






CLI$V~HEX 


- 00000012 D 




DSSMlOUTPUT 


c 00800000 


D 






CLI$V~KERNEL 


- 00000017 D 




DS$M RUBFLG 


= 00000020 


D 






CLI$V"LOAD 


= 00000006 D 




DS$M~SCRIPT 


= 00200000 


D 






CLI$V~LONG 


- OOOOOOOF D 




ds$m;setimr 


= 02000000 


D 






CLISV'NOTNUF 


= 00000001 D 




DS$M STRFLG 


~ 00000004 


D 






clisv~oct 


= 00000011 D 




DSSMlSUBT 


= 00004000 


D 






CLI$V~PREG 


= 0000001A D 




DS$M SYSFLG 


= 00000400 


D 






clisv"oa 


= 00000007 D 




DS$M"TIMR0N 


= 00020000 


D 






CLISV'QACKLOOPLOOPS 


= 0OGO0O1C D 




DS$V"ABRTFLG 


= 00000006 


D 






CLISV'QAERRORPRINTS 


- 0000001B D 




DSSVlBADTIME 


= 00000014 


D 






CLI$V"QAMUl.TIPLEPASS 


= 0000001 f D 




DS$V BATCH 


= 00000016 


D 






cli$v;qasubtestloops 


= 0000001E D 




DS$V BRKCLR 


= OOOOOOOC 


D 






CLISV oatestloops 


= 0000001 D D 




DSSV'BRKPT 


= OOOOOOOB 


D 






CLI$V~REG 


•-- 00000014 D 




DSSV'CHARFLG 


= 00000008 


D 






CLI$V~REGUIRED 


= 00000000 D 




DS$V M CMDFLG 


= 00000007 


D 






CLISV'RUN 


= 00000015 D 




DSSV'CTRLC 


5 OOGOOOOO 


D 






CLI$V"SET 


=• 00000003 D 




DSSV~CTRLO 


= 00000010 


D 






CI I$V~SHOW 


= 00000004 D 




DS$V~DEVFLG 


= 00000009 


D 






CLl$V"VAlSEC 


= 00000016 D 




DS$V"DISABLCC 


= 00000018 


D 




' 


CLISV" WORD 


= OOOOOOOE 




DSSV'DONFLG 


* OOOOOOOD 


D 






CL INACTION 


******** x 


03 


DS$V"ERRFLG 


= 00000004 


D 




i 
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.SYSMAJNTDA 


DSSV EXCEPT 


= 00000013 


D 


DSASGL APTCOM 


OOOOFE04 


D 




DS$V~EXETST 


= 00000012 


D 


DSA$GL~DEVLEN 


0O00FE58 


D 




dssv"hltflg 


= 00000003 


D 


DSASGL~ERRNO 


0O00FE44 


D 




dssv'lodflg 


- 00000001 


D 


DSASGL'EVENT 


0O0OFE48 


D 




DSSV~MEMMGT 


* O0OOO0OF 


D 


DSAS6L~FLAGS 


OOOOFEOO 


D 




DSSV'OUTPIH 


= 00000017 





DSASGL'MSGTYP 


0O0OFE40 


D 




DSSV'RUBFLG 


= 00000005 


D 


DSASCLlPASSES 


0000FE08 


D 




DSSV~SCRIPT 


= 00000015 


D 


DSASGL PASSNO 


0000FE54 


D 




DSSV*SETIMR 


= 00000019 


D 


DSA$GL*"SECTNO 


OOOOFE10 


D 




DSSV'STRFLG 


* CJ0000C2 


D 


DSASGLlSID 


OOOOFEK 


D 




DSSV~SUBT 


- 0000000E 


D 


DSASGL SUBTNO 


0000FE4C 


D 




D$SV~SYSFLG 


= 0000000A 


D 


DSA$GL"TESTNO 


0000FE50 


D 




DS$V~TIMRON 


= 00000011 


D 


DSASGL^UNITS 


OOOOFEOC 


D 




DSS Rrith 


= 006600D0 


D 


DSASGQ MSGPTR 


0O00FE68 


D 




DSS"ASBE 


= 0066C118 


D 


D$ASGT~DEVNAM 


0O00FE5C 


D 




DSS'BADLINK 


= 006600FO 


D 


DSASM &PT 


= 80000000 


D 




DSt'BADTYPE 


= 006600E8 


D 


DSASM'HALT 


= 00000001 


D 




DSS'BIIC 


= 00660120 


D 


DSA$M"NORPT 


= 08000000 


D 




DSS'CHME 


= 006600A8 


D 


DSA$M"OPER 


= 00001000 


D 




DSS~CHMK 


- 006600EO 


D 


dsxssOperparse 


** ****** 


X 


03 


DSS'DEVNAME 


= 00660108 


D 


DS ERRSUP 


******** 


X 


03 


DSS'ERROR 


- 00660002 


D 


KBlCHECK 


******** 


X 


03 


DS*~FHWE 


= 00660068 


D 


LSA CCP 


00000240 


D 




DS$"FPAGBUF 


= 00660080 


D 


LSA DEVP 


0000021 C 


D 




DSS~1CBUSY 


= 006600C8 


D 


LSA'DREG 


00000224 


D 




DSS~!CERR 


- 006600C0 


D 


LSA'DTP 


00000218 


D 




DSS'IHWE 


= 00660060 


D 


LSAllCP 


0000023C 


D 




DSS'lLLCHAR 


= 00660018 


D 


LSA LASTADR 


0000C214 


D 




DSS~ILIPAGCNT 


= 00660078 


D 


LSA'NAME 


00000208 


D 




DSS'ILlUNIT 


-- 00660100 


D 


LSA^RE PP 


00000244 


D 




DSS^INSFMEM 


= 00660050 


D 


LSA SECNAM 


00000250 


D 




DSS~IPL2HI 


=• 006600B8 


D 


L$A"STATAB 


00000248 


D 




DSS'lVADDR 


= 00660040 


D 


LSA^TSTCNT 


00000254 


D 




DSS'lVVECT 


~ 00660038 


D 


LSL ENVIRON 


00000204 


D 




D$S~KRNLSTK 


= 00660090 


D 


L$L~ERRTYP 


0000024C 


D 




dss'logic 


- 00660070 


D 


L$L"HEADLENGTH 


00000200 


D 




DSS'MCHK 


~ 00660088 


D 


LSLlREV 


0000020C 


D 




DSS~MMOFF 


= 00660058 


D 


LSL UNIT 


00000220 


D 




DSS~NEEDUNIT 


= 006600F8 


D 


LSL"UNUSED 


00000228 


D 




DSS'NODF 


= 00660128 


D 


L$L"UPDATE 


00000210 


D 




DSS~NOPCS 


= 00660110 


D 


PRS'MAPEN 


******** 


X 


03 


DSS'NORMAL 


s 00660001 


D 


si?:.. 


= 00000001 


D 




DSS~NCSUPPORT 


= 006600B1 


D 


T PRGERR 


00000004 R 


D 


02 


DSS~NOTDON 


= 00660030 


D 


VRA80RT 


******** 


X 


03 


DSS'NOTIMP 


= 006600B0 


D 


VRCLRBRK 


******* * 


X 


03 


D$S~NULLSTR 


= 00660010 


D 


VRRFSTART 


******** 


X 


03 


DSS'OVERFLOW 


~ 00660008 


D 


VRSTART 


**■••***** 


X 


03 


DSS'POWER 


= 00660098 


D 










DS$"PROGERR 


- 00660020 


n 










DSS~SEVERE 


= 00660004 


D 










DSS'TRANSL 


= 006600AO 













DS$"TRUNCATf 


= 00660028 


D 










DSlfUNEXPINT 


= 006600D8 


D 










DSS'VASFULL 


= 00660048 













DSS'WARNING 


- 00660000 


I' 










DSAlAL APTMAIL 


0000FEO0 


D 










DSA$ArAPTTXT 


0000FA00 


D 











166 



Page 



11 
(7) 



ZZ-ENSAA-7.0 

APT 

Psect synopsis 



Psect synopsis 



*** APT interface to APT control 



L 13 
27-JUL-1984 



27-JUL-1984 
23-MAY-198A 



F iche 1 Frame L13 



Sequence 167 
H:59:50 VAX-11 Macro V03-01 Page 12 
Hi 09:20 DMA1:CSYS0.SYSMAINT]APT.MAR;71 (7) 



PSECT 

. ABS 

SABSS 
DATA 

coot 



name 



Allocation 

00000000 
0000FE70 
00000025 
000001 DA 



+ — »-..+ 

I Psect synopsis ! 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 37.) 0? ( ?.) NOPJC USR 

( 468.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCI 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


NOEXE 


RO 


NOWRT 


NOVEC 


LONG 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT 


NOVEC 


LONG 



7Z-ENSAA-7.0 

APT 

Cross reference 



Cross reference 



*** APT interface to APT control 



M 13 
27-JUL-1984 



} 



Fie he 1 frame M13 



27-JUL-1984 
23-MAY-1984 



Sequence 168 
14:59;50 VAX-11 Macro V03-01 Page 13 
14:09:20 DMA1 :[SYS0.SYSMAINT]APT,MAR;71 (/) 



Symbo 



SYMBOL 
SER 

SMOOULE 
APT COM 

apt'done 

APT'MSG 

APT~RTN 

bit:.. 

clisk bufsiz 

LLlSkfSIZE 

CL1$L ADDRESS 

CLISL'COMMAND 

CLI$L~DATA 

CLISL'FLAGS 

fL!SL"LAST 

CI ISL "NEXT 

CLISL'PASS 

CLI$L"SUBT 

CI ISL"TEST 

CLISQ'RUFQWD 

CI iSQ'FRfc 

CLI$Q~SECTION 

CLISO'TIME 

CiI$T BUFFER 

CLlSV~ADAPTf.R 

CLlSVlADR 

CLI$V ASCI I 

fl ISV'BREAK 

CLISV'BRJEF 

CLI$V~BYTE 

CLISV'CLEAR 

CLlSVlDEC 

ci i$v default 
cli$v"deposjt 

CL i$V"EVE"NT 

CLISV'EXAM 

CI ISV'FLAGS 

CLJtV'HEX 

CLISV'KERNEL 

CU$V"LOAD 

CLi$V~LONG 

CLl$V"NOTNUF 

Ct ISV'OCT 

CL I$V"PREG 

CL ISV~(-A 

Cl I$V"QACKLOOPLCOPS 

CL ItV'OAERRURPRiNTS 

fLl$V"QA«ULTIPLEPASS 



VALUE 



DEFINIT 



=00000006 


256 


(5 


00000000-R 


99 


(1 


00000000-R 


138 


(2 


000C.J1C5-R 


285 


(7 


000001BC-R 


280 


(7 


000001D3-R 


291 


(7 


=0000001A 


92 




=00000100 


91 




00000444 


91 




00000018 


91 




00000004 


91 




0000001 C 


91 




00000000 


91 




00000024 


91 




00000030 


91 




0000002C 


91 




00000028 


91 




00000020 


9 1 




00000034 


91 




00000008 


91 




00000010 


91 




0000043C 


91 




0000003C 


91 




•--00000018 


91 




=000000QB 


91 




-00000013 


91 




=0O0000OA 


91 




=00000018 


91 




-OOOOOOOD 


91 




"00000002 


91 




=00000010 


91 




=oooooooc 


91 




=00000019 


91 




-00000008 


91 




=00000005 


91 




=00000009 


91 




=00000012 


91 




-00000017 


91 




=00000006 


91 




•OOOOOOOF 


91 




=00000001 


91 




=00000011 


91 




=J000001A 


91 




=00000007 


91 




-0000001 c 


91 




=00000018 


91 


1 1 


=0000001 F 


91 


(1 



Cross Reference ! 
— — -+ 



ON 



REFERENCES 



#-155 

0-256 

155 
256 



0-283 
88 
91 
232 

0-242 

#-170 
0-178 



(2) 
(5) 
(2) 
(5) 



(7) 
(1) 
(1) 
(5) 
(5) 

(2) 

(3) 



0-217 


(5) 


0-223 


(5) 


0-228 


(5) 


217 


(5) 


223 


(5) 


228 


(!>) 



92 
233 

0-263 



(1; 
(5) 

(5) 



236 



(5) 



239 



(5) 



0-248 



(5) 



252 



(5) 













N 13 


ZZ-ENSAA-7.0 Cross 


reterence 






27- 


-JUL-1984 Fiche 1 


APT 


*** APT interface 


to APT 


control 


27-JUL-1984 14:59:50 


Cross reference 










23-MAY-1984 14:09:20 


CLi$V QASU8TESTL00PS 


=0000001 E 


91 


(1) 






CLISV~QATESTL00PS 


=0000001D 


91 


(1) 






CLi$V~REG 


=00000014 


91 


(1) 






CLI$V~REQUIRED 


=00000000 


91 


(1) 






n.ItV~RUN 


=00000015 


91 


(1) 






CLISVlSET 


=00000003 


91 


(1) 






CLI$V SHOW 


=0000000^ 


91 


(1) 






CLl$V~VALSEC 


=00000016 


91 


(1) 






CLlSV~WQRD 


=0000000E 


91 


(1) 






CLI AfTION 


00000000-XR 






250 


(5) 


COMMAND TREE 


00000000-XR 






?51 


(5) 


rOM ABOGT 


000000C5-R 


192 


(3) 


50 


(2) 


OM"CONT 


000000D8-R 


198 


(3) 


150 


(2) 


COM'DUMP 


0000004B-R 


163 


(2) 


150 


(2) 


COM"*NOP 


00000C3E-R 


158 


(2) 


150 


(2) 


COM"PTEXT 


000000E5-R 


204 


(5) 


150 


(2) 


COM~RSRV 


0000001 C-R 


15? 


(2) 


150 


(2) 


COM'START 


000000B2-R 


186 


(3) 


150 


(2) 


CON'ZERO 


00000083-R 


174 


(3) 


150 


(2) 


DS$* PRGBGN 


00000003-XR 






#-18? 


(3) 


ds$gC :libase 


00000000-XR 






#-178 


(3) 232 (5) 


dssgl'flags 


00000000-XR 






#-169 


(2) 


ds$k Error 


=00000002 


88 


(1) 






dssk'normai. 


=00000001 


88 


(1) 






dssk'prgsiz 


00000000-XR 






#-183 


(3) 


dssk'severe 


=00000004 


88 


(1) 






[)S$K~SUBSYS 


=00000066 


88 


(1) 


88 


(1) 


OS^K WARNING 


=00000000 


88 


(1) 






DS$M~ABRTHG 


=00000040 


92 


(1) 






DS$M"BAOHMF 


=00100000 


92 


(P 






DS$M~BATCH 


=00400000 


92 


(1) 






DS$M"BRKCLR 


=00001000 


92 


(1) 






DSSM BRKPT 


=00000800 


92 


(1) 






DSSM"CHARFl G 


=00000100 


92 


M) 






DSVTCMDFLG 


=00000080 


92 


(1) 






DS$H"CTRl C 


=00000001 


92 


(1) 






DSWf CTRl.O 


=00010000 


92 


(\) 






DS$M"DEVFLb 


=00000200 


92 


(1) 






DS$M"DISABl.ff 


=01000000 


92 


(1) 






DSSM'DONf LG 


=00002000 


g? 


(1) 






nS$M"ERRFLG 


=000000 1 


92 


(13 






DS$M"FXCFPT 


=00080000 


92 


(1) 






DS$H"lXF'TST 


=00040000 


92 


(1) 






0S$M"Hl Tf LG 


-00000008 


92 


(1) 






DSSM'LODFtG 


=00000002 


92 


(1) 


#-168 


(2) 


ds$m"memmgt 


=00008000 


92 


( I) 






DSSM'OUTPUT 


=00800000 


92 


(1) 






DSSM"RUBf LG 


=00000020 


92 


(1) 






DS$M"SCRIPT 


=00200000 


o? 


M> 






dssm'se timr 


=02000000 


92 


(1) 






DStM'STRFLG 


=00000004 


92 


(1) 


#-168 


(2) 


[>S$M"SUBT 


=00004000 


92 


(1) 






DS$M'SYSFl G 


=00000400 


92 


(1) 






DS$M"1 iMRON 


=00020000 


92 


( 1) 






nS$V"ABRTFtG 


=00000006 


92 


i 1) 






nS$v"BADfIME 


=00020014 


- t 


;U 






nS$V"BATCH 


=00000016 


92 


(1) 







Frame N13 Sequence 169 

VAX-11 Macro V03-01 Page H 

DMA1:CSYS0.SYSMAJNTJAPT.MAR;71 (7) 



ZZ-ENSAA-/.0 Cross 


reference 




APT 


*** APT interface 


I ross reference 






DStV BRKUR 


=0000000C 


92 


DStV'BRKPT 


=00000008 


92 


DSUfCHARFIG 


=00000008 


92 


DSSV~CMD, C LG 


=00000007 


92 


DS$V"CTRIC 


=00000000 


92 


DS$V"CTRLO 


=00000010 


92 


DStV*DEVFLG 


=00000009 


92 


DS$V"D1SABI li: 


=00000018 


92 


DS$V"DONFLG 


-0000000D 


92 


DSSV'ERRFLG 


=00000004 


92 


ds$v;except 


=00000013 


92 


DS$V EXETST 


-00000012 


92 


dssv'hltfig 


=00000003 


92 


ds$v"lodflg 


=00000001 


92 


DSSV MEMMGT 


=00000C0F 


92 


DS$V"OUTPUT 


=00000017 


92 


DS$V~RUBFLG 


=00000005 


92 


DS$V;SCR1PT 


=00000015 


92 


0S$V SETIMR 


=00000019 


92 


DSSV~STRFLG 


=00000002 


92 


DS$V~SUBT 


=00OOOOOE 


92 


DS*V SYSFt.G 


=0000000A 


92 


ds$v"timron 


=00000011 


92 


DS$ JRITH 


=00660000 


88 


DS$~ASBE 


-00660118 


88 


DS$"BADLINK. 


-006600F0 


88 


ds$;badty.°e 


^006600E8 


88 


DS$.B!IC 


=00660120 


88 


DSS CHME 


=006600A8 


88 


0S$"CHMK 


=006600E0 


88 


DS$"DEMAME 


=00660108 


88 


DS$"ERROR 


=00660002 


88 


DS$"FHWt 


-00660068 


88 


nS$"FRAGBUF 


-00660080 


88 


DSS"ICBUSY 


=006600C8 


88 


DS$"UFRR 


=006600C0 


88 


DS$~IHWF 


=00660060 


88 


DSS"IH CHAR 


=00660018 


88 


DSS'll LPAGCNT 


=00660078 


88 


DS$~ILLUNIT 


=00660100 


88 


DS$'INSFMFM 


-00660050 


88 


DS$"IPL?HI 


-006600B8 


88 


os$"ivaddr 


=00660040 


88 


DSS'IVVECT 


=00660038 


88 


DS$"KRNl STK 


=00660090 


88 


DS$~L0G1C 


=00660070 


88 


DS$"MCHK 


=00660088 


88 


dss'mmoff 


^00660058 


88 


ds$~needunit 


=006600F8 


88 


DS$~NODE 


=00660128 


88 


DS$"NOPCS 


=00660110 


88 


DS$"NORMAL 


=00660001 


88 


DS$~NOSUPPORT 


=00660061 


88 


dsTnotdon 


00660030 


88 


ps$"notimp 


=00o600B0 


88 


os$"nullstr 


=00660010 


88 


PS$"OVERFl.OW 


=00660008 


83 



to APT control 



B H 

27-JUL-1984 



27-JUL-1984 
23-MAY-198A 



Fiche 1 Frame BH 



Sequence 170 
H:59:50 VAX-11 Macro V03-0T Page 15 

K;09:20 DMA1 :CSYS0-SYSMAINTJAPT.MAR;71 (7) 



88 



(1) 



77-ENSAA-7.0 

APT 

Iross reference 

DSS POWER 

DS$~PROGERR 

DS$~SEVERF 

DSS'TRANSL 

DSS'TRUNCATE 

DSS'UNEXPINT 

DSS'VASFULL 

DS$~WARN1N6 

DSASAT APT TXT 

DSA$Gl~APTCOM 



Cross reference 



DSASGL 
DSAS6L' 



FLAGS 
"MSGTYP 



DSA$M APT 
DSA$M~HAlT 

dsasm'nqrpt 
dsasm"oper 

DSXSsOPERPARSE 
DS_ERRSUP 

KB CHECK 
PRj MAPEN 
SIZT. • 

T PRGERR 
VR ABORT 
VRCLRBRK 
VRRE5TART 
VRSTART 



*** APT interface to APT control 



C 14 

27-JUL-1984 



fiche 1 frame C14 



Sequence 171 



:00660098 88 

^00660020 88 

=00660004 88 

006600AO 88 

=00660028 88 

=00660008 88 

=00660048 88 

:00660000 88 
OOOOFAOO 
0000FE04 



OOOOFEOO 
0000FE40 



80000000 

00000001 

08000000 

=00001000 

OOOOOOOO-XR 

OOOOOOOO-XR 

OOOOOOOO-XR 
OOOOOOOO-XR 
;00000001 92 
00000C04-R 100 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 



(1) 
(1) 



27-JUL-1984 "14759:50 VAX-11 Macro V03-01 Page 
23-MAY-1984 14;09:20 DMA1 ;[SYS0.SYSMAINTJAPT.MAR;71 



76 
(7) 



88 


(1) 
















206 


(5) 




212 


(5) 










0-150 


(2) 


0- 


-153 


(2) 


0-159 


(2) 


0-164 


(2) 


0-176 


(3) 


0- 


-187 


(3) 


0-193 


(3) 


0-199 


(3) 


0-271 


(5) 
















0-166 


(2) 


0- 


•167 


(2) 


0-282 


(?) 






0-154 


(?) 


0* 


-160 


(2) 


0-165 


(2) 


0-177 


(3) 


0-188 


(3) 


0- 


-194 


(3) 


0-200 


(3) 


tt-272 


(5) 


0-288 


(?) 
















0-166 


(2) 
















0-281 


(7) 
















0-166 


(2) 
















0-167 


(2) 
















253 


(5) 
















155 


(2) 




217 


(5) 


223 


(5) 


228 


(5) 


256 


(5) 
















287 


(7) 
















0-175 


(3) 
















92 


(1) 
















155 


(2) 
















195 


(3) 
















179 


(3) 
















170 


(2) 




171 


(2) 










189 


(3) 




















ZZ-ENSAA-7.0 

APT 

I ross reference 



Cross reference 



*** APT interface to APT control 



D H 

27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 1 Frame D14 



Seguence 172 
H:59:50 VAX-11 Macro V03-01 Page 17 
H:09:20 DMA1 jCSYS0.SYSMAINTDAPT.MAR;71 (?) 



MACRO 

SDEF 

SDEFINI 

SOS DSADEF 

SDS'DSDEF 

$DS~HDRDEF 

$EuO 

SEQULS1 

SEQULST 

SGBLINI 

SPUSHADR 

SV1ELD 

$VIELD1 

CASE 

CLIDEF 

DSFDEF 

ERRSUP S 

MODNAM" 



SIZE 

1 

1 
5 
2 

2 

1 

1 

1 

2 

1 

1 

1 

1 

3 

3 

1 

1 



DEFINITION 



92 
89 
89 
88 
90 
9? 
88 
88 
88 
155 

92 

139 

91 

92 

155 

99 



(1) 
(1) 
(1) 
(1) 

(1) 
(1) 

(1) 
(1) 
(1) 
(2) 

(1) 

(?) 
(1) 
(1) 
(2) 
(1) 



+ + 

! Macros Cross Reference I 
+«,_„ —*—.-——--+ 

REFERENCES... 



89 


(1) 


90 


(1) 


89 


m 






88 


(1) 






90 


(1) 






88 


(13 






88 


<u 






88 


n: 






88 


d: 


92 


(1) 


155 


(2, 


217 


(5) 


92 


d. 






92 


(1, 






139 


<2- 






91 


(1, 






9? 


d. 






155 


(2. 


) 217 


(5) 


99 


(1 







223 



(5) 



228 



(5) 



256 



(5) 



223 



(5) 



228 



(5) 



256 



(5) 



Phase 

Initial i nation 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



31 

HO 

698 



100 

27 

6 

47 

1053 



+.. » — + 

! Performance indicators ! 

+ + 



Page faults CPU Time 



Elapsed Time 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.11 
00.71 
06.90 
00.35 
01.29 
00. 17 
00.03 
00.70 
10.29 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



00.37 
01.63 
11.00 
00.35 
02.07 
00.17 
00.03 
01.12 
16.76 



The working set limit was 1000 pages. 

68019 bytes (133 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 267 non-local and 15 local symbols, 

293 source lines were read in Pass 1, producing object records in Pass 2. 

49 pages of virtual memory were used to define 18 macros. 



ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Fiche 1 Frame E1<* Sequence 173 

APT *** APT interface to APT control 27-JUL-1984 14:59:50 VAX-11 Macro V03-01 Page 18 

VAX-11 Macro Run Statistics 23-MAY-1984 U:09:20 0MA1 :[SYS0.SYSMAJNTJAPT.MAR;71 (7) 

+- —--- — ,™-™— —— + 

! Macro Library statistics ! 

+ + 

Macro library name Macros defined 

DRB1 :[DS.W0RK]DIAG.MLB;955 3 

DRB1;[DS.WORK3DS.MLB;218 4 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 1 

DMA1:CSYS0.SYSMA1NT]0S.MLB;218 

DMA1:CSYS0.SYSMA1NTDD1A6.MLB;953 

SYS$SYSROOT:[SYSLIBJLJB.MLB;1 

SYS$SYSROOT:[SYSLIBDSTARLET.MLB;2 6 

TOTALS (all libraries) H 

332 GETS were required to define 14 macros. 

There were no errors, warnings or information messages, 

MACRO/NQOBJECT/LIST=[DS.LlS3/CR0SS/ENABLE=( DEBUG, TRACE) APT/UPDA=(APT,UPD,APT.ENH)+SYS$UBRARY:L1B/LIBRARY+DMA1 : CSYSO.SYSMAINTDDiAG/ 



ZZ-ENSAA-7.0 *** 

ASSIGN 
able of contents 



ASSIGN assign device 

*** ASSIGN assign device 



F H 
27-JUL-1984 Fkhe 1 Frame FH 

27-JUL-1984 15:00:08 VAX-11 Macro 



Sequence 174 
V03-01 



Page 



(1) 

(1) 



92 
356 



ASSIGN I/O CHANNEL 

TEST U MAILBOX SPECIFIED 



ZZ-ENSAA-7,0 
ASSIGN 

05-02 

V5A 
-2 



*** ASSIGN assign device 

*** ASSIGN assign device 



V54 
V54 
V54 
V54 
V54 
V54 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.1 

.2 
3 

4 

5 
6 
7 
8 
9 
10 

11 

12 

13 

n 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
J 
.2 
.3 
.4 
.5 
,6 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



.TITLE 
ADEN! 
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ASSIGN *** ASSIGN assign device 
705-02/ 



1 
(1) 



***************************************************************************** 

* COPYRIGHT (c) 1977, 1978, 1979, 1980 * 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH JHE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF US 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



D. N. CUTLER 25-AUG-76 

SYSTEM SERVICE ASSIGN I/O CHANNEL 

MODIFICATION HISTORY: 

Dave Butenhof l3-may-1980, Version 5.4 
02 Modify VMS V2.0 source to run in supervisor environment 

N. HOWGATE 20-FEB-78 VERSION 02 (SSSAA-4.00) . 
01 DIAGNOSTIC SUPERVISOR INTEGRATION 

V08 LMK0005 LEN KAWELl. 20-JAN-1980 

ADD NON-SHAREABLE DEVICE IMPLICIT ALLOCATION PRIVILEGE CHECK. 

V07 RIH0033 R. HUSTVEDT 16-0CT-1979 
CHANGE PCB$W_BYTCNT TO JIB$L_BYTCNT. 

V06 LMK0002 LEN KAWELL 27-SEP-1979 

SET CCB$M_AM8 If A MAILBOX WAS ASSOCIATED WITH DEVICE. 

V05 LMK0001 LEN KAWELL 27-JUL-1979 

RETAINED LOCK OF I/O DATABASE BEFORE CALL TO IOCSCREATE.Ui 
AS THAT IS THE NEW INTERFACE TO 10CSCREATE JJCB. 

V04 ADE0002 A.D.E 22-JUN-1979 13:00 
Test UCB$V_TEMPLATE in UCB$W_STS to determine if a 
UCB needs to be created rather than deadreckoning 
on UC8SNET0 

V03 



SGD0001 
Use "..NET 1 



S.G.D, 

instead of "NET" 



04-APR-1979 



17:10 



ZZ-ENSAA-7.0 

ASSIGN 
05-02 



*** ASSIGN 



assign device 
*** ASSIGN 



176 



assign device 
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2 

(1) 



V54 
-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

00000004 0000 

00000008 0000 

OOOOOOOC 0000 

00000010 0000 

0000 

0000 

oooo 

0000 

0000 

00000000 

54 45 4b 5F 0000 

0004 



52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

8C 

81 

82 

83 

84 

85 

86 

87 

.1 

89 

90 



V02 TGD0001 T.G. 
RETURN SS$ DEVACTIVE 
WITH DEVICE. 



MACRO LIBRARY CALLS 



$CC8DEF 

SIODEF 

SJJ8DEF 

SLOGDEF 

SPC8DEF 

SPRDEF 

SPRVDEF 

$SSDEF 

SUC8DEF 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 



DEVNAM-4 
CHAN=8 
ACM0DE=12 
M8XNAM=16 



LOCAL DATA 



DOPIRAK 
IF MAILBOX 



22-FE8-1979 
ALREADY ASSOCIATED 



DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 



CCB OFFSETS 
I/O FUNCTION CODES 
JIB OFFSETS 
LOG OFFSETS 
PCS OFFSETS 
PROCESSOR REGISTERS 
PRIVILEGE BITS 
SYSTEM STATUS VALUES 
UCB OFFSETS 



ADDRESS OF DEVICE NAME STRING DESCRIPTOR 
ADDRESS TO STORE ASSIGNED CHANNEL NUMBER 
ACCESS MODE 
ADDRESS OF MAILBOX NAME STRING DESCRIPTOR 



Nb'TNAM: 
NETEND: 



.PSECT 
.ASCII 



SEP, 

/_NET/ 



SHR, 



EXE, 



WRT, LONG 
/NETWORK DEVICE 
♦•REFERENCE LABEi 



NAME 



7Z-ENSAA-7.0 

ASSIGN 
05-02 



ASSIGN J/O 



CHANNEL 

*** ASSIGN 
ASSIGN J/0 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

C004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 



assign device 

CHANNEL 



92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

1 19 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

13? 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

14? 

148 
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.SBTTL ASSJGN I/O CHANNEL 



3 
(1) 



EXESASSJGN - ASSJGN I/O CHANNEL 

THIS SERVICE PROVIDES THE CAPABILITY TO ASSJGN A DEVICE TO AN I/O CHANNEL 
AND ESTABLISH NECESSARY DEVICE LINKAGE AND CONTROL INFORMATION IN THE 
ASSOCIATED CHANNEL CONTROL BLOCK. OPTIONALLY A MAILBOX CAN ALSO BE 
SPECIFIED WHICH WILL RECEIVE UNSOLICITED INPUT SENT TO THE ASSIGNED 
DEVICE. 

INPUTS: 

DEVNAM(AP) = ADDRESS OF DEVICE NAME STRING DESCRIPTOR. 
CHAN(AP) = ADDRESS TO STORE ASSIGNED CHANNEL NUMBER. 
ACMODE(AP) = ACCESS MODE CHANNEL IS TO BE ASSIGNED TO. 
MBXNAM(AP) = ADDRESS OF MAILBOX NAME STRING DESCRIPTOR (ZERO IMPLIES 
NONE). 

R4 = CURRENT PROCESS PC8 ADDRESS. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO ASSIGN CHANNEL TO DEVICE. 

RO = SS$ ACCVJO - DEVJCE NAME STRING, DEVICE NAME STRING 
EeSCRIPTOR, MAILBOX NAME STRING, OR MAILBOX NAME 
STRING DESCRIPTOR lANNOT BE READ BY CALLING ACCESS 
MODE. OR CHANNEL NUMBER CANNOT BE WRITTEN BY CALLING 
ACCESS MODE. 

RO = SS$.DEVALLOC - DEVICE ALLOCATED TO ANOTHER PROCESS. 

RO = SS$ DEVNOTMBX - SPECIFIED MAILBOX DEVICE IS NOT A 
RAILBOX. 

ro = ss$ exquota - process has insufficient buffer quota to 
Allocate network ucb. 

r0 = ss$ insfmem - sufficient system dynamic memory does not 
Exist to allocate network ucb. 

ro = ss$ ivdevnam - device or mailbox name string contains 
Invalid characters, or no device name string 
descriptor specified. 

ro = ss$ ivlognam - zero or greater than maximum length 
Device or mailbox name string specified. 

ro - ss$_noiochan - no i/o channel is available for assignment. 

ro = ss$ nopriv - process does not have privilege to create 
network ucb or does not have privilege to allocate 
the device. 

ro = ss$ nosuchdev - specified device or mailbox does not 
Exist on host system. 



ZZ-ENSAA-7.0 

ASSIGN 

05-02 



ASSIGN 1/0 



CHANNEL 

*** ASSIGN 
ASSIGN I/O 



V54 



00000000 'EF 

54 

5B 08 AC 



5A 10 



7E 

5A 
50 OK* 
59 04 



50 



02 



-1 



OC 34 



0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

OFFC 0004 

9E 0006 

OOOC 

DO COOD 

0011 

6B 84 0017 

AC DO 0019 

OC 13 001D 

001 F 

6A 7D 0025 

5E DO 0028 

8F 3C 0028 

AC DO 0030 

18 13 0034 

0036 

00 EF 003C 

OC AC 003F 

FFBB 1 30 0042 

58 50 DO 0045 

FFB5 1 30 0048 

05 50 E8 004B 

04 004E 

50 OC 3C 004F 

04 0052 

0053 

0053 

0053 

0053 

0053 

0053 

0053 

57 51 DO 0053 

0082 30 0056 

3D 50 E9 0059 

51 59 DO 005C 
FF9E' 30 005F 

36 50 E9 0062 
0065 
0065 
0065 
0065 
0065 
51 DO 0065 
00' EO 0068 
OD E1 006D 
03 58 A5 006F 



5 5 
AS 



assign device 
CHANNEL 



149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
.1 



20$: 
30$: 



161 

162 

163 

164 

165 

166 

167 

168 

169 10$: 

170 

171 

172 

173 



174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 
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RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

RO = SS$ REMOTE - NORMAL COMPLETION, ASSIGNMENT COMPLETED 
ON REMOTE SYSTEM. 

RO = SS$ NORMAL - NORMAL COMPLETION, ASSIGNMENT COMPLETED 
ON HOST SYSTEM. 

RO = SS$_DEVACTIVE - MAIIBOX ALREADY ASSOCIATED WITH DEVICE 



4 

(1) 



.ENTRY 
M0VA8 

MOVL 

JFNOWRT 

CLRW 

MOVL 

BEQL 

IFNORD 

MOVQ 

MOVL 

MOVZWL 

MOVL 

BEQL 

IFNORD 

EXTZV 

BS8W 

MOVL 

BS8W 

BL8S 

RET 

MOVZWL 

RET 



EXE$ASSIGN, A M<R2,R3,R4,R5,P6,R7,R8,R9,RI0,R11> 
DS$AX_S0FTPCB,R4 /SOFTWARE PCB TO R4 



CHAN(AP),R11 

#2,(R11),30$ 

(RID 

MBXNAM(AP),R10 

10$ 

#8, (RIO), 30$ 

(R10) t -(SP) 

SP R1 

#SS$ IVDEVNAM,RO 

DEVNflM(AP),R9 

20$ 

#8,<R9),30$ 

#0,*2,ACM0DE(AP),R0 

EXE$MAXACMODE 
R0,R8 

IOC$FFCHAN 
RO,FREECHAN 

*SS$..ACCVIO,RO 



FREE CHANNEL FOUND 



.ENA8L LSB 



FREECHAN: 

MOVL 
BS8W 
8L8C 
MOVL 
BSBW 
8L8C 



DEVICE FOUND 



R1,R7 

TEST MAILBOX 

R0,30$ 

R9 R1 

IOCSSEARCHDEV 

R0,40$ 



GET ADDRESS TO STORE CHANNEL NUMBER 

CAN CHANNEL NUMBER BE WRITTEN? 

CLEAR CHANNEL NUMBER IN CASE OF ERROR 

GET ADDRESS OF MAILBOX NAME DESCRIPTOR 

IF EQL NO MAILBOX SPECIFIED 

CAN MAILBOX DESCRIPTOR BE READ? 

COPY MAILBOX NAME DESCRIPTOR 

SET ADDRESS OF MAILBOX NAME DESCRIPTOR 

SET INVALID DEVICE NAME STATUS 

GET ADDRESS OF DEVICE NAME DESCRIPTOR 

IF EQL NO DEVICE SPECIFIED 

CAN DEVICE NAME DESCRIPTOR BE READ? 

GET SPECIFIED ACCESS MODE 

MAXIMIZE ACCESS MODE 

SAVE MAXIMIZED ACCESS MODE 

FIND FREE I/O CHANNEL 

IF LBS FREE I/O CHANNEL FOUND 

SET ACCESS VIOLATION STATUS 



FREE CHANNEL FOUND 

SAVE CHANNEL INDEX 

TEST IF MAILBOX SPECIFIED 

IF LBC SEARCH FAILURE 

SET ADDRESS OF DEVICE NAME DESCRIPTOR 

SEARCH FOR DEVICE 

IF LBC SEARCH FAILURE 



MOVL 

B8S 

B8C 



R1,R5 ;SAVE ADDRESS OF DEVICE UCB 

S**DEV$V SPL,UCB$L_DEVCHAR(R5),80$ ;IF SET, SPOOLED DEVICE 
S A #UC8$V"TEMPLATE,- ;IF CLR, ASSIGNING TO A LOCAL DEVICE 

UCB$W - .ST5(R5), LOCAL 



77-ENSAA-7.0 

ASSIGN 
05-02 



ASSIGN I/O 



CHANNEL 

*** ASSIGN 
ASSIGN I/O 



179 



0084 31 



bO 28 A5 
It 

51 54 

60 A1 50 

28 

51 IC A1 

OA 

00000000* F FA 1 

51 

EA 

50 0840 8F 

58 



50 



08F0 8F 

54 

0051) 



-o 



25 
20 



34 
34 



A5 
A5 



54 



54 A5 



00' 

00 • 

56 

K 

A5 

0D 

56 

11 



DO 
13 
DO 
D1 
13 
3C 
13 
DO 

11 
3C 
11 



B1 
1? 
31 



U5 34 AS 00' EO 



28 A5 6U A4 DO 



eo 

EO 
f)5 
13 
D5 

15 

D1 
13 



0072 

0075 

0075 

0075 

0075 

0075 

0075 

0075 

0079 

007B 

007E 

0082 

0084 

0088 

C08A 

0091 

0092 

0094 

0099 

0098 

0098 

009b 

0098 

0098 

0098 

OOAO 

0OA2 

00A5 

00A5 

0OA5 

0OA5 

0OA5 

00A5 

00A5 

OOAA 

OOAA 

OOAA 

OOAA 

OOAA 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

0084 

0089 

0088 

008D 

OOCO 

00C2 

0OC6 



assign device 

CHANNEL 
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204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

265 

264 



BRW 



NETWORK 



IF SET, NETWORK ASSIGN 



LOCAL ASSIGNMENT 



LOCAL 



10$: 



20$: 
30$: 



MOVL UCB$L PID(R5),R0 

BEQL 50$ 

MOVL R4,R1 

CMPL R0,PC8$L PIDCR1) 

BEQL 70$ 

M0V7WL PCB$L 0WNER(R1>,R1 

BEQL 20$ " 

MOVL 5)L A SCH$GL - PCBVEC[R13,R1 

BR8 10$ 

MOVZWL *SS$ DEVALLOCRO 

BRB 90$ " 



LOCAL ASSIGNMENT 

GET PROCESS ID OF OWNER 

It EQL DEVICE NOT ALLOCATED 

COPY PROCESS PCP ADDRESS 

PROCESS ID MATCH? 

U EQL YES 

GET CREATOR PROCESS INDEX 

If EQL NO CREATOR 

GET ADDRESS OF CREATOR PCB 



SET DEVICE ALREADY ALLOCATED 



DEVICE SEARCH FAILURE 



40$: 



CMPW 


*SS$ NONLOCAL, RO 


BNEQ 


90$ " 


BRW 


REMOTE 



REMOTE DEVICE? 
IF NEQ NO 



; DEVICE NOT SPOOLED OR ALLOCATED - IF IT'S ALSO NOT SHAREABLE, CHECK THAT 
; PROCESS HAS PRIVILEGE TO ALLOCATE IT 

» 

50$: B8S S A *DEV$V_SHR,UCB$L_DEVCHAR(R5),70$ ;JF SET, DEVICE SHAREABLE 

NONSHAREABLE DEVICE - PERFORM IMPLICIT ALLOCATION 

60$: MOVL PCB$LJMD(R4) ,UC8$L_PID(R5) ;SET CURRENT PROCESS AS OWNER 

ASSOCIATE MAILBOX IF: 

1. NOT FILE DEVICE 

2. NOT SHAREABLE DEVICE 

3. MAILBOX NOT ALREADY ASSOCIATED 

4. MAILBOX IS SPECIFIED 



70$: 



B8S 
BBS 

TSTl 
BEQL 
TSTL 
BEQL 
CMPL 
BEQL 



S A #DEV$V FOD,UCB$L DEVCHAR (R5) ,80$ ;JF SET, FILE DEVICE 
S A *DEV$v:SHR,UCB$LlDEVCHAR(R5),80$ ;IF SET, SHARED DEVICE 



R6 

80$ 

UCB$L AM8(R5) 

75$ " 

R6.UCB$L AMBCR5) 

80i 



ARE WE ASSOCIATING A MBX 

IF NOT JUST CONTINUE 

IS THERE ONE CURRENTLY ASSOC? 

IF NOT ASSOC NEW ONE 

TRYING TO ASSOC DIFFERENT MBX? 

IF NOT JUST CONTINUE 



ZZ-ENSAA-7.G 

ASSIGN 



ASSIGN I/O 



CHANNEL 

*** ASSIGN 
ASSIGN I/O 



50 



02CA 8F 
27 



54 AS 



50 



56 

A6 

56 01 

00000000'FF47 

50 

60 

50 
58 

09 
AO 
6B 
50 



08 



55 
A5 
01 
AO 
56 
57 
01 



FFO? 1 



V5A 

-2/ 



50 



08FO SF 

FEFF 



V54 

V54 
V5A 



50 



OtfFO 8F 
FEF6' 



3C 

11 

DO 
B6 
9A 
9E 

DO 
B6 
81 

90 
AE 
3C 
31 



3C 

30 
04 



30 
04 



00C8 

OOCD 

OOCF 

OOCF 

00D3 

00D6 

00D9 

OOEO 

00E1 

00E4 

00E7 

OOEA 

OOEC 

OOFO 

C0F3 

00F6 

00F9 

00F9 

00F9 

00F9 

00F9 

00F9 

00F9 

OOFE 

010i 

010? 

010? 

0102 

0102 

0102 

0102 

0102 

0102 

0107 

01 OA 



assign device 

CHANNEL 
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265 
266 
267 
268 

269 
270 

271 

27? 
273 
274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

.1 

.2 

.3 

31? 

313 

314 

315 

316 

317 

318 

.1 

.? 

.3 



75$: 



80$: 



90$: 



MOVZWL *SS$_DEVACTIVE,RO 

BRB 90$ 

MOVL R6,UCB$L AMB(R5) 

INCW UCB$W REFC(R6) 

MOVZBL #CCB$R AM8,R6 

M0VA8 SCTL$GC.CCBBASE[R73,R0 

MOVL R5,CCB$L UCB(RO) 

INCW UCB$W REfC'RS) 

ADDB3 #1 ,R87CC8$B_AM0D(R0) 

MOVB R6,CCB$B STS(RO) 

MNEGW R7,(R11)~ 

MOVZWL 0SS$ NORMAL, RO 

BRW 10C$ONLOCK 



;DON'T DO THE ASSIGN 
/RETURN THE ERROR 

SET ASSOCIATED MAILBOX UCB ADDRESS 
INCREMENT MAILBOX UCB REFERENCE COUNT 
SET ASSOCIATED MAILBOX FLAG 
COMPUTE BASE OF CCB 

STORE UCB ADDRESS IN CCB 
INCREMENT UCB REFERENCE COUNT 
STORE ACCESS MODE OF CHANNEL 

SET CHANNEL STATUS FLAGS 
STORE ASSIGNED CHANNEL NUMBER 
SET NORMAL COMPLETION STATUS 
UNLOCK I/O DATA BASE AND RETURN 



NETWORK ASSIGNMENT 



NETWORK: 



MOVZWL #SS$ NONLOCAL.RO 

BS8W IOCSONLOCK 

RFT 

.DSA8L LSB 



REMOTE DEVICE SPECIFIED 



Set return to non-local 
Unlock I/O database and return 



REMOTE: 



MOVZWL #SS$ NONLOCAL, RO 
BSBW IOC$DNL0CK 
RET 



Set return to non-local 
unlock i/o data base 



Z7-ENSAA-7.0 

ASSIGN 
05-02 



TEST IF MAILBOX 



SPECIFIED 

*** ASSIGN assign device 

TEST IF MAILBOX SPECIFIED 
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56 
51 



50 
OB 34 
06 34 



15 

00/4 
A1 

A1 
56 
50 



5A 
18 
56 
FEEA' 



50 

8F 

00' 

00' 

51 

01 



DO 
13 
DO 
30 
19 
3C 
E1 
FO 
DO 
3C 
05 



010B 
010B 
010B 
010B 
010B 
010B 
01 OB 
0108 
010B 
01 OB 
010B 
01 OB 
01 OB 
010B 
C108 
0108 
010B 
0108 
010B 
010E 
0110 
0113 
0116 
0119 
011E 
0123 
0128 
0128 
012E 
012F 
012F 



356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 



.SBTTL TEST IF MAILBOX SPECIFIED 
SUBROUTINE TO TEST IF A MAILBOX IS SPECIFIED 
INPUTS: 

RIO = ADDRESS OF MAILBOX NAME DESCRIPTOR 
OUTPUTS: 

RO = SS$ NORMAL IF SPECIFIED MAILBOX EXISTS 

SS$"NOSUCHDEV IF SPECIFIED MAILBOX DOES NOT EXIST 
SS$~DEVNOTMBX IF SPECIFIED DEVICE IS NOT A MAILBOX 

R6 = ADDRESS OF MAILBOX UCB 

ZERO IF MAILBOX NOT SPECIFIED (USED AS CHANNEL STATUS FLAGS) 



TESTJ1AIL80X: 

MOVL 
BEQl 
MOVL 
BSBW 
BLBC 
MOVZWL 
BBC 
BBS 
MOVL 
10$: MOVZWL 
20$: RSB 

.END 



R10,R6 

10$ 

R6,R1 

IOCSSEARCHDEV 

R0,20$ 

0SS$ DEVNOTMBX.RO 



SET ADDRESS OF MAILBOX NAME DESCRIPTOR 
IF EQL NO NAME SPECIFIED 
COPY ADDRESS OF MAILBOX NAME DESCRIPTOR 
SEARCH FOR DEVICE 
IF LBC SEARCH ERROR 
SET DEVICE NOT MAILBOX STATUS 
S A *DFV$V MBX,UCB$L DEVCHAR(R1),20$ ;IF CLR, DEVICE NOT MAILBOX 
S A #PEV$V~NET,UCB$L~DEVCHAR(R1),20$ ;IF SET, NETWORK DEVICE 



R1,R6 
0SS$_NORMAL,RO 



SAVE ADDRESS OF MAILBOX UCB 
SET NORMAL COMPLETION STATUS 



ZZ-ENSAA-7.0 

ASSIGN 
Symbol table 

ACMODE 
CCBSB AMOD 
CCB$B~STS 
CCB$C~lENGTH 
CCBSiTlENGTH 

ccbsl"oirp 

ccbil'ucb 
rr b$l "wind 

CCB$M~AMB 
CCBSW'IOC 
{HAN 

cu.$gl ccbbase 
devsv tod 
devsv'mbx 
devsv'net 
dfvsv'shr 

DEVSV'SPt 

DEVNAR 

DSSAX SOFTPCB 

EXFSASSIGN 

LXESMAXACMODE 

FRFF'HAN 

IOC $F KHAN 

lOCSSEARCHDfcV 

IOCSUNLOCK 

I OCA{ 

MBXNAM 

NFTFND 

NEINAM 

NETWORK 

PCBSB ASTAfT 

PCBSB'ASTEN 

PCBSB'PRI 

PCB$B~PRIB 

PC'BSB'TYPf 

PfB$B"WFFf 

PCB$C~LENGTM 

PCB$K"l.ENGTH 

PlBSl.'ARB 

PCB$L"ASTQHl 

PiB$L"ASTQFi 

PfB$L~FFt7P 

PCB$l"EFC5P 

"fBU'Ef CS 

PCB$L"EFfU 

pib$l*efwm 
pcbsl'jib 
pcbsl "owner 
pcB$i"PHr 

PCetl"PHYPC8 
PCBSt "PID 

pcb$l"pqb 
pcb$l"sobl 

PfBfcl "SQFL 
PCB$L"5TS 

pfB$ri)K' 

"CBSL'WSSWP 



Symbol table 



*** ASSIGN assign device 
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= oooooooc 


D 




00000009 


D 




00000008 


D 




00000010 


D 




00000010 


D 




oooooooc 


D 




00000000 


D 




00000004 


D 




= 00000001 


D 




0000000A 


D 




= 00000008 


D 




******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


0? 


= 00000004 


D 




******** 


X 


02 


00000004 RG D 


02 


******** 


X 


02 


000000S3 R 


D 


02 


******** 


X 


0? 


******** 


X 


02 


******** 


X 


02 


00000075 R 


D 


02 


= 00000010 


P 




00000004 R 


D 


02 


00000000 R 


D 


02 


CGOOOOr* R 


D 


02 


OOOOOOOf 


D 




00000000 






OOOOOOOB 


P 




03000C2F 


!*> 




OOOOOOOA 


I 




00J0002E 


) 




PJ00008C 


b 




0000006C 


D 




00000084 


P 




00000014 


P 




00000010 


D 




00000058 


P 




O0C0O05C 


D 




00000050 


D 




00000054 


D 




0000004C 


D 




00000078 


[) 




0000001 C 


P 




00000064 


P 




00000013 


D 




00000060 


D 




0000004C 


D 




00000004 


V 




00000000 


P 




00000024 


P 




00000088 


P 




00000020 


P 





PCBSL WTIME 

PCB$G"PRIV 

PCBSTLNAME 

PCB$T~"TERMINAL 

PC8$W~APTCNT 

PCB$W~ASTCNT 

PC8$W"BI0CNT 

PC8$W~BI0LM 

PC8$W~DI0CNT 

PC8fW"DI0LM 

PCB$W"GPGCNT 

PC8$W"GRP 

PCB$W"MErt 

PCB$W"MTXCN7 

PCBSW'PPGCNT 

PCB$W PRCCNT 

PC8$W"SIZE 

PC8SW"STATE 

PC8$W~TMBU 

REMOTE 

SCHSGL PCBVEC 

SIZ — " 

SSS ACCVIO 

SS$"DCVACTIVE 

SS$~DEVALLOC 

SS$~DEVN0TMBX 

SSS'lVDEVNAM 

SSS'NONLOCAL 

SS$~NORMAL 

TEST MAILBOX 

UC8SB AMOD 

UC8$B"CEX 

UCB$B~CM1 

UC8$B"CM2 

UC8$B"DEVCLASS 

UC8$B"DEVTYPE 

UC8$B;DIPL 

UC8SB OX SCTCNT 

UC8$B"ERTCNT 

UC8$B~ERTMAX 

UC8$B"FEX 

UC8$B"F1PL 

UC8SB~L0CSRV 

UCO$B"OFFNDX 

UCB$B"OFFRTC 

UC8$B~REMSRV 

UC8$B~SECT0RS 

U18$B"SLAVE 

Ul'B$B~SPR 

UC8$B"STArE 

UCBStf TRACKS 

uc8$b"tt crfill 

uc6$b^1t"decrf 

ucb$b"tt"delff 

uc8s8"tt"despee 
u,8$b"tt"pe t ype 
ulb$b"tt"lffill 



00000028 


D 


0000007C 


D 


00000068 


P 


00000044 


P 


00000030 


D 


00000038 


D 


0000003A 


D 


0000003C 


P 


0000003E 


P 


00000040 


P 


00000034 


P 


0000008A 


P 


00000088 


D 


OOOOOOOE 


D 


00000036 


P 


00000042 


P 


00000008 


D 


0000002C 


P 


00000032 


r 


00000102 R 


P 02 


******** 


X 02 


00000002 


D 


OOOOOOOC 


D 


000002C4 


P 


00000840 


D 


00000074 


D 


00000144 


D 


000008FO 


D 


00000001 


D 


000001 OB R 


D 02 


00000053 


D 


00000077 


D 


0000004A 


D 


0000004B 


D 


00000038 


P 


00000039 


P 


00000052 


P 


00OOOOA6 


D 


00000070 


D 


00000071 


D 


00000076 


P 


OOOOOOOB 


P 


0000003C 


P 


00000094 


P 


00000095 


D 


0000003D 


D 


0000003C 


D 


00000074 


D 


00000075 


P 


00000052 


P 


00000030 


I) 


0000009D 


D 


0OO00OA1 


D 


0OCOOOA2 


P 


ODOOOOAO 


D 


OOOO0OA4 


D 


0000009E 


P 







ZZ-ENSAA-7.G Symb 


ASSIGN 




Symbol 


table 


UCBSB 


TT SPEED 


UCBSB" 


TYPE 


UCBSB" 


VERTSZ 


UCBSC" 


LENGTH 


UCBSC" 


MB LENGTH 


UCBSr 


tTlength 


UCBtKl 


'LENGTH 


UCBSK 


'MB LENGTH 


UCBSK" 


'TT'LENGTH 


UCBSL*" 


"amS 


ucbsl" 


"ASTQBL 


ucbsl" 


'ASTQFL 


UCBSL* 


"CPID 


ucbsl" 


"CRB 


ucbsl" 


"DDB 


ucbsl" 


'DEVCHAR 


ucbsl" 


"DEVDEPEND 


UCBSL' 


*DPC 


UCBSL" 


"DUETIM 


UCBSL" 


"DX BFPNT 


UCBSL 


"DX'BUF 


UCBSL' 


'OX'RXDB 


UCBSL" 


"EMB 


UCBSL' 


"FIRST 


ucbsl" 


"FPC 


UCBSL" 


'FOBL 


UCBSL " 


"FQFL 


UCBSL 


*FR3 


UCBSL* 


"FRA 


UCB$L" 


"IOQBL 


UCBSI" 


"IOQFL 


UCBSL" 


"IRP 


UCBSL' 


"LINK 


UCBSL' 


"LOGADR 


UCBSL 


"maxblou 


UCBSL* 


"MB MBX 


UCBSI " 


'MB"PORT 


UCBSL' 


"MB'RAST 


ucbsl" 


"MB'SHB 


UCBSL" 


~M8"*WAST 


UCBSL 


"MB"WI0Q8L 


UCBSL 


"MB'WlOQFL 


UCBSL 


"MEDIA 


UCBSL 


"NT DATSSB 


UCBSL 


"NT'iNTSSB 


UCBSL 


"OPrNT 


UCBSL 


"OWNUK 


UCBSL 


"PID 


UCBSL 


"RQBL 


UCBSL 


"PQFL 


UCBSL 


"SVAPTT 


UCBSL 


"SVPN 


UCBSL 


"TT DECHAR 


UCBSL 


"TT'RDUE 


UCBSL 


"TT'RTIMOU 


UCBSL 


"VCB 


UCBST 


"PARTNER 



table 
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O0OO009C 


D 


UC8SV 


OOOOOOOA 


D 


ucesw; 


0000003F 


D 


UCBSW 


00000074 


D 


UC8SW* 


00000090 


D 


UCBSW* 


OOOOOOBC 


D 


UCBSW" 


00000074 


D 


ucbsw; 


00000090 


D 


UCBSW 


OOOOOOBC 


D 


ucbsw; 


00000054 


D 


UCBSW 


00000010 


D 


UCBSW 


oooooooc 


D 


UCBSW 


0000005C 


D 


UCBSW 


00000020 


D 


UC8SW* 


O0OOC024 


D 


UCBSW 


00000034 


D 


UCBSW 


0000003C 


D 


UCBSW 


00000080 


D 


UC8SW 


0000005C 


D 


UC6SW 


0000009C 


D 


UCBSW 


00000098 


D 


UC8SW 


OOOOOOAO 


D 


UCBSW 


00000078 


D 


UC8SW 


00000014 


D 


UCBSW 


OOOOOOOC 


D 


UCBSW 


00000004 


D 


UC8SW 


oooooooo 


D 


UCBSW 


00000010 


D 


UCBSW 


00000014 


D 


UCBSW 


00000044 


D 


UCBSW 


00000040 


D 


UC8SW 


0000004C 


D 




0000002C 


D 




00000064 







00000084 


D 




0000007C 


D 




0000008C 


D 




00000078 


D 




00000080 


D 




00000074 


D 




00000088 


D 




00000084 


D 




0000008C 


D 




00000074 


D 




00000078 


D 




00000060 


D 




0000001 c 


D 




00000028 


D 




00000004 







oooooooo 


D 




00000068 


D 




0000C064 


D 




00OO0OA8 


D 




00OO008C 


D 




00000088 


D 




00000030 


D 




OOOOOOOC 


P 
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TEMPLATE 
[BCNT 

BCR 
'BOFF 
'BUFQUO 
"BYTEST060 
"CHARGE 
"CYLINDERS 
"DA 

DC 

"DEVBUFSIZ 
"DEVSTS 

DIRSEO 
"DSTADDR 
'DX BfR 
"ECT 
.EC2 

ERRCNT 

;func 

MB SEED 
"MSGCNT 
'MSGMAX 
"NT CHAN 
"OFFSET 

REFC 
[SUB 

SRCADDR 
'STS 

"TT DESJZE 
"UNIT 

VPROT 



9 
(1) 



OOOOOOOD 


D 


0000OO6C 


D 


00000096 


D 


0000OO6C 


D 


00000018 


D 


0000003E 


D 


0000004A 


D 


00000O3E 


D 


0000008C 


D 


0000OO8E 


D 


0000003A 


D 


0000005A 


D 


00000088 


D 


00000018 


D 


0000OOA4 


D 


00000090 


D 


00000092 


D 


00000072 


D 


0000007E 


D 


OOOOOOOO 


D 


00000016 


D 


00000014 


D 


0000007C 


D 


00000O8A 


D 


00000050 


D 


00000008 


D 


0000001 A 


D 


00000058 


D 


0000OOA5 


D 


00000048 


D 


0000001 A 


D 



J 



Z7-ENSAA-7.0 

ASSIGN 

^r.ect synopsis 



Psect synopsis 



*** 



ASSIGN assign device 



27-JUL-1984 Fiche 1 Frame CIS Sequence 184 

27-JUL-1984 15:00:08 VAX-11 Macro V03-01 Page 10 

1-APR-1980 10:25:59 DMA1 j[SYS0.SYSMAJNT]ASS1GN.MAR; U (1) 



PSECT name 

. ABS . 

$ABS$ 

SEP 



Atlocat ion 

00000000 ( 
OOO00OBC ( 
000001 2F ( 



! P^ect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 
188.) 01 < 1.) NOPJC USR 
303.) 02 ( 2.) NOPIC USR 



CON 


ABS 


LCI 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCI 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


EXE 


RD 


WRT 


NOVEC 


LONG 



ZZ-ENSAA-7.0 

ASSIGN 

Iross reference 



Cross reference 



*** ASSIGN assign device 



SYMBDl 



ACMODE 

CCBSB AMOD 

CCBSB'STS 

CfBSL'UCB 

CCB$M~AMB 

CHAN 

CTLSGL CCBBASE 

DEVSV TOD 

DEV$V~MBX 

DEV$V~NET 

DEV$V~SHR 

DEV$V~SPL 

OEVNAR 

DSSAX SOFTPCB 

EXESASSIGN 

EXESMAXACMODE 

FREE CHAN 

IOCSFFCHAN 

IOCSSEARCHDEV 

10C$UNLOC.< 

LOCAL 

MBXNAM 

NFTfND 

NET NAM 

NETWORK 

PCB$l. OWNER 

PCB$L~PID 

REMOTE 

SCHSGL PCBVEC 

SSS ACfVlO 

SSS'DEVACTIVE 

SS$~DEVALLOC 

SSS'DEVNOTMBX 

SSS~JVDEVNAM 

SSS'NONLOCAL 

SSS'NORMAL 

TEST MAILBOX 

UCB$U AMB 

UCB$L~DEVCHAR 

UCB$L PID 
UCB$V~TEMPLATE 

UCB$W"REFC 
UCB$W~STS 
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+ -+ 

! Symbol Cross Reference ! 

+ + 



VALUE 




DEFINITION 
81 (1) 


REFERENCES... 








=oooooooc 


173 (1 






00000009 








#-274 (1 










00000008 








#-275 (1 










00000000 








H-272 (1 










-00000001 








#-270 (1 










=00000008 




80 


(1) 


#-161 (1 










00000000- 


XR 






271 (1 










ooooocoo- 


XR 






#-257 (1 










00000000- 


XR 






#-380 (1 










00000000- 


XR 






#-381 (1 










00000000- 


XR 






#-236 (1 


) #-258 


(1) 






00000000- 


XR 






#-201 (1 










=00000004 




79 


(1) 


#-170 (1 










00000000- 


XR 






160.1 (1 










00000004- 


R 


160 


(1) 












00000000- 


■XR 






#-174 r 










00000053- 


R 


187 


(1) 


#-177 C 










00000000- 


•XR 






#-176 c 










00000000- 


•XR 






#-193 (' 


) #-377 


(1) 






00000000- 


•XR 






#-278 (" 


) #-284,2 


(1) 


#-318, i 


(1) 


00000075- 


■R 


2>0 


(1) 


#-203 < 










=00000010 




8? 


(1) 


#-164 (' 










00000004- 


■R 


90 


<1> 












00000000- 


•R 


89 


(1) 












000000F9- 


•R 


284 


(1) 


#-204 r 










0000001 c 








#-216 ( 










00000060 








#-214 ( 


1) #-246 


(1) 






00000102- 


-R 


318 


(1) 


#-229 ( 










00000000- 


-XR 






#-218 ( 










=oooooooc 








#-179 ( 










=000002C4 








#-265 ( 










=:00000840 








#-220 ( 










^00000074 








#-379 ( 










^00000144 








#-169 ( 










--000008F0 








ft-227 ( 


1) #-284,1 


(1) 


#-318.1 


(1) 


=00000001 








ft-277 ( 


1) #-383 


(1) 






0000010B- 


-R 


373 


(1) 


#-190 ( 










00000054 








#-261 ( 


1) #-263 


(1) 


#-268 


(1) 


00000034 








201 ( 
380 ( 


1) 256 
1) 381 


(1) 

(1) 


257 


(1) 


00000028 








#-211 ( 


1) #-2^6 


(1) 






-O0000O0D 








#-202 ( 










00000050 








#-269 ( 


1) #-273 


(1) 






00000058 








203 ( 











258 



(1; 
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1? 
(1) 



+ + 

! Macros Cross Reference ! 
+ „™. + 



MACRO 

SCCBDEF 
SDEFIN1 

SIODEF 

SJIBDEF 

$LOGDEF 

SPCBDEF 

$PRDEF 

SPRVDEF 

SSSDEF 

SUCBDEF 

IFNORD 

IFNOWRT 



SIZE 

1 
1 

17 

3 

1 

4 

4 

4 

?1 

10 

1 

1 



DEFINITION 



63 
63 

64 

65 

66 

67 

68 

69 

70 

71 

166 

162 



REFERENCES. 



63 

63 

68 

64 

65 

66 

67 

68 

69 

70 

71 

166 

162 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(I) 



64 
69 



172 



(1) 
(1) 



65 
70 



(1) 
(1) 



66 
71 



(1) 
(1) 



67 



(1) 



(1) 



Phase 

Initial 1 eat ion 

Command process ina 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



34 

145 

738 



87 

25 

6 

24 

1063 



! Performance indicators J 

+ -.... + 



Page faults CPU Time 



Elapsed Time 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



: 00.10 

:00.73 
: 1 4 . 94 
:02.00 
:02.53 
:00.17 
:00.02 
:00.23 
:20.76 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.46 
01.72 
21.25 
02.92 
05.1? 
00.38 
00.39 
00.40 
32.67 



The working set limit was 1000 paqes. 

72168 bytes (141 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1270 non-local and 15 local symbols. 

330 source lines were read in Pass 1, producing object records in Pass 2, 

57 pages of virtual memory were used to define 20 macros. 

I Macro library statistics ! 



Mac ro I ibrary name 

DMA1:CSYS0.SYSMAJNTJDS.MLB;218 

DMA1:CSYS0.SYSMAIMT]DIAG.MLB;953 

SYS$SYSR00T:[SYSLIB]LI8.MI8;1 

SYS$SYSR00T:[SYSLIBJSTARLET.MLB;2 

TOTALS (all libraries) 



Macros defined 


3 
4 
9 
16 



15,?/ GETS were required to define 16 macros. 
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VAX-11 Macro Run Statistics 1-APR-1980 10:25:59 0MA1 :[SYS0.SYSMAJNT3ASSJGNI.MAft;U (1) 

There were no errors,, warnings or -information messages. 

MACRO/NOOBJECT/LIST = CDS.l I S3/CR0SS/ENABLE= (DEBUG, TRACE) ASSIGN/UPDA=(ASS]GN.UPD,A$S1GN.ENH)+SYS$LJBRARY :LIB/L JBRARY+DMA1 : CSYSO.SYSMA 
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ASTCON *** ASTCON AST control service 27-JUL-1984 15:00:43 VAX-11 Macro V03-01 Page 
; able of contents 

(1) 40 HISTORY ; DETAILED 

(1) 58 DECLARATIONS 

(1) 87 FXESSETAST - SET AST ENABLES 



ZZ-ENSAA-7.0 

ASTCON 

VO2-001 



*** ASTCON AST control service 

*** ASTCON AST control service 
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-1 
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0000 
0000 
0000 
0000 
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0000 
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0000 
0000 
0000 
0000 
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0000 
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0000 
0000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0000 
0000 
0000 
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0000 
0000 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
J 
5? 
54 
55 
56 



.TITLE ASTCON *«* ASUON AST control service 
.JDENT '07-02' 
.JDENT 'V02-00V 



************************* ************* *************************** ********** 

* 

COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

INCLUSION OF THE A80VE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

TRANSFERRED. * 

* 

THE INFORMATION IN THJS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

CORPORATION. * 

* 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

* 

*************************************************************************** 

+ + 
FACILITY; EXECUTIVE, SYSTEM SERVICES 

ABSTRACT: 

THIS MODULE CONTAINS THE SYSTEM SERVICES SETAST WHICH CONTROLS 
THE STATE OF THE AST ENABLES AND DCLAST WHICH DECLARES AN 
AST FOR A PARTICULAR ACCESS MODE. 

ENVIRONMENT; 



.PAGE 

.S8TTL HISTORY 



AUTHOR: 



R. HUSTVEOT 



; DETAILED 
CREATION DATE: 21-SEP-76 



MODIFIED BY: 

, : VERSION 



01 



01 
02 



Dave Butenhot 18-jun-198G, version 5.5 

Use VMS SYSASTCON module to implement supervisor SETAST 

service, 

- Jack Stansbury, 23-Oct-1981, Version 6.- 
P i fed some truncation errors. Added .LIBRARY statements 
for $DS and SDJAG. Removed previous .PSECT SEP statement, 
changed it to .PSECT CODE. 



ZZ-ENSAA-7,0 

ASTCON 
Y02-001 



DECLARATIONS 



*** ASTCON AST 
DECLARATIONS 



control service 



0000 58 

0000 59 

0000 60 

0000 61 

0000 62 

0000 63 

0000 64 

0000 65 

0000 66 

0000 67 

0000 68 

0000 69 

0000 70 

0000 71 

C000 72 

0000 71 

0000 74 

00C0 75 

0000 76 

0000 77 

OOOOOOOC 0000 78 

00000004 0000 79 

00000008 0000 80 

00000004 0000 81 

0000 8? 

0000 83 

0000 84 

00000000 85 
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(1) 



.SBTTL DECLARATIONS 



INCLUDE FILES: 

.LI8RARY 
.LIBRARY 

SAC8DEF 

SIPLDEF 

SPC8DFF 

IPRVtf 

SPSLDEF 

SRSNDEF 

SSSDEF 



EQUATES: 



ACM0DE=12 
AST=4 
ASTPRM^8 
ENA8LE-4 

OWN STORAGE: 



/$DS/ 
/$DIAG/ 



DEFINE AST CONTROL BLOCK OFFSETS 

DEFINE IPL VALUES 

DEFINE PCB OFFSETS 

DEFINE PROCESSOR REGISTER VALUES 

DEFINE PSL FIELDS 

DEFINE RESOURCE NUMBERS 

DEFINE STATUS CODE VALUES 



[02] 
[02] 
C02D 



.PSECT Y$EXEPAGED,8YTE 



DISPLACEMENT 
DISPLACEMENT 
DISPLACEMENT 
DISPLACEMENT 



; PAGED PSECT 



TO ACCESS MODE 

TO AST ADDRESS 

TO AST PARAMETER 

TO ENABLE ARGUMENT 



??-ENSAA-7.0 

ASTCON 

V02-001 



EXESSbTAST - SET AST ENABLES 

*** ASTCON AST control service 
EXESSETAST - SET AST ENABLES 



.S8TTL 
.PSECT 



191 



03 









0000 


87 






00000000 


88 








0000 


89 








0000 


90 








0000 


91 








0000 


92 








0000 


93 








0000 


94 








0000 


95 








0000 


96 








0000 


97 








0000 


98 








0000 


99 








0000 


100 








cooo 


101 








0000 


102 








0000 


103 








0000 


104 








0000 


105 








0000 


106 








0000 


107 








0000 


108 








0000 


109 








0000 


110 








0000 


111 








0000 


112 








0000 


113 








0000 


114 








0000 


115 








0000 


116 








0000 


117 








0000 


118 








0000 


119 








0000 


120 








0000 


121 








0000 


122 








0000 


123 








0000 


124 








0000 


125 








0000 


126 








0000 


127 






003C 


0000 


128 


00000000 


54 


DE 


0002 
0008 


129 




51 


DC 


0009 


130 


1 0? 


18 

51 


EF 


0008 
OOOF 


131 


55 


09 


3C 


0010 


132 


on A4 


51 


EO 


0013 


133 


55 


01 


3C 


0018 


134 


51 04 


AC 


FO 


0018 


135 


OD A4 


01 




001F 




OOQOOOOO 


'EF 


16 


0022 


136 


50 


55 


DO 


0028 


137 






04 


0028 
002C 


138 
139 
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EXESSETAST - SET AST ENABLES 
Code, Exe, Shr, NoWrt, Long ; 



3 
(1) 



L02J 



+ + 
FUNCTIONAL DESCRIPTION: 

EXESSETAST ALLOWS A PROCESS TO ENABLE OR DJSABLc THE DELIVERY 
OF ASTS FOR THE PROCESS AT THE ACCESS MODE ISSUING THE CALL TO 
EXESSETAST. THE PREVIOUS STATE OF THE AST ENABLE FOR THAT 
ACCESS MODE IS RETURNED IN BIT 1 OF REGISTER AS PART OF 
THE SUCCESSFUL COMPLETION STATUS CODE, 

CALLING SEQUENCE: 

CALLG ARGLIST, EXESSETAST 

INPUT PARAMETERS: 

04(AP) - NEW SETTING FOR AST ENABLE 
R4 - PCB ADDRESS OF CURRENT PROCESS 

IMPLICIT INPUTS: 

SCHSGL.CURPCB - POINTER TO CURRENT PROCESS PCB 

OUTPUT PARAMETERS: 

RO - COMPLETION STATUS CODE 

IMPLICIT OUTPUTS: 

AST ENABLE FOR PREVIOUS MODE IS SET ACCORDING TO ARGUMENT 

THE NEW SETTING FOR THE ASTLVL REGISTER IS PLACED BOTH IN 
THE PROCESSOR REGISTER AND THE CURRENT HARDWARE PCB. 

COMPLETION CODES: 

SSS WASCLR - AST ENABLE FOR ACCESS MODE WAS CLEAR 
SSSJJASSET - AST ENABLE FOR ACCESS MODE WAS SET 

SIDE EFFECTS: 

ANY PENDING ASTS FOR THIS PROCESS WHICH BECOME DELIVERABLE 
AS A RESULT OF SETTING AN AST ENABLE MAY BE DELIVERED UPON 
EXIT FROM THIS SERVICE. 



10$: 



.ENTRY 
MOVAL 

MOVPSL 
EXT7V 

MOVZWL 
88S 

M0V7WL 
INSV 

JS8 
MOVl 
RET 
.END 



EXESSETAST ,*M<R2,R3,R4,R5> 
DSSAX_SOFTPCB, R4 ; Get PCB address 

R1 ; GET CURRENT PSL 

#PSLSV_CURM0D,#PSLSS_CURMOD,R1,R1 ; Extract current mode 



tfSSS WASSET,R5 
R1,PtB$B ASTEN(R4),10$ 
*SS$ WASrLR,R5 



ASSUME SET 

TEST OLD ENABLE SETTING 

IT WAS CLEAR 



ENAB[E(AP),Rl,/n,PCB$B..ASTEN(R4> ; SET NEW ENABLE VALUE 



SCHSNEWLVL 
R5,RQ 



; COMPUTE NEW ASTLVL 
SET COMPLETION STATUS 
AND RETURN TO CALLER 



[023! 



ZZ-ENSAA-7.0 Symbol 


table 




ASTCON 


*** ASTCON 


AST cc 


Symbol table 






ACBSB RMOD 


0000000B 


D 


ACBtt'TYPE 


OOOOOOOA 


D 


ACBU'lENGTH 


00000018 


D 


acbsk~length 


00000018 


D 


acbsl'ast 


00000010 


D 


acb$l~astprm 


oooooou 


D 


ACB$L~ASTQBL 


00000004 


D 


ACBSL'ASTQFL 


00000000 


D 


acbsl'kast 


00000018 


D 


ACBSl~PID 


oooooooc 


D 


ACB$W" SIZE 


00000008 


D 


ACMODF 


= oooooooc 


D 


AST 


= 00000004 


D 


ASTPRM 


« 00000008 


D 


DSSAX SOFTPCB 


******** 


X ( 


ENABlF 


- 00000004 


D 


EXE1SETAST 


oooooooo 


*G D ( 


PCBSB ASTACT 


oooooooc 


D 


PCB!B~ASTEN 


0000000D 


D 


PCB$B~PRI 


00000008 


D 


PCB$B~PRIB 


0000002F 


D 


PCBSB'TYPE 


OOOOOOOA 


D 


PCBSB'WEFC 


0000002E 


D 


PCBSClLENGTH 


0000008C 





PCBSK LENGTH 


0000008C 


D 


PCB$L~ARB 


00000084 


D 


PCBSLlASTOBl 


oooooou 


D 


PCB$L ASTQfl 


00000010 


D 


PCBSL'EK2P 


00000058 


D 


PCB$L~EFC3P 


0000005C 


D 


pcb$l"efcs 


00000050 


D 


PCB$L~EFCU 


00000054 


D 


pcbsl'efwm 


0000004C 


D 


pcbslIjib 


00000078 


D 


PCBSL OWNER 


oooooou 


D 


PCBSL'PHD 


00000064 


D 


PCB$l"PHYPCB 


00000018 


D 


PCBSL~PID 


00000060 


D 


PCB$l~PQ6 


0000004C 


D 


PCBSLlSQBL 


00000004 


D 


PCBSL SQFl. 


oooooooo 


D 


PCB$L"STS 


00000024 


D 


pcb$l"uic 


00000088 


D 


PC6$L~WSSWP 


00000020 


D 


PCB$i~WTIME 


00000028 


D 


pcbsg~priv 


0000007C 


D 


pcb$t'lname 


00000068 


D 


pcb$t"ter«jnal 


00000044 


D 


PCB$W~APTCNT 


00000030 


D 


PCBSufASKNT 


00000038 


D 


PCBSW'BIOCNT 


0000003A 


D 


PCBSufBIOLM 


0000003C 


D 


PCB$W"OIOCNT 


0000003E 


D 


PCBSW'DIOLM 


00000040 


D 


PC8$W"GPGCNT 


00000034 


D 


PCBSuf GRP 


0000008A 


D 


PCBSWlHEM 


00000088 


D 



control service 
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4 
(1) 



PC8SW MTXCNT 

PCB$W~PPGCNT 

PC8$W"PRCCNT 

PC8$Ufl>lZE 

PC8SW STATE 

PC8$W"TMBU 

pslss'curmod 

psl$v~curmod 
schsnEwlvl 

SJZ... 
SS$ WASCLR 
SS$IWASSET 



OOOOOOOE 


D 


00000036 


D 


00000042 


D 


00000008 


D 


0000002C 


D 


00000032 


D 


00000002 


D 


00000018 


D 


*** ***** 


X 


00000001 





00000001 


D 


00000009 


D 



03 



03 
03 



7Z-ENSAA-7.0 

ASTCON 

V'sect synopsis 



Psect synopsis 



*** ASTCON AST control service 



L 15 
27-JUL-1984 



Fiche 1 Frame L 1 5 



27-JUL-1984 15:00:43 
1-DEC-1981 11:31:37 



Sequence 193 



VAX-11 Macro V03-0T Page 5 
DMA1 :[SYS0.SYSMAJNT]ASTCON.MAR;7 (1) 



PStCT name 



. ABS . 
1ABSS 

Y$EXEPAGED 
CODE 



Allocation 

00000000 ( 

0000008C ( 

00000000 ( 

0000002C ( 



+ — --.— + 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOP1C USR 

HO.) 01 ( 1.) NOPIC USR 

0.) 02 ( 2.) NOPJC USR 

AAJ 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVE C 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT 


NOVEC 


LONG 
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+ + 



Symbol Cross Reference 



+ - .-..—— — + 



SYMBOL 



VALUE 


DEFINITION 


REFERENCES... 


OOOOOOOC 


78 


(1) 






00000004 


79 


(1) 






00000008 


80 


(1) 






00000000-XR 






129 


(1) 


00000004 


81 


(1) 


#-135 


(1) 


00000000-R 


128 


(1) 






0000000D 






133 


(1) 


oooooco? 






#-131 


(1) 


00000018 






#-131 


(1) 


00000000-XR 






136 


(1) 


00000001 






#-134 


(1) 


00000009 






#-132 


(1) 



ACMODE 

AST 

ASTPRM 

DS$AX SOFTPCB 

ENABLE 

EXESSETAST 

PCBSB ASTEN 0000000D 133 (1) 135 (1) 

PSL$S"CURMUD 

PSLiV'UlRMUl) 

schsnFwi VL 

SSS WASCLR 
SS$"WASSET 



7Z-ENSAA-7.0 

ASTCON 

i ross reference 



Cross reference 



*** ASTCON AST control service 
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+ — •——. — -.----—+ 

! Macros Cross Reference ! 

+ — *. + 



MACRO 

SACRDEF 

SDEUNI 

SiPLDEF 

SPCBDEf 

SPRDEF 

SPSLDEF 

SRSNDFF 

SSSDEF 



SI7F 

? 

1 

1 
4 
4 
2 
1 
21 



DEF INI HON 


REFERENCES... 
66 (D 






66 (D 




66 (D 


66 


(1) 


67 


(1) 




71 


(1) 


72 


(1) 


67 (1) 


67 


(1) 






68 (1) 


68 


(1) 






69 (1) 


69 


(1) 






70 (D 


70 


(1) 






71 (1) 


71 


(1) 






72 (1) 


72 


(1) 







68 



(1) 



69 



(1) 



70 



(1) 



+ „._—-.— — ------- + 

! Performance indicators ! 
+ „ — _+ 



Phase 



Page faults CPU Time 



Elapsed Time 



39 


00:00:00.11 


00:00:00.41 


IAS 


00:00:00, 7k 


00:00:0?. 38 


559 


00:00:07. 75 


00:00:17.88 





00:00:00.98 


00:00:01.01 


76 


00:00:01.18 


00:00:01.32 


CJ 


00:00:OC 06 


00:00:00.07 


6 


00:00:0 '3 


00:00:00.03 


t >3 


00:00:lK : . 10 


00:00:00.10 


841 


00:00:10,95 


00:00:23. 20 



Initial irat ion 

Command process in:j 

Pas': 1 

Symbol table sort 

Pass J 

Symbol table output 

Psec t synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

3V>34 bytes (71 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 641 non-local and 1 local symbols 

1 *W source lines wore reaci in Pass 1, producing obioct records in Pass 2, 

40 pages of virtual memory were used to define" 14 macros. 

+ + 

; Macro library statistics ! 
+ -.-„„-«-- ___---------- + 



Mac ro I ibrary name 

DR91 :[PS.WOm][MAG.MlR;9 r >5 

DR81 :fDS.WORK]DS.Mt B;213 

DMAl:[SYS0.SYSMAiNMD$.MLB;?18 
PMA1 :CSYS0.SYSMAJNTJDIAG. N U8;^SS 

SYS$SYSROOT:fSYSl IBll 18. Ml 8; 1 
SYS$SYSR00T:[SYSII8JSTAR(ET.ML9;2 
T (1TALS fall libraries) 

73b GITS were required to define H macro 1 



Macros defined 




c 

1 

t 

/ 

11 



here were no errors, warnings or information messages. 
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i 



/Z-ENSAA-7,0 
ASTDEL 
able of content 



"* ASTDEL AST 



del i very 

ASTDEL 



*** 



AST delivery 



(1) 
(1i 
C 1 ) 
M) 
(1> 



41 
76.9 

1Q9.4 

341 



C 16 
?7-JUL-1 984 Fiche 1 Frame C16 

?7-JUL-1984 15:01:07 VAX-11 Macro 



Sequence 197 
V05-01 Page 



HISTORY ; DETAILED 

Librarys and Equated Symbols 

Data PSec t Dec larations 

SCHlASTDEL - AST DELIVERY INTERRUPT HANDLER 

SCHSQAST - ENQUEUE AST CONTROL BLOCK FOR PROCESS 



77-ENSAA-7.0 

ASTDEL 

07-07 



-3 



*** ASTDEL AST del iverv 

*** ASTDEL AST delivery 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.1 

.2 

5 
6 
7 
8 
9 
10 

11 
1? 

13 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 

58 



.TITLE ASTDEL *** ASTDEL AST delivery 
.IDcNT /07-07/ 
.NoShow Conditionals 



**************************************************************************** 



COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS* 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

* * 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* * 

**************************************************************************** 

FACILITY: EXECUTIVE, SCHEDULER 

ABSTRACT: 

ASTDEL CONTAINS THE AST DELIVERY INTERRUPT SERVICE ROUTINE AND THE 
ASSOCIATED SUBROUTINES SCHSQAST AND SCH$NEWLVL. THESE ROUTINES 
IMPLEMENT THE PRIMITIVE AS! QUEUEING AND DELIVERY MECHANISMS. 

ENVIRONMENT: 

MODE = KERNEL 



.PAGE 
.SBTTL 

AUTHOR: 

MODIFIED BY; 
V2.04 



V2.Q3 

V2.02 
V2-01 



HISTORY 

R, HUSTVEDT 



; DETAILED 
CREATION DATE: 1-SEP-76 



RIH0082 RICHARD I. HUSTVEDT 04-APR-1980 
REMOVE ASTPEN FLAG AND REPLACE WITH ACCESS MODE CHECK 

LMKO001 LEN KAWELL 23-JAN-1980 
ADD CHECKS TO AVOID FILLING THE STACK WHEN AST'S ARE 
CONTINUALLY QUEUED TO A MODE BEFORE IT CAN EXECUTE 
THE (SECOND) AST DELIVERY REI. 

RIH0051 R. I. HUSTVEDT 07-JUL-1979 14:35 

CHECK FOR AUTOMATIC STACK EXPANSION AND EXPAND USER STACK. 

R1H0030 R. I. HUSTVEDT 20-JUL-1979 10:40 

ADD GLOBAL FOR RETURN ADDRESS FROM AST CALL 



C07D 



ZZ-ENSAA-7.0 

ASTDFL 
L'7-07 



HISTORY 



; DETAILED 






*** ASTDEL 


AST j* 


>livery 


HISTORY 


• DETAILED 


OOOO 


59 , 




0000 


60 . 


ADAPTED 


0000 


61 , 


1 


0000 


62 , 


01 


0000 


63 . 




0000 


64 , 


02 


0000 


65 , 


i 


0000 


66 ( 




0000 


67 ( 




0000 


68 , 




0000 


69 , 


03 


0000 


70 , 




0000 


7 ^ 


04 


0000 


72 , 




cooo 


73 , 




0000 


74 , 


05 


0000 


75 




0000 


76 




0000 


.1 


06 


0000 


,2 




0000 


.3 




0000 


,4 




0000 


.5 


; 07 


0000 


.6 




0000 


J 


; - 
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TO DIAGNOSTIC SUPERVISOR ENVIRONMENT 

Roger Riggs, 27-Jan-1980, Version 5.2 

Fixed so SCB is requeued to head of queue if rejected 

because ast is already active on this level. 

David Butenhof 06-Feb-80 

Add routine EXE5SETAST to emulate VMS function of 

enabling/disabling AST delivery. 

Dave Butenhof 13-may~1980, Version 5.4 

Modify VMS V2.0 source for supervisor environment 

Dave Butenhof 18-jun-1980, version 5.5 

Remove EXESSETAST routine from here, to enhance VMS 

compatibility AST delivery enable/disable will be 

implemented as VMS does it. 

Dave Butenhof, ?3-feb-1981 , version 6.3 

Fix truncation errors 



2 
(1) 



- Jack Stansbur 



22-0ct-1981, Version 6.- 
Changed PSECT SEP to PSECT Data and PSECT Code. 
Also added .LIBRARY statements for $DS and $DIAG, 



U 



Jack Stansbury, 1-June-1982, Version 6.7 
Fixed three truncation errors. 



7?-ENSAA-7,Q 

ASTDEL 

l»7-07 



-7 



Librarys and Equated Symbols 

*** ASTDEL AST delivery 
Librarys and Equated Symbols 



-3 



-3 



00000000 



0000 


.9 


.Subtitle 


Library 


0000 


84 






0000 


85 ( 






0000 


86 ( 


INCLUDE FILES: 




0000 


87 , 






0000 


88 


.LI8RARY 


/$DS/ 


0000 


89 


.LIBRARY 


/$DJAG/ 


0000 


90 






0000 


94 


CMKDEF 




0000 


95 


SAC8DEF 




0000 


96 


SIPLDEF 




0000 


97 


SPCBDEF 




0000 


98 


SPHDDEF 




0000 


99 


$PRDEF 




cooo 


100 


SPBJDEF 




0000 


101 


SPSLDEF 




0000 


102 


SSSDEF 




0000 


106 






0000 


107 






0000 


108 


; EQUATED SYMBOLS: 




0000 


109 






0000 


.1 






0000 


.2 i 


4STEXIT=0 
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Librarys and Equated Symbols 



3 

(1) 



CHMK HOOKS AND SYMBOLS 

AST CONTROL BLOCK DEFINITIONS 

I PL DEFINITIONS 

PCS DEFINITIONS 

PHD DEFINITIONS 

PROCESSOR REGISTER DEFINITIONS 

PRIORITY INCREMENT CLASS DEFS 

PSL FIELD DEFINITIONS 

STATUS CODE DEFINITIONS 



C06] 
[06] 
C06D 



; AST EXIT CHANGE MODE CODE 



7I-ENSAA-7.G 

ASTDEL 
07-07 



-1 



Data PSect 



-2 



52 



A3 
4F 



A 1 
;2 



Dec las jt ions 

**< ASTDEL 

Data PSect 

0000 

00000000 

0000 

0000 

0000 

0000 

0000 

0000 

0007 

0007 

A S3 00' 0007 

52 45 20 OOOD 

08 0007 



AST delivery 
Declarations 



.4 
.5 

in 

112 
113 
1H 
117 
118 
119 
120 
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.Subtitle Data PSect Declarations ^ ^ 

.PSECT Data, NoExe, Shr, NcWrt, Long ; C06J 



OWN STORAGE: 



MODNAM ASTDEL 

ASTACKERR: 

.ASCJC .STACK ERROR. 



ZZ-ENSAA-7.0 

ASTDEL 
07-07 

-1 



SCHSASTDEL - AST DELIVERY INTERRUPT HAND 



202 



*** ASTDEL AST delivery 
SCHSASTDEl - AST DELIVERY 
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5 
(1) 



uooooooo'ef 

54 



55 10 
48 08 AS 



04 
18 

07 



0013 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

uooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
000? 
0008 
0009 

oooc 

001C 

0012 



BB 

DO 



OF 
1D 
E5 



122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

U2 

143 

144 

145 

146 

147 

148 

140 

150 

151 

152 

153 

1S4 

155 

156 

157 

158 

159 

160 

161 

162 

163 

I64 

165 

16* 

167 

168 

169 

170 
171 
172 
173 



.S8TTL SCHSASTDEL - AST DELIVERY INTERRUPT HANDLER 
.PSECT Coae, Exe, Shr, NoWrt, Long 

+ + 
FUNCTIONAL DESCRIPTION: 

SCHSASTDEL RECEIVES THE AST DELIVERY INTERRUPT (JPL - 2) WHICH 
IS INITIATED BY AN REI INSTRUCTION DETECTING ASTLVL LESS THAN 
OR EQUAL TO PSL<CURRENT MODE>. THE HEAD OF THE AST QUEUE 
FOR THE CURRENT PROCESSES REMOVED AND PROCESSED. SPECIAL 
KERNEL MODE ASTS ARE PROCESSED WITH IPL REMAINING AT JPL 2. 
NORMAL ASTS ARE DELIVERED BY PUSHING THE AST INFORMATION ON 
THE STACK OF THE MODE RECEIVING THE AST AND THE AST ACTIVE 
BIT FOR THAT MODE IS SET TO PREVENT SUBSEQUENT ASTS UNTIL THE 
CURRENT ONE FOR THAT MODE HAS BEEN PROCESSED, 
SPURIOUS AST INTERRUPTS WILL BE DETECTED AND IGNORED. 



CALLING SEQUENCE: 

IPL - 2 INTERRUPT 



INPUT PARAMETERS: 

OO(SP) = PC AT AST DELIVERY INTERRUPT 
04(SP) = PSL AT AST DELIVERY INTERRUPT 

IMPLICIT INPUTS: 

PC8 OF CURRENT PROCESS LOCATED VIA SCHSGL CURPCB 
AST CONTROL BLOCK AT HEAD OF AST QUEUE FOR PROCESS 



OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
*** TBS *** 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 

*** TBS *** 



E063 



.ALIGN 

SCHSASTDEL:: 

PUSHR 

MOVL 



LONG 

tf A M<R0,R1,R2,R3,R4,R5> 

L A SCHSGL. CURPCB, R4 



INTERRUPT ROUTINES ON LW BOUND 
AST DELIVERY INTERRUPT HANDLER 
SAVE R0-R5 
Get pointer to current PCB 



10$: 



SE T IPL 

REMQUE 

BVS 

B8CC 



0IPLS SYNCH ; BLOCK SYSTEM EVENTS 

aPCBSC ASTQFL(R4),R5 ; AND REMOVE HEAD OF QUEUE 
ASTDEXTT • EXIT IF QUEUE EMPTY 

0ACBSV KAST,ACB$B RMOD(R5) ,NORM ; BR IF NORMAL AST 



ZZ-ENSAA-7.0 

ASTDEL 
U7-07 



SCH$ASTDEL - AST DELIVERY INTERRUPT HAND 

*** ASTDEL AST delivery 
SCHSASTDEL - AST DELIVERY 
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-1 



18 B5 

00000000'EF 

54 

0000002D'EF 



3F 



16 
DO 

16 



BA 
02 



0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
001A 
001D 
0023 
C0?4 
002A 
002A 
002A 
002C 



175 
176 

177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 

J 
.2 

189 

190 
191 



THE KERNEL AST ROUTINE JS ENTERED VJA A JSB TO THE SPECIFIED 
ADDRESS WITH JPL=2 AND THE POINTER TO THE AST CONTROL BLOCK 
IN R5. IT IS THE RESPONSIBILITY OF THE KERNEL AST ROUTINE 
TO PAOPERLY RELEASE OR OTHERWISE DISP0S5 OF THE AST CONTROL 
BLOCK. THE PCS BASE ADDRESS IC IN R4. 



REGISTERS R0-R5 HAVE BEEN PRESERVED 
USE BY THE AST ROUTINE, 



AND ARE AVAILABLE FOR 



SETIPL 

JSB 

MOVL 

JS8 

ASTDEXJT: 

POPR 
REJ 



#1PL$ ASTDEL 
SACBSE KAST(R5) 
L*SCH$5L_CURPCB, R4 

SCHSNEWLVL 



/TM<R0,R1,R2,R3,R4,R5> 



DROP IPL TO PERMIT SYSTEM EVENTS 

DO KERNEL MODE AST 

Get pointer to current PCB 

COMPUTE NEW ASTLVL 

AST DELIVERY EXIT 
RESTORE REGISTERS R0-R5 
AND RETURN 



C07D 



ZZ-ENSAA-7.0 

ASTDEL 

1)7-07 



SCHSASTDEL - AST DELIVERY INTERRUPT HAND 

*** ASTDEL AST delivery 
SCHSASTDEL - AST DELIVERY 
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-3 











002D 


193 
















002D 


194 , 




SCHSNEWLVL - COMPUTE NEW ASTLVL 










002D 


195 
















002D 


196 , 


INPUT 


• 












002D 


197 




*R4 - ADDRESS OF CURRENT PCS 










002D 


198 
















002D 


199 


OUTPUT; 












002D 


200 




PR$ ASTLVL - NEW AST LEVEL 










002D 


201 




PHD$V_A 


STLVL - NEW AST LEVEL 










002D 


202 
















002D 


.1 
















002D 


203 . 


5CH$NEWLVL;: 




50 


10 


A4 


DE 


002D 
0031 


204 
205 




MOVAL 
DSBINT 


?CB$L ASTQFL(R4),R0 
AIPL$~SYNCH 




51 


60 


DO 


C037 


206 




MOVL 


(R0),R1 




51 


50 


D1 


003A 


207 




CMPL 


R0,R1 






19 


13 


003D 


208 




BEQL 


20$ 




02 


00 


EF 


003F 


209 




E.XTZV 


0O,*2,ACB$6_RMOD(R1),R2 


52 


OB 


A1 




0042 










04 OB 


A1 


07 


E1 


0045 


210 




88 C 


tf ACB$V_KAST , ACBSB.RMOD ( 






52 


D4 


004A 


211 




CLRL 


R2 






OD 


11 


004C 
004E 


212 

.1 




BR8 


30$ 


OD A4 


OC 


A4 
5C 


88 


004E 

0053 


.2 


10$: 


BJC83 


PCB$B_ASTACT(R4),PC6$B_ 


03 


50 


52 


EO 


0054 
0058 


.3 

.4 




B8S 


R2,R0,30$ 




52 


04 


DO 


0058 
0058 


.5 
.6 


20$: 


MOVL 


M.te 




13 


52 


DA 
05 


oo:e 

005E 
0061 


216 
217 
218 


30$: 


MTPR 

EN8INT 

RSG 


R2,0Pfl$_ASTLVL 



COMPUTE NEW AST LEVEL 
GET ADDRESS OF AST QUEUE 
DISABLE SYSTEM EVENTS 
GET FLINK 

AND CHECK FOR EMPTY QUEUE 
YES, QUEUE IS EMPTY 
GET REQUEST MODE 

,10$ ; NOT A KERNEL AST 
SET TO KERNEL MODE 
FOR ASTLVL 



YES, CAN BE DELIVERED 

NONE DELIVERABLE, NULL ASTLVL 

SET ASTLVL REGISTER 
ENABLE SYSTEM EVENTS AGAIN 
RETURN 



7Z-ENSAA-7.0 

ASTDEL 



SCHSASTDEL - AST DELIVERY INTERRUPT HAND 

*** ASTDEL AST delivery 
SCHSASTDEL - AST DELIVERY 
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8 
(1) 



-5 



-■j 











0062 


220 










0062 


221 










0062 


222 










0062 


223 










0062 


224 










0062 


225 










0062 


226 










0062 


227 










0062 


228 










0062 


229 










0062 


230 










0062 


231 










0062 


232 




02 


00 


EF 


0062 


.1 


53 


08 


A5 




C065 
0068 
0068 

0068 


.2 
.3 
.4 




02 


18 


ED 


0068 


.5 


53 


1C 


AE 




006B 
006E 
006E 
006E 


.6 
.7 
.8 






06 


18 


006E 

0070 


.9 

.10 


10 


A4 


65 


OF 


0070 


.11 






B4 


11 


0074 
0076 


.12 
.13 


F5 OD 


A4 


53 


E1 


0076 


238 


FO OC 


A4 


53 


E2 


0078 


239 


03 OB 


A5 


06 


E5 


0080 


240 




38 


A4 


86 


0085 
0088 
0088 


241 
.1 
.2 




A2 


AF 


16 


0088 

008B 
008E 
008E 
008E 
008E 
008E 


.3 

244 
245 
246 
247 
248 
249 






S3 


PS 


008F 


?50 






40 


12 


0090 


251 



NORM: 



10$ 



20$: 



30$: 



AT THIS 


POINT 


rHE 


OO(SP) 


= SAVED 


RO 


04(SP) 


= SAVED 


R1 


08(SP) 


= SAVED 


R2 


12(SP) 


= SAVED 


R3 


16(SP) 


= SAVED 


R4 


20(SP) 


= SAVED 


R5 


24(SP) 


- SAVED 


PC 


28(SP) 


= SAVED 


PSL 



KERNEL STACK JS 



EXTZV 0ACB$VJWDE. - 



CMPZV 



BGEQ 

INSQUE 
BR8 

BBC 
BBSS 
BBCC 
INCW 



J SB 
SETIPL 



*ACB$S MODE, - 
ACB$B RM0D(R5), - 
R3 " 
#PSL$V_CURMOD, - 

0PSLSS CURMOD, - 

28(SP)7 - 
R3 
20$ 

<R5),PCB$L ASTQFL(R4) 
ASTDEXIT 



NORMAL AST DELIVERY 
GET AST REQUEST MODE 



IS CURRENT MODE LEGAL 



YES, NUT SPURIOUS 

REQUEUE AT HEAD OF QUEUE 
AND EXIT 



C07J 

[07] 
[07] 
[07] 
[07] 

[07] 
L07] 
[07] 



R3,PCB$B ASTENCR4) J0$ ; BR IF AST DISABLED 
R3,PCB$B~ASTACT(R4) JOS ; SET AST ACTIVE 

*ACB$V Q0OTA,ACB$B RMQD(R5),30$ ; SKIP IF NO QUOTA ACCOUNTING 
PCBSW ASTCNT(R4) " ; UPDATE OUTSTANDING COUNT 



SCHSNEWLVL 
#IPL$ ASTDEL 



A NEW VALUE FOR ASTLVL HAS 
THE AST REPRESENTED BY THE 
R5 CAN NOW BE DELIVERED, 



; AND DELIVER AST 

; COMPUTE NEW AST LEVEL 

; NOW DROP IPL TO PERMIT 

NOW BEEN COMPUTED AND SET. 
AST CONTROL BLOCK LOCATED VIA 



SYSTEM EVENTS 



[07] 



TSTL 
BNEQ 



R3 
NOTKMODE 



CHECK FOR DELIVERY TO KERNEL 
NOT KERNEL MODE 



ZZ-ENSAA-7.0 

ASTDEL 
07-07 



SCHSASTDEL - AST DELIVERY INTERRUPT HAND 

*** ASTDEL AST delivery 
SCHSASTDEL - AST DELIVERY 
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03 



7E 08 AE 



7E 08 At 



-1 



18 AE 50 

H AE 14 A5 

10 AE 05 

50 55 

10 A5 

00000000' EF 

3E 



0092 

0092 

0092 

BA 0092 

0094 

0094 

0094 

0094 

0094 

?D 0094 

0098 

0098 

0098 

0098 

7D C098 

009C 

009C 

009C 

009C 

009C 

7D 009C 

00A0 

DO OOAO 

DO 00A5 

DO 00A9 

DD OOAC 

16 OOAF 

BA 0085 

0087 

OOBA 



253 ; 

254 ; 

255 ; 
256 

257 ; 

258 ; 

259 ; 

260 ; 

261 40$: 
262 

263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 

.1 
274 50$: 
275 
276 
277 

.1 
27Q 

280 
281 ; 



DELIVER NORMAL AST TO KERNEL MODE 
POPR # A M<R0,R1> 



RESTORE R0,R1 



QO(SP) = R2, 04(SP) = R3, 08(SP) = R4, 12(SP) = R. 
16CSP) = P r , 20(SP) = PSL 



MOVQ 

OO(SP) 
16(SP) 

MOVQ 

OO(SP) 
16(SP) 
32(SP) 

MOVQ 

MOVL 

MOVL 

MOVL 

PUSHL 

JS8 

POPR 

SETJPL 

BR8 



8(SP),-(SP) 

R4, 04(SP) 
■ R4, 20(SP) 

8(SP),-(SP) 



; SHUFFLE STACK 

R5, 08(SP) = R2, 12(SP) = R3, 
R5, 24(SP) = PC, 28(SP) = PSL 



R2, 04(SP) = R3, 08(SP) 
R2, 20(SP) = R3, 24(SP) 
: PC, 36(SP) = PSL 

R0,24(SP> 

ACBSL ASTPRM( .5),2Q(SP) 

*5,167SP> 

R5,R0 

acb$l ast(r5) 
exesdFanonpaged 

* a M<R1,R2,R3,R4,R5> 

#0 

EXESASTDEL 



OPEN FOR AST ARG LIST 

R4, 12(SP) = RS, 

: R4, 28(SP) = R5, 



SET R0,R1 IN ARG LIST 

SET AST PARAMETER JN ARG LIST 

SET COUNT FOR ARGUMENT LIST 

RELEASE AST CONTROL BLOCK 

SAVE AST ROUTINE ADDRESS 

TO DYNAMIC POOL 

RESTORE R1-R5 

DROP JPL TO ZERO 

FALL THROUGH TO CALL AST ROUTINE 



[07] 



B 




Documentat ion 


l 




Documentation 


\, 




Documentation 


E 




Documentation 


F 




Documentation 


G 




Documentation 


h 




Documentation 


1 




Documentation 


j 




Documentation 


K 

1 




Documentation 
Documentation 


M 




Documentation 


N 




Documentation 


B 




Documentation 


C 


2 


Documentation 


D 


2 


Documentation 


P 


? 


Documentation 


F 


2 


Documentation 


G 


2 


Documentat ion 


H 


? 


Documentation 


I 


2 


Documentat ion 


J 


2 


Documentation 


K 


2 


Documentation 


I 


? 


Documentation 


M 


? 


Documentation 


N 


2 


Documentation 


B 


3 


Documentation 


C 


5 


Documentation 


D 


3 


Documentation 


fc 


3 


Documentation 


F 


3 


Documentat ion 


G 


3 


Documentation 


H 


7 

.7 


Oocumentat ion 


I 


3 


Documentation 


.1 


3 


Documentation 


K 


3 


Documentat ion 


1 


3 


Documentat ion 


M 


3 


Documentation 


r 


3 


Documentation 


u 


4 


Doi umentat ion 


I 


A 


Documentat ion 


D 


4 


Documentation 


fc 


4 


Documentat ion 


F 


4 


Documentat ion 


Li 


4 


Documentation 


h 


A 


Documentation 


I 


A 


Documentation 


J 


A 


Documentat ion 


K 


4 


Documentat ion 


I 


4 


Documentat ion 


M 


4 


Documentation 


N 


A 


Documentation 


y 


S 


Map 


c 


5 


Map 


D 


5 


Map 


I 


s 


Map 


I 


5 


Map 


fi 


«j 


Map 


I 


^> 


Map 
Map 



J 


5 


Map 


K 


5 


Map 


L 


5 


Map 


M 


5 


Map 


N 


5 


Map 


B 


6 


Map 


C 


6 


Map 


D 


6 


Map 


E 


6 


Map 


F 


6 


Map 


G 


6 


Map 


H 


6 


Map 


I 


6 


Map 


J 


6 


Map 


K 


6 


Map 


L 


6 


Map 


M 


6 


Map 


N 


6 


Map 


8 


7 


Map 


C 


7 


Map 


D 


7 


Map 


t 


7 


Map 


F 


7 


Map 


G 


7 


Map 


H 


7 


Map 


I 


7 


Map 


J 


7 


Map 


K 


7 


Map 


L 


7 


Map 


M 


7 


Map 


N 


7 


Map 


B 


8 


Map 


C 


8 


Map 


D 


8 


Map 


B 


8 


M.ip 


F 


8 


Map 


G 


8 


Map 


H 


8 


Map 


] 


8 


Map 


J 


8 


Map 


K 


8 


Map 


L 


8 


Map 


M 


8 


VAX DIAGNOSTIC 


N 


8 


*** ACPFDT ACP function dispat 


B 


9 


*** ACPFDT ACP function dispat 


I 


9 


*** ACPFDT ACP function dispat 


D 


9 


ACCESS AND CREATE ACP FUNCTION 


E 


9 


DEACCESS ACP FUNCTION PROCESSI 


F 


9 


DELETE AND MODIFY ACP FUNCTION 


G 


9 


MOUNT ACP FUNCTION PROCESSING 


H 


9 


READ AND WRITE BLOCK ACP FUNCT 


I 


9 


READ AND WRITE BLOCK ACP FUNCT 


i 


9 


READ AND WRITE BLOCK ACP FUNCT 


K 


9 


Symbol table 


L 


9 


Symbol table 


M 


9 


Psect synopsis 


N 


9 


Cross reference 


B 


10 


Cross reference 


r 


10 


Cross reference 


D 


10 


*** ANSI magtape RMS support 



E 10 


*** ANSI magtape RMS 


support 


F 10 


*** ANSI magtape RMS 


support 


G 10 


ansiSopen 




H 10 


ansiSopen 




I 10 


ansiSopen 




J 10 


ansiSopen 




K 10 


ansiSopen 




L 10 


ansiSopen 




M 10 


ansiSopen 




N 10 


ansiSopen 




B 11 


ansiSopen 




C 11 


ansiSopen 




D 11 


ansiSopen 




E 11 


ansiSopen 




F 11 


ansiSopen 




G 11 


ansiSopen 




H 11 


ansiSopen 




I 11 


ansiSc lose 




J 11 


ansiSclose 




K 11 


ansiScachevbn 




L 11 


ansiScachevbn 




M 11 


ansiScachevbn 




N 11 


ansiScachevbn 




B 12 


ansiSread 




C 12 


ansiSread 




D 12 


ansiSread 




E 12 


ansiSget 




F 12 


ansiSget 




G 12 


ansiSget 




H 12 


ansiSget 




I 12 


ansiSget 




J 12 


ansiSget 




K 12 


ansiSget 




L 12 


ansiSget 

*** APT interface u 




M 12 


APT contr 


N 12 


*** APT interface to 


t P T contr 


8 13 


*** APT interface to 


aP t contr 


C 13 


DECLARATIONS 




D 13 


APT SUPPORT ROUTINti 




E 13 


APT SUPPORT ROUTINES 




F 13 


APT SUPPORT ROUTINES 




G 13 


APT SUPPORT ROUTINES 




H 13 


APT SUPPORT ROUTINES 




I 13 


API SUPPORT ROUTINES 




J 13 


Symbol table 




K 13 


Symbol table 




L 13 


Psect synopsis 




M 13 


Cross reference 




N 13 


Cross reference 




B H 


Cross reference 




C H 


Cross reference 




D H 


Cross reference 




E H 


Cross reference 




F H 


*** ASSIGN assign device 


G H 


*** ASSIGN assign device 


H H 


*** hSSIGN assign device 


I H 


ASSIGN I/O CHANNEL 




J K 


ASSIGN 1/0 CHANNEL 




K H 


ASSIGN 1/0 CHANNEL 




L H 


ASSIGN 1/0 CHANNEL 





M H TFST IF MAILBOX SPECIFIED 

N U Symbol table 

b 15 Symbol table. 

f. 15 Psect synopsis 

D 15 Cross reference 

E 15 Cross reference 

f 15 Cross reference 

G 15 *** ASTCON AST control service 

H 15 *** ASTCON AST control service 

1 15 DECLARATIONS 

J 15 FXESSETAST - SET AST ENABLES 

K 15 Symbol table 

L 15 Psect synop- is 

M 15 Cross reference 

N 15 Cross reference 

B 16 Cross reference 

C 16 *** ASTDEL AST delivery 

16 *** ASTDEL AST delivery 
E 16 HISTORY ; DETAILED 

F 1o Librarys and Equated Symbols 

G 16 Data PSec t Declarations 

M 16 SCHSASTLU.L - AST DELIVERY INTf 

1 16 SCH$ASTDEL - AST DELIVERY INTE 
J 16 SCHSASTDEL - AST DELIVERY INTE 
K 16 SCHSASTDEL - AST DELIVERY JNTE 
L 16 SCHSASTDEL - AST DELIVERY INTE 



ZZ-ENSAA-7.0 

ASTDEL 
07-07 



SCHSASTDEL - AST DELIVERY INTERRUPT HAND 

*** ASTDEL AST delivery 
SCHSASTDEL - AST DELIVERY 
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61 
5E 



6E 
08 

03 



OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
COBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
FA 008A 
CO OOBD 
OOCO 
BA OOCF 
02 00D1 



283 
284 

285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 



CALL AST ROUTINE WITH AST ARGUMENT LIST 

THE CALL IS EXECUTED AT THE MODE WHICH RECEIVED THE AST WITH 
THE AST ARGUMENT LIST ON THE TOP Of THE STACK. WHEN THE 
AST ROUTINE RETURNS FROM THE CALL, AN ASTEXIT CHANGE MODE 
TO KERNEL INSTRUCTION WILL BE ISSUED. ASTEXIT WILL RESET 
THE AST ACTIVE BIT FOR THE CURRENT MODE AND MAY CAUSE DELIVERY 
OF ADDITIONAL ASTS. 

AST ARGUMENT LIST: 



OO(SP) 
04 (SP) 
08CSP) 
12(SP) 
16(SP) 
20(SP) 

EXESASTDEL: 

CALLG 

ADDL 

CMK 

POPR 

REI 



NUMBER OF ARGUMENTS, =5 

AST PARAMETER 

SAVED RO 

SAVED R1 

SAVED PC 

SAVED PSL 



(SP>,<R1) 
#8,SP 
ASTEXIT 
/TM<R0,R1> 



DELIVER AST CALL 

CALL AST ROUTINE 

REMOVE ARG COUNT AND ASTPRM 

AND EXIT FROM AST ROUTINE 

RESTORE R0,R1 

EXECUTE REI IN MODE OF AST 



ZZ-ENSAA-7,0 

ASTDEL 

^7-07 



SCH$ASTDEL - AST DELIVERY INTERRUPT HAND 

*** ASTDEL AST delivery 
SCHSASTDEL - AST DELIVERY 



C 1 
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INTERRUPT HAND 1-0EC-1981 11:31:48 DMA1 :[SYS0.SYSMAINT:ASTDEL.MAR;24 (1) 



14 



-3 







00D2 


310 












00D2 


311 




DELIVER 


NORMAL AST FOR EXEC, SUPE 






00D2 


312 












00D2 


313 












00D2 


3K 


NOTKMODE: 








00D2 


315 


i 






51 53 


DB 


00D2 


316 




MFPR 


R3.R1 






00D5 


317 




IFNOWRT 


*24,-24(R1),STACKERR,R3 ; 


71 18 AE 


7D 


OODC 


318 




MOVQ 


24(SP),-(R1> 


71 8E 


7D 


OOEO 
00E3 


319 
.1 




MOVQ 


<SP)+,-(R1> 


71 14 A5 


DO 


00E3 


320 


10$: 


MOVL 


ACBSL ASTPRM(R5),-(R1) ; 


71 05 


DO 


00E7 


321 




MOVL 


#5,-(RD 


53 51 


DA 


OOEA 


322 




MTPR 


R1,R3 


10 A5 


DD 


COED 


323 




PUSHL 


ACBSL AST(R5) 


AE C7 AF 


DE 


OOFO 


324 




MOVAL 


EXE$A3TDEL,20(SP) 


50 55 


DO 


OOF 5 


325 




MOVL 


R5,R0 


53 05 


C4 


00 c 8 
00F8 


.1 

.2 




MULL 


#1+<19<PSLSV CURMOD-PSLSV 
R3 


53 16 


78 


OOFB 


.3 




ASHL 


#PSL$V.PRVMOD, R3, 24 (S?) ; 


18 AE 




OOFE 










OOOOOOOO'EF 


16 


0100 


,4 




J SB 


EXESDEANONPAGED 


3E 


BA 


0106 


329 




POPR 


rM<R1,R2,R3,R4,R5> 




02 


0108 
0109 
0109 
0109 


330 
331 
332 
333 


• 


RE I 








0109 


334 


t 


REFLECT 


STACK ERROR 






0109 


335 


t 










0109 


336 


STACKERR; 








0109 


337 




ERPSUP 


S ,ASTACKERR 




CO 


01 IE 


338 




HALT " 




E8 


11 


011F 


339 




BRB 


STACKERR 



NOT AN AST FOR KERNEL MODE 

GET STACK POINTER 
ENOUGH STACK SPACE?? 
MOVE PCPSL TO PROPER STACK 
AND R0,R1 FROM KERNEL STACK 

SET AST PARAMETER IN ARG LIST 

AND FINALLY, ARGUMENT COUNT OF 5 

SAVE UPDATED STACK POINTER 

STACK AST ENTRY POINT 

SET PC TO AST DELIVERY CALL 

SET ADDRESS OF ACB FOR RELEASE 

PRVMOD», -; CURRENT MODE = PREVIOUS MODE 

C07] 
SYNTHESIZE PSL FOR PROPER MODE 



RELEASE AST CONTROL BLOCK 
RESTORE R1-R5 
AND ENTER AST MODE 
DROPS IPL TO ZERO 



; ERROR IN STACK MOVE 



C073 



ZZ-ENSAA-7.0 

ASTDEL 
U7-07 



SCHSQAST - ENQUEUE AST CONTROL BLOCK FOR 

*** ASTDEL AST delivery 
SCHSQAST - ENQUEUE AST CONTROL 



D 1 
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209 



50 OC A5 3C 



-3 



00000000'FF40 
54 

60 A4 OC A5 
12 



50 55 
00000000' EF 



50 08E8 8F 



DO 

D1 
13 



DO 
16 



3C 
05 



02 00 V 



0121 
0121 
0121 
01 2 1 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

C121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0121 

0125 

0128 

0132 

0133 

1 38 

01 3A 

01 3A 

013A 

013D 

0143 

0143 

0146 

0148 

014C 

014C 

014C 



+ + 



341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 
385 

.1 

,2 10$: 

.3 

,4 
389 
390 
391 
392 
393 
394 20$: 

.1 



.S8TTL SCHSQAST - ENQUEUE AST CONTROL BLOCK FOR PROCESS 



FUNCTIONAL DESCRIPTION: 

SCHSQAST INSERTS THE AST CONTROL BLOCK SUPPLIED IN THE PROPER 
POSITION BY ACCESS MODE IN THE AST QUEUE OF THE PROCESS SPECIFIED 

BYT THE PID FIELD OF THE AST CONTROL BLOCK. AN AST ARRIVAL EVENT 

IS THEN REPORTED FOR THE PROCESS TO REACTIVATE FROM A WAIT STATE 

IF APPROPRIATE. THE AST CONTROL BLOCK WILL BE RELEASED IMMEDIATELY 

IF THE PID SPECIFIES A NON-EXISTENT PROCESS. 

CALLING SEQUENCE: 

BSB/JSB SCHSQAST 

INPUT PARAMETERS: 

R2 - PRIORITY INCREMENT CLASS 

R5 - POINTER TO AST CONTROL BLOCK 

IMPLICIT INPUTS: 

PC8 OF PROCESS IDENTIFIED BY PID FIELD 

OUTPUT PARAMETERS: 

RO - COMPLETION STATUS CODE 

R4 - PCB ADDRESS OF PROCESS FOR WHICH AST WAS QUEUED 

IMPLICIT OUTPUTS: 
*** T8S *** 

SIDE EFFECTS: 

THE PROCESS IDENTIFIED BY THE PID IN THE AST CONTROL BLOCK 
WILL BE MADE EXECUTABLE IF NOT SUSPENDED. 

COMPLETION CODES: 

SSS.NORMAL - NORMAL SUCCESSFUL COMPLETION STATUS 
SSS.NONEXPR - NON-EXISTENT PROCESS 



SCHSQAST:: 

M0V2WL 
DS8JNT 
MOVL 

CMPL 

BEQJ. 



ACBSL PID(R5),R0 

#IPLS~SYNCH 

aL A SCR$GL_PCBVECCR0J,R4 



ENQUEUE AST FOR PROCESS 

GET PROCESS INDEX FOR AST TARGET 

DISABLE SYSTEM EVENTS 

Look up PCB address 



ACB$L..PID(R5),PC8SL_PID(R4) ; CHECK FOR MATCH IN PID 
20S ; OK, PID MATCHES 



MOVL 
JS8 



R5,R0 
EXESDEANONPAGED 



EN8INT 

MOVZWL 0SSS_NONEXPR,RO 

RSB 



EXTZV 0ACBSV.MODE, - 



PROCESS NOT FOUND 
RELEASE AST CONTROL BLOCK 
IF NO SUCH PROCESS 

ENABLE INTERRUPTS 
SET ERROR STATUS CODE 
AND RETURN 

PROCESS EXISTS 

EXTRACT REQUEST ACCESS MODE 



C07] 



C07] 



ZZ-ENSAA-7.0 


SCHSQAST - 1 


ENQUEUE AST CONTROL BLOCK FOR 


E 1 

27-JUL-1984 Fie 


he 2 Frame E1 Seguence 
:01:07 VAX-11 Macro V03-0T 


210 




ASTDEL 








*** 


ASTDEL 


AST delivery 




27-JUL-1984 15 


Page 


13 


l>7-07 








SCHSQAST - 


ENQUEUE AST 


CONTROL 


BLOCK FOR 1-DEM981 11 


:31:A8 DMA1 :[SYS0.SYSMAINTDASTDEL.MAR;24 (1) 




50 


OB A5 




01AF 


























0152 


.2 






*ACB$S MODE, - 


t 




1073 












0152 


.3 






ACB$B RM0D(R5), - 


i 




C07J 












0152 


.A 






RO " 


• 




C07J 




51 


10 


AA 


DE 


0152 


.5 




MOVAL 


PCB$L ASTQFL(R4),R1 


; POINT TO QUEUE HEADER 










53 


61 


00 


0156 
0159 


.6 
.7 




HOVL 


(R1),R3 


; AND COPY HEADER ADDRESS 






-3 




53 


51 


D1 


0159 


398 


30$: 


CMPL 


R1.R3 


; CHECK FOR END OF QUEUE 












17 


13 


015C 


399 




BEQL 


40$ 


; INSERT IF AT END 








OD 06 


A5 


07 


EO 


015E 


AOO 




BBS 


#AC8$V KAST,ACB$B RM0D( 


R5),37$ ; BR IF SPECIAL KERNEL AST 








02 


00 


ED 


0163 


A01 




CMPZV 


*0,#2,ACB$B_RMQD(R3),R0 


; COMPARE ACCESS MODES 








50 


OB 


A3 




0166 






















05 


14 


0169 
01 6B 


A02 
.1 




B6TR 


37$ 


; IF 6TR AT RIGHT PLACE 










53 


63 


DO 


C16B 


.2 


35$: 


MOVL 


(R3),R3 


; FLINK ON TO NEXT ACB 












59 


11 


01 6E 
0170 


.3 

.A 




BR8 


30$ 


; AND TRY AGAIN 








F6 OB 


A3 


07 


EO 


0170 


.5 


37$: 


BBS 


#ACB$VJCAST,ACBttJW0D<R3),35$ ; BR TO QUEUE KAST FIFO 
















0175 


.6 














-3 










0175 


A06 


40$: 






; INSERT IN AST QUEUE 








04 


B3 


65 


OE 


0175 


A07 




INSQUE 


(R5),9ACB$L ASTQBL(R3) 


; INSERT AFTER PREVIOUS 








51 


10 


AA 


DO 


0179 


A08 




MOVL 


PCB$L,ASTQF[(R4),R1 


; ADDRESS OF AST QUEUE HEAD 












50 


DA 


01 70 


A09 




CLRL 


RO 


; ASSUME KERNEL AST 










08 


A1 


95 


017F 


A10 




TSTB 


ACB$B RM0D(R1) 


; KERNAL AST REQUESTED? 












10 


19 


0182 


A11 




BLSS 


50$ " 


; AN INTERNAL AST 










02 


00 


EF 


01 8A 


.1 




EXTZV 


#ACB$VJ10DE, - 


; GET MOST PRIVILEGED AST LEVEL 




C07] 




50 


OB 


A1 




0187 
018A 
01 8A 
018A 


.2 
.3 
.A 






#ACB$S MODE. - 
AC8$8 RM0DCR1), - 
RO " 






C073 
[07] 
C07] 




OD A4 


OC 


AA 
51 


8B 


01 8A 
018F 
0190 
0190 


.5 

.6 
.7 




BIC83 


PC8$BJ\STACT(R4), - 

PCB$B ASTEN(R4), - 
R1 " 


; COMPUTE INACTIVE ENABLED 




[07] 

[07] 
[07] 




03 


51 


50 


E1 


019C 
019A 


,8 
.9 




BBC 


RO.R1.80S 


; SKIP IF ACTIVE OR DISABLED 










13 


50 


DA 


01 9A 
0197 


JO 
.11 


50$: 


MTPR 


R0,#PR$_ASTLVl 


; ALSO SET ASTLVL REGISTER 






-5 










0197 


417 


80$: 


EN8INT 




; ENABLE INTERRUPTS 










50 


01 


3C 

05 


01 9A 
019D 
019E 
019E 


A18 
419 
420 
421 




MOVZWL 

rsb 

,END 


#SS$_N0RMAL,RO 


; SET SUCCESS STATUS CODE 
; AND RETURN 







ZZ-ENSAA-7.0 
ASTDEL 
Symbol table 

$ER 

$M0DULE 
ACB!9 RMOD 
AC ^ 'TYPE 

ACB$ClLENGTH 

ACB$K LENGTH 

ACB$L"AST 

ACBSL>STPRM 

ACBSL^ASTQBL 

ACB$LJ\STQFl 

ACBSL KAST 

ACB$L„PID 

ACBSS MODE 

ACBSVJCAST 

ACBSV MODE 

ACB$V_QUOTA 

ACB$W SIZE 

ASTACRERR 

ASTDEXIT 

ASTEXIT 

CMKSASTEXIT 

CMK$. 

CMK$^ASTEXIT 

CMK*. CANTIM 

CMKS"HIBER 

CMK$IINITSCB 

CMK$J_AST 

CMKSJ1MENABLE 

CMKS RCONSOLE 

CMKS^REFRESH 

CMK$ SCHDWK 

CMKS'SETIMR 

CMK$ISETIPL 

CMKS SETPRT 

CMKSlSGIPR 

CMKS TCQNSOLE 

OS.EfiRSUP 

EXESASTDEL 

EXESDEANONPAGED 

IPLS.ASTDEL 

IPL$ SYNCH 

NORM' 

NOTKMOOE 

PCBSB ASTACT 

PCBSB ASTEN 

PCBSBlPRi 

PCBSB.PRIB 

PCB$8 TYPE 

PCBSB'WEFC 

PCBSC^LENGTH 

PCBSK LENGTH 

PCBSL'ARS 

PCBSL.ASTQBL 

PCBSL.ASTQFl 

PCB$L,EFC2P 
PC8SLJFC3P 
PCBSL.EFCS 



Symbol table 



*** ASTDEL AST delivery 



00000002 
00000000 
OOOOOOOB 
OOOOOOOA 
00000018 
00000018 
00000010 
00000014 
OOOOOOOA 
00000000 
00000018 

oooooooc 

00000002 
00000007 

oooocooo 

00000006 
00000008 
00000007 
0000002A 
00000000 

******** 

00000004 

oooooooo 

OOOOOOOB 

00000007 

00000008 

OOOOOOOE 

00000003 

00000001 

00000005 

00000006 

OOOOOOOC 

00000009 

OOOOOOOD 

OOOOOOOA 

00000002 
******** 



******** 

00000002 
00000007 
00000062 
0OO00OD2 
OOOOOOOC 
OOOOOOOD 
00000008 
0000002F 
OOOOOOOA 
OOO0002E 
0000008C 
0000008C 
00000084 
00000014 
00000010 
00000058 
0000005C 
00000050 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
( 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



OOOOOOBA R D 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



02 



02 
03 

03 



03 
03 
03 



03 
03 
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14 
(1) 



PC8SL EFCU 

PCBSL EFWM 

PCBSLlJIB 

PC8$L OWNER 

PC8$L_PHD 

PC8$L PHYPCB 

PCBSL~PID 

PC3SLIPQB 

PCB$L_SQBL 

PCBSLlSQFL 

PC8SL STS 

PCB$L UK 

PCB$L WSSWP 

PCBSLlWTlME 

PCB$Q PRIV 

PCBSTlLNAME 

PC8$T TERMINAL 

HCB$W~APTCNT 

PCB$W ASTCNT 

PCBSWlBIOCNT 

PCBSW_B10LM 

PCBSW^DJOCNT 

PCBSW.DIOLM 

PCBSW GPGCNT 

PCBSW~GRP 

PC8SW MEM 

PCBSW~MTXCNT 

PCBSWlPPGCNT 

PCBSW PRCCNT 

PCBJWiSIZE 

PCBSW STATE 

PCBSW~TMBU 

PR$„A5TLVL 

PR$ IPL 

PSLlS CURMOD 

PSL$V CURMOD 

PSLSV^IS 

psl$v prvmod 

sch$a5tdel 

schsgl.curpc8 

schsgl pcbvec 

schsneQlvl 

schsuast 

SJZ... 

SS* NONEXPR 

SSS^NORMAL 

STACKERR 



00000054 
0000004 C 
00000078 
0000001 C 
00000064 
00000018 
00000060 
0000004 C 
00000004 
OOOOOOOO 
00000024 
00000088 
00000020 
00000028 
0000007C 
00000068 
00000044 
00000030 
00000038 
0000003A 
0000003C 
0000003E 
00000040 
00000034 
0000008A 
00000088 
OOOOOOOE 
00000036 
00000042 
00000008 
0000002C 
00000032 
00000013 
00000012 
00000002 
00000018 
0000001 A 
00000016 
OOOOOOOO 

******** 

******** 

0000002D 
00000121 
00000001 
000008E8 
00000001 
00000109 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
RG D 03 



03 
03 



RG D 03 
RG D 03 

D 

D 

D 
R D 03 



.... J 



ZZ-ENSAA-7.0 

ASTDEL 

Psect synopsis 



Psect synopsis 
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PSECT name 

ABS . 
SABSS 
DATA 

CODE 



Allocation 

00000000 ( 

0000008C ( 

00000013 ( 

0000019E ( 



+ — ................ — -—♦ 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) N0P1C USR 

HO.) 01 ( 1.) NOPJC USR 

19.) 02 ( 2.) NOPJC USR 

41A.) 03 ( 3.) NOPIC USR 



CON 
CON 
CON 
CON 



ABS 
A8S 
REL 
REL 



LCL NOSHR 

LCL NOSHR 

LCL SHR 

LCL SHR 



NOEXE 
EXE 

NOEXE 
EXE 



NORD 
RD 
RD 
RD 



NOWRT 

WRT 

NOWRT 

NOWRT 



NOVEC BYTE 

NOVEC BYTE 

NOVEC LONG 

NOVEC LONG 











H 


t 






— ■ - — -i 
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reference 
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2 Frame 


H1 
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ASTDEL 


**+ ASTDEL AST deli 


very 




27-JUL-1984 15:01 


:07 VAX- 


11 Macro V03-OT Page 16 


i ross reference 










1-DEM981 11:31 

-+ 

-T 


;48 DMA1 


iCSYSO 


,SYSMAJNTJASTDEL.MAR;24 (1) 


! Symbol Cress Reference 


SYMBOL 
$ER 


VALUE 
=00000002 


DEFINITION 


REFERENCES.., 








337 


(1) 


#-337 <■ 


!) 


SMOOULE 


00000000-R 


117 


(1) 


337 C 










ACB$B_RMOD 


OOOOOOOB 






173 ( 


1) 209 (1) 


210 


(1) 


232.3 (1) 










240 r 
402.5 ( 


I) 394.3 (1) 
I) #-410 (1) 


400 
411.3 


(1) 
(1) 


401 (1) 


ACBSL.AST 


00000010 






#-277 ( 


I) #-323 (1) 








ACBSL ASTPRM 


00000014 






#-274 ( 


1) #-320 (D 








ACB$LlA5TC3L 


00000C04 






407 ( 










ACBSL KAST 


00000018 






186 ( 










ACB$LJ>1D 


oooooooc 






#-381 ( 


1) #-384 (1) 








ACB$S_MODE 


=00000002 






#-232.2 ( 


1) #-394.2 (1) 


#-411.2 


(1) 




ACBSV KAST 


=00000007 






#-173 ( 


1) #-210 (1) 


#-400 


(1) 


#-402.5 (1) 


ACB$V MODE 


=00000000 






#-232.1 ( 


1) #-394.1 (1) 


#-411,1 


(1) 




ACBSV QUOTA 


=00000006 






#-240 ( 










astacKerr 


00000007-R 


119 


(1) 


337 { 










ASTOEXIT 


0000002A-R 


189 


(1) 


#-172 ( 


1) #-232.12 (1) 








astexit 


=00000000 


109,2 


(1) 












BIT... 


=00000018 


94 


(1) 


94 ( 










CMKJASTEX1T 


OOOQOQOO-XR 






#-306 ( 










CMK$. 


=00000004 


94 


(1) 












CMK$ ASTEXIT 


=00000000 


94 


(1) 


#-306 (1) 








CMK$"CANUM 


=00000008 


94 


(1) 












CMK$"HIBER 


=00000007 


94 


(1) 












CMK$JNITSC8 


=00000008 


94 


(1) 












CMK$ LAST 


=0000000E 


94 


(1) 












CMK$~MMENABLE 


=00000003 


94 


(1) 












CMK$ RCONSOLE 


=00000001 


94 


<1) 












CMK$"REFRESH 


=00000005 


94 


(1) 












CMK$~SCHDWK 


=00000006 


94 


(1) 












CMK$ SETIMR 


=00000000 


94 


(1) 












CMICSISETIPL 


=00000009 


94 


(1) 












CMK$ SETPR1 


=00000000 


94 


(1) 












CMKSlSGIPR 


=0000000A 


94 


(1) 












CMK$ TCONSOLE 


=00000002 


94 


(1) 












DS ERRSUP 


OOOOOOOO-XR 






337 ( 










EXESASTDEL 


OOOOOOBA-R 


303 


(1) 


324 ( 










EXESDEANONPAGED 


OOOOOOOO-XR 






277.1 ( 


1) 325.4 (1) 


385.4 


(1) 




IPLS ASTDEL 


=00000002 






#-185 ( 


1) #-244 (1) 








IPL$ISYNCH 


=00000007 






#-170 ( 


1) #-205 (1) 


#-382 


(1) 




NORM 


00000062-R 
000000D2-R 


232 


(1) 


#-173 ( 










NOTKMODE 


314 


(1) 


#-251 ( 










PCBSB.ASTACT 


OOOOOOOC 






#-212.2 ( 


1) 239 (1) 


#-411,5 


(1) 




PCBSB.ASTEN 


OOOOOOOD 
00000010 






#-212.2 ( 


1) 238 (1) 


#-411.6 


(1) 




PCBSL^ASTQFL 






171 ( 


1) 204 (1) 


232.11 


(1) 


394.5 (1) 










#-408 ( 










PCBU.PID 


00000060 






#-384 ( 










PCB$W ASKNT 


00000038 






#-241 ( 










PR$ A?TLVL 


=00000013 






#-216 ( 


1) #-411.10 (1) 








PRSIIPL 


=00000012 






#-170 ( 


1) #-185 (1) 


#-205 


(1) 


#-217 d; 










#-244 ( 


1) #-280 (1) 


#-382 


(1) 


#-390 (1) 
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PSLSS CURMOD 
PSL$V~CURMOD 
PSl$V~IS 

pslsv prvmod 

schsastdel 

schsgl.curpcb 

3chsgl pcbvec 

sch$neolvl 

schsqast 

ss$ nonexpr 

ss$"normal 

staCkerr 



Cross reference 
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=00000002 

=00000018 

=0000001 A 

=00000016 

00000000-R 

00000000-XR 

00000000-XR 

0000002D-R 

000001 21-R 

:000008E8 

=00000001 

000001 09-R 



94 
167 



203 
380 



336 



(1) 
(1) 



(1) 
(1) 



(1) 



0-417 
#-232.6 

#-232.5 

#-306 

#-325.1 

#-169 
#-383 
187.1 

#-391 
#-418 
#-317 



(1) 
(1) 
(1) 

(1) 
(1) 

(1) 
(1) 
(1) 

(1) 

(1) 
(1) 



#-325.1 (1) 
#-325.3 (1) 



#-187 



(1) 



241.3 (1) 



#-339 



(1) 
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MACRO 



SACBDEF 

SDEF 

SDEFINI 

r^EQU 

tEQULSI 
SEQULST 

^BLINI 

SIKDEF 

$PCBDEF 

$PHDDEF 

SPRDEF 

SPR10EF 

'&PSLDEF 

SPUSHAOR 

SSSDEF 

SVIELD1 

CMK 

CMKDEF 

DSBINT 

ENBINT 

ERRSUP S 

IFNOWRT 

MODNAM 

SETIPL 



SIZE 

2 
1 
1 

1 
1 
1 
2 
1 
4 
6 
4 
1 

2 
1 

21 

1 
1 
1 
1 
1 
1 
1 
1 
1 



Phase 

Initial izat ion 

Command processing 

Pass 1 

Symbol table sor; 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 
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! Macros 


Cross 


Reference ! 


DEFINITION REFERENCES, 


• • 


95 (1 


) 95 


(1) 




94 ( 








95 (1 


) 100 


(1) 


101 




97 


(1) 


98 


94 (1 


) 94 


(1) 




94 ( 


) 94 


(1) 




94 (* 


) 94 


(1) 




94 ( 


) 94 


(1) 




96 (1 


) 96 


(1) 




97 (' 


) 97 


(1) 




98 C 


) 98 


(1) 




99 C 


) 99 


(1) 




100 r 


) 100 


(1) 




101 c 


) 101 


(1) 




337 ( 


) 337 


(1) 




102 V 


) 102 


(1) 




94 C 








306 ( 


) 306 


(1) 




94 C 


) 94 


(1) 




205 ( 


!) 205 


(1) 


382 


217 ( 


1) 217 


(1) 


390 


337 ( 


I) 337 


(1) 




317 < 


I) 317 


(1) 




117 ( 


i) 117 


(1) 




170 ( 


1) 170 


(1) 


185 



(1) 
(1) 



102 (1) 
99 <1> 



95 



(1) 



96 



(1) 



417 (1) 
244 (1) 



280 



(1) 



+ — .... .._................+ 

! Performance indicators ! 

+. ....... ...... .......... + 



Page faults 


CPU Time 


Elapsed Time 


32 


00:00:00.09 


00:00:00.24 


141 


00:00:00.68 


00:00:02.79 


624 


00:00:11.48 


00:00:21.82 


3 


00:00:01.29 


00:00:02.04 


131 
11 


00:00:02.76 
00:00:65.11 


00:00:04.87 
00:00:00.45 


9 


00:00:00.03 


00:00:00.03 


30 


00:00:00.33 


00:00:00.39 


987 


00:00:16.78 


00:00:32.64 



The working set limit was 1000 pages. 

55740 bytes (109 pages) of virtual memory were used to 

There were 40 - 1 — '--' -- L '- - 

450 source 
62 pages o 



5 uuy pay?*' oi vi'iuai memgry were u>eu lo uun 

• 40 pages of symbol table space allocated to hold 

• lines were read in Pass 1, producing Q object re 
if virtual memory were used to define 25 macros. 



buffer the intermediate code. 

. _ 776 non-local and 20 local symbols, 
records in Pass 2, 
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VAX-11 Macro Run Statistics 1-DEC-1981 11:31:48 DMA1 :[SYS0.SYSMAINT]ASTDEL.MAR;24 (1) 

^ — — . + 

! Macro library statistics ! 

Macro library name Macros defined 

DRBl :COS.WORK]D1AG.MLB;955 3 

DRB1:CDS.WORK3DS.MLB:218 A 

DMA1:£SYS0.SYSMAINT]DS.ML8;218 

DMA1 :CSYS0.SYSMAINT]DIAG.MLB;953 

SYS$SYSR00T:CSYSLIB]UB.MLB;1 6 

SYSSSYSR00T:[SYSLIB]STARLET.MLB;2 9 

TOTALS (all libraries) 22 

990 GETS were required to define 22 macros. 

There were no errors, warnings or information messages. 

MACRO/NO0BJECT/LIST=[DS,LJS]/CR0SS/ENABLE= (DEBUG, TRACE) ASTDEL/UPDA=(ASTDEL.UPD,ASTDEl.ENH)+SYS$LIBRARY:LIB/LIBRARY+DMA1 iCSYSO.SYSMA 



ZZ-ENSAA- 


-7.0 * 


ATTACH 




! able of 


contents 


<1) 


136 


(1) 


185 


(1) 


253 


(1) 


264 


U> 


365 


(1) 


569 


(1) 


578 


(1) 


665 


(3) 


729 


(3) 


803 


(3) 


991 


(3) 


1291 


(4) 


1481 


(4) 


1531 


(4) 


1577 


<4) 


1651 


(4) 


1703 


(4) 


1757 


(4) 


1786 


(A) 


1959 


(5) 


2077 


(6) 


2152 


(6) 


2190 


(6) 


2261 


(6) 


23? 1 


(6) 


2389 


(6) 


2461 
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Libraries, Equated Symbols, Externals 

Data Psect Declarations 

Work Psect Declarations 

DSVSATTACH Attach command processor 

DSXSATTACH Process ATTACH command 

Process invalid generic name error 

Process invalid generic name error 

Get name processing 

Get device atvri;«;t.*.c 

parse device name 

PT INTERPRET Decode P T -descriptor 

DPlEXTRACT Make P-table printable 

GET LINE Condition getline 

FORMAT PROMPT Format and load prompt 

DSVSSHOWDEVJCE Display device information 

DSVSSHOWSELECf Display information selects 

DSVSDEATTACH Deattach device 

Deattach subtree 

DSVSSELECT Select device for testing 

DSVSDESELECT Deselect device for testing 

SHOW DEV Routine 

1NI$PTABLE Initialize P-table 

Check ambiguous device 

Locate /adapter value 

L0CSPTAQLE Routine 

L0CSPTDESC locate PT-descriptor 

1NSSPTABLE Insert P-table 
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*** ATTACH Handle ATTACH command 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
2C 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
5? 
r o 
54 
55 
56 
57 



.Title ATTACH *** ATTACH Handle ATTACH command 

. I dent /G7-27/ 

.Dsabl GBL 

.NoShow Conditionals 

Copyright (c) 1978, 1982, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS -SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLV ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



DEC ASSUMES 
SOFTWARE ON 

Facility: 

Abstract: 

Environment: 

Author: Roger Riggs, Creation date: 10-0CT-1978 

Modified by: 

[023 Roger 



ITS 



[03] 



[04] 



[05] 



[06] 



[07] 



[08] 
[09] 



Riggs, 27-Mar~1980 
Extended buffer for show devices. 
Roger Riggs, 10-Apr-1980 

Added $DS_$ADD and IDS ^COMPLEMENT operations to 
PT-Jescriptor interpreter 
Dave Butenhof, 24-sep-1980, Version 6.1 

Split DSVSATTACH routine into DSVSATTACH control routine 
and DSX5ATTACH, which is callable by diagnostics and will 
cause no typeout or console/script reads. The primary 
purpose is to support the AUTOSIZER. 
Dave Butenhof, 19-dec-1v80, Version 6.2 

Implement MCT as NEBULA 'central bus'. Also generalize 
'central bus 1 string compares, and generate error if 
the wrong 'central Bus' name is typed (e.g., 'CMI' for 780). 
Dave Butenhof, 30-mar-1981, version 6,3 

Implement new 'hub* structures, cross-implementation-wise: 
'HUB' and 'PHAD', 
Marion Baggett, 2»0ct-1981 Version 6.- 

Print only device and type fields for /BRIEF switch 
SHOW DEVICE, and SHOW SELECT commands. 

81 , version 6.- 
escriptor location routine. 
81, version 6.- 



on 



Dave Butenhof, 20-0ct-1 
Fix a bug in Ptable 
Dave Butenhof, 22-0ct-1 
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0000 


58 


0000 


59 
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60 


0000 


61 


ococ 


62 


oooo 


65 


0C". 


64 


00v. 


65 


0000 


66 


0000 


6 7 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


cooo 


12 


0000 


11 


oooo 


74 


0000 


75 


0000 


76 


0000 


17 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


82 


0000 


83 


0000 


84 


0000 


85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 
0000 


90 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


0000 


98 


0000 


99 


0000 


100 


0000 


'.01 


0000 


102 


0000 


103 


0000 


104 


0000 


105 


cooo 


106 


0000 


107 


0000 


108 


0000 


10° 


0000 


110 


0000 


111 


ooou 


112 


0000 


11? 


0000 


114 



[103 
[113 
[123 
[133 

[143 

[153 



[163 
[173 



Add ATTACH co rol C handler. Also new Ptable 
descriptor comma ds $DS SLOGICAL and $DS $CASE, 

Jack Stansbury, 27-jct-198T, Version 6.- 
Fixed l.uncation errors, 

Dave Butenhot, 06~Nov-1981, Version 6.- 

Implemented SELECT/ADAPTER and C'c'SELECT/ADAPTFR. 

Dave Butenhot, 18-Nov-1981, versitn 6,5 
Implement DEATTAfH command. 

Dave Butenhot, 20-Nov-1981, version 6.5 

Convert all PRINT'S to use type codes, and delete unused 
message 't^insfmsm* . 

Dave Butenhot, 24-Feb-1982, version 6.6 

Convert parsing ot Device type tield to allow use ot 
V in the name (e.o., 'CIJIODE'). 

Dave Butenhot, 02-Mar-T982, version 6.6 

Correct bug in SELECT/DESELECT: If Adapter not specified, 
and device is duplicated, only first found is acted on, and 
no message is given. Due to SELECT sorting, it may not even 
be possible to DESELECT that device (without /Adapter). 
Solution: Give error if no /Adapter on duplicate name. 

Dave Butenhot, 10-Mar-1982, version 6.6 
Correct some truncation errors. 

Dave Butenhot, 07-Apr-1982, version 6.7 

Add support for new Ptable descriptor directive, $DS..$NAME; 
this will allow u^e of enforced generic naming conventions, 
and inherited device names, while remaining compatible with 
the current schema. Note that this directive must IMMEDIATELY 
follow the $DS_$INITIALIZE directive, and is treated as an 
extension of same. 

Jack Stansbury, Li-Apr- 1982, Version 6.7 
Fixed two truncation errors, 

Dave Butenhot, 06-May-1982, Version 6.8 

M3ke modifications (very minor) to support splitting 
PTt;$M INHERITED into two separated bits, PTDSM INHERIT PRE 
to inherit device prefix, and PTD$MJNHERIT_CON to inherit 
controller designation, 

IcOl Marion Baggett, 6-0ct-1982 Version 6.9 

When inserting PTABLE for RB730, do not re-adiust the RB730 
PTAPLE for CSR values. The RB730 is not on the the unibus. 

[213 Domenic Andella, 13-Apr-G2 Version 6.11 

Aoded central bus name "ABUS M to CENTRAL BUS list, arri 
changed constant in DSXSATTACH routine, GETJ.INK label 
from 3 to 4 to account for new central bus name.- 

22 John Ciukaj 14-Apr-1983 Version 6.11 

- Inhi- it device allocation in user mode during 

Select operation if 'Inhibit Allocate' bit is 
set in CRD Kags 

[23.1 Domenir Andella 14*ADr-83 Version 6.11 

Corrected bug in DSXSATTACH routine, GET LINK label 
to check all CPU link names. 

24 M. Baggett M-MAY-1983 VERSION 6,11 

Changed ptd$m_name to mean alphanumeric. 



[183 
[19. 
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0000 


115 


0000 


116 


0000 
0000 


117 


118 


0000 


119 


0000 


120 


0000 


121 


0000 
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0000 


123 


0000 


124 


0000 


125 


0000 


126 


0000 


127 


0000 


128 


cooo 


129 


0000 


130 


0000 


131 


0000 


132 


0000 


133 


0000 


134 



25 
26 



27 



C28J 



Bob Bergazzi May 16,1983 Version 6.11 
Changed the order of the .LIB statements. 

M. Baggett 10-OCT-1983 VERSION 6.13 
Change to support HSC50 disk/tape names of the form 
namelGGannn, where 'name 1 is a maximum 
of 6 characters and 'GO 1 is the generic name and is 
present with a controller letter and unit number. 

Oomenic Andella 16-FEB-1984 VERSION 6.13 
Add code in GET UNK to add offset of X200 to 
ptable vector field if attached to SBIA 1 for 
a xxx CPU, 



RE MUSE 

added code to 

of the form , node$devke 



11 MAY 1984 Ve» sion 7.0 
handle long device names (15 characters) 
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136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

1 78 

179 

180 

181 

182 

183 



.Subtitle 
Libraries 



Libraries, Equated Symbols, Externals 



library 
library 
library 



\SYS$LIBRARY:LIB\ 

\$DS\ 

\$MA6\ 



[25] 
[25] 
[25] 



Equated Symbols: 

.NLJST 

.NLIST ME,ME8 

.LIST 

$Ds PtdDef 

$Ds~PdDef 

SDSlHDRDEF 

$DS_HP0DEF 

$DS_DSADEF 

$DS DSDEF 

$PRl5EF 

SSSDEF 

SJPLDEF 

CLJDEF 

DSFDEF 

$ds_dsadef 

$ds typedef 

CRDPef 



Define $DS_$NAME flag codes 
Define PD$_ byte codes 



[17] 
[17] 



APT mailbox defs 
Define type codes 
Define bit definitions 
CRD$GL_CRD_FLags 



for 



[07] 
[09] 
[12] 

[22] 



MEB 



DSSGA SELECTS, DSSGL CLIBASE 

DSSPRlNTF, DS SUPERLINE, DS ERRSUP, 

EXE$AL0N0NPAGED,EXE$DEAN0NPAGED,DS3?$PRINT 

"""" ~ SCANSNUMERIC 



.NLJST 

.LIST 

.LIST 

.EXTRN 
.EXTRN 

.extrn 

.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.extrn 
.extrn 
.extrn 
HP$C,NAMELEN == 20 



SCRIPTSFLUSH 



SYSSDALLOC 



SCANSALPHANUM, SCANSDEVI CE , 

SCANSSPACES, SCANSSYMBOL 

SYSSFAO, SYS$ALL0C, 

DS$CA PTABLE, DSSGA PTDESC 

DSRSCBMPLETJON, DSRSlFLOADDEV 

DSSGL FLAGS. KB^CHECK ; 

scanSaecimaLscanSalpha : 

dsScntrlc, DsxSPrint, DsSGB Inhibit Naming 

DS$GL CRD.FLAGS 



[12] 



[09] 
[09] 
[17] 
[22] 
[28] 
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Data Psect Declarations 

*** ATTACH 
Data Psect 

0000 

0000 

00000000 

0000 
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69 6C 61 76 6E 49 
6E 77 6F 6E 6B 6E 
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72 72 4S 20 3F 3F 

43 41 21 43 41 21 

74 61 60 72 6F 66 

22 20 65 62 20 64 

20 3F 43 41 21 



000OO00F • 
75 20 72 
2E 65 6D 



00000036 • 
20 6E 69 
20 2C 65 
6C 75 6F 
2F 21 22 



O10EO000 1 
6F 20 64 
61 6E 20 
20 



010EOOOO 
20 72 6F 

61 

73 

41 



6D 
68 
43 



6E 
20 
21 



20 66 6F 20 74 72 01 70 20 



00 
09 
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65 
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6F 


20 
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70 
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21 


2F 


21 
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3F 


43 
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65 
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20 65 


68 
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69 
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20 65 


65 
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79 


74 


20 65 


76 


65 
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20 


68 63 






2^ 


21 


3A 44 


61 


64 


61 


20 


68 63 




2F 


21 


3A 


44 41 


76 


65 


64 


20 68 63 


20 


6E 


6F 


20 


3A 44 


3A 


44 


41 


21 


20 72 


74 


61 


63 


69 


6C 70 


61 


6E 


20 


72 


65 74 


61 


67 65 


6C 


6C 69 








2f 


21 29 



0000007D 1 

20 72 65 
6E 20 72 

21 2E 64 

OOOOOOAF ' 
20 6F 6E 
20 73 69 
73 73 65 
20 

000OO0E5' 
63 69 76 

63 69 76 

63 69 76 



010E0000 1 

62 6D 75 
6F 20 67 
65 77 6F 



O10EOOOO 
20 73 69 

74 

6F 

43 



68 
63 
3F 



20 
72 
41 



65 44 
65 44 



75 73 20 
41 21 20 



75 73 20 
21 20 72 



75 73 20 

41 21 20 
65 74 70 



75 44 20 
70 61 64 
20 73 69 
53 41 21 



O10EO000' 
65 44 00' 
08 
00 ' 
OB 
00* 
08 

00' 

69 

15 

00 • 

70 

16 

00* 

69 

61 

21 

25 

00' 

65 

6D 

6C 

2C 



6F 

65 



6F 
65 



6F 
65 

61 



3F 
61 
20 
28 



4E 
63 



4E 
74 



4E 

63 
64 
2F 



3F 

20 
65 
20 



0007 

0007 

0015 

0021 

O02D 

002E 

002E 

003C 

0048 

0054 

C060 

0068 

0068 

0068 

0075 

0075 

0083 

008F 

0098 

O0A7 

00A7 

0085 

00C1 

OOCD 

00D9 

OODD 

OODD 

OOEA 

OOEA 

OOF 6 

OOF 6 

0102 

0102 

010E 

010E 

011A 

010E 

0124 

0124 

0130 

0124 

0138 

0138 

0147 

0153 

015F 

01 3B 

0161 

0161 

016D 

0179 

0185 

0161 



185 .SBT7L Data Psect Declarations 

186 

187 .PSECT Data, NoExe, Shr, NoWrt, Long 

188 MODNAM ATTACH 

189 TJNVALID: 

190 .ASCJD "Invalid or unknown name.i/!AC? M 



191 T Bad Name: ; 

192 " " .Ascid \?? Error in !AC!ACname, format should be M !AC"!/!AC? \ ; 



193 T Part Of: 

194 .Ascic \ part of \ 

195 T UNIT EXCESS: 

196 " .ASCJD "Unit number too big or not allowed. J/iAC? " 



197 TJIAIN.BUS: 

198 .ASCJD "There is no )AD on this type processor, !/!AC? " 



199 T PROMPT: 

200 " .ASCJD M !AC? " 

201 T_NAME: .ASCJC "Device Name" 

202 T^LJNK: .ASCJC "Device Link" 

203 WYPE: .ASCJC "Device type 



* i 



204 T NO.SUCH DEV: 

205 " .flSCJC "No such device IAD:!/" 



206 t no_such_adapter: ; 

207 .ascic "No such adapter !AD:!/" 

208 t.no.such^on^adapter: 

209 .ascic No such device !AD: on adaptor !AD:!/ ; 



210 T Ambig.Adap: ; Ambigous adapter name 

211 .AsciC "?? Duplicate adapter name is illegal (!AS)!/" ; 



[10] 



[17] 
C17] 



[17] 
[17] 



[113 
[11] 



[11] 
[11] 



[15] 
[15] 
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Data Psect Declarations 

*** ATTACH 
Data Psect 



£ 2 

27-JUL-1984 Fiche 2 Frame E2 Seguence 223 

Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-01 Page 6 
Declarations 23-MAY-1984 14:09:26 DMA1 :CSYS0.SYSMAINT]ATTACH.MAR;92 (1) 



65 73 75 20 74 73 75 4D 20 3F 3F 00' 
69 77 20 72 65 74 70 61 64 41 2F 20 
65 74 61 63 69 6C 70 75 64 20 68 74 
6D 61 6E 20 65 63 69 76 65 64 20 64 
2F 21 53 41 21 20 65 

36 

65 65 62 20 73 61 68 20 53 41 21 00 • 
65 68 63 61 74 74 61 2D 65 64 20 6E 

2F 21 2E 64 
IB 

61 63 6F 6C 6C 41 20 3A 44 41 21 00' 
68 74 6F 6E 61 20 6F 74 20 64 65 74 
2F 21 72 65 73 75 20 72 65 

20 

21 5F 21 43 41 21 5F 21 53 41 21 00' 
53 41 21 20 20 4C 58 21 5F 21 53 41 

2^ 21 
19 



2F 21 43 41 21 5F 21 53 



70 20 72 6F 66 

20 22 43 41 21 

6E 69 20 64 6E 

2F 21 

68 74 20 67 6E 

2f 21 



20 65 75 6C 
22 20 74 70 
75 6F 66 20 
74 70 69 72 

69 70 70 69 
65 6E 69 6C 



65 62 20 64 6C 75 6F 



41 21 00' 
OA 
61 56 00' 
6D 6F 72 
74 6F 6E 
63 73 20 
2C 
6B 53 00' 
20 73 69 
14 

68 73 00 f 
09 



73 65 59 2C 6F 4E 0000027B'010E0000' 



6E 6F 20 43 41 
41 21 2f 21 53 



21 00000289 
41 21 20 66 



•010E0000' 
6F 20 65 
20 3F 43 



42 55 48 000002A6'010EOOOO 



05' 
05' 
r 
!j' 
ID' 
63 69 72 65 6E 65 67 00' 

07 
72 65 6C 6C 6F 72 74 6E 6F 63 00' 

OA 
74 69 6E 75 00' 
04 



018E 

018E 

019A 

01A6 

01B2 

01BE 

018E 

01C5 

01C5 

01D1 

01DD 

01C5 

01E1 

01E1 

C1ED 

01F9 

01E1 

0202 

0202 

020E 

021A 

0202 

021C 

021C 

021 C 

0227 

0233 

023F 

0248 

0227 

0254 

0260 

0254 

0269 

0269 

0269 

0273 

0273 

0281 

0281 

028F 

029B 

029E 

029E 

02A9 

02A9 

02A9 

02AA 

02AB 

02AC 

02AD 

02AE 

02AE 

02B6 

0286 

02C1 

02C1 



212 T_Ambig_Dev: ; Ambiguous device name 

213 .AsciC "?? Must use /Adapter with duplicated device name IAS]/ ; 



214 t deattach: 

215 .ascic "!AS has been de-attached.]/ 



216 T DEVALLOC: 

217 " .ASCIC "IAD: Allocated to another user]/" 



218 T SHOWDEV: 

219 .ASCIC M !AS!JAC!JAS]JXL !AS!/ 



• t 



220 T SHOWDEVB: 

221 " .ASCIC "SASIJAC!/" 

222 T_PNF: .ASCJC 'Value for prompt M !AC" not found in script!/' ; 



223 T.SKIP: .ASCIC 'Skipping this line!/ 1 ; 



224 T.SHOULDBE: 

225 .ascic \should be\ 

226 t vesno: 

227 .ascid \No,Yes\ 

228 T_STRING: 

229 .ASCID M !AC one of JAS!/!AC? 



.ASCID "HUB 1 



230 HUB: 

231 " 
232 

233 part list: 

234 " .byte 10$-part„list 

235 .byte 10$-part list 

236 .byte 20$-part^list 

237 .byte 30$-part list 

238 .byte 40$-part~list 

239 10$: .ascic \generic\ 

240 20$: .ascic \controlter\ 

241 30$: .ascic \unit\ 



Name of HUB device 

List of generic name parts 
Offset to 'generic' 

same 
Offset to 'controller* 
Offset to 'unit' 
Offset to M 



[15] 

[15] 



[12J 
C12] 



[07] 
[07] 

C09] 



[09] 



[09] 

[09] 
[09] 



[11] 
C11] 

[17] 
[17] 
[17] 
[17] 
C17] 
[17] 
[17] 

[17] 
[17] 
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ATTACH 
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Data Psect Declarations 



*** ATTACH Handle ATTACH command 
Data Psect Declarations 



F 2 
27-JUL-1984 



Fiche 2 Frame F2 



Sequence 224 



00' 02C6 

00 02C6 

02C7 

02C7 

05 02C7 

49 42 53 00' 02C8 

03 02C8 

49 4D 43 OO 1 02CC 

03 02C( 
44 41 48 50 00 • 02P0 

04 0"D0 
53 55 42 41 00' C2D5 

04 J2D5 

42 55 48 00' 02DA 

03 C2DA 

02DE 



242 40$: 



.ascic \\ 



243 

244 CENTRAL.BUS: 

245 .BYTE 

246 .ASCIC 


5 
"SB!" 


247 


•ASCIC 


"CMI" 


248 


.ASCIC 


"PHAD" 


249 


.ASCIC 


"ABUS" 


250 


.ASCIC 


"HUB" 


251 







27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 7 

23-MAY-1984 14:09:26 DMA1 :[SYSO.SY3MAINTJATTACH.MAR;92 (1) 



List of 'central bus 1 names 
Number of bus names 
STAR - CPU type 1 

COMET - CPU type 2 

PHysical Address Decoder 

xxx - CPU type 4 

system HUB device 



[17] 

[213 

C06D 

[21] 
[06] 
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ATTACH 

07-27 
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Work Psect Declarations 27-JUL-1984 Ffche 2 Frame G2 Sequence 225 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 8 
Work Psect Declarations 23-MAY-1984 14:09:26 DMA1 :[SYS0,SYSMAINT]ATTACH.MAR;92 (1) 



02DE 

02DE 

00000000 

00000000 0000 
0000 

00000001 0000 
0001 

00000002 0001 
0002 

0OO0000A 0002 



253 
254 
255 

256 FLG$V_BRIEF 

257 COMM FLAGS: 

258 " .BLK8 1 

259 abort attach: 

260 .blkb 1 

261 q adapter: : 

262 .blkq 1 



•S8TTL Work Psect Declarations 



.PSECT Wv-k, Noshr, Noexe, Wrt, Long 

= 



Flag for brief form of commands 
Storage area for /BRIEF flag 
Use to abort ATTACH cmd on A C 
Descriptor for link device name 



[07] 
C07J 

[07] 

ton 

[09] 
[09] 

[11] 
cm 
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DSVSATTACH Attach command processor 27-JUL-1984 Ffche 2 Frame H2 Seguence 226 

*** ATTACH Hartdte ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 9 

DSVSATTACH Attach command processor 23-MAY-1984 14:09:26 DMA1 :CSYS0.SYSMAINT]ATTACH.MAR;92 (1) 



000A 
000A 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



264 
265 
266 
267 
268 
369 
270 
271 
212 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 



+ ♦ 



,SBTTL DSVSATTACH Attach command processor 
.PSECT Code, txe, Shr, NoWrt, Long 



[10] 



Functional Description: 

This routine is called from CLJ to finish processing an 
ATTACH command 

Calling Sequence: 

BSBW DSVSATTACH 

Input Parameters: 
NONE 

Implicit Inputs: 

R2 8ase of CLI data base, DSSGL. CUBASE 

CLISQ_F 1LE Length, address of remainder of command line 

Output Parameters: 
NONE 

Implicit Outputs: 

New Device Parameter Block or modifications to previous one 

Side Effects: 
NONE 



ZZ-ENSAA-7,0 

ATTACH 
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*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 
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10 
(1) 



00000001 'EF 94 



010A V CF 

OOOOFEOO'EF 



2B 



00000000 'EF 

7E 53 

SS 

53 7E 
5E 00000064 8F 

54 6E 
5E 0000006C 8F 

04 AE 08 AE 

55 6E 
3C 

08 A2 

64 OC B2 

3C 

OC A2 64 

65 0064 8F 

65 

08 A2 

02 

74 50 

1F 

30 

15 

00000000' EF 

04 B5 

00000227'EF 

01 

15 

00000000' Ef 04 

00000254 'EF 

01 

15 

COOOOOOO'EF 03 

003C 

0052 

00000000' EF 

2C 00000001 'EF 

04 B5 

7E 00000064 8f 08 A2 

63 

51 08 B244 

81 20 

08 A2 

61 

00000000* EF 04 

07 50 

08 A2 63 

FF?A 

5E 00000004 Bf 

55 8^ 

53 8E 



16 
70 
DO 
DE 
C2 
9E 
C2 
9E 
7E 
BB 
28 

BA 
9E 
3C 
7f 
7F 
FB 
E8 
EO 

E1 

9F 
9F 
OD 
DO 
FB 
9F 

DD 
DD 
FB 
31 
31 

16 
E8 
9F 
C3 
DF 
9E 
90 
B6 
9F 

FB 
E9 
CO 
31 
CO 
DO 
7D 

05 



0000 

0000 

0000 

0006 

0015 

001B 

001E 

0020 

0023 

002A 

002D 

0034 

0039 

003C 

C03E 

0041 

0044 

0046 

004A 

004F 

0051 

0054 

0059 

005C 

0063 

0064 

0066 

006C 

006F 

0075 

0077 

0079 

0080 

0086 

0088 

008A 

0091 

0094 

0097 

0097 

009D 

00A4 

00A7 

0080 

00B2 

0087 

OOBA 

OOBD 

OOBF 

00C6 

00C9 

OOCD 

OODO 

00D7 

OODA 

OODD 

00E8 



293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 



DSVSATTACH:: 
clrb 
$ds cnt 
J SB 
MOVQ 
PUSHL 
MOVAL 
SUBL2 
MOVAC 
SU8L2 
MOVAB 
MOVAQ 
PUSHR 
M0VC3 



10$: 



20S: 
30$; 



40S: 



POPR 

MOVAB 

MOVZWL 

PUSHAO 

PUSHAQ 

CALLS 

BL8S 

bbs 

BBC 

PUSHA8 

PUSHAB 

pushl 

pusht 

CALLS 

PUSHAB 

pushl 

pushl 

CALLS 

BRW 

brw 



L*abort„attach 
rlc s set abort 
SCRIPTSFLUSR 
R3,-(SP) 
R5 

-(SP),R3 
#100, SP 
(SP),R4 
#108, SP 
8(SP),4(SP> 
<SP),R5 
# A M<R2,R3,R4,R5> 

cli$q_f;le(r2),- 
sclijq file+4(r2),(r4) 

# A M<R2,R3,R4,R5> 

(R4),CLI$Q_FILE+4(R2> 

#100, (R5) 

(R5) 

CLISO FJLECR2) 

#2,W A &SX$ATTACH 

R0,40$ 

#dsa$v apt, - 

L A dsa$gl flags, 20$ 
#DS$V SCRIPT, - 

L A DSlGL FLAGS, 30$ 
94(R5) ' 
L A T PNF 
#dsJk_printf 
#ds$k type command err 
#4, L x DSX$PR!NT 
l A T SKIP 
#dsSk„printf 
#ds$k type command err 

n t l*dsx$Prjnt 

40i 

50$ 



i 



Clear abort flag 
Set up A C handler 
Flush scripts i t 
Save R5 and R4 
Save R5 
Allocate 
Allocate 
and set 
Allocate 



this console command 



[09] 
C09J 
[10] 



location and set ptr 
stack buffer 
pointer to it 

ATTACH prompt string 

Set string descriptor address 
and remember where it is 
Save regs destroyed by M0VC3 
Copy command line to local 
buffer (for later appends) 
Restore registers 
Correct buffer pointer 
Re-set length of buffer 
Address of return prompt 
Address of command descriptor 
Try to do the attach 
Exit loop if success 
If APT mode, abort processing 
...with error (fatal) 

Branch if not script running 
Address of prompt ASCIC string 
Edit string for prompt not found 



error type code 
for skipping 



sb L A kb check 

lbs abort. attach, 40$ 

PUSHAB 94(R5T . 

SU8L3 CLJ$Q_FJLE<R2),*100,-<SP) 

PUSHAL (R3) 

MOVAB «)CLI$Q FJLE(R2)[R4],R1 

MOVB JTA" $, 7(R1) + 

INCW CL1$QJJLE(R2) 

PUSHAB (R1) 

CALLS #4,L A DS„SUPERL1NE 

BL8C RC,40$ 

ADDL? <R3.\CLI$Q_FILE<A2) 

BRW 10$ 

ADDL2 *212,SP 

MOVL <SP)+,R5 

MOVO <SP>*,R3 

$ds cntrlc s 

RS8 



Use Printf 

And command 

Type it 

Edit string 

Use Printf 

Command error also 

Type it. 

exit 

Waystation to 50$ 

Check for A C # s 
Return directly if so 
Address of prompt ASCIC string 
; Length of remaining buffer 
Where to return length read 
Point to end of current string 
Separate new argument by space 
Increase length 
Calculate address to read to 
Read a line 

Can't continue if failure 
Set new input line size 
Try again 
•Uear off buffers 
westore registers 

Clear out handler 
Return to caller 



[09] 
[09] 
[07] 
[07] 
[07] 
[07] 
[13] 
[13] 
[13] 
[07] 
[13] 
[13] 
[13] 
[07] 
[13] 
[07] 
[09] 
[09] 



[13] 



[09] 
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11 
(1) 







00E9 


350 






00E9 


351 






00E9 


352 




D3 11 


OOFB 


353 






OOFD 


354 






OOFD 


355 






OOFD 


356 






oof: 


357 






OOFD 


358 






OOFD 


359 




0000 


OOFD 


360 


00000U0VEF 


01 90 


OOFF 


361 


50 


01 DO 


0106 


362 




04 


0109 


363 



50$: 



errsup s 
brb 40$ 



msgadr=84(r5) 



ATTACH error in APT mode 
ERRSUP w/ returned message 
Exit routine if continued 



[09] 
[09] 
[09] 



Control C handler for DSVSATTACH. Intercepts A C and causes quick return 
to CLJ. Putting a KB..CHECK call in the loop would work as well: but this 
way causes routine cleanup, so CONTINUE will not continue ATTACH cmd. 



.entry set abort. A M<> 

movE #1 , abort^attach 

movl #1 , rO 

ret 



Set abort flag 
Return success 



[09] 
[09] 
[09] 
[09] 
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DSXSATTACH Process ATTACH command 

*** ATTACH Handle ATTACH command 
DSXSATTACH Process ATTACH command 



K 2 

27-JUL-1984 Fiche 2 Frame K2 Seguence 

27-JUL-1984 15:01:41 VAX-11 Macro V03-OT Page 
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229 



12 
(1) 



01 OA 
01 OA 
010A 
01 OA 
010A 
010A 
01 OA 
010A 
010A 
01 OA 
010A 
01 OA 
01 OA 
01 OA 
C10A 
010A 
010A 
01 OA 
01 OA 
01 OA 
010A 
01 OA 
010A 
010A 
010A 
01 OA 
010A 
010A 
010A 
010A 
010A 
01 OA 
010A 
010A 
010A 
010A 
010A 
010A 
010A 
010A 
010A 
01 OA 
010A 
010A 
010A 
010A 
010A 
01 OA 



365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 

408 
409 
410 
411 
412 



.SBTTL DSXSATTACH 



Process ATTACH command 



T + 



Functional description: 

This routine is called from DSVSATTACH to translate an attach 
command line using a PTABLE descriptor, and create a PTABLE 
from this data. If any argument is missing or invalid, it will 
return with the given prompt string buffer set 
prompt to get more data from the operator, and 
descriptor re-set to exclude the remaining (if 
text of the input line. 

Calling seguence: 

DSSATTACH (cmdline, Cprompt]) 



to the correct 
the input line 
any) incorrect 



Input Parameters: 
cmdline 
prompt 

Implicit inputs: 
none 

Output Parameters 
prompt 

Implicit outputs: 
none 



pointer to command line descriptor 

pointer to ASCIC-type buffer (with length of remainder 

of buffer in byte 1) 



the buffer is filled with an ASCIC string suitable for 
prompting the operator for the next ATTACH parameter. 



Side Effects: 

If successfull, creates 



a PTABLE in dynamic pool space 



Register usage: 
R4,R5 
R6 
R8 
RIO 
R11 

Return codes: 

DS$„BADTYPE 

DS$„8ADLINK 

DSSJLLUNIT 

DS$J)EVNAME 

SS$ 8ADPARAM 

SSSJNSFARG 



Descriptor of remaining input string 
Pointer to prompt string descriptor 
Pointer to input descriptor 
PTABLE descriptor "PC" for decode 
Pointer to PTABLE 



Device type argument is bad (no PTABLE 
Device given as link is not attached 
Unit number not given or was Illegal (too 
invalid device name given 
Number was in bad radix or out of range 
Too few arguments given to complete ATTACH 



descriptor) 
big) 
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5E 
58 



56 



V AD 

04 BC 

02 A8 

54 68 

02 6C 

06 

08 BC 

07 

7E 

02 

6B 



56 



5B 
1D 



00000102'EF 

00000007'EF 

O00OOA75' EF 02 

50 006600E8 81= 

02C3 



53 00000102 , EF 

OOO0OA4D'EF 

36 50 

OOOOOOOO'EF 

57 50 

C8 



OFFC 

9E 
7E 
64 
7D 
91 
19 
7E 
12 
3F 
DD 
DE 

D4 
11 



9F 
7f 
F8 
DO 
31 



9E 
16 
E9 

16 
3C 
13 



010A 

01 OA 

01 OA 

01 OA 

0004 

0008 

010A 

010A 

01 OA 

01 OA 

01 OA 

010A 

01 OA 

01 OA 

C10A 

010A 

FFFF 

FFFE 

FFFD 

FFF9 

FFF5 

FFEB 

FFE7 

010A 

01 OA 

010C 

010C 

0110 

0114 

0117 

011A 

011D 

011F 

0123 

0125 

0127 

0129 

012C 

012C 

012E 

0130 

0130 

0130 

0136 

013C 

0H3 

014A 

014D 

Q14D 

OHD 

0154 

015A 

015D 

015D 

0163 

0166 

0168 



414 

415 SOFFSCT 4, POSITIVE, <- 

416 <ATC$_CMDLINE.4>,- 

417 <ATC$ PROMPT, 4» 
ATC$_CMDLINE: 
ATC$_PR0MPT: 

418 

419 $0f fSet 0, NEGATIVE, <- 

420 <Name Flags, 1>, - 

421 <Parent Controller, 1>, - 

422 <Max„Un7t, 1>, - 

423 <PtDesc, 4>, - 

424 <Parent Ptable, 4>, - 

425 <Generic f 10>, - 

426 <Local Block> - 

427 > 
Name^Flags: 
Parent Controller; 
Max UnTt: 
PtDesc: 

Parent_Ptable: 
Generic : 
Local.Block: 

♦ENTRY DSXSATTACH, A M<R2,R3,R4,R5 .R6,R7,R8,R9,R10,R11> 



Offsets for local data 
.. Name flags from $DS_$NAME 
; .. Controller letter of parent 
Maximum unit number allowed 

of Ptable descriptor 

of Parent Ptable 

name string from $D$„$NAME 



Address 

Address 
Generic 



Size of local block 



[17] 
C17] 
[173 
C17J 
[17] 
[17] 
[17] 
[17] 
[17] 



428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 



10$: 
20$: 



MovAfl Local Block(Fp), Sp 

MOVAQ 8ATC$ CMDHNE(AP) ,R8 

CLRW 2(R8)"* 

MOVQ (R8),R4 

CMPB (AP),*2 

BLSS 10$ 

MOVAQ c&ATC$ PROMPT (AP),R6 

BNEQ 20$ " 

PUSHAW -(SP) 

PUSHL #2 

MOVAL (SP),R6 

CLRL R11 

BR8 GET. TYPE 



BAD TYPE: 

PUSHAB 

PUSHAQ 

CALLS 

MOVL 

BRW 

GET TYPE: 

MOVAB 

Jsb 

BLBC 



L A T TYPE 

L A T"INVALID 

#2, ['FORMAT PROMPT 

#DS$ BAi:TYPE,RO 

ERROR_EXIT 



L A T TYPE,R3 
L A GET LINE 
RO,10$ 



Jsb l A SCAN$SYMBOL 
MOVZWL R0,R7 
BEQL BAD TYPE 



Allocate local storage block 
Point to command line desc. 
Clear length used so far 
Set up register descriptor 
Both arguments givtn? 
No— fake prompt buffer 
Set up prompt pointer 
Branch if specified 
Allocate fake buffer 
Finish descriptor 
Save pointer to descriptor 

Clear PT address 

Get hardware device type 



Set prompt to return 
Error message 
Format it for return 
Set return code 
Return 



Address of prompt string 
Get something from operator 
Exit if error on input 

Scan the hardware type 
Save length of type string 
Branch if not there 



[173 



[10] 
[103 
[103 



[103 
[183 



[163 
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ATTACH 




*** 


ATTACH 


Handle 


ATTACH command 27-JUL-1984 15:( 


14 


07-27 




DSXSATTACH 


Process ATTACH command 23-MAY-1984 14:09:26 DMA1 :CSYS0.SYSMAINT]ATTACH.MAR;92 (1) 




7E 50 


7D 


0168 


462 


MOVQ 


RO,-(SP) 


* Save descriptor of type 
Locate descriptor R0/R1 






OOOOIOOA'EF 


16 


01 6B 


463 


Jsb 


L A LOC$PTDESC 


C183 




BD 


13 


0171 
0173 


464 
465 


BEQL 


BAD.TYPE 


• Branch if not found 






02 A8 57 


AO 


0173 


466 


ADDW2 


R7,2(R8) 


• Add type string to length used 

• Save address ot hardware type block 






5A 50 


DO 


0177 


467 


MOVL 


R0,R10 






F9 kl 50 


DO 


01 7A 


468 


HovL 


RO, PtDesc(Fp) 
(R10)+,R0 


* Save it again 

• Get lengtn of ASCIC name 


C17D 




50 8A 


9A 


017E 


469 


M0V2BL 






5A 50 


CO 


0181 


470 


ADDL 


R0.R10 
(R10)+,R1 


• Skip name 






51 8A 


9A 


0184 


471 


M0VZ8L 


• Fetch size of PT 






51 14 


CO 


0187 


472 


ADDL2 


#HP$C NAMELEN,R1 


• make room for long device name 

* Allocate a block for this PT 


[28] 




OOOOOOOO'EF 


16 


01 8A 


473 


Jsb 


L A EXE$ALONONPAGED 


[18] 




03 50 


E8 


0190 


474 


BLBS 


R0,20$ 


j Branch if enough memory 










0193 


475 10$: 










027A 


31 


C193 


476 


BRW 


ERR0R_EX1T 












0196 


477 20$'. 










53 52 


DO 


0196 


478 


MOVl 


R2,R11 

*-3,R1,R0 
(R2) + 


; Copy address of block 

; Number of quadwords present 






50 51 FD 8F 


78 


0199 


479 


ASHL 






82 


7C 


019E 


480 30$: CLRQ 


; Clear one 






FB 50 


F5 


01A0 


481 


SOBGTR 


R0,30$ 


: Branch if ,.*t done yet 






08 AB 51 


BO 


01A3 
C1A7 


482 
483 


MOVW 


R1,HP$W„SJZE(R11) 


; Save true length of block 






52 26 AB 


9E 


0.A7 


484 


MOVAB 


HP$T,JYPE<R11),R2 


; Point to type storage location 
; Store length 






82 6E 


90 


01 AB 


485 


M0V8 


(SP) f (R2)+ 
4(SP) ,R7 






57 04 AE 


DO 


01AE 


486 


MOVL 


; Set address to copy from 






50 6E 


3C 


0182 


487 


MOVZWL 


<SP),RO 


; Set length to copy 
; Remove descriptor 






8E 


7C 


0185 


488 


C'.RQ 


<SP>* 










0187 


489 












82 87 


90 


0187 


490 40$: M0V8 


(R7)+.(R2)+ 


; Copy byte 

; Copy whole string 






FA 50 


F5 


01BA 


491 


SOBGTR 


R0,40$ 






1D 


11 


01BD 


492 


BRB 


GET_LJNK 


; Get device linking this to the processor 








01BF 


493 BAD..LJNK: 










000000F6 , EF 


9F 


018F 


494 


PUSHAB 


L A T_LINK 


; Set prompt to return 


[10] 




00000007'EF 


7F 


01C5 


495 


PUSHAQ 


l a t invalid 


; Format string 


C10] 




00000A75'EF 02 


F8 


01CB 


496 


CALLS 


#2,C A F0RMAT PROMPT 


; Format prompt for output 


[10] 




50 006600F0 8F 


DO 


01D2 


497 


MOVL 


#DS$ BADLJNR,RO 


; Set return code 






0234 


31 


01D9 
01DC 


498 
499 


BRW 


ERROR.EXJT 












01DC 


500 GET_LJNK: 










53 000000F6'EF 


9E 


01DC 


501 


MOVAB 


L A T L1NK,R3 


; Prompt line 


[103 




G0000A4D'EF 


16 


01E3 


502 


Jsb 


l a gEt line 


; Get some input 


[18] 




03 50 


E8 


01E9 


503 


BLBS 


RO. 10$ 

ERROR^EXIT 


; Branch if it worked 






0221 


31 


01EC 


504 


BRW 


; Take error exit 










01EF 


505 ' 


0$: 










OOOOOOOO'EF 


16 


01EF 


506 


Jsb 


L A SCAN$DEVJCE 


; Get device name of connection 


[163 




57 50 


3C 


01F5 


507 


MOVZWL 


R0,R7 


; Save length of link name 






C5 


13 


01F8 
01FA 
01FA 


508 
509 

510 ( 


BEQL 


BAO^LINK 


; Bad device 










01FA 


511 , 


See if the li 


nk name typed is one of the pre-uefined 'central bus' names. 










01FA 


512 , 


* If so f make sure ft is the correct one 

• COMET). ]f it is not the correct one. 


(e.g., f SBI ' for STAR, •CM' for 










01FA 


513 ( 


return an error. 










01FA 


514 , 
















01FA 


515 












50 50 


3C 


01FA 


516 


MOVZWL 


RO,RO 


; isolate device name length 






007C 8f 


BB 


01FD 


517 


PUSHR 


# A M<R2,R3,R4,R5,R6> 


; Save registers 






55 


D4 


0201 


518 


CLRL 


R5 


; name index 
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53 000Q02C7'EF 


9E 


0203 


54 83 


9A 


020A 


5? 83 


9A 


020D 


55 


D6 


0210 


56 51 


DO 


0212 


50 52 


B1 


0215 


05 


13 


0218 


5*5 52 


CO 


021A 


4A 


11 


021D 


86 63 


91 


021F 


F6 


12 


0222 


53 


D6 


0224 


F6 52 


F5 


0226 


04 55 


91 


0229 


2D 


14 


C22C 


00OOFE17'EF 55 


91 


022E 


24 


13 


0235 


007C 8F 


BA 


0237 


0OOO00F6*EF 


9F 


023B 


7E 50 


7D 


0241 


000O00A7'EF 


7F 


0244 


00000A75'EF 04 


FB 


024A 


50 006600FO 8F 


DO 


0251 


01B5 


31 


0258 


007C 8F 


BA 


0258 


02 A8 5f 


AO 


025F 


F5 AD 


D4 


0263 


0113 


31 


0266 


A1 54 


F5 


0269 


007C 8F 


BA 


026C 
0270 


52 01 


CE 


0270 


OOOOOFBB'EF 


16 


0273 


F5 AD 51 


DO 


0279 


03 


12 


027D 


FF3D 


31 


027F 


02 A8 57 


AO 


0282 


2 ' AB 51 


DO 


0286 


18 A8 1C A1 


DO 


028A 
028F 
028F 
028F 
028F 
028F 


A1 3U9535F 8F 


D1 


028F 


06 


12 


0297 


24 AB 0200 SF 


AO 


0299 
029F 


OODA 


31 


029F 



519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 



20$: 



30$: 
40$: 



50$: 



60$: 



'0$: 



MOVAB 

MOVZBL 

MOVZBL 

INCL 

MOVL 

CMPW 

BEQL 

ADDL2 

BR8 

CMPB 

BNEQ 

INCL 

SOBGTR 

CMPB 

BGTR 

CMPB 

BEQL 

POPR 

PUSHAB 

MOVQ 

PUSHAQ 

CALLS 

MOVL 

BRW 

POPR 

ADDW2 

ClrL 

BRW 

S08GTR 

POPR 

mnegt 

Jsb 

MovL 

BNEQ 

BRW 

ADDW2 

MOVL 

MOVL 



L A DlA$GL_SID+3 



L a CENTRALJaJS, R3 

(R3)+, R4 

(R3)+, R2 

R5 

R1, R6 

R2, RO 

40$ 

R2, R3 

60i 

(R3), (R6)* 

30$ 

R3 

R2, 40$ 

R5, *4 

50* 

50i 

# A M<R2,R3,R4,R5,R6> 

L A T_LHK 

RO, ~<SP) 

L A T MAIN BUS 

#4,"L A F0RMAT prompt 

*ds$ badlinkT ro 
error exjt 

# A M<R?,R3,R4,R5,R6> 

R7, 2(R8) 

Parent Ptable(Fp) 

get.naMe 

R4, 20$ 
# A M<R2,R3,R4,R5,R6> 

#1, r2 

L A LOC$PTABLE 

R1- Parent Ptable(Fp) 

70i 

BAD LINK 

R7,2(R8) 

R1,HP$A LINMR11) 



15 
(1) 

[10] 



Point to table of names 

Get number of names in table 

Get length of next name 

Increment type code tried 

Copy input string address 

Same length as input? 

If yes, compare strings 

Skip rest of string 

Try next string 

Compare bytes of strings 

If no match, try next string 

Advance pointer 

Loop through string 

Is is implementation-specific? [21] 

No, accept it unconditionally C23.1 

Match—is it correct one? 

Yes, continue 

Restore registers 

Prompt string to return C10D 

Descriptor of input name [10] 

^herrf is no IAD on this type pro.* [10] 

Format it for return [10] 

Set return code 

Error!! ! 

Good m*ich. Restore regs. 

Increase string length used 

Device is connected to HUB [17] 

Get device name generic [17] 

Try next name string 

Restore registers 

Set wildcard link for tocSptable [09] 

Locate P-table for link [18] 

Save address of parent f.173 

Found it 

Can't find link P-table 

Increase length used so far 

Store link aodress 



HP§AJ>WKR1>,HP$AJ>EVICE<R*1> ; Initialize device address 



following is necessary for xxx to check if the parent link is 

S8IA 1. If so, an offset of "200 must be added to the device vectors 



The 

for ... _______ 

address (SCB second page). 



CMPL # A A" SI1",HP$T DEVJCt'(Rl) 

BNEQ 75$ " 

ADDW tf A X200,HP$W„VECT0R(Rn) 

75$: BrW GET„NAME 



Is oarent LINK SBIA1? [27] 
Branch if not SBIA1 L27] 
Add offset for SQIA1 VECTORS [27] 



Get new device nome 



[27] 



ZZ-ENSAA-7.0 

ATTACH 
07-27 



Process invalid generic name error 

*** ATTACH Handle ATTACH command 
Process invalid generic name error 
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02A2 


569 






02A2 


570 






02A2 


571 


OOOOQOEA'EF 


9F 


02A2 


57? 


00000075'EF 


7F 


02A8 


573 


00000A75'EF 02 


FB 


02AE 


574 


50 00660100 8F 


DO 


02B5 


575 


0151 


31 


02BC 


576 



.Subtitle 



Process invalid generic name error 



BAD„UNIT EXC: 
PUSHA8 
pushaq 
CALLS 
movl 
brw 



L*TJVAME 

t unit excess 
#2,L a F0RMAT PROMPT 
*ds$_illuniT, rO 
error^exit 



Set prompt text 
Unit number too large 
Format and store 
Illegal unit number 
Error 



[173 
[17] 
[17] 
[17] 
[173 
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C 3 
Process invalid generic name error 27-JUL-1984 Fiche 2 Frame C3 Seguence 234 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 
Process invalid generic name error 23-MAY-1984 14:09:26 DMA1 :[SYS0.SYSMAINT]ATTACH,MAR;92 



17 
(1) 







02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






C2BF 






02BF 






028F 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






028F 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 






02BF 


04 52 


D1 


02BF 


03 


15 


02C2 


52 04 


DO 


02C4 


50 000002A9'EF42 


90 


02C7 


52 000002A9'EF40 


9E 


02CF 


55 FF AD 


9A 


02D7 


53 6E 


9E 


02D8 


18 55 02 


E1 


02DE 
02E2 
02E2 


7E 656D616E 8F 


DO 


02E2 


7E 04 


90 


02E9 


51 000002AD'EF 


9A 


02EC 


51 000002A9'EF41 


9E 


02F3 


5A 


11 


02FB 
02FD 


54 


D4 


02FD 


06 55 00 


E1 


02FF 


7E 6E 8F 


90 


0303 


54 


D6 


0307 


55 01 


E1 


0309 


12 




030C 


5E 


D7 


030D 


54 


D6 


030F 


55 04 


E1 


0311 



578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 



.sbttl Process invalid generic name error 

BAD NAME is branched to if parse^device routine fails. The Ptable 
descriptor is analysed to print out what the problem was, and what the 
correct format of the name ought to be. The format it uses is 'GGan* 
where 'GO 1 is replaced by the Ptablo descriptor's generic string (or 
*gg' if there is none), 'a' represents that the name must have a 
controller letter, and 'n' represents that the name must have a unit 
number. If the PTD$V_NAME generic flag is :et, and PTD$V„CONTROLLER and 
PTDSV UNIT flags are not, then the name is an alphanumeric node name of 
6 or 7ewer characters. This is represented in the error message as 
•name' instead of the 'GGan' form. Jf PTDSVJIAME and PTD$V_CONTROLLER 
and/or PTD$V_UNIT flag is set then the generic name is represented as 
name$GGan in"the error message. 



Inputs: 

R2 => 



return 

= 

1 = 

2 = 

3 = 

4 = 



code from parse.device. 
no generic found, 
bad generic prefix 
bad controller (none 

shouldn't be) 
bad unit (none where 

shouldn't be) 
bad node name 



where should be, or present where 
should be, or present where 



This code segment will 
exit from DSXSATTACH, 



cause loading of the return prompt string, and error 



bad.name: 

cmpl 
bleq 
movl 



#4 



10$: 



20% : 



30$: 



movb 

movab 

movzbl 

movab 

bbc 

BITL 

BNEQ 

movl 

movb 

mov2bl 

movab 

brb 

clrl 

bbc 
movb 
incl 
bbc 

DECL 
incl 

bbc 



r2 x 
10i 

#4, r2 

part„list[r2], rO 
part^listCrO], r2 
Name_Flags(Fp), r5 
(sp), r3 
#ptd$v_name, r5, 20$ 



#PTD$M C0NTR0LLER!PTD$M_UN1T, R5 

20$ " 

# A A M name", -(sp) 

#4, -(sp) 

part_list*4, r1 

part UstCrU, r1 

90$ 



Validate status 

branch if OK 

Knock value down to legal range 

Get byte offset of message 

Get address of message 

Get generic flags 

Save stack pointer 

Branch if normal name format 



r4 

#ptd$vunit, r5, 30$ 

# A AV7 -(sp) 

r4 

0ptd$v controller, - 

r5, 50$ 
SP 
r4 
0ptd$vJnherit_Con, - 



• Anything 
if more to 



else to 
check. 



check for ? 



Branch 

Push string 

..•make it ASCIC 

Get to the part. list null ASCIC 

...string 

Go do formatting, etc. 

Normal name formatting 

Length of string created 

Branch if no unit needed 

Make string on stack 

Count the byte 

Branch if 

...no controller needed 

Allocate one byte 

And count it 

Does device inherit parent's name 



[173 
[173 
[173 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[26] 
[26] 
[17] 
[173 
[17] 
[17] 
[17] 
[173 

Rfl 

cu: 
Ci7: 
cu: 
[17: 
[19: 
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7E 



51 



50 



06 




0314 


635 




r5, 40$ 


6E FE AD 


90 


0315 


636 


MovB 


Parent Control ler(Fp) , - 






0319 


637 




(Sp) 


04 


12 


0319 


638 


bneq 


50$ 


6E 61 8F 


90 


031B 


639 40$: 


movb 


#*A'V\ (sp) 


51 EB AD 


9E 


031 F 


640 50$: 


movab 


Generic(Fp), r1 


50 61 


9A 


0323 


641 


MovZBL 


(R1), RO 


0B 


13 


0326 


642 


beql 


70$ 


7E 6140 


90 


0328 


643 60$: 


movb 


(M)[r03, -(sp) 


54 


D6 


032C 


644 


incl 


rA 


F7 50 


F5 


032E 


645 


sobgtr 


rO, 60$ 


08 


11 


0331 


646 


brb 


80$ 


7E 6767 8F 


BO 


0333 


647 70$: 


movw 


#*A'W', -(sp) 
*2, r4 


54 02 


CO 


0338 


648 


addl2 


D OA AB 02 


E1 


C33B 


649 80$: 


BBC 


*HP$V NAME,HP$BJLAGS(R1 


7E 24 


90 


0340 


650 


MOVB 


JTA'WtSP) 


656D616E 8F 


DO 


0343 


651 


MOVL 


# A A M name M , -(SP) 


54 05 


CO 


034A 


652 


ADDL2 


#5, R4 


7E 54 


90 


034D 


653 85$: 


movb 


r4, -(sp) 


0000006B'EF 


9E 


0350 


654 


movab 


t_part_of, r1 


OOOOOOEA'EF 


9F 


0357 


655 90$: 


pushab 


L x t_name 


04 AE 


9F 


035D 


656 


pushab 


4(sp) 
(r1) 


61 


9F 


0360 


657 


pushab 


62 


9F 


0362 


658 


pushab 


(r2) 


0000002E , EF 


7f 


0364 


659 


pushaq 


t bad name 


0A75'CF 05 


FB 


036A 


660 


calls 


*5, w*format..prompt 


00660108 8F 


DO 


036F 


661 


movl 


0ds$,devname, rO 


5E 53 


DO 


0376 


662 


movl 


r3, sp 


0094 


31 


0379 


663 


brw 


error exit 



...if not, use 'a' 
Get parent's controller letter 
., onto stack 
If valid, use it 
Put controller format on stack 
Get address of generic string 
Get length of generic string 
Branch if null (use 'gg 1 ) 
Push on bytes in right order 
Count 'em 
Do them all 
Finish off 
Push on 'gg* string 
And set length 

),85$ : Check if name needed 
Set delimiter 
Set string 
Adjust length 
Make 
say 

Prompt string 
Correct name format string 
' part of ■ or ■• 
Failing part of the name 
Format string for the whole mess 
Format the output ,;«ompt 
Set fai lure reason 
Restore stack 
return 



bi icnytn 

string on stack be 
'Error in ? part of 



ASC1C 
name 1 
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[173 
[173 
[173 
[263 
[173 
[263 
[173 
[173 
[173 
[173 
[173 
[283 
[263 
[263 
C263 
[173 
[173 
[173 
[173 
[173 
[173 
1173 
[17] 
[173 
[173 
[173 



ZZ-ENSAA-7,0 

ATTACH 
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Get name 



processing 



E 3 

27-JUL-1984 



00A6 

53 OOOOOOEA'EF 

OOOOQAAD'EF 

03 50 

007E 



0K5 

03 

FF25 

52 

00 



11 FF AD 
2 50 10 



7E FD 



OE 



52 
52 



OB 

02 
OA 
52 



8E 



A8 
50 
A8 
A8 
I 

52 
5B 



08 



10 
AD 
52 
03 
FEFO 
52 
50 
50 
02 
AB 
14 
52 
04 



52 OC AB 

6B 50 01 

04 AB 62 

82 5F 8F 

82 81 

FA 50 

5A 03 



ATTACH Handle ATTACH command 
Get name processing 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame E3 



Seguence 236 
15:01:41 VAX-11 Macro V03-01 Page 19 
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037C 
037C 
037C 

30 037C 
9E 037F 
16 0386 
E8 038C 

31 038F 
0392 

30 0392 
12 0395 

31 0397 
D4 039A 
E1 039C 

03A1 
U 03A1 
9A 03A6 
D1 0.3 A A 
18 03AD 
31 03AF 
90 03B2 
9A 03B6 
AO 0389 
F1 03BD 
3C 03C2 
C3 03C6 
C1 03CA 
11 03CE 

03D0 
9E 03D0 

03D4 
C1 03D4 
9E 03D8 
90 03DC 
90 03E0 
F5 03E3 
CO 03E6 



665 

666 

667 GET 

668 

669 

670 

671 

672 

673 10$ 

674 

675 

676 

677 20$ 

678 

679 

680 

681 

682 

683 

684 

685 30$ 

686 

687 

688 

689 

690 

691 

692 

693 35$ 

694 

695 37$ 

696 

697 

698 

699 40$ 

700 

701 



.sbttl Get name processing 



„NAME : 

BsbW 

MOVAB 

Jsb 

BL8S 

BRW 

BsbW 

BNeq 

Brw 

ClrL 

BbC 

EXTZV 

M0VZ8L 

CMPL 

BLeqU 

BrW 

MovB 

MOVZBL 

ADDW2 

BBC 

MOVZWL 

SU8L3 

ADDL3 

BRB 



Get Attributes 
L A T NAME.R3 
L A GET LINE 
ROJOJ 
ERROR.EXIT 

Parse Device 

20$ 

Bad Name 

R2 

#Ptd$V Unit, - 



30$ 



Name F lags(Fp) , 
#16,#T6,R0,R2 
MAX UNJT(FP),-(SP> 
R2,T$P)+ 
30$ 

BadJJmXExc 
R2 f Hp$B Drive(R11) 
R0,R0 " 
R0,2(R8) 

*HP$V NAME , HP$B F L AGS (R1 
HP$W 3lZE(R11),R2 
fHPSF NAMELEN,R2,R2 
R2,R1T,R2 
37$ 



MOVAB HP$T_DEVICE(R1U,R2 

ADDL3 #1,R0,HP$G DEVICE (R11> 

M0VA8 (R2),HP$Q BEVI CE+A <R1 1 > 

M0V8 #*A M J',<R2) + 

MOVB (R1)+.(R2)+ 

SOBGTR R0.40$ 

ADDL 03,R1O 



Set up rest of local block 
prompt string 
Get something 
Branch if not error 
Take error exit 

Get this new device name 
Skip if OK 
Branch if invalid 
Initial unit number 
Branch it no unit allowed 

Get unit number 
Set for longword compare 
Check full unit number 
Branch if OK 
Branch to error routine 
Move to Ptable 

Isolate length of device name 
Increase length used so far 
),35$ ; if long device name? 
get size o* Potable 
determine offset 

address to store long device name 
continue as before 

address to store device name in pt 

Store length of ascic name 

Store address of " " in device name 

Insert ' _" physical device indicator 

Copy byte 

Copy whole string 

Point past max unit number and nauie 



CI 73 
[101 
[133 



[17] 
[173 
C17J 
[17] 
£17] 
C17J 
[263 
C26] 
[26] 
C17] 
[17] 
C17D 



[28] 
C28] 

[28] 
[28] 



ZZ-ENSAA-7.0 

ATTACH 
07-27 



Get name 



7E 



0612 l CF 
02 A8 



processina 








F 3 

27-JUI-1984 Fiche 2 Frame F3 Sequence 237 




*** 


ATTACH 


Handle 


ATTACH command 27-JUL-1984 15:01:41 V/^ 11 Macro V03-01 Page ii) 




Get 


name processi 


ng 


23-MAY-1984 14:09:26 DMA 4 , :[SYSQ.$YSMAINT]ATTACH.flAR;92 (1) 






03E9 


703 




i 


: 54 


7D 


03E9 


704 




M0VQ R4,-(SP) 


length/address of remaining input 


66 


7F 


03EC 


705 




PUSHAQ (R6) 


• Address cf pro/r.pt descriptor 


04 AE 


7F 


03EE 


706 




PUSHAQ 4(SP) 


• Address of descriptor 


5B 


DD 


03F1 


707 




PUSHL R11 


* Base of P-table 


5A 


DD 


03F3 


708 




PUSHL R10 


• Start of PT-desc 


F 04 


F8 


03F5 


709 




CALLS #4,W A PT$JNTERPRET 


• Do PT-descriptor interpretation 


02 AE 


AO 


03FA 


710 




ADDW2 2<SP),2(R8) 


• Include length used 



G 3 

ZZ-ENSAA-7.0 Get name processing 27-JUL-1984 Fiche 2 Frame 63 Seguence 238 

ATTACH *** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-OT Page 21 

07-27 Get name processing 23-MAY-1984 14:09:26 DMA1:CSYS0.SYS«AINT3ATTACH.«AR;92 (2) 

5E 08 CO 03FF 712 ADDL #8,SP ; Remove descriptor 

OB 50 E9 0402 713 BL8C R0, ERROR EXIT ; Take error exit if failed 

00001064'EF 6B FA 0405 714 CALLG (R11) ,L A lNS$!HA8LE ; insert it C10] 

01 50 E9 040C 715 BL8C RO, ERROR EXIT ; Failed take error exit 

04 040F 716 RET 

0410 717 

0410 718 ERROR EXIT: 
50 00 0410 719 " PUSHL RO ; Save error code 



ZZ-ENSAA-7»0 

ATTACH 

07-27 



Get name 



processing 



ATTACH Handle ATTACH command 
Get name processing 



H 3 
27-JUL-1984 



68 02 A8 

50 5B 

06 

00000000'EF 

50 



3C 
DO 
13 
16 

8ED0 
04 



0412 

0416 
0419 
0419 
0421 
0421 
0424 



721 

723 
724 
725 
726 
727 



10$; 



MOVZWL 
MOVL 
BEQL 
Jsb 

POPL 
RET 



27-JUL-1984 
23-MAY-1984 

2<R8),(R8) 

rii,rO 

10$ 
L A EXE$DEAWNPAGED 

RO 



Flche 2 Frame H3 



Seguence 239 
15:01:41 VAX-11 Macro V03-O1 Page 

14:09:26 DMA1 :[SYS0.SYSMAINT]ATTACH.MAR;92 



22 
(I) 



; Return Length used 

; Cop t y address of buffer 

; Skip if none 

; Release it 

; Restore error code 



naj 



ZZ-ENSAA-7.Q 

ATTACH 

07-2? 



Get device 



FD 



OOFC 

FF 

EB 

FE 

5/ F9 

50 

AD 01 

FF AD 



FD AD 

b? 04 A?40 

80 8f 87 



EC AD 09 



8D 8F 

FF AD 

50 

EB AD 

00 67 



50 



F5 AD 
3D 
FF AD 18 



55 04 AO 



54 



60 01 

54 54 

OOOOOOOO'EF 

23 

5? 50 01 

02 52 



attributes 

*** ATTACH 
Get device 



0425 
0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

C425 

0425 

0425 

0425 

0425 

0425 

0425 

0425 

BB 0425 

94 0429 

94 042C 

94 042F 

DO 0432 

9A 0436 

90 0439 

13 043F 

90 0441 
0445 

97 0445 
9E 0448 

91 044D 
12 0451 
91 0453 

12 0457 
90 04 59 
9A 04 5D 
90 0460 
2C 0464 

0468 

04 68 

DO 046B 

13 046F 
93 0471 

0475 
13 0475 
C1 0477 

047C 
A3 047C 
3C 0480 
16 0483 
13 0489 
C3 0488 
D1 048F 



8F 
AD 
AD 
AD 
AD 
87 
A740 
07 
01 



5B 
87 
55 
8? 
87 
50 
50 



37 
01 



Handle ATTACH 
attributes 



command 



I 3 

27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame 13 



15:01:41 
14:09?26 



Sequence 240 
VAX-11 Macro V03-0T Page 23 
DMA1:CSYS0.SYSMAINT3ATTACH.MAR;92 (3) 



729 

730 

731 

7*2 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

76? 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 



.Subtitle 



Get device attributes 



Functional 



Description: 



This routine is called by DSXSATTACH to set up the local 
storage block with the information on generic name to 
enforce, maximum number of units, etc. If running from 
a script, APT, or if there is no $DS_$NAME directive in 
the PTABLE descriptor, it will cause behavior similar to 
the previous ATTACH— i.e., there will be no enforced 
generic names, and the PTDSV UNIT bit will be set iff 
flAX^UNIT is greater than 0. 

Inputs and Outputs for this routine are in the local storage 
block allocated at the beginning of DSXSATTACH. It also references 
both the parent Ptable (if any) and the current Ptable descriptor, 
through pointers stored in said local block. 



GetJUtributes: 
PushR 
ClrB 
ClrB 
ClrB 
MovL 
MovZBL 
MovB 
BEqlU 
MovB 

DecB 
10$: MovAB 
CmpB 
BNeq 
CmpB 
BNeq 
MovB 
MovZ8L 
MovB 
MovC5 



Movl 
BEql 
Bit8 

BEql 
AddL3 

SubW3 

MovZWL 

Jsb 

BEql 

SubL3 

Cmpl 



* A M<R2 f R3,R4,R5,R6,R7> 

Name.jlags(Fp) 

Generic (Fp) 

Parent Controller(fp) 

PtDescTFp), R7 

(R7)+, R0 

1(R7)CR0D, Max Unit(Fp) 

10$ 

#Ptd$M Unit, - 

Name Flags(Fp) 
Max Unit(Fp) 
4(R7)CR0J, R7 
<R7)+, #PD$_Start 
20$ 

(R7)+, 0PD$ Name 
20$ 

(R7)+, Name„Flags(Fp) 
(R7)+, R0 
R0, Generic(Fp) 
R0, (R7), - 

#0, - 

#9, Generic + KFp) 
Parent Ptable(Fp), HO 
20$ 
*Ptd$M Inherit, - 

Name Flags(Fp) 
20$ 
#1, Hp$Q Device+4(R0), - 

R5 
#1, Hp$Q^Device(R0), R4 
R4, R4 

l*Scan$Alpha 
20$ 

#1, R0, R2 
R2, ft? 



Save some registers 

No flags set 

No enforced generic yet 

No enforced controller yet 

Gel Ptable descriptor start 

Get Length of type string 

Fetch maximum unit number 

Branch if old ATTACH said no unit 

If there is no NAME statement, 

.. this device must have unit 

Convert count to max, not max + 1 

Skip all of SDS.SlNlf IALI7F 

Next byte ought to be start code 

Skip out if something's wrong 

Is the next byte start of NARE? 

Skip out if it's not 

Set real name flags 

Get length of generic name 

Sav* length away 

Copy generic string 

. . zero filled 

.. into local storage 

Get parent Ptable 

Exit if attached to HUB 

Check if device should inherit either 

. . name or controller 

Skip if niether bit is set 

Get address of paront name (- •_') 

Get length of same 

Zero extend length 

Scan over alphabecic 

Exit if none th«re (??) 

Get lenqth minus 1 

Generic'should be at least I chars 



17j 
17] 
17J 
*?] 
17] 
171 
17] 
17] 
173 
171 
17] 
19] 
19] 
17] 
17] 
171 
17] 
17] 
17] 
17] 

17] 
17] 
\71 
17] 
17] 
19] 
19] 
19] 
17] 
17] 
1731 
17] 

m 

17 
£17 
C17^ 



7Z-ENSAA-7.Q 

ATTACH 

07-27 



Get device attributes 

*** ATTACH Handle ATTACH command 
Get device attributes 



J 3 

27-JUL-1984 
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1A 
05 FF AD 04 

FE A[> 6U2 

08 FF AD 03 



EC AD 09 



EB AD 

00 61 



52 
52 



00000000'EF 

OB 

EB AD 

FE AD 

FF AD FA 8F 



OOFC 3F 



1F 
E1 

90 
£1 

90 
2C 



E9 

94 
94 
8A 



BA 
05 



0492 


786 


0494 


787 


0499 


788 


0499 


789 


049E 


790 


049E 


791 


04A3 


792 


04A3 


793 


04A7 


794 


04AE 


795 


04AE 


796 


04AE 


797 


04B4 


798 


0485 


799 


C488 


800 


04BB 


801 


04CO 


802 


04C0 


803 


04C0 


804 


04C4 


805 


04C5 


806 



15$: 



20$: 
30$: 



40$: 



BLssU 
BbC 

MovB 

BbC 

MovB 
MovC5 

BlbC 

ClrB 
ClrB 
B1cB2 



PopR 
flsb 



20$ 

#Ptd$V Inherit Con, - 
Name FlagsCFpT, 15$ 

(RDCR23, - 
Parent Controller(Fp) 

#Ptd$V Inherit Pre. - 
Name_Flags(Fp7, 20$ 
R2, Genenc(Fp) 
R2. (RD, - 

*6. - 

*9, Generic+1 (Fp) 
L A Ds$GB Inhibit Naming, 

40$ " 
Generic(Fp) 
Parent Con t roller (Fp) 
# A C<Pta$M Unit ! - 

Ptd$M Name>, - 

Name Flags(Fp) 
rf A M<R2,R3,R4,R5,R6,R7> 



Don't use if not valid generiv form 
Don't use controller letter if 
. . not supposed to 
Store parent's controller letter 

Don't use prefix if shouldn't 

.. inherit it 

If valid, use parent name as generic 

Copy to Generic, fill with 



If should not enforce naming 

*. then no enforced generics 
.. or controller 
.. and allow only unit and name 
.... flags 

Restore registers 
Return 



IV 

CI'. I 

n. i 
n.-j 
nn 

c n 

irn 

C171 

it?: 

CIV] 

ri9i 
cm 

f'17] 

tir.i 

C17I 
C1 'J 
L*1/J 

1.17.1 



2Z-ENSAA-7.0 


parse device name 


ATTACH 






*** A 


07-27 






parse 






50 


04 






54 


D5 






OF 


15 




41 8F 


65 


91 






08 


19 




5A 8F 


65 


91 






02 


14 






50 


D6 
05 



57 
04 
58 



OOFF 
FF 

AE 
57 

50 



24 



55 



F8 
04 



8F 
AO 
55 
02 
54 

85 
09 
50 
AE 
12 



ATTACH Handle 
device name 



ATTACH command 



K 3 

27-JUL-1984 



27-JUI-1984 
23-MAY-1984 



Fiche 2 Frame K3 Seguence 242 
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B8 
9A 
DO 
EO 
DO 

91 
13 
F5 
DO 
11 



04C5 


808 


04C5 


809 


04C5 


810 


04C5 


811 


04C5 


812 


04C5 


813 


04C5 


814 


04C7 


815 


04C9 


816 


04CB 


817 


04CF 


818 


04D1 


819 


04D5 


820 


04D7 


821 


C4D9 


822 


04DA 


823 


04DA 


824 


04DA 


825 


04DA 


826 


04DA 


827 


04DA 


828 


04DA 


829 


04DA 


830 


04DA 


831 


04DA 


832 


04DA 


833 


C4DA 


834 


04DA 


835 


04DA 


836 


04DA 


837 


04DA 


838 


04DA 


839 


04DA 


640 


04DA 


841 


04DA 


842 


04DA 


843 


04DA 


844 


04DA 


845 


04DA 


846 


04DA 


847 


04DA 


84* 


04DA 


849 


04DA 


850 


04DA 


851 


04DA 


852 


04 DA 


853 


04DE 


854 


04E2 


855 


04F6 


856 


04EA 


857 


04ED 


858 


04ED 


859 


04F0 


860 


04F2 


861 


04F5 


862 


04F9 


863 


04F8 


864 



♦sbttl parse device name 

; Small routine to save hassle in checking for alphas 



if_alpha: 



10$: 



Clrl 

tstl 
bleq 

cmpb 
blss 
cmpb 
bgtr 
mcl 
rsb 



rO 

r4 

10$ 

<rS>, 

10$ 

<r5), 

10$ 

rO 



* A A"A" 
# A A , 7 M 



Assume bad 
Any string left? 
Branch if not 
Check for alpha 
Branch 'if not 

Branch if not 
It's OK 
Return 



This routine parses a device name. It's output is the ssme as that for 
the SCAN$DEVICE routine in PARSE. However, it takes into account the 
generic name and flags of the NAME r-ta'.ement in parsing. This routine 
can handle device names of the form 'nodeSggan 1 . 



NOTE: This code assumes that If the PTDSVJNHERITED flag is set, the link 
device will hav« a controller letter. If there fs ever a chain of 
devices for which this might not be true, the code must be changed. 

Inputs: 

R4 => remaining length of input string 
R5 => address of remaining input string 



Outputs: 
R0 

R1 
R2 



=> 



low word length of device name which was parsed (0 if none) 

high word has device unit number (-1 if none) 
address of device name (input R5) 
Success code: 



R4 
R5 






= OK (no errors found: may not 

1 = error in generic prefix 

2 = error in controller 

3 = error in unit number 

4 = error in node name format 
updated past device name (if any) 
updated past device name (if any) 



be any name at all) 



parse.device: : 
pushr 
MovZBL 
movl 
bbs 
H0VL 



1$: 



# A M<r0,r1 ,r2,r3,r4,r5,r6.r7> ; Save registers 

Name Flaqs(Fp) , R7 ; Get flags conveniently local 

r5, ?(sp; ; Set saved R1 to start of string 

#ptdtv_name, R7, 40$ ; Handle differently if it's node name 

R4,R0 ; use for index 



2$: 



CMPB 

BEGL 

SOBGrR 

MOVL 

BR8 



(R5) + ^ A A'T 

2$ 

R0,1$ 

4(SP),R5 

5$ 



check for new device name format 
if new format then 2$ 
do for all name length 
restore input string oointer 
continue as before 



[17] 
[173 
[173 
C173 
[173 
[173 
[173 
[173 
[173 
[173 



[173 
[173 
[173 
C173 
[173 
C283 

£28 
[28 

[28 



7Z-ENSAA-7.0 

ATTACH 

07-27 



parse device 



name 



ATTACH Handle 
parse device name 



ATTACH command 



L 3 

27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame L3 



Sequence 243 
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14:09:26 DMA1 :[SYS0.SYSMAINIT3ATTACH.HAR;92 



OA AB 04 

55 04 AE 
08 AF 04 

53 OA 
00B2 

08 AE 01 

52 

51 EB AD 

50 81 

03 

0088 

54 

7D 

85 81 

78 

54 

F2 50 

08 AE 

57 01 

11 

8F 

22 50 

64 52 

54 

55 

19 

0073 

FF 70 

55 50 

54 

50 85 

56 FE AD 



56 



05 
50 
45 



08 AE 

00000000' EF 

09 

36 57 00 

50 01 

04 



6E 



2D 
02 
55 



57 
AE 



14 



3A 



20 



00 
50 
AE 
54 
13 
54 
85 
OC 
54 
75 
05 



88 
DO 
DO 
DO 
31 

DO 
D4 
9E 
9A 
12 
31 
D5 
15 
91 
12 
D7 
F5 
D6 
EO 

10 
E9 
F9 
D7 
D6 
11 
31 

30 
E9 
D7 
9A 
9A 

13 
D1 
12 

D6 
16 
12 
EO 
CE 
11 

El 
BO 
A3 
D5 
15 
D7 
91 
13 
D6 
91 
13 



04FB 

04FF 

0503 

0507 

050A 

050D 

050D 

0511 

0513 

0517 

051A 

051C 

051F 

0521 

C523 

0526 

0528 

052A 

052D 

0530 

0533 

0534 

0536 

0539 

053C 

053E 

0540 

0542 

0545 

0545 

0548 

0548 

054D 

0550 

0554 

0554 

0556 

0559 

055B 

0558 

05SE 

0564 

0566 

056A 

056D 

056F 

056F 

0573 

0577 

057C 

057E 

0580 

0582 

0585 

0587 

0589 

058C 



865 
866 
867 

868 
869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 



5$: 



10$: 



20$: 



30$: 



40$: 
50$: 



60$: 



70$: 
80$: 



BJSB2 

MOVL 

MOVL 

MOVL 

BRW 



#HP$M NA«E,HP$BJLA6S(R11) ; we have a long device name 
4(SP)7R5 ; restore input string pointer 

M L 8(SP) ; condition error code 

#10,R3 ; max length for'node'of 'node$ggan'name 

122i ; go to 122$ 

Assv.iie prefix error in saved R2 

Flag for un-enforced prefix devices 

Get address of enforced generic 

.. and it's length 

Branch if OK to check 

No enforced generic for this device 

Any string lei ? 

Error if none 

Compare a byte 

No good if mi^atc.i 

Count the byte we checked 

And I oo" til we're done 

Increment saved R2 

Is there supposed to be a controller? 

...if so, check for it 

Js next character an alpha? 

If not, then we're OK— check unit 

If enforced prefix, that's an error 

Skip over the backtracked byte 

Check unit number 

Just a step for a bbs 

Need controller letter 

Check next character 

Error if not a letter! 

Want to lose this 

Get controller letter 

Get correct letter 

.. into R6 

Not specified, check unit 

Compare them 

Error if not equal 

Check for unit 

Increment assumed error code 

Is there a number here? 

Branch if was 

Error if wasn't, and needed one 

Set no unit number code in R0 

Join common 

Found a unit number 

Error if was, and didn't want one 

Set high word of saved R0 

Calculate length of name found 

Check for more characters 

Really OK either way,.. 

Assume we'll want next character 

Is it a colon? 

That's cool, a colon feels just fine 

Don't want next character, elsewise 

Is next a space? 

Can be terminated by space 



movl 


#1, 8(sp) 


clrl 


r2 


MovAB 


Generic(Fp), P1 


MovZBL 


(R1)f # R0 


bneq 


20$ 


brw 


110$ 


tstl 


r4 


bleq 


100$ 


cmpb 


(r1) + , (r5)+ 


bneq 


100$ 


dec I 


r4 


subgtr 
incl 


rO, 20$ 


8(sp) 


bbs 


*ptd$v controller, - 
R7, 50$ 




bsbb 


if. alpha 


blbc 


r07 60$ 


blbc 


r2, 100$ 


dec I 


r4 


incl 


r5 


brb 


60$ 


brw 


120$ 


bsbw 


if alpha 
rO, 100$ 


blbc 


decl 


r4 


movzbl 


<r5>+, rO 


MovZBL 


Parent Controller(Fp), - 




R6 


beql 


60$ 


cmpl 
bneq 


rO. r6 

106$ 



incl 8(sp) 

Jsb L A scar ( $decimal 

bneq 70$ 

bbs #ptd$v_unit, R7, 100$ 

mnegl #1. rO 

brb 80i 

bb: #otd$v_unit, R7, 100$ 

movw rO, 2(sp) 

subw3 20(sp), r5, (sp> 

tstl r4 

bleq 90$ 

dec I r4 

cmpb (r5)+, #*A M :" 

beql 90$ 

incl r4 

cmpb -<r5), #*A" " 

beql 90$ 



26 
(3) 

281 

281 

281 

17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17^ 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17] 
17! 

17: 
17: 
17: 



ZZ-F.NSAA-7.0 

ATTACH 

07-27 



parse device 



name 
*** 



09 



65 
0D 



10 



AE 54 

OOFF 8F 

52 

50 



OOFF 



8F 
50 



53 



52 



08 AE 
53 



57 



02 
AE 
F2 
55 
54 
01 
FF75 

04 
06 

45 
OD 
50 
D9 
03 



ATTACH Handle 
parse device name 



ATTACH command 



M 3 
27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fie he 2 Frame M3 



Sequence 244 
15:01:41 VAX-11 Macro V03-01 Page 
14:09:26 DMA1 :[SYS0.SYSMAINT]ATTACH.MAR;92 



91 
12 

7D 
BA 
D4 
B5 
05 

BA 
7C 
05 

DO 
10 
19 
07 
D6 
DO 
31 

DO 
DO 

10 
1A 
B5 
15 
D3 





27 


13 




54 


D5 




1E 


15 




24 65 


91 




IE 


12 




55 


D6 




54 


D7 




34 


BB 


52 


OC A8 


9E 


82 


5f 8F 


90 




20 65 


91 




06 


13 




82 85 


90 




F5 54 


F5 




34 


BA 




FF1A 


31 


50 


Ff 8r 


98 




FF79 


31 




08 


B3 


00000000' EF 


16 



058E 

0591 

0593 

0593 

0597 

059B 

059D 

059F 

05A0 

05A0 

05A4 

05A6 

05A7 

05A7 

C5AA 

05AC 

05AE 

05B0 

0582 

0585 

0588 

0588 

05BC 

05BF 

05BF 

05C1 

05C3 

05C5 

05C7 

05CA 

05CC 

05CE 

05D0 

05D3 

05D5 

05D7 

05D9 

05D3 

05DF 

05E3 

05E3 

05E6 

05E8 

05EB 

05EE 

05EE 

J5F0 

05F3 

05F7 

05FA 

O^FA 

05FA 

05FA 

05FA 

05FA 

05FA 

05FC 



922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

043 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

066 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 



90$: 



100$: 



110$: 



120$: 



122$: 



128$: 



129$: 



135$: 



empb 
bneq 

movq 
popr 
Ctrl 
tstw 
rsb 

popr 
clrq 
rsb 

movl 
bsbb 
blss 
dec I 
incl 
movl 
brw 

movl 
movl 

bsbb 

BGtrU 

TstW 

Bleq 

BITL 

BEQL 

TSTL 

Bleq 

CMPB 

BNEQ 

INCL 

DECL 

PUSHR 

MOVAB 

MOVB 

CMP8 
BEQL 
MOVB 
S08GTR 

POPR 
BRW 
Cvt8L 
BRW 



(r5), # h x9 
100$ 



r'i, 16(sp) 

* A M<rO,r1,r2,r3,r4,r5,r6 

r2 

rO 



# A M<rO,r1,r2,r3,r4,r5,r6 
rO 



*2. r3 

scan alpha 

100$ 

r5 

r4 

#1, r2 

30$ 

#4, 8(sp) 
#6, rl 

scanalphanum 

100$ 

RO 

100$ 

#PTD$M_CONTROLLER!PTD$M, 

135$ 

R4 

129$ 

(R5),# A A M $ M 

135$ 

R5 

R4 

# A M<R2,R4,R5> 

HP$T DEVICE(R11),R2 

^ A A M I"^R2) + 

(R5),# A A M " 
129$ 

CR5)+ i (R2)+ 
R4,12§$ 

# A M<R2,R4,R5> 
5$ 

#-1, RO 
80$ 



'unit number' 
return stuff 



Is it a tab? 

Otherwise, may be hex 

Here's the successful 

Update saved pointers 
r?> ; Restore the registers 

No error found 

Check for anything found 

And return happily 

Error return 
r?> ; Restore registers 

Act as if nothing found 

and return 

Here if no enforced prefix 

Set min length for generic 

Check string 

If too few, error 

Backup for controller check 

set flag 

Check controller 

Node name check 

Give back node name error code 

Maximum length of node name 

; Check it 

; Branch if error 

; Check for zero length, too 

; Error if nothing 

UNIT, R7 ; Check Tor more Held proc'g 

Branch if not 

Anything left ? 

Branch if not 

should be '$' 

Branch if not. 

Skip '$'. 

Skip character 

save registers 

pointer to device name 

insert '_' physical device indicator 

; are we finished ? 

; then go to 129$ 

; copy byte 

; do for whole string 

; restore registers 

;Check for other enforced functions. 
; Set to return 'no u»iit number* 
; OK if less than 



Small routine to call scan$alpha and compare return length 



scan_alpha: 

pushr 
Jsb 



* A M<r3> 

L A scan$alpha 



Save the compare length 
Call PARSE scan routine 



27 
(3) 

[17: 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
C17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 
[17] 

[24] 
[17] 
[17] 
[17] 
[26] 
[26] 
[26] 
[26] 
[28] 
[26] 
[26] 
[26] 
[28] 
[28] 
[28] 

[28] 
[28] 
C28] 
[28] 

[28] 
[26] 
[17] 
[17] 




ZZ-ENSAA-7.0 

ATTACH 

07-27 



parse device 



name 

<** ATTACH Handle 
parse device name 



8E 50 



D1 
05 



08 

00000000' EF 

8c 50 



BB 
16 
D1 
05 



0602 
0605 
0606 
0606 
0606 
0606 
0606 
0606 
0608 
060E 
0611 



ATTACH command 



N 3 

27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame N3 



Seguence 245 
15:0174 i VAX-11 Macro V03-0T Page 28 
14:09:26 DMA1 :CSYS0.SYSMAJNTDATTACH.MAR;92 (3) 



979 
980 

981 ; 

982 ; 

983 ; 
984 

985 sc 
986 
987 
988 
989 



cmpl 
rsb 



; Do comparison 
; Return 



rO, (sp)+ 
Small routine to call scan$alphanum and compare return length 



an_alphanum: 
pushr 
Jsb 
cmpl 
rsb 



# A M<r3> 

L A scan$alphanum 
r0, (sp)+ 



Save the compare length 
Call PARSE scan routine 
Do comparison 
Return 



C17] 
£171 



C24] 
[24] 
[24] 
L*2*] 
[24] 



ZZ-ENSAA-7.0 

ATTACH 

07-27 



PT INTERPRET Decode PT-descriptor 

*** ATTACH Handle ATTACH command 
PT INTERPRET Decode PT-descriptor 



27-JUL-1984 Fiche 2 Frame 
27-JUL-1984 15:01:41 
23-MAY-1984 14:09:26 



B4 Sequence 246 
VAX-11 Macro V03-01 Page 29 
DMA1:CSYS0.SYSMAINT3ATTACH,MAR;92 (3) 



0612 


991 


0612 


992 


0612 


993 


0612 


994 


0612 


995 


0612 


996 


0612 


997 


0612 


998 


0612 


999 


0612 


1000 


0612 


1001 


0612 


1002 


0612 


1003 


0612 


1004 


C612 


1005 


0612 


1006 


0612 


1007 


0612 


1008 


0612 


1009 


0612 


1010 


0612 


1011 


0612 


1012 


0612 


1013 


0612 


1014 


0612 


1015 


0612 


1016 


0612 


1017 


0612 


1018 


0612 


1019 


0612 


1020 


0612 


1021 


0612 


1022 


0612 


1023 


0612 


1024 


0612 


1025 


0612 


1026 


0612 


1027 


0612 


1028 


0612 


1029 


0612 


1030 


0612 


1031 


0612 


1032 


0612 


1033 


0612 


1034 


0612 


1035 


0612 


1036 


0612 


1037 


0612 


1038 


061? 


1039 


0612 


1040 


0612 


1041 



.S8TTL PT. INTERPRET Decode PT-descn'ptor 



++ 
FUNCTIONAL 



DESCRIPTION: 



This routine is used to interpret the P-table descriptor 
which builds the P-table for the current unit. 
Each OP code is examined and executed. If during the 
execution input text is required, the input string is examined 
if the string is empty the input routine is called to get input 

CALLING SEQUENCE: 

PTSINTERPRET (INJTPC, BASE, TEXT, PROMPT) 

INPUT PARAMETERS: 

INITPC Initial PC for interpretation 
BASE Base for data storage 
TEXT Address of Quad descriptor of text 
PROMPT Address of buffer to receive ASCIC prompt text 
if failure 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

P-table effected by intpretation of PT-descriptor 

REGISTER USAGE: 

R0 Length of compare string/scratch 

R1 Address of compare string/scratch 

R2 Current index in PD^STRJfiG/scratch 

R3 Remaining length in PD^STRING/scratch 

R4 Length or input string"* 

R5 Address of input string 

R6 Address of prompt string descriptor 

R8 Address of input descriptor 

R9 Current VALUE 

R10 Virtural PC for P-table intpretation 

R11 Base of P-table 

COMPLETION CODES: 

SSS.N0RMAL 
SS$ 8ADPARAM 
SS$IINSFARG 



C 4 

ZZ-ENSAA-7,0 PT INTERPRET Decode PT-descriptor 27-JUL-1984 Fiche 2 Frame C4 Seguence 247 

ATTACH " *** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-01 Page 30 

07-27 PTJNTERPRET Decode PT-descriptor 23-MAY-1984 14:09:26 DMA1 .*CSYS0.SYSHAJNTJATTACH.MAR;92 (3) 

0612 1043 

0612 1044 S0FFSET A, POSITIVES - 

0612 1045 <1ARG$J>C,4>,- 

0612 1046 <IARG$..BASE,4>,- 

0612 1047 <1ARG$..TEXT,4>,- 

0612 1C48 <IARG$J>R0MPT,4» 

0004 JARGS^PC: 

0008 IARG$ BASE: 

000C IARG$lTEXT; 

0010 I ARG$ PROMPT: 

0612 1049 

0612 1050 SOFFSET 0, NEGATIVES - 

0612 1051 <OLDPC,4>,- 

0612 1052 <DESC,8>.- 

C612 1053 <8UFFER,132>,- 

0612 1054 <LOCAL,0» 

FFFC OLDPC: 

FFF4 DESC: 

FF70 BUFFER: 

FF70 LOCAL: 

0612 1055 



J 



2Z-ENSAA-7.0 


PT. INTERPRET Decode 


PT-descriotor 




D 4 

27-JUL-1984 F 


ic 


he 2 Frame D4 Seguence 248 

:01:41 VAX-11 Macro V03-01 Page 31 


ATTACH 






*** 


ATTACH 


Hand I 


e ATTACH command 27-JUL-1984 


15 


07-27 






PTJNTERPRET Decode 


PT-descriptor 23-MAY-1984 


14 


:09:26 DMA1 :[SYS0.SYSMAINT]ATTACH.MAR;92 (5) 








OFFC 


0612 
0612 


1057 
1058 


.ENTRY PT$]NTERPRET,*M<R2,R3,R4,R5,R6.R7,R8,R9,R10,R11> 










0614 


1059 














5E FF70 


CD 


9E 


0614 


1060 




MOVAB 


LOCAL(FP) f SP 




; Allocate space for local storage 




F8 AD FF70 


CD 


9E 


0619 
061 F 


1061 
1C62 




MOVAB 


BUFFER(FP),DESC+4(FP) 




; Address of buffer to descriptor 




58 OC 


BC 


7E 


061 F 


1063 




MOVAQ 


aiARGS TEXT(AP),R8 




; Get address of text descriptor 




54 


68 


7D 


0623 


1064 




MOVQ 


(R8),R5 




; Fetch descriptor 




54 


54 


3C 


0626 


1065 




MOVZWL 


R4,R4 




; Be sure we only use word of length 




56 10 


BC 


7E 


0629 


1066 




MOVAQ 


aiARGS PR0MPT(AP),R6 




; Set address of prompt string 




5A 04 


AC 


DO 


062D 


1067 




MOVL 


IARG$_PC(AP),R10 




; Get initial PC 




5B 08 


AC 


DO 


0631 


1068 




MOVL 


I ARCS BA$E(APKR11 

#pd$ Start, (R10) 




; Base of P-table 




6A 80 


8F 


91 


0635 


1069 




CMPB 




; Must start with start OP 






25 


12 


0639 


1070 




BNEQ 


BADPARAM 




; Branch if not 










C63B 


1071 


INTERPRET: 










FC AD 


5A 


DO 


0638 


1072 




MOVL 


R10,OLDPC(FP) 




; Incase of backup 










063F 


1073 




CASE 


SRC=(R10)+,TYPE=8, LIMIT 


=#PD$_START t DISPLIST=< - 










063F 


1074 






PD.START, - 














063F 


1075 






PDJINISH, - 














063F 


1076 






PD.DECIMAL, - 














063F 


1077 






PD.OCTAL, - 














063F 


1078 






PD_HEXADECIMAL, - 














063F 


1079 






PD_STRING, - 














063F 


1080 






PD.LITERAL, - 






1 








063F 


1081 






PD.FETCH, - 






i 








063F 


1082 






PD„STORE, - 






i 








063F 


1083 






PD..COMPLEMENT, - 






f 








063F 


1084 






pd_add, - 




; Add statment C09] 


) 








063F 


1085 






pd_logical, - 




; Logical prompt statment [09] 


i 








063F 


1086 






pd_case, - 




; Case statement C09] 


i 








063F 


1087 






pd_name> 




; Name directive C173 










0660 


1088 


BADPARAM: 








! 


50 


14 


DO 


0660 


1089 




MOVL 


S A #SS$_BADPARAM,RO 




; Bad PT-desc 


■ 






04 


0663 
0664 
0664 


1090 
1091 
1092 


PD. 


RET 
START: 






; Return 




59 


01 


CE 


0664 


1093 




MNEGL 


#1,R9 




; Initialize to minus 1 


I 




D2 


11 


0667 
0669 
0669 


1094 
1095 
1096 


PD. 


BRB 
.FINISH: 


INTERPRET 




; Next 




50 


01 


DO 
04 


0669 
066C 
066D 


1097 
1098 
1099 




MOVL 
RET 


S A #SS$.N0RMAL,R0 




; It worked 










066D 


1100 PD 


.LiTERAL: 










59 


8A 


DO 


066D 


1101 




MOVL 


<R10)+,R9 




; Set current value 






C9 


11 


0670 
0672 
0672 


1102 
1103 
1104 


PD. 


BR8 
FETCH: 


INTERPRET 




; Next! 




50 


8A 


3C 


0672 


1105 




MOVZWL 


(R10)+,R0 




; Get byte offset 




51 


8A 


9A 


0675 


1106 




M0VZ8L 


(R10)+,R1 




; Bit offset 




52 


8A 


9A 


0678 


1107 




MOVZBL 


(R10)+,R2 




; Field size 


59 


6840 52 


51 


EF 


0678 


1108 




Exiiy 


R1,R2,(R11)[R03,R9 




; Get field 






B8 


11 


0681 
0683 
068? 


1109 
1110 
1111 


PD. 


BRB 
STORE: 


INTERPRET 




; Next! 




50 


8A 


3C 


0683 


1112 




MOVZWL 


(R1O + .R0 




; Get byte offset 


i 


51 


8A 


9A 


0686 


1113 




MOVZBL 


(R10)+,R1 




; Bit offset 



7Z-ENSAA-7,0 PT. INTERPRET Decode 


PT-descriptor 




E 4 

27-JUL-1984 


f 


*iche 2 Frame E4 Sequence 249 
15:01:41 VAX-11 Macro V03-01 Pac 




ATTACH 




*** 


ATTACH 


Handle ATTACH command 27-JUL 


-1984 


>e 32 


07-27 




PTJNTERPRET Decode PT- 


descriptor 23-MAY 


-1984 


14:09:26 DMA1 tCSYSO.SYSMAINTJATTACH.MAR, 


92 (3) 


5? 


8A 


9A 


0689 


1114 


MOVZBL 


(R10)+,R2 




, Field size 




6B4Q 52 51 


59 


FO 


068C 


1115 


INSV 


R9,R1,R2,(R11)CRQ3 


; Insert the field 






A7 


11 


0692 
0694 


1116 

1117 


BRB 


INTERPRET 














0694 


1118 PD,COMPLEMENT: 










59 


59 


D2 


0694 


1119 


MCOML 


R9,R9 




; Complement value 






A2 


11 


0697 
0699 
0699 


1120 
1121 
1122 PD ADD? 


BRB 


INTERPRET 




; Next function 




50 


8A 


3C 


0699 


1123 " 


MOVZWL 


(R10)+,R0 




; Get byte offset 




51 


8A 


9A 


069C 


1124 


MOVZBL 


(R10)+,R1 




; Get bit offset 




52 


8A 


9A 


069F 


1125 


MOVZBL 


(R10)+,R2 




; Field size 




53 6B40 52 


51 


EE 


06A2 


1126 


EXTV 


R1,R2,(R11KR0],R3 


; Get sign extended field value 




53 


59 


CO 


06A8 


1127 


ADDL 


R9,R3 




; Add in current value 




6B40 52 51 


53 


FO 


C6AB 


1128 


INSV 


R3,R1,R2,(R11)CR0] 


; Put field back 






88 


11 


06B1 
06B3 


1129 
1130 


BRB 


INTERPRET 




; Next function 










06B3 


1131 pd Logical: 






; Process LOGICAL 


C093 


52 


5E 


DO 


06B3 


1132 " 


movl 


sp, r2 
rl6, r3 




; Save stack pointer 


[09] 


53 


5A 


DO 


06B6 


1133 


movl 




; Get address of prompt string 


[09] 


00000A4D 


% U 


16 


06B9 


1134 


Jsb 


L A get line 




; Get data 


[18] 


68 


50 


E9 


06BF 


1135 


blbc 


rO; 50$ 




; Exit immediately if error 


[09] 


OOOOOOOO'EF 


16 


06C2 


1136 


Jsb 


L A scan$alpha 




; Read alpha string 


[18] 




41 


13 


06C8 


1137 


beql 


40$ 




; Error if none 


[09] 


53 


50 


DO 


06CA 


1138 


movl 


rO. r3 




; Save length read 
; Assume 'no' 


[09] 




59 


D4 


06CD 


1139 


clrl 


r9 




[09] 


7E 4F4E 


8F 


BO 


06CF 


1140 


movw 


# A A M NO M , -(sp) 




; Push on 'no' to check 


[09] 


7E 


02 


90 


06D4 


1141 


movb 


#2, -(sp) 
(r1), **A M N ,t 




; Make it ASCIC 


[09] 


4E 8F 


61 


91 


06D7 


1142 


cmpb 




; Does it really start with an 'n 1 ? 


[09] 




OB 


13 


06DB 


1143 


beql 


10$ 




; Yep— verify 


[09] 


5E 


52 


DO 


06DD 


1144 


movl 


r2, sp 




; Restore stack 


[09] 




59 


D6 


06E0 


1145 


incl 


r9 




; It's a 'yes' or nothing 


[09] 


53455903 


3F 


DD 


06E2 


1146 


pushl 


*3+< A A M YES"a8> 




; Push on ASCIC 'yes 1 


[09] 


50 


8E 


9A 


06E8 


1147 10$: 


movzbl 


<sp)+, rO 
r3, rO 
40i 




; Get the length 


[09] 


50 


53 


D1 


06EB 


1148 


cmpl 




; Is input too Long? 


[09] 




18 


14 


06EE 


1149 


bgtr 




; If so, error 


C09] 


50 


53 


DO 


06F0 


1150 


movl 


r3, rO 
<r1)+, (sp)+ 




; Copy to destructable it 


[09] 


8E 


81 


91 


06F3 


1151 20$: 


cmpb 




; Compare bytes 


[09] 




13 


12 


06F6 


1152 


bneq 


40$ 




; Error! 


[09] 


F8 


50 


F5 


06F8 


1153 


sobgtr 
movl 


rO, 20$ 




; Loop on the check 


[09] 


5E 


52 


DO 


06FB 


1154 30$: 


r2 f sp 
<r10)+, rO 
rO, r10 




; Restore stack 


[09] 


50 


8A 


9A 


06FE 


1155 


movzbl 




; 6et length o* prompt 


[09] 


5A 


50 


CO 


0701 


1156 


addl2 




; Skip it 


[09] 


02 A8 


53 


AO 


0704 


1157 


addw 


r3, 2(r8) 




; We've just accepted more of string 


[09] 


FF30 


31 


0708 


1158 


brw 


interpret 




; Back for next statement 


[09] 


5E 


52 


DO 


0708 


1159 40$: 


movl 


r2 x sp 
(rIO) 




; Restore stack 


[09] 




6A 


9F 


070E 


1160 


pushab 




; Address of prompt 


[09] 


00000273 


f EF 


7F 


0710 


1161 


pushaq 


t.yesno 




; 'yes, no' 


[09] 


00000269 


'EF 


9F 


0716 


1162 


pushab 


t^shouldbe 




; 'Should be' 


C09] 


00000281 


'EF 


7F 


071C 


1163 


pushaq 


t string 




; Use invalid string argument 


[09] 


0A75'CF 


04 


FB 


0722 


1164 


calls 


#S, w A format prompt 


; Format prompt return 


[09] 


50 


14 


DO 


0727 


1165 


movl 


#ss$ w badparam. 


rO 


; Invalid parameter 


[09] 






04 


072A 
072B 


1166 50$: 
1167 


ret 








[09] 








0728 


1168 pd case: 






; Case operation 


[09] 


50 


8A 


9A 


0728 


1169 


movebl 


(r10)+, rO 




; Count of cases 


[093 
[09] 




OB 


13 


072E 


1170 


beql 


20$ 




; Exit if none (it's OK, though) 



77-FNSAA-7.0 
M TACH 
L>7*27 



PT INTERPRET Decode PT-descriptor 

*** ATTACH Handle ATTACH command 
PT INTERPRET Decode PT-descriptor 



F 4 

27-JUL-1984 Fiche 2 Frame 

27-JUL-1984 15:01:41 
23-MAY-1984 14:09:26 



F4 Sequence 250 
VAX-11 Macro V03-0T Page 
DMA1:CSYS0.SYSMAINT3ATTACH.MAR;92 



51 
59 



5A 



5A 



50 



8A 

51 

06 

F5 50 

FEFD 

59 52 

F8 AA40 

F3 



01 AA 

02 AA40 

FEE7 



7D 
D1 
13 
F5 
31 
DO 
7E 
11 



9A 
9E 
31 



53 



41 21 


20 


43 


41 


^5 21 


20 


6C 


61 


2F 21 


4C 


55 


21 



OA DO 

008F 30 

21 00000762 , 010E0000 1 

6D 69 63 65 64 20 43 

20 75 72 68 74 20 4C 

20 3F 43 41 21 

53 08 DO 

5F 10 

■M 21 20 43 41 21 00000792*010EOOOO' 

4C 4F 36 21 20 6C 61 74 63 6F 20 43 

?F 21 4C 4F 36 21 20 75 72 68 74 20 

20 3F 43 41 21 

53 10 DO 

2F 10 

41 21 20 43 41 21 000007C2 ' 01 0E0000 ' 

61 6D 69 63 65 64 61 78 65 68 20 43 

21 20 75 72 68 74 20 4C 58 21 20 6C 

20 3F 43 41 21 2F 21 4C 58 



53 

53 5A 

52 5A 

00000A4D , EF 

53 

53 

51 

5A 

57 



50 
8A 
51 
55 
04 
00000000* EF 
04 



57 55 



6A 

04 AA 

59 



22 
57 

51 
1A 
50 
15 
50 
Of 
50 



DD 
DO 
DO 
16 
8ED0 
E9 
9A 
CO 
DO 
B8 
16 
8A 
13 
C3 
D5 
12 
D1 
}F 
D1 
1A 
DO 



0730 

0733 

0736 

0738 

073B 

073E 

0741 

0746 

0748 

0748 

0748 

074C 

0751 

0754 

C754 

0754 

0757 

075A 

0768 

0774 

0780 

0785 

0785 

0788 

078A 

0798 

07A4 

0780 

07B5 

07B5 

07B8 

078A 

07C8 

07D4 

07E0 

07E9 

07E9 

07E8 

07EE 

07M 

07F7 

07FA 

07FD 

0800 

0803 

0806 

0808 

080E 

0810 

0812 

0816 

0818 

081A 

081D 

081F 

0823 

0825 



1171 

1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 



1189 
1190 
1191 
1192 



1193 
1194 
1195 
1196 



1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
121? 
1218 



10$: 



20$: 
30$: 



movq 

cmpl 

beql 

sobgtr 

brw 

movl 

movaq 

brb 



Pd.Name: 



MovZBL 

MovAB 

BrW 



PD„DECIMAL: 
MOVL 
BSBW 
.ASCJD 



PD OCTAL: 

MOVL 
BSBB 
.ASCJD 



PD_HEXADECIMAL 
MOVL 
B5B8 
♦ASCID 



PD.NUMERIC: 

PUSHL 

MOVL 

MOVL 

Jsb 

POPL 

BLBC 

MOVZBL 

ADDL 

MOVL 

PUSH* 

Jsb 

POPR 

BEOL 

SU8L3 

TSTL 

BNEQ 

CMPL 

BLSSU 

CMPL 

BGTRU 

MOVL 



r1 



(r10) + , 
r1, r9 

30$ 

rO, 10$ 

interpret 

r2, r9 

-8<r10)Cr0], 

20$ 



r10 



KR10), RO 

2(R10)[R0], 

Interpret 



R10 



#10, R3 

PD NUMERIC 

"!AC !AC decimal 



JUL thru 



Get next case pair 

Does this one match? 

If it does, do replacement 

Loop through cases 

OK, return 

Do value replacement 

Skip rest of the values 

Mission accomplished/ as ordered 

Just skip over the name directive 
Get length of enforced generic 
Skip over it all 
Return 



Set radix 
Join common 
iULi/JAC? " 



33 
(3) 

[09] 
[09] 
[09] 
[09] 
[09] 
[09] 
[09] 
[09] 

[173 
[173 
[173 
CI 73 



#8,R3 

PD NUMERIC 

"!SC !AC octal 



I60L thru 



#16, R3 

PD NUMERIC 

"!AC i AC hexadecimal 



R3 

R10,R3 

R10,R2 

L A GET_LINE 

R3 

R0,30$ 

<R10)+,R1 

R1.R10 

R5,R7 

# A M<R2> 

L A SCAN$NUMERIC 

#*M<R2> 

20$ 

R7,R5,R7 

R1 

20$ 

RO.(RIO) 

20i 

R0,4(R10) 

20i 

R0,R9 



!XL 



Set radix 
Join common 
!60L!/JAC? " 



Set radix 
join common 
thru !XL!/!AC? 



• i 



Save radix 

Address of asc'ic prompt 

Save prompt string for later 

Span spaces* new input if necessary 

restore radix 

Return if input errors 

Length of prompt 

Skip over prompt 

Save current string address 

Save pointer on stack now 

Scan and fetch input 

Restore pointer 

Branch on bad input 

Calculate length of number 

High order portion must be zero 

Branch on out of range 

Compare data with low limit 

Branch if less than limit 

Compare data with high limit 

Branch if out of range 

Set current value 



E183 



[183 



7~ENSAA-7,0 

ATTACH 



PT INTERPRET Decode PT-descriptor 

*** ATTACH Handle ATTACH command 
PT INTERPRET Decode PT-descriptor 



G 4 
27-JUL-1984 Fiche 2 Frame 
27-JUL-1984 15:01:41 
23-MAY-1984 Hi 09: 26 



G4 Sequence 251 
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5A 
02 A8 



50 



08 

8E 

57 

FE07 



8E 

62 

7E 6A 

00000269'EF 

62 

60 

00OOOA75 , Ef 06 

50 14 



CO 0828 

D5 082B 

AO 082D 

31 0831 

0834 

DO 0834 

9F 0837 

7D 0839 

9F 083C 

9F 0842 

7f 0844 

FB 0846 

DO 084D 

0850 

04 C850 



1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 



20$: 



30$: 



ADDL 


#8,R10 


TSTL 


(SP) + 


ADDW2 


R7,2(R8) 


BRW 


INTERPRET 


MOVL 


<SP)+,A0 


PUSHAB 


(R2) 


MOVQ 


(R10),-(SP) 


PUSHAB 


l A T SHOULDBE 


PUSHAB 


<R2T 


PUSHAQ 


(RO) 


CALLS 


#6A A F0RMAT PROMPT 


MOVL 


#SS$..8ADPARSM,R0 



RET 



Skip over low/high 
Remove edit string address 
Increase Length used so far 
Next instruction 

Get address of error edit string 

Prompt address 

Push lower/upper bounds 

Descriptive text argument 

Prompt 

Address of format descriptor 

Do formatting % copy 

Bad parameter return 

Return on error 



[10] 
[10] 



/Z-ENSAA-7 


,0 PTJNTERPRET Decode 


PT-descriptor 




H 4 
27-JUL-1984 Fie 


he 2 Frame H4 Seguence 252 

;01:41 VAX-11 Macro V03-0? Page 35 


ATTACH 






+ ** 


ATTACH 


Handle ATTACH command 27-JUL-1984 15 


i'7-27 






PTJNTERPRET Decode PT« 


•descript 


or 23-MAY-1984 14 


:09:26 DMA1 :[SYS0.SYSMAINTJATTACH.MAR;92 (3) 










0851 


1235 
















0851 


1236 PD..STRING: 










53 5 A 


DO 


0851 


1237 


MOVL 


R10,R3 


; Copy address of ascic prompt 






57 53 


DO 


0854 


1238 


MOVL 


R3,R7 


; Save prompt address 




Q0000A4D*EF 


16 


0857 


1239 


Jsb 


L A GET LINE 


; Verify something there 
; Branch if it worked 






01 50 


E8 


085D 


1240 


BLBS 


R0.10S 








04 


0860 
0861 


1241 
1242 10$: 


RET 




; Return if input spa2 






59 01 


CE 


0861 


1243 


MNEGL 


#1,R9 
<R10)+,R3 


; Initialize VALUE 






53 8A 


9A 


0864 


1244 


MOVZBL 


; Get length of prompt 










0867 


1245 












5A 53 


CO 


0867 


1246 20$; 


ADDL 


R3,R10 


; Skip over something 






53 8A 


9A 


086A 


1247 


M0VZ8L 


(R10)+,R3 


; Get length of next something 






2D 


13 


086D 


1248 


BEQL 


70$ 


; Branch i f end of list 






59 


D6 


C86F 
0871 


1249 
1250 


INCL 


R9 


; Update string index 




50 


54 53 


C3 


0871 


1251 


SUBL3 


R3,R4,R0 

20$ 


; Length remaining after this match 
; Input shorter, try next string 






FO 


19 


0875 


1252 


BLSS 






51 55 


DO 


0877 


1253 


MOVL 


R5.R1 
40i 


; Copy input address 






05 


11 


087A 


1254 


BR8 


; Start with count 






8A 81 


91 


087C 


1255 30$: 


CMPB 


(R1)+,(R10)+ 


; Compare character 






£6 


12 


087F 


1256 


BNEQ 


20$ 


; Branch i f mismatch 






F8 53 


F4 


0881 


1257 40$: 


S086EQ 


R3,30$ 


; Count and try again if more 




53 


51 55 


C3 


0884 


1258 


SU8L3 


R5,R1,R3 


; Calc length of string 




02 


A8 53 


AO 


0888 


1259 


ADDW2 


R3,2(R8) 


; Increase lenath used so far 

; Put updated input pointers back 






54 50 


7D 


088C 


1260 


MOVQ 


R0,R4 






53 


D4 


083F 


1261 


CLRL 


R3 


; Already in position, add zero 
; Skip over this one 






5A 53 


CO 


0891 


1262 50$: 


ADDL 


R3,R10 






53 8A 


9A 


0894 


1263 


MOVZBL 


(R10>+,R3 


; Get lenath of next item 
; Branch if not end 






F8 


12 


0897 


1264 


BNEQ 


50$ 






FD9F 


31 


0899 
089C 
089C 


1265 
1266 
1267 70$: 


BRW 


INTERPRET 


; Next instruction 




52 


FF70 CD 


9E 


089C 
08A1 


1268 
1269 


M0VA8 


BUFFER<FP),R2 


; Address buffer 




5A FC 


AD 01 


CI 


08A1 


1270 


ADDL3 


*1,OLDPC(FP),R10 


; Point to prompt 






50 8A 


9A 


08A6 


1271 


MOVZBL 


(R10)+,R0 


; Length of prompt 






5A 50 


CO 


08A9 
08AC 


1272 
1273 


ADDL 


R0,R10 


; Skip prompt 






50 8A 


9A 


08AC 


1274 80$: 


MOVZBL 


(R1O)+,R0 


; Get lenath of possible string 
; Branch Tf last string 






OB 


13 


08AF 


1275 


BEQL 


100$ 






82 8A 


90 


08B1 


1276 90$: 


MOVB 


(R10)+,(R2)+ 


; Copy byte 






FA 50 


F5 


08B4 


1277 


S08GTR 


R0,90$ 


; Branch if any left 






82 2C 


90 


0887 


1278 


MOVB 


#*AV,<R2) + 


; Insert V 






FO 


11 


08BA 
08BC 


1279 
1280 


BRB 


80$ 


; Try again 






52 


D7 


08BC 


1281 100$; 


DECL 


R2 


; Remove • , ' 




F4 AD 52 


F8 AD 


C3 


08BE 


1282 


SUBL3 


DESC+4(FP),R2,DESC(FP) 


; Length of prompt 






67 


9F 


08C4 


1283 


PUSHAB 


(R7) 


; Address of prompt string 






F4 AD 


7F 


08C6 


1284 


PUSHAQ 


DESC(FP) 


; Address of strings 

; Address of "should be" insert [10] 

; Address of format descriptor [10J 




00000269 'EF 


9F 


08C9 


1285 


PUSHAB 


LM.SHOULDBE 




00000281' EF 


7f 


08CF 


1286 


PUSHAO 


L A T STRING 




00000A75 


*Ef 04 


F8 


08D5 


1287 


CALLS 


*4,[ A F0RMAT PROMPT 


; Do formatting [10] 






50 14 


DO 
04 


08DC 
03DF 


1288 
1289 


MOVL 
RET 


#SS$_BADPAR*M,RO 


; Bad parameter 






IZZ-ENSAA-7,0 
IaTIACH 

t 07-27 



I 4 
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36 
(3) 



08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
U8E0 
08E0 
08E0 
08E0 
08E0 
08E0 
CBEO 
C8E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
<W0 
U8F0 
J8E0 
08E0 
08EO 
08E0 
08E0 
08E0 
08E0 
08E0 
08E0 
08F0 
08E0 



1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 



.SQTTL DPSEXTRACT 



Make P-table printable 



++ 



FUNCTIONAL DESCRIPTION: 



This routine can be used to convert the data stored in 
a P-table using the PT-descriptor to an ASCIJ string to be 
printed. 

CALLING SEQUENCE: 

PTSEXTRACT (PC, BASE, LENGTH, ADDRESS) 

INPUT PARAMETERS: 

PC Start of PT-descriptor 

8ASE Base of P-table 

TEXT Address of QUAD descriptor of buffer 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

TFXT The length in the descriptor is updated 



IMPLICIT OUTPUTS: 
COMPLETION CODES: 

SS$,8ADPARAM 
SSS.NORMAL 

REGISTER USAGE: 



NONE 



Incorrectly formed PT-descriptor 
Completed successfully 



R9 current VALUE 

R10 Current PC in PT-descriptor 

R11 Base address of P-table 



_. 



ZZ-ENSAA-7,0 

ATTACH 
07-27 
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37 
(3) 









08E0 


1330 
















08E0 


1331 


SOFFSET 


4, POSITIVES - 












08E0 


1332 


<EARG$_ 


PC,4>, - 
BASE,4>, - 












08E0 


1333 


<EARGS. 












08E0 


1334 


<EARG$_ 


TEXT,4» 












0004 




EARG$_PC: 














0008 




EARG* BASE: 














OOOC 




EARGS.TEXT: 














08E0 


1335 












I 


DFFC 


08E0 
08E2 
08E2 


1336 
1337 
1338 


.ENTRY PT$EXTRACT,*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 




5A 


04 AC 


7D 


MOVQ 


EARGS PC(AP),R10 


Get PC and BASE 




5? 


OC BC 


7D 


08E6 


1339 


MOVO 


SEARGS_TEXT(AP), R7 


Get length of buffer 






56 


D4 


08EA 


1340 


CLRL 


R6 


Clear Last valid edit string 




6A 


80 8F 


91 


08EC 


1341 


CMPB 


#PD3 START, (R10) 


Verify good format 






21 


12 


08F0 
08F2 


1342 
1343 


BNEQ 
EXTRACT: 


ex_bSdparam 


WRONG ! 










08F2 


1344 


CASE 


SRC*(R10) + ,TYPE=8AJMIT^PD^START,D1SPL1ST=< - 










08F2 


1345 




EX START, - 












08F2 


1346 




EX~FJNISH, - 












08F2 


1347 




EX.DECJMAL, - 












08F2 


1348 




EX_OCTAL, - 












08F2 


1349 




EX HEXADECIMAL, - 












08F2 


1350 




EX^STRING, - 












08F2 


1351 




EX^LITERAL, - 












08F2 


1352 




EX_FEKH, - 












08F2 


1353 




EX STORE - 












QM2 


1354 




EXlCOMPLEMENT, - 












08F2 


1355 




ex. add, - 


Add operation 


C093 








03F? 


1356 




ex. logical* - « 


logical 


[09] 








08F2 


1357 




ex'case, * , 


Case 


C093 








08F2 


1358 




ex_name> 


■ name 


[173 








0913 


1359 


EX BAPPARAM: 










50 14 


00 
04 


0913 

0916 
0917 
0917 


1360 
1361 
1362 
1363 


novi. 

RET 
EX START: 


SVSS$..8Al>PARAM,R0 


* bad format PT-dfcscriptor 






09 


11 


0917 

0919 
0919 

0919 


1364 
1365 
1366 
1367 


BRB 
EX..DECIMAL: 
EX^OCTAL: 
EX.HEXADFCIMAL: 


EXTRACT 


Nop 




56 


FF AA 


9E 


0919 


1368 


MOVAB 


-1(R10)*R6 


• Save PC of proMpt type inst 






IF 


10 


091D 


1369 


BS88 


SKIP 


Skip prompt 






5A 08 


CO 


091F 


1370 


ADDL 


M.RIO 


• 3k1p low and high limits 






CE 


11 


0922 
0924 


1371 
1372 


BRB 
EX STRING: 


EXTRACT 


■ Next inst 




56 


U AA 


9E 


0924 


1373 


MOVAB 


-1(R10),R6 


• Save address of prompt type inst 






13 


10 


0928 


1374 


8SBB 


SKIP 








50 


04 


092A 
092C 


1375 

1376 


CLRL 
10$: 


RO 


• Clear advance length 






5A 50 


CO 


092C 


1377 


ADDL 


RU,R10 


• Skip something 






50 8A 


9A 


092F 


1378 


M0VZ8L 


<R1C>+,R0 


• Get length 
; Try again 

• Next instruction 






F8 


12 


0932 


1379 


BNEQ 


10$ 






BC 


11 


0934 


1380 


BRB 


EXTRACT 










0936 


1381 


ex_togkal: 






L093 


56 


Ff AA 


9fc' 


0936 


1382 


movab 


-1<r10>, r6 


; Save address of directive 


C093 
[09] 




B5 AF 


9F 


093A 


1383 


pushab 


extract 


; Set up tor SKIP to do RSB 



ZZ-ENSAA-7.0 

ATTACH 
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; Get length 
; Skip string 



38 
(3) 









093D 


1384 


SKIP: 




50 


8A 


9A 


093D 


1385 


M0VZ8L 


(R10)+,R0 


5A 


50 


CO 


0940 


1386 


ADDL 


R0,R10 






05 


0943 
0944 


1387 
1388 


RSB 










0944 


1389 EX LITERAL? 










0944 


1390 


EX FETCH: 










0944 


1391 


EXlADD: 






8A 


D5 


0944 
0946 


1392 
^.393 


TSTL 

EX COMPLEMENT? 


(R10)+ 




AA 


11 


0946 
0948 


1394 
1395 


BRB 
ex^case; 


EXTRACT 


50 


8A 


9A 


0948 


1396 


movzbt 


<r10) + , rO 


5A 6 


A40 


7E 


0948 


1397 


rnovan 


<r10)[rOJ, r10 




A1 


11 


094F 
0951 
0951 


1398 
1399 
1400 


brb 
Ex Name: 


extract 


50 01 


AA 


9A 


0951 


1401 


MovZBL 


KR10), RO 
2(R10)LR0], R10 


SA 02 AA40 


9E 


0955 


1402 


MovAB 




96 


11 


095A 
095C 
095C 


1403 
1404 
1405 


Br8 
GXJINISH? 


Extract 


50 OC 


BC 


7D 


095C 


1406 


MOVQ 


5EARGS TEXT(AP),RO 


OC BC 58 


51 


C3 


0960 


1407 


SU8L3 


R1,R8,3EARG$ TEXT(AP) 


50 


01 


DO 


0965 


1408 


MOVl. 


S A *S$$ NORMA[,RO 






04 


0968 


1409 


RET 





Skip literal or word+byte+byte 
next,' 

Get number of cases 

Skip the cases 

And continue interpretation 

Skip over Name directive 

Get length of enforced generic 

Skip over it all 

Return 



Get length and address again 
Store new length 

It worked 



[09] 
[09] 
[09] 
[09] 

CI73 

C173 

[17] 
[17] 



ZZ-ENSAA-7.Q 
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59 6840 









0969 


1411 








0969 


1412 


50 


8A 


3C 


0969 


K13 


51 


8A 


9A 


096C 


1414 


52 


8A 


9A 


096F 


1415 


52 


51 


EF 


0972 


1416 




56 


D5 


0978 


1417 




03 


12 


097A 


1418 




FF73 


31 


097C 


1419 



EX STORE: 

MOVZWL 

M0VZ8L 

MOVZBL 

EXTZV 

TSTL 

BNeq 

8rW 



<R10)*,R0 
<R10)+,R1 
(R10)+,R2 

R1,R2,(R11)CR0],R9 

R6 

5$ 

EXTRACT 



Get byte offset 

Get bit offset 

Get f'eld size 

Set current value 

Valid? 

Yes, continue 

No, next instruction 



C17J 
[17] 



ZZ-ENSAA-7,0 

ATTACH 

07-27 



DPSEXTRACT Make P-table printable 

*** ATTACH Handle 



TTACH command 



M 4 
27-JUL-1984 



DPSEXTRACT Make P-Uble printable 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame M4 



Sequence 257 
15:01:41 VAX-11 Macro V03-01 Page 40 
14:09:26 DMA1 :CSYS0.SYSMAINT3ATTACH.MAR;92 v'4) 



FF57 31 



53 56 
0082 
20 2E 4C 55 21 3D 43 41 21 



53 56 
73 
29 4F 28 4C 4F 36 21 3D 43 41 21 



53 56 
61 
20 29 58 28 4C 58 21 3D 43 41 21 



53 56 

50 86 

56 50 

50 86 

12 

F5 59 

59 Ff A6 

3B 

20 43 41 21 3D 43 41 21 

33 

20 3F 3F 3F 3D 43 41 21 



53 56 

50 OOOOOAIA'EF 

07 59 

50 OOOOOAIF'EF 

59 50 

11 

43 41 21 3D 43 41 21 

20 73 65 59 

20 6F 4E 



DO 
30 

00 • 

09 

DO 

10 

00' 

20 

OC 

DO 
10 
00' 
08 

DO 

9A 

CO 

9A 

13 

F4 

9E 

10 

00' 

08 

10 

00' 

08 



DO 
9E 
E8 

9E 
DO 
10 
00 • 
07 

00' 

04 

00' 

03 



02 BA 
50 81 9A 
0183 8F B8 



097F 

097F 

097F 

097F 

097F 

097F 

0998 

0998 

099B 

099E 

09A1 

09A1 

09AB 

09AB 

C9AE 

09BO 

09BC 

09B0 

09BD 

09BD 

09C0 

09C2 

09C2 

09CE 

09CE 

09D1 

09D4 

09D7 

09DA 

09DC 

09DF 

09E3 

09F5 

09E5 

09EE 

09FO 

09F0 

09F9 

09F9 

09F9 

09FC 

0A03 

0A06 

OAOD 

0A10 

0A12 

0A12 

0A1A 

0A1A 

0A1F 

0A1F 

0A23 

0A23 

0A23 

0A25 

0A28 

0A2C 



1421 

1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 

1432 
1433 
1434 
1435 



5$: 



CASE 



10$: brw 
ST^DECJMAL: 
MOVL 
bsbw 
.ASCIC 

ST OCTAL: 

MOVL 
BS88 
•ASCIC 



1436 ST..HEXADECIMAL: 

1437 MOVL 

1438 BSB8 

1439 .ASCIC 



1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 

1450 
1451 

1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 



ST.STRJNG: 

MOVL 



10$: 



30$: 



MOVZBL 

ADDL 

M0VZ8L 

BEQL 

SOBGEQ 

MOVAB 

BS88 

.ASCIC 

BS88 
.AS--IC 



st. logical: 
movt 



10$: 



1461 20$: 

1462 30$: 



movab 

bibs 

movab 

movl 

bsbb 

.ascic 

.ascic 

.ascic 



1463 

1464 EX COMMON: 

1465 " POPR 

1466 MOVZBL 

1467 PUSHR 
1468 



SRC=(ft6)+ f TYPE=B,LIMIT=*PD$_DECIMAL,DISPLIST=< 

st.decimaLst octal, - 

st hexadecimal, - 

st string, 10$, 10$, - 

10$, 10$, 10$, - 

st logical> 

extract 



R6,R3 
ex common 
"!JC*!UL. 



• i 



R6,R3 

EX COMMON 

M !AC-!60L(0) 



R6,R3 

EX COMMON 

°!KC=JXL(X) 



R6,R3 

(R6)+,R0 
R0,R6 
(R6)+,R0 
30$ 

R9,10$ 
-1(R6),R9 
EX COMMON 
M !XC=!AC " 

EX COMMON 
M !flC=??? " 



r6, r3 
20$, rO 
r9, 10$ 
30$, rO 
rO, r9 
ex common 
"!RC=!AC" 

"Yes " 

u No n 



* A MR1 
(RD + .RO 

rM<R0,R1,R7,R8> 



Nop, just return 

Prompt address 
Do common 



[093 
[093 
[093 
[093 
[093 
1091 



[093 



Prompt 
Octal 



address 



Prompt address 
Hexadecimal 



Save address of prompt 
Get length of prompt 
Skip previous string 
Get length of string 
Branch if end 
Count and branch 
Address of prompt 
Join common 



Join common 



yes), 



OK 



Get last prompt address 

'yes' string 

If stored value is 1 ( 

Else set string to *no 

Set R9 to string 

(SP) gives format string 



Yes response 
No response 



Address of edit string 

Get length 

Push R0/R1, turfer len, address 



[09] 
[093 
[093 
C093 
C093 
C093 
C093 
C093 

[09] 

[093 



..J 
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41 
(4) 



0208 8F 

10 At" 

14 AE 

10 AE 

00000000'EF 05 



57 
58 



OF 
52 
52 
56 
FEA5 



BB 0A2C 

7F 0A30 

DF 0A33 

7F 0A36 

FB 0A39 
0A40 

BA 0A40 

C2 0A42 

CO 0A45 

D4 0A48 

31 0A4A 



1469 
1\70 
i .,71 

1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 



PUSHR 


# A M<R3,R9> 


PUSHAQ 


16CSP) 


PUSHAL 


20CSP) 


PUSHAQ 


16CSP) 


CALLS 


#5,L A SYS$FAO 


POPR 


**M<R0,R1,R2,R3> 


SU8L 


R2,R7 


ADDL 


R2,R8 


CLRL 


R6 


BRW 


EXTRACT 



Push field name, value 
Address of output descriptor 
Store length back in descriptor 
Address of edit string 
Edit string 

Clean stack, get length in R2 
Lessen available length 
And skip over for next time 
Don't do again 
Next! 



22-ENSAA-7,0 

ATTACH 
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GET LINE Condition getline 

*•** ATTACH Handle ATTACH command 
GET^LlNt Condition getline 



B 5 
27-JUL-1984 Fiche 2 Frame B5 Seguence 259 

27-JUL-1984 15:01:41 VAX-11 Macro VO3-0T Page 42 
23-MAY-1984 14:09:26 DMA1 :CSYS0.SYSMAINT]ATTACH.MAR;92 (4) 



0A4D 


1481 


0A4D 


1482 


0A4D 


1483 


0A4D 


1484 


0A4D 


1485 


0A4D 


1486 


0A4D 


1487 


0A4D 


1488 


0A4D 


1489 


0A40 


1490 


0A4D 


1491 


0A4D 


1492 


0A4D 


1493 


0A4D 


1494 


CA4D 


1495 


0A4D 


1496 


0A4D 


1497 


0A4D 


1498 


0A4D 


1499 


0A4D 


1500 


0A4D 


1501 


0A4D 


1502 


0A40 


1503 


0A40 


1504 


0A4D 


1505 


0A4D 


1506 


0A4D 


1507 


0A4D 


1508 


0A4P 


1509 


0A4D 


1510 


0A4D 


1511 


0A4D 


1512 


0A4D 


1513 


0A4D 


1514 



.SBTTL GET, LINE 



Condition getline 



++ 



FUNCTIONAL DESCRIPTION: 



This routine conditionally prompts for input with the 

prompt string provided, if any input is left from the last time 

it is used before prompting is done. 

CALLING SEQUENCE: 

BS8B GETJJNE 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 



R3 
R4 
R5 
R6 
R8 



Address of prompt string (ASCIC) 
Length remaining in last input string 
Address of remaining input string 
Address of prompt string output descriptor 
Address of input line descriptor 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 



NONE 



R4 
R5 



Length of input string 
Address of input string 



SIDE EFFECTS: NONE 
COMPLETION CODES: NONE 



ZZ-ENSAA-7.0 
ATTACH 

07-27 



GET LINE Condition getline 

*** ATTACH Handle ATTACH command 
GET_LINE Condition gotline 
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27-JUL-1984 Fiche 2 Frame 
27-JUL-1984 15:01:41 
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C5 Sequence 260 
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0A4D 


1516 






0A4D 


1517 


53 


DD 


0A4D 


1518 


OOOOOOOO'EF 


16 


0A4F 


1519 


02 A8 50 


AO 


OA55 


1520 


53 


8FD0 


0A59 


1521 


50 01 


DO 


0A5C 


1522 


54 


D5 


0A5F 


1523 


11 


12 


0A61 


1524 


63 


9F 


0A63 


1525 


OOOOOODD'EF 


7f 


0A65 


1526 


75'AF 02 


FB 


0A68 


1527 


50 0114 8F 


3C 


0A6F 


1528 




05 


0A74 


1529 



GETJ.INE: 

PU5HL 

Jsb 

ADDW2 

POPL 

MOVL 

TSTL 

8NEQ 

PUSHAB 
PUSHAQ 
CALLS 
MOVZWL 
10$: RSB 



R3 

L A SCAN$SPACES 

R0,2(R8) 

R3 

S A *SS$_NORMAL,R0 

R4 

10$ 

(R3) 

L A T PROMPT 

#2,6 A FORMAT PROMPT 

#SS$JNSFAR5,R0 



Save register 

Skip over leading spaces 

Add to length used so far 

Restore register 

Assume it worked 

Any input left? 

Exit if some input left 

Prompt string 

Edit string (add " ?") 

Format it 

Not enough arguments 



C18J 



[10] 



ZZ-ENSAA-7,0 

ATTACH 

07-27 
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44 



0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
CA75 
0A75 
0A75 
0A75 
0A75 
0A75 
OA75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 
0A75 



1531 

1532 
1533 
1534 
1535 
1535 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 



•S8TTL FORMAT^PROMPT Format and load prompt 



+ + 



Functional description: 

Call FA0 with arguments and format string given, store resultant 
string in prompt output string 

Calling sequence: 

F0RMAT_PROMPT (FORMAT, params) 



Input parameters: 
format 
params 

Implicit inputs: 
R6 

Outputs: 

none 



address of format descriptor 
list of arguments to FA0 



contains pointer to output descriptor 



Implicit outputs: 

prompt string modified 

Side effects: 
none 

Return codes: 

FA0 return codes (success, string truncated, or bad directive) 



ZZ-£NSAA-7,0 

ATTACH 
07-27 



FORMAT PROMPT Format and load prompt 

*i* ATTACH Handle ATTACH 
FORMAT PROMPT Format and 



E 5 

27-JUL-1984 Fiche 2 Frame 
command 27-JUL-1984 15:01:41 
load prompt 23-MAY-1984 14:09:26 



B5 Seguence 262 
VAX-11 Macro V03-0T Page 45 
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63 
04 A3 01 



66 



04 









0A75 


1561 














0A75 


1562 




SOFFSET 


4, POSITIVE, <- 








0A75 


1563 






<FPT$ FORMAT, 4>,~ 








0A75 


1564 






<fpt$;args» 








0004 




FPT$ 


FORMAT: 










0008 




fpt$; 


>R6S: 










0A75 


1565 














CA75 


1566 


FORMAT^PROMPT: 








0008 


0A75 


1567 




.WORD 


A M<R3> 


53 


7fc" 


7E 


0A77 


1568 




MOVAQ 


-(SP),R3 


66 


01 


A3 


0A7A 


1569 




SUBW3 


#1,(R6),(R3) 


04 


A6 


C1 


0A7E 


1570 




ADDL3 


4(R6),*1,4(R3) 








0A84 


1571 




SFAOL.S 


9FPT$..F0RMAT(AP),(R3), 








0A84 


1572 






(R3),FPT$ ARGS(AP) 


63 


01 


A1 


CA95 


1573 




ADDW3 


#1,(R3),<R5) 
<R3),a4(R6) 


B6 


63 


90 


0A99 


1574 




M0V8 






04 


0A9D 


1575 




RET 





Allocate output descriptor 

Set length 

Address to put text 

Do formatting 

Length including length byte 
Store result length 



ZZ-ENSAA-7.0 

ATTACH 

07-27 



DSVSSHOWDEVICE Display device informatio 

*** ATTACH Handle ATTACH command 
DSV$SHOWDFVJCE Display device informatio 



F 5 
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0A9E 


1577 


0A9E 


1578 


0A9E 


1579 


0A9E 


1580 


0A9E 


1581 


0A9E 


1582 


0A9E 


1583 


0A9E 


1584 


0A9E 


1585 


0A9E 


1586 


0A9E 


1587 


0A9E 


1588 


0A9E 


1589 


0A9E 


1590 


CA9E 


1591 


0A9E 


1502 


0A9E 


1593 


0A9F 


1594 


0A9E 


1595 


OAVE 


1596 


0A9E 


1597 


0A9E 


1598 


0A9E 


1599 


0A9E 


1600 


0A9E 


1601 


0A9E 


1602 


0A9E 


1603 


0A9E 


160A 


0A9E 


1605 


0A9E 


1606 


0A9E 


1607 


0A9E 


1608 


0A9E 


1609 


0A9E 


1610 


0A9E 


1611 


0A9E 


1612 



.SBTTL DSVSSHOWDEVICE Display device information 



++ 



FUNCTIONAL DESCRIPTION: 

This routine is called from CLI to display information about 
devices attached to the system. 

CALLING SEQUENCE: 

BS8W DSVSSHOWDEVICE 

INPUT PARAMETERS: 

IMPLICIT INPUTS: 

CLJSQ_FILE(R2) Has descriptor for rest of command line. 

OUTPUT PARAMETERS: NONE 

NONE 

NONE 

NONE 



IMPLICIT OUTPUTS: 
SIDE EFFECTS: 
COMPLETION CODES: 

REGISTER USAGE: 



RO Length of device name as typed 

R1 Address of device name as typed 

R2 Length of Device name in DPB 

R3 Address of device name in DPB 

R5 Index into DPBLIST 

R6 Address of link device for /Adapter 

R10 DPB address 



ZZ-ENSAA-7.0 

ATTACH 

07-27 
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47 

(4) 



OOOOQQOO'EF 01 88 

50 08 A? 7D 
087F 8F BB 

55 00000000' EF DE 

0'iAF 30 

39 50 E9 

54 65 DO 

5B 6544 DO 

2D 13 

56 D5 

06 19 

20 AB 56 D1 

23 12 

50 6E DO 

18 13 

51 04 AE DO 
52 6B 7D 

52 D7 

53 D6 
52 50 D1 

OF 14 

83 81 91 

09 12 

F8 50 F5 

00000E39'EF 16 

CA 54 F5 

08/F 8F BA 

OOOOOOOO'EF 01 8A 

05 



0A9E 
0A9E 
0A9E 
0AA5 
0AA5 
0AA9 
OAAD 
OAAD 
0AB4 
0A87 
OABA 
OABD 
0AC1 
0AC3 
CAC5 
0AC7 
OACB 
OACD 
OADO 
0AD2 
0AD6 
0AD9 

0AD8 
OADD 
OAEO 
0AE2 
0AE5 
0AE7 
OAfc'A 
OAEA 
OAFO 
OAFO 
OAF 3 
OAF 3 
OAF 7 
OAFE 



1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 



DSV$SHOWDEVJCEB:: 

BJS82 0iaFLG$V_BRIEF,COMM FLAGS ; Set brief flag 
OSVSSHOWDEVJCE: : 



C073 
1072 



10$: 
20$: 



30$: 



40$: 

50$ 
60$ 
70$ 



MOVQ 
PUSHR 

MOVAL 

bsbw 

blbc 

MOVL 

MOVL 

BEQL 

tstl 

blss 

cmpl 

bneq 

MOVL 

BEQL 

MOVL 

MOVQ 

DECL 

INCL 

CMPL 

BGTR 

CMPB 

BNEQ 

SOBGTR 

Jsb 

SOBGTR 

POPR 

BJC82 

RS8 



CLI$Q FILE(R2),R0 

# A M<R0,R1,R2,R3,R4,R5,R6 

DS$GA PTABLE,R5 

loc$aaapter 

rO, 70$ 

<R5),R4 

(R5)[R4],R11 

60$ 

r6 

30$ 

r6, h"$a_link<r11> 

60< 

(S. .0 

50$ 

4<SP),R1 

HP$Q DEVICE(R11),R2 

R2 

R3 

R0,R2 

60$ 

<R1)+,(R3)+ 

60$ 

R0,40$ 

L A SHOW^DEV 

R4,20$ 



Get descriptor of input 
R11> ; 

Base PTABLE list 

Find /Adapter value, if any 

If not found, return 

Get count of PT entries 

Get address of Associated PT 

Branch if none 

Was /Adapter specified? 

Jf not, continue 

Compare with link of current device 

If not, on to next device 

Get length of input 

Branch if Null input.. equiv to alt 

Get address of input 

Get length, address of device name 

Remove " 

skip M J 

Compare name lengths 

Skip compare if input longer than name 

Compare characters 

Branch if mismatch 

Count and continue 

Display this DPB 

Count and branch if more 



[113 



cm 
nu 

[11] 



[11] 
[11] 

[11] 
[11] 
[11] 



[18] 



# A M<RQ,R1,R2,R3,R4,R5,R6,R11> 
#iaFLG*V.BRIEF,C0W1J r LAGS 



C11] 
Clear brief flag before exit [07] 



ZZ-ENSAA-7,0 

ATTACH 

07-27 



DSVSSHOWSELECT Display information setec 



H 5 

27-JUL-1984 



Fiche 2 Frame H5 



Sequence 265 

;~of 



*** A?TACH w Handie'AfuCH command"" "" 27-JUL-1984 15:017^1 VAX-11 Macro VO3-0T Page 48 
DSVSSHOWSELECT Display information selec 23-MAY-1984 14:09:26 DMA1 :CSYS0.SYSMAINT3ATTACH.MAR;92 (4) 

.S8TTL DSVSSHOWSELECT Display information selects 

FUNCTIONAL DESCRIPTION: 

This routine is called from CLI to display information 
about device selected for test 

CALLING SEQUENCE; 

BSBW DSVSSHOWSELECT 

INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: 

CL JSQ_F I LE <R2) Descriptor of device to be shown 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 
REGISTER USAGE: 

R0/R1 Scratch 

R10 Address of DPB for device to be shown 



OAFF 


1651 


OAFF 


1652 


OAFF 


1653 


OAFF 


1654 


OAFF 


1655 


OAFF 


1656 


OAFF 


1657 


OAFF 


1658 


OAFF 


1659 


OAFF 


1660 


OAFF 


1661 


CAFF 


1662 


OAFF 


1663 


OAFF 


1664 


CAFF 


1665 


OAFF 


1666 


OAFF 


1667 


OAFF 


1668 


OAFF 


1669 


OAFF 


1670 


OAFF 


1671 


OAFF 


1672 


OAFF 


1673 


OAFF 


1674 


OAFF 


1675 


OAFF 


1676 


OAFF 


1677 


OAFF 


1678 


OAFF 


1679 


OAFF 


1680 


OAFF 


1681 


OAFF 


1682 



ZZ-ENSAA-7,0 
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DSVSSHOWSELECT Display information setec 27-JUL-1984 Fkhe 2 Frame 15 Sequence 266 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page^ 
DSVSSHOWSELECT Display information selec 23-MAY-1984 14:09:26 DMA1 :[SYS0.SYSMAINT3ATTACH.MAR;92 



49 
(4) 



00000000* EF 01 

080C 8F 

53 OOOOOOOO'EF 
52 63 

OC OOOOOOOO'EF 52 

5B 6342 

06 

O00OOE39'EF 

E9 52 

080C 8F 
00000000* EF 01 



88 

BB 

DE 
DO 

E1 
DO 
13 
16 

F5 
BA 
8A 
05 



OAFF 
OAFF 
OAFF 
OB06 
0B06 
OBOA 
OBOA 
0B11 
OBH 
0B14 
0B1C 
0B20 
0B22 
0B28 
CB28 
082B 
0B2F 
0B36 



1684 

1685 DSVSSHOWSELECTB:: 

1686 BJSB2 rfiaFLGSV BRIEF,COMM_FLAGS 

1687 DSVSSHOWSELECT:: 



1688 

1689 

1690 

1691 

1692 10$: 

1693 

1694 

1695 

1696 

1697 20$: 

1698 

1699 

1700 

1701 



PUSHR * A M<R2,R3,R11> 

MOVAL DS$GA PTABLE,R3 

MOVL (R3),R2 

BBC R2,DS$&A_SELECTS,20$ 

MOVL (R3)[R2J,R11 

BEQL 20$ 

Jsb L A SHOW_DEV 

SOBGTR R2.10S 

POPR * A M<R2,R3,R11> 

BJC82 #iaFLG$V,BRIEF,COMM FLAGS 

RSB 



Set brief flag 



Base PTABLE LIST 

Fetch count of PT entries 

Branch if not selected 

Address of PT 

Branch if none 

Display device information for this 



C07J 
C07: 



[18: 



Count and Branch if more 
Restore 

; Clear brief flag before exit C07D 



ZZ-ENSAA-7.0 

ATTACH 

07-27 



J 5 

DSVSDEATTACH Deattach device 27-JUL-1984 Fiche 2 Frame J5 Sequence „. 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 50 
DSVSDEATTACH Deattach device 23-MAY-1984 14:09:26 DMA1 :[SYS0.SYSMAINT3ATTACH.MAR;92 (4) 



267 



0067 8F 

00000000* EF 

55 00000000'FF 

041B 

36 50 

50 08 A2 

52 56 

0463 

28 

>2 08 AE 

?E 00000002' EF 

fcE 6E 

7E 08 A2 

6F 6E 

000001. 39' FF 

01 



00000000 V 



15 

o; 

02 
05 
0067 8F 



0B37 

0837 

0837 

0837 

0B37 

0837 

0837 

0837 

0837 

0837 

0B37 

0837 

0837 

0837 

C837 

0837 

0B37 

0837 

0837 

0837 

0B37 

0B37 

0B37 

0837 

0837 

0837 

0837 

0837 

0837 

0B37 

0B37 

BB 0B37 

16 0B3B 

DE 0B41 

30 0B48 

E9 0B4B 

7D 0B4E 

DO 0852 

30 0855 

12 0858 

DO 0B5A 

7D 085E 

3C 0365 

71) 0B68 

3C 086C 

9F 086F 

DD 0875 

UD 0877 

F8 0879 

M 0B80 

10 0882 

8A 0884 

OS 0B88 



1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1 738 

1739 

1740 

1741 

1742 

1 74 3 

1744 

^745 

1746 

174/ 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 



.Subtitle 



DSVSDEATTACH Deattach device 



++ 
FUNCTIONAL DESCRIPTION.' 

This routine is called from CLI to reverse the ATTACH command 
for a given device. Since the attach data base is a tree 
structure, all subsidiary devices are also implicitly 
deattached. 

CALLING SEQUENCE: 

BSBW DSVSDEATTACH 



INPUT PARAMETERS: 

IMPLICIT INPUTS: 

CLISQ FILE 
Q_ADAPTER 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

SIDE EFFECTS: 

COMPLETION CODES: 



NONE 



descriptor of device to be added 
descriptor of adapter device is attached to 

NONE 

NONE 

NONE 

N/A 



dsvSdeattach: : 
pushr 
jsb 
moval 
bsbw 
blbc 
movq 
movl 
bsbw 
bneq 
movl 
movq 
mov*wl 
movq 
mov/wl 
pus hah 
pufhl 
push I 
call? 
brb 
10$: bsbb 
20$: poor 
rtb 



# A M<r0 r H,r2,r5,r6> 

scriptSf lush 

dsSga ptable, r5 

locladapter 

rO, 20$ 

cliSq file<r2), rO 

r6, r? 

locSptable 

10$ 

8Csp). r2 

q_adapter f -(sp) 

^sp), (sp) 

cti$qJUe(r2), -Csp) 

Up), (sp) 

L*t nonsuch on adapter 

#ds$k.print7 

#ds$k type command err 

HI. G*dsx$print 

20* 

30$ 

A M<rO,r1,r2,r5,r6> 



Save registers 

Flush out scripts if should 

Cache address of table 

Find the specified adapter 

If not found, return 

Get device to deattach 

Copy link address 

Locate it 

If found, th*n It's OK 

Restore CLI table pointer 

Get adapter name 

Make sure high word 1s 

Get device name 

And zero extend length 

No such device 

Use PRINTF 

Messagv* is command error 

Print it 

Return 

Do the stuff, recursively 

Restore the registers 



[123 
C123 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 



ZZ-ENGAA-7.0 

ATTACH 

07-27 



Deattach subtree 



*** ATTACH Handle 
Deattach subtree 



00 







0B89 


1757 






0B89 


1758 






0889 


1759 






0B89 


1760 






0B89 


1761 






0889 


1762 


1F 


88 


0B89 


1763 






0B8G 


1764 






0B8B 


1765 






088B 


1766 


50 65 


DO 


0B88 


1767 


51 6540 


DO 


0B8E 


1768 


09 


13 


0892 


1769 


04 AE 20 A1 


D1 


0B94 


1770 


02 


12 


0899 


1771 


EC 


10 


0898 


17/2 


EE 50 


F5 


0B9D 


1773 






OBAO 


1774 






OBAO 


1775 






OBAO 


1776 






OBAO 


1777 


50 6E 


7D 


0BB6 


1778 


6540 


D4 


0BB9 


1779 


00000000' V 50 


F5 


OBBC 


1780 


50 51 


DO 


0BC4 


1781 


00000000' EF 


16 


0BC7 


1782 


1F 


BA 


OBCD 


1783 




05 


OBCF 


1784 



ATTACH command 



.Subtitle 



K 5 

27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame K5 
15:01:41 
14:09:26 



Seguence 268 
VAX-11 Macro V03-01 Page 51 
DMA1:[SYS0.SYSMAINT]ATTACH.MAR;92 (4) 



Deattach subtree 



This routine deallocates the Ptable for a device, clears the select bit 
and Ptable vector pointer for it; and if there were devices attached to 
It, does the same for each of them. 



$0$: pushr * A M<rO,r1 ,r2,r3,r4> 

; See if anything attached to this one (R1> 



Save some registers 



40$; 



50$: 



60$: 



movl 

movl 

beql 

cmpl 

bneq 

bsbb 

sobgtr 

$pnnt 



movq 

clrl 

bbcc 

movl 

Jsb 

popr 

rsb 



(r5), rO 

<r5)trOD, r1 

50$ 

hp$a_link<r1), 4(sp) 

50$ 

30$ 

rO, 40$ 

0ds$k type^command^out, - 

#ds$k.pnntf , - 

L A t. deattach, - 

4(sp) 
<$p), rO 
(r5)[rOJ 

rO, L A ds$ga_selects, 60$ 
r1, rO 

L A exe$deanonpaged 
* A M<rO,r1,r2,r3,r4> 



Size of table 

Get address of next Ptable 
Skip if gone 

Check against input device 
If not linked to it, skip 
t Do same for IT, recursively 
Loop through the table [12] 
Print command info 
.. use PRINTF 
. . Deattach message 
.. address of Ptable 
Get original rO and r1 
Clear table pointer 
Clear select bit for it 
Copy address of Ptable 
Dea locate it 
Restore registers 
Return 



[123 



[123 
[123 
[12] 
[12] 
C12] 
[12] 

[123 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[18] 
[12] 
[12] 



ZZ-ENSAA-7.0 

ATTACH 

07-27 



DSVSSELECT Select device for testing 

*** ATTACH Handle ATTACH 
DSVSSELECT Select device 



L 5 

27-JUL-1984 Fiche 2 Frame 
command 27-JUL-1984 15:01:41 
for testing 23-MAY-1984 14:09:26 



L5 Sequence 269 
VAX-11 Macro V03-0T Page 52 
DMA1:[SYS0.SYSMAINT3ATTACH.MAR;92 (4) 



55 
53 



007F 8F 

00000000' EF 

0302 

14 50 

OOOOOOOO'EF 

00000000'EF 

0375 

03 50 

OODB 

50 08 A2 



52 



52 



61 
52 
4C4C4103 



44 

08 
50 
8F 
37 



BB 
16 
30 
E9 
DE 
DE 
30 
E8 
31 
7D 
13 
°C 
90 
D1 
12 



OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
CBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
OBDO 
0BD4 
OBDA 
OBDD 
OBEO 
0BE7 
OBEE 
0BF1 
0BF4 
0BF7 
0BF8 
08FD 
0C01 
OC04 
OCOB 



1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 



.SBTTL DSVSSELECT 



Select device for testing 



++ 



FUNCTIONAL DESCRIPTION: 



This routine is called from DSSCLI for each device to be 
tested. It sets the select bit and moves the P-table 
entry to the end of the P-table list 

CALLING SEQUENCE: 

BS8W DSVSSELECT 



INPUT PARAMETE?S: 
IMPLICIT INPUTS: 

CLISCLFILE 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 

DSSGA.PTABLE 
SIDE EFFECTS: 
COMPLETION CODES: 



NONE 

descriptor of device to be added 
NONE 

The indicated unit is moved to the head. 

NONE 

N/A 



DSVSSELECT:: 
PUSHR 
J SB 
BsbW 
BlbC 
MOVAL 
MOVAL 
bsbw 
bibs 
10$: brw 
20S: MOVQ 
BEQL 
ROTL 
M0V8 
CMPL 
BNEQ 



**M<R0.R1,R2,R3,R4,R5,R6> 

SCRIPTSFLUSH 

CheckAmbiguous 

R0 X 10$ 

DSSGA PTABLE,R5 

DS$GA~SELECTS,R3 

tocSadapter 

rO. 20$ 

140$ 

CLI$QJILE<R2),R0 

60S 

*8,(R1),R2 

R0,R2 

#< A A M 3ALL"-61>,R2 

70S 



; Preserve 
Flush scripts if console command 
Check for ambiguous names 
If error, hopscotch on to exit 
Point to P-table 
Point to select bit mask 
Find /Adapter, if any 
Continue if OK 
Return if not 
Descriptor of device 
Exit if no device 
Get first 3 characters of name 
Insert length 
compare with ascic "all" 
Branch if not all 



cud 

C103 
[153 
[153 



cm 

[11] 
[11] 
[113 
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H 5 
DSVSSELECT Select device for testing 27-JUL-1984 Fiche 2 Frame M5 Seguence 270 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-01 Page 53 
DSV$SELECT Select device for testing 23-MAY-1^84 14:09:26 DMA1 :[SYS0.SVSMAJNT]ATTACH.MAR;92 (4) 







OCOD 


1833 










OCOD 


1834 


; + 








OCOD 


1835 


; Proc 


ess SELE 






OCOD 


1836 


» 




54 65 


DO 


OCOD 


1837 




MOVL 


50 6544 


DO 


0C10 


1838 


30$: 


MOVL 


28 


13 


0C14 


1839 




BEQL 


56 


D5 


0C16 


1840 




tstl 


06 


19 


0C18 


1841 




blss 


56 20 AO 


D1 


0C1A 


1842 




cmpl 


1E 


12 


0C1E 


1843 




bneq 


50 60 


7D 


0C20 


1844 


40$: 


MOVQ 


50 


D7 


0C23 


1845 




DECL 


51 


D6 


OC25 


1846 




INCL 


OOOOOOOO'EF 


16 


CC27 


1847 




Jsb 


OE 50 


E8 


0C2D 


1848 




BL8S 


OA 63 54 


E2 


0C30 


1849 




BBSS 


00A0 


30 


0C34 


1850 




BSBW 


04 50 


E8 


0C37 


1851 




BLBS 


00 63 54 


E5 


0C3A 


1852 




BBCC 


CF 54 


F5 


0C3E 


1853 


50$: 


SOBGTR 


008E 


31 


0C41 
0C44 


1854 
1855 


60$; 


BRW 



(R5) t R4 

(R5HR4],R0 

50$ 

r6 

40$ 

hp$a link(rO), r6 

50$ 

HP$Q DEVICE(RO),RO 

RO 

R1 

L A DSR$IFLOADDEV 

R0,50$ 

R4 1 (R3),50$ 

150$ 

R0,50$ 

R4,(R3),50$ 

R4,30$ 

140$ 



Get count of devices possible 

Anything here? 

No check next 

If no /Adapter C1 1 J 

...then branch around the check C11!l 

Is this on the right link? C11] 

If not, loop to next (*11J 

Get device name C 1 1 H 

remove '' " from length 

remove from address 

Is this the load device? C183 

Branch if it is 

Branch if already set and set 

Allocate the device if necessary [11] 

Branch if successful 

clear select bit if allocate failed 

Do them si I 

Branch to exit C11] 
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DSVSSELECT Select device for testing 27-JUL-1984 Fiche 2 Frame N5 Seguence 271 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-01 Page 
DSVSSELECT Select device for testing 23-MAY-1984 14:09:26 DMA1 :[SYS0.SYSMAINT3ATTACH.MAR;92 



54 
(4) 







0C44 


1857 










0C44 


1858 


,+ 








0C44 


1859 


; Process SELEC 






0C44 


1860 


H%i 




52 01 


CE 


0C44 


1861 


mnegl 
tstt 


56 


D5 


0C47 


1862 




03 


19 


0C49 


1863 




tlss 


52 56 


DO 


0C48 


1864 




movt 


036A 


30 


0C4F 


1865 


80$: 


bsbw 


46 


12 


0C51 


1866 




BNEQ 


5? 08 AE 


DO 


0C53 


1867 




MOVL 


56 


D5 


0C57 


1868 




tstl 


24 


19 


0C59 


1869 




blss 


7E 00000002'EF 


7D 


0C58 


1870 




movq 


6E 6E 


3C 


0C62 


1871 




movzwl 


7E 08 A2 


7D 


0C65 


1872 




movq 


6E 6E 


3C 


0C69 


1873 




movzwl 


OCKJOISB 1 EF 


9F 


0C6C 


18/4 




pushab 


01 


DD 


0C72 


1875 




pushl 


15 


DD 


0C74 


1876 




push I 


00000000'GF 07 


F8 


0C76 


1877 




calls 


53 


11 


0C7D 


1878 




brb 


n 08 A2 


7D 


0C7F 


1879 


90$: 


MOVQ 


6E 6E 


3C 


0C83 


1880 


100$: 


movzwl 


0000010E'EF 


9F 


0C86 


1881 




PUSHAB 


01 


DD 


0C8C 


1882 




pushl 


15 


DD 


0C8E 


1883 




push! 


00000000' GF 05 


FB 


0C90 


1884 




CALLS 


39 


11 


0C97 


1885 




BRB 






0C99 


1886 


110$; 





T device command 

#1, r2 

r6 

80$ 

r6, r2 

loc$ptable 

110$ 

8(SP),R2 

r6 

90$ 

a adapter, -(sp) 

(sp), (sp) 

cU$q_fUe(r2), -(sp) 

(sp), (sp) 

L A t nonsuch on_adapter 

#ds$k_print7 

#ds$k type command err 

#7. G x dsx$print 

140$ 

CLI$Q„FJLE(R2),-(SP) 

(sp), (sp) 

L A T NO.SUCH DEV 

#ds$k_printT 

#ds$k type command err 

*5s G*DSX$PRINT 

140$ 



Set wildcard link 

Jf ♦•here's no /Adapter, 

...tnen dun 1 t check it 

If is, use address of link device 

Search for it 

Branch if found 

Get base of CLI 

/ADAPTER? 

Branch if not 

Push on adapter name 

Zero extend 

Push on device name 

Zero extend 

Format string 

Use printf 

Command error type code 

Print it 

Exit 

Stack f i le name 

Zero extend length 

Edit string 

Use PRINTF 

Command error type code 

Type the error 

Branch to exit 



C093 
[113 

nn 
cm 

£113 



[113 
C113 
C113 
[113 
[113 
[113 
[113 
[133 
[133 
[133 
[113 
[113 
[113 
[113 
[133 
[133 
[133 
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OSVSSELECT Select device for testing 

*** ATTACH Handle ATTACH 
DSVSSELECT Select device 



B 6 
27-JUL-1984 Fiche 2 Frame 
command 27-JUL-1984 15:01:41 
for testing 23-MAY-1984 14:09:26 



66 Sequence 272 
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0C99 


1888 








0C99 


1889 








0C99 


1890 








0C99 


1891 








0C99 


1892 




54 50 


DO 


0C99 


1893 




39 


10 


0C9C 


1894 




31 50 


E9 


0C9E 


1895 




6544 


DD 


0CA1 


1896 




6544 


D4 


0CA4 


1897 




54 65 


DO 


0CA7 


1898 




52 54 


DO 


OCAA 
OCAD 


1899 
1900 




50 6542 


DO 


OCAD 


1901 




13 


13 


0CB1 


1902 




6542 


D4 


0CB3 


1903 




6544 50 


DO 


0CB6 


1904 


50 


63 01 52 


EF 


OCBA 


1905 


63 


01 54 50 


FO 


OCBF 


1906 




54 


D7 


0CC4 


1907 




E4 52 


F5 


0CC6 
0CC9 


1908 
1909 




6544 


8ED0 


0CC9 


1910 


63 


01 54 01 


FO 


OCCD 
0CD2 


1911 
1912 




007F 8F 


BA 


0CD2 


1913 






05 


0CD6 
0CD7 


1914 
1915 



Compress P-table list to high end of table 
R1 = P-table address 



120$: 



130$: 



140$: 



MOVL 

BS8B 

BLBC 

PUSHL 

CLRL 

MOVL 

MOVL 

MOVL 

BEQL 

CLRL 

MOVL 

EXTZV 

INSV 

DECL 

S08GTR 

POPL 
INSV 

POPR 
RS8 



R0,R4 

150$ 

R0,140$ 

(R5)CR4D 

(R5)CR4] 

<R5),R4 

R4,R2 

(R5)CR21,R0 

130$ 

<R5)CR2] 

R0,(R5)[R4] 

R2,#1,(R3),R0 

R0,R4,/M,(R3) 

R4 

R2,120$ 



(R5)CR4J 
*1,R4,#1 



(R3) 



# A M<R0,R1,R2,R3,R4,R5,R6> 



Copy unit index of device 
Allocate device if necessary 
Branch if can't allocate 
Save address of P-table 
Clear address of P-table 
Get count of entries 
current position 

Copy address to first available 

Empty, next 

Clear it out 

Put it in the first available slot 

Get select bit 

Insert new select bit 

Use previous entry next time 

Decrement and continue 

Insert unit at available slot 
Set the select bit 

; Restore 



C113 



[113 



7Z-ENSAA-7.0 

ATTACH 
07-27 



DSVSSELECT Select device for testing 

*** ATTACH Handle ATTACH 
DSVSSELECT Select device 



C 6 
27-JUL-1984 Fiche 2 Frame 
command 27-JUL-1984 15-01:41 
for testing 23-MAY-1984 14:09:26 



C6 Seguence 273 
VAX-11 Macro V03-0T Page 56 
DMA1 :CSYS0.SYSMAINT3ATTACH.MAR;92 (4) 







0CD7 


1917 






0CD7 


1918 






0CD7 


1919 






0CD7 


1920 






0CD7 


1921 


50 01 


DO 


0CD7 


1922 


OOOOFEOO'EF 1C 


E1 


OCDA 


1923 


73 




0CE1 


1924 






0CE2 


1925 






OCEA 


1926 


52 6544 


DO 


OCEA 


1927 


62 OA A2 00 


E1 


OCEE 


1928 






0CF3 


1929 


5D OA A2 01 


E2 


0CF3 


1930 






CCF8 


1931 






0CF8 


1932 


50 0641 8F 


B1 


0DO7 


1933 


05 


12 


ODOC 


1934 


42 OA A2 01 


E4 


ODOE 


1935 






0D13 


1936 


3F 50 


E8 


0D13 


1937 


OA A2 02 


8A 


0D16 


1938 






0D1A 


1939 


50 


DD 


0D1A 


1940 


7E 62 


70 


0D1C 


1941 


OOOOOIOE'EF 


9F 


0D1F 


1942 


50 0908 8F 


B1 


0D25 


1943 


18 


13 


0D2A 


1944 


6E 000001ETEF 


9E 


0D2C 


1945 


50 0840 8F 


81 


0D33 


1946 


OD 


13 


0D38 


1947 


5E OC 


CO 


0D3A 


1948 


50 


8ED0 


0D3D 


1949 


00000000* EF 


16 


0D40 


1950 




05 


0D46 


1951 






0D47 


1952 


01 


DD 


0D47 


1953 


15 


DD 


0D49 


1954 


OOOOOOOO'GF 05 


F8 


0D48 


1955 


50 


8ED0 


0D52 


1956 




05 


0D55 


1957 



Allocate device (R5)[R4] if user/node and should be allocated 
and not already allocated. Produce error messages if it fails. 



150$: 



MOVL S A *SS$_NORMAL ,R0 
BBC tfDSA$V_USER, - 

DSA$GL FLAGS, 180$ 
Brjf .Inhibit JU locate 180$ 



160$: 



170$: 



180$; 



MOVL 
B8C 

BBSS 

$ALLOC. 
CMPW 
BNEQ 
B8SC 

BLBS 
BJCB 

PUSHL 

MOVQ 

PUSHAB 

CMPW 

BEQL 

MOVAB 

CMPW 

BEQL 

ADDL 

POPL 

Jsb 

RSB 

pushl 

pushl 

CALLS 

POPL 

RSB 



<R5)[R4],R2 
#HP$V ALLOC, - 

hp$b Flags (R2), 180$ 

#HP$tf WASALL. - 

hp$b Flags <R2>, 180$ 

S HP$D DEVICE(R2) 
' #SS$ BEVALRALLOCRO 

160$" 

#HP$V WASALL, - 

hp$b Flags (R2), 180$ 

R0,180$ 

#HP$M WASALL, - 

HP$BjLAGS(R2) 

RO 

HP$Q DEVJCE(R2),-(SP) 

L A T RO SUCH DEV 

#SS$„N0SUCHBEV,R0 

170$ 

L A T DEVALLOC(SP) 

#SS5„DEVALL0C,R0 

170$ 

#12, SP 

RO 

L A DSR$COMPLETION 



#ds$k_printf 
#ds$k~type command 
#5, G*DSX$PRINT 
RO 



err 



Assume success, esp. if S/A 

Exit if not usermode 
If bit set in DS$GL_CRD_Flags, 
inhibit device allocation 
Get address of P-table 

Branch if should not be allocated 

Branch if already allocated 

Address of device name 

Already allocated to us? 
Branch if not 

Clear allocated bit and exit 
Branch if successful 

Clear allocated bit 

Save return code 

device name arg for print 

Assume no such device 

No such device? 

Branch if truth 

Assume allocated to other user 

Already allocated to another? 

Branch if truth 

Remove descriptor of name and text 

Restore completion code 

Other errors 

Return 

Use printf to print 
Command error type code 
Print the error 
Restore completion code 



1222 



[10] 
C103 

[is: 



[13] 
[13] 
[13] 



ZZ-ENSAA-7.0 
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*** ATTACH Handle ATTACH command 27-JUL-1984 15:01 : A 1 VAX-11 Macro V03-0? Page 57 
DSVSDESELECT Deselect device for testing 23-MAY-1984 14:09:26 DMA1 :CSYS0,SY$MAINT]ATTACH.MAR;92 (4) 

.S8TTL DSVSDESELECT Deselect device for testing 

FUNCTIONAL DESCRIPTION? 

This routine is cilled from DS$CL J for each device to be 
remved from testing. It clears the select bit 

CALLING SEQUENCE: 

BS8W DSVSDESELECT 



0D56 


I959 


0D56 


1960 


0D56 


1961 


0D56 


1962 


0D56 


1963 


0D56 


1964 


0D56 


1965 


0D56 


1966 


0D56 


1967 


0D5o 


1968 


0D56 


1969 


0D56 


1970 


0D56 


1971 


0D56 


19/2 


CD56 


1973 


0D56 


1974 


0D56 


1975 


0D56 


1976 


0D56 


1977 


0D56 


1978 


0D56 


1979 


0D56 


1980 


0D56 


1981 


0D56 


1982 


0D56 


1983 


0D56 


1984 


0D56 


1985 


0D56 


1986 



INPUT PARAMETERS: 
IMPLICIT INPUTS: 
CLI$Q_FILE 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
SIDE EFFECTS: 
COMPLETION CODES: 
REGISTER USAGE: 



NONE 

descriptor of device to be removed 

NONE 

NONE 

NONE 

N/A 
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58 
(4) 









0D56 


1988 












0D56 


1989 


DSVSDESELECT: 




007F 8F 


GB 


0D56 


1990 




PUSHR 




GOOOOOOO'EF 


16 


0D5A 


1991 




JS8 




017C 


30 


0D60 


1992 




BsbW 




14 50 


E9 


0D63 


1993 




BlbC 


55 


00000000'EF 


DE 


0D66 


1994 




MOVAL 


53 


00000000'EF 


DE 


0D6D 


1995 




MOVAL 




01EF 


30 


0D74 


1996 




bsbw 




03 50 


E8 


0D77 


1997 




bibs 




0095 


31 


0D7A 


1998 


10$: 


brw 




50 08 A2 


7D 


0D7D 


1999 


20$: 


MOVG 




2F 


13 


0D81 


2000 




BEQL 




52 61 08 


9C 


0D83 


2001 




ROTL 




52 50 


90 


CD87 


2002 




M0V8 


52 


4C4C4103 8F 


D1 


0D8A 


2003 




CMPL 




21 


12 


0D91 


2004 




BNEQ 



# A M<R0,R1,R2,R3,R4,R5,R6> 

SCR1PTSFLUSH 

CheckAmbiguous 

RO. 10$ 

DS$GA PTA8LE,R5 

DS$GA~SELECTS,R3 

loc$a3apter 

rO, 20$ 

120$ 

CLI$Q_FILE<R2>,R0 

60$ 

*8,(R1),R2 

R0,R2 

#< A A M aALL M -61>,R2 

70$ 



; Preserve 
Flush scripts if console command 
Check for ambiguous names 
If error, hopscotch on to exit 
Point to P-table 
Point to select bit mask 
Find /Adapter, if any 
Continue if OK 
Return elsewise 
Descriptor of device 
Branch if no device 
Get first 3 characters of name 
Insert length 
compare with ascic "all" 
Branrh if not all 



[11] 

hod 

[153 
[153 



[113 
[113 
[113 
[113 
[113 
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59 
(4) 



54 



50 
56 

02 63 







0D93 


2006 










0D93 


2007 ;+ 










0D93 


2008 ; Proc 


ess DESELECT ALL command 






0D93 


2009 ;- 






65 


DO 


0D93 


2010 


MOVL 


<R5),R4 


6544 


D5 


0D96 


2C11 30$: 


TSTL 


(R5)£R4] 


14 


13 


0D99 


2012 


BEQL 


50$ 


56 


D5 


0D9B 


2013 


tstl 


r6 


0A 


19 


0D9D 


2014 


blss 


40$ 


6544 


DO 


0D9F 


2015 


movl 


<r5>Cr4], rO 


20 A0 


D1 


0DA3 


2016 


cmpl 


hp$a link(rO), 


06 


12 


0DA7 


2017 


bneq 
BBCC 


50$ 


54 


E5 


0DA9 


2018 40$: 


R4 i (R3),50$ 
136$ 


68 


10 


ODAD 


2019 


BSBB 


E4 54 


F5 


CDAf 


2020 50$: 


S08GTR 


R4 A 30$ 
126$ 


5E 


11 


0D82 


2021 60$: 


BR8 






0D84 


2022 







r6 



Get count of devices possible 

Anything here? 

No check next 

If no /Adapter, 

...don't cneck it 

Get address of link Ptable 

Compare 

If not equal, loop to next 

Branch it already clear and clear 

Deallocate the device if necessary 

Do them all 

Branch to exit 



mi j 
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60 
(4) 







0DB4 


2024 












0DB4 


2025 


; + 










0DB4 


2026 


; Process DESELECT device command 






0DB4 


2027 


# 






52 01 


CE 


0DB4 


2028 


>0$: 


mnegl 
tstt 


#1, r2 


56 


D5 


0DB7 


2C29 




r6 


03 


19 


0DB9 


2030 




blss 


80$ 


52 56 


DO 


ODBB 


2031 




movl 


r6, r2 ; 


01FA 


30 


ODBE 


2032 


80$: 


bsbw 


loc$ptable 


46 


12 


0DC1 


2033 




BNEQ 


110$ 


52 08 AE 


DO 


0DC3 


2034 




MOVL 


8(SP),R2 


56 


D5 


0DC7 


2035 




tstl 


r6 


24 


19 


0DC9 


2036 




blss 


90$ 


7E 00000002' EF 


7D 


ODCB 


2037 




movq 


q adapter, -(sp) ; 
(sp), (sp) 


6E 6E 


3C 


0DD2 


2038 




movzwl 


7E 08 A2 


7D 


0DD5 


2039 




movq 


cli$q_file(r2), -(sp) 


6E 6E 


3C 


0DD9 


2040 




movzwl 


(sp), (sp) 


00000138'EF 


9F 


ODDC 


2041 




pushab 


L A t nonsuch on_adapter ; 


01 


DD 


0DE2 


2042 




pushl 


#dslk.prfntT 


15 


DD 


0DE4 


2043 




pushl 


#ds$k""type command_err ; 


OOOOOOOO'GF 0? 


F8 


0DE6 


2044 




calls 


X7 1 G x dsx$print " ; 
126$ 


23 


11 


ODED 


2045 




brb 


7E 08 A2 


7D 


ODEF 


2046 


90$: 


MOVQ 


CLISQ FJLE(R2),-(SP) 


6E 6E 


3C 


0DF3 


2047 


100$: 


movzwl 


(sp).~(sp) 

L A T NO.SUCH DEV 


OOOOOIOE'EF 


9F 


0DF6 


2048 




PUSHAB 


01 


DD 


ODFC 


2049 




pushl 


#dsfk.print? 


15 


DD 


ODFE 


2050 




pushl 


#ds$k type command_err ; 


00000000'GF 05 


F8 


OEOO 


2051 




CALLS 


#5* G*DSX$pRINT 
120$ 


09 


11 


0E07 


2052 




BRB 






0E09 


2053 


110$: 






54 50 


DO 


0E09 


2054 




MOVL 


R0,R4 


02 63 54 


E5 


OEOC 


2055 




B8CC 


R4.(R3),120$ ; 
130$ 


05 


10 


0E10 


2056 




bsbb 


007F 8F 


BA 


0E12 


2057 


120$: 


POPR 


A M<RO,R1,R2,R3,R4,R5,R6> 




05 


0E16 
0E17 


2058 
2059 




RSB 


• 



Set wildcard link C09D 

If no /Adapter, C1 1 D 

...don't check for it C1 1 J 

Use /ADAPTER address C1 1 D 

Search for it C09] 
Branch if found 
Get base of CLI 

/ADAPTER? C1 1 D 

Branch if not C11] 

Push on adapter name C11J 

Zero extend C1 1 U 

Push on device name C11J 

Zero extend C11D 

Format string C11J 

Use PRINTF C13] 

Command error type code C13] 

Print it C13J 

Exit C1 1 D 

Stack f i le name C1 1 3 

Zero extend C11] 

Edit string C1 1 3 

Use PRJNTF C133 

Command error type code C13] 

Type the error CI 33 
Branch to exit 

Copy index 

Branch if not selected 
Deallocate the device if necessary C1 1 3 

; Restore C1 1 3 
Return 
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0E17 2061 

0E17 2062 ;+ 

0E17 2063 ; Deallocate the device (R5)[R4D if user/node and should be deallocated 

0E17 2064 ; and was allocated. 

0E17 2065 ;- 

OOOOFEOO'EF 1C E1 0E17 2C66 130$: BBC *DSA$V USER. - 

19 0E1E 2067 DSASGL FLAGS, 140$ ; Exit if not usermode 

50 6544 DO 0E1F 2068 M0VL (R5)CR?J,R0 ; Get address of P-table 

10 0A A0 00 El 0E23 2069 BBC *HP$V ALLOC. - 

0E28 2070 HP$B FLAGS(RO), 140$ ; Branch if should not be allocated 

0B 0A AO 01 E5 0E28 2071 BBCC #HP$7 WASALL. - 

0E2D 2072 HP$B riAGS(RO). 140$ ; Branch if already allocated 

0E2D 2073 SDALLOC S HPSQ DEVJCE(RO) ; Deallocate the device 

05 0E38 2074 140$: RSB *" " ; Return 



16 

ZZ-ENSAA-7,0 SHOW DEV Routine 27-JUL-1984 Fuhe 2 Frame 16 Seguence 279 

ATTACH " «** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 62 

1)7-27 SHQW..DEV Routine 23-MAY-1984 14:09:26 DMA1 :CSYS0.SYS«AINT]ATTACH.MAR;92 (5) 

0E39 2077 .SUBTITLE SHOW.DEV Routine 

0E39 2078 



ZZ-ENSAA-7.0 

ATTACH 
07-27 



SHOW.DEV Routine 



*** ATTACH Handle ATTACH command 
SHOW.DEV Routine 



J 6 

27-JUL-1984 



Fiche 2 Frame J6 



Sequence 280 



27-JUL-1984 15:01:41 VAX-11 Macro V03-0T Page 63 
23-MAY-1984 14:09:26 DMA1 :CSYS0.SYSMAINT3ATTACH.MAR;92 (6) 



0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 
CE39 
0E39 
0E39 
0E39 
0E39 
3E39 
0E39 
0E39 
0E39 
0E39 
0E39 
0E39 



2080 
2081 
2082 
2083 
2084 
2C85 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 



+ + 



FUNCTIONAL DESCRIPTION: 

This routine types out a Line describing a single device. 
CALLING SEQUENCE: 

8S8W SHOW^DEV 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 

R10 Address of DPB for device 
Contents of OSSGA^TYPL I ST 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

SIDE EFFECTS: NONE 

REGISTER USAGE: 

R11 Address of P-table for device to be displayed 



ZZ-ENSAA-7.0 

ATTACH 

07-27 



SHOW.DEV Routine 



*** ATTACH Handle 
SHOW DEV Routine 



ATTACH command 



K 6 

27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame K6 



Seguence 281 
15:01:41 VAX-11 Macro V03-01 Pige 64 
14:09:26 DM1 :CSYS0.SYSMAiNT3ATTACH.MAR;92 «>> 



2F 







0E39 


2107 


00000100 


0E39 


2108 






0E39 


2109 


5E FFOO CE 


9E 


0E39 


2110 


6E 


9F 


0E3E 


2111 


7E 0100 8F 


3C 


0E40 


2112 






0EA5 


2113 


51 26 AB 


9E 


0E45 


2114 


50 CI 


9A 


0E49 


2115 


OOOOIOOA^F 


16 


0E4C 


2116 


OD 


12 


OE52 


2117 






0E54 


2118 


AE 2E2E2E2E 8F 


DO 


0E54 


2119 


6E 03 


DO 


0E5C 


2120 


12 


11 


0E5F 


2121 






0E61 


2122 


6E 


7F 


0E61 


2123 


5B 


DD 


0E63 


2124 


51 80 


9A 


0E65 


2125 


04 A041 


9F 


0E68 


2126 


FFFFFA6D Ef 03 


FB 


0E6C 


2127 






0E73 


2128 


QOOOOOOO'EF 00 


EO 


0E73 


2129 


6E 


7F 


0E7B 


2130 


18 AB 


DD 


0E7D 


2131 


20 BB 


7F 


0E80 


213? 


07 


12 


0E83 


2133 


6E 0000029E 'EF 


7E 


0E85 


2134 


26 AB 


9F 


0E8C 


2135 


6B 


7F 


0E8F 


2136 


00000202'EF 


9F 


0E91 


2137 


01 


DD 


0E97 


2138 


16 


DD 


0E99 


2139 


00000000* GF 08 


FB 


0E9B 


2140 






0EA2 


2141 


5E 00000108 8F 


CO 


0EA2 


2142 




05 


0EA9 


2143 


26 AB 


9F 


OEAA 


2144 


68 


7F 


OEAD 


2145 


0000021 C'EF 


9F 


OEAF 


2146 


01 


DD 


0EB5 


2147 


16 


DD 


0E87 


2148 


00000000' 6F 05 


FB 


0EB9 


2149 


EO 


11 


OECO 


2150 



SHOWBUF SIZ 

SHOW_DEtf: 

MOVAB 

PUSHAB 

MOVZWL 

MOVAB 
MOVZBL 
Jsb 
BNEQ 

MOVL 
MOVL 
BRB 

10$: PUSHAQ 
PUSHL 
MOVZBL 
PUSHAB 
CALLS 

20$: BBS 

PUSHAQ 

PUSHL 

PUSHAQ 

BNEQ 

MOVAQ 

30$: PUSHAB 
PUSHAQ 
PUSHAB 
push I 
pushl 
CALLS 

40$: ADDL 
RSB 

50$: PUSHAB 
PUSHAQ 
PUSHAB 
pushl 
pushl 
CALLS 
BRB 



= 256 



-SHOWBUF, SJZ(SP),SP 
(SP) 
#SHOWBUF„SIZ, -<SP> 

HP$T TYPE(R11),R1 
(RD + -RO 
L A LOC$PTDESC 
10$ 

# A A M ....",8(SP) 

#3,<SP) 
20$ 

(SP) 

R11 

(R0)+ t R1 

4<R0)LR13 
#3,L A PT$EXTRACT 

*FLG$V BRIEF, COMM.FLAGS 

(SP) " 

HP$A DEVICECR11 ) 

9HP$A LJNK(R11) 

30$ ~ 

Q HUB, (SP) 

HP$T TYPECR11) 

HP$Q~DEVICE(R11) 

L A T 5H0WDEV 

#dsSk„printf 

*ds$k type command out 

#8, G*DSX$PRINT 

*SH0WBUF_SJZ+8,SP 

HP$T TYPECR11) 

HP$Q~DEVICE(R11) 

L A T 5H0WPEVB 

#ds$k_prfntf 

#ds$k type command„.out 

#5, G*DSX$PRINT 

40$ 



ptor 



Length of buffer 

Allocate buffer space 
Address of buffer 
Length or buffer 

Get address of ascic type string 
Get length 
Locate the descri 
Branch if located 

String is M .... M 
Set length of string 
Branch to print 

Address of descriptor 

Address of P-table 

Get length of name 

Push address of start code 

Convert to ascii 



,50$ ; Branch if brief form. 
Address of descriptor 
Stuff device address 
Address jf link name quad desc 
Branch 1; descriptor 
Use HUB device name 
Address of ascic type 
Address of ascid device name 
Address of edit string 
Use PRINTF 

Command output type code 
Print the line 



C18J 



Remove descriptor and buffer 

Return 

Address of 

Address of 

Address of 

Use PRINTF 

Command output type code 

Print the line 



ascic type 

ascid device name 

edit string 



no: 

[073 
[07: 



C113 



[103 
[133 
[133 
[133 

C073 

[073 
[073 
E073 
[133 
[133 
[133 
[073 
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0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
CEC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 
0EC2 



2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 



.S8TTL INISPTABLE 



Initialize P-table 



++ 



FUNCTIONAL DESCRIPTION: 



This routine is used to initialize DSSGA.PTABLE and 
DS$GA_SELECTS, DS$GA_SELECTED. 

CALLING SEQUENCE: 

BSBW INISPTABLE 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 

DS$GA_SELECTS, DSSGA.SELECTED, DSSGA..PTABLE. 
SIDE EFFECTS: NONE 
COMPLETION CODES: SSS.NORMAL 
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51 


OOOOOOOO'EF 


DE 




50 61 


DO 




6140 


D4 


00000000' EF 


01 50 00 


FO 




F1 50 


F5 




50 01 


DO 
05 



0EC2 
0EC2 
0EC2 
0EC9 
OECC 
OECF 
0ED8 
OEDB 
OEDE 
OEDF 



2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 



INISPTABLE:: 
MOVAL 



10$: 



MOVL 

CLRL 

INSV 

SOBGTR 

MOVL 

RS8 



DSS6A PTABLE,R1 

(RD-RO 

(RDCR03 

#0,RO,tf1,DS$GA SELECTS 

ROJOS 

S A *SS$ NORMAL, RO 



Point to table 
Get count 

Clear select bit 
Do next unit 
Success of course 
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Check ambiguous device 

*** ATTACH Handle ATTACH command 
Check ambiguous device 



N 6 
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OEDF 


2190 


OEDF 


2191 


OEDF 


2192 


OEOF 


2193 


OEDF 


2194 


OEDF 


2195 


OEDF 


2196 


OEDF 


2197 


OEDF 


2198 


OEDF 


2199 


OEDF 


2200 


OEDF 


2201 


OEDF 


2202 


OEDF 


2203 


CEDF 


2204 


OEDF 


2205 


OEDF 


2206 


OEDF 


2207 


OEDF 


2208 


OEDF 


2209 


OEDF 


2210 


OEDF 


2211 


OEDF 


2212 


OEDF 


2213 



•Sub! <tte 



Check ambiguous device 



Functional Description: 

This routines searches to make sure that the /Adapter 
argument (if specified) is unique; and that if /Adapter 
is NOT used, the device name is unique. 

Calling Sequence: 

BsbW CheckAmbigucus 



Input Parameters: 
Implicit Inputs: 
Output Parameters: 
Implicit Outputs: 
Status Return: 



NONE 
NONE 
NONE 
NONE 
RO (L8S if OK, LBC if error) 
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Check ambiguous device 

*** ATTACH Handle ATTACH command 
Check ambiguous device 
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27-JUL-1984 
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OEDF 


2215 










OEDF 


2216 


CheckAmbiguous 


007F 8F 


BB 


OEDF 


2217 




PushR 


56 


D4 


0EE3 


2218 




Ctrl 


OB 62 18 


E1 


0EE5 
0EE9 


2219 
2220 




Bbc 


56 


D6 


0EE9 


2221 




IncL 


6E 00000002* EF 


7D 


OEEB 


2222 




MovG 


OC 


11 


0EF2 


2223 




Brb 


52 08 AE 


DO 


0EF4 


2224 


10$: 


MovL 


41 62 18 


EO 


0EF8 
OEFC 


2225 
2226 




Bbs 


6E 08 A2 


7D 


OEFC 


2227 




MovG 


6E 6E 


3C 


OF 00 


2228 


20$: 


MovZWL 


53 


D4 


CF03 


2229 




ClrL 


55 00000000'EF 


DE 


0F05 


2230 




MovAL 


54 65 


00 


OFOC 


2231 




MovL 


52 6544 


00 


OFOF 


2232 


30$: 


MovL 


22 


13 


0F13 


2233 




BEql 


50 62 01 


C3 


0F15 


2234 




SubL3 


6E 50 


D1 


0F19 


2235 




CmpL 


19 


12 


0F1C 


2236 




BNeq 


51 04 AE 


DO 


0F1E 


2237 




MovL 


52 04 A2 01 


C1 


0F22 


2238 




AddL3 


81 82 


91 


0F27 


2239 


40$: 


CmpB 


OB 


12 


0F2A 


2240 




BNeq 
SobGtr 


F8 50 


F5 


0F2C 


2241 




53 


D5 


0F2F 


2242 




TstL 


12 


12 


0F31 


2243 




BNeq 


53 6544 


DO 


0F33 


2244 




MovL 


D5 54 


F5 


0F37 


2245 


50$: 


SobGtr 


B7 56 


F4 


0F3A 


2246 




SobGeq 


6E 01 


DO 


OF 3D 


2247 


60$: 


MovL 


007F ^ 


BA 


0F40 


2248 


70$: 


PopR 
Rsb 




05 


0F44 


2249 








0F45 


2250 






6E 


7F 


0F45 


2251 


80$: 


PushAQ 


00000161 *U 


9F 


0F47 


2252 




PushAB 


07 56 


E8 


0F4D 


2253 




BtbS 


6E 0000018E'EF 


9E 


OF 50 


2254 




MovAB 


01 


DD 


0F57 


2255 


90$: 


PushL 


15 


DD 


0F59 


2256 




PushL 


00000000* GF 04 


F8 


OF 58 


2257 




CallS 


6E 


D4 


0F62 


2258 




ClrL 


OA 


11 


0F64 


2259 




Brb 



* A M<r0,r1,r2,r3,r4,r5,R6> 

R6 

*Cli$V Adapter. - 

CliSLlFlagsW), 10$ 
R6 

Q Adapter, (Sp) 
20$ 

8<Sp), R2 
#CU$V Adapter. - 

Cli$L Flags(R2), 60$ 
CliSO File(R2), (Sp) t 
(Sp),"<Sp) 
R3 

Ds$GA_PTabte, R5 

(R5) t R4 

(R5)[R4], R2 

50$ 

#1, Hp$Q Device(R2), RO 

RO, (Sp)" 

50i 

4<Sp), R1 

*1, Hp$Q Device+4(R2),R2 

(R2)* # <Rl) + 

50$ 

RO, 40$ 

R3 

80$ 

(R5)[R4], R3 

R4, 30$ 

R6, 10$ 

#1. (Sp) 

# A M<r0,r1,r2,r3,r4,r5,R6> 



(Sp) 

L A t_Ambig Au?p 

R6. 90$ 

L A T Ambig_Dev, (Sp) 

#DslKJ>rlntF 

#Ds$K*"TypeCommand_E rr 

*4, G*Dsx$Print 

(Sp) 

70$ 



Check for ambiguous names 

; Save registers 
Assume we'll skip ahead to device 
Jf no /Adapter, don't have 
♦. to check adapter name 
Have to check adapter first 
Set save descriptor to adapter name 
Join common 

Make sure we have original R2 
Duplicates are OK if 
.. /Adapter was given 
Set descriptor to device name 
Make sure length is word 
No matches so far 
Address of list 
Length of I ist 
Get address of P-tables 
Branch if no entry here 
Length of name 
Length match 

Branch if length mismatch 
Get address of desired 
Point to device name 
Compare a byte 
Branch if mismatch 
Continue to compare 
Found a match. ..is it the first? 
No, generate an error 
Get address of entry 
Next if any 

dia adapter, do device 



If just 
Success 

Return 



Restore all registers 



Duplicate name descriptor on stack 

Address of format string 

Branch if this is adapter error 

Replace format string with device 

Use PrintF typeout 

Command error typecode 

Print error 

Clear saved R0 

Return 



68 
(6) 



15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 
15] 

15] 
15] 
15] 
15] 
15] 
15] 
15] 
153 
15] 
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Locate /Adapter value 

*** ATTACH Handle ATTACH command 
Locate /Adapter value 
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27-JUL-1984 
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0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
CF66 
0F66 
0F66 
0F66 
0F66 
OF 66 
0F66 
OF 66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 
0F66 



2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 



.5BTTL Locate /Adapter value 

+ + 
Functional Description: 

This routine uses the module-global Q ADAPTER as the 
name of an adapter device, if CLI$V_ADAPTER is set. 
It will look up this device and return the address 
of the Ptable. If the device is the special name 
'HUB', it will return 0. Otherwise it will return 
-1. 

Callina Sequence: 

Bsbw locSadapter 

Parameters: none 

Implicit inputs: 

q adapter Descriptor of adapter name 
cTi$l_flags(r2) Checks CLI$V_ADAPTER bit. 



Outputs: 
R6 

Implicit inputs: none 



Address of Ptable, or -1 if not found. 



Return status: 

R0 1 if succeeded, if failed, (Success includes no /Adapter), 
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ATTACH 

U 7-27 



Locate /Adapter value 

*** ATTACH Handle ATTACH command 
Locate /Adapter value 
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70 
(6) 









0F66 


2291 








0F66 


2292 


56 


01 


CE 


0F66 


2293 


4A 62 


18 


E1 


0F69 
0F6D 


2294 
2295 


50 00000002 


*Ef 


7D 


0F6D 


2296 


03 


50 


B1 


OF 74 


2297 




OF 


12 


0F77 


2298 


00425548 8F 61 18 


00 


ED 


0F79 


2299 




04 


12 


0F82 


2300 




56 


D4 


0F84 


2301 




2f 


11 


0F86 


2302 




04 


BB 


0F88 


2303 


52 


01 


CE 


0F8A 


2304 




2C 


10 


CF8D 


2305 




04 


BA 


0F8F 


2306 


56 


51 


DO 


0F91 


2307 




21 


12 


0F94 


2308 


04 


A2 


D4 


0F96 


2309 


7E 00000002 


% U 


70 


0F99 


2310 


6E 


6E 


3C 


OFAO 


2311 


00000124 


'EF 


9F 


0FA3 


2312 




01 


DD 


0FA9 


2313 




15 


DD 


OFAB 


2314 


00000000*6F 


05 


F8 


OF AD 


2315 




50 


D4 


0FB4 


2316 






05 


0FB6 


2317 


50 


01 


DO 


0F87 


2318 






05 


0F8A 


2319 



locSadapter: : 
mnegl 
bbc 

movq 

cmpw 

bneq 

cmpzv 

bneq 

Ctrl 

brb 

10$: pushr 
mnegl 
bsbb 
popr 
movl 
bneq 
clrt 
movq 
mov2wl 
pushab 
pushl 
pushl 
calls 
clrl 
rsb 

20$: movl 
rsb 



#1 f r6 
*cli$v„adapter. - 

c LiSl flags(r2), 20$ 
q adapter, rO 
rO, #3 
10$ 

#0, #24, (r1), tfNTHUB 1 
10$ 
r6 
20$ 

* A M<r2> 
#1, r2 
loc$ptable 
# A M<r2> 
r1, r6 
20i 

cli$l_command(r2) 
a adapter, -(sp) 
(sp), (sp) 

L A tno.such adapter 
#ds$k_printf 
*ds$k~type_command_err 
#5, G*dsx$print 
rO 

*\, rO 



»ter 



device 



Set to no /Adapter 

If not /Adapter 

...then branch 

Get descriptor of adai 

Is length same as 'Hut 

If not, try loc$ptable lookup 

Compare with 'HUB' keyword 

If not, try loc$ptable 

OK, set return and go home 

Return success 

Don't let R2 get wiped out 

Find it on any link 

Find the Ptable for it 

And restore it 

Store address away 

Branch if found 

Otherwise, clear command address 

Push adapter name desc on stack 

Zero extend length, just in case 

Message to type 

Use PRINTF 

Command error type code 

Print it out 

Return failure 

Return 

Set success 

Return 
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OFBB 


2321 


0FB8 


2322 


OFBB 


2323 


OFBB 


2324 


OFBB 


252b 


OFBB 


2326 


OFBB 


2327 


OFBB 


2328 


OFBB 


2329 


OFBB 


2330 


OFBB 


2331 


OFBB 


2332 


OFBB 


2333 


OFBB 


2334 


CFBB 


2335 


OFBB 


2336 


OFBB 


2337 


OFBB 


2338 


OFBB 


2339 


OFBB 


2340 


OFBB 


2341 


OFBB 


2342 


OFBB 


2343 


OFBB 


2344 


OFBB 


2345 


OFBB 


2346 


C '48 


2347 


OFBB 


2348 


OFBB 


2349 


OFBB 


2350 


OFBB 


2351 


0F8B 


2352 


OFBB 


2353 


OFBB 


2354 


OFBB 


2355 



.SUBTITLE 



LOCSPTABLE Routine 



+ + 



FUNCTIONAL DESCRIPTION: 

This routine Locates a P-table given the device name, 
CALLING SEQUENCE: 

BSBW LOCSPTABLE 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: 



RO 
R1 
R2 



Length of name to be located 
Address of name to be located 
Link field of Ptable to locate 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 



NONE 



RO 
R1 



Index into DSSGA PTABLE of located entry 
Address of P-table 



CONDITION CODES: 

Z-bit Clear if entry found, else set 
REGISTER USAGE: 



R5 
R4 



Address of DSSGA_PTABLE 
Current index into table 



ZZ-ENSAA-7.0 

ATTACH 

07-27 



LOCSPTABLE 



Routine 

*** ATTACH 
LOC$PTABLE 



6E 
53 



3F 
6E 
52 



55 OOOOOOOO'EF 

54 65 

52 654A 

2D 

53 

06 

20 A2 53 

23 

50 62 01 

6E 50 

1A 

51 04 AE 

52 04 A2 01 

81 82 

OC 

F8 50 

55 6544 

6E 54 

05 

CA 54 

6E 

3F 

51 



BB 
3C 
DO 

DE 
DO 
DO 
13 
D5 
19 
D1 
12 

C3 
D1 
12 
DO 
CI 
91 
12 
F5 
DO 
7D 
11 
F5 
7C 
BA 
D5 
05 



OFBB 
OFBB 
OFBB 
OFBD 
OFCO 
0FC3 
0FC3 
OFCA 
OFCD 
0FD1 
0FD3 
0FD5 
0FD7 
OFDB 
OFDD 
OFDD 
0FE1 
0FE4 
0FE6 
OFEA 
OFEF 
0FF2 
0FF4 
0FF7 
0FF8 
OFFE 
1000 
1003 
1005 
1007 
1009 



Handle ATTACH 
Routine 



2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 



command 
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LOCSPTABLE:: 






pushr 


# A M<r0,r1 f r2,r3,r4,r5> 
(sp), (sp) 




movzwl 




movl 


r2, r3 




MOVAL 


DS$GA PTABLE,R5 




MOVL 


(R5),R4 


10$: 


MOVL 


<R5)[R4],R2 




BEQL 


40$ 




tsti 


r3 




blss 


20$ 




cmpl 


r3, hp$a Link (r2) 




bneq 


40$ 


20$: 








SUBL3 


*1,HP$QJ>EVICE(R2),R0 




CMPL 


R0,(SP) 




BNEQ 


40$ 




MOVL 


4(SP),R1 




ADDL3 


*1,HP$Q DEVJCE+4<R2),R2 


30$: 


CMPB 


(R2) + ,(RD + 




BNEQ 


40$ 




S08GTR 


R0,30$ 




MOVL 


(R5)[R4],R5 




MOVQ 


R4,(SP) 




BRB 


50$ 


40$: 


S08GTR 


R4,10$ 




CLRQ 


(SP) 


50$: 


popr 
TSTL 


# A M<r0,r1,r2,r3,r4,r5> 




R1 



RSB 



Save registers 

Make sure length is word 

Do something with link address 

Address of list 

Length ot list 

Get address of P-tables 

Branch if no entry here 

Is R2 valid. 

If wildcard, 

Compare link 

Check next 



[09] 
[09] 



or wildcard? 
continue compare 
fields 



Length of name 

Length match 

Branch if length mismatch 

Get address ot desired 

Point to device name 

Compare a byte 

Branch if mismatch 

Continue to compare 

Get address of entry 

Superceed saved R0/R1 

exit 

Next if any 

Clear R0/R1 

Restore all registers 

Set condition codes from PT address 



[09] 
[09] 
[09] 
[09] 
[09] 



[09: 
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100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 
100A 



2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 



.SBTTL LOCSPTDESC 



Locate PT-descriptor 



++ 



FUNCTIONAL DESCRIPTION: 



This routine is used to locate the PT-descriptor 
given the hardware type name. 

CALLING SEQUENCE: 

8S8W LOCSPTDESC 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 



R0 
R1 



Length of device type 
Address of device type 



NONE 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 

R0 Address of PT-descriptor 
CONDITION CODES: 

Z-bit Clear if found else set 
SIDE EFFECTS: NONE 
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*** ATTACH Handle ATTACH commsnd 
LOCSPTDESC Locate PT-descriptor 
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100A 


2421 












100A 


2422 


LOCSPTDESC:: 




3F 


BB 


100A 
100C 


2423 
2424 




PUSHR 


# A M<R0,R1,R2,R3, 


52 


D4 


100C 


2425 




CLRL 


R2 


00000058 8F 0200 C2 


D1 


100E 


2426 




CMPL 


LSL.HEADLENGTHfR 


0B 


12 


1017 


2427 




BNEQ 


10$ 


55 021C C2 


DO 


1019 


2428 




MOVL 


L$A_DEVP(R2),R5 


04 


13 


101E 


2429 




BEQL 


10$ 


13 


10 


1020 


2430 




BS8B 


PT LOCATE 


09 


12 


1022 
1024 


2431 
2432 


10$: 


BNEQ 


20$ 


55 OOOOOOOO'EF 


DE 


1024 


2433 




MOVAL 


DSSGA PTDESCR5 


08 


10 


102B 


2434 




BS8B 


PT^LOtATE 






102D 


2435 


20$: 






5E 08 


CO 


102D 


2436 




ADDL 


#8,SP 


3C 


BA 


1030 


2437 




POPR 


A A M<R2,R3,R4,R5> 


50 


D5 


1032 


2438 




TSTL 


RO 




05 


1034 
1035 


2439 
2440 




RS8 








1035 


2441 


PTJ.OCATE: 




54 65 


DO 


1035 


2442 




MOVL 


(R5),R4 


27 


13 


1038 


2443 




beql 


40$ 


53 6544 


DO 


103A 


2444 


10$: 


MOVL 


(R5)[R4J,R3 


50 04 AE 


7D 


103E 


2445 




MOVO 


4<SP),R0 


50 50 


3C 


1042 


2446 




movzwl 


rO, rO 


83 50 


91 


1045 


2447 




CMP8 


R0,(R3)+ 


14 


12 


1048 


2448 




BNEQ 


30$ 


83 81 


91 


104A 


2449 


20$: 


CMPB 


(R1)+,(R3)+ 


OF 


12 


104D 


2450 




BNEQ 


30$ 


F8 50 


F5 


104F 


2451 




S086TR 


R0,20$ 


04 A3 80 8f 


91 


1052 


2452 




CMPB 


*PD$ START, 4(R3) 


05 


12 


1057 


2453 




BNEQ 


30$ ' 


50 6544 


DO 


1059 


2454 




MOVL 


<R5)[R4J,RQ 




05 


105D 
105E 


2455 
2456 




RSB 




D9 54 


F5 


105E 


2457 


30$: 


S086TR 


R4,10$ 


50 


D4 


1061 


2458 


40$: 


clrl 


rO 




05 


1063 


2459 




RSB 





Save a couple 

Base Page 0/page 1 
Check length of Header 
Branch if bad header 
Address of DEVTYP list 
Branch if null 
Find PT-descriptor here 
Exit if found 

Point to descriptor list 
Search this list 

Remove saved R0/R1 

Set condition codes from return 
Return 



Get length of table 

Branch if table is empty 

Get address of PT-descriptor 

Get length, address 

Zero extend word length 

Length match? 

No match, next 

Compare byte 

Branch if not found 

Count and branch 

Verify PT-descriptor follows 

Branch if not 

Address of PT-descriptor 

Return with Z-bit clear 

Do next entry 
Not found 
Return Z-bit Set 



[08] 
[11] 



[08] 



J 



ZZ-ENSAA-7.0 

ATTACH 
07-27 



INSSPTABLE Insert P-table 27-JUL-1984 Fir.he 2 Frame 17 Seguence 292 

*** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-01 Page 75 

INSSPTABLE Insert P-table 23-MAY-1984 14:09:26 DMA1 :[SYS0.SYSMAiNT:iATTACH,MAR;92 (6) 



1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 
1064 



2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 



.S8TTL INSSPTABLE 



Insert P-table 



FUNCTIONAL DESCRIPTION: 

This routine can be called with the address of the P-table 
to be entered in DSSGA PTABLE. It takes care of superceding 
existing Ptables for the same device name and link. 

CALLING SEQUENCE: 

INSSPTABLE (PT) 
INPUT PARAMETERS: 

AP Address of P-table to insert 

IMPLICIT INPUTS: 

DSSGA.PTABLE 
OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: 

DSSGA.PTABLE 
COMPLETION CODES: NONE 



ZZ-ENSAA-7.G 

ATTACH 

07-2? 



1NSSPTABLE Insert P-table 

*** ATTACH Handle ATTACH command 
1NS$PTABLE Insert P-table 



J 7 

27-JUL-1984 F i che 2 Frame 

27-JUL-1984 15:01:41 
23-MAY-1984 14:09:26 



J7 Sequence 293 
VAX-11 Macro V03-0T Page 76 
DMA1 :[SYS0.SYSMAINT]ATTACH.MAR;92 (6) 



50 



52 20 
FFFFFF44 



6C 
51 
50 
AC 
EF 
48 



55 00000000'EF 

54 65 

53 6544 

26 

20 A3 



26 A3 5205 
28 A3 30333742 



18 A3 1C 
18 A3 1C 
20 A3 
D1 
6540 
50 

00000000'EF 
2F 



51 
20 
8F 
OA 
8F 
OA 
A1 
AC 
5C 
54 
5C 
51 



55 



00 



O000O000 'EF 

54 65 

6544 

1C 

F8 54 



50 00660002 8F 



6544 5C 

00000000'EF 54 

50 01 



003C 
7D 
D6 
D7 
DO 
16 
13 

DE 
DO 
DO 
13 
D1 
12 
B1 
12 
D1 
13 
CA 
C8 
DO 
F5 
DO 
DO 
10 
11 

DE 
DO 
D5 
13 
FS 

DO 
04 

DO 
E5 
DO 
04 



1064 

1064 

1066 

1069 

106B 

106D 

1071 

1077 

1079 

1079 

1080 

1083 

1087 

1089 

108D 

108F 

1095 

1097 

109F 

10A1 

10A6 

10AB 

10AF 

108? 

10B6 

10B9 

10BF 

10C1 

10C1 

10C8 

10CB 

10CE 

10DO 

10D3 

10E4 

10FB 

10EC 

10EC 

10FO 

10F8 

10FB 

10FC 

10FC 



2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2l\2 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 



.ENTRY INS$PTABLE, A M<R2,R3,R4 f R5> 

MOVQ HP$Q_DEVICE(AP),RO 

INCL R1 

DECL RO 

movl hp$a Link(ap) , r2 

Jsb L A LOr$PTABLE 

BEQL 30$ 



10$: 



12$: 

15$: 

20$: 



30$: 



40$: 



50$: 

60$: 
70$: 



MOVAL DS$GA PTABLE,R5 

MOVL (R5),R4 

MOVL (R5)[R4],R3 

BEQL 20$ 

CMPL R1,HP$A LINKCR3) 

BNEQ 20$ 

CMPW #5!< A A ,, R ,, 38>,HPST TYPE 

BNEQ 12$ 

CMPL #* A , fc730 M ,2+HP$T..TYPE ( 

BEQL 15$ 

BICL HP$A DVA(R1),HP$A DEVJ 

BISL HP$A"DVA(AP),HP$AlDEVI 

MOVL AP,HP$A_LINK(R3) 

S08GTR R4,10$ 

MOVL AP.(R5)CR0D 

MOVL R1,R0 

Jsb L A EXE$DEANONPAGED 

BRB 60$ 



Get length/address of device name 
Skip " * 



p 



Skip " 
Link o7 
See if 
Branch 



device 

already exists 
if not found 



[09] 
C183 



Special case, 
on first part. 



DS$GA PTABLE,R5 

(R5) t R4 

<R5)£r4J 

50$ 

R4,40$ 



MOVAL 

MOVL 

TSTL 

BEQL 

S08GTR 

ERRSUP S 

MOVL " #DS$_ERR0R,R0 

RET 



Get address of possibles 

Get number of possibles 

Point to this P-table 

Branch if none 

This P-table point to OLD PT for new 
, Branch if not 
(R3>; Check for RB730. 
; Branch if no match 
R3) ; Finish checking 

; Skip if match. Do not change PTABLE 
CECR3) ; Remove old DVA bits 
CE(R3); Insert new DVA bits 

Point to new P-table 

Branch if more to process 

Use this index again 

Copy address of dynamic memory 

deallocate old PT 

Return normal 

Point to P-table list 
Get length of list 
Occupied? 
No, use it 
Search whole list 



[203 
[203 
[203 
[203 



MOVL 
B8CC 
MOVL 
RET 

.END 



AP,(R5)[R43 
R4,DS$GA SELECTS, 70$ 
S A #SS$_N0RMAt,R0 



[181 



Flag error 
Return 

Insert pointer to 
Clear select bit 
Success 



PT 



ZZ-ENSAA-7.0 
ATTACH 
Symbol table 

SSN 

SST1 

SER 

SMODULE 

ABORT ATTACH 

ATCS CMDLINE 

ATCVPROMPT 

BADPJRAM 

BAD LINK 

BAD NAME 

BAD'TYPE 

BAD~UNIT EXC 

BITT.. " 

BUFFER 

CENTRAL BUS 

CHECKAMBlGUOUS 

clisk^bufsiz 
clisk^size 

clislj\ddress 
clisl_command 
clisl data 
cli$l;flags 
clisl^last 
clisl next 

CLISLlPASS 

CLISL.SUBT 

CL1SL_TEST 

CLISQ BUFQWD 

CLISCfFlLE 

CLISQ SECTION 

CLISG'TIME 

CLIST^BUFFER 

CLISVJ\DAPTER 

CLISV^ADR 

CLISVJ\SCII 

CLISV..BREAK 

CLISV BRIEF 

CLISV BYTE 

CLISV„CLEAR 

CLISV^DEC 

CLISV^DEFAULT 

CLISV.DEPOSIT 

CLJSVJVENT 

CLISV..EXAM 

CLISVJLAGS 

CLISV.HEX 

CLISV^KERNEL 

CLISVJ.OAD 

CLItV^LONG 

CLISV^NOTNUF 

CLISVJ3CT 

CLISV PREG 

CLISVlQA 

CLISV QACKLOOPLOOPS 

CLI$V"QAERRORPRINTS 

CLI$V"OAHULTIPLEPASS 

CLISV'QASUBTESTLOOPS 



Symbol table 
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27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame K? 



Sequence 294 
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00000002 

00000001 

00000003 

00000000 

00000001 

00000004 

00000008 

00000660 

000001BF 

000002BF 

00000130 

O000O2A2 

00000004 

FFFFFF70 

0000C2C7 

00000EDF 

00000100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

0000003C 

00000018 

00000008 

00000013 

OOOCOOOA 

0000001B 

OOOOOOOD 

00000002 

00000010 

oooooooc 

00000019 
00000008 
00000005 
00000009 
00000012 
00000017 

00000006 
OOOOOOOF 
00000001 
00000011 
0000001A 
00000007 
OOOOOOK 
0000001B 
000000 1F 
0000001 E 



D 

D 

D 

D 02 

D 03 

D 

D 

D 04 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



04 
04 
04 
04 



02 
04 



CLISV QATESTLOOPS 

CLJSV^REG 

CLISV_REGUIRED 

CLISV.RUN 

CLISV.SET 

CLJSV^SHOW 

CLISV VALSEC 

CLISV" WORD 

COMM FLAGS 

CRDSfl CRD DEBUG 

CRDSM'CTRC C NO ECHO 

CRDSOLUSH ?TR[ C 

CRDSM.INHIBTT ALCOCATE 

CRDSV„CRD DEBDG 

CRDSV CTRC C NO ECHO 

CRDSV^FLUSR JTRC C 

CRDSV.INHIBTT.ALCOCATE 

DESC 

DIR... 

dsscntrlc 

dssga..pta8le 

dssga.ptdesc 

ossga.selects 

dssgbjnhibit naming 

dssgl clibase 

ds$gl_crd flags 

dssgl. flags 

dssk Error 

dsskjjormal 

dssk..pr1nt8 

dsskj>rintf 

dssk printi 

dssk"pr1ntx 

DSSKlSEVERE 

DSSK.SUBSYS 

DSSK TYPE ABORT.PROGRAM 

DSSK.TYPElABORT TEST 

DSSK TYPE COMMARD.ERR 

DS$K~TYPElCOMMAND OUT 

DSSK TYPE CRD AUTOTEST 

DS$K"TYPE"DS,.PROMPT 

DS$K~TYPE~DS START 

DS$K~TYPE~ERRDEV 

DS$K"TYPE"£RRHARD 

DSSKlTYPElERROR^BODY 

DSSK TYPE ERRORlEND 

DSSK~TYPE~ERRPREP 

DSSK"TYPE"ERRSOFT 

DSSK~TYPE"ERRSUP 

DSSKlTYPElERRSYS 

DSSK TYPE ERR HALT 

DSSK"TYPE~EXCFPTION 

DSSK'TYPE'EXCEPTION HEAD 

DSSK"TYPE"FIRST PASS 

DSSK'TYPE""GENER5L 

DSSK~TYPE~GENERAL ERROR 

DSSK'TYPElNO.TESTS 



0000001 D 
00000014 
OOOOOOOO 
00000015 
00000003 
00000004 
00000016 
OOOOOOOE 
OOOOOOOO 
00000001 
00000002 
00000004 
00000008 
OOOOOOOO 
00000001 
00000002 
00000003 
FFFFFFF4 

00000001 
******** 

******** 

******** 

******** 
******** 

******** 
****** rt* 

******** 

00000002 
00000001 
00000002 
00000001 
OOOOOOOO 
00000003 
00000004 
00000066 
00000014 
00000013 
00000015 
00000016 
0000001 A 
00000001 
0000001 D 
00000008 
00000006 
00000009 
OOOOOOOA 
0000001B 
00000007 
00000004 
00000005 
OOOOOOOD 
OOOOOOOC 
OOOOOOOB 
0000001 ! 
OOOOOOOO 
00000003 
00000012 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 



00 
00 
00 
00 
00 
00 
00 
00 



ZZ-ENSAA-7.0 
ATTACH 
Symbol table 



Symbol table 



*** ATTACH Handle ATTACH 



DSSK TYPE PARAM ERROR 
DSSK~TYPE~PROGR*M END 
DSSK~TYPE~PROGRAM~INF0 
DSUCTYPE"PROGRAfCSTART 
DSSK~TYPE~QIO INVflDP 

dssjCtype'qicTnodriver 

dssk.typej3io wrongver 

dssk type scrlpt.echo 

ds$k"type~scr1pt_pnf 

dssk^type^script^prompt 

dssk type script skip 

dssoype'sequente error 

dssk^type'start err 

dssk type'start list 

dssk^type'summary 

dssk;type~user PROMPT 

dsskjjarnTng 

dssm abrtfl6 

dssm.badtime 

dssm_batch 

ds$m_brkclr 

dssm brkpt 

dssm~charflg 

dssm'cmdflg 

DS^CTRLC 

DSSM CTRLO 

DSSMJ)EVFLG 

DSSM DISABLCC 

DSSM~DONFLG 

DSSMlERRFLG 

DSSM EXCEPT 

DSSM'EXETST 

DSSM>LTFLG 

DSSM LODFLG 

DSSM'MEMMGT 

DSSM"OUTPUT 

DSSM RUBFLG 

DSSM~SCRJPT 

DSSM SETIMR 

DSSM^STRFLG 

DSSM'SUBT 

DSSM~SYSFLG 

DSSM~TIMRON 

DSSPRlNTF 

DSSV ABRTFLG 

DSSV~8ADTIME 

DSSV BATCH 

D5*V BRKCLR 

DiSV^BRKPT 

DSSV CHARFIG 

CSSV'CMDFLG 

US<iV~CTRLC 

DSSV'CTRLO 

DSSV^EVFLG 

DSSV"i)ISABLCC 

DSSVlOONFLG 

DSSV ERRFLG 



0000001 C 

00000010 

00000017 

OOOOOOOF 

00000024 

00000022 

00000023 

00000021 

0000001 E 

00000020 

0000001 F 

00000019 

00000018 

00000025 

00000O0E 

00000002 

00000000 

00000040 

00100000 

00400000 

00001000 

00000800 

00000100 

00000080 

00000001 

00010000 

00000200 

01000000 

00002000 

00000010 

00080000 

00040000 

00000008 

00000002 

00008000 

00800000 

00000020 

00200000 

02000000 

00000004 

00004000 

00000400 

00020000 
******** 

OC000006 
00000014 
00000016 
0000000C 
OOOOOOOB 
00000008 
00000007 
00000000 
00000010 
00000009 
00000018 
OOOOOOOD 
00000004 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

r 

D 
D 
D 
D 
D 
D 
D 
D 
< 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



00 



L 7 

27-JUL-1984 


Fiche 2 Frame L7 




command 27-JUL- 


•1984 15:01:41 VAX-11 


Macro VO 


23-MAY- 


•1984 14:09:26 DMA1 :CSYS0.SYSM 


DSSV EXCEPT 


= 00000013 


D 


DSSV.EXETST 


= 00000012 


D 


DSSV_HLTFLG 


= 00000003 


D 


DSSV„LODFLG 


= 00000001 


D 


DSSV MEMMGT 


= OOOOOOOF 


D 


DSSVlOUTPUT 


= 00000017 


D 


DSSV RUBFLG 


= 00000005 


D 


DSSV SCRIPT 


= 00000015 


D 


DSSVlSETIMR 


= 00000019 


D 


DSSV STRFLG 


= oooooco^ 


D 


DSSV~SUBT 


- uOOOOOOE 


D 


DSSV.SYSFLG 


= OOOOOOOA 


D 


DSSV TIMRON 


= 00000011 


D 


DSS JRITH 


= 006600DO 


D 


DSS'ASBE 


= 00660118 


D 


DS$~BADLINK 


= 006600FO 


D 


DSS'BADTYPE 


= 006600E8 


D 


DSS~BIIC 


= 00660120 


D 


DSS CHME 


= 006600A8 


D 


DSS CHMK 


= 006600EO 


D 


DSS'DEVNAME 


= 00660108 


D 


DSS^ERROR 


= 00660002 


D 


DSS FHWE 


= 00660068 


D 


DSS'FRAGBUF 


= 00660080 


D 


DSS"lCBUSY 


= 006600C8 


D 


DSS^ICERR 


= 006600CO 


D 


DS5 IHWE 


= 00660060 


D 


DSi"lLLCHAR 


* 00660018 


D 


DSS'ILLPAGCNT 


= 00660078 


D 


DSSJLLUNIT 


= 00660100 


D 


DSS INSFMEM 


= 00660050 


D 


DSS^IPL2HI 


= 00660088 


D 


DSS IVADDR 


= 00660040 


D 


DSS'IVVECT 


= 00660038 


D 


DSS'KRNLSTK 


= 00660090 


D 


DSS'LOGIC 


= 00660070 


D 


DSS'MCHK 


= 00660088 


D 


DSS'MMOFF 


= 00660058 


D 


DSS"NEEDUNIT 


= 006600F8 


D 


DSS'NODE 


= 00660128 


D 


DSS~NOPCS 


= 00660110 


D 


DSS~NORMAL 


= 00660001 


D 


DSS NOSUPPORT 


= 006600B1 


D 


DSS'NOTDON 


= 00660030 


D 


D$S~NOTIMP 


= 006600B0 


D 


DSS'NULLSTR 


= 00660010 


D 


DS$~OVERFLOW 


= 00660008 


D 


DSS~POWER 


= 00660098 


D 


DSS'PROGERR 


= 00660020 


D 


DS$~SEVERE 


= 00660004 


D 


DSS~TRANSL 


= 006600AO 


D 


DSS'TRUNCATE 


= 00660028 


D 


DSS"UNEXPINT 


= 006600D8 


D 


DSS^VASFULL 


= 00660048 


D 


DSS WARNING 


= 00660000 


D 


DSAJAL APTMAIL 


OOOOFEOO 


D 


DSASATlAPTTXT 


OOOOFAOO 


D 



Sequence 295 
i-OT Page 



7Q 
(6) 



ZZ-ENSAA-7.0 
ATTACH 
Symbol table 

DSASGL APTCOM 

DSA$6LlOHVLEN 

DSAS6LJRRNO 

OSASGL EVENT 

DSASGLJLAGS 

DSAtGL MSGTYP 

DSASGL'PASSES 

DSA$GL PASSNO 

DSA$Gl~SECTNO 

DSASGLlSID 

DSASGL SUBTNO 

DSA$GL"TESTNO 

DSA$GL~UNITS 

DSASGCfMSGPTR 

DSA$GT~DE.NAM 

DSASV SPT 

DSA$V~USER 

DSRSCOMPLETION 

DSRSIFLOADDEV 

DSV$ATTACH 

DSVSDEATTACH 

DSVSDESELECT 

OSVSSELECT 

DSV$SHOWDEVICE 

DSVSSHOWDEVICE8 

DSVSSHOWSELECT 

DSVSSHOWSELECTB 

DSXSATTACH 

DSXSPRINT 

DS.ERRSUP 

DS SUPERLINE 

EA&GS BASE 

EARG$~PC 

EARG$ITEXT 

ERROR EXIT 

EXE$A[ONONPAGED 

EXESDEANONPAGED 

EXTRACT 

EXJVDD 

EX.BADPARAM 
EX CASE 
EX~COMMON 
EXlCOMPLEMENT 

EX.DEC1MAL 

EX FETCH 

EX~fINISH 

EX~HEXADrCIMAL 

EXJ.ITERAL 

EX_LOGICAL 

EX.NAME 

EX^OCTAL 

EX START 

EX'STORE 

EX'STRING 

FLC$V BRIEF 

FORMAT PROMPT 

FPT$ ARGS 



Symbol table 



*** ATTACH Handle ATTACH command 
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27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame M7 
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0000FE04 




D 




0000FE58 




D 




0000FE44 




D 




0000FE48 




D 




OOOOFEOO 




D 




0000FE40 




D 




0000FE08 




D 




OOOOFE54 




D 




0000FE10 




D 




0000FE14 




D 




0000FE4C 




D 




0000FE50 




D 




OOOOFEOC 




D 




0000FE68 




D 




0000FE5C 




D 




0000001 F 




D 




0000001 C 




D 




******** 




X 


00 


******** 




X 


00 


00000000 


RG 


D 


04 


00000B37 


RG 





04 


00000D56 


RG 


D 


04 


OOOOOBDO 


RG 


D 


04 


00000AA5 


RG 


D 


04 


00000A9E 


RG 


D 


04 


00000B06 


RG 


D 


04 


OOOOOAFF 


RG 


D 


04 


0000010A 


RG 


D 


04 


******** 




X 


00 


******** 




X 


00 


******** 




X 


00 


00000908 




D 




00000004 




D 




OOOOOOOC 




D 




00000410 


R 





04 


******** 




X 


00 


i ******* 




X 


00 


00C008F2 


R 


D 


04 


00C00944 


R 


D 


04 


00000913 


R 


D 


04 


00000948 


R 


D 


04 


00000A23 


R 


D 


04 


00000946 


R 


D 


04 


00000919 R 


D 


04 


00000944 


R 


D 


04 


0000095C 


R 


D 


04 


00000919 


R 


D 


04 


00000944 


R 


D 


04 


00000936 


R 


D 


04 


00000951 


R 


D 


04 


00000919 


R 


D 


04 


00000917 


R 


D 


04 


00000969 


R 


D 


04 


00000924 


R 


D 


04 


00000000 




D 




00000A75 


R 


D 


04 


00000008 










FPT$ FORMAT 

GENERIC 

GET ATTRIBUTES 

GETlINE 

GET. LINK 

GET NAME 

GET'TYPE 

HP$A DEPENDENT 

HP$A*"DEV1CE 

HP$A„DVA 

HP$A LINK 

HP$B~DRIVE 

HP$B"FLAGS 

HPSClNAMELEN 

HP$M„NAME 

HPfM WASALL 

HPSQ.DEVICE 

HPST.DEVICE 

HP$T TYPE 

hp$v;alloc 

HP$V NAME 
HP$V WASALL 
HP$W SIZE 
HP$W VECTOR 
IARGJ BASE 
lARGS^PC 
IARG$ PROMPT 
IARG$~TEXT 
IF ALPHA 
JNTSPTABLE 
INSSPTABLE 
INTERPRET 

KB CHECK 

L$A CCP 

L$A"DEVP 

L$A DREG 

L$A DTP 

L$AJCP 

L$A LASTADR 

LSAJVAME 

L$A REPP 

LSAlSECNAM 

L$A STATAB 

LSAlTSTCNT 

LSL.ENV1RGN 

LSL.ERRTYP 

LSL.HEADLENGTH 

l$L_REV 

LSL.UNIT 

LSL.UNUSF.D 

L$L UPDATE 

LOCSADAPTER 

LOCSPTABLE 

LOCSPTDESC 

LOCAL 

LOCAL BLOCK 

MAXURIT 



00000004 
FFFFFFEB 
00000425 
O00OOA4D 
000001 DC 
0000037C 
0000014D 
00000032 
00000018 
0000001 C 
00000020 
OOOOOOOB 
OOOOOOOA 
00000014 
00000004 
0000O002 
00000000 
OOOOOOOC 
00000026 
00000000 
00000002 
00000001 
00000008 
00000024 
00000008 
00000004 
00000010 
OOOOOOOC 
O00O04C5 
O00OOEC2 
00001 064 
0000063B 
******** 

00000240 
0000021 C 
00000224 
00000218 
0000023 C 
00000214 
00000208 
00000244 
00000250 
00000248 
00000254 
00000204 
0000024C 
00000200 
0000020C 
00000220 
00000228 
00000210 
O00OOF66 
OOOOOFBB 
0000100A 
FFFFFF70 
FFFFFFE7 
FFFFFFFD 



D 
D 

R D U4 



04 
04 



R D 
R D 

R D 04 
R D 04 

D 

D 

D 

D 

D 

D 
G D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
R D 04 
RG D 04 
RG D 04 
R D 04 
X 00 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 04 
RG D 04 
RG D 04 

D 

D 

D 



ZZ-ENSAA-7.0 
ATTACH 
Symbol tahle 



Symbol table 



*** ATTACH Handle ATTACH command 



N 7 
27-JUL-1984 



NAME FLAGS 

OLDPC 

PARENT CONTROLLER 

PARENT"PTABLE 

PARSE BEVICE 

PART ClST 

pos Add 
posicase 
pds^complement 
pds decimal 

PD$IEND 

PD$ FETCH 

PD$lHEXADECIMAL 

PDS_L1TERAL 

PDS LOGICAL 

PDS~NAME 

PDSJXTAL 

PDS START 

PDS STORE 

PDS'STRING 

PD SDD 

PD"CASE 

PD'COMPLEMENT 

PD'DECIMAL 

PD FETCH 

PD~FINISH 

PD~HEXADECIMAL 

PD~LITERAL 

PD LOGICAL 

PD'NAME 

PD~NUMERIC 

PD'OCTAL 

PD~START 

PD'STORE 

PD STRING 

PT$EXTRACT 

PTSINTERPRET 

PTDSM CONTROLLER 

PTD$M~DEVICE 

PTDSM.ENDDEVJCE 

PTDSM INHERIT 

PTDSK*INHERITED 

PTDSM INHERIT CON 

PTDSM"INHERIT"PRE 

PTDJM~NAME 

PTD$M"*UNIT 

PTD$/"CONTROLLER 
PTDSV'INHERIT CON 

PTDSV'INHERIT'PRE 

PTDSVlNAME 

PTDSV UNIT 

PTDESf 

PT LOCATE 

Q ADAPTER 

O'HUB 

S&VABS... 

SCANSALPHA 



27-JUL-1984 
23-MAY-1984 



Fie he 2 Frame N7 
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FFFFFFFF 
FFFFFFFC 

FFFFFFFE 

FFFFFFF5 

000004DA 

000002A9 

0000008A 

0000008C 

00000089 

00000082 

00000081 

00000087 

00000084 

00000086 

0000008B 

0000008D 

00000083 

00000080 

00000088 

00000085 

00000699 

0000072B 

00000694 

00000754 

00000672 

00000669 

00000785 

0000066D 

000006B3 

00000748 

000007E9 

00000785 

00000664 

00000683 

00000851 

000008E0 

00000612 

00000002 

00000003 

00000018 

00000018 

00000008 

00000010 

00000008 

00000004 

00000001 

00000001 

00000004 

00000003 

00000002 

00000000 

00001035 
00000002 
0000029E 

oooooooc 



D 

D 

D 

D 
RG D 04 
R D 02 

D 

D 

D 

b 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



R 



R D 
R D 



R 
R I 



04 



R D 04 



04 
04 



R D 04 
R D 04 

D 

D 

D 

D 

D 



04 
04 
04 
0<* 
04 



R D 04 
R D 04 



04 
04 



RG D 04 
RG D 04 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
R D 04 
RG 03 
R D 02 

D 
X 00 



SCANSALPHANUM 

SCANSDECIMAL 

SCANSDEVICE 

SCANSNUMERIC 

SCANSSPACES 

SCANSSYMBOL 

SCAN ALPHA 

SCANSALPHANUM 

SCRlPTSFLUSH 

SET ABORT 

SHOOBUF SIZ 

SHOW DEC 

SIZ. 7. 

SKIP 

SSS BADPARAM 

SSS'DEVALLOC 

SSSlDEVALRALLOC 

SSS INSFARG 

SSS^NORMAL 

SSS NOSUCHDEV 

STjECIMAL 

ST^HEXADECIMAL 

ST_LOGICAL 

stjjctal 
st string 
sySsalloc 
syssdalloc 

Si'SSFAO 

SYSSFAOL 

T.AMBIG ADAP 

T AMBIG DEV 

T~8AD NflME 

TDEATTACH 

T DEVALLOC 

TINVALID 

OINK 

T MAIN BUS 

T~NAME~ 

T~N0 SUCH„ADAPTER 

T'NO'SUCH DEV 

T~NO~SUCHJ)NJ\DAPTER 

rPART._0F 

T PNF 

TlPROMPT 

T SHOULDBE 

TSHOWDEV 

T SH0WDEV8 

TSKIP 

TSTRING 

T TYPE 

TUNIT EXCESS 

T_YESN0 



******** 
******** 
******** 
******** 
******** 
******** 

000005FA 

00000606 
******** 

OOOOOOFD 
00000100 
O00OOE39 
00000001 
0000093D 
00000014 
00000840 
00000641 
00000114 
00000001 
00000908 
0000099B 
000009BD 
000009F9 
000009AB 

000009CE 

******** 

******** 
******** 
******** 

00000161 
000001 8E 
0000002E 
000001 C 5 
000001 E1 
00000007 
O0OOO0F6 
O00OO0A7 
OOOOOOEA 
00000 1 24 
0000010E 
000001 3B 
00000068 
000002?? 
OOOOOOt^ 
0G0O026? 
00000202 
0000021 C 
00000254 
00000281 
000001 C 2 
00000075 
00000273 



X 
X 
X 
X 
X 
X 
R D 



GX 
GX 
X 
G 

R D 



00 
00 
00 
00 
00 
00 
04 



R D 04 

X 00 

RG D 04 
D 



04 
04 



R D 

D 
R D 

D 

D 

D 

D 

D 

D 
R D 04 
R D 04 
R D 04 
R D 04 
R D 04 



00 
00 
00 
04 
02 



R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 

R D 02 



D 02 

D 02 

D Ou 

D 02 

R D 02 

R D 02 

R D 02 

R D 02 



ZZ-ENSAA-7.0 

ATTACH 

Psect synopsis 



Psect synopsis 



*** 



ATTACH Handle ATTACH command 
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PSECT name 

. ABS . 

*ABS$ 

DATA 

WORK 

CODE 



Allocation 

00000000 
FFFFFFFF 
0000020E 
0O000O0A 
00001 OF C 



! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( C.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

734.) 02 ( 2.) NOPIC USR 

10.) 03 ( 3.) NOPIC USR 

4348.) 04 ( 4J NOPIC USR 



CON 
CON 
CON 
CON 
CON 



A8S 
A8S 
REL 
REL 
REL 



LCL 
LCL 
LCL 
LCL 
LCL 



NOSHR 
NOSHfc 

SHR 
NOSHR 

SHR 



NOEXE 

EXE 

NOEXE 

NOEXE 

EXE 



NORD 
RD 
RO 
3D 



NOWRT 
WRT 

NOWRT 
WRT 

NOWRT 



NOVEC 
NOVEC 
NOVEC 
NOVEC 
NOVEC 



BYTE 
BYTE 
LONG 
LONG 
LONG 



ZZ-ENSAA-7.0 

ATTACH 

l ross reference 



Cross reference 



*** ATTACH Handle ATTACH command 



C 6 
27-JUL-1984 



SYMBOL 



SSN 
$$T1 

$ER 

SMODULE 
ABORT ATTACH 
ATCSjMDLINE 

atcs prompt 
badpSram 

BAD LINK 
BAD NAME 
BAD"TYPE 
BADJJN1TJXC 
BIT... 

BUFFER 

CENTRAL BUS 

CHECKAMBlGUOUS 

CLISK.BUFSIZ 

CLISK SIZE 

CLISLlADDRESS 

CUSL COMMAND 

CLISL'DATA 

CLISL'FLAGS 

CLlSL^LAST 

CLISL.NEXT 

CL JSL PASS 

UISL^SUBT 

CLISL TEST 

CLISQ'BUFQWD 

CLlSQ~FILE 



CL ISO 

CLISQ* 
CL 1ST" 
CLISV" 

clisv; 

CL JSV. 

CLISV 

clisv; 

CLISV, 

CLISV 

CLISV 

CLISV. 

CLISV 

clisv; 

CLISV 
CLISV" 



SECTION 

TIME 

BUFFER 

ADAPTER 

ADR 

>SCI J 

BREAK 

,B*\Ef 

BYTE 

CLEAR 

;dec 

DEFAULT 

DEPOSIT 

'EVENT 

'EXAM 

'FLAGS 
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Sequence 299 
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00000010 
0000043C 
0000003C 
=00000018 
=00000008 
=00000013 
=OOO00OOA 
=00000018 
=00000000 
=00000002 
=00000010 
=0O000O0C 
=00000019 
=00000008 
=00000005 
=00000009 



! Symbol Cross Reference i 
+ „—._ — ------------- + 



VALUE 


DEFINITION 


REFERENCES... 














00000002 


1777 


(4) 


1777 


(4) 














00000001 


1932 


(4) 


1932 


(4) 














00000003 


2524 


(6) 


0-2524 


(6) 


0-352 


(1) 










00000000-R 


188 


(1) 


2524 


(6) 


352 


(1) 










00000001 -R 


259 


(1) 


0-295 


(1) 


0-333 


(1) 


0-361 


(1) 






00000004 


417 


(1) 


432 


(1) 














00000008 


417 


(1) 


437 


(1) 














00000660-R 


1088 


(3) 


#-1070 


(3) 














0000U18F-R 


493 


(1) 


0-508 


(1) 


0-554 


(1) 










000002BF-R 


609 


(1) 


0-676 


(1) 














000001 30-R 


446 


(1) 


0-460 


(1) 


0-464 


(1) 










000002A2-R 


571 


(1) 


0-684 


(1) 














00000004 


164 


(1) 


151 
163 


(1) 
(1) 


152 
164 


(1) 

(1) 


156 


<1) 


161 


(1) 


FFFFFF70 


1054 


(3) 


1061 


(3) 


1268 


(3) 










000002C7-R 


244 


(I) 


519 


(1) 














OOOOOEDF-R 


2216 


(6) 


0-1319 


(4) 


0-1992 


(4) 










00000100 


160 


(1) 


160 


CD 














00000444 


160 


(1) 


















00000018 


160 


(1) 


















00000004 


160 


(1) 


0-2309 


(6) 














OOOOOOK 


160 


(1) 


















00000000 


160 


(1) 


2220 


(6) 


2226 


(6) 


2295 


(6) 






00000024 


160 


(1) 


















00000030 


160 


(1) 


















0000002C 


160 


(1) 


















00000028 


160 


(1) 


















00000020 


160 


(1) 


















00000034 


160 


(1) 


















00000008 


160 


(1) 


0-1618 


(4) 


0-1739 


(4) 


0-1746 


(4) 


0-1826 


(4) 








0-1872 


(4) 


0-1879 


(4) 


0-1999 


(4) 


0-2039 


(4) 








0-2046 


(4) 


#-22?7 


(6) 


0-307 


(1) 


308 


(1) 








0-310 


(1) 


313 


(1) 


0-335 


(1) 


337 


(1) 








0-339 


(1) 


0-343 


(1) 











160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 



0-2219 (6) 0-2225 (6) 



0-2294 (6) 



ZZ-ENSAA-7.0 Cross rel 


ference 








8 

27-JUL-1984 


Ffch 


e 2 Frame 


D8 


Seguence 300 


ATTACH 


*** ATTACH Handle 


ATTACH 


command 




27-JUL-1984 15: 


01:41 VAX- 


11 Mac 


ro V03-01 


Page 83 


I ross reference 
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09:26 DMA1 


:CSY50 


»SYSMAINT:]ATTACH.MAR;92 (6) 


CLltV^HEX 


=00000012 




160 




















CLISV KERNEL 


=00000017 




160 




















clisvIload 


=00000006 




160 




















CLLSV„LCNG 


=O0000O0F 




160 




















CLISV.NOTNUF 


=00000001 




160 




















CLISV OCT 


=00000011 




160 




















CLISV.PREG 


=0000001A 




160 




















CLISV^QA 


=00000007 




160 




















CLISV QACKLOOPLOOPS 


=0000001 c 




160 




















CL1SV"*GAERR0RPRINTS 


=00000O1B 




160 




















CLISV QAMULTIPLEPASS 


=0000001 F 




160 




















CLISVIQASUBTESTLOOPS 


=0000001 E 




160 




















CLISV JJATESTLOOPS 


=00000010 




160 




















CLISV^REG 


=00000014 




160 




















CLISV..REQUIRED 


=00000000 




160 




















CLISV,RUN 


=00000015 




160 




















CLISV„SET 


=00000003 




160 




















CLISV SHOW 


=00000004 




160 




















CLISVIVALSEC 


=00000016 




160 




















CLISV WORD 


=O0000O0E 




160 




















COMMjlAGS 


00000000- 


R 


257 




0-1616 


(4) 


0-1648 


(4) 


0-1686 


(4) 


0-1700 


(4) 












2129 


(6) 














CRDSM CRD DEBUG 


=00000001 




164 




















CRDSM CTRC C NOJCHO 


=00000002 




164 




















CRDSM"FLUSfl CTRL C 


=00000004 




164 




















crdsmjnhibTt alCocate 


=00000008 




164 




















CRDSV CRD DEBOG 


=00000000 




164 




















CRDSV~CTRL C NO ECHO 


=00000001 




164 




















CRDSVJLUSP CTRC C 


=00000002 




164 




















crdsvjnhibTt ALCOCATE 


=00000003 




164 




#-1925 


(4) 














DESC 


FFFFFFF4 




1054 


(3) 


0-1061 


(3) 


0-1282 


(3) 


1284 


(3) 






OIR... 


=00000001 




1564 


(4) 


1048 
417 


(3) 
(1) 


1054 
427 


(3) 
(1) 


1334 


(3) 


1564 


<4> 


DSSCNTRLC 


oooooooo- 


XR 






181 


(1) 


296 


(1) 


345 


(1) 






DSSGA^PTABLE 


00000000- 


XR 






1621 


(4) 


1690 


(4) 


1736 


(4) 


177 


(1) 












1821 
2363 


(4) 
(6) 


1994 
2500 


(4) 
<6> 


2131 
2519 


(6) 

(6) 


2230 


(6) 


DSSGA PTDESC 


00000000- 


XR 






177 


(1) 


2433 


(6) 










DSSGA'SELECTS 


00000000- 


XR 






1693 


(4) 


171 


(1) 


1780 


(4) 


1822 


(4) 












1995 


(4) 


2184 


(6) 


2529 


(6) 






DSSGB INHIBIT NAMING 


00000000- 


XR 






181 


(1) 


0-797 


(3) 










DSSGL^CLIBASE" 


oooooooo- 


XR 






171 


(1) 














DSSGL CRD FLAGS 


00000000- 


XR 






182 


(1) 


1925 


(4) 










DSSGl "FLAGS 


00000000- 


XR 






179 


(1) 


319 


(1) 










dssk Error 


=00000002 




1 56 


(1) 


















DSSK NORMAL 


=00000001 




156 


(1) 


















DSSlTPRINTB 


=00000002 




163 


(1) 


















DSSK.PRINTF 


=00000001 




163 


(1) 


0-1749 


(4) 


0-1777 


(4) 


0-1875 


(4) 


0-1882 


(4) 












0-1953 


(4) 


0-2042 


(4) 


0-2049 


(4) 


0-2138 


(6) 












0-2147 


(6) 


0-2255 


(6) 


0-2313 


(6) 


0-322 


(1) 












0-326 


(1) 














DSSK..PRINTI 


=00000000 




163 




















DSSK PRINTX 


=00000003 




163 




















DSSOEVERE 


=00000004 




156 


















| 


DSSK.SUBSYS 


=00000066 




156 




156 


(1) 












i 
i 


DSSK TYPE ABORT PROGRAM 


=00000014 




163 


















j 


ds$Oype>borOest 


=00000013 




163 


















i 

f 

i 

..._ 1 



ZZ-ENSAA-7.0 Cross rei 


erence 
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ATTACH 


*** ATTACH 


Handle ATTA 


Cross reference 






23-MAY-1984 14:09:26 DMA1 :[$YS0.SYSMAINTJATTACH.MAR;92 (6) 


DSSK_TYPE_COMMAND_ERR 


=00000015 


163 (1 


) #-1750 (4) #-1876 (4) #-1883 (4) #-1954 (4) 








#-2043 (4) #-2050 (4) #-2256 (6) A-2314 (6) 
#-323 (1) #-327 (1) 


DSSK TYPE COMMAND OUT 


=00000016 


163 (1 


) #-1777 (4) #-2139 (6) #-2148 (6) 


dssCtypeIcrd autOtest 


=0000001 A 


163 (1 




dssk type os Prompt 


=00000001 


163 (1 




DSSK~TYPE~DS~START 


=0000001 D 


163 (1 




ds$k;type;errdev 


=00000008 


163 (1 




dsskjypejrrhard 


=00000006 


163 (1 




DSSK TYPE ERROR BODY 


=00000009 


163 (1 




dsskjype;error~end 


=0000000A 


163 (1 




DSSKJYPE ERRPRfP 


=0000001B 


163 (1 




DSSK TYPE'ERRSOFT 


=00000007 


163 (1 




DSSK~TYPE~ERRSUP 


=00000004 


163 (1 




DSSKJYPElERRSYS 


=00000005 


163 (1 




DSSK TYPE ERR HALT 


=0000000D 


163 (1 




DSSK~TYPE~EXCPPTION 


=0000000C 


163 (1 




DSSK JYPE^EXCEPTION HEAD 


=00000008 


163 (1 




DSSKJYPEJIRST PASS 


=00000011 


163 (1 




DSSK TYPE GENERAL 


=00000000 


163 (1 




DSSKJYPE'GENERAL ERROR 


=00000003 


163 (1 




DSSK^TYPE'NO TESTS 


=00000012 


163 (1 




DSSK_TYPE-pARAM ERROR 


=0000001 c 


163 (1 




DSSK.TYPE""PROGRSM END 


=00000010 


163 (1 




DSSK TYPE'PROGRAM'INFO 


=00000017 


163 (1 




DSSK"TYPE~PROGRAM"START 


=O000OO0F 


163 (1 




DSSK~TYPE~QIO..INVSDP 


=00000024 


163 (1 




DSSKJYPEJ3IO..NODRIVER 


=00000022 


163 (1 




DSSK TYPE QIO WRONGVER 


=00000023 


163 (1 




DSSK~TYPE~SCRlPT_ECHO 


=00000021 


163 (1 




DSSK~TYPE~SCRIPT PNF 


=0000001 E 


163 (1 




DSSK"TYPE"SCRIPT"PROMPT 


=00000020 


163 (1 




DSSK~TYPE~SCRIPT~SKJP 


=0000001 F 


163 (1 




DSSK^TYPE'SEQUENtE ERROR 


=00000019 


163 (1 




DSSK~TYPE~START ERR 


=00000018 


163 (1 




DSSK"TYPE"START'LIST 


--00000025 


163 (1 




DSSK"TYPE"SUMMARY 


=000O0O0E 


163 r 




DSSK"TYPE"USER^PROMPT 


=00000002 


163 (1 




dssk'warnTng 


=00000000 


156 (1 




DSSM'ABRTFLG 


=00000040 


161 (1 




DSSM~BADTIME 


=00100000 


161 (1 




DSSM'BATCH 


=00400000 


161 (1 




DSSM"BRKCLR 


=00001000 


161 (1 




DSSM„BRKPT 


=00000800 


161 (1 




DSSM CHARFLG 


=00000100 


161 (1 




DSSM^CMDFLG 


=00000080 


161 (1 




DSSM^CTRLC 


=00000001 


161 (1 




DSSM CTRLO 


=00010000 


161 (1 




DSSM_DEVFLG 


=00000200 


161 (1 




DSSM.DISABLCC 


=01000000 


161 (1 




DSSM DONFLG 


=00002000 


161 (1 




DSSM'ERRFLG 


=00000010 


161 c 




DSSM^EXCEPT 


=00080000 


161 C 




DSSMJXETST 


=00040000 


161 (" 




DSSM HLTFLG 


=00000008 


161 C 




DSSM'LODFLG 


=00000002 


161 r 




DSSM'MEMMGT 


=00008000 


161 (' 





ZZ-ENSAA-7.0 

ATTACH 

Cross reference 

DSSM OUTPUT 

DSSM'RUBFLG 

DSSM'SCRIPT 

DSSM~SET1MR 

DSSM'STRFLG 

DSSM'SUBT 

DSSM~SYSFLG 

DSSffTIMRON 

DSSPRlNTF 

DSSV..ABRTFLG 

DSSV BADTIME 

DSSV.BATCH 

DSSV BRKCLR 

DSSV^BRKPT 

DSSV CHARFLG 

DSSV~CMDFLG 

DSSVlCTRLC 

DSSV_CTRLO 

DSSV DEVFLG 

DSSV~DISABLCC 

rSSVlDONFLG 

DS$V_ERRFLG 

DSSV EXCEPT 

DSSV~EXETST 

DSSV HLTFLG 

DSSV~LODFLG 

DSSVlMEMMGT 

DSSV OUTPUT 

DSSVJ?UBFLG 

DSSV^SCRIPT 

D$SV_SETIMR 

DSSV STRFLG 

DSSv'SUBT 

DSSV.SYSFLG 

DSSV TIMRON 

DSS ARITH 

DSS~AS8E 

DSS BADLIMK 

DSS'BADTYPE 

DSSlBIIC 

DSS CHME 

DSS'CHMK 

DSS"DEVNAME 

DSS'ERROR 

DS$"FHWE 

DSS FRAGBUF 

DSS~JCBUSY 

DSS~ICERR 

DSS~IHWE 

DSS ILLCHAR 

DSS'ILLPAGCNT 

DSS'IUUNIT 

DSS'INSFMEM 

DSS IPL2HI 

DSS'IVADDR 

DSS'IVVECT 

DSS'KRNLSTK 



Cross reference 



*** ATTACH Handle ATTACH command 



F 8 
27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame F8 



15:01:41 
14:09:26 



Seguence 302 
VAX-11 Macro V03-0T Page 85 
DMA1 :CSYS0.SYSMAINT]ATTACH.MAR;92 (6) 



=00800000 


161 


=00000020 


161 


=00200000 


161 


=02000000 


161 


=00000004 


161 


=00004000 


161 


=00000400 


161 


=00020000 


161 


00000000-XR 




=00000006 


161 


=00000014 


161 


=00000016 


161 


=oooooooc 


161 


=0000000B 


161 


=00000008 


161 


=00000007 


161 


=00000000 


161 


=00000010 


161 


=00000009 


161 


=00000018 


161 


=00000000 


161 


=00000004 


161 


=00000013 


161 


=00000012 


161 


=00000003 


161 


=00000001 


161 


=0000000F 


161 


=00000017 


161 


=00000005 


161 


=00000015 


161 


=00000019 


161 


=00000002 


161 


=0000000E 


161 


=O0O0OO0A 


161 


=00000011 


161 


=006600D0 


156 


=00660118 


156 


=006600F0 


156 


=006600E8 


156 


=00660120 


156 


=006600A8 


156 


=006600E0 


156 


=00660108 


156 


=00660002 


156 


=00660068 


156 


=00660080 


156 


=006600C8 


156 


=006600C0 


156 


=00660060 


156 


=00660018 


156 


-00660078 


156 


=00660100 


156 


=00660050 


156 


=00660088 


156 


=00660040 


156 


=00660038 


156 


=00660090 


156 



172 



(1) 



#-318 



(1) 



#-497 
#-450 



#-661 
#-2525 



(1) 
(1) 



(1) 
(6) 



#-541 



(1) 



#-575 



(1) 



ZZ-ENSAA-7.0 Cross 


reference 








27* 


G 8 

-JUL-1984 


Fich 


e 2 Frame 


G8 


Sequence 303 


ATTACH 


*** ATTACH Handle 


ATTACH 


command 




27-JUL-1984 15: 


01:41 VAX- 


11 Macro V03-01 


Page 86 


Cross reference 














23-MAY-1984 14; 


09:26 DMA1 


:CSYS0,SYSMAINTJATTACH.MAR;92 (6) 


OSS LOGIC 


=00660070 


156 






















DSS~MCHK 


=00660088 


156 






















DSS~MMOPF 


=00660058 


156 






















DSS~NEEDUNIT 


=006600F8 


156 






















DS$~N0DF 


=00660128 


156 






















OSS NOPCS 


=00660110 


156 






















DSS'NORMAL 


=00660001 


156 






















DSS~NOSUPPORT 


=006600B1 


156 






















DSSlNOTDON 


=00660030 


156 






















OSS NOTIMP 


=00660080 


156 






156 


(1) 














DSS~NULLSTR 


=00660010 


156 






















OSS'OVERFLOW 


=00660008 


156 






















0SS~P0WER 


=00660098 


156 






















DSS~PROGERR 


=00660020 


156 






















DSS~SEVERE 


=00660004 


156 






















DSS~TRANSL 


=006600AO 


156 






















OSS'TRUNCATE 


=00660028 


156 






















OSS UNEXPINT 


=006600D8 


156 






















OSS~VASFULL 


=00660048 


156 






















DSS'WARNING 


=00660000 


156 






156 


(1) 














DSAlGL FLAGS 


OOOOFEOO 








1924 


(4) 


2067 


(4) 


317 


(1) 






OSASGLlSIO 


00C0FE14 






#■ 


•534 


(1) 














DSASV SPT 


=0000001 F 






ft- 


-316 


(1) 














DSASV~USER 


=0000001 C 






#■ 


-1923 


(4) 


#-2066 


(4) 










DSRSCOMPLETION 


OOOOOOOO-XR 








178 


(1) 


1950 


(4) 










DSRSIFLOADDEV 


OOOOOOOO-XR 








178 


(1) 


1847 


(4) 










DSVSATTACN 


00000000-R 


294 


(1) 




















OSVSDEATTACH 


00000B37-R 


1733 


(4) 




















OSVSDESELECT 


00000D56-R 


1989 


(4) 




















OSVSSELECT 


000008D0-R 


1816 


(4) 




















DSVSSHOWDEVICE 


00000AA5-R 


1617 


(4) 




















OSVSSHOWDEVICEB 


00000A9E-R 


1615 


(4) 




















OSVSSHOWSELECT 


00000B06-R 


1687 


(4) 




















DSVSSHOWSELECTB 


OOOOOAFF-R 


1685 


(4) 




















OSXSATTACH 


0000010A-R 


429 


(1) 




314 


(1) 














DSXSPRINT 


OOOOOOOO-XR 








173 


(1) 


1751 


(4) 


1777 


(4) 


181 


(1) 












1877 


(4) 


1884 


(41 


1955 


(4) 


2044 


(4) 












2051 


(4) 


2140 


(6) 


2149 


(6) 


2257 


(6) 












2315 


(6) 


324 


(1) 


328 


(1) 






DS ERRSUP 


OOOOOOOO-XR 








172 


(1) 


2524 


(6) 


352 


(1) 






DS"SUPERLINE 


OOOOOOOO-XR 








172 


(1) 


341 


(1) 










EARGS BASE 


00000008 


1334 


(3) 




















EARGS PC 


00000004 


1334 


(3) 


ft 


-1338 


(3) 














EARGS'TEXT 


oooooooc 


1334 


(3) 


ft 


-1339 


(3) 


#-1406 


(3) 


#-1407 


(3) 






ERROR^EXIT 


000004 10-R 


718 


(2) 


ft 


-451 


(1) 


#-476 


(1) 


#-498 


(1) 


#-504 


(1) 










ft 
ft 


-542 
-713 


(1) 

(2) 


#-576 
#-715 


(1) 
(2) 


#-663 


(1) 


#-672 


(1) 


EXESALONONPAGED 


OOOOOOOO-XR 








173 


(1) 


473 


(1) 










EXESDEANONPAGED 


OOOOOOOO-XR 








173 


(1) 


1782 


(4) 


2516 


(6) 


724 


(3) 


EXTRACT 


000008F2-R 


1343 


(3) 


ft 


-1364 


(3) 


#-1371 


(3) 


#-1380 


(3) 


1383 


(3) 










ft 


-1394 


(3) 


#-1398 


(3) 


#-1403 


(3) 


#-1419 


(3) 










ft 


-1427 


(4) 


#-1479 


(4) 










EX ADD 


00000944-R 


1391 


(3) 




1358 


(3) 














EX'BADPARAM 


0000091 3-R 


1359 


(3) 


ft 


-1342 


(3) 














EXlCASE 


00000948-R 


1395 


(3) 




1358 


(3) 














EX COMMON 


00000A23-R 


1464 


(4) 


ft 


-1430 


(4) 


#-1434 


(4) 


#-1438 


(4) 


#-1448 


<4> 










ft 


-1450 


(4) 


#-1459 


(4) 











ZZ-ENSAA-7.0 Cross 


reference 






27- 


H 8 
-JUL-1984 


Fiche 


2 Frame 


H8 


Seqi 
*o V03-0T 


ence 304 




AT T <\CH 


*** ATTACH 


Handle 


ATTACH 


command 




27-JUL-1984 15:01 


:41 VAX- 


11 Macr 


Page 


87 


Cross reference 












23-MAY-1984 14:09 


:26 DMA1 


:CSYSO. 


SYSMAINTJATTACH.MAR;92 


(6) 


EX COMPLEMENT 


00000946-R 


1393 


(3) 


1358 


(3) 
















EX'DECIMAL 


0000091 9-R 


1365 


(3) 


1358 


(3) 
















EX~FETCH 


00000944-R 


1390 


(3) 


1358 


(3) 
















EX'FINISH 


0000095C-R 


1405 


(3) 


1358 


(3) 
















EXlHEXADECIMAL 


0000091 9-R 


1367 


(3) 


1358 


(3) 
















EX LITERAL 


00000944-R 


1389 


(3) 


1358 


(3) 
















EXlLOGICAL 


00000936-R 


1381 


(3) 


1358 


(3) 
















EX NAME 


00000951 -R 


1400 


(3) 


1358 


(3) 
















EXJKTAL 


0000091 9-R 


1366 


(3) 


1358 


(3) 
















EX START 


0000091 7-R 


1363 


(3) 


1358 


(3) 
















EX^STORE 


00000969-R 


1412 


(3) 


1358 


(3) 
















EX~STR1NG 


00000924-R 


1372 


(3) 


1358 


(3) 
















FLGSV.BRIEF 


=00000000 


256 


(1) 


#-1616 


(4) 


#-1648 


(4) 


#-1686 


(4) 


#-1700 


(4) 












#-2129 


(6) 
















FORMAT^PROMPT 


00000A75-R 


1566 


(4) 


1164 


(3) 


1230 


(3) 


1287 


(3) 


1527 


(4) 












449 
660 


(1) 
(1) 


496 


(1) 


540 


(1) 


574 


(1) 




FPT$ ARCS 


00000008 


1564 


(4) 


1572 


(4) 
















FPT$~FORMAT 


00000004 


1564 


(4) 


1572 


(4) 
















GENERIC 


FFFFFFEB 


427 


(1) 


640 


(1) 


#-753 


(3) 


#-769 


(3) 


772 


(3) 












#-793 


(3) 


796 


(3) 


#-799 


(3) 


873 


(3) 




GET ATTRIBUTES 


00000425-R 


750 


(3) 


#-668 


(1) 
















GETJ.1NE 


OO0O0A4D-R 


1517 


(4) 


1134 


(3) 


1201 


(3) 


1239 


(3) 


455 


(1) 












502 


(1) 


670 


(1) 












GET LINK 


000001DC-R 


500 


(1) 


#-492 


(1) 
















GET~NAME 


0000037C-R 


667 


(1) 


#-546 


(1) 


#-567 


(1) 












GET~TYPE 


000001 4D-R 


453 


(1) 


/*-444 


(1) 
















HP$A DEVICE 


00000018 






#-2131 


(6) 


#-2510 


(6) 


#-2511 


(6) 


#-557 


(1) 




HP$A~DVA 


0000001 C 






#-2510 


(6) 


#-2511 


(6) 


#-557 


(1) 








HPSAJ.INK 


00000020 






#-1629 


(4) 


#-1770 


.(4) 


#-1842 


(4) 


#-2016 


(4) 












2132 
#-2512 


(6) 

(6) 


#-2369 
#-556 


(6) 
(1) 


#-2496 


(6) 


#-2504 


(6) 




HP$B DRIVE 


OOOOOOOB 






#-685 


(1) 
















HP$BlFLAGS 


OOOOOOOA 






1929 


(4) 


1931 


(4) 


1936 


(4) 


#-1939 


(4) 












2070 
#-865 


(4) 
(3) 


2072 


(4) 


649 


(1) 


688 


(1) 




HP$C NAMELEN 


=00000014 


183 


(1) 


#-472 


(1) 


#-690 


(D 












HP$M"NAME 


=00000004 






#-865 


(3) 
















HP$M~WASALL 


=00000002 






#-1938 


(4) 
















HP$(TDEVKE 


00000000 






#-1634 


(4) 


#-1844 


(4) 


1932 


(4) 


#-1941 


(4) 












2073 


(4) 


2136 


(6) 


2145 


(6) 


#-2234 


(6) 












#-2238 


(6) 


#-2372 


(6) 


#-2376 


(6) 


#-2493 


(6) 












#-696 


(1) 


#-697 


(1) 


#-778 


(3) 


#-780 


(3) 




HP$T_DEVICE 


oooooooc 






#-563 


(1) 


694 


(1) 


959 


(3) 








HPST^TYPE 


00000026 






2114 


(6) 


2135 


(6) 


2144 


(6) 


#-2506 


(6) 












#-2508 


(6) 


484 


(1) 












HP$V ALLOC 


=00000000 






#-1928 


(4) 


#-2069 


(4) 












HP$V"NAME 


=00000002 






#-649 


(1) 


#-688 


(1) 












HP$V~WASALL 


=00000001 






#-1930 


(4) 


#-1935 


(4) 


#-2071 


(4) 








HP$W'SIZE 


00000008 






#-482 


(1) 


#-689 


(1) 












HP$W~VECTOR 


0000002*. 






#-565 


(1) 
















IARGJ BASE 


00000008 


1048 


(3) 


#-1068 


(3) 
















IARG$"PC 


00000004 


1048 


(3) 


#-1067 


(3) 
















IARG$'PROMPT 


00000010 


1048 


(3) 


1066 


(3) 
















IARG$~TEXT 


oooooooc 


1048 


(3) 


1063 


(3) 
















IF ALPHA 


000004C5-R 


813 


(3) 


#-886 


(3) 


#-894 


(3) 












in7$ptable 


00000EC2-R 


2180 


(6) 





















ZZ-ENSAA-7,0 Cross 


reference 






27« 


I 8 
■JUL-1984 


Fkh 


e 2 Frame 


18 


Seguence 305 


ATTACH 


*** ATTACH Handle t 


UTACH 


command 




27-JUL-1984 15: 


01 j 41 VAX- 


11 Mac 


ro V03-01 


Page 88 


iross reference 












23-MAY-1984 14; 


09:26 DMA1 


:[SYS0.SY$MAINT:)ATTACH.MAR;92 (6) 


INSSPTABLE 


00001 064-R 


2492 


(6) 


714 


(2) 














INTERPRET 


0000063B-R 


1071 


(3) 


#-1094 


(3) 


#-1102 


(3) 


#-1109 


(3) 


#-1116 


(3) 










#-1120 


(3) 


#-1129 


(3) 


#-1158 


(3) 


#-1175 


(3) 










#-1183 


(3) 


#-1222 


(3) 


#-1265 


(3) 






KB CHECK 


00000000-XR 






179 


(1) 


332 


(1) 










L$S DEVP 


0000021 C 






#-2428 


(6) 














LSL'HEADLENGTH 


00000200 






#-2426 


(6) 














LOC$ADAPTER 


00000F66-R 


2292 


(6) 


#-1622 


(4) 


#-1737 


(4) 


#-1823 


(4) 


#-1996 


(4) 


LOCSPTABLb 


00000FBB-R 


2358 


(6) 


#•1741 
2497 


(4) 
(6) 


#•1865 
551 


(4) 
(1) 


#-2032 


(4) 


#-2305 


(6) 


LOCSPTDESC 


00001 OOA-R 


2i<22 


(6) 


2116 


(6) 


463 


(1) 










LOCAL 


FFFFFF70 


1054 


(3) 


1060 


(3) 














LOCAL BLOCK 


?^^FE7 


427 


(1) 


431 


(1) 














MAX URlT 


fffff^D 


<*27 


(1) 


#-681 


(1) 


#-757 


(3) 


#-761 


(3) 






NAMFjLAGS 


FFFFFFFF 


i>27 


(1) 


#-615 


(1) 


679 


(1) 


#-752 


(3) 


#-760 


(3) 










#-767 
#-803 


(3) 
(3) 


#-776 
#-854 


(3) 
(3) 


788 


(3) 


792 


(3) 


CLDPC 


FFFFFFFC 


1054 


(3) 


#-1072 


(3) 


#-1270 


(3) 










PARENT^CONTROILER 


FFFFFFFE 


427 


(1) 


#-636 


(1) 


#-754 


(3) 


#-790 


(3) 


#-800 


(3) 










#-898 


(3) 














PARENT PTABLE 


FFFFFFF5 


427 


(1) 


#-545 


(1) 


#-552 


(1) 


#•773 


(3) 






PARSE J5rViCE 


000004DA-R 


852 


(3) 


#-674 


(1) 














PART.LloT 


000002A9-R 


233 


(1) 


234 


(1) 


235 


(1) 


236 


(1) 


237 


(1) 










238 
623 


(1) 
(1) 


#-613 


(1) 


614 


(1) 


#•622 


(1) 


PD$ AOf 


=0000008A 


152 


(1) 


















PD$ CASE 


=0000008C 


152 


(1) 


















PDS'COMPLEMENT 


=00000089 


152 


(1) 


















PDS^DECIMAL 


=00000082 


152 


(1) 


#-1426 


(4) 














PD$ END 


=00000081 


152 


(1) 


















PD$~FETCH 


=00000087 


152 


(1) 


















PD$lHEXADECiMAL 


=00000084 


152 


(1) 


















PD$,LITERAL 


=00000086 


152 


(1) 


















PD$J.OGICAL 


=0000008B 


152 


(1) 


















P0$.NAME 


^00000080 


152 


(1) 


#-765 


(3) 














PDS.OCTAL 


=00000083 


152 


(1) 


















PD$_START 


=00000080 


152 


(1) 


#-1069 


(3) 


#-1087 


(31 


#•1341 


(3) 


#•1358 


(3) 










#-2452 


(6) 


#-763 


(3) 










PD$ STORE 


=00000088 


152 


(1) 


















PD$~STRING 


=00000085 


152 


(1) 


















PD Add 


00000699-R 


1122 


(3) 


1087 


(3) 














PD'CASE 


00000728-R 


1168 


(3) 


1087 


(3) 














PD'COHPLEMENT 


00000694-R 


1118 


(3) 


1087 


(3) 














PD'DECIMAL 


00000754-R 


1185 


(3) 


1087 


(3) 














PD'FETCH 


00000672-R 


1104 


(3) 


1087 


(3) 














PD'FINISH 


00000669-R 


1096 


(3) 


1087 


(3) 














PD~HEXADEUMAL 


000007B5-R 


1193 


(3) 


1087 


(3) 














PD~LITERAL 


0000066D-R 


1100 


(3) 


1087 


(3) 














PDlLOGKAL 


00000683-R 


1131 


(3) 


1087 


(3) 














PD NAME 


00000748-R 


1180 


(3) 


1087 


(3) 














PD'NUMERJC 


000007E9-R 


1197 


(3) 


#-1187 


(3) 


#•1191 


(3) 


#•1195 


(3) 






PD~OCTAL 


00000785-R 


1189 


(3) 


1087 


(3) 














PD'START 


00000664-R 


1092 


(3) 


1087 


(3) 














PD~STORE 


00000683-R 


1111 


(3) 


1087 


(33 














PD'STRING 


00000851 -R 


1236 


(3) 


1087 


(3) 














PT$EXTRACT 


000008E0-R 


1336 


(3) 


2127 


(6) 














PTSINTERPRET 


0000061 2-R 


1058 


(3) 


709 


(1) 















ZZ-ENSAA-7.0 Cross 


reterence 






27« 


J 8 

•JUL-1984 


Fiche 


2 Frame 


J8 


Seguence 306 
o V03-01 Page 




ATTACH 


*** ATTACH Handle 


ATTACH 


command 




27-JUL-1984 15:01 


:41 VAX- 


11 Macr 


89 


Cross reference 












23-MAY-1984 14:09:26 DMA1 


:CSYS0.SYSMAINTJATTACH.MAR;92 


(6) 


PTDSM CONTROLLER 


=00000002 


151 




151 


(1) 


#-950 


(3) 










PTDSM DEVICE 


=00000003 


151 




















PTDSM'ENDDEVICE 


=00000018 


151 




















PTDSM INHERIT 


=00000018 


151 




151 


(1) 


#-775 


(3) 










PTDShf INHERITED 


=00000008 


151 




















PTDSM~INHERIT CON 


=00000010 


151 




151 


(1) 














PTD$M~INHERIT~PRE 


=00000008 


151 




151 


(1) 














PTDSM~NAME 


=00000004 


151 




#-802 


(3) 














PTDSM~UNIT 


=00000001 


151 




151 


(1) 


#-759 


(3) 


#-801 


(3) 


#-950 (3) 




PTDSV~CONTROLLER 


=00000001 


151 




#-630 


(1) 


#-884 


(3) 










PTDSV'lNHERIT CON 


=00000004 


1:1 




#-634 


(1) 


#-787 


(3) 










PTDSV'INHERITPRE 


=00000003 


151 




#-791 


(3) 














PTDSV~NAME 


=00000002 


151 




#-617 


(1) 


#-856 


(3) 










PTDSV~UNIT 


=00000000 


151 




#-627 


(1) 


#-678 


(1) 


#-907 


(3) 


#-911 (3) 




PTDESC 


FFFFFFF9 


427 




#-468 


(1) 


#-755 


(3) 










PT LOCATE 


00001035-R 


2441 


(6) 


#-2430 


(6) 


#-2434 


(6) 










Q^SDAPTER 


00000002-R 


261 




#-1744 


(4) 


#-1870 


(4) 


#-2037 


<4) 


ti-2222 (6) 












#-2296 


(6) 


#-2310 


(6) 










Q HUB 


0000029E-R 


230 




2134 


(6) 














S*VA8S... 


=0000000C 


1564 


(4) 


















SCANSALPHA 


00000000-XR 






1136 


(3) 


180 


(1) 


782 


(3) 


978 (3) 




SCANSALPHANUM 


000C0OO0-XR 






174 


(1) 


987 


(3) 










SCANlDECIMAL 


00000000-XR 






180 


(1) 


905 


(3) 










SCANSDEVICE 


00000000-XR 






174 


(1) 


506 


(1) 










SCANSNUMERIC 


00000000-XR 






1208 


(3) 


174 


(1) 










SCANSSPACES 


00000000-XR 






1519 


(4) 


175 


(1) 










SCANSSYMBOL 


00000000-XR 






175 


(1) 


458 


(1) 










SCAN ALPHA 


000005FA-R 


976 


(3) 


#-936 


(3) 














SCAN'ALPHANUM 


00000606-R 


985 


(3) 


#-946 


(3) 














SCRlPTSFLUSH 


00000000-XR 






172 

297 


(1) 
(1) 


1735 


(4) 


1818 


(4) 


1991 (4) 




SET ABORT 


000000FD-R 


360 


(1) 


296 


(1) 














shoObuf siz 


=00000100 


2108 


(6) 


2110 


(6) 


#-2112 


(6) 


#-2142 


<6) 






SHOW DE? 


0OOOOE39-R 


2109 


(6) 


1643 


(4) 


1696 


(4) 










SIZ... 


=00000001 


164 


(1) 


151 


(1) 


161 


(1) 


164 


(1) 






SKIP 


0000093D-R 


1384 


(3) 


#-1369 


(3) 


#-1374 


(3) 










SSS.BADPARAM 


=00000014 






#-1089 


(3) 


#-1165 


<3> 


#-1231 


(3) 


#-1288 (3) 












#-1360 


(3) 














SSS.DEVALLOC 


=00000840 






#-1946 


(4) 














SSS.DEVALRALLOC 


^00000641 






#-1933 


(4) 














SS$ INSFARG 


=00000114 






#-1528 


(4) 














SS$lNORMAL 


=00000001 






#-1097 


(3) 


#-1408 


(3) 


#-1522 


(4) 


#-1922 <4) 












#-2186 


(6) 


#-2530 


(6) 










SS$ NOSUCHDEV 


=00000908 






#-1943 


(4) 














ST.GECIMAl 


0000099B-R 


1428 


(4) 


1426 


(4) 














ST HEXADECIMAL 


000009BD-R 


1436 


(4) 


1426 


(4) 














ST.LOGICAL 


000009F9-R 


1453 


(4) 


1426 


(4) 














ST.OCTAL 


000009AB-R 


1432 


(4) 


1426 


(4) 














ST STRING 


000009CE-R 


1440 


(4) 


1426 


(4) 














SY5SALLOC 


00000000-XR 






176 


(1) 


1932 


(4) 










SYSSDALLOC 


00000000-XR 






176 


(1) 


2073 


(4) 










SYSSFAO 


00000000-XR 






1473 


(4) 


176 


(1) 










SYSSFAOL 


00000000-XR 






1572 


(4) 














T AM8IG ADAP 


00000161-R 


210 


(1) 


2252 


(6) 














T~AM8IG"DEV 


0000018E-R 


212 


(1) 


2254 


(6) 














T~BAD N*ME 


0000002E-R 


191 


(1) 


659 


M) 














T"DEATTACH 


000001C5-R 


214 


(1) 


1777 


<4) 















ZZ-ENSAA-7.0 Cross 


reference 




ATTACH 


*** attach 


Handle 


Cross reference 






T DEVALLOC 


000001 E1 -ft 


216 


TINVALID 


00000007-R 


189 


TLINK 


000000F6-R 


202 


T MAIN BUS 


000000A7-R 


197 


T~NAME~ 


000000EA-R 


201 


T~N0 SUCH ADAPTER 


000001 24-R 


206 


TncTsuchIdev 


0000010E-R 


204 


T NO SUCH ON ADAPTER 


000001 38-R 


208 


TpaRt OF 


0000006B-R 


193 


T"PNF " 


00000227-R 


222 


T~PR0MPT 


000000DD-R 


199 


Tshouldbe 


00000269-R 


224 


Tshowdev 


00000202-R 


218 


Ohowdevb 


0000021 OR 


220 


T..SK1P 


00000254-R 


223 


T STRING 


00000281 -R 


228 


t'type 


000001 02-R 


203 


T~UNIT EXCESS 


00000075-R 


19b 


TyesnO 


00000273-R 


226 



ATTACH command 



K ft 

27-JW.-1984 



27-JU01984 
23-MAY-1984 



F i che 2 Frame K8 



15:01:41 

14:09:26 



Sequence 307 
VAX-11 Macro V03-01 Page 90 

DMA1 :CSYS0.SYSMAINT]ATTACH.MAR;92 (6) 



1945 (4) 

448 <1) 

494 (1) 

539 (1) 

572 (1) 
2312 (6) 
1881 (4) 
1748 (4) 
654 (1) 
321 (1) 
1526 (4) 

1162 (3) 
2137 '6) 
2146 (6) 
325 (1) 

1163 (3) 
447 (1) 

573 (1) 
1161 (3) 



495 
501 

655 

1942 
1874 



(1) 
(1) 



(1) 

(4) 
(4) 



537 
669 

2048 
2041 



(1) 

(1) 

(4) 
(4) 



1227 (3) 



1285 (3) 



1286 
454 



(3) 
(1) 



ZZ-ENSAA-7.0 

ATTACH 
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*** ATTACH Hanale ATTACH command 



L 8 

27-JUL-1984 



Fiche 2 Frame L8 Seguence 308 
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+ ... — — + 

! Macros Cross Reference i 
+.. + 



MACRO 

SALLOC S 
SD1 PRlNl S 
SDALIOC S" 
SDEF 
SDEFINI 

$DS CNTRLC S 
SDS~DSADEF~ 
SDS OSDEF 
$DS HDRDEF 
SDS^HPODEF 
SOSlPDDEF 
SDS PTDDEF 
SDS TYPEDEF 
SEQD 
SEQoLSI 
SEQULST 
SFAOL S 
SGBLlRl 

SIPLDEF 
SOFFSET 

SOFFST1 

SPRDEF 
SPRINT 
SPUSHADR 

SPUSHTWO 

SSSDEF 

SVJELD 

SVIELD1 

BR IF INHIBIT ALLOCATE 

CASE " 

CLIDEF 

CRDDEF 

DSFDfF 

ERRSUP^S 

MODNAM 



SIZE 

? 

1 

1 
1 
1 

1 
1 
2 
2 
2 
1 
1 
4 
1 
1 
1 
1 
2 

1 
2 



4 
2 

1 

1 

21 

1 

1 

1 

1 

3 

1 

3 

1 

1 



Phase 

Initialisation 

Command processing 
Pass 1 



DEFINITION 


1932 


(4) 


1777 


(4) 


2073 


(4) 


164 


(1) 


153 


(1) 


296 


(1) 


155 


(1) 


156 


(1) 


153 


(1) 


154 


(1) 


152 


(1) 


151 


(1) 


163 


(1) 


164 


(1) 


163 


(1) 


152 


(1) 


1571 


(4) 


151 


(1) 


159 


(1) 


415 


(1) 


417 


(1) 


157 


(1) 


1774 


(4) 


296 


(1) 


1932 


(4) 


158 


(1) 


151 


(1) 


164 


(1) 


1925 


(4) 


1073 


(3) 


160 


(1) 


164 


(1) 


161 


(1) 


352 


(1) 


188 


(1) 



RtFERENCES... 


1932 


(4) 


1777 


(4) 


2073 


(4) 


153 


(1) 


158 


(1) 


296 


(1) 


155 


(1) 


156 


(1) 


153 


(1) 


154 


(1) 


152 


(1) 


151 


(1) 


163 


(1) 


151 


(1) 


152 


(1) 


152 


(I) 


1571 


(4) 


151 


(1) 


163 


(1) 


159 


(1) 


1044 


(3) 


415 


(1) 


1048 


(3) 


417 


(1) 


157 


(1) 


1774 


(4) 


1572 


(4) 


296 


(1) 


1932 


(4) 


158 


(1) 


151 


(1) 


151 


(1) 


1925 


(4) 


1073 


(3) 


160 


(1) 


164 


(1) 


»61 


(1) 


Z«4 


(6) 


18b 


(1) 



+. .. -. > 

! Performance indicators ! 
+..... ...... ..+ 



Page faults CPU Time 

31 00:00:00.10 

139 00:00:00.72 

1409 00:00:21.99 



Elapsed Time 

00:00:00.26 
00:00:01.51 
00:00:2b. 52 



154 


(1) 


159 


(1) 


348 


(1) 


162 


(1) 



152 
:56 
156 


(1) 
(1) 
(1) 


152 
164 


(1) 

(1) 


1050 
419 
1054 
427 


v'5) 
(1) 
(3) 
(1) 


1932 
348 


(4) 
(1) 


161 
161 


(1) 

(1) 



1344 (3) 



352 



(1) 



155 



(1) 



157 (1) 



156 
163 
163 

156 



1331 

1334 



2073 
352 



164 
164 



(1) 
(1) 
(1) 

(1) 



(3) 
(3) 



(4) 
(1) 



(1) 
(1) 



163 

161 

1562 

1564 



(1) 

(1) 

(A) 
(4) 



2524 (6) 



1421 (4) 



H 8 
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ATTACH *** ATTACH Handle ATTACH command 27-JUL-1984 15:01:41 VAX-11 Macro V03-OT Page 92 

VAX-11 Macro Run Statistics 23-MAY-1984 14:09i26 DMA1 :LSYS0.SYSMAINT]ATTACH.MAR;92 (6) 

Symbol table sort 16 00:00:01.80 00:00:01.94 

Pass 2 849 00:00:06.92 00:00:10.75 

Symbol table output 2 00:00:00.31 00:00:00.82 

Psect synopsis output 5 00:00:00.03 00:00:00.03 

Cross-reference output 149 00:00:02.00 00:00:03.38 

Assembler run totals 2605 00:00:33.88 00:00:45.25 

The working set limit was 1000 pages. 

130188 bytes (255 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 989 non-local and 183 local symbols. 

2533 source lines were read in Pass 1, producing object records in Pass 2. 

107 pages of virtual memory were used to define 37 macros. 

+ ™ ™«™ — + 

! Macro library statistics J 
+—- . — ————.-+ 

Macro library name Macros defined 

DRB1 :[DS.W0RK]DIAG.MIB;955 10 

DRB1 :[DS.WORKDDS.MLB;218 7 

SYS$SYSR00T:CSYSLIB3LIB.MLB;1 1 

0MA1 :CSYS0.SYSMAINT]DS.MLB;218 

DMA1 :CSYS0.SYSMAINT]DIAG.MLB;953 

SYS$SYSR00T:[SYSLJB]LIB.MLP;1 

SYS$SYSR00T:CSYSL1B]STARLET.MLB;2 14 

TOTALS (all libraries) 32 

1066 GETS were required to define 32 macros. 

There were no errors, warnings or information messages. 

MACR0/NOOBJECT/LIST=LDS.LIS3/CR0S$/ENABLE=(DEBUG,TRACE) ATTACH/UPDA=(ATTACH. UPD, ATTACH. ENH) +SYSSL IBRARY :L JB/L JBRARY+DMA1 :CSYSO.SYSMA 



N 8 
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BOOTDRIVR *** BOOTDRIVR non-interrupt I/O 27-JUL-1984 15:02:28 VAX-11 Macro V03-0T Page 

fable of contents 

Declarations 

DRIVER FIXED DATA AREA 

B00SQI0 - BOOTSTRAP QIO ROUTINE 

BOOSMAP - ROUTINE TO MAP DATA FOR BOOSQIO 

BOOSPURDPR - Purge UBA Buffered Datapath 

BOOSSELECT - Select boot driver 



(2) 


1 18 


(5) 


181 


(4) 


212 


(5) 


431 


(6) 


489.3 


(8) 


535.54 



r 
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*** BOOTDRIVR non-interrupt I/O 



B 9 
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311 



-1 



-2 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.1 

,2 
3 
A 
5 
6 

.1 

8 

9 

10 

11 

12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
21 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
A1 
A2 
A3 
AA 
.1 
.2 
.3 
.A 
.5 
.6 
.7 
.8 
.9 
A7 
.1 
.2 
.3 



.TITLE BOOTDRIVR 
.IDENT 'V02-017' 



*** BOOTDRIVR non-interrupt I/O 



***************+**********; *********t************************************** + 



* COPYRIGHT (c) 1979, 1980, 1983 

* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MAiS. 

* 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

* TRANSFERRED. * 

* * 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

* CORPORATION. * 

* * 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* * 

+ + 

FACILITY: 

Minimal bootstrap driver for all VMS system disks. 

ENVIRONMENT: 

Runs at I PL 31, kernel mode, memory management may be on or off, 
IS=1 (running on interrupt stack), code must be PIC. 

ABSTRACT: 

This module contains a routine called BOOSQIO that handles I/O 
transfers to and from the VMS system disks. 



AUTHOR: 



The VMS group 

DS02 Marion Baggett, A-March-1983 Version 6.11 
Added support for HSCCI booting. 

DS01 Roger Riggs, 2A-oct-1980, version 6.1 

Added changes to version A VMB/BOOTDRIVR to make it usabLe 
as bootdrivers for the Diagnostic Supervisor. 
Note that some changes are here an others are in 
BOOTDRIVR. EM, since there are conflicts between VMS 
changes and DS changes. 

0217 Bob Bergazzi 27-Mav-1983 

Added another dispatch for CPU XXX in the CPUDISP MACRO. 
This edic was put in by the supervisor group in the ,ENH 
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*** BOOTDRIVR non-interrupt I/O 



0000 


.4 


0000 




0000 


.6 


0000 


.7 


0000 


.8 


0000 


.9 


0000 


.10 


0000 


48 


0000 


49 


0000 


50 


0000 


51 


0000 


5? 


0000 


53 


0000 


54 


cooo 


55 


0000 


56 


0000 


57 


0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


0000 


72 


0000 


73 


0000 


74 


0000 


75 


0000 


76 


0000 


77 


0000 


78 


0000 


79 


0000 


80 


oooc 


8 1 


0000 


82 


0000 


83 


0000 


84 


0000 


85 


0000 


86 


0000 


87 


0000 


SB 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 



0216 

0215 

0214 

00213 

0212 

0211 

0210 



0209 



0208 



0207 

0206 
0205 

0204 



0203 
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file because the edit applies to a change in the .ENH file. 
Eventually a new BOCTDRIVR module may be taken from VMS 
which has the correct code in it. 



CAS0001 C.A. Samuelson 

Add Purge of Buffered Datapath for UBA 



30-Apr-1980 
boot drivers 



TMH0001 Tim Halvorsen 10-Mar-1980 

Mask off upper bits of PTE when constructing map register. 



KDM0092 
Change VMB 



Kathleen D. Morse 
version number from 2 to 3. 



23-Jan-1980 



16:40 



om 



16:50 



10:30 



SRB0005 Steve Beckhardt 27-Nov-1979 16:10 

Added code to support passing driver name from 

boot driver to SYSBOOT. Also added version tf vector. 

SRB0004 Steve Beckhardt 31-0ct-1979 10:45 

Moved all drivers into separate modules. Added code 

for connecting only the necessary driver. 

SRB0003 Steve Beckhardt 25-0ct-1979 16:40 

Added console TU58 driver. 

CHF0001 Charlie Franks 23-Sep-1979 15:50 

Added code and definitions to support RM80 bootable 

system, includes: SSE and SSEI bit definitions, additions 

to the MBAGEOM table and the MBA_DISKJ)RUVER routine, and 

the SSERR0R skip sector routine. 

Corrected byte count remaining update after encountering 

a transfer error in MBA_DISK_DRIVER (convert MBA$L_BCR fr 

word to longword) . 

SRB0002 Steve Beckhardt 13~Sep-1979 

Added symbol EXESGB CPUTYPE (removed from module VMB) 

so that it gets loa3ed into non-paged pool with the 

boot driver. 

SRB0001 Steve Beckhardt 27-Aug-1979 

Added boot device definitions (S8TDDEF), Fixed CPUDISP 

macro. Added support for booting from console block 

storage device. Added 11/780 console floppy driver. 

Changed boot value of R0 when booting from RL01/2 from 

to 2. 

CHP0006 C. Peters 23-Jul-1979 

Correct calculation of number of map registers needed. 

Always invalidate one past the number required. 

CHP0005 C. Peters 

Add geometry of RM05 to MBAGEOM table. 

CHP0004 C. Peters 

Recode RK06/7 drive initialization code to correct bug 

in RK07 handling. 

CHP0003 C. Peters 24-May-1979 14:24 

Only invalidate the last UBA map reaister if the 

transfer was page-aligned. Remove all code relating 

to COMET-specif Tc UBA map register format. All UBA 

map registers are now alike. Delete definition of 

storage for CPU TYPE. Use instead a global symbol 

EXESGB CPUTYPE Initialled by VMB to hold the CPU 

ident iTication code. 

CHP0002 C. Peters 11-May-1979 13:20 

Add code to invalidate the last UBA map register to stop 



!0-Jul~1979 

06-Jul-1979 



16:16 

12:14 

14:06 



... i 
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*** BOOTDRIVR non-interrupt I/O 



D 9 
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98 
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99 
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0000 
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0000 
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0000 
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0000 


104 


0000 


105 


0000 
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0000 


107 


0000 
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0000 


109 


0000 


110 


0000 


111 


cooo 


112 


0000 


113 


0000 


in 


0000 


115 


0000 


116 



0202 



a wild transfer. This code is CPU 
CHP0001 C. Peters 
Fill out module header. Add CPUDI 
symbol CPU.TYPE for CPUDISP's use 
Extract processor type from PR$_S 
CPU.TYPE. Find adapter type from 
general register. Initialize map 
and adapter-dependent way. Determ 
use based on adapter and device t 
header comments to MBA and RK06/7 
device CSR address in RK06/7 driv 
value used as index into RPB. Add 
comments to ECC routine. Replace 
Add code and definitions to suppo 
system: includes 5RLDEF, a test f 



type, and 
Franks). 



the minimal RL02 driver 



-specific. 

23-Mar-1979 
SP macro. Add local 
. Add many comments. 
ID and store in local 
C0NFREG, and store in 
registers in a CPU- 
ine which driver to 
ype. Add routine 

driver code. Derive 
er from PR$_MAPEN 

routine header 
.PAGEs with form feeds, 
rt RL02 bootable 
or the RL02 device 

code (written by C. 



8:48 



ZZ-ENSAA-7.0 Declarations 








E 9 
27-JUL-1984 


Fiche 2 Frame E9 Sequence 314 
15:02:28 VAX-11 Macro V03-01 Page 4 
09:26:39 DMA1 iCSYSO.SYSMAINTJBOOTDRIVR.MAR; (2) 


B00TDR1VR 


*** B00TDR1VR nor 


l-interruot I/O 


27-JUL-1984 


VO2-017 


Declarations 






1-APR-1980 




0000 


118 




.SBTTL 


Declarations 








0000 


119 














0000 


120 ; 














0000 


121 ; 


MACRO 


LIBRARY 


CALLS 








0000 


122 ; 














0000 


123 














0000 


124 




SBTDDEF 






Define boot device types 




0000 


125 




SIODEF 






DEFINE I/O FUNCTION CODES 




0000 


126 




SMBADEF 






DEFINE MASSBUS ADAPTER REGISTERS 




0000 


127 




SNDTDEF 






NEXUS device types 




0000 


128 




$PRDEt 






DEFINE PROCESSOR REGISTERS 




0000 


129 




SPTEDEF 






DEFINE PA6E TABLE ENTRY FIELDS 




0000 


130 




SRPBDEF 






DEFINE RESTART PARAMETER BLOCK 




0000 


131 




SSSDEF 






DEFINE STATUS CODES 




cooo 


132 




SUBADEF 






UNIBUS ADAPTER REGISTER DEFINITIONS 




0000 


133 




SUBIDEF 






• 11/750 UNIBUS adapter regs. 
' DEFINE VIRTUAL ADDRESS FIELDS 




0000 


134 




SVADEF 








0000 


135 














0000 


136 ( 














0000 


137 ( 


MACROS 










0000 


138 , 














0000 


139 














0000 


140 , 














0000 


141 , 


* CPU type dispatch macro: 








0000 


142 , 














0000 


143 , 




The addi 


^esses in the address 


list are: 




0000 


144 






address of code for 


CPU 


type=1 (11/780) 




0000 


145 






address of code for 


CPU 


type=2 (11/750) 




0000 


146 






address of code for 


CPU 


type=3 (?) 




0000 


147 














0000 


148 




CPUDJSP 


is invoked to handle 


CPU 


differences in line, e.g.. 




0000 


149 














0000 


150 






CPUDJSP <10$,20$> 




^DISPATCH ON CPU TYPE* 




0000 


151 




10$: 


01/780 specific code> 






0000 


152 




20$ j 


<11/750 specific code> 






0000 


153 










;*END OF CPU-DEPENDENT CODE* 




0000 


154 














0000 


155 


; When 


the next 


CPU is added, all occurrences of CPUDJSP must be 




0000 
0000 
0000 


156 
157 
158 


; expanded to handle three CPU speci 


fie | 


aaths. 
















0000 


*!59 




.MACRO 


CPUDJSP, ADDRLJST 








0000 


.1 




CASE 


W A EXE$GB_CPUTYPE,<ADDRLIST>,LIMIT=#PR$_SID TYP780,TYPE=B 


-1 


0000 
0000 
0000 


161 
162 
163 




♦ ENDM 


CPUDISP 








0000 


164 


; LOCAL 


SYMBOLS 










0000 


165 














0000 


166 














0000 


167 




SDEFINI 


BDT 




; Define Boot Driver Table offsets 




0000 


168 














0000 


169 


SDEF 


BDT$L CPUTYPE .BLKW 1 




; CPU type 

; Boot RO device type 




0002 


170 


SDEf 


BDT$L~DEVTYPE .BLKW 1 






0004 


171 


SDEF 


BDT$L_ACTION .BLKL 1 




; Action routine 




0008 


172 


SDEF 


BDT$L,S1ZE .BLKL 1 




; Driver size 




oooc 


173 


SDEF 


BDT5L ADDR .BLKL 1 




; Driver address (offset) 




0010 


174 


SDEF 


BDTSLlENTRY .BLKL 1 




; Driver entry (offset from address) 

i 



ZZ-ENSAA-7.0 
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V02-017 



Declarations 



* + * 800TDRIVR non-interrupt 1/0 
Dec Larations 



F 9 

27-JUL-1984 



Fiche 2 Frame F9 



Sequence 315 



27-JUL-1984 15:02:28 VAX-11 Macro V03-0T Paqe 5 

1-APR-1980 09:26:39 DMA1 :[SYS0.SYSMAINnBOOTDRIVR.«AR; (2) 



00000018 



00K 

0018 
0018 
0018 
0018 



175 $DEF 

176 

177 BDT$K_LENGTH=. 

178 

179 SDEFEND BDT 



8DTSL.DR1VRNAME .8LKL 1 



Driver name (offset from address) 
Length of entry 
End of Boot Driver Table definitions 



ZZ-ENSAA-7.0 

BOOTORIVR 

VO2-017 



DRIVER FIXED DATA AREA 

*** BOOTDRJVR non-interrupt 
DRIVER FIXED DATA AREA 



6 9 
27-JUL-1984 Fiche 2 Frame G9 Sequence 

I/O 27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Page 6 

1-APR-1980 09:26:39 DMA1 jCSYSO.SYSMAINTJBOOTDRIVR.MAR; (3) 



316 



-3 





0000 


181 




0000 


182 




0000 


183 




0000 


184 




0000 


185 




0000 


186 


00000000 


187 




0000 


188 




0000 


189 


00000016* 


0000 


190 


000000F1' 


0004 


191 


oooooooo 1 


0008 


192 




oooc 


193 




oooc 


194 


00000000 


cooc 


195 




0010 


196 




0010 


197 




0010 


198 




0010 


199 




0010 


200 




0010 


201 




0010 


202 




0010 


203 




0010 


204 




0010 


.1 




0010 


.2 




0010 


.3 


FFB 0004 


0010 


.4 




0014 


208 


01 


0014 


209 




0015 


.1 


01 


0015 


.2 




0016 


210 



.SBTTL DRIVER FIXED DATA AREA 



FIXED DATA CELLS FOR BOOTSTRAP DRIVER 



.PSECT BOOTDRJVR 1 



BOO$AL_VECTOR:: 
.LONG 
.LONG 
• LONG 



BOO$QIO-BOO$AL VECTOR 
BO0$MAP-BO0$AL~VECTOR 
B00$SELECT-800$AL_VECT0R 



.LONG 



VECTOR TO BOOT DRIVER ENTRY POINTS 
OFFSET TO BOOTSTRAP QIO ROUTINE 
OFFSET TO MAPPING ROUTINE 
OFFSET TO BOOTSTRAP I/O DRIVER 
INITIALLY SET TO ROUTINE WHICH 
SELECTS DRIVER 

OFFSET TO SYSTEM DISK DRIVER NAME 
(ASCIC STRING). SET UP BY BOOT DRIVER 



The next two words are the version number and the version number check fields 
(The second word is the ones complement of the first word.) The version 
number should be incremented whenever the interface between VM8 and the 
rest of the system changes. Release 1.0 VMB did not contain these fields. 

Version 2 - Boot driver passes system disk driver name to SYSBOOT 
Version 3 - VMB build memory description vector into RPB 
Version 4 - VMB eOOTDRIVR purqes UBA buffered datapath, all drivers 
return to BOOTDRIVR with success/failure status 



.WORD 4,*C<4> 
EXE$G8 CPUTYPE:: 

" .8YTE 1 
EXE$GB_ADPTYPE:: 

.BYTE 1 



VERSION * AND VERSION * CHECK FIELD 
Location to hold processor 
identification code 
Location to hold flag for 
remebering boot adapter type. 



ZZ-ENSAA-7.0 
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BOOSQIO - BOOTSTRAP QIO ROUTINE 

*** BOOTDRIVR non-interrupt I/O 
BOOSQIO - BOOTSTRAP QIO ROUTINE 



317 



H 9 

27-JUL-1984 Fiche 2 Frame H9 Seguence 

27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Paae 7 

1-APR-1980 09:26:39 DMA1 ;CSYS0.SYSMAINT2BOOTDRIVR.MAR; (4) 



00000004 
00000008 
0000000C 
00000010 
000000H 
00000018 



OFFC 



59 



18 AC 
51 38 



DO 
DB 



53 5C A941 DO 



0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
C016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0018 
0018 
0018 
0018 
0018 
0018 
0018 
0018 
0018 
001 C 
001 F 
001F 

0024 
0024 



212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

221 

22^ 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 



.S8TTL BOOSQIO - BOOTSTRAP 010 ROUTINE 

+ + 
FUNCTIONAL DESCRIPTION: 

BOOSQIO PROVIDES THE DEVICE INDEPENDENT I/O INTERFACE FOR BOTH 
READING AND WRITING THE BOOTSTRAP DEVICE. 

CALLING SEQUENCE: 

CALLG ARGLIST, BOOSQIO 

INPUT PARAMETERS: 

BUF(AP) - BUFFER ADDRESS 
SIZE(AP) - SIZE OF BUFFER IN BYTES 
LBN(AP) - LOGICAL BLOCK NUMBER 
FUNC(AP) - FUNCTION CODE 

ACCEPTS 10$ READLBLK AND IO$_WRITELBLK 
MODE(AP) - ADDRESS INTERPRETAIION MODE 

=> PHYSICAL. 1 => VIRTUAL 
RPB(AP) - ADDRESS OF RESTART PARAMETER BLOCK 

OUTPUT PARAMETERS: 

RO - COMPLETION STATUS CODE 
R1 - TOTAL BYTES TRANSFERRED 



Offsets from AP to input arguments: 



BUF = 4 

SIZE = 8 

L8N = 12 

FUNC = 16 

MODE = 20 

RP8 = 24 



BOOSQIO: 



.WORD *M<R2,R3 t R4,R5,R6,R7,- ; PRESERVE REGISTERS 
R8,R9,R10,R11> 

If mapping is enabled, the processor register RPS MAPEN contains a 1, 
Otherwise, the register contains a 0. Use this value as an index to 
choose the appropriate address of the adapter's register space. 

MOVL RPB(AP),R9 ; GET BASE ADDRESS OF RESTART PARAMETER BLK 

MFPR #PRS MAPEN, R1 ; CHECK FOR MAPPING ENABLED 

ASSUME RPB$r ADPVIR EQ RP8SL ADPPHY+4 

MOVL RPBSLlADPPHY(R9)[R1],R3 ; GET CORRECT POINTER TO CONFIG REG 



2Z-ENSAA-7.0 

B001DRIVR 

V02-017 



BOOSQIO - BOOTSTRAP OIO ROUTINE 

*** BOOTDRIVR norv-interrupt I/O 
BOOSQIO - BOOTSTRAP QIO ROUTINE 



I 9 
27-JUL-1984 Fiche 2 Frame 19 

27-JUL-1984 15:02:28 VAX-11 Macro 
1-APR-1980 09:26:39 



Sequence 318 
V03-0T 



8 



P<ige 
DMA1:CSYS0.SYSMAINT3800TDRIVP.MAR;<4) 



5A OA AC 

58 08 AC 

OA 

58 01 10 

5A 09 00 

57 

57 03FF C8A7 



57 



5B 
51 
03 



H 8F 
57 



5A 



OC 
50 

5A 

51 

15 

FF8B 
66 



-2 



AC 
A9 
IF 
08 
09 
52 
CF 
A9 
20 
6A 



-1 



-1 



5A 20 A9 

54 0090 C94A 

20 5A 

OA 

FFA2 CF 



DO 
3C 
12 
9C 
EF 

9E 

78 



DO 
DO 
EO 
D8 
EF 

9A 
91 

18 



DO 
9A 
D1 

.3 
96 



002A 

002A 

002A 

002A 

002A 

002A 

0028 

002C 

002E 

0032 

0036 

0037 

003D 

003D 

00A1 

00A2 

00A2 

00A6 

OOAA 

OOAE 

0051 

0055 

0056 

005A 

005D 

005E 

0060 

0060 

0060 

0060 

0060 

0060 

0060 

0060 

006A 

006A 

006D 

006F 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 

0073 



10$: 



269 
270 
271 
272 
273 
27A 
275 
276 
277 
278 

279 
280 
281 



282 
283 
28A 
285 
286 
287 20$ 

.1 

288 

.1 

.2 
291 
292 
293 
29A 
295 
296 
297 
299 
300 
301 
302 

.1 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 

318 
319 
320 
321 
322 



Using the argument List as input, calculate the transfer size, number 
of map registers, starting LBN, starting VPN, and base of a page table 
to use in mapping. 



MOVL 

MOVZWL 

BNEQ 

ROTL 

EXTZV 

MOVAB 

ASHL 



MOVL 

MOVL 

BBS 

MFPR 

EXTZV 

CLRB 
CMPB 

BGEQ 



BUF(AP),R10 
SIZE(AP),R8 
10$ 
*16,*1,R8 



#VA$V_BYTE,*VA$S,BYTE,R10,R7 



Get buffer address 
GET TRANSFER SIZE IN BYTES 
CONTINUE IF LEGAL SIZE 
ELSE FORCE TO 6AK SIZE 



Get byte offset in •> page 



A X3FF(R8)[R73,R7 
*-9,R7,R7 



LBN(AP),R11 

RPB$L SVASPT(R9),R1 

#VA$V~SYSTEM,R10,20$ 

#PR$ P03R,R1 

#VA$7 VPN, MASS VPN,R10,R2 



Calculate highest address plus 

an overflow page. 

Reduce to number of pages 

(= number of map registers). 
AND BLOCK NUMBER FOR RETRY 
ASSUME SYSTEM SPACE 
Branch if system address 
OTHERWISE GET PO PT BASE 



W A EXE$G8 ADPTYPE 
RPB$B DEv"TYP<R9), 
*BTD$R HSCCI 
PUSH RETRY 



Get base VPN for transfer 

Assume not UNIBUS adapter. 
If booting from console block 
storage device, 
don't load map registers 



CDSO 



Derive the boot device adapter's type (UNIBUS adapter or MASSBUS 
adapter) from the RPB, and save a flag indicating the adapter type 
in a register. 



MOVL RPB$L BOOTR1(R9),RA 

MOVZBL RPB$B"C0NFREG(R9)CRA],RA 

CMPL RA,#N0T$ MB 

BEQL INIT MAPREGS 

INCB W*EXE$GB_ADPTYPE 



Register usage right now is as follows: 



Get adapter's SBI slot number 
Get type of adapter. 
If MASSBUS adapter, 
iust leave as is, LBC. 
therwise, set low bit to 
indicate UNIBUS adapter. 



4 



RO 

R1 

R2 

R3 

R7 

R8 

R10 

R11 



LBC=MASSBUS 

virtual — >physical mapping 



adapter type; LBS=UNIBUS; 

address of paae table for 

base VPN for the transfer 

address of the adapter's configuration register 

number of map registers needed (plus one extra) 

transfer size in bytes 

buffer address 

starting LBN of the transfer 



Jn an adapter-dependent fashion, initialize the required number of 
adapter map registers. First calculate the address of the starting map 
register number. Right now, map registers for all UNIBUS and MASSbUS 
adapters for all processors start at the same offset from the base of 
thi? adapter's register space. 



ZZ-ENSAA-7.0 

BOOTDRIVR 

V02-017 



J 9 
BOOSQIO - BOOTSTRAP QIO ROUTINE 27-JUL-1984 Fiche 2 Frame J9 Seguence 319 

*** BOOTDRIVR non-interrupt I/O 27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Paae 9 

BOOSQIO - BOOTSTRAP QIO ROUTINE 1-APR-1980 09:26:39 DMA1 :CSYS0.SYSMAINT3BOOTDRIVR.MAR; (4) 



-1 



54 0800 C3 DE 



55 82 9E 

OB 14 AC E9 

55 6145 DO 

FFE00000 8F CA 
55 



10 FF87 CF E9 



19 04 AC FO 
55 01 

55 C9 
80200000 8F 
84 



08 11 



0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0078 
C078 
0078 
007B 
007F 
0083 
0089 
008A 
008A 
008A 
003F 
0C8F 
008F 
008F 

008f 
008F 
008F 
008F 
008F 
008F 
008F 
008F 
008F 
008F 
008F 
008F 
008F 
0093 
0095 
0097 
009C 
009D 
009D 
0C9D 
009D 
009D 
009D 
009F 
009F 
009F 
009F 
009F 
009F 
009F 



During map register initialization, the following registers change 
for each page mapped: 



R2 
R4 
R5 



323 
324 
325 
326 
327 
328 
329 
330 
331 

332 INITJMPREGS: 

333 ASSUME 

334 ASSUME 

335 MOVAL 
336 

337 COMPUTE PFN: 

338 "M0VA8 

339 BLBC 

340 MOVL 

341 BICL 



- address of the next VPN to map 

- address of the next map register to load 

- PFN of the page being mapped 



MBASL.MAP EQ UBA$L MAP 
MBA$L MAP EQ UBISLJW 
MBA$L~MAP(R3),R4 



(R2)+,R5 
MODE(AP) ,10$ 
(R1)[R5J,R5 
**C<PTE$M PFN>,R5 



Initialize the map registers. 

Point to base of adapter map. 

Loop once per page. 

Get a virtual page number. 

If physical page #. branch. 

Get page table entry 

and extract PFN from entry 



342 

343 10$: 

.1 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 



BL8C 



; Branch on adapter type. 
W A EXE$GBJUPTYPE,LOADJ1BAJ»1AP ; Branch if MASS&US adapter. 



This is a UNIBUS adapter. 

Map registers for the UNIBUS adapter look like the following; 
+- — ™„™. — ™ ™ .«- . ™ «. ♦ 



BO ! DP # 



page frame number 



The code sets the byte offset bit if relevant, sets the valid bit, 
sets the low bit in the 4-bit data path field to indicate that the 
first buffered data path is to be used, and loads the page frame 
number into the low bits. 



364 

365 

.1 

.2 

.3 

366 

367 

368 
369 
370 
371 
372 
373 



INSV BUF(AP),*UBA$V MAP^BO,- 

*1,R5 
BJSL3 R5, *UBA$M_MAP., VALID !- 



<16)U8A$VJW^DPD>,<R4) 



Set UBA byte offset bit if 

necessary. 

Set PFN and byte offset, valid 



bit, and buffered DP number 
into mao. 



****** mote ***** Always uses Datapath 01, I0C*PWR depends on this!! 



BRB 



LQAD_NEXTJ1AP 



Go load another map if needed. 



MASSBUS adapter's map reg'-'ters look like the following: 



page frame number 
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BOOSQIO - BOOTSTRAP QIO ROUTINE 

*** BOOTDRIVR non-interrupt I/O 
BOOSQIO - BOOTSTRAP QIO ROUTINE 



K 9 
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27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Paae 10 
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80000000 



55 
8F 
84 



57 
CD 





07 


FF 66 


CF 


E9 


-1 


80000000 


8F 


CA 








74 








09 


00 


EF 






5A 


5A 








50 


38 


D8 




5? 


54 A940 


DO 








OA 


DD 






55 


58 


DO 




50 


34 


A9 


DO 






08 B040 


16 




14 


FF40 


CF 


E9 



009F 
009F 
009F 
C9 009F 
00A1 
00A6 
00A7 
00A7 
00A7 
00A7 
00A7 
00A7 
00A7 
00A7 
C0A7 
00A7 
D7 00A7 
14 00A9 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
00A8 
OOBO 
00B6 
00B7 
00B7 
0087 
00B7 
00B7 
0087 
0087 
00B7 
0087 
008? 
00B7 
OOBA 
OOBC 
008C 
OOBC 
OOBC 
OOBC 
OOBC 
008C 
OOBC 
008F 
00C4 
00C4 
00C4 
00C6 
00C6 
00C9 
OOCD 
00D1 



***** 



***** 



BISL3 



374 ; 
375 

376 LOAD.MBA MAP: 

377 BISL3 



378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
.1 
398 



R5,rX80000000,(R4) + 



R5^M8A$M.MAP. VALID/ 
(R4) + 



LOAD NEXT MAP: 

" DECL R7 

8GTR COMPUTE_PFN 



Load map register. 

Set the PFN and the valid bit 



; in the map register. 



; Set the PFN and the valid bit 
; in the map register. 



Is there another page to do? 
Decrement # of map registers. 
Loop to fill next map register 
if byte count not exhausted. 



399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
.1 



; Invalidate the last U8A map register so that a wild transfer will stop 

; at the end of the last valid block. 

* 

BLBC W A EXE$GB ADPTYPE,GET BYTEOFFSET ; Skip invalidation for MBA, 
BICL *UBA$MJlXP.VAUD,-<R5> ; Invalidate last map register. 



All map registers are set up. Set up 2 more inputs to driver code. 
Since the loaded map registers are registers 00-n, the starting 
address of the transfer to be loaded into a device register by the 
device driver, is now simply the offset into the first page of the 
transfer buffer. 



GET BYTEOFFSET: 

EXTZV M$V BYTE,WA$S_BYTE,- ; Get byte 
R10,RT0 ; in RIO 



offset into page 



If it is a UN1BUS boot device, derive the address of the device's CSR. 

ASSUME RPBSL.CSRVIR EQ RPBSL.CSRPHYH 

MFPR #PR$ MAPEN,R0 ; Check for mapping enabled 

MOVL RPB$E.CSRPHY(R9)CR0J,R7 ; Get address of device's CSR 



PUSH RETRY: 
" PUSHL 



10$. 



MOVL 
MOVL 
J 38 
BL8C 



#10 

R11-R5 

RPBSL JOVEC(R9),R0 

a8(ROT[RC3 

W A EXE$GB_ADPTYPE,100$ 



Push retry count on stack 

Get a working copy of the block number 
Get address of boot vectors 
Call driver thru self-relative vector 
Branch if Mass Bus 



7Z-ENSAA-7.0 
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BOOSQIO - BOOTSTRAP QIO ROUTINE 

*** BOOTDRIVR non-interrupt I/O 
BOOSQIO - BOOTSTRAP QIO ROUTINE 



5E 



50 


00 


0006 


.2 




PUSHL 


RO 


02 


BB 


00D8 


.3 




PUSHR 


# A M<R1> 


006C 


30 


OODA 


.4 




BS8W 


B00$PUR0PR 


02 


BA 


OOOD 


.5 




POPR 


# A M<R1> 


05 50 


E8 


OOOF 


.6 




BL8S 


R0,80$ 


04 


CO 


0OE2 


.7 




AOOL 


*4 f SP 
150$ 


06 


11 


00E5 


.8 




BRB 


50 


8E00 


0OE7 


.9 


80$: 


POPL 


RO 


03 50 


E8 


OOEA 


.10 


100$: 


BIBS 


R0,200$ 


06 6E 


F5 


OOEO 


.11 


150$: 


S0B6TR 


(SP) ,10$ 




04 


OOFO 


.12 


200$: 


RET 





L 9 

27-JUL-1984 Fiche 2 Frame L9 Sequence 321 

27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Paae 11 
1-APR-1980 09:26:39 DMA1 :CSYSO.SYSMAINTJBOOTDRJVR.«AR; (4) 

Save driver status 

Save R1 from driver 

Purge Buffered Datapath for UBA 

Restore R1 

Branch if success 

Clear previous status from stack 

Retry 

Get driver status back 

Branch if success 

Retry if count > 

Return with final status in RO 



Z7-ENSAA-7.Q 

B00TDR1VR 
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BOOSMAP - ROUTINE TO MAP DATA FOR BOOSQI 1-APR-198C 09:26:39 DMA1 :CSYS0.SYSMAINT:)BOOTDRIVR.MAR; (5) 



00000004 
00000008 

0000000C 



57 OC AC 

52 04 AC 
50 A7 52 

53 08 AC 
60 A7 53 

15 09 

54 5C A7 
55 08 

53 15 09 

50 

51 6240 

20 

55 10 

00001FFF 8F 

54 54 A7 

54 54 17 

OE 

50 54 A7 

FFFF3000 E043 

58 A7 



OOFC 
00 
DO 
DO 
DO 
DO 
EF 

DO 
EF 

DE 
10 
DO 
CB 

9C 
10 
3C 
9E 

04 



00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
OOF 1 
C0F1 
00F1 
00F1 
00F1 
00F1 

OOM 

00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F1 
00F3 
OOF 7 
00F8 
OOFF 
0103 
0107 
010A 
010D 
0110 
0114 
0115 
0119 

one 

01 IE 

0124 
0127 
0128 
012D 
0131 
0138 
013A 
0138 
0138 
0138 
0138 
0138 
0138 
013B 



431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 
467 

468 
469 
470 
471 

472 
473 
474 
475 

476 
477 
478 
479 
480 
481 
482 
483 



.SBTTL BOOSMAP - ROUTINE TO MAP DATA FOR BOOSQIP 



++ 



FUNCTIONAL DESCRIPTION: 

BOOSMAP IS CALLED TO INITIALIZE THE DATA BASE FOR BOOSQIO TO PERMIT 
IT TO FUNCTION WITH MEMORY MANAGEMENT ENABLED. AN AREA OF SYSTEM 
PAGE TABLE MUST BE PROVIDED SO THAT THE CONFIGURATION REGISTERS AND 



UNIBUS 



I/O PAGE CAN BE MAPPED. 



CALLING SEQUENCE: 

CALLG ARGLIST,800$MAP 

INPUT PARAMETERS: 

SVASPT(AP) - SYSTEM VIRTUAL ADDRESS OF THE SYSTEM PAGE TABLE 

SVASPT = 4 

VA8ASE(AP) - BASE VIRTUAL ADDRESS OF A 24 PAGE WINDOW TO MAP 

THE ADAPTER CONFIGURATION REGISTERS AND UNIBUS 
VA8ASE = 8 

I/O PAGE. 
RPB(AP) - ADDRESS OF RESTART PARAMETER BLOCK (RPB) CONTAINING 

BOOTSTRAP DEVICE DESCRIPTION. 
RPB = 12 

OUTPUT PARAMETERS: 
NONE 



BOOSMAP: 



MOVL 
MOVL 
MOVL 
MOVL 
MOVL 
EXTZV 



.WORD A M<R2,R3,R4,R5,R6,R7> 

RPB(AP),R7 ; GET 

SVASPT(AP),R2 ; GET 

R2,RPBSL SVASPT (R7) ; AND 

VABASE(AP),R3 ; GET 

R3,RPB$L ADPVIR(R7) ; SET ... ...... w .._ .._ 

M$V VPMVASS VPN,RPBSL ADPPHY(R7) ,R4 ; GET bASt r 



BASE 
BASE 
SAVE 



ADDRESS 
OF SPT 

IN DATA 



FOR RPB 
BASE 



VIRTUAL ADDRESS OF WINDOW 
AS ADAPTER VIRTUAL ADDRESS 



l-r N 



MOVL 08, R5 ; SET TO MAP 8 PAGES 

EXTZV 0VASV_VPN,#VASS_VPN,R3,RO ; GET BASE VIRTUAL PAGE 



MOVAL 
BS88 
MOVL 
BICL3 

ROTL 

BSBB 

MOVZWL 

MOVAB 

RET 



(R2)[R0],R1 ; COMPUTE WORKING SPT POINTER 

FILLSPT ; FILL SPT TO MAP CONFIGURATION 

*16,R5 ; SET FOR 16 PAGES 

A X1FFF,RPBSL CSRPHYCR7) ,R4 ; GET PHY ADDR OF I/O PAGE 



REG? 



BASE 



#<32-9>,R4,R4 ; AND CONVERT TO PAGE NUMBER 

FILLSPT ; STORE PTES INTO SPT 

RPBSL CSRPHY(R7),R0 ; GET I/O PAGE OFFSET 
< A X10D0- A XE000XR0)[R3] # RPB$L CSRVIRCR7) ; SET VIRTUAL CSR ADDR 



+ + 
FILLSPT 

INPUTS: 
R1 
R4 



POINTER TO CURRENT SPT ENTRY (UPDATED) 
PFN (UPDATED) 



-™^ 



ZZ-ENSAA-7,0 
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*** BOOTDRIVR non-interrupt I/O 27-JUL-1984 15:02:28 VAX-11 Macro V03-0T Page 13 
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01 3B 


484 






013B 


485 






01 3B 


486 


90000000 8F 


C9 


01 3B 


487 


81 54 




0141 




54 


D6 


0143 


488 


F3 55 


F5 


0145 


489 




05 


0148 


.1 



R5 - COUNT OF PAGES TO FILL (UPDATED) 

486 FILLSPT: 

BISL3 *<PTE$M_VALID!PTE$CJ<W>,R4,(R1)+ 



STORE A PTE 



1NCL 

SOBGTR 

RS8 



R4 

R5, FILLSPT 



ADVANCE TO NEXT PFN 
STORE THEM ALL 



ZZ-ENSAA-7.0 

BOOTDRiVR 
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BOOSPURDPR - Purge IBA Buffered Datapath 

+** BOOTDRIVR non-interrupt I/O 
BOOSPURDPR - Purge UBA Buffered 



324 



B 10 
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27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Page 14 
Datapath 1-APR-1980 09:26:39 DMA1 :[SYS0.SYSMAINT;)BOOTDRJVR.MAR; (6) 



-6 



-2 



-1 



-1 



50 01 3C 



62 



52 



62 
50 



09 



44 

01 
51 
51 
01 
01F4 



62 



52 04 
01 
54 



05 



E4 



51 



51 

51 



F6 



51 

62 



A3 
1F 
62 
1E 
1E 
8F 



A3 
00 
OA 

62 
00 
54 
04 
IF 

00 
DA 



DE 
78 
DO 
E1 
78 
3C 
05 

DE 
78 
DO 

DO 
E1 
F5 
11 

El 
D2 
11 



10 A3 DO 



0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
C149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
0149 
014C 
01 5A 
015A 
015E 
0162 
0165 
0169 
016D 
0172 
0173 
0173 
0177 
0178 
01 71 
01 7E 
0181 
0185 
0188 
018A 
018E 
0191 
0193 
0193 



.3 

510 

511 

512 

513 

.1 

.2 

.3 

.4 

.5 

520 

521 

522 

.1 

525 

526 

527 

.1 

.2 

.3 

529 

530 

531 

.1 

.2 

.3 

.4 

.5 

533 

534 

535 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

.15 

.16 

.17 

.18 

.19 

,20 

.21 

.22 

.23 

.24 

.25 

.26 



.SBTTL BOOSPURDPR - Purge UBA Buffered Datapath 



++ 



FUNCTIONAL DESCRIPTION: 

This routine is called by BOOTDRIVR at the end of each boot device 
transfer if the boot device is on the Unibus. It purges the buffered 
datapath and/or performs other Unibus adapter specific end-action. 

NOTE: This routine contains processor specific code. 

CALLING SEQUENCE: 

JSB BOOSPURDPR 

INPUT PARAMETERS: 

R3 - Address of UBA adapter configuration register 
EXE$GB_CPUTYPE - Index specifying what CPU we are executing on 
** Assumes all drivers use DATAPATH 1 ** 

OUTPUT PARAMETERS: 

RO - LBS -> Success 
LBC -> Failure 

R1,R2,R4 - Destroyed 

All other registers preserved 



BOOSPURDPR: 



100S: 



150S: 
170$: 

200% : 



230$: 



250$: 
270$: 



MOVZWL 
CPUDISP 

MOVAL 

ASHL 

MOVL 

BBC 

ASHL 

MOVZWL 

RS8 

MOVAL 

ASHL 

MOVL 

MOVL 

88 C 

S08GTR 

BRB 

B8C 

MCOML 

BRB 



0SS$ N0RMAL,R0 
<100S,200$,300$,100$> 



Assume success 

Dispatch on EXESGB.CPUTYPE 




UBISL DPR+4<R3),R2 

#UB1$V DPR PUR,#1,(R2> 
0UBI$rPURtNT,R4 

(R2),R1 

JUBISV DPR PUR, R1, 250$ 

R4.2305 " 

276$ 

^U8I$V DPR ERROR, R1 , 170$ 

#0,(R2T " 

156$ 



300$: MOVL UB1$L_SR(R3) ,R1 



CPU type 11/750, Datapath Register 
Purge Datapath 
Get max ft of tries for 
purge done test 

Get datapath register contents 
Branch if purge done 
Branch if more tries allowed 
Return failure status 
Branch if no purge error 
Clear datapath error(s) 
Return with failure status 

Get Unibus Error Summary Register 



ZZ-ENSAA-7.0 
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BOO$PUR0PR - Purge UBA Buffered Datapath 

*** BOOTDRIVR non-interrupt I/O 
BOO$PURDPR - Purge UBA Buffered 



C 10 
27-JUL-1984 Fiche 2 Frame C10 Sequence 325 

27-JUL-1984 15:02:28 VAX-11 Macro V03-01 Paae 15 
Datapath 1-APR-1980 09:26:39 DMA1 :CSYS0.SYSMAINTDBOOTDRIVR.MAR; (6) 



8001 C000 8F D3 
51 



D2 13 
CB 11 



0197 


.27 


0197 


.28 


019D 




01 9E 


.29 


019E 


.30 


019E 


.31 


019E 


.32 


01A0 


.33 


C1A0 


.34 


01A2 


.35 



BITL #<UBJSM_SR_UWE!- 



Nebula 

Any UB errors? 



(write error, 



U8I$M_SR_MRPE!- ; map parity error, 
UBI$M~SR~NXM!- ; non-existent memory, 
UBI$M~SR~UCE>,R1 ; or uncorrected read error.) 

BEQL 170$ " " ; Branch if no errors 

****** QUESTION - Is there anything to do to clear the error status? 

BRB 150$ ; Return failure status 
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000001A2 
000001 A2 



01A2 

01A2 
01A2 
01A2 
01A2 
01A2 
01A2 

00000000 

0000 

00000000 0000 

0000 

00000000 

0000 

00000000 0000 

C004 

00000000 



.37 B00$QI0SIZ=.-B00$AL VECTOR 

.38 

.39 BOOSDRJVER—, 

.40 

.41 

.42 

.43 

.44 .PSECT B00TDRIVR.3 

.45 

.46 BOOSDRJVER T8L = . 

.47 

.48 .PSECT BOOTDRIVR 5 

.49 

.50 .LONG 

.51 

,52 .PSECT B00TDRIVR.6 



Size of boot 010 routine 

Start of boot driver (after 
it's been moved) 
NOTE: Boot drivers must be in 
psect B00TDRIVR_2 



Boot driver table 



End of boot driver table 



J 



ZZ-ENSAA-7.0 


BOO$SELECT - Se 


lect 


boot driver 
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BOOTDRIVR 






*** 


BOOTDRIVR non-interruDt I/O 


V02-017 






BOOSSELECT 


- Select boot driver 










0000 


.54 




.S8TTL 


B00$SELECT - Select boot driver 










0000 


.55 
















0000 


.56 , 


+ + 














0000 


.57 , 


FUNCTIONAL DESCRIPTION: 










0000 


.58 , 
















0000 


.59 , 




This routine is called the first time B00$QI0 calls a driver. 










0000 


.60 ( 




It searches the boot driver table to locate the proper driver. 










0000 


.61 , 




This driver is then moved so that it is adjacent to BOO$QIO 










0000 


.62 , 




and the 


correct linkage is made in B00SAL VECTOR. 










0000 


.63 , 




RPB$LJ0VECSZ is also'stored with the size of B00$QI0 plus 










0000 


.64 , 




the size of the driver. The driver is then jumped to. 










0000 


.65 ( 
















0000 


.66 , 


CALLING SEQUENCE: 










0000 


.67 t 
















cooo 


.68 ( 




J SB 


B00$SELECT (Actually called through self-relative 

vector in B00$AL„VECTOR+8) 










0000 


.69 , 














0000 


.70 
















0000 


.71 ( 


• INPUT 


PARAMETERS: 










0000 


.72 
















0000 


.73 




R9 


Address of the RPB 










0000 


.74 
















0000 


.75 


• OUTPUT PARAMETERS : 










0000 


.76 
















0000 


.77 




None 












0000 


.78 
















0000 


.79 


• -- 














0000 


.80 
















0000 


.81 1 


300SSELECT:: 


; Global so DS can re-init BOO$AL_VECTOR 


-1 




3E 


BB 


0000 


537 




PUSHR 


* A M<R1,R2,R3,R4,R5> ; Save registers 




55 


0000'CF 


DE 


0002 


.1 




M0VAL 


W A B00$DRIVER TBL,R5 ; Get address of boot driver table 




53 


66 A9 


9A 


0007 


.2 




M0VZ8L 


RPB$B DEVTYPTR9) / R3 ; Get value of boot device type 




54 


0014'CF 


9A 


000B 


.3 




M0VZ8L 


W A EXE$G8_CPUTYPE,R4 ; Get cpu type 


-3 








0010 
0010 


541 
542 


10$; 














0010 


543 




; Determine if next driver in table is the correct one. 










0010 


544 
















0010 


545 












50 65 


32 


0010 


546 




CVTWL 


BDT$L CPUTYPE(R5),R0 ; Get cpu type from table 
80$ " ; End of table 






53 


13 


0013 


547 




BE0L 






05 


19 


0015 


548 




BLSS 


20$ ; Driver doesn't care about cpu type 






54 50 


D1 


0017 


549 




CMPL 


R0,R4 ; Cpu types match? 
40$ ; No, try next driver 






17 


12 


001A 


550 




BNEQ 










001 c 


551 










50 


02 A5 


32 


001 c 


552 


20$: 


CVTWL 


BDT$L_DEVTYPE(R5),R0 ; Get boot device type from table 






05 


19 


0020 


553 




BLSS 


30$ ; Driver doesn't care about device type 






53 50 


D1 


0022 


554 




CMPL 


R0.R3 ; Device types match? 
40$ ; No, try next driver 






OC 


12 


0025 


555 




BNEQ 










0027 


556 










50 


04 A5 


DO 


0027 


557 


30$: 


MOVL 


BDT$L_ACTION(R5),R0 ; Get action routine offset from table 






08 


13 


0028 


558 




BEQL 


60$ ; No action routine, this is the driver 






6540 


16 


002D 


559 




J SB 


(R5)CR0D ; Call action routine 






05 50 


E8 


0030 


560 




BLBS 


R0,60$ ; Branch if this is the driver 






55 18 


CO 


0033 


561 


40$: 


ADDL 


0BDT$K„LENGTH,R5 ; Point to next driver entry 






D8 


11 


0036 
0038 
0038 
0038 


562 
563 
564 
565 


60$: 


BR8 
; Have 


10$ " ; Try next driver 
the right driver, R5 points to driver table entry. 



ZZ-ENSAA-7,0 

BOOTORIVR 

V02-017 
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-6 



000001A2 8F 

38 A9 08 A5 

00000000' 8F 

50 55 

10 A5 50 

0008 'CF 

0C A5 

0008'CF 

H A5 50 

OOOC'CF 



3E 

50 34 A9 

08 B040 



C1 
C3 
C1 

CO 
CI 



BA 
DO 
17 



00 



0038 
0038 
0038 
0038 
003E 
0042 
0048 
004A 
004E 
0051 
0051 
0054 
0057 
0058 
C05E 
005E 
005E 
005E 
005E 
0060 
0064 
0068 
0068 
0068 
0068 
0068 
0068 
0068 
0069 



566 
567 
568 
569 
570 
.1 

.2 

.3 
.4 

.5 

.6 

.7 

.8 

.9 ; 
577 
578 
579 
580 
581 

582 80$: 
583 
584 
585 
586 
587 



Set up size in RPB, driver vector, and then move driver. 
Finally, jump to driver. 



ADDL3 
SUBL3 
ADDL3 

ADDL2 
ADDL3 



*BOO$QIOSJZ,- ; Add boot QIO size to 

BDT$L SIZE(R5),RPB$L I0VECSZ(R9); driver size and store in RPB 

*BOO$flL_VECTOR, R5, RO ; Offset from vector to header 

RO,- 

BDT$L ENTRY(R5),W A B00$AL VECTOR+8 ; entry and store in vector 
BDT$LlADDR(R5),W A BOO$AL„9ECTOR+8 ; Plus offset from header 



R0,- 



BDT$L_DRIVRNAME(R5),W A B00$AL_VECT0R+12 
Do not move the driver in the supervisor 

M0VC3 BDT$L SIZECRS^- 
aBDTSCjVDDRCRSJD^D^BOOSDRlVER 

P0PR # A M<R1,R2,R3,R4,R5> 

M0VL RPB$L IOVEC(R9),R0 

JMP 5)8(R07CR0] 



Compute offset to driver 

name and store in vector 
Move driver 



Restore registers 

Get address of vectors 

Jump to driver 



No driver in the driver table accepted this QIO. 



HALT 
.END 



ZZ-ENSAA-7.0 
B00TDR1VR 
Symbol table 

BDTSKJ.ENGTH 

BOTSL ACTION 

BDT$L*~ADDR 

BDT$L~CPUTYPE 

BDT$L~DEVTYPE 

BOTSL DRIVRNAME 

BDT$L~ENTRY 

BDT$L"5IZE 

BOOSA" VECTOR 

BOOSDRTVER 

BOO$DRIVER,TBL 

BOOSMAP 

BOOSPURDPR 

BOOSQIO 

BOOSQIOSIZ 

BOOSSELECT 

BTD$K HSCC1 

BUF 

COMPUTE PFN 

EXESGB fiDPTYPE 

EXE$GB"CPUTYPE 

FILLSPT 

FUNC 

GET BYTEOFFSET 

INlT MAPREGS 

LBN " 

LOAD MBA MAP 

LOAD~NEXT MAP 

MBA$~ MAP* 

MODE 

NDT$ MB 

PR$ "APEN 

PRS'POBR 

PRS'SID TYP780 

PTE$C KB 

PTESM'PFN 

PTE$M"VALID 

push Retry 

RPB * 

RPBSB CONFREG 

RPB$B~DEVTYP 

RPB$L~ADPPHY 

RPB$L~ADPVIR 

RPB$L~BOOTR1 

RPB$L*CSRPHY 

RPB$L~CSRVIR 

RPBSLlJOVEC 

RPBSLJOVECSZ 

RPBSL SVASPT 

SIZE * 

SS$ NORMAL 

SS$~PARJTY 

SVASPT 

UBASL DPR 

UBA$L~MAP 

UBA$M~MAP VALID 

UBA$V'DPR"BNE 



Symbol table 



*** BOOTDRIVR non-interrupt I/O 
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00000018 
00000004 
0000000C 
00000000 
00000002 
00000014 
00000010 
00000008 
00000000 
000001 A2 
00000000 
OOO00OF1 
00000149 
00000016 
000001A2 
00000000 
00000020 
00000004 
00000078 
00000015 
00000014 
000001 3B 
00000010 
000000B7 
00000073 
0000000C 
0000009F 
000000A7 
00000800 
00000014 
00000020 
00000038 
00000008 
00000001 
10000000 
001FFFFF 
80000000 
000000C4 

oooooooc 

00000090 
00000066 
0000005 C 
00000060 
00000020 
00000054 
00000058 
00000034 
00000038 
00000050 
00000008 
00000001 
000001F4 
00000004 
00000040 
00000800 
80000000 
0000001F 



RG 

RG 

R 

RG 
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D 

D 

D 

D 

D 

D 

D 
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D 

D 
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D 

D 
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D 
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D 



U8A$V„DPR XMTER 

UBA$V MAP BO 

UBA$V"MAP"DPD 

UB.I$C*PUR~NT 

UBI$L~DPR 

UBI$L_MAP 

UBISL^SR 

UBISM SR MRPE 

UBI$M*SR~NXM 

UBI$M~SRlUCE 

ubi$m_sr uwe 
ubisv dpr error 
ubi$v*dpr~pur 
va$s Byte* 

VA$S„VPN 
VA$V BYTE 
VASV'SYSTEM 
VA$V"VPN 
V ABASE 
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00000019 
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00000015 
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00000800 
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00000010 
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00008000 
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00010000 
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80000000 
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00004000 
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0000001 F 
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00000009 


D 


00000015 
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D 
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Psect synopsis 

PSECT name 


Psect 


synopsis 


*** BOOTDRIVR 
Allocation 


. ABS . 

SABSS 

BOOTDRIVR 1 

BOOTDRIVR~3 

BOOTDRIVR"*5 

BOOTDRIVRI6 


00000000 ( 
00000018 ( 
000001A2 ( 4 
00000000 ( 
00000004 ( 
00000069 ( 1 
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+.---*-----—*- — + 

! Psect synopsis ! 
+ — •— — „_-™..- + 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

24.) 01 ( 1.) NOPIC USR 

418.) 02 ( 2.) NOPIC USR 

0.) 03 ( 3.) NOPIC USR 

4.) 04 ( 4.) NOPIC USR 

105.) 05 ( 5.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RO 


WRT NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 
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:CSYS0.SYSMAINTJB0OTDRIVR.MAR;(8) 


B00TDR1VR 


*** BOOTDR1VR non 


-interrupt I/O 




27-JUL-1984 1 5:02 


;28 VAX- 


Cross reference 














1-APR-1980 09(26:39 DMA! 


! Symbol Cross Reference I 


SYMBOL 


VALUE 


DEFINITION 


REFERENCES. 


. . 








BDT$K LENGTH 


=00000018 








#-561 


(8) 










BDTSL'ACTION 


00000004 








#-557 


(8) 










BDT$L ADDR 


OOOOOOOC 








#-570.4 


(8) 










BDT$L~CPUTYPE 


00000000 








#-546 


(8) 










BDT$L~DEVTYPE 


00000002 








#-552 


(8) 










BDT$L"DRIVRNAME 


OOOOOOH 








#-570.6 


(8) 










BDT$L~ENTRY 


00000010 








#-570.3 


(8) 










BDTSL'SIZE 


0O000C08 








#-570 


(8) 










BOOSAC.VECTOR 


00000000-R 


189 




(3) 


190 


(3) 


191 


(3) 


192 


(3) 535.37 (7) 












#-570.1 


(8) 


#-570.3 


(8) 


#-570.4 


(8) #-570.6 (8) 


BOOSDRIVER 


=000001A2-R 


535. 


39 


(7) 














BOO$DRIVERJBL 


=00000000~R 


535. 


46 


(7) 


537.1 


(8) 










BOOSMAP 


OO000OF1-R 


459 




(5) 


191 


(3) 










BOOSPURDPR 


OOO00149-R 


535. 


1 


(6) 


#-426.4 


(4) 










BOOSQIO 


0000001 6-R 


253 




(4) 


190 


(3) 










BOO$QIOSIZ 


=000001 A2 


535. 


37 


(7) 


#-569 


(8) 










BOOSSELECT 


00000000-R 


535. 


81 


(8) 


192 


(3) 










BTOSK^HSCCI 


=00000020 








#-288,1 


(4) 










BUF 


=00000004 


246 




(4) 


#-274 


(4) 


#-361 


(4) 






COMPUTE PfN 


0O000O78-R 


337 




(4) 


#-389 


(4) 










CXESGBjfoPTYPE 


0000001 5-R 


209. 


1 


(3) 


#-287.1 


(4) 


#-302,1 


(4) 


#-343.1 


(4) #-396,1 (4) 












#-426.1 


(4) 










EXESGB CPUTYPE 


0000001 4-R 


208 




(3) 


#-535,4 


(6) 


#-537.3 


(8) 






FILLSPT 


000001 3B-R 


486 




(5) 


#-469 


(5) 


#-473 


(5) 


#-489 


(5) 


FUNC 


=0000001 


2^9 




(4) 














GET BYTEOFFSET 


0O0000B7-R 


408 




(4) 


#-396.1 


(4) 










INlT MAPREGS 


00000073-R 


332 




(4) 


#-302 


(4) 










LBN " 


=OOO00OOC 


248 




(4) 


#-283 


(4) 










LOAD MBA MAP 


0000009F-R 


376 




(4) 


#-343.1 


(4) 










LOAD~NEXT MAP 


OOO00OA7-R 


387 




(4) 


#-366 


(4) 










MBAlC MAP" 


=00000800 








333 


(4) 


334 


(4) 


335 


(4) 


MODE " 


=00000014 


250 




(4) 


#-339 


(4) 










NDT$ MB 


=00000020 








#-301 


(4) 










PR$ RAPEN 


=00000038 








#-264 


(4) 


#-418 


(4) 






PR$~POBR 


=00000008 








#-286 


(4) 










PR$~SID TYP780 


=00000001 








#-535.4 


(6) 










pteJc kQ 


=10000000 








#-487 


(5) 










PTE$M~PFN 


=001FFFFF 








#-341 


(4) 










PTE$M~ VALID 


=80000000 








#-487 


(5) 










push Retry 


OO0000C4-R 


421 




(4) 


#-288.2 


(4) 










RPB ** 


=00000000 


452 




(5) 


#-263 


(4) 


#-460 


(5) 






RPB$B confreg 


=00000090 








#-300 


(4) 










RPB$B"DEVTYP 


=00000066 








#-288 


(4) 


#-537.2 


(8) 






RPB$L~ADPPHY 


=000000 5 C 








265 


(4) 


#-266 


(4) 


465 


(5) 


RPB$L~ADPVIR 


=00000060 








265 


(4) 


#-464 


(5) 






RPB$L~BOOTR1 


=00000020 








#-299 


(4) 










RP8$L~CSRPHY 


=00000054 








416 


(4) 


#-419 


(4) 


#-471 


(5) #-474 (5) 


RPB$L~CSRVIR 


=00000058 








416 


(4) 


#-475 


(5) 






RPBSL'IOVEC 


=00000034 








#-425 


(4) 


#-578 


(8) 






RPBSLllOVECSZ 


-00000038 








#-570 


(8) 
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RPBtL SVASPT 


=00000050 






#-284 


(4) 


#-462 (5) 


SIZE " 


=00000008 


247 


(4) 


#-275 


(4) 




SS$ NORMAL 


=00000001 






#-535.3 


(6) 




SS$~PARITY 


=000001 F 4 






#-535.11 


(6) 




SVA3PT 


=00000004 


445 


(5) 


#-461 


(5) 




UBA$L^DPR 


=00000040 






535.6 


(6) 




UBASL MAP 


=00000800 






333 


(4) 




UBASM MAP VALID 


=80000000 






#-363 


(4) 


#-398 (4) 


UBASV DPR BNE 


=0000001 F 






#-535.7 


(6) 




UBA$V~DPR"XMTER 


=0000001 E 






#-535.10 


(6) 


#-535.9 (6) 


UBA$V~MAP~BO 


=00000019 






#-361 


(4) 




UBA$V~MAP~DPD 


=00000015 






#-364 


(4) 




UB1$C~PURCNT 


=0000000A 






#-535.16 


(6) 




UBI$L"*DPR 


=00000000 






535.14 


(6) 




UBISL^MAP 


=00000800 
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(4) 




UBISL SR 


=00000010 






#-535.26 


(6) 




UBI$M"SR MRPE 


=00008000 






#-535.29 


(6) 




UBI$M~SR~NXM 


=00010000 






#-535.30 


(6) 




UBI$M~SRJJCE 


=80000000 






#-535.31 


(6) 




UBISM SR UWE 


=00004000 






#-535. 28 


(6) 




UBISV^DPR ERROR 


=0000001 F 






#-535.22 


(6) 




UBISV DPR'PUR 


=00000000 






#-535.15 


(6) 


#-535.19 (6) 


vass.Byte" 


=00000009 






#-278 


(4) 


#-409 (4) 


VA$S„VPN 


=00000015 






#-287 


(4) 


#-465 (5) #-467 (5) 


VA$V byte 


=00000000 






#-278 


(4) 


#-409 (4) 


VA$V"SYSTEM 


=0000001 F 






#-285 


(4) 




VA$V~VPN 


=00000009 






#-287 


(4) 


#-465 (5) #-467 (5) 


VABA$E 


=00000008 


448 


(5) 


#-463 


(5) 
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B00TDR1VR 
Cross reference 



Cross 



MACRO 



SBTDDEF 

$DEFINI 



SIOPEF 

SMBADEF 

SNDTDEF 

SPRDEF 

SPTEDEF 

$RPBDEF 

SSSDEF 

SUBADtF 

SUBIDEF 

SVADEF 

ASSUME 

CASE 

CPUOJSP 



SIZE 

1 
1 



17 

5 

2 

4 

3 

5 

21 

6 

2 

1 

1 

1 

1 



reference 
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984 


*** BOOTDRJVR 


non-interrupt I/O 
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i 


Macros 


Cross Reference i 




DEFINITION 






REFERENCES... 






124 


(2) 






124 


(2) 






124 


(2) 






124 


(2) 


125 


(2) 










129 


(2) 


130 


(2) 










134 


(2) 


167 


(2) 


125 


(?) 






125 


(2) 
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(2) 






126 


(2) 
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(2) 
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(2) 
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(?) 
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(2) 
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(2) 






129 


(2) 






130 


(2) 






130 


(2) 






131 


(2) 






131 


(2) 






132 


(2) 






132 


(2) 






133 


(2) 






133 


(2) 






134 


(2) 






134 


(2) 






265 


(4) 






265 


(4) 


333 


(4) 


535.4 


(6) 






535.4 


(6) 






159 


(2) 
CPL 


i 

1 

J Ti 




535.4 


(6) 








Performance indicators ! 




Page faults 


me 




Elapsed 1 


f ime 




35 


00: 


00 


00 


.12 


00:00:00, 


25 




130 


00: 


00 


00 


.69 


00:00:01 


79 




172 


00. 


00 


15 


.93 


00:00:22. 


80 







00: 


00 


02 


.07 


00:00:02 


12 




168 


00. 


00 


04 


.18 


00:00:09 


29 




10 


00. 


00 


00 


.09 


00:00:00 


09 




7 


00 


00:00 


.04 


00:00:00 


03 




31 


00: 


00 


00 


.35 


00:00:00 


44 
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00: 


00 


23 


.48 


00:00:36 
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126 
131 



(2) 
(2) 



127 
132 



(2) 
(2) 



128 
133 



(2) 
(2) 



334 



(4) 



416 



(4) 



Phase 

Initial ization 

Command process ing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

71636 by.es (140 pages) of virtual memory were used to butter the intermediate cod*?. 

There were 70 pages ot symbol table space allocated to hold 1327 non-local and 24 local symbols, 

689 source lines were read in Pass 1, producing object records in Pass 2. 

66 pages of virtual memory were used to define 21 macros. 



L 10 
ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Fiche 2 Frame 110 Seguence 334 

BOOTDRIVR *** BOOTDRIVR non-interrupt I/O 27-JUL-1984 1 5:02:28 VAX-11 Macro V03-0T Paqe 24 

VAX-11 Macro Run Statistics 1-APR-1980 09:26:39 DMA1 :CSYS0.SYSMAINTJB00TDRIVR.MAR; (8) 

4...... — — — ..... .. .......-+ 

! Macro Library statistics ! 

Macro library name Macros defined 

DMA1:CSYS0.SYSMA1NTJDS.MLB;218 

OMA1:CSYSO,SYSMA1NT3DIAG.MLB;953 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 9 

SYS$SYSR00T:[SYSLIB]STARLET.MLB;2 7 

TOTALS (all libraries) 16 

1410 GETS were required to define 16 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/L I STEEDS. USD/CRQSS/ENA8lE = (DEBUG, TRACE) B00TDRIVR/UPDA=(B00TDRIVR.UPD,BOOTDRIVR.ENH)+SYS$LIBRARY:LIB/LiBRARY+DMAl :CS 
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BOOTIO - BOOTSTRAP FILEREAD 10 MODULE 27-JUL-1984 15:03:06 VAX-11 Macro V03-0T Page 
T abLe oi contents 

(1) 90 RDWRTL8N - READ/WRITE LOGICAL BLOCK NUMBER 

(1) 154 BOOSCACHE INI T - INIT FILEREAD CACHE 

(1) 287 BOOSIMAGE ATT - Get image attributes from image header 

(1) 333 SYSSASSIGR, Dummy assign device system service 
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.IDENT 
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1 06-02' 



1 

(1) 



*****************+*******************************^ 



* C0PYRJ6HT (c) 1978, 1980, 1982, 1*^3 BY 

* DIGITAL EQUIPMENT CORPORATION, MA, .ARD, MASSACHUSETTS. 

* ALL RIGHTS RESERVED. 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AMD WITH THE 

* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

* TRANSFERRED. 



* 

* 
* 

* * 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* 

* 

• 

* * 



THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



FACILITY: 
ABSTRACT: 



SYSTEM BOOTSTRAPPING 



THIS MODULE PERFORMS LOGICAL BLOCK I/O FOR FJLEREAD 
ENVIRONMENT: KERNEL MODE, UNMAPPED, IPL=31 
AUTHOR: RICHARD I. HUSTVEDT , CREATION DATE: 14-APR-78 



MODIFIED BY: 
02 



Bob Bergazzi June 29,1983 Version 6.12 
Adapted to run for supervisor. 



V03-001 KTA0091 Kerbey T. ALtmann 30-Mar-1982 
Redo some entries in t» e file cache tablo. Make the 
•age allocation part o^ B0O$CACHE_INIT a subroutine, 
ivide it into **wo pieces. 



I- 



V02-003 PHL0012 Peter H. Lipman 02-Aug-1981 
Explicitly initialize the FILEREAD cache pointer. 

Must not allow assembly time initialization since VMB c*n restart. 
Fix PSECT so that VMB can overlay most of itself with 

the secondary boot file. Remove BUOSGL.RPBBASE. 

V02-002 PHL0011 Peter H. Lipman 31-Jul-I981 

The page at which the FILEREAD cache is located 
should be relative to the RPB not absolute. 



..__. 



Z7-ENSAA-7.0 
BOOT 10 

i>e.-02 



BOOTSTRAP F REREAD 10 MODULE 

- BOOTSTRAP FILEREAD 10 MODULE 
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V02-001 PHL0007 Peter H. Lipman K-Mar-1981 

Extend parmeter list to FJLSRDWRTLBN to make it 
possible to read more than one block at a time. This 
enhancement was made in conjunction with the cacheing 
feature in FILEREAD. 

Add new BOOSCACHL- JNJT routine for VMB and SYSBOOT to 
init the FILEREAD cache. 

Move other common FILEREAD pieces into this module thus 
avoiding them being in two places, 

Add new BOOSIMAGE ATT routine to fetch certain image 
attributes from an image Reader. 



ZZ-ENSAA-7,0 
BOOT 10 
06-02 



BOOTSTRAP F1LEREAD 10 MODULE 

- BOOTSTRAP F1LEREAD JO MODULE 
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71 
72 
73 
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76 
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78 
79 
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84 
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86 



INCLUDE FILES: 

SIHDDEF 
SJHSDEF 
UHPDEf 
SRP8DEF 



IMAGE HEADER DEFINITIONS 
IMAGE HEADER SYMBOL TABLE DEFS 
IMAGE HEADuR PATCH CONTROL DEFS 
DEFINE RESTART PARAMETER BLOCK 



MACROS: 

Define Memory Size to File Cache Parameter table entry 

.MACRO MEM FILE CACHE MEM PAGE CNT,CACHE_PAGE JIUM, CACHE. PAGE_CNT,MAX_PAGE 

.LONG MEM>AGE~CNT-<MEM PAGF CNT/10> 

.WORD CACHE PA8E NUM 

.WORD «CACHE PABE CNT + 3>& A C<3» 

.LONG MAX PAGE 

,ENDM MEM^FILE. CACHE 
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BOOT 10 
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116-02 
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15:56:43 DMA1 :CSYS0,SYSMAINT:800TIO.MAR;2 (1) 




00000000 
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.PSECT code, exe. 


nowrl 


:, shr 


, long ; C023 
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0000 
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♦SBTTL RDWRTLBN - 


READ/WRITE 


LOGICAL BLOCK NUMBER 
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+ + 
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FUNCTIONAl DESCRIPTION: 
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93 , 
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THIS ROUTINE READS/WRITES N BYTES FROM/TO THE SPECIFIED 






0000 


95 , 


LOGICAL BLOCK NUMBER OF 


THE VOLUME 


ASSIGNED TO THE SPECIFIED CHANNEL 
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96 , 














0000 
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CALLING SEQUENCE: 
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98 ( 
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99 ( 


CALLG ARGLJST,Fi 


LSRDWRITLBN 








0000 


100 , 














0000 


101 , 


INPUT PARAMETERS: 












cooo 


102 ( 














0000 


103 ( 


CHAN(AP) = 








CHANNEL ASSIGNED TO THE VOLUME TO READ 






0000 


104 ( 


LBN(AP) 








LOGICAL BLOCK NUMBER TO READ 






0000 


105 , 


BUFADR(AP) = 








ADDRESS OF BUFFER TO READ INTO 






0000 


106 , 


IOFUNC(AP) - 








I/O FUNCTION CODE 






0000 


107 , 


BYTCNT(AP) = 








NUMBER OF BYTES TO TRANSFER 
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• IMPLJCJT INPUTS: 
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110 4 
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111 t 


NONE 
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113 


• OUTPUT PARAMETERS: 
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RO = SYSTEM STATUS 


CODE 
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I IMPLICIT OUTPUTS: 
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119 


NONE 
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I COMPLETION CODES: 
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; NONE 
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I SIDE EFFECTS: 
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127 


J NONE 












0000 


128 
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; EQUATED SYMBOLS: 
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131 


; OFFSETS FROM AP 
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132 












00000004 


0000 


133 


CHAN = 




4 




•CHANNEL TO WHICH VOLUME IS ASSIGNED 




00000008 


0000 


134 


LBN = 




8 




•LOGICAL BLOCK NUMBER 




OOOOOOOC 


0000 


135 


BUFADR = 




12 




^BUFFER ADDRESS TO READ INTO 




00000010 


0000 


136 


IOFUNC = 




16 




FUNCTION CODE FOR THE 010 




00000014 


0000 


137 


BYTCNT = 




20 




-NUMBER OF BYTES TO TRANSFER 






0000 


138 


# 












0000 


139 


# 












0000 


140 














0000 


141 


FRSRDWRTL6N:: 










0000 


0000 


142 


.WORD 










04 AC DD 


0002 


143 


PUSHL CHANUP) 






; ADDRESS OF RPB 




50 6E DO 


0005 


144 


MOVL (SP),RO 






; GET ADDRESS OF RPB 



ZZ-ENSAA-7.0 


RDWRTLBN - READ/WRITE LOGIC 


BOOT 10 




- BOOTSTRAP 


06-02 




RDWRTLBN - 




50 34 AO 


DO 0008 




00 


DD OOOC 




10 AC 


DD OOOE 




08 AC 


DD 0011 




14 AC 


DD 0014 




OC BC 


DF 0017 




00 B040 06 


FB 001A 
04 001F 
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145 


MOVL 


146 


PUSHL 


147 


PUSHL 


148 


PUSHL 


149 


PUSHL 


150 


PUSHAL 


151 


CALLS 


152 


RET 



RPB$L IOVEC(R0),R0 

#0 

IOFUNC(AP) 

LBN(AP) 

BYTCNT(AP) 

SBUFADR(AP) 

//6,5>(R0)CR0J 



GET POINTER TO I/O ROUTINE VECTOR 

SET MODE TO PHYSICAL ADDRESS 

SET FUNCTION 

LOGICAL BLOCK NUMBER 

SET NUMBER OF BYTES 

SET BUFFER ADDRESS 

CALL BOOTSTRAP DRIVER 



ZZ-ENSAA-7.0 

BOOT 10 
06-02 



BOOSCACHEJNIT - INIT FILEREAD CACHE 

- BOOTSTRAP FILEREAD 10 MODULE 
BOOSCACHE INIT - INIT FILEREAD 
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177 

178 

179 
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185 
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.S8TTL BOOSCACHE INIT - INIT FILEREAD CACHE 



+ + 



Functional description: 

This routine establishes a desired FILEREAD cache size and 
base address according to the size of memory. It finds 
good contiguous pages at or near the desired place and 
calls the FILSCACHt INIT routine to initialize the cache. 
The routine is furtRer divided into two pieces: one to do 
cache allocation, and one to do the actual mount and open. 
This is necessary for VM8 needs to allocate the cache long 
befor it is ready to accept IO to the device. 

Calling Sequence: 

BS8W B00$CACHE_INIT 



Inputs: 



R11 

RP8$L 

RP8$Q" 



PFNCNT(RII) 

'PFNMAP+4CR11) 



- RP8 base address 

- actual number of good pages 

- base address of PFN bitmap 



in memory 



Implicit inputs: 



none 



Outputs: 



R0-R4 altered 

FIL$GQ_CACHE set up with size and address of cache 



Implicit outputs: 



Table of memory sizes to file cache parameters 

NOTE: If this table is modified, a corresponding table in VMB around 
label MEM^fAB should be checked for consitency. 



MEM.CACHE TABLE: 

MEW FILE CACHE 16384,2048,64,4096 

MEM"FILElCACHE 8192,1024,64,2048 

MEM'FILE CACHE 4096, 640,64,1024 

MEM'FILElCACHE 2048, 512,64, 768 

MEM^FILE CACHE 1024, 256,32, 512 

MEM FILE CACHE 512, 256,16, 256 

MEM~FILE_ CACHE 384, 256, 8, 192 

MEM'FJLE^CACHE 256, 128, 4, 128 

mem;fre_ CACHE 0, 0, 0, 



More than 8 megabyte 
More than 4 megabyte 
More than 2 megabyte 
More than 1 megabyte 
More than 51 2k. bytes 
More than 256k bytes 
More than 192k bytes 
More than 128k bytes 



begin [2] 



ZZ-ENSAA-7.0 
BOOT 10 
06-02 



BOOSCACHE INIT - INIT FILEREAD CACHE 

- BOOTSTRAP FILEREAD 10 MODULE 
BOO$CACHE_INIT - INIT FILEREAD 
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207 

208 

209 

210 

211 

212 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

.15 

.16 

.17 

.18 

231 

232 

233 

.1 

.2 

.3 

.4 

238 

239 

240 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

.15 

256 

257 

258 

259 

260 
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262 

263 



B00$CACHE_ALL0C - The piece that does the allocation. 

Outputs: 

FILSGQCACHE filled in with size/address in blocks 



BOO$CACHE ALLOC 

PUSHL 

CLRQ 

MOVAL 
10$: MOVQ 

BEQL 

MOVL 

CMPL 

BLSS 

MOVZWL 

ASHL 

ASHL 

esse 

BLSS 
MOVQ 
20$: POPL 
RSB 



R5 

W A FIL$GQ CACHE 

B A MEM CACHE.TABLE.RO 

(R0)+TR1 

20$ 

(R0)+,R5 

RPB$L PFNCNT(R11),R1 

10$ - 

R2,R0 

#-16,R2,R1 
#-1,R1,R4 

B00$ALL0C PAGES 

20$ 

R2,W A FIL$GQ CACHE 

R5 



params tbl 
cache 



Save a register 

Assume no cache available 

Adr of memory size to cache 

Get the next table entry 

Branch if memory too small for 

Max page 

More memory than this entry? 

Branch if not, get next one 

Starting relative bit (paqe) in PFNMAP 

Count of bits (pages) to look for 

Settle for half if can't find all 

Go get the pages 

Failed 

Success, record the values 

Restore a register 



B00$CACHEJNIT - full routine to both allocate and open the cache 



800$CACHE INIT:: 

BS8B B00$CACHE_ALL0C 



; Allocate the cache 
; Fall thru to finish 



B00$CACHE_0PEN - Actually mount the device and fill the cache 



:B00$CACHE OPEN:: 

M0?L W A FIL$GQ CACHE, R2 
10$ 
#4,SP 
SP,R0 
*2,R2,-(SP) 



10$: 



BEQL 

SUBL 

MOVL 

SUBL3 

PUSHL 

ASHL 

ASHL 

CLRL 

PUSHL 

CALLS 

ADDL 
RSB 



Pick up size 

Zero length implies none 
Location to store channel 
Address to store channel 
Blocks in directory LBN cache 



ff£,K<r,-varj ; blocks in directory lbn cacne 

S A *«1024-FIL$C SIZE>/FIL$CJ)IR.SIZE> ; No. of dir cache entries 
#9,W A FIL$GQ„CACRE+4,-(SP) ; Byte address from page number 
#9,R2,-(SP) ; Size of cache in bytes 

-(SP) ; Null device name string descriptor 

R0 ; Address to store channel 

Init the FILSOPENFILE cache 
descriptor returned in F1L$GQ_ CACHE 
Clean off channel 



#6,W A FIL$CACHEJNIT 
04, SP 



B00$AIL0C_PAGES - Find a run of contiguous, good pages 

Inputs: 

R0 - Page to start at 

R1 - Number of pages needed 

R4 - Number willing to settle for 



ZZ-ENSAA-7.0 

BOOT 10 
06-02 



BOOSCACHE INIT - INIT FILFREAD CACHE 

- BOOTSTRAP FILEREAD 10 MODULE 
BOOSCACHE. INIT - INIT FILEREAD 
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264 
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0020 
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0020 
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0020 


.1 
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.2 


0020 


.3 


0020 


.4 


0020 


.5 


0020 


.6 


0020 


.7 


0020 


.8 


C020 


.9 


0020 


.10 


0020 


.11 


0020 


.12 


0020 


.13 


0020 


.14 


0020 


.15 


0020 


.16 



R5 
Outputs: 
CC 
R2 
R3 



- Maximum page 

- Status (BLSS to an error routine) 

- Number found 

- Starting page number 



800SALL0C PAGES:: 

ROTL #<32-9>,R11,R2 ; PFN of 

ADDL R2,R0 ; Convert 

MOVL R0,R3 ; Make a 

30$: CMPL R5,R0 ; Less th 

BLSS 50$ ; No, fai 

BBS R0,8RPB$Q PFNMAP+4(R1 1) ,40$ ; Bra 

SUBL3 R3,R0,R2 " ; Count o 

CMPL R2,R4 ; Found e 

BGEO 50$ ; Branch 

ADDL3 #1,R0,R3 ; No, res 

40$: INCL R0 ; Next bi 

S0B6TR R1 ,30$ ; Branch 

SU8L3 R3,R0,R2 ; Count o 

CMPL R2,R4 ; Found e 

50$: RS8 ; Return 



the RPB 
relative PFN to absolute 
copy of starting bit 
an max page 
lure 

nch if this is a good page 
f bits (pages) found 
nough? 
if yes 

et starting base 
t (page) 

if more to check 
f bits (pages) found 
nough? 
(Status in CC) end C2D 
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SOOSIMAGE ATT - Get image attributes fro 27-JUL-1984 Fiche 2 Frame 111 Seguence 344 

- BOOTSTRAP FILEREAD JO MODULE 27-JUL-1984 15:03:06 VAX-11 Macro V03-01 Page 
BOOSIMAGE ATT - Get image attributes fro 12-APR-1983 15:56:43 DMA1 :CSYS0.SYSMAINT]BOOTIO.MAR;2 



9 
(1) 



0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
C020 
0020 
0020 
0020 
0020 



287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 







0020 
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0020 


310 


50 04 A3 


3C 


0020 


311 


OD 


13 


0024 


312 


51 6043 


9E 


0026 


313 


19 


10 


002A 


314 


51 04 A043 


9E 


002C 


315 


12 


10 


0031 


316 


50 08 A3 


3C 


0033 


317 


07 


13 


0037 


318 


51 20 A043 


9E 


0039 


319 


05 


10 


003E 


320 


51 10 A3 


9A 


0040 


321 




05 


0044 


322 






0045 


323 






0045 


324 






0045 


325 


51 61 01 


C3 


0045 


326 


08 


19 


0049 


327 


51 52 


D1 


0048 


328 


03 


15 


004E 


329 


52 51 


DO 


0050 


330 




05 


0053 


331 



++ 



.SBTTL BOO$IMAGE_ATT - Get image attributes from image header 
Functional Description: 

BOO$IMAGE_ATT returns to the caller some attributes of the image 
Calling Sequence: 

BS8W BOO$IMAGE_ATT 
Inputs: 



R2 = Size of file in blocks 

R3 = Address of image header block (first one only) 



Outputs: 



Rl = Number of image header blocks at the front of the image 

R2 s Si2e of image in blocks excluding the blocks at the end 

containing local symbols, global symbols, or patch text 



BOOSIMAGE ATT:: 
MOVZWL 
BEQL 
MOVAB 
BS8B 
MOVAB 
BSBB 

20$: M0VZWL 

BE0L 
MOVAB 
BSBB 

30$: M0VZ8L 
RSB 



IHD$W SYMD8GOFF(R3),R0 

20$ " 

IHSSL DSTVBN(R0)CR3J,R1 

40$ " 

IHSSL GSTVBN(R0)CR3],R1 

40$ " 

IHDSW PATCH0FF(R3),R0 

30$ ' 

1HP$L PATCOMTXT(R0)CR33, 

40$ ~ 

IHD$B HDRBLKCNT(R3),R1 



ANY SYMBOL TABLE INFORMATION? 
BRANCH IF NOT 

ADR OF 1ST VBN IN DEBUG SYMBOL TABLE 
PROCESS IT 

ADR OF 1ST VBN IN GLOBAL SYMBOL TABLE 
PROCESS IT 

ANV PATCH CONTROL INFORMATION? 
BRANCH IF NOT 
1 ; ADR OF 1ST VBN OF PATCH COMMAND TEXT 
PROCESS IT 
GET IMAGE HEADER BLOCK COUNT 



SEE If VBN IS NON ZERO AND THEN IF IT IS SMALLER THAN THE CURRENT SMALLEST 



40$: 



50$: 



SUBL3 

BLSS 

CMPL 

BLEQ 

MOVL 

RSB 



#1,(R1),R1 

50$ 

R2,R1 

50$ 

R1,R2 



FETCH VBN - 1 

BRANCH IF NO VBN IS PRESENT 

IS IT SMALLER THAN THE CURRENT ONE 

BRANCH IF NOT 

YES, USE IT 



ZZ-ENSAA-7.Q 
BOOT 10 
06-02 



J 11 
SYSSASS1GN, Dummy assign device system s 27-JUL-1984 Fiche 2 Frame J11 Sequence 345 

- BOOTSTRAP FILEREAD 10 MODULE 27-JUL-198A 15:03:06 VAX- 1 1 Macro V03-01 Page 10 

SYSSASSIGN, Dummy assign device system s 12-APR-1983 15:56:43 DMA1 :CSYSO.SYSMAINT3BOOTIO.MAR;2 (1) 



-11 



-4 



0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
C054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 



333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

371 

372 

373 

374 

.1 

.2 

.3 

.4 

379 

380 



.SBTTL SYSSASSIGN, Dummy assign device system service 



+ + 



Functional description: 

SYSSASSIGN is a dummy routine to satisfy the requirements of 
FJL$0PENFJLE, 

Inputs: 

CHAN(AP) - address at which to return channel 
Implicit inputs: 

The label BOOSGL^RPBBASE contains the physical address of the RPB. 
Outputs: 

R0 - success status code 

Implicit outputs: 

The channel returned is not a channel. It is instead the base 
address of the RPB, 



CHAN = 8 

SYSSASSIGN:: 
.WORD 

M0VL 

M0VL 

RET 

.PAGE 

.S8TTL 



begin L21 







Dummy system service. 



W A B00$GL RPBBASE,aCHAN(AP) ; Store RPB address as channel. 
S A 0S$$_Npr<rtAL ,R0 ; Return success status. 

; Return to caller. 

Common Globals for VMB and SYSBOOT 



The following globals are common to VMB and SYSBOOT and are 
defined here to avoid replicate definitions. 



FILSGT DDSTRING:: 

".ASCIC /CSYSEXEJ/ 
FIL$GT_DDDEV:: 

.BYTE 

.END 



Default directory string. 

Default device name 
Null ASCIC string 



ZZ-ENSAA-7.0 
BOOT 10 
Symbol table 

800$ I MAGE ATT 

BUFADR 

8YTCNT 

CHAN 

F1LSRDWRTLBN 

IHDSB_HDRBLKCNT 

IHDSW PATCHOFF 

iHDSVfSYMDBGQFF 

1HP$L"PATC0MTX1 

IHSSL DSTVBN 

IHSSL^GSTVBN 

lOFUNf 

LBN 

RPBSLJOVEC 



Symbol table 



BOOTSTRAP 


FILEREAD 


00000020 RG 


D 02 


OOOOOOOC 


D 


00000014 


D 


00000004 


D 


00000000 RG 


D 02 


00000010 


D 


00000008 


D 


00000004 


D 


00000020 


D 


00000000 


D 


00000004 


D 


00000010 


D 


00000008 


D 


00000034 


D 
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PSECT name 



. ABS 
$ABS$ 

CODE 



Allocation 

00000000 ( 
00000000 ( 
00000054 ( 



! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

0.) 01 ( 1.) NOPJC USR 

84.) 02 ( 2J NOPIC USR 



CON 
CON 
CON 



ABS 
ABS 
REL 



LCL 
LCL 
LCL 



NOSHR 

NOSHR 

SHR 



NOEXE 
EXE 
EXE 



NORD 
RD 
RD 



NOWRT 

WRT 

NOWRT 



NOVEC BYTE 
NOVEC BYTE 
NOVEC LONG 



ZZ-ENSAA-7.0 

BOOT 10 

Cross reference 



Cross reference 



- BOOTSTRAP F REREAD 10 MODULE 
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! Symbol Cross Reference \ 

+ + 



SYMBOL 



BOOSIMAGE ATT 

BUFADR 

BYTCNT 

CHAN 

FIL$RDWRTLBN 

1HD$B„HDRBLKCNT 

IHDSW PATCHOFF 

IHD$W"SYMDBGOFF 

IHP$L>ATCOMTXT 

IHSSOSTVBN 
IHSSL 6STVBN 
IOFUNt 
LBN 
RPBSLJOVEC 



VALUE 


DEFINITION 


REFERENCES... 


00000020-R 


310 


(1) 




OOOOOOOC 


135 


(1) 


150 (1) 


00000014 


137 


(1) 


#-149 (1) 


00000004 


133 


(1) 


#-143 (1) 


00000000-R 


141 


(1) 




00000010 






#-321 (1) 


00000008 






#-317 (1) 


00000C04 






#-311 (1) 


00000020 






319 (1) 


00000000 






313 (1) 


00000004 






315 (1) 


00000010 


136 


(1) 


#-147 (1) 


00000008 


134 


(1) 


#-148 (1) 


00000034 






#-145 (1) 



7Z-ENSAA-7.0 

BOOT 10 

Cross reference 



Cross reference 
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- BOOTSTRAP FitEREAD 10 MODULE 
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MACRO 



SIZE 



SDEFiNI 


1 


SIHDDEF 


5 


SIHPDEF 


1 


SIHSDEf 


1 


SRPBOEF 


5 


MEM FILE CACHE 


1 



DEFINITION 



72 
72 
74 
73 
75 
81 



+_.— . .- — — ™™— .— — + 
! Macros Cross Reference ! 



73 



REFERENCES... 


72 


(1) 


72 


(1) 


74 


(1) 


73 


(1) 


75 


(1) 



(1) 



74 



(1) 



75 



(1) 



+-..-. — — — — — — ™™+ 

! Performance indicators I 



Phase 



Page faults 


CPU Time 


Elapsed Time 


31 


00:00:00.15 


00:00:00.27 


133 


00:00:00.77 


00:00:02.30 


271 


00:00:03.96 


00:00:06.46 





00:00:00.20 


00:00:00.21 


91 


00:00:01.53 


00:00:02.90 


3 


00:00:00.02 


00:00:00.02 


7 


00:00:00.03 


00:00:00.03 


13 


00:00:00.09 


00:00:00.09 


553 


00:00:06.76 


00:00:12.28 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

13295 bytes (26 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 183 non-local and 4 local symbols 

383 source lines were read in Pass 1, producing object records in Pass 2. 

25 pages of virtual memory were used to define 11 macros. 

+«...«. .. — ~_~ — •.—*-•.•—+ 

! Macro library statistics ! 
+ — — + 



Macro library name 

DMA1 :CSYS0.SYSMAINT]DS.MLB;218 
DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 
SYS$SYSROOT:CSYSLI83LIB.MLB;1 
SYS$SYSROnT:CSYSLIBJSTARLET,MLB;2 
TOTALS (all libraries) 



Macros defined 



4 
3 
7 



247 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LJST = [DS.LlSJ/CR0SS/ENABLE = (DEBUG , TRACE) B00TJ0/UPDA-(B00TI0.UPD,800T1Q,ENH)+SYS$L1BRARY:LIB/I1BRARY+DMA1 : CSYS0. SYSMAi 



ZZ-ENSAA-7.0 *** BUFCTL QIO buffer control 

BUFCTL *** BUFCTL QIO buffer control 

*able of contents 



N 11 
27-JUL-1984 Fiche 2 Frame N11 Sequence 349 

27-JUL-1984 15:03:20 VAX-11 Macro V03-0T Page 







51 
87 
121 
143 
176 
209 



GET ONE BYTE OF DATA FROM USER BUFFER 

PUT ONE BYTE OF DATA INTO USER'S BUFFER 

INITIALIZE FOR SINGLE BYTE TRANSFERS 

MOVE FROM USER BUFFER 

MOVE TO USER BUFFER 

FILL SYSTEM PTE WITH TRANSFER PTE 
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*** BUFCTL QIO buffer control 
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.TITLE BUFCTL *** BUFCTL QIO buffer control 
• IDENT /05-03/ 



******************************* ******************** *********************** 

COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

4*****************************4******************************************* 



D. N. CUTLER 9-AUG-76 
MODIFIED BY: 



01 
02 



03 



NICK HOWGATE 28-MAR-78 VERSION 02 (ESSAA-4,01) . 

INCLUDED IN DIAGNOSTIC SUPERVISOR FOR QIO SUPPORT 
Roger Riggs 9 April 1979 Version 5.0 

Changed ROVFRUSER and MOVTOUSER not to use SVPN, 
instead just address it directly. 
Dave Butenhof 13-may-1980, Version 5.4 
Upgrade to VMS V2.0 level: add routines IOCSGETBYTE and 
IOCSPUTBYTE, dummy IOCSINITBUFWIND and IOCSF1LSPT for 
code centralization, and extra entry points to 
IOCSM0VTOUSER and JO'SMOVFRUSER. 
04 STJ0002 S. JEFFREYS 29-FEB-1980 

ADD ALTERNATE ENTRY POINTS FOR IOCSMOVTOUSER AND IOCSMOVFRUSER, 

03 STJ0001 S. JEFFREYS 26-SEP-1979 

MODIFY IOCSPUTBYTE AND IOCSGETBYTE TO WORK CORRECTLY FOR 
BUFFERS THAT ARE PAGE ALIGNED. 

02 CAM001 C. MONIA 15-FEB-1979 

ADD IOCSPUTBYTE AND IOCSGETBYTE ROUTINES FOR TU-58 SUPPORT 



I/O BUFFER CONTROL ROUTINES 
MACRO LIBRARY CALLS 



SPRDEF 
SPTEDEF 



;DEFINE PROCESSOR REGISTERS 
;PAGE TABLE ENTRY DEFINITIONS 



Z7-ENSAA-7.Q *** QUFCTL QIO buffer control 27-JUL-1984 Fiche 2 Frame C 1 2 Sequence 351 

BuKTL *** BUFCTL QIO buffer control 27-JUL-198'. 15:03:20 VAX-11 Macro V03-01 Page 2 

U5-03 1-APR-1980 10:17:12 DMA1 : [SYSO.SYSMAINTJBUFCTUMAR;! 1 (1) 

0000 49 SUC8D6F /DEFINE UC8 OFFSETS 

V54 0000 .1 ; 

V5<. 0000 .2 ; OWN STORAGE 

V54 0000 .3 ; 

V5*. 00000000 .A .PSECT SEP, SHR, EXE, WRT, LONG 
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BUFCTl 

U5-03 



GET ONE BYTE OF DATA FROM USER 8UFFER 

*** BUFCTL QIO buffer control 
GET ONE BYTE OF DATA FROM USER 
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27-JUL-1984 Fuhe 2 Frame D12 Seguence 352 

27-JUL-1984 15:03:20 VAX-11 Macro V03-0T Page 3 
BUFFER 1-APR-1980 10:17:12 DMA1 :CSYS0.SYSMA1NTJBUFCTL.MAR;1 1 (1) 
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.SBTTL GET ONE BYTE OF DATA FROM USER BUFFER 
IOCSGETBYTE - GET ONE BYTE OF DATA FROM USER'S BUFFER 

THIS ROUTINE IS CALLED BY AN I/O DRIVER TO GET A SINGLE BYTE FROM THE 
USER'S BUFFER. 

PRIOR TO CALLING THIS ROUTINE, A CALL TO JOCSJNITBUFWIND MUST BE MADE TO 
MAP THE SYSTEM PAGE TABLE ENTRY INTO THE USER'S BUFFER 



INPUTS: 



RO = SYSTEM VIRTUAL ADDRESS OF ONE-PAGE WINDOW INTO USER'S BUFFER. 
R5 = ADDRESS OF UCB, 

OUTPUTS: 

RO = UPDATED SYSTEM VIRTUAL ADDRESS 
R1 r ONE BYTE OF DATA (ZERO EXTENDED) 

UC8SL.SVAPTE IS UPDATED WHENEVER A PAGE BOUNDARY IS CROSSED 

THE DRIVER IS EXPECTED TO SAVE THE VALUE OF RO FOR SUBSEQUENT CALLS. 



IOCSGETBYTE:: 
MOVB 
BITW 
BNEO 
ADDL 
BS88 

10$: RS8 



<R0)+.R1 

* A X01FF,R0 

10$ 

*4,UCB$L SVAPTE(R5> 

IOCSFILSPT 



GET BYTE FROM USER'S BUFFER 

OVERFLOW PAGE BOUNDARY? 

IF NEQ NO 

UPDATE ADDRESS OF PROCESS PTE 

FILL SPT, COMPUTE SYSTEM ADDRESS OF PAGE 

RETURN 



ZZ-ENSAA-7.0 

BUFCTL 
05-03 



E 12 
PUT ONE BYTE OF DATA INTO USER'S BUFFER 27-JUL-1984 Fiche 2 Frame E12 Sequence 353 

*** BUFCTL OJO buffer control 27-JUL-1984 15:03:20 VAX-1 1 Macro V03-01 Page 

PUT ONE BYTE OF DATA INTO USER'S BUFFER 1-APR-1980 10:17:12 DMA1 :CSYS0.SYSMAINT3BUFCTL.MAR;1 1 
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.SBTTL PUT ONE BYTE OF DATA INTO USER'S BUFFER 

iOCSPUTBYTE - PUT ONE BYTE OF DATA IN USER'S BUFFER 

THIS ROUTINE IS CALLED BY AN I/O DRIVER TO PUT A SINGLE BYTE OF DATA 
INTO THE USER'S BUFFER. 

PRIOR TO CALLING THIS ROUTINE, A CALL TO IOCSINITBUFWIND MUST BE MADE TO 
MAP THE SYSTEM PAGE TABLE ENTRY INTO THE USER'S BUFFER. 

INPUTS: 

RO = SYSTEM VIRTUAL ADDRESS OF ONE-PAGE WINDOW INTO USER'S BUFFER 
R1 LOW BYTE * DATA TO BE TRANSFERRED TO USER 
R5 = ADDRESS OF UC8 

OUTPUTS: 

RO = UPDATED SYSTEM VIRTUAL ADDRESS OF BUFFER WINDOW 
UC8$L_SVAPTE IS UPDATED WHENEVER A PAGE BOUNDARY IS CROSSED 

THE DRIVER IS EXPECTED TO SAVE THE VALUE OF RO FOR SUBSEQUENT CALLS. 



I0CSPUT8YTE: 

M0V8 
BITW 
BNEQ 
ADDL 
BS88 
10$; RS8 



R1,(R0)+ 

# A X01FF,R0 

10$ 

*4.UCB$L SVAPTE(R5) 

lOCSFILSPT 



PUT BYTE INTO USERS' S BUFFER 

OVERFLOW PAGE BOUNDARY? 

IF NEQ NO 

UPDATE ADDRESS OF PROCESS PTE 

FILL SPT, COMPUTE SYSTEM ADDRESS OF PAGE 

RETURN 
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BUFCTL 
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INITIALIZE FOR 



50 



35 
6C A5 



SINGLE BYTE 
*** BUFCTL 
INITIALIZE 

0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
C022 
0022 
0022 
0022 
10 0022 
A8 0024 
05 0028 



TRANSFERS 
QIO buffer 
FOR SINGLE 



354 



121 
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128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 



F 12 
27-JUL-1984 Fiche 2 Frame F12 Seguence 

control 27-JUL-1984 1 5:03:20 VAX-11 Macro V03-01 Page 

BYTE TRANSFERS 1-APR-1980 10:17:12 DMA1 :[SYS0.SYSMAINT:iBUFCTL.MAR;11 

.SBTTL INITIALIZE FOR SINGLE BYTE TRANSFERS 



5 

(1) 



IOCSINITBUFWIND - INITIALIZE ONE-PAGE WINDOW INTO USER'S BUFFER 

THIS ROUTINE MUST BE CALLED BY A DRIVER TO SETUP THE INITIAL ONE- 
PAGE WINDOW INTO A USER'S BUFFER BEFORE CALLING IOCSGETBYTE OR 
IOCSPUTBYTE. 

INPUTS: 

R5 = ADDRESS OF UCB 
OUTPUTS: 

RO = SYSTEM VIRTUAL ADDRESS OF WINDOW INTO USER'S BUFFER 



I0C$JNJT8UFWIND:: 

BSB8 IOCSFILSPT 

BISW UCBSW BOFF(R5),R0 

RS8 



FILL SPT, COMPUTE VIRTUAL ADDRESS OF PAGE 
MERGE BYTE OFFSET INTO ADDRESS 



ZZ-ENSAA-7.0 

BUFCTL 

05-03 



MOVE FROM USER 



BUFFER 
*** BUFCTL QIO buffer 
MOVE FROM USER BUFFER 



355 



F7 
OD 

50 G1FF 8F 
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81 80 
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0029 
0029 
0029 
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0029 
0029 
0029 
0029 
0029 
0029 
0029 
0029 
C029 
0029 
0029 
0029 
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0029 
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002D 
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0032 
0034 
0038 
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003A 
003D 
0040 
0041 
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6 12 
27-JUL-1984 Fuhe 2 Frame G12 Sequence 
control 27-JUL-1984 15:03:20 VAX-11 Macro V03-O1 Page 

1-APR-1980 10:17:12 DMA1 :[SYS0.SYSMAINT]BUFCTL.MAR;11 

.S8TTL MOVE FROM USER BUFFER 



6 
(1) 



IOCSMOVFRUSER - MOVE FROM USER BUFFER 

THIS ROUTINE IS CALLED BY AN I/O DRIVER TO MOVE A STRING FROM A USER 
BUFFER TO AN INTERNAL BUFFER. 



INPUTS: 



R1 = ADDRESS OF INTERNAL BUFFER. 
R2 = NUMBER OF BYTES TO BE MOVED. 
R5 = UCB ADDRESS OF DEVICE UNIT. 



OUTPUTS: 

***T8S*** 

.ENABLE LSB 



IOCSMOVFRUSER:: 
BSBB 
BRB 

IOCSMOVFRUSER2: 

10$: BITW 
BNEQ 
ADDL 
BSBB 

I0CSM0VFRUSER1: 



'0$: 



M0V8 
SOBGTR 
RS8 
.DSA8L 



I0C$INIT8UFWIND 
20$ 

# A X01FF,RO 

20$ 

#4,ucb$l svaptecr5) 
iocsfilsPt 

(R0)+,(R1)+ 
R2,10$ 

LSB 



MOVE FROM USER BUFFER 
SETUP WINDOW INTO BUFFER 



OVERFLOW PAGE BOUNDRY? 

IF NEQ NO 

UPDATE ADDRESS OF USER PTE 

FILL SYSTEM PTE WITH PROPER RELOCATION 

MOVE BYTE TO INTERNAL BUFFER 
ANY MORE BYTES TO MOVE? 
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BUFCTL 
05-03 



MOVE TO USER BUFFER 

*** BUFCTL QIO buffer control 
MOVE TO USER Bl'FFER 
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27-JUL-1984 15:03:20 VAX-11 Macro V03-01 Page 7 

1-APR-1980 10:17:12 DMA1 :CSYS0.SYSMAJNTDBUFCTL.MAR;11 (1) 
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.S8TTL MOVE TO USER BUFFER 
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IOC$MOVTOUSER - MOVE TO USER BUFFER 
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179 , 
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180 , 


THIS ROUTINE IS CALLED BY AN I/O DRIVER 








0041 


181 , 


BUFFER TO A USER BUFFER. 








0041 


182 , 










0041 


183 t 


INPUTS: 








0041 


184 , 










0041 


185 , 


R1 = ADDRESS OF INTERNAL BUFFER. 








0041 


186 , 


R2 = NUMBER OF BYTES TO BE MOVED. 








0041 


187 t 


R5 = UCB ADDRESS OF DEVICE UNIT. 








0041 


188 t 










0041 


189 , 


OUTPUTS: 








C041 


190 










0041 


191 


• ***TBS*** 








0041 


192 


.- 








0041 


193 










0041 


194 


.ENABLE LSB 








0041 


195 


IOC$MOVTOUSER:: 




DF 


10 


0041 


196 


BSBB IOC$INITBUFWIND 




OD 


11 


0043 


197 


BRB 20$ 








0045 


198 


IOCSM0VTOUSER2:: 


50 OUF 


8F 


B3 


0045 


199 


10$: BITW /TX01FF,RO 




06 


12 


004A 


2C0 


BNEQ 20$ 


68 A5 


04 


CO 


004C 


201 


ADDL #4,UCB$L SVAPTE(R5) 




07 


10 


0050 


202 


BSB8 IOC$FILSPT 








0052 


203 


I0C$M0VT0USER1:: 


80 


81 


90 


0052 


204 


?0$: MOVB (R1)+,(R0)+ 


ED 


52 


F5 


0055 


205 


SOBGTR R2,10$ 






05 


0058 


206 


RSB 








0059 


207 


.DSABL LSB 



MOVE TO USER BUFFER 
INITIALIZE WINDOW INTO BUFFER 



OVERFLOW PAGE BOUNDRY? 

IF NEQ NO 

UPDATE ADDRESS OF USER PTE 

FILL SYSTEM PTE WITH PROPER RELOCATION 

MOVE BYTE TO USER BUFFER 
ANY MORE BYTES TO MOVE? 
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BUFCTl 
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V5A 
V5A 
-2 



V54 

V54 
V54 
-11 



J 12 
FILL SYSTEM PTE WITH TRANSFER PTE 27-JUL-1984 Fiche 2 Frame 112 Seguence 357 

*** BUFCTL QIO buffer control 27-JUL-1984 15:03:20 VAX-11 Macro V03-01 Page 8 

FILL SYSTEM PTE WITH TRANSFER PTE 1-APR-1980 10:17:12 DMA1 :CSYSO.SYSMAINT]BUFCTL.MAR; 11 (1) 
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EF 



209 
210 
211 
212 

.1 

.2 
215 
216 
217 
218 
219 
220 
221 
222 
221 
22^ 
225 
226 
227 IOCSFILSPT:: 

.1 EXTZV 



.SBTTL FILL SYSTEM PTE WITH TRANSFER PTE 



IOC$FJLSPT - FILL SYSTEM PTE WITH TRANSFER PTE 

This routine extracts the PFN from current PTE and creates a virtual 
address from it. 

INPUTS: 

R5 = DEVICE UNIT UCB ADDRESS. 
OUTPUTS: 

RO = SYSTEM VIRTUAL ADDRESS OF START OF PAGE CONTAINING THE BUFFER. 

REGISTERS R1, R2, AND R3 ARE PRESERVED ACROSS CALL. 



;FILL SYSTEM PTE WITH TRANSFER PTE 
0PTE$V_PFN, *PTE$S_PFN, - 



.2 

.3 
239 
240 
241 



ASHL 
RSB 

.END 



SUCBSL SVAPTE(R5), RO 
09, R0,~R0 



Get PFN of user buffer 
Re-make virtual address 
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DMA1:CSYS0.SYSMAINTJBUFCTL.MAR;11 


(1) 


IOCSFILSPT 


00000059 


RG 


D 


02 


UCBSL.DPC 


00000080 


D 


UCBSW.FUNC 


0000007E 


D 




IOCSGETBYTE 


00000000 


RG 


D 


02 


UCBSL„DUETIM 


0000005C 


D 


UCBSW.MB SEED 


00000000 


D 




IOCSINIT8UFWIND 


0000002? 


RG 


D 


02 


UCBSL^DX.BFPNT 


0000009C 


D 


UC8SW.MSBCNT 


00000016 


D 




IOCSMOVFRUSER 


00000029 


RG 


D 


02 


UCBSL^DX^BUF 


00000098 


D 


UCBSW.MSGMAX 


00000014 


D 




lOCSMOVFRU r ER1 


0000003A 


RG 


D 


02 


UCBSL DX RXDB 


OOOOOOAO 


D 


UCBSW.NT CHAN 


0000007C 


D 




IOCSM0VFRUSER2 


0000002D 


RG 


D 


02 


UCBSL'ENfi 


00000078 


D 


UCBSW^OFFSET 


0000008A 


D 




10CSMOVTOUSER 


00000041 


RG 


D 


02 


UCB$L~FIRST 


00000014 


D 


UCBSW.REFC 


00000050 


D 




10CSMOVTOUSER1 


00000052 


RG 


D 


02 


UCBSL^FPC 


OOOOOOOC 


D 


UCBSW SIZE 


00000008 


D 




IOCSMOVTOUSER2 


00000045 


RG 


D 


02 


UCBSL FQBL 


00000004 


D 


UCBSW^SRCADDR 


0000001A 


D 




I0CSPU18YTE 


00000011 


RG 


D 


02 


UCBSLJQFL 


00000000 


D 


UC8SW.STS 


00000058 


D 




PTESS PFN 


00000015 




D 




UCBSL.FR3 


00000010 


D 


UCBSW.TT DESIZE 000000A5 


D 




PTESV~PFN 


00000000 




D 




UCBSL.FR4 


00000014 


D 


UCBSW unTt 


00000048 


D 




siz,.T = 


00000002 




D 




UCBSLJ0Q8L 


00000044 


D 


UC8$W~VPR0T 


0000001A 


D 




UCBSB AMOD 


00000053 




D 




UC8SL JOQFL 


00000040 


D 










UCBSB~CEX 


00000077 




D 




UCBSL~]RP 


0000004 C 


D 










UCBSB'CMI 


0000004A 




D 




UC8SL~UNK 


0000002C 


D 










UCBSB..CM2 


00000048 




D 




UCBSL~L0GADR 


00000064 













UCBSB DEVCLASS 


00000038 




D 




UCBSL'MAXBLOCK 


00000084 


D 










UCBSB~DEVTYPE 


00000039 




D 




UCBSL~M8„MBX 


0000007C 


D 










UCBSB'DIPL 


00000052 









UCBSL'MB PORT 


0000008C 


D 










UCBSB'DX SCTCNT 


O0O00OA6 




D 




UCBSL~MB~RAST 


00000078 


D 










UCBSBlERTCNT 


00000070 




D 




UCB$L~MB~SHB 


00000080 


D 










UCBSB ERTMAX 


00000071 




D 




UC8SL~MB.WAST 


00000074 


!) 










UCBSB~FEX 


00000076 




D 




UCBSL~M8_W10QBL 


00000088 


D 










UCBSBlFIPL 


0000000B 




D 




UCBSL MB WJOQFL 


00000084 


D 










UCBSB LOCSRV 


0000003C 




D 




UCBSLlMEPlA 


0000008C 


D 










UCBSB'OFFNDX 


00000094 




D 




UCBSL NT.DATSSB 


00000074 


D 










UCBSB~OFFRTC 


00000095 




D 




ucbslInt intssb 


00000078 


D 










UCBSB~REMSRV 


0000003D 




D 




UCBSL. OPfNT 


00000060 


D 










UCBSBlSECTORS 


0000003C 









UCBSL. OWNUIC 


0000001 C 


D 










UCBSB SLAVE 


00000074 




D 




UCBSL.PID 


00000028 


D 










UCBSB'SPR 


00000075 




D 




UCBSL RQ8L 


00000004 


D 










UCBSB STATE 


00000052 




D 




UCBSLJWFL 


00000000 


D 










UCBSB TRACKS 


00000030 




D 




UC8SL SVAPTE 


00000068 


D 










UCBSB TT.CRFILL 


0000009D 




D 




UCBSL SVPN 


00000064 













UCBSB'TT OECRF 


OOOO00A1 




D 




UC8SL"TT DECHAR 


0OOOO0A8 


D 










UCB$B~TT"DELFF 


000000A2 




D 




ucbsl^tTrdue 


0000008C 


D 










UCBSB'TT'DESPEE 


OOOOOOAO 




D 




UCBSLlTT RTIMOU 


OOOOOOBO 


D 










UCB$B"TT~DETYPE 


000000A4 




D 




UC8SL^VC8 


00000030 


D 










UCBSBlTTlLFFILL 


0000009E 




D 




UCBST PARTNER 


OOOOOOOC 


D 










UCBSB TT SPEED 


0000009C 




D 




UCBSWBCNT 


0000006E 


D 










ucbsb'tyPe 


OOOOOOOA 




D 




UCBSW_8CR 


00000096 


D 










UCBSBlVERTSZ 


0000003F 




D 




UC8SW.80FF 


0000006 C 


D 










UCBSC LENGTH 


00000074 




D 




UCBSW^BUFQUO 


00000018 


D 










UCBSC'MB LENGTH 


00000090 




D 




UCBSW.BYTESTOGO 


0000003E 


D 










UCBSC'TT'LENGTH 


OOOOOOBC 




D 




UCBSW CHARGE 


0000004A 


D 










ucbsk~leRgth 


00000074 




D 




UCBSWlCYLJNDERS 


0000003E 


D 










UCBSKlMB.LENGTH 


00000090 




D 




UCBSW DA 


0000008C 


D 










UCBSK TT LENGTH 


OOOOOOBC 




D 




UCBSWlOC 


0000008E 


D 










UCBSL~AMB 


00000054 




D 




UCBSW DEV8UFSJ2 


0000003A 


D 










ucbsl'astqbl 


00000010 




D 




UCBSW'DEVSTS 


0000005A 


D 










UCBSL'ASTOFL 


oooooooc 









UC8SWIDIRSEQ 


00000088 


D 










UCBSL'CPID 


0000005C 




D 




UCBSW^DSTADDR 


00000018 


D 










UCB$L"CRB 


00000020 




D 




UCBSW^DX BCR 


000000A4 


D 










UCBSL'DDB 


0000002^ 




D 




UCBSW.ECT 


00000090 


D 










UCBSL'DEVCHAR 


00000034 




D 




UC8SWJC2 


00000092 


D 










UCBSL'DEVDEPEND 


0000003C 




D 




UC8SW.ERRCNT 


00000072 
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PSECT name 



. ABS 

$ABS$ 

SEP 



Allocation 

00000000 ( 
OOOOOOBC < 
00000064 ( 



! Psect synopsis ! 
+ — ............... f 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 
188.) 01 ( 1.) NOPJC USR 
100, ) 02 < 2.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON ABS LCL NOSHR EXE KO 
CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 
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iross reference 



Cross reference 



*** BUFCTL QIO buffer control 
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SYMBOL 


VALUE 
00000059-R 


DEFINITION 


REFERE 


NCES 


IOCSF ILSPT 


227 { 


1) 


#-118 


(1) 


10CSGETBYTE 


00000000-R 


79 l 








IOC$!NITBUFWIND 


00000022-R 


138 < 




#-163 


(1) 


IOCSMOVFRUSER 


00000029-R 


162 l 








10CSMOVFRUSER1 


0000003A-R 


170 I 








IOCSMOVFRUSER2 


0000002D-R 


165 < 








IOCSMOVTOUSER 


00000041 -R 


195 I 








IOCSMOVTOUGER1 


00000052-R 


203 I 








inC$MOVTOUSER2 


00000045-R 


198 








IOC$PUTBYTE 


0000001 1-R 


113 








PT6$S PFN 


=00000015 






#-227.1 


(1) 


PTESV'PFN 


=00000000 






#-227.1 


(1) 


UCB$L~SVAPTE 


00000068 






#-117 


(1) 


UCB$W~BOFF 


0000006C 






#~140 


<1) 



I Symbol Cross Reference ! 
+ — ......... ...... — + 

EFERENCES... 

#-139 (1) 

#-196 (1) 



#-169 



(1) 



#-202 



(1) 



#-84 



(1) 



#-168 



(1) 



#-201 



(1) 



227.2 (D 



#-83 



(1) 
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Cross reference 



*** BUFCTL Q10 buffer control 
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361 



12 
(1) 



+ — --_ ..«•+ 

! Macros Cross Reference ! 
+ + 



MACRO 



SDEFINI 
SPRDEF 
$PTEDEF 
SUCBDEF 



SIZE 

r 

4 
3 
10 



DEFINITION 



47 

48 
49 



(1) 

(1) 
(1) 
(1) 



REFERENCES... 


47 


(1) 


47 


(1) 


48 


(1) 


49 


(1) 



48 



(1) 



49 



(1) 



+™— — — ™ — + 
! Performance indicators ! 



Phase 

Initial izat ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



Elapsed Time 



32 

140 

284 



81 

11 

4 

7 

562 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.12 

:00. 72 
:05.88 
:00.45 
:01. 27 
: 00.11 
:00.02 
:00.09 
:08.67 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.23 
:01.48 
:08.55 
:00,66 
:02.22 
: 00. 27 
:00.02 
:00.09 
:13.52 



The working set limit was 1000 pages. 

23486 bytes (46 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 327 non-local and 6 local symbols 

246 source lines were re^d in Pass 1, producing object records in Pass 2, 

25 pages of virtual memory were used to define 12 macros. 



4— — —————+ 

! Macro library statistics I 

+- — — — — + 



Macro library name 

DMA1:[SYSO.SYSMAINTJDS.MLB;218 
DMA1:CSYS0.SYSMAJNT3DJA6.ML8;953 
SYS$SYSR00T:rSYSLIB]LIB.MLB;1 
SYS$SYSROOT:CSYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



Ma* ros def ined 



1 
1 
6 
8 



504 GETS were required to define 8 macros. 

There were no errors, warnings o r information messages. 

MACR0/N00BJECT/1 J ST=CDS.LiS3/CR0SS/ENA8LE = (DEBUG, TRACE) BUf - CTL/UP0A=(BUFCTL,UPD,OUFCTL.ENH)+SYS$H8RARY:LI8/HBRARY+DHA1 : TSYS0, SYSMAj 



N 1 2 
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BUFFER **■> BUFFER GETBUf /RELBUF routines 27-JUL-1984 15:03:35 VAX-11 Macro V03-01 Page 
v able of contents 

(1) 55 DECLARATIONS 

(2) 82 GET A VERTUAL MEMORY BUFFER. 
(A) 161 RELEASE A MEMORY BUFFER. 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 

3 
4 

5 
6 
7 

8 

9 

10 

11 

12 

13 
14 

is 

16 
17 
18 
19 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 



.TITLE 
JDENT 
.LIST 
.NLIST 



BUFFER 
707-06/ 
MEB 
CND 



*** BUFFER GETBUF/RELBUF routines 



COPYRIGHT (C) 1977, 1980, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOP USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: 

MODIFIED BY: 

01 
02 

03 
04 
05 



VAX DIAGNOSTIC SUPERVISOR. 



KEN CHAPMAN 



KEN CHAPMAN 
ADDED 'REGION* 
PUT PAGE COUNT 



1Q-N0V-77 



VERSION 01. 



24-MAR-78 VERSION 

ARGUMENT TO "GET9UF" AND 
CHECK IN "RELBUF". 



02 (ESSAA-4.01). 
"RELBUF". 



- Jack Stansbury, 21-0ct-198t, Version 6.- 
Added .LIBRARY statements tor $DI AG and $DS. 

Bob Berga2*i May 16,1983 Version 6,11 
Changed the order of .LIB statements. 

Richard Brown 12-August-83 Version 6.13 
Changed SDS.RELBUF so that it will ignore DS$ FRAGBUF 
errors returned from SCNTREG. Eliminates proEtem of 
RELBUF returning an error if part of the buffer space 
being deallocated is above the VDS and part is below. 



06 



Bob Berga**i 
Added tt sign 



21-Oct-1983 

tu SS$ NORMAL in 



Version 6.13 
edit number 05. 



ZZ-ENSAA-7,0 
BUFFER 

07-06 



DECLARATIONS 



*«* BUFFER GETBUF/RELBUF 
DECLARATIONS 



C 13 
27-JUL-1984 



F iche 2 Frame CI 3 



routines 



27-JUL-1984 
23-MAY-1984 



15:03:35 

14i09;46 



Seguence 364 
VAX-11 Macro V03-01 Page 2 
DMAltCSYS0.SYSMAJNTJ8UFFER,MAR;43 (1) 



0000 55 

0000 56 

0000 57 

0000 58 

0000 59 

0000 60 

0000 61 

0000 62 

0000 63 

0000 64 

0000 65 

0000 66 

0000 67 

0000 68 

C000 69 

0000 70 

0000 71 

0000 72 

0000 73 

0000 74 

0000 75 

0000 76 

00000000 77 

OC000008 0000 78 

00000018 r 08 79 

00000020 0018 80 



.SBTTL DECLARATIONS 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 



/$DS/ 
/$DJA6/ 



[4J 
C4D 



MACROS: 



EQUATED SYMBOLS: 

SDS.DSADEF 
$DS DSDEF 
$DS GET8UF 
$DS"RELBUF 



DEF 
'DEF 



OWN STORAGE: 

.PSECT 
DSSGQ.PHYADR:: 
DSSGL BUFCNT:: 
Q_RET*DR; 



WORK, NOSHR, NOEXE , WRT, LONG 



.BLKL 
.BLKL 
,8LKL 



TEMPORARY PHYADR. 

KEEPS TRACK OF BUFFER ALLOCATIONS. 

TEMPORARY RETADR. 
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0020 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

1K 

115 

116 

117 

118 

119 

120 

121 

122 

123 

I 24 

125 

126 

127 

128 



.SBTTL GET A VERTUAL MEMORY BUFFER. 
.PSECT CODE, SHR, EXE, NOWRT, BYTE 

FUNCTIONAL DESCRIPTION; 

GET A MEMORY BUFFER JS FUNCTIONAL SIMILAR TO STARTLET SEXPREG. 
IT ALLOCATES MEMORY FOR THE PROGRAM TO USE AS BUFFER. 
IN THE REPAIR ENVIRONMENT, THE PHYSICAL MEMORY IS GUARENTEED TO 
BE CONTIGUOUS. 

CALLING SEQUENCE: 

STANDARD PROCEDURE CALL. 

1NP[)1 PARAMETERS: 



getbufs pagcnt(ap) = 

getbuf$:retadr(ap) = 

getbuf$_phyadr(ap) ~ 

get8ufs region(ap) = 



NUMBER OF PAGES TO BE ALLOCATED. 

ADDRESS OF TWO LONGWORD ARRAY TO RECEIVE 

VIRTUAL LIMITS. 

ADDRESS OF TWO LONGWORD ARRAY TO RECEIVE 

PHYSICAL LIMITS. 

REGION INDICATOR: 

= PROGRAM (PO) REGION 

1 = CONTROL <P1> REGION 

2 = SYSTEM REGION. 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SEE SEXPREG (W MEMMGT MODULE). 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 
BUFFER 

07-06 



53 



GET A VERTUAL MEMORY BUFFER. 

*** BUFFER 6ETBUF/RELBUF routines 
GET A VERTUAL MEMORY BUFFER. 



366 
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4 
(3) 







OOOC 


0000 
0002 


130 
131 


10 AC 0? 


00 


EF 


0002 
0008 


132 
133 


50 


7E 


7E 


0008 
OOOB 
OOOB 


134 
135 
136 




53 


DD 


OOOB 






00 


DD 


OOOD 






60 


7F 


OOOF 




04 


AC 


DD 


0011 




OOOOOOOO'GF 


04 


FB 


0014 




OC 


AC 


D5 


0018 


137 




06 


13 


001E 


138 


OC BC 0000 


'CF 


7D 


C020 
0026 
0026 


139 
140 
141 


51 


8E 


7D 


0026 


142 


52 


51 


D1 


0029 


143 




07 


15 


002C 


144 




52 


DD 


002E 


145 


52 


51 


DO 


0030 


146 




02 


BA 


0033 
0035 


147 
148 


08 


AC 


D5 


0035 


149 




04 


13 


0038 


150 


08 BC 


51 


7D 


003A 
003E 


151 
152 


52 


51 


C2 


003E 


153 


52 52 F7 


8F 


78 


0041 


154 




52 


D6 


0046 


155 


0008'CF43 


52 


CO 


0048 
004E 


156 

157 


FFAF' 


30 


004E 


158 






04 


0051 


159 



.ENTRY DSX$GETBUF, A M<R2,R3> 



Registers to save 



EXT2V #0, #2, GETBUF$_REGION(AP), - 



REGION AVAILABLE. 

Point to QUADWORD for start, end 

PASS ARGUMENTS THRU TO STARLET. 



R* 
MOVAQ -(SP),RO 

SEXPREG S GETBUFS PAGCNT(AP), - 
" <R0), , R3 
PUSHL R3 
PUSHL #0 
PUSHAQ (RO) 

PUSHL GETBUFS PAGCNT(AP) 
CALLS #4,G A SY3$EXPREG 
TSTL GETBUF$ PHYADR(AP) ; CHECK PHYSICAL ADDRESS ARG. 
BEQL 20S 

MOVQ W A DS$GQ PHYADR, - ; COPY ADDRESS ARRAY. 
3GETB0F$_PHYADR(AP> 



20$: 



30$: 



40$: 



MOVO <SP)+,R1 

CMPL R1,R2 

BLEQ 30$ 

PUSHL R2 

MOVL R1,R2 

POPR A M<R1> 

TSTL GETBUFS RETADR(AP) 

BEQL 40$ 

MOVQ R1, 3GETBUF$_RETADR(AP) 

SUBL R1,R2 

ASHL #-9, R2, R2 

JNCL R2 

ADDL2 R2,W A DS$GL_BUFCNT[R3J 

BS8W KB^CHECK 
RET 



Get first and Last address 

First reaUy smaller? 

Branch if so 

Save smaller 

copy larger to higher register 

Put smaller in lower register 

CHECK FOR RETURN WANTED. 

SKIP IF NOT. 

STORE BUFFER ADDRESSES. 

Compute buffer size 
IN PAGES, 
make it a count 
KEEP TRACK. 

ALLOW A C, 
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RELEASE A MEMORY BUFFER. 

*** BUFFER GETBUF/RELBUF routines 
RELEASE A MEMORY BUFFER. 
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0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
C052 
0052 
0052 
0052 
00>2 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 



161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 



.SBTTL RELEASE A MEMORY BUFFER. 
+ + 

FUNCTIONAL DESCRIPTION: 

CALLING SEQUENCE: 

STANDARD PROCEDURE CALL. 

INPUT PARAMETERS: 

RELBUFS PAGCNT(AP) = 
REL8UF$"RETADR(AP) = 

RELBUF$_REGION(AP) = 



NUMBER OF PAGES TO BE ALLOCATED. 
ADDRESS OF TWO LONGWORD ARRAY TO RECEIVE 
VIRTUAL LIMITS. 
REGION INDICATOR: 

= PROGRAM (PO) REGION 

1 = CONTROL (P1> REGION 

2 = SYSTEM REGION. 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SEE SCNTREG {IN MEMMGT MODULE). 
SIDE EFFECTS: 

NONE 
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0004 


0052 


202 






0054 


203 


OC AC 0? 00 


EF 


0054 


204 


51 04 AC 


DO 


005A 


205 


51 0008'CF42 


D1 


005E 


206 


06 


18 


0064 


207 


51 0008 f CF42 


DO 


0066 


208 






006C 


209 


50 7E 


7E 


006C 


210 






006F 


211 


52 


DD 


006F 




00 


DD 


0071 




60 


7? 


0073 




51 


DD 


0075 




00000000'GF 04 


FB 


C077 




00660080 8F 50 


D1 


007E 


212 


07 


12 


0085 


213 


50 00000000* 8F 


DO 


0087 


214 






008E 


215 


08 AC 


D5 


008E 


216 


04 


13 


0091 


217 


08 BC 6E 


7D 


0093 


218 






0097 


219 


51 8E 8E 


C3 


0097 


220 


03 


18 


009B 


221 


51 51 


CE 


009D 


222 






OOAO 


223 


51 51 F7 8F 


78 


OOAO 


224 


51 


D6 


00A5 


225 


0008'CF42 51 


C2 


00A7 


226 


OB 50 


E9 


OOAD 


227 


04 AC 51 


D1 


OOBO 


228 


05 


13 


00B4 


229 


50 0000 '8F 


3C 


00B6 


230 






OOBB 


231 


FF42' 


30 


OOBB 


232 




04 


OOBE 


233 






OOBF 


234 






OOBF 


235 



.ENTRY DSX$RELBUF, A M<R2> 



20$: 



25$: 



30$: 



35$: 



40$: 



; ENTRY MASK. 



EXTZV #0,#2.RELBUF$ REGIONCAP), R2 

MOVL RELBUF$ PAGCNT(AP), R1 

CMPL W A DS$GLlBUFCNT[R2], 

BGEQ 20$ 

MOVL W A DS$GL.BUFCNT[R2], 



R1 
R1 



MOVAQ -(SP),RO 
$CNTREG S R1 
"PUSHL 



R2 



(RO), 
R2 
PUSHL #0 
PUSHAQ (RO) 
PUSHL R1 

CALLS 04,G A SYS$CNTREG 
CMPL RO,*DS$ FRAGBUF 

BNEQ 25$ 

MOVL 0SS$JJORMAL,RO 

TSTL RELBUF$_RETADR(AP) 

BEQL 30$ 

MOVQ (SP), SRELBUF$„RETADR(AP) 

SUBL3 (SP)+,(SP)+, R1 
BGEQ 35$ 

MNEGL R1,R1 

ASHL #-9, R1, R1 

INCL R1 

SUBL2 R1, W A DS$GL.BUFCNTCR2J 

BL8C RO, 40$ 

CMPL R1, RELBUF$J>AGCNT(AP) 

BEQL 40$ 

MOVZWL #SS$_PAGOWNVIO, RO 

BSBW KB.CHECK 
RET 

.END 



REGION AVAILABLE. 
USE CALLER PAGE COUNT. 
CHECK FOR TOO LARGE PAGCNT 
SKIP IF NOT TOO LARGE. 
GET MAXIMUM PAGE COUNT. 

Address of desc 
CONTRACT REGION. 



IF FRAGBUF 
THEN 

ignore it 



error code [5] 
C5] 
C06] 
[5] 
WANTED. 



CHECK FOR RETURN 

SKIP IF NOT. 

STORE BUFFER ADDRESSES. 

COMPUTE BUFFER SIZE. 
Branch if positive 
Make it positive 

IN PAGES. 

MAKE INTO COUNT. 

KEEP TRACK. 

SKIP IF ALREADY ERROR. 

CHECK IF TOTAL SUCCESS. 

SKIP IF OK. 

ERROR CODE. 

ALLOW A C. 



ZZ-ENSAA-7.0 
BUFFER 
Symbol table 

SSARGS 

SST1 

BIT.., 

DS1GL BUFCNT 
DSSGCfPHYADR 

dssk Error 
ds$k~normal 
dssk~severe 
dssk~subsys 

DSSlTwARNING 

DSS SRITH 

DSS^ASBE 

DSS BADLINK 

DSS"BADTYPE 

DS$lBIIC 

DSS CHME 

DS$"CHMK 

DSS'DEVNAME 

DSS~ERROR 

DSS~FHWE 

DSS~FRAGBUF 

DSS~ICBUSY 

DS$"ICERR 

DSS~IHWE 

D$S~ILLCHAR 

DSS'ILLPAGCNT 

DSS~ILLUNIT 

DS$~INSFMEM 

DS$~IPL2HI 

dss'ivaddr 
ds$"ivvect 

dssTkrnlstk 
oss'logic 

DS$~MCHK 

DSS~MMOFF 

DS$~NEEDUNIT 

DSS'NODE 

DSS~NOPCS 

DS$ NORMAL 

D$S~NOSUPPORT 

DSS'NOTDON 

DS$"NOTIMP 

DS$~NULLSTR 

DSS'OVERFLOW 

0S$"POWER 

DSS'PROGERR 

DSS'SEVERE 

DSS'TRANSL 

DSS~TRUNCATE 

DSS~UNEXPINT 

DS$~VASFULL 

DSS'WARNING 

0SA$AL APTMAIL 

DSASAT'APTTXT 

DSA$Gl~APTCOM 

DSASGL'DEViEN 

dsasglIerrno 



Symbol table 



H 13 
27-JUL-1984 



*** BUFFER GET3UF/RELBUF routines 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame H13 



Sequence 369 
15:03:35 VAX-11 Macro V03-01 Page 7 
14:09:46 DMA1 :CSYS0.SYSMAINT3BUFFER.MAR;43 (5) 



00000003 

00000000 

00660130 

00000008 

00000000 

00000002 

00000001 

00000004 

00000066 

00000000 

006600DO 

00660118 

006600F0 

006600E8 

00660120 

006600A8 

006600E0 

00660108 

00660002 

00660068 

00660080 

006600C8 

006600CO 

00660060 

00660018 

00660078 

00660100 

00660050 

00660088 

00660040 

00660038 

00660090 

00660070 

00660088 

00660058 

006600F8 

00660128 

00660110 

00660001 

006600B1 

00660030 

006600B0 

00660010 

00660008 

00660098 

00660020 

00660004 

006600A0 

00660028 

006600D8 

00660048 

00660000 

0000FE00 

0000FA00 

OOO0FE58 
OOO0FE44 



RG 
RG 



D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



02 
02 



DSASGL EVENT 

DSA$GL FLAGS 

DSASGL'MSGTYP 

DSASGLlPASSES 

DSASGL PASSNO 

DSASGLlSECTNO 

DSASGLJID 

DSASGL SUBTNO 

DSASGL'TESTNO 

DSASGL'UNITS 

DSASGCfMSGPTR 

DSASGT'DEVNAM 

DSXSGETBUF 

DSXSRELBUF 

GETBUFS NARGS 

GETBUF$"PAGCNT 

GETBUFS'PHYADR 

GETBUFS"RCGION 

GETBUFS'RETADR 

KB CHECR 

Q RETADR 

rElbufs^nargs 
relbufs pagcnt 
relbufs.region 
relbufs retadr 

SJZ... " 
SSS.NORMAL 
SSS PAGOWNVIO 
SYS$CNTREG 
SYSSEXPREG 



0000FE48 
OOOOFEOO 
0000FE40 
0OO0FE08 
OOO0FE54 
0000FE10 
0000FE14 
0000FE4C 
OOOOFE50 
OOOOFEOC 
0000FE68 
0000FE5C 
00000000 
00000052 
00000004 
00000004 
OOOOOOOC 
00000010 
00000008 
******** 

00000018 
00000003 
00000004 
OOOOOOOC 
00000008 

00000001 
******** 

******** 

******** 

******** 



D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 
RG D 03 
RG D 03 

D 

D 

D 

D 

D 
X 
R D 

D 

D 

D 

D 





X 

X 

GX 

GX 



03 
02 



03 
03 
03 
03 



ZZ-ENSAA-7.0 

BUFFER 

Psect synopsis 



Psect synopsis 



*** BUFFER GETBUF/REL8UF routines 



I 13 
27-JUL-1984 



27-JUL-1984 

23-MAY-1984 



Fie he 2 Frame 113 



Sequence 370 
15:03:35 VAX-11 Macro V03-OT Page 8 
14:09:46 DMA1 :CSYS0,SYSMAINT]BUFFER.MAR;43 (5) 



PSECT name 

ABS . 
$AB5$ 
WORK 
CODE 



Allocation 

00000000 
OOOOFE70 
00000020 
OOO000BF 



+ + 

! Psect synopsis ! 
+— . --+ 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 32.) 02 ( 2.) NOPIC USR 

( 191.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR EXE 


RD 


URT 


NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR NOEXE 


RD 


WRT 


NOVEC 


LONG 


CON 


REL 


LCL 


SHR EXE 


RD 


NOWRT 


NOVEC 


BYTE 



ZZ-ENSAA-7.0 Cross 


reference 


J 13 
27-JUL-1984 Fiche 2 Frame J13 Sequence 371 


BUFFER 


*** BUFFER 


GETBUF/RELBUF routines 


27-JUL-1984 15:03:35 VAX-11 Macro V03-01 Page 9 


(.ross reference 

SYMBOL 
SSARGS 


VALUE 

=00000003 




23-MAY-1984 14:09:46 DMA1 :[SYS0.SYSMAINT3BUFFER.MAR;43 (5) 


! Symbol Cross Reference ! 


DEFINITION REFEP 


. — _ — _ x 

ENCES... 

(1) 12 (1) 


12 (1) 71 


SST1 


=00000000 


211 (5) 136 


(3) 211 (5) 71 (1) 12 (1) 


BIT... 


=00660130 


70 (1) 70 


(1) 


DSSGL BUFCNT 


00000008-R 


79 (1) #-156 


(3) #-206 (5) #-208 (5) #-226 (5) 


DSSGCfPHYADR 


00000000-R 


78 (1) #-139 


(3) 


DSSK PRROR 


=00000002 


70 (1) 




DSSlTNORMAL 


=00000001 


70 (1) 




DSSK~SEVERE 


=00000004 


70 (1) 




DSSK'SUBSYS 


=00000066 


70 (1) 70 


(1) 


DSSK~WARNING 


=00000000 


70 (1) 




DSS SRITH 


=006600D0 


70 (1) 




dss~asbe 


=00660118 


70 (1) 




DSS^BADLINK 


=006600F0 


70 <1) 




DS$ BADTYPE 


=006600E8 


70 (1) 




OSSlBIIC 


=00660120 


70 (1) 




DSS CHME 


=006600A8 


70 (1) 




DS$"CHMK 


=006600E0 


70 (1) 




DSS~DEVNAME 


=00660108 


70 (1) 




DSS^ERROR 


=00660002 


70 (1) 




DSS FHWE 


=00660068 


70 (1) 




DSS~FRAGBUF 


=00660080 


70 (1) #-212 


(5) 


DSS'lCBUSY 


=006600C8 


70 (1) 




DSS^ICERR 


=006600C0 


70 (1) 




DSS'lHWE 


=00660060 


70 (1) 




DSS'ILICHAR 


=00660018 


70 (1) 




DSS'ILLPAGCNT 


=00660078 


70 <1> 




OSSllLLUMIT 


=00660100 


70 (1) 




DSS INSFMEM 


=00660050 


70 (1) 




DS$I1PL2HI 


=00660088 


70 (1) 




DSS IVADDR 


=00660040 


70 (D 




DSSlIVVECf 


=00660038 


70 (1) 




DSS KRNLSTK 


=00660090 


70 (1) 




DSS~L0GIC 


=00660070 


70 <1> 




DSS'MCHK 


=00660088 


70 (1) 




DSS'MMOFF 


=00660058 


70 (1) 




DSS~NEEDUNIT 


=006600F8 


70 (1) 




DSSlNODE 


=006c>01 28 


70 (1) 




DSS NOPCS 


=00660110 


70 (1) 




DSS^NORMAL 


=00660001 


70 <1> 




DSS NOSUPPORT 


=00660081 


70 (1) 




DSS~NOTDON 


=00660030 


70 (1) 




DSSlNOTIMP 


=006600B0 


70 (1) 70 


(1) 


DSS NULLSTR 


=00660010 


70 (D 




DSS~OVERFLOW 


=00660008 


70 (1) 




DSS'POWER 


=00660098 


70 (1) 




DSS'PROGERR 


=00660020 


70 (1) 




DSS'SEVERE 


=00660004 


70 (1) 




DSS'TRANSL 


-006600A0 


70 (1) 




DSS'TRUNCATE 


'10660028 


70 (1) 




DSS"UNEXPJNT 


-006600D8 


70 (1) 





ZZ-ENSAA-7.0 

BUFFER 

Cross reference 

dssj/asfull 
dss warning 
dsx*getbuf 
dsxsrelbuf 
getbufs nargs 
getbuf$~pagcnt 
getbuf$~phyadr 
getbuf$:region 
getbuf$ retadr 

KB CHECR 
Q RETADR 

rFlbufs NARGS 

RELBUFS^PAGCNT 
NELBUFS.REGION 
RELBUFS RETADR 

sss norRal 

SSS~PAGOWNV10 

SYS$CNTREG 

SYbSEXPREG 



Cross reference 



*** BUFFER GETBUF/RELBUF routines 



K 13 
27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



F i che 2 Frame K1 3 



15:03:35 
14:09:46 



Seguence 372 
VAX-11 Macro V03-0T Page 10 

DMA1:CSYS0.SYSMAINT3BUFF£R.MAR;43 (5) 



=00660048 
^00660000 
00000000- 
00000052- 
=00000004 
=00000004 
=00O000OC 
=00000010 
=00000008 
00000000- 
00000018- 
=00000003 
=00000004 
:00O000OC 
=00000008 
00000000- 
00000000- 
00000000- 
00000000- 



XR 
•R 



-XR 
•XR 
•XR 
■XR 



70 

70 

130 

202 

71 

71 

71 

71 

71 

80 
72 
72 
72 
72 



(1) 
(1) 
(3) 
(5) 
(1) 
(1) 
(1) 
(1) 
(1) 

(1) 

(1) 
(1) 
(1) 
(1) 



70 



#-136 
#-137 
132 
#-149 
#-158 



#-205 
204 
#-216 
#-214 
#-230 
211 



(1) 



(3) 
(3) 
(3) 
(3) 
(3) 



(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(3) 



#-140 

#-151 
#-232 



#-228 
#-218 



(3) 

(3) 
(5) 



(5) 
(5) 



ZZ-ENSAA-7.0 

RUFFFR 

I'ross reference 



Cross reference 



*** BUFFER GETBUF/RELBUF routines 



L 13 
27-JUL-1984 



27-JUL-1984 
23-MAY-1984 



Fiche 2 Frame L13 



Sequence 3/3 
15 :03:35 VAX-11 Macro V03-0T Page 11 
Mi09t46 DMAt:CSYS0.SY$MAINT3BUFFER.MAR;43 (5) 



MACRO 

$ASNPUSH 

SCNTREG S 

SOEF 

$0EFiNl 

SOS.DSADEF 

SDS.DSDEF 

SDS GETBUF DEF 

lOS'RELBUF^OEF 

tfOO 

SEQULS1 

SEQULST 

SEXPREG.S 

SGBLINI 

SOFFOEF 

SPUSHADR 

SV1ELD1 



SIZE 



DEFINITION 


136 


(3) 


211 


(5) 


70 


(1) 


69 


(1) 


69 


<:> 


70 


(D 


71 


(D 


72 


d) 


70 


(D 


70 


(D 


70 


(D 


135 


(3) 



71 (1) 

136 (3) 
70 (1) 



! Macros Cross Reference ! 
+— — — — ——.—-———+ 

REFERENCES... 

136 (i)""" 211 

211 (5) 



69 


(1) 


69 


(1) 


70 


(1) 


71 


(1) 


72 


(1) 


70 


(1) 


70 


(1) 


70 


(1) 


135 


(3) 


70 


(1) 


71 


(1) 


136 


(3) 



(5) 



72 

211 



(1) 
(5) 



! Performance indicators I 

+ „„.. „ + 



Phase 

Initial izat ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



Elapsed Time 



33 00:00:00.12 00:00:00.49 

HO 00:00:00.72 00:00:02.21 

338 00:00:04.50 00:00:08.71 

00:00:00.15 00:00:00.16 

74 00:00:00.88 00:00:00.95 

11 00:00:00.06 00:00:00.08 

4 00:00:00.02 00:00:00.02 

17 00:00:00.30 00.00:00.30 

620 00:00:06.77 00:00:12.94 



The working set limit was 1000 pages. 

45664 bytes (90 pages) of virtual memory were used to buffer the intermediate 
There were 10 pages of symbol table space allocated to hold 140 non-local and 
235 source lines were read in Pass 1, producing object records in Pass 2. 
38 pages of virtual memory were used to define 16 macros. 



code. 
8 local 



symbols. 



M 13 

ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Fiche 2 Frame M13 Seguence 374 

BUFFER *** BUFFER GETBUF/RELBUF routines 27-JUL-1984 15:03:35 VAX-11 Macro V03-01 Page^ 12 

VAX-11 Macro Run Statistics 23-MAY-1984 14:09:46 DMA1 :[SYS0.SYSMAJNTJBUFFER.MAR;43 (5) 

+...._......... ............. + 

! Macro library statistics ! 

+... .... ......-—..+ 

Macro library name Macros defined 

0RB1:CDS.WORK]DIAG.MLB;955 4 

0RB1 :[DS.WORKDDS.MLB;218 

DMA! :[SYS0.$YSMAINT]DS.MlB;218 

DMA1 :[SYS0.SYSMA1NT]0IAG.MLB;953 

SYSSSYSR00T:[SYSLIB]LJB.MLB;1 

SYSSSYSROOT:[SYSUB]STARLET*ML&;2 10 

TOTALS (all libraries) 14 

249 GETS were required to define 14 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=CDS,LISJ/CROSS/ENABLE= (DEBUG, TRACE) BUF FER/UPDA= (BUFFER. UPD, BUFFER. ENH) +SYSSL 1BRARY : L IB/L JBRARY+0MA1 tCSYSO.SYSMA 



N 13 

ZZ-ENSAA-7.0 *** CANCEL cancel Q10 27-JUL-1984 Fiche 3 frame N13 Sequence 375 

CANCEL *** CANCEL cancel QiO 27-JUL-1984 1 5 J 3 : 4 9 VAX-11 Macro V03-01 Page 

able of contents 

(1) 64 CANCEL I/O ON CHANNEL 



//-ENSAA-7,0 

CANCEL 

05-04 



-2 



*** CANCEL cancel 010 

*** CANCEL cancel Q10 



B 14 

27-JUL-1984 



F i c he 2 Frame B14 



0000 


.1 




0000 


.2 


0000 


3 


0000 


4 ; 




0000 


5 ; 




0000 


6 , 




0000 


7 t 




0000 


8 . 




0000 


9 , 




0000 


10 , 




0000 


11 . 




0000 


12 , 




0000 


n , 




0000 


14 , 




cooo 


15 ( 




0000 


16 , 




0000 


17 , 




0000 


18 




0000 


19 , 




0000 


20 , 




0000 


21 - 




0000 


22 t 




0000 


23 




0000 


24 




0000 


25 




0000 


26 




0000 


27 




0000 


28 




0000 


29 




0000 


30 




0000 


31 




0000 


.1 




0000 


.2 




0000 


.3 




0000 


.4 




0000 


.5 




0000 


,6 




0000 


.7 




0000 


.8 




0000 


.9 




0000 


JO 




0000 


,11 




0000 


32 




0000 


33 




0000 


34 




0000 


35 


' * 


0000 


36 




0000 


'K? 




0000 


38 




0000 


39 


0000 


AU 


0000 


41 


0000 


42 


0000 


A3 


0000 


U 


ocoo 


4S 


0000 


46 





27-JUL-1984 15:03:4? 
1-APR-1980 10:26:13 

.TJTLE CANCEL *** CANCEL cancel 010 
. JDENT 705-04/ 



Sequence 376 



VAX-1 1 Macro V03-0T Page 1 
DMA1itSYS0.SYSMAJNTJCANCELMAR;15 (1) 



COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPOHATJON, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AN* COPIED * 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH \Hl * 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

TRANSFERRED. * 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOKCE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 

DIGITAL ASSUMES NO RESPONSIBJLI* Y FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

*****444*4**44*4t*ft*4*444444*444444***4*4444444*444*444*«44***4444444**t444 

D. N. CUTLER 4-AUG-77 

SYSTEM SERVICE CANCEL I/O ON CHANNEL 

MODIFIED BY: 

N. HOWGATE 20-FEB-78 VERSION 02 (ESSAA-4 .00) . 

01 DIAGNOSTIC SUPERVISOR INTEGRATION 

Dave Butenhof 13-may-1980, Version 5. U 

02 Modify VMS V2.0 source for Supervisor environment 
R-ger Riggs, 23-July-1Q80. Version 5,5 

03 Changed word offset to long 

04 M. Baggett 13-May-1983 Version 6.11 
F ixed trucation error, 

V0002 ACG0047 Andrew C. Goldstein, 16-Aug-1979 18:37 
Add access rights block, protection interface changes 



MACRO LI8RARY CALLS 



SCADEF 

SCCBDEF 

SDD8DEF 

SDDTDEF 

SDEVDEF 

SDYNDEF 

$I0DEF 



DEFINE CONDITIONAL ASSEMBLY PARAMETERS 

DEFINE CCB OFFSETS 

DEFINE DDB OFFSETS 

DEFINE DDT OFFSETS 

DEFINE DEVICE CHARACTERISTIC BITS 

DEFINE DATA STRUCTURE TYPE CODES 

DEFINE I/O FUNCTION CODES 



ZZ-ENSAA-7.0 

CANCEL 

05-04 



*** CANCEL cancel 010 

*** CANCEL cancel QIO 



0000 


47 


0000 


48 


0000 


49 


0000 


50 


0000 


51 


oooc 


52 


0000 


53 


0000 


54 


0000 


55 


0000 


56 


0000 


57 


0000 


58 


0000 


59 


0000 


60 


cooo 


61 


00000004 0000 


62 


00000000 


• 1 


0000 


.2 



SIPLDET 

SIRPDEF 

SPC8DEF 

SPRDEF 

SRSNDEF 

SUC8DEF 

SVC8DEF 

5WC8DEF 



C 14 
27-JUL-1984 F f che 2 frame CM Sequence 377 

27-JUL-1984 15:03:49 VAX-11 Macro V03-01 Page 2 

1-APR-1980 10:26:13 DMA1 : CSYS0.SYSMAINT3CANCEL.MAR; 15 (1) 

DEFINE INTERRUPT PRIORITY LEVELS 

DEFINE IRP OFFSETS 

DEFINE PCB OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE RESOURCE WAIT NUMBERS 

OEflUE UCB OFFSETS 

DEFINE VCB OFFSETS 

DEFINE WCB OFFSETS 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 



CHANs* 



.PSECT SEP, SHR, EXE, 
MODNAM CANCEL 



:\/o 
WRT, 



CHANNEL 
LONG 



NUMBER 



7Z-ENSAA-7.0 
CANCEL 



CANCEL. I/O ON 



00 

OOOOOOOO'EF 




54 


50 


04 AC 


OOOOOOOO'EF 




60 50 




57 52 




56 51 




55 66 




7E 




OA A6 




51 


53 


40 A5 




52 53 




52 62 




53 52 




3E 


F3 2A 


A2 04 


60 A4 


OC A2 




EC 


28 


A2 57 




E6 



CHANNEL 
*** CANCEL 

CANCEL 1/0 

0007 
0007 
0007 
0007 
0007 
0007 

000/ 

0007 
0007 
0007 
0007 
0007 
0007 
0007 
C007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
FC 0007 
9E 0009 
OOOF 
3C 0010 
16 0014 
E9 001A 
DO 001D 
DO 0020 
DO 0023 
DC 0026 
0028 
65 0028 
13 002E 
9E 0030 
DO 0034 
0037 
DO 0038 
D1 003E 
13 0041 
EO 0043 
D1 0048 
12 004D 
B1 004F 
12 0053 



cancel 010 
ON CHANNEL 



D 14 
27-JUL-1984 Fiche 2 Frame D14 Seguence 378 

27-JUL-1984 15:03:49 VAX-11 Macro V03-0T Page 3 
1-APR-1980 10:26:13 DMA1 :CSYS0-SYSMAINTJCANCEL.MAR;15 (1) 



64 
65 
66 
Ul 
08 
69 
70 
71 
72 
73 
74 
75 
76 
77 

78 
79 
80 
81 
82 
83 
64 
85 
86 
87 

88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
.1 

98 
99 
100 
101 
102 
^03 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 



.SBTTL CANCEL I/O ON CHANNEL 
EXESCANCEL - CANCEL I/O ON CHANNEL 

THIS SERVICE CANCELS ALL I/O ISSUED TO A DEVICE FORM THE SPECIFIED CHANNEL 
INPUTS: 

CHAN(AP) = NUMBER OF THE UO CHANNEL TO CANCEL I/O FOP, 

R4 a CURRENT PROCESS PC8 ADDRESS. 
OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO CANCEL I/O. 

SSS EXQUOTA - DIRECT I/O QUOTA EXCEEDED WHILE TRYING TO 
CANCEL FILE I/O. 

SSS INSFMEM - INSUFFICIENT MEMORY AVAILABLE TO ALLOCATE I/O 
PACKET. 

SSSJVCHAN - INVALID CHANNEL NUMBER SPECIFIED. 

SS$ NOPRIV - SPECIFIED CHANNEL IS NOT ASSIGNED TO A DEVICE 
OR THE CALLER DOES NOT HAVE SUFFICIENT PRIVILEGE TO 
ACCESS THE CHANNEL. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

SSS.NORMAL - NORMAL COMPLETION. 

» 

.ENTRY EXESCANCEL, A M<R2,R3,R4,R5,R6,R7> 

MOVAB DSSAX_S0FTPCB,R4 .-SOFTWARE PCB TO R4 



MOVZWL CHAN(AP),RO 

JSB IOCSVERIFYCHAN 

BLBC R0,50$ 

MOVL R2,R7 

MOVL R1,R6 

MOVL CC8SL UCB(R6),R5 

10$: MOVPSL -<SP>~ 

SETIPL *IPL$J\STDEL 

JSJ'^I CCBSW I0C(R6) 

BEOL 60S " 

MOVAB UCBSL IOQFL(R5),R3 

MOVL R3.R2 

SETIPL UCB$B.rIPL(R5) 

20$: MOVL IRP$tIlOOFL(R2),R2 

CMPL R2,R3 

BEQL 60S 

BBS #IRP$V VIRTUAL, IRPSW ST 

CMPL IRPSL PlD(R2),PCB$L PlD 

BNEQ 20$ ' 

CMPW R7.IRPSW CHAN(R2) 

BNEQ 20$ 



GET I/O CHANNEL NUMBER 
VERIFY I/O CHANNEL NUMBER 
IF LBC INVALID CHANNEL 
SAVE CHANNEL INDEX 



OF CCB 

DEVICE UCB ADDRESS 
PROCESSOR STATUS 
DELIVERY LEVEL 



SAVE ADDRESS 

GET ASSIGNED 

SAVE CURRENT 

RAISE TO AST 

ANY I/O OUTSTANDING? 

IF EQL NO 

GET ADDRESS OF I/O QUEUE LISTHEAD 

COPY ADDRESS OF I/O QUEUE LISTHEAD 

RAISE TO DRIVER FORK I PL 

GET ADDRESS OF NEXT I/O PACKET IN QUEUE 

END OF QUEUE? 

IF EQL YES 

SET, VIRTUAL I/O REQUEST 

ID MATCH? 



S(R2),20S ;IF 

(R4> ;PROCESS 

IF NEQ NO 

I/O CHANNEL 

IF NEQ NO 



NUMBER MATCH? 



ZZ-ENSAA-7.0 


CANCEL I/O ON CHANNEL 


CANCEL 




*** 


CANCEL 


05-04 




CANCEL I/O 




52 04 A2 


DO 


0055 




51 00 B2 


OF 


0059 




04 2A A1 00 


E1 


005D 




2A A1 02 


AA 


0062 




0000'8F 


3C 


0066 




34 A1 




006A 




61 


OE 


006C 




OOOOOOOO'FF 




006E 


-1 


C6 


12 


0073 
0075 




C1 


11 


0078 




50 00' 


3C 


007A 
007D 






04 


0080 
C081 




50 24 A5 


DO 


0085 




50 OC AO 


DO 


0089 




53 4C A5 


DO 


008D 




52 57 


DO 


0091 




51 OC AO 


DO 


0094 



-3 



-10 



-6 



-6 

-6 



E3 13 

03 51 10 EO 

51 50 CO 
61 16 

50 OA A6 3C 

50 04 A6 C8 

CD 13 

C8 34 A5 13 E1 

C3 34 A5 18 EO 

51 5C 8F 9A 
OOOOOOOO'EF 16 

OB 50 E8 

51 0000'8F 3C 

50 03 3C 

FF57 31 

3A A4 B7 

OA A6 B6 

53 52 DO 

52 08 CO 
82 5C 8F 98 

82 OA 9B 

82 60 A4 DO 

82 7C 

82 04 A6 DO 

82 55 DO 

82 38 BO 

82 1F 90 

82 00 90 

82 D4 

82 57 3C 

82 7C 

50 30 A5 DO 

OC AO B6 



nr?* 31 



0098 

009A 

009E 

00A1 

00A3 

00A7 

OOAB 

OOAD 

0082 

0087 

OOBB 

00C1 

00C4 

00C9 

OOCC 

OOCF 

00D2 

00D5 

00D8 

OODB 

OODF 

00E2 

00E6 

00E8 

OOEC 

OOEF 

OOF 2 

OOF 5 

00F8 

OOFA 

OOFD 

OOFF 

0103 

0106 

0106 

0106 

0109 



cancel QIO 
ON CHANNEL 



119 
120 
121 
122 
123 



30$: 



.1 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

.1 

,2 

.3 

.4 

139 

140 

141 

142 

143 

144 

.1 

,2 

155 

156 

157 

.1 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

.1 

.2 

.3 

.4 

182 

183 

184 

191 

192 

193 



40$: 
50$: 

60$: 



70$: 



90$: 
100$: 
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MOVL IRP$L I0QBL(R2),R2 ;GET BACKWARD LINK Of CURRENT ENTRY 

REMQUE aiRP$U I0QFL(R2),R1 ;REMOVE I/O PACKET FROM QUEUE 

BBC *IRP$V~8UFI0,IRP$W STS(R1),30$ -IF CLR, DIRECT I/O REQUEST 

BICW #IRP$M~FUNC,IRP$W 5TS<R1> ;CLEAR BUFFERED READ 

MOVZWL #SS$_caNCEL,IRP$LlMEDIA(R1) ;SET COMPLETION STATUS 

INSQUE IRP$L_I0QFL(R1),aL A I0C$GL.PSBL ;INSERT PACKET IN POST PROCESS QUEUE 



BNEQ 

SOFTINT 

BRB 

MOVZWL 

SETJPL 

RET 

SETJPL 

MOVL 

MOVL 

MOVL 

MOVL 

MOVL 

BEQL 

BBS 

ADDL 

J SB 

MOVZWL 

BJSL 

BEQL 

BBC 

BBS 

MOVZBl 

J SB 

BL8S 

MOVZWL 

MOVZWL 

BRW 

DECW 

INCW 

MOVL 

ADDL 

M0VZ8W 

MOVZBW 

MOVL 

CLRQ 

MOVL 

MOVL 

MOVW 

MOVB 

M0V8 

CLRL 

MOVZWL 

CLRQ 

MOVL 

INCW 



BRW 



20$ 

0IPL$ 10P0ST 

20$ " 

S A *SS$ NORMAL, RO 

UCB$B_FIPL(R5) 

UCB$L DDB(R5),R0 

DDB$L~DDT(RO),RO 

UCB$L~IRP(R5),R3 

R7,R2" 

DDT$L CANCEL(R0),R1 

50$ " 

#16,R1,70$ 

R0,R1 

(R1) 

CCB$WJ0C(R6).R0 

CCBSL WIND(R6),R0 

40$ " 

#DEV$V_MNT,UCB$L_DEVCHAR 

*DEV$V„FOR,UCB$L,DEVCHAR 

#IRP$C LENGTH, R1 

EXE$AL0NONPAGED 

R0,100$ 

#SS$ JNSFMEM,R1 

#RSN$ NPDYNMEM,RO 

10$ " 

PCB$W 8I0CNT(R4) 

CCB$W"J0C(R6) 

R2,R3 

*IRP$W..$1ZE,R2 

*1RP$C_LENGTH,(R2)+ 

#DYN$C JRP,(R2)+ 

PCB$L - .PlD(R4),(R2) + 

lR2> + 

CCBSL WIND<R6),(R2>* 

R5,(R2>+ 

*I0$ ACPC0NTR0L,(R2)+ 

*31,TR2>+ 

#0,<R2>+ 

(R2) + 

R7.(R2)+ 

(R2) + 

UCB$L VCB(R5),R0 

VCB$W~TRANS(RO) 



If NEQ NOT FIRST ENTRY IN QUEUE 
INITIATE SOFTWARE INTERRUPT 

SET NORMAL COMPLETION STATUS 
ALLOW INTERRUPTS 



RAISE TO DRIVER FORK LEVEL 

GET ADDRESS OF DDB 

GET ADDRESS 

GET CURRENT 

SET CHANNEL 

GET ADDRESS 

If EQL NONE 



OF DDT 

I/O PACKET ADDRESS 

INDEX 

OF CANCEL I/O ENTRY POINT 



IF SUPERVISOR ABSOLUTE 
BY DDT BASE 
I/O ROUTINE 

I/O COUNT 

OR FILE ACTIVITY? 



[043 



++++ BRANCH 

++++ OFFSET 

CALL CANCEL 

GET OUTSTANDING 

OUTSTANDING I/O 

If EQL NO 

(R5),40$ ;IF CLR, DEVICE DISMOUNTED 
(R5),40$ ;1F SET, MOUNTED FOREIGN 

SET LENGTH OF I/O PACKET 

ALLOCATE I/O PACKET 

If LBS SUCCESSFUL ALLOCATION 

SET INSUFFICIENT MEMORY STATUS 

SET NONPAGED DYNAMIC MEMORY RESOURCE NUMBER 

UPDATE BUFFERED I/O COUNT 

INCREMENT I/O COUNT 

COPY ADDRESS OF I/O PACKET 

CALCULATE ADDRESS OF PACKET SIZE 

INSERT SIZE OF I/O REQUEST PACKET 

INSERT DATA STRUCTURE TYPE AND ZERO 

INSERT CURRENT PROCESS ID 

CLEAR AST ADDRESS AND PARAMETER 

INSERT ADDRESS OF WINDOW 

INSERT DEVICE UCB ADDRESS 

INSERT I/O FUNCTION CODE 

SET EVENT FLAG NUMBER 

INSERT PROCESS BASE PRIORITY 

CLEAR I/O STATUS BLOCK ADDRESS 

INSERT CHANNEL NUMBER AND CLEAR STATUS 

CLEAR BUFFER PARAMETERS 

GET ADDRESS OF VCB 

UPDATE TRANSACTION COUNT 



MODE 



EXE$QIOACPPKT 



;QUEUE ACP PACKET 



ZZ-ENSAA-7.0 

CANCEL 

05-04 



CANCEL 1/0 ON 



CHANNEL 
*** CANCEL 
CANCEL I/O 



cancel Q JO 
ON CHANNEL 
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0109 194 



.END 



ZZ-ENSAA-7.0 
CANCEL 
Symbol table 

$ER 

SMODULE 

CCB$B,AM0D 

CCB$B STS 

CCB$C~LENGTH 

CCBSKJ.ENGTH 

CCB$LJ)IRP 

CCBSL UCB 

CCB$L~WIND 

CC8$W~I0C 

CHAN " 

DDB1B ACPCLASS 

DDB$B*"TYPE 

DDBSC'LENGTH 

DDB$K~LENGTH 

DDBSL'ACPD 

ODBSL'DDT 

DD8$L~LINK 

DOBSL'UCB 

DDBST DRVNAME 

DDB$T~NAME 

DDB$W~SI7E 

DDTSL~ALTSTART 

DDT$L~CANCEL 

DDT$L~FDT 

ddt$l~regdump 

ddt$l"start 

ddtsl'unitinit 

ddtsl'unsolint 

ddt$w~diagbuf 

0ot$w"errorbuf 

DEV$V~FOR 

DEV$V~MNT 

DS$AX™SOFTPCB 

DYN$C~IRP 

EXESACONONPAGED 

EXESCANCEL 

EXESQIOACPPKT 

10$ ACPCONTROL = 

IOC?GL PSBL 

IOCSVERIFYCHAN 

IPL$ ASTDEL 

IPL$"I0P0ST 

IRP$B CARCON 

IRP$B~EFN 

IRP$B~PRI 

IRP$B"RMOD 

IRP$B~TYPE 

IRP$OENGTH 

IRP$K LENGTH 

1RP$L"ARB 

JRPSL'AST 

JRP$L"ASTPRM 

IRP$L~DIAGBUF 

IRPSL'EXTEND 

1RP$L~I0QBL 

IRPSL'JOQFL 



Symbol table 
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00000001 


D 


IRP$L JOSB 


00000024 





00000000 R 


D 02 


IRPSLJ0ST1 


00000034 


D 


00000009 


D 


IRPSL I0ST2 


00000038 


D 


00000008 


D 


IRP$LlMEDJA 


00000034 


D 


00000010 


D 


IRPSL^PID 


OOOOOOOC 


D 


00000010 


D 


IRP$L SEGVBN 


00000040 


D 


ooocoooc 


D 


IRP$L*"SEQNUM 


00000048 


D 


00000000 


D 


IRPSL'SVAPTE 


0000002C 


D 


00000004 


D 


IRPSLlTT TERM 


00000038 


D 


OOOO00OA 


D 


IRPSL UCB 


0000001 C 


D 


00000004 


D 


IRP$L~WIND 


00000018 


D 


00000013 


D 


IRP$M~FUNC = 


00000002 


D 


OOOOOOOA 


D 


IRPSCfNT PRVMSK 


0000003C 


D 


00000034 


D 


IRP$V~BUFI0 


00000000 


D 


00000034 





IRP$V"*VIRTUAL = 


00000004 


D 


00000010 


D 


IRP$W~ABCNT 


0000003C 


D 


oooooooc 


D 


IRP$W"8CNT 


00000032 


D 


00000000 


D 


IRPStfBOFF 


00000030 


D 


00000004 


D 


IRPStfCHAN 


00000028 





00000024 


D 


IRPSW'FUNC 


00000020 


D 


00000014 


D 


IRPSW'OBCNT 


0000003E 


D 


00000008 


D 


IRPSVfSIZE 


00000008 


D 


0000001 c 


D 


JRPSW STS 


0000002A 


D 


oooooooc 


D 


IRPSUfTT PRMPT 


0000003C 


D 


00000008 


D 


PCB$B~ASTACT 


OOOOOOOC 


D 


00000010 


D 


PC8$B~ASTEN 


00000000 


D 


00000000 


D 


PCBSB'PRJ 


OOOOOOOB 


D 


00000018 


D 


PCB$8~PRJ8 


0000002F 


D 


00000004 


D 


PCBSB'TYPE 


OOOOOOOA 


D 


00000014 





PCBSB WEFC 


0000002E 


D 


00000016 





PCBSC'LENGTH 


0000008C 


D 


00000018 


D 


PCB$K~LENGTH 


0000008C 


D 


00000013 


D 


PCB$L~AR8 


00000084 


D 


******** 


X 02 


PCB$L"ASTQBL 


00000014 


D 


OOOOOOOA 


D 


PCB$L~ASTQFL 


00000010 


D 


******** 


X 02 


PCB$L*"EFC2P 


00000058 


D 


00000007 RG D 02 


PCB$L"EFC3P 


0000005C 


D 


******** 


X 02 


PCB$L~EFCS 


00000050 


D 


00000038 


D 


PCB$L"EFCU 


00000054 


D 


******** 


X 02 


PC8$L~EFWM 


0000004 C 


D 


******** 


X 02 


PCB$L~JIB 


00000078 


D 


00000002 


D 


PC8SLI0WNER 


0000001 C 


D 


00000004 


D 


PCBSL PHD 


00000064 


D 


00000038 


D 


PCB$L~PHYPCB 


00000018 


D 


00000022 


D 


PCBSLlPID 


00000060 


D 


00000023 


D 


PC8SL PQ8 


0000004 C 


D 


OOOOOOOB 





PC8$L"SQ8L 


00000004 


D 


OOOOOOOA 


D 


PCB$L~SQFL 


00000000 


D 


0000005C 


D 


PCB$L~STS 


00000024 


D 


0000005 C 


D 


PCB$L~UIC 


00000088 


D 


00000050 


D 


PCBSL'WSSWP 


00000020 


D 


00000010 


D 


PCB$L~WTJME 


00000028 


D 


00000014 


D 


PCBSCfPRJV 


0000007C 


D 


00000044 


D 


PC8$rLNAME 


00000068 


D 


OOOOOOOC 


D 


PCBST'TERMINAL 


00000044 


D 


00000004 


D 


PCBSW APTCNT 


00000030 


D 


00000000 


D 


PCBSW'ASTCNT 


00000038 


D 
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PCBSW.BIOCNT 

PCB$W_BIOLM 

PCB$W_DI0CNT 

PCB$W_DIOLM 

PCB$W GPGCNT 

PCBSUfGRP 

PCBSWJ1EM 

PCB$W_MTXCNT 

PCBSW PPGCNT 

PCBSWlPRCCNT 

PCBSLLSJZE 

PC8SW.STATE 

PCB$W TMBU 

PR$ I PL 

PR$ SJRR = 

RSN$ NPDYNMEM = 

SIZ.7. 

SS$ CANCEL 

SSS'INSFMEM 

SS$~NORMAL 

UCBlB AMOD 

UCB$B_CEX 

UCB$B_CM1 

UCBSB.CM2 

UCBSB.DEVCLASS 

UCBSB..DEVTYPE 

UCBSB.DIPL 

UCB$B_DX SCTCNT 

UCBSB^ERTCNT 

UCBSB.ERTMAX 

UCBSB.FEX 

UCBSB FJPL 

UCB$B_LOCSRV 

UCBSBJJFFNDX 

UCBSB.OFFRTC 

UCBSB.REMSRV 

UC8SB.SECT0RS 

UCBSB.SLAVE 

UCB$B,SPR 

UCB$B_STATE 

UCBSB.TRACKS 

UCB$B_TT_CRF1LL 

UCB$B_TT_DECRF 

UCB$B_TT_DELFF 

UCB$B_TT.DESPEE 

UCBSB.TT^DETYPE 

UCB$B_TT_LFFILL 

UCB$B„TT SPEED 

UCB$B_TYPE 

UCBSB^VERTSZ 

UCB$C_LENGTH 

UCB$CJ1B_LENGTH 

UCBSC.TT LENGTH 

UCB$KJ_Ef]GTH 

UCB$K_MB LENGTH 

UCB$K TT LENGTH 

UCBSLlAMB 



6 
(1) 



0000003A 


D 


0000003C 





0000003E 


D 


00000040 


D 


00000034 


D 


0000008A 


D 


00000088 


D 


OOOOOOOE 


D 


00000036 


D 


00000042 





00000008 


D 


0000002C 


D 


00000032 


D 


00000012 


D 


00000014 


D 


00000003 


D 


00000001 


D 


******** 


X 02 


******** 


X 02 


******** 


X 02 


00000053 


D 


00000077 


D 


0000004A 


D 


0000004B 


D 


00000038 


D 


00000039 


D 


00000052 


D 


000000A6 


D 


00000070 


D 


00000071 


D 


00000076 


D 


OOOOOOOB 


D 


0000003C 


D 


00000094 


D 


00000095 


D 


0000003D 


D 


0000003C 


D 


00000074 


D 


00000075 


D 


00000052 


D 


0000003D 


D 


0000009D 


i 


000000A1 




000000A2 




OOOOOOAO 




000000A4 




0000009E 


l> 


0000009C 


D 


OOOOOOOA 


D 


0000003F 


D 


00000074 


D 


00000090 


D 


ooooooec 


D 


00000074 


D 


00000090 


D 


OOOOOOBC 


D 


00000054 


D 



.... 
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(1) 


UCBSL.ASTQBL 


00000010 


D 


UCBSW DEVSTS 


0000005A 


D 


VCBSL R\Z1 


00000020 


D 




UCBSL ASTQFL 


0000000C 


D 


UCBSW^DJRSEQ 


00000088 


D 


VCB$L~SBMAPLBN 


00000034 


D 




UCBSL~CPID 


0000005C 


D 


UCBSW DSTADDR 


00000018 


D 


VCBSLlSTART FID 


00000028 


D 




UCBSL~CRB 


00000020 


D 


UCBSW'DX BCR 


OO00OOA4 


D 


VCBSL.ST RECORD 


00000030 


D 




UCBSL'DDB 


00000024 


D 


UCBSW ECT 


00000090 


D 


VCBSL USRLBLAST 


00000044 


D 




UCBSLJ)EVCHAR 


00000034 


D 


UCB$W~EC2 


00000092 


D 


VC8SL_VPBL 


00000040 


D 




UCBSL DEVDEPEND 


0000003C 


D 


UCBSWlERRCNT 


00000072 


D 


VCBSL VPFL 


C000003C 


D 




UCBSL^DPC 


00000080 


D 


UCBSW FUNC 


0000007E 


D 


VCBSLlWCB 


00000038 


D 




UCBSL DUETIM 


0000005C 


D 


UCBSW^MB SEED 


00000000 


D 


VC8ST.QNAME 


OOOOOOOC 


D 




UCBSL~DX BFPNT 


0000009C 


D 


UCBSW MS5CNT 


00000016 


D 


VCBST.VOLNAME 


00000014 


D 




UCB$L"DX~BUF 


00000098 


D 


UCBSW'MSGMAX 


00000014 


D 


VCBSW^CLUSTER 


0000003C 


D 




UCBSL DX RXDB 


OOOOOOAO 


D 


UCBSW'NT CHAN 


0000007C 


D 


VCBSW CURJJUM 


00000024 


D 




UCBSL'EMB 


00000078 


D 


UCBSW'OFFSET 


0000008A 


D 


VCBSW CUR SEQ 


00000026 


D 




UCBSL~FIRST 


00000014 


D 


UCBSW^REFC 


00000050 


D 


vcbsw^extEnd 


0000003E 


D 




UCBSLJPC 


OOOOOOOC 


D 


UCBSW SIZE 


00000008 


D 


VCBSW FILEPROT 


0000004A 


D 




UCBSL FQBL 


00000004 


D 


UCB$W~SRCADDR 


0000001 A 


D 


VCBSWlMCOUNT 


0000004C 


D 




UCBSLlFQFL 


00000000 


D 


UCBSW^STS 


00000058 


D 


VCBSW MODE 


0000002C 


D 




UCBSL FR3 


0000001 


D 


UCB$W_TT DESIZE 


OO00OOA5 


D 


VCBSW.PENDERR 


00000062 


D 




UCBSL FR4 


00000014 





UCBSW_UNlT 


00000048 


D 


VCBSW^QUOSIZE 


00000060 


D 




UCBSL~IOQBL 


00000044 


D 


UCBSW VPROT 


0000001 A 


D 


VCB$W„RECORDSZ 


00000050 


D 




UCBSL IOQFL 


00000040 


D 


VCBSBlBLOCKFACT 


00000052 


D 


VCBSW RVN 


OOOOOOOE 


D 




UCBSLJRP 


0000004 C 


D 


VCBSB,CUR RVN 


0000002F 


D 


VCB$W~SIZE 


00000008 


D 




UCBSL.LINK 


0000002C 


D 


VCB$B„E0Fl5ELTA 


0000004E 


D 


VCBSW.START NUM 


00000028 


D 




UCBSL LOGADR 


00000064 


D 


VCBSB.IBMAPSJZE 


00000038 


D 


VCBSW.START.SEQ 


0000002A 


D 




UCBSL~MAXBLOCK 


00000084 





VCBSB JBrtAPVBN 


0000003A 


D 


VCBSW TRANS 


OOOOOOOC 


D 




UCBSL~MB M8X 


0000007C 


D 


VCBSB'LRU LIM 


00000049 


D 


WCBSB.ACCESS 


OOOOOOOB 


D 




UCBSL~MB~PORT 


0000008C 


D 


VCBSBlQNAflECNT 


OOOOOOOB 


D 


WCBSBJYPE 


OOOOOOOA 


D 




UCBSL'MB'RAST 


00C00078 


D 


VCBSB RESFILES 


0000004F 


D 


WCBSC,LENGTH 


00000024 


D 




UCBSLlMB'SHB 


00000080 


D 


VCBSB'SBflAPSIZE 


00000039 


D 


WCBSC MAP 


00000024 


D 




UCBSL MB" WAST 


00000074 


D 


VC8$B"SBMAPVBN 


0000003B 


D 


WCBSK'LENGTH 


00000024 


D 




UCBSL~MB~WI0QBL 


00000088 


D 


VC8SB~STATUS 


OOOOOOOB 


D 


WCB$K~MAP 


00000024 


D 




UCBSL MB WIOQFL 


00000084 


D 


VCB$8"STATUS2 


00000053 


D 


WCBSLlFCB 


00000018 


D 




UCBSL'MEDIA 


0000008C 


D 


VCBSB" TM 


0000002E 


D 


WCBSL LBN 


00000002 


D 




UCBSL'NT DATSSB 


00000074 


D 


VCBSBlTYPE 


OOOOOOOA 


D 


WCBSL'ORGUCB 


00000010 


D 




UCBSL~NT"lNTSSB 


00000078 


D 


VCBSB WINDOW 


00000048 


D 


WCBSL P1 LBN 


00000026 


D 




UCBSL"OPCNT 


00000060 


D 


VCBSC'COMLEN 


00000024 


D 


WCBSLIP2ILBN 


0000002C 


D 




UCBSL~OWNUIC 


0000001C 


D 


VC8SC,LENGTH 


00000064 


D 


WCBSL.PlB 


OOOOOOOC 


D 




oCBSL'PJD 


00000028 


D 


VC8SCJ1RKLEN 


OOOOOOOB 


D 


WCBSL PREVLBN 


FFFFFFFC 


D 




UCBSL'RQBL 


00000004 


D 


VCBSK COMLEN 


00000024 


D 


WCBSLlRVT 


0000001 C 


D 




UCBSL~RQFL 


00000000 


D 


VCBSK LENGTH 


00000064 


D 


WCBSL STVBN 


00000020 


D 




UCBSL SVAPTE 


00000068 


D 


VCBSK'MRKLEN 


OOOOOOOB 


D 


WCBSL WLBL 


00000004 


D 




UCBSL~SVPN 


00000064 


D 


VCBSL~AQB 


00000010 


D 


WCBSLJJLFL 


00000000 


D 




UCBSL~TT DECHAR 


000OOOA8 


D 


VCBSL"BLOCKBL 


00000004 


D 


WCBSW,ACON 


00000014 


D 




ucbsl'Jtt'rdue 


0000008C 


D 


VCBSL'BLOCKFL 


00000000 


D 


WCB$W_COUNT 


00000000 


D 




UCBSL TT RTIMOU 


00000088 


D 


VCBSL^CACHE 


00000058 


D 


WCBSW NMAP 


00000016 


D 




UCBSL>CB 


00000030 





VCBSL CUR FID 


00000024 


D 


WCB$W~P1 COUNT 


00000024 


D 




UCBST PARTNER 


OOOOOOOC 


D 


VCBSL'FCBBL 


00000004 


D 


WCBSW P2"C0UNT 


0000002A 


D 




UCBSUfBCNT 


0000006E 


D 


VCBSL'FCBFL 


00000000 


D 


WCBSWPREVCOUNT 


FFFFFFFA 


D 




UCBSW BCR 


00000096 


D 


VCBSL'FREE 


00000040 


D 


WCBSW^REFCNT 


OOOOOOOE 


D 




UCBSW'BOFF 


0000006C 


D 


VCBSLIH0ME2LBN 


00000028 


D 


WCBSW SIZE 


00000008 


D 




UCBSW BUFQUO 


00000018 


D 


VCBSL H0MEL8N 


00000024 


D 










UCBSW'BYTESTOGO 


0000003E 


D 


VCBSL~I8MAPLBN 


00000030 


D 










UCBSW'CHARGE 


0000004A 





VCBSLJXHDR2LBN 


0000002 C 


D 










UCBSW^CYLINDERS 


0000003E 


D 


VCBSL MAXFILES 


00000044 


D 










UCBSW DA 


0000008C 


D 


VCBSL'MVL 


00000034 


D 










UCB$W~DC 


00Q0008E 


D 


VCBSL'QUOCACHE 


0000005C 


D 










UCBSW'DEVBUFSJZ 


0000003A 


D 


VCB$L"QUOTAFCB 


00000054 


D 
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PSECT name 

♦ ABS . 

SABSS 

SEP 



Allocation 

00000000 ( 
FFFFFFFC ( 
00000109 ( 



! Psect synopsis ! 

PSECT No, Attributes 

0.) 00 ( 0.) NOPIC USA 

0.) 01 ( 1.) NOPK USR 

265.) 02 ( 2.) NOPIC USR 



CON 
CON 
CON 



ABS 
ABS 
REL 



LCL 
LCL 
LCL 



NOSHR 

NOSHR 

SHR 



NOEXE 
tXE 
EXE 



NORD 
RD 
RD 



NOWRT 
WRT 
WRT 



NOVEC BYTE 
NOVEC BYTE 
NOVEC LONG 
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+ — -™ — — - — •-.——.+ 

! Symbol Cross Reference ! 



SYMBOL 



$ER 

SMODULE 

CCBSL.UCB 

CCBSL WIND 

CCBSvTlOC 

CHAN 

ODBSL DDT 

ODTSLlCANCEL 

0EV$V FOR 

DEV$V~MNT 

DSSAX SOFTPCB 

DYNtC'IRP 

EXESACONONPAGED 

EXESCANCEL 

EXESQIOACPPKT 

10$ ACPCONTROL 

IOClGL PSBl 

IOCSVERIFYCHAN 

IPL$.ASTDEL 

IPL$ I0P05T 

IRP$C LENGTH 

IRP$L~IOQBL 

IRP$L~IOQFL 

IRPSL'MEDIA 

IRP$L"PI0 

IRPSMlFUNC 

IRP$V BUFIO 

JRPSVlVlRTUAL 

1RP$W_CHAN 

IRP$W„SIZE 

IRP$W STS 

PCBSLlPID 

PCB$W BIOCNT 

PR$ IPL 

PRS'SIRR 

RSN$ NPOYNMEM 

SSSjANCEL 

SSS INSFMEM 

SS$"NORMAL 

UCBJB^FIPL 

UC8$L_DDB 

UCBSL.DEVCHAR 

UCB$L IOQFL 

UCBSLlIRP 

UCBSL VCB 

VCB$W"TRANS 



VALUE 




DEFINITION 
62.2 (1) 


REFERENCE 


v * ■ ■ 








=00000001 








oooooooo- 


R 


62,2 


(1) 












00000000 








#-103 (1 










00000004 








#-141 (1 


) #-172 


(1) 






OOOOOOOA 








#-106 (1 


) #-140 


(1) 


#-165 


(1) 


=00000004 




62 


(1) 


#-98 (1 










OOOOOOOC 








#-133 (1 










OOOOOOOC 








#-135.1 (1 










=00000018 








#-144 (1 










=00000013 








#-143 (1 










00000000- 


XR 






97.1 (1 










=OO00OO0A 








#-169 (1 










oooooooo- 


XR 






144.2 (1 










00000007- 


R 


97 


(1) 












00000000- 


XR 






#-192 (1 










=00000038 








#-174 (* 










00000000- 


XR 






123.1 C 










00000000- 


XR 






99 c 










=00000002 








#-105 r 










=00000004 








#-126 r 










0000005C 








#-144.1 C 


) #-168 


(1) 






00000004 








#-119 r 










oooooooo 








#-111 (• 


I) 120 


(1) 


123.1 


(1) 


00000034 








#-123 C 










OOOOOOOC 








#-115 (" 










=00000002 








#-122 (' 










=00000000 








#-121 C 










=00000004 








#-114 ( 










00000028 








#-117 ( 










00000008 








#-167 ( 










0000002A 








114 ( 


i) 121 


(1) 


#-122 


(1) 


00000060 








#-115 ( 


I) #-170 


(1) 






0000003A 








#-164 ( 










=00000012 








#-105 ( 


1) #-110 


(1) 


#-129 


(1) 


=00000014 








#-126 ( 










=00000003 








#-157 ( 










00000000- 


XR 






#-123 ( 










oooooooo- 


XR 






#-156 ( 










00000000- 


XR 






#-128 ( 










00000008 








#-110 ( 


1) #-131 


(1) 






00000024 








#-132 ( 










00000034 








143 ( 


1) 144 


(1) 






00000040 








108 ( 










0000004C 








#-134 ( 










00000030 








#-182 ( 










OOOOOOOC 








#-183 ( 











#-131 



(1) 
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! Macros Cross Reference ! 



MACRO 

SCADEF 

SCC8DEF 
$DDBDEF 
SDDTDEF 
SDEFINI 



$DEVDEF 

SDYNDEF 

SIODEF 

SIPLDEF 

SIRPDEF 

SPCBDEF 

SPRDEF 

SRSNDEF 

$UCBDEF 

SVCBDEF 

$WCBDEF 

MODNAM 

SET I PL 

SOFT1NT 



SI2E 

1 
1 

1 
1 
1 



1 

2 

\1 

1 

4 

4 

4 

1 

10 

6 

3 

1 

1 

1 



DEFINITION 



40 
41 
42 
43 
40 



44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

62.2 

105 

126 



REFERENCES,. 



40 
41 
42 
43 
40 
45 
50 
44 
45 
46 
47 

48 

49 

50 

51 

52 

53 

54 

62.2 

105 

126 (1 



41 


(1) 


42 


(1) 


43 


(1) 


44 


(1) 


46 


(1) 


47 


(1) 


48 


(1) 


49 


(1) 


51 


(1) 


52 


(1) 


53 


(1) 


54 


(1) 



110 



(1) 



129 



(1) 



131 



(1) 



! Performance indicators ! 
+ m + 



Phase 

Initial i^at ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



Elapsed Time 



33 

141 

639 



98 

30 

6 

15 

966 



00:00 
00:00 
00; 00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.11 
:00.78 
.•17.36 

:01.54 
:02.83 
:00.20 
: 00.03 
:00.24 
:23,11 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.26 
:02.17 
:33.95 
•01 .88 
:05.69 
.•00.31 
:00.03 
:00.24 
:44.55 



The working set limit was 1000 pages. 

79415 bytes (156 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1076 non-local and 9 local symbols. 

188 source lines were read in Pass 1, producing object records in Pass 2. 

112 pages of virtual memory were used to define 21 macros. 



ZZ-ENSAA-7.0 Cross reference 

CANCEL 

VAX-11 Macro Run Statistics 



*** CANCEL cancel QJO 



L H 
27-JUL-1984 Fiche 2 Frame L 1 A Seguence 386 

27-JUL-1984 15:03:49 VAX-11 Macro V03-0T Page 11 

1-APR-1980 10:26:13 0MA1 sCSYSO.SYSMAINHCANCEL .MAR; 15 (1) 



! Macro library statistics ! 

Macro library name Macros defined 

DMA1:CSYSO,SYSMAINTDDS.MLB;218 1 

DMA1 :[SYS0.SYSMAINT]DIAG.MLB;9S3 11 

SYS$SYSR00T:CSY5LIB]LIB.MLB;1 4 

SYS$SYSROOT:[SYSLI8]STARLET.MLB;2 7 

TOTALS (all libraries) 23 

1520 GETS were required to define 23 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/H ST=CDS. LI SD/CROSS/ENABLE= (DEBUG, TRACE) CANCEL/UPDA=(CANCEL. UPD, CANCEL. ENH) +SYSSL JBRARY : L JB/L IBRARY+DMA1 : [SYbO.SYSMA 
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(?) 


74 


DECLARATIONS 




(6) 


226 


SCHANNEL CALL 




(7) 


286 


SCHANNEL CALL 


- ADAPTER INN FUNCTION 


(8) 


319 


SCHANNEL CALL 


- BUS INI T FUNCTION 


(9) 


352 


SCHANNEL CALL 


- ABORT FUNCTION 


(10) 


384 


SCHANNEL CALL 


- ENABLE INTERRUPTS 


(11) 


431 


SCHANNEL CALL 


- PURGE 


(1?) 


463 


SCHANNEL CALL 


- DISABLE INTERRUPTS 


(13) 


499 


SCHANNEL CALL 


- CLEAR ADAPTER 


(14) 


531 


SCHANNEL CALL 


- GET ADAPTER STATUS 


(15) 


573 


SCHANNEL CALL 


- SET DEFEAT PARITY 


(16) 


615 


SCHANNEL CALL 


- CLEAR DEFEAT PARITY 


(17) 


657 


SCHANNEL CALL 


- COMMON CALL RETURN 


(18) 


701 


SSETMAP CALL 




(19) 


1006 


DSPSSHOWMBA 




(20) 


1047 


DSPSSHOWUBI 




(k1) 


1091 


SSHOWCHAfl CALL 




<2'> 


1143 


SHOW UBI STATUS 


(25) 


1172 


SHOWBlTS 




(24) 


1210 


DETERMINE ADAPTER SPECIFIC STATUS 


(25) 


1240 


DETERMINE GENERAL ADAPTER STATUS 


(26) 


1270 


DETERMINE ADAPTER HARDWARE ERROR STATUS 


(28) 


1301 


BUILD THE CHANNEL DATA BLOCK 


(29) 


1362 


SET ADAPTER VECTOR(S) 


(30) 


1409 


CLEAR ADAPTER 


VECTOR(S) 


(31) 


1450 


INTERRUPT PRE- 


■PROCESS 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 



1 

2 
3 
4 

5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
Z7 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
C9 

50 
51 
52 
53 
54 
55 
56 
57 



.TJTLE 
JDENT 
.NLJST 

.LIST 



CHAN730 

/06-11/ 

CND 

MEB 



*** CHAN730 Channel services for NEBULA 



Copyright (c) 1979, 1981, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANCE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED 8Y DEC. 



+ + 
FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: 

MODIFIED BY; 

01 
02 

03 



04 



VAX DIAGNOSTIC SUPERVISOR 



Rog«r Riggs 



10-Sept-1979 VERSION 01 



Rogi-r Riggs, 14-Jan-1979, 
Added lists for CVT$T_,.. 
Added MTPR #1 JTX37 to do 
Roger Riggs, 21-MAY-1980, 



05 



06 



07 



Version 5.2 
strings referenced in CVTREG 

I/O subsystem clear on INITA 
_ Version 5.4 

CLRMAP was clearing 512 map register, only 496 exist 
Also fixed algorithm for determining how many maps to set 
from starting address and byte count 
Roger Riggs, 26-Jun-1980, Version 5.5 
Fixed bug which did not allocate enough map registers 
for transfer of 1+n*pages. 

- Jack Stansbury, 23-Oct-1981. Version 6.- 

Removed all calls to SDS BNERROR and SDS BERROR since these 
should be used only by the diagnostics. Replaced them with 
their BLBx equivalents. Also added .LIBRARY statements for 
SDS and SDIAG. 

* Jack Stansbury, 26-Oct-1981, Version 6.- 
Char.ged the .PSECT SEP to WORK, CODE, and DATA 
where appropriate. 

- Dave Bjtenhof, 23-Nov~1981, ven'son 6.5 

Add .LIBRARY statement tor DS.MLB, and fixed some 
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0000 


58 , 




0000 


59 , 




0000 


60 , 


08 


0000 


61 , 




0000 


6? 




0000 


63 , 


09 


0000 


64 , 




0000 


65 t 




0000 


66 , 


10 


0000 


67 




0000 


68 




0000 


69 




0000 


70 


11 


0000 


71 , 




cooo 


n 


•-- 



truncation errors, 

- Dave Butenhof. 09-May~1981 , version 6.5 

Add CHM$, INVALIDATE function to DSXSSETMAP routine 

- Dave Butenhof, Q9-May-1981, version 6,5 
Fix assorted register errors 

- Dave Butenhof, 17-Dec-1981, Version 6.6 

Fix problem with map invalidate: it assumed 496 map 
vectors, while there are really 512. 

Bob Bergaj/i May 16,1983 Version 6.11 
Changed the order of the f LJB statements. 
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*** CHAN730 Channel 
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services 
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00000000 
00000800 
0000001 F 
80000000 
00000019 
02000000 
00000001 
00000015 
00000002 
00000000 
OOOOOOOF 



00660081 



0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
104 
105 
106 
107 

108 
109 
110 
111 
112 
113 
114 
115 
116 
117 

1 18 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
152 
136 



.S8TTL DECLARATIONS 
INCLUDE FILES: 



.LI8RARY 
.LIBRARY 
.LIBRARY 



MACROS.' 



/SYS$LIBRARY:LI8/ 

/$0S/ 

/SDJA6/ 



C113 
[113 

[11] 



.MACRO SCHNDEF 

$OFFDEF CHN,<UNJT,FUNC,ADR1 ,ADR2> 
.ENDM SCHNDEF 
.MACRO SSTMDEF 

$OFFDEF STM,<UNIT,FUNC,PHY,8AS,CNT,PTH> 
.ENDM SSTMDEF 
.MACRO SSHWDEF 

SOFFDEF SHW,<UNJT> 
.ENDM SSHWDEF 



EQUATED SYMBOLS: 



SDS DSDEF 

SU8ADEF 

;$U8JDEF 

; TEMPORARY UBI 

UBJSL..CSR 

ubjsl MAP 

UBJSVlMAP.VALJD 

ubism map. valid 
ubisv;map_bo 

USI$M MAP 80 
UBISSlMAP 80 
U8I$V,MAP,DPD 
U8ISS MAP.DPD 
UBISVMAP PFN 
UBI$S~MAP~PFN 



DEFINITIONS 
= *X0 
= *X800 

31 
= 1 3 UBISVJW* VALID 

25 
= 1 a UB1SV.MAP.BU 

1 

21 

2 



15 



UBA REGISTER DEFINITIONS 

; UBI REGISTER DEFINITIONS 



DS$_NOSUPPORT 

; END OF TEMPORARY 

IDS BJTDEF 

SDS^DSDEF 

SDS.PARDEF 

1DS.HPODEF 

SDS CHDEF 

SCHflDEF 

SPRDEF 

SSTMDEF 

SSHWDEF 



DSS NOTJMP11 



DEFINITIONS 



ALLOW UNSUPPORTED 

FUNCTIONS TO SUCCEDE FOR NOW 

BIT DEFINITIONS 

PROCEDURE RETURN CODE DEFINITIONS 

PARAMETER ARG DEFINITIONS 

HARDWARE P-TABLE DEFINITIONS 

CHANNtL SERVICE DEFINITIONS 

SDS CHANNEL CALL 

PROCESSOR REGISTERS 

SDS.SETMAP CALL 

SDS.SHOWCHAN CALL 



ZZ--ENSAA-7.0 
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CHAN730 


*** 


CHAN730 


U6-11 


DECLARATION 




00000080 


oooo 
oooo 
oooo 
oooo 




00000000 


oooo 




00000001 


oooo 




00000002 


oooo 




00000003 


oooo 




00000004 


oooo 




00000005 


oooo 




00000001 


oooo 




00000002 


oooo 




00000004 


oooo 




00000008 


oooo 




00000010 


cooo 




00000020 


oooo 
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OOOOOOOF 



OOOO 
OOOO 
OOOO 
OOOO 
OOOO 



137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
,54 
155 
156 
157 



SHW$K 8UFSJZ 



128 



; $SHOWCHAN BUFFER SIZE 



; INTERNAL FLAG WORD DEFINITIONS 



CDBSV 

CDBSV 

CDBSV* 

CDBSV" 

CDBSV* 

CDBSV* 

CDBSM" 

CD8SM' 

CDBSM. 

CDBSM 

CDBSM' 

CDBSM' 



MBA 

UBA 

UBI 

OFFSET 

'REV 

;je 

MBA 
'UBA 
'UBI 
OFFSET 
'REV 
IB 



9 CD8SV MBA 
d CDBSV** UBA 
3 CDBSV UBI 
a CDBSV OFFSET 
3 CD8$V_REV 
a CDBSVJE 



M>APrEft IS MBA 
ADAPTER IS UBA 
ADAPTER IS UBI 
OFFSET MODE 
REVERSE OPERATION 
INTERRUPTS ENABLED 



(11/750,11/780) 

(11/780) 

(11/750) 



; STATUS BIT DEFINITIONS FOR CDBSL.ST1 

CHSSM_ERRANY = CHS$M„SYSERR!CHS$M„CHNERR!CHS$MJ)EVERR! CMSSM.PGMERR 
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00000000 
00000000 
00000000 



00000000 
00000000 
00000000 



0000001 F 
00000080 
00000000 
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OOOOOOOO 
00000004 
0000C008 
OOOOOOOC 
00000010 
00000014 
00000018 
0000001 A 
0000001 c 
00000020 
00000020 



OOOOOOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0032 
0000 
0004 
0008 

oooc 

0010 
COH 
0018 
001A 
001C 
0020 



OOOOOOOO 
0000 



00000020 



00000008 
00000068 
OOOOOOOO 



0000003D' 



0000003D' 



0000003D 



0000003E' 



AC 45 4E 4E 41 48 43 



00* 
07 



0000 
0020 
0020 
0020 
0020 
0030 
0040 
0050 
0050 
0050 
0054 
0054 
0054 
0058 
0058 
0058 
005C 
005C 
005C 
0060 
0060 
0060 
0060 
0060 
0060 
0060 



159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 



184 
185 
186 
18/ 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 



.PSECV Work, NoExe, NoShr, Wrt, Long 



C06U 



OWN STORAGE: 



.SAVE 

.PSECT $A8S$,ABS 

.=0 

CDB$L FLAGS: .BLKL 

CDBSAlTBL: .BLKL 

CD85A.VEC: .8LKL 

CDB$A STORE: .BLKL 

CDBSAIADDR: .BLKL 

CD8$L_ST1: .BLKL 

CDBSW ST2: .BLKW 

CDBSUfRVR: .BLKW 

CD8$L~PTH: .BLKL 

CD8Sl7=. 

.RESTORE 

CD8SBL0CK:: 

.8LK8 CD8SJZ 



INTERNAL FLAGS 
HARDWARE P-TABLE ADDRESS 
INTERRUPT VfcCTOR ADDRESS 
CALLER STATUS ADDRESS 
CHANNEL VECTOR ADDRESS 
STATUS (HARDWARE ERROR) 
STATUS (GENERAL) 
RECEIVE VECTOR 
DATA PATH NUMBER 



CHANNEL CONTROL BLOCK 



ARGLISTS FOR $CVTREG AND SPRJNTB 
FMT_CVTJ\RG; SDS^CVTREG.L^ 31 ,0,0,SHWBUF ,SHW$K_BUFSIZ 



.LOflG 
.LONG 
.LONG 



11. 31. 0, 
SHWBUF, SHW$K_BUFSIZ, 0, 
0, 0, 0, 



CVT$T MBASR:: 

.ADDRESS 

CVT$T M8AMAP:: 
" .ADDRESS 

CVT$T U8ADPR:: 
" .ADDRESS 

CVT$T UBAMAP:: 
" .ADDRESS 



M8A_SR_BIT 
MBA.MAP..8IT 
U8A,DPR.8IT 
UBA.MAP..BIT 



; COMMON ERROR MESSAGE FOR DEBUG 

MODNAM CHANNEL 

SMODULE: .ASC1C \CHANNEL\ 



Address of Bit mnemonics 

No additional arguments needed 

Address of Bit mnemonics 

No additional arguments needed 

Address of Bit mnemonics 

No additional arguments needed 

Address of Bit mnemonics 

No additional arguments needed 



DEFINE MODULE NAME FOR ERRSUP 
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00000000 20? .PSECT Data, NoExe, Shr, NoWrt, Long ; C06D 

0000 203 

0000 204 ; STORAGE FOR SSHOWCHAN - CHANNEL STATUS DUMP 
0000 205 
2f 21 00' 0000 206 FMT CRLF : .ASCIC . !/. 
02 0000 

4l 4E 41 48 43 20 49 42 55 2^ 21 00' 0003 207 FMT U8i HDR: .ASCJC . J/U8J CHANNEL STATUS DUMP!/. 
55 44 20 53 55 54 41 54 53 20 4C 45 000F " ' 

2F 21 50 4D 001B 
18 0003 

5B 3A 52 53 43 5F 49 42 55 2F 21 OO 1 001F 208 FMT U9J CSR: .ASCJC . J/UBI.CSR:C!XLJ 1JXL (X); !_!AC. 

29 58 28 4C 58 21 5F 21 5D 4C 58 21 002B 

43 41 21 5F 21 38 0037 

1D 001F 

C03D 209 MBA SR BIT: 
003D 210 MBA"MAP BIT: 
003D 211 UBA'DPRlSIT: 
00' 003D 212 .ASCJC "" 
00 003D 

003E 213 U8A_MAP_BIT: 

2C 2C 2C 2C 2C 2C 44 49 4C 41 56 00' 003E 214 .ASCJC "VALID ,BO,,, ,,PFN=21 A X M 

32 3D 4E 46 50 2C 2C 2C 2C 2C 4F 42 004A 

58 5E 31 0056 
1A 003E 



Z7-ENSAA-7.Q 
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DECLARATIONS 



*+* CHAN730 Channel 
DECLARATIONS 



services 
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0OO00OE9 
000000ED 
0OO00OF1 



00000068 
0068 
0068 
0068 
0068 
0068 
0068 
00c9 
OOED 



216 
217 
218 
219 
220 
221 
222 
223 
224 



.PSECT Work, NoExe, NoShr, Wrt, Long 



; More OWN Storage 



SHWBUF 
JMPADR 
UBJVEC 



[063 

T06] 
[063 
[063 



.BLK8 


SHW$K 8UFSIZ+1 


; SSHOWCHAN BUFFER 


.BLKL 


1 


; VECTOR FOR ADAPTER/DEVICE 


.BLKL 


1 


; TEMP FOR UBJ VECTOR 



INTERRUPTS 



ZZ-ENSAA-7,0 

CHAN730 

06-11 



SCHANNEL CALL 



H 15 
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$CHANNEL CALL 



00F1 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 



23-MAY-1984 14:09:53 DMA1 :CSYS0.SYSMAINT3CHAN730.MAR;41 (6) 

£063 



.S8TTL SCHANNEL CALL 

.PSECT Code, Exe, Shr, NoWrt, Long 



++ 
FUNCTIONAL DESCRIPTION: 

CHANNEL ADAPTER INTERFACE SERVICE 

CALLING SEQUENCE: 

CALL6 ARGLST, a*t)S$CHANNEL 

OR 
CALLS M, a#DS$CHANNEL 

INPUT PARAMETERS: 

4(AP) LOGICAL UNIT NUM8ER 

8(AP) FUNCTION CODE 

12(AP) VECTOR ADDRESS 

16(AP) STATUS STORE ADDRESSCADDRESS OF QWORD) 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: 

DS$_. ... 
SIDE EFFECTS: 

The channel may be affected 



ZZ-BNSAA-7.0 

CHAN730 

06-11 



SCHANNEL CALL 



*** CHAN730 Channel services 
SCHANNEL CALL 
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007C 

52 04 AC DO 

0301 30 

03 50 E8 

00A1 31 



52 08 AC DO 



50 



09* 00 52 AF 

001E' 
002A 1 
0037 ' 
005F ' 
0040* 
0068* 
006D' 
0076' 
0080' 
0089' 

00660020 8^ DO 
0078 31 



0000 

0002 

0002 

0006 

0009 

000C 

000C 

OOOF 

OOOF 

OOOF 

0013 

0013 

0013 

0013 

C013 

0013 

0013 

0013 

0013 

0013 

0013 

0013 

0013 

0017 

0017 

0019 

0018 

001D 

001 F 

0021 

0023 

0025 

0027 

0029 

0028 

0028 

0032 



261 .ENTRY DSXSCHANNEL, A M<R2,R3,R4 ,R5,R6> 
262 

263 MOVL 

264 BS8W 

265 BLBS 
266 

267 BRW 
268 
269 CHN DSP: 



CHN$ UNIT(AP),R2 

BLDCDB 

RO, CHN.DSP 

CHN CALL RTN 



; GET THE UNIT NUMBER 
; FIND/CREATE THE CDB 
IF ERROR, RETURN WITH 
ERROR CODE FROM BLDCDB 
; RETURN 



C05J 
[05] 



270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 



MOVL 
CASE 



30000$: 



283 
284 



30001$: 



CASEW 

.SIGNED 
.SIGNED" 
.SIGNED' 
.SIGNED 

.signed; 

■SIGNED 
.SIGNED' 
.SIGNED' 
.SIGNED 

.signed; 

MOVL 
BRW 



CHN$ FUNC(AP),R2 
R2,LTMIT=tfO,< - 
CHNJNITA, - 
CHN INITB, - 
CHN~ABORT, - 
CHN'PURGE, - 
CHN~ENINT, - 
CHN'DSINT, - 
CHN'CLEAR, - 
CHN~STATUS, - 
CHN'SETDFT, - 
CHNlCLRDFT, - 

R2,#0,S A tf«30001$~30000$>/2>-1 

WORD CHNJNITA-30000S 

WORD CHN INI TB-30000$ 

'WORD CHNlABORT-30000$ 

"WORD CHN.PURGE-30000* 

'WORD CHN ENINT-30000S 

"WORD CHNlDSINT-30000$ 

'WORD CHN CLEAR-30000S 

'WORD CHN~STATUS-30000$ 

"WORD CHN"*SETDFT-30000$ 

jWORD CHNlCLRDFT~30000$ 

*DS$ PROGERR,R0 
CHN CALL RTN 



FUNCTION CODE TO R2 

DISPATCH ON FUNCTION 

INITA 

INITB 

ABORT 

PURGE 

ENINT 

DSINT 

CLEAR 

STATUS 

SET DEFEAT PARITY 

CLEAR DEFEAT PARITY 



INVALID 
RETURN 



FUNCTION 
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50 



0035 


286 


0035 


287 


0035 


288 


C035 


289 


0035 


290 


0035 


291 


0035 


292 


0035 


293 


0035 


294 


0035 


295 


0035 


296 


0035 


297 


0035 


298 


0035 


299 


C035 


300 


0035 


301 


0035 


302 


0035 


303 


0035 


304 


0035 


305 


0035 


306 


0035 


307 


0035 


308 


0035 


309 


0035 


310 


0035 


311 


0035 


312 


0035 


313 


0035 


3K 


17 01 DA 0035 


315 


00660081 8F DO 0038 


316 


68 11 003F 


317 



+ + 



.S8TTL SCHANNEL CALL - ADAPTER JNIT FUNCTION 
FUNCTIONAL DESCRIPTION: 
INITIALIZE ADAPTER HARDWARE 
CALLING SEQUENCE: 
BRW CHNJNITA 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

DS$_NORMAL 

SIDE EFFECTS: 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 



SUCCESS 



NONE 



CHNJNITA: 

MTPR 
MOVL 
BR8 



#1 ,# A X37 

tfDSS NOSUPPORT,R0 

CHN_RORMAL_RTN 



I/O subsystem clear 
NOT SUPPORTED 
RETURN 
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SCHANNEL CALL - BUS INN FUNCTION 

*** CHAN730 Channel 
$CHANNEL CALL - BUS 
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50 







0041 


319 






0041 


320 






0041 


321 






0041 


322 






0041 


323 






0041 


324 






0041 


325 






0041 


326 






0041 


327 






0041 


328 






0041 


329 






0041 


330 






0041 


331 






0041 


332 






C041 


333 






0041 


334 






0041 


335 






0041 


336 






0041 


337 






0041 


338 






0041 


339 






0041 


340 






0041 


341 






0041 


342 






0041 


343 






0041 


344 






0041 


345 






0041 


346 






0041 


347 


37 01 


DA 


0041 


348 


006600B1 8F 


DO 


0044 


349 


0063 


31 


004B 


350 



+ + 



.S8TTL SCHANNEL CALL - BUS INJT FUNCTION 
FUNCTIONAL DESCRIPTION: 

NOP FOR 11/730 UNIBUS 
CALLING SEQUENCE: 

BRW CHNJNITB 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

DSS.NOSUPPORT 

SIDE EFFECTS: NONE 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 



NOT SUPPORTED FOR 11/750 UBI OR 11/730 



CHNJNITB: 

MTPR 
MOVL 
BRW 



#) ,* A X37 

*ds$ nosupport,r0 
chn Call rtn 



I/O subsystem clear 
FUNCTION NOT SUPPORTED 
RETURN 
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50 



OGAE 


352 


OOAE 


353 


OOAE 


35A 


OOAE 


355 


OOAE 


356 


OOAE 


357 


OOAE 


358 


OOAE 


359 


OOAE 


360 


OOAE 


361 


OOAE 


362 


OOAE 


363 


OOAE 


36A 


OOAE 


365 


COAE 


366 


OOAE 


367 


OOAE 


368 


OOAE 


369 


OOAE 


370 


OOAE 


371 


OOAE 


372 


OOAE 


373 


OOAE 


37A 


OOAE 


375 


OOAE 


376 


OOAE 


377 


OOAE 


378 


OOAE 


379 


OOAE 


380 


00660081 8F DO OOAE 


381 


59 11 0055 


382 



♦ + 



.SBTTL SCHANNEL CALL - ABORT FUNCTION 
FUNCTIONAL DESCRIPTION: 

NOP FOR 11/730 
CALLING SEQUENCE: 

BRW CHN_ ABORT 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

DSS.NOSUPPORT 

SIDE EFFECTS: 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 
NONE 



FUNCTION NOT SUPPORTED 



NONE 



CHN^ABORT: 

MOVL 
BR8 



#DSS NOSUPPORT,R0 
CHNjALLJUN 



INDICATE NO SUPPORT 
RETURN 
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400 



H 15 
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02FF 
17 50 



50 00660020 8F 
08 A5 
OC A5 



OC AC 
09 

10 AC 
02 
50 



30 
E9 

DO 

DO 
15 
DO 
15 
D6 



3A 11 



0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
C057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
C057 
0057 
0057 
0057 
0057 
0057 
O057 
f'057 
U057 
0057 
0057 
0057 
005A 
005D 
005D 
0064 
0064 
0069 
0068 
0070 
0072 
0074 
0074 



384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

3°7 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 



+ + 



•S8TTL SCHANNEL CALL - ENABLE INTERRUPTS 
FUNCTIONAL DESCRIPTION: 

ENABLE ADAPTER INTERRUPTS 
CALLING SEQUENCE; 

BRB CHN.ENINT 
INPUT PARAMETERS: 



R5 = 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

DS$ NORMAL 
DS$~IVVECT 
DS$~IVADDR 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 



SUCCESS 

INVALID VECTOR (SSETVEO 

INVALID ADDRESS (SSETVEO 



SIDE EFFECTS: 

CALLS SSETVEC TO POINT ADAPTLR/UUT INTERRUPTS INTO CHANNEL SERVICE 



CHN ENINT: 

BSBW 
BL8C 



SETVEC 
R0,40$ 



MOVL 0DS$_PROGERR,RO 



SET THE VECTOR'S 

JF ERROR RETURN WITH IT 

ASSUME ADDRESS CHECK FAILED 



40$: 



MOVL 
BLEQ 
MOVL 
BLEQ 
INCL 

BR8 



CHNS ADR1(AP),CD8$A VEC(R5) ; SAVE CALLERS VECTOR 

40$ ' " ; ZERO OR NEGATIVE IS NOGOOD 

CHN$_ADR2(AP),CDB$A.,STORE(R5) ; SAVE CALLERS STORE ADDRESS 
40$ ; GTR ZERO IS CORRECT 

RO ; Flag success 



CHN_CAIL_RTN 



RETURN 
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SCHANNtL CALL - 



PURGE 

*** CHAN/30 Channel services 

SCHANNEL CALL - PURGE 



N 15 
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50 





0076 


431 


.S8TTL SCHANNEL 


CALL - PURGE 




0076 


432 , 


+ + 






0076 


433 , 


FUNCTJONAL DESCRIPTION: 




0076 


434 ( 








0076 


435 , 


NOP FOR 11/730 






0076 


436 , 








0076 


437 , 


CALLING SEQUENCE: 






0076 


438 , 








0076 


439 , 


BRW CHN^PURGE 




0076 


440 , 








0076 


441 t 


INPUT PARAMETERS: 






0076 


442 








0076 


443 , 


R5 = 


CHANNEL DATA BLOCK 




0076 


444 


R6 


CHANNEL CSR REGISTER ADDRESS 




C076 


445 








0076 


446 


• IMPLICIT INPUTS: 


NONE 




0076 


447 








0076 


448 


• OUTPUT PARAMETERS: 


NONE 




0076 


449 








0076 


450 


' IMPLICIT OUTPUTS: 


NONE 




0076 


451 








0076 


452 


; COMPLETION CODES: 






0076 


453 








0076 


454 


; DS$_NOSUPPORT 


= not supported 




0076 


455 








0076 


456 


; SIDE EFFECTS: 


NONE 




0076 


457 


» ™ — 






0076 


458 








0076 


4S9 


CHN.PURGE : 




006OUQ81 8f DO 


0076 


460 


MOVL #DS$ NOSUPPORT,R0 ; Not supported 


31 11 


007D 


461 


BR8 CHN CALL RTN ; Return 
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007F 


463 


,S8TTL SCHANNEl 


CALL - 


DISABLE INTERRUPTS 


007F 


464 , 


+ ♦ 






007F 


465 ; 


FUNCTIONAL DESCRIPTION: 




00 7 F 


466 . 








007F 


46? , 


DISABLE ADAPTER 


INTERRUPT PROCESSING 


007F 


468 , 








007F 


469 . 


CALLING SEQUENCE: 






007F 


470 4 








007F 


471 , 


BRW CHN^DSINT 




007F 


47? , 








007F 


473 ( 


INPUT PARAMETERS: 






007F 


474 , 








007F 


4 7S , 


R5 


CHANNEL 


DATA BLOCK 


00/F 


4?6 


R6 


CHANNEL 


CSR REGISTER ADDRESS 


C07F 


4 7 ( 








007F 


4/8 , 


IMPLICIT INPUTS: 


NONE 




C07F 


4/9 , 








007F 


480 


OUTPUT PARAMETERS: 


NONE 




00?F 


481 , 








007F 


48? , 


IMPLICIT OUTPUTS: 


NONE 




007F 


483 . 








007F 


484 , 


COMPLETION CODES: 






007f 


485 








007F 


486 


DS$ NORMAL 


= 


SUCCESS 


007F 


48? 


DS$~I VVECT 


= 


INVALID VECTOR (SCLRVEC) 


007F 


488 








007F 


489 


' SJDE EFFECTS: 






007F 


490 








007F 


491 


CALLS HLRVEC 






007F 


49? 








007F 


493 


;-- 






007F 


494 








007F 


495 


;hn_dsint: 






OJF/ 30 007F 


496 


BS8W CIRVEC 




; CLEAR VECTOR'S 


?t 11 0083 


49? 


BR8 CHN CALi 


._RTN 


; RETURN WITH ST 
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50 



0084 


499 


0084 


500 


0084 


501 


0084 


502 


0084 


503 


0084 


504 


0084 


505 


0084 


506 


0084 


507 


0084 


508 


0084 


509 


0084 


510 


0084 


511 


0084 


51? 


C084 


513 


0084 


514 


. 0084 


515 


0084 


516 


0084 


517 


0084 


518 


0084 


519 


0084 


520 


0084 


5?1 


0084 


522 


0084 


523 


0084 


524 


0084 


525 


0084 


526 


0084 


527 


006600B1 8F DO 0084 


528 


23 11 008B 


529 



+ + 



.S8TTL SCHANNEL CALL - CLEAR ADAPTER 
FUNCTIONAL DESCRIPTION: 

CLEAR ADAPTER STATUS 
CALLING SEQUENCE: 

BRW CHN^CLEAR 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

DS$,N0SUPPQRT 

SIDE EffEQTSi 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 



= Function NOPED 
NONE 



CHN.CLtAR; 

MOVL 

BRB 



*DS$ NOSUPPORT,R0 
CHNjALL^RTN 



; Not supported 



77-ENSAA-7,0 

CHAN730 

06-11 



SCHANNEL CALL - GET ADAPTER STATUS 

*** CHAN730 Channel 
$CHANNEL CALL - GET 



D 16 
27-JUL-1984 Fiche 2 Frame D16 
services for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro 
ADAPTER STATUS 23-MAY-1984 14:09:53 



10 QC 



14 
14 



A5 
A5 
12 



7C 
7D 

11 



008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
C08D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
0090 
0095 



531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 

542 
54<i 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 

558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
5 70 
5? 1 



Seguence 404 
v ™ , , ,- IB u U V03-01 Page 17 

DMA1:CSYS0.SYSMAJNT3CHAN?30.MAR;4(K) 



+ + 



.S8TTL SCHANNEL CALL - GET ADAPTER STATUS 
FUNCTIONAL DESCRIPTION: 

PASS ADAPTER STATUS TO CALLER 
CALLJNG SEQUENCE: 

BRW CHN.STATUS 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

DSS.NORMAl 
SIDE EFFECTS: 

NONE 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 



COMPLETION CODE 



SUCCESS 



CHN STATUS: 
ClRG 
MOVQ 
BR8 



CDBSL STKR5) 

CDB$L~STMR5>,o)CHN$ ADR2(AP) 
CHN NORMAL RTN 



Clear all status 
PASS STATUS 
RETURN 



ZZ-ENSAA-7.0 

CHAN730 

06-11 



E 16 
SCHANNEL CALL - SET DEF FAT PARITY 2?-JUL-1984 Fiche 2 Frame E16 Seguence 405 

*** CHAN730 Channel services for NEBULA ?7-JUL-1984 15:0^:35 VAX-11 Macro V03-0T Page 18 

SCHANNEL CALL - SET DEFEAT PARITY 23-MAY-1984 14:09:53 DMA1 j[SYS0.SYSMA1NTJCHAN730.MAR;4<15) 



50 00660UB1 



8F 

10 



DO 
11 



0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
C097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
00^7 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
00^7 
0097 
009E 



573 

574 

575 

576 

577 

578 

579 

580 

581 

58? 

583 

584 

585 

586 

587 

588 

589 

590 

591 

59? 

593 

594 

595 

596 

597 

598 

599 

600 

601 

60? 

603 

604 

605 

606 

607 

608 

609 

610 

611 

61? 

613 



+ + 



.SBTTL SCHANNEL CALL - SET DEFEAT PARITY 
FUNCTIONAL DESCRIPTION: 

SET DEFEAT LATA PATH PARITY 
CALLING SEQUENCE: 

BS8W CHNJETpFT 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO 
IMPLICIT OUTPl T SJ 

NONE 

COMPLETION CODES: 

DS$ NORMAL 
DSTNOSUPPORT 

SIDE EFFECTS: 

NONE 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 



COMPLETION CODE 



SUCCESS 

FUNCTION NOT SUPPORTED FOR 11/750 UBI 



CHN SETOFF: 
MOVt 
BR8 



#DS$ NOSUPPORT,R0 
CHN JALL.RTN 



INDICATE NO SUPPORi' 
RETURN 



ZZ-ENSAA-7.0 

CHAN730 

06-11 



SCHANNEL CALL - 



CLEAR DEFEAT PARITY 

*** CHAN730 Channel services 

SCHANNEL CALL - CLEAR DEFEAT 



F 16 
27-JUI-1984 F i che 2 Frame F16 Sequence 406 
for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-01 Page 19 
PARITY 23-MAY-1984 14:09:53 DMA1 :CSYS0,SYSMAINT]CHAN730.MAR;4<16) 



50 006600B1 8F 

07 



PO 

11 



OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
COAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 
Q0A7 



615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 

638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 



+ + 



.SBTTL SCHANNEL CALL - CLEAR DEFEAT PARITY 
FUNCTIONAL DESCRIPTION: 

CLEAR DEFEAT DATA PATH PARITY (U8I ONLY) 
CALLING SEQUENCE: 

BRW CHN.CLRDFT 

JNPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO 
IMPLICIT OUTPUTS: 

NOrtE 

COMPLETION CODES: 

DSS NORMAL 
DSTNOSUPPORT 

SIDE EFFECTS: 

NONE 



CHANNEL DATA SLOCK 

CHANNEL CSR REGISTER ADDRESS 



COMPLETION CODE 



SUCCESS 

NOT SUPPORTED (11/750 UBI) 



CHN..CLRDFT: 

MOVL 
BR8 



JTDSt NOSUPPORT.RO 
CHN^fALL^RTN 



NOT SUPPORTED 
RETURN 



ZZ-ENSAA-7,0 
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G 16 
$CHANNEL CALL - COMMON CALL RETURN 27-JUL-1984 Fiche 2 Fr«me G16 Seguence 407 

*** O l AN730 Channel services for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-01 Page 20 

SCHANNJL CALL - COMMON CALL RETURN 23-MAY-1984 H;09:53 DMA1 :CSYS0.SYSMAINT]CHAN730.MAR;A(17) 



50 00660001 8F DO 



0- 



00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
0OA9 
00A9 
00A9 
C0A9 
0OA9 
0CA9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
0OA9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
00A9 
OOBO 
OOBO 
OOBO 



657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

099 



+ + 



.SBTTL SCHANNEL CALL - COMMON CALL RETURN 
FUNCTIONAL DESCRIPTION: 

COMMON CALL RETURN 
CALLING SEQUENCE: 

BRW CHN.CALLJWN 
INPUT PARAMETERS: 



RO 

R5 = 

R6 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



CHN NORMAL RTN: 

MO^L 0DS$_NORMAL,RO 



COMPLETION CODE 

CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 



COMPLETION CODE 



CHN CALL RTN; 
RET 



; FLAG NORMAL RETURN 



; KLTURN 



ZZ-ENSAA-7,0 

CHAN730 

06-11 



SSETMAP CALL 



*** CHAN730 Channel services 
SSETMAP CALL 



408 



H 16 

27-JUL-1984 Fiche 2 Frame H16 Seguence 

for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-01 Page ?1 
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00B1 
0081 
00B1 
00B1 
0081 
0081 
00B1 
00B1 
0081 
00B1 
0081 
0081 
0081 
00B1 
C081 
0081 
00B1 
00B1 
0081 
0081 
0081 
0081 
0081 
0081 
0081 
0081 
0081 
0081 
00B1 
0081 
00B1 
00B1 
0081 
0081 
0081 
0081 
0081 
0081 
0081 
GOBI 
0081 
00B1 
0081 
0081 
0081 
0081 
00B1 



701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

71? 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

74 5 

746 

747 



+ + 



.S8TTL SSETMAP CALL 
FUNCTIONAL DESCRIPTION: 

SET ADPATER MAPPING 
CALLING SEQUENCE : 

ARGLST, a*DSX$SETMAP 
*6, a//DSX$SETMAP 

INPUT PARAMETERS: 



CALLG 

OR 
CALLS 



COMPLETION CODE 



4(AP) LOGICAL UNIT NUM8ER 

8 CAP) FUNCTION CODE 

12(AP) PHYSICAL ADDRESS(POINTER TO OWORD) 

16(AP) BASE ADDRESS(TO START MAPPING) 

201/P) BYTE COUNT 

24 (AP) DATA PATH NUMBER 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

DS$ NORMAL 
DS$lPROGERR 

DSSJHWE 

SIDE EFFECTS: 
NONc 



SUCCESS 
PROGRAM ERROR 

MISSING/INVALID P-TABLE 

ADDRESS/BYTE COUNT INVALID 

INVALID DATA PATH 
INITIAL ADAPTER HARDWARE ERROR ENCOUNTERED 



ZZ-ENSAA-7.0 
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SSETMAP CALL 



*** CHAN730 Channel 
SSETMAP CALL 



409 



services 
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1C 



50 53 

58 
58 58 



52 



52 



A5 
52 
53 
5A 



04 AC 

0250 

03 50 

01C0 

0C AC 

0184 

03 50 

01B3 



18 
10 
0C 
14 



17 

01FF 

17 

58 



AC 
AC 
BC 
AC 
09 

CA43 
09 
50 

0138 
03 50 

0186 

0152 

03 50 

017D 



OFFC 

DO 
30 
E8 

31 

DO 
30 
E8 

31 

DO 
DO 
DO 
DO 
EF 
9E 
EF 
C2 
30 
E8 
31 

30 
F* 
31 



50 08 AC DO 



or 00 50 CF 

0054' 
002A' 
0045' 
001V 
0037' 
0020* 
0075* 
0060 f 



0081 

0083 

00B3 

0087 

008A 

008D 

OOCO 

OOCO 

00C4 

00C7 

OOCA 

OOCD 

OOCD 

00D2 

C0D6 

OODA 

OODE 

00E3 

00E9 

OOEE 

00F1 

00F4 

OOF 7 

OOFA 

OOFA 

OOFD 

0100 

0103 

0103 

0107 

0107 

010/ 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0108 

0108 

010D 

010F 

0111 

0113 

0115 

0117 

0119 



749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

771 

774 

775 

776 

111 

17S 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 



.ENTRY DSX$SETMAP, A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 



10$: 



20$: 



60$: 



70$: 



30002$: 



MOVL 
BS8W 
BL8S 
BRW 

MOVL 
BS8W 
BL8S 
BRW 

MOVL 

MOVL 

MOVL 

MOVL 

EXT2V 

MOVAB 

EXTZV 

SU8L 

BSBW 

BL8S 

BRW 

BS8W 
BL8S 
BRW 



STM$ UNIT(AP),R2 
BLDCBB 
RO, 10$ 
STM_CALL..RTN 

STMS PHY(AP),R2 

RNGCRK 

RO, 20$ 

STM CALL RTN 



ERROR 



LOGICAL UNIT TO R2 
BUILD THE CDB 

YES - RETURN 



; GET THE PHYSICAL ADDRESS 
; RANGE CHECK 
; RANGE CHECK ERROR ? 
; YES- 



[05] 



[05.] 



STM$ PTH(AP),CDB$L PTH(R5) 

STM$~8AS<AP),R2 " 

aSTMj PHY(AP),R3 

STM$ CNT(AP),R10 

*9 f *23,R3, RO 

511<R10)[R3],R8 

#9,#23,R8,R8 

R0,R8 

BASCHK 

R0,60$ 

STM_CALL„RTN 

CNTCHK 
R0,70$ 
STM CALL RTN 



STMS FUNC(AP),RO 
RO,LTM]T=0O,TYPE=L,<- 



MOVL 

CASE 

NFWDN,- 

INVALIDATE,- 

MFWDN,- 

MFWDV,- 

NREVN,- 

INVALID,- 

MREVN,- 

MREVV,- 

INVALID, - 

INVALID,- 

MFWDNO,- 

MFWDVO,- 

INVALID,- 

INVALID,- 

MREVNO,- 

MREVVO,- 

> 

CASEL RO,AO,S*/K<30003$-30002$>/2>-1 

.SJGNED..WORD NFWDN-30O02S 

.SJGNED.WORD 1NVALJDATE-30002S 

.SIGNED WORD MFWDN-30002S 

.SIGNEDlWORD MFWDV-30002S 

.SIGNED.WORD NREVN-30002S 

.SIGNED WORD I NVAL 1 0-30002$ 

.SIGNED~WORD MREVN-30002S 

.SIGNEDlWORD MREVV-30002S 



R3 



REMEMBER THE DATA PATH 

YES- BASE ADDRESS TO R2 

START PHYSICAL ADDRESS TO 

BYTE COUNT TO R10 

Get PFN ot start page 

Last byte R10+R3-1 round to page 

Get PFN of last page 

End-start = maps to alloc 

CHECK BASE 

1? ERROR RETURN WITH 

BASCHK COMPLETION CODE 

CHECK COUNT 

U ERROR RETURN WITH 

CNTCHK COMPLETION CODE 

GET THE FUNCTION CODE 



NOMAP-F OR WARD-NOVAL I D A T E 

Invalidate all registers 

MAP-FORWARD-NOVALIDATE 

MAP-FORWARD-VALIDATE 

NOMAP-REVERSE-NOVALIDATE 

INVALID 

MAP-REVERSE-NOVAL1DATE 

MAP-REVERSE-VALIDATE 

INVALID 

INVALID 

MAP-FORWARD-NOVALIDATE-OFFSET 

MAP-FORWARD-VALIDATE-OFF SET 

INVALID 

INVALID 

MAP-REVERSE-NOVALIDATE-OFFSFT 

MAP-REVERSE-VALIDATE-OFF SET 



C083i 
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$SETMAP CALL 



*** CHAN730 Channel 
SSETMAP CALL 
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410 



50 00660020 8F 
Q14B 



0020' 
0020' 
00AB' 
0096* 
0020* 
0020' 
OOCF* 
OOBD' 



DO 
31 



65 18 CA 



65 
65 



65 
65 



00E2 
Q13B 

18 
65 
00D9 
00A2 
00E3 
00E1 
0129 



18 
65 
0093 
00D4 
00D2 
011A 



18 

65 

00C8 

00C6 

010E 



08 
iO 
00A9 
0072 
00B3 
0081 
00F9 



08 
10 
0060 
00A1 
009F 
00E7 



30 
31 

CA 

30 
30 
30 
30 
31 



CA 

30 
30 
30 
31 



CA 

30 
30 
31 



CA 
C8 
30 
30 
30 
30 
31 



CA 
C8 
30 
30 
30 
31 



0118 
011 D 
01 IF 
0121 
0123 
0125 
0127 
0129 
01 2B 
0128 
01 2B 
0132 
0135 
0135 
C138 
0138 
0138 
013E 
013E 
OHO 
0141 

0144 
0147 
014A 
0140 
0150 
0150 
0150 
0152 
0153 
0156 
0159 
015C 
015F 
015F 
015* 
0161 
0162 
0165 
0168 
016B 
016B 
016B 
016E 
0171 
0174 
0177 
01 7A 
0170 
0180 
0180 
0180 
0183 
0186 
0189 
018C 
018F 



796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 



30003$ 
JNVALJ 



.SIGNED 

.SIGNED' 

.SIGNED. 

.SIGNED. 

.SIGNED, 

.SIGNED 

.SIGNED" 

.SIGNED 



WORD 
WORD 
WORD 
'WORD 
'WORD 
'WORD 
'WORD 
'WORD 



INVALID 
INVALID 
MFWDNO- 
MFWDVO- 
INVALIO 
INVALID 
MREVNO- 
MREVVO- 



-30002$ 

-30002$ 

30002$ 

30002$ 

-30002$ 

-30002$ 

30002$ 

30002$ 



D; 
MOVL 
BRW 
INVALIDATE: 
B' r L 



MFWDV: 



MFWDN: 



NFWDN: 



MREVV: 



MREVN: 



BS8W 
BRW 

BICL 

BS8W 
BS8W 
BS8W 
BS8W 
BRW 



BICL 

BS8W 
BS8W 
BS8W 
BRW 



BJCL 

BS8W 
BS8W 
BRW 



BICL 
BISL 

BS8W 
BS8W 
BSBW 
BS8W 
BRW 



BICL 
BISL 
BSBW 
BS8W 
BS8W 
BRW 



#ds$ progerr,r0 
stm Call rtn 



0CDB$M 

COB$L_ 
CLRHAP 
STM NORMAL RTN 



OFFSET ! CDB$M - REV, 
FLAGS(R5) 



*CDB$M 0FFSET!CD8$M REV,- 

CDB$L FLAGS(R5) 

CLRMAP 

SETMAP 

SETVAR 

SETCNT 

STM NORMAL RTN 



*CDB$M 0FFSET!CD8$M_REV,- 
CDB$L FLAGS(R5) 
SETMAP 
SETVAR 
SETCNT 
STM NORMAL RTN 



#CDB$M OFFSET!CDB$M REV,- 

CDB$L FlAGS(R5) 

SETVAR 

SETCNT 

STM NORMAL RTN 



*CDB$M,OFFSET,CDB$L FLAGS(R5) 

#CDB$M_REV,CDB$L_FLflGS(R5) 

CLRMAP 

SETMAP 

SETVAR 

SETCNT 

stm_normal_rtn 

#cdb$m offset, cd8$l flags(r5) 
*cob$m:rev,cdb$l p .flAgs(r5) 

SETMAP 
SETVAR 
SETCNT 
STM NORMAL. RTN 



INVALID 
RETURN 



FUNCTION CODE 



Clear all map regs 
Return OK 



C083 
C08] 
[083 
C083 



CLEAR OFFSET AND REVERSE FLAGS 

CLEAR ALL MAPS 

SET MAPS FOR FORWARD TRANSFER 

SET VAR if MBA 

SET BYTE COUNT IF MBA 

RETURN 



CLEAR OFFSET AND REVERSE FLAGS 

SET MAPS FOR FORWARD TRANSFER 

SET VAR IF MBA 

SET BYTE COUNT IF MBA 

RETURN 



CLEAR OFFSET AND REVERSE FLAGS 

SET VAR IF MBA 

SET BYTE COUNT IF MBA 

RETURN 



CLEAR OFFSET FLAG 

SET REVERSE FLAG 

CLEAR ALL MAP ENTRIES 

SET MAPS FOR REVERSE OPERATION 

SET VAR IF MBA 

SET BYTE COUNT IF MBA 

RETURN 



CLEAR OFFSET FLAG 

SET REVERSE FLAG 

SET MAPPING 

SET VAR IF MBA 

SET BYTE COUNT IF MBA 

RETURN 
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SSETMAP CALL 



*** CHAN730 Channel 
SSETMAP CALL 
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6S 
65 



65 
65 



65 
65 



08 

10 

009? 

0090 

00D8 



10 
08 
0073 
003C 
007D 
0078 
00C3 



10 
08 
002A 
006B 
0069 
0081 



18 
65 
004F 
0018 
0059 
0057 
009F 



18 
65 
0009 
004A 
0048 
0000 



CA 
C8 
30 
30 

31 



CA 
C8 
30 
30 
30 
30 
31 



CA 
C8 
30 
30 
30 
31 



C8 

30 
30 
30 
30 

31 



C8 

30 
30 
30 
31 



0192 

0192 

0192 

0195 

0198 

01 98 

019E 

01A1 

01A1 

01A1 

01A4 

01A7 

01AA 

01AD 

C180 

01B3 

0186 

0186 

01B6 

01B9 

018C 

01BF 

01C2 

01C5 

01C8 

01C8 

01C8 

OKA 

01CB 

OKE 

01D1 

01D4 

01D7 

O10A 

01DA 

01DA 

O10C 

01DD 

01E0 

01E3 

01E6 

01E9 



844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 
879 
880 
881 
882 
883 
884 
885 



NREVN: 



MFWDVO: 



MFWDNO: 



MREVVO: 



MREVNO: 



BJCL #CDB$M OFFSET, CDB$L FLA6S(R5) 

BJSL #CDB$m;rEV # CD8$L.FL»6S(R5) 

BSBW SETVAR 

BS8W SETCNT 

BRW STMJIORMAL RTN 



BJCL #CDB$M REV,CDB$L FLA6S(R5) 

BJSL #CDB$m:0FFSET,CDS$L,FLA6S(R5) 

BSBW CLRMAP 

BSBW SETMAP 

BSBW SETVAR 

BSBW SETCNT 

BRW STM NORMAL RTN 



BJCL #CDBSM_REV,CDBSL FLAGS (R5> 

BJSL *CDB$M OFFSET, CDBSL FLAGS(R5) 

BSBW SETMAP" 

BSBW SETVAR 

BSBW SETCNT 

BRW STM NORMAL RTN 



BJSL #CDB$M 0FFSET!CD8$M„REV, 

CDB$L r LAGS<R5) 

BS8W CLRMAP 

BS8W SETMAP 

BS8W SETVAR 

BSBW SETCNT 

BRW STM NORMAL RTN 



BISL 0CDBSM OFFSET !CD8$M_REV, 

CDB$L fLAGS(R5) 
BSBW SETMAP 
BSBW SETVAR 
BSBW SETCNT 
BRW STM NORMAL RTN 



CLEAR OFFSET FLAG 

SET REVERSE FLAG 

SET VAR JF MBA 

SET BYTE COUNT JF MBA 

RETURN 



CLEAR REVERSE FLAG 

SET OFFSET FLAG 

INVALIDATE MAPS 

SET MAPS 

SET VAR JF MBA 

SET BYTE COUNT JF MBA 

RE TURN 



CLEAR REVERSE FLAG 

SET OFFSET FLAG 

SET MAPPJNG 

SET VAR JF MBA 

SET BYTE COUNT JF MBA 

RETURN 



SET OFFSET AND REVERSE FLAGS 

CLEAR MAPS 

SET MAPPJNG 

SET VAR JF MBA 

SET BYTE COUNT JF MBA 

RETURN 



SET OFFSET AND REVERSE FLAGS 

SET MAPPING 

SET VAR JF MBA 

SET BYTE COUNT JF MBA 

RETURN 



ZZ-ENSAA-7,0 
CHAM730 

06-11 



SSETMAP CALL 



51 52 

08 

53 53 H 8F 

50 

50 80000000 8F 

65 08 

07 

50 02000000 8F 



0800 



00 

50 

C641 



LE 



53 
15 
50 
53 
51 
58 
08 



"* CHAN730 Channel 
SSETMAP CALL 



L 16 
27-JUL-1984 Fiche 2 Frame L16 Seguence 41? 

services for NEBULA 27-JUL-198A 15:OA:35 VAX-11 Macro V03-01 Page 25 

23-MAY-1984 14:09:53 DMA1 :CSYS0.SYSMAINTJCHAN730,«AR;A(18) 



DO 
BB 
78 
DA 
C8 
D3 
13 
C8 

F0 

DO 
D6 
D6 
F5 
BA 

05 



01E9 
01E9 
01E9 
01E9 
01E9 
01E9 
01E9 
01E9 
01E9 
01E9 
01EC 
01EE 
01F3 
01F5 
C1FC 
01FF 
0201 
0208 
0208 
0208 
020D 
0213 
0215 
0217 
021A 
021C 
021C 
021D 



887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

9H 



ROUTINE TO SET ADAPTER MAP REGISTERS 

CALLED BY: BSBW SETMAP 

R2 = BASE ADDRESS TO START MAPPING 

R3 = START PHYSICAL ADDRESS 

R6 = ADAPTER CSR ADDRESS 

R8 = NUMBER OF PAGES TO MAP 



SETMAP: 



10$: 



MOVL 

PUSHR 

ASHL 

CLRL 

BJSL 

BJTL 

BEQL 

BJSL 

INSV 

MOVL 

INCL 

INCL 

S08GTR 

POPR 

RS8 



R2,R1 

# A M<R3> 

0-9,R3,R3 

RO 

#UBI$M_MAP VALID, RO 

*CD8$M OFFSET, CDB$L FLAGS(R5) 

10$ " 

0UBI$M_MAP_BO,RO 

R3,*UBA$V MAP ADDR,- 
/ UBA$S MAP ADBR,R0 

:0,UBI$L„M£P(R6)[R1J 

(3 
R1 

R8,10$ 
A M<R3> 



BASE TO R1 

SAVE R3 

SHIFT PFN 

INN RO 

SET THE VALID BIT 

OFFSET MODE ? 

NO - 

YES- SET THE BIT 

INSERT THE PFN 
INTO RO 

CREATE THE MAP 
INC THE ENTRY 
INC THE POINTER 
DO ALL PAGES 
RESTORE R3 

RETURN 



B 

{ 

I 

E 

F 

G 

H 

1 

J 

< 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

( 

D 

F 

a 

G 

H 
! 

J 
K 
I 
M 
N 
B 
C 
D 
E 
F 
G 
H 



2 
2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 

<, 

A 



SCHSASTOEL - AST DELIVERY INTE 
SCHSASTDEL - AST DELIVERY INTE 
SCHSQAST - ENQUEUE AST CONTROL 
SCHSQAST - ENQUEUE AST CONTROL 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 

Handle 

Handle 

Handle 

Handle 



**+ ATTACH 
*** ATTACH 
*** ATTACH 
*** ATTACH 

Libraries, 

Data Psect 

Data Psect 

Data Psect 

Work Psect 

DSVSATTACH 

DSVSATTACH 

DSVSATTACH 

DSX$ATTACH 

DSXSATTACH 

DSXSATTACH 

DSXSATTACH 

Process 

Process 



ATTACH 

ATTACH 

ATTACH 

ATTACH 

Equated Symbols, 

Dec larations 

Declarations 

Declarations 

Declarations 

Attach command 

Attach command 

Attach command 

Process ATTACH 

Process ATTACH 

Process ATTACH 

Process ATTACH 

invalid generic 

invalid generic 



comma 
comma 
comma 
comma 
Ex 



Process invalid generic 
Get name processing 
Get name processing 
Get name processing 
Get name processing 
Get device attributes 
Get device attributes 
parse device name 
parse device name 



proc 
proc 
proc 

comm 
comm 
comm 
comm 
name e 
name e 
name e 



parse device 

parse device 

PT INTERPRET 

PT'INTERPRET 

PT'INTERPRET 

PT'INTERPRET 

PT'INTERPRET 

PT'INTERPRET 

PT'INTERPRET 

DP$EXTRACT 

DPSEXTRACT 

DPSEXTRACT 

DPSEXTRACT 

DPSEXTRACT 

DPSEXTRACT 



name 

name 

Decode 

Decode 

Decode 

Decode 

Decode 

Decode 

Decode 

Make 

Make 

Make 

Make 

Make 



P-table 
P-table 
P-table 
P-table 
P-table 
P-table 



PT-descrip 

PT-descrip 
PT-descrip 
PT-descHp 
PT-descrip 
PT-descrip 
PT-descrip 
printa 
printa 
printa 
printa 
printa 
printa 



Make 
GET LINE Condition getline 
GET'LINE Condition getline 
FORMAT PROMPT Format and load 
FORMAT'PROMPT Format and load 
DSVSShOwDEVICE Display device 
DSVSSHOWDEVICE Display device 
DSVSbHOWSELECT Display informs 
DSVSSHOWSELECT Display informa 



M 5 

N 5 



DSVSDEATTACH Dealtach device 
Deattach subtree 
DSVSSELECT Select 



B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 



B 
C 
D 
E 

r 

G 
H 

I 
J 
K 
L 
M 
N 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
3 



C 8 

D 8 

E 8 

F 8 

G 8 

K 8 

I 8 
J 
K 
L 



8 
8 
8 

M 8 
N 8 



9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 



device 
device 
device 
device 
device 



for 
for 
for 
for 
for 



DSVSSELECT Select 
DSVSSELECT Select 
DSVSSELECT Select 
DSVSSELECT Select 
DSVSDESELECT Deselect device 
DSVSDESELECT Deselect device 
DSVSDESELECT Deselect device 
DSVSDESELECT Deselect device 
DSVSDESELECT Deselect device 
SHOW DEV Routine 
SHOWDEV Routine 
SHOW'DEV Routine 
INISPTABLE Initialize P-table 
INISPTABLE Initialize P-table 
Check ambiguous device 
Check ambiguous device 
Locate /Adapter value 
Locate /Adapter value 
LOCSPTABLE Routine 



Locate 
Insert 
Insert 



LOCSPTABLE 
LOCSPTDESC 
LOCSPTDESC 
INSSPTABLE 
INSSPTABLE 
Symbol table 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
*** BOOTDRIVR 
*** BOOTDRIVR 
*** BOOTDRIVR 
*** BOOTDRIVR 
Declarations 
Declarations 
DRIVER FIXED 



Routine 

Locate PT-descripto 

PT-descripto 

P-table 

P-table 



Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 



non-interrupt 1/ 

non-interrupt 1/ 

non-interrupt 1/ 

non-interrupt 1/ 



DATA AREA 



B 10 
C 10 
D 10 



B00SQJ0 

B00SQJ0 

BOOSQIO 

B00SQI0 

BOOSQIO 

800SMAP 

BOOSMAP - ROUTINE TO MAP DATA 

BOOSPURDPR - Purge UBA Buffere 

BOOSPURDPR - Purge UBA Buffere 

BOOSPURDPR - Purge UBA Buffere 



BOOTSTRAP 
BOOTSTRAP 
BOOTSTRAP 
BOOTSTRAP 
BOOTSTRAP 
ROUTINE TO 



QIO 
QJO 
QIO 
QIO 
QIO 
MAP 



ROUTIN 
ROUTIN 
ROUTIN 
ROUT J N 
ROUTIN 
DATA 



E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 

I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
I 



BOOSSELECT - Select boot drive 
BOOSSELECT - Select boot drive 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 

- BOOTSTRAP FJLEREAD JO MODULE 

- BOOTSTRAP FiLEREAD 10 MODULE 

- BOOTSTRAP FILEREAD 10 MODULE 

- BOOTSTRAP FILEREAD 10 MODULE 

- BOOTSTRAP FILEREAD 10 MODULE 
RDWRTLBN - READ/WRITE LOGICAL 
BOOSCACHEJNIT - JNIT FILEREAD 
BOOSCACHE INIT - IWIT FILEREAD 
BOOSCACHE'JNiT - INIT FILEREAD 
BOOSIMAGE'ATT - Get image attr 
SYSSASSIGN, Dummy assign devic 
Symbol table 

Cross reference 
Cross reference 
*** BUFCTL QIO buffer control 
*** BUFCTL QIO buffer control 
*** BUFCTL QIO buffer control 
GET ONE BYTE OF DATA FROM USER 
PUT ONE BYTE OF DATA INTO USER 
INITIALIZE FOR SINGLE BYTE TRA 
MOVE FROM U^ER BUFFER 
MOV/ TO USER BUFFER 
FILL "YSTEM PTE WITH TRANSFER 
Symbol *aote 
Psect sy. opsis 
Cross re erence 
Cross reference 
*** BU FER GETBUF/RELBUF routi 
*** BUFFER GETBUF/RELBUF routi 
DECLARATIONS 

GET A VERTUAL MEMORY BUFFER. 
GET A VERTUAL MEMORY BUFFER, 
RELEASE A MEMORY BUFFER. 
RELEASE A MEMORY BUFFER. 
Symbol table 
Psect synopsis 
reference 
reference 
reference 
reference 

cancel QIO 

cancel QIO 

cancel QIO 

ON CHANNEL 

ON CHANNEL 

ON CHANNEL 



Cross 

Cross 

Cross 

Cross 

*** CANCEL 

*** CANCEL 

*** CANCEL 

CANCEL 1/0 

CANCEL 

CANCEL 

Symbol 

Symbol 

Psect 



I/O 
I/O 
table 
table 
synops 



Cross reference 
Cross reference 
Cross reference 



M H *** CHAN730 C 

N 14 *** CHAN730 C 

b 15 *** CHAN730 C 

C 15 DECLARATIONS 

D 15 DECLARATIONS 

E 15 DECLARATIONS 

F 15 DECLARATIONS 

G 15 DECLARATIONS 

H 15 SCHANNEL CALL 

I 15 SCHANNEL CALL 

J 15 SCHANNEL CALL 

K 15 SCHANNEL CALL 

L 15 SCHANNEL CALL 

M 15 * CHANNEL CALL 

N 15 SCHANNEL CALL 

B 16 SCHANNEL CALL 

C 16 SCHANNEL CALL 

D 16 SCHANNEL CALL 

E 16 SCHANNEL CALL 

F 16 SCHANNEL CALL 

G 16 SCHANNEL CALL 

H 16 SSETMAP CALL 

I 16 SSETMAP CALL 

J 16 SSETMAP CALL 

K 16 SSETMAP CALL 

L 16 SSETMAP CALL 



hannel services f 
hannel services f 
hannel services f 



ADAPTER INIT F 
BUS INN FUNCT 
ABORT FUNCTION 
ENABLE INTERRU 
PURGE 

DISABLE INTERR 
CLEAR ADAPTER 
GET ADAPTER ST 
SET DEFEAT PAR 
CLEAR DEFEAT P 
COMMON CALL RE 



J>?NSAA-7.0 

-A\ 7 30 



SSETMAP CALL 



413 



*** CHAN730 Channel 
SSETMAP CALL 



B 1 
27-JUL-1984 Fiche 3 Frame B1 Seguence 
services for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-0T £?9 e ?£ N 

c DMA1:[SYS0.SYSMAINT]CHAN730.MAM(18) 



F3 50 



50 

0800 C640 
000001 FF 8F 



DA 
D4 
F3 
05 



05 



05 



50 00660020 
51 52 

00000200 8F 

50 00660001 



8F 
58 
51 

07 
8F 



DO 
C1 
D1 
14 
DO 

05 



50 01 



DO 
05 



021D 

021D 

021D 

021D 

021D 

021D 

021D 

021D 

021F 

0224 

022C 

022D 

022D 

022D 

C22D 

022D 

022D 

022D 

022D 

022D 

022D 

022D 

022D 

022E 

0,?2E 

022E 

022E 

022E 

022E 

022E 

022B 

022E 

022E 

022F 

022F 

022F 

022F 

022F 

022F 

022F 

022F 

022F 

022F 

0236 

023A 

0241 

0243 

024A 

024A 

024B 

0248 

024B 

024B 

0248 

0248 

024B 

024E 



916 
917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

92* 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

94 5 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

057 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 
971 
Q72 



Routine to invalidate all adapter map entries 
Called by: Bsbw CLRMAP 
R6 = Adapter CSR address 



CLRMAP: 

10$: 



CLRL 
CLRL 

AOBLEQ 
RSS 



RO 

UBISL MAP(R6)CR0] 
0511, "RO, 10$ 



Clear RO 
Clear the mai 
Clear all 51, 
Return 



entry 
entries 



[10] 



ROUTINE TO SET ADAPTER VIRTUAL ADDRESS REGISTER 

CALLED BY BSBW SETVAR 

R2 = BASE ADDRESS 

R3 = START PHYSICAL ADDRESS 

R6 = ADAPTER CSR ADDRESS 

R10 = BYTE COUNT 



SETVAR: 



RS3 



; RETURN 



ROUTINE TO SET THE ADAPTER BYTE COUNT REGISTER 
CALLED BY: BSBW SETCNT 
R6 = ADAPTER CSR ADDRESS 
R10 = BYTE COUNT 



SETCNT: 



RS8 



; RETURN 



ROUTINE TO VERIFY THAT THE BASE ADDRESS 

PLUS THE NUMBER OF PAGES REGUIRED WILL 

FIT WITHIN THE MAPPING SPACE 

R2 = MAP BASE 

R8 = TOTAL PAGES TO MAP 



BASCHK: 



10$: 



MOVL 

ADDL3 

CMPl 

BGTR 

MOVL 

RS8 



0DS$ PROGERR,R0 

Rb,R?,R1 

R1, 0512 

10$ 

0DS$ NORMAL, RO 



NO - ERROR 
BASE + TOTAL FACES 
Is top register in range? 
YES- 
INDICATE SUCCESS 

RETURN 



[10] 



ROUTINE TO VALIDATE TRANSFER ADDRESS 
NOT IMPLEMENTED 



RNGCHK: 



MOVL 
RSB 



01, RO 



Success 



RETURN 






SSETMAP CALL 



*** CHAN730 Channel 
SSETMAP CALL 



C 1 
27-JUL-1984 Fiche 3 Frame CI Sequence 414 

services for NEBULA 27-JUL-1984 1! 0^:35 VAX-11 Macro V03-OT E?g e ,,?L 



53 



52 



0C 
01FF 
53 



50 



51 14 

00660001 
53 



50 00660020 



OF 
BC 
8F 
52 
53 
AC 
8F 
51 
07 
8F 



OE 



50 00660001 8F 



024F 
024F 
024F 
024F 
024F 
024F 
BB 024F 
7D 0251 
A8 0255 
C2 025A 
D6 025D 
00 025F 
DO 0263 
D1 026A 
15 C26D 
DO 026F 
0276 
0276 
BA 0276 
05 0278 
0279 
0279 
0279 
0279 
0279 
0279 
0279 
0279 
DO 0279 
0280 
0280 
04 0280 



973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 



ROUTINE TO VERIFY THAT REQUESTED BYTE COUNT 
WILL FIT IN REQUESTED BUFFER SJZE 



CNTCHK: 

PUSHR 

MOVQ 

BISW2 

SUBL2 

INCL 

MOVL 

MOVL 

CMPL 

BLEQ 

MOVL 

CNTCHKJUN: 
POPR 
RS8 



# A M<R1,R2,R3> 

aSTM$ PHY(AP),R2 

#*X1FF,R3 

R2,R3 

R3 

STM$ CNT(AP),R1 

#DS$"NORMAL,R0 

R1,R3 

CNTCHK RTN 

0DS$ PROGERR,RO 



4 A M<R1,R2,R3> 



SAVE R1 ~ R3 

BEGIN ADDR-> R2, END -> R3 
FORCE TO END OF PAGE 
FIND NUMBER OF BYTES 
PLUS ONE 
COUNT TO R1 

INITIAL COMPLETION CODE 
WILL BYTE COUNT FIT ? 
YES- 
NO - 



RESTORE 
RETURN 



REGISTERS 



3ETMAP M GLOBAL M EXIT 



STM NORMAL RTN: 

MOtfL #DS$..NORMAL,RQ 



STM CALL RTN; 
RET 



; IT WORKS 



; RETURN TO CALLER 



Z7-ENSAA-7.0 

CH4N730 
06-11 



OSPSSHOWMBA 



41 5 



50 00660080 8F 



*** CHAN730 
DSPSSHOWMBA 

0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
C281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
007C 0281 
DO 0283 
04 028A 



1 
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1006 

1007 

1008 

1009 

1010 

1 C1 1 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 



.SBTTL DSPSSHOWMBA 
+ + 
FUNCTIONAL DESCRIPTION; 

THIS ROUTINE WILL PRINT OUT THE CURRENT STATE OF OF THE MBA 
AS SPECIFIED BY THE ARGLIST 

CALLING SEQUENCE: 

CALLS #1, DSPSSHOWMBA OR 
CALLG ARGL J ST, DSPSSHOWMBA 

INPUT PARAMETERS: 

4 CAP) -> ADDRESS OF MBA CSR 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

DSS_NORMAL 
SIDE EFFECTS: 

NONE 



= SERVICE SUCCESSFULLY COMPLETED. 



.ENTRY DSPSSHOWMBA, A M<R2,R3,R4,R5,R6> 
MOVL 0DSS NOTJMP,R0 
RET 



ENTRY MASK (SAME AS SHOWCHAN) 
RETURN 



J 



Z!-ENSAA-7,0 

r HAN730 



0SPSSH0WUB1 



416 



50 



56 04 AC 

002C 

00660001 8F 



*** CHAN730 
DSPSSHOWUBI 

028B 
028B 
028B 
028B 
0288 
028B 
028B 
028B 
0288 
028B 
0288 
028B 
028B 
028B 
C28B 
028B 
028B 
028B 
028B 
028B 
0288 
0288 
028B 
028B 
0288 
028B 
0288 
0288 
0288 
0288 
0288 
028B 
028B 
028B 
0288 
0288 
028B 
0288 
007C 0288 
DO 028D 
30 0291 
DO 0294 
04 0298 



E 1 « 

27-JUL-1984 Fiche 3 Frame E1 Seguence 

Channel services for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-01 f*9 e ,,<Ax 
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1047 

1048 

1049 

1050 

1051 

1C52 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 



,S8TTL DSPSSHOWUBI 



FUNCTIONAL DESCRIPTION: 

THIS PROCEEDURE WILL INTERPRET THE CONTENTS OF THE UBI 
POINTED TO BY THE ARGLJST 

CALLING SEQUENCE: 



PUSHL 

CALLS 
OR CALLG 



<CSR ADDR> 

#1, DSPSSHOWUBI 

<ARGLIST>,DSP$SHOWUBI 



INPUT PARAMETERS: 

4(AP) -> ADDRESS OF UBI CSR 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

DSSjYORiMAL 
SIDE EFFECTS: 

NONE 



.ENTRY DSPSSHOWUBI, A M<R2,R3,R4,R5,R6> 
MOVL 4(AP),R6 
BS8W SHOW.UBI 
MOVL #DS$ NORMAL, RO 
RET 



= SERVICE SUCCESSFULLY COMPLETED, 



; ENTRY MASK (SAME AS SHOWCHAN) 

; COPY ADDRESS OF UBI CSR 

; INTERPRET THE UBI ADDRESS 

; SUCCESS OF COURSE 



ZZ-ENSAA-7,0 
CHAN730 



SSHOWCHAN CALL 



417 



*** CHAN 730 rhcr. 
SSHOWCHAN CALL 



27-JUL-1984 Fiche 3 Frame F1 Sequence 
r-jl services for NEBULA 27-JUL-1984 15:04:35 VAX-11 MaTo V03-01 f*9 e ,,59\ 



029C 
029C 
02M 
029C 

029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
C29C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
029C 
0?9C 
007C 029C 



52 



04 AC 

0065 

17 50 



DO 
30 
E9 



0015 30 



00000000'EF 
00000000' 9f 01 
50 00660001 8F 



9F 

FB 
DO 

04 



029E 
029E 
02A2 
0?A5 

o:a8 

02A8 
02A8 
02AB 
02A8 
02B1 
02B8 
02BF 
02BF 



1091 

1092 

1093 

1094 

1095 

1C96 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

P32 

1133 

1134 

1135 

1136 

1137 

1138 



1139 
1140 
1141 



++ 



CALLG 

OR 
CALLS 



.S8TTL SSHOWCHAN CALL 
FUNCTIONAL DESCRIPTION; 

DISPLAY ADAPTER REGISTERS 
CALLING SEQUENCE: 

ARGLST, a#DS$SHOWCHAN 
#1,a#DS$SH0WCHAN 
INPUT PARAMETERS: 

4(AP) LOGICAL UNIT NUMBER 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = COMPLETION CODE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

DS$,NORMAL 
DSS_PROGERR = 

SIDE EFFECTS: 
NONE 

.ENTRY DSX:SHOWCHAN,*M<R2,R3,R4,R5,R6> 



SUCCESS 
PROGRAM ERROR 
MISSING/INVALJI; P-TAB*.E 



10$: 



20$: 



MOVL SHWS UNIT(AP),R2 

BSBW BLDCP8 
B>8C RO, 20$ 

BSBW SHOW_UBI 

$DS PRINTB S L A FMT_CRLF 

PU5HAB l*fmt crlf 

CALLS #$SN,"a#DS$PRINTB 

MOVL 0DS$,NORMAL,RO 

RET 



GET THE LOGICAL UNIT NUMBER 
BUILD THE CDB 
Exit if error 

INTERPRET STATUS FOR UBI 

SEPARATE THE SHOWCHAN 

INDICATE SUCCESS 
RETURN 



C093 



C07] 



IZZ-ENSAA-7.0 

[CHAN730 

k»6-n 



SHOW.UBI STATUS 



*** CHAN730 Channel services 
SHOWJJBI STATUS 



C 1 
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02C0 


1143 




02C0 


1144 




02C0 


1145 




02C0 


1146 




02C0 


1147 




02C0 


1148 




02CO 


1149 




02C0 


1150 




02C0 


1151 




02C0 


1152 




0?C0 


1153 




02C0 


1154 




o?ro 


1155 




02C0 


1156 




C2C0 


1157 




02C0 


1158 




02C0 


11 50 




02C0 


1160 




O2C0 


1161 




02C0 


1162 


. 


02CO 


116* 




02C0 


1164 




02C0 


1165 




02C0 


1166 




02C0 


116? 




02C0 


1168 




02C0 


1169 


00000003'EF 9F 


02C0 




00000000* 9F 01 F8 


02C6 




05 


02CD 


1170 



+ + 



.S3TTL SHOW_UBI STATUS 
FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO PRINT U8I STATUS 
CALLING SEQUENCE: 

BSBW SH0W_UBI 
INPUT PARAMETERS: 

R6=ADDRESS OF UBJ CSR 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 



SHOW.UBI : 

$DS PRINTS S l*FMT_UBI_HDR 

PU5HAB L'FMTJJBl HDR 
CALLS #$$N, a*DS$PRINTB 
RSB 



; PRINT THE HEADER 



; RETURN 



C07] 



ZJ-ENSAA-7,0 

CHAN730 



SH0WB1TS 



419 



00000028'EF 63 
0000002CEF 54 



00000000' 9F 



00000020 'EF 
00000068' EF 
63 
7E 53 COOOOOOO 8F 

0G000000'9F 04 



*** CHAN730 
SHOWBITS 

02CE 

02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
C2CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
02CE 
DO 02CE 
DO 02D5 
02DC 
FA 02DC 
DF 02E7 
DD 02ED 
CB 02EF 
9F 02F7 
FB 02F9 
05 0300 



27-JUL-1984 Fiche 3 Frame Hi Sequence 
Channel services for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-07 p .?2 e ,,,*x 
1 23-MAY-1984 14:09:53 DMA1 ;CSYSO.SYSMAINT3CHAN730.MAR;4(23) 



32 



1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 
1204 
1205 
1206 
1207 
1208 



,S8TTL SHOWBITS 
FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO CVTREG AND PRINTB CSR BITS 
CALLING SEQUENCE: 

BSBW SHOWBITS 
INPUT PARAMETERS: 



R2 
R3 
R4 



ADDRESS OF FAO STRING TO BE OUTPUT 

ADDRESS OF DEVICE REGISTER 

ADDRESS OF ASCIC BIT DESCRIPTOR STRING 



IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



SHOWBITS: 

MOVL (R3), FMT CVT ARG+8 
MOVL R4,FMT CVT ARB+12 
$DS_CVTREG6 FMT tVTARG 

CACLG FRT C9TJ\RG, cWDSSCVTREG 
PUSHAL SHWBUF 
PUSHL <R3) 

BICL3 #3 a 30, R3, -<SP) 
PUSHAB (R2> 
CALLS 04,Q#DS$PRJNTB 
RSB 



CONVERT DEVICE REGISTER BITS 
USING THIS MASK 
INTO ASCII IN SHWBUF 

PARAM 4 ADDRESS OF BIT ENCODINGS 
PARAM 3 IS REG CONTENTS 
PARAM 2 IS REGISTER ADDRESS 
PARAM 1 IS FAO ASCIC STRING 
CALL OUTPUT ROUTINE 
RETURN 



ZZ-ENSAA-7.0 

CHAN750 
!06-11 



DETERMINE ADAPTER SPECIFIC STATUS 27-JUL-1984 « rtfti F ]£ h f i 3 ,r Fnme ]1 

*** CHAN730 Channel services for NEBULA 27-JUL-1984 15:04:35 
DETERMINE ADAPTER SPECIFIC STATUS 23-MAY-19C4 14:09:53 



Sequence 420 
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50 



0301 
0301 
0301 
0301 
0301 
0301 
0301 
0301 
02)01 
0301 
0301 
0^01 
0301 
0301 
C301 
03C1 
0301 
0301 
0301 
0301 
0301 
0301 
0301 
0301 
0301 
0^01 
0301 
D4 0301 
05 0303 



1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 



+ + 



.SBTTL DETERMINE ADAPTER SPECIFIC STATUS 
FUNCTIONAL DESCRIPTION: 

DETERMINE ADAPTER SPECIFIC STATUS 
CALLING SEQUEN , : 

BS6W , «;ts 
INPUT PARAMETERS 



R5 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

SIDE EFFECTS: 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 

NONF 

NONE 



ADPSTS: 



CLRL 
RSB 



RO 



; CLEAR RO 
; RETURN 



77-ENSAA-7.0 

CMAN730 

06-11 



DETERMINE GENERAL ADAPTER STATUS 27-JUL-1984 Fiche 3 Frame J] Seguence 421 
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50 



0304 


1240 


0304 


1241 


0304 


1242 


0304 


1243 


0304 


1244 


0304 


1245 


0304 


1246 


030^ 


1247 


0304 


1248 


0304 


1249 


0304 


1250 


0304 


1251 


0304 


1252 


0304 


1253 


C304 


1254 


0304 


1255 


0304 


1256 


0304 


1257 


0304 


1258 


0304 


1259 


0304 


1260 


0304 


1261 


0304 


1262 


0304 


1263 


0304 


1264 


0304 


1265 


0304 


1266 


D4 0304 


1267 


05 0306 


1268 



+ + 



.SBTTL DETEMINE GENERAL ADAPTER STATUS 
FUNCTIONAL DESCRIPTION: 

DETERMINE GENERAL ADAPTER STAT'JS 
CALLING SEQUENCE: 

BS8W GENSTS 
INPUT PARAMETERS: 



R5 

R6 

IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
COMPLETION COOES: 
3JDE EFFECTS: 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 

NONE 

NONE 



GENSTS: 



CLRL 
RSB 



RO 



CLEAR RO 
RETURN 



7:-ENSAA-7.0 

CMAN730 



K 1 

DETERMINE ADAPTER HARDWARE ERROR STATUS 27-JUL-1984 Fiche 3 Frame K1 Sequence <<22 
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35 



50 



0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
C307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
0307 
DA 0307 
05 0309 



1?70 

1271 

1272 

1273 

127* 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

:296 

1297 

1298 



+ + 



.SBTTL DETERMINE ADAPTER HARDWARE ERROR STATUS 
FUNCTIONAL DESCRIPTION: 

DETERMINE ADAPTbR HARDWARE ERROR STATUS 
CALLING SEQUENCE: 

BS8W HDWSTS 
INPUT PARAMETERS: 



R5 

R6 

IMPLICIT INPUTS: 
OUTPUT PARAME1ERS: 
IMPLICIT OUTPUTS: 
COMPLETION CODES: 
3JDE EFFECTS: 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 

NONE 

NG.NE 



HDWSTS: 



CLRL 
RS8 



RO 



CLEAR RO 
RETURN 



ZZ-ENSAA-7.0 

CMAM730 

U6-11 



DETERMINE ADAPTER HARDWARI 

*** CHAN7. 
DETERMINE 



ERROR STATUS 27-JUL-1984 Flche 3 Frame LI Seguence 423 

(0 Channel services for NEBULA 27-JUL-1984 15:04:35 VAX-1 Macro V03-0T ^9*^ 

ADAPTER HARDWARE ERROR STATUS 23-MAY-19M 14:09:53 DMA :LSYS0.SYSMAINTJCHAN73O.MAR;4(28) 



L__ 







030A 


1300 














030A 


1301 




.SBTTL 


BUILD 


THE CHANNEL DATA SLOCK 






030A 


1302 ; 


+ + 












030A 
030A 
030A 


1303 ; 

1304 ; 

1305 ; 


FUNCTIONAL DESCRIPTION: 






ROUTINE TO BUILD A ( 


:hannel data block for 






030A 


1306 ; 


LOGICAL UNIT 


NUMBER 


FOUND IN R2 






030A 


1307 ; 














030A 


1308 ; 


CALLING SEQUENCE; 








030A 


1309 ; 














330A 


1310 ; 




BSBW 


BLDCDB 






030A 


1311 ; 














030A 


1312 , 














030A 


1313 , 


INPUT 


PARAMETERS: 








C30A 


1314 , 














030A 


1315 , 




R2 


— 


LOGICAL UNIT NUMBER 






030A 


1316 ( 














030A 


1317 , 


IMPLICIT INPUTS: 


NONE 






030A 


1318 , 














030A 


1319 , 


OUTPUT PARAMETERS: 








030A 


1320 














030A 


1321 , 




RO 


z 


COMPLETION CODE 






C30A 


1322 




R5 


r 


CDB ADDRESS 






030A 


13?3 




R6 


= 


ADAPTER ADDRESS 






030A 


1324 














030A 


1325 


; IMPLICIT OUTPUTS: 


NONE 






030A 


1326 














030A 


1327 


; COMPLETION CODES: 








030A 


1328 














030A 


1329 




DS$ NORMAL 


= SUCCESS 






030A 


1330 




DS$lERROR 


= ERROR ($GPHARD) 






030A 


1331 








MISSING/INVALID P-TABLfc 






030A 


1332 














030A 


1333 


; SIDE 


EFFECTS 


; 








030A 


1334 














030A 


1335 




DESTROYS R5, 


R6 






030A 


1336 




SETS FLAG (CDB$M_UBJ) TO INDICATE ADAPTER TYPE 






030A 


1337 














030A 


1338 


; — 












030A 


1339 














030A 


1340 


BLDCDtt: 












030A 


1341 




$DS.GPHARD._S 


R2,-(SP) ; GET THE HARDWARE P-TABLE 


7E 


DF 


030A 








PUSHAL -(SP) 


52 


DD 


030C 








PUSHL 


R2 


00000000* 9F 02 


FB 


030E 








CALLS 


#2, a#DS$GPHARD 


56 8E 


DO 


0515 


1342 




MOVL 


(SP) + 


,R6 ; GET ADDRESS OF HP-TABLE 


2C 50 


E9 


0318 


1343 




BLBC 


RO, BLD RTN ; IS THERE ONE ? 


55 00000000'EF 


DE 


0318 


134/ 




MOVAL 


CDB$BL0tK,R5 rv ; CDB TO R5 
tf A CCDB$MJE,CDB$L_FLAGS(R5) ; Clear flags 


65 FFFFFFDF Sr 


CA 


0322 
0329 
0329 


1345 
1346 
1347 




BICL 


20 A6 


D5 


10$: 


TSTL 


HP$A 


LINK (AM ; SEARCH FOR ADAPTER ENTRY 


06 


13 


032C 


1348 




BEQL 


20$ - 


; FOUND IT 


56 20 A6 


DO 


032E 


1349 




MOVL 


HPSA 


LINK(R6),R6 ; KFEP LOOKING 


F5 


11 


0332 
0334 
0334 


13S0 
1351 


20$: 


BR8 


10$ 


9 


04 A5 56 


DO 


1352 




MOVL 


R6,CDB$A TBL(R5) ; SAVE THE P-TABLE ADDRESS 


56 18 A6 


DO 


0338 


1353 




MOVL 


HP$A. 


.DEVTCE(R6),R6 ; Base ot CSR's 



[05] 



M 1 

?/-ENSAA-7.0 BUILD THE CHANNEL DATA BLOCK . 27-JUM98* 1Qa /Nfc!?)|Ac Fr 8K ?] M ,rrn vOl-O^™" "Saae 37 

CHAN730 *** CHA.V30 Channel services for NEBULA 27-JUL-1984 J5:04:?5 VAX-11 Macro V05-01 m^,L(Vr) 

^t-n BUILD "hS CHANNEL DATA BLOCK 23-MAY-1984 1 A;09: 53 DMA1 ; [SY$0.SYSMAINTJCHAN730.MAR;4(28> 

00 65 U2 E3 033C 1355 B8CS #CDBSVJJBI,CDB$L_FLAGS<R5),40$ ; Flag as an UBI 

50 00660001 8F DO 0340 1357 <*0$: MOVL #DS$JW>RMAL,RO ; INDICATE SUCCESS 

0347 1358 

0347 1359 BLDJUN: KT1IDII 

05 0347 1360 RS8 ; RETURN 



77-ENSAA-7.0 

>AM730 

-6-11 



SET ADAPTER VECTOR(S) 

*** CHAN730 Channel services 
SET ADAPTER VECTOR(S) 



425 



27-JUL-1984 Fiche 3 Frame N Jeguenc . 
for NEBULA 27-JUL-1984 15:0^:35 VAX-11 Macro V.'i-OT Page 38 
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10 



51 
A5 



65 



04 
24 



04 

A!) 
A1 
?0 



51 
52 



so 



10000200 , EF 

00000200'EF 

50 0100 8F 



81 
FA 
00660001 



82 
50 
8F 
04 



0348 
0348 
0348 
0348 
0348 
034J 
0348 
0348 
0348 

0:.<.6 

0348 
03^8 
0348 
0348 
C348 
0348 
0348 
0348 
0348 
0348 
0348 
0348 
0348 
C348 
034S 
0348 
0348 
0348 
0348 
0348 
0348 
BB 0348 
034A 
DO 034A 
3C 034E 
C8 0353 
0356 
7E 0356 
9E 035D 
3C 0364 
0369 
DE 0369 
FS 036C 
DO 036F 
BA 0376 
05 0378 



1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 



+ + 



.SBTTL SET ADAPTER V> TOR(S) 
FUNCTIONAL DESCRIPTION: 

SET SCB VECTOR FOR ADAPTER/DEVICE TO POINT TO CHANNEL SERVICE 
CALLING SEQUENCE: 

BSBW SETVEC 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
COMPLETION CODES: 

PiS .NORMAL 
i>SS.IVVECT 
DOSJVADDR 

SIDE EFFECTS: 



10$: 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 

NONE 

NONE 

NONE 



SUCCESS 

INVALID VECTOR (SSETVFC) 

INVALID ADDRESS (SETVEC) 



NONE 



SETVEC: 



PUSHR # A M<R2> 

MOVL CDB$ATBL(R5),R1 

MOVZWL HP$W 9ECT0R(R1),CDB$A ADDR(R5) 

BISL #CDBSMJE,CDe$L_FLAGSTR5> 

MOVAQ SCB BASE+512,R1 

MCVA8 SCB"UNKINT+512,R2 

MOVZWL #2*<512/4>,R0 

MOVAL <R2)+ ( (R1>+ 

S08GTR ROJO$ 

fOVL *DSS NORMAL, RO 

POPR #*M<R2> 

RSB 



SAVE A WORKING REGISTER 

GET THE HARDWARE P-TABLE 
SAVE CHANNEL VECTOR 
INDICATE INTERRUPTS ENABLED 

Point to SCb 

Point to image 

Number of longwords to till 

Do one SCB page 
Copy whole page 
INDICATE SUCCESS 
RESTORE REGISTERS 



ZZ-ENSAA-7.0 

CHAN730 

06-11 



CLEAR ADAPTER VECTOR(S) 

*** CHAN730 Channel services 
CLEAR ADAPTER VECTOR(S) 



426 



B 2 
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65 20 



CA 
05 



0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
C379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0370 

0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
0379 
037C 



1409 

1410 

1411 

1412 

1413 

1414 

1415 

H16 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 



+ + 



.SBTTL CLEAR ADAPTER VECTOR(S) 
FUNCTIONAL DESCRIPTION: 

CLEAR CHANNEL SERVICE POINTERS IN SCB VECTOR SPACE 
CALLING SEQUENCE: 

BS8W CLRVEC 
INPUT PARAMETERS: 



R5 
R6 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

DS$ NORMAL 
DS$JVVECT 

SIDE EFFECTS: 

NONE 



CHANNEL DATA BLOCK 

CHANNEL CSR REGISTER ADDRESS 



COMPLETION CODE 



SUCCESS 

INVALID VECTOR (SCLRVEC) 



CLRVEC: 



BJCL 

RS8 



//CDB$M J E , CDB$L_F LAGS (R5) 



CLEAR IE 

RETURN WITH COMPLETION CODE 



ZZ-ENSAA-V.O 


INTERRUPT PRE-PROCESS 




CHAN730 


*** CHAN730 Char 


06-11 


INTERRUPT I 


>RE-PF 




037D 


1450 




037D 


K51 




037D 


1452 




037D 


1453 




037D 


1454 




037D 


1455 




037D 


1456 




037D 


1457 




037D 


1458 




037D 


1459 




037D 


1460 




037D 


1461 




037D 


1462 




037D 


1463 




C37D 


1464 




037D 


1465 




037D 


1466 




037D 


1467 




037D 


1468 




037D 


1469 




037D 


1470 




037D 


1471 




037D 


1472 




037D 


1473 




037D 


1474 




037D 


1475 




037D 


1476 




037D 


1477 




037D 


1478 




037D 


1479 




037D 


1480 




037D 


1481 




037D 


1482 




037D 


1483 




0370 


1484 



services 
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27-JUL-1984 Fiche 3 Frame C2 Seguence 427 

for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-01 E?9 e ,,49 x 
23-MAY-1984 14:09:53 DMA1 :[SYS0.SYSMAINT]CHAN730.MAR;4<31 > 



.S8TTL INTERRUPT PRE-PROCESS 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL PRE-PROCESS ALL CHANNEL ADAPTER INTERRUPTS 
AND PASS CONTROL TO THE DIAGNOSTIC PROGRAM 

CALLING SEQUENCE: 

INTERRUPT 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

CDBSA VEC MUST HAVE BEEN PREVIOUSLY SET BY SCHANNEL CALL TO 
ENABLE INTERRUPTS 

OUTPUT PARAMETERS: 

THE CHANNEL STATUS QUADWORD IS GENERATED 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 






ZZ-ENSAA-7.0 

CHAN730 

o6-n 



INTERRUPT PRE-PROCESS 

*** CHAN730 Channel services 
INTERRUPT PRE-PROCESS 



27-JUL-1984 Fiche 3 Frame D2 Sequence 428 

for NEBULA 27-JUL-1984 15:04:35 VAX-11 Macro V03-0? ^^ E?S e //4K 
c DMA1.'CSYS0.SYSMAINT]CHAN730.«AR;4(31) 



06 OOOOOOOO'EF 05 



55 



18 A5 



1A A5 





7E 




0063 8F 




7E 12 
12 17 


5 OOOOOOOO'EF 
56 04 A5 
56 18 A6 


14 

18 


FF5D 
51 50 

FF51 
50 51 
A5 50 

FF4A 
A5 50 


05 


02 8E 


14 AE 
18 


FEOO 8F 
A5 02 


50 
80 
60 


OC A5 
14 A5 
18 A5 


14 AE 


08 A5 




0063 8F 
8E 



037D 
0380 
EO 0380 
0388 
05 0388 
0389 
0389 
038C 
7C 038C 
038E 
BB 038E 
0392 
0392 
DB 0392 
DA C395 
0398 
DE 0398 
DO 039F 
DO 03A3 
03A7 
30 03A7 
DO 03AA 
30 03AD 
C8 03B0 
DO 03B3 
30 0387 
BO 03BA 
03BE 
FO 03BE 
03C4 
03C4 
AB 03C4 
A8 03CC 
03DO 
DO 03D0 
DO 03D4 
DO 03D8 
03DC 
DO 03DC 
03E1 
03E1 
BA 03E1 
D5 03E5 
05 03E7 
03E8 
03E8 
03E8 



1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 



.ALIGN 
DSI$CHANNEL_VEC; 
BBS 

RSB 

.ALIGN 
DSISCHANNEL: 

CLRQ 
DSI$CHANNEL COM: 

PUSHR 

DS8JNT 



LONG 

0CDBSV JE,CDB$L FLAGS+CDBS8L0CK, 
' DSISCHARNEL.COM 



1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 



MOVAL 

MOVL 

MOVL 

BS8W 
MOVL 
BSBW 
BJSL 
MOVL 
BSBW 
MOVW 

1NSV 



bkw: 

BISW 

MOVL 
MOVL 
MOVL 



INTJ)SP: 



POPR 
TSTL 
RS8 



.END 



LONG 

-(SP) 

A M<RO,R1,R5,R6> 

# A X17 

MFPR S A *PR$ JPL,-(SP) 

MTPR # A X17,5 A 4PR$JPL 

CDB$BL0CK,R5 
CDB$A TBL(R5),R6 
HP$AjEVICE(R6),R6 

HDWSTS 

R0,R1 

ADPSTS 

R1,R0 

RO,CDB$L STKR5) 

GENSTS 

R0,CDB$W.ST2(R5) 

<SP) + ,*CHI$V IPL,*CHI$SJPL, 
CDB$W.ST2(R5) 

# A C A X1FF,20(SP),CDB$W RVR(R5) 
#CHI$M..DEVINT,CD8$W_ST2(R5) 

CDBSA STORE (R5),R0 

CDB$L~ST1(R5),(R0)+ 

CDB$W"ST2<R5),(R0) 



MOVL CDB$A_VEC(R5),20(SP) 



A M<RO,R1,R5,R6> 
(SP) + 



IS INTERRUPT EXPECTED 

NO - RETURN TO UNEXPECTED HANDLER 



Dummy space to match UBI 

SAVE REGISTERS 

SAVE INTERRUPT LEVEL OF DEVICE 

& DISABLE DEVICE INTERRUPTS 



CDB ADDRESS TO R5 
P-TABL5 ADDRESS TO R6 
CHANNEL BASE ADDRESS TO R6 

GET HARDWARE ERROR STATUS 

SAVE THE STATUS 

GET ADAPTER SPECIFIC STATUS 

COMBINE STATUS 

SAVE IT 

GET GENERAL STATUS 

SAVE IT 

STORE THE IPL OF THE INTERRUPT 



SAVE THE VECTOR 

FLAG AS DEVICE INTERRUPT 

HANDLER'S STOR c . AREA TO RO 
HARDWARE ERROR STATUS 
RVR + GENERAL STATUS 

BUILD THE HANDLER ADDRESS 



RESTORE RO, R1 , R5, R6 
Remove JSB return 
Dispatch to handler 
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CHAN730 
Symbol table 

SSARGS 

$SN 

$ST1 

$ER 

SMODULE 

ADPSTS 

BASCHK 

BIT... 

BITO 

Bin 

BIT10 

BIT11 

B1T12 

BIT13 

BITH 

B1T15 

BIT16 

BIT17 

81T18 

BIT19 

BIT? 

BIT20 

BIT21 

B1T22 

BIT23 

BIT2A 

BIT25 

BIT26 

BIT27 

BIT28 

BIT29 

BIT3 

BIT30 

BIT31 

BITA 

BIT5 

BIT6 

BIT7 

BIT8 

BIT9 

BLDCDB 

BLD RTN 

CDBJA ADDR 

CDBSA,STORE 

C0B$A TBL 

CDBSA~VEC 

CDBSBCOCK 

CDB$L, FLAGS 

CDBSL.PTH 

C0BSL.ST1 

CDOSMJE 
CDBSM MBA 
CDBSMlOFFSET 

CDBSM REV 
CD8$M"UBA 

CDB$M"UBJ 
COBSVl IE 



Symbol table 



00000001 

00000001 

00000008 

00000001 

00000060 R 

00000301 R 

0000022F R 

0000001 E 

00000001 

00000002 

00000A00 

00000800 

00001000 

00002000 

00004000 

00008000 

00010000 

00020000 

000A0000 

00080000 

OOOOOOOA 

00100000 

00200000 

OOAOOOOO 

00800000 

0100JOO0 

02000000 

OAOCOOOO 

08000000 

10000000 

20000000 

00000008 

AOOOOOOO 

80000000 

00000010 

00000020 

OOOOOOAO 

00000080 

00000100 

00000200 

0000030A R 

000003A7 R 

00C00010 

oooooooc 

OOOOOOOA 
00000008 
00000000 RG 

ooocoooo 

0000001 c 
OOOOOOH 
00000020 
00000001 
00000008 
00000010 

= 00000002 
OOOOOOOA 

: 00000005 
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D 

D 

D 02 

D OA 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 
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D 

D 

D 

D 

D 

D 

D 
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D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



OA 



OA 
OA 



02 



CDBSV.MBA = 

CDBSV OFFSET = 

CDBSV'REV = 

CDBSV^UBA = 

CDBSV UBI = 
CDBSW'RVR 
CDB$W~ST2 

CDBSI7 = 

CHCS ABORT = 

CHCSlCLEAR - 

chcs.clrdft = 

chcs dsjnt = 

chcs enint = 

chcs^inita = 

chcs'injtb = 
chcs'purge 

chcs~self test = 
chcs.setdFt 

chcs status = 

chcs~stop = 

chisr„chnjnt = 
chi$m devjnt 

chism~ipl = 

chissijpl = 

chi$v chnjnt = 
chi$v~devjnt 

chisv'jpl = 

chm$ Forward = 
chm$jnvaudate = 

CHM$ MAP = 
CHMS'MFWDN = 
CHM$~MFWDN0 = 
CHMS~MFWDV = 
CHMS MFWDVO = 
CHMS'MREVN 
CHMS~MREVN0 = 
CHMS~MREVV = 
CHMS~MREVV0 
CHMS~NFWDN 
CHMS~NREVN = 
CHM$~OFFSET 
CHMS"REVERSE = 
CHNS'ADRI = 
CHNODR2 
CHNS.JUNC 
CHNS NARGS = 
CHN$"UNIT = 
CHN SBORT 
CHN^CALL RTN 
CHfTCLEAR 
CHN CLRDFT 
CHN'DSJNT 
CHN~DSP 
CHN'ENINT 
CHN'INITA 
CHN~JNJT8 
CHN~NORMAL RTN 



00000000 

00000003 

OOOOOOOA 

00000001 

00000002 

0000001 A 

00000018 

00000020 

00000002 

00000006 

00000009 

00000005 

OOOOOOOA 

00000000 

00000001 

00000003 

OOOOOOOB 

00000008 

00000007 

OOOOOOOA 

00000001 

00000002 

0000007C 

00000005 

00000000 

00000001 

00000002 

00000000 

00000001 

00000002 

00000002 

OOOOOOOA 

00000003 

OOOOOOOB 

00000006 

OOOOOOOE 

00000007 

OOOOOOOF 

00000000 

OOOOOOOA 

00000008 

OOOOOOOA 

OOOOOOOC 

00000010 

00000008 

OOOOOOOA 

OOOOOOOA 

OOOOOOAE R 

OOOOOOBO R 

0000008A R 

OOOOOOAO R 

0C00007F R 

OOOOOOOF R 

00000057 R 

00000035 R 

O00000A1 R 

000000A9 R 



D CHN PURGE 

D CHN~SETDFT 

D CHN'STATUS 

D CHSlM^BADBDP = 

b CHSSM BUSK 

D CHSSM'BUSINIT = 

D CHSSM BUSNXM = 

D CHSSMlBUSPDN = 

D CHSSM CHNDPE = 

D CHSSM'CHNERR = 

D CHSSM~CHNMPE = 

D CHSSM'CHPFOT = 

D CHSSM^DEVBUS = 

D CHSSM.DEVERR = 

D CHSSM DEVTO 

D CHSSM ERRANY = 

D CHSSM M8AATN = 

D CHSSM~MBACPE = 

D CHSSM MBADTB - 

D CHSSM'MBADTC = 

D CHSSM.MBAEXC = 

D CHSSM MBANED = 

D CHS$M"M8AWCKLUR= 

D CHSSM MBAWCKUPR* 

D CHSSM^PGMERR = 

D CHSSM^PGMHOE = 

D CHSSM SYSERR = 

D CHSSM^SYSMEM = 

D CHSSM„SYSSBJ 

D CHSSMJJIE = 

D CHSSV.BADBDP = 

D CHSSV.BUSIC 

D CHSSV BUSINIT = 

D CHSSV'BUSNXM = 

D CHSSV BUSPDN = 

D CHSSV CHNDPE = 

D CHSSV^CHNERR = 

D CHSSV.CHNMPE = 

D CHSSV„CHPF0T = 

D CHSSV.DEVBUS = 

D CHSSV.DEVERR = 

D CHSSV..DEVTO = 

D CHSSV.MBAATN = 

D CHSSV.MBACPE = 

D CHSSV.MBADTB = 

D CHSSV MBADTC = 

D CHSSV^MBAEXC = 

D OA CHSSV MBANED = 

D OA CHSSVlMBAWCKLWR= 

D OA CHSSV„MBAWCKUPR= 

D OA CHSSV.PGMERR = 

D OA CHSSV_PGMHDE = 

D OA CHSSV.SYSERR = 

D OA ChSSV.SYSMEM = 

D OA CHSSV.SYSSBI = 

D OA CHSSV UIE 

D OA CLRMAP 



00000076 

00000097 

0000008D 

20000000 

00800000 

OOAOOOOO 

08000000 

01000000 

OOOOOOAO 

00000002 

00000080 

00000100 

00000010 

OOOOOOOA 

00000020 

OOOOOOOF 

00100000 

00200000 

OOOAOOOO 

00080000 

00010000 

00020000 

02000000 

OAOOOOOO 

00000008 

00000800 

00000001 

00000200 

OOOOOAOO 

10000000 

0000001 D 

0000001 7 

00000016 

0000001 B 

00000018 

00000006 

00000001 

00000007 

00000008 

OOOOOOOA 

00000002 

00000005 

OOOOOOH 

00000015 

00000012 

00000013 

00000010 

00000011 

00000019 

0000001 A 

00000003 

OOOOOOOB 

00000000 

00000009 

OOOOOOOA 

0000001 c 

00000210 



R 



D OA 

D OA 

D OA 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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D 
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D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D OA 






ZZ-ENSAA-7.Q 
CHAN730 
Symbol table 

CLRVEC 

CNTCHK 

CNKHK RTN 

CVTST RBAMAP 

CVTST~MBASR 

CVTST'UBADPR 

CVTST~UBAMAP 

DSSCVTREG 

DSSGPHARD 

DSSK ERROR 

DSSKJJORMAL 

DSU.SEVERE 

DSSK SUBSYS 

DSSK~WARNING 

DSSPRlNTB 

OSS ARITH 

DSS~ASBE 

DSS^BADLINK 

DS$ BAOTYPE 

DStlBIIC 

DSS_CHME 

DSS CHMK 

DSS'DEVNAME 

DSS'ERROR 

DSS~FHWE 

DSS'FRAGBUF 

DSS'ICBUSY 

DSS'lCERR 

DSS'lHWE 

DSS'ILLCHAR 

0S$IILLPAGCNT 

DSS ILLUNIT 

OSS'INSFMEM 

DSS"IPL2HI 

DSS'IVADDR 

DSS'lVVECT 

DSS'KRNLSTK 

DSS~LOGIC 

DS$~.4CHK 

DSS'MMOFf 

DSS~NEEDUNJT 

DSS^NODE 

DSS NOPCS 

DSSlNORMAL 

DSS NOSUPPORT 

DSS'NOTDON 

DSS'NOTIMP 

DSS>ULLSTR 

DSS OVERFLOW 

DSS'POWER 

DSS~PROGERR 

DSS'SEVERE 

DSS~TRANSL 

DSS'TRUNCATE 

DSS"UNEXPJNT 

DSS'VASFULL 

DS$~WARNING 



Symbol table 
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00000379 
0000024F 
00000276 
00000054 
00000050 
00000058 
0000005C 
******** 
******** 

00000002 
00000001 
00000004 
00000066 
00000000 

******** 

006600DO 
00660118 
006600F0 
006600E8 
00660120 
006600A8 
006600E0 
00660108 
00660002 
00660068 
00660080 
006600C8 
006600CO 
00660060 
0C660018 
00660078 
00660100 
00660050 
006600B8 
00660040 
00660038 
00660090 
00660070 
00660088 
00660058 
006600F8 
00660128 
00660H0 
00660001 
006600B1 
00660030 
00660080 
00660010 
00660008 
00660098 
00660020 
00660004 
: 006600A0 
: 00660028 
006600D8 
: 00660048 
: 00660000 



04 



04 



R D 04 

R D 04 
R D 04 
RG D 02 
RG D 02 
RG D 02 
RG D 02 
X 04 
X 

D 

D 

D 

D 

D 
X 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



DSISCHANNEL 

DSJSCHANNEL_COM 

DSiSCHANNEL VEC 

DSPSSHOWMBA 

DSPSSHOWUBI 

DSXSCHANNEL 

DSXSSETMAP 

DSXSSHOWCHAN 

FMT CRLF 

FMrcVT.ARG 

FMT UR1_CSR 

FMT UBI.HDR 

GEN5TS 

HDUSTS 

HPSA DEPENDENT 

HPSAlDEVJCE 

HPSA DVA 

HPSA^LINK 

HPSB_DRIVE 

HPSB FLAGS 

HPSQ DEVICE 

HPSrDEVKE 

HPST~TYPE 

HPSWlSIZE 

HPSW VECTOR 

INT BSP 

INVALID 

INVALIDATE 

JMPADR 

MBA MAP SIT 

MBA~SR 5JT 

mfwDn " 

MFWDNO 

MFWDV 

MFWDVO 

MREVN 

MREVNO 

MREVV 

MREVVO 

NFWDN 

NREVN 

PARSM ATDEF 

PARSM~ATHI 

PARSM^ATLO 

PARSM NODFF 

PARSV~ATDEF 

PARSVjUHl 

PARSV ATLO 

PARSV"NODEF 

PARS SIN 

hars;dec 

^ARS HEX 
r>ARS>0 
PARS OCT 
PARS'YES 
PRS JPL 
RNGCHK 



0000038C 

0000038E 

00000380 

00000281 

0000028B 

00000000 

000000B1 

0000029C 

00000000 

00000020 

0000001 F 

00000003 

00000304 

00000307 

00000032 

00000018 

0000001 C 

00000020 

000000OB 

OOOOOOOA 

00000000 

oooooooc 

00000026 
00000008 
00000024 
000003E1 
000001 2B 
00000135 
00O000E9 
0000003D 
0000003D 
00000150 
000001 B6 
000001 3E 
000001A1 
00000180 
OOOOOIDA 
0000016B 
000001 C8 
000001 5F 
00000192 
00000010 
00000008 
00000004 
00000002 
00000004 
00000003 
00000002 
00000001 
00000002 
OOOOOOOA 
00000010 
00000000 
00000008 
00000001 
: 00000012 
00000248 



R 

R 

RG 

RG 

RG 

RG 

RG 

RG 

R 

R 

R 

R 

R 

R 



D 04 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



04 
04 
04 
04 
04 
04 
04 
03 
02 
03 



D 03 



04 
04 



04 
04 
04 
02 
03 
03 
04 
04 
04 



D 04 
D 04 



04 
04 
04 
04 
04 



SCB_BASE 

scb unkint 
setTnt 

SE TMAP 
SETVAR 
SETVEC 
SHOWBITS 
SHOW UBI 

SHWSR BUFSIZ = 
SHWS RARGS = 
SHWS'UNIT = 
SHWBDF 
SIZ... 
STMS BAS 

STMS^CNT = 
STMS FUNC = 
STMS NARGS 
STMS~PHY = 
STMS PTH 

STMS'UNIT = 
STMjALL RTN 
STM NORMAL RTN 
UBAlS MAP.ADDR = 
UBASV MAP ADDR = 
UBA_Df 5 R„BlT 
UBA MAP BIT 
UBlSl.CSR = 
UBISLJ1AP 
UBISMJ1AP_B0 = 
U8ISM MAP VALID* 
UBISSlMAP^BO = 
UBISSJ1AP DPD = 
UBISS MAP PFN = 
UBISV"MAP~BO = 
UBlSV"MAPlDPD = 
UBISV MAP PFN = 
UBJSV"MAP"VALID= 
UBIVEC " 



******** 
******** 

0000022E 

000001 E9 

0000022D 

00000348 

000002CE 

000002CO 

00000080 

00000001 

00000004 

00000068 

00000001 

00000010 

00000014 

00000008 

00000006 

OOOOOOOC 

00000018 

00000004 

00000280 

00000279 

00000015 

00000000 

0000003D 

0000003E 

00000000 

00000800 

02000000 

80000000 

00000001 

00000002 

OOOOOOOF 

00000019 

00000015 

00000000 

0000001 F 

OOOOOOED 



R 



04 
04 



X 04 
X 04 
R D 04 
R D 04 
R D 04 
R D 04 
R D 
R D 

D 

D 

D 
R D 02 

D 

D 

D 

D 

I) 

D 

D 

D 
R D 
R D 

D 

D 
R D 
R D 

D 

P 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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04 
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PSECT name 

ABS , 
SABSS 
WORK 
DATA 
CODE 



Allocation 

00000000 ( 

00000032 ( 

O00000F1 ( 

00000059 ( 

000003E8 ( 



! Psect synopsis ! 
t . MM _—-_.-+ 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

50.) 01 ( 1.) NOPIC USR 

241.) 02 ( 2.) NOPIC USR 

89.) 03 ( 3.) NOPIC USR 

1000.) 04 ( 4.) NOPIC USR 



CON 
CON 
CON 
CON 
CON 



ABS 


I a. 


NOSHR 


NOEXE 


NORD 


NOWRT NOVEC 


BYTE 


ABS 


I CL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BY It 


RFI 


LCL 


NOSHR 


NOEXE 


RD 


WRT NOVEC 


LONG 


RFI 


I CI. 


SHR 


NOEXE 


RD 


NOWRT NOVEC 


LUNG 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT NOVEC 


LONG 
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SYMBOL 

$$ARGS 

$$N 

$$T1 

SER 

MODULE 

ADPSTS 

BASCHK 

BIT... 

BITO 

BIT1 

BIT10 

81 Til 

B1T12 

BIT13 

BITK 

Bins 

BIT16 

BIT17 

BIT18 

BIT19 

BIT2 

BIT20 

B1T21 

BIT?? 

BIT23 

BIT24 

BIT25 

BIT26 

BIT27 

BIT28 

BIT29 

8IT3 

BIT30 

BIT31 

BIT4 

BIT5 

BIT6 

BIT7 

BIT8 

B1T9 

BLDCDB 

BID RTN 

CDB$A_ADDR 

CDBSA.STORE 

COB$A TBL 

CDBSA VEC 

COBSBCOCK 

C08$L_FLAGS 



VALUE 

=00000001 
=00000001 
=00000008 
=00000001 
00000060-R 
00000301 -R 
0000022F-R 
=0000001 E 
=00000001 
=00000002 
=00000400 
=00000800 
=00001000 
=00002000 
=00004000 
=00008000 
=00010000 
=00020000 
=00040000 
=00080000 
=00000004 
=00100000 
=00200000 
=00400000 
=00800000 
=01000000 
=02000000 
=04000000 
=08000000 
=10000000 
=20000000 
=00000008 
=40000000 
=80000000 
=00000010 
=00000020 
=00000040 
=00000080 
=00000100 
=00000200 
0000030A-R 
00000347-R 
0000C010 

oooooooc 

00000004 
00000008 
00000000-R 
00000000 



DEFINITION 



132 

1169 

132 

200 

200 

1236 

957 

128 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

I24 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

124 

1340 

1359 

172 
171 
169 

170 
179 

168 



(2) 

<??) 

(2) 

(3) 

(3) 

(24) 

(18) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(?) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(?) 

(2) 

(2) 

(2) 

(2) 

(?) 

(2) 

(?) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(28) 

(28) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 



+ ™™— + 

! Symbol Cross Reference ! 

+ — — -- ........ .-— — — — — 4 

REFERENCES... 

129 7?7 131 (2) 

#-1138 (2D #-1169 (22) 
129 (2) 131 (2) 



#-1506 
#-769 

104 



#-1133 
#-1343 
#-1396 
#-H18 
#-')35? 
#-1522 
1344 
#-1345 
#-801 
#-830 



(31) 
(18) 

(2) 



(21) 
(28) 
(29) 
(31) 
i*i ) 
(3D 
(28) 
(28) 
(18) 
(18) 



125 



#-264 



#-',25 
#-1395 
#-423 
1488 
1355 
#-806 
#-838 



(?) 



132 (2) 
132 (2) 

126 (2) 



128 



(2) 



(6) 



(10) 
(29) 
(10) 
(31) 
(28) 

M8) 
(18) 



n-752 



(18) 



#-1501 (3D 



1500 
#-1397 

#-815 
#-839 



(3D 
(29) 
(18) 
(18) 



#-1447 

#-823 

#-846 


(30) 
(18) 
(18) 


1488 
#-829 
#-847 


(31) 
(18) 

(18) 
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CHAN730 *** 
Iross reference 


CHAN730 Channel 


services 


I 2 
27-JUL-1984 Fiche 
for NEBULA 27-JUL-1984 15:04 
23-MAY-1984 14:09 


3 Frame 
:35 VAX- 
:53 DMA1 


12 Seguence 433 

11 Macro V03-01 _ Pa S e ,,4!k 
:CSYS0,SYSMAINT]CHAN730.MAR;4<31) 










#-853 


(18) 


ft- 


•854 


(18) 


#-862 


(18) 


#-863 


(18) #-871 (18) 










#-880 


(18) 


#• 


-901 


(18) 










COBSL.PTH 
CDBSL ST1 


0000001 C 
OOOOOOK 


176 
173 


(3) 
(3) 


#-761 
#-1508 


(18) 
(31) 


#■ 


-1519 


(31) 


#-569 


(14) 


#-570 


(14) 


CDB$M*1E 


=00000020 


152 


(2) 


#-1345 


(28) 


#• 


-1397 


(29) 


#-1447 


(30) 






CDBIM'MBA 
CDBSMJDFFSET 


=00000001 
=00000008 


147 
150 


(2) 
(2) 


#-800 
#-838 
#-879 


(18) 
(18) 
(18) 


#■ 
#• 


-805 
-846 
-901 


(18) 
(18) 
(18) 


#-814 
#-854 


(18) 
(18) 


#-822 
#-863 


(18) #-829 (18) 
(18) #-870 (18) 


CDBSM^REV 


=00000010 


151 


(2) 


#-800 
#-839 
#-879 


(18) 
(18) 
(18) 


#■ 
#' 


-805 
-847 


(18) 
(18) 


#-814 
#-853 


(18) 
(18) 


#-822 
#-862 


(18) #-830 (18) 
(18) #-870 (18) 


CDB$M UBA 


=00000002 


148 


(2) 




















CDB$M UBl 


=00000004 


149 


(2) 




















CDB$V"1E 


=00000005 


146 


(2) 


#-1488 


(31) 




152 


(2) 










COBSVIMBA 


=00000000 


141 


(2) 


147 


(2) 
















COBSV OFFSET 


-00000003 


144 


(2) 


150 


(2) 
















CDB$V~REV 


=00000004 


145 


(2) 


151 


(2) 
















CDBSV*"UBA 


=00000001 


142 


(2) 


148 


(?) 
















C0B$V"UBI 


=00000002 


143 


(2) 


#-1355 


(28) 




149 


(2) 










CDB$W~RVR 
CDB$W~ST2 


0000001A 
00000018 


175 
174 


(3) 
(3) 


#-1515 
#-1510 


(31) 
(31) 




1513 


(3D 


#-1516 


(31) 


#-1520 


(31) 


CDBSI7 


=00000020 


177 


(3) 


180 


(3) 
















CHC$ ABORT 


=00000002 


128 


(2) 




















CHCSlCLEAR 


=00000006 


128 


(2) 




















CHCS.CLRDFT 


=00000009 


128 


(2) 




















CHC$.DSINT 


=00000005 


128 


(2) 




















CHC$_ENINT 


=00000004 


128 


(2) 




















CHCSJNITA 


=00000000 


128 


(2) 




















CHCSJNITB 


=00000001 


128 


(2) 




















CHCS^PURGE 


=00000003 


128 


(2) 




















CHC$_SELF TEST 


=00000008 


128 


(2) 




















chcs^setdFt 


=00000008 


128 


(2) 




















CHC$ STATUS 


=00000007 


128 


(?) 




















cHC$~$Tor 


=0000000A 


128 


(2) 




















CHI$R CHNJNT 


=00000001 


128 


(2) 




















CHI$«"0EV1NT 


=00000002 


128 


(2) 


#-1516 


(31 ) 
















CHl$M"iPL 


=0000007C 


128 


(2) 




















CHI$S"IPL 


=00000005 


128 


(2) 


#-1512 


(31) 
















CUISV CHNINT 


=00000000 


128 


(2) 




















fMT$v"DEVJNT 


=00000001 


128 


(2) 




















: .i$v"ipl 


=00000002 


128 


(2) 


#-1512 


(31) 
















chm$ Forward 


=00000000 


128 


(2) 


128 


(2) 
















CHH$"INVALIOATE=00000001 


128 


(2) 


128 


(2) 
















chm$"map 


=00000002 


128 


(2) 


128 


(2) 
















CHMS'MFWDN 


=00000002 


128 


(2) 


















t 


CHM$~MFWDNO 


=0OOO0OOA 


128 


(?) 




















CHMS^MFWDV 


=00000003 


128 


(2) 




















CHM$.MFW0VO 


=00000008 


128 


(2) 




















CHM$ MREVN 


=00000006 


128 


(2) 




















CHH$*MREVNO 


=0000000E 


128 


(?) 




















CHMS'MREVV 


=00000007 


128 


(2) 




















CHM$~MREVVO 


=0000000F 


128 


(2) 




















CHM$~NFWDN 


=00000000 


128 


(2) 




















CHM$"NREVN 


=00000004 


128 


(2) 




















CH«$"0fFSET 


=00000008 


128 


(2) 


128 


(2) 
















CHMS^REVERSE 


=00000004 


128 


(2) 


128 


(2) 

















Z2-ENSAA-7.0 

CHAN730 

Cross reference 

CHNS ADR1 
CHNS~ADR2 

chns"func 
chn$~nargs 
chns'unit 
chn Abort 
chnjalljhn 

chn.clear 
chn clrdft 

CHN~DS1NT 

CHNfDSP 

CHN~EN1NT 

CHN'INITA 

CHN'lNITB 

CHN~N0RMAL RTN 

CHN'PURGE 

CHN"SETDFT 

CHKfSTATUS 

chsSm^badbdp 

chssm busk 

chssm"busin1t 

chssm'busnxm 

chssm*"buspdn 

chssm~chndpe 

chssm~chnerr 

chssm* chnmpe 

chssm~chpfot 

ch$sm~devbus 

chssm deverr 

chssm~devto 

chssm^errany 

chssm mbaatn 

chssm"mbacpe 

rHS$«"MBADTB 

CHSSM'MBADTC 

CHSSM~MBAEXC 

CHS$M>Jn.:ED 

CHSSM MBAWCKLWR 

CHSSMlMBAWCKUPR 

CHSSM PGMERR 

CHS$M"PGMHDE 

CHS$M"SYSERR 

CHSSM~SYSMEM 

CHSSM^SYSSBI 

CHSSM U1E 

CHSSV'BADBDP 

CHSSV"BU$IC 

CHSSV.BUSINJT 

CHSSV BUSNXM 

CHSSV'BUSPDN 

CHSSV'CHNDPE 

CHSSV'CHNERR 

CH$S\TCHNMPE 

CHSSV'CHPFOT 

CHSSV^OEVBUS 

CHSSV'OEVERR 



Cross reference 
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=0000000C 


129 


(2) 


=00000010 


129 


(?) 


=00000008 


129 


(2) 


=00000004 


129 


(2) 


=00000004 


129 


(2) 


0000004E-R 


380 


(9) 


000000B0-R 


698 


(V) 



00000084-R 527 (13) 

000000A0-R 653 (16) 

0000007F-R 495 (12) 

0000000F-R 269 (6) 

00000057-R 417 (10) 

00000035-R 314 (7) 

00000041-R 347 (8) 

000000A9-R 695 (17) 

00000076-R 459 (11) 

00000097-R 611 (15) 

00000080-R 568 (14) 

=20000000 128 (2) 

=00800000 128 (2) 

=00400000 128 (2) 

=08000000 128 (2) 

=01000000 128 (2) 

=00000040 128 (2) 

=00000002 128 (2) 

=00000080 128 (2) 

=00000100 128 (2) 

=00000010 128 (2) 

=00000004 128 (2) 

=00000020 128 (2) 

=0O0O00OF 156 (2) 

=00100000 128 (2) 

=00200000 128 (2) 

=00040000 128 (2) 

=00080000 128 (2) 

=00010000 128 (2) 

=00020000 128 (2) 

=02000000 128 (2) 

=04000000 128 (2) 

=00000008 128 (2) 

=00000800 128 (2) 

=00000001 128 (2) 

=00000200 128 (2) 

=00000400 128 (2) 

=10000000 128 (2) 

=00000010 128 (?) 

=00000017 128 (?) 

=00000016 128 (2) 

=0000001B 128 (2) 

=00000018 128 (2) 

=00000006 128 (2) 

=00000001 128 (?) 

=00000007 128 (2) 

=00000008 128 (2) 

=00000004 128 (2) 

ZQQQ0QQQ2 128 (2) 



#-423 
#-425 
#-270 

#-263 
282 

#-267 

#-461 
282 
282 
282 

#-265 
282 
28? 
282 

#-317 
282 
282 
28? 



12 



128 



128 
128 



(10) 
(10) 
(6) 

(6) 

(6) 

(6) 

(11) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(7) 

(6) 

(6) 

(6) 



(2) 



(2) 



(2) 
(2) 



#-570 



#-284 
#-497 



(14) 



(6) 
(12) 



#-350 
#-529 



(8) 
(13) 



#-382 
#-613 



(9) 
(15) 



#-429 
#-655 



(10) 
(16) 



#-571 



(14) 



156 



156 



(2) 
(2) 



156 
156 



(2) 
(2) 



ZZ-ENSAA-7.0 

CMAN730 

Cross reference 

CHSSV J)EVT0 

CHSSV MBAATN 

CHSSV^MBACPE 

CHSSV MBADTB 

CHSSV "MBADTC 

CHSSVlMBAEXC 

CHSSV MBANED 

CHSSV~MBAWCKIWR 

CHSSV"MBAWCKUPR 

CHSSVlPGMERR 

CHSSV_PGMHDE 

CHSSV_SYSERR 

CHSSV SYSMEM 

CHS$V~SYSSBI 

CHSSV"U1F. 

CLRMAP 

CLRVEC 

CNTCHK 

CNTCHK RTN 

CVTST flBAMAP 

CVTST'MBASR 

CVTST"U8ADPR 

CVTST~UBAMAP 

DSSCVTREG 

DSSGPHARD 

DSSK ERROR 

OSSK'NORMAL 

DSSK^SEVERE 

DSSK SUBSYS 

DSSK'WARNING 

DSSPRlNTB 

DSS ARITH 

DSS~AS8E 

DSSlBADLINK 

DSS BADTYPE 

DSS'BIK 

DSS~CHME 

DSS'CHMK 

DSS'DEVNAME 

DSS'ERROR 

DSS~FHWE 

DSS'FRAGBbF 

DSS~IC8USY 

l)SS~ICERR 

OSS IHWE 

DSS~ILLCHAR 

DSSJLLPAGCNT 

DSSJLLUNIT 

OSS INSFMEM 

PSSIIPL2HI 

OSS IVAODR 

0SS"IVVECT 

DSS~KRNLSTK 

DSS"LOGIC 

OSS^MCHK 

DSS MMOF r 

DSS^NEFDUNIT 



Cross reference 
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=00000005 

=00000014 

-00000015 

=00000012 

=00000013 

=00000010 

=0000001 1 

=00000019 

=^0000001 A 

=00000003 

=00000008 

=00000000 

=00000009 

=00C0000A 

=0000001 c 
0000021 D-R 
00000379-R 
0000024F-R 
00000276-R 
00000054-R 
00000050-R 
00000058-R 
0000005C-R 
00000000-XR 
00000000-XR 

=00000002 

=00000001 

=00000004 
=00000066 
=00000000 
00000000-XR 
=00660000 
=00660118 
=006600F0 
=006600E8 
=00660120 
=006600A8 
=006600E0 
=00660108 
=00660002 
=00660068 
=00660080 
=006600C8 
=006600C0 
=00660060 
=00660018 
=00660078 
=00660100 
=00660050 
=00660088 
=00660040 
=00660038 
=00660090 
=00660070 
=03660088 
=00660058 
=006600F8 



128 

128 

128 

128 

128 

,28 

128 

128 

128 

128 

128 

128 

128 

128 

128 

922 

1446 

978 

990 

188 

185 

191 

194 



125 
125 
125 
125 
125 

125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 



(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(18) 

(30) 

(18) 

(18) 

(3) 

(3) 

(3) 

(3) 



(2) 
(2) 
(2) 
(2) 
(2) 

(2) 

(2> 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(?) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 



#-802 
0-496 

#-987 



1202 
1341 



104 
1138 



(18) 
(12) 
(18) 

(18) 



(23) 
(38) 



(2) 
(21) 



#-807 



(18) #-831 (18) #-855 (18) #-872 



(18) 



125 
1169 



(2) 
(22) 



1207 (23) 



.„ J 



ZZ-ENSAA-7.0 

CHAN730 

Cross reference 

DS$ NODE 

DSS~N0PCS 

DSS~NORMAL 



Cross reference 



=00660128 
=00660110 
=00660001 



DS$ NOSUPPORT =006600B1 



DS$ NOTDON 

DS$IN0T1MP 

0S$ NULLSTR 

DS$~OVERFLOW 

DSS'POWER 

DS$~PR0GERR 

DS$"SEVERE 

DS$~TRaNSL 

DS$"TRUNCATE 

DS$~UNEXPINT 

OSS'VASFULL 

DS$~WARNING 

DS1$CHANNEL 

DSI$CHANNEL_C0M 

DSISCHANNEL..VEC 

DSPSSHOWMBA 

OSPSSHOWUBI 

DSX$CHANNEL 

DSXSSETMAP 

DSX$SHOWCHAN 

FMT CRLF 

FMfCVT ARG 

FMT'UBTCSR 

FMT'UBllHDR 

GEN5TS 

HOWSTS 

HPSA DEVICE 

HP$A~UNK 

HP$UfVECT0R 

INT BSP 

INVALID 

INVALIDATE 

JMPADR 

mba map bit 
mba'sr Bit 
mfwBn " 

MFWDNO 

MFWDV 

MFWDVO 

MREVN 

MRFVNO 

MREVV 

MREVVO 

NFWDN 

NREVN 

PARSM.MPEF 

PAR$M Ai'I'J 

FAfl^V-O 

PA><*;< tt-DFF 

f-V'SV '-Tt-CF 

hA8*V~ATHI 



=00660030 
^00660080 
:00660010 
:00660008 
=00660098 
=00660020 
=00660004 
=O06600A0 
=00660028 
=00660008 
=00660048 
-00660000 
0000038C-R 
0000038E-R 
00000380-R 
00000281 ~R 
0000028B-R 
00000000-R 
O00OO0B1-R 
0000029C-R 
00000000-R 
00000020-R 
0000001 F-R 
00000003-R 
00000304-R 
00000307-R 
00000018 
00000020 
00000024 
000003E1-R 
000001 28-R 
000001 35-R 
O00OO0E9-R 
0000003D-R 
CD00003D-R 
000001 50-R 
000001B6-R 
000001 3E-R 
000001A1-R 
000001 80-R 
000001 DA-R 
000001 6B-R 
000001 C8-R 
000001 5F-R 
000001 92-R 
=00000010 
=00000008 
=00000004 

=00000002 
=00000004 
=00000003 
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125 
125 
125 

125 



(2) 
(2) 
(2) 

(2) 



#-100*- 
#-696 
#-31 S 
#-612 



(18) 
(17) 
(7) 
(15) 



#-1088 
#-962 
#-349 
#-654 



(20) 
(10) 
(8) 
(16) 



125 


(2) 










125 


(2) 


104 


(2) 


#-1044 


(19) 


125 


(2) 










125 


(2) 










125 


(2) 










125 


(2) 


#-283 


(6) 


#-421 


(10) 


125 


(2) 










125 


(2) 










125 


(2) 










125 


(2) 










125 


(2) 










125 


(2) 


104 


(2) 


125 


(2) 


1493 


(31) 










1495 


(31) 


#-1489 


(31) 






1487 


(31) 










1043 


(19) 










1085 


(20) 










261 


(£> 










749 


(18) 










1130 


(21) 










206 


(4) 


1138 


(21) 






183 


(3) 


#-1200 


(23) 


#-1201 


(23) 


208 


(4) 










207 


(4) 


1169 


(22) 






1266 


(25) 


#-1509 


(31) 






1296 


(26) 


#-1504 


(31) 










#-1353 


(28) 


#-1502 


(3D 






#-1347 


(28) 


#-13*9 


(28) 






#-1396 


(29) 






1524 


(31) 










796 


(18) 


795 


(18) 






799 


(18) 


795 


(18) 






223 


(5) 










210 


(4) 


189 


(3) 






209 


(4) 


186 


(3) 






813 


(18) 


795 


(18) 






861 


(18) 


795 


(18) 






804 


(18) 


795 


(18) 






852 


(18) 


795 


(18) 






837 


(18) 


795 


(18) 






878 


(18) 


795 


(18) 






828 


(18) 


795 


(18) 






869 


(18) 


795 


(18) 






821 


(18) 


795 


(18) 






845 


(18) 


795 


(18) 






126 


(2) 










126 


(2) 










126 


(2) 










126 


(2) 










126 


(2) 










126 


(2) 











#-1139 

#-985 

#-381 



121 



(21) 
(18) 
(9) 



(2) 



#-1357 (28) #-1405 
#-460 (11) #-528 

125 (2) 



(29) 
(13) 



#-797 (18) #-958 (18) #-988 



(18) 



1202 (23) 



ZZ-ENSAA-7.0 

CHAN730 

Cross reference 

PARSV ATLO 

PARSV~NODEF 

PARS BIN 

PAR$~DEC 

PARS~HEX 

PAR$~N0 

PAR$~OCT 

PAR$~YES 

PRS TPL 

rngChk 

SCB BASE 

SCBJJNK1NT 

SETtNT 

SETMAP 

SETVAR 

SETVEC 
SH0WBIT$ 
SHOW UB1 

shw$R Bursi2 

SHWS RARGS 
SHW$"UNJT 

shwbDf 

SI2 

STMS BAS 

STMS'CNT 

STM$"FUNC 

STM$~NARGS 

STM$"PHY 

STM$"PTH 

STM$~UNIT 

stm Call rtn 
stm'ngrmAl rtn 



Cross reference 



=00000002 

=00000001 

=00000002 

=0000000A 

=00000010 

=00000000 

=00000008 

=00000001 

=00000012 
0000024B-R 
00000000-XR 
00000000-XR 
0000022E-R 

000001 E9-A 

0000022D-R 

00000348-R 
000002CE-R 
000002C0-R 
=00000080 
=00000001 
=00000004 
00000068-R 
=00000001 
=00000010 
=00000014 
=00000008 
=00000006 
=0000000C 
=00000018 
=00000004 
00000280-R 
00000279-R 



UBA$S MAP ADDR - 
UBA$V~MAP~ADDR * 

uba dpr.btt 
uba"*map~bit 
ubi5l_c5r 

UBI$L_MAP 

UBISM MAP BO 

UBISM'MAP^VALID' 

UBI$S~MAP_BO 

UBJSS'MAP^OPD ■ 

UBISS^MAP.PFN • 

UBI$V~MAP_BO 

UBI$V~MAP_DPD 

UBI$V"MAP PFN 

UBISV'MAP'VALID 

UBIVEt 



•00000015 
=00000000 
0000003D-R 
0000003E-R 
=00000000 
=00000800 
=02000000 
:80000000 
=00000001 
:00000002 
:0000000F 
=00000019 
=00000015 
=00000000 
=0000001 F 
000000ED-R 
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126 (2) 

126 (2) 

126 (2) 

126 (2) 

126 (2) 

126 (2) 

126 (2) 

126 (2) 

970 



947 

895 

937 

1392 

1199 

1168 

137 

132 

132 

222 

128 

131 

131 

131 

131 

131 

131 

131 

1003 

1000 



211 

213 

108 

109 

113 

111 

114 

116 

118 

112 

115 

117 

110 

224 



(18) 



(18) 

(18) 

(18) 

(29) 

(23) 

(22) 

(2) 

(2) 

(2) 

(5) 

(2) 

(2) 

(2) 

(2) 

(?) 

(2) 

(2) 

(2) 

(18) 

(18? 



(4) 
(4) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(?) 
(?) 
(?) 
(2) 
(5) 



#-1498 
0-757 
1399 
1400 
#-810 
#-849 
#-808 
#-864 
#-809 
#-848 
#-418 

#-1087 
183 

#-1132 
1203 
126 
#-762 
#-764 
tt-777 

#-756 
#-761 
#-751 
' 7 54 
, d03 
#-843 
#-884 
#-906 
#-905 
192 
195 

#-907 
#-903 
#-900 



113 

111 



(31) 
(18) 
(29) 
(29) 
(18) 
(18) 
(18) 
(18) 
(18) 
(18) 
<10) 

(20) 
(3) 

(21) 

(23) 

(2) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(18) 

(3) 

(3) 

(18) 
(18) 
(18) 



(2) 
(2) 



#-818 
#-858 
#-816 
#-873 
#-817 
#-857 



#-1136 
222 



183 
128 

#-984 
#-763 



#-759 
#-811 
#-850 



#-924 



(18) 
(18) 
(18) 
(18) 
(18) 
(18) 



(21) 
(5) 



(3) 
(2) 

(18) 

(18) 



(18) 
(18) 
(18) 



#-825 
#-866 
#-832 
#-881 
#-^24 
#-865 



(18) 
(18) 
(18) 
(18) 
(18) 
(18) 



#-834 
#-875 
#-840 

#-833 
#-874 



(18) 

(18) 
(18) 

(18) 
(18) 



#-842 
#-883 
#-856 

#-841 
#-882 



(18) 
(18) 
(18) 

(18) 
(18) 



#-980 



#-771 
#-819 
#-859 



(18) 



(18) 
(18) 
(18) 



#-775 
#-826 
#-867 



(18) 
(18) 
(18) 



#-798 
#-835 
#-876 



(18) 
(18) 
(18) 



(18) 



ZZ-ENSAA-7.0 Cross reference 




CHAN730 


*** CHAN730 < 


Iross reference 






MACRO SIZE 


DETlNITK-vg 


SCHNDEF 1 


87 


(2) 


*D1 PRINT S 1 


1138 


(21) 


$DEf " 1 


128 


(2) 


SDEFINI 1 


105 


(2) 


t-OS^BITDEF 2 


124 


(2) 


$DS CHCDEF 1 


128 


(2) 


$DS~CHDEF 1 


128 


(2) 


SDSlCHlDEF 1 


128 


(2) 


SDS CHMDEF 2 


128 


(2) 


$DS CHSDEF 3 


128 


(2) 


SDS"CVTREG^G 1 


1202 


(23) 


SDS'CVTREGJ. 1 


183 


(3) 


$DS~DSDEF 2 


125 


(2) 


SDS'GPHARD S 1 


1341 


(28) 


SDS"HP00EF" 2 


127 


(2) 


SDS'PARDEF 1 


126 


v2) 


$DS~PKINTB S 1 


1138 


(21) 


$EQD " 1 


128 


(2) 


SEQULS1 1 


128 


(2) 


SEQULST 1 


104 


(2) 


$GBL1NI 2 


104 


(2) 


SOFFDEF 1 


129 


(2) 


$PRDEF 4 


130 


(2) 


SSHWDF.F 1 


93 


(2) 


SSTMDEF 1 


90 


(2) 


SUBADEF 6 


105 


(2) 


SVIELD 1 


126 


(2) 


SVIELD1 


128 


(2) 


CASE 1 


2n 


(6) 


DSBINT 1 


K98 


(31) 


MOONAM 1 


200 


(3) 
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+ 4 

! Macro? Cross Reference i 

+... + 

REFERENCES... 

129 (2) 

1138 (21) 1169 (22) 

105 (2) 127 (2) 130 (2) 

124 i2) 

128 (2) 

128 (2) 

128 (2) 

128 (2) 

128 '2) 
1202 (23) 
183 (3) 

104 (2) 125 (2) 

1341 (28) 

127 (2) 

126 (2) 

1138 (21) 1169 (22) 

104 (2) 124 (2) 125 (2) 

104 (2) 125 (2) 128 (2) 

104 (2) 125 (2) 128 (2) 

104 (2) 124 (2) 125 (2) 

129 (2) 131 (2) 132 (2) 

130 (2) 
132 (2) 

131 (2) 

105 (2) 

126 (2) 128 (2) 

126 (2) 128 (2) 

271 (6) 778 (18) 

1498 (31) 

200 (3) 



126 (2) 
126 (2) 



128 (2) 
128 <2> 



+ — — — — ♦ 

! Performance indicators ! 
t + 



Phase 

Initial i nation 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



Elapsed Tim* 



32 


00:00:00.12 


132 


00:00:00.69 


939 


00:00:12.64 





00:00:00.75 


309 


00:00:03.71 


28 


00:00:00.21 


8 


00:00:00.04 


106 


00:00:01.41 


1558 


00:00:19.58 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.22 
01.79 
18.50 
01.06 
05.66 
00.77 
00.48 
01.62 
30.11 



The working set limit was 1000 paqes. . 

7 0128 bytes (137 pages) of virtual memory were used to buffer the intermediate code. 
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There were 30 pages of symbol table space allocated to hold 525 non-local and 18 local symbols. 
1530 source lines were read in Pass 1, producing object records in Pass 2. 
95 pages of virtual memory were used to define 25 macros. 

+ + 

! Macro library statistics ! 
+ + 

Macro library name Macros defined 

0RB1 :Cl)S.WORK]DlAG.MLB;955 15 

DRB1:CDS.WORK]DS.MLB;218 \ 

SYS$SYSR00T:[SYSLIB]L1B.MLB«1 3 

DMA1:CSYS0.SYSMAINT3DS.MLB;218 

DMA1:[SYS0.SYSMA1NT3D1AG.MLB;953 

SYS$SYSR00T:[SYSLI8]LIB.MLB;1 

SYSSSYSROOT:rSYSLlB]$TARLET.MLB;2 ] 

TOTALS (all libraries) 26 

619 GETS were required to define 26 macros. 

There were no errors, warninqs or information messages. 

MACR0/N00BJECT/LIST=CDS.LlS]/CR0SS/ENA8LE=(DEBU6JRAtE) CHAN730/UPDA=(CHAN730.UPD,CHAN730.ENH)+SYS$LIBRARY:LIB/LIBRARY+DMA1 :CSYS0.SY 



/Z-ENSAA- 
CHMK 


-7.0 


able of 


contents 


(1) 
(?) 
13) 
(5) 


85 
155 
181 
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DECLARATIONS 

CHANGE MODE TO KERNEL ROUTINE 

ASTEXIT SYSTEM SERVICE 

Local intermediate dispatches 



ZZ-ENSAA-7,0 

CHMK 

U7-07 



*** CHMK Change mode to kernel handler 

*** CHMK Change mode to 



D 3 

27-JUL-1984 Fiche 3 Frame D3 
kernel handler 27-JUL-1984 15:06:51 VAX-11 Macro 

23-MAY-1984 14:10:19 



Sequence 441 
V03-01 Page 1 
DMA1:[S V S0.SYSMAINT]CHMK. MAR/61 (1) 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 



.TITLE 
. 1DENT 
.LIST 
.NLJST 



CHMK 
/07-07/ 
MEB 
CNO 



*** CHMK Change mode to kernel handler 



COPYRIGHT (c) 1977, 1981 _ _ xr _,,.. 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY: 
ABSTRACT: 
ENVIRONMENT: 
AUTHOR: 
MODIFIED BY: 

01 

02 



03 

04 
05 



VAX DIAGNOSTIC SUPERVISOR. 



KEN CHAPMAN 
TOM SOUTTER 



10-NOV-77 



VERSION 01. 

VERSION 02 (ESSAA-4.01) 



29-MAR-78 
ADDED CHMK HANDLER FOR ASTEXIT 
D Butenhof 16-ian-80 
Add dispatch for SGIPR (Store/Get Int. Proc. Reg.) 



Roger Riggs f 

' CflKJMMON, 



06 
07 



12-Mar-1980 
Removed CMK$MM0N, CMKSMMOFF, added CMKSMMENABLE 
Dave Butenhof, 23-feb-198l , version 6.3 
Delete SEP psect, fix trunc. errors 
Make dispatch offsets .SIGNEDJrfORD to report signed 
truncation errors 

- Dave Buvenhoi, 08-Jun-1981 , version 6.4 
Add dispatch for CHKS.SETPRT 

- Jack Stansbury, 22-0U-1981, Version 6.- 
Added .LIBRARY statements for $DS and SDIAG. 
Fixed a truncation error. 



J 



ZZ-ENSAA-7,0 
CHMK 

07-07 



DECLARATIONS 



*** 



CHMK Change 
DECLARATIONS 



4B 



0000 54 

0000 55 

0000 56 

0000 57 

0000 58 

0000 59 

0000 60 

0000 61 

0000 62 

0000 63 

0000 64 

0000 65 

0000 66 

0000 67 

C000 68 

0000 69 

0000 73 

0000 74 

0000 78 

0000 79 

0000 80 

0000 81 

00000000 8? 

0000 83 
AD 48 43 00' 0000 
04 0000 
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.SBTTL DECLARATIONS 
INCLUDE FILES: 



2 
(1) 



.LIBRARY 
.LIBRARY 



/$DS/ 
/SD1AG/ 



[07: 

[07] 



MACROS: 



EQUATED SYM80LS 

CMKDEF 
DSFDEF 
SPSLDEF 
SPCBDEF 



OWN STORAGE: 



SMODULE: 



.PSECT 
MODNAM 



DATA, NOEXE, SHR, NOWRT, LONG 

CHMK 

.ASCIC \CHMK\ 



ZZ-ENSAA-7,0 

CHMK 

07-07 



CHANGE MODE TO 



KERNEL ROUTINE 
*** CHMK Chang 
CHANGE MODE TO 



e mode to kernel 
KERNEL ROUTINE 



27-JUL-1984 Fiche 3 Frame F3 Sequence 443 
handler 27-JUL-1984 15:06:51 VAX-11 Macro V03-01 u Page 3 
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0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

C005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 



85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 
109 
110 
111 
112 
113 
114 
115 

116 
117 

118 

119 



.S8TTL CHANGE MODE TO KERNEL ROUTINE 
+ + 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE DISPATCHES TO THE PROPER PRIVILEGED ROUTINE 
CALLING SEQUENCE: 

NONE 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFFCTS: 

NONE 



ZZ-ENSAA-7.0 

CHMK 

07-07 



CHANGE MODE TO 



KERNEL ROUTINE 
*** CHMK Change 



444 



CHANGE MODE TO "lirtNEL ROUTINE 



G 3 
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c 14:10:19 DMA1 :[SYS0.SYSMAINT]CHMK.MAR;61 



4 
(3) 



OOOOOOOQ'EF 
OD 00 



6E 
8E 



50 



00000000' EF 

19 

00000000' EF 



00000000' EF 

00 

01 

00000000 'EF 03 



OOOOOOOO'EF 
OOOOOOOO'FF 



00000000 
0000 
00000000 0000 
0004 
0004 
00000000 
0000 
0000 
0000 
0007 
OOOB 
OOOD 
OOOF 
0011 
C013 
0015 
0017 
0019 
0018 
001D 
001F 
0021 
0023 
0025 
0027 
0027 
002D 
002F 
0036 
0036 
003C 
003E 
0040 
0047 
0048 
0048 
004E 



DO 

CF 
0049' 
FFF5' 
FFF5' 
0066' 
001C 
FFF5' 
001 C* 
FFF5' 
006C 
0072' 
FFF5' 
FFF5' 
FFF5' 
0078' 

D5 
12 
DO 

DF 
DD 
DD 
► B 
02 

DD 
17 



.PSECT 
.ALIGN 

EXE CMODKRNL:: 
MOVL 
CASEL 

10$: 



121 

122 

123 CMKCODE 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 
149 



.PSECT WORK, NOEXE, NOSHR, WRT, LONG 

.LONG ; SAVED CODE FOR USER VECTOR. 



20$: 



150 

151 

152 30$: 

153 



TSTL 
BNEQ 
MOVL 
ERRSUP 



REJ 

PUSHL 

JMP 



CODE, EXE, SHR, NOURT, LONG 
LONG,0 

(SP), CMKCODE 

!SP)+, #0, *CMK$_LAST-1 ; DISPATCH. 



.SIGNED.WORD 
. SIGNED JJORD 
.SIGNED.WORD 
.SIGNED WORD 
.SIGNED"WORD 
.SIGNED WORD 
.SIGNED'WORD 
.S1GNED„W0RD 
.SIGNED.WORD 
. SIGNED JMRD 
.SIGNED WORD 
.SIGNEDJJORD 
.SIGNED..WORD 
,SIGNED_WORD 

L A DS$GA CHMKVEC 

30$ 

CMKCODt.RO 



PUSHAL SMODULE 

PUSHL #0 

PUSHL «ER 

CALLS #3, DS_ERRSUP 



CMKCODE 
aL A DS$GA.CHMKVEC 



rMK$ASTEXIT-10$ 

CMK$RCONSOLE-10$ 

CMK$TCONSULE-10$ 

MMENABLE-10S 

20$-10$ 

CMK$REFRESH«10$ 

20$-10$ 

CMK$HIBER-10$ 

INITSCB-10* 

SET1PL-10$ 

CMK$SGIPR-10$ 

CMK$CANTIM-10$ 

CMK$SETIMR-10$ 

SETPRT-10$ 



Unused change mode code 



Cancel timer kernel mode rtn 
Setimr kernel mode routine 
Set page protection 



; Check tor soft vector 

; Get code so ERRSUP prints 1t 



RESTORE CODE ON STACK. 
Go through user vector 



Z?-ENSAA-7.0 

CHMK 

U7-07 



ASTEX1T SYSTEM SERVICE 



H 3 
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ASTEXIT SYSTEM SERVICE 



5 
(3) 



50 04 AE 02 16 

14 

54 OOOOOOOO'EF 

00 OC A4 50 

OOOOOOOO'EF 

14 



0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

0054 

C054 

0054 

0054 

0054 

EF 0054 

B8 005A 

DE 005C 

E7 0063 

16 0068 

BA 006E 

02 0070 



155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

17? 

1?i 

174 

175 

176 

177 

178 

179 



.SBTTL ASTEXJT SYSTEM SERVICE 



CMKSASTEXIT - SERVICE TO EXIT AN ACTIVE AST AND ALLOW PENDING ASTS TO 
BE DELIVERED. 

THIS SYSTEM SERVICE IS INVOKED WITH A M CMK ASTEXIT" NOT CONTAINED IN 
A STANDARD SYSTEM SERVICE VECTOR TO AVOID CLUTTERING THE STACK WITH AN 
ADDITIONAL CALL FRAME DURING AST EXIT PROCESSING. 

INPUTS: 

NONE 

OUTPUTS: 

PCB$B.ASTACT IS CLEARED FOR THE ISSUING MODE 



CMKSASTEXJT:: 
EXTZV 
PUSHR 
MOVAL 
BBC CI 

10$: JS8 
POPR 
REJ 



; E X I T ACTIVE AST 
#PSL$V_PRVM0D,*PSL$S„PRVM0D,4(SP),R0 ;GET PREVIOUS MODE 



# A M<R2,R4> 
DStAX S0FTPC8,R4 

ro,pcb$b astact(r4),10$ 
schsnewlVl 

A M<R2,R4> 



SAVE R2,R4 
GET PCB CURRENT PCB ADDRESS 
CLEAR AST ACTIVE BIT FOR MODE 
COMPUTE NEW AST LEVEL SETTING 
RESTORE REGISTFRS<R2,R4> 
AND EXIT 



C073 



ZZ-ENSAA-7.0 

CHMK 

07-07 
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Local intermediate ft disgatches ^ 27-JUL-1984 15:06:51 VAX-11 Macro V03-0J Page 6 

Local intermediate dispatches 23-MAY-1984 H:10:19 DMA1 ;[SYS0.SY$MAINT]CHMK,MAR;61 (3) 



00000000'EF 17 

00000000'EF 17 

OOOOOOOO'EF 17 

OOOOOOOO'EF 17 



0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0077 

0077 

0077 

007D 

007D 

0083 

C083 

0083 

0089 

0089 



181 .SBTTL Local intermediate dispatches 
18? • ♦ 

183 ; Since CASE offsets have to be word relative, to fix truncation errors, 

184 ; dispatch to local JMP L A way-stations, 

185 ;- 
186 

187 MMENABLE: 

188 JMP 
189 

190 INJTSC8: 

191 JMP 
192 

193 SETIPL: JMP 
194 

195 SETPRT: 

196 JMP 
197 
198 .END 



L A CMK$MMENA8LE 

L A CMK$JNITSCB 
L A CMK$SETIPL 

L A CMK$SETPRT 



Dispatch memory management on 

Dispatch initialize SCB 
Dispatch set I PL 

Dispatch the trap 



ZZ-ENSAA-7.0 

CHMK 

Symbol table 

SER 

SMODULE 
CMKSASIcXIT 
CMKSCANTIM 

CMKSHlBER 

CMKS1NITSCB 

CMKSMMENABLE 

CMKSRCONSOLE 

CMKSREFRESH 

CMKSSET1MR 

CMKSSETIPL 

CMKSSETPRT 

CMKSSGIPR 

CMKSTCONSOLE 

CMKS_ 

CMKS ASTEXI1 

CMKS'CANTJM 

CMKS'HIBER 

CMKS^INITSCB 

CMKS'LAST 

CMKS'MMENABLE 

CMKS'RCONSOLE 

CMKS~RE. r RESH 

CMKS~SCHDWK 

CMkS~SETIMR 

CMK$ISEUPL 

cmks setprt 

cmks"s6ipr 

cmk$"tconscle 

cmkcOde 

dssax softpcb 

dssga~chmkvec 

dssm sbrtflg 

dssm~badtime 

ds$m"batch 

DS$MlBRKCLR 

DSSM BRKPT 

DSSM~CHARFLG 

DSSM~CMDFLG 

DSSM""CTRLC 

DSSM~CTRLO 

DSSM~DEVFLG 

DSSM'DJSABLCC 

DS$M"DONFLG 

DSSM~ERRFLG 

DSSM'EXCEPT 

DSSM'EXETST 

DSSM>LTFLG 

DSSM_LODFLG 

DSSM MEMMGT 

DS$M~OUTPUT 

DSSM~RU8FLG 

DS$M"SCRIPT 

DSSM~SETIMR 

DSSM'STRFLG 

DSSM'SUBT 

DSSM SYSFLG 



Symbol table 
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0000000? 
00000000 R 
00000054 RG 



**** 
**** 

* **% 
**** 
**** 

**** 

* *** 
**** 

* *** 



****. 

**** 
**** 
**** 
**** 
**** 
**** 
** ** 
**** 
**** 



D 

D 02 

D o4 

X 04 



******** 

00000004 
00000000 
OOOOOOOB 
00000007 
00000008 
OOOOOOOE 
00000003 
00000001 
00000005 
00000006 

oooooooc 

00000009 
OOOOOOOD 
OOOOOOOA 
00000002 
00000000 R 

******** 
******** 

00000040 

00100000 

00400000 

00001000 

00000800 

00000100 

00000080 

00000001 

00010000 

00000200 

01000000 

00002000 

00000010 

00080000 

00040000 

00000008 

00000002 

00008000 

00800000 

00000020 

00200000 

02000000 

OO00O0C4 

00004000 

00000400 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

P 

D 

D 

D 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



03 
04 
04 



DSSM TJMRON 

DSSV"ABRTFLG 

DSSV~BADT!ME 

DSSV'BATCH 

DSSV'BRKCLR 

DSSV~BRKPT 

DSSV~CHARFLG 

DSSV'CMDFLG 

DSSV'CTRLC 

DSSV.CTRLO 

DSSV DEVFLG 

DSSV~DIS*BLCC 

DSSV~D0NFLG 

DSSV"*ERRFLG 

DSSV^EXCEPT 

DSSVlEXETST 

DSSV HLTFLG 

DS$V~L0DFLG 

DSSV'MEMMGT 

DSSVlOUTPUT 

DSSV RUBFLG 

DSSV'SCRJPT 

DSSVlSETJMR 

DSSV STRFLG 

DSSVlSUBT 

DSSV.SYSFLG 

DSSV TJMRON 

DS eERSUP 

EXE CMODKRNL 

INITSCB 

MMENA8LE 

PCBS8_ASTACT 

PCBSB.ASTEN 

PCBSB.PRJ 

PCBSB^PRJB 

PCBSB.TYPE 

PCBSBJJEFC 

PCBSC.LENGTH 

PCBSK LENGTH 

PCBSL ARB 

PCBSL'ASTQBL 

PCB$L>STOFL 

PCBSL.EFC2P. 

PCBSL. EFC3P 

PCBSL FFCS 

PCBSLlEfCU 

PCBSL EFWM 

PCBSL.JJB 

PCBSL.OWNER 

PCBSL PHD 

PCB$L~PHYPCB 

PCBSL'PJD 

PCBSLlPQB 

pcbsl sqbl 
pcbslIsqfl 
pcbsl sts 

PCBSL UK 



00020000 

00000006 

00000014 

00000016 

OOOOOOOC 

OOOOOOOB 

00000008 

00000007 

00000000 

00000010 

00000009 

00000018 

OOOOOOOD 

00000004 

00000013 

00000012 

00000003 

00000001 

OOOOOOOF 

00000017 

00000005 

00000015 

00000019 

00000002 

OOOOOOOE 

OOOOOOOA 

00000011 
*>;***** + 

00000000 

00000077 

00000071 

OOOOOOOC 

OOOOOOOD 

OOOOOOOB 

0000002F 

OOOOOOOA 

0000002E 

0000008C 

0000008C 

00000084 

00000014 

00000010 

00000058 

0000005C 

00000050 

00000054 

0000004 C 

00000078 

0000001 C 

00000064 

00000018 

00000060 

0000004C 

00000004 

00000000 

00000024 

00000088 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 04 
RG D 04 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



04 
04 



PCBSL WSSWP 

PCB$L~WTJME 

PCBSCfPRIV 

PCB$T~LNAME 

PCB$T~TERMINAL 

PCBSWlAPTCNT 

PCBSW ASTCNT 

PCBSW_BIOCNT 

PCBSW..8I0LM 

PCBSW.DIOCNT 

PCBSW.DJOLM 

PCB$W_GPGCNT 

PCBSULGRP 

PCBSW J1EM 

PCBSW MTXCNT 

PCBSVCPPGCNT 

PCBSW_PRCCNT 

PCBSW_S1ZE 

PCBSW STATE 

PCBSW„TMBU 

PSLSS.PRVMOD 

PSLSV PRVMOD 

SCHSNEWLVL 

SETIPL 

SETPRT 

S1Z... 



00000020 


D 




00000028 


D 




0000007C 


D 




00000068 


D 




00000044 


D 




00000030 


D 




00000038 


D 




0000003A 


D 




0000003C 


D 




0000003E 


D 




00000040 


D 




00000034 


D 




0000008A 


D 




00000088 


D 




OOOOOOOE 


D 




00000036 


D 




00000042 


D 




00000008 


D 




0000002C 


D 




00000032 


D 




s ooooooo? 


D 




=: 0000001 


D 




******** 


X 


04 


0000007D R 


D 


r 


00000083 R 


D 


0^ 


= 00000001 


D 
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PSECT name 



. ABS 

$A3S$ 

DATA 

WORK 

CODE 



Allocation 

00000000 
0000008C 
00000005 
00000004 
00000089 



! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

HO.) 01 ( 1.) NOPIC USR 

5.) 02 ( ?.) NOPIC USR 

4.) 03 ( 3.) NOPIC USR 

137.) 04 ( 4J NOPIC USR 



con 


A6S 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


B/TE 


fON 


A8S 


LCL 


NOSHR 


EXE 


RD 


U/RT 


NOVEC 


BY It 


CON 


REL 


1 CL 


SHR 


NOEXE 


RD 


NOWRT 


NOVEC 


LONG 


con 


REL 


I.CL 


NOSHR 


NOEXE 


RD 


WRT 


NOVEC 


LUNb 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT 


NOVEC 


LONG 



fiche 3 Frame L3 



Sequence 449 



L 3 

ZZ-ENSAA-7.0 Cross reference u A 27-JUL-1984 1 o«# F U!?8a^i FP im!-ii iu f p fl v03-0? UenCe ""'pace 

E»;; s reterenc6 *** CHMK change mode t0 kernel handler i&M l?i?J!?l ^)ls?£l^mim^.fmtr 
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SYMBOL 



SER 

SMODULE 

BIT... 

CMKSASTEXIT 

CMKSCANTIM 

CMKSHIBER 

CMKS1N1TSCB 

CMKSMMENABLE 

CMKSRC0NS01E 

CMKlREFRESH 

CMKSSETIMR 

CMKSSETIPL 

CMKSSETPRT 

CMKSSGIPR 

CMKSTC0NS01E 

CMK$_ 

CMKS ASTEXIT 

CMK$ICAN T IM 

CMKS HIBE.1 

CMKS INITSCB 

CMKSJ.AST 

CMKSJWENABIE 

CMKS RCONSOLE 

CMKS'REFRESH 

CMKS"SCHDWK 

CMKS'SETIMR 

CMK$ISET1PL 

CMKS.SETPRT 

CMKS SGIPR 

CMKS'TCONSOLE 

CMKCflDE 

DSSAX SOF TPCB 

DSSGA~CHMKVEC 

DSSM.SBRTFLG 

DSSM BADTIME 

DS$M"8ATCH 

DSSM^BRKCLR 

DSSM BRKPT 

DSSM'CHARHG 

DS$M~CMDFLG 

DSSM^CTRLC 

DSSM CTRLO 

DSSM"DEVFLG 

DSSM~DISABLCC 

DSSM"DONFLG 

DSSM"ERRFLG 

DSSMlEXCEPT 

DSSM EXETST 

DSSM HLTFLG 

DSSM~LODFLG 





DEFINITION 


! Symbol Cross Reference ! 


VALUE 


REFER 
#-149 


ENCES... 


=00000002 


149 


(3) 


(3) 


00000000-R 


83 


(1) 


149 


(3) 


=00000018 


69 


(1) 


68 


(1) 69 (1) 


00000054-R 


172 


(3) 


131 


(3) 


00000000-XR 






142 


(3) 


00000000-XR 






138 


(3) 


00000000-XR 






191 


(3) 


00000000-XR 






188 


(3) 


00000000-XR 






132 


(3) 


00000000-XR 






136 


(3) 


00000000-XR 






143 


(3) 


00000000-XR 






193 


(3) 


00000000-XR 






196 


(3) 


00000000-XR 






141 


(3) 


00000000-XR 






133 


(3) 


=00000004 


68 


(1) 






=00000000 


68 


(1) 






=0000000B 


68 


(1) 






=00000007 


68 


(1) 






=00000008 


68 


(1) 






=0000000E 


68 


(1) 


#-130 


(3) 


=00000003 


68 


(1) 






=00000001 


68 


(1) 






=00000005 


68 


(1) 






=00000006 


68 


(1) 






=O0000OOC 


68 


(1) 






=00000009 


68 


(1) 






=0000000D 


68 


(1) 






=0O0000OA 


68 


(1) 






=00000002 


68 


(1) 






00000000-R 


123 


(3) 


#-129 


(3) #-148 (3J 


00000000-XR 






175 


(3) 


00000000-XR 






0-146 


(3) 153 (3: 


=00000040 


69 


(1) 






=00100000 


69 


(1) 






=00400000 


69 


(1) 






=00001000 


69 


(1) 






=00000800 


69 


(1) 






=00000100 


69 


(1) 






=00000080 


69 


(1) 






=00000001 


69 


(!) 






=00010000 


69 


(1) 






=00000200 


69 


(1) 






=01000000 


69 


(1) 






=00002000 


69 


(1) 






=00000010 


69 


(1) 






=00080000 


69 


(1) 






=0000000 


69 


(1) 






=00000008 


69 


(1) 






=00000002 


69 


(1) 







#-152 (3) 



ZZ-ENSAA-7,0 

CHMK 

Cross reference 

0S$H HEMHGT 

DS$M"OUTPUT 

DS$M RUBFLG 

DS$M~SCRIPT 

DSSMlSETlMR 

0S$M STRFLG 

D$$M~SUBT 

DSSM SYSFLG 

OSSM'TIMRON 

DSSV^ABRTFLG 

DSSV.BADUME 

DS$V BATCH 

DSSV BRKCLR 

^SSV BRKPT 

D$$V"CHARFLG 

DS$V~CMDFLG 

DSSV^CTRLC 

DS$V CTRLO 

DS$V~DEVFlG 

DS$V_DISABLCC 

OSSV.DONFLG 

DSSVJRRFLG 

DS$V EXCEPT 

DS$VlEXETST 

DSSV HLTFLG 

DS$V~LODFLG 

DSSV'MEMMGT 

DSSV^OUTPUT 

DS$V RUBFLG 

OSSV^SCRIPT 

DS$V SETIMR 

OS$V"STRFLG 

DS$V~SUBT 

DSSV'SYSFLG 

DSSV'TIMRON 

OS ERRSUF 

EXE CMODKRNl 

INITSCB 

MMENABLE 

PCBSB ASTACT 

PSt$S"*PRVMPD 

PSLSVIlS 

pslsv prvmod 
schsnEwlvl 

SETIPL 
SETPRT 

SIZ... 



Cross reference 



=00008000 

=00800000 

=00000020 

=00200000 

=02000000 

=00000004 

=00004000 

=00000400 

=00020000 

=00000006 

=00000014 

=00000016 

=0000000C 

=0000000B 

=00000008 

=0000000? 

=00000000 

=00000010 

=00000009 

=00000018 

=00000000 

=00000004 

=00000013 

=00000012 

=00000003 

=00000001 

=0000000F 

=00000017 

=00000005 

=00000015 

=00000019 

=00000002 

=0000Q00E 

=0000000A 

=00000011 
OOOOOOOO-XR 
00000000-R 
00000077-R 
00000071 -R 

oooooooc 

=00000002 
=0000001A 
=00000016 
OOOOOOOO-XR 
0000007D-R 
00000083-R 
=00000001 



M 3 

27-JUL-1984 



Fiche 3 Frame M3 



Sequence 450 



Page 
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128 
190 
187 



68 



193 
195 
69 



10 
(3) 



69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


P) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


<1) 


69 


(1) 


69 


<1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 


69 


(1) 



(3) 

(3) 
(3) 



(1) 



(3) 
(3) 
(1) 



149 

139 

134 

176 

#-173 

#-173 
177 
140 
144 
69 



(3) 

(3) 
(3) 
(3) 
(3) 

(3) 
(3) 
(3) 
(3) 
(1) 



ZZ-ENSAA-7.0 

CHMK 

Cross reference 



Cross reference 
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MACRO 

SDEF 

SDEF1N1 

SEQU 

SEQULS1 

SEQULST 

5GBL1NI 

SPCBDEF 

SPSLDEF 

$PUSHADR 

SVIFLD 

SVIEL01 

CMKDEF 

DSFDEF 

ERRSUP.S 

MODNAM 



SIZE 



DEF 1NJT10I. 



69 

73 

69 

68 

68 

68 

74 

73 

149 

69 

69 

68 

69 

149 

83 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(1i 
(1) 
(1) 
(1) 
(3) 
(1) 



+ + 

! Macros Cross Reference ! 
+— — -+ 

REFERENCES... 



73 

68 

68 

68 

69 

74 

73 

149 

69 

69 

68 

69 

149 

83 



(1 

(1 

(1 

(1 

(1 

(1 

(1 

(3 

(1 

(1 

(1 

(1 

(3 

(1 



74 



69 



+«™ — — — -. + 

! Performance indicators ! 
+ — — + 



<1> 



(1) 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-refererce outpu 1 : 

Assembler run cotals 



Page faults CPU Time 



Elapsed Time 



31 

148 

449 



87 

13 

7 

33 

772 



00:00:00.13 
00:00:00.74 
00:00:04.77 
00:00:00.37 
00:00:00.95 
00:00:00.10 
00:00:00.03 
00:00:00.37 
00:00:07.26 



00:00 
00:00 
00-00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



: 00.24 
:01>68 

:06.55 
:00.35 
:01.04 
:00.10 
:00.03 
:00.41 
:10.40 



The working set limit was 1000 pages. . 

^5233 bytes (69 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 202 non-local and 4 local symbols. 

198 source lines were read in Pass 1, producing object records in Pass 2. 

33 * cges of virtual memory were used to define 15 macros. 



77-FNSAA-7 Cross reference 27-JUL-1984 Fiche 3 frame B4 Sequence 452 

rwM* reference rhanae mode to kernel handler 27-JUL-1984 15:06:51 VAX-11 Macro V03-01 I™ .,- 

vffill Macro Run Statistics C 9 23-MAY-1984 14:10:19 DMA1:CSYS0.SVSMAINTDCHMK.MAR;6T (3) 



♦— -— — + 

! Macro library statistics ! 
+ + 

Macro library name Macros defined 

DRB1 :[OS.WORK]D1AG.MLB;955 ] 

DRBl:tDS.W0RK]bS«MLB;218 J 

DMA1 :[SYS0.SYSMA1NTJDS.MLB;218 

DMA1 :CSYS0.SYSMAINT]DIAG.MLB;953 

SYS$SYSR00T:CSYSLIB]L1B.MLB;1 

SYSSSYSROOT:[SYSLIB]STARLET.MLB;2 7 

TOTALS (all libraries) «2 

308 GETS were required to define 12 macros. 

There were no errors, warnings or information messages. 

MACRO/N0OBJECT/UST=LDS.LISD/CR0SS/ENA8LE=(DE8U6, TRACE) CHHK/UPDA"(CHMK.UPD # CHMK.ENH)*SYS$LlBRARYsLIB/LIBRARY+DMA1 :CSYSO.SYSMAINTJDI 



C 4 
77-FNSAA-7 DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-1984 Fiche 3 Frame C4 Sequence 453 
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able of contents 



(1) 


339 


(1) 


374 


(1) 


389 


(1) 


434 


(1) 


495 


(1) 


561 


(1) 


590 


(1) 


632 


(1) 


685 


(4) 


7 07 


(4) 


754 


(4) 


766 


(4) 


796 


(4) 


825 


(4) 


854 


(4) 


882 


(4) 


904 


(4) 


987 


(4) 


1107 


<4) 


1194 


(5) 


151* 


(5) 


1708 


(5) 


2011 


(6) 


2173 


(6) 


2335 


(6) 


2410 


(6) 


2574 


(6) 


2743 


(7) 


2780 


(7) 


2811 


(7) 


2856 


(7) 


2929 


(7) 


3000 


(7) 


3056 


(7) 


3147 


17) 


3180 


(7) 


3293 


(7) 


3346 


(7) 


3390 


(7) 


3430 


(7) 


3442 


(7) 


3486 


(10) 


3547 


(10) 


3581 


(10) 


3607 


(10) 


3643 


(10) 


3691 


(10) 


3717 


(10) 


3754 


(10) 


3798 


(10) 


3825 


(10) 


3875 


(10) 


3968 


(10) 


3990 


(iO) 


4043 


(10) 


4080 


(10) 


4143 



Libraries, Macros* Equated Symbols 

Work Psect Storage 

Data Psect Storage 

Commands A-C 

Directory, Deattach, Deselect, Deposit Commands 

Commands Exit, Examine 

Help, InitPCS, Load, Next, Run 

Commands Set, Select, Show, Start, Summary, Xdelta, 5) 

End of Line Processing 

Illegal Command Processing 

Incomplete Command Processing 

Bad List Processing 

Bad Qualifier Processing 

Get Generic Device Name 

Deattach Processing 

Deselect and Select Processing 

Get a File Specification 

Start and Run Processing 

Start and Run Qualifiers 

Show Parameters and Qualifiers 

Clear Parameters and Qualifiers 

Set Parameters and Qualifiers 

Examine Qualifiers and Parameters 

Deposit Parameters and Qualifiers 

Set Default Parameters 

DSSCli Routine - Command Line Interpreter 

CLI Action Routines. 

Null and Context-Saving Action Routines 

Success, Failure, Notnuf, Enuf Action Routines 

Commands A-C Action Routines 

Commands D-E Action Routines 

Commands H-R Action Routines 

Commands S-Z Action Routines 

CRD command 

Filespec, Optional, Required Action Routines 

Start and Run Qualifier Action Routines 

Event and Flags Action Routines 

Base, Address, Break Action Routines 

All, Default Action Routines r ^ ni 

Show Calls Routine ; f 70J 

CRDTrace Action Routines ; L6!>J 

Bell, Binary, Halt, lEx Action Routines 

Loop, Oper, Prompt Quick Action Routines 

Search, Trace, Verify Action Routines 

Set/Show Page, Width Action Routine 

Set/Show QA Action Routines 

QADef Action Routine 

Efn, Next, Ascii Action Routines 

Register Action Routines 

Backup, Advance, Data Action Routines 

Long, Word, Byte, Hex, Dec, Oct Action Routines 

U Action Routines 

Xdelta Action Routines 

Device, Brief, Adaptor Action Routines 

Show Select, Do Cmd, Set Load, Show Load Action Routines 

MM On, Off, and"Show Action Routines 

Show Status, Show Support 
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.Title 
.Ident 

.NoShow 
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+ + 



Copyright (c) 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHFR PERSON 
FXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESl LICENSE 
iFRMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
.';fMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DFC ASSUMES 
SOFTWARE ON 

FACILITY: 

ABSTRACT: 
ENVIRONMENT: 
AUTHOR: 
MODIFIED BY: 
01 



02 
03 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



VAX DIAGNOSTIC SUPERVISOR. 



KEN CHAPMAN 



NICK HOWGATE 
APT INTERFACE 



31-0CT-77 

06-NOV-77 



VERSION 01. 
VERSION 02 



TOM SOUTTER 17-N0V-77 VERSION 03, 
DSPR ft? - FIX FOR SHOW EVENT FLAGS. 
MAKE 'ILLEGAL COMMAND* MESSAGE GLOBAL. 



04 



05 
06 



07 
08 
09 



KEN CHAPMAN 05-DEC-77 
DSPR #45 - REMOVE HALTI. 



VERSION 04 (ESSAA-3.05) 



KEN CHAPMAN 12-JAN-78 VERSION 05 (ESSAA-3.06) 
DSPR Ml - FIXED VERSION NUMBER BRANCH OF TREE. 
DSPR #100 - FIXED HALT BRANCH OF TREE. 

KEN CHAPMAN 16-FEB-78 VERSION 06 (ESSAA-3.07) 

DSPR #104 - FIXED CLEAR BREAK BRANCH OF TREE, 

ADDED 'COMPAT' FLAG. 

CODE COMPRESSION USING CLI$„$TRING MECHANISM. 
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U 23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT]CLI.MAR;279 

KEN CHAPMAN 28-FEB-78 VERSION 07 (ESSAA-4.00) 
SET COMMAND MODE FLAG ON ENTERING CLI. 

VERSION 08 (ESSAA-4.01) 



2 
(1) 



B 'DSVSLOAD 



NICK HOWGATE 29-MAR-78 

FIXED 'CONTINUE' IN APT MODE 

ADDED PROPER SPELLING OF "HEXADECIMAL". 

CHANGED 'VRRUN* £ 'VRLOAD' TO 'DSVSRUN' 

KEN CHAPMAN 06-APR-78 „„***« 

MADE 'COMPAT' COMMANDS CONDITIONAL ON 'VM11' DEFINED. ^ x 

NICK HOWGATE 09-JUN-78 VERSION 09 (ESSAA-4.03) . 

FIX APT A C PROBLEM 

Roger Riggs 17-JUL-78 VERSION 10 (ESSAA-5.00). 

Fix to Let SUPERLINE do the prompt, clean up APT 

stuff in area of prompt. 

Roger Riggs 21-SEP-78 ... 

Insert support for new device selection commands. 

Roger Riggs 04-FEB-79 . 

Insert "StT LOAD <filespec> command for default load device 

Add SHOW LOAD command 

Fix SET LOAD, SET LOOP, SET LOCK interaction 

fix SELECT and DESELECT 

Fix SE AMBIGIOUS error 

Raise ASTLVL in command mode to prevent AST delivery 

in command mode ^^ 

Roger Riggs 4-Sept-1979 

Made command tree and command 

Roger Riggs 6-Nov-1979 

Changed version number on filespec 

Changed MTPR x,PR$JPL to call set so it's done in KERNEL mode 

MARION BAGGETT 14-DEC-79 

ALLOW SETTING OF MEMORY MANAGEMENT ON OR OFF 

ALLOW EXAMINE AND DEPOSIT OF PROCESSOR REGISTERS 

David Butenhof 09-Jan-80 

Fix exam/deposit of processor registers 

David Butenhof 06-feb-80 

Be sure all possibLe AST levels are disabled to prevent 

interrupt-driven diagnostic from continuing after A C or 

breakpoint. 

David Butenhof 15-f eb-80 

Add SEARCH operator flag 

Roger Riggs. 17-Jan-1980, Version 5.2 

Corrected handling of command mode for APT, made sure 

it typed "DS> " arter A C and processing of any command. 

Fixed saved IPL to save all 5 bits of IPL instead of just 4. 

Remove disable of ASTs in CLI so that WAITMS works and 

A C ASTs are delivered. 

Dave Butenhof 30-jun-1980, version 5.5 

Add HELP command in PARSE tree, and ACT.HELP action routine 



action routine global for APT 
to be decimal instead 
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•DlAGNOSnrsDPEftVlSOR-CdMMAND LINE INTER J7-JUL-1 984 15:07:02 ^^^^^.^W (?) 

Dave Butenhof, 02-oct-1980, Version 6.1 

Add DIRECTORY command . rAArtrtA A-, < n 

Alter fUespec parsing to recognise CO0OO0O] form as well as 

CO, 03 for UIC. , , 

Dave Butenhof, 13-feb-1981, version 6.3 

Change /SECTJON:xxx so xxx can be symbol (inc. $ and ) . 

Add SET WIDTH command, and alter fUespec parse to allow 

subdirectories in user mode. 
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0000 


122 ( 


41 


0000 


123 




0000 


124 




0000 


125 


42 


0000 


126 




0000 


127 




cooo 


128 





G 4 
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LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 
23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINTDCLI.MAR;279 

- dave butenhof, 06-OU-1981, version 6.5 
Implement SHOW STATUS command 



4 

(1) 



- Jack Stansbury, 21-Oct-1981, 
Adcied calls to QASMain for the 
Also added .LIBRARY statements 



Version 6.5 

QA enhancement. 

for $DIAG, $DS, and LIB 



- Jack Stansbury, 22-0ct-1981, Version 6.5 
Fixed truncation errors. 

- Jack Stansbury, 25-0ct-1981, Version 6.5 
Many changes for the /QA qualifier on the 
RUN and START commands, additional SET and 
changes for the QA flags. 



SHOW 
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- Jack Stansbury, 3-NOV-1981, Version 6.5 
Major revisions to the parse tree. Renumbered all the labels, 
moved things around, ... Also incorporated checks so that a 
SET FLAG WIDTH 130 is not allowed (as it was before). Also 
changed the error messages to mixed case. Also took out T CRLF, 
because it was not used. Most of these changes are not marked 
since so much was done. Also made use of the new CLI$K_SLASH, 
CL1$K VALUE, and CLISK COMMA character values in calls to 
$DS CCl. These allow '7", ":" or "=", and ",", respectively, 
witR optional spaces on either side of them. They were added 
to PARSE. MAR by Dave Butenhof. Also added /ADAPTER qualifier 
to the SHOW DEVICE, SELECT, and DESELECT commands. This qualifier 
requires an adaptor name as its value. Also added SHOW DEFAULT 
and SHOW BASE commands. Also added DCL-like printout of portion 
of command line in error. That is, 
?? error message 

\portion in error\ 



agnostic 
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23-MAY-1984 14:10:24 DMA1 :[SYSO.SYSMAINTDCLI .MAR;279 (1) 

- Jack Stansbury, 11-Nov-1981, Version 6.;> _ rtr>Aftrr ^ 
Changed the DSSPARSE call to DSXSSUPERPARSE. SUPERPARSE does not 
return when it encounters EOL. Rather, it continues following the 
parse tree until it encounters CLISK EXIT. This takes care of the 
problem with SET BASE 0, where DSSPARSE saw EOL, and returned # to 
here with the NOTNUF flag still set. Thus, it was not continuing 
on in the parse tree, where it would 
routine, and then gone to EOL in the 
does continue, and thus will execute 



Also: changed the error handlinq and 
different action routines for Illega 



have executed the ENUF action 
parse tree. DSXSSUPERPARSE 
ENUF, and then ao to EOL. 
reporting. Established 
gal command versus Incomplete 

commands. Checked return from DSXSpARSE and the various CLI flags 

and printed appropriate error messages. 

Also: changed the DCL-like printout of the command line in error 

to print the portion of the line that was good. This was done becaus 

of the strange results from doing it the previous way!!!??? 

Also: added action routines ACT OPTIONAL, ACT_REQUIRED, 

ACT IF REQUIRED. ACT IF FILE SPFC, ACT.BINARY, and ACT VERIFY. 

Also: added recognitTon'of SET BINARY, SET VERIFY, CLEAR BINARY, 

and CLEAR VERIFY. These are new control flags. 

Also add*'; m 'ANCE action routine. It function exactly opposite of 

BACKUP. 

- jack ■o-isoxy, 13-Nov-1981, Version 6.5 

Added <■ »■ . tALL, CLISK RETURN, and CLI$K_BIFS to various places 
in the parse tree. Dave Butenhof added these new character codes. 
They are to be used for one-level-deep subroutine calls. Also added 
SUCCESS and FAILURE action routines to be used in conjunction with 
the above, Also added a new DS command: EXIT. Also altered 
ACT DO CMD to avoid dispatching if CL1$L,C0MMAND(R2) is 0; this 
allows~ATTACH to 'kill' the command when the /Adapter value is bad. 
Also added the SHOW SECTIONS command. 

- Jack Stansbury, 17-Nov-1981, Version 6.5 
Changed all BSBVTs to JSB's. 

- Dave Butenhof, 18-Nov-1981, version 6.5 

Add DEATTACH command, and typecodes in messages 

- Jack Stansbury, 21-Nov-1981, Version 6.5 

Took out the DSQA constants and the calls to QA.MAIN. 

It appears these will not be needed for the 6.5 DS version. 
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LINE INTER 27-JUL-1984 15:07:02 VAX-1 1 Macro V03-01 Pa 
1 l 23-MAY-1984 14:10:24 DMA1 i CSYSO- SYSMAINTDCL I .MAR;27 

- Dave Butenhof, 04-Feb-1982, Version 6.6 

Use the new CLISK.FILE parse code for filename/type parse 

- Dave Butenhof, 05-Feb-1982, Version 6.0 
Add new command SHOW MEMORY. 

- Jack Stansbury, 18-Feb-1982, Version 6.6 

Changed the HELP command parsing so that HSOW will not result 
in the HELP command looking for DS command SOW! That is, if 
spaces are not found after the minimum characters for HELP 
(H in this case), then there must be an EOL. If not EOL, it 
is an error. Also, I added the VSDP Supervisor command. This 
is for CRD use. Right now, it simply prints Command not 
implemented". 

- Dave Bu'enhof, 09-Mar-1982, version 6.6 1 

Change fiie parsing to accept subdirectories in standalone. 

- Dave Butenhof, 10-Mar-1982, version 6.6 

Correct HELP parsing to accept *H<CR>' as well as 'H '. 
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- Jack Stansbury, 2I-Mar~1982, Version 6.7 

Added some macros (Br_IfJVot_...> and took out some .LIST 

statements. 
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Jack Stansbury, 10-Apr-1982, V 
Added support for running CRD- 
CL I command. 



ersion 6.7 
AutoTest on 



line via ? VSDP 



Dave Butenhof, 13-Apr-1982, version 6,7 

Add command to enable/disable generic name enforcement, 

as backup. 'Set/Clear Enforce' 



ZZ-ENSAA-7.0 

CLI 

07-80 



DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 

DIAGNOSTIC SUPERVISOR COMMAND 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 



232 
211 
234 
235 
236 
237 
238 
239 
240 
241 
2<*2 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 



58 
59 

60 
61 

62 



L 4 
27-JUL-I984 Fiche 3 Frame L4 Sequence 462 
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23-MAY-1984 14:10:24 DMA1:CSYS0.SYSMAINTJCU.MAR;279 (1) 

Jack Stansbury, 6-Mcy-1982, Version 6.8 . 
Added code in DSSCli to not clear the A C,bit in the DS flags 
longword if CRD-AutoTest was running. This is to allow *C s 
to be caught faster and easier by CRD. 

Richard Brown, 19-May_82, Version 6. 8 . 
Addition of DEBUG command. This involves placing the .command 
in the command line interpreter decision tree and adding an 
action routine for the command. 

Jack Stansbury, 24-May-1982, Version 6.8 
Changed the "VSDP" command to "CRD". 

Dave Butenhof, 25-May-1982, version 6.8 t 
Restore poor SHOW MM command, which got kicked out by 
SHOW MEMORY (note, however, that SHOW MEMORY did not . 
intend to do this, and should not be accused of bullying). 

Richard Brown, 7-JuLy-82, a Version 6.8 

Addition of /DEBUG qualifier to RUN and START commands. 
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Jack Stansbury, 15-July-1982, Version 6.9 
Added code to call CRD Menu Test when the 



CRD command is typed. 



Jack Stansbury, 24-July-1982, Version 6.9 

Added code (commented out for now) that will .check to see if vhe 
CRD Menu Test command (CRD) is being called in user mode. If so, 
it wilt print an error message. NOTE: this will have to be taken 
out before the Supervisor is frozen for 6.9! 



i I i 



Jack Stansbury, B-September-1982, Version 6.9 „ f ^, fW „ 1 . 
Added three new commands: SET CRDTRACE, CLEAR CRDTRACE, and 
SHOW CRDTRACE. These three all have to do with a new DSA bit 
called DSA$V CRD Trace. This bit, when set, wilt cause the CRD 
routines to print trace and debugging information for the user. 



15-September-1982, Version 6.9 
le ACT CRD routine that will ct 



ear the A C handlers 



Jack Stansbury, 

Added code in the ..-__.- 

and the A C DS flag, and disable A C's. 

Jack Stansbury, 23-September-1982, Version 6.9 
Changed the CRDTRACE qualifier to CRD/TRACE. The command are now: 
SET CRD/TRACE, CLEAR CRD/TRACE, and SHOW CRD. Also changed the code 
a bit at the activation of CRD - if CRD's initiali2ation routine 
returns failure, the DSR$Unload_CRD routine is now called. 

Richard Brown, 27-Sep-8!\ Version 6.9 

Changed default debugger name from DELTA to VDSDEBUG. 

Jack Stansbury, March 3, 1983, Version 6.11 
Added the SET CRD/DEBUG/TRACE command. This exact syntax 
is required to minimize the number of people finding out t 
about and using this command. It turns on debugging mode in 
CRD, and a LOT of output results! 

Jack Stansbury, March 7, 1983, Version ,6.11 , _ f 

Added the SHOW CALLS command. The routine is in the CRDImage module 

Bob Bergazzi 28-March-1983 Version 6.11 % 
Added the SET/SHOW PAGE command for video console terminals 
in standalone mode. Routines are in PRINT. 



John Ciukaj 

- Changed CRD Command 



4-Apri 1-1983 version 6.11 

Action routine (ACT^CRD) 
allow online debugging of CRD AUTO Offline 
test package and offline initiation of 
CRD AUTO Offline by CRD Command. 
Changed references to CRD bits in DSA Flags 
distinguish between online and offline. 



to 



to 



Bob Bergazzi 8-Apr-1983 



Version 6,11 
C leared~Line count when we put out a DS>, so that if we are a 
our first screen isn't wasted with stuff we already saw. 



C ET 



PAGE 



Bob Bergazzi May 16,1983 
Changed the order of the .LIB 



Version 6.11 
statements. 
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323 


0000 


324 


cooo 


325 


0000 


326 


0000 


327 


0000 


328 


0000 


329 


0000 


330 


0000 


331 


0000 


332 


0000 


333 


0000 


334 


0000 


335 


0000 


336 


0000 


337 



77 
78 



79 
80 



N 4 
27-JUL-1984 Fiche 3 Frame N4 Seguence 464 
LINE INTER 27-JUL-1>84 15:07:02 VAX-11 Macro V03-0T Page 
23-MAY-;<>84 14:10:24 DMA1 :[SYSO.SYSMAINT3CLI.HAR;2W 

Bob Bergazzi 29-Aug-1983 Version 6.13 
Added the SET MEMORY command. 

Bob Bergazzi 20-Sep-1983 Version 6.13 

Added the /TIME switch to the RUN and START commands. 

Commented out for release 13 and 14. 



11 
(1) 



Bob Bergazzi 
Added the INI 



21-Oct-1983 
PCS command. 



Version 6.13 



Domenic AndeLLa 8-Nov-83 Version 6.14 
Added branches to tree at GET.FILE SPEC, and 
START AND RUN routines. These modifications 
are to a'.Tow '$• and * ' to be included in the 
directory, filename, and file type when using 
B script filename, SET LOAD cmd, LOAD cmd, RUN, 
and DIRECTORY cmd. These changes are necessary 
for VDS to run under VMS V4. 



RE MUSE 8 MAY 
allow device names of 



1984 Version 7.0 
the form 'nodeSggan' 



Bob Bergazzi May 21, 1984 Version 7.0 

Added /WIDE switch to the DIRECTORY command so 

that filenames will be displayed one per line. 

This fixes the problem of truncation of long filenames 



ZZ-ENSAA-7,0 

CLI 

l»7-80 



Libraries, 



Macros, Equated 
DIAGNOSTIC 


Symbc 
SUPER 


Libraries, 


Macrc 


0000 


339 


0000 


340 


0000 


341 


0000 


342 


0000 


343 


0000 


344 


0000 


345 


0000 


346 


0000 


347 


0000 


348 


0000 


349 


0000 


350 


0000 


351 


0000 


352 


cooo 


353 


0000 


354 


0000 


355 


0000 


356 


0000 


357 


0000 


358 


0000 


359 


0000 


360 


0000 


361 


0000 


362 


0000 


363 


0000 


364 


0000 


365 


0000 


366 


0000 


367 


0000 


368 


0000 


369 


0000 


370 


0000 


371 


0000 


372 



8 5 

27-JUL-1984 Fiche 3 Frame B5 Sequence 465 
SOft COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 Page 
Equated Symbols 23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMAINT3CLI .MAR;279 

.SBTTL Libraries, Macros, Equated Symbols 

INCLUDE FILES: 



12 
(1) 



•LIBRARY 
.Library 
.LIBRARY 
.LIBRARY 



/SYS$LI8RARY:LIB/ 

/$CRD/ 

/$DS/ 

/$DIA6/ 



[40] 
[563 
[403 
[40] 



MACROS: 



.MACRO CASEDEF ACT, N 

S$N=$SN+1 

ACT = N 

.WORD ACT.'ACT - 10$ 
.ENDM CASEDEF 



EQUATED SYMBOLS: 



$DS CLIDEF 

SDS'DSADEF 

SDS'DSDEF 

CLIDEF 

DSFDE? 

SIPLDEF 

$PRDEF 

SPSLDEF 

$DS TypeDef 

$CR0 Literals 



CLI opcode defs 
APT mail box defs 
Supervisor return codes 
CLI data structure 
Supervisor internal flags 
I PL level defs 
Processor register defs 
PSL field dets 
Define type codes 
Define CRD equated symbols 



[48] 
[563 



7Z-ENSAA-7.0 

CLI 

l»7-80 



C 5 
Wnrk Pq^ct Storaae 27-JUL-1984 Fiche 3 Frame C5 Sequence 466 

wopk rseci: ^ ora gT AGfyJ0STK SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 

Work Psect Storage 23-MAY-1984 14:10:24 0MA1 : CSYSO. SYSMAIMTJCL J .MAR;279 



0000 
0000 
000C 
0000 
00000000 
0000 
0000 

00000444 0000 
0444 
0444 

0000044C 0444 
044C 
044C 

0000044D 044C 



.SUBTITLE 

OWN STORAGE: 
.PSECT 



374 
375 
376 
377 
378 
379 

380 DSS6L CLI8ASE:: 

381 " .BLkB 
382 

383 Q.GOOP^CMD: 

384 .BLKQ 
385 

386 B.SUCCESS: 

387 ,BLK8 



Work Psect Storage 



WORK, NOSHR, NQEXE, WRT, LONG 

CL1$K_SIZE 

1 

1 



13 
(1) 



The portion of the command line that [433 
that is good. This is a descriptor. [43] 



Used to store SUCCESS or FAILURE 
for CLI subroutines 



[46] 
[46] 



5 



77-PKKAA-.7 n n*t* P^prt St-nraae 27-JUL-1984 Fiche 3 Frame D5 Seguence 467 

|/ ? C litres 85S*" t0 " A * UNE ,NTER i&BW» liilSlS SKIMBS-Saffliai .««$' It, 

044D 389 .SUBTITLE Data Psect Storage 

044D 390 ; 

04^D "91 ; STRING STORAGE 

044D 392 ; 

00000000 393 .PSECT DATA, SHR, NOEXE, NOWRT, BYTE 

0000 394 

000O 395 MODNAM CLI 

0004 396 

0004 397 T^PRGERR: |( . (|1( r ,„ 

6D 6D 61 72 67 6F 72 50 20 3F 3F 00' 0004 198 -ASCJC "?? Programming error!! ; L«J 

21 21 72 6F 72 72 65 20 67 6E 69 0010 

16 0004 

001 B 399 

20 6C 61 67 65 6C 6C 49 20 3F 3F 00* C01B 401 " iASCJt "?? Illegal command!/ \!AS\!/ M ; W33 

20 20 20 2F 21 64 6E 61 6D 6D 6F 63 0027 
2F 21 5C 53 41 21 5C 0033 

1E 001B 

003A 402 

003A 403 UNCOMPLETE: M , j|t t . WAeV1/ „ rL ^ 

65 6C 70 6D 6F 63 6E 49 20 3F 3F 00' 003A 404 .ASCJC "7? Incomplete command line!/ \!AS\!/ ; L*3J 

6C 20 64 6E 61 6D 6D 6F 63 20 65 74 J046 
53 41 21 5C 20 20 20 2F 21 65 6E 69 0052 

2F 21 5C 005E 
26 003A 

0061 405 ..,«., 

0061 406 TJLLEFN: m i xi M t . , ^ „ ♦* L45J 

20 6C 61 67 65 6C 6C 49 20 3F 3F 00' 0061 407 .ASCJC "?? Illegal event fUg number. Must be 1 to 23,!/ ; LA^J 

6E 20 67 61 6C 66 20 74 6E 65 76 65 006D 

20 74 73 75 4D 20 2E 72 65 62 6D 75 0079 

21 2E 33 32 20 6F 74 20 31 20 65 62 0085 

2F 0091 
30 0061 

0092 408 

0092 409 t CONT: ti ... lv „ , „. r/vi 

69 75 6E 69 74 6E 6F 43 20 21 21 00' 0092 410 .ASCJC ".. Continuing from !XL!/ ; L4;5J 

21 4C 58 21 20 60 6F 72 66 20 67 6E 009E 

2F OOAA 
18 0092 

OOAB 411 

20 64 6E 61 6D 6D 6F 43 20 3F 3F 00' OOAB 413 .ASCJC "?? Command not valid in user mode M ; L45J 
6E 69 20 64 69 6C 61 76 20 74 6F 6E 0087 

21 20 65 64 6F 6D 20 72 65 73 75 20 00C3 

2F OOCF 
24 OOAB 

OODO 414 

00D0 415 T..SH0WMM: M . lAr , , 1( r/Vl 

61 6E 61 6D 20 79 72 6F 60 65 4D 00' OODO 416 .ASCJC "Memory management is !AC.!/ ; L45J 

41 21 20 73 69 20 74 6E 65 6D 65 67 OODC 

2f 21 2E 43 00E8 
18 OODO 

OOEC 417 

OOEC 418 TJ)N: i( ,, r/ ,_ 

6E 6F 00* OOEC 419 .ASCJC "on" i £433 

02 OOEC 

OOEF 420 



77-PKKAA-7 HAt-A P**ct Stnraap 27-JUL-1984 Fiche 3 Frame E5 Sequence 468 

|V feli iSST" C0 " AW L,NE ,NT£ " &Uti» llJBiS Kis&SIiKm, .*»;$' IS. 

OOEF 421 T_0FF: , UV| 

66 66 6F 00' OOEF 422 .ASCIC "off" ; LA5:] 
03 OOEF 

00F3 423 _ C67] 

6E 69 20 72 6F 72 72 45 20 3F 3F 00' 00F3 425 ° " ^"".Ascic* "?? Error in starting the VAX-11/730 CRD MENU TEST!!!/" ; C67J 

68 74 20 67 6E 69 74 72 61 74 73 20 OOFF 

30 33 37 2F 31 31 2D 58 41 56 20 65 010B 
45 54 20 55 4E 45 4D 20 44 52 43 20 0117 

2F 21 21 21 54 53 0123 
35 00F3 

0129 426 # . L6?2 

6E 6E 61 63 20 75 6F 59 20 5? 3F 00' 0129 428 T - Uw - ?Ascir%? r ?ou cannot run VAX-11/730 CRD MENU TEST in user mode!/" ; C673 

31 2D 58 41 56 20 6E 75 72 20 74 6F C135 
45 4D 20 44 52 43 20 30 33 37 2f 31 0141 
75 20 6E 69 20 54 53 45 54 20 55 4E 014D 

2F 21 65 64 6F 6D 20 72 65 73 0159 

39 0129 

0163 429 . r .,T 

0163 430 T^CRD.Trace.Output: t . lA „ . , (l * t?2={ 

61 72 54 20 44 52 43 20 65 68 54 00' 0163 431 .Ascic "The CRD Trace flag is !AC.!/ ; L"J 

21 20 73 69 20 67 61 6C 66 20 65 63 01 6F 

2F 21 2E 43 41 0178 
1C 0163 

0180 432 



ZZ-ENSAA-7.0 

CLI 

07-80 



Commands A-C 



DIAGNOSTIC SUPERVISOR COMMAND 
Commands A-C 



27-JUL-1984 Fiche 3 Frame F5 Sequence 469 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 Page 16 
23-MAM984 14:10:24 DMA1 : CSYSO.SYSMAINTDCL I .MAR;279 (1) 



0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0184 

0184 

C188 

0188 

0188 

0188 

0188 

0188 

0191 

0195 

0195 

0195 

0195 

0195 

0195 

019F 

01A3 

01A3 

01A3 

01A3 

01A3 

01A3 

01A3 

01A3 

01A3 

01A3 

01A3 

01A7 

01A7 

01A7 

01A7 

01A7 

01A7 

01B0 

01B4 

0184 

01B4 

01B4 

01B4 

0184 

ouo 

01C4 
01C4 
01C4 
01 C4 



434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 



.SUBTITLE Commands A-C 



# T . . 

; Command Line interpreter decision tree. 



; Basic commands. 



COMMAND TREE:: 

SDS.CLI CLI$K„SPACE, 

100$: SDS^CL I < A A n A">, 



0, 
NOTNUF, 



100$ 
120$ 



; Optional <SP>*s 
; A 



ABORT 



$DS CU CLISK STRING, ABORT, 

$ds;cli amiBR, enuf. 



110$, < , B0RT , > 
EOL 



; ABORT 



ATTACH 



110$: $DS CLI CL1$K_STRING, ATTACH, ILLEGAL, <• TTACH'> 
$DS~CLI CL1$K_EXIT, ENUF 



; ATTACH 

; Enough input gotte 



The following are allowed as abbreviations for those commands starting 
with the letter M C M : 



CL 
CO 



-> CLEAR 
-> CONTINUE 
-> CRD 



[65] 
[65] 
[65] 
[65] 
[653 
[65] 



120$: $DS_CLJ < A A"C M >, 



NOTNUF, 140$ 



; C 



CLEAR 



$DS CLI CLI1K STRING, CLEAR, 
SDS'GLI CLI$K;BR, NOTNUF, 



130$, <'LEAR'> 
CLFAR^PARAMS 



; CLEAR 

; Get rest of line 



CONTINUE 



130$: 



CRD 



$DS CLJ CL1SK STRING, CONTINUE, 135$, 
$D$ICU CLI$KlBR, ENUF, EOL 



< < ONTINUE*> 



; CONTINUE 



C60] 



[60] 
[603 
[603 



77-fkkaa-7 n rnmmands A-C 27-JUL-1984 Fiche 3 Frame G5 Sequence 470 

§1 I ,35,i KfcEII ctiSyjf!" 9 ' &.. |[iSi' < "" ,,> iS.*.** 8B 



ZZ-ENSAA-7.0 
CL1 

07-80 



H 5 . 

hirprtnrv Dpattach Deselect* Deoosit C 27-JUL-1984 Fiche 3 Frame H5 
Directory, Deatt ^ N ^f ^< p E ^IS0R COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 

Directory, Deattach, Deselect, Deposit C 23-MAY-1984 1 A : 1 : 2A 



Seguence 471 
V03-0T 



Page 



Macro V03-01 Pag 

DMA1:CSYS0.SYSMAINT3CLI.MAR;279 



18 
(1) 



01CF 

01CF 

01CF 

01CF 

OUF 

OUF 

OUF 

OUF 

OUF 

OUF 

OUF 

OUF 

01D3 

01D3 

C1D3 

01D3 

01D3 

01D3 

01E0 

01E4 

01ED 

01F1 

01F5 

01F5 

01F9 

01FD 

0201 

0205 

0209 

020D 

0211 

0211 

0211 

0211 

0211 

0211 

021C 

0220 

0220 

0220 

0220 

0220 

0220 

0228 

022C 

0230 

0234 

0238 

0238 

0238 

0238 

0238 

0238 

0243 

0247 

0247 

0248 



140$: $DS,CL1 < A A"D">, 



DIRECTORY 



495 

496 

49? 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 ; 

511 

512 

513 

514 

515 145$: 

516 

517 

518 150$: 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

S47 

548 

549 

550 

551 



♦SubTitle 



Directory, Deattach, Deselect, Deposit Commands 



The commands starting with D. 
Allow the following as minimums 



D 

DJ 

DEA 

DEB 

DES 



= > 

= > 



DEPOSIT 

DIRECTORY 

DEATTACH 

DEBUG 
DESELECT 



NOTNUF, 200$ 



< , IRECTORY'> 



$DS CLI CLISK STRING, DIRECTORY, 1 50$, 

$DS~CLI CLI$K"SLASH, NOTNUF, 145$ 

$DS"CLI CLI$K~STRING, DIR.WIDE, BAD^QUAUFIER, <*WIDE'> 

$DS~CLI CLl$OPAC£, 0, EOL 

$DS CLI CLI$Kl8R, OPTIONAL, GET.F ILE^SPEC 



152$: 
155$: 



$DS„CL1 
$ds cli 
$ds - .cli 
SDS^CLI 
SDS^CLI 
$DS_CLI 
$DS CLI 



< a a": m >. 


0, 


<*A"A">, 


0, 


cUlkhr, 


backup. 


< A A'B r> >. 


0, 


CLISK BR, 


BACKUP, 


< A A"S n >, 


0, 


CLI$K.BR, 


BACKUP, 



180$ 
152$ 
156$ 
155$ 
158$ 
170$ 
160$ 



; DEATTACH 



156$: 



$ds,cti 

$ds_cli 



cli$k 

cliSk. 



string, 
>r, 



deattach, 
notnuf , 



illegal, <'ATTACH*> 

deattach^qual 



DEBUG 



158$: 



1159$: 
159$: 



$DS CLI CLISK STRING, 

$D$ICLI < A A/=7>, 

$DS CI I CLI$K_BR, 

$DS~CLJ CLI$K_BR, 

SDS^CLI CLI$K_BR, 



DEBUG, ILLEGAL, <'BUG*> 
0, 1159$ 

OPTIONAL, GET F1LE_SPEC 
DEFAULT.DBG, 159$ 
ENUF, EOl 



DESELECT 



160$: $DS CLI CLISK. STRING, DESELECT, ILLEGAL, < , SELECT , > 
$DS~CLi CLI$KlBR, NOTNUF, DE SE LEC T^QUALS 



170$: $DS CLI CLISKJ3R, 



BACKUP, 180$ 



[483 
C593 



DIRECTORY 

/ [803 

/WIDE [803 
If not <SP>'s, FOL 
Optional file-spec 

DEA C593 

Back over "A" [483 
DEB C593 
BACK OVER '*" C59] 
DES C483 
Backup over M S" 



DEATTACH 
Get params 



C48] 
C483 

[593 
[593 



DEBUG [593 
IF NOT '=', EOLC59 
OPT, FILENAME [593 
USE DEFLT NAME[593 
[593 



DESELECT 

Get qualifiers 



I lr-1 1 



; Backup over "E 



fcWSAA-7.0 M^tory. Deattach Deselect Deposit C uri^h^UL^^s/l^^o/^;!; Macro vrfS^ *"piQa 19 

C)7i 80 Directory, Deattach, Deselect, Deposit C 23-MAY-1984 14s10:24 DMA1 :CSYSO.SYSMAINTDCLI .MAR;279 CD 



0248 552 180$: $DS CLI CLISK BR, BACKUP, 190$ ; Backup over t> 

024F 553 

024F 554 ; 

024F 555 ; DEPOSIT 

024F 556 ; 

024F 558 190$: $DS CLI CLISK STRING, DEPOSIT, ILLEGAL, <'DEPOSIT*> ; DEPOSIT 

025B 559 SDSlCLI CLISKlBR, NOTNUF, DEPOSIT.PARAMS ; Get qualifiers 



ZZ-ENSAA-7,0 

Cli 

07-80 



Commands Exit, Examine 

DIAGNOSTIC 
Commands E 

025F 

025F 

025F 

025F 

025F 

025F 

025F 

025F 

025F 

0263 

026? 

026E 

026E 

026E 

C26E 

026E 

026E 

0272 

0272 

0276 

0276 

027A 

027A 

027A 

027A 

027A 

027A 

0286 



27-JUL-1984 Fiche 3 frame J5 Sequence 473 
SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 20 
xlt. Examine 23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT3CL I. MAR; 279 (1) 



561 

562 

563 

564 

565 

566 

567 

568 

569 200$: 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 210$: 

580 

581 220$* 

582 

583 



.SUBTITLE 



Commands Exit, Examine 



The commands starting with E. 
Allow the following as minimums: 

E => EXAMINE 

EXJ => EXIT 



$DS CLI < A A"E">, NOTNUF, 

$DS'CLJ <*A M X">, NOTNUF, 

SDSlCLl CLJSK.STRING, ENUF, 

EXIT 

$DS_CLi CLI$K.BR, EXJT, 

$DS.CLI CL1$K^BR, BACKUP, 

$DS_CLJ CLi$K_BR, BACKUP, 



584 

585 

586 

587 230$: 

588 



EXAMINE 



235$ 

220$ 
210$, 



<MT'> 



EOL 

220$ 

230$ 



E 
EX 

EXIT 



EXIT <EOL> 
Backup over "X" 
Backup over "E" 



$DS CLI CLI$K STRING, EXAMINE, 
$DSlCLI CH$KlBR, NOTNUF, 



ILLEGAL, <*EXAMINE'> 
EXAMINE.PARAMS 



EXAMINE 

Get qualifiers 



ZZ-ENSAA-7,0 

CL1 

07-80 



K 5 

HsLd InitPCS Load Next Run 27-JUL-1984 Fiche 3 Frame K5 Sequence 474 

Help, InitPCS, Load^Next, g^ p ^ iNyER 27-JUL-198A 15:07:02 VAX- Macro VOSjO} P^e 

Help, InitPCS, Load, Next, Run 23-MAY-1984 14:10:24 DMAi :lSyS0.StSMAINTJCLI .MAH,<^y 



2^ 
(1) 



028A 

028A 

028A 

028A 

028A 

028A 

0293 

0297 

029B 

029F 

02A3 

02A3 

02A3 

02A3 

C2A3 

02A3 

02AF 

02B3 

02B3 

02B3 

0283 

02B3 

02B3 

02BC 

02C0 

02C4 

02C4 

02C4 

02C4 

02C4 

02C4 

02CD 

02D1 

0205 

02D9 

02D9 

02D9 

02D9 

02D9 

0209 

02E1 



590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 



.SUBTITLE 



Help, InitPCS, Load, Next, Run 



HELP 
235$: 
237$: 



$DS„CLJ 
$DS CLI 
$DS_CH 
$DS„CLJ 
$DS_CLI 



CLISK. 
CLI$K. 
CLISK 

clisk; 

CLISK 



STRING, 

'EOL, 

EXIT, 

SPACE, 

EXIT, 



0, 
HELP, 
ENUF 
HELP, 
ENUF 



240$, < , HELP'> 
237$ 

ILLEGAL 



HELP 
'H<CR> 4 

Required space(s) 
Enough input gotte 



INJTPCS 



240$: 



LOAD 



245$: 



NEXT 



250$: 



$DS CLI CLISK 
$D$;CH CLISK, 



STRING, 
!BR, 



JNITPCS, 245$, <MNITPCS , > 
ENUF, EOL 



INITPCS 



begi 



end 



SDS.CLJ CLISK. 
$DS.CLI CLISK 

$DS„CLI CLISK 



STRING, 
"SPACE, 
"BR, 



LOAD, 250$, < , 10A0 , > 
NOTNUF, ILLEGAL 
REQUIRED, GET_FILE_SPEC 



LOAD 

<SP>'s req. 
File-spec required 



SDS.CLI CLISK, 
SDS CLI CLISK. 
$DS~CLI CLISK, 

SDS'CLI CH$K 



STRING, 
SPACE, 
DEC, 
'BR, 



NEXTJNST,260$, < , NEXT , > 

0, EOL 
DATA, ILLEGAL 
ENUF, EOL 



; NEXT 

; If not dec, ILLEG 



RUN 
260$: 



$DS CLI CLISK, 
$DS"CL1 CLISK. 



STRING, 
BR, 



RUN, 270$, <'RUN'> 

NOTNUF, START J\NC> ..RUN 



; RUN 



ZZ-ENSAA-7.0 

CL1 

07-80 



Commands Set, Select, Show, Start, Summa 23-MAY-1984 14:10:24 DMA1 :[SYSO.SYSMAINTJCLI.MAR,<W 



Page 



?2 
(1) 



02E5 

02E5 

02E5 

02E5 

02E5 

02E5 

02E9 

02ED 

02F1 

02F5 

02F5 

02F5 

02F5 

02F5 

C2FE 

0302 

0302 

0302 

0302 

0302 

030A 

030E 

030E 

030E 

030E 

030E 

030E 

0317 

0318 

0316 

0318 

0318 

0318 

0318 

0326 

032A 

032A 

032A 

032A 

032A 

032A 

032E 

0339 

033D 

033D 

033D 

033D 

033D 

033D 

0341 

0345 

0345 



632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 



.SUBTITLE 



Commands Set, Select, Show, Start, Summary, Xdelta, a 



SET 



270$: 



$DS.CLI < A A"S M >, 

SDS.CLI < A A M E M >, 

$DS_CLI < A A"T I, >, 

$DS CLI CLI$K_BR, 



NOTNUF, 
NOTNUF, 
SET, 
NOTNUF, 



SELECT 



280$: $DS CLI CLI$K_STRING, SELECT, 
SDSlCLI CLI$K_BR, NOTNUF, 

; SHOW 

290$: $DS l LI CLI$K_STRING, SHOW, 

$DSJ.LI CLI$K_BR, NOTNUF, 

; START 
* 

300$: $DS CLI CLI$K„STRING, START, 
SDS^CLI CLI$K_BR, ENUF, 

; SUMMARY 



320$ 
290$ 
280$ 
SET PARAMS 



ILLEGAL, <'LECT'> 
SELECT_QUALS 



300$, < , HOW , > 
SHOW_PARAMS 



S 

SE 

SET 

Get parameters 



; SELECT 



C60J 



; SHOW 



310$, <'TART'> 
START.AND_RUN 



; START 



310$: $DS CLI CLI$K STRING, SUMMARY, ILLEGAL, <'UMMARY'> 
$DS;CL1 CLI$KlBR, ENUF, EOL 



; SUMMARY 



XDELTA 



320$, $DS CLI CLI$K.BIF, J F„XDELTA*330$ 

$DS"CLI CL'tK.STRING, XDELTA, 330$, 
$DS*CLI CL1$K^BR, ENUF, EOL 



<'XDELTA'> 



; XDELTA 



3 file-spec 



330$: 



$DS CLI < A A M a M >, SCRIPT, 
$DSlCLI CU$K_SPACE, NOTNUF, 



EOL 
340$ 



340$: $DS_CLi CLI$K_BR 



REQUIRED, GET_F1LE_SPEC 



; Optional <SP>'s 
; FUe^spec required) 



Ur—bO End of Line Processing 23-MAY-1984 14:10:24 DMA1 :L$YSO.SYSMAINi JCLI .MAK,^y tu 

.SUBTITLE End of Line Processing 

; If really EOL, return SUCCESSfully. If not, advance past the next character 
; (the one that is illegal), save the context at this point, and return. 

EOL: $DS CLI CLISKJOL, 0, 100$ ; If not EOL, branch 

SDSlCLl CLISK.EXJT ; Exit successfully 



0349 


685 


0349 


686 


0349 


687 


0349 


688 


0349 


689 


0349 


690 


0349 


691 


0349 


692 


034D 


693 


0351 


694 



ZZ-ENSAA-7.0 End of Line Processing ._ ^ . .27-JUL;1984 /i c c h £A/ r ?,TS 5f5 „_ »/u!S? uence 47? 

CLI 
U7-80 



DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 Page 24 
End of Line Processing 23-MAY-1984 H:10:2« DMA1 :CSYSO.SYSMAINTKLI .MAR;27$ (2) 

0351 696 100$: $DS,CLI CLI$K_SPACE, 0, 110$ ; Jump past spaces 



77-FMSAA-7 End of Line Processinq 27-JUL-1984 Fiche 3 Frame 66 Sequence 478 

ZZ ENSAA 7.0 End of Line Hroc «|^ng su p ERVIS0 R COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 Page 25 

^1 80 End of Line Processing 23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMAINnCLI.MAR;279 (4) 

0355 699 110$: $DS CLI CLISK.BR, ADVANCE, 120$ ; Jump past next sym 

0359 700 " * thdt was lLLe 9al 

0359 702 120$: $DS CLI CLI$K BR, ILL.CMD, 130$ ; Save current point 

035D 703 " ' in the line 

035D 705 130$: $DS_CLI CL1$K_ERR0R ; indicate ILLEGAL 



ZZ-ENSAA-7.0 

CLI 

07-80 



Illegal Command 



Processing 

DIAGNOSTIC SUPERVISOR COMMAND 

Illegal Command Processing 



479 



C 6 

27-JUL-1984 Fiche 3 Frame C6 Sequence 

LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 

23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT]CLI .MAR;279 
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0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

C361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0361 

0365 

0365 

0365 

0365 

0369 

036D 

036D 

036D 

036D 

036D 

036D 

036D 

0371 

0371 

0375 

0375 

0375 

0375 

0375 

0375 

0375 



707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 
747 

748 
749 
750 
751 
752 



.SUBTITLE 



Illegal Command Processing 



; Errors. 

* 

ILLEGAL; 



Illegal command error: 



This is cal 
character, 
qualifier o 
for this to 
happens, fo 
to see any 
are seen, I 
actually be 
is an i I Leg 
ILLEGAL. If 
command is 
determinati 



led with the par 
This will usuall 
r parameter such 

be called when 
r example, in re 
(required) space 
LLEgAL is called 

EOL (implying I 
al character (e. 

it is an EOL, t 
INCOMPLETE. Ther 
on about the kin 



se charact 
y be a cha 

as the "X 
a command 
cognizing 
s after th 

even thou 
NCOMPLETE) 
g., the "X 
hen the re 
efore, EOL 
d of error 



er pointer pointing to the illegal 
racter within an unrecognized 
" in "SET WIDTX". It is possible 
is actually INCOMPLETE, This 
"SET BREAKPOINTS" but failing 
e "BREAKPOINTS". If no spaces 
gh the next symbol could 
. If it is not an EOL, then there 
" above) and the command is 
quired address is missing and the 

is checked below to make a 

that has occurred. 



100$: 



SDS.CLI CLI$K_BR, 



SDS.CLI CLISK EOL, 
$DS_CLI CLISK.ERR0R 



INC.CMD, 100$ 



0, 



110$ 



Save current point 
in the line. As sum 
the line is INCOMP 

If not EOL, branch 
If EOL, exit w/INC 



Not really EOL, somthing illegal is there. First, get rid ot any spaces 
that are there and then advance past the illegal character. 



110$: 
115$: 



$DS.CL1 CLI$K_ SPACE, 0, 115$ 
$DS CLI CLI$K_BR, ADVANCE, 120$ 



; Jump past any spac 
; Jump past i I legal 



Establish new context point one character past start of illegal portion. 
Exit with error. 



120$: $DS„CLI CLI$K_ERR0R, JLL..CMD 



; Print error mess. 



ZZ-ENSAA-7.0 

CU 

07-80 



Inrnmniete Command Processing 27-JUL-1984 Fiche 3 Frame D6 Sequence 4S0 

Incomplete commana Krocessing m mER 2 7-JUL-198A 15:07:02 VAX-11 Macro V03-0T Page 

Incomplete CoS 23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT]CLI .MAR;279 



0379 754 

0379 755 

0379 756 

0379 757 

0379 758 

0379 759 INCOMPLETE: 

0379 760 

0379 761 

0379 762 

0379 763 

0379 764 



.SUBTITLE Incomplete Command Processing 
Incomplete command error: 



We have an INCOMPLETE command line. 
$DS_CLI CLISK..ERR0R, INC.CMD 



27 
(4) 



Print error mess. 



ZZ-ENSAA-7.0 

CLI 

07-80 



Rad list Processina 27-JUL-1984 Fiche 3 Frame E6 rt „ s £9 uence 481 n 10 



037D 766 

037D 767 

037D 768 

037D 769 

037D 770 

037D 771 BAD.UST 

037D 772 

037D 773 

037D 77** 

037D 775 

037D 776 

037D 777 

037D 778 

037D 779 

C37D 780 

037D 781 

037D 782 

0381 783 

0385 784 

0385 785 100$: 

0389 786 

0389 787 110$: 

038D 788 

0391 789 

0391 790 120$ 

0395 79: 

0395 792 130$ 

0399 793 

0399 794 140$ 



.SUBTITLE Bad List Processing 
Bad List element error: 



We have a bad List. This is branched to at the end of a 
name recognition List it a name is unrecognized. This 
checks for cases of 

=> INCOMPLETE 

,<E0L> => INCOMPLETE 

,??? => ILLEGAL 



$DS CLI CLI$K COMMA, 0, 

$DS;CL1 CLI$lCBR, 0, 

$DS_CLI CLI$K_BR, INC_CMD, 

$DS CLI CLI$K_E0L, 0, 
$DSlCLI CLI$K_ERROR 

$DS_CLI CLI$K_SPACE, 0, 

SDS.CLI CLI$K_BR, ADVANCE, 

$DS_CLI CLI$K_ERR0R, ILL.CMD 



100$ 
INCOMPLETE 

110$ 

120$ 

130$ 
140$ 



If not comma, bran 

Assume INCOMPLETE 

If not EOL, branch 
,<EOL> 

Jump past any spac 

Jump past illegal 

ILLEGAL 



ZZ-ENSAA-7.0 

CL1 

07-80 



Bad Qualifier Processing 

DIAGNC C C 
Bad Qua., ifi 

039D 

039D 

039D 

039D 

039D 

039D 

039D 

0390 

039D 

039D 

039D 

039D 

039D 

039D 

C39D 

039D 

03A1 

03A5 

03A5 

03A9 

03A9 

03AD 

03B1 

0381 

03B5 

03B5 

C3B9 

03B9 



27-JUL-1984 Fiche 3 Frame F6 Seguence 482 
SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 
er Processing 23-MAY-1984 14:10:24 DMA1 .-[SYSO.SYSMAINTKLI .MAR;279 
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796 

797 

798 

799 

800 

801 BADJHJAUFIER: 

802 



.SUBTITLE Bad Qualifier Processing 
Bad qualifier error: 



803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 100$; 

815 

816 110$: 

817 

818 

819 120$ 

820 

821 130$ 

822 

823 140$ 



We hove a bad qualifier* This is branched to at the end of a 
qualifier recognition sub-tree if a qualifier is not 
recognized. This checks for cases of 
// => INCOMPLETE 



/<E0L> => INCOMPLETE 
/??? => ILLEGAL 



$DS CLI CLI$K_SLASH, 0, 

$DSlCLI CLI$K_BR, 0, 

$DS_CLI CLI$K_BR, INC.CMD, 

$D$_CLI CLISK EOL, 0, 

$DS_CU CH$K.ERR0R 

SDS^CLI CL1$K„SPACE, 0, 

$DS_Cll CLI$K_BR, ADVANCE, 

$DS.CLJ CLI$K„ERR0R, ILL.CMD 



100$ 
INCOMPLETE 

110$ 

120$ 

130$ 
140$ 



If not /, branch 
// 

Assume INCOMPLETE 

/•J99 

/<eol> 

Jump past any spac 
Jump ,\ast illegal 
ILLE6A. 



ZZ-ENSAA-7,0 

CLI 

07-80 



r & 
r,At Generic Device Name 27-JUL-1984 Fiche 3 Frame G6 Sequence 483 

Get Generic Device^ame Jm Qmm UNE INTER 27-JUL-1984 15:07:02 VAX-1 Macro V03-o| Pne 
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03BD 

03BD 

03BD 

03B0 

03BD 

03BD 

03BD 

03B0 

03BD 

038D 

038D 

03B0 

03C1 

03C1 

C3C5 

03C5 

03C9 

03CD 

03D1 

03D5 

03D5 

03D9 

03D9 

03DD 

03DD 

03F1 

03E1 

03E5 



825 
826 
827 
828 
829 
830 
831 
832 
833 



.SUBTITLE 



Get Generic Device Name 



Finish scanning SELECT... and DESELECT... and SHOW DEVICE... 

Each one allows a list of generic device names. The list is composed 

of names separated by commas. Spaces may appear on either side of 

the commas. 

Store ,the generic device name in the CLI$Q_FILE quadword as a 

descriptor. 



834 

835 GET DEV.NAME: 

836 

837 

838 100$: 

839 

840 110$: 

841 

842 

843 116$: 

844 

845 120$: 

846 

847 

848 

849 130$: 

850 

851 140$: 

852 



$DS_CLI CLI$K_SPACE, 

$DS_CLI CLISK.BR, 

$DS CLI CLISK ALNUM, 

SDSlCL I < A A"$ n >, 

$DS_CLI CLI$K BR, 

$DS_CLI < A A M : n >, 



0, 100$ 
FILESPEC, 110$ 



Optional <SP>'s 



FILEND, 
FILEND. 

0, 

0, 



$DS_CLI CLI$K„COMMA, DQ_CMD, 
$DS_CLI CLI$K_BR, 0, 
$DS_CL1 CLI$K„BR, ENUF, 



140$ 
116$ 
110$ 
120$ 

130$ 

100$ 

E0L 



$DS CLI CL1$K,BIF, 
$DS^CL1 CLISK.8R, 



IF REQUIRED, INCOMPLETE 
ENUF, E0L 



Alpha-nums 
Optional $ 

Optional : 



C793 



Do command for 

each dev. name 
Get next one 

Signal enough inpu 

I f name req., bran 

Assume EOL 



ZZ-ENSAA-7.0 

CLi 

07-80 



Oeattach Processing 

DIAGNOSTIC SUPERVISOR 
Deattach Processing 



4P4 



COMMAND 



H 6 , 

27-JUL-1984 Fiche 3 Frame H6 Seguence .. ■ 
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03E9 

03E9 

03E9 

03E9 

03E9 

03E9 

03E9 

03ED 

03ED 

03F9 

03FD 

0401 

0401 

0405 

C409 

0409 

040D 

0411 

0415 

0419 

041D 

0421 

0425 

0429 

042D 

0431 

0435 



854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 



.Subtitle 

Deattach command 



Deattach Processing 
device 



and a /Adapter qualifier. 



The Deattach command requires a device name ana a /Aaaprer guai 
It will accept only one device name and one /Adapter qualifier. 



deattach aual: 
5DS_CLI 



100$: 
110$: 
120$: 



125$: 
130$: 

140$: 



CLISK.SLASH, NOTNUF , 110$ 



If not /, 



[48] 
get name 



$DS CLI CLI$K, STRING, 
SDS'CLl CLI$K_VALUE, 
$DS~CLI CLI$K_BR, 



0, BAD QUALIFIER, <'ADAPTER'>; / ADAPTER 
NOTNUF, ILLEGAL ; Required : 

BEGINADAPTER,100$ ; Start of name 



$DS, 
$DS. 

$ds 
$DS" 



CLI 
CLI 



CL1SK ALNUM 
< A A": n >. 



ADAPTER, 
0, 



ILLEGAL 
110$ 



cli 

'CLI 



$ds_c 
$ds c 
Ids c 
Sds^c 
$ds_c 
$ds_c 
Sds.c 
$ds c 



li 

li 
li 
li 
li 
li 
li 
li 



cli$k bif, if file spec, 140$ 

CI I$OPACE, ~ 

cli$k_br, 

cli$k alnum, 

< A A"$ n >, 

cli$k far. 



n.n. 



Sds^cli 



< A A 
cli$k_bif, 

cU$kJ>1f # 

cli$k_br, 



0, 
f Uespec, 
f ilend, 

filend, 

0, 

f_adapter, 

notnuf , 
f adapter, 
0, 



ILLEGAL 

120$ 

incomplete 

125$ 

120$ 

130$ 

140$ 

deattach_qual 

eol 

incomplete 



Required alpha-num 
Optional : 

End if device 
Required <SP>'s 
Initialize 
Device name 
Optional *$ 

OptionaL ':• 

End if adapter 

Get adapter 

EOL 

No good 



ZZ-ENSAA-7,0 

CLI 

07-80 



rwpUrt and SeLect Processinq 27-JUL-1984 Fiche 3 Frame 16 Sequence 485 
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0435 
0435 
0435 
0435 
0435 
0435 
0435 
0435 
0435 
0435 
0435 
0439 
0439 
0445 
C449 
044D 
044D 
0451 
0455 
0455 
0459 



882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

°02 



.SUBTITLE 



Deselect and Select Processing 



; Get /ADAPTER qualifier for the SELECT and DESELECT commands. 

; Both accept a /, followed by ADAPTER, followed by (and required) a : or = , 

; followed by (and required) a name, followed optionally by a colon. Only one 

; such qualifier is allowed. Spaces must appear before the generic device name. 



SELECT QUALS: 
DESELECT GUALS: 

IDS CL1 CLISK SLASH, N0TNUF, 



110$ 



If not /, get name 



$DS CLI CLISK STRING, 0, BAD QUALIFIER, <*ADAPTER*>; / ADAPTER 
$DS~CLI CLI$K~VALUE, N0TNUF , ILLEGAL ; Required : 

$DS~CLI CLI$K"BR, BEGINADAPTER ,100$ ; Start of name 



100$: 
110$: 



EGAL 



$DS CLI CLISK ALNUM, ADAPTER, ILLE 

SDS~CL1 < A A M : n >, 0, 110$ 

$DS CLJ CLI$K_SPACE, 0, ILLEGAL 

$DS~CLI CLISK.BR, REQUIRED, GET_DEV_NAME 



Required alpha-num 
Optional : 

Required <SP> , s 
Get req. name 



ZZ-ENSAA-7.0 

CL1 

07-80 



Get a File Specification 

DIAGNOSTIC SUPERVISOR COMMAND 
Get a File Specification 
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045D 

045D 

045D 

045D 

045D 

045D 

045D 

045D 

045D 

045D 

045D 

0461 

0461 

0465 

C469 

0469 

046D 

046D 

0471 

0475 

0475 

0479 

047D 

047D 

0481 

0481 

0485 

0485 

0489 

0480 

0491 

0495 

0499 

0499 

049D 

04A1 

04A1 

04A5 

04A9 

04AD 

0481 

04B5 

04O5 

0489 

048D 

04BD 

04C1 

04C1 

04C5 

04C5 

04C9 

04CD 

04D1 

04D5 

0409 

0409 

04DD 



904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

9^6 

937 

938 

939 

940 

941 

942 

943 

944 

94 5 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 



•SUBTITLE 



Get a File Specification 



File specification for a script file name, SET LOAD command, 
LOA0 command, and DIRECTORY command. The file-spec must be 
followed by an EOL. At the end of getting the file-spec, 
check to see if a file-spec was required. If it was 
required/ and none was gotten, it is an INCOMPLETE error. 



GETJILE SPEC: 

SDS..CLI CLISK.BR, 



FILESPEC, 100$ 



100$: 

110$: 
120$: 



130$: 

132$: 
135$: 

137$: 

140$: 

142$: 
145$: 

147$: 

148$: 

150$: 

160$: 

162$: 
165$: 

167$: 
1/0$: 



$DS CLI CLI$K ALPHA, FILEND, 120$ 
$DSlCLI CLI$Kl$YMB0L, FILEND, 110$ 



SDS.CLI < A A":">, 

SDS.CLI < A A"C">, 

SDS.CLI CL1$K.0CT, 

SDS.CLI CLISK.C0MMA, 

SDS.CLI CLISK.OCT, 

$DS_CLI CLISK.BR, 

SDS.CLI CLISK.ALNUM, 

$DS CLI CLI$K ALNUM, 

$DS.CLI < A A"$">, 

$DS.CLI CLISK BR, 

$DS.CLI < A A*' n >, 

$DS.CLI CLI$R.BR, 

$DS_CLI <*A".">. 

$DS.CLI CLI$K.ALNUM, 

$DS.CLI CLI$K ALNUM, 

$DS.CLI < A A M $ n >, 

$DS.CLJ CLISK BR, 

SDS.CLI < A A" n >* 

SDS.CLI CLISR.BR, 

SDS.CLI <*A ,, D">, 

SDS.CLI CLISK.BR. 

JD5.CH <*A"]">, 

SDS.CLI CLI$K_FILE, 

$DS CLI CLISK ALNUM, 

SDSlCLI <*A'*$ n >, 

$DS CLI CLISK BR, 

SDSlCLl <*A'' n >, 

$D5 CLI CL1SK.PR, 



FILEND, 160$ 



0, 
0, 

0, 
0, 

0, 

0, 

0, 
0, 
0, 
0, 
0, 

0, 
0, 

0, 
0, 
0, 
0, 
0, 

FILEND, 
0, 

FILEND, 

FILEND, 



160$ 
130$ 

130$ 
INCOMPLETE 

150$ 

150$ 

135$ 
137$ 
132$ 
140$ 
132$ 

150$ 
INCOMPLETE 

145$ 
147$ 
142$ 
148$ 
142$ 

140S 
160S 

INCOMPLETE 

170$ 



FILEND, 165$ 

FILEND, 167$ 

0, 162S 

FILEND, 170$ 

0, 162$ 



; Alpha char(s) 

; Alpha-nums C78 



C 

Look for octal- 
range digits 

Is it C0,0J form? 

Error if *Tn," 
not finished 

Look for ']• 

ALLOW ALPHA-NUM 



ALLOW ALPHA- 
ALLOW *$• 
60 LOOK FOR 
ALLOW V 
GO LOOK FOR 



ALLOW ALPHA- 
ALLOW '$' 
GO LOOK FOR 
ALLOW V 
GO LOOK FOR 



; 3 



; 3 



■NUW 

MORE A 

MORE A 

[38] 
[78] 

•NUM 

MORE A 

MORE A 

[38] 



; ALLOW ALPHA-NLH 

; ALLOW '$' 

; GO !.OOK FOR MORE A| 

♦ ALLOW ' ' 

; GO LOOKUP OR MORE Ai 



II lis 



$DS.CLI < A A' 
SDS.CLI CLISK. FILE, 



FILEND, 
FILEND, 



180$ 
180$ 



ZZ-ENSAA-7.0 
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Get a File Specification 

DIAGNOSTIC SUPERVISOR COMMAND 
Get a File Specification 



K 6 
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23-MAY-1984 14:10:24 
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V03-0T 



Page 



04E1 

04E1 

04E5 

04E9 

OAED 

04F1 

04F5 

04F5 

04F9 

04FD 

OAFD 

04FD 

04FD 

04FD 

C4FD 

04FD 

OAFD 

04FD 

04FD 

04FD 

04FD 

04FD 

0501 

0505 

0505 



961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 



172$: 
175$: 

177$: 



180$: 
190$: 



SDS.CLI CLI$K ALNUM, 

$dsj:li < A A M $ n >, 

$DS CLi CLI$K 8R, 

$DS_CLI < A A'' n >, 

$DS„CLI CLI$K,8R, 

$DS CLI <*A";">, 

SDS^CLI CLI$K_DEC, 



FILEND, 175$ 

FILEND, 17?$ 

0, 172$ 

FILEND, 180$ 

0, 172$ 



FILEND, 
FILEND, 



190$ 
190$ 



Check if the file-spec is present. 
If present. 

If it was required, 
INCOMPLETE 
else 

EOL 
else 

EOL 



Macro V03-01 Pag 
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$DS„.CLI CLI$K.8IF, 
$DS^CLI CUSK.BJF, 

200$: SDS^CLI CLI$K_8R, 



IF FILE SPEC, 200$ 
IFlREQUlRED, INCOMPLETE 



ALLOW ALPHA-NUM 

ALLOW '$• 

GO LOOK FOR MORE A 

ALLOW *J 

GO LOOK FOR MORE A 

Decimal version 



ENUF, 



EOL 



If file-spec, bran 
If required, branc 

Enough input 



ZZ-ENSAA-7.0 

CL1 

07-80 



Start and Run Processing _ ^^ ,.,««■,*.* 

DIAGNOSTIC SUPERVISOR COMMAND 
Start and Run Processing 
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0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

C509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

0509 

050D 

0511 

C511 

0515 

0515 

0519 

0519 



987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1 007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 



.SUBTITLE 



Start and Run Processing 



This is for both the START and the RUN commands. The ,f i le-spec 
part should be a mirror image of the above tree portion. 
The START does not allow a tile-spec, but the RUN does. 
Both allow the same qualifiers. In here, get both the file-spec 
(only if it is a RUN command AND if a file-spec has not already 
been given) and the qualifiers, Allow qualifiers both before and 
after the file-spec. Allow spaces before and after the / s. 
Do not allow only a "/" (with no qualifier name). 



ALGORITHM: 
LOOP 



IF SLASH, 

GET A QUALIFIER 
CONTINUE LOOP 



ELSE 



IF RUN COMMAND AND NO FILE-SPEC GOTTEN YET, 
GET FILE-SPEC 
IF FILE-SPEC GOTTEN, 
CONTINUE LOOP 

* LSE 

; No file-spec given, but 

; the RUN command requires 

; one. 

INCOMPLETE COMMAND LINE 

FI 



END LOOP 



FI 



ELSE 
FI 



; Better be snd-of-line 
ENUF, EOL 



STARTJ\ND_RUN: 

$DS CLI CLISK.SLASH, 

SDSlCLI CL1SK.BR, 

100$: $DS_CLI CLI$K.BIF. 

$DS CLI CLI$K_8R, 



0, 100$ 

NOTNUF, START_RUN_QUALIFIER5 

!FJ*UN, 110$ 

ENUF, EOL 



If no /, branch 
If /, branch 

If RUN and no 
file-spec yet, go 
If START or (RUN 
and file-spec 
gotten), then EOL 



ZZ-ENSAA-7,0 

CL1 

U7-80 



Start and Run Processing _„..., 

DIAGNOSTIC SUPERVISOR COMMAND 
Start and Run Processing 



M 6 
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0519 

0519 

0519 

0519 

0519 

0519 

0519 

0519 

0519 

0519 

051D 

051D 

0521 

0521 

C525 

0529 

0529 

052D 

052D 

0531 

0535 

0535 

0539 

053D 

053D 

0541 

0541 

0545 

0545 

0549 

054D 

0551 

0555 

0559 

0559 

055D 

0561 

0561 

0565 

0569 

056D 

0571 

0575 

0575 

0579 

057D 

057D 

0581 

0581 

0585 

0585 

0589 

058D 

0591 

0595 

0599 

0599 



1033 

1034 

1035 

1036 

1037 

1C38 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1C86 

1087 

1088 

1089 



110$ 
120$ 
130$ 

140$: 
150$: 



160$: 

162$: 
165$: 

167$: 



170$: 



172$: 
175$: 

177$: 



178$: 

180$: 

190$: 

192$: 
195$: 

197$: 
200$: 



The below portion is only executed for the RUN command, 
and then it is executed only once. If a file-spec is found, 
this branches back up to START_AND_RUN to get more qualifiers. 
If no file-spec is found, this is an INCOMPLETE error. 
Note that spaces must always appear before the file-spec. 



$DS_CL1 

$DS„CLI 

$DS_CLI 

$DS_CLI 



CLI$K_SPACE, 

CLI$K_BR, 

CLISK ALPHA, 
CLI$OYMB0L, 



$DS_C! I < A A":">, 



$DS_CLI 
$DS_CLI 

$DS_CLI 

$DS_CLI 

$DS_CLI 
$DS_CL1 

SDS^CLI 

$DS„CLI 
$DS_CLI 
$DS CLI 
$DS_CLI 

$DS_CLI 

$DS_CLI 

$D$ CLI 
$D$ICLI 
$DS CLI 
SDSlCLI 

$DS,CLI 

$DS.CLI 

$DS.CLI 

SDS.CLI 

SDS.CLI 

$DS_CLI 
$DS CLI 
$DS.CLI 
SDS^CLI 
$DS_CLI 



< A A M [">, 
CLISK.0CT, 

CL1$K_C0MMA, 
CLISK.0CT, 

CLISK..BR, 

CLI$KJ\LNUM, 

CLISK ALNUM, 
<*A M $ n >, 

CLISK BR, 
<*A" n >, 

CLI$E_BR, 

< A A".">, 

CLI$K_ALNUM, 

CLISK ALNUM, 
< A A M $°>, 
CLISK BR, 
< A A" n >, 

CLI$RjJR, 

< A A M ] M >, 
CLISK.BR, 

< A A"3">, 

CLISK.ALNUM, 

CLISK ALNUM, 
< A A M $ n >, 
CLISK BR, 
< A A" n >, 
CLI$R.BR, 



0, 

FILESPEC, 

FILEND, 
FILEND, 



ILLEGAL 

130$ 

150$ 
140$ 



FILEND, 200$ 



0, 
0, 

0, 
0, 

0, 

0, 

0, 
0, 
0, 
0, 
0, 

0, 
0, 

0, 
0, 
0, 
0, 
0, 

FILEND, 
0, 

FILEND, 

FILEND, 

FILEND, 

FILEND, 

0, 

FILEND, 

0, 



190$ 
160$ 

160$ 
INCOMPLETE 

180$ 

180$ 

165$ 
167$ 
162$ 
170$ 
162$ 

180$ 
INCOMPLETE 

175$ 
177$ 
172$ 
178$ 
172$ 

170$ 
190$ 

INCOMPLETE 

200$ 

195$ 
197$ 
192$ 
200$ 
192$ 



Required <SP>*s 

Save start of 
file-spec. 
Alpha-char(s) 
Alpha-num, $, and 



C 

Look *or octal- 
range digits 

Is it C0,OJ form? 

Error if "En," 
not finished 

Look for ']' 

ALLOW ALPHA-NUM 

ALLOW ALPHA-NUM 

ALLOW '$• 

GO LOOK FOR MORE A 

ALLOW V 

GO LOOK FOR MORE A 

[783 
[783 

ALLOW ALPHA-NUM 

ALLOW '$' 

GO LOOK FOR MORE A 

ALLOW * ' 

GO LOOK FOR MORE A 



3 



[783 
C383 



ALLOW ALPHA-NUM 

ALLOW '$' 

GO LOOK FOR MORE A| 

ALLOW l ■ 

GO LOOK'FOR MORE A 



SDS.CH <*A"."> # 



FILEND, 210$ 



ZZ-ENSAA-7.0 

CLI 

07-80 
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059D 

05A1 

05A1 

05A5 

05A9 

05AD 

05B1 

05B5 

05B5 

0589 

05BD 

05BD 

05C1 

05C1 

C5C5 

05C5 



1090 

1091 

1092 

1093 

1094 

1C95 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 



SDS.CLI CLISK.ALNUM, FILEND, 210$ 



202$: 
205$: 

207$: 



210$: 



220$: 



$DS CLI CLISK ALNUM, 

$DSlCLI < A A M $ n >, 

$DS CLI CLISK BR, 

SDSlCLI <*A M „ n >, 

$DS_CLI CLI$£_8R, 

$DS_CLI < A A";">, 

$DS_CL1 CLI$K_DEC, 

$DS_CLI :LI$K_6IF . 

SDS^CLI CLISK.BR, 



FILEND, 205$ 

FILEND, 207$ 

0, 202$ 

FILEND, 210$ 

0, 202$ 



FILEND, 
FILEND, 



220$ 
220$ 



IF_FILE_SPEC, START JWDJWN 

0, INCOMPLETE 



ALLOW ALPHA-NUM 

ALLOW '$• 

d'O LOOK FOR MORE A 

ALLOW *J 

GO LOOK FOR MORE A 



Decimal version 



If file-spec 
otten, branch 
f not file-spec 
gotten, INCOMPLETE 
for RUN command. 



? 



ZZ-EN3AM-7.0 

CLl 
07-80 



Start and Run Qualifiers 

DIAGNOSTIC SUPERVISOR COMMAND 
Star* and Run Qualifiers 



B 7 
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05C5 
05C5 
05C5 

05C5 

05C5 

05C5 

05C5 

05C5 

05C5 

05C5 

05C5 

05C5 

05C5 

05CF 

C5D3 

05D3 

05D3 

05D3 

05D3 

05D3 

05D3 

05DE 

05E2 

05E6 

05EA 

05EA 

05EA 

05EA 

05EA 

05EA 

05F1 



1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

;122 

1*23 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 



.SUBTITLE 



Start and Run Qualifiers 



Qualifiers for the START and RUN commands. 

This allows optional spaces before and after the :'s and the / s. 



START_RUN_GUALIF1ERS: 



START/DEBUG 



[62] 
[623 
C62"J 



$DS CLI CLISK STRING, DEBUG_SWITCH, 90$, <'DEBUG'> 
SDSlCLl CLI$lT8R, 0, START J\ND_RUN 



/DEBUG [62] 
NEXT QUALIFIERC62J 



START/PASSES :x 



90$: 



$DS CLI CL1$K_STRING, 

$DS~CL1 CLI$K_ VALUE, 

$DS*CLI CL1$K_DEC, 

$DSlCLI CL1$K_8R, 







[62] 


NOTNUF, 


100$, < , PASSES , > 


/PASSES C42D 


NOTNUF, 


ILLEGAL 


: or = 


PASS, 


ILLEGAL 


• /PASSESjdecmal 


0, 


START J\NP_RUN 





START/QA 



100$: 



$DS 
$DS' 



CLI CLISK STRING 
'CLI CLISKlBR 



QA, 
0, 



110$, <'QA'> 
START_AND_RUN 



; /QA 



[42] 
[42] 



ZZ-ENSAA-7.0 

CLI 

07-80 



Start and Run Qualifiers 

DIAGNOSTIC SUPERVISOR COMMAND 
Start and Run Qualifiers 



C 7 
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05F5 

05F5 

05F5 

05F5 

05FS 

05F9 

05F9 

0604 

0608 

060C 

0610 

0610 

0610 

0610 

C610 

0618 

061F 

0623 

0627 

0627 

0627 

0627 

0627 

0627 

0627 

0627 

0627 

0627 

0627 

0630 

0634 

0638 

063C 

0640 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

0644 

064^ 

0644 

0644 

0644 

0644 

0644 



1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 



START/SECTJON:name 



110$: $DS„CLI < A A*'S ,# > 



NOTNUF, 125$ 



$DS CLI 
$DS"CLI 
$DS~CLI 
$DS~CLI 



CI. JSK. STRING, 
CLI$K VALUE, 
CLISK SYMBOL, 
CLI$OR, 



START/SUBTESTjx 



120$: $DS CLI CLI$K_ STRING, 

$DS"CLJ CLI$K_VALUE, 

$DS"CLI CLI$K_DEC, 

$DS~CLI CLI$K_BR, 



START/TEST:x 
START/TEST:x:y 

125$: SDS.CLI < A A"T">, 

SDS.CLI CII$K_STRING, 



125$: 



$DS_CLJ 
$DS CLI 
$DS"CLI 
$DS*CLI 
tDSlCLI 
$DS CLI 



CLISK. STRING, 

CLISK VALUE, 

CLISKlDEC, 

CLISK.VALUE, 

CLI$K_DEC, 

CLISK^BR, 



STAaT/TIME:dddd-hh:mm:ss.cc 



130$ 



131$ 

132$ 

133$ 
134$ 
135$ 
136$ 
137$ 
138$ 
139$ 



$DS CLJ 
SDSlCLI 
$DS CLI 
SDS'CLI 
$DS~CLI 

$ds;cli 

$DS_CL1 
$DS CLI 
SDS^CLI 
SDS CLI 
SDS~CLI 
$0S"CL1 
SDS CLI 



CLISK. 
CLISK. 
CLISK 

CLISK 
<*A M -' 
CUSK, 
CLISK 

clisk; 

CLISK 

CLISK* 
<*A'V 
CLISK 
CLISK 



STRING, 
VALUE, 
BR, 
"DEC, 
'>, 
DEC, 
VALUE, 
"DEC, 
"VALUE, 
"DEC, 
'>, 
DEC, 

;bif. 



145$: SDS. CLI CLISK _BR, 



< , ECTI0N , > 



NOTNUF, 120$, 

NOTNUF, ILLEGAL 

SECTION, ILLEGAL 

0, START.AND.RUN 



NOTNUF, BAD QUALIFIER, < , UBTEST , >; 

NOTNUF, ILLEGAL 

SUBTEST, ILLEGAL 

0, START AND RUN 



/SECTION 
: or = 



C373 
[42] 



/SUBTEST 
: or = 



C423 



NOTNUF , 


BAD^QUALIFIER 




■ 


T 


[37] 


NOTNUF, 


130$, < , EST t > 




* 


/TEST 


C37] 


NOTNUF, 
NOTNUF , 
TEST, 
NOTNUF , 
LAST, 
0, 


BAD QUALIFIER, 

ILLEGAL 

ILLEGAL 

145$ 

ILLEGAL 

STARTJ\ND_RUN 


<»TEST 


>; 

♦ 
# 

• 

* 
* 


/TEST 
: or = 
/TEST:x 
: or = 
/TEST:x:y 


C373 



[76] 



NOTNUF, BAD QUALIFIER^' IME'> 

NOTNUF, ILLEGAL 
BEGINT1ME, 131$ 

0, 133$ 

0. 133$ 

0. 133$ 

0, 134$ 

0, 135$ 

0, 136$ 

0, 137$ 

0, 138$ 

0. 139$ 

TIME, ILLEGAL 

0, START_AND_RUN 



/TIME 


[76] 


: or = 


[76] 


Mark beginning of 


dddd 


[76] 


SP 


[76] 


hh 


[76] 


: or = 


[76] 


mm 


[76] 


; or a 


[76] 


ss 


L/6] 




[76] 


cc 


[76] 


Check the 


string [ 



[42] 



ZZ-ENSAA-7,0 

CL1 

07-80 



D 7 

<;hnu Pflramptpr<? and Qualifiers 27-JUL-1984 Fiche 3 Frame 07 
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0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

C6^8 

0648 

064C 

0648 

0648 

0648 

0648 

0640 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

0648 

064C 

064C 

0650 

0650 

0650 

0650 

0650 

0650 

0658 

065C 

065C 

065C 

065C 

065C 

065C 

0668 

066F 

066F 

066F 

066F 

066F 

066F 

0673 

067A 

067E 

0682 



1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

121? 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 



.SUBTITLE 
SHOW parameters. 



Show Parameters and Qualifiers 



SHOW BASE 

SHOW BREAKPOINTS 

SHOW DEFAULTS 

SHOW CALLS 

SHOW CRD 

SHOW DEVICE 

SHOW DEVICE/BRIEF 

SHOW EVENT FLAGS 

SHOW EVENT 

SHOW FLAGS 

SHOW MEMORY [/MAP][/BUFFER][/DATA_STRUCTURE][/ALL] 

SHOW MM 

SHOW PAGE 

SHOW QA... 

SHOW SECTIONS 

SHOW SELECTED 

SHOW SELECTED/BRJEF 

SHOW STATUS 

SHOW SUPPORT 

SHOW WIDTH 

DEVICE 

SELECTED 



1701 
[67] 



SHOW/BRIEF 
SHOW/BRIEF 



SHOW PARAMS: 

$DS_CLI CLISK. SPACE, 

$DS_CU < A A"B M >, 



SHOW BASE 



0, 
NOTNUF , 



310$ 
110$ 



; If no <SP>'s, 
; B 



chec 



$DS CLI CLISK. STRING, BASE, 
$DSlCLl CL1$K.,BR, ENUF, 



100$, 
EOL 



<*ASE*> 



; BASE 



SHOW BREAKPOINTS 



100$: $DS CLI CLI$K STRING, BREAK, ILLEGAL, BREAKPOINTS^ ; BREAKPOINTS 
$DS~CLI CLI$KlBR, ENUF, EOL 



SHOW CRD 



110$: 



$DS Cli 
$DS~Cli 
$DS"Cli 
$DS:Ui 



< A A"C">, 

CLI$K, String, 
CLISK EoL, 
CLI$KlBr, 



NotNuf, 115$ 
0. 112$, <*RD'> 
Show CRD.Trace, Illegal 
EnufT Eol 



SHOW C 
SHOW CRD 
Must end EOL 



[67] 



[70] 
[70] 
[65] 
[65] 



ZZ-ENSAA-7.0 

CLI 
07-80 
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0682 
068B 
068F 
0693 
0693 
0693 
0693 
0693 
0693 
0697 
0698 
069B 
069B 
069B 
C69B 
069B 
06A6 



1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 



112$: $DS_CU CLI$K_String, 
$DS Cli CLISK Eol, 
$DS"Cli CLI$K"Br, 



SHOW P 



115$: 



$DS CLI 
SDSlCLl 



< A A"D">, 
< A A M E">, 



SHOW DEFAULTS 



0, Illegal, <*ALLS*> 

Show.Calls, Illegal 



Enut, 



Eol 



SHOW 

Must 



CALLS 
end EOL 



41 
(4) 

C70] 
C703 
C703 



NOTNUF, 
NOTNUF, 



150$ 
ILLEGAL 



; D 

; OE 



$DS CLJ CLJSK STRING, 
$DSlCLI CLISKlBR, 



DEFAULT, 

ENUF, 



120$, 
EOL 



< , FAULTS , > 



; DEFAULT 



ZZ-ENSAA-7,0 
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06AA 


1269 


06AA 


1270 


06AA 


1271 


06AA 


1272 


06AA 


1273 


06AA 


12/4 


06AA 


1275 


06AA 


1276 


06AA 


12/7 


06AA 


1278 


06AA 


1279 


06AA 


1280 


06AA 


1281 


06B3 


1282 


C683 


1283 


06B7 


1284 


06B7 


1285 


06C3 


1286 


06C7 


1287 


06CB 


1288 


06CB 


1289 


06CF 


1290 


06D3 


1291 


06D3 


1292 


06D7 


1293 


06D7 


1294 


06E1 


1295 


06F5 


1296 


06E5 


1297 


Q6E9 


1298 



; SHOW DEVICE 

; SHOW DEVICE 

; SHOW DEVJCE/ADAPTER.-name 

; SHOW DEVICE/BRIEF 

; SHOW DEVJCE/ADAPTER:name/BRIEF 



dev_name_1 ,dev_name_2, . . . 
dev~name~1 ,dev_name_2, . . . 
dev~name~1 ,dev_name_2, . . . 
dev~name~1 ,dev_name^2, . . . 



Note: if the /ADAPTER:name qualifier appears more than once 
on the command line, the LAST name given js the one used. 
Spaces may appear on either side of the / s, , s, and : s. 



120$; 
122$: 



$DS_CLI CLISK.STRJNG- DEVICE, ILLEGAL, <' VICE •> 

SDS^CLI CLI$K_SLASH, NOTNUF, 140$ 

$DS CLI CLISK STRING, 0, 135$, <«ADAPTER'> 

$DS~CLI CLI$K"VALUE, NOTNUF, ILLEGAL 

$DS~CLI CLI$K~8R, BEGINADAPTER,125$ 



125$: 

130$: 
135$: 

140$: 



$DS_CLI CLISK ALNUM, ADAPTER, 
$DS CLI <*A": n >, 0, 



$DS.CLI CLI$K_BR, 



ENUF, 



ILLEGAL 
130$ 

12?$ 

BAD QUALIFIER, <'BRIEF'> 
1225 



$DS CLI CLISK STRING, BRIEF, 

$DSlCLI CLI$K_BR, ENUF, 

$DS CLI CLISK SPACE, 0, EOL 

$DSlCLI CLlSKlBR, OPTIONAL, GET.DEVJMME 



DEVICE 

/ 

/ ADAPTER 
/ ADAPTER 



Required name 
Optional : 

Any more qua Is? 

DEVICE / BRIEF 
Any more quals? 

Optional <SP>'s 
Get optional names 
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CL1 
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06ED 

06ED 

06ED 

06ED 

06ED 

06ED 

06F7 

06FB 

0705 

0709 

0709 

0709 

0709 

0709 

C709 

0713 

0717 

0717 

0717 

0717 

0717 

0717 

0720 

0724 

0724 

0724 

0724 

0724 

0724 

0728 

0732 

0736 

073E 

0742 

074D 

0751 

0764 

0768 

0770 

0774 

0774 

0774 

0774 

0774 

0774 

077A 



1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 



SHOW EVENT FLAGS 
SHOW EVENT 



150$: SDS^CLI CLI$K_STRING, 

$DS,CLI CLI$K_SPACE, 

SDS^CLI CLI$K„SfRING, 

$DS_CLI CLI$K_BR, 



SHOW FLAGS 



160$: $DS CLI CLI$K_STRING, 
SDSlCLl CUSK.BR, 



SHOW LOAD 



170$: SDS.CL1 CLI$K„.STR1NG, 
SDS.CLI CLISK..BR, 



EVENT, 
ENUF, 
ENUF, 
ENUF, 



160$, < , EVENT , > 

EOL 

EOL, < , FLAGS , > 

EOL 



EVENT 

Required <SP> f s 

EVENT FLAGS 



FLAGS, 
ENUF, 



170$, 
EOL 



<• FLAGS' > 



; FLAGS 



SHOWLOAD, 180$, 
ENUF, EOL 



< , LOAD , > 



; LOAD 



SHOW MEMORY 



180$: 
185$: 

186$ 
187$ 
188$ 



$DS_CLi 
$DS_CLI 
$DS CLI 
$DS_CLI 
$DS„CLI 
$DS CLI 
$DS_CLI 
$DS_CL1 
$DS CLI 
$DS_CLI 
$DS,CLI 



<*A"M' 

CL1$K. 

CLI$K. 

CLI$K. 

CLI$K. 

CLI$K. 

CLI$K, 

CLISK. 

CLI$K 

CLISK 

CLI$K 



>, ^ 

STRING, 
'SLASH, 
'STRING, 
BR, 

STRING, 
'BR, 

'STRING, 
"BR, 
STRING, 
BR, 



0, 190$ 

SHOWMEM, 189$, 
NOTNUF, EOL 
SH0MEMMAP,186$, 
ENUF, 185$ 

SH0MEMBUF,187$, 
ENUF, 185$ 

SH0MEMDAT,188$, 
ENUF, 185$ 

SHOMEMALL, BAD QUALIFIER, < , ALL , > 
ENUF, 185$ 



< 


♦ 

EMORY' > ; 


MEMORY 


< 


MAP'> 




< 


•BUFFERS 




< 


•DATA STRUCTURE 1 


> 



[62] 



SHOW MM 



189$: SDS^CLI CLISK. STRING, 
SDS..CL1 CLISK.BR, 



SHOWMM, ILLEGAL, <*M'> 
ENUF, EOL 



; MM 



[62] 



ZZ-ENSAA-7.0 
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077E 

077E 

077E 

077E 

077E 

077E 

0787 

078B 

078F 

078F 

0793 

0797 

0797 

0797 

C797 

0797 

07A7 

07A8 

07AB 

07AB 

07AB 

07AB 

07AB 

07B8 

07BC 

07BC 

07BC 

07BC 

07BC 

07BC 

07CC 

07D0 

07D0 

07D0 

07D0 

07D0 

07D0 

07E1 

07E5 

07E5 

07E5 

07E5 

07E5 

07E5 

07F6 

07FA 

07FA 

07FA 

07FA 

07FA 

07FA 

0808 



1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1339 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 



SHOW PAGE 



190$J $DS_CLI CL1$K„STRING, 
SDS.CLI CLISK EOL, 
$DS_CLI CLI$K_8R 

195$: $DS_CLI <*A'XT> 
SDS.CLI < A A"A"> 

; SHOW QACHKLOOPLOOPS 



$DS CLI CLISK^STRING 
SDSlCLI CL1SK.BR 



; SHOW QADEFAULTS 



200$: $DS CLI CLI$K_STR1NG 
SDSlCLI CL1$K M BR 



; SHOW QAERR0RPRIN1S 



210$: $DS_CLI CLlSK.STRING 
$DS_CLI CLI$K_BR 



; SHOW GAMUI.TIPLEPASS 



220$: SDS.CLI CLI$K_STRING 
$DS CLI CLI$K_BR 



; SHOW QASUBTESTLOOPS 



230$: SDS.CLI CLl$K w STRING 
SDS^CLI CLI$K_8R 



; SHOW QATESTLOOPS 



240$: SDS^CLI CLI$K_STRING 
SDS.CLI CLI$K_.BR 



NOTNUF, 

PAGE, 

ENUF, 

NOTNUF, 
NOTNUF, 



GACL, 
ENUF, 



QADEF, 
ENUF, 



QAEP, 
ENUF, 



GAMP, 
ENUF, 



QASL, 
ENUF, 



QATL, 
ENUF, 



195$, < , PAGE t > 

ILLEGAL 

EOL 

250$ 
ILLEGAL 



; PAGE 



; o 

; QA 



[713 
C713 
[713 

[423 
[42] 



200$, < , CKLOOPLOOPS , > ; QACKLOOPLOOPS [42] 
EOL ; C423 



210$, < , DEFAULTS , > ; QADEFAULTS E423 
pni : [423 



EOL 



220$, 
EOL 



< , ERRORPRINTS*> ; QAERRORPR1NTS [42] 

[42] 



230$, 
EOL 



< , MULTIPLEPASS , >; QAMULTIPLEPASSE423 

[423 



240$, < , SUBTESTLOOPS*>; QA$UBTESTLO0PS[42] 
EOL ; C423 



ILLEGAL, < , TESTLO0PS , > ; QATESTLOOPS [42] 
EOL ; C42] 



ZZ-ENSAA-7.0 
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080C 

080C 

0810 

0810 

0810 

0810 

0810 

0810 

0810 

0810 

0810 

0810 

0810 

08K 

C818 

0818 

0818 

0818 

0818 

0818 

081C 

081C 

0827 

082B 

0828 

082B 

082B 

0828 



1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 



250$: SDS^CLI <*A"S">, 



NOTNUF, 300$ 



; s 



Minimums for SHOW S... commands: 

SE => SELECTED 

SEC => SECTIONS 

ST => STATUS 

SU => SUPPORT 



$DS_CLI 
$DS_CLJ 



SHOW SECTIONS 



< A A'*">, 
<*A"C M >, 



NOTNUF, 
ENUF, 



280$ 
255$ 



; SE 
; SEC 



SDS^CLI CLI$K_8R, 



BACKUP, 252$ 



252$: 



$DS CLI CLISK STRING, SH0WSECTIONS,255$,< l CTIONS*> 
SOSlCLI CLISKlBR, ENUF, EQL 



; Backup over C 
; SECTIONS 



; SHOW SELECTED 

; SHOW SELECTED/BRIEF . 

; Spaces may appear on either side of the / . 



07-80 Show Parameters and Qualifiers 23-MAY-1984 14:10:24 0MA1:CSYS0.SYSMAINTJCLI.MAR;^/V OJ 

0828 1429 ; 

082B 143? 255$: SDS.CLI CLI$K_8R, BACKUP, 257$ ; Backup over B 

082F 1433 257$: $DS CLI CL1SK STRING, SHOWSEL, ILLEGAL ,<• ELC CTED * > ; SELECTED £39] 

0838 1434 SDSlCLI CLI$Kl$LASH, NOTNUF, 260$ ; / 

083F 1436 $DS CLI CLISK STRING, BRIEF, BAD.QUALIFIER^BRIEF •> ; SELECTED /BRIEF 

0849 1437 SDS7.CLI CLI$JOR, ENUF, EOL 

084D 1439 260$: $DS CLI CLI$K_BR, ENUF, EOL ; No /, must be EOL 

0851 1440 
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0851 

0851 

0851 

0851 

0851 

0851 

0858 

085F 

085F 

085F 

085F 

085F 

085F 

086A 

C86E 

086E 

086E 

086E 

086E 

0878 



1442 
1443 
1444 
1445 
1446 
1447 

1*'.8 

1449 

1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 



SHOW STATUS 

280$: $DS CLI CU$K STRING, SHOWSTATUS,290$, < t TATUS , > 

SDSlCLI CLJSlTeR, ENUF, EOL 

SHOW SUPPORT 

290$: $DS CLI CLI$K STRING, SHOWSUP, ILLEGAL, < , UPPORT*> 

SDSlCLJ CLI$lCBR, ENUF, EOL 

; SHOW WIDTH 

300$: $DS CLI CLI$K STRING, WIDTH, 310$, <*WIDTH'> 

SDSlCLI CLI$OR, ENUF, EOL 



STATUS 



[39] 
[39] 
[42] 



; SUPPORT 



; WIDTH 



[38] 
[38] 
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087<: 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

087C 

C87C 

087C 

087C 

087C 

087C 

087C 

0880 

0880 

0880 

0880 

0880 

0880 

088C 

0890 

0894 

0894 

0898 

089C 

089C 

08A0 

08A0 

08AA 

08AA 

08AE 

08B2 

08B2 

08B2 

08B2 

08B2 

08B2 

0886 

08B6 

08C1 

08C5 

08C5 

08D2 

08D6 

08D6 

0806 

08D6 



1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

H79 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

U89 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

H98 

H99 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 



SHOW/BRJEf DEVICE 
SHOW/ADAPTER: name DEVICE 
SHOW ADAPTER:name/BRIEF DEVICE 
SHOW/BRIEF SELECTED 



dev_name_1 , dev_name_2, . . 
devlnamell ,dev_name~2, . • 
devlname~1 ,dev_nameI2,. . 



Spaces may appear on e 
Note: if the /ADAPTER: 
on the command line, t 
Note: if the character 
character is invalid i 
Note: this allows the 
command, even though t 
(this is because the I 
in that case; i.e., th 
is show selected or a 
issue an error) . 



ither side of the "/". 

name qualifier appears more than once 

he LAST name given is the one used. 

is not a slash, then the current 
n the SHOW context. Thus, it is an error. 
/ADAPTER:name qualifier on the SHOW SELECTED 
he adapter name is not used by the SELECT routine 
ook-ahead is too much for this parser to i.andle 
e parse would have to look ahead to see if this 
show device command, and then if show selected. 



310$: $DS_CLI CLI$K_SLASH, NOTNUF, ILLEGAL 
; Get the qualifiers: /ADAPTOR or /BRIEF. 



312$: 

314$: 

316$ 

318$ 
320$ 



$DS CLI CLISK STRING, 0, 318$, <'ADAPTER'> 
$DS~CLI CLI$K"VALUE, N0TNUF , ILLEGAL 
$DS~CLI CLISK BR, BEGINADAPTER,314$ 



$DS CLI CLISK ALNUM, ADAPTER 

$DSlCLI < A A": n >, 0, 

$D$_CLI CLI$K_BR, 0, 

SDS.CLI CLI$K.STRING, BRIEF, 

$DS CLI CLJ$K_SLASH, NOTNUF , 

$DS~CLI CLISK..BR, 0. 



ILLEGAL 
316$ 

320$ 

BAD.QUALIFIER^'BRIEF^ 

330$ 
312$ 



/ ADAPTER 
/ ADAPTER 



Required name 
Optional : 

Get next quaU 

/ BRIEF 

If not /, branch 
Get next qualifier 



; Get the keyword: either DEVICE or SELECTED. 



ILLEGAL 

340$, < , DEVICE , > 



330$: $DS„CLI CII$K_SPACE, NOTNUF, 

$DS CU CLISK STRING, DEVICE, 340$, <'DE 

SDSlCLl CLI$KlBR, OPTIONAL, GET.DCV.NAME 

340$: $DS CLI CLISK STRING, SHOWSEL, ILLEGAL .<* SELECTED ' > 

SDSlCLI CLISKIBR, ENUF, EOL 



; If no <SP>'s, bran 

; / ?? DcVlCE 

; Optional names 

; / ?? SELECTED [39] 



End of SHOW. 
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08D6 

08D6 

08D6 

0806 

0806 

08D6 

0806 

08D6 

08D6 

0806 

0806 

0806 

0806 

0806 

C806 

0806 

0806 

0806 

080A 

080A 

080A 

080A 

080A 

080A 

080A 

080A 

080E 

080E 

08E0 

08F1 

08F1 

08F5 

08FC 

0900 

0900 

0904 

0904 

0908 

090C 

090C 

0910 

0910 

0910 

0910 

0910 

0910 

0910 

0910 

0910 

0910 

0918 

091 C 

0926 

0926 

092A 

092E 

092E 



1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

15?Q 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

155'* 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 



.SUBTITLE 
CLEAR parameters. 



Clear Parameters and Qualifiers 



CLEAR BREAKPOINTS ALL 
CLEAR BREAKPOINTS address 
CLEAR CRO/TRACE 
CLEAR ENFORCE 
CLEAR EVENT ALL 
CLEAR EVENT FLAGS ALL 
CLEAR EVENT FLAGS x,x,... 
CLEAR EVENT x,x,... 
CLEAR FLAGS y,y,y,... 
CLEAR y,y,y,... 



CLEAR_PARAMS: 

sos CLi :li$k_space, o. 



CLEAR BREAKPOINTS ALL 

CLEAR BREAKPOINTS address 

Note: the address could start with 



C67D 



ILLEGAL 



; Required <SP>'s 



'A'*. Thus, the check and backup below. 



Hill 



$0S_CLI < A A"B M >, 



NOTNUF, 116$ 



B 



C65D 



$DS CLI CLISK STRING, BREAK, 115$, 

SOSlCLI CLI$OPACE, 0, ILLEGAL 

$0S CLI OA M A">, NOTNUF, 110$ 

$0S~CLI CLISK STRING, ALL, 100$, 

----- - ~ ----- E nuf, EOL 



BREAKPOINTS^ 



<*LL*> 



100$ J 
110$: 



SDSlCLI CLI$OR, 

$0S_CL1 CL1$K_6R, 

SOS CLI CLISK JWM, 

$0SlCLI CLI$K_BR, 



BACKUP, 110$ 



AOORESS, 
ENUF, 



ILLEGAL 
EOL 



115$: $0S_CLJ CLISK J3R, BACKUP, 180$ 



CLEAR CRO/TSACE 



BREAKPOINTS 
Required <SP>'s 

A 
ALL 



Backup over A 
Address 



Backup over "9" 
Go check BELL 



C6?3 

Allow CLEAR CRi) to mean CLEAR CRO/TRACE for now - until more options [67] 
are a' lowed. The command will eventually be like this: Lorj 

CLEAR CR0/TRACE = (VERBOSL*,xxxx, ...)/... Lo7J 



116$: 
117$: 



120$, < , CRD , > 

117$, 

118*. < , TRACE , > 



$0S CLI ftISK_STRING, 0, 

$0S"Cli CLISK Slash, NotNuf, 

$0SlCU CLlSK^String, 0, 

$0S CLI CLISK Eoli ClearJIRD.Trace, Illegal 

SOS'Cli CLISK'Br, Enut, Eot 



CRD 

CRD/ 

CRD/TRACE 

Must end EOL 



[69] 
C69] 
C693 

C69]| 
[693 



ZZ-ENSAA-7.0 
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092E 


1575 ; 


092E 


1576 ; 


092E 


1577 ; 


092E 


1578 


092E 


1579 1 


0938 


1580 


093C 


1581 


0946 


1582 


09AA 


1583 



18$: $DS Cli CLI$K„String, 

$DS"Cli CLISK^Slash, 

$DS"Cli CLI$K_String, 

SDS'Cli CLISKJoU 

$DS"Cli CLI$K_Br, 
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Now check for CLEAR CRD/DEBUG/TRACE. Note that CLEAR CRD/TRACE/DEBUG doesn't C69J 
work. Note that we have seen CLEAR CRD/ so far. lovj 



NotNuf, Bad_Gualifier,<'DEBUG'> ; CRD/DEBUG C693 

NotNuf, Bad Qualifier, ; CRD/DEBUG/ C69D 

0, Bad'Gualifier^'TRACE^; CRD/DEBUG/TRACEC69] 

Clear CRD Debug, Illegal ; Must end ECL C69J 

Enuf," Eol ; C693 
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094E 

094E 

094E 

094E 

094E 

094E 

094E 

094E 

094E 

0952 

095D 

0961 

0965 

U96E 

C972 

0972 

097C 

0980 

0980 

0988 

0988 

098C 

098C 

0990 

0994 

0994 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

09A2 

09A6 

09AA 

09AA 

09AA 

09AA 

09AA 

09AA 



1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 



CLEAR EVENT FLAGS ALL 

CLEAR EVENT FLAGS x,x,x,... 

CLEAR EVENT ALL 

CLEAR EVENT x,x,x,... 

Spaces may appear on either side of the 



* « 



120$: $Ds_CU < A A"E"> 



0, 170$ 
$bs"Cli Cli$K String, 0, 125$, <'NFORCE'> 
$Ds~CLi Cli$K~Eol, ClearEnforce ,1 t legal 



125* 



SDs'Cli Cti$K.Br, ENUF, 

*; $DS"CLI CLI$K STRING, EVENT, 

SDSlCLI CLl$K~SPACE, 0, 

SDS CLJ CLI$K STRING, FLAGS, 

SDSlCLI CL]$OPACE, 0, 

130$: SDS^CL I CLI$K_STRJNG, ALL, 

135$: $DS_CLI CLI$K_BR, ENUF, 

140$: $DS CLJ CLJ$K DEC, EFN, 

SDSlCLI CLl$KlC0MMA, NOTNUF , 



EOL 

Illegal, < , VENT , > 

ILLEGAL 

130$, < , FLAGS , > 
ILLEGAL 



160$: SDS.CL1 CLI$K_BR, 



0, 



140$, 

EOl 

BAD LIST 
135$ 

140$ 



<»ALL'> 



; CLEAR FLAGS x,x,x,.., 

• £ LEAR x x , x , , . 

; Spaces may appear on either side of the "/'. 



170$: 



$DS CLI 
SDSlCL I 

$[>S CLI 



CLI$K STRING, 

CLI$K"SPACE, 

CLl$KlBR, 



CLEAR ??? 



; an E? 

; ENFORCE 

; Must end at EOL 

; EVENT 

; Required <SP>'s 

; "EVENT FLAGS" 

; Required <SP>'s 

; "EVENT FLAGS ALL 



; "EVENT FLAGS xx 



i < 



FLAGS, 


180$, < , FLAGS , > 


; FLAGS 


NGTNUF, 


ILLEGAL 


; Required <SP>*s 


NOTNUF , 


CLEARJLAGSJOOP 


; Get the flags 



180$: $DS_CLJ Ct.ISK.BR, 



NOTNUF, CLEAR, FLAGS^LOOP 



; Try the flags 



ZZ-ENSAA-7.0 

CU 

07-80 
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09AE 

09AE 

09AE 

09AE 

09AE 

09AE 

09AE 

09AE 

09AE 

09AE 

09AE 

0986 

09BA 

09BA 

C98E 

09BE 

09C6 

09CA 

09CA 

09D4 

C9D8 

09D8 

09E1 

09E5 

09E5 

09E9 

09ED 

09F1 

09F5 

09F5 

09F9 

09FD 

09FD 

0A01 

0A05 

0A05 

0A09 

0A0D 

OAOD 

OAT 6 



1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

(665 

1666 

1667 



; Start of CLEAR FLAGS Loop. This command accepts a list of flags, separated 

; by commas. The"commas can have spaces before and after them. The flag ALL 

; can be included anywhere in the list. Must not accept a CLEAR B, since this 

; could be CLEAR BREAKPOINTS, CLEAR BELL, or CLEAR BINARY. 



CLEAR_FLAG$_L00P: 



$DS CLi CLiSK STRING, ALL, 
SDSlCLI CLlSlTBR, 0, 



100$: $DS_CLI <*A'B">, 



$DS CLI CI,i$K_$TRING, BELL, 
SDSlCLI CLI$K_8R, 0, 

110$: $DS CLI CLI$K_ STRING, BINARY, 
$DSlCLI CLI$K_8R, 0, 

120$: $DS CLI CLI$K_ STRING, HALT, 
SDSlCLI CLI$K_BR, 0, 

130$: SDSLCLI < A A"I">, N0TNUF, 

$DS CLI < A A M E">, NOTNUF, 

SDSLCLI < A A M 1">, IE1, 
$DSlCLI CL1$K_BR, 0, 

140$: $DS CLI <*A M 2">, IE2, 
SDSlCLI CLI$K_BR, 0, 

150$: SDSLCLI <*A"3">, IE3, 
$DS.CLI CLI$K_8R, 0, 

160$: $DS_CLI < A A"S">, IES, 
SDS.CLI CLI$K_BR, 0, 

170$: $DS CLI CL I$K_STRING, LOOP, 
SDSlCLI CLI$K.8R, 0, 



100$, <'ALL f > 
END,CLEAR_FLAGS_LO0P 



NOTNUF, 120$ 



110$, <'ELL'> 
END_CL0AH_FLAGS..LOOP 

BAD LIST,<'INARY'> 

ENDlCLEAR.FLAGS.LOOP 

130$, <'HALT'> 
END_CLEAR_FLAGS_LO0P 

170$ 

BAD LIST 

1405 

END_CLEAR_FLAGSJ..OOP 

150$ 
END_CLEAR_FLAGS..LO0P 

160$ 
END_CLEAR_FLAGS_LO0P 

BAD LIST 
ENDlCLEAR.FLAGS.LOOP 

180$, < , LOOP , > 
END_CLEAR_FLAGS_LO0P 



ALl 

B 
BELL 

BINARY 

HALT 



I 

IE 

IE1 



IE2 
IE3 
IES 
LOOP 



[453 

[45: 



ZZ-ENSAA-7,0 

CLI 

07-80 
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0A1A 
0A1A 
0A27 
0A2B 
0A2B 
0A36 
0A3A 
0A3A 
0A44 
0A48 
0A48 
0A53 
0A57 
0A57 
CA61 
0A65 
0A65 
0A70 



1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 



180$: SDS CLI CLI$K„STRING, OPER, 
SDSlCLJ CLI$K_BR, 0, 

190$: $DS CLI CLI$K_STRING, PROMPT, 
SDSlCLl CL1$K_BR, 0, 

200$: $DS CLI CL1SK STRING, QUICK, 
SDSlCLI CLI$KlBR, 0, 

210$: $DS CLI CLI$K„STRING, SEARCH, 
SDSlCLI CLISK.BR, 0, 

220$: $DS CLI CLI$K_STR]NG, TRACE, 
SDSlCLl CLI$K_BR 0, 

230$J $DS CLI CLI$K_STRING, VERIFY, 
$DSlCLI CLI$K_BR, 0, 



190$, < , OPERATCR'> 

END.CLEARJUGS.LOOP 

200$, < , PROMPT'> 
END.CLEAR.r'LAGS.LOOP 

210$, < , QUICK , > 
END_CLEAR - FLAGS._LO0P 

220$, <'SEARCH'> 
END_CLEAR_FLAGS_LO0P 

230$, < , TRACE , > 
END_CLEAR_FLAGS_LOOP 

BAD LIST,< t VERlFY i > 

ENDlCLEAR^FLAGS.LOOP 



; OPERATOR 
; PROMPT 



[42] 



; SEARCH 

; TRACE 

* 

; VERIFV 



C423 
[42] 

[453 
[45] 



ZZ-ENSAA-7.0 

CLI 

07-80 
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Sequence 507 
VAX-11 Macro V03-01 Paae 



End of the CLEAR FLAGS loop. Check for <SP>'s, comma, <SP>'s, and, then go get 
another flag. The <SP>*s are optional. That is, accept the following: 



CLEAR TRACE, BELL, ALL 
CLEAR TRACE , BELL 



0A74 1688 

0A74 1689 

0A74 1690 

0A74 1691 

0A74 1692 

0A74 1693 

0A74 1694 

0A74 1695 

0A74 1696 

0A74 1697 END CLEAR,FLAGS_LOOP: 

0A74 1698 

0A74 1699 $DS_CLI CLISK.COMMA, 

0A78 1700 SDS.CLI CLI$K„BR, 

0A7C 1701 

CA7C 1702 100$: $DS_CLI CLISK.BR, 

0A8C 1703 

0A80 1704 ; 

0A80 1705 ; End of CLEAR. 

0A80 1706 ; 



NQTNUF, 
0, 

ENUF, 



ALL 



100$ 
CLEAR.FLAGS_L00P 

EOL 
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Get another flag 
Enough input 



ZZ-ENSAA-7.0 

CLI 

07-80 



Set Parameters and Qualifiers 

DIAGNOSTIC SUPERVISOR COMMAND 
Set Parameters and Qualifiers 
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0A80 


1708 


0A80 


1709 


0A80 


1710 


0A80 


1711 


0A80 


1712 


0A80 


1713 


OA80 


17H 


0A80 


1715 


0A80 


1716 


0A80 


1717 


OA80 


1718 


0A80 


1719 


0A80 


1720 


0A80 


1721 


CA80 


1722 


0A80 


1723 


0A80 


1724 


0A80 


1725 


0A80 


1726 


0A80 


1727 


0A80 


1728 


0A80 


1729 


0A80 


1730 


0A80 


1731 


0A80 


1732 


0A80 


1733 


0A84 


1734 


0A84 


1735 


0A88 


1736 


0A88 


1737 


0A88 


1738 


0A88 


1739 


0A88 


1740 


0A88 


1741 


0A90 


1742 


0A94 


1743 


0A98 


1744 



.SUBTITLE 



Set Parameters and Qualifiers 



SET parameters and qualifiers. 



SET BASE 

SET BREAKPOINTS address 

SET CRD/TRACE 

DEFAULTS 

ENFORCE 

EVENT FLAGS ALL 

EVENT FLAGS x,x,x,. 

EVENT ALL 

EVENT x,x 
SET FLAGS y,y 
SET v,y,y,... 
SET LOAD 
SET MEMORY n 



[67] 



SET 
SET 
SET 
SET 
SET 
SET 



x , . . . 

y # • • • 



[753 



SET 
SET 
SET 
SET 
SET 



MM ON 
MM OFF 
PAGE 
QA... 
WIDTH 



SET_PARAMS: 

SDS.CLI CLI$K_SPACE, 

$DS„CLI < A A'B">, 



SET BASE address 



0, 
NOTNUF, 



ILLEGAL 
112$ 



Required <SP>*s 
B [653 



$DS CLI CLI$K_STRING, BASE. 

SDS'CLI CLISK SPACE, NOTNUF, 

$DS~CLI CLI$K~NUM, ADDRESS, 

SDSlCLI CLISlTBR, ENUF, 



100$, < , ASE , > 

ILLEGAL 

ILLEGAL 

EOL 



BASE 

Required <SP>*s 

BASE Address 



ZZ-ENSAA-7.0 

CLI 

07-80 
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DIAGNOSTIC SUPERVISOR COMMAND 
Set Parameters and Qualifiers 
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0A9C 


1746 


0A9C 


1747 


0A9C 


1748 


0A9C 


1749 


0A9C 


1750 


OAAB 


1751 


OAAF 


1752 


0AB3 


1753 


0A87 


1754 


0AB7 


1755 


OABB 


1756 


OABB 


1757 


OABB 


1758 


OABB 


1759 


CABB 


1760 


OABB 


1761 


0AB8 


1762 


OABB 


1763 


0A8B 


1764 


OABB 


1765 


0AC3 


1766 


0AC7 


1767 


0AD1 


1768 


0AD1 


1769 


0AD5 


1770 


0AD9 


1771 


0AD9 


1772 


0AD9 


1773 


0AD9 


1774 


0AD9 


1775 


0AD9 


1776 


0AD9 


1777 


0AE3 


1778 


0AE7 


1779 


0AF1 


1780 


OAF 5 


1781 



SET BREAKPOINTS address 



100$: 



$DS CLI 
$DS~CLI 
SDS'CLI 

$ds:cli 



CLI$K_STRING, 
CLI$K SPACE, 
CLISKJJUM, 
CLI$K_BR, 



BREAK, 
NOTNUF, 
ADDRESS, 
ENUF, 



110$, 
.ILLEGAL 
ILLEGAL 
EOL 



<'REAKP0INTS'> 



110$: $DS_CLI CH$K_BR, 



BACKUP, SET_FLAGS_LOOP 



BREAKPOINTS 
Required <SP>'s 
BREAKPOINTS Addres 



; Backup over "B" 
; Check for BELL 



SET 



CRD/TRACE 

Allow SET CRD to mean SET CRD/TRACE for now 
are allowed. The command will eventually be 
CRD/TRACE=( VERBOSE, xxxx,...)/.. 



- until more 
like this: 



112$: 



113$: 



$DS CLI 
$DS_CM 
$DS CM 



$DS 
$DS' 



CLI 
CM 



SET 



CLISK.STRING, 

CLI$K_Slash, 

CLI$K_String, 

CLISK.EoL, 

CLISK.Br, 



0, 
NotNuf, 

0, 



120$, 
113$, 
114$, 



Set CRD_Trace, 
EnuT, Eol 



< , CRD , > 
<■ TRACE 1 > 
Illegal 



options 



SET CRD 

CRD/ 

CRD/TRACE 

Must end EOL 



[67] 
[67] 
[67] 
[67] 



[67] 
[67] 
[67] 

C67] 
[65] 



Now check for SET CRD/DEBUG/TRACE . Note that SET CRD/TRACE/DEBUG doesn't work. [69] 
that we have seen SET CRD/ so far. E° 9 J 



Note 



114$: 



$DS CM CLI$K_String, 

$D$ICM CLI$K_$lash, 

$DS CM CLI$K_String, 

$DS"Cli CLl$K.Eol, 

SDSlCli CLI$K_Br, 



NotNuf, Bad Qualifier, ODEBUO 

NotNuf, Bad^Qualif ier, 

0, Bad Qualifier, <'TRACE'>; 

Set CRD.Debuq, Illegal 

EnuT, Eol 



CRD/DEBUG [67] 

CRD/DEBUG/ [67] 

CRD/DEBUG/TRACEL67] 

Must end EOL [67] 

[65] 



2Z-ENSAA-7.0 

CLI 

07*80 
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OAF 9 
OAF 9 
OAF 9 
OAF 9 
OAF 9 
0806 



1783 
1784 
1785 
1786 
1787 
1788 



SET DEFAULTS x 



120$: SDS CLI CUSK..STRING, 
SDSlCLI CL1$K_8R, 



DEFAULT, 130$, <'DErAULTS , > 
NOTNUF, SET_DEFAULT_PARAMS 
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DEFAULTS 

Get parameters 



7Z-ENSAA-7.0 

CLI 

07-80 
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0B0A 

OBOA 

OBOA 

OBOA 

OBOA 

OBOA 

OBOA 

OBOA 

OBOA 

OBOE 

0B19 

0B1D 

0B21 

0B21 

CB2A 

0B2E 

0B38 

0B3C 

0B3C 

0B44 

0B44 

0B48 

0B48 

084 C 

0B5O 



1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

180$ 

1810 

1811 

1812 

1813 

1814 



SET ENFORCE 

SET EVENT FLAGS ALL 

SET EVENT FLAGS x,x,x, 

SET EVENT ALL 

SET EVENT x,x,x,... 



130$: $Ds CM < A A M E">, 0, 

$Ds~CLi Cli$K..String, 0, 

$Ds~Cli CliSK Eol, SetEnforce, 

SDsICli CliSOr, ENUF , 

135$: $DS CLI CH$K_STRING, EVENT, 

$DS"CLI CLI$K_SPACE, 0, 

$DS*"CLI CLISK STRING, FLAGS, 

SDSlCLl CLISKlSPACE, 0, 

140$: SDS^CLl CLISK.STRING, ALL, 

,45$: SDS^CLI CLJSK.BR, ENUF, 

150$: SDS.CLI CLISK. DEC, EFN, 

$DS CLI CLISK. COMMA, NOTNUF, 

$DSlCLI CLI$K_BR, 0, 



180$ 

135$, < , NFORCE , > 

Illegal 

EOL 

Illegal, <'VENr> 

ILLEGAL 

140$, <*FLAGS , > 

ILLEGAL 



; an E? 

; ENFORCE 

; Must end at EOL 



; EVENT 

; Required <SP>'s 

; "EVENT FLAGS" 

; Required <SP> , s 



150$, 

EOL 

BAD LIST 

145$ 

150$ 



< , ALL , > 



i * 



EVENT FLAGS ALL 



1 1 



•EVENT FLAGS xx 



i • 



ZZ-ENSAA-7.0 

CLI 

07-80 
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0Q54 

0B54 

0B54 

0854 

0B54 

0B5E 

0862 

0B62 

0B66 

0866 

0B66 

0866 

0B66 

0B66 

CB6A 

0B6E 

0B75 

0879 

0B7D 

087D 

0881 

0881 

0885 

0885 

0B85 

0B85 

0B85 

0B85 

0B89 

0889 

0893 

0B97 

0898 

0B9F 

0B9F 

0B9F 

089F 

0B9F 

0B9F 

089F 

0BA6 

OBAA 

OBAE 

0BB4 

08B8 

0888 

08BF 

0BC3 

0BC3 

08C3 

0BC3 

08C3 

08C3 

08CC 

OBDO 

08D4 

0808 



1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

186? 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 



; SET 


FLAGS 


180$: 


$DS CLI 
SDSlCLI 




SDS..CLI 


; SET 


LOAD file 


190$: 


$DS CLI 
SDSlCLI 

$DS_CLI 
$DS CLI 
$DSJLI 



CLI$K„STRING, 
CLI$K_SPACE, 

CLI$K_8R, 



-spec 



<*A"L">. 
<*A"D"> # 

CLISK.STRING, 

CLI$K_SPACE, 

CLI$K,BR, 



FLAGS, 190$, < , FLAGS , > 

0, ILLEGAL 

NOTNUF, SET_FLAGS_L0OP 



200$: 
210$: 



SDS.CLI 

$DS_CLI 



CLI$K_BR, 
CL1$KJ)R, 



SET MEMORY n 
220$: $DS CLI OA"M">, 



SET 
SET 



225$: 



230$: 



$DSJLI 
%\>SJil 
SDS.CLI 

$DS,CLI 



MM ON 
MM OFF 



$DS_CLI 
$DS_CLI 
SDS^CLI 
$DS_CLI 
SDS.CLI 

$DS.CLI 

$DS CLI 



CLISK. STRING, 
CLI5K.SPACE, 
CL1SK DEC, 
CLItKlBR, 



; FLAGS 

; <SP>*s required 



Get flags 



NOTNUF, 220$ 

NOTNUF, ILLEGAL 

SETLOAD, 200$, <*AD'> 

NOTNUF, ILLEGAL 

REQUIRED, GET.FILE.SPEC 



L 

LO 

LOAD 

Required spaces 

Required file-spec 



BACKUP, 
BACKUP, 



210$ 

SETJLAGS.LOOP 



I i rt » » 



Backup over M 

; Backup ove 

[75] 
[75] 
[75] 



NOTNUF, 235$ 

SETMEM, 225$, < , EMORY , > 

0, ILLEGAL 

DATA, ILLEGAL 

ENUF, EOL 



M 



C75] 



MEMORY [75] 

Required <SP>'sC75 

data C75] 

[75] 



CLISK STRING, 
CLI$K'SPACE, 
< A A M O n >, 
CLISK. STRING, 
CL1$K.BR, 

CLI$K.STRING, 
CLUK.BR, 



NOTNUF , 

0, 
NOTNUF, 
MMON, 
ENUF, 

MMOFF, 
ENUF, 



235$, < , MM , > 
ILLEGAL 
ILLEGAL 
230$, < , N , > 
EOL 

ILLEGAL, < , FF , > 
EOL 



MM [753 

Required <SP> f s 
MM 
MM ON 



; MM OFF 



SET PAGE n 
235$: 



236$: 



$DS CLI 
$DS.CLI 
$DS CLI 
$DS"CLI 
$DS~CLI 



CLI$K.STRING, 
CLISK SPACE, 
CLI$K~DEC, 
CLi$K~BR, 
CLI$K"BR, 



NOTNUF, 


240$, <'PAGE'> 


NOTNUF, 


ILLEGAL 


DATA, 


ILLEGAL 


PAGE, 


236$ 


ENUF, 


EOL 



PAGE [713 

required space[713 

data C713 

[713 

C713 



ZZ-ENSAA-7.0 Set Parameters and ^aUfiers L &M}ffl-JUL-M f \l%W r ffi$ Macro *&£"' ™'J& ft 

5^80 Set Parameters and Qualifiers 23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAIMKU.MAR;2/9 O) 



08DC 1873 



ZZ-ENSAA-7.0 

CL1 

07-80 



Set Parameters and Qualifiers 

DIAGNOSTIC SUPERVISOR COMMAND 
Set Parameters and Qualifiers 



L 8 
27-JUL-1984 Fiche 3 Frame L8 Sequence 514 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 ^ Page 
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OBDC 

OBDC 

OBDC 

OBDC 

OBDC 

OBDC 

OBDC 

OBDC 

OBDC 

OBDC 

OBEO 

0BE4 

0BE8 

0BE8 

OBEC 

OBEC 

OBEC 

OBFC 

OCOO 

0C04 

0C08 

0C08 

0C15 

0C19 

0C19 

0C29 

0C2D 

0C31 

0C35 

0C35 

0C46 

0C4A 

0C4E 

0C52 

0C52 

0C63 

0C67 

0C6B 

0C6F 

0C6F 

0C7D 

0C81 

0C85 

0C89 

0C89 

0C89 

0C89 

0C89 

0C89 

0C93 

0C97 

0C98 



1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1<?04 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

:922 

1923 

1924 

1925 

1926 



SET 
SET 
SET 
SET 
SET 
SET 



240$: 

242$: 
245$: 

250$: 
260$: 

270$: 

280$: 

290$: 



QACHKLOOPLOOPS x 
QADEFAULTS 
QAERRORPRINTS x 
QAMULTIPLEPASS x 
QASUBTESTLOOPS x 
OATESTLOOPS x 



$DS CLI <*A"Q"> 
$DS"CLI <*A"A"> 
$DS~CLI Cll$K_BR, 



NOTNUF, 
NOTNUF, 
0, 



300$ 
242$ 
245$ 



$DS_CLI CLI$K„BR, BACKUP, SET_FLAGS_LOOP 



$DS CLI CLI$K_STRING 

$DS'CLI CLISK^SPACE, 

$DS~CLI CLISK.DEC, 

SDSlCLI CLI$K_BR 



$DS 
$DS 



CLI 
CLI 



$DS„CLI 
SDS^CLI 

$DS_CLI 
$DS.CLJ 

$DS CLI 
SDSlCLI 

$DS_CLI 
$DS - CLI 

$DS_CLI 
$DS_CLI 

$DS„CLI 
$DS_CLI 

SDS^CLJ 

$DS_CLI 
$DS„CLI 
$DS_CL1 



; SET WIDTH x 

* 

300$: 



CLISK.STRING 
CLISK.BR 

CLI$K„STRING 
CLISK SPACE, 
CLI$K DEC, 
CL1$K.BR 

CLI$K STRING 
CLI$K"SPACE, 
CLI$KlDEC, 
CLI$K_BR 

CLISK STRING 
CLI$rSPACE, 
CLISK. DEC, 
CLI$K_8R 

CLISK STRING 
CLISK'SPACE, 
CLISKlDEC, 
CLISK BR 



QACL, 

NOTNUF, 

DATA, 

ENUF, 

QADEF, 
ENUF, 

QAEP, 
NOTNUF, 
DATA, 
ENUF, 

GAMP, 
NOTNUF, 
DATA, 
ENUF, 

QASL, 
NOTNUF, 
DATA, 
ENUF, 

QATL, 
NOTNUF, 
DATA, 
ENUF, 



$DS CLI CLI$K_STRING, 

$DSlCLI CLI$K_SPACE, 

SDS^CLI CLI$K_DEC, 

$DS_CLI CL1$K„BR, 



WIDTH, 
NOTNUF , 
DATA, 
ENUF, 



250$, < , CKLOOPLOOPS , > 

ILLEGAL 

ILLEGAL 

EOL 

260$, <'DEFAULTS'> 
EOL 

270$, < , ERR0RPRINTS , > 

ILLEGAL 

ILLEGAL 

EOL 

280$, < , MULTIPLEPASS t > 

ILLEGAL 

ILLEGAL 

EOL 

290$, < , SUBTESTLOOPS l > 

ILLEGAL 

ILLEGAL 

EOL 

ILLEGAL, < , TESTL00PS t > 

ILLEGAL 

ILLEGAL 

EOL 



C423 

QA C42D 

Skip over next one 

Backup over "Q" - 
might be SET QUICK 

QACKLOOPLOOPS [423 
Required <SP>'s 
QA,.. data 

[42] 

QADEFAULTS [42] 
No data [42] 

QAERRORPRINTS [42] 
Required <SP>*s 
QA... data 

[42] 

QAMULTIPLEPASS[423 
Required <SP> f s 
QA... data 

[42] 

QASUBTESTLOOPSL423 
Required <SP>'s 
QA... data 

[42] 

QATESTLOOPS [42] 
Required <SP>'s 
QA... data 

[42] 



SET FLAGS LOOP, <«WIDTH'>; WIDTH 

ILLEGAL ; Required <SP>*s 

ILLEGAL ; WIDTH x 

EOL 



ZZ-ENSAA-7.0 

CLI 

07-80 



Set Parameters and Qualifiers ^„o*..* 

DIAGNOSTIC SUPERVISOR COMMAND 
Set Parameters and Qualifiers 



M 8 
27-JUL-1984 Fiche 3 Frame M8 Sequence 515 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T ^ Page 
23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT3CLI.MAR;279 
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0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

0C9F 

CC9F 

0CA7 

OCAB 

UCAB 

OCAF 

OCAF 

0CB7 

OCBB 

OCBB 

0CC5 

0CC9 

0CC9 

0CD5 

0CD9 

0CD9 

0CE2 

0CE6 

0CE6 

OCEA 

OCEE 

0CF2 

0CF6 

0CF6 

OCFA 

OCFE 

OCFE 

0D02 

0D06 

0DO6 

ODOA 

ODOE 

ODOE 

0D12 

0D16 

0D1D 



1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 



Start of the flags loop. That is, there can be any number of these flags 
for a given SET FLAGS command. The flags must be separated by commas. 
Spaces may be before and after the commas. Each flag that starts with 
character(s) from other SET keywords (e.g., LOOP -> LOAD, BELL -> 
BASE, BINARY -> BREAKPOINTS, ...) must recognize the .minimum set of 
characters. That is "BE" rather than just 'B". This is so that a SET B 
command will be recognized as INCOMPLETE, rather that accepting the B,as 
B in BELL. Note: this does not apply to QUICK vs. QA... so as to remain 
compatible with pre-QA Supervisors. 



SET_FLAGS_LOOP: 

$DS CLI CLISK..STRING, 

SDSlCLI CLI$K_BR, 

100$: SDS.CLI < A A"B M >, 



110$: 
120$: 
125$: 
130$: 

140$: 
150$: 
160$: 
170$: 



$DS„CLI 
$DS_CLI 

$PS_CLI 
$DS_CLI 

$DS.CLI 
$DS_CLI 

$DS CLI 
SDSlCU 

$DS_CLI 

$DS_CLI 
$DS CLI 
$DSlCLI 

$DS CLI 

$D$ICLI 

$D$_CLI 

$DS_CLI 

$DS_CLI 
SDS^CLI 

$DS_CLI 
SDS^CLI 

$DS CLI 
$DS_CLI 



CL1$K. 
CLI$K. 

CLI$K. 

CL1$K. 

CLI$K 
CLI$K, 

CLISK 

CLI$K 



STRING, 

;br, 

STRING, 

;br, 

STRING, 

;br, 

STRING, 
IBR, 



ALL, 
0, 



100$, < , ALL , > 
END_SET_FLAGS_LOOP 



< A A"I">, 
< A A"E M >, 
<*A'1">, 

CLI$K_BR, 

<*A"2">, 

CLISK.BR, 

<*A"3">, 

CLI$K_BR, 

<*A"S">, 

CL1$K_BR, 

<*A'l">, 
< A A M 0">, 
CLI5K.STRING, 

CLI$K_BR, 



NOTNUF, 120$ 

BELL, 110$, <*ELL'> 

0, END_SET_FLAGSJ.OOP 

BINARY, BADJJST.^INARY^ 

0, END.SET.FLA6S.L00P 

DEFAULT, 125$, < , DEFAULT , > 

0, END^SET.FLAGS.LOOF 

HALT, 130$, <'HALT'> 

0, END - SET_FLAGS..LO0P 

NOTNUF, 170$ 

NOTNUF, BAD LIST 

IE1, 140$ 

0. END_SETJLAGS..LO0P 

IE2, 150$ 

0. END_SET..FLAGS_LOOP 

IE3, 160$ 

0, END^SET.FLAGS.LOOP 

IES, BAD LIST 

0, END_SET_FLAGS_LOOP 

NOTNUF, 180$ 

NOTNUF, BAD LIST 

LOOP, BAD L1ST,<'0P'> 

0, END"SET_FLAGS M LO0P 



; ALL 

; B 

; BELL 

; BINARY 

t 

; DEFAULT 

» 
* 

; HALT 



; I 
; IE 
; IE1 



; IE2 
; IE3 
; IES 



[45] 
[45] 



; L 
; LO 

; LOOP 



ZZ-ENSAA-7.0 
CLl 

07-80 



Set Parameters ■n} A gJ8ii!J € £5PEIIVISOR COMMAND L^r^ViJ 9 ||-JUL-1 98^] 

Set Parameters and Qualifiers 23-MAY-1984 1 



che 3 Frame N8 Seguence 516 
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4:10:24 DMA1:CSYS0 ^YSMAJNTJCLI .MAR;279 



63 
(5) 



OD21 

OD2E 

0D32 

0D32 

0D3D 

0D41 

0D41 

0D4B 

0D4F 

0D4F 

005A 

0D5E 

0D5E 

0D68 

CD6C 

0D6C 

0D77 



1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 



180$: 



190$: 



200$: 



210$: 



220$: 



230$: 



$DS_CLI 
$05,011 

$DS_CLI 

$DS_CLI 

$DS_CLI 
$DS.CLI 

$DS_CL1 

$DS_CLI 

SDS^CLI 

$DS_CLt 

$DS_CLI 
$DS CLI 



CLI$K. 
CLI$K w 

CLI$K„ 

CLI$K. 

CLI$K. 
CLI$K. 

CL1$K. 
CLI$K. 

CLI$K. 
Cl.IfK, 

CLISK. 

CLI*K 



STRING, 

;br, 

STRING, 

;br, 

STRING, 
£R, 

STRING, 

;br, 

STRING, 
.BR, 

STRING, 
"BR, 



OPER, 
0, 

PROMPT, 
0, 

QUICK, 
0, 

SEARCH, 
0, 

TRACE, 
0, 

VERIFY, 

0, 



190$, < , OPERATOR l > 
END.SET.FLAGSJ.OOP 

200$, <• PROMPTS 
END..SET.FLAGS.LOOP 

210$, <'QUICK'> 
END.SET_FLAGS.LOOP 

220$, <'SEARCH'> 
END.SET_FLAGS.LOOP 

230$, < , TRACE , > 
END.SET_FLAGS.LOOP 

BAD LIST # < i VERIFY , > 

END.SET_FLAGS.LOOP 



OPERATOR 

PROMPT 

QUICK 

SEARCH 

TRACE 

VERIFY 



A21 



[42] 
[42] 

[45] 
[453 



2Z-ENSAA-7.0 
ClI 

17-80 



B 9 
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bet Parameters ana uuai J e ^ pERVIS0R C0MMANL) LINE INTEH 27-J01-1984 15:07:0? VAX-11 Macro V03-0T Paqe 

Set Parameters and Qualifiers 23-MAY-1984 14: 10:24 DMA1 : CS YSO. S YSMA1NT JCL J .MAR;27? 



End of the flags loop. 



0D78 1996 

0D7B 1997 

0D7B 1998 . 

0D78 1999 

0D78 2000 END_SET_FLAGS,LOOP: 

0D78 2C01 

0D7B 2002 SDS CLI CL1$K_ COMMA, 

0D7F 2003 $D5TCLJ CLI$K,BR, 

0D83 2004 

0D83 2005 100$.* SDS.CLI CLI$K.BR, 

0D87 2006 

0D87 2007 . 

0D87 2008 ; End of SET. 

0D87 2009 



NOTNUF, 100$ 

0, SET_FLAGS w L00P 

ENUF, EOL 



Get next flag 
Enough input 



64 
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ZZ-ENSAA-7.0 

CLI 

1*7-80 



518 



C 9 
Famine Qualifiers and Parameters 27-JUL-1984 Fiche 3 Frame C9 Sequence 

examine Quanners ana Ka ™*^s commD L1NE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0f Paj 
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0D87 
0D87 
0D87 
0087 
0D87 
0D87 
0087 
0D87 
0087 
0D87 
0087 
0D87 
0087 
0087 
CD87 



2011 

2012 

2013 

2014 

2015 

2C16 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 



.SUBTITLE 



Examine Qualifiers and Parameters 



EXAMINE qualifiers and parameter. , 

This allows the qualifiers to appear either before the address value, or 

after. Thus, the following are legal: 

EXAMJNE/BYTE 200 
EXAMINE 200/BYTE 
EXAMINE/OECIMAL/BYTE 200 
EXAMINE/DECIMAL 200/BYTE 
EXAMINE 200/OECIMAL/BYTE 



EXAMINE PARAMS: 
"SOS.CLi 



CLISK SLASH, NOTNUF, 210$ 



ZZ-ENSAA-7.0 

CLl 

07-80 


D 9 

Examine Qualifiers and Parameters 27-JUL-1984 f 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-1984 


iche 3 Frame D9 Seguence 519 
15:07:02 VAX-11 Macro V03-0T Page 66 
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Examine Qualifiers and Parameters 23-MAY-1984 




0D88 


2027 ; 








0D8B 


2028 ; EXAMINE/ASCII 








0D8B 


2029 ; 








0D8B 
0D8B 


2030 

2031 $DS CLl CL1$K_STRING, ASCII, 


120$, <'ASCir> 


; /ASCII 




0D95 


2C32 SDSlCLI CLI$K_8R, 0, 


EXAMINE..PARAMS 






0D99 


2033 








0D99 


2034 ; 








0D99 


2035 ; EXAMINE/BYTE 








0D99 


2036 ; 

2037 

2038 120$: SDS CLl CLI$K_STRING, BYTE, 








0D99 
0D99 


130$, <'BYTE*> 


; /BYTE 




0DA2 


2039 SDSlCLI CLI$K„.BR, 0, 


EXAMINE.PARAMS 






0DA6 


2040 








CDA6 


2041 ; 








0DA6 


2042 ; EXAMINE/DECIMAL 








0DA6 


2043 ; 








0DA6 
0DA6 


2044 

2045 130$: SDS CLl CLI$K_STRING, DEC, 


140$, <'DECIMAL , > 


; /DECIMAL 




0DB2 


2046 SDS.CLI CL1$K_BR, 0, 


EXAMINE.PARAMS 






0DB6 


2047 








0DB6 


2048 ; 








0D86 


2049 ; EXMAINE/HEXADEC1MAL 








0DB6 


2050 ; 








0DB6 
0DB6 


2051 

2052 140$: SDS CLl CLI$K_STRING, HEX, 


150$, <'HEXADEC1MAL 


•> ; /HEXADECIMAL 




0DC6 


2053 SDS'CLl CLISK^BR, 0, 


EXAMINE.PARAMS 






ODCA 


2054 








ODCA 


2055 ; 








ODCA 


2056 ; EXAM1NE/L0NGW0RD 








ODCA 


2057 ; 

2058 

2059 150$: SDS CLl CLJSK STRING, LONG, 








ODCA 
ODCA 


160$, < , L0NGW0RD*> 


; /LONGWORD 




0DD7 


2060 SDSLCLI CLISOR, 0, 


EXAMINE_PARAMS 






ODDB 


2061 








ODDB 


2062 ; 








ODDS 


2063 ; EXAMINE/NEXT :n 








ODDB 
ODDB 
ODDB 


2064 ; 

2065 

2066 160$: SDS^CL! CI ISK..STRING, 0, 








190$, <*NEXr> 


; /NEXT 




ODEA 


2067 SDS CLl CLISK^VALUE, NOTNUF 


ILLEGAL 


; : or = 




0DE8 


2068 SDS.CLI CLISK.DEC, NEXT, 


ILLEGAL 


; : data 




ODEC 


2069 SDS CLl CLISK^BR, 0, 


EXAMINE ..PAR AMS 






ODFO 


2070 








ODFO 


2071 ; 








ODFO 


2072 ; EXAMINE/OCTAL 








ODFO 
ODFO 
ODFO 


2073 ; 

2074 

2075 190$: $DS_CL1 CLISK.STRING, OCT, 








200$, < , 0CTAL , > 


; /OCTAL 




ODFA 


2076 SDSLCLI CLISK.BR, 0, 


EXAMINE„PARAMS 






ODFE 


2077 








ODFE 


2078 ; 








ODFE 


2079 ; EXAMINE/WORD 








ODFE 
ODFE 
ODFE 


2080 ; 

2081 

2082 200$: SDS CLl CLI$K_STRING, WORD, 








BAD QUALIFIER, ^WORD 1 


> ; /WORD 




0E07 


2083 SDSlCLI CL1$K_BR, 0, 


EXAfllNE.PARAMS 





07-80 Examine Qualifiers and Parameters 23-MAY-1984 14:10:24 DMA1 :[SYSO.SYSMAINTJCLI.MAR;^V OJ 

OEOB 2086 ; Get register number or address. If have already gotten one of these, 

OEOB 2087 ; then assume we are at the end of the line. Note: spaces must always 

0E0B 2088 ; appear before the register or address. 

OEOB 2089 ; 

OEOB 2C90 

OEOB 2091 210$: $D5 CLI CLISK.BIF, IF_REG_0R_ADR,310$ ; If already gotten, 

OEOf 2092 " * assume EOL. 

OEOF 2094 $DS CLI CLI$K SPACE, NOTNUF, ILLEGAL ; Required <SP>'s 

0E13 2095 



ZZ-ENSAA-7,0 

CLI 

1)7-80 
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0E13 


2097 


0E13 


2098 


0E13 


2099 


0E13 


2100 


0E13 


2101 


0E13 


2102 


0E17 


2103 


0E1B 


2104 


0E1F 


2105 


0E1F 


2106 


0E23 


2wr 


0E23 


2108 


0E23 


2109 


0E23 


2110 


CE23 


2111 


0E23 


2112 


0E23 


2113 


0E27 


2114 


0E2B 


2115 


0E2F 


2116 


0E2F 


2117 



$DS CLI < A A M A">, REG12, 
$DS"CLI <*A'TP">, REGP, 
SDSlCLI CLI$K_BR, 0, 



230$ 
220$ 
EXAMINE.PARAMS 



220$: $DS_CU CL1$K.BR, BACKUP, 300$ 



EXAMINE FP 

This could be FP, or it could be Fxxx = address* 



230$: 



SDS^CLI < A A M F M >, 
$DS CLI < A A M P">, 
$DS~CLI CL1$K_BR, 



REG13, 250$ 
REGP, 240$ 

0, EXAMINE.PARAMS 



; A 

♦ AP 

; Go back for more 

; Backup over M A" 



240$: $DS_CLI CLI$K_BR, BACKUP, 300$ 



; F 

; fp 

; Go back for more 

; Backup over "F" 



ZZ-ENSAA-7.0 

CLI 

07-80 
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0E33 

0E33 

0E33 

0E33 

0E33 

0E37 

0E3B 

0E3F 

0E3F 

0E3F 

0E3F 

0E3F 

0E3F 

0E46 

l'C4A 

0E4A 

0E4A 

0E4A 

0E4A 

0E4A 

0E4E 



2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 



EXAMINE PC 



250$: $DS_CLI < A A"P' >, 
$DS CLI < A A"C">. 
IDS CLI CL1SK..BR, 



EXAMINE PSL 



0, 

REG15, 

0, 



260$: $DS_CLI CLl$K_STRING, REG16, 
$DS CLI CLI$K_BR, 0, 



EXAMINE Pxx processor register 

270$: $DS_CLI CLI$K_NUM, PREGN, 
$DS CLI CLI$K_8R 0, 



280$ 
260$ 
EXAMINE.PARAMS 



P 
PC 

Go back for more 



270$, < , SL , > 
EXAMINE J>ARAMS 



; PSL 

; Go back for more 



ILLEGAL 
EXAMINE.PARAMS 



; Pxx 

; Go back for more 



ZZ-ENSAA-7.0 

CLI 

07-80 
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0E52 

0E52 

0E52 

0E52 

0E52 

0E56 

0E5A 

0E5E 

0E5E 

0E5E 

0E5E 

0E5E 

0E5E 

0E62 

CE66 

0E6A 

0E6A 

0E6A 

0E6A 

0E6A 

0E6A 

0E6E 

0E72 

0E72 

0E72 

0E72 

0E72 

0E72 

0E76 

0E76 

0E76 



2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 



EXAMINE Rxx general register 



280$: SDS^CLI < A A"R M >. 

JDS CLI CLISK.DEC, 
$DS,CLI CLISK.BR, 



EXAMINE SP 



REGN, 290$ 
ADDRESS, ILLEGAL 

0, EXAMINE_PARAMS 



; R 

; Rxx 

; Go back for more 



A*t» c tl, 



290$: $DS,CLI < A A"S ">, 
$DS CLI < A A"P">, 
*DS~CLI CLISK.BR, 



REG14, 300$ 
REGP, ILLEGAL 

0, EXAMINE J>ARAMS 



S 

SP 

Go back for more 



EXAMINE address 



300$; $DS_CLI CLI$K_NUM, 
SDS.CLI CLISK.BR, 



ADDRESS, ILLEGAL 

0, EXAMINEJMRAMS 



; Address is data 
; Go back for more 



End of all the examine qualifiers and parameters. Assume EOL. 



310$: $DS_CLI CLI$K_BR 
; End of EXAMINE. 



ENUF, 



EOL 



; Enough input 



ZZ-ENSAA-7.0 

CL1 

07-80 
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SYSMAINTKLI.MAR;279 (6) 



0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 
0E76 



2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 



.SUBTITLE 



Deposit Parameters and Qualifiers 



DEPOSIT qualifiers and parameters. * rn *n,r a 

This allows the qualifiers to appear either after the DEPOSIT command, 
after the data value. That is, the following are legal: 



or 



DEPOSIT/BYTE 
DEPOSIT 3000 
DEPOSIT/BYTE 



3000 30 
30/8YTE 
3000 30/DECJMAl 



DEPOSIT PARAMS: 

~$DS_CLI CLISK.SLASH, 



N0TNUF, 200$ 



ZZ-ENSAA-7,0 

CLI 
07-80 
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0E7A 

0E7A 

0E7A 

0E7A 

0E7A 

0E83 

0E87 

0E87 

0E87 

0E87 

0E87 

0E87 

0E93 

0E97 

CE97 

0E97 

0E97 

0E97 

0E97 

0EA7 

OEAB 

OEAB 

OEAB 

OEAB 

OEAB 

OEAB 

0EB8 

OEBC 

OEBC 

OEBC 

OEBC 

OEBC 

OEBC 

0EC5 

0EC9 

OECO 

0ED1 

0ED1 

0ED1 

0ED1 

0ED1 

0ED1 

OEDB 

OEDF 

OEDF 

OEDF 

OEDF 

OEDF 

OEDF 

0EE8 



2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2221 

222^ 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 



DEPOSIT/BYTE 



$DS CL J CLI$K_STRING, 
SDSlCLI CLI$K_BR, 



BYTE, 
0, 



; DEPOSIT/DECIMAL 



120$: $DS CLI CL1$K_STRING, DEC, 
SDS'CLI CLI$K_BR, 0, 



; DEPOSIT/HEXADECIMAL 



130$: SDS.CLI CLI$K_STRING, HEX, 
$DS CLI CLI$K_BR, 0, 



DEPOSIT/LONGWORD 



40$: $DS CLI CLI$K STRING, LONG, 
SDSlCLI CLI$K~BR, 0, 



DEP0SIT/NEXT:n 



150$: $DS CLI CLI$K_STRJNG, 0, 

SDS'CLl CLl$K_ VALUE, NOTNUF , 

$DS~CLI CLISK.DEC, NEXT, 

SDSlCLI CLi$K„BR, 0, 



DEPOSIT/OCTAL 



180$: $DS CLI CLI$K_STRING, OCT, 
SDSlCLI CL1$K_BR, 0, 



DEPOSIT/WORD 



190$: $DS CLI CLI$K_STRING, WORD, 
$DSlCLI CLISK.BR. 0, 



120$, <'BYTE'> 
DEPOS HEPARANS 



; /BYTE 



130$, <'DECIMAL'> ; /DECIMAL 

DEPOSIT.PARAMS 



140$, ^HEXADECIMAL^ ; /HEXADECIMAL 
DEPOSIT.PARAMS 



150$, <*L0NGW0RD , > ; /LONGWORD 

DEPOSIT.PARAMS 



180$, < , NEXT , > 


; /NEXT 


ILLEGAL 


; : or = 


ILLEGAL 


; : data 


DEPOSIT.PARAMS 





190$, <'OCTAL'> 
DEPOSITJMRAMS 



; /OCTAL 



BAD QUALIFIER, <'WQRD*> ; /WORD 
DEPOSIT^PARAMS 



ZZ-ENSAA-7.0 

CL1 

07-80 



K 9 
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; Get reqister number or address, Jf have already gotten one of these, 

; then assume we are at the end of the line. Note: spaces must always appear 

; before the register name or address. 



73 
(6) 



OBEC 


2238 


OFEC 


2239 


OFEC 


2240 


OEEC 


2241 


OEEC 


2242 


OEEC 


2243 


OEEC 


2244 


OEEC 


2245 


OEFO 


2246 


OEFO 


224/ 


OEFO 


2248 


0EF4 


2249 


0EF4 


2250 


0EF4 


2251 


CEF4 


2252 


0,:F4 


2253 


0EF4 


2254 


0Er4 


2255 


OEf 8 


2256 


OEFC 


225/ 


OFOO 


2258 


OF 00 


2259 


OF 04 


2260 


OF 04 


2261 


0FO4 


2262 


0F04 


2263 


0F04 


2264 


OF 04 


2265 


0F04 


2266 


0F08 


2267 


OFOC 


2268 


0F10 


2269 


OF 10 


22/0 



200$: $DS_CLI CLI$K_8IF, IF_REG_0RJ\DR,310$ 

SDS.CLI CLI$K_SPACE, NOTNUF , ILLEGAL 



DEPOSIT AP 

This could be AP, or it could be Axxx = address. 



$DS_CLI < A A"A">, REG12, 
$DS CLI < A A"P M >, REGP, 
$DS CLI CL1$K_BR, 0, 



220$ 
210$ 
300$ 



210$: $DS_CLI CLI$K_BR, BACKUP, 290$ 



; DEPOSIT FP 

; This could be FP, or it could be Fxxx = address. 



220$: 



$DS CLI < A A M F M >, 
$DS CLI < A A"P M > # 
$DS~CLI CLI$K_6R, 



REG13, 

REGP, 
0, 



240$ 
230$ 
300$ 



; If already gotten, 
; assume EOL. 

; Required <SP>*s 



; A 

- AP 

; Get data value 

; Backup over M A 



» i*i i 



F 

FP 

Get data value 



230$: $DS_CLI CL1$K_8R, BACKUP, 290$ 



I irt » 



# Backup over M F 



ZZ-ENSAA-7.0 

CL1 

07-80 
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0F14 

0F14 

OF 14 

0F14 

0F14 

0F14 

0F18 

0F1C 

0F20 

0F20 

0F20 

0F20 

0F20 

0F20 

CF27 

OF 28 

0F28 

0F2B 

0F28 

OF 28 

0*28 

0F2F 



2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

22b3 

2284 

2285 

2286 

2287 

2288 

2289 

2200 

2291 

2292 

2293 



DEPOSIT PC 



240$: 



SDS CLI < A A M P M >, 
$DS~CLI < A A"C">, 

SDS CLI CLISK.BR, 



0, 
RE615, 

0, 



270$ 
250$ 
300$ 



P 
PC 

Get data value 



DEPOSIT PSL 



250$: $DS CLI CLI$K_STRING, REG16, 
SDSlCLI CLI$K.BR. 0, 



; DEPOSIT Pxx processor register 



260$: SDS CLI CLISK.NUM, PREGN, 
$DSlCLI CLISK..BR 0, 



260$, <'SL , > 
300$ 



; PSL 

; Get data value 



ILLEGAL 
300$ 



; Pxx 

; Get data value 



ZZ-ENSAA-7,0 

CLI 

07-80 



M 9 
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0F33 

0F33 

0F33 

0F33 

0F33 

0F33 

0F37 

OF 38 

0F3F 

0F3F 

0F3F 

0F3F 

0F3F 

0F3F 

CF43 

0F47 

0F4B 

0F4B 

0F4B 

0F48 

0F4B 

0F4B 

0F4F 

0F4F 

0F4F 

0F4F 

0F4F 

0F4F 

0F53 

0F57 

OF 58 

0F5B 

0F5B 

OF 58 

0F58 

OF 58 

0F5F 

0F5F 

0F5F 



229? 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2522 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 



DEPOSIT Rxx general register 

270$: SDS^CLI < A A"R M >, 

$DS CLl CLI$K_DEC, 
SDSlCLI CLI$K..BR, 

; DEPOSIT SP 

280$: $DS_CLI < A A ,, S M >, 

$DS CLI < A A M P M >, 
$DS^CLI CLI$K_8R, 



REGN, 280$ 
ADDRESS, ILLEGAL 
0, 300$ 



REG14, 290$ 
REGP, ILLEGAL 
0, 300$ 



DEPOSIT address 



290$: $DS_CLI CLISKJYUM, ADDRESS, ILLEGAL 



DEPOSIT address data 



300$: $DS. CLI CLI$K„SPACE, 0, 
SDS "CLI CL1$K_NUM, DATA, 
$DSlCLI CLI$K_BR, 0, 



ILLEGAL 
ILLEGAL 
DEPOSIT PARAMS 



; R 

; Rxx 

; Get data value 



S 

SP 

Get data value 



; Address value 



; End of all the DEPOSIT qualifiers and parameters. Assume EOL. 

310$: $DS_CLI CLISK..BR, ENUF, EOL 
End of DEPOSIT. 



Required <SP>'s 
Data value 
Go back for more 
qualifiers. 



Enough input 



ZZ-ENSAA-7.0 

CLI 

07-80 



et Default Parameters _ 4iw fc 

DIAGNOSTIC SUPERVISOR COMMAND 
Set Default Parameters 
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.SUBTITLE Set Default Parameters 
SET DEFAULT parameters. 

This allows a list of sizes and radixes, each one separated 
by a comma. Spaces may appear on either side of the 
If conflicting radixes (sizes) are given, the bi 
is used. That is, 

HEXADECIMAL > DECIMAL > OCTAL 

LONGWORD > WORD > BYTE 



0F5F 2335 

0F5F 2336 

0F5F 2337 

0F5F 2338 

0F5F 2339 

0F5F 2340 

0F5F 2341 

0F5F 2342 

0F5F 2343 

0F5F 2344 

0F5F 2345 

0F5F 2346 

0F5F 2347 SET DEFAULT_PARAMS: 

0F5F 2348 " SDS.CLI CLI$K_SPACE 



commas. 
ggest" one 



0, 



ILLEGAL 



Required <SP>'s 



?Z-ENSAA-7.0 
CLl 

07-80 



Set Default Parameters 

DIAGNOSTIC SUPERVISOR COMMANl 
Set Default Parameters 



530 
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0F63 

0F63 

0F63 

0F63 

0F63 

0F6C 

OF 70 

OF 70 

0F70 

0F70 

0F70 

0F70 

0F7C 

0F80 

CF80 

0F80 

0F80 

0F80 

0F80 

0F90 

0F94 

0F94 

0F94 

0F94 

0F94 

0F94 

0FA1 

0FA5 

0FA5 

0FA5 

0FA5 

0FA5 

0FA5 

OFAF 

0FB3 

0FB3 

0F83 

0F83 

0F83 

0F83 

0F8C 



2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

238? 

2385 

2384 

2385 

2386 

2387 

2388 

2389 

2390 



SET DEFAULT BYTE 



100S: SDS CLI CLISK.STRING, BYTE, 
SDSlCLI CLI$K_BR, 0, 



SET DEFAULT DECIMAL 



110$: SDS CLI CLI$K_STR1NG, DEC, 
SDSlCLI CLI$K_BR, 0, 



SET DEFAULT HEXADECIMAL 



120$: SDS CLI CLI$K_STRING, HEX, 
SDS^CLI CLISK.BR, 0, 



SET DEFAULT LONGWORD 



130$: SDS CLI CLI$K_STRJNG, LONG, 
SDSlCLI CLI$K_8R, 0, 



SET DEFAULT OCTAL 



140$: SDS CLI CLI$K_STRJNG, OCT, 
SDS^CLI CLI$K_BR, 0, 



SET DEFAULT WORD 



150$: SDS CLI CLlSK.STRING, WORD, 
SDSlCLI CLISK.BR, 0, 



110$, < , BYTE , > 
160$ 



120$, 
160$ 



130$, 
160$ 



; BYTE 



< f DECIMAL*> 



; DECIMAL 



< , HEXADECIMAL , > ; HEXADECIMAL 



140$, < 'LONGWORD^ ; LONGWORD 
160$ 



150$, < , OCTAL l > 
160$ 



; OCTAL 



BAD LiST^'WORD^ 
1605 



; WORD 



07-80 Set Default Parameters 23-MAY-198^ 14:10:24 DMA1 tCSYSO-SYSMAINTJCLI.MAR,^* <&; 



If there is a comma, get it and gc back for more. 
If not, it must be end of Line time. 



0F rft 2392 

C n 393 

W 
0^ ; 95 

OKU <?397 160$: $DS CLI CLI$K_COMMA, NOTNUF, 170$ ; , 

0FC4 2398 $DS"CLI CLI$KlBR, 0, 100$ ; Go back for more 

0FC8 2399 

FC8 2A00 ; , A 

0FC8 2401 ; End of SET DEFAULT parameters. Assume EOL. 

0FC8 2^02 ; 

0FC8 2404 170$: $DS CLI CLJ$K BR, ENUF, EOL ; Enough input 

OFCC 2405 

CFCC 2406 ; 

OFCC 2407 ; End of SET DEFAULT 

OFCC 2408 ; 



...J 



ZZ-ENSAA-7.0 

CLl 

07-80 
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OFCC 


2410 


.S8TTL DSSCli Routine - Command Line Interpreter 




00000000 


2411 


.PSECT CODE, SHR, EXE, NOWRT, BYTE 




0000 


2412 ; 


+ + 




0000 


2413 ; 

+% 1 A i 


FUNCTIONAL DESCRIPTION: 




0000 
0000 


2414 ; 

2415 ; 


This routine provides the basic command interpreter for the 




0000 


2416 ; 


supervisor. 




0000 


2417 ; 






0000 


2418 ; 


CALLING SEQUENCE: 




0000 


2419 ; 






0000 


2420 ; 


OSSCL I () 




0000 


2421 ; 






0000 


2422 ; 


INPUT PARAMETERS: 




0000 

cooo 


2423 ; 

2424 ; 


AP Address of R0,R1 ,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP,FP,SP,PC,PSL 




0000 


2425 . 






0000 


2426 . 






0000 


2427 , 


IMPLICIT INPUTS; 




0000 


2428 ( 






0000 


2429 ( 


NONE 




0000 


2430 , 






0000 


2431 t 


• OUTPUT PARAMETERS: 




0000 


2432 , 






0000 


2433 


NONE 




0000 


2434 






0000 


2435 


; IMPLICIT OUTPUTS: 




0000 


2436 






0000 


2437 


; NONE 




0000 


2438 






0000 


2439 


; COMPLETION CODES: 




0000 


2440 






0000 


2441 


; NONE 




0000 


2442 






0000 
0000 
0000 


2443 
2444 
2445 


; SIDE EFFECTS: 




; ALL COMMAND SUBROUTINES ARE ENTERED WITH R2 POINTING TO 




0000 


2446 


"DS$GL_CLIBASE'\ 




0000 


2447 





ZZ-ENSAA-7.0 

CLI 

D7-80 
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00000000*8 F 
00000000* EF 

52 00000444'EF 
72 

50 00000088 8F 

72 

FB 50 



22 00000000' EF 00 

00000000'EF 

00000000* EF 

0OO0FE04*EF 

DC 

04 A2 00000000'EF 
00000000'EF 



003C 

7C 
94 
DE 
D4 
DO 

7C 
F5 



E4 
16 
16 
D5 
13 
DE 
16 



90 11 



0000 

0002 

0002 

0008 

OOOE 

0015 

0017 

001E 

001 E 

0020 

0023 

0023 

0028 

0033 

0039 

003F 

0045 

0047 

004F 

0055 

0055 

005D 

005D 

005D 

0070 

0070 



2449 

2450 RCLI: 

2451 

2452 

2453 

2461 

2463 

2464 

2465 10$: 

2466 

2467 

2468 20$: 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 30$: 

2478 

2479 

2480 

2481 

2482 



.ENTRY DSSCLI , A M<R2,R3,R4,R5> 

clrq L A g adapter 

CLr8 L A SnowMemoryFlags 

MOVAL L A DS$GL CLIBASE+CLI$K_SIZE,R2 

CLRL -(R2) 

MOVL #CLI$K_SIZE/8,R0 

CLRQ -<R2) 
SOBGTR R0,10$ 

Br Ifjlot APT CLI 

BB3C #5SSV CTRLC,DS$GL_FLAGS, 30S 

JSB APT MSG 

JSB KB CHECK.APT 

TSTL L A BSA$GLJ\PTCOM 

BEQL 20$ 

MOVAL L A APT COM,CLISL C0MMAND(R2) 

JSB APT.COM 

Clear CtrLO 

SPRINT #ds$k type ds^prompt, - 

#ds*k pnnti , - 

L A DS$5TJ>ROMPT 



BR8 



RCLI 



SO 
(6) 



[483 



Clear adapter string 

Clear flags for show mem 

START AT THE END 

AFTER THIS IT IS QUAD ALIGNED 

NUMBER OF QUAD WORDS REMAINING 

CLEAR QUAD 

CLEAR OTHER QUADWOh^S 

If not in APT mode, branch [553 

Branch if A C typed 

WAIT FOR APT MESSAGE TO BE ACKED 

CHECK APT 

YES- IS THERE A COMMAND ? [413 

NO - WAIT UNTIL THERE IS ONE 

SET APT COMMAND DISPATCH [413 

ENTER APT COMMAND PROCESSOR 



A flag 
the prompt 



Clear the 

Print out 

.. use PRINTI 

Print M DS> " prompt, 

apt we're done 
CHECK FOR ANOTHER COMMAND 



tells 



C55D 
[483 
[483 
[413 
[413 



ZZ-ENSAA-7,0 

CL1 

07-80 
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08 

OOOOOOOO'EF 
08 



00000000'EF 

00000100 8F 

34 A2 

3C A2 

00000000* EF 04 

00000000 *EF 

50 0000* 8F 
09 



03 50 
FF31 



51 

03 

FF2A 



38 A2 3C A2 



0072 
0072 
0072 
007A 
0082 

1 1 008A 
008C 

16 008C 

11 0092 
0094 
0094 
009C 

9F 009C 
DD 00A2 
DF C0A8 
9F OOAB 
FB OOAE 

00B5 
D4 00B5 

OOBB 
B1 OOBB 

12 OOCO 
00C2 
OOCB 

E8 OOCB 

31 OOCE 

00D1 

00D1 

D5 00D1 

12 00D3 

31 00D5 

00D8 

00D8 

DE 00D8 

OODD 



CLI 



20$: 



2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 5$: 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 



Br If CRD AutoTest.Off 
Br~irCRD~MenuTest_Off 
Br~If"CRD"MenuTest_On 
BrE " 10$ 



5$ 
5$ 
5$ 



Jsb 
Brb 



KB Check 
205 



10$: Clear_CtrlC 



PUSHAB L A DS$GT PROMPT 

PUSHL *CLI$K BUFSIZ 

PUSHAL CLI$Q BUFQWDCR2) 

PUSHAB CLI$T"BUFFER(R2) 

CALLS tf4,L A BS„SUPERLINE 

CLRL L A Line_count 



70$: 



700$: 



71$: 



CMPW 
BNEQ 
$EXIT_S 

BLBS 
BRW 



TSTL 
BNEQ 
BRW 



MOVAL 



#SS$ ENDOFFILE.RO 

70$ " 



R0,700$ 
RCLI 



R1 

71$ 

RCLI 



CLIST BUFFER(R2), - 
CLI$G_8UFQWD+4(R2> 



If running under CRD Auto Test, branch[723 

If running under CRD Menu Test, branch[7ZJ 

If running under CRD Menu Test, branchL723 

If not CRD, branch around L67J 



Check for any A C*s 
Branch around clearing 

Clear the A C flag 

ADDRESS OF PROMPT 
SIZE OF BUFFER 
WHERE TO PUT LENGTH 
WHERE TO PUT TEXT 
GET SUPERVISOR LINE 



X flag 



[673 
[583 

[58] 

C583 

[413 



Reinit # lines output for SET PAGE [733 

EOF? 

BRANCH IF NOT EOF 

RETURN TO VMS COMMAND LEVEL 



If no errors, continue 

If error on input, try again 

CHECK FOR NULL STRING. 
Don't loop if not zero 
Loop if zero 



[413 
[413 

[413 

[403 
[403 

[403 



ZZ-ENSAA-7.0 

CLI 

07-80 



DSSCli Routine - Command Line Interprete 

DIAGNOSTIC SUPERVISOR COMMAND 
DSSCLi Routine - Command Line 



r 10 
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82 
(6) 







OODD 


2520 






OODD 


2521 






OODD 


2522 






OODD 


2523 






OODD 


2524 


0000013D'EF 


DF 


OODD 


2525 


00000180'EF 


DF 


00E3 


2526 


34 A2 


7F 


0OE9 


2527 


00000000'9F 03 


FB 


OOEC 


2528 






00F3 


2529 






0OF3 


2530 






00F3 


2531 


3C 50 


E8 


0OF3 


2532 






00F6 


2533 






C0F6 


2534 






00F6 


2535 






00F6 


2536 






00F6 


2537 






0OF6 


2538 






00F6 


2539 


00000000 E2 01 


EO 


00F6 


2540 






OOFE 


2541 






OOFE 


2542 






OOFE 


2543 






OOFE 


2544 






OOFE 


2545 






OOFE 


2546 


00000444'EF 


9F 


OOFE 


2547 


OOOOOOIB'EF 


9F 


0104 


2548 


00 


DD 


010A 


2549 


15 


DD 


010C 


2550 


00000000'GF 04 


FB 


010E 


2551 


FEEA 


31 


0115 


2552 






0118 


2553 






0118 


2554 






0118 


2555 






0118 


2556 






0118 


2557 


00000444 , EF 


9F 


0118 


2558 


0000003A'EF 


9F 


011E 


2559 


00 


DD 


0124 


2560 


15 


DD 


0126 


2561 


00000000'GF 04 


FB 


0128 


2562 


FEDO 


31 


01 2F 


2563 






0132 


2564 






0132 


2565 






0132 


2566 






0132 


2567 






0132 


2568 


50 04 A2 


DO 


0132 


2569 


02 


13 


0136 


2570 


60 


16 


0138 


2571 


FEC5 


31 


013A 


2572 



Parse the Supervisor Line, 



PUSHAL L A CLI ACTION 

PUSHAL L A C0MMAND TREE 

PUSHAQ CLISQ BUF3WD(R2) 

CALLS #3. a?DSX$SUPERPARSE 



BLBS RO, 90$ 



Call the special Supervisor [45J 
parser. The only difference between L45J 
it and the reqular DSSPARSE is that [45] 
it does not return when EOL (i.e., [453 
it continues parsing until CLI$K_EXITL45J 
is seen). l45J 



If parsed successfully, branch 



[45] 



Parsed unsuccessfully. Check NOTNUF flag. If it is set, 
implies an illegal command (see ACT INC.CMD). It it is 
clear, implies an incomplete command (see ACT_JNC.CMD). 



BBS #CLI$V NOTNUF, - 

L A CLl$L FLAGS <R2),75$; 



If NOTNUF set, branch 



[45] 
[45] 



ILLEGAL COMMAND 



PUSHA8 

PUSHAB 

pushl 

pushl 

CALLS 

BRW 



l A Q GOOD CMD 
lTILLCRD 
#ds$k printi 
0ds$k~type command err 
#4, G*DSX$PRINT 
RCLI 



Push desc. of good part 
Push ILLEGAL COMMAND 
use PRINTI 
Command error code 



[43] 
[43] 
[48] 
[48] 
[48] 



INCOMPLETE COMMAND 



75$: PUSHAB L A Q_GOOD CMD 

PUSHAB L A T INCOMPLETE 

pushl #ds5k_printi 

pushl #ds$k type command_err 

CALLS #4, G*DSX$PRINT 

BRW RCLI 



No errors anywhere! 



90$: MOVL CLI$L„C0MMAND(R2) ,RQ 

BEQL 99$ 

JSB (RO) 

99$: BRW RCLI 



Push desc. of good part 
Push INCOMPLETE COMMAND 
use PRINTI 
Command error code 



[43] 
[43] 
[48] 
[483 
[48] 



TO GET ADDRESS OF EXECUTION ROUTINE. 
SKIP CALL IF NULL 
CALL FINAL ACTION ROUTINE 
CONTINUE COMMAND SCAN 



ZZ-ENSAA-7.0 

CLI 

07-80 
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013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

C13D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

013D 

01 3D 



2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 



++ 



.S8T7L CLI Action Routines, 
FUNCTIONAL DESCRIPTION: 

THESE ROUTINES SAVE THE COMMAND LINE INFORMATION AS IT IS BEING PARSED. 

CALLING SEQUENCE: 

SUBROUTINE CALL FROM THE "PARSE" SERVICE ROUTINE. 
INPUT PARAMETERS: 



RO 
R1 
R8 



= ACTION CODE FROM TREE. 

= DATA, IF CLI SK NUM. 

= POINTER TO NEXT CHARACTER. 



IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



ZZ-ENSAA-7.0 

CLI 

07-80 



CLI Action Routines. 



80'8F 00 



DIAGNOSTIC 


SUPERVISOR I 


;0MMAND LI 


CLI Action 


Routines. 




01 3D 


2601 




0130 


2602 CLI.ACTJON:: 


50 8F 013D 


2603 


CASEB 


00000000 0142 


2604 10$: 


$$N=0 


0142 


2605 




0142 


2606 


CASEDEF 


0144 


2607 


CASEDEF 


0146 


2608 


CASEDEF 


0148 


2609 


CASEDEF 


014A 


2610 


CASEDEF 


014C 


2611 


CASEDEF 


014E 


2612 


CASEDEF 


0150 


2613 


CASEDEF 


0152 


2614 


CASEDEF 


C154 


2615 


CASEDEF 


0156 


2616 


CASEDEF 


0158 


2617 


CASEDEF 


01 5A 


2618 


CASEDEF 


015C 


2619 


CASEDEF 


015E 


2620 


CASEDEF 


0160 


2621 


CASEDEF 


0162 


2622 


CASEDEF 


0164 


2623 


CASEDEF 


0166 


2624 


CASEDEF 


0168 


2625 


CASEDEF 


01 6A 


2626 


CASEDEF 


016C 


2627 


CASEDEF 


016E 


2628 


CASEDEF 


01/0 


2629 


CASEDEF 


0172 


2630 


CASEDEF 


01 74 


2631 


CASEDEF 


0176 


2632 


CASEDEF 


0178 


2633 


CASEDEF 


01 7A 


2634 


CASEDEF 


017C 


2635 


CASEDEF 


01 7E 


2636 


CASEDEF 


0180 


2637 


CASEDEF 


0182 


2638 


CASEDEF 


0184 


2639 


CASEDEF 


0186 


2640 


CASEDEF 


0188 


2641 


CASEDEF 


018A 


2642 


CASEDEF 


018C 


2643 


CASEDEF 


018E 


2644 


CASEDEF 


0190 


2645 


CASEDEF 


0192 


2646 


CASEDEF 


0194 


2647 


CASEDEF 


0196 


2648 


CASEDEF 


0198 


2649 


CASEDEF 


019A 


2650 


CASEDEF 


019C 


2651 


CASEDEF 


019E 


2652 


CASEDEF 


01A0 


2653 


CASEDEF 


01A2 


2654 


CASEDEF 


01A4 


2655 


CASEDEF 


01A6 


2656 


CaseDef 


01A8 


2657 


CaseDef 
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R0,*0, m$ 



NULL, MSN 

illj:md,\$$n 

INC CMD,\$$N 

CONTEXT ,\$$N 

SUCCESS, \$$N 

FAILURE, \$$N 

ABORT, \$$N 

ATTACH, \$$N 

CLEAR, \$$N 

CONTINUE, \$$N 

DEATTACH,\$$N 

DEBUG, \$$N 

DEBUG SWITCH, \$$N 

DEFAUCT DBG,\$$N 

DEPOSIT, \$$N 

DIRECTORY, \$$N 

EXAMINE, \$$N 

EXIT,\$$N 

HELP,\$$N 

LOAD,\$$N 

NEXTJNST,\$$N 

ENUF,\$$N 

HOTNUF,\$$N 

RUN,\$$N 

SCRIPT, \$$N 

SET,\S*N 

SHOW,\$SN 

Clear CRD„TraceA$$N 

Set CRD Trace, \$$N 

SetlCRD Debug, \S$N 

Clear CRD Debug, \$SN 

Show CRD Trace, \$$N 

Show"CalTs,\$$N 

START, \$$N 

SUMMARY, \$$N 

CRD,\$$N 

FILESPEC,\$$N 

FILEND,\i$N 

OPTIONAL, \$SN 

REQUIRED, \$$N 

TEST,\$$N 

LAST,\$$N 

SUBTEST. \S$N 

MM0N,\$$N 

MMOFF,\$$N 

SH0WMM,\$$N 

PREGN,\$$N 

SECTION, \$$N 

PASS.\$$N 

QA,\$$N 

SetEnforce,\$$N 

ClearEnforce,\$SN 



Must be first 



[43] 
[43] 
[43] 
[43] 
[463 
[46] 



[48] 
[59] 
[62] 
[59] 



[46] 



[65] 
[65] 
[69] 
[69] 
[65] 
[70] 



[60] 



[453 
[45] 



[423 
[57] 
C573 



ZZ-ENSAA-7.0 

CLI 

07-80 



CLI Action 



Routines. 






DIAGNOSTIC 


SUPERVISOR 


COMMAND LI 


CLI Action 


Routines. 




01AA 


2658 


CASEDEF 


01AC 


2659 


CASEDEF 


01AE 


2660 


CASEDEF 


01B0 


2661 


CASEDEF 


01B2 


2662 


CASEDEF 


01BA 


2663 


CASEDEF 


01B6 


2664 


CASEDEF 


01B8 


2665 


CASEDEF 


018A 


2666 


CASEDEF 


01BC 


2667 


CASEDEF 


01BE 


2668 


CASEDEF 


01C0 


2669 


CASEDEF 


01C2 


2670 


CASEDEF 


01C4 


2671 


CASEDEF 


C1C6 


2672 


CASEDEF 


01C8 


2673 


CASEDEF 


01 CA 


2674 


CASEDEF 


01CC 


2675 


CASEDEF 


01CE 


2676 


CASEDEF 


01D0 


2677 


CASEDEF 


01D2 


2678 


CASEDEF 


01D4 


2679 


CASEDEF 


01D6 


2680 


CASEDEF 


01D8 


2681 


CASEDEF 


01 DA 


2682 


CASEDEF 


01DC 


2683 


CASEDEF 


01DE 


2684 


CASEDEF 


01E0 


2685 


CASEDEF 


01E2 


2686 


CASEDEF 


01E4 


2687 


CASEDEF 


01E6 


2688 


CASEDEF 


01E8 


2689 


CASEDEF 


01EA 


2690 


CASEDEF 


01EC 


2691 


CASEDEF 


01EE 


2692 


CASEDEF 


01F0 


2693 


CASEDEF 


01F2 


2694 


CASEDEF 


01F4 


2695 


CASEDEF 


01F6 


2696 


CASEDEF 


01F8 


2697 


CASEDEF 


01FA 


2698 


CASEDEF 


01FC 


2699 


CASEDEF 


01FE 


2700 


CASEDEF 


0200 


2701 


CASEDEF 


0202 


2702 


CASEDEF 


0204 


2703 


CASEDEF 


0206 


2704 


CASEDEF 


0208 


2705 


CASEDEF 


020A 


2706 


CASEDEF 


020C 


2707 


CASEDEF 


020E 


2708 


CASEDEF 


0210 


2709 


CASEDEF 


0212 


2710 


CASEDEF 


02H 


2711 


CASEDEF 


0216 


2712 


CASEDEF 


0218 


2713 


CASEDEF 


021A 


2714 


CASEDEF 
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EVENT, \$$N 

FLAGS, \$$N 

BASE,\$$N 

ADDRESS, \$$N 

BREAK.\$$N 

ALL,\i*N 

DEFAULT, \$$N 

BELLASSN 

BINARY, \$$N ; 

HALT,\$$N 

IE1,\$$N 

IE2,\$SN 

IE3,\$$N 

IES,\$$N 

LOOP,\$$N 

OPER,\$$N 

PROMPT, \$$N 

QUICK, \$$N 

SEARCH, \$$N 

TRACE, \$$N 

VERIFY, \$$N 

QAEP,\$$N 

QACL,\$SN 

QATL,\$$N 

QASL,\$$N 

QAMP,\$$N 

QADEF,\$$N 

EFN,\$$N 

NEXT,\$$N 

PAGE,\$$N 

WIDTH, \$$N 

ASCII, \$$N 

REGNA$$N 

REG12,\$$N 

REG13,\$$N 

REG14,\$$N 

REG15,\$$N 

REG16,\$$N 

REGP,\$$N 

BACKUP, \$$N 

ADVANCE, \$$N 

DATA,\$$N 

LONG,\$SN 

WQRD,\$$N 

BYTE,\S$N 

HEX,\$$N 

DEC,\$$N 

OCT,\$$N 

IF_RUN,\$$N 

IF. REQUIRED, \$$N 

IF FILE SPECA$$N 

I F "ADAPTER, \$$N 

IF'RfcG OR^ADR,\$$N 

ifrotuserassn 
if xdeltaa$$n 
xdElta,\$$n 

DEVICE, \$$N 



85 
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[453 



[45] 
[42] 
[42] 
[42] 
[42] 
[42] 
[42] 



[71] 
[38] 



[45] 



[45] 
[45] 
[48] 
[43] 
[38] 



ZZ-ENSAA-7.0 

CL1 

07-80 



CLI Action 



Routines. 

DIAGNOSTIC 
CLI Action 

021C 
021E 
0220 
0222 
0224 
0226 
0228 
022A 
022C 
022E 
0230 
0232 
0234 
0236 
C238 
023A 
023C 
023E 
0240 
0242 
0244 
0244 
0244 
00000080 0244 
0244 
0244 
05 0259 



SUPERVISOR 
Routines. 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 ; 

2736 ; 
2737 
2738 
2739 

2740 20$: 
2741 



COMMAND 



K 10 
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CASEDEF BRIEF, \$$N 
CASEDEF BEGINADAPTER,\$$N 
CASEDEF ADAPTER, \S$N 
CASEDEF DESELECTA$$N 
CASEDEF SELECT, \$$N 
CASEDEF SHOWSEL,\$$N 
CASEDEF DO CMD,\$$N 
CASEDEF SETLOAD,\$$N 
CASEDEF SHOWLOAD,\$$N 
CASEDEF SHOWSUP,\$$N 
CASEDEF SHOWSTATUS,\$$N 
CASEDEF SHOUSECTIONS,\$$N 
CaseDef ShowMem,\$$N 
CaseDef ShoMemMap,\$$N 
CaseDef ShoMem8uf ,\$$N 
CaseDef ShoMemDat,\$$N 
CaseDef ShoMemAU ,\$$N 
CASEDEF SETMEM,\$$N 
CASEDEF 1N1TPCS,\$$N 
CASEDEF DIR WIDE,\$$N 
CASEDEF BEGlNTIME,\$$N 
CASEDEF TIME, MSN 

$$$=$$N-1 

ERRSUP S MSGADR=L A T„PRGERR 
RSB 



86 
(6) 

C44J 
[433 
[43] 



[44] 
[39] 
[46] 



;*** INVALID ACTION CODE???? 



C751 
1771 

[80] 
[76] 
[76] 



[41] 



07i 80 Null and Context-Saving Action Routines 23-MAY-1984 14:10:24 DMA1 ;CSYS0.SYSMAINTJCLKMAR;2^V <o> 

025A 2743 .SUBTITLE Null and Context-Saving Action Routines 

025A 2744 ;+ _ r 

025A 2745 ; NULL ACTION ROUTINE. . , , . L fc . „,„ <. u -^ ,♦* 

025A 2746 ; This action routine must remain here. It is the.action routine that is 

025A 2747 ; done when the parser executes the action routine. 

025A 2748 ;- 

025A 2749 ACTJIULL: 

05 025A 2750 RS8 ; RETURN 

0258 2751 

0258 2752 ;+ 

0258 2753 ; ILL CMD Action routine. 

0258 2754 ;- " r ,,-. 

0258 2755 ACTJLL.CMD: ; ^ 

06 62 01 E5 025B 2756 BBCC tfCLISV.NOTNUF , - ; L43J 
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04 11 



00 62 01 E3 



00000448'EF 
58 



38 A2 



00000448'EF 
00000444' EF 



DO 
C3 
05 



025F 

025F 

0261 

0261 

0261 

0261 

0261 

0261 

0265 

0265 

0265 

0265 

0265 

0265 

C265 

0265 

0265 

026D 

026D 

0274 

0279 



BR8 



CLISL FLAGS (R2), ACT.CONTEXT 
ACT_C0NTEXT 



2758 

2759 10$: 
2760 

2761 ;+ 

2762 ; INC CMD Action routine. 

2763 ;- " 

2764 ACTJNC.CMD: 

2765 BBCS *CLI$V NOTNUF, - „ , 

2766 CLISC..FLAGS (R2), ACT.CONTEXT 
2767 

2768 ;+ 

2769 ; CONTEXT Action routine. , ... 

2770 ; Branch to when error. Save descriptor of good portion of command line. 
27/1 ;- 

2772 

2773 ACT.C0NTEXT: 

2774 M0VL CLISG BUFQWD+4CR2) , - 

2775 Q GOOD CMD+4 

2776 SUBL3 Q,GO0D CMB+4, - 

2777 R8, 5_G00D.CMD 

2778 RSB 
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[43] 
[43] 



[43] 
[43] 
[43] 



Address of good portion 



Length 
Return 



[43] 
[43] 
[43] 
[43] 
[43] 
[433 



ZZ-ENSAA-7.0 
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N 10 
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.SUBTITLE Success, Failure, Notnuf, Enuf Action Routines 
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00 0000044C f EF 00 



00 0000044CEF 00 



00 62 01 



U0 62 01 



027A 2780 

027A 2781 ;+ 

027A 2782 ; SUCCESS Action routine. 

027A 2783 ;- 

027A 2784 ACT..SUCCESS: m 4A-i 

E3 027A 2785 BBCS #0, 8.SUCCESS, 10$ 

05 0282 2786 10$: RSB 

0283 2787 

0283 2788 ;+ 

0283 2789 ; FAILURE Action routine. 

0283 2790 ;- 

0283 2791 ACT„FAILURE: 

E5 0283 2792 BBCC #0, B_SUCCESS, 10$ 

05 028B 2793 10$: RSB 

C28C 2794 

028C 2795 ;+ 

028C 2796 ; NOTNUF ACTION ROUTINE. 

028C 2797 ;- 

028C 2798 ACTJJ0TNUF; 

E3 028C 2799 BBCS #CLI$V NOTNUF , - 

0290 2800 CLI$C_FLAGS<R2), 10$ 
05 0290 2801 10$: RSB 

0291 2802 
0291 2803 ;+ 

0291 2804 ; ENUF Action routine. 

0291 2805 ;- 

0291 2806 ACT_ENUF: 

E4 0291 2807 HBSC tfCLISV NOTNUF, - 

0295 2808 CLISC FLAGSCR2), 10$ 

05 0295 2809 10$: RSB 



Indicate SUCCESS 



C46] 



Indicate FAILURE 



C463 



SET NOT ENOUGH FLAG. 
RETURN 



INDICATE SUFFICIENT INFO. 
RETURN. 



ZZ-ENSAA-7.0 

CLI 

07-80 



Commands A-C Action Routines 

DIAGNOSTIC SUPERVISOR COMMAND 
Commands A-C Ac* 'Ion Routines 
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08 A2 59 

0C A2 58 

04 A2 OQOOOGOO'EF 



04 A2 00000000'EF 
00 62 02 



00000000* Ef 02 
04 A2 000OQ2CD'EF 



DO 
DO 
9E 
05 



04 A2 00000000' EF DE 

05 



DE 
05 



8A 
9E 
05 



00000000' EF 16 



04 



0296 

0296 

0296 

0296 

0296 

0296 

029A 

029E 

02A6 

02A7 

02A7 

02A7 

02A7 

02A7 

C2A7 

02AF 

02AF 

0280 

0280 

0280 

02B0 

0280 

02BO 

02B8 

0288 

028C 

028C 

02BD 

028D 

02BD 

028D 

028D 

02BD 

02C4 

02CC 

02CD 

02CD 

02CD 

02CD 

02CD 

02E3 

02E9 

02E9 

02E9 



2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 



.SUBTITLE 
; ATTACH COMMAND. 
ACT ATTACH: 



Commands A-C Action Routines 



MOVL 
MOVL 
MOVA8 
RS8 



R9,CLJ$Q FILE(R2) ; SAVE LENGTH OF STRING 
R8,CLI$Q~FJLE*4<R2) ; SAVE ADDRESS OF REMAINDER 
L a DSVSATTACH,CLJ$L C0MMANDCR2) ; SET COMMAND PROCESSOR 



[41] 



; ABORT COMMAND. 

ACT ABORT: 

MOVAL 

RS8 



L A VRABORT, - 

CLI$L_C0MMAND(R2) 



LOAD COMMAND ROUTINE ADDRESS 



[413 



; CLEAR COMMAND. 

ACT CLEAR: 

MOVAL 



10$: 



BBSS 
RSB 



l A VRCLRFLG, - 

CLI$L C0MMAND(R2) 
#CLI$V TLEAR, - 

CLISE FLAGS(R2), 10$ 



LOAD COMMAND ROUTINE ADDRESS 

SET CLR FLG. 

RETURN. 



un 



CONTINUE COMMAND. 
ACT.CONTJNUE: 



10$: 



BJC82 
MOVAB 
RSB 



#2,L A DE8UG$G8 FLAGS 
10$,CLI$L_C0MflAND(R2) 



SPRINT 0ds$k type command_out,- 
*ds5k onntf, - 
L A T C0NT, - 
60(AP) 

JSB SCRIPT$CONT 



ACT CONT:: 
10$" RET 



CLEAR STEP FLAG 
SET COMMAND ADDRESS 



Print command output 

.. use PRINTF 

.. Continue message 

.. Type PC 

Continue script if present 



RETURN TO Cl.TS CALLER 



[41] 



[48] 
[483 
[481 
[48] 



C 11 



^ f> •* 1 



<*-~ .-„.« C/.J. 



ZZ-ENSAA-7.0 

CL1 

07-80 



Commands D-E Action Routines 

DIAGNOSTIC S. 
Commands D-E Action Routines 



C 11 
27-JUL-1984 



Seguence 544 
DIAGNOST i C'SUPERVI SOR COMMAND LINE INTER" 27-JUL-1 984 15:07:02 VAX-li Macro V03-0T Page 



04 A2 00000000'EF 



DE 
05 



04 A2 00000000' EF 



08 A2 0000030D'EF 
OC A2 0000030E'EF 



DE 
05 



9A 
DE 

05 



02EA 
02EA 
02EA 
02EA 
02EA 
02EA 
02F2 
02F2 
02F3 
02F3 
02F3 
02F3 
02F3 
02F3 
C2F3 
02F8 
02FC 
02FC 
02FC 
0304 
030C 
030C 



.SUBTITLE 



L A dsv$deattach, - 
cti$l_command(r2) 



47 55 42 45 44 53 44 56 00' 030D 

08 030D 



2856 

2857 ;♦ 

2858 ; DEATTACH command 

2859 ;- 

2860 act_deattach: 

2861 moval 
2862 

2863 rsb 
2864 

2865 ;+ 

2866 ; DEBUG COMMAND 

2867 ;- 
2868 

2869 ACT_DEBUG: 

2870 MOVAL 

2871 RSB 
2872 

2873 ACT.DEFAULT DBG:: m , ^ 

2874 M0V78L DBG NAME,CLI$Q_FILE <R2> 

2875 MOVAL DBGJVAME+I, - t ^ 

2876 CLI$Q_FILE+4(R2) 

2877 RSB 

2878 DBG NAME: .ASCIC /VDSDEBUG/ 



F i che 3 Frame C11 

t , . v , ,,„, 15:07:02 VAX-11 _ A 

23-MAY-1984 14:10:24 DMA! :[SYS0.SYSMAINTJCLI.MAR;279 

Commands D-E Action Routines 



91 
(7) 



Load command routine address 
Just return 



L A DSV$DEBUG,CU$L_COMMAND(R2) 



LOAD ADDR. OF DEBUG COMMAND 
RETURN 



BUILD FILENAME DESC. FOR DEFAULT DBG 

GET CHARACTER COUNT 

GET ADDRESS OF FILENAME STRING 

RETURN 

DEFAULT DEBUGGER NAME 



[48] 
[483 
[483 
[483 

[593 
[59] 
[59] 

[59] 
[59] 

[59] 

[59] 
[59] 
[59] 
[593 
[59] 
[683 



04 A2 00000000'EF 
00 62 19 



DE 
12 
05 



04 A2 00000000'EF 



9E 
05 



00000000'EF 

04 A2 

00000000'EF 



00000000'EF 01 



DE 

94 
05 



90 
05 



0316 2879 

0316 2880 ;+ 

0316 2881 ; DEPOSIT COMMAND. 

0316 2882 ;- 

0316 2883 ACT DEPOSIT; 

0316 2884 " MOVAL 

031E 2885 

031 E 2886 BBSS 

0322 2887 

0322 2888 10$: RSB 

0323 2889 
0323 2890 ;+ 
0323 2891 ; DESELECT 
0323 28<>2 ;- 
0323 2893 ACT^DESELECT: 
0323 2894 MOVAB 
032B 2895 RS8 
032C 2896 

032C 2897 ; 

032C 2898 ; Directory command 

032C 2899 ;- 

032C 2900 

032C 2901 ACT,DIRECTORY: 

032C 2902 MOVAL 

0332 2903 

0334 2904 CLR8 

033A 2905 RSB 

0338 2906 

033B 2907 ACT DIR WIDE: 

0338 2908 " "M0V8 

0342 2909 RSB 

0343 2910 
0343 2911 ;+ 



L A VRDEPOSIT, - 
CL1$L COMMVND(R2) 

*CLI$V J5EPOSJT, - 
CLISC FLAGS'R2), 10$ 



LOAD COMMAND ROUTINE ADDRESS. 
SET DEPOSIT FLG. 



[41] 



L A PSV$DESELECT,CLI$L..C0MMAND(R2) ; SET COMMAND ROUTINE 



[413 



l a dsv$djrectory,~ 
cli$l commandcr2) 
l a wide;flag 



01,L A WIDE_FLAG 



Set dispatch address for command 
WIDEJLAG in DIRECTORY module 

WIDE.FLAG in DIRECTORY module 



[803 



[803 
[803 
[803 



7Z-ENSAA-7.0 

CL1 

07-80 



D 11 
fnmmAnric; D-F Action Routines 27-JUL-1984 Fiche 3 Frame 011 

Commands D E Action Rout nes QR p ^ ^ 27-JUL-1984 15:07:02 ^'twa ^ mmn ni MAR-27 

Commands D-E Action Routines 23-MAY-1984 14:10:24 DMA1 :[SYS0,SYSMAlNTJCU.MAR,<y 



Seguence 545 
VAX-li Macro V03-01 Paae 



04 A2 00000000' EF 
00 62 05 



04 A2 00000000' EF 



L A VREXAMINE, - 

CLI$L C0MMAND(R2) 

#CLI$V EXAM, - 

CLI$[JLAGS(R2), 10$ 



0343 2912 ; EXAMINE COMMAND. 

0343 2913 ;- 

0343 2914 ACT.EXAMINE: 

0E 0343 2915 M0VAL 

034B 2916 

E2 034B 2917 B8SS 

034F 2918 

05 034F 2919 10$: RSB 

0350 2920 

0350 2921 ;+ 

0350 2922 ; EXIT Action routine. 

0350 2923 ;- 

0350 2924 ACT.EXJT: 

DE 0350 2925 MOVAL L A DSV$EXIT, - 

C358 2926 CLI$L_COMMAND (R2) 

05 0358 2927 RSB 



LOAD COMMAND ROUTINE ADDRESS. 
CHECK FOR EXAMINE. 



92 
(7) 



L41] 



Load EXIT routine address 
Return 



C463 
[46] 
C46J 



ZZ-ENSAA-7.0 

CL1 

07-80 



Commands H-R Action Routines „ rt ^*^ 

DIAGNOSTIC SUPERVISOR COMMAND 
Commands H-R Action Routines 



27-JUL-198A Fiche 3 Frame E11 Seguence 5A6 
LINE INTER 27-JUL-198A 1 5 J 07 : 02 VAX-11 Macro V03-0T Page 
23-MAY-198A 1A:10:2A DMA1 :[SYS0.SYSMAINT3CLI .MAR;279 



93 
(7) 



00000000' EF 

OOOOOOOO'EF 

50 OOOOOOOO'EF 

OA AO 58 

60 59 

00000000' EF 

7E 00000000'EF 

6E 

00000000'EF 01 

8E 

06 50 

OOOOOOOO'EF 

FC69' 



04 A2 9D'AF 



OOOOOOAB'EF 

01 

15 

00000000 'GF 03 



OOOOOOOO'EF 00 



OA A2 OOOOOOOO'EF 

62 40 8F 

18 A2 0000'8F 



U A2 01 

OOOOOOOO'EF 02 

OA A2 FF08 CF 



0359 
0359 
0359 
0359 
0359 
0359 
16 0359 
16 035F 
9E 0365 
DO 036C 
DO 0370 
16 0373 
70 0379 
7F 0380 
FB C382 
7C 0389 
E8 038B 
16 038E 
31 039A 
0397 
0397 
0397 
0397 
0397 
0397 
9E 0397 
05 039C 
039D 
039D 
9F 03A5 
DD 03AB 
DD 03AD 
F8 03AF 
05 03B6 
03B7 
FB 03B7 
05 03BE 
03BF 
03BF 
03BF 
03BF 
03BF 
DE 03BF 
03C7 
88 03C7 
03CB 
3C 03CB 
05 03D1 
03D2 
03D2 
03D2 
03D2 
03D2 
DO 03D2 
88 03D6 
9E 03DD 
05 03E3 



2929 

2930 

2931 

2932 

2933 

293A 

2935 

2936 

2937 

2938 

2939 

29A0 

29A1 

29A2 

29A3 

29AA 

29A5 

29A6 

29A7 

29A8 

29A9 

2950 

2951 

2952 

2953 

295A 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

296A 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

297A 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

298A 

2985 



.SUBTITLE 



Commands H-R Action Routines 



HELP Command action routine 



ACTJHELP: 

JSB 



20$: 



JSB 

MOVAB 

MOVL 

MOVL 

JSB 

MOVQ 

PUSHAQ 

CALLS 

CLRQ 

BL8S 

JSB 

BRW 



SCRIPTSFLUSH 

DS CLEANUP 

HECPINFO.RO 

R8,A(R0) 

R9,(R0) 

INIT CONTEXT 

HELPlNFO,-(SP) 

(SP) 

*1,L A DSX$HELP 

(SP) + 

R0,20$ 

DSR$COMPLETJON 

BEGIN 



Flush scripts if console command 

Clean up program if necessary 

Place to save pointers 

Save address 

Save length 

Re-init stacks, PCB, ... 

Restore descriptor 

and set pointer to it 

Call the HELP routine 

Remove descriptor 

If no HELP error, continue 

Type error text 

Can't return— so start over 



; INITPCS 



begin 1771 



ACT INITPCS: t ^ v _, J 

MOVAB B A 10$,CLI$L COMMAND(R2) ; Load command routine address 

RSB 



10$: BR IF NOT USER 20$ 
PU3HAS L*T EMESSG1 

pushl #ds$k_printf 

push I *ds$k typecommand_err 

CALLS #3, G*DSX$PRINT 
RSB 

20$: CALLS #0,DSV$INJTPCS 
RSB 



Print with PRINTF 
Command error code 
Print 



; Routine to do the work 



; LOAD COMMAND. 

ACT.LOAD: 

MOVAL 

BISB2 

MOVZWL 
RSB 



L A DSV$L0AD, - 

CLI$L C0MMAND(R2) 
#iaCLI$V LOAD, » 

CLISL FLAGSCR2) 
0DS$A PRGBGN,CLI$LJ\DDRESS(R2: 



Load command routine address 



SET LOAD COMMAND 
DEFAULT LOAD ADDRESS 



NEXT Action routine. 



act.next inst: 

movl 

BIS82 
MOVAB 
RSB 



STEP 



#1, CLI$L DATACR2) ; DEFAULT IS ONE 

#2,L A DEBUG$GB FLAGS ; SET STEP FLAG 

W A ACT C0NT,CLl$L C0MMANDCR2) ; SET PROCESSING ADDRESS 



CA13 



J 



ZZ-ENSAA-7.0 

CLI 

07-80 



Commands H-R Action Routines ,.„„„.»,„ 

DIAGNOSTIC SUPERVISOR COMMAND 
Commands H-R Action Routines 



F 11 
27-JUL-1984 Fiche 3 Frame F11 Seguence 547 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01^ Page 
23-MAY-1984 14:10:24 DMA1:CSYS0.SYSHAINT3CLI.MAR;279 



94 
(7) 



04 A2 



00 62 15 

00000000'EF 



2C A2 01 

03 OOQOFEOO'EF OE 

2C A2 



E3 

DE 

DO 
E1 
D4 
05 



03E4 
03E4 
03E4 
03E4 
03E4 
03E4 
03E8 
03E8 
03F0 
03F0 
03F4 
03FC 
03FF 



2986 

2987 ;+ 

2988 ; RUN COMMAND 

2989 ;- 

2990 ACT RUN: 



2991 
2992 

2993 5$: 
2994 
2995 
2996 
2997 
2998 10$: 



BBCS 

MOVAL 

MOVL 
BBC 
CLRL 
RS8 



Set RUN flag 
LOAD COMMAND 



ROUTINE ADDRESS. 



#CLI$V RUN, - 

CLJ$C FLAGS (R2), 5$ 
L A DSV$R0N, - 

CLISL COMMAND(R2) . 4 

#1,CLI$C PASS(R2) ; Default pass count is 1 
#DSA$V SEARCH, L A DSA$GL_FLAGS, 10$ ; Branch if search not 
CLISL PASS(R2) ; If in SEARCH, default to 0. 

; Return 



set 



C453 
C41] 



[41] 



ZZ-ENSAA-7.0 

CLI 

07-80 



Commands S-2 Action Routines _„^.„ 

DIAGNOSTIC SUPERVISOR COMMAND 
Commands S-Z Action Routines 



548 



G 11 
27-JUL-1984 Fiche 3 Frame 611 Sequence 

LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 Paqe 

23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMAINTJCLI.MAR;279 



95 
(7) 



04 A2 00000000' EF 



04 A2 00000000' EF 
00 62 03 



00 62 15 

04 A2 00000000' EF 

2C A2 01 

03 OOOOFEOO'EF OE 

2C A2 



9E 
05 



DE 
E2 
05 



00 62 04 E2 

05 



E5 

DE 

DO 
E1 
D4 
05 



04 A2 00000000' EF DE 

05 



04 A2 00000000 'EF DE 

05 



0400 

0400 

0400 

0400 

0400 

0400 

0400 

0408 

0409 

0409 

0409 

0409 

0409 

0409 

0411 

0411 

0415 

0415 

0416 

0416 

0416 

0416 

0416 

0416 

041A 

041A 

0418 

041B 

0418 

0418 

041B 

0418 

041 F 

041F 

0427 

0427 

0428 

0433 

0436 

0437 

0437 

0437 

0437 

0437 

0437 

043F 

043F 

0440 

0440 

0440 

0440 

0440 

0440 

0448 

0448 



3000 

3001 

3002 

3003 

3004 

3C05 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 



.SUBTITLE 



Commands 5-Z Action Routines 



; SELECT 

ACT.SELECT: 

MOVAB 
RS8 



SET COMMAND. 

ACT_SET: 

MOVAL 

BBSS 
10$: RSB 



; SHOW COMMAND, 

ACT SHOW: 

BBSS 



L A DSV$SELECT,CLI$L_C0MMAND(R2) ; SET COMMAND ROUTINE 



[41] 



L*VRSETFLG, - 

CLI$L C0MMAND(R2) 
#CLI$V SET, - 

CLI$C FLAGS(R2), 10$ 



LOAD COMMAND ROUTINE ADDRESS. 

SET SET FLG. 

RETURN. 



[41] 



10$: 



RSB 



0CLI$V SHOW, - 

CLI$C_FLAGS(R2), 10$ 



SET SHOW FLG. 
RETURN. 



; START COMMAND. 

ACT.START: 

B8CC 



5$: 



10$: 



MOVAL 

MOVL 
BBC 
CLRL 
RSB 



#CLI$V RUN, - 

CLISE FLAGS <R2), 5$ 
L A VRSTART, - 

CLI$L C0MMAND(R2) 
#1,CLI$C PASS(R2) 



Clear RUN flag 

LOAD COMMAND ROUTINE ADDRESS. 

Default pass count is 1 



[45] 
[45] 
[41] 



0DSA$V SEARCH, L A DSA$GL FLAGS, 10$ ; Branch it search not set [41] 
CLI$L w PASS(R2) " ' — ----- — - 



If in SEARCH, default to 0. 
Return 



SCRIPT COMMAND. 
ACT^SCRJPT: 



MOVAL 
RSB 



L*SCRIPT$OPEN, - 
CLI$L_CQMMAND(R2) 



LOAD COMMAND ROUTINE ADDRESS. 



[41] 



SUMMARY COMMAND, 



ACT SUMMARY: 
MOVAL 

RSB 



, A VRSUMMARY, - 
CLI$L_CQMMAND(R2) 



LOAD COMMAND ROUTINE ADDRESS. 



[41] 



ZZ-ENSAA-7.0 

CLI 

07-80 



CRD command 



OOOOOOOO'EF 
OOOOOOOO'EF 
OOOOOOOO'EF 



00 
00 



OOOOOOOO'EF 
OOOOOOOO'EF 
OOOOOOOO'EF 00 



18 
00 



DIAGNOSTIC SUPERVISOR COMMAND 
CRD command 



H 1 1 
27-JUL-1984 Fiche 3 Frame H11 Seguence 549 

LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 

23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMA1NT]CLI .MAR;279 



0065 31 



OOOOOOOO'EF 16 



OOOOOOOO'EF 00 FB 



00000000 'FF 



00 
00 
00 
00 
04 

66 50 



48 11 



0449 
0449 
0449 
0449 
0449 
0449 
0449 
0449 
0451 
0459 
0461 
0464 
0464 
0464 
C464 
046A 
046A 
0472 
0479 
0479 
047F 
0485 
0488 
048B 
0492 
0493 
0493 
049A 
049B 
04 9B 
04A2 
04A2 
04A2 
04A2 
04A2 
04A2 
04A2 
DD 04A2 
DD 04A4 
DD 04A6 
DD 04A8 
FB 04AA 
04B1 
E8 04B1 
0484 
04B4 
04B4 
0484 
04B4 
04B4 
04B4 
04B4 
0484 
04B4 
04C7 
04C7 
04C9 



D4 
D4 
D4 

E4 



E2 



FB 



20$: 



3056 

3057 

3058 

3059 

3060 ;- 

3061 

3062 ACT, 

3063 

3064 

3065 

3066 

3067 

3068 10$: 

3069 

3070 

3071 

3072 

3073 

3074 

3075 15$: 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 



•Subtitle 



CRD command 



CRD COMMAND. 



CRD 



Br If CRDJIenutest Off 100$ 

Br"If"CRD MenuTest.On 100$ 

Br~If~CRD~AutotestJ)ff 100$ 
BRD ~ 150$ 



Jsb 

Br If, 

Calls 

ClrL 
ClrL 
ClrL 

Bbsc 



Bbss 



L A DS_Cleanup 

User 15$ 
" #0, L A MapFree 



If already running under CRD, branch 

If already running under CRD, branch 

If already running under CRD, branch 
Determine CRD mode 



; Clean up the old diagnostic 

; If User^Mode, branch around 
; Map free memory 



L A DS$GA DS Ctrl C First ; Clear the DS's 1st A C handler 
L A DS$GA~DSlCtrrOecond; Clear the DS's 2nd A C handler 



L A DS$L_OserCntrIC' 

0DS$V CtrlC, - 

L A D3$GL_Flags, 20$ 

0DS$V DisablCC, - 
L A D3$GL_Flags, 30$ 



30$: Calls #0, L A DSR$Load..CRD 



; Cleat the user's A C handler 

; Clear the A C pending bit 

# 

; Disable A C's for now (set the bit) 

; Load the CRD image file 



Cal 
are 
the 



I the CRD's initialization routine. If it returns success, we 
on our way. If it returns failure, print a message and go call 
DSR$Unload CRD routine so that the CRD region can be deallocated. 



PushL 
PushL 
PushL 
PushL 
CailS 

BlbS 



MO 
HO 



Push as param-4 
Push as param-3 



*CRD$K CRD Initialization ; Push Initialization as param-2 

#CRD$K"HooF. Point ; Push Hook Point as param-1 

#4, - "" ; Call the CRDSDS Interface routine 

<JL A DS$GA CRD DSJnterface ; ... to Initialize CRD 
R0, 300$ " ; If success, branch and exit 



Come to here if: 1. Already running CRD and the CRD command is 
issued, or, 2. If the CRD initialization routine return failure. 
This should never happen, but . . . 



100$: $PRINT 



Brb 



0DS$K TYPE COMMAND ERR,-; Print illegal command 
0DS$K PRTNTI, - " ; .. use Print i 
L A GT Menu Error ; .. the format string 



200$ 



; Branch to the error part 



96 
(7) 



[60] 
[60] 
[60] 

[60] 
[723 
1721 
1721 
[72] 



[67] 

[67] 
[67] 

[67] 
[66] 
[66] 

[66] 
[67] 

[67] 
[67] 

[67] 



[67] 
[67] 
[67] 



[63] 
[63] 
[63] 
[63] 
[63] 
[63] 
[67] 



[67] 
[67] 
[67] 



[63] 
[63] 
[63] 

[67] 



ZZ-ENSAA-7.0 

CLI 

07-80 



CRD command 



550 



DIAGNOSTIC SUPERVISOR COMMAND 
CRD command 



27-JUL-1984 Fiche 3 Frame 111 Seguence 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 
23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT3CLI .MAR;279 



FF7C 

FF71 
FF66 



31 
31 
31 



00000000 'EF 



00 
01 



DD 
F8 



05 



04C9 3113 

04C9 31H 

04C9 3115 

04C9 3116 

04C9 3117 

04C9 3118 150$: CASE 

04C9 3119 

04C9 3120 

04C9 3121 

04D5 3122 

04DD 3123 

04DD 3124 

04E5 3125 

04E8 3126 160$: 

C4F0 3127 

04F3 3128 165$: 

04F8 3129 

04FE 3130 

04FE 3131 

04FE 3132 

04FE 3133 

04FE 3134 

04FE 3135 

04FE 3136 190$: 

04FE 3137 

04FE 3138 

0511 3139 

0511 3140 200$: 

0513 3141 

0513 3142 

051A 3143 

051A 3144 

051A 3145 300$: Rsb 



Come to here if CRD is not active. , . 
Check to see if special debugging is required. 



L A CRD$GL CRD Command.,Debug,LIMIT=01 ,TYPE=B,Di$PLJST=<- 
T60$> 



97 
(7) 



[722 
L721 



BR.If^User 



165$ - 

> 
190$ 



Set CRD MenuTest.Off 

BRW~10$~ 

Set CRD MenuTest.Off 

BRW" "10$ 

Set_CRD..Autotest_Off 

BRW 10$ 



;No special debugging; error if 
;User Mode 172J 

;Perform CRD MENU Offline Pkg. C72D 
; Continue ,,, . ^ , C72J 

;If this =1: Run CRD MENU Offline Package 

;If this =2: Run CRD AUTO Offline Package 



Print an error message since command not permitted in User mode. 



$Print 0DS$K Type Command_Err,- 
#DS$K PrintI, - 
L A T_Usef\.Mode_Menu..Error 

PuihL #0 

Calls #1, L A DSR$Unload_CRD 



Print illegal command . 

. . . use PrintI 

. . . the format string 



[723 



[72] 
[64] 
[64] 



Don't bother returning to hereE673 
. . . if the image is loaded [67] 
Unload the CRD image if it [67] 
, , . was loaded, [67] 



Return to caller 



[67] 



ZZ-ENSAA-7.0 

CLI 

07-80 
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98 
(7) 



0C A2 68 
08 A2 



58 



0C A? 
08 A2 



00 62 00 



00 62 00 



DE 
D4 
05 



C3 
05 



E5 
05 



E3 
05 



051B 

051B 

051B 

051B 

051B 

051B 

051F 

0522 

0523 

0523 

0523 

0523 

0523 

0523 

0527 

0529 

052A 

052A 

052A 

052A 

052A 

052A 

052E 

052E 

052F 

052F 

052F 

052F 

052F 

052F 

0533 

0533 



.SUBTITLE 



FILESPEC ACTION ROUTINE, 



CLI$Q_FILE+4(R2), - 
R8, CLI$Q_FILE(R2) 



3147 
3148 

3149 

3150 . 

3151 ACT.FILESPEC: # t r 

3152 MOVAL <R8>, CLI$Q F ILE+4(R2) 

3153 CLRL CLI$0_FILE(R2) 

3154 RSB 
3155 

3156 ;+ 

3157 ; FILEND ACTION ROUTINE. 

3158 ;- 

3159 ACT.FILEND: 

3160 SUBL3 
3161 

3162 RSB 

3163 

3164 ;+ 

3165 ; OPTIONAL Action routine, 

3166 ;- 

3167 ACT OPTIONAL: 

3168 " BBCC #CLI$V REQUIRED, - 

3169 CLI$C_FLAG$ <R2)« 10$ 

3170 10$; RSB 
3171 

3172 ;+ 

3173 ; REQUIRED Action routine. 

3174 ;- 

3175 ACT REQUIRED: 

3176 " BBCS #CLI$V REQUIRED, - 

3177 CLI$C.FLAGS (R2), 10$ 

3178 10$: RSB 



Filespec, Optional, Required Action Routines 



SAVE CHARACTER POINTER. 
CLEAR LENGTH OF STRING 
RETURN 



CALC CHARACTER COUNT. 
RETURN. 



Clear required bit 
Return 



Set required bit 
Return 



[45] 
[45] 
[453 
[45] 



[45] 
[45] 
[45] 
[453 



ZZ-ENSAA-7.0 

CL1 

07-80 



K 11 

Start and Run Qualifier Action Routines 27-JUL-1984 Fiche 3 Frame K11 Sequence 552 
Start and Run Qua ^^f^^^ 0f? C0MHA ^ D llHl INTER 27-JUL-1984 15:07:02 VAX-1 Macro "03-0? Page 

Start and Run Qualifier Action Routines 23-MAY-1984 14:10:24 DMA1 :[SYS0.SY$MAINTJCLI.MAR,^/ 



40000000 8F 
OOOOFEOO'EF 



2C A2 5A 



00 62 07 



10 A2 58 51 
14 A2 51 



28 A? 5A 



20 A2 5A 



24 A2 5A 



C8 
05 



00 
05 



E? 
05 



C3 

DO 
05 



DO 
05 



DO 
05 



DO 
05 



0534 

0534 

0534 

0534 

0534 

0534 

0534 

053A 

053F 

0540 

0540 

0540 

0540 

0540 

C540 

0544 

0545 

0545 

0545 

0545 

0545 

0545 

0549 

0549 

054A 

054A 

054A 

054A 

054A 

054A 

054F 

054F 

0553 

0554 

0554 

0554 

0554 

0554 

0554 

0558 

0559 

0559 

0559 

0559 

0559 

0559 

055D 

055E 

055E 

055E 

055E 

055E 

055E 

0562 

0563 

0563 

0563 



.SUBTITLE 



Start and Run Qualifier Action Routines 



3180 
3181 

3182 ;+ 

3183 ; /DEBUG ACTION ROUTINE 

3184 ;- 

3185 ACT.DEBUG SWITCH: 

3186 BISL2 #13DSA$V LOAD.DEBUGGER,- 

3187 DSA$GL„F[AGS 

3188 RSB 
3189 

3190 ;+ 

3191 ; /PASSES ACTION ROUTINE. 

3192 ;- 

3193 ACT.PASS: 

3194 MOVL RIO, CLI$L_PASS(R2) 

3195 RSB 
3196 

3197 ;+ 

3198 ; /QA Action routine 

3199 ;- 

3200 ACTJJA: 

3201 BBSS 0CL1$V..QA, - ^ x 

3202 CLI$L_FLAGS(R2),10$ 

3203 10$: RSB 
3204 

3205 ;+ 

3206 ; /SECTION ACTION ROUTINE. 

3207 ;- 

3208 ACT_SECTION: 

3209 SUBL3 R1, R8, - 

3210 CLI$Q SECTION(R2) 

3211 MOVL R1, CLI$Q^SECTI0N+4(R2) 

3212 RS8 
3213 

3214 ;+ 

3215 ; /SUBTEST ACTION ROUTINE. 

3216 ;- 

3217 ACT^SUBTEST: 

3218 MOVL R10, CLJ$L„SUBT(R2) 

3219 RSB 
3220 

3221 ;+ 

3222 ; /TEST ACTION ROUTINE. 

3223 ;- 

3224 ACT JEST: 

3225 MOVL 

3226 RSB 
3227 

3228 ;+ 

3229 ; LAST ACTION ROUTINE. 

3230 ;- 

3231 ACT. LAST: 

3232 MOVL 

3233 RS8 
3234 

7 "> 2 c , . 

. 3236 ; BEGJNTIME ACTION ROUTINE for /TIME switch 



SET INDICATOR SO DS WILL LOAD 

DEBUGGER LATER 
RETURN 



99 
(7) 



[62] 
[62J 
[62] 
[62] 
[62] 
[62] 
C623 



SAVE NUMBER OF PASSES. 
RETURN. 



Set QA flag on 



[42] 
[42] 
[423 



CALCULATE SECTION NAME SIZE. 

ADDRESS OF SECTION NAME. 
RETURN. 



SAVE SUBTEST NUMBER, 
RETURN. 



R10, CLI$LJEST(R2) 



SAVE FIRST TEST NUMBER. 
RETURN. 



R10, CLI$L^LAST(R2> 



SAVE LAST TEST NUMBER. 
RETURN. 



L763 



ZZ-ENSAA-7.0 

CLI 

07-80 
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100 
(7) 



0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0;63 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 



3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 



ACT BEGINTJME: 

" M0VAL (R8), CLISQ TIME+4(R2) 
CLRL ai$MlME7R2) 
RS8 



/TIME ACTION ROUTINE 



Save current address of time 
Clear the length field 



ACT,TJME: 

PUSHR 



MOVL 
SU8L3 



1 0S: 



20$: 



30$: 
40$: 
50$: 



LOCC 
BNEQ 



TSTW 

SU8L2 

MOVW 

M0VC3 

MOVAL 

ADDL2 

S8JNTIM, 

ADDL2 

POPR 

BR8 

CMPL 
BNEQ 
DECL 
JNCL 
BR8 



# A M<R1,R2,R3,R4,R5,R6> 



R2.R6 

CLISQ TIME+4(R6),R8, - 

CLI$QlTIME(R6> 

/TA'-^CLJSQ TIME(R6), 
aCLl$Q T1ME+?(R6) 
20$ " 



-<SP) 

CLI$Q TIME(R6), SP 

#*A M 0~ M ,(SP> 

CLISQ TIME(R6), - 
aCLISO TIME+4(R6),2(SP) 
(SP),CCl$Q TIME+4CR6) 
*2, CLISQ TlME(R6) 
S CLISQ TlME(R6),l A BIN, 
'CLISQ TlME(R6),SP 
* A M<RT,R2,R3,R4,R5,R6> 
40$ 

CLISQ TIME+4<R6),R1 

30$ " 

CLISQ TIME(R6) 

CLI$Q~TIME+4(R6) 

10$ 



[76] 

string 

[76] 

[76] 



[76J 



[76] 
MOVC3 destroys R0-R5, LOCC [76] 
destroys R0,R1, don't need R0 [76] 
Need R6 to hold R2 temporari ly[76] 
Save R2 (DSSGL CLIBASE) C/6] 
Calculate length of time... [76] 
string L76J 



[76] 



a , '-" means a value for day 
was typed. 
Branch if found 



TI 



Not found, copy string to 
stack, in order to insert 
Allocate space for "0 '/ 
Allocate space for string 
"0 " means days 
Move the string from the CLI 
data structure to the stack 
Set new address of string 
Add 2 to the string length 
ME ; Convert ASCII to binary 
Deallocate stack space 
These registers matter 



[76] 
[76] 
[76] 

[76] 
"[76] 
[76] 
[76] 
[76.1 
[76] 
[76] 
[76] 
[76] 
time[76] 
[76] 
[76] 



MOVB # A A M ",<R1) 

SBINTJM S CLISQ TIME(R6),L A BIN 

POPR # A M<R1,R2,R3,R4,R5,R6> 



BL8S 
MOVL 
RSB 

CLRL 
RSB 



R0,50$ 
#1,R0 



R0 



; "-' , first char in string? 

; Branch if not 

; Deer string count <rid of - ) 

; Incr string address 

; Go pad in a "0 " 

; Here if a day value preceded 

; the dash t t tt 

; Change the ,, - n to " " . 
TIME ; Convert ascii to binary ti 

; These registers matter 

; Branch if success 

; Failure, set R0 for CLISK.BIF 



; Success, set R0 for CL1SK.B1F 



[76] 
[76] 
[763 
[76] 
[76] 

[763 

[76] 

[76] 

me[76] 

[76] 

[76] 
[76] 
[76] 

[76] 
[76] 
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ines 27-JUL-1984 Fiche 3 Frame Ml 1 Seguence 554 
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101 
(7) 



50 
03 



50 
OOOOOOOO'EF 



50 
04 A2 



04 A2 

04 A2 
04 A2 



00 62 08 

OA 62 03 
OOOOOOOO'EF 

16 

OA 62 02 

OOOOOOOO'EF 

08 
OOOOOOOO'EF 



10 62 
00 62 

08 6? 



OS 
09 
04 



04 A2 OOOOOOOO'EF 



94 
11 



01 90 



90 
D4 
05 



E2 

E1 

DE 

11 
E1 

DE 

11 
DE 

05 



EO 
E2 
E1 
DE 
05 



0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0563 

0565 

0567 

0567 

056A 

056A 

0571 

0574 

0575 

0575 

0575 

0575 

0575 

0575 

0575 

0579 

0579 

057D 

057D 

0585 

0585 

0587 

0588 

0588 

0593 

0593 

0595 

059D 

059D 

059E 

059E 

059E 

059E 

059E 

059E 

05A2 

05A2 

05A6 

05A6 

05AA 

05AA 

0582 

0582 



.SUBTITLE 



Event and Flags Action Routines 



3293 
3294 

3295 *+ 

3296 ; Set/Clear Enforce action routines. Note that 'SET ENFORCE 1 

3297 ; actually CLEARS the flag, and 'CLEAR ENFORCE' SETS the flag. 

3298 ; The physical flag is actually 'inhibit enforce'. 

3299 ;- 

3300 .Enable LS8 

3301 Act.SetEnforce: 

3302 Clr8 RO 

3303 Br8 Common_Enforce 

3304 Act ClearEnforce: 

3305 " Mov8 01, RO 

3306 Common.Enforce: , ... t .. .'' 

3307 MovB RO, L A Ds$GB_Inhibi t ..Naming 



Clear value 



Set value 



3308 ClrL 

3309 Rsb 

3310 .Disable LS8 
3311 

3312 ;+ 

3313 ; EVENT ACTION ROUTINE. 

3314 ;- 

3315 ACTJVENT: 

3316 BBSS 
3317 

3318 10S: BBC 
3319 

3320 MOVAL 
3321 

3322 BRB 

3323 20$: BBC 
3324 

3325 MOVAL 
3326 

3327 BRB 

3328 30$: MOVAL 
3329 

3330 40$: RSB 
3331 

3332 ;+ 

3333 ; FLAGS ACTION ROUTINE. 

3334 ;- 

3335 ACT^FLAGS: 

3336 BBS 
3337 

3338 BBSS 
3339 

B8C 



Cli$L_Command(R2) 



; transfer value 
Make sure no command set 



#CLI$V EVENT, - 

CLI$E FLAGS(R2), 10$ 
0CLI$V SET, - 

CLI$C FLAGSCR2), 20$ 
L A VRSETEF, - 

CLI$L C0MMAND(R2) 
40$ 
0CLI$V CLEAR, - 

CLISL FLAGS(R2), 30$ 
L A VRCt.REF, - 

CLI$L COMMAND(R2) 

40$ 
L A VRSHOWEF, - 

CLI$L C0MMAND(R2) 



3340 10$: 
3341 
3342 
3343 
3344 20$: 



MOVAL 
RSB 



#cli$v event, - 

cli$c flags(r2), 20$ 
#cli$v Flags, - 

CLISt FLAGS(R2), 10$ 

#cli$v Show, - 

cli$c flags(r2), 20$ 
l a vrsh00flg, - 

cli$l„c0mmand(r2) 



SET 'EVENT FLAG' FLAG. 
BR IF SET COMMAND, 
COMMAND. 

BR IF CLEAR COMMAND. 
COMMAND. 

COMMAND. 
RETURN. 



•EVENT FLAG' FLAG SET ? 
YES, THEN DO NOTHING HERE. 
SET 'FLAGS' FLAG. 

BR IF NOT SHOW COMMAND. 

COMMAND. 

RETURN. 



[573 
[573 
C57] 
[573 
C57J 
[573 
[57] 
[573 
[573 



[413 

[413 
[413 



[413 



i 

_] 
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Base, Address, Break. Act lon.Routines^ _ ^ . .27-JUL-198* _ , no /|che ? WrameJjl11 M __ Sequence 555 



09 62 04 

04 a2 OOOOOOOO'EF 

04 A2 00000000 'EF 



18 A2 
00 OOOOOOOO E2 



5A 
OB 



04 A2 



00 62 

09 62 



OA 
03 



04 A2 OOOOOOOO' EF 



09 62 02 

OOOOOOOO'EF 



04 A2 OOOOOOOO'EF 



DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-19M 15:07:02 
Base, Address, Break Action Routines 23-MAY-1984 14:10:24 



VAX-11 Macro V03-0T Page 
DMA1 :CSYS0.SYSMAINTJCLI.MAR;27^ 



102 
(7) 



E1 
DE 

05 

DE 

05 



DO 
E2 

05 



E2 

E1 

DE 

05 
E1 

DE 

05 
DE 



05B3 

05B3 

05B3 

05B3 

05B3 

0563 

05B3 

05B7 

05B7 

05BF 

05BF 

05C0 

05C8 

05C8 

C5C9 

05C9 

05C9 

05C9 

05C9 

05C9 

05CD 

05D5 

05D5 

05D6 

05D6 

05D6 

05D6 

05D6 

05D6 

05DA 

05DA 

05DE 

05DE 

05E6 

05E6 

05E7 

05EB 

05EB 

05F3 

05F3 

05F4 

05FC 

05FC 



.SUBTITLE 



0CLI$V SHOW, - 

CLISC FLAGS (R?), 10$ 
L A VRSHOt)BASE, - 

1I$L_C0MMAND (R2) 

L A VRSETBASE, - 
CLI$L_C0MMAND(R2) 



3346 
3347 

3348 ;+ 

3349 ; BASE ACTION ROUTINE. 

3350 ;- 

3351 ACT.BASE: 

3352 BBC 
3353 

3354 MOVAL 
3355 

3356 RSB 

3357 10$: MOVAL 
3358 

3359 RSB 
3360 

3361 ;+ 

3362 ; ADDRESS ACTION ROUTINE. 

3363 ;- 

3364 ACT ADDRESS: 

3365 " MOVL R<0, CLI$L_ADDRESS(R2) 

3366 BBSS #CU5V ADR, - , _ 4 ; 

3367 L A CLT$L,FLAGS (R2) , 10$ 

3368 10$: RSB 
3369 

3370 ;♦ 

3371 ; BREAK ACTION ROUTINE. 

3372 ;» 



Base, Address, Break Action Routines 



Branch if not SHOW command 
"SHOW BASE" command 

"SET BASE" COMMAND. 
RETURN. 



C43D 
[43] 
[43] 
[43] 
[43] 
[41] 



3373 ACT^BREAK: 

3374 BBSS 
3375 

3376 10$: B8C 

3377 

3378 MOVAL 

3379 

3380 RSB 

3381 20$: BBC 
3382 

3383 MOVAL 
3384 

3385 RSB 

3386 30$: MOVAL 
3387 

3388 RSB 



#CLI$V BREAK, - 

CLI$C FLAGS(R2), 10* 
#CLI$V SET, - 

CLI$C FLAGS(R2), 20$ 
L A VRSETBRK, - 

CLI$L_C0MMAND(R2) 

X'CLISV CLEAR, - 

CLISU FLAGS(R2), 30$ 
I A VRCLRBRK, - 

CLI$L_C0MMAND(R2) 

L A VRSH0WBRK, - 
CLI$L.C0MMAND(R2) 



Got address 



SET 'BREAKPOINT' FLAG. 

BR IF NOT 'SET' COMMAND. 

•SET BREAK' COMMAND. 

RETURN. 

BR IF NOT 'CLEAR' COMMAND. 

'CLEAR BREAK' COMMAND. 

RETURN. 

'SHOW BREAK' COMMAND. 



[41] 

[41] 
[41] 



CLI 
17-80 



"' — DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-1 J ««ro V03-0T Page 
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705 
(7) 



04 A2 
04 A2 



04 A2 



11 A2 00 

04 A2 

01 

OA 62 03 

00000000* EF 

08 
00000009* EF 



39 62 04 

UOOOOOQO'FF 



04 A2 OOMOOOO'EF 



00 62 OC 



D2 
D5 
13 
05 
E1 

DE 

11 
DE 

05 



16 62 09 EO 



E1 

DE 

OS 

DE 

05 

E2 

05 



05FD 3390 .SU8TITLE 

05FD 3391 

05FD 339? ;♦ 

05FD 3393 ; ALL ACTION ROUTINE. 

05FD 3394 ;- 



05FD 

0601 

0604 

06O6 

06O7 

0608 

0608 

0613 

C613 

0615 

061D 

061D 

061E 

061 E 

061E 

061 E 

061 E 

061E 

0622 

0622 

0622 

0626 

0626 

062E 

062E 

062F 

062F 

0637 

0637 

0638 

0638 

063C 

063C 



ALU Default Action Routines 



05FD 3395 ACT_ALL: 



MCOML 
TSTL 
BEOL 
F<S8 
88 C 



3396 
3397 
3398 
3399 

3400 10$: 

3401 

3402 

3403 

3404 

3405 20$: 

3406 

3407 30$: 

3408 

3409 ;♦ 

3410 ; DEFAULT ACTION ROUTINE. 

3411 ;- 

3412 ACT DEFAULT; 



#0, CLISL DATA(R2) 

CLl$L C0MRAND(R2) 
10$ " 



MOVAL 

BRB 
MOVAL 

RS8 



#clisv^set, - 

clisc flags(r2>, 20$ 
l a vrsetFlg, - 

clisl c0mmand(r2) 

30S 
L A VRCLRFLG. - 

CLJ$L C0MMANDCR2) 



3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 10$: 

3423 

3424 

3425 

3426 20$: 

3427 

3428 30$: 



BBS 

B8C 

MOVAL 

RS8 

MOVAL 

RS8 

B8SS 

RS8 



rfCLISV FLAGS, - 

CLI$C..FLAGS<R2), 20$ 

*CLI$V SHOW, - 

CLISC FLAGS <R2>, 10$ 
L A VRSH0BDrLT, - 

CLI$L COMMAND (R2) 



L A VRSETDFLT # - 
CLI$L_C0MMAND(R2) 



*CLI$V DEFAULT, - 
CLI$C W FLAGS<R2), 30$ 



BR IF NOT 'SET 1 COMMAND. 



RETURN. 



If "SET FLAGS", branch. 

Branch if not SHOW command 
"SHOW DEFAULT" command 



• • 



SET DEFAULT" command. 



Set DEFAULT flag tor 

"SET FLAGS DEFAULT' 1 command. 



E41DJ 

t 
[41] 



[433 



C43]i 

[43] 

[43] 

C433 

[43] 

[413 

C433 

[433 
[43] 
[43] 



i * » . r tit- a n . "7 r\ 



cv,«. . r •» i i 



Dm. .Hnft 



i /n I 



C 12 „ 



f icne 3 i rme C12 



Sequence 55? 



7Z-ENSAA-7.0 

CLl 

l>7-80 



C 12 
c hnu fA i k Rni.rinP • T701 27-JUL-1984 Fiche 3 Frame C12 Seguence 557 

Show Calls R °^ 1 gf ACN0§T S c 7 " suP£( , vlS0R C0 ^N0 LINE INTER K-JUL-J9M 15:07:02 VAX-11 Macro V03-crf P^. 104 

Show Calls Routine ; [70] 23-MAY-1984 14:10:24 DMA1 :LSYSO.SYSMAINuCLI ,MAR,^y in \ 



04 A2 00000000' EF 
1C A? 00 



DE 

DO 
05 



063D 
0630 
063D 
063D 
0630 
063D 
063D 
063D 
0645 
0645 
0649 



.Subtitle 



Show Calls Routine 



3430 
3431 

3432 ;+ p 

3433 ; Show Calls action routine. 

3434 ;« 
3435 

3436 Act. Show Calls: 

3457 RovAL L A VRShow Calls, - 

3438 CIJSL Command <R2> 

3439 MovL #0, CLI$L_Data(R2) 

3440 Rsb 



SHOW CALLS command routine 

=> show all call frames 
Return to caller 



1701 

[703 
[701 
[703 

[70] 
[703 
[70] 
[70] 
1701 



ZZ-ENSAA-7.0 

CLI 

07-80 



fRbTrare Action Routines ; C653 27-JUL-1984 Fiche 3 Frame D1 2 Sequence 558 

CKDirace Action gY""g|f lc SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0? _ Page 

CRDTrace Action Routines ; [65] 23-MAY-1984 14:10:24 0MA1 :[SYS0.SYSMAINT3CLI .MAR;279 



OOOOFEOO'EF 



OOOOFEOO'EF 



11 
00 

35 



11 
00 

28 



50 000000EC* EF 

OOOOFEOO'EF 11 

07 



00000004 E2 



OOOOOOOO'EF 



01 
B1 



E3 

11 
E5 
11 



9E 
EO 



50 OOOOOOEF'EF 9E 



00000000 ♦ tf 
83 



D4 
05 



00 
11 



DA 
11 



064A 

064A 

064A 

064A 

064A 

064A 

064A 

064A 

0651 

0652 

0652 

0654 

0654 

0654 

C658 

065C 

065C 

065E 

065E 

065E 

0665 

066C 

066D 

066D 

0674 

0674 

0674 

0674 

0674 

0689 

0689 

0689 

068F 

0690 

0690 

0690 

0690 

0697 

0699 

0699 

0699 

0699 

069F 



.Subtitle 



CRDTrace Action Routines 



3442 
3443 

3444 ;+ . 

3445 ; Set/Clear/Show CRDTrace action routines. 

3446 ;- 
3447 

3448 Act Set^CRD.Trace: 

3449 w Bbcs #DSA$V CRD Trace, - 

3450 L A DSS$GL_Flags, 10$ 

3451 

3452 10$: Br8 Common_CRD Trace Debug 

3453 

3454 Act. Clear CRD_Trace: 

3455 BBcc #DSA$V CRDJrace, - 

3456 L A DS*$GL Flags, 10$ 
3457 

3458 10$: BrB Common CRD^Trace^Debug 
3459 
3460 Act Show CRD Trace: 



L A T On, RO 

0DSJSV CRDJrace, - 

L A DS5$GL_FUgs, - 

10$ 
L A TJ)ff, RO 

0DS$K Type Commandjkit ,- 
#DSlK PrTntI, 
L A T CRD.Jrace.Oiitput,- 
RO 



3461 " RovAS 

3462 Bbs 
3463 
3464 

3465 MovA8 
3466 

3467 10$: $Print 
3468 
3469 
3470 
3471 

3472 Common_CRD_Trace Debug: 

3473 ClrL C A CliSL_Command(R2) 

3474 Rsb 
3475 

3476 Act Set CRD Debug: 

3477 " ' 

3478 MovL #1, L A DS$GL.CRD_Debug 

3479 Brb Act_Set_CRD_Trace 
3480 

3481 Act Clear CRD Debug: 
3482 

3483 ClrL L A DS$Gl„,CRD Debug 

3484 Brb Act_Clear_cRD_Trace 



Set the bit on 
Branch to the common stuff 
Clear the bit - set it off 
Branch to the common stuff 



Assume the bit is turned on 
Jf the bit is turned on, . . . 
. . . then branch to 10$, . . . 
. . . and print it. 
The bit is off. 

Print a message giving the status of 
• . • the CRDTrace flag* 



on 



or "off". 



The common stuff 

Make sure no command routine is set 

Return to the DS$Cli routine 

Set the CRD debug bit - for CRD debug 
... statements 
1 s> debug is on. 
Turn Trace on also 

Clear the CRD debug bit - for CRD 
... debug statements 
=> no debug statements 
Clear Trace also 



105 
(7) 

£65] 

[65] 



C65] 
[65] 
[65] 

[69] 

C65] 
[65] 
[65] 

[69] 

[653 
[65] 
[65] 
[65] 
[65] 
[65] 

[65] 
[65] 
[65] 
[65] 

[69] 
[65] 
[65] 

[69] 
[69] 
[69] 
C69] 

[69] 
[69] 
C69] 
[69] 



07-80 Bell, Binary, Halt, lEx Action Routines 23-MAY-1984 14:10:24 DMA1 : LSYSO.SYSMAINTJCLI .T>\m,d(v \o 



06A1 3486 .SubTitle Bell, Binary, Halt, IEx Action Routines 

06A1 3487 

06A1 3488 ;+ 

06A1 3489 ; BELL ACTION ROUTINE. 

06A1 3490 ;- 

06A1 3491 ACT BELL J 



ZZ-ENSAA-7.0 Bell, Binary, Halt lEx Action Routines L1 g E ? -& ^?" § 7 "V 107 

SVlaO BelU Binary, Halt, IEx Action Routines 23-MAY-1984 14:10:24 DHA1:CSYS0.SYS«AINT3CLI.KAR;279 (8) 



00 1C A2 03 E2 06A1 3493 BBSS *DSA$V BELL, - 

06A6 3494 CLI$[_DATA(R2), 10$ 



07^80 Bell, Binary, Halt, IEx Action Routines 23-MAY-1984 14:10:24 D«A1:CSYS0.SYSMAINT3CLI.MAR;279 (V> 



05 06A6 3496 10$: RS8 
06A7 3497 
06A7 3498 ;+ 



ZMNSAA-7.0 Bell, Binary, Halt lEx Action Routines L 2 grHi^i^JUL-l 98A F ! I^S/f 2 F ^25-^ ? Mac r o W^T"' jfpaoe 109 

SriaO Bell. Binary, Halt, IEiiTt ion Routines 23-MAY-1 984 14:10:24 DMA1 :CSYS0.SYSMAINT3CLI.MAR;279 (10) 

06A7 3500 ; BINARY ACTION ROUTINE. 

06A7 3501 ;- , r ,r-, 

06A7 3502 ACT BINARY: _ ; ?? 

00 1C A2 01 E2 06A7 3503 BBSS #»SA$V BINARY - ; L4 5J 

06AC 3504 CLI$C_DATA(R2), 10$ ; y*\\ 

05 06AC 3505 10$: RSB <* L ^ J 

06AD 3506 

06AD 3507 ;+ 

06AD 3508 ; HALT ACTION ROUTINE. 

06AD 3509 ;- 

06AD 3510 ACT HALT: 

00 U A2 00 E2 06AD 3511 " BBSS #DSA$V HALT - 

06B2 3512 CLI$C_DATA(R2), 10$ 

05 06B2 3513 10$: RSB 

C6B3 3514 

0683 3515 ;+ 

06B3 3516 ; IE1 ACTION ROUTINE. 

06B3 3517 ;- 

06B3 3518 ACTJE1: 

00 1C A2 04 E2 06B3 3519 BBSS #DSA$V IE1, - 

UU f\c ^ uod q 352Q CLI$C.DATA(R2), 10$ 

05 06B8 3521 10$: RSB 

06B9 3522 

06B9 3523 ;+ 

06B9 3524 ; IE2 ACTION ROUTINE. 

0689 3525 ;- 

06B9 3526 ACTJE2: 

00 1C A2 05 12 06B9 35?7 BBSS #DSA$V IE2, - 

uu f\c uooy ^ cli$c DAJA(R2)# 1Q$ 

05 06BE 3529 10$: RSB 

06BF 3530 

06BF 3531 ;+ 

06BF 3532 ; IE3 ACTION ROUTINE. 

06BF 3533 ;- 

06BF 3534 ACTJE3: 

00 1C A2 06 E2 06BF 3535 BBSS #DSA$V IE3, - 

06C4 3536 CLI$U_DATA(R2) , 10$ 

05 06C4 3537 10$: RSB 

06C5 3538 

06C5 3539 ;+ 

06C5 3540 ; IES ACTION ROUTINE. 

06C5 3541 ;- 

06C5 3542 ACTJES: 

00 1C A2 07 E2 06C5 3543 BBSS #DSA$V IES, - ^ ^ 

06CA 3544 CLI$C..DATA(R2) , 10$ 

05 06CA 3545 10$: RSB 



ZZ-ENSAA-7.0 Loop, Oper, Promgt Quid .Action Routines L x ^H^^f^UL^ 9 8 / 5 §^7? 2 F P ^-i 1 ^Mac ro W*1™" ™r%* 110 
(&I 80 Loop, Open, Prompt Quick Act io^ 14:10:24 DMA1 :CSYS0.SYSMAINT3CL1. MAR; 279 (10) 

06CB 3547 .SUBTITLE Loop, Oper, Prompt Quick Action Routines 

06CB 3548 

06CB 3549 ;+ 

06CB 3550 ; LOOP ACTION ROUTINE. 

06CB 3551 ;- 

06CB 3552 ACT LOOP: 

00 1C A2 02 E2 06CB 3553 BBSS #DSA$V LOOP, - 

06D0 3554 CLI$C.DATA(R2), 10$ 

05 06D0 3555 10$: RSB 

06D1 3556 

06D1 3557 ;+ 

06D1 3558 ; OPER ACTION ROUTINE. 

06D1 3559 ;- 

06D1 3560 ACTJ3PER: 

00 1C A2 OC E2 C6D1 3561 BBSS #DSA$V OPER, - 

06D6 3562 CLI$Cj)ATA(R2) , 10$ 

05 06D6 3563 10$: RSB 

06D7 3564 

06D7 3565 ;+ tj r 

06D7 3566 ; PROMPT ACTION ROUTINE. 

06D7 3567 ;- 

06D7 3568 ACT PROMPT: 

00 U A2 OD E2 06D7 3569 BBSS #DSA$V PROMPT, - 

06DC 3570 CLI$Uj)ATA<R2), 10f 

05 06DC 3571 10$: RSB 

06DD 3572 

06DD 3573 ;+ 

06DD 3574 ; QUICK ACTION ROUTINE. 

06DD 3575 ;- 

060D 3576 ACT QUICK: 

00 1C A2 08 E2 06DD 3577 BBSS MSASV QUICK, - 

06E2 3578 CLI$C_DATA(R2) , 10$ 

05 06E2 3579 10$: RSB 



J 12 

77-FNKAA-7 n SoArrh Trace Verify Action Routines 27-JUL-1984 Fiche 3 Frame J12 Sequence 564 

ZZ ENSAA 7.0 Search, Trace, v SJlIg fYlC SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-1 1 Macro VO3-0T uAh Paae 111 
SVisO Search! Trace, Verify Action Routines 23-MAY-1984 14:10:24 DMA1:CSYS0.SYS«AINT3CLI.MAR;279 (10) 

06E3 3581 .SUBTITLE Search, Trace, Verify Action Routines 

06E3 3582 

06E3 3583 ;+ 

06E3 3584 ; SEARCH action routine 

06E3 3585 ;- 

06E3 3586 AsJ.SEARCH: 

00 1C A2 0E E2 06E3 3587 B8SS **>SA$V SEARCH, - 

06E8 3588 CLI$C_DATA(R2),10$ 

05 06E8 3589 10$: RSB 

06E9 3590 

06E9 3591 ;+ 

06E9 3592 ; TRACE ACTION ROUTINE. 

06E9 3593 ;- 

06E9 3594 ACT_TRACE: 

00 1C A2 0A E2 C6E9 3595 BBSS 0DSASV TRACE, - _ 

06EE 3596 CLI$Cj>ATA(R2) , 10$ 

05 06EE 3597 10$: RSB 

06EF 3598 

06EF 3599 ;+ _ r 

06EF 3600 ; VERIFY ACTJON ROUTINE. 

06EF 3601 ;- r ,r, 

06EF 3602 ACT_VERIFY: t ; "5J 

00 1C A2 09 E2 06EF 3603 BBSS #DSA$V VERIFY - ; E45D 

06F4 3604 CLI$C_DATA(R2> , 10$ ; t45J 

05 06F4 3605 10$: RSB ; L45J 



ZZ-ENSAA-7.0 

CL1 

07-80 



K 12 
Spr/Shnw Pane Width Action Routine 27-JUL-1984 Fiche 3 Frame K12 Sequence 565 

Set/Show Page, Wi fXciMOS T X C ° SURE R V I S OR COMMAND LINE INTER 27-JUL-1984 15:07:02 VM-II Macro V- Page 

Set/Show Page, Width Action Routine 23-MAY-1984 14:10:24 DMA1 :CSYSO.SYSMAINTjCLJ.MAR,vry 



112 
(10) 



04 A2 
04 A2 



0D 62 

12 62 



04 
03 



OOOOOOOO'EF 

00000000'EF 

04 A2 



04 A2 
04 A2 



OD 62 04 

12 62 03 
00000000 f EF 

00000000' EF 

04 A2 



EO 

E1 

9E 

05 
9E 

05 
D4 
05 



FO 

E1 

9F 

05 
9E 

05 
D4 
05 



06F5 

06F5 

06F5 

06F5 

06F5 

06F5 

06F5 

06F9 

06F9 

06FD 

06FD 

0705 

0705 

0706 

C70E 

070E 

070F 

0712 

0713 

0713 

0713 

0713 

0713 

0713 

0717 

0717 

0718 

071B 

0723 

0723 

0724 

072C 

072C 

072D 

0730 



.SUBTITLE 



3607 
3608 

3609 ;♦ . 

3610 ; SET/SHOW PAGE action routine 

3611 ;- 

3612 ACT,PAGE: 
3613 
3614 
3615 



Set/Show Page, Width Action Routine 



BBS 
BBC 
MOVAB 



rfCLlSV SHOW, - 

cli$l;flags<r2), 10$ 

#CLI$V„SET, - 

CLISL FLAGS(R2), 20$ 
DSVSSETPAGE, - 

CLISL C0MMANDCR2) 



DSVSSHOWPAGE, - 
CLI$L_C0MMAND(R2) 

CLI$L_C0MMAND(R2> 



3616 
3617 
3618 

3619 RSB 

3620 10$: MOVAB 
3621 

3622 RSB 

3623 20$: CLRL 

3624 RSB 
3625 

3626 ;+ . 

3627 ; SET/SHOW WIDTH action routine 

3628 ;- 

3629 ACTJIJDTH: 

3630 BBS 
3631 

3632 BBC 
3633 

MOVAB 



3634 
3635 
3636 

3637 10$: 
3638 
3639 

3640 20$: 
3641 



RS8 

MOVAB 

RSB 

CLRL 

RSB 



#CLI$V SHOW, - 

CLI$L~FIAGS(R2>, 10$ 
#CI.I$VlSET, - 

CLISL FLAGS(R2), 20$ 
VRSETW7DTH, - 

CLISL C0MMANDCR2) 



VRSHOWWIDTH, - 
CLI$L_C0MMAND(R2) 

CLISL^C0MMaND(R2) 



If SHOW command 

branch 
If not SET command 

no command 

Set command address 

Set SHOW command address 

Make sure no routine address 



If SHOW command 

branch 
If not SET command 

no command 

Set command address 

Set SHOW command address 

Make sure no routine address 



[71] 
£713 
[713 
C713 
[713 
C713 
C71] 
[713 
[713 
C71] 
C71] 
[713 
[71] 



[38] 
[38] 
[38] 
[38] 
[38] 
[383 
[38] 

[38] 
[38] 

[38] 
[383 



ZZ-ENSAA-7.0 
Cl.1 

07-80 



L 12 
SPt/Show QA Action Routines 27-JUL-1984 Fiche 3 Frame L12 Sequence 566 

Set/Show QA Act1 ^AGN0STlC S SUPERVJS0R COMMAND LINE INTER H-JUL-19M 15:07:02 VAX-1 Macro VMtJT Pag 

Set/Show QA Action Routines 23-MAY-1984 14:10:24 DMA1 :[SYS0,SYSMAINTJCLI ,HAR # 4ry 



e 113 
(10) 



18 62 



12 62 



0C 62 



06 62 



1B 
16 

U 

10 

1D 
0A 

1E 
04 



OD 62 

12 62 



04 
03 



04 A2 00000000'EF 



04 A2 



E2 
11 

E2 
11 

E2 
11 

E2 
11 



00 62 1F E2 



EO 
E1 



04 A2 OOOOOOOO'EF 9E 



05 
9E 



05 
D4 
05 



0731 

0731 

0731 

0731 

0731 

0731 

0731 

0731 

0735 

0735 

0737 

0737 

0737 

073B 

0738 

073D 

0/3D 

Q73D 

0741 

0741 

0743 

0743 

0743 

0747 

0747 

0749 

0749 

0749 

074D 

0740 

074D 

074D 

074D 

0751 

0751 

0755 

0755 

0755 

075D 

075D 

075D 

075E 

0766 

0766 

0766 

0767 

076A 



3643 
3644 
3645 
3646 
3647 

3648 . 

3649 ACT.QAEP: 

3650 BBSS 
3651 

3652 BRB 
3653 

3654 ACT.QACL: 

3655 BBSS 
3656 

3657 BRB 
3658 

3659 ACT.QATL: 

3660 B8SS 
3661 

3662 BRB 
3663 

3664 ACTJJASL: 

3665 BBSS 
3666 

3667 BRB 
3668 

3669 ACT^QAMP: 

3670 BBSS 
3671 

3672 

3673 

3674 QA COMMON: 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 10$: 

3685 

3686 

3687 

3688 20$; 

3689 



♦SUBTITLE 



Set/Show QA Action Routines 



SET/SHOW QAxxxxxxxxx flags Action routine 
This is patterned after the SET/SHOW width action routine aoove 



*CLI$V_GAERR0RPR1NTS, - 

CLI$L FLAGS (R2>, QA..C0MM0N 
QA.COMMON 

0CLI$V_QACKLOOPLOOPS, - 

CLI$L_FLAGS(R2), QA.COMMON 
QA_C0MM0N 

#CLI$V„QATESTL00PS, - 

CLI$L FLAGS(R2), QA^POMMON 
Q A. COMMON 

JCLISV^QASUBTESTLOOPS- - 

CLI$L FLAGSCR2). QA^COMMON 
QA..COMMON 

0CU$V QAMULTJPLEPASS. - 

CLI$L„FLAGS(R2), GA_COMMON 



BBS 
BBC 

MOVAB 



RSB 
MOVAB 



0CLI$V_SHOW r - 

CLI$L_FLAGS(R2), 10$ 

#CLI$V_SET, - _ _ 

CLI$L„FLAGS(R2>, 20$ 

VRSETQA, - 

CLI$L_C0MMAND(R2> 



VRSHQWQA, - 

CLI$L.C0MMAND(R2) 



[42] 
C42J 
C42J 
C42j 
C42] 

Set the bit on [42] 
reqardless *£*!%i 

Branch to common stuffL42J 

[42] 

Set the bit on [42] 

reqardless [42] 

Branch to common stuff[42] 

[42] 

Set the bit on [42] 

reqardless [42] 

Branch to common stuff[42] 

[42] 

Set the bit on [42] 

reqardless [42] 

Branch to common stuff[42] 

[42] 

Set the bit on [42] 

reqardless [42] 

Cont onto common stuff[42] 

[42] 

If SHOW, branch to 10$[42] 

If not, ... [42] 

If not SET or SHOW, [42] 

branch to 20$ [42] 

It SET, ... [42] 

Move address of SETQA [42] 

routine to command [42] 

address [42] 

Move address of SHOWQA[423 
routine to command [42] 
address 



RSB 

CLRL 

RSB 



CLI$L - C0MMAND(R2) 



No routine address 



[423 
C423 



ZZ-ENSAA-7.0 

CLI 

07-80 



QADef Action Routine _ it 

D1AGNUSTJC SUPERVISOR COMMAND 
QADef Action Routine 



M 12 
27-JUL-1984 



Fiche 3 Frame M12 



LINE INTER 27-JUL-1984 15:07:02 

23-MAY-1984 14:10:24 



VAX-11 Macro V03-01 



Sequence 567 



Page 114 



DMA1:[SYS0.SYSMAINT]CLI.MAR;279 (10) 



DE 62 OC 



OD 62 04 

12 62 03 

04 A2 00000000' EF 



04 A2 00000000' EF 
04 A2 



076B 
0768 
076B 

E2 076B 
076F 
076F 
076F 
076F 
076F 

EO 076F 
0773 

El 0773 
0777 
0777 

9E C777 
077F 
077F 

05 077F 
0780 

9E 0780 
0788 
0788 

05 0788 

D4 0789 

05 078C 



.SUBTITLE 



3691 
3692 

3693 ACT.QADEF: 

3694 BBSS 
3695 

3696 

3697 

3698 

3699 

3700 BBS 

3701 

3702 BBC 

3703 

3704 

3705 MOVAB 

3706 

3707 

3708 RSB 

3709 

3710 10$: MOVAB 

3711 

3712 

3713 RSB 

3714 20$: CLRL 
3715' RSB 



QADef Action Routine 



0CLI$V_DEFAULT, - 

CLI$L_FLAGS(R2), QA.COMMON 



tfCLl$V„SHOW, - 

CLI$L FLAGS(R2>, 10$ 

#CLI$V_SET, - _ ^ 

CLI$L_FLAGS(R2), 20$ 

VRSETQA, - 

CLI$L,C0MMAND(R2> 



VRSHOWQA, - 

CLI$L_C0MMAND(R2) 



CL1$L^C0MMAND(R2) 



[42] 

Set the DEFAULT bit [42] 

on reqardless [42J 

The DEFAULT bit isn't [42] 

realty for QA, but [42] 

will use it anyway! C42U 

If SHOW, branch to 10$[42] 
If not, ... C423 

If not SET or SHOW, [42] 
branch to 20$ [42] 

If SET, ... [42] 

Move address of SETQA [42] 
routine to command [42] 
address [42] 



Move address of SHOWQAE42D 
routine to command [42] 
address 



No routine address 



[42] 
[42] 



ZZ-ENSAA-7.0 

CL1 

07-80 



N 12 
Ftn Npyt Ascii Action Routines 27-JUL-1984 Fiche 3 Frame N12 Sequence 568 

E.n, Next, Asc 1 ^ i agNOST i C SUPERVI SOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-01 Page 

5fn, Next, Asc i i Action Routines 



17 
11 1C A2 



5A 
OA 
5A 
05 
5A 



00000061 'EF 
00 



OOOOOOOO'GF 



15 
03 



30 A2 5A 



00 62 13 



05 
13 
D1 
1A 
E3 

9F 
DD 
DD 
FB 



05 



DO 
05 



05 



078D 

078D 

078D 

078D 

078D 

078D 

078D 

078F 

0791 

0794 

0796 

079B 

079B 

07A1 

C7A3 

07A5 

07AC 

07AC 

07AC 

07AC 

07AC 

07AD 

07AD 

07AD 

07AD 

07AD 

07AD 

07B1 

0782 

07B2 

07B2 

07B2 

07B2 

07B2 

0786 

07B6 



3717 
3718 

3719 
3720 

3721 ;- 

3722 ACT^EFN: 



.SUBTITLE 



EFN ACTION ROUTINE. 



23-MAY-1984 H:10:24 DMA1 :CSYS0.SYSMAINT3CLKMAR;279 
Efn, Next, Ascii Action Routines 



115 
(10) 



R10 

30S 

RIO. #23 

30$ 

R10, CLI$L_DATA(R2), 40$ 



L A T ILIEFN 
#ds$ 1 ' printi 
#ds$k~type command err 
#3, G X DSX$PRINT 

0CLI$V ERROR, - 

CLI$C.FLAGS(R2),40$ 



3723 10$: TSTL 

3724 BEOL 

3725 CMPL 

3726 BGTRU 

3727 20$: 8BCS 

3728 30$: 

3729 PUSHAB 

3730 pushl 

3731 pushl 

3732 CALLS 
3733 

3734 ;B8CS 
3735 
3736 

3737 40$: RSB 
3738 

3739 ;+ 

3740 ; NEXT ACTION ROUTINE. 

3741 ;- 

3742 ACTJJEXT: 

3743 MOVL R10, CLISL.NEXT (R2) 

3744 RS8 
3745 

3746 ;+ 

3747 ; ASCII ACTION ROUTINE. 

3748 ;- 

3749 ACT ASCII: 

3750 " BBSS #CLI$V AaCJI, - 

3751 CLI$C_FLAGS(R2), 10$ 

3752 10$: RSB 



CHECK FOR EFN 0. 
CHECK FOR IN RANGE. 

Print illegal event Kag number 

Use print i 
Command error 

Illegal event flag number 

RETURN 



[45] 
[45] 
[483 
[48] 
[48] 

[45] 
[45] 



SAVE NEXT COUNT. 
RETURN 



RETURN, 



8 13 I 

;7-e»^AA-7 Q Re&i&ter Action Routines 27-JUL-1984 Mche 3 Frame 813 Sequence 569 

II ENSAA i\u Hegisrer Action Hourines COMMAND I INE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Pace 116 

fri 80 Register Action Routines H-MAV-1984 H:10:JM DMA1:CSYS0.SYSMAIMTJCLI.MAR;2/9 (10) 

0787 3754 .SUBTITLE Register Action Routines 

0787 3755 

0787 3756 ;♦ 

0787 3757 ; REGISTER ACTION ROUTINES. 

0787 3758 ;- 

0787 3759 ACT.REGN: 

00 62 H t2 07B7 3760 B8SS #CLISV REG, - 

078b 3761 CLI$C_FLAGS(R2), 10$ 

05 0788 3762 10$: RS8 ; *"?*'.**. 

078C 3763 

078C 3764 ACTJUG12: 

18 A2 0C DO 07BC 3765 MOVL #12, CL I$L_ADDRESS<R2> ; hP. 

0A 11 07C0 3766 BR8 ACT_REGM 

07C2 3767 ACT REG'I3: 

18 A2 OD DO C7C? 3768 " MOVL #13, CLl$L_ADDRESS(R2> ; FP, 

04 11 C/C6 3769 BRB ACTJEGM 

07C8 3770 ACTJtfGK: 

18 A2 OE DO 07C8 3771 MOVL #14, CLi$L.ADDRESS(R2> ; SP. 

07CC 3772 ACTJ*EGM: , w rrtR AfT ruAttArTCO 

59 D5 07CC 3773 TSTL R9 ; CHECK FOR LAST CHARACTER. 

18 13 07CE 3774 BEQl ACT^BACKUP : BACK UP IF NO MORE, 

05 07D0 3775 RS8 ; RETURN. 

07D1 3776 

07D1 P77 ACT^REG15: 

18 A2 OF DO 07D1 5778 MOVL #15, CL J$Lj\DDRESSCR2> ; PC 

04 11 07D5 3779 B*B ACT^REGP 

07D7 3780 

0707 3781 ACT REG16: 

18 A? 10 DO 07D7 3782 " MOVL #16, C L I $L.ADDRE?>5 (R?> ; PSl, 

07DB 3783 ACTREGP: 

00 62 14 E2 07DB 3784 88SS #UI$VREG, - ^ v w t „ m r 

07Df 3785 CLI*rjLAGS(R2>, ACT.REGNUF 

07DF 3786 ACT REGNUf : 

00 62 OB U 07DF 3787 BBSS #CLlSV r ADR, - _ ^ m 

07E3 3788 CLJ$C_FLAGS(R2>, 10$ 

05 07E3 3789 10$: RS8 ; RETURN. 

07E4 3790 

07E4 3791 ;♦ 

07E4 3792 ; PROCESSOR REGISTER ACTJON ROUTINES 

07E4 3793 ;- 

07E4 3794 ACT PREGN: 

00 o2 1A U 07E4 3795 " BBSS #UISV_PREG,CLI$L JLAGS(R2) #10$ ; Set command type bit 

FDDE 31 07E8 3796 10$: 8RW ACTJ\dBRESS ; Store register code 



ZZ-ENSAA-7.0 

CLI 

U7-80 



5?0 



C 13 
Rackun Advance Data Action Routines 27-JUL-1984 Fiche 3 frame C 1 3 Seguence 

Backup, Aavance. uara act ion kou^ nes < 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T f uAn Page 

Backup! Advance. Data Action Routines 23-MAY-1984 14:10:24 0MA1:CSYS0.SYSMAINTDCLI.MAR;279 



117 

(10) 



1C A2 







07EB 


3798 






07E8 


3799 






07EB 


3800 






07E8 


3801 






07EB 


3802 






07E8 


3803 


58 


D7 


07EB 


3804 


59 


D6 


07ED 


3805 






07EF 


3806 




05 


07EF 


3807 






07FO 


3808 






07FO 


3809 






07F0 


3810 






07FO 


3811 






C7F0 


3812 


58 


D6 


07F0 


3813 


59 


D7 


07F2 


3814 






07F4 


3815 




05 


07F4 


3816 






07F5 


3817 






07F5 


3818 






07F5 


3819 






07F5 


3820 






07F5 


3821 


5A 


DO 


07F5 


3822 




05 


07F9 


3823 



.SUBTITLE 



Backup, Advance. Data Action Routines 



BACKUP ACTION ROUTINE. 



ACT^BACKUP: 
DECL 
JNCt 

RSB 



R8 
R9 



ADVANCE Action routine. 



ACT ADVANCE: 
INCL 
DECL 

RS8 



R8 
R9 



DATA ACTION ROUTINE. 
ACT_DATA: 



Backup one character in the 
line. Increment the remaining 
character count. 
Return 



Advance one character in [45] 
Line. Decrement the remaining [45] 
character count. [45] 

Return C45J 



MOVL 
RS8 



R10, CLI$L_DATA<R2) 



SAVE THE DATA. 
RETURN. 



J 



ZZ-ENSAA-7.Q 

CLI 

07-80 


Long, Word, 


Byte, Hex, Dec 
DIAGNOSTIC 
Long, Word 


, Oct Action R 27-JUL-1984 Fiche 3 Frame D13 Sequence 571 
SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T Page 118 
, Byte! Hex, Dec? Oct Action R 23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMAINT]CLl ,MAR;279 (10) 










07FA 


^825 .SUBTITLE Long, Word, Byte, Hex, Dec, Oct Action Routines 










07FA 


3826 










07FA 


3827 ;♦ 










07FA 


3828 ; LONG ACTION ROUTINE. 










07FA 


3829 ;- 










07FA 


3830 ACT_L0NG: 




00 62 


OF 


E3 


07FA 

07FE 


3831 B8CS #CLI$V^L0NG, - 

3832 CLI$C.FLAGS(R2), 10$ 








05 


07FE 
07FF 
07FF 
07FF 
07FF 
07FF 


3833 10$: RSB ; RETURN. 
3834 

3835 ;♦ 

3836 ; WORD ACTION ROUTINE. 

3837 ;- 

3838 ACT.WORD: 




00 62 


OE 


E3 


C7FF 

0803 


3839 B8CS #CLI$V WORD, - 

3840 CLI$C_FLAGS(R2), 10$ 








05 


0803 
0804 
0804 
0804 
0804 
0804 


3841 10$: RSB ; RETURN. 
3842 

3843 ;♦ 

3844 ; BY^E ACTION ROUTINE. 

3845 ;- 

3846 ACT BYTE: 




00 62 


OD 


E3 


0804 
0808 


384 7 " B8CS #CLI$V BYTE, - 

3848 CLI$C_FLAGS(R2), 10$ 








05 


0808 
0809 
0809 
0809 
0809 
0809 


3849 10$: RSB ; RETURN, 
3850 

3851 ;+ 

3852 ; HEX ACTION ROUTINE. 

3853 ;- 

3854 ACT.HEX: 




00 62 


12 


E3 


0809 
080D 


3855 B8CS #CLI$V HEX, - 

3856 CLI$C.FLAGS(R2), 10$ 








05 


080D 
080E 
080E 
080E 
080E 
080E 


3857 10$; RSB ; RETURN, 
3858 

3859 ;♦ 

3860 ; DEC ACTION ROUTINE. 

3861 ;- 

3862 ACT^DEC: 




00 62 


10 


E3 


080E 
0812 


3863 BBCS #CLI$V DEC. - 

3864 CLI$EjLAGS(R2), 10$ 








05 


0812 
0813 
0813 
0813 
0813 
0813 


3865 10$: RSB ; RETURN. 

3866 

38t7 ;♦ 

3868 ; OCT ACTION ROUTINE. 

3869 ;- 

3870 ACT.OCT: 




00 62 


11 


E3 


0813 
0817 


3871 BBCS #CLI$V OCT, - 

3872 CLISC FLAGS(R2), 10$ 








05 


0817 


3873 10$: RSB ; RETURN. 

i 



ZZ-ENSAA-7.0 

CLI 

07-80 



IF Action Routines 

DIAGNOSTIC SUPERVISOR 
IF Action Routines 



572 



27-JUL-198A Fiche 3 Frame E13 Seguence 

COMMAND LINE INTER 27-JUL-198A 15:07:02 VAX-11 Macro V03-0T Page 

9 u 1Q 24 DMA1:CSYS0.SYSMAINT]CLI.MAR;279 



119 
(10) 



07 62 



08 



02 62 



08 







0818 


3875 






0818 


3876 






0818 


3877 






0818 


3878 






0818 


3879 






0818 


3880 






0818 


3881 






0818 


3882 






0818 


3883 






0818 


388A 






0818 


3885 






0818 


3886 


50 


DA 


0818 


3887 


15 


E1 


081A 


3888 






C81E 


3889 


A2 


D5 


081E 


3890 


02 


12 


0821 


3891 


50 


D6 


0823 


3892 




05 


0825 


3893 






0826 


389A 






0826 


3895 






0826 


3896 






0826 


3897 






0826 


3898 






0826 


3899 






0826 


3900 






0826 


3901 






0826 


3902 


50 


DA 


0826 


3903 


00 


E1 


0828 


390A 






082C 


3905 


50 


D6 


082C 


3906 




05 


082E 


3907 






082F 


3908 






C82F 


3909 






082F 


3910 






082F 


3911 






082F 


3912 






082F 


3913 






082F 


39H 






082F 


3915 






082F 


3916 


50 


DA 


082F 


3917 


A2 


D5 


0831 


3918 


02 


13 


083A 


3919 


50 


D6 


0836 


3920 




05 


0838 


3921 






J839 


3922 






0839 


3923 






0839 


3924 






0839 


3925 






0839 


3926 






0639 


3927 






0839 


3928 






0839 


3929 






0839 


3930 


50 


DA 


0839 


3931 



.SUBTITLE 



IF Action Routines 



IFJUJN ACTION ROUTINE, 
Returns; 



1 => RUN command AND no file-spec has been gotten yet 
=> Either: 

Not the RUN command 
OR the file-spec has already been gotten 



ACTJFJiUN: 
CLRL 
BBC 



10$: 



TSTL 
8NEQ 
INCL 
RSB 



RO 

*CLI$V RUN, - 

CLI$E FLAGS(R2>, 10$ 
CLI$Q„FlLE (R2) 
10$ 
RO 



Assume negative. 

If not RUN, return with 0. 
Check the char, count for the file-spec 
If > 0, => file-spec is there, 
RUN and no file-spec found- 
Return. 



IF.REGUIRED Action routine. 
Returns: 



1 => Something was required for the command 
=> Something was optional for the command 



ACT If REQUIRED: 
" m CLRL R0 

BBC #CLI$V REQUIRED, - 

CLISCFLAGS <R2), 10$ 
INCL R0 
10$: RSB 



IF_FILE_SPEC Action routine. 
Returns: 



[A5J 

CA5] 
CA53 
CA5D 
CA5D 



1 => A file-spec is present 
=> No file-spec present 



ACT IF FILE SPEC: 
" " CLRU RO 

TSTL CLI$Q_FILE (R2) 

BEQL 10$ 

INCL RO 
10$: RSB 



IF_ADAPTER Action routine. 
Returns: 



Assume no file-spec present 
See if the char-count is > zero 
If = 0, branch and return 
If > 0, return 1 



[A5] 
CA53 
CA53 
CA5] 
CA5D 
[A5] 



1 => A adapter is present 
=> No adapter present 



ACT IF ADAFTER: 
" " CLRL RO 



Assume no adapter present 



CA8] 
M81 



ZZ-ENSAA-7.0 

CLl 

07-80 



IF Action Routines „**.,»** 

DIAGNOSTIC SUPERVISOR 
IF Action Routines 



OOOOOOOO'EF 
02 
50 



D5 083B 3932 

13 0841 3933 

D6 0843 3934 

05 0845 3935 10$: 



COMMAND 



TSTL 
BEQL 
INCL 
RS8 



27-JUL-1984 Fiche 3 Frame F13 Sequence 573 

LINE INTER 27-JUI-1984 15:07:02 VAX-11 Macro V03-0T wAn Paae 120 

23-MAY-1984 14:10:24 DMA1 :CSYS0.SYSMAINT]CU,MAR;279 (10) 



L A q adapter 

10$ 

RO 



See if the char-count is > zero 
If = 0, branch and return 
If > 0, return 1 



E48U 
C48] 
C48] 
[483 



ZZ-ENSAA-7.0 

CLI 

07-80 



574 



IF Action Routines 27-JUL-1984 Fiche 3 Frame 613 Sequence 

IF Action Routines SUPERVJS 0R COMMAND LINE INTER 27-JUMW 15:07:02 VAX-1 J Macro VO3-0J Pace 

IF Action Routines 23-MAY-1984 14:10:24 DMA1 :CSYSO.SYSMAINTJCLI .MAR;*rv 



121 
(10) 



0846 









0846 








0846 








0846 








0846 








0846 








0846 








0846 




50 


D4 


0846 


03 62 


14 


E1 


0848 
084C 




50 


06 


084C 






05 


084E 


F9 62 


0B 


EO 


084F 
C853 






05 


0853 
0854 
0854 
0854 
0854 
0854 
0854 
0854 
0854 
0854 




50 


D4 


0854 


OOOOFEOO'EF 


1C 


EO 


0856 




02 




085D 




50 


D6 


085E 






05 


0860 



]F_REG_0R_ADR Routine, 
Returns: 



3937 
3938 
3939 
3940 
3941 
3942 

3943 . 

3944 ACTJFJ1EG OR.ADR: 

3945 CLRL RO 

3946 BBC 
3947 

3948 10$: INCL 

3949 RSB 

3950 20$: BBS 
3951 

3952 RSB 
3953 

3954 ;+ 

3955 ; IFNOTUSER action routine 

3956 w 

3957 ; Returns: 
3958 
3959 

3960 . 

3961 ACT JFNOTUSER: 

3962 " CLRL 

3963 BBS 
3964 

3965 INCL 

3966 10$: RSB 



1 => A register has been given OR an address has been given 
=> No register AND no address were given 



#CLI$V REG, - 

CLJSCJLAGS <R2), 20$ 
RO 

*CLI$V ADR, - 

CLI$E_FLAGS (R2), 10$ 



1 => Not user mode 
=> User mode 



RO 
#DSA$V_USER, - 

DSA$GL_FLAGS, 10$ 
RO 



Assume not set 

If not REG, branch 

One of them was set 
Leave with 1 
Jf ADR, branch 

Leave with 



Pre-assume failure 

Branch if not user mode 
Set RO to cause branch 



[38] 
[38] 
[38] 
[38] 
[38] 
[38] 



ZZ-ENSAA-7.0 

CH 

07-80 



H 13 
Xdelta Action Routines 27-JUL-1984 Fiche 3 trane H13 Sequence 575 

Xdelta Action Rou ines SUPERVIS0R Qomm LINE INTE R 27-JUL-1984 15:07:02 VAX-1 Macro V03-0? Page U2 

Xdelta Action Routines 23-MAY-1984 14:10:24 DMA1 : CSYSO.SYSMAINTJCLI .MAR;2r9 (1U) 



bO 00000000' 8F 
08 

OOOOFEOO'EF 1C 

03 

50 01 



04 A2 OOOOOOOO'EF 



0861 

0861 

0861 

0861 

0861 

0861 

0861 

0861 

DO 0861 

13 0868 

E1 086A 

0871 

DO 0872 

05 0875 

C876 

0876 

9E 0876 

087E 

05 087E 

087F 

05 087F 



3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 



.SUBTITLE 



VAX DEBUGGER ACTION 



Xdelta Action Routines 



.WEAK 
ACT IF XDELTA: 
MOVL 
BEQL 
BBC 



10$: 

20$: 



MOVL 
RSB 



ACT.XDELTA: 

MOVAB 

RSB 

RSB 



XDELBPT.XDELTBIT 

#XDELBPT,R0 
10$ 

*DSA$V_USER, - 
DSA$GL FLAGS, 20$ 

n,R0 



INJSBRK, - 
CLI$L_C0MMAND(R2) 



; Is Xdelta linked? 

; Branch if not 

; Branch if S/A 

; Make scanner take branch to error 

; Return 



; Set command address. Cause breakpoint 
; Return to scanner 



RETURN FOR NEXT COMMAND 



ZZ-ENSAA-7.0 
CLI 

07-80 



hAuiro Rn'pf Adantor Action Routines 27-JUL-1984 Fiche 3 Frame J13 5£9 

Device, Brief. Adagtor^cti ^p|^} s ^ S C0MMAND LI & E INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0? 

Device, Brief, Adaptor Action Routines 23-M*Y-1984 14:10:24 



Sequence 576 

._ _ . Pag 

DMA1;CSYS0.SYSMAINT3CLI.MAR;279 



Page 



123 
(10) 



09 62 1B 

04 A2 00000000 'EF 

04 A2 00000000* EF 



00 62 1B 

01 

50 00000000' EF 

04 A2 50 

0A 

04 A2 00000000 'EF 

15 

50 00000000 'EF 

04 A2 50 

08 

04 A2 00000000'EF 

01 



00000004' EF 68 
00000000' EF 



00000000'EF 58 00000004 'EF 
00 00000000 E2 



08 
18 



EO 

9E 
05 

9E 
05 



E2 
BB 
9E 
D1 
12 
9E 
11 
9E 
D1 
12 
9E 
BA 
05 



DE 
D4 
05 



C3 

13 
E2 

05 



0880 

0880 

0880 

0880 

0880 

0880 

0880 

0884 

0884 

088C 

088D 

088D 

0895 

0896 

C896 

0896 

0896 

0896 

0896 

089A 

089C 

08A3 

08A7 

08A9 

08B1 

08B3 

08BA 

088E 

08C0 

08C8 

08CA 

08CB 

08CB 

08CB 

08CB 

08CB 

08CB 

08CB 

08CB 

08D2 

08D8 

08D9 

08D9 

08D9 

08D9 

08D9 

08D9 

08E5 

08E5 

08E7 

08EF 

08EF 



3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 



.SUBTITLE Device, Brief, Adaptor Action Routines 
SHOW DEVICE and SHOW DEVICE/BRIEF 

#CLI$V_BRIEF,CLI$L_FLAGS(R2>,5$ ; Check for brief flag. 



ACT^DEVICE: 
BBS 



5$: 



MOVAB 
RSB 

MOVAB 
RSB 



L A DSV$SH0WDEVICE,CLI$L_C0MMAND(R2) ; SHOW DEV COMMAND ROUTINE 



L A DSV$SH0WDEVICE8,CLI$L_C0MMAND(R2) 



Show device brief 



/BRIEF Action routine. 



ACT^BRIEF: 

BBSS 



Set flag 



20$: 



30$; 



50$; 



PUSHR 

MOVAB 

CMPL 

BNEQ 

MOVAB 

BRB 

MOVAB 

CMPL 

BNEQ 

MOVAB 

POPR 

RSB 



*CLI$V BRIEF, CLI$L_FLAGS(R2), 20$ t 

# A M<R0> ; Save register 

L A DSV$SHOWDEVICE,R0 ; Get address 

R0,CLI$L COMMAND(R2) ; Check current command. 

30$ " ; Skip if not show device. 

L A DSV$SHOWDEVICEB,CLI$L C0MMAND(R2) ; Change to BRIEF form. 

50$ 

L A DSV$SHOWSELECT,RO ; Get address 

R0,CLI$L COMMAND(R2) ; Check current command. 

50$ 

L A DSV$SHOWSELECTB,CLI$L C0MMAND(R2) ; Change to BRIEF form. 

# A M<R0> "; Restore register 



[443 

£443 
C44] 

[44] 
[44] 



[44] 
[44J 
C443 
C44] 
[44] 
[44] 
[44] 
[44] 
[44] 
[44] 
[44] 
[44] 
[44] 
[443 



BEGINADAPTER Action routine t 

Adaptor name storage action routines for /ADAPTER qualifier 

on SELECT, DESELECT, and SHOW DEVICE commands. 



ACT BEGINADAPTER: 

MOVAL (R8), L A Q ADAPTER+4 

CLRL L A Q ADAPTER 

RSB 



; ADAPTER Action routine. 
ACT_ADAPTER: 



Save current pointer 
Clear length field 
Return to caller 



[43] 
[43] 
[433 



10$; 



SUBL3 

BEQL 
BBSS 

RSB 



L A Q ADAPTERS, R8, - 

L*Q ADAPTER 
10$ " 
#CLI$V ADAPTER, - , 

L A CL7$L„FLAGS (R2), 10$ 



Calculate count 
Set adaptor bit 



[433 
[433 
[433 
[433 
[433 
[433 



ZZ-ENSAA-7.0 
CL1 

07-80 



Show Select, Do.Cmd, Set Load, Show Load 23-MAY-1984 1A : 10:24 DMA1 :[SYS0.SYSMA1NT]CLI.MAR,^V nv) 



04 a2 
04 A2 



09 62 18 

OOOOOOOO'EF 

00000000'EF 



50 



04 A2 
02 
60 



04 A2 00000000'EF 



04 A2 00000000'EF 



EO 

9E 
05 

9E 
05 



DO 
13 
16 
05 



9E 
05 



9E 
05 



08F0 

08F0 

08F0 

08F0 

08F0 

08F0 

08F0 

08F4 

08F4 

08FC 

08FD 

08FD 

0905 

0906 

C906 

0906 

0906 

0906 

0906 

090A 

090C 

090E 

090F 

090F 

090F 

090F 

090F 

090F 

0917 

0918 

0918 

0918 

0918 

0918 

0918 

0920 



.SUBTITLE 



4043 
4044 

4045 ;+ 

4046 ; SHOW SELECT/BRIEF ^nd SHOW SELECT 

4047 ;- 



Show Select, Do_Cmd, Set Load, Show Load Action Routines 



4C48 ACT^SHOWSEL; 
BBS 



0CLI$V_BRIEF,CLI$L_FLAGS(R2),5$ ; Check for brief flags 
L A DSV$SHOWSELECT,CII$L_COMMAND(R2> ; SET COMMAND ROUTINE 



L A DSV$SH0WSELECTB,CLI$L_C0MMAND(R2> 



CLI$L_C0MMAND(R2), RO 

10$ 

(RO) 



4049 
4050 

4051 MOVAB 

4052 RSB 
4053 

4054 5$J M0VA8 

4055 RSB 
4056 

4057 ;+ 

4058 ; DOCoMmanD 

4059 ;- 

4060 ACT_D0^CMD: 

4061 MOVL 

4062 BEOL 

4063 JSB 

4064 10$: RSB 
4065 

4066 ;+ 

4067 ; SET LOAD COMMAND 

4068 ;- 

4069 ACT..SETLOAD: , _ 

4070 MOVAB DSV$SETL0AD,CLI$L.C0MMAND(R2) 

4071 RSB 
4072 

40/3 ;+ 

4074 ; SHOW LOAD DEFAULTS 

4075 ;- 

4076 ACT SHOWLOAD: 
407/ MOVAB 
4078 RSB 



Show select brief 



[44] 

[413 

[44] 

[44] 

C44] 



Check value before dispatch 
Don't dispatch if 
Perform the routine 



[46] 
[46] 
C46] 
[46] 



Set tr,9 proce: sor command 



DSV$SHOWLOAD,CLI$L_C0MMAND(R2) ; Set the processor address 



ZZ-ENSAA-7.0 

CLI 

U7-80 



*i On, Off, and Show Action Routines 

DIAGNOSTIC SUPERVISOR COMMAND 
MM On, Off, and Show Action 



Seguence 
V03-0T 



578 



K 13 , 

27-JUL-1984 Fiche 3 Frame K13 ^ . 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T tk ^ Pa 
Routines 23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMAINT]CLI.MAR;27 



*' 
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(10) 



04 A2 27' AF 



000000 AB'EF 

01 

15 

00000000* 6F 03 



OOOOOOOO'EF 01 
00000000'EF 00 



04 A2 56'AF 



000000AB*EF 

01 

15 

OOOOOOOO'GF 03 



OOOOOOOO'BF 
00000000'EF 00 



04 A2 84' AF 



6E 



OOOOOOEF'EF 

OOOOOOOO'EF 

07 

OOOOOOEC'EF 



0921 
0921 
0921 
0921 
0921 
0921 
9E 0921 
05 0926 
0927 
0927 
9F 092F 
DD 0935 
DD 0937 
FB 0939 
05 0940 
0941 
DO 0941 
FB 0948 
05 094F 
0950 
0950 
0950 
0950 
0950 
0950 
9E 0950 
05 0955 
0956 
0956 
9F 095E 
DD 0964 
DD 0966 
FB 0968 
05 096F 
0970 

94 0970 
FB 0976 
05 09/D 

097E 
097E 
097E 
097E 
097E 

9E 097E 

05 0983 
0984 
0984 
098C 
098C 
098C 

05 099F 
09A0 

9F 09A0 

95 09A6 
13 09AC 
9E 09AE 

0985 



4080 

4081 

4082 

4083 

40R4 

4Cb5 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 



.SUBTITLE 



MM On, Off, and Show Action Routines 



; SET MEMORY MANAGEMENT ON ROUTINE 

ATT MM AM * 

MOVAB B*5$,CLI$L COMMAND (R2); MEMORY ON ROUTINE 
RSB 



5$ 



10$: 



Br If Not User 10$ 

PU5HAB L X T EMESSG1 

pushl ^dsSk^pn'ntf 

pushl #ds$k type commandeer r 

CALLS #3, 6*DSX$PRINT 

RSB 

MOVL #1,DS$GB MM.ENB 

CALLS 0O,DSX$MflON 
RSB 



; Branch around if not user mode 



Print with PRINTF 
Command error code 
Print 



; Flag MM ENABLED 



[55] 
C413 
[48] 
[48] 
L48] 



; SET MEMORY MANAGEMENT OFF ROUTINE 

ACT MMOFF : 

MOVAB B A 5$,CLI$L COMMAND(R2); MEMORY OFF ROUTINE 

RSB 



5$: Br If Not User 10$ 
PUSHAB L*T EMESSG1 

pushl *dsik_printf 

pushl #ds$k type command, err 

CALLS 03, G*DSX$PRINT 
RSB 

10t: CLRB DS$GB MM ENB 

CALLS 0O,DSX$MRQFF 
RSB 

; SHOW STATUS OF MEMORY MANAGEMENT 

ACT SHOWMM: 

MOVAB B A 10$,CLI$L C0MMAND(R2) 
RSB 



Branch around if not in user mode 



Print with PRINTF 
Command error code 
Print 



; Allow it to turn MM OFF 



[553 
[413 
[48] 
[48] 
C483 



10$: 



Br If Not User 20$ 

$PRINT #3s$k type„command_err, 



*ds$k DrTntf, - 



RSB 



LM 



*K dm 
.ERES5 



SSG1 



20$: 



PUSHAB I OFF 

TSTB D5$GB.MM iNB 

BEOl 30$ 

MOVAB TJ)N,(SP> 



; Set command processor 



Branch around if not in user mode 
P^nt command error 
. . use PRINTF 
Can't do 



Assume MM OFF 
is mm on? 
Branch if not 
Change insert 



[55] 
[48] 
C483 
[483 



ZZ-ENSAA-7.0 

CLI 

07-80 



MM rm off and Show Action Routines 27-JUL-1984 Fiche 3 Frame L13 Seguence 579 

MM On, Off, and Show Act on Routine^ £ ^ mER 27-JUL-19B4 15:07:02 VAX-11 Macro V03-0T Pa 

MM On, Off, and Show Action Routines 23-MAY-1984 14:10:24 DMA1 :[SYS0.SYSMAINTJCU.MAR;27 



OOOOOODO'EF 

01 

16 

00000000' GF 04 



9F 
DO 
DD 
F8 
05 



09B5 
09BB 
09BD 
09BF 
09C6 



4137 30$: 


PUSHAB 


4138 


push I 


4139 


pushl 


4140 


CALLS 


4141 


RS8 



T SHOWMM 
*as$k..printf 
#ds$k"*type command^out 
04, G*DSX$PRINT 



Address of text 
Print with PRJNTF 
Command output code 
Print 
All done 
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(10) 



C48J 
[48] 
C48D 



ZZ-ENSAA-7.0 

CL1 

07-80 



Show Status, Show Support 

DIAGNOSTIC SUPERVISOR COMMAND 
Show Status, Show Support 



580 



M 13 
27-JUL-1984 Fiche 3 Frame M13 Seguence 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro V03-0T 

23-MAY-1984 1 A : 1 : ?A DMA1 :[SYSO.SYSMAINTJCLI.MAR 



Pag< 
;279 



127 
(10) 



04 A2 OOOOOOOO'EF 



9E 
05 



09C7 

09C7 
09C7 
09C7 
09C7 
09C7 
09C7 
09CF 
09D0 
0900 
09D0 
09D0 



4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 



.SUBTITLE 



Show Status, Show Support 



; SHOW STATUS 

ACT SHOWSTATUS: 
MOVAB 
RS8 



SHOW SUPPORT 



VRSHOWSTATUS, CLJ$L.COMMAND(R2) 



C39] 
C39J 



ZZ-ENSAA-7.0 

CL1 

07-80 



Show Status, Show Support 

DIAGNOSTIC SUPERVISOR COMMAND 
Show Status, Show Support 



27-JUL-1984 fiche 3 Frame N13 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro 
23-MAY-1984 14:10:24 



Sequence 581 

V03-01 Page 

DMA1:[SYS0.SYSMAINTDCLI.MAR;279 



04 A2 00000000' EF 



04 A2 00000000'EF 



04 A2 00000000'EF 



50 
OD 

50 01 

08 

50 02 

03 

50 03 
00 00000000' EF 50 



04 A2 OOOOOAOE 'EF 



OOOOOOAB'EF 
01 
15 

OOOOOOOO'GF 03 



00000000' EF 



9E 
05 



9E 
05 



9E 
05 



D4 

11 

DO 

11 

DO 
11 

DO 
E2 
05 



9F 
05 



9F 
DD 
DD 
FB 
05 



16 
05 



09D0 

09D0 

09D8 

09D9 

09D9 

09D9 

09D9 

09D9 

09D9 

09E1 

09E2 

09E2 

09E2 

09E2 

C9E2 

09E2 

09EA 

09EB 

09EB 

09EB 

09ED 

09EF 

09EF 

09F2 

09F4 

09F4 

09F7 

09F9 

09F9 

09FC 

0A04 

0A05 

0A05 

0A05 

0A05 

0A05 

0A05 

0A05 

0A05 

OAOD 

OAOE 

OAOE 

0A16 

0A16 

0A1C 

0A1E 

0A20 

0A27 

0A28 

0A28 

0A28 

0A2E 

0A2F 

0A2F 



4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 
4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 



ACT SKOWSUP: 
MOVAB 
RSB 



L A VRSUPP0RT,CLI$L..CCMMAND(R2) ; Set command routine 



SHOW SECTIONS 



ACT SHOWSECTIONS: 

MOVAB L A VRSH0WSECTIONS,CLI$. ..COMMAND (R2) 

RSB 



; SHOW MEMORY 

Act.ShowMera: , .„ „ _,,_ 

MovAB L A DSV$ShowMemory, Cli$L_Command(R2) 

Rsb 
.Enable LSB 
/"t ShoMemMap: 

ClrL 

BrB 
Act ShoMemBuf: 

MovL 

BrB 
Act ShoMemDat: 

MovL 

BrB 
Act ShoMemAU : 

MovL 
10$: BbsS 
20$: Rsb 

.Disable LSB 



Set command routine 



RO 
10$ 

#1, RO 

10$ 

#2. RO 
10$ 

#3, RO 

RO, L*ShowMemoryFlags, 20$ 



Show Memory address 

/Map 

/Buffer 

/Data_Structure 

/ALL 

set the bit 
and return 



SET MEMORY 



ACT.SETMEM: 

MOVAB 



5$, CLI$L^COMMAND(R2) 



5$: 



RSB 

BRJF.NOTJJSER 10$ 
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L44] 

[44] 



C46D 
[46] 
[463 
[46] 
£46] 
C>6] 



[513 
[51] 
[51] 
[513 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 
[51] 



10$: 



PUSHAB 

PUSHL 

PUSHL 

CALLS 

RSB 



J SB 
RSB 



L*T EMESSG1 

#DS$K PRINTF 
#DS$K"TYPE COMMANDJRR 
#3, G*DSX$PRINT 



L A VRS6TMEM 



[75] 
Address of following [753 
routine [753 

[753 

Not allowed in user mode[7 
Tell user [75] 

[75] 
[753 
[753 



Routine to do work 



[75] 
[75] 
[75] 



.END 



Z7-ENSAA-7.0 Symbol table 








CL I 


DIAGNOSTIC SUPERVI5 


Symbol table 








m 


= 00000080 


D 




%%H 


= 00000001 


D 




$ER 


= 00000002 


D 




SMODui E 


00000000 R 


D 


03 


ABORT 


* 00000006 
000002A7 R 


D 




ACT ABORT 


D 


04 


ACT'AOAPTFR 


000008D9 R 


D 


04 


ACT~ADDRFSS 


000005C9 R 


D 


04 


ACT'AOVANCE 


000007FO R 


D 


04 


ACT^ALL 


000005FD R 


D 


04 


ACT~ASf I 1 


000007B2 R 


D 


04 


ACT'ATMCH 


00000296 R 


D 


04 


AU~BAUuP 


000007EB R 


D 


04 


ACTBASE 


00000583 R 


D 


04 


ACTBEGINADAPTER 


0000C8CB R 


D 


04 


ACT"BELL 


000006AT R 


D 


04 


ACrBlNARY 


000006A7 R 


D 


04 


ACT'BREAK 


000005D6 R 


D 


04 


ACT'BRIEF 


00000896 R 


D 


04 


ACT'BYTE 


00000804 R 


D 


04 


ACTCtEAR 


00000280 R 


D 


04 


ACT'CLEARENFORCE 


00000567 R 


D 


04 


ACTCLFAR CRD DEBUG 


00000699 R 


D 


04 


ACT"CLEAR**fRD'TRACE 


00000654 R 


D 


04 


ACT'CONT m 


000002E9 RG 


D 


04 


ACT'CONTEXT 


00000265 R 


D 


04 


ACT'CONTINUF 


000002BD R 


D 


04 


act'crd 


U0000449 R 


D 


04 


ACT'DATA 


00OO07F5 R 


D 


04 


ACT^DEATTACH 


000002EA R 


D 


04 


ACT'DEBUG 


0OOO02F3 R 


D 


04 


ACT'DEBUG SWITCH 


00000534 R 


D 


04 


ACT'DEC " 


O00O08OE R 


D 


04 


ACT"OfMULT 


0000061 E R 


D 


04 


act'defauit dbg 


00O002FC RG 


D 


04 


AC T~DE POSIT" 


00000316 R 


D 


04 


act'de select 


00000323 R 


D 


04 


ACT'DEVICE 


00000880 R 


D 


04 


ACT'DIRECTORY 


0000032C R 


D 


04 


ACT'DIR WIDE 


00000338 R 


D 


04 


ACT'DO PMD 


00000906 R 


D 


04 


act'EfR 


0000078D R 


D 


C4 


ACT'ENUF 


00000291 R 


D 


04 


ACT'EVENT 


00000575 R 


D 


04 


ACT'EXAMINE 


0000034 3 R 


D 


04 


ACT'EXIT 


00000350 R 


D 


04 


ACT'UIlURE 


00000283 R 


D 


04 


ACT"F REMO 


00000523 R 


D 


04 


ACT'f ILESPEC 


00000518 R 


D 


04 


act'flags 


0000059F R 


D 


04 


act'halt 


000006AD R 


D 


04 


act'help 


00000359 R 


D 


C4 


act'hex 


00000809 R 


D 


04 


AfT"j£1 


00000683 R 


D 


04 


AC T~If ? 


00000689 R 


D 


04 


AC T - IE 3 


000006BF R 


D 


04 


ACTlES 


000006C5 R 


D 


04 



6 14 
27-JUI-1984 Fiche 3 Frame B14 Sequence 582 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER &JUL-198. 15:07=02 VAX-11 ^W^^P^ Jft 



ACT IFNOTUSER 
ACT"IF ADAPTER 
ACriF~FILE SPEC 
ACT'IF REG OR ADR 
ACriF'REQOlRFD 
ACriF~RUN 
ACT"IF~XDELTA 
ACT'ILC CMD 
ACriNC~CMD 

act'initpcs 
acOast 

ACT LOAD 
ACT~LONG 

acOoop 
act mhoff 

ACT'MMON 

acTnext 
act'next inst 
act'notnQf 
acTnuu 

ACT OCT 

ACT'OPER 

ACT"0PTI0rVAL 

ACT'PAGE 

ACT~PASS 

acv"pregn 

act'prompt 

act'qa 

act"qacl 

act^oadef 

ACT'QAEP 
ACT'QAMP 

ACT'QASL 

ACT QATL 
ACT'QUIU 
ACT"REG12 
ACT"REG13 

act'regk 

ACT"REG15 

ACT"REG16 

ACT'REGM 

ACT~REGN 

ACT'REGNUF 

ACT"REGP 

ACT'REQUIRED 

ACT~RUN 

ACT'SCRIPT 

ACT"SEARCH 

ACT^SECTION 

ACT SElECT 

ACT^SE T 

ACT SETENFCRCE 

ACT^SETLOAD 

ACT SE fMEM 

ACT~SEVRD_ DEBUG 

ACTSET CRD TRACE 

ACT~SHQflEMA[l 



00000854 R D 04 

00000839 R D 04 

0000082F R 04 

00000846 R D 04 

00000826 R D 04 

00000818 R D 04 

00000861 R D 04 

0000025B R D 04 

00000261 R D 04 

00000397 R D 04 

0000055E R D 04 

0000038F R D 04 

000007FA R D 04 

000006CB R D 04 

00000950 R D 04 

00000921 R D 04 

000007AD R D 04 

000003D2 R D 04 

0000028C P D 04 

0O00025A R 04 

00000813 R D 04 

000006D1 R D 04 

0000052A R D 04 

000006F5 R D 04 

00000540 R D 04 

000007E4 R D 04 

000006D7 R D 04 

00000545 R D 04 

00000757 R D 04 

00000768 R 04 

00000731 R D 04 

00000749 R D 04 

00000743 R D 04 

0000073D R D 04 

000006DD R D 04 

000007BC R D 04 

000007C2 R D 04 

000007C8 R D 04 

000007D1 R D 04 

000007D7 R D 04 

000007CC R D 04 

00000787 R D 04 

000007DF R D 04 

000007DB R D 04 

0000052F R D 04 

000003E4 R D 04 

00000437 R D 04 

000006E3 R D 04 

0000054A R D 04 

00000400 R D 04 

00000*09 R D 04 

00000563 R 04 

000QQ90F R D 04 

OOC0OAQ5 R D 04 

00000690 R D 04 

0000064A R D 04 

0O0009F9 R D 04 
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Symbol table 
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AC F SHOMEMBUF 

ACT^SHOMEMDAT 

ACT"SHOMEMMAP 

ACT'SHOW 

ACT~SHOWLOAD 

ACT'SHOWMEM 

ACT~SHOWMM 

ACT~SHOWSECT10NS 

ACT'SHOWSEL 

ACT"SHOWSTATUS 

ACT"SHOUSUP 

ACT~SHOW.CALLS 

ACT"SHOW CRD.TRACE 

ACT'START 

ACT'SUBTEST 

ACTSUCCESS 
ACT SUMMARY 
ACTTEST 

ACT'TRACE 

ACT~VERIFY 

ACT~WIDTH 

ACT'WORD 

ACT~XDELTA 

ADAPTER 

ADDRESS 

ADVANCE 

ALL 

APT COM 

APT~MSG 

ASCII 

ATTACH 

BACKUP 

BAD LIST 

BAD'QUALIFIER 

BASE 

BEGIN 

BEGINADAPTER 

BELL 

BINARY 

BIT.,. 

BREAK 

BRIEF 

BYTE 

B SUCCESS 

CCEAR 

CLEARENFORCE 

CLEAR CRD DEBUG 

CLEAR~CRD~TRACE 

Cl.BAR"FLABS LOOP 

CLEAR"PARAM5 

CLI ' 

CLISK ALNUM 
CLlS^ALPHA 
CUSK~B1F 

CLlSlTBIFS 

CLISK"8R 

Cl.I$K"8UFSIZ 



000009EF R D 04 

000009F4 R D 04 

000009EB R D 04 

00000416 R D 04 

00000918 R D 04 

000009E2 R D 04 

0000097E R D 04 

000009D9 R D 04 

000008FO R D 04 

000009C7 R D 

000009DO R D 

0000063D R D 

000006 5 E R D 

0000041B R D 

0000C554 R D 

0000027A R D 

00000440 R D 

00000559 R D 

0G0006E9 R D 

000006EF R D 

00000713 R D 

0OO007FF R D 

00000876 R D 

0000006F D 

00000037 D 
00000O5C D 
00000039 D 

******** x 

* ****** * X 

00000053 D 

00000007 D 
00000058 D 
0000037D R D 
0000039D R D 
00000036 D 
******** x 

0O00OO6E D 

00000038 D 
0000003C D 
00000003 D 
00000038 D 
0000006D D 
00000060 D 
0000044C R D 

00000008 D 
00000033 D 
000000 1E D 
00000018 D 
000009AE R D 
000008D6 R D 
0000007? R D 

: 00000087 D 
• 00000086 D 

- 00000083 D 
: 00000094 D 
= 00000082 D 

- 00000100 D 



04 
04 
0'- 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



04 
04 



03 
03 

04 



02 



03 
03 
04 



CLISK.CALL 

CLISK COMMA 

CLJSlTDEC 

CLISK.EOL 

CLJSK.ERROR 

CLISK.EXIT 

CLISK. FILE 
CLISK HEX 
CLISK'KEYWORD 
CLI*K~NUM 
CLISK OCT 
CLJSK*"RETURN 
CLJSKISI2E 
CLISK. SLASH 
CLISK, SPACE 
CLISK STRING 
CLtSOvMBOL 
CLISK. VALUE 
CLISL ADDRESS 
CLISL~COMMAND 
CLiSLlDATA 
CLISL. FLAGS 
CLISL LAST 
CLISL.NEXT 
CLISL. PASS 
CLISL^SUBT 
CLISL TEST 
CLIS0~BUFQWD 
CLISQ.FILE 
CLISQ SECTION 
CLISO'TIME 
CLIST'BUFFER 
CLISV ADAPTER 
CLJSVlADR 
CLISV ASCII 
CLISV, BREAK 
CLISV.BRIEF 

CLISV.BYTE 

CLISV. CLEAR 

CLISV. DEC 

CLISV.DEFAULT 

CLISV DEPOSIT 

CLISV.EVENT 

CLISV.EXAM 

CUSV.FLAGS 

CLISV.HEX 

CLiSV.KERNEL 

CLISV LOAD 

CLISV~L0NG 

CL1SV~N0TNUF 

CLlSVlOCT 

CLISV PREG 

CLISV QA 

CLISV.OACKLOOPLOOPS 

CLISV OAERRORPRINTS 

CLISV"QAMULTIPLEPASS 

CLJSVlOASUBTESTLOOPS 



00000092 

0000008E 

0000008A 

00000091 

00000080 

00000081 

00000095 

00000089 

0000008C 

00000085 

00000088 

00000093 

0000044^ 

00000090 

00000084 

0000008B 

0000008D 

0000008F 

00000018 

00000004 

0000001 c 

00000000 

00000024 

0OO00O3O 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

0000003C 

00000018 

0OO0000B 

00000013 

OOOOOOOA 

0000001 B 

OOOOOOOD 

00000002 

00000010 

OOOOOOOC 

00000019 

00000008 

00000005 

00000009 

00000012 

00000017 

00000006 

OOOOOOOF 

00000001 

0000001 1 

0000001 A 

00000007 

0000001 c 

0000001 B 

0000001 F 

0000001 E 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

C 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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CLISV QATESTLOOPS 

CLISV^REG 

UNREQUIRED 

CLltV^RUN 

CLISV.SET 

CLISV^SHOW 

CLISV VALSEC 

UI$V~WORD 

cli action 

command tree 

common trd trace.debug 

common'enfSrce 

CONTEXT 

CONTINUE 

CRD 

CRDSGL CRD COMMAND DEBUG 

CRD$K CRD INITIALISATION 

CRD$K"DSjONTROL.C 

CRD$K~DS FLAGS 

CRDSK'FATLURE 

CRD$K~HOOK_POINT 

CRD$K~LAST ACCESS CODE 

CRD$K~LAST~DS VARIABLE 

CRDSK'LASTJUFJCTION 

CRD$Xf LAST HOOK POINT 

CRDSK'READ" 

CRDSK'SUCCESS 

CRD$K~TYPECODE 

CRD$K"WR1TE 

DATA " 

DBG NAME 

DEATTACH 

DEATTACH QUAL 

DEBUG 

DEBUGSGB FLAGS 

DEBUG^SWTTCH 

DEC 

DEFAULT 

DEFAULT DBG 

DEPOSIT 

DEPOSIT PARAMS 

DESELECT 

DESELECTJ3UALS 

DEVICE 

DIRECTORY 

DIR WIDE 

DO tMD 

DS5A PRGBGN 

DSSCCl 

ds$ga crd ds interface 
ds$ga~ds ctrc c ..first 
ds$ga'ds~ctrlIc second 

DSSGB^iNRlBIT^NSMING 
DSSGBlMM ENB 
DS$GL CLlBASE 
DS$GL CRD DEBUG 
DSSGL"FLA5S 



0000001 D 
00000014 
OOCOOOOO 
00000015 
00000003 
00000004 
00000016 
OOOOOOOE 
000001 3D 
00000180 
00000689 
0000056A 
00000003 
00000009 
0000C023 
******** 

00000000 

00000001 

00000000 

00000000 

00000000 

00000002 

00000002 

00000002 

00000001 

00000000 

00000001 

00000001 

00000001 

0000005D 

0000030D 

OOOOOOOA 

000003E9 

OOOOOOOB 

t ******* 

OOOOOOOC 
00000062 
0000003A 
OOOOOOOD 
OOOOOOOE 
000OOE76 
00000070 
00000435 
0000006C 
OOOOOOOF 
00000080 
00000073 
***** *** 

00000000 

******** 
******** 
******** 
******** 
******** 

00000000 

******** 
******** 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
< 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 
RG D 
X 
X 
X 
X 
X 
RG D 
X 
X 



RG 
RG 
R 
R 



G 
G 
G 

G 
G 
G 
G 
G 
G 

G 
G 

R 



R 



R 



04 
03 
04 
04 



04 



04 
03 
04 



03 
03 



04 
04 
04 
04 
04 
04 
04 
02 
04 
04 



ds$gt prompt 
ds$k Error 
dssiCnormal 
ds$k~pr1ntb 

DS$K"PRINfF 

ds$*tprinti 

dssk~printx 

dssk'severe 

dssoubsys 

ds$k type abort_program 

dssk"type-abort test 

dssOype'commaRd err 

ds$k"type"*c0mmand"out 

ds$k~type~crd autotest 

dssoype'ds prompt 

ds$k~type""ds~start 

DS$K~TYPElERRDEV 

dssiTtype errhard 

ds$k~type~error_body 

dssk~type~error end 

ds$k~type!errprEp 

ds$k"type_errsoft 

dssiTtype.errsup 

dssiTtype errsys 

DS$K"TYPElERR HALT 

DS$K type.excEption 
ds$k~type.,.exception head 
dssk'type first pass 
ds$k"type~gener*l 
ds$k*"type_g£neral error 
ds$k~type no tests 
ds$k~type~param error 
ds$k~type~progr*m„end 
ds$k~type~program info 
ds$k"type"program3start 
d$$k~type"*qio..invadp 
dssk~type~giojjodriver 
ds$k"type qio wrongver 
dssk"*type"scrtpt echo 
dssk'type script pnf 
ds$k"type"script'prompt 
ds$Oype~script:skip 

DSSiTTYPE^SEQUENCE ERROR 
DS$K~TYPE STARTJRR 
D5$K~TYPE~START LIST 

DS$K~TYPE_SUMMARY 

DS$K"TYPE USER^PROMPT 

DSSK'WARNTNG 

DSJL'USERCNTRLC 

DS$M~ABRTFLG 

DSSM^BADTIME 

DS$M BATCH 

DSSM~BRKCLR 

DSSM"BRKPT 

DS$M~CHARFLG 

DS$M~CMDFLG 

DS$M~CTRLC 



******** 



04 



00000002 


D 


00000001 


D 


00000002 


D 


00000001 


D 


00000000 


D 


00000003 


D 


00000004 


D 


00000066 


D 


00000014 


D 


00000013 


D 


00000015 


D 


00000016 


D 


0000001 A 


D 


00000001 


D 


0000OO1D 


D 


00000008 


D 


00000006 


D 


00000009 


D 


OOOOOOOA 


D 


0000001B 


D 


00000007 


D 


00000004 


D 


00000005 


D 


OOOOOOOD 


D 


OOOOOOOC 


D 


OOOOOOOB 


D 


00000011 


D 


00000000 


D 


00000003 


D 


00000012 


D 


0000001 C 


D 


OO0GOO1O 


D 


00000017 


D 


OOOOOOOF 


D 


00000024 


D 


00000022 


D 


00000023 


D 


00000021 


D 


0000001 E 


D 


00000020 


D 


0000001 F 


D 


00000019 


D 


00000018 


D 


00000025 


D 


OOOOOOOE 


D 


00000002 


D 


oooooooo 


D 


******** 


X 


00000040 


D 


00100000 


D 


00400000 





00001000 


D 


00000800 


D 


00000100 


D 


00000080 


D 


00000001 


D 



04 



ZZ-ENSAA-7.0 

CLI 

Symbol table 

dssh^ctrlo 
dssm devflg 
dssmjhsablcc 
dssm.donflg 
dssm errflg 
dssm'except 
dssm exetst 

DSSMlHLTFLG 

DSSMJ.ODFLG 

DSSM MEMMGT 

DSSM^OUTPUT 

DSSM^RUBFLG 

DSSM SCRIPT 

DSSfTSETIMR 

DSSM~STRFLG 

DSSM^SUBT 

DSSM SYSFLG 

DSSM^TIMRON 

DSSV^ABRTFLG 

OSSV^BADTIME 

DSSV~BATCH 

DSSV BRKCLR 

DSSV'BRKPT 

DSSV~CHARFLG 

DSSV~CMDFLG 

DSSV~CTRLC 

DSSV CTRLO 

DSSVJ)EVFLG 

DSSV DISABLCC 

DSSV~DONFLG 

DSSV~ERRFLG 

DSSV^EXCEPT 

DSSV EXETST 

DSSV'HLTFLG 

DSSV LODFLG 

DSSV'MEMMGT 

DSSV'OUTPUT 

DSSVlRUBFLG 

OSSV SCRIPT 

DSSV_SETIMR 

OSSV STRFLG 

DSSV'SUBT 

DSSVSVSFLG 

DS$V~TIMRON 

DSSjfolTH 

DSS.ASBE 

DSS.BADLINK 

DSS^BADTYPE 

DSS B1IC 

DSS CHME 

DSS CHMK 

DSS'DEVNAME 

DSS'ERROR 

DSS"FHWE 

DSS FRAGBUf 

DSS"ICBUSY 

DSSZiCERR 



Symbol table 



DIAGNOSTIC SUPERVISOR COMMAND 



E 14 

27-JUL-1984 I 

LIME INTER 27-JUL-1984 

23-MAY-1984 



00010000 
00000200 
01000000 
00002000 
00000010 
00080000 
00040000 
00000008 
00000002 
00008000 
00800000 
00000020 
00200000 
02000000 
0000C004 
00004000 
00000400 
00020000 
00000006 
00000014 
00000016 

oooooooc 

OOOOOOOB 

00000008 

00000007 

00000000 

00000010 

00000009 

00000018 

OOOOOOOD 

00000004 

00000013 

00000012 

00000003 

00000001 

OOOOOOOF 

00000017 

00000005 

00000015 

00000019 

00000002 

OOOOOOOE 

OOOOOOOA 

00000011 

006600D0 

00660118 

006600F0 

: 006600E8 

: 00660120 

■■ 006600A8 

: 006600E0 

; 00660108 

: 00660002 

: 00660068 

: 00660080 

= 006600C8 

: 006600CO 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



DSS IHWE 

DSS~ILLCHAR 

DSS'ILLPAGCNT 

DSSJLLUNIT 

DSS INSFMEM 

DS$~IPl2HI 

DSS"IVADDR 

DSS IVVECT 

DSS~KRNLSTK 

DSS~L0GIC 

DSS'MCHK 

DSS~MM0FF 

DSS'NEEDUNIT 

DSS'NODE 

DSS~NOPCS 

DSS~NORMAL 

DSS~N0SUPP0RT 

DSS~NOTDON 

DSS~N0TIMP 

DSS^NULLSTR 

DSS OVERFLOW 

DS$"POUER 

DSSlPROGERR 

DSS SEVERE 

DSS~TRANSL 

DSS"*TRUNCATE 

DSS~UNEXPINT 

DSSlVASFULL 

DSS WARNING 

DSAJAL APTMAIL 

DSASAT'APTTXT 

DSASGLlAPTCOM 

DSASGL.DEVLEN 

DSASGLJRRNO 

DSASGL EVENT 

DSASGL'FLAGS 

DSASGLJ1SGTYP 

DSASGL PASSES 

DSASGL~PASSNO 

DSASGLlSECTNO 

DSASGL.SID 

DSASGL SUBTNO 

DSASGLlTESTNO 

DSASGL JJNITS 

DSASGQ MSGPTR 

DSASGTlDEVNAM 

DSASVjPT 

DSASV BELL 

DSASV^BINARY 

DSASV CRD AUTOTEST.OFF 

DSASV^CRD~MENUTEST_OFF 

DSASV~CRD_MENUTEST_ON 

DSASV CRD TRACE 
DSASV'HALT 

DSASVIIE1 
DSASV. IE2 
DSASVJE3 



iche 3 Frame E14 


Seguence 
Macro V03-01 


15:07:02 VAX-11 


14j10:24 DMA1 :[SYSO.SYSMAINTKLI . 


= 00660060 


D 


= 00660018 


D 


= 00660078 


D 


= 00660100 


D 


= 00660050 


D 


= 006600B8 


D 


= 00660040 


D 


= 00660038 


D 


= 00660090 


D 


= 00660070 


D 


= 00660088 


D 


= 00660058 


D 


= 006600F8 


D 


= 00660128 


D 


= 00660110 


D 


= 00660001 


D 


= 00660081 


D 


= 00660030 


D 


= 006600B0 


D 


= 00660010 


D 


= 00660008 


D 


= 00660098 


D 


= 00660020 


D 


= 00660004 


D 


= 006600A0 


D 


= 00660028 


D 


= 006600D8 


D 


= 00660048 


D 


= 00660000 


D 


OOOOFEOO 


D 


OOOOFAOO 


D 


0000FE04 


D 


0000FE58 


D 


0000FE44 


D 


000OFE48 


D 


OOOOFEOO 


D 


0000FE40 


D 


0000FE08 


D 


0000FE54 


D 


0000FE10 


D 


0000FE14 


D 


0000FE4C 


D 


0000FE50 


D 


OOOOFEOC 


D 


0000FE68 
0000FE5C 


D 


D 


= 0000001 F 


D 


s 00000003 
= 00000001 
= OOOOOOOB 


D 
D 


D 


: vsm 


D 
D 


= 00000011 


D 


= 00000000 


D 


= 00000004 

* 00000005 


D 


D 


= 00000006 


D 



585 
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Symbol table 



Symbol table 



F 14 

27-JUL-1984 Fiche 3 Frame F14 Sequence 586 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER f^JUL-^SA 15:07:02 V*jT![ s S«lffl?3CLI .HAR;S^ 



133 
(11) 



DSASVJES 

DSASV LOAD DEBUGGER 

DSA$V~LOOP~ 

DSA$V~0PER 

DSASV PROMPT 

D$A$V~QUICK 

DSAtV SEARCH 

DSASV TRACE 

DSA$V"USER 

DSA$V~VER1FY 

DSRSC0MPLET1ON 

DSRSLOAD CRD 

DSR$UNLO*D_CRD 

DSVSATTACH 

DSVSDEATTACH 

DSVSDEBUG 

DSVSDESELECT 

DSVSDIRECTORY 

DSVSEXIT 

DSVSINITPCS 

DSV$LOAD 

DSVSRUN 

DSVSSELF.CT 

DSVSSETLOAD 

DSVSSETPAGE 

DSV$SHOWDEVICE 

DSVtSHOWDEVICEB 

DSV$SHOWLOAD 

DSV5SH0WMEM0RY 

DSVSSHOWPAGE 

DSVSSHOWSELECT 

DSV$SHOWSELECTB 

DSXSHELP 

DSXSMMOFF 

DSXSMMON 

DSXSPRINT 

DSXSSUPERPARSE 

DS_CLEANUP 

DS ERRSUP 

DS'SUPERLINE 

END CLEAR FLAGS LOOP 

END'SET FEAGS_lOOP 

ENUF 

EOL 

EVENT 

EXAMINE 

EXAMINE PARAMS 

EXIT 

FAILURE 

FALSE 

FILEND 

FILESPEC 

FLAGS 

GET DEV NAME 

GETFIlF SPEC 

gt Aenu Error 



00000007 
0000001 E 
00000002 

oooooooc 

0000000D 
00000008 
0000000E 
OOOOOOOA 
0000001 c 
00000009 

******** 

******** 

******** 

***** *** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

** ****** 

t******* 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 

0000004F 

00000A74 

0OOOOD7B 

00000015 

00000349 

00000034 

: 00000010 

00000D87 

00000011 

: 00000005 

00000000 

: 00000025 

: 00000024 

= 00000035 

0000038D 

0000045D 

00OO0OF3 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



R 



04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 



03 



R D 03 
R D 03 

D 
R D 03 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 
03 



RG D 03 



HALT 

HELP 

HELPINFO 

HEX 

IE1 

IE2 

IE3 

IES 

IFNOTUSER 

IF ADAPTER 

IFlFlLE SPEC 

I F.REG BR ADR 

IF reqDirEd 

IF"RUN 

if"xdelta 
ilEegal 

JLL CMD 

INCOMPLETE 

INC CMD 

INJlBRK 

JNITPCS 

INJT CONTEXT 

KB.CHECK 

KB CHECK^APT 

LAST 

LINE. COUNT 

LOAD 

LONG 

LOOP 

MAPFREE 

MMOFF 

MMON 

NEXT 

NEXT, INST 

NOTNUF 

NULL 

OCT 

OFF 

ON 

OPER 

OPTIONAL 

PAGE 

PASS 

PREGN 

PROMPT 

QA 

QACL 

OADEF 

QAEP 

QAMP 

QASL 

QATL 

QA COMMON 

QUICK 

Q ADAPTER 

Q~G00D„CMD 

rClj 



= 00OO003D 

= 00000012 
******** 

= 00000061 
= 0000003E 
= 0000003F 
= 00000040 
= 00000041 
= 00000069 
= 00000067 
= 00000066 
r 00000068 
= 00000065 
= 00000064 
= 00OO0O6A 

00000361 
= 00000001 

00000379 

^ 00000002 
********* 

= OOOC007F 
******** 

******** 

******** 

= 00000029 
******** 

= 00000013 

= 0OO00O5E 

= 00000042 
******** 

= 0000002C 

- 0000002B 
= 00000050 

- 00000014 
= 00000016 
= 00000000 
= 00000063 
= 00000000 
= 00000001 
= 00000043 
= OC000026 
= 00000051 
= 00000030 
= 0000002E 
= 00000044 
* 00000031 
= 0000004A 
= 0000004E 
= 00000049 
= 0000004D 
= OOQ0004C 
= 00000048 

0000074D 

= 00000045 

** ****** 

00000444 
00000002 



R 



X 

X 

X 
D 

X 
D 
D 
D 

X 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

X 
R D 
R D 



R 



04 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
R D 03 



03 



04 

04 
04 

04 

04 



04 



04 

04 
02 
04 



-_— J 



ZZ-ENSAA-7.C 

CL1 

Symbol table 



Symbol table 



587 



REG12 

REG13 

REG14 

REG15 

REG16 

REGN 

REGP 

REQUIRED 

RUN 

SCRIPT 

SCRIPTSCONT 

SCRIPTSFLUSH 

SCRIPTSOPEN 

SEARCH 

SECTION 

SELECT 

SELECT QUALS 

SET " 

SETENFORCE 

SETLOAD 

SETMEM 

SET CRD DEBUG 

SET~CRD~TRACE 

SET'DEFSuLT PARAMS 

SET-FLAGS LOOP 

SErPARAM$ 

shqRemall 
shomembuf 
shomemdat 
shomemmap 

SHOW 

SHOWLOAD 

SHOWMEM 

SHOWMEMORYFLAGS 

SHOWMM 

SHOWSECTIONS 

SHOWSEL 

SHOWSTATUS 

SHOWSUP 

SHOW CALLS 

SHOW'CRD TRACE 

SHOW"PAR*MS 

SIZ.T. 

SS$ ENDOFFILE 

START 

START AND RUN 

START"RUN"QUALIFIERS 

SUBTEST 

SUCCESS 

SUMMARY 

SYSSEXIT 

TEST 

TRACE 

TRUE 

T CONT 

T~CRD TRACE.OUTPUT 

TEMESSG1 



G 14 
27-JUL-198A Fi'che 3 Frame G14 Sequence 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g^-IW 15:07:02 VAX-ll^acro^O^^^^ 
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134 
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00000055 
00000056 
00000057 
00000058 
00000059 
00000054 
0000005A 
00000027 
00000017 

00000018 

******** 

******** 
******** 
00000046 
0000002F 
00000071 
00000435 
00000019 

00000032 

00000074 

0000007E 

0000001D 

0000001 C 

00000F5F 

00000C9F 

00000A80 

0000007D 

0000007B 

0000007C 

0000007A 

0000001A 

00000075 

00000079 

******** 

0000002D 
00000078 
00000072 
00000077 
00000076 
00000020 
0000001 F 
00000648 

00000001 
******** 

00000021 
00000509 
000005C5 
0000002A 
00000004 
00000022 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



00000028 
00000047 
00000001 
00000092 
00000163 
000000AB 



04 
04 
04 



R D 03 
D 

D 
D 
D 
D 
D 
R D 
D 



03 
03 



R D 03 

D 

D 

D 

D 

D 

D 

D 
X 04 

D 

D 

D 

D 

D 

D 

D 
R D 03 

D 
X 04 

D 
R D 03 



03 



******** qx 04 



03 
03 



T ILLCMD 
T'lLLEFN 
T'INCOMPLETE 
T"0FF 

Ton 

T'PRGERR 

T~SHOWMM 

T"USER MODEJIENUJRROR 

VERIFY** 

VRABORT 

VRCLRBRK 

VRCLREF 

VRCLRFLG 

VRDEPOSIT 

VREXAMINE 

VRSETBASE 

VRSETBRK 

VRSETDFLT 

VRSETEF 

VRSETFLG 

VRSETMEM 

VRSETQA 

VRSETWIDTH 

VRSHOWBASE 

VRSHOWBRK 

VRSHOWDFLT 

VRSHOWEF 

VRSHOWFLG 

VRSHOWQA 

VRSHOWSECTIONS 

VRSHOWSTATUS 

VRSHOWWIDTH 

VRSHOU CALLS 

VRSTART 

VRSUMMARY 

VRSUPPORT 

WJDE FLAG 

WIDTH 

WORD 

XDELBPT 

XDELTA 



OO000O1B R 

00000061 R 

0000003A R 

OOOOOOEF R 

OO000OEC R 

00000004 R 

0OO0OODO R 

00000129 R 

00000048 
** ****** 

******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
* ******* 
******** 

00000052 
0000005F 
********y 

0000006B 



D 
D 
D 
D 
D 
D 
D 
D 
D 



X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



03 
03 
03 
03 
03 
03 
03 
03 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 



GX 04 



RG D 03 



ZZ-ENSAA-7.0 

Cli 

Psect synopsis 



Psect synopsis 



27-JUL-1984 Fiche 3 Frame HH Seguence 588 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g^L-1984 15:07:02 ^TlEs^Clv^lSijCLI .MAR;27 
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PSECT name 

ABS , 
$ABS$ 
WORK 
DATA 
CODE 



Allocation 

00000000 
0000FE70 
OOOOOUD 
OOOOOFCC 
0OOO0A2F 



+ — ..... — - — + 

! Psect synopsis ! 
+..-- .......... .— + 

PSECT No. Attributes 

( 0.) 00 ( 0,) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 1101.) 02 ( 2.) NOPIC USR 

( 404O 03 ( 3.) NOPIC USR 

( 2607.) 04 ( A J NOPIC USR 



CON 


ABS 


CON 


ABS 


CON 


REL 


CON 


REL 


CON 


REL 



LCL NOSHR NOEXE NORD 
LCL NOSHR EXE R0 
LCL NOSHR NOEXE RD 
LCL SHR NOEXE RD 
LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 

NOWRT NOVEC BYTE 



ZZ-ENSAA-7.0 Cross 

CL1 

Cross reference 


reference 

DIAGNOSTIC S 


27- 
UPERVISOR COMMAND LINE 


I 14 
JUL-1S 

INTER 


>84 Fie he 3 Frame 
27-JUL-1984 15:07:02 VAX- 
23-MAY-1984 14:10:24 DMA1 


114 Seguence 589 
11 Macro V03-01 Page 
:CSYS0.SYSMAINT3CLI. MAR; 279 
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(11) 


! Symbol Cross Reference ! 


SYMBOL 


VALUE 


DEFINITION 


REFERENCES.. 


• 














iit 


=00000080 


2738 


(6) 


#-2603 


(6) 










0% d f\ f\ 


d A V 




V ** * 

S$N 


=00000001 


4129 


(10) 


#-2480 
2609 


(6) 
(6) 


2606 
2610 


(6) 
(6) 


2607 
2611 


(6) 
(6) 


2608 
2612 


(6) 
(6) 












2613 


(6) 


26K 


(6) 


2615 


(6) 


2616 


(6) 












2617 


(6) 


2618 


(6) 


2619 


(6) 


2620 


(6) 












2621 


(6) 


2622 


(6) 


2623 


(6) 


2624 


(6) 












2625 


(6) 


2626 


(6) 


2627 


(6) 


2628 


(6) 












2629 


(6) 


2630 


(6) 


2631 


(6) 


2632 


(6) 












2633 


(6) 


2634 


(6) 


2635 


(6) 


2636 


(6) 












2637 


(6) 


2' 38 


(6) 


2639 


(6) 


2640 


(6) 












2641 


(6) 


2- 42 


(6) 


2643 


(6) 


2644 


(6) 












2645 


(6) 


2646 


(6) 


2647 


(6) 


2648 


(6) 












2649 


(6) 


2650 


(6) 


2651 


(6) 


2652 


(6) 












2653 


(6) 


2654 


(6) 


2655 


(6) 


2656 


(6) 












2657 


(6) 


2658 


(6) 


2659 


(6) 


2660 


(6) 












2661 


(6) 


2662 


(6) 


2663 


(6) 


2664 


(6) 












2665 


(6) 


2666 


(6) 


2667 


(6) 


2668 


(6) 












2669 


(6) 


2670 


(6) 


2671 


(6) 


2672 


(6) 












2673 


(6) 


2674 


(6) 


2675 


(6) 


2676 


(6) 












2677 


(6) 


2678 


(6) 


2679 


(6) 


2680 


(6) 












2681 


(6) 


2682 


(6) 


2683 


(6) 


2684 


(6) 












2685 


(6) 


2686 


(6) 


2687 


(6) 


2688 


(6) 












2689 


(6) 


2690 


(6) 


2691 


(6) 


2692 


(6) 












2693 


(6) 


2694 


(6) 


2695 


(6) 


2696 


(6) 












2697 


(6) 


2698 


(6) 


2699 


(6) 


2700 


(6) 












2701 


(6) 


2702 


(6) 


2703 


(6) 


2704 


(6) 












2705 


(6) 


2706 


(6) 


2707 


(6) 


2708 


(6) 












2709 


(6) 


2710 


(6) 


2711 


(6) 


2712 


(6) 












2713 


(6) 


2714 


(6) 


2715 


(6) 


2716 


(6) 












2717 


(6) 


2718 


(61 


2719 


(6) 


2720 


(6) 












2721 


(6) 


2722 


(6) 


2723 


(6) 


2724 


(6) 












2725 


(6) 


2726 


(6) 


2727 


(6) 


2728 


(6) 












2729 


(6) 


2730 


(6) 


2731 


(6) 


2732 


(6) 












2733 


(6) 


2754 


(6) 


2738 


(6) 


2850 


(?) 












#-3109 


(7) 


0-3138 


(7) 


3470 


(7) 


#-4129 


(10) 




$ER 


=00000002 


2740 


(6) 


#-2740 


(6) 
















SMODUIE 


00000000-R 


395 


(1) 


2740 


(6) 
















ABORT 


=00000006 


2612 


(6) 


453 


(1) 
















ACT ABORT 


0O0002A7-R 


2824 


(7) 


2612 


(6) 
















ACT'ADAPTER 


000008D9-R 


4035 


(10) 


2717 


(6) 
















ACTADDRESS 


000005C9-R 


3364 


(7) 


2661 


(6) 


#-3796 


(10) 












ACT~ADVANCE 


000007FO-R 


3812 


(10) 


2698 


(6) 
















ACT'ALL 


OO00O5FD-R 


3395 


(7) 


2665 


(6) 
















ACT~ASC1I 


000007B2-R 


3749 


(10) 


2689 


(6) 
















ACT~ATTACH 


OO000296-R 


2815 


(7) 


2613 


(6) 
















act'backup 


000007E8-R 


3803 


(10) 


2697 


(6) 


0-3774 


(10) 












ACT~BASE 


000005B3-R 


3351 


(7) 


2660 


(6) 
















ACT'BEGINADAPTER 


000008CB-R 


4027 


(10) 


2716 


(6) 
















ACT'BELL 


OO00O6A1-R 


3491 


(7) 


2665 


(6) 
















ACT.BINARY 


000006A7-R 


3502 


(10) 


2666 


(6) 











































ZZ-ENSAA-7.0 

Cli 

Cross reference 



Cross reference 



ACT. BREAK 

ACT BRIEF 

ACT'BYTE 

ACT'CLEAR 

ACT"CLEARENFORCE 

ACT'CLEAR^CRD^DEBUG 

ACT~CLEAR_CRD_TRACE 

ACT~C0NT 

ACT CONTEXT 

ACrcONTINUE 

ACT^CRD 

ACT DATA 

ACT~DEATTACH 

ACT'DEBUG 

ACT"DEBUG.SW1TCH 

ACT'DEC 

ACT'DEFAULT 

ACT"DEFAUUJ)BG 

ACT~DEPOSIT 

ACT~DE SELECT 

ACTDEVICE 

ACT DIRECTORY 

ACT'DIR WIDE 

ACT~DO tMD 

ACTlEFfJ 

ACT ENUF 

ACTEVENT 

ACT EXAMINE 

ACTEXIT 

ACT FAILURE 

ACTFILEND 

ACT FILESPEC 

ACT~FLAGS 

ACT~HALT 

act'help 

ACT"HEX 

ACTJE1 
ACT IE2 
ACT"IE3 
ACT'IES 

ACT IFNOTUSER 

ACT'IF ADAPTER 

ACT'lOlLE SPEC 

ACT'IF REG BR ADR 

ACT"*lF"REQOlRfD 

ACTlF^RUN 

ACT"IF^XD£LTA 

ACT'ILC^CMD 

ACT~INC CMD 

ACflNlTPCS 

ACT~LAST 

ACT~LOAD 

ACT~LONG 

ACT LOOP 

ACT'MMOFF 

ACT"MMON 

ACOlEXT 



#-2759 (?) #-2766 (7) 



J 14 
27-JUL-1984 Fiche 3 Frame J14 Seguence 590 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-1984 15:07:02 ^ll^acro^O^^^^^Pa^e 

000005D6-R 3373 (7) 2662 (6) 

00000896-R 4007 (10) 2715 (6) 

00000804-R 3846 (10) 2702 (6) 

00000280-R 2832 (7) 2614 (6) 

00000567-R 3304 (7) 2657 (6) 

00000699-R 3481 (?) 2636 (6) ^ tni 

00000654-R 3454 (7) 2633 (6) #-3484 (?) 

000002E9-R 2853 (?) 2984 (?) 

00000265-R 2773 (?) 2609 (6) #-2758 (?) 

000002BD-R 2842 (7) 2615 (6) 

00000449-R 3062 (?) 2641 (6) 

000007F5-R 3821 (10) 2699 (6) 

000002EA-R 2860 (?) 2616 (6) 

000002F3-R 2869 (?) 2617 (6) 

00000534-R 3185 (?) 2618 (6) 

0000080E-R 3862 (10) 2704 (6) 

0000061E-R 3412 (?) 2664 (6) 

000002FC-R 2873 (?) 2619 (6) 

00000316-R 2883 (?) 2620 (6) 

00000323-R 2893 (?) 2718 (6) 

00000880-R 3995 (10) 2714 (6) 

0000032C-R 2901 (?) 2621 (6) 

0000033B-R 2907 (?) 2734 (6) 

00000906-R 4060 (10) 2721 (6) 

0000078D-R 3722 (10) 2685 (6) 

00000291-R 2806 (?) 2627 (6) 

00000575-R 3315 (?) 2658 (6) 

00000343-R 2914 (?) 2622 (6) 

00000350-R 2924 (?) 2623 (6) 

00000283-R 2791 (?) 2611 (6) 

00000523-R 3159 (?) 2643 (6) 

0000051B-R 3151 (?) 2642 (6) 

0000059E-R 3335 (?) 2659 (6) 

000006AD-R 3510 (10) 2667 (6) 

00000359-R 2934 (?) 2624 (6) 

00000809-R 3854 (10) 2703 (6) 

000006B3-R 3518 (10) 2668 (6) 

000006B9-R 3526 (10) 2669 (6) 

000006BF-R 3534 (10) 2670 (6) 

000006C5-R 3542 (10) 2671 (6) 

00000854-R 3961 (10) 2711 (6) 

00000839-R 3930 (10) 2709 (6) 

0000082F-R 3916 (10) 2708 (6) 

00000846-R 3944 (10) 2710 (6) 

00000826-R 3902 (10) 2707 (6) 

00000818-R 3886 (10) 2706 (6) 

00000861-R 3975 (10) 2712 (6) 

00000258-R 2755 (6) 2607 (6) 

00000261-R 2764 (?) 2608 (6) 

00000397-R 2953 (?) 2733 (6) 

0000055E-R 3231 (?) 2647 (6) 

000003BF-R 2970 (?) 2625 (6) 

000007FA-R 3830 (10) 2700 (6) 

000006CB-R 3552 (10) 2672 (6) 

00000950-R 4104 (10) 2650 (6) 

00000921-R 4085 (10) 2649 (6) 

000007AD-R 3742 (10) 2686 (6) 



137 
(11) 



ZZ-ENSAA-7.0 

CLI 

Cross reference 



Cross reference 



ACT NEXT INST 

ACT NOTNOF 

ACOULl 

ACTJJCT 

ACT.QPER 

ACT OPTIONAL 

ACT~PAGE 

ACT'PASS 

ACT'PREGN 

ACT'PROMPT 

ACT'QA 

ACT"QACL 

ACT'QADEF 

ACT"*QAEP 

ACTJ}AMP 

ACT QASL 

ACTdATL 

ACTJ3UICK 

ACT REG12 

ACT~REG13 

ACTlREGH 

ACT REGIS 

ACT"REG16 

ACTREGM 

ACT REGN 

ACT'REGNUF 

ACT~REGP 

ACT~REQUIRED 

ACT'RUN 

ACT'SCRIPT 

ACT~SEARCH 

ACT'SECTION 

ACT'SELECT 

ACT'SET 

ACT'SETENFORCfc 

act'seuoad 
act'setmem 
act'set cro.debug 
act'set'crd trace 
act'shoRemaCl 
act'shomembuf 
actshomemdat 
act'shomemmap 

ACT~SHOW 

ACT"SHOWLOAD 

ACT*"SHOWMEM 

ACT'SHOWMM 

ACT'SHOWSECTIONS 

ACT"'JHOUSEL 

ACT'SHOWSTATUS 

ACTSHOWSUP 

ACT"SHOW_CAUS 

ACT'SHOW CRDJRACE 

ACTSTART 

ACT SUBTEST 

ACT'SUCCESS 

ACT SUMMARY 



K 14 
27-JUI-1984 Fiche 3 Frame K14 Sequence 591 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g-JUL-1984 15:07:02 ^I^Macro^OT^^^.Pa 

00O03D2-* 2981 (7) 2626 (6) 

0000028C-R 2798 (7) 2628 (6) 

0000025A-R 2749 (6) 2606 (6) 

00000813-R 3870 (10) 2705 (6) 

000006D1-R 3560 (10) 2673 (6) 

0000052A-R 3167 (?) 2644 (6) 

000006F5-R 3612 (10) 2687 (6) 

00000540-R 3193 (7) 2654 (6) 

000007E4-R 3794 (10) 2652 (6) 

000006D7-R 3568 (10) 2674 (6) 

00000545-R 3200 (7) 2655 (6) 

00000737-R 3654 (10) 2680 (6) 

0000076B-R 3693 (10) 2684 (6) 

00000731-R 3649 (10) 2679 (6) 

0G000749-R 3669 (10) 2683 (6) 

00000743-R 3664 (10) 2682 (6) 

0000073D-R 3659 (10) 2681 (6) 

000006DD-R 3576 (10) 2675 (6) 

000007BC-R 3764 (10) 2691 (6) 

000007C2-R 3767 (10) 2692 (6) 

000007C8-R 3770 (10) 2693 (6) 

000007D1-R 3777 (10) 2694 (6) 

000007D7-R 3781 (10) 2695 (6) 

000007CC-R 3772 (10) 0-3766 (10) 

000007B7-R 3759 (10) 2690 (6) 

000007DF-R 3786 (10) 0-3785 (10) 

000007D8-R 3783 (10) 2696 (6) 

0000052F-R 3175 (7) 2645 (6) 

000003E4-R 2990 (7) 2629 (6) 

00000437-R 3043 (7) 2630 (6) 

000006E3-R 3586 (10) 2676 (6) 

0OOOO54A-R 3208 (7) 2653 (6) 

00000400-R 3005 (7) 2719 (6) 

00000409-R 3012 (7) 2631 (6) 

00000563-R 3301 (7) 2656 (6) 

0000090F-R 4069 (10) 2722 (6) 

00000A05-R 4193 (11) 2732 (6) 

00000690-R 3476 (7) 2635 (6) 

0000064A-R 3448 (7) 2634 (6) 

000009F9-R 4183 (11) 2731 (6) 

000009EF-R 4177 (11) 2729 (6) 

000009F4-R 4180 (11) 2730 (6) 

000009E8-R 4174 (11) 2728 (6) 

00000416-R 3022 (7) 2632 (6) 

00000918-R 4076 (10) 2723 (6) 

000009E2-R 4170 (11) 2727 (6) 

0000097E-R 4122 (10) 2651 (6) 

000009D9-R 4163 (11) 2726 (6) 

000008FO-R 4048 (10) 2720 (6) 

000009C7-R 4148 (10) 2725 (6) 

0O0Q09DO-R 4156 (11) 2W (6) 

0000063D-R 3436 (7) 2638 (6) 

0000065E-R 3460 (7) 2637 (6) 

0000041B-R 3030 (7) 2639 (6) 

00000554-R 3217 (7) 2648 (6) 

0000027A-R 2784 (?) 2610 (6) 

00000440-R 3051 (7) 2640 (6) 
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(11) 



0-3769 (10) 
0-3779 (10) 



0-3479 (7) 



ZZ-ENSAA-7.0 

CLI 

Cross reference 

ACT^TEST 

ACT TRACE 

ACT~VERIFY 

ACT~WIDTH 

ACT WORD 

ACT XDELTA 

ADAPTER 

ADDRESS 

ADVANCE 
ALL 

APT COM 

APT~MSG 

ASCTl 

ATTACH 

BACKUP 



BAD LIST 



BADJHJAHHER 



BASE 

BEGIN 

BEGINADAPTER 

BELL 

BINARY 

BIT.,. 

BREAK 

BRIt'F 

BYTE 

B SUCCESS 

CCEAR 

CLEARENFORCE 

CLEAR CRD DEBUG 

CLEAR"CRD"TRACE 

CLEAR'FLAGS LOOP 

CLt'AR"P ARAMS 

CLI " 

CLISK ALNUM 



Cross reference 



592 



LH . 

27-JUL-1984 Fiche 3 Frame LH Sequence 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUL-198A 13:07:02 JSJiJ^^iySgSljCLI.HAR 



Pag< 
;279 



139 
(11) 



CLI$K 
CL1$K. 



ALPHA 
$1* 



00000559-R 322A (7) 

000006E9-R 3594 (10) 

000006EF-R 3602 (10) 

00000713-R 3629 (10) 

000007FF-R 3838 (10) 

00000876-R 3983 (10) 

=0000006F 2717 (6) 

^00000037 2661 (6) 

=0000005C 2698 (6) 

=00000039 2663 (6) 

00000000-XR 

00000000-XR 

=00000053 2689 (6) 

=00000007 2613 (6) 

=00000058 2697 (6) 



0000037D-R 771 (4) 



0Q00039D-R 801 (4) 



^00000036 

00000000-XR 

W00006E 

:0000003B 

:0000003C 

:00000003 

=00000038 
:0000006D 
:00000060 
0000044C-R 
:00000008 
=00000033 
^0000001 E 
=00000018 
000009AE-R 
000008D6-R 
00000072-R 
=00000087 



=00000086 
=00000083 



2660 (6) 



2716 
2665 
2666 
371 

2662 

2715 

2702 

386 

2614 

2657 

2636 

2633 

1636 

1534 

2485 

362 



362 
362 



(6) 
(6) 
(6) 
(1) 

(6) 
(6) 
(6) 
(1) 
(6) 
(6) 
(6) 
(6) 
(5) 
(5) 
(6) 
(1) 



(1) 
(1) 



2646 

2677 

2678 

2688 

2701 

2713 

1289 

1554 

2161 

699 

1549 

1942 

2474 

2470 

2031 

460 

1419 

1755 

2106 

520 

552 

1607 

1685 

1970 

2389 

1153 

1436 

1581 

2082 

894 

1232 

0-2947 
1287 
1643 
1646 
362 
371 
1239 
1294 
2038 
2785 
478 
1595 
1582 
1571 
1620 
479 

#-2468 
1059 
1081 
1289 
872 
938 
1046 
1027 
672 
878 



(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(4) 

(5) 

(6) 

(4) 

(5) 

(5) 

(6) 

(6) 

(5) 

(1) 

(4) 

(5) 

(6) 

(1) 

(1) 

(5) 

(5) 

(5) 

(6) 

(4) 

(5) 

(5) 

(5) 

(4) 

(4) 

(7) 

(4) 

(5) 

(5) 

(1) 

(1) 

(4) 

(4) 

(5) 

(?) 

(1) 

(5) 

(5) 

(5) 

(5) 

(1) 

(6) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(1) 

(4) 



1492 

1743 

2301 

745 

1603 



1431 

1835 

2117 

522 

579 

1646 

1812 

1974 

116/ 
1497 
1777 
2235 



1490 
1947 
1950 
364 

1545 
1436 
2191 
2792 



1061 

1083 

1492 

898 

940 

916 

1101 

851 

982 



(5) 
(5) 
(6) 
(4) 
(5) 



2475 (6) 



(5) 
(5) 
(6) 
(1) 
(1) 
(5) 
<5) 
(5) 

(4) 
(5) 
(5) 
(6) 



17^1 (5) 



(5) 
(5) 
(5) 
(1) 

(5) 
(5) 
(6) 
(7) 



1626 (5) 



(4) 
(4) 
(5) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 



866 

1752 

2316 

792 

1638 



1552 

1837 

2259 

524 

581 

1653 

1950 

1975 

1294 
1579 
1778 
514 



86<. 



366 

1750 
1497 
2354 



1068 

1090 

840 

929 

953 

2091 

869 

983 



(4) 
(5) 
(6) 
(4) 
(5) 



(5) 
(5) 
(6) 
(1) 
(1) 
(5) 
(5) 
(5) 

(4) 
(5) 
(5) 
(1) 



(4) 



(1) 

(5) 
(5) 
(6) 



1700 (5) 



(4) 
(4) 
(4) 
(4) 
(4) 

(5) 
(4 N 
(4) 



898 
2146 

821 
1808 



1557 
1888 
2270 
550 

1663 
1960 
1993 

1337 
1580 
1779 
862 



896 

370 



1070 

1092 

866 

931 

962 

2245 
876 



(4) 
(6) 

(4) 
(5) 



(5) 
(5) 
(6) 
(1) 

(5) 
(5) 
(5) 

(4) 
(5) 
(5) 
(4) 



(4) 

(1) 



(4) 
(4) 
(4) 
(4) 
(4) 

(6) 
(4) 



7Z-ENSAA-7.0 

CLI 

{ ross reference 

CLISK BIFS 
CL1SKZBR 



Cross reference 



M 14 
27-JUL-1984 Fiche 3 Frame M14 Sequence 593 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g^L-IPJJ 15:07:02 gftX, ] IsWSTSvSSSIdCH .fUll^S^ 



HO 
(11) 



:00000094 
^00000082 



362 
362 



(1) 
(1) 



1025 

1063 

1077 

1096 

1137 

1192 

1253 

1295 

1322 

1338 

1370 

1398 

1437 

1461 

1509 

1555 

1596 

1626 

1650 

1664 

1677 

1700 

1755 

1801 

1833 

1859 

1886 

1902 

1926 

1954 

1968 

1982 

1994 

2039 

2069 

2106 

2132 

2162 

2206 

2236 

2270 

2302 

2355 

2383 

454 

520 

539 

550 

579 

614 

646 

674 

731 

792 

838 

852 



(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

H) 

(4) 



1029 

1065 

1085 

1103 

1148 

1233 

1267 

1298 

1332 

1345 

1377 

1419 

1439 

1490 

1512 

1557 

1605 

1639 

1655 

1667 

1680 

1702 

1770 

1810 

1835 

1862 

1888 

1907 

1943 

1957 

1971 

1985 

2003 

2046 

2076 

2115 

2139 

2168 

2213 

2257 

2279 

2310 

2362 

2390 

479 

522 

540 

552 

581 

623 

652 

683 

745 

812 

842 

864 



(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

<6> 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 



1044 

1072 

1087 

1120 

1156 

1240 

1287 

1308 

1334 

1354 

1384 

1422 

1448 

1495 

1550 

1572 

1610 

1644 

1658 

1671 

1683 

1744 

1781 

1814 

1837 

1871 

1894 

1912 

1948 

1962 

1976 

1988 

2005 

2053 

2083 

2117 

2147 

2192 

2222 

2259 

2286 

2324 

2369 

2398 

486 

524 

541 

559 

588 

630 

659 

699 

783 

814 

847 

871 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(5) 
(5) 

(5; 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

<5> 

(5) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 

(4) 



1057 

1074 

1094 

1130 

1172 

1249 

1292 

1315 

1336 

1363 

1391 

1431 

1455 

1500 

1552 

1583 

1620 

1647 

1661 

1674 

1686 

1753 

1788 

1823 

1848 

1872 

1897 

1917 

1951 

1965 

1979 

1991 

2032 

2060 

2104 

2125 

2155 

2199 

2229 

2268 

2293 

2330 

2376 

2404 

516 

531 

548 

577 

606 

640 

666 

702 

785 

821 

849 

874 



(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(A) 

(4) 

(4) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

<5> 

(5) 

(5) 

(5) 

(5) 

<5> 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

H) 

(4) 

(4) 

(4) 
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CL1SK BUFSIZ 
CLlSKlCALL 
CLISK COMMA 



CLiSK.DEC 



=000001 00 
=00000092 
=0000008E 



=0000008A 



365 
36? 
362 



362 



(1) 
(1) 
(1) 



(1) 



CLISK EOL 



CLISK.ERROR 

CLISK ..EXIT 
CLISK FILE 
CLISK>EX 
CLISK KEYWORD 



=00000091 



=00000080 

=00000081 
=00000095 
=00000089 
=0000008C 



362 



362 

362 
362 
362 
362 



(1) 



(1) 

(1) 
(1) 
(1) 
(1) 



$7? 
914 
942 
957 
#-2497 

1054 

2002 

924 

1099 

1171 

1870 

1911 

2146 

969 

1248 

1582 

1800 

735 

705 

788 

461 

951 

1024 

1042 

1049 

1055 

io62 

106* 

-0/2 

1077 

1084 

1089 

109A 

1099 

1120 

1130 

1145 

1153 

1167 

1171 

1226 

1240 

1249 

1259 

1281 

1287 

1294 

1305 

1314 

1328 

1332 

1336 

1345 

1356 

1369 



(4) 
(4) 
(4) 
(4) 
(6) 

(4) 
(5) 
(4) 
(4) 
(4) 
(5) 
(5) 
(6) 
(4) 
(4) 
(5) 
(5) 
(4) 
(4) 
(4) 
(1) 
(4) 

<4> 

(4) 
(4) 
(A) 
(4) 
(4) 
(4) 
U) 

■■-.) 

,4? 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(A) 
(4) 
(4) 
(4) 
(4) 
U) 
(4) 



879 
927 
944 
964 
365 

1608 
2397 

1129 
1607 
1893 
1916 
2221 

1252 

1595 

493 

787 

736 

794 

597 

960 

1025 

1044 

1051 

1057 

1063 

1.O68 

1073 

1079 

1085 

1090 

1095 

1101 

1127 

1136 

1146 

1154 

1168 

1172 

1232 

1246 

1251 

1260 

1283 

1289 

1295 

1306 

1315 

1329 

1333 

1337 

1352 

1357 

1370 



(4) 
(4) 
(4) 
(4) 
(1) 

(5) 
(6) 

(O 
(5) 
(5) 
(5) 
(6) 

(4) 
(5) 
(1) 
(4) 
(4) 
(4) 
(1) 
(4) 

(4) 
(4) 
(4) 
(4) 
(A) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4> 
(4) 
(4) 
(4) 
(4) 
(4) 
(A) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 



896 
933 
947 
966 



1699 
782 

1155 
1812 
1901 
1925 
2301 

1353 

1769 

596 

816 

752 

817 

599 



1027 

1046 

1052 

1059 

1064 

1070 

1074 

1081 

1086 

1092 

1096 

1103 

1128 

1137 

1147 

1155 

1169 

1192 

1233 

1247 

1252 

1266 

1285 

1290 

1297 

1307 

1321 

1330 

1334 

1338 

1353 

1362 

1376 



(4) 
(4) 
(4) 
(4) 



(5) 
(4) 

(4) 
(5) 
(5) 
(5) 
(6) 

(4) 
(5) 
(1) 
(4) 
(4) 
(4) 
(1) 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
14) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 



902 
935 
955 
985 



1813 
845 

1169 
1847 
1706 
2068 
622 

1571 

1780 
692 

764 
823 
693 



1029 

1047 

I054 

1061 

1065 

107. 

1076 

1083 

1087 

1093 

1098 

1119 

1129 

1143 

1148 

1156 

1170 

1224 

1239 

1248 

1253 

1267 

1286 

1292 

1298 

1308 

1322 

1331 

1335 

1344 

1354 

1363 

1377 



(4) 
(4) 
(4) 
(4) 



(5) 
(4) 

(4) 
(5) 
C5) 
(5) 
(1) 

(5) 
(5) 
(1) 

(4) 
(4) 
(1) 



(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(A) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 
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? 7. c ^aa-? r f0 , s reference 2?-JUl-1984 Ffche 3 Pra*e 815 Sequence 595 

■ :t rkw.„;L. DIAGN0ST1C SUPERV1S0R comAm im iNTER &«8 IJ;?5l8 SBT!!s»:!^SlSLti.«»;5« t !«> 



1383 


(4) 


1384 


(4) 


1390 


(4) 


1391 


(4) 


1397 


(4) 


1393 


(4) 


1401 


(4) 


1412 


(4> 


H13 


(4) 


1419 


(4) 


1421 


(4) 


1422 


(4) 


K31 


<5) 


H33 


(5) 


1434 


(5) 


1436 


(5) 


1437 


(5) 


1439 


(5) 


1447 


C5) 


1448 


(5) 


H54 


(5) 


1455 


(5) 


1460 


(5) 


1461 


(5) 


1482 


(5) 


1488 


(5) 


1489 


(5) 


1490 


<5> 


H92 


(5) 


1493 


(5) 


1495 


(5) 


1497 


(5) 


1499 


(5) 


1500 


(5) 


1506 


(5) 


1508 


(5) 


1509 


(5) 


1511 


(5) 


1512 


(5> 


1535 


(5) 


1545 


(5) 


1545 


(5) 


1546 


(5) 


1548 


(5) 


1549 


(5) 


1550 


(5) 


1552 


(5) 


1554 


(5) 


1555 


(5) 


1557 


(5) 


1567 


(5) 


1568 


(5) 


1569 


(5) 


1571 


(5) 


1572 


(5) 


1579 


(5) 


1580 


(5> 


1581 


(5) 


1582 


(5) 


1583 


(5) 


1593 


(5) 


1594 


(5) 


1595 


(5) 


1596 


(5) 


1597 


(5) 


1598 


<5) 


1600 


<5) 


1601 


(5) 


1603 


(5) 


1&C5 


<5> 


1607 


(5) 


1608 


(5) 


1610 


(5) 


1618 


(5) 


1619 


(5) 


1620 


(5) 


1626 


(S) 


1638 


(5) 


1639 


(5) 


1641 


(5) 


164 3 


(5) 


1644 


(5) 


1646 


(5) 


1647 


(5) 


1649 


(5) 


1650 


(5) 


1652 


(5) 


1653 


<5> 


1654 


(5) 


1655 


(5) 


1657 


(5) 


1658 


(5) 


1660 


(5) 


1661 


(5) 


1663 


(5) 


1664 


<5> 


1666 


(5) 


••667 


(5) 


1670 


(5) 


1671 


<5> 


1673 


(5) 


1674 


(5) 


1676 


(5) 


1677 


(5) 


1679 


(5) 


1680 


(5) 


1682 


(5) 


1683 


(5) 


1685 


(5) 


1686 


(5) 


1699 


(5) 


1700 


(5) 


1702 


(5) 


1733 


(5) 


1735 


(5) 


1741 


(5) 


1742 


(5) 


1743 


(5) 


1744 


(5) 


1750 


(5) 


1 7 51 


(5) 


1752 


(5) 


1753 


(5) 


1755 


(5) 


1765 


(5) 


1766 


(5) 


1767 


(5) 


1769 


(5) 


1770 


<5) 


1777 


(5) 


1778 


(5) 


1779 


(5) 


1780 


(5) 


1781 


(5) 


1767 


(5) 


*788 


(5) 


1798 


(5) 


1799 


(S) 


1800 


(5) 


1801 


<5) 


1803 


(5) 


1804 


(5) 


1805 


(5) 


1806 


(5) 


1808 


(5) 


1810 


(51 


1812 


(5) 


1813 


(5) 


18H 


(5) 


1820 


(5) 


1821 


(5) 


1823 


(5) 


1829 


(5) 


1830 


(5) 


1831 


(5) 


1832 


(5) 


1833 


(5) 


1835 


(5) 


1837 


(5) 


184 5 


(5) 


1845 


l5> 


1846 


(5) 


1847 


<5) 


1848 


(5) 


1855 


(5) 


1856 


(5) 


1857 


(5) 


1858 


(5) 


1859 


(5) 


1861 


(5) 


1862 


(5) 


1868 


(5) 


1869 


(5) 


1870 


(5) 


1871 


(5) 


1872 


(5) 


1884 


(5) 


1885 


(5) 


1886 


(5) 


1888 


(5) 


1891 


(5) 


1892 


(5) 


1893 


<5) 


1894 


(5) 


1896 


(5) 


1897 


(5) 


'899 


(5) 


1900 


(5) 


1901 


(5) 


1*02 


(5) 


1904 


(5) 


1905 


(5) 


1906 


i5) 


1907 


(5) 


1909 


(5) 


1910 


(5) 


1911 


(5) 


1912 
191> 


(5) 


1914 


<5> 


1915 


(5) 


1916 


(5) 


(5) 


1923 


(5) 


1924 


(5) 


1925 


(5) 


1926 


(5) 


194? 


(5) 


1943 


<5> 


1945 


(5) 


1947 


(5) 


1948 


(5) 


1950 


(5) 


1951 


(5) 


1953 


(5) 


1954 


(5) 


1956 


(5) 


1957 


(5) 


1959 


(S) 


1960 


(5) 


1961 


(5) 


1962 


<5) 


1964 


(5) 


1965 


<5> 


1967 


(5) 


1968 


(5) 


1970 


(5* 


1971 


(5) 


1973 


(5) 
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ai 
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U3 
<11> 



1974 


(5) 


1975 


1979 


(5) 


1981 


1985 


(5) 


1987 


1991 


(5) 


1993 


2003 


(5) 


2005 


2032 


(5) 


2038 


20^6 


(5) 


2052 


2060 


(5) 


2066 


2069 


(5) 


2075 


2C83 


(5) 


2091 


2103 


(6) 


2104 


2114 


(6) 


2115 


2124 


(6) 


2125 


2138 


(6> 


2139 


214? 


(6) 


2153 


2161 


<6> 


2io? 


2191 


<6> 


2192 


2205 


(6) 


2206 


2219 


<6) 


2220 


2228 


(6> 


2229 


2245 


(6) 


2248 


2257 


(6) 


2259 


2268 


(6) 


2270 


2279 


(6) 


2285 


2293 
2308 


6) 


2300 


(6) 


2309 


2322 


(6) 


2323 


2348 


(6) 


2354 


2362 


(6) 


2368 


2376 


(6) 


2382 
2397 


2390 


(6) 


445 


(1) 


447 


460 


(1) 


461 


479 


(1) 


485 


493 


(1) 


506 
515 


514 


(1) 


519 


(1) 


520 


523 


(1) 


524 


537 


(1) 


<38 


541 


(1) 


547 


552 


(1) 


558 


570 


it) 


571 


581 


(1) 


587 


596 


(1) 


597 


605 


(1) 


606 


614 


(1) 


620 


623 


(1) 


629 


638 


(1) 


639 


646 


(1) 


651 


659 


(1) 


665 


673 


(1) 


674 


683 


(1) 


692 


699 


(4) 


702 


735 


(4) 


736 


^52 


(4) 


764 


785 


f4) 


787 


792 


(4) 


794 



(5) 


1976 


(5) 


1978 


(5) 


(5) 


1982 


(5) 


1984 


(5) 


(5) 


1988 


(5) 


1990 


(5) 


(5) 


1994 


(5) 


2002 


(5) 


(5) 


2025 


(5) 


2C31 


(5) 


(5) 


2039 


(5) 


2045 


(5) 


(5) 


2053 


(5) 


2059 


(5) 


(5) 


2067 


(5) 


2068 


(5) 


<5) 


2076 


(5) 


2082 


(5) 


(5) 


2094 


(5) 


2102 


(6) 


(6) 


2106 


(6) 


2113 


(6> 


(6) 


2117 


(6) 


2123 


(6) 


(6) 


2131 


(6) 


2132 


(6) 


(6) 


2145 


(6) 


2H6 


(6> 


(6) 


2154 


(6) 


2155 


(6) 


(6) 


2168 


(6) 


2185 


(6) 


(6) 


2198 


(6) 


2199 


<6> 


(6) 


22)2 


(6) 


2213 


(6) 


(6) 


2221 


(6) 


2222 


(6) 


(6) 


2235 


(6) 


2236 


<6) 


(6) 


2255 


(6) 


2256 


(6) 


(6) 


2266 


(6) 


2267 


(6) 


(6) 


2277 


(6) 


2278 


(6> 


(6) 


2286 


(6) 


2292 


(6) 


(6) 


2301 


(6> 


2302 


(6) 


<M 


2310 


(6) 


2316 


(6) 


(6) 


2324 


(6) 


2330 


(6) 


(6) 


2355 


(6) 


*&J 


(6) 


(6) 


2369 


(6) 


2375 


(6) 


(6) 


2383 


(6) 


2389 


(6) 


(6) 


2398 


(6) 


2404 


(6) 


(1) 


453 


(1) 


454 


(1) 


(1) 


472 


(1) 


478 


<1> 


(1) 


486 


(1) 


492 


(1) 


<1> 


512 


(1) 


SI 3 


(1) 


(1) 


516 


(1) 


518 


(1) 


<1> 


521 


(1) 


522 


(1) 


(1) 


530 


(1) 


531 


(1) 


(1) 


539 


(1) 


540 


(1) 


(i) 


548 


(1) 


550 


(1) 


(1) 


559 


(1) 


569 


(1) 


<1) 


577 


(1) 


579 


(1) 


(1) 


588 


(1) 


595 


(1) 


(1) 


598 


(1) 


599 


(1) 


(1) 


612 


(1) 


613 


U> 


(1) 


621 


(1) 


622 


(1) 


(1) 


630 


(1) 


637 


(1) 


(1) 


640 


(U 


645 


(1) 


(1) 


652 


(1) 


658 


(1) 


(1) 


666 


(1) 


672 


(1) 


(1) 


680 
695 


(1) 


681 


(1) 


<1> 


(1) 


696 


(2) 


(4) 


705 


(4) 


731 


(4) 


<4) 


743 


(4) 


745 


(4) 


(4) 


782 


(4) 


783 


(4) 


(4) 


788 


(4) 


790 


(4) 


(4) 


811 


<4) 


812 


(4) 
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CL1SK.NUH 
CtlSK OCT 

clisk'return 
cus>tsize 

clisk slash 



CLISK SPACE 



=00000085 

=00000088 

=00000093 

00000444 

=00000090 



=00000084 



36? 

362 
362 
365 

362 



36? 



(1) 

(1) 
CD 

(1) 

(1) 



(1) 



CLI$K_STRJNG 



=00000088 



362 



(1) 



814 

821 

840 

845 

852 

864 

870 

874 

878 

695 

901 

917 

924 

931 

935 

941 

946 

953 

957 

963 

968 

985 

1554 

2161 

1052 

2453 

-2463 
1024 
1482 
1766 
513 
1042 
1506 
1601 
1751 
1832 
1892 
1915 
2322 
598 
696 
836 
1024 
1042 
1049 
1055 
1062 
1067 
107? 
1077 
1084 
1089 
1094 
1099 
1120 
1130 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
<4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(5) 
(6) 
(4) 

(6) 

(6) 

(4) 

(5) 

(5) 

(1) 

14) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(6) 

(1) 

(2) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

f4) 

(4) 



816 

823 

841 

847 

860 

866 

871 

875 

879 

896 

902 

919 

925 

932 

937 

942 

947 

954 

959 

964 

969 

1743 
2292 
1055 

2454 

381 

1283 

1499 

1778 

811 

1224 

1535 

1619 

1804 

1846 

1900 

1924 

2348 

613 

743 

870 

1025 

1044 

1051 

1057 

1063 

1068 

1073 

1079 

1085 

1090 

1095 

1101 

1127 

1136 



(4) 
(4) 
(4) 
(4) 
(4) 
U) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
<4) 
(4) 
(4) 
(4) 
(4) 
(4) 

(5) 
(6) 
(4) 

(6) 

<1) 

(4) 

(5) 

(5) 

(4) 

(4) 

(5) 

(5) 

(5) 

<5> 

(5) 

(5) 

(6) 

(1) 

(4) 

(4) 

(4) 

(4) 

<4) 

(4) 

(4) 

<4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 



817 
836 
842 
849 
86? 
867 
872 
876 
892 
898 
914 
921 
927 
933 
938 
943 
949 
955 
960 
965 
982 

1752 
2316 
922 



1330 

1568 

2025 

860 

1297 

1546 

1733 

1806 

1856 

1905 

2094 

445 

621 

790 

901 

1027 

1046 

1052 

■!059 

1064 

1070 

1074 

1081 

1086 

1092 

1096 

1103 

1128 

1137 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 

r.) 

(4) 
(4) 
<4) 
(4) 
(4) 
(4) 
(4) 
<4) 
(4) 

(5) 
(6) 
<4) 



2457 (6) 



(4) 
(5) 
(5) 
(4) 
(4) 
(5) 
(5) 
(5) 
(5) 
(5) 
<5> 
(1) 
(1) 
<4) 
<4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 



819 


(4) 


838 


(4) 


84 3 


(4) 


851 


(4) 


863 


(4) 


869 


(4) 


873 


(4) 


877 


(4) 


894 


(4) 


899 


(4) 


916 


(4) 


922 


(4) 


929 


(4) 


934 


(4) 


940 


(4) 


944 


(4) 


951 


(4) 


956 


(4) 


962 


(4) 


966 


(4) 


983 


(4) 


2138 


(6) 


2323 


(6) 


925 


(4) 


2460 


(6) 


1434 


(5) 


1580 


(5) 


2185 


(6) 


892 


(4) 


1306 


(4) 


1598 


(5) 


174? 


(5) 


1821 


(5) 


1869 


(5) 


1910 


(5) 


2248 


(6) 


515 


(1) 


681 


(1) 


819 


(4) 


1029 


(4) 


1047 


(4) 


1054 


(4) 


1061 


(4) 


1065 


(4) 


1071 


(4) 


1076 


(4) 


1083 


(4) 


1087 


(4) 


1093 


(4) 


1098 


<4> 


1119 


(4) 


1129 


(4) 


1143 


(4) 



Z7-ENSAA-7.0 Cross reference* 

CLI 

Cross reference 


27- 

DIAGNOSTIC SUPERVISOR COMMAND LINE 


* 15 

JUL-1984 Fiche 3 frame 
INTER 27-JUL-1984 15:07:02 VAX- 
23-MAY-1984 14:l0i24 DMA1 


E15 Seguence 598 

11 Macro VC3-01 Page 

:[SYS0.SVSMAINTKLKMAR;279 




1145 


(4) 


1H 


(4) 


1147 


(4) 


1148 


(4) 




1153 


(4) 


115. 


(4) 


1155 


(4) 


1156 


(4) 




1167 


(4) 


1168 


(4) 


1169 


(4) 


1170 


(4) 




1171 


(4) 


117? 


(4) 


1192 


(4) 


1224 


(4) 




1226 


(4) 


1232 


(4) 


1233 


(4) 


1239 


(4) 




1240 


(4) 


1246 


(4) 


1247 


(4) 


1248 


(4) 




1249 


(4) 


1251 


(4) 


1252 


(4) 


1253 


(4) 




1259 


(4) 


1260 


(4) 


1266 


(4) 


1267 


(4) 




1281 


(4) 


1283 


(4) 


1285 


(4) 


1286 


(4) 




1287 


(4) 


1289 


(4) 


1290 


(4) 


1292 


(4> 




1294 


(4) 


1295 


(4) 


1297 


(4) 


1298 


(4) 




1305 


(4) 


1306 


(4) 


1307 


<4) 


1308 


(4) 




1314 


(4) 


1315 


(4) 


1321 


(4) 


1322 


(4) 




1328 


(4) 


1329 


(4) 


1330 


(4) 


1331 


(4) 




1332 


(4) 


1333 


(4) 


1334 


(4) 


1335 


(4) 




1336 


(4) 


1337 


(4) 


1338 


(4) 


1344 


(4) 




1345 


(4) 


1352 


(4) 


1353 


(4) 


1354 


(4) 




1356 


(4) 


1357 


(4) 


1362 


(4) 


1363 


(4) 




1369 


(4) 


1370 


(4) 


1376 


(4) 


1377 


(4) 




1383 


<4> 


1384 


<4> 


1390 


(4) 


1391 


(4) 




1397 


(4) 


1398 


(4) 


1401 


(4) 


1412 


<4) 




1413 


(4) 


1419 


(4) 


1421 


(4) 


1422 


(4) 




1431 


(5) 


1433 


(5) 


1434 


(5) 


1436 


(5) 




1437 


(5) 


1439 


(5) 


144/ 


(5) 


1448 


(5) 




1454 


(5) 


1455 


(5) 


1460 


(5) 


1461 


(5) 




1482 


(5) 


1488 


(5) 


1489 


(5) 


1490 


(5) 




1492 


(5) 


1493 


(5) 


1495 


(5) 


1497 


(5) 




1499 


(5) 


1500 


(5) 


1506 


(5) 


1508 


(5) 




1509 


(5) 


1511 


(5) 


1512 


(5) 


1535 


<5) 




1543 


(5) 


1545 


(5) 


1546 


(5) 


1548 


(5) 




1549 


(5) 


1550 


(5) 


1552 


(5) 


1554 


(5) 




1555 


(5) 


1557 


(5) 


1567 


<5) 


1568 


(5) 




1569 


(5) 


1571 


(5) 


157? 


(5) 


1579 


(5) 




1580 


(5) 


1581 


(5) 


1562 


(5) 


1583 


(5) 




1593 


(5) 


1594 


(5) 


1595 


(5) 


1596 


(5) 




1597 


(5) 


1598 


(5) 


1600 


(5) 


1601 


(5) 




1603 


(5) 


1605 


(5) 


1607 


(5) 


1608 


(5) 




1610 


(5) 


1618 


(5) 


1619 


(5) 


1620 


(5) 




1626 


(5) 


1638 


(5) 


1639 


(5) 


1641 


(5) 




1643 


(5) 


1644 


(5) 


1646 


(5) 


1647 


(5) 




1649 


(5) 


1650 


(5) 


1652 


(5) 


1653 


(5) 




1654 


<5) 


1655 


<5) 


1657 


(5) 


1658 


(5) 




1660 


(5) 


1661 


(5) 


1663 


(5) 


1664 


(5) 




1666 


(5) 


1667 


(5) 


1670 


(5) 


1671 


(5) 




1673 


(5) 


1674 


(5) 


1676 


(5) 


1677 


(5) 




1679 


(5) 


1680 


(5) 


1682 


<5> 


1683 


(5) 




1685 


(5) 


1686 


(5) 


1699 
1735 


(5) 


1700 


(5) 




1702 


(5) 


1733 


(5) 


(5) 


1741 


(5) 




1742 


(5) 


1743 


(5) 


1744 


(5) 


1750 


<5) 




1751 


(5) 


1752 


(5) 


1753 


(5) 


1755 


(5) 




1765 


(5) 


\m 


(5) 


1767 
1778 


(5) 


1769 


(5) 




1770 


(5) 


(5) 


(5) 


1779 


(5) 




1780 


(5) 


1781 


(5) 


1787 


(5) 


1788 


(5) 




1798 


(5) 


1799 


(5) 


1800 


(5) 


1801 


(5) 




1803 


(5) 


1804 


(5) 


1805 


(5) 


1806 


(5) 




1808 


(5) 


1810 


(5) 


1812 


(5) 


1813 


(5) 




18H 


(5) 


1820 


(5) 


1821 


(5) 


1823 


(5) 



145 
(11) 



3 

1) 
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iross reference 
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146 
<11> 



1829 


(5) 


1830 


(5) 


1831 


(5) 


1832 


(5) 


1833 


(5) 


1835 


(5) 


1837 


(5) 


1843 


(5) 


1845 


(5) 


1846 


(5) 


1847 


(5) 


1848 


(5) 


1855 


(5) 


1856 


(5) 


1857 


(5) 


1858 


(5) 


1859 


(5) 


1861 


(5) 


1862 


(5) 


1868 


(5) 


1869 


(5) 


1870 


(5) 


1871 


(5) 


1872 


(5) 


1884 


(5) 


1885 


(5) 


1886 


(5) 


1888 


(5) 


1891 


(5) 


1892 


(5) 


1893 


(5) 


1894 


(5) 


1896 


(5) 


1897 


(5) 


1899 


(5) 


1900 


(5) 


1901 


<5) 


1902 


(5) 


1904 


(5) 


1905 


(5) 


1906 


(5) 


1907 


(5) 


1909 


(5) 


1910 


(5) 


1911 


(5) 


1912 


(5) 


1914 


(5) 


1915 


(5) 


1916 


(5) 


1917 


(5) 


1923 


(5) 


1924 


(5> 


1925 


(5) 


1926 


(5) 


1942 


(5) 


1943 


(5) 


1945 


(5) 


1947 


(5) 


1948 


(5) 


1950 


(5) 


1951 


(5) 


1953 


(5) 


1954 


(5) 


1956 


(5) 


1957 


(5) 


1959 


(5) 


1960 


(5) 


1961 


(5) 


1962 


(5) 


1964 


(5) 


1965 


(5) 


1967 


(5) 


1968 


(5) 


1970 


(5) 


1971 


(5) 


1973 


(5) 


1974 


(5) 


1975 


(5) 


19^6 


(5) 


1978 


<5> 


1979 


(5) 


1981 


<5) 


1982 


(5) 


1984 


(5) 


1985 


(5) 


1987 


(5) 


1988 


<5) 


1990 


(5) 


1991 


(5) 


1993 


<5) 


1994 


(5) 


2002 


(5) 


2003 


(5) 


2005 


(5) 


2025 


(5) 


2031 


(5) 


2032 


(5) 


2038 


(5) 


2039 


(5) 


2045 


15) 


2046 


(5) 


2052 


(5) 


2053 


(5) 


2059 


(5) 


2060 


(5) 


2066 


(5) 


2067 


(5) 


2068 


<5) 


2069 


(5) 


• 2075 


(5) 


2076 


(5) 


2082 


(5) 


2083 


(5) 


2091 


(5) 


2094 


(5) 


2102 


(6) 


2103 


(6) 


2104 


(6) 


2106 


(6) 


2113 


(6) 


2114 


(6) 


2115 


(6) 


2117 


(6) 


2123 


(6) 


2124 


(6) 


2125 


(6) 


2131 


(6) 


2132 


(6) 


2138 


(6) 


2139 


(6) 


2145 


(6) 


2146 


(6) 


2147 


(6) 


2153 


(6) 


2154 


<6> 


2155 


(6) 


2161 


(6) 


2162 


(6) 


2168 


<6> 


2185 


(6) 


2191 


(6) 


2192 


(6) 


2198 


(6) 


2199 


<6> 


2205 


(6) 


2206 


<6> 


2212 


(6) 


2213 


(6) 


2219 


(6) 


2220 


(6) 


2221 


<6) 


2222 


(6) 


2228 


(6> 


2229 


(6) 


2235 


(6) 


2236 


(6) 


2245 


(6) 


2248 


(6) 


2255 


(6) 


2256 


(6) 


2257 


(6) 


2259 


(6) 


2266 


(6) 


2267 


(6) 


2268 


(6) 


2270 


(6) 


2277 


(6) 


2278 


(6) 


2279 


(6) 


2285 


(6) 


2286 


(6) 


2292 


(6) 


2293 


(6) 


2300 


(6) 


2301 


(6) 


2302 


(6) 


2308 


(6) 




(6) 


2310 


(6) 


2316 


(6) 


2322 


(6) 


2323 


(6) 


2324 


(6) 


2330 


(6) 


2348 


(6) 


2354 


(6) 


2355 


(6) 


2361 


(6) 


2362 


(6) 


2368 


(6) 


2369 


(6) 


2375 


(6) 


2376 


(6) 


2382 
2397 


(6) 


2383 


(6) 


2389 


<6) 


2390 


(6) 


(6) 


2398 


(6) 


2404 


(6) 


445 


(1) 


447 


(1) 


453 


(1) 


454 


(1) 


460 


(1) 


461 


(1) 


472 


(1) 


478 


(1) 


479 


(1) 


485 


(1) 


486 


(1) 


492 
513 


<1> 


493 


(1) 


506 
515 


(1) 


512 


(1) 


(1) 


514 


(1) 


(1) 


516 


(1) 


518 


(1) 


519 


(1) 


520 


(1) 


52' 


(1) 


H* 


(1) 


523 


(1) 


524 


(1) 


530 


(1) 


531 


(1) 



ZZ-ENGAA-7.0 

CL1 

Cross reference 



Cross reference 
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27-JUL-1984 Fiche 3 frame 615 Sequence 600 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g-JUMJJJ ]|:07:02 VAX-11 ^-^03^^^^^^. 



Page 
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(11) 



CLISK^SYMBI 
CLl$K_VALU 



CUSl.ADI ::SS 
CLISL.COnw'ND 



=00000080 
:0000008F 



00000018 
00000004 



362 

36? 



365 
365 



(1) 
(1) 



(1) 
(1) 



537 

541 

552 

570 

581 

596 

605 

614 

623 

638 

646 

659 

673 

683 

699 

735 

752 

785 

792 

8K 

821 

840 

845 

852 

864 

870 

874 

878 

895 

901 

917 

924 

931 

935 

941 

946 

953 

957 

963 

968 

985 

1047 

1128 

1170 

2220 

#-2975 

#-3771 

#-2474 

#-2834 

#-2885 

#-5926 

#-2994 




(1) 

11) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

<4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(6) 

(7) 

(10) 

(6) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 



538 

547 

558 

571 

587 

597 

606 

620 

629 

639 

651 

665 

674 

692 

702 

736 

764 

787 

794 

816 

823 

841 

847 

860 

866 

871 

875 

879 

896 

902 

919 

925 

932 

937 

942 

947 

954 

959 

964 

969 



(1) 

(I) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(?) 

(10) 

(6) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 



539 

548 

559 

5?7 

5S8 

598 

612 

621 

630 

640 

652 

666 

680 

693 

705 

743 

782 

788 

811 

817 

836 

842 

849 

862 

867 

872 

876 

892 

898 

914 

921 

927 

933 

936 

943 

949 

955 

960 

965 

982 



(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(5) 

(4) 

(10) 

(10) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 

(?) 



540 

550 

569 

579 

595 

599 

613 

622 

637 

645 

658 

672 

681 

696 

731 

745 

783 

790 

812 

819 

838 

843 

851 

863 

869 

873 

877 

894 

899 

916 

922 

929 

934 

940 

944 

951 

956 

962 

966 

983 



1168 
2067 




(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(4) 

(4) 

<4) 

(4) 

(4) 

<4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 



(4) 
(5) 



#-3768 (10) 



(?) 
(?) 
(7) 
(?) 
(?) 
(?) 
(?) 
(?) 
(?) 
(10) 
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Pag< 
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H8 

(11) 



CL1SL.DATA 



CLISLJLAGS 



CL ISL^LAST 

CLISI_NEXT 
CLlSL_PASS 

U1SL SUBT 
JLlSLlTEST 
CLISO^BUFGWD 
CLISQ FILE 



CLISQ^ 
CLISQ. 

CLIST, 

CLISV^ 

CI ISV. 

CLISV. 

CLISV^ 

CLISV. 

CLISV. 

CLISV. 

CLISV 

CLISV. 

CLISV. 

CLISV. 

CLISV. 

CLISV, 

CLISV, 

CLISV. 



SECTION 
TIME 
BUFFER 
ADAPTER 
ADR 
ASCII 
BREAK 
BRIEF 
BYTE 
.CLEAR 
DEC 

DEFAULT 
DEPOSIT 
'EVENT 
EXAM 
FLAGS 
HEX 
'KERNEL 



0000001 C 



00000000 



00000024 
00000030 
0000002C 

00000028 
00000020 
00000034 
00000008 



00000010 
0000043C 
0000003C 
-♦00000018 
=00000008 
=00000013 
=OQ0OO0OA 
=00000018 
=0000000D 
=00000002 
=00000010 

mm 

=00000008 
=00000005 
=00000009 
=00000012 
=00000017 



365 



365 



365 
365 
365 

365 
365 
365 
365 



365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 
365 



(1) 



(1) 



(1) 

(1) 
(1) 

(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



#-3621 

#-3640 
#-3706 
#-3998 
#-4016 
#-4061 
#-4105 
#-4164 
#-2982 
3504 
3536 
3570 
3604 
2541 
2808 
#-2974 
3032 
3317 
3339 
3375 
3414 
3616 
3656 
3676 
3703 
3788 
3848 
3889 
3996 
#-3232 
#-3743 
#-2995 
#-3194 
#-3218 
#-3225 
2*98 
#-2816 
#-3152 
#-3890 
#-3210 

2499 
#-4039 
#-3366 
#-3750 
#-3374 
#-3996 
#-3847 
#-2835 
#-3863 
#-3426 
#-2886 
#-3316 
#-2917 
#-3338 
#-3855 



(10) 
(10) 
(10) 
(10) 
(10) 
(10) 
(10) 

(11) 

(7) 

(10) 

(10) 

(10) 

(10) 

(6) 

(7) 

(?) 

(7) 

(?) 

(?) 

(?) 

(?) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(7) 

(10) 

(7) 

(?) 

(?) 

(?) 

(6) 

(?) 

(?) 

(10) 

(?) 

(6) 

(10) 

(?) 

(10) 

(?) 

(10) 
(10) 

(?) 

(10) 

(?) 
(?) 
(?) 
(?) 
(?) 

(10) 



#-3623 

#-3681 

#-3711 

#-4001 

#-4018 

#-4070 

#-4123 

#-4171 

#-3396 

3512 

3544 

3578 

3727 

2758 

2836 

2992 

3169 

3319 

3341 

3377 

3417 

3631 

3661 

3678 

3751 

3795 

3856 

3905 

4008 



#-2518 
#-2817 
#-3153 
#-3918 
#-3211 

2517 

#-3787 

#-4008 
#-3323 
#-3694 
#-3336 

#-3413 



(10) 
(10) 
(10) 
(10) 
(10) 
(10) 
(10) 

(11) 
(?) 

(10) 
(10) 
(10) 
(10) 

(?) 
(?) 
(?) 
(?) 
(?) 

(7) 

(?) 

(?) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 



#-3635 

#-3685 

#-3714 

#-4011 

#-4051 

#-4077 

#-4149 

#-4194 

#-3439 

3520 

3554 

3588 

#-3822 

2766 

2887 

3016 

3177 

3324 

3353 

3382 

3427 

3633 

3666 

3695 

3761 

3832 

3864 

3947 

4040 



(10) 


#-3638 


(10) 


(10) 


#-3688 


(10) 


(10) 


#-3985 


(10) 


(10) 


#-4013 


(10) 


(10) 


#-4054 


(10) 


(10) 


#-4086 


(10) 


(10) 


#-4157 


(11) 


(11) 






(7) 


3494 


(8) 


(10) 


3528 


(10) 


(10) 


3562 


(10) 


(10) 


3596 


(10) 


(10) 






(?) 


2800 


(7) 


(?) 


2918 


(7) 


(?) 


3024 


(7) 


(?) 


3202 


(7) 


(?) 


3337 


(7) 


(?) 


3367 


(?) 


(?) 


3401 


(?) 


(?) 


3614 


(10) 


(10) 


3651 


(10) 


(10) 


3671 


(10) 


(10) 


3701 


(10) 


(10) 


3785 


(10) 


(10) 


3840 


(10) 


(10) 


3872 


(10) 


(10) 


3951 


(10) 


(10) 


4049 


(10) 



#-2997 (?) #-3035 (7) #-3037 (7) 



(6) 2527 (6) 
(?) #-2874 (?) 

(7) #-3160 (7) 
(10) 

(?) 

(6) 

(10) #-3950 (10) 



#-2774 
#-2876 
#-3161 



(10) 

(?) 

(10) 

(7) 

(7) 



#-4049 
#-3381 



(10) 
(?) 



(7) 
(?) 
(?) 



Cross reference 



ZZ-ENSAA-7,0 

CL1 

Cross reference 

CLISV J.0AD 
CLISV.LONG 
CLISVJJOTNUF 



CLISV_0CT 

CLISV_PREG 

CLISV QA 

CLISV'QACKLOOPLOOPS 

CLlSVlQAERRORPRINTS 

CLISV QAMULT1PLEPASS 

CLlSV~QASUBTESTLOOPS 

CLISV QATESTLOOPS 

CLISV_REG 

CLISV REQUIRED 

CLISV~RUN 

CLISV^SET 

CLISV..SHOW 

CLISV VALSEC 

CLISV WORD 

CLI ACTION 

COMMAND TREE 

COMMON CRD TRACEJ>EBUG 

COMMON"ENFBRCE 

CONTEXT 

CONTINUE 

CRD 

CRDSGL CRD COMMAND DEBUG 

CRDSK CRD INITIALIZATION 

CRDSK~DSjlONTROL..C 

CRDSKlDS FLAGS 

crdsk„faTlure 
crdsk hook point 
crdsk""last.access code 
crdsk~last ds variable 
crdsk"laswuRction 
crdsk~last_hook_point 
crosk~read 
crdsk'success 
crdsk~typecode 

CRDSKlWRITE 
DATA 



DBG NAME 

DEATTACH 

DEATTACH„QUAL 

DEBUG 

DEBUGSGB FLAGS 

DEBUG.SWiTCH 

DEC 

DEFAULT 

DEFAULT. DBG 

DEPOSIT 

DEPOSIT PARAMS 



27-JUL-1984 Fiche 3 Frame 115 Seguence 602 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g-JUL^SJ 15:07:02 ^1^%}^^^^ 



149 

(11) 



=00000006 365 (1) 

=0000000F 365 (1) 

=00000001 365 (1) 

=00000011 365 (1) 

=0000001A 365 (1) 

=00000007 365 (1) 

=0000001 C 365 (1) 

=00000018 365 (1) 

=0000001F 365 (1) 

=0000001 E 365 (1) 

=0000001D 365 (1) 

=00000014 365 (1) 

=00000000 365 <1> 

=00000015 365 (1) 

=00000003 565 (D 

=00000004 365 (1) 

=00000016 365 (1) 

=0000000E 365 (1) 

000001 3D-R 2602 (6) 

000001 80-R 444 (1) 

00000689-R 3472 (7) 

0000056A-R 3306 (7) 

=00000003 2609 (6) 

=00000009 2615 (6) 

=00000023 2641 (6) 

00000000-XR 

=00000000 371 (1) 

=00000001 371 (1) 

=00000000 371 (1) 

=00000000 371 (1) 

=00000000 371 (1) 

=00000002 371 (1) 

=00000002 371 (1) 

=00000002 371 (1) 

=00000001 371 (1) 

=00000000 371 (1) 

=00000001 371 (1) 

=00000001 371 (1) 

=00000001 371 (1) 

=00000050 2699 (6) 



000Q030D-R 2878 (7) 

=0000000A 2616 (6) 

000003E9-R 859 (4) 

'OOOOOOOB 2617 (6) 
00000QQ0-XR 

=0000QQ0C 2618 (6) 

=00000062 2704 (6) 

:0Q00QQ3A 2664 (6) 

=O00O0OOD 2619 (6) 

=0O0OO0OE 2620 (6) 

00000E76-R 2184 (6) 



#-2973 

#-3831 

#-2540 

#-2807 

#-3871 

#-3795 

#-3201 

#-3655 

#-3650 

#-3670 

#-3665 

#-3660 

#-3760 

#-3168 

#-2991 

#-3015 

#-3615 

#-3023 

#-3613 

#-3839 

2525 

2526 

#-3452 

#-3303 

485 
493 

#-3121 
#-3095 



1847 
1906 
2323 

#-2874 
530 
531 
537 

#-2843 
1119 
204 5 
1266 
540 
558 
2192 
2222 



(?) 

(10) 

(6) 

(7) 

(10) 

(10) 

(7) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(7) 

(7) 

(?) 

(10) 

(?) 

(10) 

(10) 

(6) 

(6) 

(?) 

(?) 

(1) 
(1) 
(?) 
(?) 



#-3096 (?) 



(5) 
(5) 
(6) 
(?) 
(1) 
(1) 
(1) 
(?) 
(4) 
(5) 
(4) 
(1) 
(1) 
(6) 
(6) 



#-2756 (6) #-2765 (?) #-2799 (?) 



#-3784 
#-3176 
#-3031 
#-3318 
#-3632 
#-3340 
#-3630 



1870 
1911 

2875 

877 

#-2983 

2198 
1787 



2199 
2229 



(10) 
(?) 
(?) 
(?) 

(10) 

(?) 

(10) 



#-3458 (?) 



(5) 
(5) 
(1) 
(?) 

(4; 

(?) 

(6) 
(5) 



(6) 
(6) 



#-3946 
#-3904 
#-3888 
#-3376 
#-3677 
#-3352 
#-3675 



1893 
1916 



2361 
1953 



2206 
2236 



(10) 

(10) 

(10) 

(?) 

(10) 

(?) 

(10) 



#-3400 
#-3702 
#-3416 
#-3700 



(?) 
(10) 
(?) 
(10) 



(5) 
(5) 



1901 
1925 



(5) 
(5) 



(6) 
(5) 



(6) 
(6) 



13 

124 



(6) 
(6) 



ZZ-ENSAA-7.0 

CL1 

Cross reference 



Cross reference 



603 



DESELECT 

DESELECT_QUALS 

DEVICE 

DIRECTORY 

DIR WIDE 

DO CMD 

DSlA PRGBGN 

DSSCCl 

dssga crd ds interface 
dssga~ds ftru cjirst 
dssga^ds'ctrlc second 
dssgbIinHibitjMing 
dssgb..mm enb 

DS$GL^CLlBASE 

dssgl„crd debug 
ds$gl,fla5s 

dssgt prompt 
dssk Error 
dssk normal 
dssk'printb 
dssk^printf 

dsskj>rinti 

dssk printx 

dssk~severe 

dssk~subsys 

dssk type abort program 

ds$k"type"abort'test 

dsskType'commaRd, err 



DSSK TYPE COMMAND OUT 
DSSK~TYPE~CRD autOtest 

dssk~type~ds Prompt 
dssk"typeIds"start 
dsskItype.erRdev 
dssk type.errhard 
dssk'type error.qody 
dsskltype error end 
dssk type.errprEp 
dssOypejrrsoft 
dsskItype.errsup 
dssk type.errsys 
dssk~type_err halt 
dssk'type.excEption 
dssk'type exception head 
ds$k"type:first PASS 
dssk"type_generJl 
dssk~type„general error 

DSSK TYPElNO TEST3 
DSSK TYPElPARAM ERROR 
DSSlf TYPE PROGR*MJND 
DSSK~TYPE~PROGRAMJNFO 
DSSK~TYPE~PROGRAM_START 



J 15 
27-JUL-1984 Fiche 3 Frame J15 Seguence 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 27-JUM98J 15:07:02 ^\lJ^%^ 2(Ll , m ^ 



150 
(11) 



j 



2449 (6) 



00000070 2718 (6) 

Q0Q0435-R 891 (4) 

000006C 2714 (6) 

0000000F 2621 (6) 

00000080 2734 (6) 

=00000073 2721 (6) 

00000000-XR 

00000000-R 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-R 380 (1) 

00000000-XR 

00000000-XR 

00000000-XR _, 

=00000002 364 (1) 

=00000001 364 (1) 

=00000002 370 (1) 

=00000001 370 (1) 

=00000000 370 (1) 

=00000003 370 (1) 

=00000004 364 (1) 

=00000066 364 (1) 

=00000014 370 (D 

=00000013 370 (1) 

=00000015 370 (1) 



•^00000016 370 (1) 

=0000001A 370 (1) 

=00000001 370 M) 

=0000001 D 370 (1) 

=00000008 370 (1) 

=00000006 370 (1) 

=00000009 370 (1) 

=0000000A 370 (1) 

=0Q00Q01B 370 <1) 

=00000007 370 (1) 

=00000004 370 (1) 

=00000005 370 (1) 

=00000000 370 (1) 

=0000000C 370 (1) 

=00000006 370 (1) 

=00000011 370 (1) 

=00000000 370 (1) 

=00000003 370 (1) 

=00000012 370 (D 

=0000001 C 370 (D 

=00000010 370 (1) 

=00000017 370 (1) 

=OOO000OF 370 (1) 



559 
547 
548 
1281 
512 
514 
845 
#-2975 

3098 

#-3075 

#-3076 

#-3307 

#-4096 

2453 

#-3478 

2469 

3083 

2480 



#-2850 
#-4129 
#-2480 
#-3138 



#-2550 
#-3138 
#-4129 
#-2850 



(1) 
(1) 
(1) 
(4) 
(1) 
(1) 
(4) 
(7) 

(7) 

(7) 

(7) 

(?) 

(10) 

(6) 

(7) 

(6) 

(7) 

(6) 



(?) 
(10) 
(6) 
(?) 



364 (1) 



(6) 
(?) 

(10) 
(?) 



#-2480 (6) 



1508 (5) 



#-4115 (10) #-4133 (10) 



#-3483 
2477 



#-2959 
#-4138 
#-2549 
#-3470 



#-2561 
#-3731 
#-4201 
#-3470 



(?) 
(6) 



2494 (6) 



3080 (?) 



2496 (6) 



(?) 
(10) 
(6) 
(?) 



#-4091 
#-4200 
#-2560 
#-3730 



(10) 
(11) 
(6) 
(10) 



#-4110 
#-3109 



(10) 
(?) 



(6) 
(10) 
(11) 
(?) 



#-2960 
#-4092 



(?) 
(10) 



#-3109 
#-4111 



(?) 
(10) 



#-4139 (10) 



ZZ-ENSAA-7.G 

CLI 

Cross reference 



Cross reference 



DSSK TYPE QIO INVADP 
DSSK'TYPE Q10JJ0DRIVER 
DSSK"TYPE"QIO WRONGVER 
DSSKlTYPE^SCRlPT ECHO 

ds$k type script pnf 

ds$k~type scriptj>r0mpt 

dssoypelscript skip 

ds$k type seouence error 

ds$k"type„startjrr 

dssk typelstart list 

dsskItype.summaRy 

ds$k type user.prompt 

dssiTwarnTng 

ds$l~usercntrlc 

ds$m~abrtflg 

ds$m~badtime 

ds$m~batch 

ds$m~brkclr 

dssm"brkpt 

d3sm"charflg 

ds$m~cmdflg 

dssm^ctrlc 

ds$m ctrlo 

dssm^devflg 

dssm disablcc 

os$m donflg 

DSSMlERRFLG 
OSSM EXCEPT 
DS*M~EXETST 
DS$M HLTFLG 
DSSM LOOFLG 
DSSM'MEMMGT 
DSSM~OUTPUT 
DSSMlRUBFLG 

dssm script 
os$m;setimr 

DSSM^STRFLG 

DS$M_SUBT 

DSSM SYSFLG 

DSSM"TIMRQN 

DSSV ABRTFLG 

DS$V 8A0TIME 

DSSV.BATCH 

DSSV„BRKCLR 

DS$V BRKPT 

DSSV~CHARFLG 

DSIVlCMDFLG 

DSSV^CTRLC 

DSSV„CTRLO 

DSSV_DEVFLG 

DS$V,DISABLCC 

dssv„donflg 
dssv.errflg 
dssvjxcept 
ds$v;exetst 
dssv hltflg 
ds$v:lodflg 



K 15 
27-JUL-1984 Ffche 3 Frame K15 Sg9 uence 60 ^ 
DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g^lJJJ ^:07:02 VjW;^^ 



151 
(11) 



=00000024 370 (1) 

=00000022 370 (1) 

=00000023 370 1) 

=00000021 370 (1) 

=0000001 E 370 (1) 

=00000020 370 (1) 

=0000001 F 370 (1) 

=00000019 370 (1) 

=00000018 370 (D 

=00000025 370 (1) 

=0000000E 370 (1) 

=00000002 370 (1) 

=00000000 364 (1) 
00000000-XR 

=00000040 366 (1) 

=00100000 366 (1) 

=00400000 366 (1) 

=00001000 366 (1) 

=00000800 366 (1) 

=00000100 366 (1) 

=00000080 366 (1) 

=00000001 366 (1) 

=00010000 366 (1) 

=00000200 366 (1) 

=01000000 366 (1) 

=00002000 366 (1) 

=00000010 366 (1) 

=00080000 366 (1) 

=00040000 366 (1) 

=00000008 366 (1) 

=00000002 366 (1) 

=00008000 366 (1) 

=00800000 366 (1) 

=00000020 366 (1) 

=00200000 366 (1) 

=02000000 366 (1) 

=00000004 366 (1) 

=00004000 366 (1) 

=00000400 366 (1) 

=00020000 366 (1) 

=00000006 366 (1) 

=00000014 366 (1) 

=00000016 366 (1) 

=OOO0OQ0C 366 (1) 

=00000008 366 (1) 

=00000008 366 (1) 

=00000007 366 (1) 

=00000000 366 (1) 

=00000010 366 <1) 

=00000009 366 (1) 

=00000018 366 (1) 

=00000000 366 (1) 

=00000004 366 (1) 

=00000013 366 (1) 

=00000012 366 (1) 

^00000003 366 (1) 

=00000001 366 (D 



#-3077 (?) 



#-2469 
#-2477 



(6) 
(6) 



#-2494 (6) #-3079 (?) 



#-3082 (?) 



ZZ-ENSAA-7.0 

cu 

Cross reference 

DS$V MEMMGT 

DStVOUTPUT 

DSSV„RUBFLG 

DSSV SCRIPT 

DS$V_SETIMR 

DS$V STRFLG 

DSSV^SUBT 

DSSV SYSFLG 

OS$V~TIMRON 

DS$ RRITH 

DS*~ASBE 

D5$ BADLINK 

DSSlBADTYPE 

DS$ BIIC 

OSSlCHME 

DS$ CHMK 

DSS'OEVNAME 

OS$ ERROR 

DS$ FHWE 

DS$ FRAGBUF 

DSSJCBUSY 

DS$ KERR 

DSl^IHWE 

DS$ ILLCHAR 

DS$ ILLPAGCNT 

DS$~ILLUNIT 

DS$~1NSFMEM 

OS$IlPL2HI 

DS$ IVADDR 

DSSIIVVECT 

DS$ KRNLSTK 

DS$~LOGIC 

DS$ MCHK 

DS$*"MMOFF 

DS$~NEEDUN1T 

DS$_NODE 

DSS.NOPCS 

DS$ NORMAL 

DSi'NOSUPPORT 

DS$~NOTDON 

DS$ NOTIMP 

DS$>ULLSTR 

DS$J)VERFLOW 

DS$ POWER 

OS$"PROGERR 

DS$ SEVERE 

DSS TRANSL 

OS$"TRUNCATE 

DS$~UNEXPINT 

OSSlVASFULL 

OSS WARNING 

DSASGL.APTCOM 

DSASGL. FLAGS 



Cross reference 



27-JUL-1984 Fiche 3 Frame L15 Sequence 605 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 2^1984 15:07:02 VAX T U s 5|&:§ Y gg7g} JCL1 .HAR.gW 1 



152 
(11) 



=0000000F 366 (1) 

=00000017 366 (D 

=00000005 366 (1) 

=00000015 366 (1) 

=00000019 366 (1) 

=00000002 366 <1> 

=0000000E 366 (1) 

-OOOOOOOA 366 (1) 

=00000011 366 (1) 

=00660000 364 (1) 

=00660118 364 (1) 

=006600F0 364 (1) 

=006600E8 364 (1) 

=00660120 364 (1) 

=OO66O0A8 364 (1) 

=006600EO 364 (1) 

=00660108 364 (1) 

=00660002 364 (1) 

=00660068 364 (1) 

=00660080 364 (1) 

=006600C8 364 (1) 

=00660000 364 (1) 

=00660060 364 (1) 

=00660018 364 (1) 

=00660078 364 (1) 

=00660100 364 (1) 

=00660050 364 (1) 

=00660088 364 (1) 

=00660040 364 (1) 

=00660038 364 (1) 

=00660090 364 (1) 

=00660070 364 (1) 

=00660088 364 (1) 

^-00660058 364 (1) 

=00660CF8 364 (1) 

=00660128 364 (1) 

=00660110 364 (1) 

=00660001 364 (1) 

=00660081 364 <1) 

=00660030 364 (1) 

=006600BO 364 ( 1 ) 

=00660010 364 (1) 

=00660008 364 (1) 

=00660098 364 (1) 

=00660020 364 (1) 

=00660004 364 (1) 

=006600A0 364 ( 1 ) 

=00660028 364 (1) 

=006600D8 364 (1) 

=00660048 364 (1) 

=00660000 364 (1) 
0000FE04 
OOOOFEOO 



364 



(1) 



364 
#-2472 
2468 
2957 
3064 
3124 
3450 



(1) 
(6) 

(7) 
(?) 
(?) 
(?) 



2486 
2996 
3065 
3126 
3456 



(6) 
(?) 
(7) 
(?) 
(?) 



2487 

30l 

3121 

346: 



(6) 
(?) 
(?) 
(?) 
(?) 



2488 
3063 

1-3187 
3964 



(6) 
(?) 
(?) 
(?) 
(10) 



ZZ-ENSAA-7,0 

CLI 

Cross reference 



Cross reference 



DIAGNOSTIC SUPERVISOR COMMAND 



DSASV.APT 

DSA*V_BELL 

DSA$V„,BINARY 

DSA$V_CRD_AUTOTEST_OFF 

DSA$V w CRDJ1ENUTE$T,.OFF 

DSASV CRD MENUTEST.ON 

DSASVlCRD"TRACfc 

DSASV.HALT 

DSASV^IEI 

DSA$VJE2 

DSASVJE3 

DSASVJES 

DSA$V LOAD DEBUGGER 

DSASVJ.OOP"" 

DSASV OPER 

DSASV^PROMPT 

DSASVJHJICK 

DSASVSEARCH 

DSA$V„TRACE 

DSA$V USER 



DSA$V VERIFY 

DSRSCSMPLETION 

DSR$LOAD CRD 

DSR$UNLOft> CRD 

DSV$ATTACH 

DSV$DEATTACH 

DSVSDEBUG 

DSVSDESELECT 

DSVSDIRECTORY 

DSVSEXIT 

DSVSINITPCS 

DSVSLOAD 

0SV$RUN 

DSV$SELECT 

DSV$SETLOAD 

DSVSSETPAGE 

DSVSSHOWDEVICE 

DSVSSHOWDEVICEB 

DSVSSHOWLOAD 
DSVSSHOWMEMORY 

DSVSSHOWPAGE 

DSV$SHOWSELECT 

DSVSSHOWSELECTB 

DSXSHELP 

DSXSMMOFF 

DSXSMMON 

DSX$PRINT 



DSXSSUPERPARSE 
DS CLEANUP 
DSZERRSUP 



M 15 

27-JUL-1984 Fiche 3 Frame M15 
LINE INTER 27-JUL-1984 15:07:02 VAX-11 Macro 
23-MAY-1984 14:10:24 



=0000001 F 
=00000003 
=00000001 
=00000008 
=00000010 
=00000012 
=00000011 
=00000000 
=00000004 
=00000005 
=00000006 
=00000007 

=0000001 E 
=00000002 
=0000000C 
=0000O00D 
=00000008 
=0000000E 
=0000000A 
=0000001 C 



=00000009 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 



00000000-XR 
00000C00-XR 
00000000-XR 



3979 
4197 
#-2468 
#-3493 
#-3503 
#-2486 
#-2487 
#-2488 
#-3449 
#-3511 
#-3519 
#-3527 
#-3535 
#-3543 
#-3186 
#-3553 
#-3561 
#-3569 
#-3577 
#-2996 
#-3595 
#-2957 
#-3978 
#-4197 
#-3603 
2946 
3085 
3142 
2818 
2861 
2870 
2894 
2902 
2925 
2964 
2971 
2993 
3006 
4070 
361) 
3998 
4001 
4077 
4171 
3620 
4015 
4018 
2943 
4116 
4097 
2480 
2961 
3732 
4140 
2528 
2936 
2740 



Sequence 606 

V03-01 Page 153^ 

DMA1:[$YS0.SYSMAINTKU.MAR;279 (11) 



(10) 

(11) 

(6) 

(8) 

(10) 

(6) 

(6) 

(6) 

(7) 

(10) 

(10) 

(10) 

(10) 

(10) 

(?) 

(10) 

(10) 

(10) 

(10) 

(7) 

(10) 

(7) 

(10) 

(11) 

(10) 

(7) 

(7) 

(7) 

(7) 

(7) 

(?) 

(?) 

(?) 

(7) 

(?) 

(?) 

(7) 

(7) 

(10) 

(10) 

(10) 

(10) 

(10) 

(11) 

(10) 
(10) 

(10) 

(7) 

(10) 

(10) 

(6) 

(?) 

(10) 

(10) 

(6) 

(?) 

(6) 



4089 (10) 



#-3065 
#-3063 
#-3064 
#-3455 



#-3072 
#-4089 



4010 
4013 



4051 
4054 



2551 
3109 
4093 
4202 



4108 (10) 



4126 (10) 



(7) 
(7) 
(7) 
(7) 



#-3128 
#-3124 



(7) 
(7) 



#-3126 (7) 



#-3462 (?) 



#-3036 (?) #-3587 (10) 



(7) 
(10) 



#-3122 
#-4108 



(7) 
(10) 



#-3963 (10) 
#-4126 (10) 



(10) 
(10) 



(10) 
(10) 



(6) 
(?) 
(10) 
(11) 



4112 



(6) 
(7) 
(10) 



2850 
3470 
4129 



(?) 
(7) 
(10) 



3070 (?) 





ZZ-ENSAA-7.0 Cross 

CLI 

Cross reference 


reference 27" 
DIAGNOSTIC SUPERVISOR COMMAND LINE 


N 15 , „ 

JUl-1984 Fuhe 3 Frame 
INTER 27-JUL-1984 15:07:02 VAX- 
23-MAY-1984 14:10:24 DMA1 


N15 

11 Maci 
:CSYS0 


Seguence 607 
*o VO3-0T Page 
,SYSMAINT3CLI.MAR;279 


154 
(11) 




DS SUPERLIN* 


00000000-XR 






2500 


(6) 


















*r \* ^^ »^ ^* • w * i ma m * w 

efR 


=0000004F 


2685 


(6) 


1607 


(5) 


1812 


(5) 






<t > ^ f\ 


i #• V 






ENDj:LEARJLAGSJ.OOP 


0OO00A74-R 


1697 


(5) 


1639 
1655 


(5) 
(5) 


1644 
1658 


(5) 
(5) 


1647 
1661 


(5) 
(5) 


1650 
1664 


(5) 
(5) 














1667 


(5) 


1671 


(5) 


1674 


(5) 


1677 


(5) 














1680 


(5) 


1683 


(5) 


1686 


(5) 










END^SET^FLAGSJ-OOP 


00000D7B-R 


2000 


(5) 


1943 
1957 


(5) 
(5) 


1948 
1962 


(5) 
(5) 


1951 
1965 


(5) 
(5) 


1954 
1968 


(5) 
(5) 














1971 


(5) 


1976 


(5) 


1979 


(5) 


1982 


(5) 














1985 


(5) 


1988 


(5) 


1991 


(5) 


1994 


(5) 






FNUF 


=00000015 


2627 


(6) 


1029 


(4) 


1233 


(4) 


1240 


(4) 


1249 


<4> 






L. Hwl 








1253 


(4) 


1267 


(4) 


1292 


(4) 


1295 


(4) 








• 






1306 


(4) 


1507 


(4) 


1308 


(4) 


1315 


(4) 














1322 


(4) 


1332 


(4) 


1334 


(4) 


1336 


(4) 














1338 


(4) 


1345 


(4) 


1354 


(4) 


1363 


(4) 














1370 


(4) 


1377 


(4) 


1384 


(4) 


1391 


(4) 














1398 


(4) 


1413 


(4) 


1422 


(4) 


1437 


(5) 














1439 


(5) 


1448 


(5) 


1455 


(5) 


H61 


(5) 














1512 


(5) 


1550 


(5) 


1555 


<5) 


1572 


(5) 














1583 


(5) 


1596 


(5) 


1605 


(5) 


1702 


(5) 














1744 


(5) 


1753 


(5) 


1770 


(5) 


1781 


(5) 














1801 


(5) 


1810 


(5) 


1848 


(5) 


1859 


(5) 














1862 


(5) 


1872 


(5) 


1894 


(5) 


1897 


(5) 














1902 


(5) 


1907 


(5) 


1912 


(5) 


1917 


(5) 














1926 


(5) 


2005 


(5) 


2168 


(6) 


2330 


(6) 














2404 


(6) 


454 


(1) 


461 


(1) 


A 86 


(1) 














541 


(1) 


571 


(1) 


f.97 


(1) 


599 


(1) 














606 


(1) 


623 


(1) 


659 


(1) 


666 


(1) 














674 


(1) 


849 


(4) 


852 


(4) 


985 


(4) 






FOl 


00000349-R 


692 


(1) 


1029 


(4) 


1233 


(4) 


1240 


(4) 


1249 


(4) 






c uu 


^^ ^^ V V V ^^ ■ ■ ■ • 






1253 


(4) 


1267 


(4) 


1297 


(4) 


1306 


(4) 














1307 


(4) 


1308 


(4) 


1315 


(4) 


1322 


(4) 














1330 


(4) 


1345 


(4) 


1354 


(4) 


1363 


(4) 














1370 


(4) 


1377 


(4) 


1384 


(4) 


1391 


(4) 














1398 


(4) 


1422 


(4) 


1437 


(5) 


1439 


(5) 














1448 


(5) 


1455 


(5) 


1461 


(5) 


1512 


(5) 














1550 


(5) 


1555 


<5> 


1572 


(5) 


1583 


(5) 














1596 


(5) 


1605 


(5) 


1702 


(5) 


1744 


(5) 














1753 


(5) 


1770 


(5) 


1781 


(5) 


1801 


(5) 














1810 


'5) 


1848 


(5) 


1859 


(5) 


1862 


(5) 














1872 


(5) 


1894 


(5) 


1897 


(5) 


1902 


(5) 














1907 


(5) 


1912 


(5) 


1917 


(5) 


1926 


(5) 














2005 


(5) 


2168 


(6) 


2330 


<6) 


2404 


(6) 














454 


(1) 


486 


(1) 


515 


(1) 


541 


(1) 














577 


(1) 


606 


(1) 


621 


(1) 


623 


(1) 














666 


(1) 


674 


(1) 


680 


(1) 


849 


(4) 














852 


(4) 


878 


(4) 


985 


(4) 










EVENT 


=00000034 


2658 


(6) 


1305 


(4) 


1597 


(5) 


1803 


(5) 










EXAMINE 


=00000010 


2622 


(6) 


587 


(1) 


















EXAMINE .PARAMS 


00000D87-R 


2024 


(5) 


2032 
2060 


(5) 
(5) 


2039 
2069 


(5) 
(5) 


2046 
2076 


(5) 
(5) 


2053 
2083 


(5) 
(5) 














2104 


(6) 


2115 


(6) 


2K5 


(6) 


2132 


(6) 














2139 


(6) 


2147 


(6) 


2155 


(6) 


2162 


(6) 














588 


(1) 


















EXIT 


=00000011 


2623 


(6) 


577 


(1) 


















FAILURE 


=00000005 


2611 


(6) 






















FALSE 


=00000000 


371 


(1) 





















IZ7-ENSAA-7. 



ross reference 



j.wi 

i 



r e f e r e nce 



o 16 
2'-^: t -'*8* Mcht 3 frame 81 6 S*gut?nce 603 

DIAGNOSTIC SUPERVISOR CWW UNE INTER ^-198. ]5:Jj;Jj ^!f S^^V^Sf K LI .MAft;^ 



( ! I > 



Ut: J t'. 



! f LAGS 



GET 



OEV^AME 



S.°E 



c mevj error 
hel» 

hElPINFQ 

IE 1 

IE2 

!E^ 

:es 

if ADAPUR 
: F "F U F S D EC 
I? "REG 5« A-)R 
If'REQf'tRFO 

:t "egal 



-00000025 



=00000024 
=00000055 

0000038VR 
Q000O45D-R 

000000' 3-ft 
-000O0C30 
=00000012 

C0000000-XR 
=00000061 
=0000003E 
=0000003' 
=00000040 
=00000041 
-00000069 
=00000067 
=00000066 
=00000068 
--00000065 
=00000064 
^0000006A 

00000361 -ft 



2643 


(6) 


1046 
1079 

1086 

1093 










840 






916 






949 






9S6 






9>„3 


2642 


(6) 


7044 


2659 


C6> 


13H 

7820 


835 


(4) 


1298 


913 


<4> 


1833 
683 


42*. 


i 1 ) 


3109 


2667 


(6) 


1649 


26^4 


(6) 


596 
2937 


2703 


<6> 


205? 


2668 


<6> 


1654 


2669 


(6) 


1657 


26*0 


(6) 


1660 


2671 


<6> 


1663 


27H 


<6> 




270* 


(6) 


876 


2708 


<&> 


1101 


2710 


(6> 


2091 


2707 


x6; 


851 


2706 


C6* 


702? 


^?^2 


(6) 


672 


712 


(4) 


1042 



1147 

1169 
1251 
1286 
^357 

1 482 

1511 

15?1 

1598 

1742 

1769 

1804 

1832 

1357 

1892 

1905 

7914 

1925 

2H8 

2220 

2301 

2323 

493 

558 

622 



£4.) 
<4> 

(4) 
fit) 
(4) 
(4) 
C4J 
(4) 
(4) 
(4) 
(4) 
(5) 

U) 

(5) 
(1) 
(7) 
(5> 
(1) 
(?) 
(5) 
(5) 
<5> 
(5) 
i5) 

(4) 

(4) 

(5) 

(4) 

(4) 

(1) 

U> 

(4) 

(4) 

(4) 

(4) 

(4) 

(5) 

(5) 

(5) 

(5i 

(5) 

<S> 

(S) 

(5) 

(5J 

(5) 

(5) 

(5) 

(5) 

(6) 

<6> 

(6> 

(6) 

(1) 

n) 

<1> 



1047 

1081 

1089 

1095 

841 

91? 

951 

959 

965 

838 

1600 

^509 
516 



1956 
598 
#•294! 
2205 
1961 
1964 
1967 
1970 

878 
869 
2245 
983 



(4) 
(43 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(5) 

(5) 

(V 



(5) 
(1) 
(?) 
(6) 
(5) 
(53 
(5) 
(5) 

(4) 
(4) 
(6) 
(4) 



1049 

1083 

1Q90 

1098 

872 

919 

953 

960 

968 

8?1 

1618 

902 
539 



(4) 
C4> 
(4) 

(4) 
C4) 
(4) 
(4) 
(4) 
C4) 
(4) 
(5) 

(4) 
(1) 



2368 (6^ 



982 



U) 



1076 

1084 

1092 

7 099 

873 

946 

95*; 

962 
969 

914 
1805 



614 



1128 


(4) 


1129 


<4) 


1146 


7154 


(4) 


1155 


(4) 


1168 


1171 


(4) 


1239 


(4) 


1248 


1252 


(4) 


1260 


(4) 


1281 


1289 


(4) 


1 3 *•> '•■ 


(4) 


1353 


139? 


<4> 


1453 


(5) 


1454 


1489 


(5) 


1492 


(5) 


1506 


1535 


(5) 


1546 


(5) 


1554 


1532 


(5) 


1595 


(5) 


1597 


1601 


(5) 


1619 


<5) 


1733 


1745 


(5) 


1751 


(5) 


1752 


1780 


(5) 


1800 


(5) 


1803 


1306 


(5) 


182 1 


<5; 


1830 


1846 


(5) 


1847 


(5) 


1356 


1861 


(5) 


1*69 


(5) 


1870 


1893 


(5) 


'900 


(5) 


1901 


t«06 


(5) 


1910 


(5) 


1911 


?915 


(5J 


1916 


<5> 


1924 


2067 


(5) 


2068 


(5) 


2094 


2H6 


(6) 


2154 


(6) 


2161 


2221 


(6) 


2248 
2516 


(6) 


m 


?W 


(6) 


(6) 


:!48 


(6) 


460 


CD 


w 


* ^ V 


(1) 


557 


(1) 


58' 


( 1) 


5*8 


(1) 


615 


645 


(1) 


665 


(1) 


86J 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 

(5) 



(1) 



(4) 
(4) 
(4) 

(4) 

<;> 

(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5> 
(5) 
(5) 
(6) 
(6) 
(6> 
(1) 
(1) 
(1) 
(4) 



.- : f 

- - 4 

t .fQSS reference 


C r 05S reference 2^" 

DIAGNOSTIC SUPERVISOR COMMAND LINE 


C 16 

•JUL-1984 Ficht 
INTER 27-JUL-1984 15:07 
23-MAY-1984 14:10 


5 f ra/ne 

•02 VAX- 
:24 DMA! 


C16 Seguence 609 

11 Macro VG3-01 Page 156 : 

:[SYS0.SYSMAINTKl!.MAR;279 lit) 










866 


(4) 


870 


(4) 


895 


(4) 


898 


(4) 










901 


(4) 














■ i C*D 


=00000001 


2607 


(6) 


702 


(4) 


752 


(4) 


794 


(4) 


823 

4 4 A ■* 


(4) 


; incomplete 


Q0Q0O379-R 


759 


(4) 


1055 
783 


(4) 
(4> 


1068 
812 


<4> 

(4) 


1079 
851 


(4) 
C4) 


1103 
%72 


(4) 
<4> 


\ 
i 








879 


(4) 


925 


(4) 


938 


<4> 


949 


(4> 


1 








983 


(4) 














INC CMC 


-00000002 


2608 


(6) 


731 


(4) 


764 


(4) 


785 


(4) 


814 


(4) 


in item 


00000000-XR 






3984 


(10) 














INITPCS 


=0000007f 


2733 


t6> 


60< 


(1) 














:nit context 


00000000-XR 






2940 


(7) 














*B CHECK 


0O00O00O-XR 






2491 


.6) 














<b"chec« apt 


00000000-XR 






2471 


(6> 














lA5T 


=00000029 


26^7 


C6> 


1171 


(4) 














LINE COUNT 


OOOOOCOO-XR 






#-2502 


(6) 














LOAD" 


=00000013 


2625 


C6> 


612 


(1 > 












, 


lQNG 


^0000005E 


2700 


(6) 


2059 


(5) 


22V 


<6> 


2375 


(6) 






LOOP 


-00000042 


26/2 


it) 


1666 


i5> 


19?^ 


\5> 










MAPFHfct 


00000000-XR 






30^3 


(7) 














WOFf- 


=0000002C 


2650 


(6) 


1861 


(5) 














MMON 


=00000028 


2649 


(6) 


1858 


(5) 














NEXT 


=00000050 


2686 


(6) 


2068 


(5) 


J221 


C6> 










NEXT INST 


=00000014 


2626 


(6) 


620 


(1) 










* • * % 




NOTNUF 


-00000016 


2628 


*6> 


1025 

1145 


(4) 
(4) 


♦U6 


(4) 
(4) 


1128 
1153 


(4) 
<4) 


1143 
1154 


(4) 

(4) 










1167 


(4) 


1168 


(4) 


1170 


(4) 


1226 


(4) 










^246 


(4) 


1259 


C4^ 


1260 


(4) 


1283 


(4) 










1286 


(4) 


1350 


(4) 


1352 


(4) 


1356 


<4) 










1357 


(4) 


1401 


(4) 


1412 
1499 


(4) 


1434 


(5) 










U82 


(5) 


1489 


(5) 


(5) 


1506 


(5) 










1543 


(5) 


1548 


(5) 


1568 


(5) 


1579 


(5) 










1580 


(5) 


1608 


<5> 


1619 


<5> 


1620 


(5) 










1626 


(5) 


1641 


(5) 


1652 


(5) 


1653 


(5) 










1699 


(5) 


1735 


v5> 


1742 


(5) 


1751 


(5) 










1 7 66 


(5) 


177- 


(51 


1778 


(5) 


1788 


(5) 










1813 


(5) 


18.M 


(5) 


1829 


(5) 


1830 


(5) 










1832 


(5) 


18^5 


<5> 


1855 


(5) 


1857 


(5) 










1868 


(5) 


1869 


^5) 


1884 


<5> 


1885 


(5) 










1892 


(5) 


1900 


(5) 


1905 


(5) 


1910 


(5) 










1915 


(5) 


1924 


(5) 


1945 


(5) 


1959 


(5) 










1960 


*5> 


1973 


<5> 


1974 


(5) 


2002 


(5) 










2025 


(5) 


2067 


<S) 


2094 


(5) 


2185 


(6) 










2220 


<6> 


2248 


<6> 


2397 


(6: 


447 


(1) 










472 


(1) 


4 79 


(1) 


506 
559 


il) 


513 


(1) 










531 


(1) 


548 


(1) 


(1) 


569 
630 


(1) 










570 


(1) 


588 


(1) 


613 


(1) 


(1) 










657 


(1) 


638 


(1) 


640 


(1) 


646 


(1) 










652 
877 


(1) 


681 


(1) 


860 


(4) 


863 


(4) 










(4) 


892 


<4> 


895 


(4) 






Noll 


=00000000 


2606 


<6> 


















OCT 


=00000063 


2705 


(6> 


2075 


(5> 


2228 


C6> 


2382 


(6) 






Of* 


=00000000 


371 


(1) 


















ON 


=30000001 


37t 


<n 


















CPER 

OPTIONAL 


^0000004 3 


2673 


it) 


1670 


(5) 


1978 


(5) 










--00000026 


2644 


(6) 


1298 


(4) 


1509 


(5) 


516 


(1) 


559 


(1) 


P AGE 


=0000005? 


268 7 


:t > 


1553 


f4) 


1871 


15) 










PASS 


=00000050 


2654 


ti> 


1129 


(4) 












i — 
t 



ZZ-ENSAA-7.Q 

Clt 

cross reference 

PREGN 

PROMPT 

QA 

QACL 

QAOEF 

QAEP 

QAMP 
QASL 
QATL 
QA COMMON 



QUICK 
Q_ADAP?ER 

O^GOOD.CMO 

RCLl 

REG12 

REG13 

REGH 

REGIS 

REG16 

REGN 

REGP 

REQUIRED 

RUN 

SCRIPT 

SCRIPTSCONT 

SCRIPTSFLUSH 

SCRIPTSOPEN 
SEARCH 

SECTION 

SELECT 

SELECT QUAIS 

SET 

SETENFORCE 

SETLOAO 

SE TMEM 

SET_CRD DEBUG 

SET CRD TRACE 

SErDEfSuiT PARAflS 

SETFlAGS.lOOP 

SET PARAMS 

SHORE MALL 

SH0MEM8UF 

SWOMEMDAT 

SHOMEMMAP 

SHOW 

SHOWIOAD 

SHOWMEM 

SHOWMfMOR^LAGS 

5HOWMM 

SHOWSECTIONS 



Cross reference 



27-JUL-1984 Fich* 3 Frame D16 Seguence 610 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER f^L-1984 |W:02 ^JJ^^gJSlaCLl.Htt;?^ 



1 57 
(11) 



=0000002E 
=00000044 
=00000031 
=0000004A 
rOOOOOO^E 
=00000049 
=00000040 
=0000004 C 
:0000Q04B 
0000074D-R 



:00000045 
00000000-XR 

00000444-R 
00000002-R 

=00000055 

=00000056 
=00000057 

=00000058 
=00000059 
--00000054 
=0000005A 

=00000027 

=00000017 

=00000018 
00000000-XR 
00000000-XR 
00000000-XR 

=00000046 

=0000002F 

=00000071 
000004 35-R 

^0000001 9 

=00000032 

-00000074 

=000000 7E 

^00000010 

=000000 u 
00000F5F-R 
00000C9F-R 

00000A80-R 
=00000070 
-0000007B 
=0000007C 
=0000007A 
-0000001 A 
=30000075 
^00000079 

00000000-XR 
=00000020 

=00000078 



2652 
2674 
2655 
2680 
2684 
2679 
2683 
2682 
2681 
W4 



383 

2450 

2691 
2692 
2693 
2694 
2695 
2690 
2696 

2645 
2629 
2630 



2676 

2653 

2719 

890 

2631 

2656 

2?22 

2732 

2635 

2634 

2347 

1940 

1732 
2731 
2729 
2730 
2728 
2632 
2723 
2727 



1 W ' • 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(10) 



2675 (6) 



(1) 

(6) 

(6) 
(6) 
(6) 
(6) 
(6> 
<6> 
(6> 

(6) 
(6) 
(6) 



(6) 

(6) 
(6) 

(;> 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6> 
(5) 

(5) 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 



2726 (6) 



2138 

1673 

1136 

1362 

1369 

1376 

1383 

1390 

1397 

#-3651 

#-3661 

#-3671 

1676 
#-2451 
#-4036 

2547 

9-2777 
#-2482 
#-2563 
2102 
2113 
2153 
2124 
2131 
2145 
2103 
2267 
1833 
629 
680 
2851 
2955 
3044 
1679 
1147 
645 
646 
639 
1800 
1831 
1845 
1780 
1769 
1788 
1755 
1923 
640 
1337 
1333 
13^5 
1331 
651 
1321 
1329 

#-2452 
1344 

1421 



(6) 

(5) 

(4) 

(4; 

(4) 

(4) 

(4) 

(4) 

(4) 

(10) 

(10) 

(10) 

(5) 

(6) 

(10) 

(6) 

(7) 

(6) 

(6) 

(6) 

(6) 

(6> 

(6) 

(6) 

(6) 

(6) 

(6) 

(5) 

(1) 

(1) 

(7) 

(7) 

(7) 

(5) 

(4) 

it) 

(1) 

(1) 

(5) 
(5) 
(5) 
(5> 
(5) 
(5) 
(5) 
(5) 
(1) 
(4) 
(4) 
(4) 
(4) 
(1) 
(4) 
(4) 
(6) 
'4) 
(4) 



2292 

1981 



1823 
2003 



(6) 
(5) 



1891 


(5) 


1896 


(5) 


1899 


(5) 


1904 


(3) 


1909 


(5) 


1914 


(5) 


#-3652 


(10) 


#-3662 


(10) 


#-3695 


(10) 


1984 


(5) 


#-3932 


(10) 


#-4037 


(10) 


2558 


(6) 


#-2509 


(6) 


#-2572 


(6) 


2255 


(6) 


2266 


(6) 


2308 


(6) 


2278 


(6) 


228S 


(6) 


2300 


(6) 


2114 


(6) 


2309 


(6) 


614 


(1) 



1987 (5) 



(5) 
(5) 



#•3656 

#-3666 



#-4028 
#-2775 
#•2514 



(10) 
(10) 



(10) 

(?) 

(6) 



#-3657 
#-3667 


(10) 
(10) 


#-4029 


(10) 


#-2776 


(7> 


#-2552 


(6) 



2154 
683 



(6> 
(1) 



2256 

902 



(6) 
(4) 



1837 (5) 



1888 (5) 



4185 (11) 



r 



Z7-ENSAA-7.0 

CLl 

l ross reference 

SHOWSEL 
SHOWSTATUS 
SHOWSUP 
SHOW^CALLS 
SHOW.CRD TRACE 
SHOW PARXMS 

siz.7. 

SSS ENDOFFILE 

staRt 

start and rum 



START RUN QUALIFIERS 

SUBTEST 

SUCCESS 

SUMMARY 

SYSSEXIT 

TEST 

TRACE 

TRUE 

T CONT 

T'CRD TRACE^OUTPUT 

rcneSsGi 

T ILLCHO 
T'ULEfN 
('INCOMPLETE 

r"of F 

ton 

T'PRGERR 
TSHOVMM 
T"USER MOO^ MENU ERROR 

vFRIfY" 

VR ABORT 

VRCLRBRK 
VRCLREF 

VRCLRFLC 

VROEPOSIT 

VREXAMINE 

VRSETBASE 

VRSETBRK 

VRSETOFLT 

VRSETEf 

VRSETFLG 

VRSETMEM 

VRSETQA 

VRSETW10TH 

VRSHOWBASE 

VRSWOW8RK 

VRSHUWOFLT 

VRSHOWEF 

VRSHOWFLG 

VRSHOWQA 

VRSHOWSECTJONS 

VRSHOWSTATUS 

VRSHOWWIDTH 

VRSHOW CALLS 



Cross reference 



611 



E 16 

27-JUL-198A Ficne 3 Frame E16 Sequence 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER JJ^L-jW 15:07:02 ^l^^ 



158 
(11) 



=0000007? 2720 (6) 

=00000077 2725 (6) 

=00000076 272A (6) 

=00000020 2638 (6) 

;0000001F 2637 (6) 

000006A8-R 1223 (A) 

=00000001 366 <!> 
00000000-xR 

:00000021 2639 (6) 

00000509-R 1022 tA) 



000005C5-R 1113 (A) 

=00000024 26A8 (6) 

=00O00COA 2(10 (6) 

=00000022 26A0 <6> 

00000000-XR 

=00000028 2646 (6) 

=00O00OA7 2677 (6) 

=00000001 371 (1) 

00000092-R A09 (1) 

000001 63-R A30 (1) 

000000AB-R 41? (1) 

00000018-R A00 (1) 
00000061 ~R A06 (1) 
0000003A-R A03 (1) 
000000EF-R A21 (D 
OOOOOOEC-R A18 (1) 
OOOOOOOA-R 397 ( 1 ) 
OOOOOODO-R A15 (1) 
000001 29-R A27 (1) 
=0OO00OA8 2678 (6) 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-Xrf 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOQO-XR 
OOOOOOOO-XR 
OOOOOQOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 



1A33 
KA7 
H5A 
1252 
13A8 
65? 
366 
#-2504 
658 
1101 
1148 
630 
1025 
1155 

66S 
2SC6 
1169 
1682 

2850 

3A70 

2958 

A199 

2548 

3729 

2559 

3A65 

3A61 

2740 

A137 

3138 

1685 

2825 

3383 

3325 

2833 

2884 

2915 

3357 

3378 

3422 

3320 

3C13 

4206 

3680 
3634 
3354 
3386 
3418 
3328 
334? 
368a 
4164 
A149 
3637 
3437 



(5) 
(5) 
(5) 
(A) 
(A) 
(1) 
(1) 
(6) 
(1) 
(A) 
(A) 
(1) 
(A) 
(A) 

(1) 

(6) 
(4) 
(5) 

(7) 

(7) 

(7) 

(11) 

(6) 

(10) 

(6) 

(?) 

(7) 

(6) 

(10) 

(7) 

(5) 

(7) 

(7) 

(?) 

(7) 

(?) 

(7) 

(7) 

(?) 

(7) 

(?) 

(?) 

(11) 

(10) 

(10) 

(7) 

(7) 

(?) 

(?) 

(7) 

(10) 

(11) 

(10) 

MO) 

(7) 



1511 (5) 



1120 (4) 
1156 (A) 
659 (1) 



1130 

1172 



(4) 
(4) 



1137 
1192 



(A) 
(4) 



1990 
4090 



4132 
4135 



1993 

3405 



(5) 



(10) 



(10) 

(10) 



(5) 
(?) 



4109 (10) 



4129 (10) 



3A02 (?) 
3705 (10) 



3710 (10) 



ZZ-ENSAA-7.0 

CL1 

cross reference 

VRSTART 

VRSUMMARY 

VRSUPPORT 

WIDE FLAG 

WIDTH 

WORD 

XDELBPT 

XDELTA 

XDELTB1T 



Cross reference 



27-JUL-1984 Fiche 3 Fra*e F16 Sequence 612 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER g^jJJ} iSjfJjg KJ S K«^ 



159 
(11) 



00000000-XR 
00000000-XR 
OOOOOOOO-XR 

oooooooo-xa 

=00000052 
=0000005F 
OOOOOOOO-XR 
=00000068 
OOOOOOOO-XR 



2688 
2701 



(6) 
(6) 



2713 (6) 



3033 
3052 
4157 
#-2904 
1460 
2082 
3974 
673 
3974 



(?) 

(?) 

(11) 

(?) 

(5) 

(5) 

(10) 

(1) 

(10) 



*-2908 
1923 
2235 

*-3976 



(?) 
(5) 
(6) 
(10) 



2389 (6) 



r 16 

77-FNSAA-7 Cross reference 27-JUL-1984 Kche 3 Frame 616 Sequence 613 

&" ",11. " AWOsm SUPewso '' tomAB ° UNE '" n " £»« : ® MS* BKlliWMSBLtij^Br i«> 



♦ -.-— + 

! Macros Cross Reference J 
+ - + 



MACRO SIZE DEFINITION REFERENCES.. 



S'Kl ! S ill ft ill ?& HI i& i« II? «! 

* D5 - CL1 ' 1042 (A) 1044 (4) 1046 (4) 1047 (4) 

1049 (4) 1051 (4) 1052 (4) 1054 (4 

1055 (4) 1057 (4) 1059 (4) 1061 <4 

1062 (4) 1063 (4) 1064 (4) 1065 4 

1067 (4) 1068 (4) 1070 (4) 1071 (4) 

107? (4) 1073 (4) 1074 (4) 1076 (4) 

1077 (4) 1079 (4) 1081 (4) 1083 4 

1084 (4) 1085 (4) 1086 (4) 1087 4 

1089 (4) 1090 (4) 1092 (4) 1093 (4 

1094 (4) 1095 (4) 1096 (4) 1098 (4 

1C99 (4) 1101 (4) 1103 (4) 1119 (4) 

1120 (4) 1127 (4) 1128 <4> 1129 (4) 

1130 (4) 1136 (4) 1137 <4) 1143 (4) 

1145 (4) 1146 (4) 1147 <4) 1H8 <4) 

1153 (4) H54 (4) 1155 <4) 1156 (4) 

1167 (4) 1168 (4) 1169 (4) 1170 (4) 

1171 (4) 11?? (4) 1192 (4) 1224 (4) 

1226 (4) 1232 (4) 1233 (4) 1239 (4) 

1240 (4) 1246 (4) 1247 <4) 1248 <4) 

1249 (4) 1251 (4) 1252 (4) 1253 (4) 

1259 (4) 1260 (4) 1266 (4) 1267 (4) 

1281 (4) 1283 (4) 1235 (4) 1286 (4) 

1287 (4) 1289 (4) 1290 (4) 1292 (4) 

1294 (4) 1295 (4) 129? (4) 1298 (4) 

1305 (4) 1306 <4) 130? (4) 1308 (4) 

1314 (4) 1315 (4) 1321 (4) 1322 (4) 

1328 (4) 1329 (4) 1330 (4) 1331 (4) 

1332 (4) 1333 (4) 1334 (4) 1335 (4) 

1336 <4) 1337 (4) 1338 (4) 1344 (4) 

1345 (4) 1352 (4) 1353 (4) 1354 (4) 

1356 (4) 135? (4) 1362 (4) 1363 (4) 

1369 (4) 1370 (4) 1376 (4) 1377 (4) 

1383 (4) 1384 (4) 1390 (4) 1391 < > 

1397 (4) 1398 (4) 1401 (4) 1412 (4) 

1413 (4) 1419 (4) 1421 (4) 1422 (4) 

1431 (5) 1433 (5) 1434 (5) 1436 (5) 

1437 (5) 1439 (5) 144? (5) 1448 (5) 

1454 (5) 1455 (5) 1460 (5) 1461 (5) 

1482 (5) 1488 (5) 1489 (5) 1490 (5) 

1492 (5) 1493 (5) 1495 (5) 1497 (5) 

1499 (5) 1500 (5) 1506 <5) 1508 (5) 

1509 (5) 1511 (5) 1512 (5) 1535 (5) 

1543 (5) 1545 (5) 1546 (5) 1548 (5) 

1549 (5) 1550 (5) 1552 (5) 1554 (5) 



77-FNSAA-7 Cross reference 27-JUL-1984 Fiche 3 frame H]6 Sequence 614 

StL ",Ile t " 4GN0S,lc SUPS '' V1S '" , """'"' LM "" ES SaKtfR ftffiS tftl&mSicu.m.Sft' !fl> 

111? if! HR !» !|| []! lift {{| 

1580 (5) 1581 (5) 1582 5 583 5 

1593 (5) 1594 (5) 1595 (5 596 5 

159? (5) 1598 (5) 1600 (5) 1601 5 

1603 (5) 1605 (5) 1607 (5) 1608 5 

1610 (5) 1618 (5) 1619 (5) 620 5 

1626 (5) 1638 (5) 1639 (5 641 5 

1643 (5) 1644 (5) 16«6 <5) 1647 5) 

649 (5) 1650 <5> 1652 (5) 1653 5 

1654 (5) 1655 (5) 1657 (5) 1658 5 

1660 (5) 1661 (5) 1663 (5) 1664 (5> 

1666 (5) 1667 (5) 1670 (5) 1671 5 

1673 (5) 1674 (5) 1676 (5) 1677 5 

1679 (5) 1680 (5) 1682 (5) 1683 5 

1685 (5) 1686 (5) 1699 (5) 1700 (5) 

702 5) 1733 (5) 1735 (5) 1741 (5) 

1742 (5) 1743 (5) 1744 (5) 1750 (5) 

1751 (5) 1752 (5) 1753 (5) 1755 5 

1765 (5) 1766 (5) 1767 (5) 1769 (5) 

770 5 177? (5) 1778 <5> 1779 (5) 

1780 (5) 1781 (5) 17&7 (5) 1788 (5 

1798 (5) 1799 (5) 1800 (5) 801 5 

1803 (5) 1804 (5) 1805 (5) 1806 5 

1808 (5) 1810 (5) 1812 (5) 1813 <5> 

1814 (5) 1820 (5) 1821 (5) 1823 (5) 

1829 (5) 1830 (5) 1831 (5) 1832 (5) 

1833 (5) 1835 (5) 183? (5) 1843 (5) 



(5) 


1557 


(5) 


1571 


(5) 


1581 


(5) 


1594 


(5) 


1598 


(5) 


1605 


(5) 


1618 


(5) 


1638 


(5) 


1644 


(5) 


1650 


(5) 


1655 


(5) 


1661 


(5) 


1667 


(5) 


1674 


(5) 


1680 


(5) 


1686 


(5) 


1733 


(5) 


1743 


(5) 


1752 


(5) 


1766 
1777 


(5) 


(5) 


1781 


(5) 


1799 


(5) 


1804 


(5) 


1810 


(5) 


1820 


(5) 


1830 


(5) 


1835 


(5) 


1846 


(5) 


1856 


(5) 


1861 


(5) 


1870 
1885 


(5) 


(5) 


1892 


(5) 


1897 


(5) 


1902 


(5) 


1907 


(5) 


1912 


f5) 


1917 


<5> 


1926 


(5) 


1947 


(5) 


1953 


(5) 


1959 


(5) 


1964 
1970 
1975 


(5) 


(5) 


(5) 


1981 


(5) 


1987 


(5) 


1993 


(5) 


|8§| 


(5) 


(5) 


205c 


(5) 


2066 


(S) 


2075 


(5) 


2091 


(6) 


2104 


(6) 


2115 



1845 (5) 1846 (5) 1847 <5) 1848 (5) 

855 5) 1856 (5) 1857 (5) 1858 (5> 

1859 (5) 1861 <5) 1862 (5) 1868 (5 

1869 (5) 1870 (5) 1871 (5) 1872 (5) 

1884 (5) 1885 (5) 1886 (5) 1888 (5) 

1891 (5) 1892 (5) 1893 (5) 1894 (5) 

1896 (5) 1897 (5) 1899 (5) 1900 (5) 

1901 (5) 1902 (5) 1904 (5) 1905 (5) 

1906 (5) 1907 (5) 1909 (5) 1910 (5) 

1911 (5) 1912 <5) 1914 (5) 1915 (5) 

1916 f5> 1917 (5) 1923 (5) 1924 (5) 

1925 <S> 1926 (5) 1942 (5) 1943 (5 

1945 (5) 1947 (5) 1 948 (5) 1950 (5) 

1951 (5) 1953 (5) 1954 (5) 1956 (5) 

1957 <5) 1959 (5) I960 (5) 1961 (5) 

1962 (5) 1964 (5) 1965 (5) 1967 (5) 

1968 (5) 1970 (5) 1971 (5) 1973 (5) 

1974 (5) 1975 (5) 1976 (5) 1978 (5) 

1979 (5) 1981 (5) 1982 (5) 1984 <5) 

1985 (5) 1987 (5) 1988 (5) 1990 (5) 

1991 (5) 1993 (5) 1994 (5) 2002 (5) 

2003 (5) 2005 (5) 2025 (5) 2031 (5) 

2032 (5) 2038 (5) 2039 (5) 2045 <5> 

2046 (5) 2052 (5) 2053 (5) 2059 (5) 

2060 (5) 2066 (5) 2067 (5) 2068 C5) 

20d? (5) 2075 (5) 2076 (5) 2082 (5) 

2083 (5) 2091 (5) 2094 (5) 2102 (6) 

2103 (6) 2104 (6) 2106 (6) 2113 (6) 

2114 (6) 2115 (6) 2117 (6) 2123 (6) 



ZZ-ENSAA-7.G 

a i 

Cross reference 



Cross reference 



DIAGNOSTIC SUPERVISOR COMMAND 



I 16 

27-JUL-1984 
LINE INTER 27-JUL- 
23-MAY- 



Fiche 3 frame 116 Sequence 615 
•1984 15:07:02 VAX-11 Macro V03-01 Pa 
•1984 14:10:24 DMA1 : CSYSO. SYSMAINT3CL I .MAR;27 



162 
(11) 



2124 

2138 

2147 

2161 

2191 

2205 

2219 

2228 

2245 

2257 

2268 

2279 

2293 

2308 

2322 

2348 

2362 

2376 

2390 

445 

460 

479 

493 

514 

519 

523 

537 

541 

552 

570 

581 

596 

605 

614 

623 

638 

646 

659 

673 

683 

699 

735 

752 

785 

792 

814 

821 

840 

845 

852 

870 
874 
878 
895 
901 
917 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(1) 
(1) 
(1) 
(1) 
(1) 

m 

d) 
d) 
(D 
d) 
d) 
(D 
d) 
(i) 
d) 
d) 
(i) 
(i) 
(D 
(i) 
(D 

(4> 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
<4) 
(4) 
(4) 
(4) 
(4) 
(4) 



2125 

2139 

2153 

2162 

2192 

2206 

2220 

2229 

2248 

2259 

2270 

2285 

2300 

2309 

2323 

2354 

2368 

2382 

2397 

447 

461 

485 

506 

515 

520 

524 

53G 

547 

558 

571 

587 

597 

606 

620 

629 

639 

651 

665 

674 

692 

702 

736 

764 

787 

794 

816 

823 

841 

847 

860 

( 6 

879 
896 

902 
919 



» 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6) 

(6; 

<6> 
(6) 

<6> 

(6) 

(6) 

(6) 

(6) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 



2131 

2145 

2154 

2168 

2198 

2212 

2221 

2235 

2255 

2266 

2V? 

2286 

2301 

2310 

2324 

2S55 

2369 

2383 

2398 

453 

472 

486 

512 

516 

521 

530 

539 

548 

559 

577 

588 

598 

612 

621 

630 

640 

652 

666 

680 

693 

705 

743 

788 
811 
817 
836 
842 
849 
862 
867 
872 
876 
892 
898 
914 

921 



(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

il) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 



2132 

2146 

2155 

2185 

2199 

2213 

2222 

2236 

2256 

2267 

2278 

2292 

2302 

2316 

2330 

2361 

2375 

2389 

2404 

454 

478 

492 

513 

518 

522 

531 

540 

550 

569 

579 

595 

599 

613 

622 

637 

645 

658 

672 

681 

696 

731 

745 

783 

790 

838 
843 
851 
863 
869 



(6) 
(6) 
(6) 
(6) 

(6) 

(6) 

'6> 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(4) 

<4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 



ZZ-ENSAA-7.Q 

CLI 

tross reference 



Cross reference 



DIAGNOSTIC SUPERVISOR COMMAND 



J 16 

27-JUL-1984 
LINE INTER 27-JUL 
23-MAY- 



Ffche 3 Frame J16 „ Seguence 616 

•1984 15:07:02 VAX-11 Macro V03-0T Page 163 

►1984 14:10:24 DMA1 :[SYS0.SYSMAINT]CLI.MAR;279 (11) 



SDS^CLIDEF 

$DS DSADEF 

SDS~DSDEF 

SDSlTYPEDEF 

$EQ0 

SEQULS1 

SEQULST 

$EXIT S 
SGBLlRl 

SIPLDEF 

SPRDEF 

$PMNT 

SPSLDEF 

SPUSHADR 

SVIELD 

SV1ELD1 

BR IF CRD AUTOTEST^OFF 

BR"IF~CRD"MENUTEST.0FF 

BR~IF"*CRD MENUTESTJ3N 

BR'IF^NOT^APT 

BRllF^NOTJJSER 

BR IF USER 
CASE " 
CASEDEF 



1 
5 
2 
4 
1 
1 
1 
1 
2 

1 
4 
2 



362 

363 

364 

370 

371 

371 

362 

2506 

362 

367 
368 
2478 

369 
2740 

371 

2486 

2487 

2488 

2468 

2957 

3072 
3118 
352 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(6) 
(1) 

(1) 
(1) 
(6) 

(1) 
(6) 

(1) 
(6) 
(6) 
(6) 
(6) 
(?) 

(7) 

(?) 
(1) 



924 

931 

935 

941 

946 

953 

957 

963 

968 

985 

362 

363 

364 

370 

362 

362 

362 

2506 

362 

371 

367 

368 

2478 

3467 

369 

2740 

366 

366 

2486 

2487 

2488 

2468 

2957 

4197 

3072 

3118 

2606 

2610 

2614 

2618 

2622 

2626 

2630 

2634 

$638 

2642 

2646 

2650 

2654 

2658 

2662 

266 

267 

2674 

2678 

2682 

2686 



(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(6) 

(1) 

(1) 

(1) 

(1) 

(6) 

(?) 

(1) 

(6) 

(1) 

(1) 

(6) 

(6) 

(6) 

(6) 

(?) 

(11) 

(?) 

(?) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 



925 
932 
937 
942 
947 
954 
959 
964 
969 



364 
364 

364 

364 



2847 
4127 



3065 
3063 
3064 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 



(1) 
(1) 
(1) 

(1) 



(?) 
(10) 



(?) 
(?) 
(?) 



4089 (10) 

3122 (?) 

2607 (6) 

2611 (6) 

2615 (6) 

2619 (6) 

2623 (6) 

2627 (6) 

2631 (6) 

2635 (6) 

39 (6) 

43 (6) 

47 (6) 

51 (6) 

55 (6) 

59 (6) 

63 (6) 

67 (6) 

71 (6) 

75 (6) 

79 (6) 

83 (6) 

87 (6) 



927 
933 
938 
943 
949 
955 
960 
965 
982 



370 
370 
370 

366 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 



(1) 
(1) 
(1) 

(1) 



3107 (?) 



4108 (10) 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

it! 

(6) 
(6) 
(6) 
(6) 
(6) 



929 
934 
940 
944 
951 
956 
962 
966 
983 



371 
371 
371 

370 



2609 
2613 
2617 
2621 
2625 
2629 
2633 
2637 
2641 
2645 
2649 
2653 
2657 
2661 
2665 
2669 

2 67 5 
2677 

2681 

2685 

2689 



(4) 
(4: 
(4) 
(4) 
(4) 
(4) 
(4) 
'4) 
(4) 



(1) 
(1) 

(1) 

(1) 



3136 (?) 



4126 (10) 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6> 



ZZ-ENSAA-7,0 

CL1 

Cross reference 



Cross reference 



DIAGNOSTIC SUPERVISOR COMMAND 



27- 

LINE 



K 16 

•JUL-1984 Fiche 3 Frame K16 Seguence 
INTER 27-JUL-1984 15:07:02 VAX-11 -aero V03-0T 
23-MAY-1984 14:10:24 DMA1 :CSYSO.SYSMAINT 



617 



CLEAR.CTRLC 

CLEAR CTRLO 

CLIDEF 

DSFDEF 

ERRSUP^S 

MODNAM 

SET CRD AUTOTEST_OFF 

SET'CRDZMENUTEST^OFF 



24^ 

24?: 

365 

366 

2740 

395 

3128 

3124 



(6) 
(6) 
(1) 
(1) 
(6) 
(1) 
(7) 
(7) 



2690 
2694 
2698 
2702 
2706 
2710 
2714 
2718 
2722 

2730 

2734 

2494 

2477 

365 

366 

2740 

395 

3128 

3124 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(1) 
(1) 
(6) 
(1) 
(7) 
(?) 



2691 

2695 

2699 
2703 
2707 
2711 
2715 
2719 
2723 
2727 
2731 



(6) 


2692 


(6) 


(6) 


2696 


(6) 


(6) 


2700 


(6) 


(6) 


2704 


(6) 


(6) 


2708 


(6) 


(6) 


2712 


(6) 


(6) 


2716 


(6) 


(6) 


2720 


(6) 


(6) 


2724 


(6) 


(6) 


2728 


(6) 


(6) 


2732 


(6) 



LI, MAR 


Page 
;279 


164 
(11) 


2693 


(6) 




2697 


<6> 




2701 


(6) 




2705 


(6) 




2709 


(6) 




2713 


(6) 




2717 


(6) 




2721 


(6) 




2725 


(6) 




2729 


(6) 




2733 


(6) 





3126 (7) 



! Performance 
+ „ , 



indicators 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time Elapsed Time 



32 

141 

2292 

2 

1335 

82 

8 

549 

4446 



00:00 
00:00 
00:01 
00 .'00 
00:00 
00:00 
00:00 
00:00 
00:01 



: 00.12 

:00.70 
:04,46 
:01,87 
:12,90 
:00,52 
:00.04 
:10.21 
:30.82 



00:00 
00:00 
00:01 
00:00 
00:00 
00:00 
00:00 
00:00 
00:01 



:00,23 
:01.5S 
:22.8Q 
:02. 27 
:18.28 
:00.87 
:00.04 
:12.19 
:58,24 



The working set limit was 1000 pages. 

345368 bytes (675 pages; of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 829 non-local and 433 local symbols. 

4209 source lines were read in Pass 1 # producing object records in Pass 2. 

113 pages of virtual memory were used to define 37 macros. 



77-FNSAA-7 Cross reference 27-JUL-1984 Ffche 3 Frame Li 6 Sequence 618 

CU DIAGNOSTIC SUPERVISOR COMMAND LINE INTER ft-JUL-IW 15:07:02 VAX-11 Macro V03;0j Paoe 165 

vaJ-.ii Map™ Pi in <^»H«iHr* 23-MAY-1984 14:10:24 DMA1 JLSYSO.SYSMAINTJCLI.MAR;Zrv (iu 



! Macro library statistics ! 
+ — ♦ 



Macro library name Macros defined 



DRB1:CDS.WORK]DIAG.MLB:955 7 
DRB1:CDS.W0RK]DS,MLB;218 ' 15 

DRB1:CDS.WOROCRD.MIB;12 } 

SYS$SYSR00T:CSYSLIB]LIB.MLB:1 1 

DMA1:CSYSO.SYSMAINT]DS.MLB;218 ^ 

DMA1 :CSYS0.SYSMAINTDD1AG.MLB;953 

SYSSSYSR00T:CSYSLIB]LIB.MLB;1 

SYSSSYSR00T:CSYSLIB]$TARLET,MLB;2 9 

TOTALS (all libraries) 33 

673 GETS were required to define 33 macros. 

There were no errors, warnings or information messages, 

KACRO/N00BJECT/LIST=[DS,US]/CROSS/ENABLE=(DEBU6JRACE) CLI/UPDA=(CLI.UPD,CLI.ENH)*SYS$LIBRARY:LIB/L1BRARV*DMA1sCSYS0.SVSMA1NT]DIA6/, 



B 1 

I 1 

1 
E 1 
f 1 
G 1 
H 1 

1 1 
J 1 
K 
L 



1 
1 
M 1 

N 1 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

H 

N 

B 

C 



E 

F 

G 

H 

I 

J 

K 

I 

M 

N 

B 

C 

D 

E 

F 

G 
H 
I 
J 
K 
L 
M 
N 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



B 5 

C 5 

D 5 

E 5 

F 5 

G 5 

H 5 

1 5 



SSETMAP CALL 
SSETMAP CALL 
DSPfcSHOWMBA 
DSPSSHOWUBI 
SSHOUCHAN CALL 
SHOW UBI STATUS 
SHOWBITS 
DETERMINE 
DETERMINE 
DETERMINE 
DETERMINE 
BUILD THE 



L 5 
M S 



ADAPTER 

GENERAL 

ADAPTER 

ADAPTER 

CHANNEL 
SET ADAPTER VECTOR(S) 
CLEAR ADAPTER VECTOR(S) 
INTERRUPT PRE-PROCESS 
INTERRUPT PRE-PROCESS 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
*** CHMK Change mode to 
**+ CHMK Change mode to 



SPECIFIC STA 
ADAPTER STAT 
HARDWARE ERR 
HARDWARE ERR 
DATA BLOCK 



kernel 
kernel 



DECLARATIONS 

CHANGE MODE TO KERNEL ROUTINE 

CHANGE MODE TO KERNEL ROUTINE 

ASTEXIT SYSTEM SERVICE 

Local intermediate dispatches 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 
SUPERVISOR COMMAND 



DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
Libraries, 
Work Psect 
Data Psect 
Data Psect 



Macros, 
Storage 
Storage 
Storage 



Equated Sym 



N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 



L 
M 



Commands A-C 

Commands A-C 

Directory, Deattach, Deselect, 

Directory, Deattach, Deselect, 



C 
D 
E 
F 
G 
H 
I 
J 

K 
L 
M 
N 



5 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

6 



C 8 

D 8 

E 8 

F 8 

G 8 

H 8 

I 8 

J 8 

K 8 



N 8 

B 9 



9 

9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 



Commands Exit, Examine 
Help, InitPCS, Load, Next, Run 
Commands Set, Select, Show, St 
End of Line Processing 
End of Line Processing 
End of Line Processing 
Illegal Command Processing 
Incomplete Command Processing 
Bad List Processing 
Bad Qualifier Processing 
Get Generic Device Name 
Deattach Processing 
Deselect and Select Processing 
Get a File Specification 
File Specification 
and Run Processing 
Processing 
Processing 
Qualifiers 
Qualifiers 
and Qualifiers 
and Qualifiers 



Get a 

Start 

Start 

Start 

Start 

Start 

Show 

Show 

Show 

Show 

Show 

Show 

Show 

Show 

Show 

Clear 

Clear 

Clear 

Clear 

Clear 

Clear 

Set 

Set 

Set 

Set 

Set 

Set 

Set 

Set 

Set 

Set 



and Run 
and Run 
and Run 
and Run 
Parameters 
Parameters 



B 10 
C 10 
D 10 



Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Parameters and 
Examine Qualifiers 
Examine Qualifiers 
Examine Qualifiers 
Examine Qualifiers 
Examine Qualifiers 
Examine Qualifiers 
Deposit Parameters 
Deposit Parameters 
Deposit Parameters 
Deposit Parameters 
Deposit Parameters 
Set Default Parameters 
Set Default Parameters 
Set Default Parameters 
DSSCU Routine - Command Line 



Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifier 
Qualifier 
Qualifier 
Qualifier 
Qualifier 
Qualifier 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
Qualifiers 
and Paramet 
Paramet 
Paramot 
Paramet 
Paramet 
Paramet 
Qualifi 
Qualifi 
Qualifi 
Qualifi 
Qualifi 



and 
and 
and 
and 
and 
and 
and 
and 
and 
and 



E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 

13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
iA 
1A 
1A 



DSSCli Routine - Command Line 

DSSCli Routine - Command Line 

DS$Cli Routine - Command Line 

CLI Action Routines. 

CLJ Action Routines. 

CLI Action Routines. 

CLI Action Routines. 

Null and Context-Saving Action 
Context-Saving Action 
Failure, Notnuf, Enut 
A~C Action Routines 
Action Routines 
Action Routines 
Action Routines 
Action Routines 
Action Routines 



D-E 
D-E 
H-R 
H-R 
S-Z 



Null and 

Success, 

Commands 

Commands 

Commands 

Commands 

Commands 

Commands 

CRD command 

CRD command 

Filespec, Optional, Required A 

Start and Run Qualifier Action 

Start and Run Qualifier Action 

Event and Flags Action Routine 

Base, Address, Break Action Ro 

All, Default Action Routines 

Show Calls Routine ; C703 

CRDTrace Action Routines ; C 

Bell, Binary, Halt, IEx Action 

Bell, Binary, Halt, IEx Action 

Bell, Binary, Halt, IEx Action 

Bell, Binary, Halt, IEx Action 

Loop, Oper, Prompt Quick Actio 

Search, Trace, Verify Action R 

Set/Show Page, Width Action Ro 

Set/Show QA Action Routines 

QADef Action Routine 

Efn. Next, Ascii Action Rout in 

Register Action Routines 

Backup, Advance, Data Action R 

Long, Word, Byte, Hex, Dec, Oc 

IF Actiun Routines 

IF Action Routines 

IF Action Routines 

Xdelta Action Routines 

Device, Brief, Adaptor Action 

Show Select, Do,Cmd, Set Load, 

MM On, Off, and Show Action Ro 

MM 0n x Off, and Show Action Ro 

Show Status, Shew Support 

Show Status, Show Support 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 



M H Cross reference 

N H Cross reference 

6 15 Cross reference 

C 15 Cross reference 

D 15 Cross reference 

E 15 Cross reference 

F 15 Cross reference 

G 15 Cross reference 

H 15 Cross reference 

1 15 Cross reference 

J 15 Cross reference 

K 15 Cross rererence 

L 15 Cross reference 

M 15 Cross reference 

N 15 Cross reference 

B 16 Cross reference 

C 16 Cross reference 

16 Cross reference 
E 16 Cross reference 
F 16 Cross reference 
G 16 Cross reference 
H 16 Cross reference 

1 16 Cross reference 
J 16 Cross reference 
K 16 Cross reference 
L 16 Cross reference 



ZZ-ENSAA-7.0 

CLOCK 

r able of contents 

H\ 
279 
315 
320 
363 
397 
478 
570 
627 
69A 
772 
862 
923 
) 1045 



INTERVAL TIMER 



ROUTINES. 
INTERVAL 



TIMER ROUTINES. 



B 1 

27-JUL-1984 Fiche 4 Frame B1 

27-JUL-1984 15:09:02 VAX-11 Macro 



Sequence 619 
V03-01 Page 



Macros and Equa 
Work Psect Dec L 
Data Psect Dec I 
DSSCanWait - 
SWAKE - Wakeup 
DSX$WaitMS - 
DSX$WaitUC - 
EXESHIBER - 
EXESCANTIM - 
DSRSSETIMRJNI 
EXESSetimr - 
DSISTimSrv - 
DSISTIMER - 
CLK$RE_INIT - 



ted Symbols 

arations 

arations 

CANCEL DELAY ROUTINE 
from hibernate 

MILLISECOND DELAY ROUTINE 

MICROSECOND DELAY ROUTINE 

HIBERNATE SYSTEM SERVICE ROUTINE. 

CANCEL TIMER SYSTEM SERVICE. 

SET TIMER QUEUE INITIALIZATION 

SET TIMER SYSTEM SERVICE. 

INTERVAL TIMER INTERRUPT SERVICE ROUTINE. 

Level 7 timer interrupt service 

SYSTEM TJMER INITIALIZATION SUBROUTINE 



Z7-ENSAA' 

CLOCK 

07-30 



•7.0 INTERVAL TIMER ROUTINES. 

INTERVAL TIMER ROUTINES. 



C 1 
27-JUL-1984 



7-JUL-1984 
'3-MAY-1984 



Fiche 4 Frame C1 



Seguence 620 
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10-N0V-77 



VERSION 01. 
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KEN CHAPMAN 30-NOV-77 VERSION 02 
FIXED SDS WAITMS L TO WAKE IN USER MODE. (DSPR #65) 
CHANGED I3ETIMR TO RETURN A WARNING IF IPL IS TOO HIGH. 
(DSPR #53). 

TOM SOUTTER 22-FEB-78 VERSION 03 

INSTALLED EXE$GLJ\BSTIM (NON- FUNCTIONAL) 

TOM SOUTTER 2-MAR-78 

CONVERTED SETIMR I TIMSRV ROUTINES TO USE VMS ASTDEL 

TOM SOUTTER 23-MAP-78 

TURN ON SYSTEM REAL TIME USING INTERVAL 

ROGFR RIGGS 03-APR-78 

MODIFIED SETIMR TO QUE LONG REQUESTS SO 

THE CLOCK CAN BE USED FOR QIO WATCH DOG 

Fixed DSRSSETIMR INI to release buffers 

NICK HOWGATE 06-DEC-78 VERSION 

EMULATE T QUEUE' INSTRUCTIONS 

COPY REQIDT *0 ASTPRM IN SETIMR 

AND FIX CANTIM TO BE ABLE TO CANCEL SPECIFIC TIMERS 

Fix residual time in WAITMS to return correct value 

Roger Riggs 11-Jun-1979 

Revamped rimer interrupt service to fix bug caused 

by lowering JPL from 18 to 7 in calling SCHSQAST 

when delivering timer requests. Also EaEJSETJMR 
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was affected, since the queue is now sorted by completion 

time 

Roger Riggs 20-NOV-1979 

Remove W* from several references 

Roger Riggs, 24~Jan~1980, Version 5.2 

Removed trrsup after clock overflow in WAITUS, since 

it is unnecessary and means that we loaded the clock 

with a value that will overflow before we can check it. 

Also added DS$GK_US0VR, used by WAITUS and defined 

in 0NLY7xx for each processor, Expermentially determined 

to produce an accuracy of about 1*. 

Also added clear of overflow bit to clock interrupt service 

Roger Riggs, 27-Feb-1980 

Changed DSBINT to SETJPLW18) before removing entries from 

timer queue. Also restore IPL before continuing. 

Assured that 8oth SETIMR and CANTIM are executed in KERNEL mode 

Roger Riggs, 22-iuly-1980, Version 5.5 

Moved EXESGL.ABSTIM to ENTRY, 

Dave Butenhof, 16-oct-1980, version 6.1 

Move EXE$GQ_SYSTIME to entry, to make it accessible to drivers. 

Dave Butenhof, 18-feb-1981, version 6.3 

Delete SEP psect. 

Dave Butenhof, 25-feb-1981 , version 6.3 

Fix problem found in queue handling, REMQUE/INSQUE instructs 

had been emulated. Restore the queue instructions. 

Fix WAITUS bug (Tom Kraus generated fix). 

- Dave Butenhof, 26-Feb-1982, version 6.6 

Add special code in WAITUS for Nebula... use interrupt 
instead of polling. 

- Jack Stansbury, 26-Feb-1982, Version 6.6 

Added .LIBRARY statements for $DS, $DIAG, and SUB. 

Jack Stansbury, 15-September-1982, Version 6.9 
Changed ICCS$M„ERA from 31 to 15. Also added code in DSISTimSrv 
routine that will not reset the interval timer if the SetVec routine 
is currently trying to stop the interval timer. 



Jock Stansbury, 16-Sepf nber-1982. 
Changed the ICCSIMJRR bit back to 
is wrong in its picture of the 



Version 6 9 
#15. The VAX 
ICCS in the back 



Hardware Handbook 
of the book. 



Marion Baggett, 24~Sept-1982, Version 6,9 

Changed the entry mask in DSXSWAITUS to not save R2, R3. These regis 

are not changed, and the extra time for CAllx to save them should be 

Bob Bergazzi 21-0ct~1982 Version 6.9 

Changed DSJITIMSRV to clear the interrupt when the 

DS$GB T Stopping.The Timer flag is set. Otherwise we get stuck 

in a loop of continuous interrupts. 

Bob Bergazzi 25-Apri 1*1983 Version 6.11 
Added global symbol DSXSWAITUS US0VR to the instruction in the 
DSX$WAlTUS routine which computes the interval clock count, 
so that we can reference it from KERNEL and change the value 
of the clock routine overhead factor (DS$GK„US0VR), 
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if we are running on a SUPERSTAR processor. This is done from 
KERNEL during the BOOT procedure so that we don't add any more 
instructions to the DSX$WA1TUS routine, which would change the 
value of the overhead factor for the existing processors. 
I.e. The code in KERNEL is modifying the instruction at 
DSX5WAITUS..US0VR. 

Bob Bergazzi May 16*1983 Version 6.11 
Changed the order of the .LIB statements. 

Richard Brown August 4, 1983 Version 6.13 
Corrected bug in DSXSCANWAIT. If this service was called 
to cancel a $DS_WAITMS, it did not remove the entry from the 
timer queue* so the AST was still being delivered. Therefore, 
the SSETIMR call in DSXSWAITMS was changed so that a request 
ID is specified (-1). DSXSCANWAIT was changed so that it 
issues a SCANTJM to kill all timer requests with an ID of -1. 

R.E.Muse 10 January 1984 version 6,14 
added PRDEF macro definition - Version 4 changes. 



Bob Bergazzi Jan, 26, 1984 
Changed CLK$RE INIT routine to 
does cpu-specinc stuff to the 



Version 6.14 
call 0NLY..CLOCKJNIT which 
TODR, 
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♦S8TTL Macros and Equated Symbols 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 
.LIBRARY 



/SYSSLIBRARY:LIB/ 

/$DS/ 

/$DIA6/ 



L271 
1271 
L271 



MACROS 



.MACRO SPRDEF,$GBL 
SDEFINI PR,SG8L 



SEQU PR$J<SP 

$EQU PRS ESP 1 

SEQU PRSISSP 2 

SEQU PRSJJSP 3 

SEQU PRSIISP 4 

SEQU PRSJ>QBR 

SEQU PRSJ>0LR 

SEQU PR$ P1BR 

SEQU PRSJMLR 

SEQU PR$_SRR 12 

SEQU PRSJLR 13 

SEQU PR$_PCBB 

SEQU PRS.SCBB 

SEQU PRSJPL 18 

SEQU PRSJ\STLVL 

SEQU PRS.SIRR 

SEQU PRSJISR 

SEQU PRSJCCS 

SEQU PRSJMCR 

SEQU PRSJCtf 26 

SEQU PRSJODR 

SEQU PRS RXCS 

SEQU PRS RXDB 

SEQU PR$_TXCS 

SEQU PRSJXDB 

SEQU PRS_ACCS 

SEQU PRS..ACCR 

SEQU PRSJ1APEN 

SEQU PR$J8'A 

SEQU PRSJ8IS 

SEQU PRSJW 61 

SEQU PRSISID 62 

SEQU PRSlTBCHK 

SEQU PRSV.SID.SN 

SEQU PRSS'SID^SN 

SEQU PRSV^SID^PL 

SEQU PRSS.SID.PL 

SEQU PRSV^SID^ECO 

SEQU PRSSlSIDlECO 

SEQU PRSV SID TYPE 

SEQU PRSS.SIOlTYPE 
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PRS SID TYP780 1 

PRSlSID2iYP750 2 

PRS SID.TYP730 3 

PRSJID TYP7VV 4 

PRS.SID^TYPMAX 4 

PRSJJCS* 44 

PRS.WCSD 45 

PRS.SBIFS 48 

PRS..SBIS 49 

PRS„S8ISC 50 

PRSIS8IMT 51 

PRS"SBIER 52 

PRS^SBITA 53 

PRS„SBIQC 54 

PRS^CMIERR 23 

PRS_CSRS 28 

PRS„CSRD 29 

PRSlCSTS 30 

PRS_CSTD 31 

PF1SJBDR 36 

PRSlCADR 37 

PRSlMCESR 38 

PRS^CAER 39 

PRSlUBRESET 55 

PRS PAMACC 64 

PRS.PAMLOC 65 

PRS~CSWP 66 

PRS.CRBT 6? 

PRSZMCTL1 68 

PRSIMCTL2 69 

PRS>GEN 70 

PRS^MBER 71 

PRS~MEAR 72 

PRS MDCR1 7? 

PRS^MEDR 74 

PRS^MECCR 75 

SDEFEND PR,SGBl,DEF 

,ENDM SPRDEF 
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SGEWIMDEF 

SDDBDEF 

SDS.DSADEF 

SDS~DSDEF 

SOYfJOEF 

SIPLDEF 

SPRDEF 

SDS SCBDEF 

SSSDEF 

SPSLDEF 

SSETJMRDEF 
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$ds waitus.def 
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DSFDEF 
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ICCS$M,RESET = <ICCS$MJRR ! JCCS$M_JNT ! ICCSSMJE ! ICCS$M_RUN> 
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TICK„US 
TICK~NS 
SEC.TJCK 

CLOCKJPL 



= 1 3 28 

« 10000 
* TICK US*10 
5= 1OOO00O/TJCK_US 

= 24 



MICROSECONDS PER TICK 
100NS UNITS PER TICK 
TICKS PER SECOND 
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284 DSSGLJIMQFL: 

285 .LONG 

286 .LONG 
237 

288 DS$GQ CURYEAR;; 

289 ,8LKQ 

291 DS$GT_NEWYEAR:: 

292 .ASCII 



•PSECT Work, NoShr- NoExe, wrt. Long 
.S6TTL Work Psect Declarations 
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DS$GL w ,WL 
DSSGL. <QFL 
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;QUEUE HEADER FOR LONG SETIMR REQUESTS 



\01-JAN-1978 0:0:0. 0\ 



DStK_NYSIZ =s • -DSSGTJYEWYEAR 



ONESECTJfo: 

.LONG 
.WORD 
.BYTE 
.BYTE 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
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TQESC SSREPT 

QNEjECOND 
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F Link and Blink 
Length *0 

Type of data struncture 
Request type*repeat 
Address of once/sec routine 
Unused longwords 
Initial expiration time 
Delta time*! second 
Final unused 



WAITMS ARGS: 

SSETIMR DAYTlM«MSrME, A:TADR=DS$CANWAIT, - 
REQIDT=-1 
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MSTIME: 



,8LKL 2 
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0068 315 .S8TTL 
00000000 316 .PSECT 
U000 
0000 
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Data Psect 
Data, Shr, 



[Vclaratfons 

NuExe, NcWrt, Byte 



MODNAM CLOCK 
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.SBTTL DSSCanWait - CANCEL DELAY ROUTINE 
.PSECT Code, Shr, Exe, NoWrt, Long ; 



C17J 



FUNCTIONAL DESCRIPTION: 

ROUTINE TO CANCEL PROGRAM DELAY 
CALLING SEQUENCE: 

DS$CANWAITO 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 



DS$GL_FLAGS: 

DS$V.ABRTFLG 



= ABORT WAIT FLAG. 
COMPLETION CODES? 

SS$„NORMAL 
SIDE EFFECTS? 

WAKES UP HIBERNATING PROCESS. 



= SERVICE SUCCESSFULLY COMPLETED. 



.WRY DSX$CANWAIT, A M<> 

SCANTIM.S REQIDT=#-1 



CLRO 

CALLS 

RET 



-<SP) 

#2,SYS$WAKE 



Dequeue the timer queue entry 
that was enqueued by the 
SSETIMR call in DSXSWAITMS 
(If we're not cancelling a 
IDS WAITMS, this doesn't do 
anything, ) 
Two null args 
wake the program 
RETURN TO THE DIAGNOSTIC 
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0C1B 371 

O01B 372 

001B 373 
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0018 375 
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C01B 377 

0018 378 

0018 379 

001B 380 

018 382 

0018 383 

0018 384 

0018 385 

0018 386 

001B 38? 

0018 388 

0018 W 

0018 >0 .ENTRY 

001U ^1 

001 D 392 

0023 3V3 

m si 
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.SBTTL SWAKE - Wakeup from hibernate 
FUNCTIONAL DESCRIPTION: 

This routine releases the process blocked by SHIBER 
CALLING SEQUENCE: 

SYSSWAKEO 
INPUT PARAMETERS: 
IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 

DS$VJ\8RTFIG is SET in Db$GL_FLAGS 
COMPLETION CODES: SSS.NORMAL 
SIDE EFFECTS: 

The next time or current time $HI8ER is called it will exit. 



NONE 
NONF 
NONE 



EXE$WAKE, A M<> 
BIS8 



MOVL 
RET 



#DSSM A8RTFLG, - 
W A DS$SL FLAGS 
S**SS$JJORMAL,RO 



Set the flag 

It worked 
Return 
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422 

«S 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 
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.SBTTL DSXSWaitMS - MILLISECOND DELAY ROUTINE 



11 
(1) 



FUNCTIONAL DESCRIPTION: 

THIS ROUUNE ALLOWS THE PROGRAMMER TO DELAY HIS PROGRAM SOME 
NUMBER OF 10 MILLISECOND UNITS. 

CALLING SEQUENCE: 

DIAGNOSTIC SUPERVISOR PROCEDURE CALL. 

INPUT PARAMETERS: 

WAITMSS TIME(AP)= NUMBER OF 10 MILLISECOND UNITS TO DELAY. 
WAITMSSlTAG(AP) = ADDRESS TO RECEIVE REMAINING TIME ON CANWAiT. 

IMPLICIT INPUTS: 
NONE 

output parameters: 

ro = success/failure 
r1 = number of units left 

implicit outputs: 

non: 

completion codes: 



SS$ NORMAL 
DS$IICERR 
DS$ PROGERR 



* SERVICE SUCCESSFULLY COMPLETED. 
= INTERVAL CLOCK ERROR, 
= NEGATIVE TIME INTERVAL SPECIFIED. 
(OR LESS THAN OVERHEAD) 



SID: EFFECTS: 
NONE 



ZZ-ENSAA ?.0 DSXSWaitMS - MILLISECOND DELAY ROUTINE 
CLOCK INTERVAL TIMER ROUTINES. 

07-30 DSXSWaitMS - MILLISECOND 
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05 
02 

50 0OOU03E8 8F 04 



50 
10 
50 
19 
AC 



0000 



DC 
ED 



5D 50 
2E 

50 00o60020 8F 

FPFE7960 8F 04 AC 

C0000060'EF 00001200 8F 

40 



50 51 50 



60 



19 
C5 



E9 
11 

DO 
7A 

18 



34 50 F9 



50 8E 7D 

50 8E C2 

51 SB D9 
0001 86A0 8F 78 

50 08 AC DO 

09 13 

04 AC 51 C3 

02 18 

60 D4 

50 01 DO 



04 



0027 
0029 
0029 
0032 
0032 
0034 
0037 
0039 
003B 
0044 

C04<* 
004F 
0052 
0054 
C0J4 
0058 
0063 
006D 
006F 
006F 
0078 
0078 
0078 
0082 
0082 
0088 
008E 
0091 
0094 
009D 
00A1 
00A3 
00A8 
OOAA 
OOAC 
OOAC 
OOAF 
OOAF 
OOAF 



438 

439 

440 

441 

442 

443 

444 

445 

446 

'.47 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

'.64 

465 

466 
467 

468 
469 
470 
471 
472 
473 
474 

4>6 



.ENTRY DSXSWAITMS, A M<> 
SGETTIM^S -($P) 



10$: 



GET START TIME 



MOVPSL RO ; READ PROCESSOR STATUS. 

CMPZV 0PSLSV JPL, #PSL$SJPL,-; CHECK I PL . 

RO, »2 
BLSS 10S 
MULL3 WAITMSS TIME(AP), - ; CHANGE MILLSECONDS TO MICROSECONDS. 

#10007 RO 
SDS WAITUS S TIME=RO 

BL8C RO, DSXSWAITMS X ; ERROR IN WAITUS, EXIT 
BR8 30S 

MOVL *DSS PROGERR, RO ; ANTICIPATE NEG. TIME 

EMUL WAITRSS.TIME(AP), 0-T1CK..NS,- ; TRANSLATE TIME INTO 100NS INCS. 



#4608, MSTIME 
BGEQ DSXSWAITMS_X 

$SE7IMR„G W A WAITMS ARCS 
BL8C RO, DSXSWAlTMS.X 

$HI8ER_$ 

30$: SGETTIM^S **<$?> 
MOVQ fW.RO 
SU8L2 (SP^,RO 

sewc (sn+ r: 

EDIV #*00Q00,R0,R1,R0 

MOVL «,AITMS$_TAG(AP),RO 

BEQL 40$ 

SUBL3 »1 ,WAI TMS$_TIME (AP) , (RO) 

BGEQ 40$ 

CLRL (RO) 

40$: MOVL S A #SS$.NORMAL,RO 

DSXSWAITMS X: 

RET 



PLUS OVERHEAD 
IF GEQ, NEGATIVE OR TOO SMALL 



SKIP IF ERROR. 



GET END TIME 

GET END TIME OFF STACK 

MAKE LOW ORDER DI..ERENCE 

AND HIGH ORDER DIFFERENCE 

MAKE TRASH(R1) AND 10'S UF MILLSECONDS 

CHECK FOR REMAINING TIME ADR. 

Store unused time 
Branch if positive 

Was negative reduce to zero 

NORMAL RETURN 

RE 1 URN TO PROGRAM 



ZZ-ENSAA-7,0 


8 2 
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CLOCK 


07-30 


DSXSWaitUC 


- MICROSECOND DELAY ROUTINE 23-MAY-19B4 14:10:42 DMA1 : CSYS0.SYSMAINTJCL0CK.MAR;180 (1> 




00B0 


478 


.SBTTL DSXSWaitUC - MICROSECOND DELAY ROUTINE 




0080 


479 ; 


+ + 




0060 


480 ; 


FUNCTIONAL DESCRIPTION 




0080 


481 ; 






0080 


482 j 


THIS ROUTINE ALLOWS THE PROGRAMMER TO DELAY MIS PROGRAM SOME 




00B0 


483 . 


NUMBER OF 10 MICROSECOND UNITS, 




OOBO 


484 ; 






OOBO 


485 ; 


CALLING SEQUENCE: 




0080 


486 , 






0080 


487 ; 


DIAGNOSTIC SUPERVISOR PROCEDURE CALL. 




OOBO 


488 , 






OOBO 


489 , 


INPUT PARAMETERS: 




OOBO 


490 ( 






OOBO 


491 , 


WAITUSS TIME(AP)= NUMBER OF 10 MICROSECOND UNITS TO DELAY. 




COBO 


492 , 


WAITUS$lTAG(AP) = ADDRESS TO RECEIVE REMAINING TIME ON CANWAIT, 




OOBO 


493 ( 






OOBO 


494 ( 


IMPLICIT INPUTS: 




OOBO 


495 , 






OOBO 


496 , 


NONE 




OOBO 


497 ( 






OOBO 


498 t 


■ OUTPUT PARAMETERS: 




0080 


499 , 






OOBO 


500 


RO = SUCCESS/FAILURE 




OOBO 


501 


R1 = NUMBER OF UNITS LEFT 




OOBO 


502 






0080 


503 


♦ IMPLICIT OUTPUTS: 




ooao 


504 






OOBO 


505 


; NONE 




OOBO 


506 






OOBO 


507 


; COMPLETION CODES: 




OOBO 


508 






OOBO 


509 


'; SSS NORMAL - SERVICE SUCCESSFULLY COMPLETED. 




OOBO 


510 


DS$~JCERR = INTERVAL CLOCK ERROR. 




OOBO 


511 


DSSlPROGERR = NEGATIVE TIME INTERVAL SPECIFIED, 




0080 


512 


(OR LESS THAN OVERHEAD) 




OOBO 


513 






0080 


514 


; SID: EFFECTS: 




OOBO 


515 






OOBO 


516 


; NONE 




OOBO 


517 


< «*M 



2Z-ENSAA-7.0 

CLOCK 

07-30 



DSX$WaitUC - MICROSECOND DELAY ROUTINE 

INTERVAL TIMER ROUTINES. 
DSX$WaitUC - MICROSECOND 
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J? 



80 



50 
OOOOOOOO'EF 



1C 

n 

1F 



0000 

DO 
EO 



00000000' Ef 40 8F 8A 



FFFFFFF6 8F 04 AC 
50 00000000'8F 

OC 
50 00660020 8F 

18 80000080 8F 



18 



51 

19 50 

80000091 8F 



00000000' EF 
50 



06 

OE 

50 18 

80000080 8F 

EC 
OA 



51 1A 
51 Hffff?6 8F 

08 AC 

04 

08 BC 51 

50 01 

03 

02AA 

03 



7A 

19 
DO 

11 

DA 

D4 
DA 
DA 



E4 

DB 
D3 

13 

11 

DB 
C6 

D5 
13 
DO 



OOBO 
OOBO 
0OB2 
0OB8 
OOBB 
00C2 
0OC3 
00C3 
OOCB 
OOCB 
OOCB 
00D3 
0OD9 
00D9 
CODB 
0OE2 
00E5 
0OE7 
0OE7 
OOEE 
OOEE 
OOFO 
00F3 
OOFA 
OOFA 
OOFA 
OOFD 
OOFD 
0104 
0105 
0108 
01 OF 
010F 
0111 
0113 
0113 
0116 
01 ID 
01 ID 
0120 
0122 




04 



012E 
0130 
0130 
0130 
0130 



.ENABLE LOCAL_BLOCK 
.ENTRY DSX$WA1TU$,*M<> 
Dsblnt #31 

MOVL S*#SS$ EXQUOTA, RO 
BBS #DS$VjlMRON, - 

DS$GL_FLAGS,25$ 

BICB2 #DS$MJ\BRTFLG, - 
DS$GL„FlAGS 

528 DSXSWAITUS USOVR:: 

529 EMDL WAITUS$_TIME(AP), - 



519 
520 
521 
522 
523 
524 
525 
526 
527 



530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 



25$: 



30$: 



40$: 



*-10,*DS$GKJJSOVR,RO 
BLSS 30$ 

MOVL #DS$,PROGERR, RO 
Enblnt 
BRB DSX$WAITUS_X 



MTPR #ICCS$MJNT + - ; 

ICCS$M,ERR, *PR$JCCS 
CLRL R1 

MTPR RO, *PR$„N1CR ; 
MTPR #ICCS$MjFER ! ICCS$M RUN 

ICCSSMJNT J ICCS$MjRR, 
#PR$ J CCS 



50$: 



55$: 



60$: 
70$: 



DSX$WAJ 



Enblnt 




« 


BBSC 

MFPR 
BITL 

BEOL 

BRB 


#DS$V ABRTFLG, - 
DS$GL"FLAGS, 50$ 
#PR$ JCCS, RO 
*1CC5$M INT I - 
ICCSSM ERR, RO 
40$ 
55$ 


» 

* 

• 
» 
« 

• 

• 


MFPR 
DJVL 


*PR$JCR, R1 
JM07 R1 


• 
» 

• 


TSTL 
BEOL 
MOVL 


WAITUSS TAG(AP) 

60$ 

R1,SWAJTUS$„TAG(AP) 


• 
# 

• 
# 

* 


MOVL 


S A #SS$„N0RMAL, RO 




PUSHR # A M<RQ,R1> 
BSBW CLK$REJNIT 
POPR # A M<R0,R1> 
.DISABLE L0CAL„BL0CK 




TUSJC 

RET 




t 

t 



Set to IPL 31 

ASSUME MULTIPLE TIME FUNCTION ERROR 
CHECK FOR TIMER ALREADY IN USE. 
LEAP FROG TO DSXSWAJTUS.X 

CLEAR ABORT WAIT FLAG. 



COMPUTE INTERVAL CLOCK COUNT. 

PLUS OVERHEAD 

IF GEO, NEGATIVE OR TOO SMALL 
Restore IPL on error path 

STOP THE CLOCK. 

ANTICIPATE NO RESJDUAL TIME. 

SET NEXT INTERVAL, 
i - 

LOAD AND START THE INTERVAL CLOCK. 
Enable interrupts again 

CHECK FOR CANWAIT. 

READ THE CLOCK STATUS. 
CHECK FOR DONE 

OR ERROR. 
BR IF NEITHER. 
Normal completion, no residual 

SAVE COUNT REMAINING, 
COMPUTE 10US UNITS LEFT. 

IF RETURN TAG NOT SPECIFIED 

SKIP THE STORE 

STORE THE REMAINING (10US) 

; NORMAL RETURN. 

SAVE RETURN INFORMATION 

RESTART AND RESYNC THE TOD AND ICCS 

RESTORE RETURN INFORMATION 



RETURN TO PROGRAM 



14 
(1) 

C263 
C243 
C203 



C263 



[20: 



[193 
C193 

C20] 



C203 



C203 



C263 



ZZ-ENSAA-7.0 

CLOCK 

O7-30 
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INTERVAL TIMER ROUTINES. 
EXESHIBER - HIBERNATE SYSTEM 
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0131 


570 


0131 


571 


0131 


572 


0131 


573 


0131 


574 


0131 


575 


0131 


576 


0131 


577 


0131 


578 


0131 


579 


0131 


580 


0131 


581 


0131 


582 


0131 


583 


C131 


584 


0131 


585 


0131 


586 


0131 


587 


0131 


588 


0131 


589 


0131 


590 


0131 


591 


0131 


592 


0131 


593 


0131 


594 


0131 


595 


0131 


596 


0131 


597 


0131 


598 


0131 


599 


0131 


600 



♦38TTL EXESHIBER - 



HIBERNATE SYSTEM SERVICE ROUTINE. 



+ + 



FUNCTIONAL DESCRIPTION: 



EMULATION OF STARLET SYSTEM SERVICE "HIBER" (HIBERNATE). 
THE HIBERNATE SYSTEM SERVICE ALLOWS A PROCESS TO MAKE ITSELF INACTIVE 
BUT TO REMAIN KNOWN TO THE SYSTEM SO THAT IT CAN BE INTERRUPTED, FOR 
EXAMPLE TO RECEIVE ASTS. A HIBERNATE REQUEST IS A WAIT-FOR-WAKE-EVENT 
REQUEST. WHEN A WAKE IS ISSUED FOR A HIBERNATING PROCESS WITH THE 
SWAKE SYSTEM SERVICE OR A RESULT OF A SCHEDULE WAKEUP (SSCHDWK) 
SYSTEM SERVICE, THE PROCESS CONTINUES EXECUTION AT THE INSTRUCTION 
FOLLOWING THE HIBERNATE CALL. 

CALLING SEQUENCE: 

STARLET PROCEDURE CALL. 



INPUT PARAMETERS: 
IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
COMPLETION CODES: 
SS$_NORMAL 
SIDE EFFECTS: 



NONE 
NONE 
NONE 
NONE 

= SERVICE SUCCESSFULLY COMPLETED, 
NONE 



ZZ-ENSAA-7.0 

CLOCK 

07-30 
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00000000* EF 



FECA' 
06 
F5 



0000 

30 
E5 



50 01 DO 

04 



00000000' EF 



18 



11 
OD 
80000080 8F 



51 



1A 
0272 



E5 

DA 

DB 
30 



02 



0131 
0133 
0133 
0136 
013D 
013E 
014D 
0150 
0150 
0151 
0151 
0151 
0151 
0151 
C151 
0151 
0158 
0159 
0160 
0160 
0163 
0166 
0166 
0166 



602 
603 
604 

60*; 

6C6 
07 
08 
',,09 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 



•ENTRY 
10$: 



EXESHIBER, A M<> 



BSBW 
BBCC 



CMK 
MOVL 
EXESHIBER X: 
RPT 



KB CHECK 

#D5$VJ\BRTFLG, - 
DSSGL.FLAGS, 10$ 
HIBER 
S*#SS$JJORMAL, RO 



• CHECK FOR A C. 

; CHECK FOR ABORTWAIT FLAG. 

; CLEAR CLOCK. 

; NORMAL RETURN STATUS. 



KERNEL MODE HIBERNATE ROUTINE. 



CMKSHIBER;; 
BBCC 

MTPR 

MFPR 
BS8W 

CMKSHIBER X: 
RFI 



#DS$V TJMRON, - 

DS$GL FLAGS, CMK$HIBER.X 

tflCCSSMJRR + « 

ICCSSM INT, #PR$JCCS 
#PR$ ICR, R1 
CUSREJNIT 



RELEASE THE TIMER, 

IF TIMED, STOP & CLEAR CLOCK 

SAVE COUNT. 

RETURN. 



ZZ-ENSAA-7.0 
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SYSTEM 
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SERVICE 27-JUL-1984 Fiche 4 Frame F2 Sequence 636 


CLOCK 


INTERVAL TIMER ROUTINES. 27-JUL-1984 15:09:02 VAX-11 Macro V03-01 Page U. 


07-30 


EXESCANTIM 


- CANCEL TIMER SYSTEM SERVICE 2:>-MAY-1984 14:10:42 DMA1 :CSYS0.SYSMAINTJCLOCK.MAR;18O (1) 




0167 


627 


.S8HL EXESCANTIM - CANCEL TIMER SYSTEM SERVICE. 




0167 


628 ; 


++ 




0167 


629 ; 


FUNCTIONAL DESCRIPTION: 




0167 


630 ; 






0167 


631 , 


THE CANCEL TIMER REQUEST SYSTEM SERVICE CANCELS ALL OR A SELECTED 




0167 


632 ( 


SUBSET OF THE SET TIMER REQUESTS PREVIOUSLY ISSUED BY A PROCESS. 




0167 


633 , 






0167 


634 ( 


CALLJN6 SEQUENCE: 




0167 


635 , 






0167 


636 . 


STARLET PROCEDURE CALL. 




0167 


637 , 






0167 


638 t 


INPUT PARAMETERS: 




0167 


639 , 






0167 


640 , 


REQIDT = If zero cancel alt, else match with ASTPRM. 




C167 


641 , 


ACMODE = NOT IMPLEMENTED. 




0167 


642 , 






0167 


643 ( 


IMPLICIT INPUTS: NONE 




0167 


644 , 






0167 


64 5 t 


OUTPUT PARAMETERS: NONE 




0167 


646 t 






0167 


647 , 


IMPLICIT OUTPUTS: NONE 




0167 


648 , 






0167 


649 , 


■ COMPLETION CODES: 




0167 


650 ( 






0167 


651 


SS$_NORMAL - SERVICE SUCCESSFULLY COMPLETED. 




0167 


652 






0167 


653 


• SIDE EFFECTS: NONE 




0167 


654 


; — 



ZZ-ENSAA-7.Q 

CLOCK 

07-30 
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EXESCANT1M - CANCEL TIMER SYSTEM SERVICE _ _._ _ 

INTERVAL TIMER ROUTINES, 27-JUL-1984 

EXEICANTIM - CANCEL TIMER SYSTEM SERVICE 23-MAY-1984 



Fiehe 4 Frame 62 



Seguence 637 



50 



003C 



01 DO 
04 



55 OOOOOOOO'EF DE 
54 04 AC DO 



55 



65 DD 

50 8ED0 
50 D1 
19 13 
60 DD 



08 



14 AO 



50 



AO 
F1 
54 
06 
54 
I? 



60 
FE52' 
DF 



95 
12 
D5 
13 
D1 
12 



OF 
30 
11 



02 



016? 
0169 
0169 
0178 
0178 
01 7C 
017C 
017C 
017C 
01 7C 
01 7C 
0182 
0189 
018D 
C18D 
018F 
018F 
0192 
0195 
019? 
0199 
0199 
019C 
01 9E 
01A0 
01A2 
01A6 
01A8 
01A8 
01A8 
01A8 
01AB 
01AE 
0180 
0180 
0180 
0183 



656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

6?0 

671 

672 

673 

674 

6?5 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 



.ENTRY EXE$CANT1M, A M<R2, R3,R4,R5> 



CMK 
MOVL 
c T 



CANTJM 
$**SS$_NORMAL,R0 



15:09:02 VAX-11 Macro V03-0? Page 

14:10:42 DMA1 :[SYS0.SYSMAINTDCLOCK.MAR;180 



Change to KERNEL mode 
Success 



)8 
(1) 



KERNEL mode routine to cancel timer queues 



CMKKANTJM:: 

DS8INT 

MOVAL 

MOVL 



DS$GL TIMQFL,R5 
CANTlR$_REQIDT<AP),R4 



PUSHL <R5) 

10$: POPL RO 

CMPL R0.R5 

BEQL 30$ 

PUSHL TQE$L_TQFL(RO) 

TST8 TQE$B RQTYPE(RO) 

BNEQ 10$ 

TSTL R4 

BEQL 20$ 

CMPL R4.TQE$L„ASTPRM(R0> 

BNEQ 10$ 



Prevent interruptions 

Point to queue head 

Get request identification 

Push address of first FLINK 

Get address of entry 
FLINK to queue head? 
All done 
Push link to next TOE 

Is it ast request? 

No, leave it in the queue 

Cancel all? 

Branch if all 

Match on REOIDT? 

Branch if not 



REMOVE ENTRY IN RO FROM QUEUE AND DEALLOCATE 



£0$: 



30$: 



REMQUE (RO), RO 

BS8W EXE$DEANONPAGED 

BR8 10$ 



EN8INT 
REI 



Remove queue entry 
DE-ALLOCATE THE SPACE 
Check next 



Restore IPL 

Return to previous mode 



C183 



ZZ~EN$AA-7,Q 
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INTERVAL TIMER ROUTINES, 
DSRSSETIMRJNI - SET TIMER 



H 2 

27-JUL-1984 

27-JUL-19I 
QUEUE INITIAL 23-MAY-19I 



50 0000'CF 

60 50 

04 AO 50 

50 0OOO0O00 l EF 

55 00000024'EF 

01 



DE 
DO 
DO 
7D 
DE 
10 
05 



0164 
01B4 
01B4 
01B4 
0184 
0184 
0184 
0184 
0184 
0184 
0184 
01B4 
01B4 
0184 
C1B4 
0184 
0184 
01B4 
0184 
0184 
0184 
0184 
0184 
0184 
0184 
0184 
0184 
0189 
018C 
OHO 
01C7 
01CE 
01D0 



694 
695 
696 
697 
698 
699 

3? 

702 
703 
704 
705 

706 
707 

708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 



+ + 



• SBTTL DSRSSETIMRJNI - 
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SET TIMER QUEUE INITIALIZATION 



FUNCTIONAL DESCRIPTION; 



THIS ROUTINE INITIALIZES THE SETIMR QUEUES 
AND IS CALLED FROM KERNEL ON A START 1O00O 

CALLING SEQUENCE: 

BS8W DSRSSETIMRJNI 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 

THE DSSGLJIMQFL QUEUE IS EMPTY 
SIDE EFFECTS: NONE 



DSRSSETIMRJNI 
MO?AL 
MOVL 
MOVL 
MOVQ 
MOVAL 
BS88 
RS8 



W A DS$GLJIMQFL,RO 

RO,(RO) 

R0,4(R0) 

EXESGQ SYSUME,RO 

0NESECTIM,R5 

EXESINSTIMQ 



GET QUEUE ADDRESS 

F t ink to self 

Blink to self 

Expected completion time 

Point to one/sec timer 

Insert in timer queue 

RETURN 



ZZ-ENSAA-7.0 

CLOCK 
07-30 



DSRSSET1MR INI - SET TIMER QUEUE INITIAL 

INTERVAL TIMER ROUTINES. 
DSRSSETJMRJNI - SET TIMER 



I 2 
27-JUL-1984 Fiche 4 

27-JUL-1984 15:09:0; 

QUEUE INITIAL 23-MAY-1984 14:l0:4i 



Frame 12 Seguence 639 

1 VAX-11 Macro V03-0T Page 20 

! DMA1 :CSYS0.SYSMAINT3CLOCK.MAR;T80 (1) 



18 A5 50 7D 



54 00000000'EF 



53 
53 04 
54 

K A3 



18 A3 
63 



54 
A3 
53 
0^ 
51 
F1 
06 
50 
E9 
65 



DE 
DO 
00 
D1 
13 
D1 
1F 
1A 
01 
1F 

OE 
05 



01D1 

01D1 

01D1 

01D1 

0101 

01D1 

01D1 

01D1 

01D1 

01D1 

01D1 

01D1 

01D1 

0101 

C1D1 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

01D5 

0108 

01E2 

01E5 

01E9 

01EC 

01EE 

<W2 

01F4 
01F6 
01FA 
01Fi 
01FF 
0202 



728 
729 
730 
731 
732 
733 
734 
755 
736 
737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 



FUNCTIONAL DESCRIPTION: 

This routine is used to place entries in the time queue 

The queue is ordered by completion time, the soonest request 

being the first in the queue. 

CALLING SEQUCENE: 

BS8W EXE$INSTIMQ 



INPUT PARAMETERS: 

R0/R1 

R5 



IMPLICIT INPUTS: 
OUTPUT PARAMETFRS: 
IMPLICIT OUTPUTS: 



64 bit completion time 
Address of TOE 



NONE 
NONE 
NONE 



EXESINSTIMQ:: 

MOVO 
DS8INT 
MOVAL 
MOVL 

50$: MOVL 
CMPL 
BEQL 
CMPL 
BLSSU 
BGTRU 
CMPL 
BLSSU 

60$: INSQUE 
EN8INT 
RS8 



R0.TQE$Q TIMECR5) 

#IPL$,JJRER 

DS$GL W TIMQFL,R4 

R4,R3 

TQE$L..TQ8L<R3),R3 

R3,R4 

60$ 

R1 f TQE$Q„TIME+4(R3> 

50$ 

60$ 

R0,TQE$GJIME(R3) 

50i 

(R5), <R3> 



Insert completion time in TQE 

Disable to timer level 

Point to queue head 

Copy start of queue 

Link to next entry 

End of queue? 

Yes insert it here 

Compare High order parts of time 

If LSSU new entry more imminent 

If GTRU new entry less imminent 

Compare low order part of time 

If LSSU new entry more imminent 

Insert naw entry 



C18D 



ZZ-ENSAA-7.0 

CLOCK 

l»7-30 



EXE$Setimr - SET TIMER SYSTEM SERVICE. 

INTERVAL TIMER ROUTINES. 
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J 2 
27-JUL-1984 Fi'che 4 Frame J2 Seguence 

27-JUL-1984 15:09:02 VAX-11 Macro V03-01 Page 21 

SERVICE. 23-MAY-1984 14:10:42 0MA1 :CSYS0.SYSMAINTJCLOCK.MAR;T80 <1> 



1 



640 



0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
C203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 



772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 

ffit 

k 

m 

805 
806 
807 
808 
809 
810 
811 



.S8TTL EXESSetimr - SET TIMER SYSTEM SERVICE. 

FUNCTIONAL DESCRIPTION: 

THE SET TIMER SYSTEM SERVICE ALLOWS A PROCESS TO CAUSE THE SETTING OP 
AN EVENT FLAG AND THE ISSUANCE OF AN AST AT SOME FUTURE TIME. THE 
TIME FOR THE EVENT CAN BE SPECIFIED AS AN OFFSET FROM THE CURRENT 
TIME, THAT IS, DELTA TIME. 

CALLING SEQUENCE: 

STARLET PROCEDURE CALL, 

INPUT PARAMETERS: 

EKN = EVENT FLAG NUMBER OF THE EVENT FLAG TO SET WHEN THE 

TIME INTERVAL EXPIRES. IF NOT SPECIFIED, IT DEFAULTS 

TO 0. 
DAYTIM = ADDRESS OF THE QUADWORD EXPIRATION TIME. IF THE TIME 

VALUE IS NEGATIVE, IT INDICATES AN OFFSET (DELTA TIME) 

FROM THE CURRENT TIME. 
ASTADR = ADDRESS OF THE ENTRY MASK OF AN AST ROUTINE TO BE 

CALLED WHEN THE TIME INTERVAL EXPIRES. IF 0, IT 

INDICATES NO AST IS TO BE QUEUED. 
= COPIED TO ASTPRM ON AST DELIVERY. 



REQIDT 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION COD!!S: 

SS$„EXQUOTA 

USSlNOTIMP 

SS$lNORMAL 

SIDE EFFECTS: 



NONE 

NONE 

NONE 

NONE 

= QUOTA FOR TIMER REQUESTS EXCEEDED. 

= FUNCTION NOT IMPLEMENTED IN STAND-ALONE. 

= NORMAL RETURN. 

NONE 



ZZ-ENSAA-7.0 
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EXE$Setimr - SET TIMER SYSTEM SERVICE. 

INTERVAL TIMER ROUTINES. 
EXE*Setimr - SET TIMER SYSTEM 



641 



K 2 

27-JUL-1984 Fuhe 4 Frame K2 Seguence „ . . 

27- JUL-1 984 15:09:02 VAX-11 Macr V03-01 Page 22 
SERVICE. 23-MAY-1984 14:10:42 DMA1:CSYS0. JYSMAINnCLOCK.MAR;T80 (1) 



003C 
04 



50 
00000000 'EF 



1C 
F0E5' 
11 
64 



00000000' EF 



5A 50 
40 8F 



50 006600B8 



50 



05 
02 

00660080 
51 08 



8F 
51 
10 
51 
42 
8F 
BC 
35 



FDAB' 

2F 50 

55 52 

OB A5 

OC A5 00000000' 8F 

10 A5 OC AC 



50 



7E 08 BC 
00000000 'EF 

50 8E 

51 8E 
FF4P 

50 01 



00 
30 
EO 



E9 
8A 



DO 
DC 
ED 

18 

7D 
14 



30 
E9 
DO 
94 
DO 
7D 



29 A5 04 AC 90 



7D 
7D 
C2 
D9 
30 
DO 

02 



0203 
0205 
0205 
0214 
0215 
0215 
0215 
0215 
0215 
0215 
0218 
0218 
0222 
0223 
C223 
022A 
022D 
022D 
0235 
0235 
0235 
023C 
023E 
0241 
0243 
45 
4C 
0250 
0252 
0252 
0252 
0252 
0255 
0258 
0258 
025E 
0266 
0268 
0268 
0270 
0270 
0274 

0278 
027E 
0281 
0284 
0287 
0287 



8 



813 
8K 
815 
816 
81? 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 

843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 



.ENTRY EXE$SETIMR, A Mx,<2,R3,R4,R5> 



CMK 
RET 



SETIMR 



Execute code in KERNEL mode 
All done, return 



KERNEL mode routine to SETIMR 



CMK$SETIMR:; 
MOVL 
BSBW 
BBS 



S A #SS$ EXQUOTA,R0 

W A KB CRECK 

#DS$y_TIMRON, DS$GL_FLAGS - 



PRESUME QUOTA EXCEEDED 



,50$ 



$CLREF 6 (AP) 
BL8C " R0,50$ 

BKB2 #DS$M w ABRTFLG, - 
DS$GL"FLAGS 

MOVL #DS$_ A PL2HI, RO 

MOVPSL R1 

CMPZV #PSLSV JPUrfPSLSSJPU- 
RI, J2 

BGEQ 50$ 

MOVL #DS$ NOT IMP, RO 

MOVQ a$ET7MR$„DAYTIM<AP) ,R1 

BGTR 50$ 



Can't SETIMR if TIMER owned 

CLEAR THE EVENT FLAG. 
Exit if CLREF failed 

CLEAR ABORTWAIT FLAG. 



ANTICIPATE IPL TOO HIGH 
GET PROCESSOR STATUS. 
CHECK IPL. 

If GEO, IPL is too high 

NOT IMPLEMENTED FOR ABSOLUTE TIME 

TEST SIGN BIT OF QUADWORD 

Branch to exit if invalid delta time 



ALLOCATE SPACE AND BUILD A TIMER QUEUE ENTRY FOR THIS TIME REQUEST 



50$; 



BS8W EXE$ALLOCTQE 

8L8C R0,50$ 

MOVL R2,R5 

CLRB TQE$B RQTYPE(R5) . , 

MOVL #IOC$R DIAGPID,TQE$L - ,PID(R5) 

MOVQ SETIMR$J\STADR(AP), = 

TQE$L,.AST(R5) 

M0V8 SETIMR$lEFN(AP) # - 

TQESB"EFN(R5) 

MOVQ aSETIMRS DAYTJM(AP) ,-(SP) 

MOVQ EXE$GQ S?STIME,RO 

SU8L2 (SP)+,RO 

SBWC (SP)*,R1 

BSBW EXE$INSTIMQ 

MOVL S A *SS$_NORMAL,RO 

REI 



RETURNS R2=ADDR OF BLOCK IF SUCCEEDS 
Exit if no space for TQE 
Copy address of TQE 

"LEAR AST CONTROL BLOCK FLAGS 
SET PID 



COPY AST ADDRESS AND PARAMETER 
COPY EVENT FLAG NUMBER TO TQE 



; GET DURATION TIME 

GET CURRENT TIME 

Current ~(~DELTA)=Current+DELTA 

Same with high order 

Insert it in the timer queue 

RETURN SUCCESS 

FALL IN TO EXIT 

Return to calling mode 



ZZ-ENSAA-\0 
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L 2 
27-JUL-1984 



Fiche 4 



OSlSTimSru - INTERVAL TIMER INTERRUPT SE 

INTERVAL TIMER ROUTINES. 27-JUL-1984 15:09:02 

DSISTimSrv - INTERVAL TIMER INTERRUPT SE 23-MAY-1984 14:10:42 



Frame L2 Sequence 642 

VAX-11 Macro V03-0T Page 21 
DMA1:CSYSO.SYSMAINT]CLOCK.MAR;T80 (1) 



0288 


862 


0288 


863 


0288 


864 


0288 


865 


0288 


866 


0288 


867 


0288 


068 


0288 


869 


0288 


870 


0288 


871 


0288 


872 


0288 


873 


0288 


874 


0288 


875 


C288 


876 


0288 


877 


0288 


878 


0288 


879 


0288 


880 


0288 


881 


0288 


882 


0288 


883 



+ + 



.S8TTL DSlSTimSrv - INTERVAL TIMER INTERRUPT SERVICE ROUTINE. 
FUNCTIONAL DESCRIPTION: 

INTERVAL TIMER INTERRUPT SERVICE ROUTINE 
CALLING SEQUENCE: 

INTERRUPT 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
SIDE EFFECTS: 

NONE 
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INTERVAL TIMER ROUTINES. 
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M 2 
27-JUL-1984 Fiche 4 Frame M2 Sequence 

27-JUL-1984 15:09:02 VAX-11 Macro V03-01 Page^ 24 
INTERRUPT SE 23-MAY-1984 14:10:42 DMA1 jCSYS0.SYSMAINTJCLOCK.MAR;T80 (1) 



50 DD 

OOOOOOOO'EF 000186A0 8F CO 

00000004' EF 00 D8 

09 OOOOOOOO'EF E8 



18 800000C1 8F DA 
07 11 



18 80000080 8F DA 



50 00000000* EF 

00000000' 8F 50 

21 

00000004 'EF 1C AO 

OC 



00000000' EF 



15 

18 AO 

08 



00 
D1 
13 
D1 
IF 
1A 

01 
1A 



00 OOOOOOOO'E* 0? Z2 

50 8ED0 
02 



0288 
0288 
0288 
028A 
028A 
0295 
029C 
029C 
02A3 
02A3 
02A3 
02A3 
02A3 
02A3 
C2A3 
02AA 
02AC 
02AC 
02AC 
02AC 
02AC 
0283 
0283 
0283 
028A 
02C1 
02C3 
02C8 
02CD 
02CF 
02D7 
02D9 
02D9 
02DC 
02E4 
02E4 
02E7 



885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 

896 

897 

898 
899 
900 
901 
902 
903 
904 
905 
906 
907 

908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 



.ALIGN 
DSISTIMSRV:: 
PUSHL 

ADDL2 
ADWC 

Bibs 



LONG 

RO 

#TKK NS, EXESGG SYSTIME 
*0, E5?E$GQ_SYSTIflE+4 



; Save a register 



INCREMENT SYSTIME 
AND HIGH HALF 



L A DS$G8 Stopping_The_Timer 
3$ ; 



the 



MTPR 
BRB 



#ICCS$MJ*ESET,*PR$JCCS 
5$ 



; Don't start the interval 
timer up again if we are in 
the process of stopping it - in 
the DSXSSETVEC routine, because 
the asynchronous nature of the 
VAX 11/730 console instructions 



Resetting the timer 
Normal flow 



1221 

C25J 

£221 

of 

C22J 

£221 



1251 



CHECK TIMER QUEUE FOR DUE REQUESTS 



3$: 

5$: 



MTPR 



MOVL 

CMPL 

BEQL 

CMPL 

BLSSU 

BGTRU 

CMPL 

BGTRU 



#ICCS$M ERR+ICCSSM. 
fPRSJClS 

D<$GL TJMQFL,R0 

R0J¥05$GL„TIMQFL 

20$ 



nipt to avoid race 
timer queue entry 



.INT, - 

; Clear the inte 

; with DSXSSETVb 

; Get address of 

; Anything in queue? 
„«, ; Branch if not 

TGE$Q TIME+4(RO,EXE$6Q w SYSTIME+4 ; Compare high order 
10$ ; If LSSU entry due 

20$ ; If GTRU entry not due 

TQE$Q_TIME<RO),EXE$GQ_SYSTIME ; Compare low order 
20$ ; IF GTRU entry not due 



L2bl 
C25] 
1221 



10$: 
20$: 



SOFTINT #IPL$ TIMER ; Entry is due dispatch on timer level 

BBSS #IPL$.TIMER,DS$GA,SQFTINT,20$; Set level 7 interrupt expected 



POPL 
REI 



RO 



Restore RO 



ZZ-ENSAA-7.0 
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N 2 

DS1STIMER - Level 7 timer interrupt serv 27-JUL-198A Fiche 4 Frame N2 Sequence 644 

INTERVAL TIMER ROUTINES. 27-JUL-1984 15:09:02 VAX-11 Macro V03-01 Poge 25 

DS1STIMER - Leval 7 timer interrupt serv 23-MAY-1984 14:10:42 DMA1 : [SYSO.SYSMAINTJCLOCK.MAR; 180 (1) 



02E8 


923 


02E8 


924 


02E8 


925 


02E8 


926 


02E8 


927 


02E8 


928 


02E8 


929 


02E8 


930 


02E8 


931 


02E8 


932 


02E8 


933 


02E8 


934 


02E8 


935 



.S8TTL DSISUMER - 



Level 7 timer interrupt service 



+ + 



FUNCTIONAL DESCRIPTION: 



This interrupt service routine is called from a software level 7 
timer interrupt. It is used to process timer queue entries that 
are due and to check for hung qio devices 

CA.IJNG SEQUENCE: 

Interrupt service entry 



7Z-ENSAA-7.Q 

CLOCK 

07-30 



OSISTIMER - Level 7 timer interrupt serv 

INTERVAL TIMER ROUTINES. 
DSI$TIMER - Level 7 timer 



B 3 
27-JUL-1984 Fiche 4 
27-JUL-1984 15:09:0; 
interrupt serv 23-MAY-1984 14:10:41 



Frame B3 
! VAX-11 



Seguence 645 
Macro V03-01 



DMA1:CSYS0.SYSMAINT3CLOCK,MAR;T80 



26 
(1) 



3F BB 



55 00000000'EF 

OOOOOOOO'BF 55 

03 

007A 

00000004' EF 1C A5 

OC 
6E 

OOOOOOOO'EF 18 A5 

64 



50 65 

50 08 A5 0? 00 



00 
01 
12 
31 

D1 
1F 
1A 
01 
1A 



OF 
EF 



AD 11 



02E8 
02E8 
02E8 
02EA 
02EA 
02EA 
02EA 
02EA 
02EA 
02ED 
02F4 
02FB 
02FD 
0300 
C300 
0308 
030A 
030C 
0314 
0316 
0316 
0316 
0316 
0316 
0319 
031C 
0322 
032A 
033B 



937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 



.ALIGN LONG 
DSISTJMER:: 

PUSHR # A M<R0,R1,R2,R3,R4,R5> ; Save a few 



CHECK TIMER QUEUE FOR DUE REQUESTS 



10$: 



15$: 



SETJPL 

MOVL 

CMPL 

BNEQ 

BRW 

CMPL 

BLSSU 

BGTRU 

CMPL 

BGTRU 



#IPL$,HWCLK 
DS$GL TIMQFL.R5 
R5,#D5$GL_TIIWL 
IS* 

40$ 



Prevent interruptions by clock 
Get address of timer queue entry 
Anything in queue? 
Branch if something in queue 
Exit if empty 



TQESQ TIME+4(R5),EXE$GQ SYSTJME+4 ; Compare high order 
20$ " ; If LSSU entry due 

40$ ; If GTRU entry 

TQE$G.TIME(R5),EXE$GQ SYSTIME ; Compare 
40$ ; IF GTRU entry 



not 
low 
not 



due 

order 

due 



Remove entry from queue 



20$: REMQUE (R5) f RO ; Remove queue entry 

SETIPL #IPL$^TJMER ; Back to our level 

EXTZv *0,*2,TQE$B..RGTYPE(R5),R0; Get request type 
CASE R0,<25$,35$> ; Dispatch on type 

ERRSUP.S 
BR8 10$ ; Check again 



C183 



ZZ-ENSAA-7.0 
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DSISTIMER - Level 7 timer interrupt serv 

INTERVAL TIMER ROUTINES. 
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646 



C 3 , 

27-JUL-1984 Fiche 4 Frame C3 Seguence 

27-JUL-1984 15:09:02 VAX-11 Macro V03-0T Pagi 
interrupt serv 23-MAY-1984 14:10:42 DMA1 :[$YS0,SYSMAINT]CL0CK.MAR;T80 



Page 



27 
(1) 









033D 


967 


; + 










033D 


968 


; Process time 








033D 


969 


* 










033D 


970 






7E 


29 A5 


9A 


033D 


971 


25$: 


MOVZBL 


00000000* 


9F 01 


FB 


0341 
0348 


972 




CALLS 




10 A5 


D5 


973 




TSTL 




07 


13 


034B 
034D 


974 
975 




BEQL 




52 


D4 


034D 


976 




CLRL 




FCAE' 


30 


034F 


977 




BSBW 




96 


11 


0352 
0354 


978 
979 




BRB 




50 55 


DO 


0354 


980 


30$: 


MOVL 




FCA6' 


30 


C357 


981 




BSBW 




8E 


11 


035A 
035C 
035C 


982 
983 
984 


; + 


BRB 








035C 


985 


; call 


timer d 








035C 


986 


* 










035C 


987 






53 


10 A5 


7D 


035C 


988 


35$; 


MOVQ 




OC 85 


16 


O360 


989 




J SB 


OF OB 


A5 02 


E1 


0363 


990 




BBC 


50 


20 A5 


7D 


0368 


991 




MOVQ 


50 


18 A5 


CO 


036C 


992 




ADDL 


51 


1C A5 


D8 


0370 


993 




ADWC 




FE5A 


30 


0374 
0377 


994 
995 


38$: 


BSBW 




FP70 


31 


0377 
037A 
037A 
037A 


996 
997 
998 
999 


40$: 


BRW 
SETJPL 








037D 


1000 


DSI$TJMER_X: 




3F 


BA 


037D 


1001 




POPR 






02 


037F 


1002 




REJ 



Process timer entry that queues an AST or sets an event flag 



TQESB EFN(R5),-<SP) 
#1 x a#5YS$SETEF 
TOESL AST(R5) 
30$ 

R2 

SCHSQAST 

10$ 

R5,R0 

EXESDEAN0NPA6ED 
10$ 



SPECIFY EVENT FLAG NUM8ER 
AND GO SET IT 
AST ADDRESS SPECIFIED ? 
IF EQL. NO AST SPECIFIED 

PRIORITY INCREMENT CLASS 

GO SCHEDULE AN AST FOR THIS TIMER 

GO BACK FOR NEXT ENTRY 

POINT TO CURRENT ENTRY 

AND RETURN IT TO FREE MEMORY POOL 
BACK TO LOOK AT NEXT ENTRY 



TQE$L^FR3(R5) f R3 
aTQE$CjPC(R5) 



Restore subroutine context 
Call routine 



#TGE$V REPEAT JQE$B..RQTYf>E(R5>, 38$; if not repeatable 

TQE$Q 5ELTA<R5) £ M> 

TQE$Q TIME<R5),R0 

TQESQ TIME+4(R5),R1 

EXE$lRSTIMQ 



10$ 

#IPL$_TIMER 
#*M<R0,R1,R2,R3,R4,R5> 



Get delta time 

Add low order parts 

Add high order parts w/ carry 

re-insert in the timer queue 

Look in queue again 

Back to our level 

Exit from timer service 
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D 3 

27-JUL-1984 Fiche 4 Frame D3 Seguence „.. 

27-JUL-1984 15:09:02 VAX-11 Macro V03-01 Page 28 
interrupt serv 23-MAY-1984 14:10:42 DMA1 :[SY60.SYSMAINTJCLOCK.MAR;180 (1) 



56 



00000000' EF 

7E 55 

00000000' EF 

56 66 

3F 



55 
55 



D8 A6 

2C A5 

F1 



28 58 A5 00 
OOOOOOOO'EF 5C A5 

1E 

58 A5 03 

58 A5 0040 8F 



53 
52 



10 A5 

OC A5 

7E 72 

52 8E 

62 



55 



C5 
8E 



0380 

0380 

0380 

0380 

0380 

0380 

D6 0380 

0386 

7\> 0386 

DE 0389 

DO 0390 

13 0393 

0395 

DE 0395 

C399 

DO 0399 

13 039D 
039F 
039F 
039F 
039F 
039F 

E1 03A2 
D1 03A7 

14 03AF 
0381 

AA 0381 

0385 
A8 03B5 

03BB 
7D 03BF 
DO 03C3 
32 03C7 
CO 03CA 
16 03CD 

03CF 
11 03D2 

03D4 
7D 03D4 
05 03D7 



1004 
1005 
1006 
1007 
1008 
1C09 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 



* is called each second to update the time 
and check for timed out UCB's 



This routine 



ONE.SECOND: 
INCL 



EXESGL^ABSTIM 



Update time 



10$: 

20$: 
30$: 



MOVQ 
MOVAL 
MOVL 
BEQL 



R5,-(SP) ; Save registers 

L A 10C$GL DEVLIST-DD8$L^LINK, R6 ; Locate first DDB 

DDB$L_LlF)K(R6),R6 ; LOCATE NEXT DDB 

60$ ; IF EQL, NO MORE DDB'S 



C173 



MOVAL DDB$L_UCB-UC8$L_LINK(R6) ,R5 



LOCATE FIRST UCB 



MOVL UCB$L LINK(R5),R5 
BEQL 10$ " 



LOCATE NEXT UCB 

If EQL, NO MORE UCB'S THIS DDB 



AT THIS POINT A UCB HAS BEEN LOCATED 



50$: 
60$: 



SETIPL #IPl$ POWER 

BBC #UCB$? TIM-UCB$W..STSCR5),50$ 

CMPL UC8$L J5UETJM(R5) ,EXE$GL J\8STIM 

BGTR 50$ 

BJCW *UCB$M INT!UCB$M_TIM, - 

UCB$W 5TS(R5) 

BISW JfUCBSR. TIM0UT f UCB$W.STS(R5) 

SETIPL UCB$B PlPL(R5) 

MOVQ UCB$LJR3(R5),R3 

MOVL UCB$L,FPC(R5),R2 

CVTWL -<R2)>(SP) 

ADDL (SP)+,R2 

JS8 (R2) 

SETIPL #IPL$.TJMER 

BR8 30$ 

MOVQ CSP)+,R5 
RS8 



Raise to Powerfail level 
IF NOT WAITING, GET NEXT UCB 
CHECK DUE TIME FOR TIMED OUT 
IF GTR, LET IT WAIT LONGER 



Clear interrupt and timer 

SET TIMED OUT STATUS BIT 

Set IPL to device level 

RETREIVE FORK CONTEXT 

Get sved pc 

Get offset to exception routine 

Address of sxception routine 

RE-ACTIVATE I/O REQUEST 

Restore to timer IPL 

GO LOCATE NEXT UCB 

Restore 

Return from whence we came 
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03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
C3D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 
03D8 



1045 
1046 
1047 
1048 
1049 
1C50 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 



,S8TTL CLKSREJNIT - SYSTEM TIMER INITIALIZATION SUBROUTINE 

FUNCTIONAL DESCRIPTION: 

INITIALIZES THE INTERVAL TIMER FOR 10 MILLISECOND TICKS 
AND SYNCHRONIZES THE SYSTEM TIME TO THE TIME OF YEAR CLOCK 

CALLING SEQUENCE: 

BS8W CLKSREJNIT 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

INTERVAL TIMER IS LEFT RUNNING (INTERRUPT ENABLED) 
NEXT INTERVAL REGISTER IS SET TO 10 MILLISECONDS 



IF PR$ TODR VALID, 
EXPSGQ.SYSTIME 



CURRENT DATE/TIME (64-BIT FORMAT) 
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50 00 







03D8 


1077 






03D8 


1078 






03D8 


1079 






03D8 


1080 






03D8 


1081 






03D8 


1C82 


18 80000080 8F 


DA 


03D8 


1083 






03DF 


1084 






03DF 


1085 


19 FFFFD8F0 8F 


DA 


03DF 


1086 


18 00000051 8F 


DA 


03E6 


1087 






03ED 


1088 






03ED 


1089 






03ED 


1090 






C3ED 


1091 






03ED 


1092 






03ED 


1093 






03ED 


1094 






03ED 


1095 


00000000' EF 


16 


03ED 


1096 






03F3 


1097 


50 10000000 8F 


C2 


03F3 


1098 


29 


1F 


03FA 


1099 






03FC 


1100 


50 01 


CA 


03FC 


1101 


50 50 FF 8F 


9C 


03FF 


1102 


50 00030D40 8F 


7A 


0404 


1103 






040D 


1)04 


50 0008'CF 


CO 


04 OD 


1105 


51 OOOC'CF 


D8 


0412 


1106 


00000000' EF 50 


7D 


0417 


1107 


0000003CEF 50 


7D 


041E 


1108 






0425 


1109 






0425 


1110 




05 


0425 


1111 






0426 


1112 






0426 


1113 






0426 


1114 



CLKSRE JNIT:: 

; SETUP AND START INTERVAL TIMER 

MTPR #1CCSSM,ERR + - 

ICCSSMJNT, - 

#PR$ I CCS 
MTPR #-TICK US, JfPRljVICR 
MTPR #ICCS$MjE + - 

ICCSSM^XFER + - 
ICCS$M_RUN, - 

0PRSJCCS 

; + 

; SET SYSTIME FROM TOD IF TOD IS VALID 



JS8 

SUBL2 

BLSSU 

BICL 

ROTL 
EMUL 

ADDL2 
ADWC 
MOVQ 
MOVQ 

CLK$RE_SYNCJO 
RS8 



.END 



CLEAR ERROR, 

CLEAR DONE, 

AND STOP INTERVAL TIMER 

SET NEXT INTERVAL. 

ENABLE INTERRUPT, 

LOAD, 

AND RESTART 

THE INTERVAL CLOCK. 



ONLY_CLOCKJNIT 

#TODR BIAS, RO 

CLKSRE.SYNC.X 

#1 f R0 
#-1,R0,R0 
#2*TICK NS, RO, - 

#0, RD 
W A DSSGQ_CURYEAR, RO 
W A DS$GQ CURYEAR+4, R1 
RO, EXElGQ SYSTIME 
RO, ONESECTlM+TQESQ.TIME 



GET TIME OF YEAR IN RO AND 00 
CPU-SPECIFIC STUFF TO TODR 
REMOVE VALIDATION BIAS 
IF LSSU, TODR WAS N.G. 

CLEAR LOW BIT 
DIVIDE BY 2 UNSIGNED 
CONVERT TIME OF YEAR TO 

SYSTIME FORMAT (10MS TO 100NS) 
ADJUST TO CURRENT TIME/DATE 

(ALL 64 BITS) 
Set system date/time 
Reset 1/second timer expiration time 



C30D 
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SSARGS 

SST1 

SER 

$MODULE 

BIT,.. 

CANTIMS ACMODE 

CANTIMSJJARGS 

CANT1M$ REQ1DT 

CLKSREjNIT 

clksre^sync^x 
clock tpl 
cmkscAntim 
cmkshiber 
cmkshiber x 
cmkssetimr 

CMKS„ 

CMKS^ASTEXIT 

CMK$_CANTIM 

CMKSJUBER 

CMKSJNITSCB 

CMKS^LAST 

CMKS~MMENABLE 

CMK$_RCONSOLE 

CMK$J*EFRESH 

CMK$ SCHDWK 

CMKS'SETIMR 

CMK$„SETIPL 

CMKS SETPRT 

CMK$ISGIPR 

CMK$ TCONSOLE 

DDB$Bj\CPCLASS 

DDB$B„TYPE 

DD3$CLENGTH 

DDB$K_LENGTH 

DDBSL_ACPD 

DDB$LJ>DT 

DD8$L_LINK 

DDB$L„UCB 

DDBST DRVNAME 

DDBST NAME 

DOBSW SIZE 

DSSCAflWAJT 

DSSGA.SOFTINT 

DS$GB STOPPING.THE. TIMER 

0S$GK"USOVR 

OSSGLlFLAGS 

DSSGL.JIMQFL 

DSSGG„CURYEAR 

DSSGT NEWYEAR 

DSSKjRROR 

DSSiTnORMAL 

DSSKlNYSIZ 

DSSK^SEVERE 

DS$K„SUB$YS 

DS$K WARNING 

DS$M>BRTFLG 

D5$M - BADTJME 



00000004 
00000000 
00000002 
00000000 
OOOOOOU 
00000008 
00000002 
00000004 
000003D8 
00000425 
00000018 
000001 7C 
00000151 
00000166 
00000215 
00000004 
00000000 
00000008 
00000007 
00000008 
0000000E 
00000003 
00000001 
00000005 
00000006 

oooooooc 

C0000009 

00000000 
OOOOOOOA 
00000002 
00000013 
OOOOOOOA 
00000034 

mm 

oooooooc 

00000000 
00000004 
00000024 
OOOOOOU 
00000008 

******** 
******** 
******** 
******** 
******** 



R 



03 



D 

D 

D 



D 

D 

D 

D 
RG D 04 
R 04 

D 
RG D 04 
RG D 04 
R D 04 
RG D 04 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
X 




DS$M„BATCH 

OSSMlBRKCLR 

DSSM BRKPT 

DSSM~CHARFLG 

DSSMlCMOFLG 

DS$M CTRLC 

DSSM CTRLO 

DSSM DEVFLG 

DSSM_DISABLCC 

D$SM_DONFLG 

DSSMJRRFLG 

DSSMJXCEPT 

DSSMJXETST 

DS$M_HLTFLG 

DSSMJ.ODFLG 

DSSM MEMMGT 

DSSM OUTPUT 

DSSM'RUBFLG 

DSSM^SCRIPT 

DSSM^SETIMR 

DSSM.STRFLG 

DSSM.SUBT 

DSSM.SYSFLG 

DSSMJIMRON 

DSSV„ABRTFLG 

DSSV W BADTIME 

DSSV_BATCH 

DSSV^BRKCLR 

DSSVJ3RKPT 

DSSV^CHARFLG 

DSSVlCMDFLG 

DS$V W CTRLC 

DSSVlCTRLO 

DS$V„DEVFLG 

DSSV^DISABLCC 

DSSOONFLG 

DSSVlERRFLG 

DSSVlEXCEPT 

DSSV^EXETST 

DSSVlHLTFLG 

DSSVXODFIG 

DSSVlMEMMGT 

DSSVJ)UTPUT 

DSSVlRUBFLG 

DSSVlSCRIPT 

DSSVlSETIMR 

DSSV^STRFLG 

DSSVlSUBT 

ds$v„sysflg 
ds$v~timron 
dsswaitus 
dsMrith 

DSl ASBE 
DSOADLINK 

DSS'BADTYPE 

DSOIIC 

DSSICHME 



= 00400000 
= 00001000 
= 00000800 
« 00000100 

* 00000080 
= 00000001 
» 00010000 
= 00000200 
= 01000000 
a 00002000 
= 00000010 
= 00080000 
= 00040000 
a 00000008 
= 00000002 
= 00008000 

* 00800000 
= 00000020 
= 00200000 
8 Q20QQ000 
= 00000004 
= 00004000 

* 00000400 

* 00020000 
)0000006 

114 
116 

= OOOOOOOC 
= 00000008 

* 00 





B' 



2 

1003 

10001 

: wm 

H9 

!2 
)E 
>A 

1 

******** 




D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
< 
D 
D 
D 
D 
D 
D 



04 
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DSS CHMK 

OSSlDEVNAME 

DSSJRROR 

DSS FHWE 

DSS^FRAGBUF 

DSS^ICBUSY 

DSSJCERR 

DSSJHWE 

DSSJLLCHAR 

DSOLLPAGCNT 

DSS.1LLUNIT 

DSSJNSFMEM 

DSSJPL2W 

DSS 1VADDR 

DSSJVVECT 

DSSJCRNLSTK 

DSSJ.OGIC 

DSS MCHK 

DSS MMOFF 

DSS^NEEDUNIT 

DSSJJODE 

DSS^NOPCS 

DSSJJORMAL 

DSSJJOSUPPORT 

DSS^NOTDON 

DSS.NOTIMP 

DSSJWLLSTR 

DSSJWERFLOW 

DSS_PQWER 

DSS„PROGERR 

DSS.SEVERE 

DSSJRANSL 

DSSZTRUNCATE 

DSS UNEXPINT 

DSSj/ASFULL 

DSS WARNING 

DSAlAL^APTMAlL 

DSASAT APTTXT 

DSASGL~APTCOM 

DSASGLlDEVLEN 

DSASGLJRRNO 

DSASGLJVENT 

DSASGL.FLAGS 

DSASGL^MSGTYP 

DSASGL_PASSES 

DSASGL PASSNO 

DSASGL^SECTNO 

DSASGL.SID 

DSA$GL„SUBTNO 

DSASGL. TESTNO 

DSASGLJJNITS 

OSASCQ MSGPTR 

DSASGT"DEVNAM 

DSISTIWER 

DSISTIMER X 

DSISTIMSR? 

DSRSSETJMR INI 
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= 006600E0 


D 


S 00660108 


D 


= 00660002 
= 00660068 


D 


D 


= 00660080 


D 


= 006600C8 
= 006600CO 


D 


D 


= 00660060 
= 00660018 


D 


D 


= 00660078 


D 


= 00660100 


D 


* 00660050 


D 


= 006600B8 


D 


= 00660040 


D 


= 00660038 


D 


« 00660090 


D 


= 00660070 
= 00660088 


D 


D 


= 00660058 


D 


= 006600F8 


D 


= 00660128 


D 


= 00660110 


D 


■ 00660001 


D 


= 0066QQ81 
= 00660030 


D 


D 


= 006600BO 


D 


* 00660010 


D 


= 00660008 


D 


8 QQ660Q98 

= 00660020 


D 


D 


= Q0660Q04 
= 006600AO 


D 


D 


= 00660028 


D 


= 006600D8 


D 


= 0Q660Q48 
= 00660000 


D 


D 


OOOOfEOQ 
OOOOFAOO 
OOO0FE04 


D 


D 


D 


0000FE58 
OOO0FE44 


D 


D 


OOQ0FE48 

OOOOFEOO 


D 


D 


0000FE40 


D 


0QQQFEQ8 
OO00FE54 


D 
D 


000QFE10 


D 


QOQOFEH 
OQQQFHAC 

OO00FE50 


D 


D 
D 


OOO0FE68 


D 
D 


92Q5 F E5c 


D 


000002E8 R 
0000037D R 


G D 04 


D 04 


00000288 RG D 04 


00000184 RG D 04 



DSXSCANWAIT 

DSXSWAITMS 

DSXSWAITMS.X 

DSXSWAITUS 

DSXSWAITUS JJSOVR 

DSXSWAITUS X 

DS ERRSUP 

DYflSC TOE 

EXESACLOCTQE 

EXESCANT1M 

EXESDEANONPAGED 

EXESGL ABSTIM 

EXESGQ SYSTIME 

EXESHIBER 

EXESHIBER X 

EXESINSTlflQ 

EXESSETIMR 

EXESWAKE 

GETTIMS.NARGS 

GETTIMS TIMADR 

ICCSSMjRR 

1CCSSMIIE 

ICCSSMJNT 

ICCSSM^RESET 

KCSSMJUJN 

T CCSSM_XFER 

IOCSGL DEVLIST 

IOCSK BlAGPID 

JPLSjlWCLK 

IPLS„POWER 

IPLS"TIMER 

K8.CRECK 

MSTlME 

ONESECTIM 

ONE SECOND 

ONlV CLOCK JNIT 

PRSjCCS 

PRS 1CR 

PRS~IPL 

PRSlNICR 

PRS~SIRR 

PSLlSJPL 

PSLSVJPL 

PSLSV31S 

SCBSLlACCESS 

SCB$L_ARITH 

SCBSL^BREAK 

SCBSLICHME 

SCBSLlCHMK 

SCBSL^CHMS 

SCBSL^CHMU 

SCBSL^COMPAT 

SCBSL^KNLSTK 

SCB$L"MACHCHK 

SCBSLlOPCCUS 

SCBSL.OPCDEC 

SCBSLlPOWER 



00000000 
00000027 
OOOOOOAF 
00000080 
OOOOOOCB 
00000130 
******** 

OOOOOOOF 

******** 

00000167 
******** 
******** 

******** 
00000131 
00000150 
000001 D1 
00000203 
0000001B 




04 

04 



RG D 04 

RG D 04 

R D 04 

RG D 04 

RG D 04 
R D 
X 
D 

X 04 

RG D 04 

X 04 

X 04 

X 04 

RG D 04 

R D 04 

RG D 04 

RG D 04 




OUuOOOOC 



t 

J 
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SCBSLJUDRMOD 
SCB$L ROPRAND 
SCB$L_RXD3 

scbsl^sftlvli 
scbsl^sftlvlio 

scbslIsftlvlh 

scb$l^$ftlvl12 

scb$l^sftlvl13 

scb$l_$ftlvl14 

scbsl..sftlvl15 

scb$l„sftlvl2 

scb$l_sftlvl3 

scb$l..$ftlvl4 

scb$l.sftlvl5 

scb$l_sftlvl6 

SCB$l_SFTlVl? 

SCBSL..SFTLVL8 

SCB$L„SFTLVL9 

SCBSL^TBIT 

SCBSL.T1M6R 

SCBSL^TRANSL 

SCB$L„TXDB 

SCB*L„ZERO 

SCHSQSST 

SEC TICK 

SETlMRS astadr 

SETIMR$~DAYTIM 

SETIMR$JFN 

SETIMR$ w NARGS 

SETIMR$~REQIDT 

SIZ — 

SSS EXQUOTA 

SS$~NORMAl 

SYS5CANTIN 

SYSSCLREF 

SYSSGETTIM 

SYSSHIBER 

SYS$SETEF 

SYSSSETIMR 

SYSSWAKE 

UCKJJS 

TICK^US 

TODRB1AS 

TQE$BjFN 

TQE$B_RQTYPE 

TQESClSSREPT 

TQESL AST 

TQEIL ASTPRM 

TQESLJPC 
TQE$LlFR3 
TQE$L_PID 

tqe«Oqbl 
hevlItqfl 

tqe$q_delta 

tqe$g time 
tqe$v repeat 

UCBSBlAMOD 
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0000001 C 
00000018 
00QQQ0F8 
00000084 
O0000OA8 
000000AC 
OOOOOOBO 
OQ0000B4 
OO00OQB8 
OOOOOOBC 
00000088 
0000008C 
00000090 
00000094 
00000098 
Q00Q009C 
OOOOOOAO 
OQ0OOOA4 
00000028 
OOOOOOCO 
00000024 
OOOOOOFC 

OOOOOOOO 

******** 

= 00000064 
= OOOOOOOC 
= 00000008 
= 00000004 

: mm 

= 00000001 

= 0000001 c 

= 00000001 

******** 

******** 
***** *** 
******** 
******** 
* ******* 
******** 

= 0001 86A0 
* 00002710 

= 00000029 

: W,- 

00000010 
10000014 




00000053 



D 

D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 

G D 
D 
D 
D 


D 
D 
D 

GX 

GX 

GX 

GX 
X 

GX 
X 
D 

D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



04 



04 
04 
04 
04 
04 
04 
04 



UCB$3_CEX 

UCB$B_CM1 

UCBSB.CM2 

UC8SB.0EVCLASS 

UC8$B„DEVTYPE 

UC8SB.DIPL 

UC8$BJ>X SCTCNT- 

UCBSBlERTCNT 

UCBS8JRTMAX 

UCBSB.FEX 

UC8IB..FIPL 

UCBSB^LOCSRV 

UC8$BJ)FFNDX 

UC8$BJ)FFRTC 

UCBSB^REMSRV 

UCBSBlSECTORS 

UCBSB.SLAVE 

UC8IB.SPR 

UCBSB.STATE 

ucbsb tracks 
ucb$b;tt,crkill 

UCBIB^TTlDECRF 

ucbsbjtj)elff 
ucbsbItOespee 
ucbsbjt^detype 
ucb$b.tt_lffill 
uc8sbjt speed 

UC8$BJYPE 

UC8$BlVERTS2 

UCB$C_LENGTH 

UCB$CJIB_LENGTH 
UCBSClTrLENGTH 

ucbskIleRgth 

ucb$k„mb^iength 

ucbsOObngth 

UCBSLlAMB 
UCBllJISTQBL 

ucbslZastqfl 

ucb$l„cpid 

ucbsl^crb 

ucbsl^ddb 

uc8$l~devchar 

ucb$l~devdepend 

ucbsl^dpc 

UCB|lJ>UET1M 

ucbSlIdx.bfpnt 
uc8$l^dx w buf 

UCBSLlDX^RXDB 

UCBSLlEMB 

UCBlLJIRST 

UC8$LlFPC 

UCBSLlFQBL 

UCBILJQFL 

UCBSL;fR3 

UC8$LlFR4 

UCBSLJOQBL 

UC8SLJ0QFL 



00000077 
0000004A 

00000038 
00000039 
00000052 
O00OOOA6 
00000070 
Q000Q071 
00000076 
OOOOOOOB 
0000003C 
00000094 
00000095 
00000030 
0000003C 
00000074 

t 

0009D 
Q000A1 
000OA2 
OOOOAO 
000000A4 
0O00009E 
0000009C 

w 




J090 
OOOOOOBC 
OOOQOf 



>oooi 



OOI 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
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UCBSL. 

UCBSL., 

UCBSL. 

UCBSL. 

UCBSL 

UC3SL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSM. 

UCBSM. 

UCBSM. 

UCBST 

UCBSV, 

UCBSW. 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW 

UCBSW 

UCBSW 

UCBSW, 

UCBSW 

UCBSW 

UCBSW 



1RP 

LINK 

LOGADR 

MAXBLOCK 

MBJ1BX 

MBJ>ORT 

MB.RAST 

MB SHB 

MBJJAST 

M8JJI0Q8L 

MB UIOQFL 

MEClA 

NT DATSSB 

NT"INTSSB 

OPtNT 

OWNUIC 

PIO 

RQBL 

RQFL 

SVAPTE 

SVPN 

TT^DECHAR 

TT RDUE 

TT~RT1M0U 

VCB 

INT 

TIM 

TIMOUT 

PARTNER 

TIM 

;bcnt 

,BCR 

;boff 

.BUFQUO 

bytestogo 

CHARGE 
CYLINDERS 
.DA 
,DC 

.DEVBUFSIZ 
DEVSTS 

;dirseq 

DSTADDR 
[DX.BCR 
,ECT 
EC2 

ERRCNT 
.FUNC 
.MB SEED 
MS8CNT 
MSGMAX 
"NT CHAN 
OFFSET 
[REFC 
SIZE 
SRCADDR 
"STS 
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0000008C 
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00000078 
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00000080 
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00000074 
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00000088 
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00000084 
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0000008C 


D 


00000074 
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00000078 
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0000C060 
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00000028 
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00000004 
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00000000 
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00000068 
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00000064 
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OOO0O0A8 
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0000008C 
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000000B8 


D 


00000030 
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00000002 
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00000001 
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00000040 
OOOOOOOC 
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00000000 
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0000006E 
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00000096 
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0000006C 
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00000018 
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0000003E 
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0000008C 
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0000008E 
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00000088 
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00000018 
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000000A4 
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00000092 
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00000072 
0000007E 
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00000016 
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D 
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0000008A 
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00000050 
00000008 
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0000001A 


D 


00000058 
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UCBSW.TT DESIZE 

UC8SW.UNTT 
UCBSW VPROT 
WAJTM3S NARGS 
WAJTMSSJAG 
WAITMSSZTIME 
WAITMS JfoGS 
WAITUSljJARGS 
WAITUSSJAG 
-WAITUSS.TIME 
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00000048 D 

0000001A D 

= 00000002 D 

5 00000008 D 

= 00000004 D 
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= 00000002 D 

* 00000008 D 

« 00000004 D 
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PSECT name 

ABS . 
SABSS 
WORK 
DATA 
CODE 



_Al location 

0000000™ 

OOO0FE7O 

00000068 

00000006 

OOOQ0426 



! Psect synopsis ! 

+ ™. — + 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

v65136.) 01 ( 1.) NOPJC USR 

( 104.) 02 ( 2.) NOPIC USR 

( 6.) 03 ( 3.) NOPIC USR 

( 1062.) 04 ( 4 J NOPIC USR 



CON 


ABS 


LCL 


NOShR 


NOEXE 


NORD 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 

NOWRT NOVEC LONG 
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SSARGS 
SST1 

SER 

$MODULE 

BIT... 

CANTIM$J\CMODE 

CANTIM$„NARGS 

CANT1MS REQIDT 

CLKSREjNIT 

CLKSRE SYNC.X 

CLOCK TPL 

CMKSCXNUM 

CMK$HIBER 

CMKtHIBER X 

CMK$SETIMR 

CMK$_ 

CMK$_ASTEXIT 

CMK$„CANTIM 

CMK$ H1BER 

CMK$IINITSCB 

CMKSJ.AST 

CMKSJ1MENABLE 

CMK$ RCONSOLE 

CMK$ REFRESH 

CMK$"SCHDWK 

CMK$"SETIMR 

CMKS^SETIPL 

CMK$„SETPRT 

CMK$_SGIPR 

CMK$ TCONSOLE 

DDB$CjJNK 

DDBSL UCB 

OSSCARWAIT 

DS$GA_SOFTINT 

DS$GB STOPPING.. THE_TIMER 

DS$GK"USOVR 

DS$GL_FLAGS 

DS$GL_TIMQFL 



DS$G0 CURYEAR 
DS$GT~NEWYEAR 

DSSKjRROR 

ds$k normal 
ds$Ojysiz 
ds$k w severe 
dssk.subsys 
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VALUE 

=00000004 

=00000000 

=00000002 

00000000-R 

:0000001A 

=00000008 

=00000002 

=00000004 
000003D8- ." 
00000425-R 

=00000018 
O0O0017C-R 
000001 51-R 
000001 66-R 
0000021 5-R 

=00000004 

=00000000 

=OOQ00OOB 

=00000007 

=00000008 

=0000000E 

=00000003 

=00000001 

=00000005 

=00000006 

=00000000 

=00000009 

=00000000 

=0OO00OOA 

=00000002 
00000000 
00000004 
00000000-XR 
00000000-XR 
00000000-XR 
00000000~XR 
00000000-XR 



00000000-R 284 (1) 



00000008-R 288 

0000001 0-R 291 

=00000002 247 

=00000001 247 

=00000014 294 

=00000004 24? 

=00000066 247 
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DSSK.WARNING 

DSSM ABRTFLG 

DSSM^BADTIME 

DSSM BATCH 

DSSM BRKCLR 

DSSM..BRKPT 

DSSM_CHARFLG 

DSSM CMDFLG 

DSSM'CTRLC 

DS$M"CTRLO 

DSSM^DEVFLG 

DSSM^DISABLCC 

DSSM DONFLG 

DSSM_EP&FLG 

DSSM^E/.lt'PT 

DSSM EXETST 

DSSM~HLTFLG 

DSSMJ.ODFLG 

DS$M MEMMGT 

DSSM OUTPUT 

DSSM.RUBFLG 

DSSM^SCRIPT 

DSSM^SETIMR 

DSSM.STRFLG 

DSSM^SUBT 

DSSM SYSFLG 

DSSM^TIMRON 

DSSV ABRTFLG 

DSSV^BADTJME 

DSSV„BATCH 

DSSV.BRKCLR 

DSSV„BRKPT 

DSSV^CHARFLG 

DSSV^CMDFLG 

DSSV CTRLC 

DSSV^CTRLO 

DSSV.DEVFLG 

DSSV^DISABLCC 

D$SV,DONFLG 

DSSVJRRFLG 

DSSV_EXCEPT 

DSSV.EXETST 

DSSV^HLTFLG 

DStV LOOFLG 

DSSV MEMMGT 

DSSV^OUTPUT 

DSSV^RUBFLG 

DSSV^SCRIPT 

DSSV SEUMR 

DSSVlSTRFLG 

DSSV SUBT 

DSSV SYSFLG 

DSSV~UMRON 

DSSWJlTUS 

DSS ARITH 

DSS~ASBE 

DSS'BADLINK 
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DSS BADTYP£ 

DSS"8HC 

DSS^CHME 

DSS CHMK 

DSS DEVNAME 

DSS~ERROR 

DSS~FHWE 

DSSJRAGBUF 

DSS ICBUSY 

0SS31CERR 

DSSJHWE 

DSSJILCHAR 

DSS 1LLPAGCNT 

DSS~ILLUNIT 

DSSJNSFMEM 

DSS IPL2HI 

DSSIIVADDR 

DSSJVVECT 

DSS kRNLSTK 

ds*Zlogic 

DSS MCHK 

DSS'MMOFF 

DSS~NEEDUNIT 

DSS>ODE 

DSS NOPCS 

DStJJORMAL 

DSS NOSUP D ORT 

DSSlNOTDON 

DSS„NQTIMP 

DSS Nl'USTR 

DSS OVERFLOW 

DSS POWER 

DSS'PROGERR 

DSSISEVERE 

DSSJRANSl 

DSS TRUNCATE 

DSS~UNEXPINT 

DSJTVAS r, JLL 

DSS WARNING 

DSlfTIMER 

DSISTIMER X 

DSISHMSR? 

DSRSSEHMR INJ 

Df>XSCANWAlT 

DSXSWAITMS 

DSXSUA1MS 

DSXSWAI i 'V 

DSXSWAIl.iS ■->'« 

DSXSWAI TJ, % . 

DS ERRSUP 

DY&SC TOE 

exesaCloctqe 
exescantim 
exesdeanonpaged 
exesgl abstim 

EXfcSGQlSYSriME 
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EXESHIBER 
EXESHIBER x 
EXESINSTlflQ 

EXEtSETIMR 
EXESWAKE 
GETTIMS^NARGS 
GETTIMS TIMADR 
ICCSSM.fRR 

1CCSSMJE 
ICCSSMJNT 

ICCS$M_RESET 
ICCSSM^RUN 
ICCLtM XFER 
IOC$GL~DEVLIST 
10C$K 5IAGP1D 
IPLS^RWCLK 
J PL S.POWER 
IPL$_TIMER 

KBCHECK 

MSTlME 

ONESECTIM 

ONE SECOND 
ONL? CLOCKJNIT 

PRSjCCS 

PR$ 1CR 
PRSJPL 



PRS^NICR 
PR$ SIRR 
PSLlS IPL 
PSL$VJPL 
PSLSV IS 

schsqSst 

SEC TICK 

SETlMRS.ASTAOR 

SETIMR$lDAYTIM 

SETIMR$JFN 

SETIMRS NARGS 

SETIMRSlREQJDT 

SIZ... 

S5$JXQUOTA 

SSSJIORMAL 

SYSSCANTJM 

SYSSCLREF 

SYS$GETTIM 

SYS$HIBER 

SYS$SETEF 

SYSSSETIMR 

5Y5SWAKE 
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000001 31-R 602 

000001 50-R 609 

000001D1-R 754 

00000203-R 813 

0Q000Q1B-R 390 

=00000001 244 

=00000004 244 

=80000000 266 

=00000040 264 
'00000080 265 

=8000000 268 
=00000001 262 
=00000010 263 

00000000-XR 
00000000-XR 

=0000001F 
=00000007 

00000000-XR 
00000060-R 311 
00000Q24-R 296 
00000380-R 1009 
00900000-XR 
=00000018 

=0000001A 
=00000012 
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^00000019 
=00000014 
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=00000010 
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=0000 
=00000001 
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O0O0OQQ0-XR 
OQQQQQQO-XR 
OQOQQQO-XR 
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00000000-XR 
00000000-XR 
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#-1083 

#-549 

#-1087 

#-1084 

#-548 

#-899 

#-1089 

#-1088 

1013 
#-848 
#-945 
#-1025 
#-1039 
#-961 
#-604 

309 
#-1108 

301 

1096 
#-1085 
#-547 
#-553 
#-1025 
#'533 
#-757 
#-999 
#-1086 
#-917 
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#-607 
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#-849 
#-839 




(1) 



(1) 



14 
7-JUL-19I 

I3-MAY-19I 



#-857 




J68 

268 
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#-999 
#-823 
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#-1090 

#-620 

#-621 

#-1033 

#-543 

#-769 

#-539 

#-835 
#-835 

#-658 
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#-822 
#-473 
#-858 
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m 

(D 
(i) 



d) 



d) 
d) 
(D 



d) 



#-994 



#-537 
#-905 

#-536 
#-905 

#-540 



#-917 



#-537 

#-89C 

#-1039 

#-666 

#-945 



#-815 



#-560 



(1) 



(1) 
(1) 

(1) 

(1) 

(1) 



(1) 



(1) 
(1) 

(1) 
(1) 
(1) 



(1) 



#-541 
#-541 



(1) 
(1) 



#-918 



(1) 



#-542 

#-906 

#-521 
#-691 
#-961 



(1) 
(1) 

(1) 
(1) 
(1) 



(1) 



#-608 (1) 
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TICKJIS 
UCKJJS 

TODR BIAS 

TQE$B EFN 

TQESB RQTYPE 

TQESClSSREPT 

TQESL^AST 

TQESL ASTPRM 

TQESLlFPC 

TQESLJR3 

TQESL^PIO 

TQE$L TQBL 

TQESL^TQFL 

TQESQ~DELTA 

TQE$Q"T1ME 



TQESV REPEAT 

UCB$B DIPL 

UCB$IJ)UET1M 

UCB$LJPC 

UCB$L„FR3 

UCBSLJ.INK 

UCBSMJNT 

UCBSMJIM 

UCB$M T1M0UT 

UCBSVlTIM 

UCBIW STS 

WAITMS$ NARGS 

WA1TMS$ITAG 

WAITMSS TIME 

WA1TMS KRGS 

WAITUSt^NARGS 

WAITUSS.TAG 

WA]TUS$_TIME 
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=0001 86A0 273 
=00002710 272 
=10000000 270 
=00000029 
=00000008 
=00000005 
=00000010 
=00000014 

=ooogoooc 

=00000010 
=0000000C 
=00000004 
=00000000 
=00000020 
=00000018 



^00000002 
00000052 
0000005C 

oooooooc 

00000010 
0000002C 
=00000002 
=00000001 
=00000040 
=00000000 
00000058 

=00000002 257 
:00000008 257 
=00000004 257 
0000004C-R 307 
^00000002 258 
=00000008 258 
=00000004 258 



(1) 
(1) 
(1) 
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#-1103 

#-1086 

#-1098 

#-852 

#-677 

300 
#-850 
#-681 

989 
#-988 
#-848 
#-760 
#-675 
#-991 
#-1108 
#-911 
#-992 
#-990 
#-1033 
#-102? 
#-1035 
#-1034 

1017 
#-1030 
#-1030 
#-1032 
#-1026 

1026 

#-467 

#-446 

457 

#-556 
#-529 



Seguence 659 
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SYSMAINT3CL0CK.MAR;180 (1) 



#-453 
273 

#-971 
#-847 

#-973 



(1) 
(1) 

(1) 
(1) 

(1) 



#-1019 (1) 

#-1031 (1) 
#-453 (1) 



#-889 (1) 
274 (1) 



962 (1) 



990 



(1) 



#-756 


(1) 


#-763 


(1) 


#••766 


(1) 


#-914 


(1) 


#-951 


(1) 


#-954 


(1) 


#-993 


(1) 











#-1032 (1) 
#-469 (1) 



#-558 



(1) 
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Cross reference 




D 4 

27-JUL-1984 


Fiche 4 Frame D4 Sequence 660 


CLOCK 






INTERVAL TIMER 


ROUTINES, 


27-JUL- 


-1984 15: 


09:02 VAX-11 Macro V03-01 Page 41 
10:42 DMA1jCSYS0.SYSMAINT]CLOCK,MAR;18O (1) 


Cross reference 

MACRO 
SCANTIMDEF 


SIZE 


+ • 
+< 

DEFINITION 

243 (1) 




23-MAY- 


-1984 Hi 


Macros Cross Reference ! 


REFERENCES... 


243 (1) 


SCANTIM S 






353 CD 


353 (1) 








SCLREF 5 






827 (1) 


827 (1) 








SDDBDEF 






245 (1) 


245 (1) 








SDEF 






260 (1) 










SDEF1NI 






245 (1) 


245 (1) 246 


(1) 


248 


(1) 249 (1) 250 (1) 










;:?i d) 252 


(1) 


253 


(1) 255 (1) 256 (1) 


$DS„DSADEF 




«; 


246 (1) 


W6 (D 








$DS_DSDEF 




2 


247 (1) 


e***> (1) 








SDS.SCBDEF 




3 


251 (1) 


2^ (D 








SDSJJAITMS 


.OEF 




257 (1) 


257 (1) 








SDSJMITUS. 


.OEF 




258 (1) 


258 (1) 








$DS WA1TUS. 


S 




448 (1) 


448 (1) 








sdyRdef 






248 (D 


248 (1) 








SEQU 






260 (1) 


247 m 259 


(1) 






SEQULS1 






259 (1) 


247 (1) 259 


(1) 






SEQULST 






247 (1) 


247 (1) 259 


(1) 






SG8LIN1 








247 (1) 259 


(1) 


260 


(1) 


SGETTIMOEF 






244 (1) 


244 <1> 








SGETTIM S 






440 CM 


440 (1) 462 


(1) 






SHIBER 3 






460 (1) 


46C (1) 








SIPLDET 






249 (1) 


249 (1) 








$OFFDEF 






243 (1) 


243 (1) 244 
309 (1) 


(1) 


254 


(1) 257 (1) 258 (1) 


SPRDEF 






152 (1) 


250 (1) 








SPSLDEF 






253 (1) 


253 <1> 








SPUSHADR 






440 (\) 


440 (1) 448 


(1) 


462 


(1) 964 (1) 


SPUSHTWO 






353 n: 


353 (1) 








SSETIMR 






308 ( 1 ) 


308 (1) 








SSETIMRDEF 






254 (1) 


254 (1) 309 


<1) 






$SETIMR„G 






IS? (D 


457 (1) 








SSSDEF 




21 


252 (1; 


252 (1) 








STQEDEF 






2 l s ( V 


255 (1) 








SUCBDEF 




10 


256 (1) 


256 (1) 








$VIELD 








260 (1) 








SVIELD1 






260 (1? 


260 (1) 








CASE 






963 (1) 


963 (1) 








CMK 






607 (1) 


607 (1; 658 


(1) 


815 


(1) 


CMKDEF 






259 <1> 


259 (1) 








DSBINT 






521 (1) 


521 (1) 666 


(1) 


757 


(1) 


OSFDEF 






260 (D 


260 (1) 








ENBINT 






533 PJ 


533 (1) 543 


(1) 


691 


(1) 769 (1) 


ERRSUP S 






964 ( 1 ) 


964 ( 1 ) 








MODNAM 






518 (1) 


3)8 (1) 








SETIPL 






945 (1) 


1025 (1) 1033 
999 (1) 


(1) 


1039 


(1) 945 (1) 961 (1) 


SOFTINT 




1 


917 (1) 


917 (1) 
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CLOCK 

VAX-11 Macro Run Statistics 



INTERVAL TIMER ROUTINES. 



27-JUL-1984 Fiche 4 Frame E4 Seguence 661 

27-JUL-1984 15:09:02 VAX-11 Macro V03-0T Page 42 
23-MAY-1984 14:10:42 DMA1 ;CSYS0.SYSMAINTJCL0CK,MAR;180 (1) 



4 ........... + 

! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00:00:00.11 00:00:00.22 

Command processing 142 0000:00.73 00:00:01.56 

Pass 1 1077 00:00:19.53 00:00:27.59 

Symbol table sort 3 00:00:01.73 00:00:01.93 

Pass 2 345 00:00:03.93 00:00:04.97 

Symbol table output 51 00:00:00.35 00:00:00.42 

Psect synopsis output 8 00:00:00.04 00:00:00.04 

Cross-reference output 119 00:00:01.09 00:00:01.42 

Assembler run totals 1784 00:00:27.53 00:00:38.15 

The working set limit was 1000 pages. 

106889 bytes (209 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1107 non-local and 42 local symbols. 

1114 source lines were read in Pass 1. producing object records in Pass 2. 

141 pages of virtual memory were used to define 42 macros. 

! Macro library statistics ! 
+....... ......... — .......... + 

Macro library name Macros defined 

DRB1 :CDS.W0RK]D1AG.MLB;955 10 

DRB1:CDS.W0RK]DS.MLB;218 5 

SYS$SYSR00T:CSYSLJB]LIB.ML8;1 6 

0MA1:CSYS0.SYSMAINT]DS,ML8;P18 

0MA1:CSYS0.SYSMAINT]DIAG.MLB;953 

SYS$SYSR0QT:CSYSLJB3LJB.MLB;1 

SYS$SYSR00T:CSYSLIBJS1ARLET.MLB;2 19 

TOTALS (all libraries) 40 

1329 GETS were required to define 40 macro*. 

There were no errors, warnings or informal ion messages. 

MACRO/NOOBJECT/Li ST=[DS.L I S]/CR0SS/ENA8LE= (DEBUG, TRACE) CLOCK/UPDA= (CLOCK. UPD, CLOCK. ENH) +SYS$HBRARY:LIB/L IBRARY+DMA1 :CSYS0.SYSWAINT 
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COMDRVSUB *** COMDRVSUB driver support routines 27-JUL-1984 15:09:42 VAX-11 Macro VO3-0T Page 
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(2) 73 COMSDFLATTNAST *- DELIVER ATTENTION ASTS 

(3) 111 COMSFLUSHATTNS • FLUSH ATTENTION AST LIST 

(O 154 fOMSPOST - POST 1.0 COMPLETION INDEPENDENT OF UNIT STATUS 

(5) 185 COM$DRVDEALMEM - DEALLOCATE DRIVER MEMORY 

(6) 230 COMSSETATTNAST - SET UP ATTENTION AST 



ZZ-ENSAA-7,0 

COMDRVSUB 
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02 
02 
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*** COMDRVSUB driver support routines 

*** COMDRVSUG driver support 



6 4 
27-JUL-1984 Fiche 4 Frame 64 Seguence 663 

routines 27-JUL-1984 15:09:42 VAX-11 Macro V03-0T Page 1 

1-APR-1980 10:17:41 DMA1 ^SYSO.SYSMAINTKOMDRVSUB.MAR; (1) 



02 
02 
02 



0000 
0000 
0000 
0000 
0000 
C000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

uOOO 

ooco 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 



.1 

.2 
3 
4 
5 
6 
7 
8 
9 

10 

11 
I? 

13 

;a 

.5 



> 

< * 

V 
?8 

?9 
}0 

31 
32 

S3 

*;4 

'<5 

?6 
37 

59 
<-0 

i;i 

^2 
w3 
<4 

.1 

. i- 

.3 

«;5 

46 
47 

*8 
49 
50 
SI 
52 
53 
54 



*** COMDRVSUB driver surnort routines 



.TITLE COMDRVSUB 
JDENT /06.01/ 



* COPYRIGHT (c) 1978, 1979, 1980 

* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

* OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

* TRANSFERRED, 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

* CORPORATION. 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
* 

FACILITY: 

VAX/VMS I/O DRIVERS 
ABSTRACT: 

THIS MODULE CONTAINS SUBROUTINES FOR THE TERMINAL , MAILBOX AND DMC11 DRIVERS, 



AUTHOR: 



R.HEINEN 8-SEPT-1977 



REVISION HISTORY: 



V07 TCM0001 Trudy C Matthews 2-Jan~1980 
Changed COMSSETATTNAST so that it only extracts the 
two Bits of the access mode in the P3 parameter, 
instead of taking the whole byte. 



01 



Dave Butenhof 

Update VMS module for Supervisor; delete quota checks 



EXTERNAL SYMBOLS 

$AC8DEF 
$CC8DEF 
SDYNDEF 
SIPLDEF 
SIRPDEF 
SPCBDEF 



DEFINE AST CONTROL BLOCK 

DEFINE CCB 

DEFINE DYNAMIC MEMORY BLOCKS 

DEFINE JPL LEVELS 

DEFINE I/O PACKET 

DEFINE PCB 



j 
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*-** COMDRVSUB driver support routines 

*** COMDfiVStJi: driver support 



02 





0000 


55 


SPRDEF 




0000 


56 


SPRJDEF 




0000 


5? 


SPRVDEF 




0000 
0000 


58 


SPSLDEF 




59 


SRSNDEF 




0000 


cQ 


SUC8DEF 




cooo 


fti ; 






0000 


b2 ; LOCAL 


DEFINITIONS 




0000 


tl : 




oooooooo 


0000 


a bu o 




00000004 


0000 


6S P2= <♦ 




00000008 


0000 


t.6 P3* 8 




oooooooc 


0000 


67 P4* 12 




00000010 


0000 


68 P5= 16 




Q00000K 


cooo 


69 P6= 20 






0000 


70 




oooooooo 


1 
• » 


,PSECT SEP 



H * 

27-JUL-1984 Fiche 4 Frame H4 Seguence 664 

routines 27-JUL-1984 15:09:42 VAX-11 Macro V03-01 Page 2 
1-APR-1980 10:17:41 DMA1:CSYS0.SYSMAINT]C0MDRVSUB.HAR; <1> 

DEFINE PROCESSOR REGISTERS 
DEFINE NEW PRIORITIES 
DEFINE PRIVELEGE BITS 
DEFINE PSL 
DEFINE RESOURCES 
DEFINE UCB 
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- DELIVER ATTENTION ASTS 1-APR-1980 10:17:41 DMA1 :[$Y$0.$YSMAINT3COMDRVSUB.MAR; (2) 



COHSDELATTNAST 



55 04 



04 BE 



F3 



38 
BE 
28 
65 
\F 



10 
08 
OC 



*5 18 A5 

A5 20 A5 

A5 24 A5 

18 A5 

5? 01 

OOOOOOOO'Gf 

38 



B8 
DO 
13 
DO 
9F 



7D 
90 
DO 
D4 
9A 
17 
BA 
05 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

C70Q 

OuOO 
0000 
0000 
0000 
0000 
000? 
0006 
0008 

oooc 

000F 
0015 
00 1 5 
0015 
0015 
001A 
00 u 
0024 
0097 
002A 
0030 
0032 



73 
74 

75 
76 
77 
78 
70 

80 
81 
82 
83 
84 

86 
87 

88 
89 
90 
91 
92 
Q$ 
94 
^ 
96 

: j e 

V9 
100 
101 
102 
103 
KH 
105 
1J6 
107 
108 
109 



+ + 



.SBTTL COMSDELATTNAST - DELIVER ATTENTION ASTS 

COMSDELATTNAST - DELIVER ATTENJON ASTS 

FUNCTIONAL DESCRIPTION; 

THIS ROUTINE IS USED BY THE TERMINAL AND MAILBOX DRIVERS TO DELIVER 

ALL OF THE ASTS AWAITING ATTENTION. THE CONTROL BLOCKS ARE USED AS FORK BLOCKS 

TO JPL$_QUEUEAST, 

INPUTS: 

R4 s ADDRESS OF LIST HEAD OF AST CONTROL BLOCKS 
R5 c UC8 OF UNIT 

OUTPUTS: 

R2,R3 # R4,R5 ARE PRESERVED. 

COMSDELATTNASTi! 



r>USHR 
10$: MOVL 
BEQL 
MOVL 
PUSHAB 
FORK 



/TM<R3,R4,R5* 
84<SP),R5 
50$ 
(R5) f a4(SP) 



DELIVER ATTENTION ASTS 

GET NEXT ENTRY 

IF EQL THEN NONE 

CLOSE LIST 

SET UP RETURN ADDRESS 

CREATE FORK PROCESS 



AST QUEUE FORK PROCESS 



50$: 



MOVQ ACB$L KAST(R5),ACB$L ASTCR5); REARRANGE ENTRIES 

MOVB ACB$LlKAST+8(R5) f ACBlB RM0D(R5); 

MOVL AC8$L:KAST+12(R5),ACB$C^PID<R5); 

CLRL AC8$L KAST(R5) * 

M0V2BL *PRI$~I0C0M,R2 ; SET UP PRIORITY INCREMENT 

JMP G A SCH|QAST ; QUEUE THE AST 

POPR # A M<R3,R4,R5> 

RSB 
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COfWLUSHATTNS - H'rM ATTENTION AST US 27-JUL-1984 fiche 4 Frame J4 

*** .OMDRVSUB driver support routines 27-JUL-1984 15:09:42 VAX-11 
COMSFLUSHATTNS - HUSH ATTENTION AST LIS 1-APR-1980 10:17:41 



Seguence 666 
Macro V03-01 Page 4 
DMA1:CSYS0.SYSMAINT3COMDRVSUB.«AR;(3) 



50 



67 

1 *- 



24 A0 



60 A4 
10 

22 AO 56 

OA 

67 60 



-1 



57 



1F 
DD 
50 
OF 



50 00'8F 



DO 
13 
D1 
12 
B1 
12 
DO 

10 
11 
DO 
11 

9A 
05 



0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
C033 
:>033 
0033 
0033 
0033 
0033 
;.03 T . 
0033 

00>i 
00L3 
033 
0033 
003A 
003D 
003F 
0044 
0046 
004A 
Q04C 
004F 
0052 
0054 
0056 
005° 
0058 
005E 
0062 



111 
112 
113 
114 
115 
116 
117 
118 
11V 
120 
12! 
^22 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 

ir, 

134 
.35 

]» 

13" 

13. 

140 

141 

H2 

143 

144 

146 

147 

148 

149 

150 

151 

152 



.S8TTL COMSFLUSHATTNS - FLUSH ATTENTION AST LIST 

COMSF LUSHATTNS - FLUNS ATTENTION AST LIST 

THIS ROUTINE IS USED BY THE TERMINAL AND MAILBOX DRIVERS TO FLUSH 

AN ATTENTION AST LIST. THIS IS DONE AT CANCEL I/O TIME AND WHEN A 

020 5PECJFTES A AST ADDRESS ON A SET ATTENTION AST FUNCTION. 

IF THi AST CONTROL BLOCK OWNER IS NO LONGER IN THE SYSTEM THE AST IS 

FLUSHED, 



ALSO 



INPUTS: 



R4 = PCB ADDRESS 

R5 = UCB ADDRESS OF RELATED UNIT 

R6 = CHANNEL NUMBER 

R7 = LIST HEAD 



OUTPUTS: 



RO = SSS NORMAL 
R1,R2,R7 ARE DISTROYED, 



COMSFLUSHATTNS: 
DSBINT 



10$; 



40$: 
50$: 



MOVL 

BEOL 

CMPL 

BNEQ 

CMPW 

BNEQ 

MOVL 

EN8INT 

BSBB 

BR8 

MOVL 

BRB 

EN8INT 

M0VZ8L 

RSB 



UCB$8 DJPKA5) 

(R7),R0 

50$ 

PCB$L„PID(R4),AC8$L^ 

40$ 

R6,ACB$LJ<AST+10(RQ) 

40* 

<R0),(R7) 

COM$DRVDEALMEM 

COM$FLUSHATTNS 

R0,R7 

10$ 

*SS$_NORMAL,R0 



FLUSH ATTENTION AST LIST 
DISABLE INTERRUPTS 
GET LIST ENTRY 
U EQL THEN DONE 
KA5T+12(R0); PID MATCH? 
IF NEQ THEN NO 
CHANNEL MATCH? 
IF NEQ THEN NO 

CLOSE UP LIS1 TO REMOVE ENTRY 
REENABLE INTERRUPTS 
DEALLOCATE THE BLOCK 
CONTINUE 

LOOK TO NEXi ENTRY 
CONTINUE 

REENABLE INTERRUPTS 
SET NORMAL RETURN 
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6C A5 

63 

QOOQQQOO'FF 

03 



06 
OE 

12 

05 



0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0065 
0063 
C063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0066 
006S 
006D 
006F 
0072 



154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
145 
166 
16? 
168 
169 
170 
171 
172 
17? 
174 
175 
176 
177 
178 
179 
180 



++ 



.SBTTL COMSPOST - POST J.O COMPLETION INDEPENDENT OF UNIT STATUS 

COMSPOST - POST 1/0 COMPLETION INDEPENDENT OF UNIT STATUS 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED BY THE TERMINAL, MAILBOX AND DMC DRIVER TO COMPLElt 
I/O OPERATIONS INDEPENDENT OF THE STATUS OF THE UNIT. NC ATTEMPT IS MADE 
TO DE-QUEUE ANOTHER PACKET OR CHANGE THE BUSY STATUS OF THE UNIT, 



INPUTS: 



R3 = I/O PACKET ADDRESS 
R5 = UCP ADDRESS 

IMPLICIT INPUTS: 

CALLER AT DRIVER FORK IPL OR GREATER. 

IRPSL.MfcDIA AND IRPSL.MEDIA+4 ARE THE IOSB QUAD WORD, 

OUTPUTS: 

R0.R1 ARE DISTROYED. 



COMSPOST:: 

INCL 
INSQUE 



181 
182 
183 10$: 



BNEQ 

SOFTINT 

RS8 



UCBSL OPCNHR5) 
(R3),3lQCSGL_PSBL 

10S 
#IPL$JOPOST 



COMPLETE I/O 

INCREMENT OPERATION COUNT 

INSERT PACKET ON QUEUE 

IF NEQ THEN NOT FIRST 
REQUEST FORK 
RETURN 
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'ag< 
COM$DRVDEALMEM - DEALLOCATE DRIVER MEMOR 1-APR-1980 10:17:41 DMA1 :[SYS0.SYSMAINT3COMDRVSUB*MAR; (5) 



Page 



08 AO 



18 
1E 
38 
06 
50 
94'AT 
00000000* Gf 



OB AO 
55 



50 55 

00000000' GF 

38 



02 

-1 



B1 
1A 
BB 
90 
DO 
9F 
16 



DO 
17 
BA 
05 



05 



0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
C073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0077 
0079 
0078 
007F 
0082 
0085 
0088 
0088 
0088 
0088 
008E 
0094 
0096 
0097 
0097 
0097 
0097 
0097 



+ + 



185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 

196 
197 

198 
199 
200 
201 
202 
203 
204 
205 
206 
207 

208 
209 
210 
211 
212 
213 
214 
215 

216 
217 

218 

219 

220 

221 

222 20$: 

223 

224 



,SBTTL COM$DRVDEALMEM - DEALLOCATE DRIVER MEMORY 
COMSDRVDEALMEM - DEALLOCATE DRIVER MEMORY 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED BY DRIVERS TO DEALLOCATE SYSTEM DYNAMIC MEMORY. 
IT CAN BE CALLED AT ANY IPL, 
INPUTS: 

RO = ADDRESS OF THE BLOCK TO DEALLOCATE 

THE BUFFER MUST BE AT LEAST 24 BYTES LONG! 

OUTPUTS: 

R0-R5 ARE PRESERVED. 
COM$DRVDEALMEM;; 



CMPW #24,8(R0) 

BGTRU 30$ 

PUSHR #*M<R3,R4,R5> 

M0V8 #IPL$_GUEJEAST,1KRO> 

MOVL R0,R5 

PUSHAB B*20$ 

JS8 G A EXE$FQRK 

JPL$_QUEUEAST FORK ROUTINE 



MOVL 
JMP 
POPR 
RS8 



R5,R0 

G A £XE$DEANONPAGED 

tf A M<R3,R4,R5> 



225 
226 



BUGCHECK ON TOO SMALL A BUFFER 



,1 $0$:; BUGCHECK BADDALRQS2 
228 RS8 



DEALLOCATE DRIVER MEMORY 

BIG ENOUGH BUFFER TO DEALLOCATE? 

IF GTRU THEN NO - ERROR 

SAVE FORKING REGS 

INSERT PROPER IPL 

COPY ADDRESS 

SET UP RETURN ADDRESS 

CREATE FORK 



DEALLOCATE THE BLOCK 



BUGCHECK 
CONTINUE 



2Z-ENSAA-7.0 

COMDRVSUB 
U6-01 
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56 28 A3 

58 6C 

92 



0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
C098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
3C 0098 
DO 009C 
13 009F 
00A1 
00A1 
00A1 
00A1 
00A1 



230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

?67 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 



.S8TTL C0M5SETATTNAST - SET UP ATTENTION AST 

COMSSETATTNAST - SET UP ATTENTION AST 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS A SUBROUTINE USED BY THE TERMINAL AND MAILBOX DRIVERS 

TO PROCESS REQUESTS FOR ENABLE OR DISABLE OF ATTENTION ASTS. 

P1 IS THE ADDRESS OF THE AST SERVICE FOR ENABLES, P1 - FOR DISABLE. 

FOR DISABLES, THE SPECIFIED LIST IS SEARCHED AND THE ENTRY EXTRACTED AND 

DEALLOCATED. 

FOR ENABLES, A CONTROL BLOCK IS CFT UP THAT WILL DOUBLE AS THE AST CONTROL 

BLOCK WHEN THE AST IS DELIVERED. .HE BLOCK IS FORMATTED AS FOLLOWS: 

ACBSB..RMOD = IPR$ QUEUEAST 
ACB$L_KAST * AST PC 
AC8$L KAST+4 = AST PARAMETER (P2) 
ACBSL~KAST+8 « ACCESS MODE OF REQUEST 
ACB$LlKAST*10 = CHANNEL NUMBER 
AC8$L.KAST+12 = PJD OF REQUEST 

THE NEW BLOCK IS PLACED AT THE HEAD OF THE CURRENT LIST, 

IN BOTH CASES THE I/O IS COMPLETED. 



INPUTS: 



R3 = I/O PACKET ADDRESS 

R4 = CURRENT PCS 

R5 = UCB ADDRESS 

R6 = ASSIGNED CCB 

R7 = ADDRESS OF THE CONTROL AST 

AP = ADDRESS OF THE 010 ARGLIST 



LIST HEAD TO CHANGE 



OUTPUTS: 



RO = STATUS OF THE I/O 
R3 = PACKET ADDRESS 
R5 = UCB ADDRESS 

NO OTHER REGISTERS ARE PRESERVED. 



COMPLETION CODES: 

SSS.NORMAL 
SS$ EXQUOTA - 
SS$"INSUFMEM - 



- BUFFERED I/O OR AST QUOTA FAILURE 

- DYNAMU MEMORY FAILURE 



COMSSETATTNAST;: 

MOVZWL IRPSW CHAN(R3),R6 
MOVL PKAP7,R8 
BEQL COMSFLUSHATTNS 

REQUEST TO ENABLE AST 

SET UP AST BLOCK 



SET UP ATTENTION AST 

GET PACKET CHANNEL NUMBER 

GET USER AST ADDRESS 

IF EQL THEN DISABLE FUNCTION 



ZZ-ENSAA-7.0 

COMDRVSUB 

U6.01 

-4 



670 
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51 28 


9A 


O0A1 


291 


53 


OD 


00A4 


292 


00000000'GF 


16 


00A6 


293 


53 8ED0 


OOAf 


294 


40 50 


E9 


OUAh 


c-95 


OB A2 06 


90 


00B2 


296 


18 A2 58 


DO 


00B6 


297 


1C A2 04 AC 


DO 


OOBA 


298 


02 00 


EF 


OOBF 


299 


50 08 AC 




O0C2 




00000000'GF 


16 


O0C5 


300 


20 A2 50 


9A 


OOCB 


301 


20 A2 40 8F 


88 


OOCF 


302 


22 A2 56 


BO 


O0D4 


303 


24 A2 60 A4 


DO 


C0D8 


304 






OODD 


305 






OODD 


306 






OODD 


307 






OODD 


308 


62 67 


DO 


00E4 


309 


67 52 


DO 


00E7 


710 






OOEA 


311 


50 00'8F 


9A 


OOED 


312 




05 


00F1 


313 


FFOB' 


31 


O0F2 


314 






OOF 5 


315 






O0F5 


316 



MOVZBL 

PUSHL 

J SB 

POPL 

BLBC 

M0V8 

MOVL 

MOVL 

EXTZV 

J SB 

MOVZBL 

BISB 

MOVW 

MOVL 



#ACB$L KASM6,R1 

R3 

G A EXE$ALLOCBUF 

R3 

R0,20$ 



SET SIZE OF NEEDED BLOCK 
SAVE PACKET ADDRESS 
ALLOCATE THE BUFFERED BLOCK 
RESTORE PACKET ADDRESS 
^ LOW SET THEN ALLOCATED 



#IPL$ QUEUEAST,ACB$B..RM0D(R2); INSERT FORK I PI 
R8,ACB$L KASHR2) ; INSERT AST ROUTINE ADDRESS 
P2(AP),ACB$L KAST+4<IT) ; INSERT PARAMETER FOR AST 
#0,#2,P3(AP)7R0 ; GET REQUEST ACCESS MODE 

G A EXE$MAXACMODE ; MAXIMIZE ACCESS MODE 

RO,ACB$L KAST+8(R2) ; INSERT IN CONTROL BLOCK 

*ACB$M QDOTA.ACBSL KAST+8(R2>; INSERT TARGET ACCESS MODE 

R6,ACB$L KAST+10(R2) ; SAVE CHANNEL 

PCBSL PlB(R4),ACB$L KAST+12CR2); INSERT PID ADDRESS OF REQUESTOR 



LOCK OUT INTERRUPTS TO ENTER BLOCK ON UC8 



20$: 



DSBINT 

MOVL 

MOVL 

ENBINT 

MOVZBL 

RS8 

BRW 

.END 



UCBSB DIPL(R5) 

(R7),7R2) 

R2,(R7) 

*SS$JVORMAL,R0 
EXESABORTIO 



LOCK OL'i INTERRUPTS 
MERGE WITH CURRENT ENTRY 
INSERT NEW ENTRY VALUE 
LOWER IPL 
SET NORMAL RETURN 
RETURN VIA CALLER 
ABORT THE I/O 
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ACBSB RMOD 

ACBSBlTYPE 

ACBSCJ.ENGTH 

ACBSKJ.ENGTN 

ACBSL..AST 

ACBSL ASTPRM 

ACBSL..ASTQBL 

ACB$LJ\STQFL 

ACBSL KAST 

ACBSL.PID 

ACBSM QUOTA s 

ACB$WlSI2E 

CC8SBJW0D 

CCBSB.STS 

CCBSC^LENGTH 

CCBSK LENGTH 

CCBSLlDIRP 

CCBSLJJCB 

CCBSL„W1ND 

CCB$W~IOC 

COMSDELATTNAST 

COMSDRVDEALMEM 

COMSFLUSHATTNS 

COMSPOST 

COMSSETATTNAST 

EXESABORTIO 

EXESALL0C9UF 

EXESDEANONHGED 

EXESFORK 

EXESMAXACMODE 

IOCSGL PSBL 

IPISJOPOST 

IPL$~QUEUEAST ■ 

IRPSB^CARCON 

IRPSBJFN 

IRPSB^PRI 

IRPSB RMOD 

IRPSB^TYPE 

IRP$C w LENGTH 

IRPSK LENGTH 

1RPIL.ARB 

IRPIL.AST 

IRP$L^ASTPRM 

IRP$L_DIAGBUF 

JRP$L EXTEND 

IRPSLllOQBL 

IRPSLJOQFL 

IRPSLJ0S8 

IRPSLJOST1 

IRP$LllOST2 

JRP$L ..MEDIA 

IRPSL^PID 

JRP$L_SEGVBN 

IRP$L_SEQNUM 

IRPSL^SVAPTE 

JRPSLiTT TERM 

IRP$L UCB 



Symbol table 
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IRPtL WIND 
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IRPSW'BCNT 
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1RPSW TT PRMPT 
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P2 

P3 

P4 

P5 

P6 

PCB$8 ASTACT 
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PCBSBJWB 

PCBIB^TYPE 

PCBSBlWEFC 

PCB$C^LENGTH 
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PCBSL^ARB 

PCBSL^ASTOBL 

PCBSL JtfTQFl 
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PCBSL.EFCS 

PCBSLJFCU 

PCBSLlEFWM 

PC8$L_JI8 

PCBSL OWNER 

PCBSL^PHD 

PCB$L PHYPC8 

PCBSLlPJD 

PCBSL J>QB 

PCBSL SQBL 

PCBIL^SQFL 

PCBSL^STS 

PCB$L,UJC 

PCBSL_WSSWP 

pcbsl wtjme 

pcb$q;prjv 

pc8$t_lname 

pcbst terminal 

pcbswj\ptcnt 

pcbswj\stcnt 

PC8$W~8I0CNT 

PCBSW~BIOLM 

PCBSW..DIOCNT 

PC8$WlDI0LM 

PCBSWlGPGCNT 

PCBSW.GRP 
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PC8$W MTXCNT 

PCBSW.PPGCNT 

PCBSW PRCCNT 

PCBSWlSIZE 

PCBSW"STATE 

PCBSW TMBU 

PRSjPL = 

PRS SJRR = 

PRIJ IOCOM = 

SCHS5AST 

SIZ... = 

SS$ NORMAL 

UCBJB AMOD 

UCBSB..CEX 

UCBSB„CM1 

UCBSB CM2 

UCBSB DEVCLASS 

UCBSB^DEVTYPE 

UC8SB_DIPL 

UC8SB..DX SCTCNT 

UCBSBJRTCNT 

UCBSB.ERTMAX 

UCB$B„FEX 

UCBSBJIPL 

UC8SB_L0CSRV 

UCBSB..OFFNDX 

UCBSB^OFFRTC 

UCB$B_REMSRV 

UCBSB_SECTORS 

UCBSB^SLAVE 

UCBSBZSPR 

UCBSBJTATE 

UCBSBJRACKS 

UCBSB JT_CRF ILL 

UCB$B~TT_DECRF 

UCBSB TTlDELFF 

UCBSB^TT^DESPEE 

UCBS8lTT_DETYPE 

ucbsb ttj.ffill 
ucbsbjt speed 
ucbsb^tyPe 
ucbsbzvertsz 
ucbsc^length 

UCBSClMB.LENGTH 

ucbsc;tt"length 

ucbsOeRgth 

ucbsk^mb^length 

ucbsk:tt"length 

ucbslIamB 

ucbsljvstqbl 

ucbsl..astqfl 

UCBSLlCPID 

UC8SL..CRB 

UCB$LJ>DB 

UCBSLJ)EVCHAR 

UCBSL.DEVDEPEND 

UCBSLJPC 
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UCBSL 

ucbsl; 

UCBSL 
UCB$L 
UCB$L 

ucbsl: 

UCBSL 

UCBSL. 

UCBSL, 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL 

ucbsl; 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL 

UCBSL. 

UCBSL. 
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UCGSL, 
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UCBST. 
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UCRSW, 
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FPC 

FOBL 
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FR4 

IOQBL 

10QFL 
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LINK 

LOGADR 

MAXBLCCK 

MB MBX 

MBl>ORT 

MB..RAST 

MB.SHB 

MB.WAST 

MB„WiOQBL 

MB WIOQFL 

;mecia 

NT DATSSB 
'NTllNTSSB 

;ofCnt 

OWNUIC 
PID 
.RQBL 
.RQFL 
.SVAPTE 
SVPN 

;tt_dechar 

TT RDUE 
'TT"RTIMOU 
>CB 

PARTNER 

.BCNT 

.BCR 

.BOFF 

.BUFQUO 

BYTESTOGO 

"CHARGE 

[CYLINDERS 

.DA 

.DC 

.DEVBUFSIZ 

.DEVSTS 

.DIRSEO 

DSTADDR 
*DX BCR 

ECT 

EC? 

ERRCNT 
"FUNC 
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MB SEED 
MSCCNT 
"MSGMAX 
.NT CHAN 
OFFSET 
REFC 
SIZE 
SRCADDR 
"STS 

TT DESIZE 
"UNIT 
VPROT 



00000000 
00000016 
00000014 
0000007C 
0000008A 
00000050 
00000008 
0000001 A 
00000058 
O00OOOA3 
00000048 
0000001A 
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synopsis 




COWDRVSUB 






*** COMDRV 


Psect synopsis 








PSECT name 






A L Location 


• ABS . 


00000000 


SABS$ 






00O0OOBC 


SEP 






00000OF5 
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! Psect synopsis ! 

PSECT No. Attribut3S 

0.) 00 ( 0.) NOPIC USR 
188.) 01 ( 1.) NOPIC USR 
245.) 02 ( 2.) NOPIC USR 



COW 


ABS 


LCL NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC BYTE 


CON 


ABS 


LCL NOSHR 


exE 


RO 


WRT 


NOVEC BYTE 


CON 


REL 


LCL SHR 


FXE 


RD 


WRT 


NOVEC LONG 
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! Symbol Cross Reference ! 

+ — ............. + 



SYMBOL 



ACBSB RMOO 
ACB$L>ST 
ACBSL KAST 



ACB$L_PID 

ACB$M QUOTA 

COMSOFLATTNAST 

COMSDRVDEALMEM 

COMSFLUSHATTNS 

COM$POST 

COMSSETATTNAST 

EXESABORTIO 

EXESALLOCBUF 

EXESDEANONPAGED 

EXESFORK 

EXE$MAXACMODE 

JOCSGL PSBL 

IPLSjOPOST 

IPLS QUEUEAST > 

IRP$Q CHAN 

PI 

P2 

P3 

P4 

P5 

P6 

PCB$L PID 

PRSjPL 

PR$ SIRR 

PRlS IOCOM 

SCHSSAST 

SS$ NORMAL 

UCBlB.DJPL 

UCB$L OPCNT 
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ZZ-ENSAA-7,0 
COMORVSUB 
Cross reference 



Cross reference 



MACRO 



SACBDEF 
1CCBDEF 
SDEFINI 



$DYN0EF 

SIPLDEF 

SIRPDEF 

SPCBDEF 

$PRDEF 

SPRIDEF 

$PRVDEF 

SPSLDEF 

SRSNDEF 

SUCBDEF 

OSBINT 

ENB1NT 

FORK 

SOFTINT 



SIZE 

2 
1 
1 



2 

1 

4 

4 

4 

1 

4 

2 

1 

10 

1 

1 

1 

1 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 
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*** COMDRVSUB driver support routines 27-JUL-1984 15:09:42 VAX-11 Macro V03-0T Paae 13 

1-APR-1980 10:17:41 DMA1 jCSYSO.SYSMAINTKOMDRVSUB.MAR; (6) 

+— .^— — .- — — — — + 

! Macros Cross Reference ! 

+•• — — — — - — — — — »-» • * 



DEFINITION 



49 
50 
49 



51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

136 

144 

98 

182 



(1) 

(1) 
(1) 



(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(2) 
(4) 



REFERENCES.. 



49 

50 

49 

54 

59 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

136 (3 

144 (3 

98 (2 

182 (4 



50 
55 
60 



(1) 
(1) 
(1) 



51 
56 



(1) 
(1) 



52 
57 



(1) 
(1) 



53 
58 



(1) 
(1) 



308 
150 



(6) 
(3) 



311 



<6> 



Page faults 

~34 

146 

695 

3 

164 

21 

5 

25 

1096 



! Performance indicators ! 

CPU Time Elapsed Time 

OoTooToO.11 00:00:00.22 

00:00:00.68 00:00:01. 54 

00:00:11.99 00:00:18.85 

00:00:00.88 00:00:00.96 

00:00:02.11 00:00-03.84 

00:00:00.15 00:00:00.30 

00:00:00.02 00:00:00.02 

00:00:00.25 00:00:00,93 

00:00:16.22 00:00:26.68 



The working set limit was 1000 paaes. 

52423 bytes (103 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 643 non-local and 9 local symbols. 

314 source lines were read fn Pass 1, producing object records in Pass 2. 

98 pages of virtual memory were used to define 25 macros. 
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ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 < Aft , F jfhe 4 Frame G5 Sequence 676 

COMDRVSUB *** COMDRVSUB driver support routines 27-JUL-1984 15:09:42 VAX-11 Macro V03-01 Page 14 

VAX-11 Macro Run Statistics 1-APR-1980 10:17:41 0MA1 jCSYS0.SYSMAINT3COM0RVSUB.BaR; (6) 

+•.•.••.•.—.—»-.•.—*—«.-——.-. \. 
! Macro L itrary statistics ! 

Macro library name Macros defined 

DMA1:tSYS0.SYSMAINT3DS.MLB;218 

DMA1:CSYS0.SYSMA1NT3DIAG.MLB;953 7 

SYS$SYSROOT:C$YSLIB3LIB,MLB;1 6 

SYSSSYSRO0T:CSYSLIB]STARLET.MLB;2 8 

TOTALS (all libraries) 21 

987 GETS were required to define 21 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LIST=[DS.L1S3/CR0SS/ENABLE«<DEBUG, TRACE) COMDRVSUB/UPDA" ( C0MDRVSU8. UPD /COMDRVSUB. ENH) +SYSSL IBRARY : L IB/L IBRARY+DMA1 :tS 
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ZZ-ENSAA-7,0 *** CONFIG Configure toad device 27-JUL-1984 Fiche 4 Frame H5 Sequence 677 

CONFIG *** CONFIG Configure toad device 27-JUL-1984 15:10;11 VAX-11 Macro V03-01 Page 
fable of contents 

(3> 306 IN1$L0AD DEVICE Make ptabtes for console and boot devices 

(4) 375 DSPSCONFlG.LOA'D Configure toad device 

(9) 690 Common routines 

(10) 804 configure RB730 



(10) 



804 configure RB'iU 

930 Attach UDA-50/LESI toad patn 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



678 



1 5 . , 

*** CONFIG Configure load device 27-JUL-1984 A F ]£ h ?A. Frame J5 rt , s S9 uence ~ -„ 

*** CONFIG Configure toad device 27-JUL-1984 15:10:11 VAX-11 Macro V03-0T Page 1 

23-JUL-1984 16:22:39 DMA1:CSYS0.SYSMAINTJCONFIG.MAR;52 (1) 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 
)0 
10 

;o 

0000 
0000 




0000 



1 

2 
3 

4 

5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
21 
28 
£9 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 

50 
51 
52 
53 
54 
55 
56 
57 



.TITLE CONFJG *** CONFIG Configure Load device 
.IDENT /06-19/ 
.NoShow Conditionals 
.DSABL GBL 

Copyright (c> 1977. 1982, 1984 A _ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE, THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

FACILITY: VAX DIAGNOSTIC SUPERVISOR. 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: Roger Riggs 20-FEB-79 

MODIFICATIONS: 



ITS 



VERSION 01, 



01 

02 
03 
04 

05 
06 



N. Howgate 



26-Jun-79 



References to I/O space are changed from 

60000000 or 4000000 to IOC$K IOsPACE 

and are CPU dependant as defined In ONLYnnn. 

John Ciukaj 1-25-80 

Allow for RL01/RL02 to be configured: Add CONJJBA.RL 

dave butenhof, Q2-Sep-1981, version 6.5 
Support R8730 (Nebula IDC) as load path. 

- Jack Stansbury, 22-OcM981. Version 6.- 
Changed SEP Psect to CODE, DATA, and WORK. 
Also added .LIBRARY statements for $DS, 
$DIAG and SYS$LIBRARY:LIB. 

- Jack Stansbury, 22*0ct-1981, Version 6.- 
Fixed truncation errors. 

- Dave Butenhof, 24-»Mar-1982, Version 6.6 

Fix bug in CONFIG RB730 routine, IDC can generate double 
interrupt... make sure to disable device interrupts in handler 



ZZ-ENSAA-7.0 

CONFIG 

06-19 



*** CONFIG Configure Load device 

*** CONFIG Configure 
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60 
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61 
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62 
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63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


cooo 


72 


0000 


73 


0000 


74 


0000 


75 


0990 

0000 


76 
77 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


i 


2 


0000 
0000 




3 




4 


0000 


i 


5 


0000 


i 


6 


0000 


I 


7 


0000 


t 


8 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


0000 


98 


0000 


99 


0000 
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0000 
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0000 


1C 


2 
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27-JUL-1984 Fiche 4 Frame J5 Seguence 679 
load device 27-JUL-1984 15:10:11 VAX-11 Macro V03-01 Page 2 

23-JUL-1984 16:22:39 DMA1 :CSYS0.SYSMAINTKGNFIG.MAR;52 (1) 

routine to avoid UNEXPECTED INTERRUPT error. 
[07J Dave Butenhof, 15-Apr-1982, Version 6.7 

Support UDA-50 load device. 
C08J Dave Butenhof, 28-May-1982, version 6.8 

Fix IDC code - use correct address for IDC, not the 

one VMS gives us. 



09 
10 
11 
12 
13 

H 
15 

16 
17 
18 
19 



M. Baggett 24-Feb-1983 Version 6,11 
Fixed document typo, support RC25. 

M. Baggett 3-March-1983 Version 6.11 
Added suport for HSC50. 

M. Baggett 9-may-1983 Version 6.11 

Booting from RP07 will have device name of DR and not DB. 

M. Baggett 22~May-1983 Version 6.11 

Allow any length name to be boot device (eg, CIAx, CIAxx, CIAxxx). 

M. Baggett 21-Sep-1983 Version 6.13 
Change HSC50 boot to a disk on the HSC50 to allow selections 
among the different disks. Changed the name of LESI to RC11, and 
temporarily changed the RC2S generic to DU. 

M. Baggett 7-Sep-1983 Version 6.13 
Change HSC50 controller naming to match standards. 
Generic name is HSC50$DUAnnn for DISK p-table. 

Bob Bergazzi 2-H-84 Version 6.H 
Moved code from KERNEL to here which builds ptables for the 
console and boot devices. Subroutine is called IN1$L0AD_DE VICE . 
Done so that SET MEM can call this routine. 

M. Baggett 15-Feb-1984 Version 6.H 

Changed the default name for RC25/RCF25 device to DUA temporary **** 

M. Baggett 16-May~1984 Version 7.0 
Fixed HSC50 disk name to show proper unit number. 

H, Baggett 6-Jun-1984 Version 7.0 
Change device name for RC11/RC25/RCF25 back to DA. 



Richard Brown 1Q~July~1984 
Change all references of "RC11 



Version 7.0 

M to *usr\ 



ZZ-ENSAA-7.0 

CONFIG 

06-19 



*«* CONFIG Configure Load device 

*** CONFIG Configure load device 



Include Files 



K 5 

27-JUL-1984 



27-JUI-1984 
23-JUL-1984 



Fiche 4 Frame K5 



15:10:11 
16:22:39 



Seguence 680 
VAX-11 Macro V03-01 Page 
DMA1:[SYS0.SYSMAINT]CONFIG.MAR;52 



00Q0QC0Q 
000000 A 
00000080 
00008000 
00000008 
OOO000OA 

00000008 
00000004 
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0000 
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0000 
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0000 
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0000 
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0000 
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0000 
0000 


136 
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0000 
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0000 
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0000 
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0000 
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0000 
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0000 
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H5 
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147 


0000 
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0000 
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0000 
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0000 
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QQOO 
0000 
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0000 
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Q000 
0000 
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Q000 
0000 
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0000 
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0000 


160 



.LIBRARY 
.LIBRARY 
.LIBRARY 



/SYS$LIBRARY:LIB/ 

/$DS/ 

/$DIA6/ 



Macros 



Equated Symbols 



CLIDEF 

SBTODEF 
SMSCPDef 



Define Ptable data structures 



$DS„HP0DEF 
$DS_RP04 DEF 
$DS„RK61T..DEF 
$ds_rb730 w def 
$ds„r80 def 
$ds>l02_def 
$DS.RK06..DEF 
$DSJ*L11J>EF 
$DS RL01 DEF 
$DsJjDA50 Def 
$Ds_RA80 Bef 
SDS.CJ DEF 
$DS DISK DEF 



; Define miscellaneous structures/constants 



$DS_DSADEF 

$D$J)SDEF 

SSSBef 



VMS boot device codes 
Define disk protocol 



3 

(2) 

[04] 
[04] 
[04] 

mi 

C04] 
[04] 
[04] 
[04] 
[04] 

[04] 
[04] 
C04D 



[07] 
C07D 



[07] 
[07] 

[io: 
[13: 



SDS.CHCDEF 
SDS.CHIDEF 

RK CS1=0 
RKICS1 W M„IE^15>6 

RK CS1lMlRDY=ia7 

RK CS1 M CERR=ial5 

RK"CS2=8~ 

RO$=10 

RK DS V DDT-8 

F JRVClR=4 



Offset to control/status 
Interrupt bit 
Controller ready 
Clear control ler errors 
Offset to control/status reg 2 
Offset to Drive status register 
Zero if RK06 drive. 1 if RK07 
Function to clear indicated drive 



; Define SS status codes 



reg 1 



[07] 



ZZ-ENSAA-7.Q 

CONFIG 

U6-19 



L 5 
*** CONFIG Configure load device 27-JUL-19S4 Fiche 4 Frame L5 

*** CONFIG Configure Load device 27-JUL-1984 15:10:11 VAX-11 Macro 



'3-JUL-1984 16:22:39 



Sequence 681 

V03-01 Page 4 

DMA1 :CSYSO.SYSMAINTJCONF1G*MAR;52 (2) 





0000 


161 


00000000 


0000 


162 


00000080 


0000 


163 


00000040 


0000 


164 


00000004 


0000 


165 


00000001 


0000 


166 


00000002 


0000 


167 


00000008 


0000 


168 


00000006 


0000 


169 


00000007 


0000 


170 


00000004 


0000 


171 




0000 


172 


00000000 


0000 


173 


00000000 


0000 


174 


00000018 


cooo 


175 


00000000 


0000 


176 


00000009 


0000 


177 


00000010 


0000 


178 


00000011 


0000 


179 


00000012 


0000 


180 


00000021 


0000 


181 


00000022 


0000 


182 


00000015 


0000 


183 


00000016 


0000 


184 


00000017 


0000 


185 




0000 


186 




0000 


187 




0000 


188 




cooo 


189 




0000 


190 




0000 


191 




0000 


192 




0004 


193 




0004 


194 




0004 


195 




0004 


196 




0004 


197 




0004 


198 




0004 


199 




0004 


200 




0004 


201 




0004 


202 




0004 


203 




0004 


204 




0004 


205 




0004 


206 




0004 


207 




0004 


208 




0004 
0004 


209 




210 




0004 
0004 


211 




212 




0004 


V$ 




0004 


214 




0004 


215 




0004 


216 




0004 


217 



RL^CS=0 

RLlCSJLCRDY=ia7 

RL_CSJ1JE=ia6 

RLlDA=4 

RL.DAJLMRK-iaO 

RL.DA,M,STS«iai 

RL DA M RST=133 

RLlMP=6" 

RL MP V TYP=7 

fJtat*; 

RP CS1=0 

F R0P=0 

RP_DT=24 

RP„DT_V..DTN=0 

RPJ)T S DTN=9 

DT_RP04=*X10 

DT RP05* A X11 

DTlRP06= A X12 

DT w RP07 HPT= A X21 

DT.RP07H*X22 

DT_RM03= A X15 

DT_RM80= A X16 

DTJW05= A X17 



offset to control/status register 

controller ready 

interrupt bit 

offset to disk address register 

bit in disk address register 

get status bit 

reset bit in disk adress register 

offset to multipurpose register 

0=RL01,1=RL02 

get status function 

Offset to control/status reg 1 

Function for drive NOP 

Offset to drive type register 

Low bit of drive type 

Size of drive type 

RP04 drive type 

RP05 

RP06 

RP07(with head per track option) 

RP07(w/o head per track option) 

RM03 

RM80 

RM05 



R8730J/R802/RB80 REGISTER OFFSETS FROM CSR ADDRESS 



SDEFINI RB 

$DEF R8 CS ,8LKL 

_VlELD RB.CS,0,<- 
<DRDY,,M>,~ 
<FC0DE,3>,- 
<<2>,- 
<IE,.M>,- 
<CRDY,,M>,- 
<DS,2>,- 
<OPI,,M>,~ 
<CRC,,M>,- 
<DLT,,M>,- 
<NXM,,M>,- 
<DE,,M>,- 
<CE,,M>,- 
<ATN,4>,- 
<ECC,2>,- 
<SSEI,,M>,- 
<SSE,,M>,- 
<1R,,M>,- 
<MTN,,M>,- 
<TYP,,M>,- 
<ASSI,,M>,- 
<T0I,,M>,- 
<FMT,,M>,- 

<,2>- 



START OF REGISTER DEFINITIONS 

CONTROL STATUS REGISTER (CSR) 
START OF CSR BIT DEFINITIONS 

DRIVE READY 

FUNCTION CODE 

RESERVED BITS 

INTERRUPT ENABLE 

CONTROLLER READY 

DRIVE SELECT 

OPERATION INCOMPLETE 

DATA CRC OR HEADER CRC OR DATA 

DATA LATE OR HEADER NOT FOUND 

NON-EXISTENT MEMORY 

DRIVE ERROR 

COMPOSITE ERROR 

DRIVE ATTENTION BITS 

CCC STATUS 

SKIP SECTOR ERROR INHIBIT 

SKIP SECTOR ERROR 

IDC INTERRUPT REQUEST 

MAINTENANCE MODE 

DRIVE TYPE 1=RB80, 0=RB02 

AUTOMATIC SKIP SECTOR, INHIBIT 

TIME OUT INHIBIT (U-OlAG'S) 

R80 FORMAT CONTROL 

RESERVED BITS 
END CSR BIT DEFINITIONS 



ECC 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



*** CONFIG 



Configure 
*** 



00000004 



load device 






M 5 
27-JUL-1984 Fiche 


• 4 Frame M5 Sequence 682 


CONFIG 


Confii 


gure 


load device 27-JUL-1984 15:10:11 VAX-11 Macro V03-01 Page. 5 






^ 




23-JUL-1984 16:22:39 DMA1 :[SYS0.SYSMAINTK0NFJG.MAR;5? (2) 


0004 
0004 
0004 


218 
21 9 










220 SDEF 


RB_BA 


♦ BLKL 1 


BUS ADDRESS REGISTER (BAR) 


0008 


221 










0008 


222 


&DEF 


RB.8C 


.BLKL 1 J 


BYTE COUNT REGISTER (BCR) 


OOOC 


223 










000C 


224 


SDEF 


R8 DA 


.BLKL 1 ; 


DISK ADDRESS REGISTER (DAR) 


0010 


225 




.vTeld 


RB DA^'C- 


START OF DAR BIT DEFINITIONS 


0010 


226 






^ECS^- 


SECTOR 


0010 


227 






^RK^,- 


TRACK 


0010 


228 






<CYL,16>- 


CYLINDER 


0010 


229 




> 




END OF DAR BIT DEFINITIONS 


0010 


230 










0010 


231 


SDEF 


RB MP 


.BLKL 1 


MULTIPURPOSE REGISTER (MPR) 


COH 


232 




_VTELD 


RB MP,0,<- 
<STA,3>,- 


RB02 STATUS WORD DEFINITIONS 


0014 


233 






DRIVE STATE 


0014 


234 






<BH,,M>.- 


BRUSH HOME 


0014 


235 






<HO,,M>,- 


HEADS OUT 


0014 


236 






<CO,,M>,- 


COVER OPEN 


0014 


237 






<HS,,M>,- 


HEAD SELECT 


0014 


238 






<J>,- 


RESERVED 


0014 


239 






<DSE,,M>,- 


DPIVE SELECT ERROR 


0014 


240 






<VC,,M>,- 


VOLUME CHECK 


0014 


241 






<WGE,,M^>,- 


WRI/p GATE ERROR 


0014 


242 






<SPE,,M>,- 


* SPIN c RROR 


0014 


243 






<SKTO,,M>,- 


• SEEK TIME OUT j 


0014 


244 






<WL,,M>,- 


• WRITE LOCK ! 


0014 


245 






<CHE,,M>,- 


• CURRENT HE/a? ERROR 


0014 


246 






<WDE,,M>- 


• WRITE DATA ERROR 


0014 


247 




> 






0014 


248 




_VJELD 


R8_MP,0,<- I 


•GET STATUS COMMAND DEFINITIONS 


0014 


249 






<mRk,,m>,- 


• MARK (ALWAYS 1) 


0014 


250 






<STS,,M>,- 


• GET STATUS 


0014 


251 






<J>,- 


' RESERVED 


0014 


252 






<RST # ,M>,- 


* RESET 


0014 


253 




> 






0014 


254 




.VJELD 


RB MF,0,<- 


•RB80 STATUS WORD DEFINITIONS 


0014 


255 






<SEC,5>,- 


• CURRENT RB80 SECTOR 


0014 


256 






<,3>,- 


• RESERVED 


0014 


257 






<FLT,,M>,- 


; DRIVE FAULT 


0014 


258 






<PLGV,,M>,- 


• PLUG VALID 


0014 


259 






<SKE,,M>,- 


; SEEK ERROR 


0014 


260 






<ONCY,,M>,~ 


; ON CYLINDER 


0014 


261 






<DRDY,,M>,- 


; DRIVE READY | 


0014 


262 






<WTP,,M>,- 


; WRITE PROTECT i 


0014 


263 






<,2>,- 


; RESERVED I 


0014 


264 




> 




;END MPR BIT DEFINITIONS \ 


0014 


265 










0014 


266 




SDEFEND 


RB 


?END RB730:RB80/RB02 REGISTER DEFS ! 


0000 


267 








1 


0000 


268 










0000 


269 


; HARDWARE FUNCTION CODES 




0000 


270 








1 


0000 


27) 










0000 


272 


F,GETSTATUS^2*2 




;GET STATUS 


0000 


273 










0000 


274 


i 






[041 
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CONFIG 
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41 
41 

41 



41 
41 



*** CONFIG Configure Lead device 

*** CONFIG Configure load device 



N 5 
27-JUL-198A 



42 
42 
42 



41 52 



52 
52 



27-JUL-1984 
23-JUL-1984 



Fiche 4 frame N5 



Sequence 683 
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16:22:39 DMA1 :[SYS0.SYSMAINTJCONFIG.MAR;52 



44 5F 34 
44 5F 3b 
44 5F 36 
0000U000 
44 5F 33 
00000000 
44 5F 30 
44 5F 35 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ouoocooo 

0000 
0007 
0007 
000F 
0017 
001F 
0027 
002F 
0037 
003F 



00000000 • oooooooo • oooooooo • 
00000000 ' oooooooo • oooooooo ' 
oooooooo ' oooooooo ' OOOOOOOO ' 
OOOOOOOO ' OOOOOOOO • oooooooo ■ 

OOOOOOOO' 
41 52 44 5F 37 
41 52 44 5F 37 



30 50 52 

30 50 52 

30 50 52 

OOOOOOOO 

30 4D 52 

OOOOOOOO 

38 4D 52 

30 40 52 

OOOOOOOO' 00 A 7 

OOOOOOOO 1 0057 

OOOOOOOO' 0067 

OOOOOOOO' 0077 

OOOOOOOO' 0087 

30 50 52 

30 50 52 



00000013 



008F 
0097 
009F 
009F 



275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 



301 
302 
303 



External Symbols 



.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.Extrn 
.Extrn 
•Extrn 
.EXTRN 



T TYPES: 



.PSECT 
ModNam 

.ASCI J 
.ASCII 

.ASCII 

.QUAD 

.ASCII 

.QUAD 

.ASCII 

.ASCII 

.LONG 



.ASCII 
.ASCII 



scb base, scb image, ioc$k iospace 

exe$alononpagpd, exesdeanoflpaged 

dsswaitus, ds errsup, inssptable, dspsconf ig.adp, ds$ channel 

dsvssetload " 

sy:$unwind 

dssga selected, dssgl.clibase 

Uda Response, UDJnit 

DsrlAUocate^Pseudo RPB 

DsrSDeAL locate Pseudo RPB 

BOOTSL ADP,BOOT$L R2,B00T$L_DEVTYP,B0OT$L_UNIT,BOQT$L_CSR 



6 

(2) 

C04] 
[04] 



UDA-50 data block/init code 



Data, NoExe, 
CONFIG 

"RP04 DBA" 
"RP05"D8A M 
"RP06"DBA" 



"RM03 DRA" 



"RM80 DRA" 

"RM05"DRA" 

0C18D" 



Shr, NoWrt, Long 



"RP07 
"RP07" 



DRA" 
DRA" 



[07] 

[07] 

[07] 

;C153 



C04J 



A *10 
A X11 
A X12 
A X13 

A X14 

A X16 
A X17 



RP04 
RP05 
RP06 

RM03 drive 

RM80 
RM05 



304 K,TYPES=<.-T_TYPES>/8 



9 Unused Quadwords 



A X21 RP07(with head 
A X22 RP07(w/o head 

number of entries 



per track option) 
per track option) 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



INISLOAD.DEVICE 



Make ptables for consol 
*** CONFIG Configure load device 
INISLOAD DEVICE Make ptables for 
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51 32 

00000000' EF 

48 50 



62 51 00 6E 

08 A2 
62 
50 0C 
04 A2 
80 4153435F 
60 
50 26 
80 6E6F6307 
60 656C6F73 



00000000'EF 
50 



09 



3E 
00 
3E 
51 
05 
A2 
60 
8F 
30 
A2 
8F 
8F 
62 
50 
52 



00000000'EF 



009F 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0009 

oooc 

000E 
0014 
0016 
001A 
001 D 
0021 
0025 
002C 
002F 
0033 
003A 
0041 
0048 
0048 
004E 
0054 



3C 
16 
E9 
B8 
2C 
BA 
BO 
00 
9E 
9E 
DO 
90 
9E 
DO 
DO 
FA 
E8 
DO 
16 



306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 
359 
360 
361 
362 



.S8TTL INISLOAD DEVICE Make ptables for console and boot devices 
• PSECT Code, Exe, Shr, NoWrt, Long , ^^ 

++ begin [15J 

FUNCTIONAL DESCRIPTION: 

This routine sets up the necessary P-tables 

for the console load device and the boot device. 

CALLING SEQUENCE: 

JSB INISLOAD^DEVICE 
INPUT PARAMETERS: 

None 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: 

P-Tables for each device in the boot path and the 
console load device, 

COMPLETION CODES: 

None 
SIDE EFFECTS: 

None 



INI$LOAD_DEVICE:: 



10$: 



MovZWL *Hp$A Dependent, R1 

Jsb L A txe$AloNonPaged 

BlbC RO, 10$ 

PushR # A M<R1,R2,R3,R4,R5> 

MovC5 #0, (Sp), #0, R1, (R2> 

PopR rM<R1,R2.R3,R4.R5> 

MovW R1, Hp$W Jue(R2) 

MovL #5. Hp$Q Device(R2) 

MovAB Hp$Tjev?ce(R2), RO 

MovAB (RO), Hp$Q_Deyice+4(R2) 

MovL # A A" CSA M , (R0)+ 

MovB rA"0", (RO) 

MovAB Hp$T Type(R2), RO 

MovL #7!<? A A r, con M >a8>, (R0) + 

MovL # A A M sole", (RO) 

CallG (R2), L A Ins$Ptable 

BlbS RO, 10$ 

MovL R2, RO 

Jsb L A Exe$DeaNonPaged 



Build the console ptable 

Length of Ptable to make 

Allocate it 

Skip setup if couldn't do it 

Save volatile registers 

Clear the Ptable 

Restore registers 

Set size field 

Set length of descriptor 

Set address of M CSA0 M 

Set address of string 

Set first 4 chars of name 

Set last character 

Set address of type string 

Set length/'W 

Set rest of name 

Insert the Ptable 1n list 

Continue if it worked 

Else, copy length to RO 

.♦ and deallocate the buffer 
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50 00000000' EF 

21 

00000000' EF 

00000000' EF 

00000000 'EF 

00000000'EF 

50 

0000007F'EF 05 



DO 0054 

13 005B 

DD 005D 

DD 0063 

DD 0069 

DD 006F 

DD 0075 

F8 0077 
007E 

05 007E 



363 
364 
365 
366 
367 
368 
369 
370 
371 
372 



20S: 



MOVL L A BO0T$L„ADP,R0 

BEQL 20$ 

PUSHL L A BOOT$L_R2 

PUSHL L A BO0T$L^DEVTYP 

PUSHL L A BO0T$L_UNIT 

PUSHL L A BOOT$L_CSR 

PUSHL RO 

CALLS #5, L A DSP$CONFIG.LOAD 

RSB 



Get boot adapter address 
Branch if not there 
CI station number 
Push boot device type 
Push BOOT device unit number 
Push BOOT device CSR address 
Push BOOT adapter address 
Auto-config load device 

end 



C153 



._..j 



ZZ-ENSAA-7.0 

CONFIG 

06-19 



lNISLOAD^DEVlCE 



Make ptables for consol 
*** CONFIG Configure load device 
1NISL0AD. DEVICE Make ptables for 
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007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

C07F 

007F 

007F 

007F 

007F 

007F 

007F 

00/F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

007F 

FFF8 

FFF4 

FFFO 

FFFO 

007F 



374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 
409 
410 
411 
412 
413 
414 
415 
416 
417 

418 
419 
420 
421 
422 



423 



.List MEB 

.S8TTL DSPSCONFIG.LOAD Configure load device 

FUNCTIONAL DESCRIPTION: 

This routine determines sets up the necessary P-tables 

for the load device given the adapter configuration register, 

the device register and unit number. 

CALLING SEQUENCE: 

DSP$C0NFIG_L0AD(Adp adr, Dev adr, Unit) 

INPUT PARAMETERS: 

4(AP) Address of configuration status register of adapter 

8(AP) Address of CSR for device. 

12(AP) Unit number of drive 

16(AP) device type: 0=massbus ,1=RK06/07,2=RL01/02,20-HSC50 

20(ap) CI-HSC50 port station number 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: 

P-Tables for each device in the load control and data path 
COMPLETION CODES: 

SSSJJ0RMAL 

SIDE EFFECTS: 

The device and the adapter specified are pinged to determine 
interrupt level and interrupt vectors. 



REGISTER USAGE: 



R4 
R5 



Address of P-table being created 
Address of channel or device 



L^STATUS: 
L LINK: 
L~TYPE: 
LlLOCAL: 



.NLJST ME,MEB 

$0FFSET 0, NEGATIVE, < - 
<L„STATUS,8>,- 
<L^LINK,4>,- 
<L~TYPE,4>,- 
<L_L0CAL,0» 



,LJST MEB 



ZZ-ENSAA-7.0 

CONFIG 

06-19 



DSP$C0NF1G_L0AD 



Configure load devue 
*** CONFIG Configure Load 
DSPSCONFJG^LOAD Configure 



E 6 
27-JUL-1984 Fiche 4 frame 
device 27-JUL-1984 15:10:11 
load device 23-JUL-1984 16:22:39 
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023C 


007F 
0081 


425 
426 


5E 


FO AD 


9E 


0081 


42? 




FO AD 


DF 


0085 


428 




F4 AD 


DF 


0088 


429 




04 AC 


DD 


008B 


430 


00000000 1 


EF 03 


FB 


008E 


431 




37 50 


E9 


0095 
0098 


432 
433 


11 


10 AC 


D1 


0098 


434 




03 


12 


009C 


435 




01D1 


31 


009E 


436 


20 


10 AC 


D1 


0OA1 


437 




03 


12 


00A5 


438 




0026 


31 


C0A7 
OOAA 
OOAA 


439 
440 
441 


03 ' 00 


10 AC 


CF 

0133* 

01C3' 
01C3' 

01C3* 


OOAA 
OOAF 
OOAF 
00B1 
00B3 
00B5 
0087 
0087 


442 


00000000'EF 


DF 


00B7 






00 


DD 


OOBD 






01 


DD 


OOBF 




00000000' 


EF 03 


FB 


00C1 




50 00660002 8F 


DO 


00C8 


443 








OOCF 


444 






04 


OOCF 


445 



.ENTRY DSP$C0NFIG.L0AD, A M<R2,R3,R4,R5,R9> 



10 
(5) 

C07] 



5$: 



7$: 



30000$: 



30001$: 



MOVAB 

PUSHAL 

PUSHAL 

PUSHL 

CALLS 

BL8C 

CmpL 

BNeq 

BrW 

CMPL 

BNEQ 

BRW 

CASE 

CASEL 



L LOCAL(FP),SP 

L TYPE(FP) 

L"LINK(FP) 

47AP) 

#3,L A DSP$C0NFJG,ADP 

R0,10$ 

16(Ap), #Btd$K..UDA 

5$ 

Con Uba 

16(AP),*BTD$K„HSCCI 

7$ 

CON CI.HSCC1 

16(AP),TYPE=L,LIMIT=*0, - 



Allocate space for local storage 
Address to store type 
Address of P-table created 
Address of Adapter config reg 
Configure the adaptor 
Return on error 

Is it a UDA (code 17) 

If not, do CASE for contiguous codes 

UDA50 sits on UNIBUS 

IS IT A HSC50 ? 

BRANCH IF NOT. 

BRANCH FOR HSC50 



C05] 



C07] 
£07] 
C07] 
CIO] 

[10] 
CIO] 
£07] 



displist=<con mba,con uba,con uba.con uba> 
16(AP),*0,S A *<<30001$=30000$>72>-1 



.SIGNED.WORD 
.SIGNED.WORD 
.SIGNED_WORD 
. SI GNED.WORD 



ERRSUP.S 



PUSHAL 
PUSHL 
PUSHL 
CALLS 



10$: 



MOVL *DS$_ERROR,R0 
RET 



conjnba-300001 
con„uba-30000$ 
con_uba-30000$ 
con uba-30000$ 



$M0DULE 

#0 

#$ER 

ftl, DS.ERRSUP 



Should never happen 



Flag error 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



DSP$C0NFIG^L0AD 



Configure „* ^d device 
*** CONFIG Configure load 
DSPSC0NF1GJ.0AD Configure 
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device 27-JUL-1984 15:10:11 
load device 23-JUL-1984 16:22:39 
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51 00000041 8F 

031B 

01 50 

08 A2 51 

26 A2 07 

27 A2 2045444F 4E5F4943 8F 

62 05 
50 0C A2 
04 A2 60 
4149435F 8F 
S3 14 AC 
54 
00000064 8F 
06 



80 



54 53 53 



18 A2 



54 53 





80 53 30 




62 




55 


54 


53 54 0A 




06 




80 53 30 




62 




60 54 30 




OB A2 14 AC 


04 AC 


00000000' 8F 




1C A2 18 A2 




20 A2 F4 AD 




3D A2 04 


39 A2 


80000004 8F 


35 A2 


4F710200 8F 




34 A2 14 AC 




52 




0000 'CF 62 




03 50 




OOF 7 




51 32 




0282 




01 50 




08 A2 51 




26 A2 04 


27 A2 


4B534944 8F 




62 OB 




50 OC A2 




04 A2 60 


80 


4353485F 8F 




80 3035 8F 


80 


41554424 8F 




53 OC AC 




54 


53 


00000064 8F 




06 




80 53 30 



DO 

30 

E8 

04 

BO 

90 

7D 

DO 

9E 

9E 

DO 

DO 

D4 

7B 

13 

81 

D6 

D4 

7B 

13 

81 

D6 

81 

90 

C9 

DO 

DO 

9A 

DO 

DO 

90 

DD 

FA 

E8 

31 

DO 

30 

E8 

04 

BO 

90 

DO 

DO 

9E 

9E 

DO 

BO 

DO 

DO 

D4 

78 

13 

81 



OODO 

OODO 

OODO 

OODO 

OODO 

00D7 

OODA 

OODD 

OODE 

00E2 

00E6 

00F2 

00F5 

00F9 

OOFD 

0104 

0108 

01 OA 

0113 

0115 

0119 

011B 

011D 

0122 

0124 

0128 

01 2A 

012E 

0133 

01 3D 

0142 

0147 

01 4B 

0153 

015B 

0160 

0162 

0167 

016A 

016D 

0170 

0173 

0176 

0177 

0178 

01 7F 

0187 

01 8A 



?! 



0199 
019E 
01A5 
01A9 
01AB 
0184 
0186 



447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 



CON.,CI_ 

; + 

; BUILD 



10$: 



20$: 



30$: 



100$: 



110$: 



HSCCI: 

PT FOR 

MOVL 

BSBW 

BLBS 

RET 

MOVW 

MOVB 

MOVQ 

MOVL 

MOVAB 

MOVAB 

MOVL 

MOVL 

CLRL 

EDIV 

BEQL 

ADD83 

INCL 

CLRL 

EDJV 

BEQL 

ADDB3 

INCL 

ADDB3 

MOVB 

BISL3 

MOVL 

MOVL 

M0VZ8L 

MOVL 

MOVL 

MOVB 

PUSHL 

CALLG 

BLBS 

BRW 

MOVL 

BSBW 

BLBS 

RET 

MOVW 

M0V8 

MOVL 

MOVL 

M0VA8 

M0VA8 

MOVL 

MOVW 

MOVL 

MOVL 

CLRL 

EDJV 

BEQL 

ADDB3 



HSC50 DEVICE 



#HP$K CI..LEN, R1 

ALLOCnTE.PTABLE 

R0,10$ 



LENGTH OF PT FOR CI NODE, 
ALLOCATE THE SPACE FflR THIS DRIVE. 
BRANCH IF SUCCESS 
RETURN ON ERROR 
R1,HP$W SIZE(R2>"; SET SIZE OF STRUCTURE. 
*7,HP$T TYPECR2) ; SET LENGTH OF TYPE NAME 
* A A M CI NODE ",HP$T_TYPE+1(R2) ; SET DEVICE TYPE 
#5,HP$B DEVICE (R2) ; SET LENGTH OF NAME 
HP$T DEfllCE(R2),R0 ; ADDRESS OF DEVICE NAME 
(R0)7HP$Q DEVICE+4CR2) ; SET ADDRESS OF DEVICE NAME 
(R0) + 



/TA 1 ' CIA* 

20(AP),R3 

R4 

01OO,R3,R3,R4 

20$ 

/TA M M ,R3,(R0) + 

HP$Q_DEVICE(R2) 

R5 

#10,R4,R3,R4 

30$ 

# A A"0 M ,R3,(R0)+ 

HP$Q DEVICE(R2) 

# A A"0 M ,R4,(R0) 



INSERT •^CIA 1 '. 

GET PORT NUMBER 

CLEAR HIGH ORDER FIELD 

SET FIRST DIGIT 

BRANCH IF NOT THIS LARGE 

SET FIRST ASCII DIGIT 

INCREASE LENGTH OF STRING 

CLEAR HIGH ORDER FIELD 

GET NEXT DIGIT 

BRANCH IF NOT THIS LARGE 

SET THIS ASCII DIGIT 

INCREASE LENGTH OF STRING 

SET LAST DIGIT 
20(AP),HP$B DRIVE (R2) ; SET port NUMBER 
#<IOC$K I0SPACE>,4(AP),HP$A DEVICE(R2) ; SET DEVICE ADDR 
HP$A DE?ICE(R2),HP$A DVACR27 ; Set direct address 
L LlF)K(FP),HP$A LINK7R2) ; SET LINK ADDRESS. 
# K X4 f HP$L CI INPEX(R2) ; SET INDEX USED BY SDS.CASE 
#*X80000004,HP$L CI MAINT ID(R2) ; SET HSC50 IDENTIFICATION 
#*X4F710200,HP$L:crFUNC(R2) ; FUNCTIONALITY OF HSC50 



20(AP), HP$B^CI R0DE(R2) 

R2 

(R2), W A INS$PTABLE 

R0,100$ 

CON RELEASE X 

#HPlK DISK CEN,R1 

ALLOCATE^PTABLE 

R0,110$ 

R1,HP$W_SIZE(R2) 

#4,HP$T TYPE(R2) , 

# A A ,( DISR M ,HP$T TYPE+KR2) 

#11,HP$Q DEVICE(R2) 

HP$TJ)EVTCE(R2),R0 

(R0),HP$Q„DEVICE+4(R2) 

# A A" HSC"7(R0)+ 

# A A M 50 I, ,(R0) + 

# A A M $DUA",(RO)+ 

12(AP),R3 

R4 

*100,R3,R3,R4 

120$ 

# A A M M ,R3,(R0)* 



; SET NODE NUMBER, 
Save address of CI_N0DE p-table 
Insert it in list 
Continue if no errors. 
Go release buffer 
Length of ptable for DISK 
Allocate the space for this drive 
Branch if*success 
Return on error, 
Set size of structure 
Set length of type name 
; Set device type 
Set length of name 
Address of device name 
Set address of device name 
Insert •' HSC M . 
Insert "50", 
Insert 'tDUA", 
Get drive # 

Clear high order field 
Set first digit 
Branch if number is <100 
Set first ascii digit 



C10] 
[103 
[10] 
[10] 
[10] 
[10] 
[10] 
[10] 
[10] 
[10] 
[10] 
C113 
C11] 
[10] 
[10] 
[10] 
[10] 
C113 
[10] 
[10] 
[103 
[10] 
[10] 
[13] 
[10] 
[13] 
[10] 
[103 
[10] 
[10] 
[103 
[13] 
[13] 
[133 
[133 
[133 
[133 
[133 
[133 
[13; 

[133 
[133 
[13: 
[143 
[143 

38 

[133 
[13 
|13 
[133 



I 



ZZ-ENSAA-7.0 
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DSPSCONFIG LOAD Configure load device 

*** CONFIG Configure load device 
DSPSCONFJG LOAD Configure load device 



G 6 

27-JUL-1984 



7-JUL-1984 
3-JUL-1984 



Fiche 4 Frame G6 
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54 







62 


D6 


01 BA 


504 


OA 


OC 


AC 


91 


01 BC 


505 






OD 


19 


01C0 


506 






55 


D4 


01C2 


507 


53 


54 


OA 


78 


01C4 


508 


80 


53 


30 


81 


01C9 


509 






62 


D6 


01 CD 


510 


60 


54 


30 


81 


01CF 


511 


OB A2 


OC 


AC 


90 


01D3 


512 




1C 


A2 


D4 


01D8 


513 


20 


A2 


8E 


DO 


01 DB 


514 




01E2 


31 


01DF 


515 










01E2 


516 



JNCL HP$G DEVJCE(R2) 

120$; CMPB 12<AP),#10 

BLSS 130$ 

CLRL R5 

EDIV *10,R4,R3,R4 

ADDB3 #^A /, 0">R3,(R0) + 

INCL HP$G. DEVJCE(R2> 

130$: ADDB3 # A A"0'\R4. (RO) 

MOVB 12<AP),HP$B DRIVE (R2) 

CLRL HP$A^DVA(R27 

MOVL (SP)+,HP$A_L1NK(R2> 

BRW CONJJORMAL..X 



Increase length of string 

Is it >=10 ? 

Branch if not. 

Clear high order field 

Get next digit 

Set this ascii di 

Increase length o 

Set last digit 

Set drive number 

Clear direct address 

Set link address, 

SET DEFAULT LOAD DEVICE, 



git . 

it stri 



ng 



[13] 
[17] 
C173 

C13D 
[133 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[10] 



ZZ-ENSAA-7.0 

CONFIG 

06-19 



DSP$C0NF1G_L0AD 



Configure 
*** CONFIG 



load devue 
._ . _ . Configure load 
DSP$C0NFIG.L0AD Configure 



H 6 
27-JUL-1984 Fiche 4 Frame 

device 27-JUL-1984 15:10:11 

load device 23-JUL-1984 16:22:39 



H6 Seguence 690 

VAX-11 Macro V03-0T Page 13 

DMA1jCSYS0.SYSMAINT]C0NFJG,MAR;52 (7) 



55 



04 
55 



AC 
03 



00000400'8F C9 

07 0C AC FO 
65 01 DO 

50 18 A5 DO 

50 09 00 EF 

71 

51 32 DO 

01F2 30 

53 8ED0 

01 50 E8 

04 

08 A2 51 BO 



53 



50 



10 
OF 
13 
OA 

00G00007'EF43 
13 



53 



00000000' EF 

00 

02 

00000000'EF 03 

2^ 

26 A2 04 

27 A2 50 

62 05 

50 OC A2 

04 A2 60 

80 51 

80 OC AC 30 

08 A2 OC AC 

18 A2 55 

1C A2 

20 A2 F4 AD 

0160 



50 52 
FD96 1 

50 00660002 8F 



C2 
19 

D1 
15 
70 
12 

DF 
DD 
DD 
FB 
11 

90 
DO 

DO 
9E 
9E 
DO 
81 
90 

DO 
D4 
DO 
31 



DO 
30 

DO 

04 



01E2 

01E2 

01E2 

01E2 

01E2 

01EB 

01F1 

01F4 

01F8 

01FC 

01FD 

0200 

0203 

0206 

C209 

020A 

020A 

020E 

02OE 

0211 

0213 

0216 

0218 

0220 

0222 

0222 

0228 

022A 

022C 

0233 

0235 

0235 

0239 

023D 

023D 

0240 

0244 

0248 

024B 

0250 

0255 

0255 

0259 

025C 

0261 

0264 

0264 

0264 

0267 

026A 

026A 

0271 

0271 



518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 



543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 



CONJ1BA 
; + 

; BUILD 



PT FOR MASSBUS DRIVE 



10$: 



BISL3 

INSV 

MOVL 

MOVL 

EXTZV 

MOVL 
BSBW 
POPL 
BL8S 
RET 



#<IOC$K I0SPACE>*<*X400> 

12(AP),J7,*3,R5 

*F N0P!1,RP CSKR5) 

RP~DT(R5),R0 



#RP„DT V DTN,#RP.DT.S_DTN, - 



R0,-(SP) 

*RP04$K_LEN,R1 

Allocate Ptable 

R3 

ROJO$ 



MOVW R1,HP$W.SIZE(R2) 



30$: 



SUBL 
BLSS 
CMPL 
BLEQ 
MOVQ 
BNEQ 
ERRSUP 



_S 



40$: 



CON. 



CON. 
CON. 



BR8 

M0V8 
MOVL 

MOVL 

M0VA8 

M0VA8 

MOVL 

ADD83 

M0V8 

MOVL 
CLRL 
MOVL 
BRW 

RELEASE X: 
MOVE 
BS8W 

ERROR.X: 
MOVL 

X: 

RET 



#DT_RPQ4,R3 

30$ 

#K TYPES, R3 

30S 

L A T.TYPESCR3J # R0 

40$ 

PUSHAL $MODULE 

PUSHL #0 

PUSHL *$ER 

CALLS #3, DS.ERRSUP 

CONJU'LEAStLx 



,#4,HP$T TYPECR2) 
R0,HP$T_TYPE+1(R2) 

#5,HPSQ DEVICE(R2) 

HP$T_DE7lCE(R2),R0 

(R0)7HP$QJ)EVIce+4(R2> 

R1,(R0>+ 

* A A M 0*M2(AP),(R0) + 

12(AP),HP$B„DRJVE(R2) 

R5-HP$A DEVICE(R2) 
HP$A DVK(R2) 

L.LlRK(FP),HP$A_LINK(R2) 
CON.NORMAL X 



4(AP),R5 ; Base adapter 
Insert unit number to make drive csr 
Issue NOP to drive 
Get drive type register 



R2.RO 
EXE$DEANONPAGED 

*DS$..ERR0R,R0 



Isolate drive type 

Length of PT for RP04,RP05,RP06,RMQ3 

Allocate the space for this device 

Get drive type back 

Branch if success 

Return on error 

Set size of structure 

Make aero correspond to RP04 drivetype 

Branch if less than that 

Range check drive type 

Branch if unfamilar drive type 

Get device type and name 

Branch if valid 

Unknown drive type 



Release buffer and exit 

Set length of type name 
Set drive type 

Set length of name 
Address of device name 
Set address of device name 
Insert "^xxx" xxx is DBA or DRA 
Set unit number 
Set drive number 

Set device address 
Clear direct address 
Set link address 
Set Default load device 



C07D 



[053 



; Copy buffer address 
; Release the buffer 

: Error 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



DSP$CONFIG_L0AD 



Configure load device 
*** CONFIG Configure load 
DSPSCONFIG LOAD Configure 



I 6 
27-JUL-1984 
device 
load device 



Fiche 4 Frame 16 



Seguence 691 
27-JUL-1984 15:10:11 VAX-11 Macro V03-0T Page 
23-JUL-1984 16:22:39 DMA1 :CSYS0.SYSMAINT]C0NFIG.MAR;52 



14 
(8) 



55 









0272 


568 








0272 


569 








0272 


570 








0272 


571 


OOOOFEOC'EF 01 


DO 


0272 


572 


00000004' EF F4 AD 


DO 


0279 


573 








0281 


574 


53 


00000000'EF 


9E 


0281 


575 




F8 AD 


7} 


0288 


576 




00000406' EF 


9F 


028B 


577 




03 10 AC 


D1 


0291 


578 




07 


12 


0295 


579 


6E 


00000518'EF 


9E 


0297 


580 




00 


DD 


029E 


581 




7E 04 


7D 


C2A0 


582 




63 6E 


FA 


02A3 


583 




C8 50 


E9 


02A6 


584 




08 AE 01 


DO 


02A9 


585 




63 6E 


FA 


02AD 


586 




BE 50 


E9 


02B0 


587 




08 AE 06 


DO 


02B3 


588 




63 6E 


FA 


02B7 


589 




B4 50 


E9 


028A 


590 




08 AE 04 


DO 


02BD 


591 




63 6E 


FA 


02C1 


592 




AA 5H 


E9 


02C4 


593 


08 AC 


00000000'8F 


C9 


02C7 
02D0 


594 
595 




11 10 AC 


D1 


02D0 


596 




03 


12 


02D4 


597 




034D 


31 


02D6 
02D9 
02D9 


598 
599 
600 


02* 


01 10 AC 


CF 

0006' 
01 3A 1 
0253' 


02D9 
02DE 
02DE 
02E0 
02E2 
02E4 
02E4 


601 



CON.UBA: 

; + 

; initialize adapt-cr and unibus 

riuVL #1,DSA$GL JJNJTS ; Set 1 UUT 

MOVL L_LINK(FP7,DS$GA_SELECTED*4 ; Set address of P-table for channe 



1$: 



2$: 



3S: 



30002$: 



30003$: 



MOVAB DS$CHANNEL,R3 

PUSHAQ L STATUS (FP) 

PUSHAB L*COMM0N INTERRUPT 

CmpL 16(Ap), S3 

BNeq 1$ 

MovAB L*RB730 INTERRUPT, (Sp) 

PUSHL #CNC$ IRNA 

MOVQ #4,-<5P) 

CALLG <SP),(R3> 

BLBC R0,CON X 

MOVL #CHC$ INITB,8(SP) 

CALLG (SP)JR3) 

BLBC RO.CON X 

MOVL #CHC$ tLEAR,8(SP) 

CALLG (SP),7R3> 

BLBC R0,CON X 

MOVL #CHC$ JNINT,8(SP) 

CALLG <SP).7R3> 

BLBC RO,CON„X 

8JSL3 #I0C$KJ0SPACE,8(AP),R5 

CmpL 16<Ap>, *Btd$K^UDA 

BNeq 3$ 

BrW Con Uba Uda 

CASE 16(AP) ,TYPE=L ,L IMIT**1 ,- 

displist=<con uba rk,con uba rl,cc 

CASEL 16(AP) # *1 # S^<30003S-30002$5/2>-1 

,SIGNED_WORD con„uba_rk-30002$ 
.SJGNED^WORD con^uba.r 1-30002$ 
♦SJGNEDlWORD con_uba_rb-30002$ 



Point to channel services 

Address of status quadword 

interrupt address for RKOX 8 RLOX 

Is the device an RB730? 

Branch if not 

Replace interrupt address 

Use INJTA 

Unit zero and arg count=4 

Init adapter 

txit if error 

Function INITB 

Init Unibus 

Exit if error 

Function Clear adapter 

Clear status 

Exit if error 

Function enable interrupts 

Init unibus 

Return on error 

Get real address (VA) 



[05] 
[06] 
[06] 
C06] 
[06] 



Is it a 

If not, 
UDA50 



UDA (code 17) 

do CASE for contiguous codes 



[07] 

[073 
[07] 
[07] 



rl,con_uba_rb> 



ZZ-ENSAA-7.Q 

CONFIG 
06-19 



J 6 
DSPSCONFIG LOAD Configure Load devue 27-JUL-1984 _ Fich 

*** CONFIG Configure Load device 27-JUL-1984 15: 
DSPSC0NF1G LOAD Configure Load device 23-JUL-1984 16; 



Fiche 4 Frame J6 Sequence 692 

: 10:11 VAX-11 Macro V03-01 Page 15 
22:39 OMA1:CSYSO.SYSMAIMT3CONFJ6.MAR;52 (9) 



65 8000 8F BO 

08 A5 OC AC BO 

65 0045 8F BO 



00 DD 

000003E8 8F DD 

OO00O0OO'9F 02 FB 

54 OA A5 3C 

65 0040 8F AA 

08 AE 05 DO 

63 6E FA 

12 50 E9 

54 B5 

OF 18 

54 54 01 08 EF 

51 37 3C 

00D1 30 

04 50 E8 

04 

FF3F 31 

08 A2 51 BO 

62 04 DO 

50 OC A2 9E 

04 A2 50 DO 

414D445F 8F DO 

18 A2 55 DO 

1C A2 D4 

20 A2 F4 AD DO 

26 A2 5205 8F BO 

28 A2 3131364B 8F DO 

32 A2 18 A2 12 00 U 



24 A2 FE AD 60 



60 



50 



FC AD 04 

36 A2 
00000000' EF 



F4 AD 
51 



14 
02 



62 

0? 50 

FEE4 

52 
32 
6C 



13 



50 90 



FA 
E8 
31 

DO 
3C 
10 



02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E9 
02EE 
02F3 
02F3 
02F3 
02F5 
02FB 
0302 
C306 
030B 
030F 
0312 
0315 
0317 
0319 
031E 
031 E 
0321 
0324 

0327 
0328 
032B 
0328 
032F 
032F 
0332 
0336 
033A 
0341 
03*5 
? *48 
0J4D 
0:53 
035B 
0362 
0362 
0362 
036? 
0367 
0369 
036F 
036F 
0373 
0373 
037A 
037D 
0380 
0380 
0384 
0387 



603 
604 
605 
606 
607 
608 
609 
610 
611 
612 



.enabL Lsb 
CONJJBA.RK: 

; now build 



PT for RK611 



613 


M0V2WL 


614 


BICW 


615 


MOVL 


616 


CALLG 


617 


BLBC 


618 


TSTW 


619 


BGEQ 


620 


EXTZV 


621 




622 


MOVZWL 


623 


BSBW 


624 


BLBS 


625 10$: 




626 


RET 


627 20S: 


BRW 


628 25$; 




629 


MOVW 


630 




631 


MOVL 


632 


M0VA8 


633 


MOVL 


634 


MOVL 


635 


MOVL 


636 


CLRL 


637 


MOVL 


638 


MOVW 


639 


MOVL 


640 


EXT2V 


641 




642 




643 


MOVW 


644 




645 


BEQL 


646 


EXT7V 


647 




648 


M0V8 


649 




650 


CALLG 


651 


BLBS 


652 30$: 


8RW 


653 40$: 




654 


MOVL 


655 


M0V7WI 


656 


BSBB 



MOVW #RK CS1 M CERR,RK_CS1(R5>; 

MOVW 12(SP),RK..CS2<R5) 

MOVW #RK CS1 M IEIF.DRVCLRM, - 

RKJSKR57 
$DS WA1TUS S 01000 

PU5HL #0 

PUSHL #1000 

CALLS #2, MDSSWAITUS 

RK DS(R5),R4 

#RR CS1 M IE,RK CSKR5) 

*CHC$ d5jRT,8(SP) 

(SP) JR3) 

R0,10$ 

R4 

20$ 

#RK_DS_V_DDT,#1,R4,R4 

*RK611$K_LEN,R1 
Allocate^Ptable 
R0,25$ 



Clear controller errors 
Set unit number of drive in question 

Enable interrupts and clear drive 
Wait for it to finish 



C0N_ERR0R_X 

R1,HP$W_SIZE(R2) 

#4.HP$Q DEVICE(R2) 
HP$T DE?JCE(R2),R0 
R0,HP$Q DEVICE+4CR2) 
# A A M DMA r ',(R0) 
R5.HP$A DEVJCE(R2) 
HP$A DVA<R2) 

L LlNK(FP),HP$ALINK(R2) 
#*X5205,HP$T TYPE(R2) - 
# A A ,, K6ir , ,HP!T TYPE+2(R2) 
#0,*18, HP$A DEVICE(R2), 
RK611$L„CSR(R2) 

L STATUS+6(FP) f - 

HP$W„VECT0R(R2) 

30$ 

*CHI$V JPL,04. - 

L STAT0S+4(FP),RO 

R0,RK611$BJ)R(R2> 

(R2)A A INS$PTABLE 

RO,46$ 

CON^RELEASE.X 

R2,L LINK(FP) 
*RK05$K LEN,R1 
Allocate'Ptable 



Get drive status 

Clear interrupt enable 

Change function to disable 

Disable interrupts 

Return if error 

Status valid? 

Error if not 

Isolate drive type, 0=RK06, 1~Rk07 

Length of RK611 PT 
Allocate space for same 
Branch if succeeded 

Return error 

Leap to error exit 

Set size of structure 

Set length of "DMA" 

Set address of n J)MA M 

Set address of device name 

Set M J>MA" 

Set device address 

Clear virtural address 

Set link to channel 

Set Length and M R" of RK611 

; Set ,, R611 M 

• 

Set CSR address 



Set current vector 
Branch if invalid vector 

Extract BR Level of device 
Save BR level 

Add this PT 
Branch if success 
Release buffer and exit 

Save PT of RK611 
Length of RK06/RK07 PT 
Allocate space for PT 



C073 



C053 



C073J 



ZZ-ENSAA-7,0 
CONFIG 



DSPSCONF 1G LOAD Configure load device 

*** CONFIG Configure load device 
DSP$C0NFIG_L0AD Configure load device 



K 6 

27-JUL-1984 Fiche 4 Frame 
27-JUL-1984 15:10:11 
23-JUL-1984 16:22:39 



K6 Sequence 693 
VAX-11 Macro V03-01 Page 16 
D«Al:CSYS0,SYSMAINT3CONFIG,MAft;52 (9) 



98 50 

08 A2 51 



80 
80 



62 05 

50 0C A2 

04 A2 50 

414D445F 8F 

OC AC 30 

OB A2 OC AC 

18 A2 

1C A2 

20 A2 F4 AD 

26 A2 304B5204 8F 

2A A2 54 36 

0000' CF 62 

B1 50 

50 52 

52 OOOOOOOO'EF 

08 A2 60 

7E 3A 

53 60 

53 

7E OC A043 

F8 53 

OC A2 6E 

FCOF* 

50 01 



E9 


0389 


657 


BLBC 


BO 


038C 


658 


MOVW 




0390 


659 




DO 


0390 


660 


MOVL 


9E 


0393 


661 


MOVAB 


DO 


0397 


662 


MOVL 


DO 


0398 


663 


MOVL 


81 


03A2 


664 


ADDB3 


90 


03A7 


665 


M0V8 


D4 


03AC 


666 


CLRL 


D4 


03AF 


667 


CLRL 


DO 


03B2 


668 


MOVL 


DO 


0387 


669 


MOVL 




03BF 


670 




81 


C3BF 


671 


ADDB3 




03C4 


672 


CONJJORMAL X: 


FA 


03C4 


673 


callg 


E9 


03C9 


674 


blbc 


DO 


03CC 


675 


MOVL 


DE 


03CF 


676 


MOVAL 


DO 


03D6 


677 


MOVL 




03DA 


678 




90 


03DA 


679 


MOVB 


DO 


03DD 


680 


MOVL 


D7 


03E0 


681 


DECL 


90 


03E2 


682 


50$: M0V8 


F5 


03E7 


683 


SOBGTR 


9E 


03EA 


684 


M0VA8 


30 


03EE 


685 


BS8W 


DO 


03F1 


686 


MOVL 


04 


03F4 


687 


RET 




03F5 


688 


.dsabl Isb 



R0,10$ 
R1,HP$W_SIZ£(R2) 

#5,HP$Q DE M ICE(R2> 
HP$T DEVICE (R2) f R0 

RO,HP$Q DEVICE*4(R2) 

**A M DMA M ,(RO>+ 

/rA"0 M ,12(AP),(R0) + 

12(AP),HP$B DRIVE (R2> 

HP$A DEVICE7R2) 

HP$A DVA(R2) 

L LIRK(FP),HP$A LINK<R2) 

#< A A M aRK0"-60>, - 

HP$T TYPE(R2) ; 

# A A"5 M ,R4,HP$T TYPE+4CR2) 



(r2), w A ins$ptable 

rO, $0$ 

R2.R0 

DS$GL CLIBASE,R2 

HPSQ BEVICE(RO), - 

CLISQ FILECR2) 

#*A": -(SP) 

HP$Q*DEVICE(R0),R3 

R3 " 

HP$T DEVICE(R0)CR3],-( 

R3,50$ 

(SP), CLISQ FILE+4(R2) 

DSVSSETLOAD 

#SS$_NQRMAL,RO 



Take error exit 

Set size of structure 

Insert length of " DMAO" 
Insert address of ^DMAO" 
Set address of device name 
Insert ".DMA" 
Insert unit number 
Set drive number 
Clear device address 
Clear virtural address 
Link to RK611 



Set length=4 and "RKO M 
; Set "6* or '7" if R4* 



Insert it in list 

fail if error 

Copy address of P-table of 

Set R2 to base of CLI data 



load 
area 



dev 



; Set length of load device name 

; Tack a ":" to the end 

; Length of name. Any size. 

: "J* not included 
SP) ; Place name on stack 

; Loop to move all of name 

; Set address of load device name 

; Set default load device 

; Success 



CI 2] 
C123 
C12D 
C12D 



ZZ-ENSAA-7.0 

CONFIG 

06-19 



Common routines 



*** 



CONFIG Configure load device 
Common routines 



L 6 

27-JUL-1984 



Fiche 4 Frame L6 



Sequence 694 
27-JUL-1984 15:10:11 VAX-ll Macro V03-01 Page 17 
23-JUL-1984 16:22:39 0MA1 :[SYS0.SYSMAINT]CONFIG,MAR;52 (9) 



62 51 



00000000* EF 

3F 

00 6E 00 

3F 



03 
7E 
05 
00 
04 
03 



00000000* EF 



16 
BB 
2C 
BA 
05 



BB 
7C 
DD 
DD 
FB 
BA 
02 



03F5 

03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F5 
03F' 
C3F5 
03F5 
03FB 
03FD 
0403 
0405 
0406 
0406 
0406 
0408 
04 OA 
040C 
040E 
0415 
0417 
0418 



690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 



.Subtitle 



Common routines 



This little routine allocates a Ptable and pre-clears it. 

Inputs: 
R1 => Size of Ptable to allocate 

Outputs: 
R0 => Status code 
R1 => Si2e of Ptable 
R2 => Address of Ptable 



Allocate Ptable: 

Jsb L A Exe$AloNonPaged 

* A M<R0,R1,R2,R3,R4,R5> 
#0, <Sp>, *0, R1, (R2) 
* A M<R0,R1,R2,R3,R4.R5> 



PushR 
MovC5 
PopR 
Rsb 



COMMON JNTERRUPT: 

PUSHR * A M<R0,R1> 



CLRQ 

PUSHL 

PUSHL 

CALLS 

POPR 

REJ 



-(SP) 

#CHC$_DSINT 
#0 

*4,DS$CHANNEL 
# A M<R0,R1> 



Use to allocate/clear Ptable 
Allocate the structure 
Save volatile registers 
Clear the Ptable 
Restore the registers 



Save volatile regs 

no status or interrupt routine 

Disable further Interrupts 

unit 

disable 

Restore 

All status is in L_STATUS(FP) 



[07] 
[07] 
[07] 
[07] 
[07] 
C07.1 



ZZ-ENSAA-7.0 

CONFIG 
06-19 



Common routines 



*** 



52 02 



OB 
04 A5 



52 04 

08 OC AC 

65 52 



00 

000003E8 8F 

00000000' 9F 02 

65 0080 8F 
16 

52 40 8F 
65 52 



000003E8 
00000000 '9F 
54 
65 0040 
08 AE 
63 
11 



54 54 01 

51 



04 



00 
8F 
02 
65 
8F 
05 
6E 
50 
54 
OE 
07 

37 

81 
50 



52 



28 
A2 



FDEF 

08 A2 51 

62 04 

50 OC A2 

04 A2 50 

414C445F 8F 

18 A2 55 

K A2 

20 A2 F4 AD 

26 A2 5204 8f 

A2 0031314C 8F 

18 A2 12 00 



60 



CONFIG Configure load device 
Common routines 



M 6 

27-JUL-1984 



27-JUL-1984 
23-JUI.-19M 



Fiche 4 Frame M6 



Sequence 695 
15:10:11 VAX-11 Macro V03-0T Page 18 
16:22:39 DMA1 :CSYS0.SYSMAINT]CONFJG.MAR;52<10) 



0418 
0418 
0418 

0418 

0418 
BO 0418 

041A 

041C 

041C 
DO 041C 
FO 041F 
BO 0425 

0428 
DD 0428 
DD C42A 
FB 0430 

0437 
B3 043? 
13 043C 

043E 
88 043E 
BO 0442 

0445 

0445 
DD 0445 
DD 0447 
FB 044D 
3C 0454 
AA 0457 
DO 045C 
FA 0460 
E9 0463 
B5 0466 
19 0468 
Ef 046A 

046F 
3C 046F 
10 0472 
E8 0474 

0477 
04 0477 
31 0478 

04 78 
BO 0478 

047F 
DO 047F 
9E 0482 
DO 0486 
DO 048A 
DO 0491 
D4 0495 
DO 0498 
BO 049D 
DO 04A3 
Ef 04AB 

0482 

0482 



721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 



734 
735 
736 
737 
738 
739 
740 
741 



742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 



C0N.U8A RL: 

; + 

; now build PT 

MOVW 



5$: 



10$: 

20$: 
25$: 



for RL11 



#RL DA M STSJRL DAJ1_RST!1,- 

RL (5A(R57 ' ; Setup disk adress register to 

; clear errors and get status. 



MOVL #F STAT,R2 
INSV 12TAP),#8,#2,R2 
MOVW R2,RL_CS(R5) 
SDSJMITUS S #1000 

PU5HL #o 

PUSHL #iOOO 

CALLS #2, 3#i>S$WAJTUS 

BITW #RL CS_M,CRDY,RL_CS(R5) 
BEQL 5$ " 

BISB2 #RL CS M JE,R2 
MOVW R2,RL_iS7R5) 

SDS.WAITUS S #1000 

PUSHL #0 

PUSHL #1000 

CALLS #2, S#DS$WAJTUS 
MOVZWL RL CS(R5),R4 
BJCW #RC CS M 1E,RL CS(R5) 
MOVL #CHC$ JSlNT,8(3P) 
CALLG (SP),7R3) 
BL8C R0,10$ 
TSTW R4 
BLSS 20$ 
EXT2V #RL MP V TYP,#1,R4,R4 



MOVZWL 

BS88 

BLBS 

RET 
BRW 



#RL11$K..LEN,R1 
Allocate Ptable 
RO,25$ 



CON_ERROR_X 



MOVW R1,HP$W_SIZE(R2) 



; setup get status function 

; setup unit # of drive 

; initiate get status to clear errors 

; Wait for it to finish 



Check if controller ready 

Branch if not ready. Throw it away 

Setup interrupt enable 

Now do get status to cause interrupt 

Wait for it to finish 



Get status reg. contend 

Clear interrupt enable 

Change function to disable 

Disable interrupts 

Return if error 

Check composite error 

Error if set 

Isolate drive type, 0=RL01 ,1=RL02 

Length of RL11 PT 
Allocate space for same 
Branch if succeeded 

Return error 

Leap to error exit 

Set size of structure 



MOVL 

MOVAB 

MOVL 

MOVL 

MOVL 

CLRL 

MOVL 

MOVW 

MOVL 

EXTZV 



#4,HP$Q DEVICECR2) 
HP$T DE?JCE(R2)<R0 
R0,HP$G DEV1CE+4(R2) 
# A A" DLA'MRO) 
R5,hP$A DEVICE(R2> 
HP$A DVA(R2) 

L LJflKCFPK^A LINK(R2) 
# X X520MP$T TYPE(R2) 
# A A'lir , ,HP$T TYPE+2CR2) 
#0,#18, HP$A I5EVKE(R2>, 
RL11$L CSR(R2) 



[073 



DIA" 
n J>LA" 

device name 



Set length of 
Set address of 
Set address of 
Set "JJLA" 
Set device address 
Clear virtural address 
Set link to channel 
Set length and "R" of RL11 
Set '•LTV 

Set CSR address 



ZZ-ENSAA-7.0 
CONf 1G 
06-19 



50 



Common routines 



FC AD 04 

36 A? 

00000000*6 F 



14 
02 



62 

03 50 

FD94 



F4 AD 52 

51 32 

FF1B 

9A 50 

08 A2 51 

62 05 

50 OC A2 

04 A2 50 

80 414C445F 8F 

80 OC AC 30 

OB A2 OC AC 

18 A2 

1C A2 

20 A2 F4 AD 

26 A2 304C5204 8F 



2A A2 



54 31 

FfcAC 



*** CONFIG Configure load device 
Common routines 



N 6 
27-JUL-1984 



Fie he 4 Frame M6 



24 A2 FE AD BO 



13 
EF 



50 90 



FA 
E8 
31 

DO 
3C 
30 
E9 
BO 

DO 
9E 
DO 
DO 
81 
90 
D4 
D4 
DO 
DO 

81 



0482 
0487 
04B7 
0489 
04BF 
04BF 
04C3 
04C3 
04CA 
04CD 
04D0 
04D0 
04D4 
04D7 
C4DA 
04DD 
04E1 
04E1 
04E4 
04E8 
04EC 
04F3 
04F8 
04FD 
0500 
0503 
0508 
0510 
0510 
0515 
0518 



112 

773 

774 

775 

776 

111 

778 

779 

780 

781 30$: 

112 40$: 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 



27-JUL-1984 
23-JUL-1984 

MOVW L STATUS+6CFP), - 
HP$W_VECT0R(R2) 

BEQL 30$ 

EXTZV *CHI$V IPL,*4, - 
L STATDS*4(FP),R0 

M0V8 RU,RL11$B..BR(R2) 

CALIG (R2),L*JNS$PTA8LE 

BLBS R0,40$ 

BRW CON„RELEAS/_X 

MOVL R2,L LINK(FP) 

MOVZWL #RLOT$K LEN,R1 

BS8W Allocate.ptable 

BLBC R0,10$ 

MOVW R1,HP$W„SIZE(R2> 



MOVL #5,HP$Q DEVICECR2) 

MOVAB HP$T DEVICE (R2),R0 

MOVL RO,HP$G DEVICE*4(R2> 

MOVL # ,% A M DLS'\(RO) + 

ADDB3 # A A"0 M ,12(AP),(R0)+ 

MOVB 12(AP),HP$B DRIVE (R2) 

CLRL HP$A^DEVICE7R2) 

CLRL HP$A DVA(R2) 

MOVL L^LlRK(FP) ,HP$A L JNK (R2) 

MOVL ^ A A'*aRL0 M -60>, - 

HP$T TYPECR2; ; 

ADD83 # A A M T M ,R4,HP$T TYPE+4(R2) 

BRW CON.NORMAL.X 



Seguence 696 
15:10:11 VAX-11 Macro V03-01 Page 19 
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Set current vector 
Branch if invalid vector 



Extract BR level 
Save BR level 



of device 



Add this PT 
Branch if success 
Release buffer and 



cos: 



exit 



Save PT of RL11 
Length of RL01/RL02 PT 
Allocate space for PT 
Take error exit 
Set size of structure 

Insert length of M J>LA(T 
Insert address of _DLA0" 
Set address of device name 
Insert "J>LA" 
Insert unit number 
Set drive number 
Clear device address 
Clear virtural address 
Link to RL11 

Set length** and "RLO" 
; Set 'T' or "2 M if R4=1 
now set default load device 



C07D 



u ._.. 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



configure RB730 



00000000' EF 
65 00000040 



03 
7t 
05 
00 
04 
8F 
03 



52 



55 40F26200'EF 

5? 

02 08 OC AC 



000003E8 
00000000 '9F 
54 

65 00000040 
08 AE 
63 



54 54 



01 

51 



00 
8^ 

65 
8F 
05 
6E 
50 
54 
Of 
1A 
37 

n?7 

04 50 



12 



%** 



CONFIG Configure 
configure RB730 



load device 



B 7 
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BO 
7C 
DD 
DD 
F8 
CA 
BA 
02 



9E 
D4 
FO 



10 A5 08 DO 



65 00000044 8F 52 C9 



DD 
DD 
FB 
DO 
CA 
DO 
FA 
E9 
B5 
19 
EF 
3C 
30 
E8 



0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518 

051A 

C51C 

051E 

0520 

0527 

Q52E 

0530 

0531 

0531 

0531 

0531 

0531 

0531 

0531 

0538 

053A 

0540 

0540 

0540 

0540 

0540 

0544 

0544 

0544 

0544 

054C 

054C 

054C 

054C 

054C 

054E 

0554 

0558 

055E 

0565 

0569 

056C 

Q56F 

0571 

0573 

0578 

0578 

057E 

0581 



804 .sbttl 

805 

8<$ 



configure RB730 
Device interrupt handler for RB730 
[warning: this code really should not 



80 

808 

809 

810 

811 

812 

813 

814 

815 RB730jnterrupt: 



works because DS$WAITUS doesn't trash 
guarantee on this in the future. THIS 
RELEASE, but I am making these alterat 
release cut-off* and I Just am not up 
be ecstatic] 



816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 

838 
839 
840 
841 
842 
843 
844 
845 



846 
847 

848 
849 
850 
851 
852 
853 
A54 
855 
856 
857 



PushR 

ClrQ 

PushL 

PushL 

CaUS 

Bicl2 

PopR 

Rei 



rf A M<R0,R1> 

-<Sp) 

*CHC$_DSInt 

MO 

#4, DSSChannel 

#Rb Cs M ie, Rb„Cs<R5) 

# A M*R07RT> 



expect R5 to be valid. Jt 
R5; however, there is no 
SHOULD BE CHANGED IN A FUTURE 
ions 3 working days prior to 
to fancies. If it works, I'll 



Save volatile regs 

no status or interrupt routine 

Disable further interrupts 

unit 

disable 

Disable device interrupts 

Restore 

All status is in L„.STATUS(FP) 



[06] 
[06] 
[063 
[06] 
[06] 
[06] 
[06] 
[06] 
C063 



con.uba^rb: 



Build Ptable 

MovA8 

clrl 

insv 



for RB730 (Nebula IDC) 
R5 



A X40F26200, 

v2 

12<ap>, ffB t 



#2, r2 



Get proper address 
r2 will be shifted 
set unit number in 



for IDC 
unit number 
right field 



[08] 



reset 



drive, 
movl 



with interrupt on completion 



10$: 



#rb mpjn.sts- 

!rb_mpjn f ,rst- 

!rb_mp m mrk, - 

rb mp(r5T 
b 1 s 1 3 v2 t - 

#f getstatus - 

JrE^cs m ie, - 

rb cs(r5T 
$c]s_wa1tus 5 *1000 
PUSHL HO 
PUSHL #1000 
CALLS *2, S#DS$WAITUS 
movl rb cs(r5) < r4 
bicl2 #r6_cs m ie, rb„cs(r5) 
movl *chc$Jsint, 8<sp) 
cat Ig <sp), (r3) 
blbc r0, 1o$ 
tstw r4 
blss 20$ 

ext?v * r b w C5.v^typ, #1, r4, r4 
roovzwl #rb?S0$k len, r1 
bsbw Allocate"ptable 
bibs r0, 30$ 



put get status 

and reset 

and mark bit 

into register 
put unit number 

and command 

and interrupt enable 

into cs register 
wait for it to finish 



bit 



fetch status register 

clear interrupt enable 

change CHANNEL func to disable 

disable interrupts, 

return if error 

Is good status? 

composite error set 

get type bit (Q * rl02, 1 = r80) 

length of R8730 Ptable 

allocate space for it 

check status 



[07] 



ZZ-ENSAA-7,0 

CONFIG 

06-19 



configure RB730 



*** CONFJG Configure load device 
configure RB730 



C 7 
27-JUL-1984 



27-JUL-1984 
23-JUL-1984 







04 


0581 
0582 


858 
859 


FCE5 


31 


0582 


860 








0585 


861 








0585 


862 








0585 


863 








0585 


864 








0585 


865 








0585 


866 








0585 


867 








0585 


868 








0585 


869 








0585 


870 








0585 


871 








C585 


872 








0585 


873 


08 A2 


51 


BO 


0585 


874 


62 


04 


DO 


0589 


875 


50 OC 


A2 


9E 


058C 


876 


04 A2 


50 


DO 


0590 


877 


60 4151445F 


8F 


DO 


0594 


878 


18 A2 


55 


DO 


059B 


879 


U 


A2 


D4 


059F 


880 


20 A2 F4 


AD 


DO 


05A2 
05A7 


881 
882 


26 A2 5205 


8F 


BO 


05A7 


883 


28 A2 30333742 


8F 


DO 


05AD 
05B5 


884 
885 


24 A2 FE 


AD 


BO 


05B5 
058A 


886 
887 




12 


13 


058A 


888 


FC AO 04 


02 


EF 


058C 
05C2 


889 
890 


36 A2 


50 


90 


05C2 


891 


0000'CF 


62 


FA 


05C6 


892 


03 


50 


fc8 


05C8 
05CE 


893 
894 


FC93 


31 


05CE 


895 








05D1 


896 


F4 AD 


52 


DO 


05D1 


897 


51 


32 


3C 


05D5 


898 


FE1A 


30 


05D8 


899 


A3 


50 


E9 


05D8 


900 


08 A2 


31 


BO 


05DE 


901 


62 


05 


DO 


05E2 


902 


50 OC 


A2 


9£ 


OSES 


903 


04 A2 


50 


DO 


05E9 


904 


80 415H45F 


8F 


DO 


05ED 


905 


60 OC AC 


30 


81 


05F4 


906 


OB A2 OC 


AC 


90 


05F9 


907 


18 


A2 


D4 


05FE 


908 


1C 


A2 


D4 


0601 


909 


20 A2 F4 


AD 


DO 


0604 
0609 


910 
911 


50 26 


A2 


9E 


0609 


912 


09 


54 


E9 


060D 
0610 


913 
914 



20$: 
30$: 



ret 
brw 



con_error_x 
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; return error 

; error exit (create status) 



device responded: make Ptable 
Register usage: 

R1 = size of Ptable 
R2 = pointer to Ptable 
R3 = address of DSXSCHANNEL 
R4 = if device is RL02, 1 
R5 = address of device CS 



40$: 
50$: 



routine 
if R80 



movw 

movl 

movab 

movl 

movl 

movl 

clrl 

movl 

movw 
movl 

movw 

beql 
ext2v 

movb 
cal Ig 
bibs 

brw 

movl 

movzwl 

bsbw 

blbc 

movw 

movl 

movab 

movl 

movl 

addb3 

movb 

clrl 

clrl 

movl 

movab 
blbc 



r1, hp$w_size(r2) 
04. hp$q device(r2) 
hp$t device(r2) , rO 
rO, Kp$q device+4(r2) 
JTa 1 ' DQA n , <r0) 
r5 x np$a_device(r2) 
hp$a„dvaTr2) 
I link(fp), - 
hp$a„link(r2) 



# A x 
A a 



>2U5 A 

B736* 



hp$t_type(r2) 



hp$t type+2(r2) 
I staTus+6(fp), - 

ho$w vector(r2) 
40$ 
#chi$v ipl, *4, - 

I sta?us+4(fp), rO 
rO, rb730$bbr (r2) 
(r2), w A ins$ptable 
rO, §0$ 

con„release m x 

r2, L Mnk(fp) 

#rl02$k_len, r1 
Allocate Ptable 
rO, 10$ 

r1, hp$w size(r2) 
*5, hp$q,device(r2) 
hp$t devTce(r2>, rO 
rO, np$q device*4<r2) 
# A a M DQA" <r0>+ 
#*a'1T, l£(ap), (rO) 
12(ap), hp$b drive(r2) 
hp$a_dev1c§(r2) 
hp$a dvatr2) 
LltSkUp), - 
Rp$a link(r2) 
hp$t Jype(r2), rO 
r4, 50$ 



Set size of Ptable 

set length of " DQA" 

set address of .DQA" 

set address of device name 

set "..DQA" as name 

set device address 

clear virtual address 

set link field 

set length and 'R' of RB730 

set rest of type field 

set vector it interrupted thru 
branch if invalid 

get BR level 

save BR level 

add this Ptable to list 

branch if OK 

release buffer and exit 

save link of RB730 

length of RL02/R80 Ptable 

allocate Ptable 

exit if error 

set size 

set length of '' DQA0 M 

address of ".DQJO" 

set into descriptor 

set first part of name 

insert correct unit number 

set binary unit number 

no address 

no pass-thru address 

set link address to RB730 
set address of type field 
branch if RL02 



C07] 



ZZ-ENSAA-7.0 configure RB730 27-JUL-1984 _ Fuhe 4 Frame \)7 Sequence 699 

CONFIG *** CONFIG Confiqure load device 27-JUL-1984 15:10:11 VAX : 11 Macro V03-OT t4 ^ g f^/?Xv 

06-19 configure RQ730 23-JUL-1984 16:22:39 DMA1 :CSYS0,SYSMAINT]CONFIG.MAR;52(1O) 

0610 915 ; Set device type to R80 

0610 916 ; 

60 303852C3 8F DO 0610 917 movl #3*< A a"R80 M S)8>, (rO) ; set type to counted "R80 M 

0A 11 0617 918 brb 70$ ; join common code 

0619 919 ; 

0619 920 ; Set device type to RL02 

0619 921 ; „ ^ 

BO 30AC5204 8F DO 0619 922 60$: movl #4*< A a M RL0* S8>, (r0)+ ; set typs to counted 'R102 

60 32 90 0620 923 movb fV'2", <r0> 

0623 924 ; 

0623 925 ; Insert Ptable, return 

0623 926 ; 

FD9E 31 0623 927 70$t brw con normal.x ; set load device, exit OK 

0626 928 



1 1 



ZZ-ENSAA-7.0 


Attach UDA-50/LES1 load oath 






E 7 

27-JUL-1984 Fiche 4 Frame E7 Seguence 700 
e 27-JUL-1984 15:10:11 VAX-11 Macro V03-01 Pac 




CONFIG 




*** 


CONFIG 


ConH 


gure load devic 


je 23 


06-19 




Attach UDA-50/LE 


SI load 


path 


23-JUL-1984 16:22:39 DMA1 jESYSO.SYSMAINTKONFIG.MAR, 


52(10) 








0626 


930 




.Subtitle Attach UDA-50/LESI load path 










0626 


931 
















0626 


932 


t 




+ 


[07] 








0626 


933 


; Since 


there seems to be no particular purpose to using interupts 










0626 


934 


; when 


initializing the device, this code uses the perfectly good 










0626 


935 


; PUbTDRIVR code for the purpose, and merely checks the status return. 










0626 


936 


t 














0626 


937 
















0626 


938 


con.uba 


_uda: 












0626 


939 
















0626 


940 


, 














0626 


941 


; First 


, turn c 


ff interrupts (which were set up in common 










0626 


942 


; UBA c 


ode) 












0626 


943 


, 














C626 


944 












08 AE 05 


DO 


0626 


945 




MovL 


#Chc$ Dslnt, 8(Sp) ; change CHANNEL func to disable 
(Sp),"(R3) ; disable interrupts. 
RO, 10$ ; return if error 






63 6E 


FA 


062A 


946 




CallG 






45 50 


E9 


062D 


947 




BlbC 










0630 


948 
















0630 


949 


i 














0630 


95C 


; Now, 


build a 


pseudo-RPB to make the bootdriver init code 










0630 


951 


; happy 
; globa 


, and \\ 


len call said routine. S'ter it completes, the 










0630 


952 


I response buffer is accessible; it has the drive type, etc. 










0630 


953 


• 














0630 


954 












00 


DD 


0630 


955 




PushL 


#0 ; No slave number 


[07] 




OC AC 


DD 


0632 


956 




PushL 


12(Ap) ; Unit number 


[07] 




50 F4 BD 


DE 


0635 


957 




MovAL 


SL Link(Fp), R0 ; Get address of link Ptable 


C07] 




18 AO 


DD 


0639 


958 




PushL 


HdIa Device(RO) ; Address of link device 
R5 " ; Address of device CSR 


[07] 




55 


DD 


063C 


959 




PushL 


[07] 




71 


7C 


063E 


960 




ClrQ 


-(Sp) ; Don*t bother with adap./dev. codes 
#6, DsrSAllocate^Pseudo RPB ; Allocate the RPB 


[07] 




00000000' EF 06 


FB 


0640 


961 




Calls 


[07] 




50 


D5 


0647 


962 




TstL 


R0 ; If R0 is 0, 


[07] 




2B 


13 


0649 


963 




BEql 


20$ ; .. there was an error 


[07] 




59 50 


DO 


0648 


964 




MovL 


R0, R9 ; Put RPB where UDJNIT wants it 


[07] 




00000000* EF 00 


FB 


064E 


965 




CallS 


#0, UD Init ; Call init routine 


[07] 




1D 50 


E9 


0655 


966 




BlbC 


R0. 10$ ; Return if error 


[07] 




69 


9F 


0658 


967 




PushAB 


(R9) ; Address of RPB 


[07] 




OOOOOOOO'EF 01 


FB 


065A 


968 




CallS 


#1, Dsr$DeAllocate^Pseudo,RPB ; Deallocate the RPB 


[07] 




59 OOOOOOOO'EF 


9E 


0661 


969 




MovAB 


UDA Response, R9 ; Get address of response buffer 
MSCP$L_MediaJD(R9), R9 ; Replace R9 with media ID codes 


[07] 




59 1C A9 


DO 


0668 


970 




MovL 


[07] 








066C 


971 
















066C 


972 


i 














066C 


973 


; Build 


Ptable 


for UDA-50 (UNIBUS => SDI adapter) 










066C 


974 


; Build Ptable 


for LESJ 


[19] 








066C 


975 


i 














066C 


976 












51 38 


3C 


066C 


977 




MovZWL 


#Hp$K„UDA50„Len, r1 ; length of UDA-50 Ptable 






F083 


30 


066F 


978 




BsbW 


Allocate Ptable ; allocate space for it 


[07] 




04 50 


E8 


067? 
0675 


979 
980 


10$: 


BlbS 


R0, 30$ " ; check status 








04 


0675 
0676 


981 
982 


20$: 


Ret 


; return error 






FBF1 


31 


0676 
0679 
0679 


983 
984 
985 


30$: 

i 


BrW 


Con_Error_X ; error exit (create status) 










0679 


986 


; device responded: make Ptable 





ZZ-ENSAA-7.0 Attach UDA-50/LESI load Dath 






F 7* 

27-JUL-1984 Fiche 4 Frame H Sequence 701 




CONFIG 




*** 


CONFIG 


Confic 


jure 


load device 27-JUL-1984 15:10:11 VAX-11 Macro V03-01 Page 


24 


06-19 




Attach UDA- 


-50/LE5 


>J load path 


23-JUL-1984 16:22:39 DMA1:[SYS0,SYSMAINTJCQNFIG.MAR;52(1O) 








0679 


987 , 
















0679 
0679 
0679 


988 ; 

989 , 

990 , 


Register usage: 












R1 = 


size of Ptable 










0679 


991 ( 




R£ = 


pointer to Ptable 










0679 


992 ( 




R3 = 


scratch 










0679 


993 , 




R4 = 


scratch 










0679 


994 , 




R5 = 


address of device CS 










0679 


995 , 




R9 = 


UDA-50 drive media ID code 










0679 


996 , 
















0679 


997 , 






31 26 21 16 11 7 6 










0679 


998 , 
















0679 


999 , 






! DO J D1 ! AO ! A1 ! A2 ! N J 










0679 


1000 , 
















C679 


1001 t 
















0679 


1002 , 






DO, D1 : 5-bit ASCII preferred device 










0679 


1003 , 






generic prefix for unit. 1='A', 2= , B I . 
DO is left letter, D1 is right. 










0679 


1004 














0679 


1005 






A0,A1,A2,N : Media name of unit. Up to 3 alpha 










0679 


1006 






characters (left-Justified in A0-2), and 










0679 


1007 






N (two decimal digits). Ex: A0=17, 










0679 


1008 






A1=1, A2=0 f N=80; name is , RA80 I . 










0679 


1009 






Name can also be RA81 ,RA60,RC25,RCF25 










0679 


1010 
















0679 


1011 
1012 










08 A2 


51 


BO 


0679 




MovW 


R1, Hp$W.Size(R2) ; Set size of Ptable 




62 


OA 


DO 


067D 


1013 




MovL 


#4, Hp$Q Device(R2) ; set length of " DUA M 




50 OC 


A2 


9E 


0680 


1014 




MovAB 


Hp$T DevTce(R2), RO ; set address of ^DUA" 

RO, Hp$Q Device*4(R2) ; set address of device name 

# A A M DUA n , (RO) ; set '^DUA" as name/DEFAULT 




04 A? 


50 


DO 


0684 


1015 




MovL 




60 4155445F 


8F 


DO 


0688 


1016 




MovL 


C103 


18 A2 


55 


DO 


068F 


1017 




MovL 


R5, Rp$A Device(R2) ; set device address 




32 A2 55 12 


00 


EF 


0693 
0699 


1018 
1019 




ExtZV 


#0, 018, ~R5, - ; Set UNIBUS address into 
Hp$L Uda50 UdaIp(R2) ; ,. correct field of Ptable 
Hp$A Bva(R2T ; clear sibling address 




1C 


A2 


D4 


0699 


1020 




CtrL 




?0 A2 FA 


AD 


DO 


069C 
06A1 


1021 
1022 




MovL 


L LinkCFp), - 

Rp$A Unk(R2) ; set link field 
R9,#*x:20643019 ; Check for RC25 




20643019 8F 


59 


D1 


06A1 


1023 




CMPL 


[10] 




09 


13 


06A8 


1024 




8EQL 


33$ ; Branch if found. 


[10] 


20643319 8F 


59 


D1 


06AA 


1025 




CMPL 


R9,* A X20643319 ; Check for RCF25 


[10] 




18 


12 


06B1 
0683 


1026 
1027 




BNEQ 


35$ ; Branch if found. 


[103 


26 A2 4C04 


BF 


BO 


06B3 


1028 


33$: 


MOVW 


#4!< A A ,, L M a8> 1 - ; Set length and V 
HP$T TYPE(R2) ; Of LESI 


[133 








0689 


1029 






[103 


28 A2 20495345 


8F 


DO 


06B9 


1030 




MOVL 


^A'tSl " - ' and set 
HP$T TYP£*2(R2) ; rest of type field 
# A A M BAA M ,HP$T DEVICE(R2); RESET '• DAA M AS NAME 


[133 








06C1 


1031 






[103 


OC A2 4141445F 


8F 


DO 


06C1 


1032 




MOVL 


C183 




OE 


11 


06C9 
06C8 


1033 
1034 




BR8 


38$ " ; Branch to continue 


[103 


26 A2 5505 


8f 


BO 


06CB 


1035 


35$: 


MovW 


*5!< A A"ir88>, - ; Set length and , U' 
Hp$T Tvpe(R2) ; .. of UDA50 
* A A"DA50 , - ; And set 










06D1 


1036 








28 A2 3035414A 


8F 


DO 


06D1 


1037 
1038 




MovL 










06D9 






Hp$TJype+2(R2) ; .. rest of type field 










Q6D9 
06D9 


1039 










24 A2 006C 


8F 


BO 


1040 38$: 


MovW 


0*0154. Hp$W Vector(R2) ; Set vector of fst UDA 
#5, Hp$B UDA5Q Br(R2) ; save BR level 




36 A2 


05 


90 


06DF 


1041 




MovB 




37 A2 


02 


90 


06E3 


1042 




Mov8 


*2 X Hp$8UDA50 Burst (R2>; Assume default burst rate 
(Rj), W A Tns$Ptable ; add this Ptable to list 


[073 


OOOO'CF 


62 


FA 


06E7 


1043 




CallG 


.. J 



ZZ-ENSAA- 


7,0 Attach 


uda-; 


50/LES1 load path 


COMHG 








*** 


CONFIG 


Configure loa 


06-19 








Attach UDA' 


-50/LESJ load 






03 


50 


E8 


06EC 

06EF 


1044 
1045 40$: 






FB72 


31 


06EF 


1046 












06F2 


1047 50$: 




F4 


AD 


52 


DO 


06F2 


1048 






51 


32 


3C 


06F6 


1C49 






FCF9 


30 


06F9 


1050 






03 50 


E8 


06FC 


1051 






FF73 


31 


06FF 


1052 




08 A2 


51 


BO 


0702 


1053 52$: 






62 


05 


DO 


0706 


1054 




50 


OC 


A2 


9E 


0709 


1055 




04 


A2 


50 


DO 


070D 


1056 




60 4155A45F 


8F 


DO 


0711 


1057 




53 59 


OA 


16 


EF 


C718 


1058 








16 


13 


071D 


1059 




54 53 


05 


00 


EF 


071F 


1060 




53 53 


05 


05 


EF 


0724 


1061 




01 AO 53 


40 


8F 


81 


0729 


1062 




02 AO 54 


40 


8F 


81 


072F 


1063 






50 


04 


CO 


0735 


1064 55$: 




60 OC 


AC 


30 


81 


0738 


1065 




OB A2 


OC 


AC 


90 


073D 


1066 






18 


A2 


D4 


0742 


1067 






1C 


A2 


D4 


0745 


1068 




20 A2 


F4 


AO 


DO 


0748 


1069 
1070 












074D 




50 


26 


A2 


9E 


074D 


1071 








50 


D6 


0751 


1072 






51 


50 


DO 


0753 


1073 






53 


11 


DO 


0756 


1074 




54 59 


05 


53 


EF 


0759 


1075 60$: 








OF 


13 


075E 


1076 
1077 




80 54 


40 8F 


81 


0760 


FFEA 


53 FFFFFFFB 


8F 


06 


F1 


0765 


1078 




53 59 


07 


00 


U 


076F 


1079 65$: 








54 


D4 


0774 


1080 




54 53 


53 


OA 


7B 


0776 


1081 




80 


53 


30 


81 


077B 


1082 




80 


54 


30 


81 


077F 


1083 






50 


51 


C2 


0783 


1084 






71 


50 


90 


0786 
0789 
0789 
0789 
0789 


1085 
1086 

1087 ; 

1088 ; Insert 

1089 ; 
1090 












0789 






FC38 


31 


0789 


1091 70$: 












Q78C 
078C 


1092 












1093 












078C 


1094 



device 
path 

BlbS 



G 7 
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Fiche 4 Frame G7 
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R4 
R3 
A3, 
R4, 



RO, 50$ 

BrW Con„Release_X 

MovL R2, L Link(Fp) 

MovZWL #RA80$K_Len, R1 

BsbW Allocate Ptable 

BlbS RO, 52$ 

BRW 10$ 

MovW R1, Hp$W_Size(R2) 

MovL #5, Hp$Q Device(A2) 

MovAB Hp$T Dev7ce(R2), RO 

MovL RO, Rp$Q Devke+4(R2) 

MovL **A" DUA n , (RO) 

ExtZV m, #10, R9, R3 

BEql 55$ 

ExtZV #0, #5, R3, 

ExtZV #5, #5, R3, 

AddB3 #< a A"a;'-1>, 

AddB3 *<«A 4, A M -1>, 

AddL2 #4, RO 

AddB3 #*A"0", 12(Ap), 

Mov8 12<Ap), Hp$8 Drive(R2> 

ClrL Hp$A_Device(R2) 

ClrL Hp$A_Dva(R2) 

MovL L Link(Fp), - 
Rp$A Link(R2) 

MovAB Hp$T_Type(R2), 

IncL RO 

MovL RO, R1 

MovL #17, R3 

ExtZV R3, #5, R9, R4 

BEql 65$ t 

AddB3 #< A A M A M -1>, R4. 

AcbL #6, #-5, R3, 60$ 

ExtZV #0, #7, R9, R3 

ClrL R4 

EDiv #10, R3, R3, R4 

AddB3 # a a''0 m , R3, (R0) + 

AddB3 # A A I '0 M , R4, (RQ) + 

SubL2 R1, RO 

MovB RO, -(R1) 



KRO) 
2(R0) 

(RO) 



RO 



(R0) + 



BrW Con_NormalJ< 

.END 



branch ft OK 

release buffer and exit 

save link of UDA50/LESI 

length of RA80/81/60,RC25,RCF25 Ptable 

allocate Ptable [07] 

continue if no error [10] 

exit if error [103 

set size 

set length of '' DUA0 M 

address of ".DUBO" 

set into descriptor 

set first part of name, DEFAULT [10] 

Get preferred name 

Branch if null 

Get second character 

Get first character 

Replace first character 

, . and second as well 

Increment pointer 

insert correct unit number 

set binary unit number 

no address 

no pass-thru address 



set link address to UDA50/LESI 

set address of type field 

Skip count byte 

Copy start of length 

Bit of first character 

Get next character 

Exit if null 

Otherwise, store it 

Loop through characters 

Get number 

Clear high order 

Divide by 10 

First digit 

Second digit 

Get length 

Store byte length 



C10] 



set load device, exit OK 



[07] 



_ 



ZZ-ENSAA-7.0 
CONFIG 
Symbol table 

SER 

SMODULE 

ALLOCATE PTABLE 
BOOTSL A5P 
B00TSL..CSR 
BOOTSL J)EVTYP 
BOOTSL..R2 
BOOTSL UNIT 
BTDSK OSCCI 
BTDSK UDA 
CHCSjBORT 
CHCS.CLEAR 
CHCS CLRDFT 

chc$;dsint 

CHCS.ENINT 

CHCSJNITA 

CHCSJNHB 

CHCSJHJRGE 

CHCS SELF TEST 

CHCS SETDFT 

CHCS^STATUS 

CHCS STOP 

CHlSfl^CHNINT 

CMISMJ)EVINT 

CHISMJPL 

CHISSJPL 

CHISV^CHNINT 

CH1SV„DEV1NT 

CHISV IPL 

CISBjR 

CISBJJODE 

CISB^TR 

CISK^LEN 

CJSLJUNC 

CISLJNDEX 

CiSL MA1NT ID 

CLISR^BUFSTZ 

CLISK^SIZE 

CLISL..ADDRESS 

CLISL COMMAND 

CLISL^DATA 

CLISLJLAGS 

CLISLJ.AST 

CLISL.NEXf 

CLISL_PASS 

CLISL^SUBT 

CLI$L„TEST 

CLISQ^BUFQWD 

CUSQ..FILE 

CLISQ^SECTION 

CLISQJIME 

CLIST^BUFFER 

CLISV_ADAPTER 

CLISV„ADR 

CLISV ASCII 

CLJSV'BREAK 

CLISV.BRIEF 



Symbol table 



*** CONFIG Configure load device 
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27-JUL-1984 
23-JUL-1984 



00000003 
00000000 R 
000003F5 R 

******** 
******** 
******** 
******** 
******** 

00000020 

00000011 

00000002 

00000006 

00000009 

00000005 

00000004 

00000000 

00000001 

00000003 

0000000B 

00000008 

00000007 

OOOOOOOA 

00000001 

00000002 

0000007C 

00000005 

00000000 

00000001 

00000002 

00000033 

00000034 

00000032 

00000041 

00000035 

0000003D 

00000039 

00000100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

00Q0043C 

0000003C 

00000018 

00000008 

00000013 

OOOOOOOA 

00000018 



D 

D 02 

D 03 
00 
00 
00 
00 
00 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

b 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



CLISV BYTE 

CLJSV.CLEAR 

CL1SV_DEC 

CLISV DEFAULT 

CLJSVlDEPOSIT 

CLISV.EVENT 

CLISV.EXAM 

CLJSVJLAGS 

CLISV_HEX 

CLISV KERNEL 

CLISV^LOAD 

CLISV LONG 

CLI$V~NOTNUF 

CLISV^OCT 

CLJSV PREG 

CLISVIQA 

CLJSV QACKLOOPLOOPS 

CLJSV.QAERRORPRINTS 

CLJSV QAMULTIPLEPASS 

CLJSV"QASUBTESTLOOPS 

CLISV QATESTLOOPS 

CLISVlREG 

CLISV^REQUJRED 

CLJSV^RUN 

CLJSV_SET 

CLJ$V„SHOW 

CLJSV VALSEC 

CLISV'WORD 

COMMOR.INTERRUPT 

CON.CI HSCCI 

CONJR&OR..X 

C0NJ1BA 

CON„NORMAL X 

CON^RELEASE^X 

CON^UBA 

CON UBA.RB 

CON„UBA.,RK 

COfTUBA^RL 

CON,UBA UDA 

CQN..X 

DIRT., 

disksk len 
dsschahnel 
dssga^selected 
dssgl clibase 
ds$k Error 
dssk normal 

DSSrSEVERE 

DSSK_SUBSYS 

DSSKlWARNING 

DSSWXITUS 

DSSJUUTH 

DSS^ASBE 

D$S*BADL1NK 

DSSIBADTYPE 

DS$„BI1C 

DSS'CHME 
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= OOOOOOOD D 

= 00000002 D 

= 00000010 D 

= OOOOOOOC D 

= 00000019 D 

= 00000008 D 

= 00000005 D 

= 00000009 D 

= 00000012 D 

= 00000017 D 

= 00000006 D 

= OOOOOOOF D 

= 00000001 D 

= 00000011 D 

= 0000001A D 

= 00000007 D 

= 0000001 C D 

= 0000001 B D 

= 0000001 F D 

= 0000001 E D 

= 0000001 D D 

= 00000014 D 

= 00000000 D 

= 00000015 D 

= 00000003 D 

* 00000004 D 

= 00000016 D 

= OOOOOOOE D 

00000406 R D 03 

OOOOQODO R D 03 

0000026A R D 03 

000001 E2 R D 03 

000QQ3C4 R D 03 

00000264 R D 03 

00000272 R D 03 

00000531 R D 03 

000O02E4 R D 03 

00000418 R D 03 

00000626 R D 03 

00000271 R D 03 

= FFFFFFFF D 

00000032 D 

******** x 00 

******** x 00 

******** x 00 

= 00000002 D 

= 00000001 D 

= OOOOOOOA D 

:il I 

******** x 00 

= 006600D0 D 

= 00660118 D 

= 006600F0 D 

= 006600E8 D 

= 0066Q120 D 

= 006600A8 D 
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Sequence 704 
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OSS CHMK 

DSS'DEVNAME 

DSS'ERROR 

DSSIFHWE 

DSS FRAG8UF 

DSS^ICBUSY 

DSSJCERR 

DSSJHWE 

DSSJLLCHAR 

DSS ILLPAGCNT 

0S$IILLUNIT 

OSS INSFMEM 

0SSIIPL2HI 

DSS 1VADDR 

DSSJVVECT 

DSS KRNLSTK 

DSSJ.OGIC 

DSSJ1CHK 

DSS MMOFF 

DSS.NEEDUNIT 

DSSJJODE 

DSS^NOPCS 

DSS NORMAL 

DSS NOSUPPORT 

DSS'NOTDON 

DSSINOTIMP 

DSS NULLSTR 

DSSlOVERFLOW 

DSS POWER 

DSS^PROGERR 

DSS^SEVERE 

DSS TRANSL 

DSS TRUNCATE 

DSS UNEXPINT 

DSS.VASFULL 

DSS WARNING 

DSAlAL APTMAIL 

DSASAT'APTTXT 

DSASGLlAPTCOM 

DSASGL.DEVLEN 

DSASGL.ERRNO 

DSASGLJVENT 

DSASGL. FLAGS 

DSASGL MSGTYP 

DSASGL.PASSES 

DSASGL PASSNO 

DSASGL SECTNO 

DSASGLlSID 

DSASGL^SUBTNO 

DSASGL TESTNO 

DSASGL^UNITS 

DSASGQlMSGPTR 

dsasgt devnam 
dspscofjfjg.adp 
dspsconfjg load 
dsrsallocate pseudo rpb 
dsr$deallocaTe.pseuBo..rp8 



006600E0 

00660108 

00660002 

00660068 

00660080 

006600C8 

006600CO 

00660060 

00660018 

00660078 

00660100 

00660050 

006600B8 

00660040 

00660038 

00660090 

00660070 

00660088 

00660058 

006600F8 

00660128 

00660110 

00660001 

00660081 

00660030 

006600B0 

00660010 

00660008 

00660098 

00660020 

00660004 

006600A0 

00660028 

006600D8 

00660048 

00660000 

OO00FE00 

0000FA00 

0000FE04 

OO00FE58 

0000FE44 

0000FE48 

OOOOFEOO 

0000FE40 

Q000FE08 

OO00FE54 

0000FE10 

OOOOFEH 

000QFE4C 

0OQ0FE50 

OOOOFEOC 

0000FE68 

0000FE5C 

******** 

0000007^ 
******** 
******** 



D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

X 00 

RG D 03 

X 00 

X 00 



DSVSSETLOAD 

DS.ERRSUP 

DT.RM03 

DTIRM05 

DT.RM80 

DT RP04 

DT"RP05 

DTZRP06 

DT.RP07 

DT RP07 HPT 

EXESALOflONPAGED 

EXESDEANONPAGED 

F.DRVCLR 

F GETSTATUS 

FlNOP 

F STAT 

HPSA.DEPENDENT 

HPSAlDEVICE 

HPSA.DVA 

HPSA LINK 

HPSBlCLB* 

HPSB CI. NODE 

HP$8~CI TR 

HP$B"DRlVE 

HPSB^FLAGS 

HPSB.RB730.br 

HPSB_RK611 BR 

HPS8.RL11 8R 

HPSB.UDA50.BR 

HPSB„UDA50 BURST 

HPSKlCI LER 

HPSK DlSK.LEN 

HPSOA80.LEN 

HP$k:rB730 LEN 

HPSK„RK06 JEN 

HPSK RK61T LEN 

HPSK_RL01.CEN 

HPSK.RL02.LEN 

HPSK.RL11.LEN 

HPSK RP04 LEN 

HPSK^UDA50 LEN 

HPSL~CI.FURC 

HPSLlCI. INDEX 

HPSLlCTMAINT ID 

HPSLIRB730.CSR 

HPSLIRK611 CSR 

HPSL.RL11 rSR 

HPSL UDA50 UDAIP 

HPSCf DEVICE 

HPSOEVICE 

HPSTITYPE 

HPSW.SIZE 

HP$W VECTOR 

INJSCOAD^DEVICE 

INSSPTABCE 

10CSKJ0SPACE 

K.TYPES 



******** 
******** 

00000015 

00000017 

00000016 

00000010 

0000001 1 

00000012 

00000022 

00000021 
******** 

******** 
00000004 
00000004 
00000000 
00000004 
00000032 
00000018 
OOOQOOI C 
00000020 
00000033 
00000034 
00000032 
OOOOOOOB 
OOOOOOOA 
00000036 
00000036 
00000036 
00000036 
00000037 
00000041 
00000032 

vm 

00000032 
00000037 
00000032 

0000003| 
00000037 

00000032 
0000003I 

W 




******** 
******** 
00000013 



00 
00 



00 
00 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 03 
X 00 
X 00 

D 



ZZ-ENSAA-7.0 
CONFIG 
bymbol table 

LJ.INK 

L_LOCAl 

L STATUS 

-"TYPE 

M5CP$L MEDiAJD 

R80$K [EN 

RA80SR LEN 

RB730SS w BR 

RB730SKJ.EN 

RB730SL CSR 

RB730 INTERRUPT 

RB„BA" 

RB.BC 

RB.CS 

RB CS MJE 

RB CS V TYP 

RB~DA~ " 

RBlMP 

RB^MPJIJIRK 

RB MFJ1 RST 

RB"MP M~STS 

RKD6SR CEN 

RK611$B w BR 

R<611$K M LEN 

RK61UL CSR 

RK CS1 ~ 

RK~CS1_M„CERR 

RKlCSl.M^IE 

RK CS1 M RDY 

RKICS2" * 

RK.DS 

RK OS V DDT 

RLOUR CEN 

RL02$K_LEN 

RL11$B BR 

RL11$K~LEN 

RL11SL CSR 

RL^CS 

rl cs m crdy 
rlIcsXje 

PL_DA 

RL DA M MRK 

RL"DAlM"RST 

RL~DA M~S T S 

RL"MP" ~ 

Rt"MP V TYP 

RP04$RjEN 

RP.CS! 

RP DT 

RPlDT_S..DTN 

RP DT V DTN 

SA7A9S.T. 

SCB^BASE 

SCBJMAGE 
SIZ — 

SSS NORMAL 
SYS?UNWIND 



Symbol table 



*** CONFIG Configure load device 



J 7 

27-JUL-1984 



27-JUL-1984 
23-JUL-1984 



F f che 4 Frame J7 



Sequence 705 
15:10:11 VAX-11 Macro V03-01 Page 28 
16:22.*39 DMA1 jCSYSO.SYSMAINTKONF JG.MAR;52C10) 



FFFFFFF4 D 

FFFFFFFO D 

FFFFFFF8 D 

FFFFFFFO D 

= 0000001 C D 

00000032 D 

00000032 D 

00000036 D 

00000037 D 
00000032 D 
00000518 R D 03 
00000004 D 
00000008 D 
00000000 D 

= 0000C040 D 

* 0000001A D 
0000000C D 
00000010 D 

= 00000001 D 

= 00000008 D 

= 00000002 D 

00000032 D 

00000036 D 

00000037 D 
00000032 D 

= 00000000 D 

= 00008000 D 

= 00000040 D 

= 00000080 D 

= 00000008 

= OOOOOOOA D 

= 00000008 D 

00000032 D 

00000032 D 

00000036 D 

00000037 D 
00000032 D 

* OOOOOOOO D 
= 00000080 D 
= 00000040 D 
= 00000004 D 
= 00000001 D 
- 00000008 D 
= 00000002 D 
= 00000006 D 
= 00000007 D 

00000032 D 

* OOOOOOOO D 
= 00000018 D 
= 00000009 D 
5 OOOOOOOO D 
= FFFFFFFO 

******** x oc 

t******* x 00 

= 00000002 D 

= 00000001 D 

******** x 00 



T TYPES 

uBa50$b_br 
uda50sb burst 
uda50sk len 
uda50$l*udaip 
uda response 

UDjNIT 



00000007 R 
00000036 
00000037 
00000038 

00000032 
******** 


D 
D 
D 
D 
D 
X 


0? 
00 


******** 


X 


00 



ZZ-ENSAA-7.0 

CONFIG 

''sect synopsis 



Psect synopsis 



*** CONFIG Configure load device 



K 7 

27-JUL-1984 



27-JUL-1984 
23-JUL-1984 



Fiche 4 Frame K7 



Sequence 706 
15:10:11 VAX-11 Macro V03-0T Page 29 

16:22:39 DMA1 ;[SYSO.SYSMAINT]CONFIG,MAR;52(10) 



PSECT name 

ABS . 
$ABS$ 
DATA 
CODE 



Allocation 

00000000 ( 

FFFFFFF8 ( 

0000009F ( 

0000078C ( 



3 Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOP1C USR 

0.) 01 ( 1J N0P1C USR 

159.) 02 ( 2.) N0P1C USR 

1932.) 03 ( 3.) N0PIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


NOWRT NOVEC 


LONG 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT NOVEC 


LONG 



ZZ-ENSAA-7,0 

CONFIG 

Cross reference 



Cross reference 



*** CONFIG Configure load device 



L 7 

27-JUL-1984 



27-JUL-1984 
23-JUL-1984 



Fiche 4 Frame 17 



Sequence 707 
15:10:11 VAX-11 Macro V03-01 Page 30 

16:22:39 0MA1 jCSYSO.SYSMAINTDCONFIG. MAR; 52(10) 



+ — • — •••™w-™— ^ + 

! Symbol Cross Reference ! 
+ —.. + 



SYMBOL 

$ER 

SMODULE 
ALLOCATE. PTABLE 



BIT... 

B00T$L^ADP 

BOOTSL^CSR 

B00T$LJ)EVTYP 

B00T$L„R2 

B0OT$L UNIT 

BTDSK RSCCI 

BTD$K~UDA 

CHCS SBORT 

CHC$ICLEAR 

CHC$ CLRDFT 

CHC$J)SINT 

CHC$ ENINT 

CHC$"INITA 

CHC$"1NITB 

CHCSJHJRGE 

CHC$_SELF TEST 

CHC$ SETDrT 

CHC$"*STATUS 

CHCS STOP 

CHI$R CHNINT 

CHIIMlDEVlNT 

CHlSMJPL 

CHISSJPL 

CHI$V„CHNINT 

CHISV.DEVINT 

CHISVJPL 

CLISK^BUFSIZ 

CLISK..SIZE 

CLISL ADDRESS 

CL I SI. COMMAND 

CLlSLlDATA 

CLtSLjLAGS 

CLJSL^LAST 

CLISL.NEXT 

CLI$LJ>ASS 

CLISL^SUBT 

CUSL.TEST 

CLI$Q„BUFQWD 

CLISQ FILE 

CLI$Q.SECTION 

ClI$Q„TIME 

CLIST^BUFFER 

CLISV ADAPTER 



VALUE 

=00000003 

00000000-R 

000003F5-R 



=00000010 
00000000-XR 
00000C00-XR 
00000000-XR 
00000000-XR 
00000000-XR 

=00000020 

=00000011 

=00000002 

=00000006 

=00000009 

=00000005 

=0000000^ 

=00000000 

=00000001 

=00000003 

=0000000B 

=00000008 

=00000007 

=000OO00A 

=00000001 

=00000002 

=0000007C 

=00000005 

=00000000 

=00000001 

=00000002 

=00000100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

U000003C 

=00000018 



DEFINITION 



542 
290 
704 



150 



149 

149 
149 
149 



(7) 
(2) 
(9) 



(2) 



(2) 
(2) 
(2) 
(2) 



149 


(2) 


149 


(2) 


149 


(2) 


149 


(2) 


149 


(2) 


149 


(2) 


149 


(2) 


149 


(2) 


150 


(2) 


150 


(2) 


150 


(2) 


150 


u: 


150 


(2) 


150 


(2) 


150 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(2) 


118 


(?) 


118 


(2) 


m 


(2) 


118 


(2) 


118 


(2) 



REFERENCES... 














#-442 


(5) 


#-542 


(7) 










442 


(5) 


542 


(7) 










#-1050 


(10) 


#-452 


(6) 


#-487 


(6) 


#-529 


(7) 


#-623 


(9) 


#-656 


(9) 


#-752 


(10) 


#-785 


(10) 


#-855 


(10) 


#-899 


(10) 


#-978 


(10) 






146 


(2) 


149 


(2) 


150 


(2) 






286 


(2) 


#-363 


(3) 










286 


(2) 


#-368 


(3) 










286 


(2) 


#-366 


(3) 










286 


(2) 


#-365 


<3> 










286 


(2) 


#-367 


(3) 










#-437 


(5) 














#-434 


(5) 


#-596 


(8) 










#-588 


(8) 














#-615 


(9) 


#-714 


(9) 


#-744 


(10) 


#-bi8 


(10) 


#-848 


(10) 


#-945 


(10) 










#-591 


(8) 














#-581 


(8) 














#-585 


(8) 















#-646 
118 



#-678 



(9) 
(2) 



#-775 



(10) #-889 (10) 



(9) 



#-684 



(9) 



ZZ-ENSAA-\0 Cross 


reference 






27- 


M 7 
-JUL-1984 


Fiche < 


i Frame M7 


Sequence 708 


CONFIG 


*** CONFIG Confiaure load 


device 




27-JUL-198' 


• 15:10 


:11 VAX-11 Mac 


ro V03-0T 


Page 51 


Cross reference 












23-JUL-198' 


» 16:22 


:39 DMA1:CSYSO.SYSMAINT]CONFIG.MAR;52(10) 


CL1SV ADR 


=0000000B 


118 


(2) 
















CLISVJVSCII 


=00000013 


118 


(2) 
















CLiSV^BREAK 


=0000000A 


118 


(2) 
















CLISV BRIEF 


=00000018 


118 


(2) 
















CL1SV..BYTE 


=0000000D 


118 


(2) 
















CLISV,CLEAR 


=00000002 


118 


(2) 
















CLISV J)EC 


=00000010 


118 


(2) 
















CL1SVJ)EFAULT 


=OOOOO00C 


118 


(2) 
















CLISVJJEPOSIT 


=00000019 


118 


(2) 
















CLISV EVENT 


=00000008 


118 


(2) 
















CLISV EXAM 


=00000005 


118 


(2) 
















CLISVJLAGS 


=00000009 


118 


(2) 
















CLISV^HEX 


=00000012 


118 


(2) 
















CLISV JCERNEL 


=00000017 


118 


(2) 
















CLISVJOAD 


=00000006 


118 


(2) 
















CLISV LONG 


=O000O00F 


118 


(2) 
















CLISVNOTNUF 


=00000001 


118 


(2) 
















CLIS\"0CT 


=00000011 


118 


(2) 
















CLISV.PREG 


=0000001A 


118 


(2) 
















CLISV QA 


=00000007 


118 


(2) 
















CLI1V"QACKLOOPLOOPS 


=0000001 C 


118 


(2) 
















CLISVlQAERRORPRINTS 


=00000018 


118 


(2) 
















CLISV QAMULTIPLEPASS 


=0000001 F 


118 


(2) 
















CLISV QASUBTESTLOOPS 


=0000001 E 


118 


(2) 
















CLISV^QATESTLOOPS 


=0000001 D 


118 


(2) 
















CLISV REG 


=00000014 


118 


(2) 
















CLISV REQUIRED 


=00000000 


118 


(2) 
















CLISV^RUN 


=00000015 


118 


(2) 
















CLISV.SFT 


-0000U003 


118 


(2) 
















CLISV.SHOW 


=00100004 


118 


(2) 
















CLISV.VALSEC 


=00000016 


118 


(2) 
















CLISV WORD 


=O00OO00E 


118 


(2) 
















COMMOR INTERRUPT 


0C000406-R 


711 


(9) 


577 


(8) 












CON CI*H3CCI 


000000D0-R 


447 


(6) 


#-439 


(5) 












con'erRor X 


0000026A-R 


563 


(7) 


#-627 


(9) 


#-756 


(10) 


#-860 (10) 


#-983 


(10) 


CON"MBA " 


000001E2-R 


518 


(7) 


441 


(5) 












CONJJORMAL_X 


000003C4-R 


672 


(?) 


#-1091 


(10) 


#-515 


(6) 


#-558 (?) 


#-801 


(10) 










#-927 


(10) 












CON^RELEASE^X 


00000264-R 


560 


(7) 


#-1046 


(10) 


#-485 


(6) 


#-543 (?) 


#-652 


(9) 










#-781 


(10) 


#-895 


(10) 








CON_UBA 


00000272-R 


568 


(8) 


#-436 


(5) 


441 


(5) 








CON U8A RB 


00000531 ~R 


825 


(10) 


600 


(8) 












CONJJBA~RK 


000002E4-R 


604 


(9) 


600 


(8) 












CON UBA'RL 


000004 18«R 


721 


(10) 


600 


(8) 












CON~U8A~UDA 


00000626-R 


938 


(10) 


#-598 


(8) 












CONlX 


00000271-R 


565 


(7) 


#-584 


(8) 


#-587 


(8) 


#-590 (8) 


#-593 


(8) 


DIR.,. 


^FffHFf 


422 


(4) 


422 


(4) 












OSSCHANNEL 


OOOOOOOO-XR 






279 


(2) 


575 


(8) 


716 (9) 


820 


(10) 


DSSGA^SELECTED 


OOOOOOOO-XR 






282 


(2) 


#-573 


(8) 








DSSGL.CLIBASE 


OOOOOOOO-XR 






282 


(2) 


676 


(9) 








DSSK FRROR 


=00000002 


146 


(2) 
















DSSK'NORMAL 


=00000001 


146 


(2) 
















DSSK"SEVERE 


=00000004 


146 


(2) 
















DSSK SUBSYS 


=00000066 


146 


;2) 


146 


(2) 












DSSK'WARNING 


=00000000 


146 


(2) 
















DSSWfllTUS 


OOOOOOOO-XR 






279 
845 


(2) 
(10) 


612 


(9) 


733 (10) 


741 


(10) 

i 













N 7 


ZZ-ENSAA-7.0 Cross reference 






27-JUL-1984 Fiche 4 Frame 


CONFIG 


*** CONFIG Confiqu 


re load 


device 


27-JUL-1984 15:10:11 VAX 


iross reference 










23-JUL-1984 16:22:39 DMA 


OSS.ARITH 


=006600D0 


146 


(2) 






DSS ASBE 


=00660118 


H6 


(2) 






DSS^BADLINK 


=006600F0 


146 


(2) 






DSS BADTYPF 


=006600E8 


146 


(2) 






OSS'BIIC 


=00660120 


146 


(2) 






DSS^CHME 


=006600A8 


H6 


(2) 






DSS CHMK 


=006600E0 


146 


(2) 






DSSlDEVNAME 


=00660108 


146 


(2) 






DSS_ERROR 


=00660002 


146 


(2) 


#-443 


(5) #-564 (?) 


DSS FHWE 


=00660068 


146 


(2) 






DSS FRAGBUF 


=00660080 


H6 


(2) 






DSSJCBUSY 


=006600C8 


146 


(2) 






DSS KERR 


=006600C0 


146 


(2) 






DSSJHWE 


=00660060 


146 


(2) 






DSS ILLCHAR 


=00660C18 


146 


(2) 






DSS~ILLPAGCNT 


=00660078 


146 


(2) 






DStJLLUNIT 


=00660100 


146 


(2) 






DSSJNSFMEM 


=00660050 


146 


(2) 






DSS IPL2HI 


=006600B8 


146 


(2) 






DSS'IVADDR 


=00660040 


146 


(2) 






DSSllVVECT 


=00660038 


146 


(2) 






DSS KRNLSTK 


=00660090 


146 


(2) 






DS$~LOGU 


=00660070 


146 


(2) 






DSS.MCHK 


=00660088 


146 


(2) 






DSS MMOFF 


=00660058 


146 


(2) 






DSS~NEEDUNIT 


=006600F8 


146 


(2) 






l)SS~N0DE 


=00660128 


H6 


(2) 






DSS,N0PCS 


=00660110 


H6 


(2) 






DSS NORMAL 


=00660001 


146 


(2) 






DSS'NOSUPPORT 


=006600B1 


146 


(2) 






DSS"*NCTDON 


=00660030 


146 


(2) 




V 


DSS NOTJMP 


=00660080 


146 


(2) 


146 


(2) 


D".S~NUILSTR 


=00660010 


146 


(2) 






DSS~OVERF[_OW 


=00660008 


146 


(2) 






DSS"P0WER 


--00660098 


146 


(2) 






DSS^RCIGERR 


=00660020 


14to 


(2) 






DSS~SEVERE 


=00660004 


146 


<2) 






DSS"TRANSL 


=006600A0 


146 


(2) 






DSS"TRUNCATE 


=00660028 


146 


(2) 






DS$"UNEXPINT 


:006600D8 


146 


(2) 






DSS"VA$FULL 


-••00660048 


146 


(2) 






DSS'WARNING 


;00660000 


146 


(2) 


146 


(2) 


DSA$GL UNITS 


0000FE0C 






#-572 


(8) 


dspscoRfig adp 


00000000-XR 






279 


(2) 431 (5) 


DSPSCONFIG LOAD 


00C0007F-R 


425 


(5) 


370 


(3) 


DSRSALLOCATE PSEUDO rpb 


00000000-XR 






284 


(2> 961 (10) 


DSRSDEAUOCATE_PSEU50,.RP8 


00000000-XR 






285 


(2) 968 (10) 


DSVSSETLOAD 


00000000-XR 






230 


(2) #-685 (9) 


OS ERRSUP 


00000000-XR 






279 


(2) 442 (5) 542 


DT~RM03 


=00000015 


183 


(2) 






DT"RM05 


=00000017 


185 


(2) 






DT"RM80 


=00000016 


184 


(2) 






DT~RP04 


=00000010 


178 


(2) 


#-536 


(?) 


DT"RP05 


=00000011 


179 


(2) 






DT'RPC6 


•^OOOOOOM 


180 


(2) 






:>t"rpo7 


=00000022 


182 


'2> 






[>r"RP0>' kpt 


=00000021 


181 


f2) 







N7 Seguence 709 

•11 Macro V03-0T Page 32 

!:lSYS0.SYSMAINT]CONFIG. MAR; 52(10) 



(?) 



ZZ-ENSAA-7,0 Cross 


reference 






B 8 

27-JUL-1984 


fichfc 


4 frame B8 


Sequence 710 


CONFIG 


*** CONFIG Confiaure Load 


device 




27-JUL-1984 15:10 


:11 VAX- 


11 Macro V03-01 


Page 33 


Cross reference 












23-JUL-1984 16:22 


:39 DMA1 


jCSYSO.SYSMAiNTDCONFIG. MAR; 52(10) 


EXESALONONPAGEO 


00000000-XR 






278 


(2) 


344 


(3) 


705 


(9) 






EXESDEANONPAGED 


00000000-XR 
=00000004 
=00000004 






??8 


(2) 


361 


(3) 


#-562 


(7) 






F DRVCLR 


159 


(2) 


#-610 


(9) 














F^GETSTATUS 


272 


(2) 


#-842 


(10) 














F'NOP 


=00000000 

=00000004 

00000032 


174 


w 


#-524 


(7) 














F'STAT 


171 


(2) 


#-730 


(10) 














HP$A DEPENDENT 






#-343 


(3) 














HPSA"DEVIC6 


00000018 






#-1017 


(10) 


#-1067 


(10) 


#-475 


(6) 


#-476 


(6) 










#-555 


(7) 


#-635 


(9) 


640 


(9) 


#-666 


(9) 










#-764 


(10) 


769 


(10) 


#-795 


(10) 


#-879 


(10) 










#-908 


(10) 


#-958 


(10) 










HPSA DVA 


0000001 c 






#-1020 


(10) 


#-1068 


(10) 


#-476 


(6) 


#-513 


(6) 


" 








#-556 


(?) 


#-636 


(9) 


#-667 


(9) 


#-765 


(10) 










#-796 


(10) 


#-880 


(10) 


#-909 


(10) 






HPSA^LINK 


00000C20 






#-1022 


(10) 


#-1070 


(10) 


#-477 


(6) 


#-514 


(6) 










#-557 


(7) 


#-637 


(9) 


#-668 
#-911 


(9) 


#-766 


(10) 










#-797 


(10) 


#-882 


(10) 


(10) 






HP$B CI NODE 


00000034 






#-481 


(6) 














hp$bIdrTve 


OOOOOOOB 






#-1066 

#-665 

#-1041 


(10) 


#-474 


(6) 


#-512 


(6) 


#-553 


(?) 










(9) 


#-794 


(10) 


#-907 


(10) 






HPSB UDA50 BR 


00000036 






(10) 














HP$B"UDA50"BURST 


00000037 






#-1042 


(10) 














HPSKlCI LER 


00000041 






#-451 


(6) 














hp$k di5k len 


00000032 






#-486 


(6) 














HP$K UDA5D LEN 


00000038 






#-977 


(10) 














MP$L"CI_.FURC 


00000035 






#-480 


(6) 














HP$L"CI. INDEX 


0000003D 






#-478 


(6) 














HP$L CI MAINT ID 


00000039 






#-479 


(6) 














hp$l"udJ50 udAip 


00000032 






#-1019 


(10) 














HPSQlDEVICE 


00000000 






#-1013 
#-350 


(10) 


#-1015 


(10) 


#-1054 


(10) 


#-1056 


(10) 










(3) 


#-352 


(3) 


#-458 


(6) 


#-460 


(6) 










#-467 


(6) 


#-472 


(6) 


#-493 


(6) 


#-495 


(6) 










#-504 


(6) 


#-510 


(6) 


#-548 


(?) 


#-550 


(7) 










#-631 


(9) 


#-633 


(9) 


#-660 


(9) 


#-662 


(9) 










#-677 


(9) 


#-680 
#-791 


(9) 


#-760 


(10) 


#-762 


(10) 










#-789 


(10) 


(10) 


#-875 


(10) 


#-877 


(10) 










#-902 


(10) 


#-904 
#-1032 


(10) 










HP$T_DEVJCE 


0000000C 






1014 


(10) 


(10) 


1055 


(10) 


351 


(3) 










459 


(6) 


494 


(6) 


549 


(?) 


632 


(9) 










661 


(9) 


#-682 


(9) 


761 


(10) 


790 


(10) 










876 


(10) 


903 


(10) 










HP$T_TYPE 


00000026 






#-1029 
1071 


(10) 


#-1031 


(10) 


#-1036 
#-456 


(10) 


#-1038 
#-457 


(10) 










(10) 


355 


(3) 


(6) 


(6) 










#-491 


(6) 


#-492 


(6) 


#-545 


(7) 


#-546 


(?) 










#-638 


(9) 


#-639 
#-768 


(9) 


'•KB 


(9) 


#-671 


(9) 










#-767 


(10) 
(10) 


(10) 


#-799 


(10) 


#-800 


(10) 










#-883 


#-885 


(10) 


912 


(10) 






HP$W SIZE 


00000008 






#-1012 


(10) 


#-1053 


(10) 


#-349 


(3) 


#-455 


(6) 


™ 








#-490 
#-758 


(6) 


#-534 


(7) 


#-629 


(9) 


#-658 
#-901 
#-887 


(9) 










(10) 


#-787 


(10) 


#-8?4 


(10) 
(10> 


(10) 


HP$W VECTOR 


00000000-R 






#-1040 


(10) 


#-644 


(9) 


#-773 


(10) 


INJSrOAD. DEVICE 


341 


(3) 


















IN55PTABCE 


00000000-XR 






1043 
650 


(10) 


*ll 


<2> 


m 


(3) 


483 


(6) 










(9) 


673 


(9) 


(10) 


892 


(10) 


!OC$K iOSPACE 


00000000-XR 






277 


<V 


#-475 


(6) 


#-522 


(7) 


#-594 


(8) 


K tvpPs 


=00000013 


304 


(2) 


#-538 


(?) 














Clink 


mtffft* 


422 


(4) 


#-1021 


(10) 


#-1048 


(10) 


#-1069 


(10) 


429 


(5) 

i 
_.. ... J 



ZZ-ENSAA-7.0 Cross 


reference 






CONFIG 


*** CONFIG Configure load 


cross reference 








IJ.OCAL 


FFFFFFFO 


422 


(4) 


L_STATUS 


FFFFFFF8 


422 


(4) 


L TYPE 


FFFFFFFO 


422 


(4) 


M5CP$L MED1AJU 


=0000001 C 






RA80SKLEN 


00000032 






RB730$B^BR 


00000036 






RB730SK LEN 


00000037 






RB730 INTERRUPT 


0000051 8-R 


815 


do; 


RB.CS" 


00000000 






RB_CSJ1JE 


=00000040 






RB CS V TYP 


=0000001 A 






RB"*MP~ " 


00000010 






RB MP M MRK 


=00000001 






RbImpXrst 


=00000008 






RB MP M STS 


=00000002 






rk06$R Ten 


00000032 






RK611SB BR 


00000036 
00000037 






RK611$O.EN 






RK61UL.CSR 


00000032 






RK CS1 


=00000000 


152 


(2) 


RlCCSI.M.CERR 


=00008000 


155 


(2) 


RK CS1 M IE 


=00000040 


153 


(2) 


RK CS1~M~RDY 


=00000080 


154 


(2) 


RK„CS2" " 


=00000008 


156 


(2) 


RK.DS 


=0000000A 


157 


(2) 


RK OS V DDT 


=00000008 


158 


(2) 


rlOuKJen 


00000032 






RL02SK.LEN 


00000032 






RL1UB BR 


00000036 






RL1 1$K"LEN 


00000037 






RLlULlCSR 


00000032 






RL.CS 


=00000000 


162 


(2) 


RL CS M_CRDY 


=00000080 


163 


(2) 


RL^CS'MJE 


=00000040 


164 


(2) 


RL,DA 


=00000004 


165 


(2) 


RL„DA„M..MRK 


=00000001 


166 


(2) 


RL DA M RST 


=00000008 


168 


(2) 


RLlOAlM^STS 


=00000002 


167 


(2) 


RLJW 

RL MP V TYP 


=00000006 
=00000007 


169 
170 


(2) 
(2) 


rp04$KJen 


00000032 






RP„CS1 


=00000000 


173 


(2) 


RP DT 


=00000018 


175 


(2) 


RP DT_S„DTN 


=00000009 


177 


(2) 


RP DT V DTN 


=00000000 
=FFFFFFF0 


176 


(2) 


SA^ABS... 


422 


(4) 


SCB„BASE 
SCB IMAGE 


000Q00QQ-XR 
00000000-XR 






SIZT.. 


=00000002 


150 


(2) 


SSS NORMAL 


=00000001 






SYSlUNWlND 


00000000-XR 







device 



#-477 

#-654 

0-797 

957 

427 

576 

776 

428 

#-970 

#-1049 

#-891 

#-854 

580 

#-821 

#-821 

A-853 

#-840 

#-839 

#-839 

#-838 

#-655 

#-648 

#-622 

#-641 

#-608 

#-608 

#-610 

#-609 
#-613 
#-620 
#-784 
#-898 

n-m 

#-751 
#-770 
#-732 
#-743 
#-735 
#-738 
ft-72? 

#-726 
#-726 

#-749 
#-528 
#-524 
#-525 
#-526 
#-526 

27? 
277 

150 

#-686 

281 
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(6) 

(9) 

(10) 

(10) 

(5) 

(8) 

(10) 

(5) 

(10) 

(10) 

(10) 

(10) 

(8) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(9) 

(9) 

(9) 

(9) 

(9) 

(9) 

(9) 

(9) 

(9) 

(9) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 

(10) 
(10) 

(10) 

(?) 
(?) 
(?) 
(?) 

(7) 

(2) 
(2) 
(2) 
(9) 

(2) 



27-JUL-1984 
23-JUL-1984 

#-557 (?) 
#-668 (9) 
#-881 (10) 



Ffche 4 Frame C8 
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#-643 
#-886 



(9) 
(10) 



#-573 
#-766 
#-897 



647 
890 



(8) 

(10) 

(10) 



(9) 
(10) 



#-637 
#-783 
#-910 



ft-772 



(9) 

(10) 

(10) 



(10) 



#-844 
#-843 



(10) 
(10) 



#-846 
#-847 



(10) 
(10) 



#-847 



(10) 



#-611 
#-614 



(9) #-614 (9) 
(9) 



#-735 
#-743 



(10) #-739 (10) #-742 



(10) 



(10) 



ZZ-ENSAA-7.0 

CONFIG 

Cross reference 

T TYPES 

uCa response 

UDjNlT 



Cross reference 



*** CONFJG Configure load device 



D 8 

27-JUL-1984 



00000007-R 

00Q00000-XR 

00000000-XR 



291 



(2) 



304 
283 
283 



(2) 
(2) 
(2) 



7-JUL-1984 
3-JUL-1984 

tf-540 
969 
965 



Frame D8 Sequence 712 
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F iche 4 
15:10:11 



(7) 

(10) 

(10) 



ZZ-ENSAA-7,0 

CONFIG 

cross reference 



Cross reference 



MACRO 



SIZE 



SBTODEf 


1 


SDEF 


1 


SDEFIN1 


1 


SDS CHCDEF 


1 


$DS~CH1DEF 


1 


SDSlCI DEF 


2 


$DS DISK DEF 


1 


SOS DSADfF 


5 


$DS~DSDEF 


2 


$DS~HPODEF 


2 


$DS R80 DEF 


1 


SDS~RA80 DEF 


1 


$DS RB730 DEF 


1 


SDS~RK06 BEF 


1 


SDS~RK61T DEF 


1 


$DS~RL01 JEF 


1 


SDSIRL02.DEF 


1 


$DS RL11 DEF 


1 


$DS~RP04 DEF 


1 


$DS~UDA50 DEF 


1 


SDS WAITU3.S 


1 


SEQD 


1 


SEQULS1 


1 


SEQULST 


1 


SGBLINI 


? 


SMSCPDEF 


IE 


SOFFSET 


2 


SOFFST1 


1 


SPRDEF 


4 


$PUSHADR 


1 


SSSDEF 


21 


SVIELD 


1 
i 


SVIELD1 


1 


CASE 


1 


CLIDEF 


3 


ERRSUP S 


1 


MODNAM" 


1 



E 8 

27-JUL-1984 



Phase 

Initialisation 

Command processing 



*** CONFIG Configure load device 



+ — .-• .-- — — - ■— + 

! Macros Cross Reference I 
+ — ————.———-——+ 

DEFINITION REFERENCES... 

-120 <!2> 120 (2) 

150 (2) 

119 (2) 119 (2> 120 

129 (2) 130 

134 (2) 135 

139 (2) 145 

149 (2) 149 (2) 

150 (2) 150 (2) 

138 (2) 138 (2) 

139 (2) 139 (2) 

145 (2) 145 (2) 

146 (2) 146 (2) 

127 (2) 127 (2) 

131 (2) 131 (2) 
137 (2) 137 (2) 
130 (2) 130 (2) 

133 (2) 133 (2) 
129 (2) 129 (2) 

135 (2) 135 (2) 

132 (2) 132 (2) 

134 (2) 134 (2) 

128 (2) 128 (2) 

136 (2) 136 (2) 

612 (9) 612 (9) 733 

150 (2) 146 (2) 149 

149 (2) 146 (2) 149 

146 (2) 146 (2) 149 

146 (2) 149 

121 (2) 121 (2) 

418 (4) 418 (4) 

422 (4) 422 (4) 

119 (2) 119 (2) 

442 (5) 442 (5) 542 

845 (10) 

147 (2) 147 (2) 

150 (2) 

150 (2) 150 (2) 

440 (5) 440 (5) 599 

118 (2) 118 (2) 

442 (5) 442 (5) 542 

290 (2) 290 (2) 

+—• .- , ,-™.+ 

! Performance indicators ! 

+„ — —•••„- «™»™, + 



Fiche 4 Frame E8 



Page faults CPU Jme 

29 06T00T00.10 

135 00:00:00.72 



Elapsed Time 

00:00:00.62 
00:00:02.25 
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(2) 


121 


(2) 


127 


(2) 


128 


(2) 


(2) 


131 


(2) 


132 


(2) 


133 


(2) 


(2) 


136 


(2) 


137 


(2) 


138 


(2) 


(2) 


147 


(2) 


190 


(2) 







(10) 


741 


(10) 


(2) 






(2) 






(2) 






(2) 


150 


(2) 



845 



(10) 



(7) 

(8) 
(7) 



612 



(9) 



733 



(10) 



741 



(10) 



_ ...J 
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CONFIG *** CONFIG Configure load device 27-JUL-1984 15:10:11 VAX-11 Macro V03-0T Page 37 

VAX-11 Macro Run Statistics tonngure 23-JUL-1984 16:22:39 DMA1 iCSYS0.SYSMAINT3C0NFIG.MAR;52<10> 

Pass 1 1165 00:00:20.97 00:00:34.46 

Symbol table sort 7 00:00:02.04 00:00:02.51 

Pass 2 323 00:00:04.10 00:00:05.46 

Symbol table output 46 00:00:00.27 00:00:00.29 

Psect synopsis output 7 00:00:00.03 00:00:00.03 

Cross-reference output 143 00:00:01.22 00:00:01.60 

Assembler run totals 1859 00:00:29.46 00:00:47.23 

The working set limit was 1000 pages. 

112476 bytes (220 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1289 non-local and 54 local symbols. 

1094 source lines were read in Pass 1, producing object records in Pass 2. 

146 pages of virtual memory were used to define 51 macros. 

+ -—.—..- — .—.— ... + 

! Macro library statistics ! 
+ .. -..— __-™.- + 

Macro library name Macros defined 

DRB1:C0S.W0RK3DIAG.MLB;955 18 

DRB1:CDS. WORLDS. MLB;218 3 

SYS$SYSR00T:[SYSL1B]LIB.MLB:1 3 

DMA1 :CSYS0.SYSMAJNT]DS.MLB;218 

DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 

SY5SSYSR00T:[SYSLIB]LIB.MLB;1 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 11 

TOTALS (all libraries) 35 

1351 GETS were required to define 35 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LI ST-CDS.L I SJ/CROSS/ENABLE = (DEBUG, TRACE) C0NFIG/UPDA=(C0NFIG.UPD,C0NFIG.ENH)+SYS$UBRARY:L18/LIBRARY+DMA1 : CSYSO,SYSMA 



ZZ-ENSAA-7.0 

CONSOLE 

T able of contents 

H3 

191 
207 
368 
446 
495 
564 
674 
7i5 
833 
880 
1075 



*** CONSOLE Console I/O handler 

*** CONSOLE Console 1/0 handler 



r ft 

27-JUL-1984 Fiche 4 Frame 68 

27-JUL-1984 15:11:00 VAX-11 Macro 



Sequence 715 
V03-01 



Page 



Libraries, Equated Symbols, Macros 

Work Psect Declarations 

Data Psect Declarations ; 

VRSetWidth Routine - Set terminal width 

VRShowWidth Routine - Show terminal width ; 

KB Poll Routine - Keyboard ready bit check 

Rlnput Routine - Flag driven terminal input 

RType Routine - Retype input line ( ,A R' function) 

Out Routines - Flag driven terminal output 

WriteVBtk Routine - Console write driver 

ReadVBlk Routine - Console read driver 

SIZE TERM Routine to size the console terminal 



[13] 
[13J 



[123 
C12D 



ZZ-ENSAA-7,0 

CONSOLE 
07-23 



*** CONSOLE Console 



*** 



I/O handler 

CONSOLE Console I/O handler 



.TITLE 
.1DENT 

.NoShow 
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0000 


1 


0000 


2 


0000 


3 


0000 


4 


0000 


5 


0000 


6 


0000 


7 


0000 


8 


0000 


9 


0000 


10 


0000 


11 


0000 


12 


0000 


13 


0000 


1'l 


cooo 


15 


0000 


16 


0000 


17 


0000 


18 


0000 


19 


0000 


20 


0000 


21 


0000 


22 


0000 


23 



CONSOLE *** CONSOLE Console I/O handler 

/07-23/ 

Conditionals ; 



C16D 



COPYRIGHT (C) 1977, 1983 „ t 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC 
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CONSOLE 

07-23 



**+ CONSOLE Console I/O handler 

*** CONSOLE Console 1/0 handler 



717 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 
oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

8888 

oooo 

22°o 
oooo 

oooo 

oooo 



25 

9 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

*2 
63 

64 

65 

66 
67 

68 
69 
10 
71 

72 
73 

74 

75 

76 

17 

78 

79 

80 

81 



FACILITY: 
ABSTRACT: 
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VAX DIAGNOSTIC SUPERVISOR, 



This routine contains the interface with the LSI-11 console. 
It provides the routines necessary to read and write characters 
and strings on the operators console. It contains the limited 
functionality to interface with QJO. 



ENVIRONMENT: 



Operates as part of the Supervisor only in stand-alone. 
Portions hereof must operate in KERNEL mode. 



AUTHOR: 

KEN CHAPMAN 
MODIFICATIONS: 

01 



10-NOV-77 



VERSION OK 



NICK HOWGATE 30-DEC-77 VERSION 02. 
CMKSTCONSOLE » TURN OFF ALL OUTPUT IF APT REQUESTS 
NO REPORT (DSA$GL FLAGS) =DSA$V_NORPT 



02 

03 

04 

05 
06 
07 

08 
09 



Roger Riggs 

:8i 



25-JUL-78 
CMK$TCON$0lE looks also at DS$V_CTRLO in D$$GL_FLAGS 
MAKE A WORK. 

Made unsolicited input is echoed as bells instead of the 
characters typed. 



NICK HOWGATE 5-FEB-79 
CONVERT TABS TO SPACES 



(ESSAA-5,00) 



10 



11 



Implement P4 buffer in WRITEBLK 

Fix I0$_READPR0MPT to always prompt on new line 

Defer echo of A C until KB_CHECK but suppress rest of output 
until A C is serviced 

MARION BAGGETT NOV 12,1979 

ADD THE CONTROL S AND CONTROL Q FUNCTION FOR STARTING AND 

STOPPING THE PRINTOUT ON THE TERMINAL. 

Roger Riggs, 14-Jan-1980, Version 5.2 
Added checking of IO$M_CANCTRLO on write to terminal. 
Used by exception to make sure exceptions always print. 
Also fixed RINPUT to ignore character if bit 15 (ERR) is 
Set in the data register. 

Dave Butenhof, 17-ocM980, version 6.1 

Cause re-type of input line ( IA R') after asynchronous output 
occurs, in the fashion of VMS. Also, remove hyphen line 
continuation code, since it doesn't belong here. 

To fully support A C 'disable 1 in tight time-critical code, 
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82 
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83 
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84 
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85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


cooo 


96 


0000 


97 


0000 


98 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0000 


103 


0000 


104 


0000 


105 


0000 


106 


0000 


107 


0000 


108 


0000 


109 


0000 


110 


0000 


111 


0000 


112 


0000 


113 


0000 


114 


0000 


115 


0000 


116 


0000 


117 


0000 


118 


0000 


119 


0000 


120 


0000 


121 


0000 


122 


0000 


123 


0000 


124 


0000 


125 


0000 


126 


0000 


127 


0000 


128 


0000 


129 


0000 


130 


0000 


131 


0000 


132 


0000 


133 


0000 


134 


0000 


135 


0000 


136 


0000 


137 


0000 


138 



12 



13 

14 

15 

16 
17 



18 
19 

20 
21 
22 

23 



control characters. 
RINPUT instead of last. 
C and A echo; 



cut down on instruction stream for 

Specifically/ test for A C first in 

Also, make new routine OUT CNTRL to output 

without all the overhead of doinq extra KB^POLL each 

character (small messages), or cnecking for tabs, etc. 

Dave Butenhof, 17-mar- 1981, version 6.3 
Add VRSETWJDTH routine, and hooks for SET WIDTH command. 
This allows users (FS in particular) to avoid ^destroying 
80 column printer paper with output from DS. Also add 
VRSH0WWIDTH routine. 

- Jack Stansbury, 22-0ct-1981, Version 6.- 
Changed SEP Psect to CODE, DATA, and WORK. 

Also added .LIBRARY statements for $DS and SDIAG. 

- Jack Stansbury, 26-0ct-1981, Version 6.- 
Fixed more truncation errors,.., 

- Jack Stansbury, 25-Jan-1982, Version 6.6 

Changed the WIDTH variable to make it global, so that QA 
access it. 

- jack Stansbury, 23-Mar-1982, Version 6.? 
Added typecoding to the output messages. 

- Richard Brown, 8-June-82, Version 6.8 
Addition of support for specification of 
terminators other than carriaqe-return. We will 
now be functionally equivalent to VMS QIO calls 

with respect to the optional terminator specification 
(argument P4) for the terminal driver. 



can 



Bob Bergaz2i 6-Aug-82 
Added code to change a A Z 



into 



Version 6,8 
an EXIT command 



Jack Stansbury, 26~0ct-1982, Version 6.9 
Added code to echo the *C character only if the 
DS$V Ctrl_C No Echo bit is clear. If it is set, 
then~ A C*s""wTu not be echoed. 

Bob Bergazzi 5-March-1983 Version 6.11 
Added code to make SET WIDTH work online. 

Bob Bergazzi 8-Apr-1983 Version 6.11 
Removed incorrectly implemented edit 18. 

Domenic Andella 25-Apr-83 Version 6*11 
Added code in CMKSTCONSOL^ routine to activate 
11/XXX console terminal line. 

Richard Brown 22-June-83 Version 6.12 
Added routine SIZEJERM, which determines 
console terminal type. 

Also removed code in READVBLK that treated a 
question mark as a terminator, since many 
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*** CONSOLE 



Console I/O handler 

*** CONSOLE Console I/O handler 



0000 
0000 
0000 



139 
HO 
141 
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terminal IDs contain question marks, and we 
couldn't figure why it was a terminator anyway. 



J 
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145 , 


INCLUDE FILES: 
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146 ( 
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.Library 
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.LIBRARY 
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.LIBRARY 
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0000 


152 ( 








0000 


153 , 


• MACROS: 
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154 , 








0000 
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0000 


156 


$DS DSADEF 






cooo 


157 


CLIDEF 






0000 


158 


WROEt 






0000 


159 


5QI0DEF 






0000 


160 


CMKDEF 






0000 


161 


DSFDEF 






0000 


162 


$DS TypeDef 




0000 


163 


CRDl5ef 






0000 


164 


STTOEF 






0000 


165 








0000 


166 








0000 


167 


; EQUATED SYMBOLS 






0000 


168 








0000 


169 






00000080 


0000 


170 


PARITY = 


15)7 


00000020 


0000 


171 


LOWCASE = 


15)5 


00000003 


0000 


172 


CNTR'.C = 


3 


00000007 


0000 


173 


BELL 


7 


00000008 


0000 


174 


BS 


8 


00000009 


0000 


175 


TAB 


9 


0000000A 


0000 


176 


LF = 


10 


00000008 


0000 


177 


VT = 


11 


oooooooc 


0000 


178 


FF = 


12 


0000000D 


0000 


179 


CR 


13 


0O000O0F 


0000 


180 


CNTRLO = 


15 


00000011 


0000 


181 


CNTRLQ = 


17 


00000012 


0000 


182 


CNTRLR = 


18 


00000013 


0000 


183 


CNTRLS = 


19 


00000015 


0000 


184 


CNTRLU = 


21 


00000020 


0000 


185 


SPACE = 


32 


0000002D 


0000 


186 


HYPHEN = 


45 


0000003F 


0000 


187 


QUES T N = 


63 


0000005C 


0000 


188 


BSLASH = 


92 


0000007F 


0000 


189 


DELETE = 


127 



/Sys$Library:Lib/ 

/$DS/ 

/SDIAG/ 



[16] 
[13] 
[13J 



CLI data structure 



CRD Bit definitions 
Terminal characteristics 



C23] 



[12] 



[16] 
[19] 



[17] 



[17] 
[17] 
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*•* CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-01 f a 2 e < * 
Work Psect Declarations ; [13] 23-JUL-1984 16:22:A6 DMA1 iCSYS0.SYSMAINTKONSOLE.MAR;10<1 ) 



0000 

00000000 
0000 
0000 
0000 
0000 

00 0000 
0001 

00 0001 
1002 

50 U002 
0003 

00 0003 

0004 

00000000 0004 



.SUBTITLE Work Psect Declarations 
.PSECT Work, NoExe, NoShr, Wrt, Long 



OWN STORAGE 



191 

192 

193 

194 

195 

196 

197 COLUMN: .BYTE 

198 

199 LASTCHAR: .BYTE 

200 

201 DS$GB WIDTH:: .BYTE 80 

202 

203 CONSFLG: .BYTE 

204 

205 EVENT FLAGS: .LONG 



[13] 
C13J 



COLUMN COUNTER 

Last character output to console 
Initial width is 80 [15] 
CONTROL S AND CONTROL Q FLAG 
Receives event flags [23] 



ZZ-ENSAA-7.0 

CONSOLE 
07-23 



Data Psect 



OA OD A3 5E OA OD 

OA OD 55 5E 

52 5E 

OA OD 4F 5E 

OA OD 



20 74 73 7> 6D 
74 20 72 65 74 
65 6C 20 64 6E 

21 33 33 31 20 



69 77 20 6C 61 
63 20 42 5A 21 
21 53 25 21 72 



20 68 
61 65 
61 20 
6E 61 



6E 69 

20 73 
65 7k 



7k 64 
72 67 
30 20 
68 74 



6D 72 
69 20 
63 61 



41 



42 



Declarations ; 
*** CONSOLE 
Data Psect 

0008 

00000000 

0000 

0000 

00' 0000 

06 0000 

0007 

00 7 

00' OC )7 

04 OC S7 

OOuC 

OOOC 

00* OOOC 

02 OOOC 

COOP 

OOOF 

00 f OOOF 

04 OOOF 

0014 

0014 

00' 0014 

02 0014 
0017 
0017 

00' 0017 

62 0023 

68 002F 

73 003B 

2f 0047 

30 0017 

0048 

0048 

00' 0048 

64 0054 

68 C060 

2F 006C 

24 0048 

006D 

006D 

006D 

006D 

006D 

006D 

006D 

006D 

00' 006D 

03 006D 
40 0071 

0072 
00' 0072 
03 0072 
40 0076 

0077 
C0 % 0077 
03 0077 
40 0078 

007C 



H 8 
[13] 27-JUL-1984 Fiche 4 Frame N8 Sequence 722 

Console J/0 handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-01 Pat 
Declarations ; [13] 23-JUL-1984 16:22:46 DMA1 :CSYS0,SYSMAIMTJCOf . \E.MAI 



69 57 

20 65 

6E 61 

20 73 



65 54 
68 74 
72 61 



2F 18 
?f 18 



43 2f IB 



.SUBTITLE Data Psect Declarations 
.PSECT Data, NoExe, Shr, NcWrt, Long 



207 
208 
209 

210 T CNTRLC: 

211 .ASCJC <CRXLF> ,A C , <CR><LF> 



ie 7 
!;10(1) 

[13] 
[13] 



212 

213 T CNTRLU: 

214 .ASCJC 

215 

216 T_CN T RLR: 

217 , ASCJC 

218 

219 T CNTRLO: 

220 " .ASCJC 



t *ii* 



U'<CRXLF> 



I AD • 



» Ani 



, <CR><LF> 



221 

222 T^CRLF: 

223 .ASCJC <CR><LF> 

224 

225 T ..WIDTH: 4 ,, tt 

226 .ASCJC "Width must be greater than and less than 133!/'* 



[12] 
[12] 



227 

228 T SHOW^WJDTH: 

229 .ASCJC "Terminal width is !ZB character!XS!/ M 



[12] 
[12] 



230 
231 
232 
233 
234 
235 
236 
237 
238 

239 

240 
241 

242 
243 
244 

245 

246 



; TA8L E OF VJDEO TERMINAL TYPES 



VIDEO TYPES: 



[23] 
[23] 
C23] 



T_VT50_A: 



.ASCJC <27>*7A' 



T VT50 B: 



.BYTE TT$_VT5X 



.ASCJC .27>'7B' 



"LVT50..C: 



.BYTE TTS VT5X 



.ASCI C <27>'VC 



T^VT55_E: 



,9>TE TT$_VT5X 



B 9 
ZZ-ENSAA-7.0 Data Psect Declarations ; [13] 27-JUL-1984 ._ F iche 4 Fra/je ?? ^ s £9 uence 72l n 

CONSOLE *** CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-01 Pa 9* ,§ 

07-23 Data Psect Declarations ; [13] 23-JUL-1984 16:22:46 DMA1 :[SYS0.SYSMAJNT.lCONSOLE.MAft;1O(1 



45 2F 16 00' 007C 247 .ASCJC <27> M /E" 
03 007C 

41 0080 248 .BYTE TT$_VT55 

0081 249 T VT50.H: 

48 2F 18 00' 0081 250 .ASCJC <27> li /H 1i 
03 0081 

40 0085 251 .BYTE TT$ VT5X 

0086 252 T,VT50,J: 

4A 2F 18 00' 0086 253 .ASCJC <27>'VJ" 
03 0086 

40 008A 254 .BYTE T7S..VT5X 

008B 255 T„VT52_K: 

4B 2F 1B 00' 008B 256 .ASCJC <27> ,, /K" 
03 0088 

40 C08f 257 .BYTE TTS^VT52 

0090 258 T VT52_L: 

4C 2F 1B 00' 0090 259 .ASCJC <27>"/L" 
03 0090 

40 0094 260 .8YTE TT$„VT52 

0095 261 T VT52 M: 

4D 2F 18 00' 0095 262 " " .ASCJC <27>"/M M 
03 0095 

40 0099 263 .BYTE TT$_VT52 

009A 264 T VT100A: 

5A 2f 18 00' 009A 265 m .ASCJC <27>"/Z" 
03 009A 

60 009E 266 .BYTE TTS^VTIOO 

009F 267 ; T_VT61 : 

009F 268 ; .ASCJC <27>a/'a 

009F 269 ; .8YTE TT$„VT61 

009F 270 ;r„VT71: 

009f 271 ; .ASCJC <27><47><126> 

009F 272 I .BYTE TTS.VT71 

009F 273 T VT100: 

65 30 ^B 31 3F 58 18 00 1 009F 274 " .ASCJC <27> M [?1 ;0"<99> 

07 009F 

60 O0A7 275 .BYTE TTS.VT100 

00A8 276 T VT1008: 

63 31 38 31 3F 58 1R UO' 00A8 277 .ASCJC <27> M [?1 ;1 M <99> 

07 00A8 

60 OOBO 278 .BYTE TT$_VT100 

0081 279 T,VT100C: 

63 32 38 31 3F 58 18 00' 0081 280 .ASCJC <27> M [?1;2"<99> 

07 0081 

60 0089 281 .BYTE TTS_VT100 

OOBA 282 T VT100D: 

63 33 38 31 3F 58 18 00' 008A 283 .ASCJC <27>"[?1;3 M '99> 

07 OOBA 

60 00C2 284 .BYTE TT$_VT100 

0QC3 285 T^VTIOOE: 

63 34 3B 31 3F 5B 18 00* Q0C3 286 .ASCJC <27> M [?1;4"<99> 

07 00C3 

60 00C8 287 ,8YTE TTS^VTIOO 

OOCC 288 T^VTIOOF : 

63 35 3B 31 3F 58 1B 00' OOCC 289 .ASCJC <27> M [?1 ;5 M <99> 

07 OOCC 

60 00D4 290 .BYTE TT$_VT100 
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Data Psect Declarations ; 

*** CONSOLE 
Data Psect 



C 9 
[13J 27-JUL-1984 Fiche 4 Frame C9 Sequence 724 

Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-01 Page^ 9 

Declarations ; [13] 23-JUL-1984 16:22:46 DMA1:CSYS0.SYSMAINT]C0NS0LE,MAR;10<1> 



63 36 3Q 31 3F 58 1B 00* 

07 
60 

63 37 3B 31 3F 5B 18 00 1 

07 
60 

37 38 32 3B 31 38 32 36 3F 5B 18 00' 

63 38 38 
0E 
00 

33 38 32 38 31 38 32 35 3F 5B 18 00' 
63 38 3B 37 3B 34 38 

12 
00 



FFFFFFFF 



00D5 

O0D5 

00D5 

00DD 

00DE 

tODE 

OODE 

00E6 

00E7 

O0E7 

00F3 

00E7 

00F6 

00F7 

C0F7 

0103 

OOF 7 

010A 

0108 

0108 

0108 

01 08 

O10B 

010B 

0108 

0108 

01 OB 

0108 

0108 

0108 

01 OB 

0108 

0108 

O10B 

0108 

0108 

010B 

0108 

0108 

010B 

0108 

0108 

0108 

0108 

0108 

0108 

0108 

0108 

01 OB 

0108 

0108 

0108 

0108 

010F 

010F 

O10F 

010F 



291 T VT100G: 

292 " .ASCIC 

293 .BYTE 

294 T VT100H: 

295 .ASCJC 

296 .BYTE 
■?97 T,VT220: 

298 .ASCJC 



<27> ,, [?1;6 ,, <99> 
TT$J/T100 

<27>'T?1;7 M <99> 

TT$_VT100 

<27>'T?62;1;2;7;8 ,, <99> 



^99 .BYTE TT$JJNKNOWN 

300 T.VT240: 

301 .ASCJC <27> M [?52;1;2;3;4;7;8 M <99> 



302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 



TTS.UNKNOWN 



.BYTE 

T VT132: 

.ASCJC 

.BYTE 
T VT132A: 

.ASCIC 

.BYTE 
T_VT1328: 

.ASCJC 

.BYTE 
T.VT132C: 

.ASCIC 

.BYTE 
T VT132D: 

.ASCJC 

.BYTE 
T_VT132E: 

.ASCJC 

.BYTE 
TJ/T132F: 

.ASCIC 

.BYTE 
T.VT132G: 

.ASCJC 

.BYTE 
T..VT61A: 

.ASCIC 

.BYTE 
T VT61B: 

.ASCJC 

.BYTE 
T_VT61C: 

.ASCJC 
„* . .BYTE 

336 fND^VJDEO^TYPES: 

337 .CONG -1 
338 
339 

340 ; TABLE OF HARDCOPY TERMINAL TYPES 
341 



<27> ,, [?4:0"<99> 
TTS..VT132 

<27> M C?4;1 lf <99> 

TTS..VT132 

<27> M [?4:2 M <99> 
TT$^VT13^ 

<27> 1, [?4:3 ,, <99> 

TT$„VT13£ 

<27>"[?4-4 u <99> 
TTS..VT132 

<27> M [?4-5 M <99> 

TT$_VT13!> 

<27> M [?4-6 M <99> 
TT$„VT13& 

<27>"[?4'7 M <99> 
TT$_VT13£ 

<27><47><97> 

TT$^VT61 

<27><47><98> 

TT$^VT61 

<27><47><99> 

TT$,VT61 



[23] 
C23] 
[23] 
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010F 342 

010F 343 HARDCOPY TYPES: 

010F 344 

010F 345 T LA12: 

63 35 31 3F 58 16 00' 010F 346 .ASCIC <27>"C?15 M <99> 

06 010F 

24 0116 347 .BYTE TTS..LA12 
0117 348 T.LA100: 

63 30 31 3F 5B 18 00' 0117 349 .ASCIC <27> M [?10"<99> 

06 0117 

25 011E 350 .BYTE TT$_LA100 
01 1 F 351 T LA120: 

63 32 3F 58 1B 00' 01 1 F 352 " .ASCJC <27> M [?2'*<99> 

05 011F 

21 C125 353 .BYTE TT$_LA120 
0126 354 T LA34: 

63 30 38 33 3F 58 18 00* 0126 355 , ASCJC <27>"[?3;0 M <99> 

07 0126 

22 012E 356 .BYTE TU_LA34 
012F 357 T LA34A: 

63 31 38 33 3F 5B 18 00' 012F 358 " .ASCJC <27> ,, C?3; 1 M <99> 

07 012F 

22 0137 359 .BYTE TT$ LA34 

0138 360 END_HARDCOPY TYPES?" 

f^ffFFF 0138 361 .LONG -1 

01 3C 362 

01 3C 363 T LA36: ; LA36 has no response sequence. C23] 

20 013C 364 - .BYTE TT$ LA36 

01 3D 365 ; 

013D 366 
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VRSetWidth Routine - Set terminal width 27-JUL-1984 Fiche 4 Frame E9 Seguence 726 

*** CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-0T Page 11 
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013D 


368 


00000000 


369 


0000 


370 


0000 


371 


0000 


372 


0000 


373 


0000 


374 


0000 


375 


0000 


376 


0000 


377 


0000 


378 


0000 


379 


0000 


380 


0000 


381 


cooo 


382 


0000 


383 


0000 


384 


0000 


385 


0000 


386 


0000 


387 


0000 


388 


0000 


389 


0000 


390 


0000 


391 


0000 


392 


0000 


393 


0000 


394 


0000 


395 


0000 


396 


0000 


397 


cooo 


398 


0000 


399 


0000 


400 


0000 


401 


0000 


402 


0000 


403 


0000 


404 


0000 


405 


0000 


406 


0000 


407 


0000 


408 


0000 


409 


0000 


410 


0000 


411 


0000 


412 



.S8TTL VRSetWidth Routine - Set terminal width 

.PSECT Code, Exe, Shr, NoWrt, Long ; 

VRSETWIDTH 

Functional description: 

This is a CLI command routine. It loads the global DS$GB_WIDTH with 
a value specified to CLI. If the width is out of range, an error 
message is typed and it returns a failure status code (though CLI 
does not currently recognize return status). 

In online mode, a 010 SENSE mode operation is done in order to get 
the terminal's characteristics, and then a SET is done with the width 
parameter changed. 

Calling sequence: 

JS8 VRSETWIDTH 
Input Parameters: 

none 
Implicit Inputs: 

R2 points to CLI data table 
Output parameters: 

none 
Implicit outputs: 

none 
Side effects: 

Changes value of DS$GB_WIDTH variable 
Completion codes: 



failure (value out of range) 
success 



[12] 
[133 
[12] 
[123 
[123 
[12] 
[12] 
C15J 
[12] 
[123 
[12] 
[12] 
[20] 
[20] 
[20] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
[123 
[12] 
[15] 
[12] 
[12] 
[12] 
[12] 
[12] 
[12] 
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VRSetWidth Routine - Set terminal width 27-JUL-1984 Fiche 4 Frame F? Seguence 

*** CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-0? p ?8 e ^!?, 
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50 

00000084 8F 

00000002 , Er 
50 



1C A2 
70 
50 
67 
50 
01 



50 



7E 
6E 



02 AE 00000002'EF 
50 6E 



8E 



50 





0000 


414 


DO 


0000 


415 


15 


0004 


416 


D1 


0006 


417 


14 


000D 


418 


90 


000F 


419 


DO 


0016 


420 




0019 


421 




0021 


422 


7C 


0021 


423 


7F 


0023 


424 




0026 


425 




0026 


426 




0026 


427 




C026 


428 




0047 


429 


98 


0047 


430 


7F 


004F 


431 




0052 
0052 


432 




433 




0052 


434 




0052 


435 


7( 


0073 


436 


05 


0075 


437 




0076 


438 




0076 


439 




0076 


440 




0076 


441 




0076 


442 


D4 


0089 


443 


05 


0088 


444 



VRSE 



TWIDTH:: 
MOVL 
BLEQ 
CMPL 
BGTR 
MOVB 
MOVL 



CL1$L_DATA(R2>, RO 

10$ 

RO, #132 

10$ 

RO, DS$G8_WJDTH 

#1, RO 



BrJfJIotJJser 5$ 



5$: 



ClrO 

MovAQ 

$QJOW w S 



MovZ8W 

MovAQ 

$QJOW^S 



ClrO 
RS8 



-(SP) 
(SP), RO 

OoSSGW TTOUT, - 
*IO$_SEflSEMODE, - 
P1 = (RO) 

DS$GB_W1DTH, 2(SP) 
(SP), RO 

L*DS$GW TTOUT, - 
#10$.,SETMODE, - 
PI - (RO) 
(SP) + 



10$: $Print - 



CLRL 
RS8 



RO 



*DS$K„Type,.Com/nand Err 
tfDSSK PrintF, - 

TJdidth 



-& 



Get width 

Branch if value too small 
Also branch if 
value too large 
Store the value 
Return success 
Thats all for standalone 



[123 
[123 
[123 
[123 
[123 
[153 
[123 
[203 



Space for characteristics buffer [203 
on stack [203 

First, read the terminal characteristics 
Channel number [203 

Function [203 

Address of characteristics buffer [203 



Set the desired page width 

Buffer on the stack 

no efn 

Channel number 

Function 

Address of characteristics buffer 

Release the buffer on the stack 



Print with a typecode 

; . .. the typecode 
... use PrintF to print it 
... the message 
Return failure 



C203 

C2o: 

C203 

1201 
[203 
[203 
[203 
[123 

[163 
[163 
C16] 
[163 
C123 
[123 
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VRShowWidth Routine - Show terminal widt 27-JUL-1984 tf F1che 4 Frame 6? Seguence 728 

*** CONSOLE Console 1/0 handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-01 Pa i e .Ah 
VRShowWidth Routine - Show terminal widt 23-JUL-1984 16:22:46 DMA1 :[SYS0.SYSMAJNT3CONSOLE.MAR;10(1 ) 



008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
C08C 
008C 

008 r. 

008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 
008C 



446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 

458 
459 
460 
461 
462 
463 
464 
4'5 
466 
467 

468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 



.S8TTL VRShowWidth Routine - Show terminal width ; 

++ 

VRSHOWWIDTH 

Functional description: 

This is a CLJ command routine. It prints the current DS$GB_WJDTH 
Calling sequence: 

JS8 VRSHOWWJDTH 

Input Parameters: 

none 
Implicit Inputs: 

none 
Output parameters: 

none 
Implicit outputs: 

none 
Side effects: 

none 
Completion codes; 

1 success 



[123 

C12] 
[123 
[123 
C123 
£123 
C123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 



ZZ-ENSAA-7.0 

CONSOLE 

17-23 



VRShowWidth Routine - Show terminal 

*** CONSOLE Console 
VRShowWidth Routine 



H 9 
widt 27-JUL-1984 Fiche 4 Frame H9 Seguence 729 
I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-OT Page 14 
- Show terminal widt 23-JUL-1984 16:22:46 DMA1 :[SYS0.SYSMAINT]C0NS0LE.MAR;10O) 



50 00000002' EF 



50 01 



008C 

9A 008C 

0093 

0093 

0093 

0093 

0093 

00A8 

DO 00A8 

05 00AB 



484 
485 
486 
487 
488 
489 
490 
491 
492 
493 



VRSHOWWIDTH:: 
MovZ8L 
SPrint 



M0VL 
RS8 



L A DS$G8_Width, RQ 

#DS$K Type. Command Out 
#DS$K PrinfF, - 
T Show Width, - 
RO 

01, RO 



Put the current width in RO 
Print with a typecode 

; ... the typecode number 
... the type of print routine 
. .. the format message 
♦ .. and the width 

Set success 



[12] 
[16] 
[16] 
[16] 
[16] 
C16J 
[16] 

[12] 
[12] 
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OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
COAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 



495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 

518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 



++ 



.SBTTL KB_Poll Routine - Keyboard ready bit check 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CHECKS THE 'READY 1 BIT IN THE CONSOLE'S STATUS 
REGISTER AND, IF CLEAR, RETURNS TO THE CALLING ROUTINE. 
If no character is ready this returns immediately. 
Select one of the following based on the character typed: 



A C 

A 
A S 
A Q 
A C 
Else, 



clear local flags and set the global A C flag 

set A flag to suppress output until A C is serviced by KB_CHECK 

toggle the A bit (output may be flushed based on this bit) 

SET CONSFLG FLAG TO SUSPEND TERMINAL OUTPUT 

CLEAR CONSFLG FLAG TO RESUME TERMINAL OUTPUT IF ANY 

WILL ALSO CLEAR CONSFLG FLAG. 

echo the character as a <BELL> 



CALLING SEQUENCE? 

SUBROUTINE CALL. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 

DS$GL,FLAGS<DS$V.CTRLC> 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



= A C FLAG 
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OOAC 




03 


6B 


OOAC 
OOAE 
OOBD 


1C 50 


07 


E1 


OOBD 
00C1 


51 


11 


91 


00C1 




17 


13 


00C4 




OF 


19 


00C6 
00C8 


51 


03 


91 


00C8 




10 


13 


OOCB 
OOCD 


51 


OF 


91 


OOCD 




0B 


13 


CODO 
00D2 


51 


13 


91 


00D2 




06 


13 


0OD5 
00D7 


51 


07 


00 


00D7 




015D 


30 


OODA 
OODD 
OODD 




03 


BA 


OODD 






05 


OODF 



538 KB POLL:: 

539 PUSHR 

540 CMK 
541 

542 BBC 
543 

544 CMP8 

545 BEQL 

546 BLSS 
547 

548 CMPB 

549 BEQL 
550 

551 CMPB 

552 BEQL 
553 

554 CMPB 

555 BEQL 
556 

557 10$: MOVL 

558 BSBW 
559 

560 KB^POLL X: 

561 POPR 

562 RSB 



**M<R0,R1> 
RCONSOLE 

*7,R0,KB_P0LL_X 

#CNTRLQ,R1 
KB POLL X 
105 

0CNTRLCR1 
KB.POLL.X 

*CNTRLO,R1 
KB.POLL.X 

*CNTRLS,R1 
KB_POLL_X 

*BELL,R1 
OUT ECHO 



A M<RO,R1> 



SAVE RO 8 R1. 

EXIT If NO CHARACTER 



SKIP ECHO If CONTROL Q 
SKIP FOR SPEED OPTIMIZATION 



SKIP ECHO IF CONTROL-C 
SKIP ECHO If CONTROL-0 

SKIP ECHO IF CONTROL S 

ECHO A BELL. 
TYPE IT OUT 



RESTORE RO & R1. 
RETURN. 
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17 



00E0 
00E0 
00E0 
00E0 
00E0 
00E0 
00E0 
00E0 
OOEO 
00E0 
OOEO 
OOEO 
OOEO 
OOEO 
COEO 
OOEO 
OOEO 
OOcO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 
OOEO 



564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

5/6 

57? 

57fi 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 



•SBTTL RInput Routine - Flag driven terminal input 
++ 

FUNCTIONAL DESCRIPTION: 

This routine returns a character from the console terminal. 
The associated interrupt routine CMKSRCONSOLE checks the 
the character and sets or cleas flags for A S # A G, A 0. 

CALLING SEQUENCE: 

BSBW RINPUT 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS; 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



/Z-ENSAA-7.0 


Rlnput 


Routine • 


- Fla 


g driven terminal in 


L 9 

27-JUL-1984 


I 


: ich 


e 4 Frame L9 Seguence 733 
11:00 VAX-11 Macro V03-0T Page 
22:46 DMA1;[SYS0.SYSMAINT3CONSOLE.MAR; 


^ «% 


CONSOLE 


r^ 






%** 


CONSOLE 


Console I/O 


handler 27-JUL- 


-1984 


15; 


18 


07-23 








Rlnput Rout 


ine - F lag d 


riven terminal in 23-JUL' 


-1984 


16; 


10<D 


i 










OOfcO 


601 RINPUT: 










; KEYBOARD INPUT ROUTINE. 






OOOOOOOO'EF 


17 


E5 


OOEO 


602 


BBCC 


S A *DS$V OUTPUT, 


- 














03 




00E7 


603 




L A DS$GC_FLAGS, 


10$ 




; Branch if no asynch output, clear flag 








00D3 


30 


00E8 
OOEB 
00E8 


604 
605 
606 10$: 


BS8W 


RTYPE 






; Re- type input line 














CMK 


RCONSOLE 






; READ KEYBOARD. 






E2 


50 


07 


E1 


OOFA 


607 


BBC 


07, RO, RINPUT 






; TRY AGAIN IF NOTHING THERE 






00 51 


04 


08 


ED 


OOFE 


608 


CMPZV 


#8,*4,R1,#0 






; CONSOLE DATA? 










DB 


12 


C103 


609 


BNEQ 


RINPUT 






; NO, IGNORE IT 








50 


51 


DO 
05 


0105 

0108 
0108 
0108 
0109 


610 

611 

612 RINPUTX 

613 

614 


MOVL 

* 

'rsb 


R1,R0 






; COPY CHARACTER 

; ROUTINE EXIT POINT. 

; RETURN TO CALLING ROUTINE 














C109 


615 CMK$RCONSOLE;: 


















51 


DA 


0109 
01 OB 


616 5$: 
617 


CLRL 


R1 






; INITIALIZE R1. 


[193 






50 


20 


DB 


0108 


618 10$; 


MFPR 


#PR$ RXCS, RO 
U7. RO, 15$ 






; GET KEYBOARD STATUS. 






03 


50 


07 


EO 


010E 


619 


BBS 
















00A8 


31 


0112 
0115 


620 
621 


BRW 


90$ 






; No character, exit ' 








51 


21 


DB 


0115 


622 15$: 


MFPR 


#PR$ RXDB, R1 






; INPUT CHARACTER. 






EF 


51 


OF 


FO 


0118 
011C 

one 


623 
624 
625 20$: 


BBS 


#15,R1,10$ 






; Error on character, try again. 






51 


QFOO 8F 


B3 


BNW 


* A XF00,R1 






; Is this a console character? 










03 


13 


0121 


626 


BEOL 


21$ 






; Yes 










0097 


31 


0123 
0126 


627 
628 


BRW 


90$ 






; No - just RE I 






51 51 


07 


00 


EF 


0126 


629 21$: 


EXTZV 


#0,*7,R1,R1 






; Remove parity and garbage 








51 


03 


91 


01 2B 


630 


CMPB 


#CNTRLC,R1 






; CONTROL-C? 










48 


12 


012E 


631 


BNEQ 


25* 






; Check next 






00000003' EF 


94 


0130 


632 


CLRB 


C0NSFL6 






; RESUME PRINTING ON A C 














0136 


633 
























0136 


634 


Br If.. 


Ctrl C No Echo 


22$ 




; If not echoing A C's, skip around 


C193 








03 


BB 


013E 


635 


puSha 


* A H<R0,R1> 






; Save flag and character 
; ASCIC <NL> A C<NL> 






50 OOOOOOOO'EF 


9E 


OHO 


636 


MOVAB 


T CNTRLCRO 














OOAC 


30 


on? 


637 


BS8W 


OOT CNTRL 






; Type it 










03 


BA 


OHA 
014C 
0154 


638 
639 
640 


POPR 

Set.Ct 

Set.Ct 


**M?R0,R1> 
rlO 
rlC 






; Restore 

; Set A flag 

; Set A C flag 

; Return Control C character 


[163 
[163 








5F 


11 


015C 


641 


BR8 


90$ 


















015E 


642 
























015E 


643 22$i 


; We are not echoing A C 


's. Now ( 


;heck to see if we are allowing A C as a 


[193 












015E 


644 


; valid character. If we are 


not, then go back up and see if there is 


[193 












015E 


645 


; another character there. 






[193 












015E 


646 
























015E 


647 


Brjf 


Flush Ctrl C 


5$ 




; If flushing, return with no character [193 












0166 


648 


SetjT 


ush^Ctrl.C" 






; Not currently flushing -> start now, 


[193 












016E 


649 


Set.Ct 


rlC 






; . . . set A C flag, and 

; • • • return with the A C character 


[193 








45 


11 


0176 


650 


BRB 


90$ 






[193 












0178 


651 
























0178 


652 25$: 


Clear 


Flush Ctrl C 






; This is not a A C - stop flushing now 


[193 






51 


13 


91 


0180 


653 


CMPB " 


#CNTRLS,R1 






; CONTROL-S ? 










09 


12 


0183 


654 


BNEQ 


28$ 






; NO, NEXT 






00000003 , EF 


01 


88 


0185 


655 


BISB 


#1 -CONSFLG 

80$ 






; STOP PRINTING 










20 


11 


018C 


656 


BRB 






; Flush and exit 














018E 


657 
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51 11 


91 


018E 


658 




08 


12 


0191 


659 




00000003'EF 


94 


0193 


660 




20 


11 


0199 
019B 


661 
662 




51 OF 


B1 


019B 


663 




1D 


12 


019E 


664 




00000003'EF 


94 


01A0 


665 


SO 


OOOOOOOF'EF 


9E 


01A6 


666 




0046 


30 


01AD 


667 


00000000 f EF 


00010000 8F 


CC 


01B0 
01BB 


668 
669 




50 


7C 


018B 
01BD 


670 
671 






02 


C1BD 


672 



28$: 



30$: 



80$: 
90$: 



CMP8 
BNEQ 
CLRB 
BRB 

CMPW 

BNEQ 

CLRB 

MOVAB 

BSBW 

X0RL2 

CLRQ 

RE J 



#CNTRLQ,R1 
30$ 

C0NSFL6 
80$ 

*CNTRLO,R1 

90$ 

CONSFLG 

T CNTRLO,R0 

OOT CNTRL 

#DS$M^CTRLO,DS$GL. FLAGS 

RO 



CONTROL-Q ? 
NO EXIT 

RESUME PRINTING 
Flush and exit 

CONTROL 0? 

NO 

RESUME PRINTING ON CONTROL 

ECHO STRING FOR CNTRLO 

TYPE IT 

TOGGLE A FLAG 

Set to no character found 

Return from interrupt 
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01BE 


674 


01BE 


675 


01BE 


676 


01BE 


67/ 


01BE 


678 


01BE 


679 


01BE 


680 


01BE 


681 


01BE 


682 


01BE 


685 


01BE 


684 


01BE 


685 


01BE 


686 


01BE 


687 


C1BE 


688 


01BE 


689 


01BE 


690 


01BE 


691 


1 8E 


692 



++ 



.SBTTL RType Routine - Retype input line ( ,A R' function) 



Functional description: 

Cause a linefeed-carriage return, ecno prompt and whatever characters 
have been read so far from the terminal on the current line. 



Implicit inputs: 

R2 

QJ0$ P5(AP) 

QI0$;p1(AP) 

Side effects: 



count of characters input 

prompt length/pointer from $QJ0 argument list 

pointer to input buffer 



Jf this routine is interrupted 
routine will restart itself— r 
is output completely. 



, and output to terminal occurs, the 
epeatedly if necessary, until the line 
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ie 21 
t;10<1) 



38 


BB 


01BE 


694 


RTYPE: 


PUSHR 


55 00000000'EF 


9E 


01C0 
0U7 


695 
696 




MOVAB 


50 00000014'EF 


9E 


01C7 


697 


10$: 


MOVAB 


4A 


10 


01CE 


698 




BSB6 


53 2C AC 


7D 


01D0 
01D4 


699 
700 




MOVQ 


51 83 


9A 


01D4 


701 


20$: 


MOVZBL 


EC 65 17 


E4 


01D7 


702 




BBSC 


52 


10 


01 DB 


703 




BS8B 


F4 54 


F5 


01 DD 


70^ 




SOB6TR 


54 1 C BC 


9E 


01E0 


705 




MOVAB 


53 52 


DO 


01E4 
01E7 


706 
707 




MOVL 


51 84 


9A 


C1E7 


708 


30$: 


MOVZBL 


D9 65 17 


E4 


01EA 


709 




BBSC 


3F 


10 


01EE 


710 




BSBB 


F4 53 


F5 


01F0 


711 




SOBGTR 


38 


BA 


01F3 


712 




POPR 




05 


01F5 


713 




RS8 



# A M<R3,R4,R5> 
L A DS$GL_FLAGS, R5 

T CRLF, RO 
ODT ASCJC 
GI0S.P5(AP), R3 

(R3)+, R1 

S A #DS$V OUTPUT, (R5> JOS 

OUT CHAR 

R4,~20$ 

3QI0S PKAP), R4 

R2, R3 

<R4)+, R1 

S A *DS$V OUTPUT, (R5) JOS 

OUT^CHAR 

R3, 30$ 

# A M<R3,R4,R5> 



Save registers 

Save pointer to flags longword 



Type <CRXLF> 

Get prompt descriptor (ADDRESS/LENGTH) 

Get next character of prompt 

Re-start if asynch typeout 

Type it out 

Loop to end of prompt 

Point to buffer 

Copy length 



character 

if asynch typeout 



Get next 

Re-start 

Type it 

Loop to end of line 

Restore registers 

Return 
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Flag dri""- r 
*** COr 
Out Rot 

one 

01F6 
01F6 
01F6 
01F6 
01F6 
0H6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
C1F6 
01F6 
0H6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
01F6 
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.S8TTL Out Routines - Flag driven terminal output 



15 
/16 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 



i + 



FUNCTIONAL DESCRIPTION: 



OUTJNTRL 
OUT.ASCIC 
OUT STRING 
CHAR OUTPUT 
CHARlECHO 

CALLING SEQUENCE: 

NONE 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 



Print out control character echo with low overhead 

OUTPUT ASCIC STRING RO=ADDRESS 

OUTPUT STRING RO=ADDRESS, R1=LENGTH 

OUTPUT CHARACTER R1=CHARACTER 

OUTPUT CHARACTER R1=CHARACTER, IGNORE A 



NONE 
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Flag driven terminal 
*** CONSOLE Console 
Out Routines - Flag 



D 10 
outp 27-JUL-1984 Fiche 4 Frame 010 Seguence 738 
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5? 



52 
80 



DD 
9A 



51 80 9A 

EB 5? F5 

OOOOOOOO'EF 94 

52 8E00 

05 



51 80 9A 



52 
51 



04 
51 
08 

80 

06 

F8 52 

04 



B6 
DO 
15 

9A 
10 
F5 

BA 
05 



FE7A 30 



01F6 
01F6 
01F8 
01F8 
01FB 
01FE 
020D 
0210 
0216 
0219 
021A 
021A 
021A 
021D 
C21D 
021D 
021F 
0222 
0224 
0224 
0227 
0229 
022C 
022C 
022E 
022F 

o^r 

022F 
0232 
023A 
023A 
023A 



OOOOFFOO'EF 


18 


EO 


0242 






67 




0240 
C2*A 


05 


00000003 


*EF 


E9 


024A 




FE58 


30 


0251 






F4 


11 


0254 
0256 




51 


OD 


91 


0256 






06 


12 


0259 




00000000 


•EF 


94 


0258 
0261 


00000002' EF 


00000000 


9 EF 


91 


0261 






OE 


1F 


026C 






07 


8B 


026E 


50 


00000014 


l Ef 


9E 


0270 




FFAO 


30 


0277 






07 


BA 


027A 
027C 
Q27C 
027C 




51 


09 


91 






Of 


12 


027F 




51 


20 


9A 


0281 
0284 






OA 


10 


0284 


OOOOOOOO'EF 


07 


93 


0286 



752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
771 
77<> 
775 
776 
777 
778 
779 

/BO 

781 

"82 

^83 

784 

785 

7BL 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 



OUT.CNTRL: 

PUSHL 
M0VZ8L 

10$: MOVZBL 
CMK 

SOBGTR 
CLRB 
POPL 
RSB 

0UT_ASCK: 

M0VZ8L 

OUT STRING; 

PUSHR 

MOVL 

BLEO 



10$: 



20$: 



MOVZBL 

BS8B 

SOBGTR 

POPR 
RS8 



OUT CHAR: 

BS8W 



R2 
(R0)+,R2 

(R0)+,R1 

TCONSOLE 

R2,10$ 

COLUMN 

R2 



(R0)+,R1 



* A MR2 
R1,R2 
20$ 

<R0)+,R1 
OUT CHAR 
R2,T0$ 

# A MR2 



KB.POLL 



BrJ^CtrlO Out^CharX 

OUT. ECHO: 

Br Jf_Not APT 5$ 



5$: 



10$: 



20$: 



25$: 



30$: 



885 " tfGSASV NORPT, - 

DSA$5LJLAGS,OUT_CHARX; 

BL8C CONSFLG,10$ 

BS8W KB.PQLL 

BRB 5$ 

CMP8 *CR,R1 

BNEQ 20$ 

CLRB COLUMN 

CMPB COLUMN, DS$GB WIDTH 

BLSSU 25$ 

PUSHR # A M<R0,R1,R2> 

MOVAB T CRLF, RO 

BS8W OOT ASCJC 

POPR rf A M*R0,R1,R2> 



CMP8 #TAB,R1 

BNEQ 50$ 

MOVZBL #5PACE,R1 

BS8B 50$ 

BITS 07, COLUMN 



Save register 2 
Get length 

Get character 

Type character 

Loop 

Control char, echo ends with <CR><LF> 

Restore register 

Return 



GET LENGTH 



SAVE 

COPY LENGTH 

START WITH COUNT 

GET CHARACTER 
OUTPUT A CHARACTER 
NEXT 

RESTORE 



TELETYPE OUTPUT ROUTINE. 
Check for A C and A 
Exit if A in effect 



Branch around if not in APT mode 

BRANCh IF REPORT DISABLED ? 

BRANCH IF CONTROL S NOT ON 
WAIT FOR CONTROL Q OR CONTROL C 



CARRIAGE RETURN ? 

NO - 

INIT COLUMN COUNT 

Have we passed width limit? 
(Must be unsigned) No, continue 
Save registers 
Yes, Type CRLF, reset COLUMN 

Restore 



CHARACTER = TAB 

NO - 

SPACE 

OUTPUT A SPACE 

ALIGNED ON MULT OF 8 BOUNDRY? 



C16D 
C163 



C15D 

[12] 

C12] 

[12] 

[12 

[12 

[12] 



ZZ-ENSAA-7.0 

CONSOLE 

07-23 



Out Routines - Flag driven terminal outp 

*** CONSOLE Console 1/0 handler 
Out Routines - Flag driven terminal 



E 10 
27-JUL-1984 Fiche 4 Frame E10 Seguence 739 

27-JUL-1984 15:11:00 VAX-11 Macro V03-0T Pa 9* 2 * 
23-JUL-1984 16:22:46 DMA1 :CSYS0.SYSMAINT]CONS0lE.MAR;10(1) 



outp 



F5 



51 



1F 
06 
00000000 f EF 



12 
05 

91 
18 
96 



00000001 'EF 51 90 



05 



0280 
028F 
0290 
0290 
0293 
0295 
0298 
0298 
02A2 
0281 
0281 
02B1 
0282 



809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 





BNEQ 
RSB 


30$ 


50$: 


CMPB 
BGEQ 
1NC8 


#31,R1 

60$ 
COLUMN 


60$: 


M0V8 
CMK 


R1.LASTCHAR 

TCONSOLE 


OUT. 


CHARX: 
RS8 





; NO, OUTPUT ANOTHER SPACE 

; YES, RETURN 

; Control character? 

; Not Horizontal motion if control char 

; Inc position 

; Save character to be saved 



RETURN TO CALLING ROUTINE. 



ZZ-ENSAA-7.0 

CONSOLE 

07-23 



Out Routines - 



Flag driven terminal 
*** CONSOLE Console 
Out Routines - Flag 



F 10 
outp 27-JUL-1984 Fiche 4 Frame F10 Seguence 740 
I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-0T Pa 9* 2 * 
driven terminal outp 23-JUL-1984 16:22:46 DMA1 :[SYS0,SYSMAINT3CONSOLE.MAR;10(1) 



22 









0282 


823 CMKSTC0NSOLE: 




01 


BB 


02B2 
02B4 


824 PUSH* 
825 


00010000 


8F 


DA 


02B4 


826 10$: MTPR 


50 


22 


DB 


02BB 


827 MFPR 


F2 50 


07 


E1 


02BE 


828 BBC 


23 


51 


DA 


02C2 


829 MTPR 




01 


BA 


02C5 


830 POPR 






02 


02C7 


831 REJ 



# A MR0 

# A X10000,*PR$ TXCS 
*PR$ TXCS, R0~ 
#7, RO, 10$ 
R1, #PR$ TXDB 
/TMRO 



TELETYPE OUTPUT ROUTINE. 
Save register 

ACTIVATE CONSOLE TERMINAL LINE 

GET PRINTER STATUS. 

WAIT FOR PRINTER READY BIT. 

OUTPUT CHARACTER. 

Restore 

RETURN TO CALLING ROUTINE. 



C22J 



ZZ-ENSAA-7.Q 

CONSOLE 

07-23 



G 10 

WriteVBlk Routine - Console write driver 27-JUL-1984 Fiche 4 Frame 610 Seguence 741 

*** CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-0T G?S e ^?$. 
WriteVBlk Routine - Console write driver 23-JUL-1984 16:22:46 DJ1A1 :CSYS0.SYSMAINTDCOWSOLE. MAR; 10(1) 



02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
0?C8 
02C8 
02C8 
C2C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C3 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 
02C8 



833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 



++ 



.SBTTL WriteVBlk Routine - Console write driver 
FUNCTIONAL DESCRIPTION: 

PERFORMS AN OUTPUT TO THE CONSOLE OF AN ASCII STRING. 
CALLING SEQUENCE: 

CASE FROM QIO. 
INPUT PARAMETERS: 



QIOSJFNCAP) 
010$ PKAP) 
QI0$IP2(AP) 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



= QIO EVENT FLAG NUMBER. 
= ADDRESS OF ASCII STRING. 
= LENGTH OF ASCII STRING. 



H 10 

ZZ-ENSAA-7.0 WriteVBlk Routine - Console write driver 27-JUL-1984 „ Fjche 4 Frame H10 Seguence 742 

CONSOLE *** CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-0T E*9 e „*?w 

U7-23 WriteVBlk Routine - Console write driver 23-JUL-1984 16:22:46 DMA1 :CSYS0.SYSMAINT3CONSOLE.MAR;10<1) 

02C8 870 WRITEVBLK: : 

08 0C AC 00' E1 02C8 871 BBC S A #IO$V CANCTRLO, - 

02CD 872 010$ FURC(AP) # 1 0S ; Branch if no Cancel Control „ n 

02CD 873 Clear CtrlO " ; Clear the A flag C16D 

0205 874 

50 1C AC 7D 02D5 875 10$: MOVQ QIOS PKAP), RO ; GET ADDRESS/LENGTH OF ASCII STRING. 

FF41 30 02D9 876 BSBW OUT STRING ; OUTPUT THE STRING 

02DC 877 $SETEF.G (AP) 

05 02E3 878 RSB ; RETURN TO ENTRY VECTOR, 



ZZ-ENSAA-7.0 

CONSOLE 

1)7-23 



ReadVBU Routine - Console read driver 

*** CONSOLE Console I/O handler 
ReadVBlk Routine - Console read 



I 10 

27-JUL-1984 Fiche 4 Frame 110 Seguence 743 

27-JUL-1984 15:11:00 VAX-11 Macro V03-OT Page 28^ 
driver 23-JUL-1984 16:22:46 DMA1 :[SYS0.SYSMAINT3CONSOLE.MAR;1O(1) 



02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
C2E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 
02E4 



880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 
919 
920 



•S8TTL ReadVBlk Routine - Console read driver 
++ 

FUNCTIONAL DESCRIPTION: 

THE ROUTINE INPUTS CHARACTERS FROM THE TELETYPE AND STORES THEM 
IN THE BUFFER. IT HANDLES "DELETE", " A U", " A C", " A R", AND 
"HYPHEN.CARRTN". 

CALLING SEQUENCE: 

CASE FROM QIO. 

INPUT PARAMETERS: 



= FUNCTION EITHER 10$ READVBLK OR 10$ READPROMPT 
= ADDRESS OF THE BEGINNING OF THE BUFFER, 
= ADDRESS 10 HOLD LENGTH OF INPUT LINE 
= LENGTH IN BYTES ALLOWED FOR THE BUFFER. 
= OPTIONAL ADDR. OF TERMINATOR DESCRIPTOR. 



QJOS FUNC(AP) 
QI0$~P1(AP) 
QIO$JOSB(AP> 
010$ P2(AP) 
QIO$lP4(AP) 

IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 

R1 = LENGTH OF LINE INPUT 

SUCCESS INDICATOR IN RO, RO = IF '?' TYPED ELSE RO = 1 

IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



CI 73 



ZZ-ENSAA-7.0 

CONSOLE 
07-23 



ReadVBlk Routine - Console read driver 

*** CONSOLE Console I/O handler 
ReadVBlk Routine - Console read 



OOOOOOOO'EF 00810000 8F CA 

OC AC 00*8F 91 

22 12 

00000000' EF 95 

13 12 

0000000TEF OA 91 

OA 13 

50 00000014" EF 9E 

FF09 30 

50 2C AC 7D 

FT05 30 

53 K BC 9E 

52 DA 

FD8F 30 

50 80 8F 8A 

50 7F 8F 91 

20 12 

52 05 

03 12 

OOEA 31 

00000000'EF 05 E2 
07 

51 5C 8F 9A 

FEE6 30 

51 73 9A 

FEEO 30 

52 07 

C8 11 

00000000' EF 05 E5 
07 

51 5C 8F 9A 

FECD 30 

50 15 91 

OD 12 

50 00000007'EF 9E 

FEA9 30 

FF70 31 

50 03 91 

OD 12 

53 50 9A 

52 OA 

50 0000'8F 3C 

OOAF 31 



02E4 


922 PREADV8LK;: 




02E4 


923 READVBLK:: 




02E4 


924 




BICL2 


#DS$M CTRLO ! DS$M. 


02EF 


925 






DS$Gr FLAGS 


02EF 


926 




CMPB 


#IO$_READPROMPT,QI{ 


02F4 


927 




BNEQ 


10$ 


02F6 


928 




TST8 


COLUMN 


02FC 


929 




BNEQ 


6$ 


02FE 


930 




CMPB 


#LF,LASTCHAR 


0305 


931 




BEQL 


6$ 


0307 


932 








0307 


933 


3$: 


MOVAB 


T CRLF,R0 


030E 


934 




BSBW 


ODT.ASCJC 


0311 


935 








C311 


936 6$: 


MOVQ 


Q10$ P5(AP),R0 


0315 


937 




BSBW 


OUT.STRJNG 


0318 


938 








0316 


939 


10$: 


MOVAB 


aQIO$.PKAP), R3 


031 C 


940 




CLRL 


R2 


031E 


941 








031E 


942 


20$: 


BSBW 


R INPUT 


0321 


943 




Clear CtrlO 


0329 


944 




BJCB2 


#PARITY, RO 


032D 


945 




CMPB 


^DELETE, RO 


0331 


946 




BNEQU 


50$ 


0333 


947 




TSTL 


R2 


0335 


948 




BNEQ 


30$ 


0337 


949 




BRW 


140$ 


033A 


950 








033A 


951 


30$: 


BBSS 


*DS$V RU8FLG, - 


0341 


952 






DS$SLJLAGS, 40$ 


0342 


953 




M0VZ8L 


#BSLASH, R1 


0346 


954 




BSBW 


OUT_CHAR 


0349 


955 








0349 


956 


40$: 


M0VZ8L 


-<R3), R1 


034C 


957 




BSBW 


OUT.CHAR 


034F 


958 




DECL 


R2 


0351 


959 




BRB 


20$ 


0353 


960 








0353 


961 


50$: 


B8CC 


#DS$V RUBFLG, - 


035A 


962 






DS$BL_FLAGS, 60$ 


035B 


963 




MOVZBL 


fBSLASH, R1 


035F 


964 




BSBW 


OUT, CHAR 


0362 


965 








0362 


966 60$: 


CMPB 


#CNTRLU, RO 


0365 


967 




BNEQU 


70$ 


0367 


968 




MOVAB 


L*T_CNTRLU,RO 


036E 


969 




BSBW 


OUT ASCIC 


0371 


970 




BRW 


PREJDVBLK 


0374 


971 








0374 


972 


70$: 


CMPB 


*CNTRLC, RO 


0377 


973 




BNEQU 


90$ 


0379 


974 




MOVZBL 


RO, R3 


037C 


975 




CLRL 


R2 


037E 


976 




MOVZWL 


*SS$„CONTROLC,RO 


0383 


977 




BRW 


170$ 


0386 


978 









C16D 



J 10 
27-JUL-1984 Fiche 4 Frame J10 Sequence 744 

27-JUL-1984 15:11:00 VAX-11 Macro V03-01 Pa 9 e 29 

driver 23-JUL-1984 16:22:46 DMA1 :CSYS0.SYSMAINT3CONSOL£.MAR;10<1 ) 



; Clear *0 and output flag 

C(AP) ; READ W/PROMPT? 

; Branch if not 

; At left margin? 

; Branch if not 

; Was last char a LF? 

; Branch if so 

; Output CRLF 

; Type it 

; GET ADDRESS, LENGTH OF PROMPT 

; AND TYPE IT 

; SET BUFFER POINTER IN R3 

; INITIALIZE BYTE COUNTER IN R2 

; GO GET A CHARACTER 

; Clear the A flag 

; CLEAR PARITY BIT 

; IS THIS '•DELETE" 

; BRANCH IF NOT 

; IS THIS BEGINNING OF BUFFER 

; BRANCH IF NOT BEGINNING 

; GO TYPE BELL IF BEGINNING 

; BRANCH ]F BSLASH ALREADY TYPED 

; LOAD BACK SLASH INTO R1 

; TYPE BACK SLASH 

; LOAD DELETED CHARACTER INTO R1 

; TYPE DELETED CHARACTER 

; ADJUST CHARACTER COUNTER 

; GO GET ANOTHER CHARACTER 

; Branch if last char not "DEL 11 

; LOAD BACK SLASH INTO R1 

; TYPE BACK SLASH 

; IS THIS CONTROL U 

; BRANCH IF NOT 

; ADDHESS OF TEXT 

; TYPE IT 

; GO INITIALIZE BUFFER 

; IS THIS CONTROL C 

; BRANCH IF NOT 

; Set terminator character 

; FLUSH BUFFER. 

; SET RETURN CODE 



C143 



ZZ-ENSAA-7.0 


ReadVBU Routine 


- Console 


read driver 




K 10 
27-JUL-1984 


Fiche 4 Frame K10 Seguence 745 
-1984 15:11:00 VAX-11 Macro V03-OT pa 9 e 3?, 
•1984 16:22:46 PMA1 :[SYS0.SYSMAINT3CONSOLE.MAR;1O<1) 


CONSOLE 






*** 


CONSOLE Console I/O 


handler 




27-JUL- 


07-23 






ReadVBU Routine - Console read 


driver 


23-JUL- 




50 


12 


91 


0386 


979 90$: 


CMPB 


#CNTRLR, 


RO 


; IS THIS CONTROL R 






17 


12 


0389 


980 


BNEQU 


110$ 




; BRANCH IF NOT 






52 


D5 


038B 


981 


TSTL 


R2 




; IS THIS BEGINNING OF BUFFER 






03 


12 


038D 


982 


BNEQU 


100$ 




; NO CI 7] 






008C 


31 


038F 
0392 


983 

984 100$: 


BRW 


140$ 




; GO TYPE BELL H BEGINNING [173 
; [173 




50 OOOOOOOC'EF 


9E 


0392 


985 


MOVAB 


L A T_CNTRLR,RO 


; OUTPUT ,,A R<CR>" C143 






FE7E 


30 


0399 


986 


BSBW 


OUT ASCI C 










FE1F 


30 


039C 


987 


BS8W 


RTYPE 




; Re- type input line 

; BRANCH TO GET NEXT CHAR 






FF7C 


31 


039F 


988 


BRW 


20$ 












03A2 


989 


















03A2 


990 110$: 


















03A2 


991 ;[233 


CMPB 


#QUESTN, 


RO 


; IS THIS A QUESTION MARK 










03A2 


992 ;C2?3 


BNEQU 


120$ 




; BRANCH IF NOT 










C3A2 


993 ;[233 


MOVZBL 


RO, R1 




; OUTPUT QUESTION MARK 










03A2 


994 ;[233 


BSBW 


OUT CHAR 




; TYPE QUESTION MARk 










03A2 


995 ;[233 


M0VZ8I. 


R0,~R3 




; Set terminator character 










03A2 


996 ;[233 


MOVL 


*CR,R1 




; RETURN THE CARRIAGE 










03A2 


997 ;[233 


BSBW 


OUT_CHAR 














03A2 


998 ;C233 


CLRL 


RO 




; SET ERROR RETURN 










03A2 


999 ;[233 


BRW 


170$ 




; BRANCH TO EXIT [173 










03A? 


1000 












50 


00 


91 


03A2 


1001 120$: 


CMPB 


*CR, RO 




; IS THIS CARRIAGE RETURN 






17 


12 


03A5 


1002 


BNEQU 


130$ 




; BRANCH IF NOT 




63 


50 


90 


03A7 


1003 


MOVB 


R0,(R3) 




; STORE THE CHARACTER... MAY BE IGNORED 




51 


50 


DO 


03AA 


1004 


MOVL 


R0,R1 




; COPY FOR ECHO 






FE7F 


30 


03AD 


1005 


BSBW 


OUT CHAR 




; ECHO <CR> 




51 


OA 


DO 


03B0 


1006 


MOVL 


#LF7R1 










FE79 


30 


03B3 


1007 


BSBW 


OUT CHAR 




; TYPE <LF> 




50 


01 


DO 


03B6 


1008 


MOVL 


#1,R0 




; ASSUME IT'S <CR> AND SET SUCCESS 




53 


OD 


9A 


03B9 


1009 


MOVZBL 


*CR f R3 




; Set terminator character 






77 


11 


03BC 
03BE 
03BE 


1010 
1011 
1012 130$: 


BRB 


170$ 




; Exit 

C173 




54 28 AC 


DO 


038E 


1013 


MOVL 


Q10$ P4(AP),R4 


;IF TERMINATOR DESCRIPTOR PASSEDE173 






28 


13 


03C2 


1014 


BEQL 


40005 




;THEN C173 






64 


D5 


03C4 


1015 


TSTL 


(R4) 




IF SHORT FORM C173 






08 


12 


03C6 


1016 


BNEQ 


1000$ 




THEN (SEE VMS I/O USERS GDE)C17] 




56 


1F 


DO 


03C8 


1017 


MOVL 


*31,R6 




INIT BIT POINTER TO MAX C17] 




54 


04 


CO 


03CB 


1018 


ADDL2 


*4.R4 




GET ADDR. OF BIT PATTERN [173 






OC 


11 


03CE 


1019 


BR8 


2000$ 




; ELSE C173 




56 


64 


DO 


03D0 


1020 1000$: 


MOVL 


(R4),R6 




GET BYTE COUNT OF BIT PATE173 




56 


08 


C4 


03D3 


1021 


MULL 2 


#8,R6 




CONVERT TO BIT POINTER [173 




54 


04 


CO 


03D6 


1022 


ADDL2 


*4 f R4 

(R4),R4 




GET ADDR. OF BIT PAT. PTRC173 




54 


64 


DO 


03D9 


1023 


MOVL 




GET ADDR. OF BIT PATTERN [173 










03DC 


1024 2000$: 








; REPEAT 




64 


56 


E1 


03DC 


1025 


BBC 


R6,(R4),« 




IF THIS BIT IS SET [173 






05 




03DF 


1026 




3060$ 




THEN [173 




56 


50 


91 


03E0 


1027 


CMPB 


R0.R6 




IF BIT NO. = INP. CHR ASCI I [173 






25 


13 


03E3 
03E5 


1028 

1029 3000$: 


BEQL 


5060$ 




THEN LEAVE LOOP [173 
ELSE [173 






6 


D7 


03E5 


1030 


DECL 


R6 




; DECR. BIT POINTER [173 






F3 


18 


03E7 


1031 


BGEQ 


2000$ 




; UNTIL ENTIRE BIT PAT. DONE [173 
CHR NOT TERMINATOR, SO CONT.L173 






002C 


31 


03E9 


1032 


BRW 


6000$ 












03EC 


1033 4000$: 








;ELSE [173 




50 


1F 


91 


03EC 


1034 


CMP8 


#31 .RO 




IF INP. CHR ASCH LSS 31 [173 






17 


18 


03EF 


1035 


BLEQU 


6006$ 




THEN NOT TtrtMINATOR [173 



2Z-ENSAA-7.0 

CONSOLE 

07-23 



L 10 
ReadVBlk Routine - Console read driver 27-JUL-1984 Fiche 4 Frame LlO Sequence 746 

*** CONSOLE Console I/O handler 27-JUL-1984 15:11:00 VAX-11 Macro V03-01 Page 31 
ReadVBlk Routine - Console read driver 23-JUL-1984 16:22:46 DMA1 :[SYS0.SYSMAINT3CONSOLE.MAR;10(1 > 



50 


0A 


91 


03F1 


1036 




22 


13 


03F4 


1037 


50 


0B 


91 


03F6 


1038 




1D 


13 


03F9 


1039 


50 


OC 


91 


03FB 


1040 




18 


13 


03FE 


1C41 


50 


09 


91 


0400 


1042 




13 


13 


0403 


1043 


50 


08 


91 


0405 


1044 




OE 


13 


0408 
040A 


1045 
1046 


51 


50 


DO 


040A 


1047 




FE1F 


30 


040D 


1048 


83 


50 


DO 


0410 


1049 




52 


D6 


0413 


1050 




0010 


31 


0415 
0418 


1051 
1052 


20 AC 


52 


D1 


0418 


1053 




09 


19 


041C 
041E 


1054 
1055 


51 


07 


9A 


041E 


1056 




FEOB 


30 


0421 


1057 




FEF7 


31 


0424 
0427 


1058 
1059 


51 


50 


9A 


0427 


1060 




FE02 


30 


042A 


1061 


83 


50 


90 


042D 


1062 




52 


D6 


0430 


1063 




FEE9 


31 


0432 
0435 


1064 
1065 


51 ' 


BC 


DE 


0435 


1066 


81 


50 


BO 


0439 


1067 


81 


52 


BO 


043C 


1068 


81 


53 


BO 


043F 


1069 


61 


01 


BO 


0442 
0445 


1070 
1071 






05 


044C 
044D 


1072 
1073 



5000$: 



6000$: 



140$: 



150$: 



CMP8 #LF £ R0 

BEQL 6000$ 

CMPB #VT,R0 

BEQL 6000$ 

CMPB *FF,R0 

BEQL 6000$ 

CMPB #TAB,R0 

BEQL 6000$ 

CMPB *BS,R0 

BEQL 6000$ 

MOVL R0,R1 

BSBW OUT CHAR 

MOVL R0,7R3)+ 

INCL R2 

BRW 170$ 

CMPL R2, QIO$ fc P2(AP) 

BLSS 150$ 



170$: 



NOVZBL 

Bsew 


ffBELL, Rl 
OUT CHAR 


BRW 


20$ 


MOVZBL 


RO, R1 


BSBW 


OUT CHAR 


MOVB 


R0,"(R3H 


INCL 


R2 


BRW 


20$ 


MOVAL 


3010$ IOSB(AP), R1 ; 


MOVW 


RO, (RD + 


MOVW 


R2, (R1)+ 


MOVW 


R3, (RD + 


MOVW 


S A #1, (R1) 


$SETEF. 


,G (AP) 


RSB 





IF INP. CHR IS LINEFEED [173 

THEN NOT TERMINATOR [173 

IF INP. CHR IS VT [173 

THEN NOT TERMINATOR [17] 

IF INP. CHR IS FORMFEED [173 

THEN NOT TERMINATOR [173 

IF INP. CHR IS MB [173 

THEN NOT TERMINATOR [173 

IF INP. CHR IS BACKSPACE [173 

THEN NOT TERMINATOR [173 

TERMINATOR HAS BEEN FOUND [173 

PUT CHAR INTO R1 [173 

PRINT U [173 

STORE IT [173 

COUNT IT [173 

EXIT [173 

[173 
IS THIS LAST BYTE IN BUFFER 
BRANCH IF NOT LAST CHARACTER 

LOAD 'BELL" CODE INTO R1 

TYPE *BELL M 

TRY FOR SOMETHING ELSE 

LOAD CHARACTER INTO R1 

ECHO CHARACTER 

STORE CHARACTER IN BUFFER 

COUNT THIS CHARACTER 

GO GET ANOTHER CHARACTER 

GET ADDRESS OF I/O STATUS BLOCK. 

STORE OPERATION STATUS 

Store character count. 

Store terminator char. 

Store terminator size 

SET EVENT FLAG. 

RETURN TO QIO ENTRY VECTOR, 
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044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

C44D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

0440 

044D 

044D 

044D 

044D 

044D 

0440 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

044D 

0440 

044D 

044D 

0440 

044D 

0440 

0440 

0440 

0440 

0440 

044D 

0440 

0440 

0440 

0440 

0440 

0440 



1075 

1076 

1077 

1078 

1079 

1C80 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 



sbttl SIZE. TERM Routine to size the console terminal 



++ 

FUNCTIONAL 



DESCRIPTION: 



This routine will size the console terminal to determine its 

characteristics. The routine is meant for standalone use, 

and attempts to provide some of the same information that 
— l. — u*...*~^ <~- «.,'_„u,~,'~„ *«„»,*„, i „ ,-~ .„.«« moc j e 

•type" 
TERMCHAR. 
The fields are defined the the $TT0EF macro of~VMS, 



and attempts to provide some of the same informatu 
can be obtained for timesharing terminals in user r 
using the SGETCHN service. The routine sets the "1 
and "terminal characteristics" fields of DSSGL.TERf 



The format of D<$GL_TERMCHAR is as follows: 



32 







page 
width 



type 



class 



page 
length 



terminal 
characteristics 



NOTE: Currently, the routine only sets the TT$M SCOPE 

characteristic. Other characteristics defined By STTDEF, 

or other fields in DSSGL.TERMCHAR, could be also be sized for. 



CALLING SEQUENCE: 

BS8W SIZE.TERM 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

0S$GL_TERMCHAR 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

DSSGLJERMCHAR 
COMPLETION CODES: 



SIDE EFFECTS; 



[23] 
[23] 
[23] 
[23] 
[23] 
[233 
[233 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[233 
[23] 
[23] 
[23] 
[233 
[23] 
T23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
[23] 
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5A 1B 00' 
02 
63 5B 1B 00' 
03 
05 00' 
01 



0000044D 1 
00000450' 
00000454' 
00000000 



00000014 



0000047A 
2E 31 3A 3A 20 30 00000482'010EOOOO' 

35 
00000491 

01FC 



00000000'EF 

57 AD AF 

58 87 

03 

0084 



7C 
9E 
00 
12 
31 



50 



58 



58 

FD30 

9D AF 

9A AF 



50 



OOOO00O0'8F 
18 



D5 



50 
88 

FF65 



07 
51 
00 
CF 
A7 



DO 
30 
94 
9E 



D1 
13 

El 

90 
11 
95 
13 



044D 

044D 

044D 

044D 

0450 

0450 

0454 

0454 

0456 

0456 

0456 

045A 

045E 

0462 

C466 

0466 

0466 

0466 

0466 

0466 

0466 

047A 

0488 

0489 

0491 

0491 

0493 

0493 

04A0 

04A6 

04AA 

04AD 

04AF 

04B2 

04C0 

04C0 

04C0 

04C0 

04C0 

04C0 

04C3 

04C6 

04C9 

04CD 

04CD 

04DC 

04E3 

04E5 

04F4 

04F8 

04F8 

04FD 

0501 

0503 

0503 

0503 

0503 



1132 ;-- 
1133 

1134 DEC.PROMPT: 

1135 ANS J. PROMPT : 

1136 LA36 PROMPT: 



.ASCIC <27><90> 
.ASCIC <27>'Cc' 
.ASCIC <5> 



DEC prompt 
ANSI prompt 
LA36 prompt 



[23] 
[233 
C23] 

C23D 



1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 

1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 

1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 



PROMPTS: 



.ADDRESS DEC PROMPT 
.ADDRESS ANST.PROMPT 
.ADDRESS LA36.PR0MPT 
.LONG 



Pointers to prompt strings £233 



RECVD JKJF^LEN'STH = 20 



RECVD 
MAX 



BUF 



WSJT 



QUAD_TJME: 



.BLKB RECVD 
.ASCJD /0 " 

.BLKQ 1 



BUF LENGTH 
":1.5/ 



(Lon. 
pro! 
can 



lest response string will [233 

.ably be from LA36, which [233 

be up to 20 chars. But weC23] 

don't know what LA36 string [233 

is anyway; it is user-def ined)[233 

Buffer to receive response [233 

Max. time to wait for responseC233 



; Converted binary time 



.ENTRY SIZE. TERM, A M<R2,R3,R4,R5,R6,R7,R8>; 



[23] 
[23] 



10$: 
15$: 



$BINTIM_S MAX WAIT, QUAD.TIME 
CLRQ DS$GL~TERMCHAR 
HOVAB PROMPTS, R7 
MOVL (R7)+,R8 
BNEQ 15$ 
BRW 40$ 



$SETIMR fc S 



#1 # QUAD.T.1ME 



20$: 
30$: 



MOVL R8,R0 

BSBW OUT CNTRL 

CLRB RECOO.BUF 

MOVAB RECVD^BUF,R8 



SREADEF^S #1 ,EVENT_FLAGS 

CMPL #SS$ WASSET,R0 

BEOL 35$ " 

CMK RCONSOLE 

BBC #7,R0,30$ 

M0V8 R1 f (R8)+ 

BRB 30$ 

35$: TSTB RECVD BUF 

BEQL 10$ " 



Convert ASCII time to binary [233 

Initialize DS$GL_TERMCHAR [233 

Get list of prompts [233 

Get address of next prompt [23] 

Any more remaining? [23] 

Branch if no more prompts [233 

Start timer. (This MUST be [23] 

done before the prompt is [23] 

sent, because the $SFTIMR [23] 

service calls KB.CHECK, which[23] 

will read KB input and throw [23] 

it away.) [23] 

Put prompt addr. in R0 [23] 

Send prompt to terminal [233 

Clear 1st byte of response buf[233 

Init response buffer pointer [233 

REPEAT 

See if time was used up [233 

Has time run out? [233 

Yes. No response. [233 

Get a character of response [233 

If no character, try again [233 
Store char, in response buffer[233 

Get another character [233 
IF no characters were received[233 

THEN try another prompt [233 



A response was received. Now match the response to a terminal type. [233 
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00000000' EF 



S8 00001000 8F DO 

54 0000006D ( EF 9E 

0023 30 

1F 50 E8 

58 D4 

54 0000010F'EF 9E 

0014 30 

10 50 E8 

08 08 20 FO 



00000004 , EF 58 DO 

04 



?f 8F 

55 
FF1E CF 64 

54 



54 

OOOOOOOO'EF 08 08 

00000004 » IF 

50 



50 
j4 
28 
84 
55 
07 
55 
54 
E6 
55 
64 
58 
01 



D4 
91 
13 
9A 
29 
13 
CO 
D6 
11 
CO 
FO 
DO 
DO 
05 



0503 

0503 

050A 

0511 

0514 

0517 

0519 

0520 

0523 

0526 

052F 

052F 

0536 

0536 

C537 

0537 

0537 

0537 

0537 

0537 

0539 

053D 

053F 

0542 

0548 

054A 

054D 

054F 

0551 

0554 

055D 

0564 

0567 

0568 

0568 



1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 

1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 

1218 
1219 



40$: 
100$: 



MOVL 

MOVAB 

BSBW 

BL8S 

CLPL 

M0VA8 

BS8W 

BLBS 

INSV 

MOVL 

RET 



#TT$M w SC0PE, R8 

VIDEO TYPES, R4 

100$ 

R0,40$ 

R8 

HARDCOPY TYPES, R4 

100$ 

R0,40$ 

#TT$ LA36,*8,*8, - 

DS$GC TERMCHAR 

R8,DSlGL_TERMCHAR+4 



Assume video terminal 

Point to video response list 

Search list 

Found a match 

Not a video terminal 

Point to hardcopy response I 

Search list 

Found a match 

No match, so chances are tha 
the terminal is an LA36, si 
they do not return a standa 
response. 

BYE. 



;This code searches a list of terminal responses and compares 
;them to the received response, looking for a match, if a 
;match is founds DS$6L„TErMCHAR is set up appropriately. 



200$; 



300$: 



CLRL 

CMP8 

8EQL 

MOVZBL 

CMPC3 

BEQL 

ADDL 

JNCL 

BR8 

ADDL 

INSV 

MOVL 

MOVL 

RSB 

.END 



RO 

(R4), #-1 

300$ 

<R4)+ f R5 

R5,(R4),RECVD 8UF 

206$ 

R5,R4 

R4 

100$ 

R5.R4 



Clear return status 

End of list? 

Yes 

Get length 

Compare strings 

Found a match 

Go to end of string 

Skip over type code 

Try next response in 

Point to type code 



list 



(R4), #8, MB, DS$GL. TERMCHAR; Store type code 
R8,DS$GL..TERMCHAR>4 ; Store characteristics 

<M,RC ; Set good return status 

; Leave 



C233 

C233 

C23D 

C23J 

[233 

1stC23J 

C23J 

C23D 

t C233 

nceC233 

rdC233 

C233 

C23] 

[23D 
C23D 
C233 

C23] 
C233 
C233 
C23D 
C23] 
1212 
C233 
C233 
T23D 
C233 
C233 
C23D 
[23] 
C23D 
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SSARGS 

SSN 

SST1 

AN$1„PR0MPT 

BELL 

BIT... 

BS 

BSLASH 

CL1SK BUFS1Z 

CLISK SIZE 

CLISL ADDRESS 

CLISL^COMMAND 

CLISL.DATA 

CLISL FLAGS 

CLISLJ.AST 

CLISL„NEXT 

CL1SLJ>ASS 

CLISL..SUBT 

CLISL_TEST 

CLISG..BUFQWD 

CL1SG FILE 

CLISQ.SECTIQN 

CLI$Q TIME 

CLIST_BUFFER 

CLISV,ADAPTER 

CLISV ADR 

CLISV~ASC1I 

CLISV BREAK 

CLISV^BRIEF 

CUSV.BYTE 

CLISV^CLEAR 

CLISV.DEC 

CLISV.DEFAULT 

CLlSVJ)EPOSIT 

CLJSVJVENT 

CLISV..EXAM 

CLISV_FLAGS 

CLISV..HEX 

CLISV^KERNEL 

CLISV.LOAD 

CLISV.LONG 

CUSVJJOTNUF 

Cl.ISV„OCT 

CHSV„PREG 

CLISVJ)A 

CLISV QACKLOOPLOOPS 

CLlSV~QAERRORPRINTS 

CLISVlQAMULTIPLEPASS 

CLISV 1 QASUBTESTLOOPS 

CLI$V~QATESTLOOPS 

CLiSV^REG 

CLISV REQUIRED 

CLISV^RUN 

CLISV^SET 

CLISV SHOW 

CLISVlVALSEC 

CLISV. WORD 



O00OOO0C 


D 


00000002 


D 


00000000 


D 


00000450 R 


D 


00000007 


D 


00000004 


D 


00000008 


D 


0000005C 


D 


00000100 


D 


00000444 


D 


00000018 


D 


00000004 


D 


0000001 C 


D 


00000000 


D 


O0OOCO24 


D 


00000030 


D 


0000002C 


D 


00000028 


D 


00000020 


D 


00000034 


D 


00000008 


D 


00000010 


D 


0000043C 


D 


0000003C 


D 


00000018 


D 


00000008 


D 


00000013 


D 


0000000A 


D 


00000018 


D 


0000000D 


D 


00000002 


D 


00000010 


D 


OOOOOOOC 


D 


00000019 


D 


00000008 


D 


00000005 


D 


00000009 


D 


00000012 


D 


00000017 


D 


00000006 


D 


OOOOOOOF 


D 


00000001 


D 


00000011 


D 


0000001A 


D 


00000007 


D 


0000001 C 


D 


0000001B 


D 


0000001 F 


D 


0000001 E 


D 


0000001 D 


D 


00000014 


D 


00000000 


D 


00000015 


D 


00000003 


D 


00000004 


D 


00000016 


D 


OOOOOOOE 


D 



04 



CMKSRCONSOLE 

CMKSTCONSOLE 

CMKS_ 

CMKS.ASTEXIT 

CMKS.CANTJM 

CMKS.HIBER 

CMKSJNITSCB 

CMKS.LAST 

CMkS„MMENABLE 

CMKSRCONSOLE 

CMKS„RE FRESH 

CMKSJCHDWK 

CMKS..SETIMR 

CMKS SETIPL 

CMKS SETPRT 

CMKS_SGIPR 

CMKS TCONSOLE 

CNTRCC 

CNTRLO 

CNTRLQ 

CNTRLR 

CNTRLS 

CNTRLU 

COLUMN 

CONSFLG 

CR 

CRD$M_CRD DEBUG 

CRDSM CTRC C NO ECHO 

CRDSM FLUSR CTR[ C 

CRDSM^INHIBTT ALCOCATE 

CRDSV,CRD DEBOG 

CRDSV.CTRC C NO ECHO 

CRDSV.FLUSH tTRi: C 

CRDSV INHIBIT.ALCOCATE 

DEC PROMPT 

DELETE 

DSSGB WIDTH 

DS$GL„CRD FLAGS 

DSSGLJIABS 

DSSGLlTERMCHAR 

DSSGW TTOUT 

DSSK^PRINTB 

DSSK PR1NTF 

DSSK.PRINTI 

DSSK PRINTX 

DSSK^TYPE^ABORT^PROGRAM 

DSSKJYPE^ABORT TEST 

DSSKlTYPE^COMMARD^ERR 

DSSK TYPElCOMMAND^OUT 

DSSKlTYPE^CRD AUTOTEST 

DSSK TYPE DS PROMPT 

DS$K"TYPE„DS"START 

DSSK..TYPEJR&DEV 

DSSK TYPEJRRHARD 

DSSK'TYPEJRROR BODY 

DSSK~TYPEJRROR END 

DSSK"TYPEJRRPREP 



00000109 
000002B2 
Q0QQQ004 
00000000 
00000008 
00000007 

00000008 

OOOOOOOE 

00000003 

00000001 

00000005 

00000006 

OOOOOOOC 

00000009 

OOOOOOOD 

OOOOOOOA 

00000002 

00000003 

OOOOOOOF 

00000011 

00000012 

00000013 

00000015 

00000000 

00000003 

OOOOOOOD 

00000001 

00000002 

00000004 

00000008 

00000001 
00000002 
00000003 
0000044D 
0000007F 

00000002 
******** 

******** 

******** 

******** 

00000002 
00000001 
»0( 



= 00 
* 00 



0( 

0014 

0013 

0015 

0016 

001A 

0001 

001 D 

00000006 
00000009 
OOOOOOOA 
0000001B 



RG D 04 
RG D 04 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
R D 
R D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 02 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



02 
02 



04 



04 
04 
04 
04 



ZZ-ENSAA-7.0 
CONSOLE 
Symbol table 



Symbol table 



*** CONSOLE Console I/O handler 



D 11 

27-JUL-1984 Fiche 4 Frame D11 Seguence 751 

27-JUL-1984 15:11:00 VAX-11 Macro V03-0T Page 36 

23-JUL-1984 16:22:46 DMA1 :[SYSO.SYSMA1NTJCONSOLE.MAR;10(1) 



dssk type errsoft 
dssk~type~errsup 
dssoypejrrsys 
dssoypejrrhalt 
dssk type.excfpt10n 
dssk typejxception head 
dssk typej1rst pass 
dssk"type general 
dssoype:general error 
dssk typejio tests 
dssk type..param error 
dssk'type^program.end 
dssk~type„pr0gramjnf0 
dssk~type„program start 
dssk~type_qi0jnv&dp 
dssk typejj10jiodriver 
dssk~typej2i0 wrongver 
dssk"type script echo 
dssk'type^script^pnf 
dssk~type;script~prompt 
dssk~type..script skip 
dssk type sequence error 
dssk~typelstart err 
dssk~type start'list 
dssk~type~summaRy 
dssk~type~user prompt 
dssmiabrtflg " 
dssm badt1me 
dssm^batch 
dssm brkclr 
dssm"brkpt 
dssm charflg 
dssm~cmdflg 
dssm^ctrlc 
dssm ctrlo 
dssm~devflg 

DSSMlDISABLCC 

DSSM DONFLG 

DSSM~ERRFLG 

DSSM~EXCEPT 

DSSM'EXETST 

DSSM'HLTFLG 

DSSM LODFLG 

DSSM~MEMMGT 

DSSM'OUTPUT 

DSSM~RUBFLG 

DSSM.SCRIPT 

DSSM_SETIMR 

DSSM STRFLG 

DS$M~SUBT 

DSSM^SYSFLG 

DSSM TIMRON 

DSSV>BRTFLG 

DSSV BADTJME 

DS$V~8ATCH 

DS$V~BRKCLR 

DSSV'BRKPT 



00000007 

00000004 

00000005 

0O00O00D 

OOOOOOOC 

O000OO0B 

00000011 

00000000 

00000003 

00000012 

OOOUOOK 

00000010 

00000017 

0000000F 

00000024 

00000022 

00000023 

00000021 

0000001E 

00000020 

0000001 F 

00000019 

00000018 

00000025 

OO00O00E 

00000002 

00000040 

00100000 

00400000 

00001000 

00000800 

00000100 

00000080 

00000001 

00010000 

00000200 

01000000 

00002000 

00000010 

00080000 

00040000 

00000008 

00000002 

00008000 

00800000 

00000020 

00200000 

02000000 

00000004 

00004000 

00000400 

00020000 

00000006 

00000014 

00000016 

OOOOOOOC 

OO0OO00B 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



DSSV CHARFLG 

DSSV CMDFLG 

DSSV_CTRLC 

DSSV^CTRLO 

DSSVJJEVFLG 

DSSV.DISABLCC 

DSSV^DONFLG 

DSSV ERRFLG 

DSSV.EXCEPT 

DSSV^EXETST 

DSSV^HLTFLG 

DSSV..LODFLG 

DSSVJIEMMGT 

DSSV^OUTPUT 

DSSV,RUBFLG 

DSSV..SCRIPT 

DSSV^SETIMR 

DSSV STRFLG 

DSSV,SUBT 

DS$V_SYSFLG 

DSSV TIMRON 

DSAS*L_APTMAIL 

DSASAT APTTXT 

DSASGL"APTCOM 

DSASGLlDEVLEN 

DSASGL ERRNO 

DSASGL.EVENT 

DSASGL FLAGS 

DSASGL'MSGTYP 

DSASGLlPASSES 

DSASGL PASSNO 

DSASGL^SECTNO 

DSASGL.SID 

DSASGL.SUBTNO 

DSASGL. TESTNO 

DSASGL.UNITS 

DSASGQ^MSGPTR 

DSASGT DEVNAM 

DSASV.SPT 

DSASV NORPT 

DSASV USER 

DSXSPRlNT 

END HARDCOPY TYPES 

END~VIDEO TYPES 

EVERT FLAGS 

FF 

HARDCOPY TYPES 

HYPHEN 

IOSV CANCTRLO 

JOSjEADPROMPT 

IOSlSENSEMODE 

IOS SETMODE 

KB.POLL 

KB POLL X 

LA36 PRDMPT 

LASTCHAR 

LF 



= 00000008 


D 




= 00000007 


D 




= 00000000 


D 




= 00000010 


D 




= 00000009 


D 




= 00000018 


D 




= OOOOOOOD 


D 




= 00000004 


D 




= 00000013 


D 




= 00000012 


D 




= 00000003 


D 




= 00000001 


D 




= OOOOOOOF 


D 




= 00000017 


D 




= 00000005 


D 




= 00000015 


D 




= 00000019 


D 




= 00000002 


D 




= OOOOOOOE 


D 




= OOOOOOOA 


D 




= 00000011 


D 




OOOOFEOO 


D 




OOOOFAOO 


D 




OO00FE04 


D 




OO0OFE58 


D 




O000FE44 


D 




OO0OFE48 


D 




OOOOFEOO 


D 




OO0OFE4O 


D 




OO0OFE08 


D 




0000FE54 


D 




0000FE10 


D 




0000FE14 


D 




0000FE4C 


D 




0000FE50 


D 




OOOOFEOC 


D 




0000FE68 


D 




0000FE5C 


D 




= 0000001 F 


D 




= 0000001 B 


D 




= 0000001 C 


D 




******** 


X 


04 


00000138 R 


D 


03 


00000108 R 


D 


03 


00000004 R 


D 


02 


= OOOOOOOC 
O000O10F R 


D 




D 


03 


= 0000002D 


D 




******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


OOOOOOAC RG D 


04 


OOOOOOOD R 


D 


04 


00000454 R 


D 


04 


00000001 R 


D 


02 


= OOOOOOOA 


D 
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LOWCASE 
MAX WAIT 

ouOscic 

OUT CHAR 

OUOHARX 

OUT^CNTRL 

OUT ECHO 

OUT'STRiNG 

PARTTY 

PR$_RXCS 

PR$ RXDB 

PR$~TXCS 

PR$~TXD8 

PRE&DVBLK 

PROMPTS 

PSLSV IS 

QIO$ SSTADR 

QIO$>STPRM 

QIO$ CHAN 

QIOS^EFN 

QIOS FUNC 

010$ IOSB 

QIOS"NARGS 

QIO$~P1 

QI0$"P2 

QIO$"P3 

QIO$~P4 

QIO$lP5 

QIOS P6 

QUAD~TIME 

QUESTN 

READVBLK 

RECVD BUF 

RECVD~8UF_LENGTH 

R INPUT 

RINPUTX 

RTYPE 

SIZ... 

SIZE TERM 

S p ACE 

SS$,CONTROLC 

SS$ WASSET 

SYSJBINTIM 

SYSSQIOW 

SYSSREADEF 

SYSSSETEF 

SYSSSETIMR 

TAB 

TT$M SCOPE 

TT$ CA100 

rT$J_A12 

TT$ LA120 

TT$^LA3A 

TT$ LA36 

TT$ UNKNOWN 

TT$"VT100 

TT$~VT52 
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00000020 

0000047A 

0000021A 

0(00022F 

0C0002B1 

000001 F 6 

0000023A 

0000021 D 

00000080 

00000020 

00000021 

00000022 

00000023 

000002E4 

00000456 

0000001A 

00000014 

00000018 

00000008 

00000004 

OOOOOOOC 

00000010 

OOOOOOOC 

0000001 c 

00000020 

00000024 

00000028 
0000002C 
00000030 
00000489 
0000003F 
000002E4 
00000466 
00000014 
000000E0 
00000108 
000001BE 
00000001 
00000491 

00000020 

******** 

******** 
******** 
******** 
******** 

******** 
******** 

00000009 
00001000 
00000025 
00000024 
00000021 
00000022 
00000020 
00000000 
00000060 
00000040 



R 



R 



R 



04 



R 


D 


04 


R 


D 


04 


R 


D 


04 


R 


D 


04 


R 


D 


04 



04 



D 
D 
D 
D 
D 
D 
R6 D 04 



04 



R D 


04 


D 




R6 D 


04 


R D 


04 


D 




R D 


04 


R D 


04 


R D 


04 


D 




R6 D 


04 


D 




X 


04 


X 


04 


GX 


04 


GX 


04 


GX 


04 


GX 


04 


GX 


04 



TT$ VT55 

TT$ VT5X 

T CRTRLC 

T'CNTRLO 

rCNTRLR 

TCNTRLU 

T..CRLF 

T LA100 

T~LA12 

TLA120 

T..LA34 

T LA34A 

TLA36 

TSHOW WIDTH 

T~VT1O0 

TVT100A 

rvnooB 

T VT100C 

rvnooD 
rvnooE 

T.VT10OF 
T VT100G 

rvnooH 

T^VT220 

T^VT240 

T VT50 A 

rVT50lB 

T VT50_C 

T VT50 H 

TIVT50IJ 

T^VT52„K 

T^VT52_L 

T VT52 M 

OT55E 

T WIDTR 

VIDEO TYPES 

VRSETOlDTH 

VRSHOWWIDTH 

VT 

WRJTEVBLK 



00000041 


D 




00000040 


D 




00000000 R 


D 


OS 


0000000F R 


D 


03 


OOOOOOOC R 


D 


03 


00000007 R 


D 


05 


00000014 R 


D 


03 


00000117 R 


D 


03 


000001 OF R 


D 


05 


000001 1F R 





OS 


00000126 R 


D 


03 


000001 2F R 


D 


03 


000001 3C R 


D 


03 


00000048 R 


D 


03 


0000009F R 


D 


03 


0000009A R 


D 


03 


000000A8 R 


D 


03 


0OO000B1 R 


D 


03 


000000BA R 


D 


03 


000000C3 R 


D 


03 


OOOOOOCC R 


D 


03 


OO000OD5 R 


D 


03 


OOOOOODE R 


D 


03 


000000E7 R 





03 


000000F7 R 


D 


03 


0000006D R 


D 


03 


00000072 R 


D 


03 


00000077 R 


D 


03 


00000081 R 


D 


03 


00000086 R 


D 


03 


0000008B R 


D 


03 


00000090 R 


D 


03 


00000095 R 


D 


03 


0000007C R 


D 


03 


00000017 R 


D 


03 


0000006D R 


D 


03 


00000000 RG 


D 


04 


0000008C RG 


D 


04 


OOOOOOOB 







000002C8 RG 


D 


04 
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PSECT name 



. ABS 

SABS* 

WORK 

DATA 

CODE 



Allocation 

00000000 
0000FE70 
00000008 
000001 3D 
00000568 



+ — .™™-.— - -+ 
! Psect synopsis ! 

PSECT No. Attributes 

( 0.) OoT"o.) NOPIC USR 

(65136.) 01 ( U NOPIC USR 

( 8.) 02 ( 2.) NOPIC USR 

( 317.) 03 ( 3.) NOPIC USR 

( 1384.) 04 ( 4.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


CON 


A8S 


LCL 


NOSHR 


EXE 


RD 


CON 


RFL 


LCL 


NOSHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC L0N6 

NOWRT NOVEC LONG 

NOWRT NOVEC LONG 
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CONSOLE 
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Cross reference 



*** CONSOLE Console 1/0 handler 



SYMBOL 



SSARGS 

$$N 

$$T1 

ANSI PROMPT 

BELL" 

BIT... 

DC 

BSLASH 

CL1SK BUFS1Z 

CLISK^SIZE 

CLISLJIDDRESS 

CL1$L_C0MMAND 

CLISL J)ATA 

CLISL FLAGS 

CLISL^LAST 

CLISLJIEXT 

CLISL PASS 

CLISL„SUBT 

CLISLJEST 

CLISQ.BUFQWD 

CLISQJILE 

CLISQ^SECTION 

CLISQ„TIME 

CLISTJ3UFFER 

CLISVJWAPTER 

CLISVJWR 

CLISV„ASCII 

CLISV_BREAK 

CLISV.BRIEF 

CLISV.BYTE 

CLISV_CLEAR 

CLISV^DEC 

CLISV^DEFAULT 

CLISV DEPOSIT 

CLISVlEVENT 

CLISVJXAM 

CLISV.FLAGS 

CLiSV_HEX 

CLISV..KERNEL 

CLISV..LOAD 

CLISV_L0NG 

CLISV NOTNUF 

CLISV^OCT 

CLISV..PREG 

CLISV_QA 

CLISV.QACKLOOPLOOPS 

CLISV QAERRORPRINTS 

CLISV^QAMULTIPLEPASS 

CLISV QASUBTESTLOOPS 

CLISV'QATESTLOOPS 
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VALUE 

=000OO00C 

=00000002 

=00000000 

00000450-R 

=00000007 

=00000004 

=00000008 

=0000005C 

=00000100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

0000003C 

=00000018 

=00000008 

=00000013 

=0000000A 

=00000018 

=0000000D 

=00000002 

=00000010 

=0O00O00C 

=00000019 

=00000008 

=00000005 

=00000009 

=Q0Q$ooi2 

=00000017 
=00000006 
=0000000F 
=00000001 
=0000001 1 

=oooooqia 

=00000007 
=0000001 C 
=00000018 
=0000001 F 
=0000001 E 
=0000001 D 



Symbo 



DEFJNIT 



159 

490 

1161 

1135 

173 

163 

174 

188 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 



Cross Reference ! 

— . —+ 



ON 



REFERENCES.. 



159 
#-442 

1161 

1140 
#-1056 

160 
#-1044 
#-953 

157 



490 
159 


(1) 

(1) 


428 


(1) 


435 


(1) 


#-557 
161 


(1) 
(1) 


162 


(1) 


163 


(1) 



#-963 



(1) 



#-415 



(1) 



ZZ-ENSAA-7.0 

CONSOLE 

Cross reference 

CLISV^REG 

CLI$V_REQUIRED 

CUSV RUN 

CLI$v;SET 

CLISV SHOW 

CLISV~VALSEC 

CLI$V WORD 

CMKSRCONSOtE 

CMKSTCONSOLE 

CMKS 

CMK$J\STEX1T 

CMKS.CANTIM 

CMK$_HIBER 

CMKSJNITSCB 

CMK$ LAST 

CMKS MMENABLE 

CMK$„RCONSOLE 

CMKS..REFRESH 

CMK$_SCHDWK 

CMKS SETIMR 

CMK$_SETIPL 

CMK$,S£TPRT 

CMK$_SGIPR 

CMK$ TCONSOLE 

CNTREC 

CNTRLO 

CNTRLQ 

CNTRLR 

CNTRLS 

CNTRLU 

COLUMN 



Cross reference 



CONSFLG 
CR 



& 



CRD$M_CRD DEBUG 
CRD$M CTRC C NO ECHO 
CRDSM FLUSH CTRCC 
CRDSMIINHIBTT ALtOCATE 
CRD$V„CRD DEBOG 
CRDSV CTR[ C NO ECHO 
CRD$V_FLUSR ?TRC C 
CRD$V INHIBTT.ALCOCATE 
DEC PROMPT 
DELETE 
DSSGB WIDTH 
DS$GL~CRD FLAGS 
DS$GL FLA5S 



DSSGL TERMCHAR 



DSSGW TTOUT 
DS$K PRINTS 
DSI^PRINTF 
DS$K PRINTI 



00000003-R 203 

=00000000 179 

=00000001 163 

=00000002 163 

=00000004 163 

=00000008 163 

=00000000 163 

=00000001 163 

=00000002 163 

=00000003 163 

0000044D-R 1134 

=0000007F 189 

00000002-R 201 

00000000-XR 

00000000-XR 



00000000-XR 

00000000-XR 

^00000002 162 

:00000001 162 

rOOOOOOOO 162 



(1) 
(1) 
(1) 



AM 175 
#-757 



*** CONSOLE Console I/O handler 



=00000014 157 

■00000000 157 

=00000015 157 

=00000003 157 

=00000004 157 

=00000016 157 

=OO00O00E 157 

000001 09-R 615 

000002B2-R 823 

=00000004 160 

:00000000 160 

=00000006 160 

=00000007 160 

=00000008 160 

=00000C0E 160 

=00000003 160 

=00000001 160 

=00000005 160 

=00000006 160 

=0000000C 160 

^00000009 160 

=OOOOOQ0D 160 

=0OQOO00A 160 

=00000002 160 

=00000003 172 

=O0Q0OO0F 180 

=00000011 181 

=00000012 182 

=00000013 183 

=00000015 184 

00000000-R 197 
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#-757 
#-548 
#-551 
#-544 
#-979 
#-554 
#-966 
#-759 
#-814 
#-632 
#-787 
#-1001 
220 



#-634 
#-647 

1139 
#-945 
#-419 
634 
603 
#-668 
#-925 
#-1156 
#-1215 
#-428 

#-442 



(1) 
(1) 



#-1175 (1) 



#-540 
#-817 



(1) 
<1) 



#-606 



(1) 



#-540 



(1) 



#-606 



(1) 



(1) 


#-817 


(1) 










(1) 


#-630 


(1) 


#-972 


(1) 






(1) 


#-663 


(1) 










(1) 


#-658 


(1) 










(1) 














(1) 


#-653 


<1) 










(1) 














(1) 


#-793 


(1) 


#-795 


(1) 


#-808 


(1) 


(1) 


#-928 


(1) 










(1) 


#-655 


(1) 


#-660 


(1) 


#-665 


(1) 


(1) 














(1) 


#-1009 


(1) 


VI 


(1) 


214 


(1) 


(1) 


223 


<1) 


#-791 


(1) 







(1) 












(1) 


#-648 


(1) 


#-652 


(1) 




(1) 












(1) 












(1) 


#-430 


(1) 


#-485 


(1) 


#-795 


(1) 


647 


(1) 


648 


(1) 


652 


(1) 


639 


(1) 


640 


(1) 


649 


(1) 


695 


(1) 


780 


(1) 


873 


(1) 


943 


(1) 


952 


(1) 


962 


(1) 


1195 


(1) 


#-1196 


<1> 


1214 


(1) 












(1) 


#-435 


(1) 








(1) 


#-490 


(1) 
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dssk pr1ntx 

dssoype abortj>rogram 
dssk type'abort test 
dssk type~c0mmard err 
dssk type"c0mmand~0ut 
dssk~type~crd autqtest 
dssk type~ds prompt 
dssoypej>s~start 
dssk type,errdev 
dsskjype..errhard 
dsskjype error.body 
dssk type error end 
dssk"type!errprEp 
dsskjype errsoft 
os$k type~errsup 
dssk type"errsys 
dsskjype^err halt 
dssk type exception 
dssk~type~exception head 

ds$OypeIfirst PASS 
dssk.type.generSl 
dsskjype_general error 
dssk type no tests 
DSSK type'paRam error 
dsskjypeIprogrSm end 
dssk type_program„info 
dssk type prugram start 
dssOypeIqiojnvSdp 
dssk type qi0ji0dr1ver 
dssk type qio wrongver 
ds$k"type~scrtpt echo 
dssk""typelscript^pnf 
dssk type script^prompt 
dssk~type~script skip 

ds$k"typelsequence error 
dssk type start err 
dssk~typelstartaist 
dssk type summary 
dssk"type user„prompt 

DSSM^ABRTfLG 

DSSM BADTIME 

DS$M"BATCH 

DSSM"BRKCLR 

DSSM~BRKPT 

DSSM~CHARFLG 

DSSM^CMDFLG 

DSSM^CTRLC 

DSSM CTRLO 

DSSM DEVFLG 

DSSM„DISABLCC 

DSSM DONFLG 

DSSM^ERRFLG 

DSSM EXCEPT 

DSSMJXETST 

DSSM^HLTFLG 

DSSM^LODFLG 

DSSM MEMMGT 



=00000003 
=00000014 
=00000013 
=00000015 
=00000016 
=0000001A 
=00000001 
=0000001 D 
=00000008 
=00000006 
=00000009 
=O000OO0A 
=00000018 
=00000007 
=00000004 
=00000005 
=0000000D 

=oooooooc 

=00000008 

=00000011 

=00000000 

=00000003 

=00000012 

=0000001 c 

=00000010 

=00000017 

=0000000F 

=00000024 

=00000022 

=00000023 

=00000021 

=0000001 E 

=00000020 

=0000001 F 

=00000019 

=00000018 

=00000025 

=O000OOOE 

=00000002 

=00000040 

=00100000 

=00400000 

=00001000 

=00000800 

=00000100 

=00000080 

=00000001 

=00010000 

=00000200 

=01000000 

=00002000 

=00000010 

=00080000 

=00040000 

=00000008 

=00000002 

=00008000 



162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
162 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 



#-442 (1) 
f-490 (D 



0-668 



(1) 0-924 



(1) 
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DS$M OUTPUT 


=00800000 


161 


(1) 


#-924 


(1) 








DS$M„RUBFLG 


=00000020 


161 


(1) 












DS$M_SCRIPT 


=00200000 


161 


(1) 












DS$M SETIMR 


=02000000 


161 


(1) 












DSSM^STRFLG 


=00000004 


161 


(1) 












DSSM.SUBT 


=00004000 


161 


(1) 












DSSH^SYSFLG 


=00000400 


161 


(1) 












DSSM T1MR0N 


=00020000 


161 


(1) 












DS$VJ\BRTFLG 


=00000006 


161 


(1) 












DS$V„BADTIME 


=00000014 


161 


(1) 












DS$V BATCH 


=00000016 


161 


(1) 












DS$V„BRKCLR 


=oooooooc 


161 


(1) 












DSSV.BRKPT 


=00000008 


161 


(1) 












DSSV^CHARFLG 


=00000008 


161 


(1) 












DS$V CMDFLG 


=00000007 


161 


(1) 












DS$V M CTRLC 


=00000000 


161 


(1) 


#-640 


(1) 


#-649 


(1) 




DS$V_CTRL0 


=00000010 


161 


(1) 


#-639 


(1) 


#-780 


(1) 


#-873 (1) #-943 (1) 


DSSVJ>EVFLG 


=00000009 


161 


(1) 












DS$VJ>ISABLCC 


=00000018 


161 


(1) 












DS$VJ>ONFLG 


=0000000D 


161 


(1) 












DS$V_ERRFLG 


=00000004 


161 


(1) 












DS$V„EXCEPT 


=00000013 


161 


(1) 












DS$VJXETST 


=00000012 


161 


(1) 












DS$VJHLTFLG 


=00000003 


161 


(1) 












DS$V_LODFLG 


=00000001 


161 


<1) 












DS$V MEMMGT 


=0000000F 


161 


(1) 












DSSVJHJTPUT 


=00000017 


161 


(1) 


#-602 


(1) 


#-702 


(1) 


#-709 (1) 


DS*VJ?UBFLG 


=00000005 


161 


(1) 


#-951 


(1) 


#-961 


(1) 




DS$V„SCRIPT 


=00000015 


161 


(1) 












DS$V_SETIMR 


=00000019 


161 


(1) 












DS$V_STRFLG 


=00000002 


161 


(1) 












DSSV^SUBT 


=0000000E 


161 


(1) 












DS$V„SYSFLG 


=000OOOOA 


161 


(1) 












DS$V TIMRON 


=00000011 


161 


(1) 












DSASBL FLAGS 


0000FE00 






421 


(1) 


783 


(1) 


785 (1) 


dsa$v,Apt 


=0000001 F 






#-783 


(1) 








DSASVJJORPT 


=00000018 






#-784 


(1) 








DSASV USER 


=0000001 c 






#-421 


(1) 








DSXSPRlNT 


OOOOOOOO-XR 






442 


(1) 


490 


(1) 




END HARDCOPY TYPES 


000001 38-R 


360 














END J/IDEO TYPES 


000001 08-R 


336 














eveRwlaSs 


00000004-R 


205 




1172 


(1) 








FF 


=0000000C 


178 




#-1040 


(1) 








HARDCOPY TYPES 


0000010F-R 


343 




1191 


(1) 








HYPHEN 


=0000002D 


186 














IO$V CANCTRLO 


OOOOOOOO-XR 






#-871 


(1) 








10$ READPROHPT 


OOOOOOOO-XR 






#-926 


(1) 








IO$ISENSEMODE 


OOOOOOOO-XR 






#-428 


(1) 








10$ SETMODE 


OOOOOOOO-XR 
OOOOOOAC-R 






#-435 


(1) 








kb Poll 


538 


(1) 


#-779 


(1) 


#-788 


(1) 




KB^POLL^X 


OOOOOODD-R 


560 


(1) 


#-542 


(1) 


#-545 


(1) 


#-549 (1) #-552 (1) 










#-555 


(1) 








LA36 PROMPT 


000G0454-R 


1136 


(1) 


1141 


(1) 








LASTtHAR 


00000001 -R 


199 


(1) 


#-816 


(1) 


#-930 


(1) 




LF 


=O00O000A 


176 


(1) 


#-1006 


(1) 


#-1036 


(1) 


211 (1) 214 (1) 
#-930 (1) 










220 


(1) 


223 


(1) 


L0WCASE 


=00000020 


171 


(1) 













ZZ-ENSAA-7.0 Cross 
CONSOLE 


reference 

*** CONSOLE 


Console 


I/O 


K 11 
27-JUL-1984 Fiche 
handler 27-JUL-1984 15:11 


4 Frame 
:00 VAX- 


K11 
11 M«» 


Seguence 758 
cro V03-01 Page 43 


Cross reference 










23-JUL-1984 16:22 


: 46 DMA1 


jCSYSO.SYSMAINTKONSOLE. MAR; 10(1) 


MAXJJAIT 


0000047A-R 


1150 


(1) 


1155 (1 












OUTJVSCIC 


0000021A-R 


763 


(1) 


#-698 (1 


) #-799 


(1) 


#-934 


(1) 


#-969 (1) 










#-986 (1 












0UT_CHAR 


0000022F-R 


778 


(1) 


#-1005 (1 


) #-1007 


(1) 


#-1048 


(1) 


#-1057 (1) 










#-1061 (1 


) #-703 


(1) 


#-710 


CD 


ft-7?2 (1) 










#-954 (1 


) #-957 


(1) 


#-964 


(1) 




OUT.CHARX 


000002B1-R 


819 


(1) 


#-780 (1 


) #-785 


(1) 








OUT_CNTRL 


000001 F6-R 


752 


(1) 


#-1168 (1 


) #-637 


(1) 


#-667 


(1) 




OUTJCHO 


0000023A-R 


782 


(1) 


#-558 C 












OUT STRING 


0000021 D-R 


766 


(1) 


#-876 r 


) #-937 


(1) 








PARITY 


=00000080 


170 


(1) 


#-944 c 












PR$ RXCS 


=00000020 






#-618 C 












PP$~RXDB 


=00000021 






#-622 C 












?H% TXCS 


=00000022 






#-826 c 


) #-827 


(1) 








PR$~TXDB 


=00000023 






#-829 C 












PRESDVBLK 


000002E4-R 


922 




#-970 C 












PROMPTS 


00000456-R 


1138 




1157 r 












PSLSVJS 


=0000001A 


160 




#-1175 c 


I) #-540 


(1) 


#-606 


(1) 


#-757 (1) 










#-817 c 












QIO$ ASTADR 


=00000014 


159 
















QIO$"ASTPRM 


=00000018 


159 
















QIOOHAN 


=00000008 


159 
















QIO$.EFN 


=00000004 


159 
















QIOS.FUNC 


=0000000C 


159 




872 ( 


1 ) #-926 


(1) 








QIO$ IOSB 


=00000010 


159 




1066 ( 












GIO$lNARGS 


=oooooooc 


159 
















GIO$ P1 


=0000001 c 


159 




705 ( 


1) #-875 


(1) 


939 


(1) 




QIO$>2 


=00000020 


159 




#-1053 ( 












GIOS..P3 


-00000024 


159 
















onsjH 


=00000028 


159 




#-1013 ( 












QIOS P5 


=0000002C 


159 




#-699 ( 


1 ) #-936 


(1) 








GI0$~P6 


=00000030 


159 
















QUAD~TIME 


00000489-R 


1151 




1155 ( 


1) 1161 


(1) 








quesTn 


=0000003F 


187 
















READVBLK 


000002E4-R 


923 
















RECVD BUF 


00000466-R 


1149 




#-1169 ( 


1 ) 1 1 70 


(1) 


#-1179 


(1) 


1208 (1) 


RECVD'BUF LENGTH 


=00000014 


1144 




1149 ( 












R INPUT 


000000E0-R 


601 




#-607 ( 


1) #-609 


(1) 


#-942 


(1) 




RINPUTX 


000001 08-R 


612 
















RTYPE 


000001BE-R 


694 




#-604 ( 


1 ) #-987 


(1) 








SIZ... 


=00000001 


163 




161 ( 


1) 163 


(1) 








SIZE. TERM 


00000491 -R 


1153 
















SPACF 


=00000020 


185 




#-805 ( 












SS$_CONTROL r 


00000000-XR 






#-976 ( 












SS$ WASSET 


00000000-XR 






#-1173 ( 












SYSJBINTIM 


00000000-XR 






1155 ( 












SYSSOIOW 


00000000-XR 






428 ( 


1) 435 


(1) 








SYSSREADEF 


00000000-XR 






1172 ( 












SYS$SETEF 


00000000-XR 






1071 ( 


1) 877 


(1) 








SYSSSETIMR 


00000000-XR 






1161 ( 












TAB 


=00000009 


175 


(1) 


#-1042 ( 


1 ) #-803 


(1) 








TT$M SCOPE 


=00001000 






#-1186 ( 












TT$ TA100 


=00000025 






350 ( 












TT$ LA12 


=00000024 






347 ( 












TT$~LA120 


=00000021 






353 ( 












TTS~LA3A 


=00000022 






356 c 


1) 359 


(1) 








TT$_LA36 


=00000020 






#-1194 ( 


1) 364 


(1) 






i 



ZZ-ENSAA-7.0 
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Cross reference 

TT$ UNKNOWN 
TTSJ/T100 



TTSJ/T52 

TT$ VT55 
TT$IVT5X 

T^CNTRLC 

T CNTRLO 

TCNTRLR 

T^CNTRLU 

T CRLF 

T~LA100 

TJ.A12 

T LA120 

TJ.A34 

T LA34A 

T,LA36 

T SHOW WIDTH 

Tlvnoo 

T VT100A 

T~VT100B 

T"VT100C 

T"VT100D 

T~VT100E 

T"VT100F 

T"VT100G 

T"VT100H 

OT220 

T.VT240 

T VT50 A 

T~VT50~B 

rvT5o;c 

T VT50 H 

T"VT50"j 

rvT52~K 

TJ/T52..L 

T VT52 M 

OT55"E 

T WIDTR 

VIDEO TYPES 

VRSETOIDTH 

VRSHOWWIOTH 

VT 

WRITEVBLK 



Cross reference 



*** CONSOLE Console I/O handler 
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:00000000 
=00000060 



=00000040 
=00000041 
=00000040 

00000000-R 210 

0000000F-R 219 

0000000C-R 216 

00000007-R 213 

00000014-R 222 

000001 17-R 348 

0O00010F-R 345 

000001 1F-R 351 

000001 26-R 354 

000001 2F~R 357 

000001 5C-R 363 

00000048-R 228 

0000009F-R 273 

0000009A-R 264 

0OO0OOA8-R 276 

000000B1-R 279 

0000008A-R 282 

00C000C3-R 285 

OOO00OCC-R 288 

0OO0OOD5-R 291 

0O000ODE-R 294 

0O0000E7-R 297 

000000F7-R 300 

0000006D-R 237 

00000072-R 240 

00000077-R 243 

00000081-R 249 

00000086-R 252 

0000008B-R 255 

00000090-R 258 

00000095-R 261 

0000007C-R 246 

0000001 7-R 225 

0000006D-R 235 

00000000-R 414 

0000008C-R 484 

^OOOOOOOB 177 

000002C8-R 870 



299 
266 
284 
296 
257 
248 
239 
254 
636 
666 
985 
968 
697 



490 



302 
275 
287 


(1) 
(1) 
(1) 


278 
290 


(1) 
(1) 


281 
293 


(1) 
(1) 


260 


(1) 


263 


(1) 






242 


(1) 


245 


(1) 


251 


(1) 



798 



(1) 



933 



(1) 



(1) 



442 (1) 
1187 (1) 



#-1038 (1) 
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*** CONSOLE Console I/O handler 



M 11 
27-JUL-1984 Fiche 4 Frame M11 Sequence 760 
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MACRO 



SIZE 



SASNPUSH 

SBINTIM S 

SD1 PRlRT_S 

$DEF 

SDEFINI 

$DSJ>SADEF 

$DS TYPEDEF 

SEQU 

SEQULS1 

SEQULST 

SGBLINI 

SOFFDEF 

SPRDEF 

SPRINT 

SPUSHADR 

SPUSHTWO 

SQIODEF 

SQIOPUSH 

SQIOW S 

SREADEF S 

SSETEF G 

SSETIMR S 

STTDEF 

SVIELD 

SVIELD1 

BR IF CTRLO 

BR IF'CTRL C NO ECHO 

BR'IFIFLUSR CTRC.C 

br~if not apt 
br~if"n0t"user 
clEar'ctrCo 
clear~flush ctrl_c 

CLIDEF 
CMK 

CMKOEF 

CRDOEF 

OSFDEF 

SET CTRLC 

SET"CTRLO 

SET FLUSH CTRL C 



! Macros Cross Reference ! 


w ■ • • 




DEFINITION REFERENCE 




1161 m 


1161 (1 






1155 (1) 


1155 (1 






442 m 


442 (1 


) 490 


(1) 


163 m 








156 (1) 


156 (1 


) 158 


(1) 


156 (U 


156 (1 






162 <1J 


162 (1 






163 (13 


160 (1 


) 162 


(1) 


162 m 


160 (1 


) 162 


(1) 


160 cu 


160 (1 


) 162 


(1) 




160 (1 


) 161 


(1) 


159 (i; 


159 r 






158 n; 


158 (' 






440 (i; 


440 (* 


) 487 


(1) 


428 (i: 


> 1155 (' 
435 c 


) 1161 


(1) 


428 (1. 


) 428 C 


) 435 


(1) 


159 (1. 


» 159 C 






428 (1. 


> 1161 C 


) 428 


(1) 


425 (1, 


) 425 (* 


I) 432 


(1) 


1172 (1- 


) 1172 (* 






877 (1. 


) 1071 (* 


I) 877 


(1) 


1161 (1. 


) 1161 C 






164 (1- 


> 164 (* 








161 C 


I) 163 


(1) 


163 (1 


) 161 (' 


I) 163 


(1) 


780 (1 


) 780 C 






634 (1 


) 634 ( 






647 (1 


) 647 C 






783 (1 


) 783 C 






421 (1 


) 421 ( 






873 (1 


) 873 C 


I) 943 


(1) 


652 (1 


) 652 C 






157 (1 


) 157 ( 






540 (1 


) 1175 ( 
817 ( 


1) 540 


(1) 


160 (1 


) 160 ( 






163 (1 


) 163 ( 






161 (1 


) 161 ( 






640 (1 


* 640 ( 


1) 649 


(1) 


639 (1 


) 639 ( 






648 (1 


) 648 ( 







164 



(1) 



162 



(1) 



1172 (1) 



163 (1) 
428 (1) 



435 



(1) 



606 (1) 



757 (1) 



N 11 
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+ — ™-+ 

! Performance indicators ! 

+ + 



Phase 



Page faults 


CPU Time 


Elapsed Time 


34 


00:00:00.12 


00:00:00.27 


147 


00:00:00.72 


00:00:01.69 


887 


00:00:12.46 


00:00:28.73 





00:00:00.96 


00:00:02.42 


307 


00:00:03.37 


00:00:05.34 


40 


00:00:00.26 


00:00:00.42 


8 


00:00:00.04 


00:00:00.27 


146 


00:00:01.38 


00:00:02.04 


1572 


00:00:19.33 


00:00:41.20 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

66786 bytes (131 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 572 non-local and 79 local symbols. 

1219 source lines were read in Pass 1, producing object records in Pass 2. 

83 pages of virtual memory were used to define 41 macros. 

4- ™. + 

! Macro library statistics ! 

Macro library name Macros defined 

DRB1:[DS.W0RK]DIAG.MLB;955 3 

DRBi:CDS.W0RKDDS.MLB;218 16 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 

DMA1:[SYS0,SYSMAINT]DS,MLB;218 

DMA1:[SYS0.SYSMAINT]DIAG,MLB;953 

SVS$SYSR00T:CSYSLJB]LIB.MLB;1 

SYS$SYSR00T;rSYSL!BJSTARLET,ML8;2 18 

TOTALS (all libraries) 37 

702 GETS were required to define 37 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST = [DS.L I S]/CROSS/ENABLE = ( DEBUG, TRACE) CONSOLE /UPDA=( CONSOLE .UPD, CONSOLE .ENH)+SYS$LIBRARY:LIB/LIBRARY+DMA1 -.CSYSO.SY 



7Z-ENSAA-7.0 










0001 

0002 

0003 
0004 
0005 
0006 
0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 

0027 

0028 

0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
003d 
0039 
0040 
0041 
0042 
0043 
0044 

0045 

0046 
0047 

0048 
0049 
0050 
0051 

0052 

0053 

0054 

0055 

0056 

0057 












































* * * 



Loading and Unloading the CRD Jfflage 
*** Loading and Unloading the CRD Inuge 



B 12 
7-Jul 



?S4 



!7-Jul-198'. 
!6-Jul-198'i 



16:01 

09:31 



Hche 4 frame B12 Sequence 762 

:30 VAX-11 BUss-32 V4. 0-742 Page 1 

:37 DMA1:[SYS0.SYSMAINTJCRDJMAGE.832;87 (1) 



XTITLE 
MODULE 



** * 



CRDIMAGE ( 



Loading and Unloading the CRD 



IDENT = '02-11' 
) * 

♦ ♦ 

COPYRIGHT (c) 1980, 1981 
DIGITAL EQUIPMENT CORPORATION, 



Image' 
Routines 



to handle loading and unloading the Loadable-CRD image 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR US e ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT QE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUl NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 



ITS 



♦ + 



Facility: 

Diagnostic Supervisor (part of the Resident-DS image). 

Abstract: 

This module contains the routines necessary to load the CRD-Loadable image 
it with the Resident-DS, thus putting the Supervisor under control of CRD. 
the routines necessary to unload the CRD image. 

Author; 

Jack Stansbury 
Creation Date: 

29«March-1982 
Version 

Version 6,9 



file and Integrate 
it also now contains 



Modified By: 
01 



Jack Stansburv, 29~June-1982, Version 6.8 

Took out checking the DS verification bytes, and the check to see 1f 
the DS vector count EQL'ed the CRD vector count (why was this in there 
anyway???). Assume that the DS verification bytes are okay. It is CRD 
that 1 am verifying anyway! 



02 



ymg anyway 

Jack Stansbury, l-juty-1982. Version 6.8 

You dummy! I put the check of the vector count in 

If the vector counts are not the same, one or the 



there for a aood reason! 
other may get some other 
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CRDIMAGE 

02-11 



** * 



0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

































































































1 

1 
1 
1 
1 
1 
1 
1 
1 
1 



Loading and Unloading the CRD Image 
Loading and Unloading the CRD Image 



C 12 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 4 Frame C12 Sequence 763 
16:00:30 VAX-11 BHss-32 V4. 0-742 
09:38:37 DMA1 :[SYS0.SYSMAINT3CRDIMAGE.B32;87 



Page 



2 
(1) 



03 



04 



05 



06 



07 



08 



09 



10 



11 



data overwritten (i.e., data following the dispatch vectors). This must 
NOT happen. So, if the vector counts are not equal, it is an incompat- 
ibility error (not a corrupted error). 

Jack Stansbury, 15-July-1982, Version 6.9 

Added support for loading in the CRD Menu Test file. Which file to load in 

depends on which DSA bit is set. 

Jack Stansbury, 25-July-1982, Version 6.9 

Added code to check to see if this was running in User-Mode, and if so, then 
use the CRDSExpReg routine; else use SExpReg to expand the VDS's memory. 
Note that although CRD Menu Test will NOT be normally run in User Mode, 
it is run this way when it is being debugged. Whether or not it should run 
is determined by the CLJ routines. 

Jack Stansbury, 7-September-1982, Version 6.9 

Made major modifications to all the routines in this module. I renamed it from 

LoadCRD to CRDImage. Added many routines. 



Jack Stansbury, 26~0ct~1982, Version 6.9 
Added code to disable printing *C*s duri 



ng running of CRD. 



Jack Stansbury, -2-Mar-1983, Version 6.1'i 

Improved the debugging mode of CRD. Added SET CRD/DE8UG to the CLI. 
Made printout of debug vectors much better and much more informative. 
Put the actual debug vector printout in this module rather than in a 
CRD module. Also took out references to the DS$K Numb_Dispatch_Vectors, 
Also added the DSRSPrint Typecode Name routine. Tor use by all the VDS. 
Also changed the check to see if ?he debug flag was set (in CRD.Error). 

Jack Stansbury, 7-Mar~1983, Version 6.11 

Added the DSRlShow^Cal Is routine - this is a global routine (JSB linkage) 

that will print the contents of the last 'n 1 call frames on the stack. 

Jack Stansbury, 8-Mar-1983, Version 6,11 

Took out the DSR$Show_Calls routine. I created a new module for this routine 

called CallFrame.832. That routine didn't realy belong in here. 

John Ciukaj 4-Apri 1-1983 Version 6.11 
- Changed references to CRD Bits in DSA Flags 
to distinguish between online and offline 



Jack Stansbury, April 4, 1983, Version 6.11 
Made Exchange Dispatch^Vectors into a global 
be accessed through the debugger (DEBUG-32). 



routine so it can 



3SBTTL 
BEGIN 

LIBRARY 



LIBRARY 



LIBRARY 



'Libraries' 



'$DS'; 



•SDiag'; 



'$CRD\- 



Begin the CRDIMAGE module 
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CRDIMAGE 

02-11 



0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
OHO 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
P 0169 
P 0170 
P 0171 



Libraries 

*** Loading and Unloading the CRD Image 

Libraries 
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LIBRARY 

2SBTTL 

FORWARD 



'Sys$Library:Lib'; 
•Table of Contents 1 

ROUTINE 

Exchange^ i spat ch_Vec tors 



DSR$Load_CRD 



DSR$Unload_CRD 



DSR$Restore_CRD_Vectors 



CRDJxit 
CRD^Error 
Internal.. Error 

DSRSPrint_TypeCode..Name 
JiSBTTL 'Included Macros and Literals' 



SCRD Literals; 
SDSjSSDef; 
$DS TypeDef; 
$DS DSADef; 
'OtRer Literals' 



2SBTTL 
LITcRAL 



NOVALUE ADDRESSINGJIODE (LONG.REl.ATI VE) , 

Exchange the dispatch vectors between the DS and CRD 

NOVALUE ADDRESSING MODE (L0NG„RELATIVE) , 
Load the CRD Loadable image file 

NOVALUE ADDRESSING MODE (LONG^RELATIVE) , 
Unload the CRD LoaBable image file 

NOVALUE ADDRESSINGJIODE (LONGJiELATIVE) , 

Restore the CRD dispatch vectors - this is called by the BEGINO label 
in the KERNEL module. The Unload CRD routine cannot be called because 
memory has already been re-mapped by the time BEGINO executes* 

NOVALUE ADDRESSING MODE (LONGJ*ELATIVE> , 

Either exit from the VDS image (back to the console), or to the CLI. 

NOVALUE ADDRESSINGJIODE (LONG RELATIVE;, 

Print an error message and taRe appropriate action(s), 

NOVALUE ADDRESSINGJIODE (LONG RELATIVE) , 

Print the extended debugging information about CRD. 

NOVALUE ADDRESSINGJIODE (LONG.RELATIVE) ; 
! Print the message 

! Define the CRD literals 

! Define the DS service routine vector addresses 

! Define the typecode literals 

! Define the DSA flags. 



•CO? 
!C07 

!C07 
!E07 



LITERAL 



The SID Type field for the VAX'en (see the SRM for more on this) 



SID..780 = 1, 
SIDI?50 = 2, 
SID.730 = 3; 



These indicate to the Error routine whether or not the space has been allocated 
for the CRD image. 

SEquLst (K LOCAL, 0, 1 
,(RegionJxpanded) 
, (Region_Not_Expanded) 



ZZ-ENSAA-7.0 

CRDIMAGE 

02-11 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



0172 

0173 

01 74 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

01 84 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



Other Literals 

*** Loading and Unloading the CRD Image 

Other Literals 



E 12 
27-Jul-1984 
27-JuM9M 
26-JuM984 



16:00:30 
09:38:37 



Fiche 4 Frame E12 



Sequence 765 
VAX-11 BMss-32 V4. 0-742 
0HA1:CSYS0.SYS«AINT3CRDIMAGE.B32;87 



Page 



4 

(1) 



These are the types of errors that are detected and reported. 



SEquLst (K , LOCAL, 0, 1 
,(Ro DSA Bit.Set) 
, (WrongJ^PU) 
.(Determine. Size) 
, (Expand Region) 
,<Load F7le) 
,(CRD_ Internal) 
, (Corrupted) 
, (Incompatible) 
, (Not, Contracted) 
,<MM_Ts On) 
,(Last_fcrror.,Type) 



in both the DSSAL.DS.Dispatch.Vectors 



) 



These are used to reference the first longword 
and the CRD$AL_CRD_Dispatch_Vectors longwords. 



SEquLst (K , LOCAL, 0, 1 

, (Rumber.Of.. Vectors) 
, (Positive_Version) 
, (Negative~Version) 
,(Null_Byte) 
), 



Use these to reference the CRD.Image, Location array, 

SEquLst (K , LOCAL, 0, 1 
, (Starting Adr) 
,(Ending_A3r) 

Use these to reference the DSSQ CRD Image.Desc descriptor. Note that this is not a normal 
descriptor, since the size fielB is'a longword, rather than a word. This is so because the 
si2e of the CRD image may be bigger than 65536 (or whatever that number - 2 A 16 - is). 



SEquLst (K , LOCAL, 0, 1 
,(Tmage_Size) 
, (Image^Ptr) 

ZSBTTL 'External' Routines' 



EXTERNAL ROUTINE 

DS_Cleanup 



: JS8.None ADDRESS I NGJ10DE (LONG.RELATIVE) , 

! Cleanup the diagnostic before going back to CLI command mode 



ZZ-ENSAA-7.0 

CRDIMAGE 

02-11 



0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0281 

0284 

0285 



External Routines 

*** Loading and Unloading the CRD Image 

External Routines 

MapFree 



CRDSExpReg 
DSR$Check_MenuTest_Off_Set 

DSR$Check_AutoTest.Off..Set 

ExeSAloNonPaged 
ExeSDeaNonPaged 
DSVSExit 

%SBTTL 'External Own Storage' 

EXTERNAL 

Begin_Bliss 

D$$GA_DS_Ctrl..C_ First 

DS$GAJ>Sj:trL_C_Second 

DS$L_UserCntrlC 

DSS6L. Flags 

D5$AL_DS_Di spa tch_Vec tors 

DS$GL_CRD_FLags 

DS$GA..LastAdr 

DSSGL.CRD.Debug 

SSBTTL *Psect Definitions 1 

PSECT 
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ADDRESSING.MODE <L0NG_RELATIVE), 
Map all of free memory 

ADDRESSINGJ10DE <L0NGJ*ELATIVE>, 
Expand Rogion for CRD. 

JSB.None ADDRESSINGJWDE (L0NG.RELATIVE), 

Return 1 if the MenuTest bits are set in the R5 passed to the VDS 

JS8 None ADDRESSJNGJ10DE (LONG.RELATIVE), 

C10] 
Return 1 if the AutoTest bits are set in the R5 passed to the VDS 

JSBJULoc ADDRESSING J10DE (L0NG..RELATIVE), 
Allocate a block of memory from non-paged pool 

JSB Dealt ADDRESSING MODE <L0NGJ?ELATIVE), 
Deallocate a block o? memory from non-paged pool 

JSB None ADDRESSING MODE (LONG..RELATIVE); 

Use a JSB instruction to get to this routine. Use this routine to 

cause the Resident-DS to exit. 



ADDRESSINGJ10DE (L0N6..RELATIVE), 

The location of the Begin_Bliss label (in the KERNEL module). 

ADDRESSING MODE (LONG RELATIVE) , 
The first *C handler Tor the VDS 

ADDRESSING MODE (LONG^RELATIVE), 
The second A C handler for the VDS 

ADDRESSING.MODE (L0NG„RELATIVE), 
The user*s *C handler 

ADDRESSINGJ10DE (L0NG.RELAT1VE), 
The DS flags longword 

ADDRESS1NG_M0DE (LONG RELATIVE), 

The start of the Resiaent-DS dispatch vectors 

ADDRESSJNGJ10DE (LONG^RELATJVE) , 

The DS/CRD flags longword in the DSVECS module 



(1) 



ADDRESSING MODE (LONG RELATIVE), 
The last address at the top of t 
has been allocated for the QIO database and the SCRIPT junk). 



The last address at tKe top of the Supervisor image .(after the memory 



ADDRESSING.MODE (LONG.RELATIVE); 

This longword contains either or 1 . 1 implies CRD will print CRD 

debugging messages, Implies it will not. 



ICO? 
SCO? 

!CO? 



ZZ-ENSAA-7.0 

CRDIMAGE 

U2-11 



0286 

028? 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

029? 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

03K 

0315 

P 0316 
0317 
0318 
0319 
0320 

P 0321 

P 0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 

P 0335 

0336 
0337 

P 0338 
0339 
0340 
0341 
0342 



Psect Definitions 

*** Loading and Unloading the CRD Image 

Psect Definitions 
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PLIT = Data (NQEXECUTE, SHARE, NOWRJTE, ADDRESSING.MODE (LONG.RELATIVE) ) 

PSECT 

CODE = Code ( EXECUTE, SHARE, NOWRJTE, ADDRESSINGJ10DE (LONG.RELATIVE)) 

= Work (NOEXECUTE, NOSHARE, WRITE, ADDRESSING.MODE (LONG.RELATIVE)) 



PSECT 
OWN 



PSECT 

GLOBAL = Work (NOEXECUTE, NOSHARE, WRITE, ADDRESSING.MODE (LONG..RELATI VE) ) 
XSBTTL 'Module-Global Static Storage 1 



ModNarr. (' CRDIMAGE'); 
XSBTTL 'Local ASCIC Bindings' 



BIND 



T_CRD_Ifnage,Name 
T_CRD_Image_Default 



TJJull 
T Menu 
T~Auto 



TJnvalid CPU 
T_File_Not Found 
T_Unknown_trror 

^Contraction Error 
T^IncompatibiTity.Error 
^Corrupted Error 
T MM On 



T_AUTO Abort CRD 
T.AUTO EndJIessage 
T^AUTO ExitJo„Console 
TJVoJ>5A_Bit_Set 

T^Wrong CPU 
rCPujBO 
T CPU 750 
OPlCUnknown 

T^Determine w Si2e 

T.Expand Region 
T Load File 



T_CRD Internal 
T^CRD.JnternaLHeader 



I Module name for ErrSup i,,acro 



= SASCID ('ENSAB. EXE;0'>. 

! The name of the CRD Loadable Image file 

= SASCID ("), 

! The default name for the CRD Loadable Image file 



= SASCJC ("), 

= SASCIC ('MENU TEST'), 

= SASCIC CAUTO TEST'), 



SASCIC 
SASCIC 
SASCIC 

SASCIC 
SASCIC 
SASCIC 
SASCIC 



(••/CRD !AC ONLY SUPPORTED ON A VAX-1 1/730,725 !/*) , 
•1/UNABLE TO FIND THE LOADABLE PORTION OF CRD !AC!/M, 
'!/ERR0R WHILE ATTEMPTING TO LOAD THE LOADABLE PORTION • 
•OF CRD IAC!/'), 

* J/ERROR WHILE ATTEMPTING TO EXIT CRD !AC!/'), 
•J/INCORRECT VERSION OF CRD !AC!/'), 
••/THE LOADABLE PORTION OF CRD !AC IS CORRUPTED!/'), 
'! /CANNOT CONTINUE CRD - MEMORY MANAGEMENT MUST BE 0FF\ 
'•/TO TURN OFF MEMORY MANAGEMENT. TYPE "SET MM OFF 1 ", 
'I/RESTART CRD BY TYPING "CRD"!/'), 



i C03 

•C03 

•C03 
•C03 



!C03 
IC03 



!C03 
•C03 
!C03 

!C03 
•C03 



= SASCIC C!/!/AUT0 TEST ABORTED - CALL FIELD SERVICE')- 

= SASCIC C !/**** END OF VAX-1 1 /730,725 AUTO TEST ****'), 

= SASCIC C!/i/RETURNING TO VAX-11/730,725 CONSOLE, WAIT FOR "»>" PROMPTS/ 1 

= SASCIC ('**« No DSA bit is set - DSASGLJlags * !XL(X)!/'), 

= SASCIC ('*** CRD cannot be run on this CPU - this is SAC CPU!/ 1 ), 

= SASCIC Ca VAX-1 1/780'), 

= SASCIC Ca VAX-11/750'), 

= SASCIC Can unknown 1 ), 

= SASCIC (•*** Error while determining size of the ENSAB file \ 

'- Status = !XL(X)!/'), 
= SASCIC ('*** Error while expanding the region - Status = !XL(X)!/'), 
= SASCIC (•*** Error while loading the ENSAB file into memory ', 

'- Status = !XL(X)!/'), 

= SASCIC (•*** A CRD Internal Error occurred!/'), 

= SASCIC ('*** The following are the CRD debug vectors:!/'). 



ZZ-ENSAA-7.0 

CRDIMAGE 
02-11 



0343 

0344 

0345 

P 0346 

0347 

0348 

0349 

0350 

P 0351 

P 0352 

0353 

0354 

0355 

0356 

0<57 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 



Local ASCIC Bindings 

*** Loading and Unloading the CRD Image 

Local ASCIC Bindings 

T_CRD_ Interna I w Debug 

T^Not. Contracted 
^Corrupted 

^Incompatible 



T.Trace_Header 



XSBTTL 
OWN 
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= SASCIC ('*** Debug vector [JUL]: !XL(X) !-!SL(D> !/'), 

= SASCIC (•*** The region was not contracted - Status s !XL(X)!/*), 
= $ASCIC (•*** Either the Null byte is not null, ', 

'or the version numbers are wrong!/'), 
= SASCIC ('*** These versions of ENSAB and ENSAA are incompatible!/'). 



* SASCIC 



(•!/*** Beginning the CRD Tracing Facility'. 
•!/*•* All statements that begin with "***" \ 
*ars CRD trace statements!/!/ 1 ), 



T_TraceJ 
T_Trace^2 

T_Trace.,4 
T_Trace_5 
T»Trace.6 
T Trace.? 

'Own Storage' 



= SASCIC ( 
= SASCIC ( 



'*** DSRSLoad CRD: Starting location of CRD: !XL(X)!/') ( 
'*** DSRSLoad^CRD: Size of the CRD image: »XL(X> !/!/*), 



SASCIC 
SASCIC 
SASCIC 
SASCIC 



(•*** 
(•*** 
(**** 
(**** 



DSRSLoad^CRD: Vector count: 

DSRSLoad^CRD: Positive version 

DSRSLoad^CRD: Negative version 

DSRSLoad.CRD: Null byte; 



number: 
number: 



DS 
DS 
DS 
DS 



!4SB CRD 

!4SB CRD 

!4SB CRD 

!4SB CRD 



!4SB! 
!4SB! 
!4SB! 
!4SB! 



An a 

DSSAL 
the 



array containing the original values in the DSVECS dispatch vectors. Anytime th 
AL DS Dispatch Vectors (DSVECS module) do not contain uhat they originally had, 
ir'orTginal values. Otherwise, this array contains XX'FFFFFFFF* so as to provid 



Anytime the vectors starting at 

', this array does contain 
de a debugging check. 



DS$A M CRD_Vectors 



: VECTOR CCRDSK Total Numb. Vectors, LONG] 

INITIAL (REP CRDSK.TotaLNumb.Vectors OF UX'FFFFFFFF')), 



IC07 
!C07 



! + 



! A descriptor pointing to the DSSA CRD_ Vectors array. This descriptor is used to access the array. 



DSSQ_CRD_Vector_Desc 



: BLOCK C8, BYTE] 
PRESET ( 

CDSCSW.Length] = 0, 
CDSCSAJ^ointer] = 0, 
[DSCSB^DType] = 0, 
CDSCSB.Class] = 

), 



A 'descriptor' for the CRD image itself. 



DS$Q_CRD_Image..Desc 



: VECTOR C2, LONG] 
PRESET ( 



KJmage^Size] = 0, 



). 



ty 



mage^Pt 



w: 







Save the value of the DS$GA_lastAdr before it is changed in the Load_CRD routine. 



ZZ-ENSAA-7.0 

CRD1MAGE 

02-11 



0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
M 0418 
M 0419 
M 0420 
M 0421 
M 0422 
M 0423 
M 0424 
M 0425 
M 0426 
M 0427 
M 0428 
M 0429 
M 0430 
M 0431 
M 0432 
M 0433 
M 0434 
M 0435 
M 0436 
M 0437 
M 0438 
M 0439 
M 0440 
M 0441 
M 0442 
M 0443 
M 0444 
M 0445 
M 0446 
M 0447 
M 0448 
M 0449 
M 0450 
M 0451 
M 0452 
M 0453 
M 0454 
M 0455 
M 0456 



Own Storage 

*** Loading and Unloading the CRD Image 

Own Storage 

DSSA,Saved_LastAdr 
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: INITIAL (0), 



Save the contents of the DSASGL^F lags longword before starting CRD - for restoring it to it's 
original value. Do this for the DS flags also. 



DSSL„Saved_DSA Flags 
DSSL_Saved_DS./lags 



: INITIAL (0), 
: INITIAL (0), 



MACRO 



Points to either TJIenu, T_Auto, or T_Null, 



DSSAJ\uto_0r_Menu; 



Module Debug (Debug String) = 
XIF XVARJANT 



STHEN 



If this module has been compiled with 
debugging statements will be compiled 
Module.Debug CA debug string 1 ); 



the /VARIANT:n 
also. This can 



qualifier where 
be invoked with 



n <> f then the 
the following: 



!C07 
! V 



foil 



8E6IN 
MAP 



BIND 



DS$A_CRD_Vectors 
DSSG_CRD.Jmaqe,Desc 
DSSQ CRD_Vector_Desc 



VECTOR 
VECTOR 
VECTOR 



[, LONG], 
C, LONGJ, 
C, LONG]; 



Debug„OutJ 
Debug^Out 2 
Debug.0ut.3 
Debug^0ut^4 
DebugJ)ut.,5 
Debug.0ut_6 



SASCIC 
SASCIC 

SASCIC 
SASCIC 
SASCIC 
SASCIC 



( '**** 
( • * * * * 
( • **** 
( ■ **** 

j [ • * * * * 



1 ! / ' ) 



Debug String, 

DSA Flags = 

Image^Desc C03 = 

Vector Desc [03 = 

Saved^vectorCOJ = 

Saved.LastAdr = 



!XL, 
!XL, 
!XL, 
!XL, 
IXL, 



DS Flags 
ImageJ5esc [1] 
Vector Desc [13 
Saved,vector[13 
DS$GA_LastAdr 



!XL!/'), 
!Xl!/'>, 
!XL!/'>, 
!XL!/'), 
IXLI/M; 



JF (.DSASV w CRD„MenuTest_Off OR 
.DSASV^CRD AutoTest.Off OR 
.DSASVCRD.MenuTest On) THEN 



BEGIN 

SPrlnt 

SPrint 

SPrint 

SPrint 

SPrint 

SPrint 

END 



(DSSK.Type^CRD.AutoTes 
(DSSK Type CRDJVutoTes 

.DSASGLjTags, .DSSGL 
(DSSK Type„CRDJ\utoTes 

.DSSQ CRD Imdge..Desc 
(DSSK Type^CRD AutoTes 

.DSSQ ERD_Vector Desc 
(DSSK Type^CRD AuToTes 

.DSSA CRD~Vec?ors [0] 
(DSSK Tvpe„CRD_AutoTes 

,DSSA_&aved_LastAdr, 



t, DSSK_PrintF, Debug„.OutJ ); 

t, DSSKJ>rintF, DebugJ)u^2, 

Flags); 
T, DSSK PrintF, Debug Out.,3, 
C03, .DSSQ CRDJmageJJesc [13); 
t, DSSK PrintF^ Debug.,0ut,4, 

t03, .BSSQ.CRDJ/ector Desc C13); 
t, DSSK PrintF, Debug 0ut_5, 
, .DSSA^CRD^Vectors [T3); 
t, DSSK PrintF. Debug_Out_6, 
.DSSGAjastAdr); 



ZZ-ENSAA-7,0 

CRDIMAGE 

02-11 

M 0457 1 

M 0458 1 

M 0459 1 

M 0460 1 

M 0461 1 

M 0462 1 

M 0463 1 

M 0464 1 

M 0465 1 

M 0466 1 

M 0467 1 

M 0468 1 

M 0469 1 

M 0470 1 

M 0471 1 

M 0472 1 

0473 1 

0474 1 

0475 1 

0476 1 

0477 1 
04 78 1 

0479 1 

0480 1 

0481 1 

0482 1 

0483 1 

0484 1 

0485 1 

0486 1 

0487 1 

0488 1 

0489 1 

0490 1 

0491 1 

0492 1 

0493 1 

0494 1 

0495 1 

0496 1 

0497 1 

0498 1 

0499 2 

0500 2 

0501 2 

0502 2 

0503 2 

0504 2 

0505 2 

0506 2 

0507 2 

0508 2 

0509 2 

0510 2 

0511 2 

0512 2 

0513 2 



Own Storage 

*** Loading and Unloading the CRD Image 

Own Storage 
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ELSE 



X; 



%fl 



END 



BE6JN 

SPrint 

SPrint 

SPrint 

SPrint 
SPrint 
SPrint 
END 



(DSSK Type General, DSSK PrintF, Debug.OutJ ); 
(DSSK'Type General, DSSK PrintF, Debug_0ut_2, 

.DSAJGL^Flags, .DSSGL Flags); 
(DSSK Type General, DSSK PrintF, Debug_0ut,3, 

.DSSu CRD Image.Desc EOJ, .DSSG..CRDJmage..Desc 
(DSSK Type General, DSSK.PrintF, Debug M 0ut_4, 



C13); 



.DSSQ CRD.Vector Desc C03, .DSSC) CRDjector_Desc C13); 
(DSSK Type General, DSSK PrintF, Debug^Out 5. 

.DS$A CRD'Vectors CO], .DS$A_CRD Vectors T1J); 
(DSSK Type'General, DSSK PrintF, Bebug,0ut„6, 

•DS$fl_SavedJ.astAdr, .D5$GA_LastAdr); 



IC07 



XSBTTL f DSR$Load_CRD Routine* 

GLOBAL ROUTINE DSRSLoad.CRD : N0VALUE = 



+ + 



Functional Description: 

Load the CRD Image file into memory starting at the last address in the Supervisor. This address 

is contained in the variable DSSGA^LastAdr. Reset this variable after CRD has been loaded in to point 

to the last address used by CRD. Expand the region occupied by the Supervisor. 

Formal Parameters: 

None 

Side Effects: 

Changes the address contained in D$$GA„LastAdr, 

Loads the CRD image file into memory starting at the last address used by the Resident-DS. 

Exchange dispatch vectors with CRD and DS for the CRD routines. 

Completion Codes: 

None 

BEGIN 

MAP 

DSASGL^SID 

PlwISTER 



! Routine DSRSLoad.CRD 
VECTOR [, BYTE]; 



Page„Count, 
Status; 



LOCAL 



CRD Actual Length, 
CRD.FUe.. Attributes, 

CRDJmage.location 



! The number of pages of memory required for CRD image 

! A status variable 

! The actual length of the file in bytes 

! The attributes of the CRD image file 

: VECTOR C2< LONG]; 

i The starting and ending addresses of the expanded region 



ZZ-ENSAA- 


7.0 


CROIMAGE 




02-11 




; 0514 


2 


; 0515 


2 


; 0516 


2 


; 0517 


2 


; 0518 


2 


; 0519 


2 


; 0520 


2 


; 0521 


2 


; 0522 


2 


; 0523 


2 


; 0524 


2 


; 0525 


2 


; 0526 


2 


; 052? 


2 


; 0528 


2 


; 0529 


2 


; 0530 


2 


; 0531 


2 


; 0532 


2 


; 0533 


2 


; 0534 


2 


; 0535 


2 


; 0536 


2 


; 0537 


2 


; 0538 


2 


; 0539 


2 


; 0540 


2 


; 0541 


2 


; 0542 


2 


; 0543 


2 


; 0544 


2 


; 0545 


2 


; 0546 


2 


; 0547 


2 


; 0548 


2 


; 0549 


3 


; 0550 


3 


; 0551 


3 


; 0552 


3 


; 0553 


3 


; 0554 


2 


; 0555 


3 


; 0556 


3 


; 0557 


3 


; 0558 


2 


; 0559 


2 


; 0560 


2 


; 0561 


2 


; 0562 


2 


; 0563 


2 


; 0564 


2 


; 0565 


2 


; 0566 


2 


; 0567 


2 


; 0568 


3 


; 0569 


3 


; 0570 


3 



DSRSLoad CRD Routine 

*** Loading and Unloading the CRD Image 

DSR$Load_CRD Routine 

Module^Debug (*DSR$Load_CRD - Start: 1 ); 
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10 
(1) 

IC07 



IF (NOT SDSJIMOff) THEN 

CRDJrror (KJWJs.On, 0, K_RegionJtot Jxpanded); 

DS$L Saved DSA Flags = .DSASGL F lags; 
DSSLlSavedlDS^riags = .DSSGLjlags; 



First, make sure that the Binary flag is set so that any subsequent SPrint's with the 
CRD AutoTest typecode won't get the first byte of the output string cut off (with Binary 
setT the TypeCode is stuck onto the front of the output string, and then if the TypeCode 
is CRD_AutoTest, then this first byte gets chopped off - by DSX$Type0ut in the PRINT module), 

DSASVJinary = On; 

IF (.DSASVJRD.Trace) THEN 

$Print (DS$K_TypeJRD_AutoTest, DSSKJrintF, T_TraceJ*eader); 

If the Debug longword is set (via the SET CRD/DEBU6/1RACE command), set the Debug flag bit. 
This has to be done because the CRD Error routine has to check a debug flag to see if the 
Internal Error routine should be called. However, at the time this check is done, the 
CRD Debug longword has the address of the start of the CRD image (due to the transfer of 
vectors). So, we use another flag to say that debug is on for this one case only, 

IF <.DS$GL CRD Debug) THEN 

CRD$VJRD_Debug - True; 

IF (,DSA$V CRDJ\utoTest..:ff) THEN 

DS$A Auto Or Menu = T Auto 
ELSE IF (.DSA$V CRD flenuTest^Dff OR ,DSA$VCRDJ1enuTest_0n) THEN 

! C103 

BEGIN 

DS$A Auto Qr_Menu = TJIenu; 

CRD$9 Ctrl C No Echo = True; 

CRDSVJlusKJtrT.C = False; 

END 

BEGIN 

DS$A Auto Orjtenu = T Null; 

CRD Frror'CK No DSA Bit Set, .DSASGL Flags, K Region Not Jxpanded); 

END; 



IC07] 
!C07] 
!C07] 
!C07] 
•C07] 



!T07] 
!C07] 



ELSE 



!C06] 
!C06] 
!C0?3 
!C07] 
!C06] 



Check to see if this is a correct CPU for running CRD. 

IF C.DSA$GL SID 111 NEQ SID 730) THEN 

CRDJrror (K_WrongJPU, .DSASGL^SID [33, KJegionJlot Jxpanded) ; 

IF C.DSSQ CRD Vector Desc [DSCSW Length] EQL 0) THEN 
BFGIN 
MAP 

DSSALJS Dispatch Vectors : VECTOR C, BYTE, SIGNED]; 



ZZ-ENSAA-" 


7.0 


CRD IMAGE 




02-11 




; 0571 


3 


; 0572 


3 


; 0573 


3 


; 057*. 


3 


; 0575 


3 


; 0576 


3 


: 0577 


3 


; 0578 


3 


; 0579 


3 


; 0580 


3 


; 0581 


3 


; 0582 


3 


; 0583 


3 


; 0584 


3 


; 0585 


3 


; 0586 


3 


; 0587 


4 


; 0588 


4 


; 0589 


4 


; 0590 


4 


; 0591 


4 


; 0592 


4 


; 0593 


4 


0594 


4 


; 0595 


4 


; 0596 


3 


; 0597 


2 


; 0598 


2 


; 0599 


2 


; 0600 


2 


; 0601 


2 


; 0602 


2 


; 0603 


2 


0604 


2 


; P 0605 


4 


; P 0606 


4 


; P 0607 


4 


; P 0608 


4 


; P 0609 


4 


; P 0610 


4 


; P 0611 


4 


; 0612 


3 


; 0613 


2 


; 0614 


2 


; 0615 


2 


; 0616 


2 


; 0617 


2 


; 0618 


2 


0619 


2 


; 0620 


2 


; 0621 


2 


; 0622 


2 


; 0623 


3 


; 0624 


3 


; 0625 


3 


; 0626 


< 


; P 0627 


3 



DSR$Load CRD Routine 

*** Loading and Unloading the CRD Image 

DSRSLoad.CRD Routine 
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These stored values will later be put back into the dispatch area when CRD exits. Store all 
the vectors plus the 4 bytes at the beginning of the dispatch vectors. Store a pointer to the 
block, and the ACTUAL size of the block in a descriptor, 

i 

DS$C CRD Vector Desc [DSCSW.Length] = CRD$K.Jotal..Numb..Vectors * 4; 
DSSCrCRDlVector^Desc [DSC$A_Pointer] = DSSA.CRD^ Vectors; 

Now transfer the four bytes at the beginning (version numbers, etc.) and the actual 
dispatch vectors to the temporary storage. 

1NCR Vector Index FROM TO (.DS$AL DS Dispatch.Vectors [K„Number_Of_Vectors] - 1 ) DO 
3EGIN 
MAP 

DS$AL DS Dispatch.Vectors : VECTOR [, LONG]; 



JC07 



I C07 



BIND 



Temp^Vectors = ( .DSIQ.CRD.Vector.Desc CDSC$A.Pointer]) : VECTOR [, LONG]; 



ELSE 



END 



Temp Vectors [.Vector Index] = .DSSAL DS Dispatch Vectors [.Vector Index]; 
END " 



Module_Debug ( 'DSRSLoad.CRD: ***** ERROR *****•); 



Now do a 'fake' Load of the CRD image. This will return the size of the image, in 
preparation for allocating the necessary memory and loading the image into memory* 

IF (NOT (Status = $DS LOAD ( 

File = T_CRDJmage_Name, 

Default = T_CRDJmage_Default, 

Length - 0, 

Address = 0, 

RcLen = CRD ActuaLLength, 

RetRec = CRD~F ile Attributes, 

VBN = 1))T 
THEN 

CRD.Error (K_Determine_Si2e, .Status, K_Region_Not_Expanded); 

DS$A Saved_LastAdr = ,DS$GA LastAdr; 

! Save the old value. 

Page Count = (.CRD Actual Length + 511) / 512; 

! Number of pages required to load CRD 

IF <.DSA$V User) THEN 
BEGIN 

Use this one for running on-line. 

Status = SExpReg 



!C04 
![04 



ZZ-ENSAA- 


7.0 


CRDIMAGE 




02-11 




; P 0(28 


3 


; P 0629 


3 


; P 0630 


3 


; P 0631 


3 


; 0632 


4 


; 0633 


4 


; 0634 


4 


; 0635 


3 


; 0636 


2 


; 0637 


3 


; 0638 


3 


; 0639 


3 


; 0640 


3 


; 0641 


3 


; 0642 


3 


; 06 A 3 


3 


; 0644 


3 


; 0645 


3 


; 0646 


3 


; 0647 


3 


; 0648 


3 


; 0649 


3 


; 0650 


2 


; 0651 


2 


; 0652 


2 


; 0653 


2 


; 0654 


2 


; 0655 


2 


; 0656 


2 


; 0657 


2 


; 0658 


2 


; 0659 


2 


; 0660 


2 


; 0661 


2 


; 0662 


3 


; 0663 


3 


; 0664 


2 


; 0665 


3 


; 0666 


3 


; 0667 


3 


; 0668 


3 


; 0669 


3 


; 0670 


3 


; 0671 


2 


; 0672 


2 


; 0673 


2 


; P 0674 


2 


; P 0675 


2 


; P 0676 


2 


; P 0677 


2 


; P 0678 


2 


; P 0679 


2 


; P 0680 


? 


; P 0681 


2 


; 0682 


2 


; 0683 


2 


; 0684 


2 



DSRSLoad CRD Routine 

*** Loading and Unloading the CRD Image 

DSR$Load_CRb Routine 

( 
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PagCnt = .Page_Count, 
RetAdr = CRD_Image_Location, 
Region = 



ELSE 



END 



Expand the Supervisor region by the number of pages 
required to hold the CRD image, set the access mode to 
User-Write, expand P0 space. 



BEGIN 

+ 

Use this one for running stand-alone. 

Status = CRDSExpReg 

.Page^Count, 

CRD Image Location, 

!• 

); I Expand the Supervisor region by the number of pages 

! required to hold the CRD image, use no access mooe, 

! expand DS space (3). 
END; 

DSSQ CRD Image Desc CK Image Si2e3 = 

TCRD^Image^Location TK.Ending^Adr] - .CRD.Image^Location [K_Starting,Adr] * 1; 

DS$Q_CRDJmage. w Desc CK^Image^PtrJ = . CRDJmage„Location CK^Starting.Adr]; 

IF (NOT .Status) THEN 
' + 

If an error occurred, check the return address array. If both addresses are -1 # then 
no memory was expanded. If they are not both zero, some was expanded. 

JF ((.CRD Image Location CK Starting Adr] EOL -1) AND 

(.CRDllmagelLocation CK^Ending_A3r3 EQL -1)) 
THEN 

BEGIN 

DSSQ CRD Image Desc CK Image^Size] = 0; 

DSSQ'CRDJmagelDesc CKJmage_Ptr] = 0; 



IC04 
1C04 
1C04 



!C04 



ELSE 



CRD Error <K Expand Region, .Status, K_Region_Not_Expanded); 
END" 



CRD^Error (K_Expand_Region, .Status, K_Region_Expanded) ; 

Status ~ IDS.L0AD ( 

File = T CRD Imaye^Name, 

Default = T~CRD~Image_Default, 

Length = ,CRD..Actual Length, 

Address - ,CRD Image Location [K^Starting^Adr], 

RetLen = CRD flcrual'Length, 

RetRec = CRD"File Attributes, 

V8N = 1 " 
); .' Actually load the file into the expanded region 

\F (NOT .Status) THEN 



1C03 
!C03 



7Z-ENSAA- 


7,0 


CRDIMAGE 




02-11 




; 0685 


2 


; 0686 


2 


; 0687 


2 


; 0688 


2 


; 0689 


2 


; 0690 


2 


; 0691 


3 


; 0692 


3 


; 0693 


3 


; 0694 


3 


; 0695 


3 


; 0696 


3 


; 0697 


3 


; 0698 


3 


; 0699 


3 


; 0700 


3 


; P 070. 


3 


; P 0702 


3 


; 0703 


3 


; 0704 


3 


; P 0705 


3 


; P 0706 


3 


; 0707 


3 


; 0708 


3 


; P 0709 


3 


; P 0710 


3 


0711 


3 


: 0712 


3 


; P 0713 


3 


; P 07H 


3 


; 0715 


3 


; 0716 


2 


0717 


2 


; 0718 


2 


0719 


2 


; 0720 


2 


; 0721 


2 
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CRD_Error (K.Load.Fi le, .Status, K.Region^Expanded); 

DSSGA.LastAdr = ,DSSGA_i_astAdr + ,UD_Actual Length; 

! Reset the LastAdr pointer 

IF (.DSASV CRD Trace) THEN 
BEGIN " 
MAP 

DSSAL.DS.Dispatch.Vectors : VECTOR C BYTE, SIGNED]; 

BIND 

CRD.Bytes = ( .CRDJmage_Location CK.Starting.Adr3) : VECTOR C, BYTE, SIGNEDJ; 

SPrint (DS$K Type CRD AutoTest, DSSK PrintF, T TraceJ, .DSSQ.CRD.Image.Desc [K Jmage_Ptr]>; 
SPrint (DSSOypelCRD^AutoTest, DSSK^PrintF, f_Trace_2, .DS$Q_CRD_Image_Desc [KJmage„Size]); 

SPrint (DSSK Type CRD AutoTest, DSSK PrintF, T Trace_4, 

.DSSAL DS~Dispatch_Vectors [K_Number_Of_Vectors] , 
.CRD^Bytes CK.Number.Of.VectorsJ); 

SPrint (DSSK Type CRD AutoTest, DSSK PrintF, T_ Tracers, 
.DSSflL.DS.Di spa tch.Vec tors CK. Positive. Vers ion], 
.CRD,8ytes [K^Positive_Vers ionJ) ; 

SPrint (DSSK Type CRD_. A /-^iest , DSSK PrintF, T_Trace_6, 
.DSSAL DS Dispatch Vectors [K^Negative^Version], 
. CRD.Bytes CK_Negative_VersionJ) ; 

SPrint (DSSK Type CRD AutoTest, DSSK PrintF, T Trace 7, 
.DSS.V DS"Dispatch Vectors CR^Nutl^ByteJ, 
.CRD^Bytes [K_NuU_Byte]); 

END; 

Exchange^Dispatch, Vectors (.CRD. Image Location [K_Start ing Adr]) ; !C03 

I Exchange all the dispatch vectors for CRD and DS 

Module.Debug ( 'DSRSLoad. CRD - End:'); !C07 

0722 1 END; ! Routine DSRSLoad.CRD 

•TITLE CRDIMAGE *** Loading and Unloading the CRD Imag 

.IDENT \02-11\ 

.PSECT W0RK,N0EXF,2 

fffffffffi 00000 DSSA CRD VECTORS: 

" 7L0NG -1C25] 
0000 00064 DSSQ^CRD^VECTOR.DESC: 

.WORD 
00 00 00066 .BYTE 0, 
00000000 00068 .LONG ; 

00000000 00000000 0006C DSSQ CRD IMAGE DESC: 

7L0NG " 0, ; 

00000000 00074 DSSA.SAVED LASTADR: 

.LONG 
00000000 00078 DSSL SAVED DSA FLAGS! ; 



ZZ-ENSAA-7.0 
fRDIMAGE 
-11 



,02 



59 AC 
A1 20 



49 46 
45 4C 



20 AS 
4f 20 



45 56 

41 21 

45 AC 

44 52 



49 54 
52 AF 

45 A2 

AF 20 

50 59 
21 22 



20 54 
20 AC 



4E 4F 

AE 4F 



20 4F 
42 41 



AC 49 
AF 54 



20 4E AF 49 

2f 

20 45 4C 49 

45 20 AF 54 



20 54 

20 AA 

42 41 

A3 20 



AE 
AD 

20 



AF 
45 

54 

52 



54 20 
46 46 



53 

AC 



45 

AT 



DSRSLoad CRD Routine 

*** Loading and Unloading the CRD Image 

DSR$Load_CRD Routine 



30 3B 



5A 

5A 

20 A3 

20 AA 

33 



5A 
AA 

2f 
A8 
20 

5A 

21 
A8 
20 



43 

52 

44 
46 



A3 
4D 

53 

55 

2C 
AF 



A3 22 20 47 AE 



20 
41 
4F 
21 
57 
47 
4F 
52 
43 
57 
47 
41 

45 
43 

41 
4F 

4F 

20 
20 

55 
54 
20 
54 
20 
43 
49 



54 20 

43 20 

56 



45 
45 



53 
53 
A1 
A5 
37 

^5 

AF 

20 

A3 

20 

AE 

4C 

4F 

41 

20 

4E 

21 

52 

20 

4F 

20 
43 
2f 
54 
2D 



47 
58 



45 
45 
21 
54 
2F 

4C 
AC 
4E 
41 
52 
49 

2° 
50 

21 

52 

49 

20 

52 

46 

4C 
AE 

20 
21 
4F 
20 



4D 20 

20 4F 

59 52 

4E 45 

4D AD 

20 5A 

50 59 

AF 54 

2D 20 

52 A5 



41 
A5 



5A 
5A 
20 
52 
31 
2^ 

4? 

20 
AF 
21 
AF 
5A 
A5 
20 
20 
AF 
5A 
AA 

AF 

AF 

20 
AF 
53 
AA 
AE 
AA 



AD 
2E 



20 
20 
AA 
AF 
31 
21 
A1 
A5 
A9 
20 
52 
50 
A8 
A5 
AA 
52 
50 
52 

A3 

20 

A5 
49 
49 
45 
4E 
52 



54 4E 

54 2f 

AF 4D 

4D 45 

20 54 

52 41 

54 20 

55 41 
44 45 

53 20 



49 
42 



44 

41 



55 4E 

AF 54 

52 43 

50 50 

2D 58 

35 32 

4E 55 

48 54 

54 52 

44 52 
52 45 
AD A5 
5A 20 
AC 42 
52 A3 
52 45 
4D 45 
43 20 

AE 49 

AE 4F 

48 54 

5A 52 

20 A3 
5A 50 
A1 43 
A3 20 
AF A1 

45 4D 

21 A6 
A5 AD 
A7 A1 
A5 53 
5A 53 
59 A2 
2F 21 

V V 

54 52 

AA AC 



00000000 



52 43 08 

53 4E 45 

00000008 
00000000* 



45 
55 
2f 
55 
41 
37 

h 

20 
4F 
43 
2^ 
54 
44 
41 

h 

54 
54 
PF 
2f 
49 
2F 
2f 
4F 
41 
55 
2F 
A5 
AD 
A5 
A6 
20 
AF 

a 

20 
22 
2F 
AF 
A5 
A5 



00000000 
00000000' 
00 



AD 
A1 
21 
53 
56 
2C 
21 
AA 
50 
20 
21 
54 
41 
44 
46 
21 
54 
49 

h 

53 

50 
21 
52 

55 

8 

4F 
4o 
41 



44 
4A 

n 

49 
A3 



<0 
30 

32 

AE 

20 

A6 

A2 

A1 

4F 

41 

4F 

2A 

41 

58 

43 

§0 

52 

43 

30 
2 



52 

86 

4 

5 

41 

?0 

46 

4D 

45 

JF 

52 

52 

2A 

41 

46 

A9 
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(1) 



.LONG 
0007C DSSL..SAVED DSJLACS: 

.LONG 
00080 DSSAJWTO.OA. MENU: 

•BlkB 4 



ogooo 

00009 
00014 
00018 
0QQ1C 
0001 c 
00020 
00024 

« 

00039 

0005 
00061 
00068 
0007? 

00086 
00090 
0009B 
OOOAA 
000B9 
000C3 

m 

OOOED 
OOOFC 
0010 
0010 
00118 
00127 
0012A 
00139 
00148 
00152 
"H5B 
H6A 
(179 
»17E 
J018D 
0019C 

Hit 

1C4 

•ICE 

I01DD 

'162 

HF1 

10200 
0020A 






.PSECT DATA,N0WRT,NOEXE, $H*,2 

P. AAA: .ASCII <8>\CRDiMAGE\ 

P.AAC: .ASCII \ENSAB.EXE;0\ 

P.AAB: .LONG 11 

.ADDRESS P.AAC 

P.AAE: .BLKB Q 

P.AAD: .LONG 

.ADDRESS P.AAE 

P.AAF: .ASCII <0> 

P.AAG: .ASCII <9>\MENU TEST\ 

P.AAH: .ASCII <9>\AUT0 TESTS 

P.AAI: .ASCII \. J/CRD !AC ONLY SUPPORTED ON A VAX-11 /73\ 

.ASCII \O f 7?5!A 

P.AAJ: .ASCII \2!/UNABLE TO FIND THE LOADABLE PORTION 0\ 

.ASCII \F CRD !AC!/\ 

P.AAK: .ASCII \B!/ERROR WHILE ATTEMPTING TO LOAD TNE L0\ 

.ASCII \ADABLE PORTION OF CRD !AC!A 

P.AAL: .ASCII \*!/ERROR WHILE ATTEMPTING TO EXIT CRD !A\ 



.ASCII \C!/\ 
P.AAM: .ASCII \ J/INCORRECT VERSION OF CRD !AC!/\ 



P.AAN: .ASCII \0!/THE LOADABLE PORTION OF CRD J AC IS C0\ 



.ASCII \RRUPTED!/\ 
P.AAO: .ASCII <13A>\!/CANN0T CONTINUE CRD - MEMORY MANX 



.ASCII \AGEMENT MUST BE OFF !/T0 TURN OFF MEMORY \ 

.ASCII \MANAGEMENT, TYPE "SET MM OF F**» /RESTART C\ 

.ASCII \RD BY TYPING ,4 CRD*'!/\ 

P.AAP: .ASCII \*!/!/AUT0 TEST ABORTED - CALL FIELD SERVV 

.ASCII MCEN 



ZZ-ENSAA-7.0 

CRDIMAGE 
02-11 
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DSR$Load_CRD Routine 



20 46 
20 35 



20 47 
37 2C 



74 69 
47 24 



74 6F 
73 69 



2F 



6C 69 

73 20 

53 20 

21 29 

6C 69 

65 68 



6C 69 

45 20 

53 20 

21 29 

65 74 

75 63 

77 6F 

44 52 



74 63 
58 28 



6E 6F 

61 72 

2f 

65 68 

6E 20 

6E 20 

6E 6F 



4F 20 
32 37 



4E 49 
30 33 



3E 3E 3E 22 



62 20 
41 53 



6E 6E 

68 74 

21 55 

30 38 

30 35 

68 77 

67 6E 

20 20 

58 28 

63 77 

74 20 



29 58 28 4C 



68 77 

65 68 

20 20 

58 28 

6E 49 

63 6F 

6C 6C 

43 20 



65 76 
4C 58 



69 67 

74 6E 

21 29 

74 20 

73 69 

6fc 6F 

72 77 



44 4E 45 

2C 30 33 

20 54 

4E 52 55 

37 2F 31 

45 4C 

20 52 4F 

2F 21 

41 53 44 

44 20 2D 

20 30 

61 63 20 

20 6E 6F 

69 68 

50 43 20 

37 2F 31 

37 2F 31 

6E 77 6F 

20 72 6F 

69 6E 69 

65 68 

65 6C 69 

4C 58 21 

20 72 6F 

67 6E 69 

20 20 

58 21 20 

20 72 6F 

74 20 67 

20 65 

79 72 6F 

4C 58 21 

20 44 52 

20 72 6F 

6F 66 20 

65 68 74 

63 65 

20 67 75 

21 20 3A 
28 4C 

65 72 20 

6F 63 20 

61 74 

58 28 4C 

72 65 68 

20 65 74 

6F 20 

69 73 72 

20 65 72 



20 2A 2A 

37 2F 31 

53 45 54 

54 45 52 
31 20 58 
4F 53 4E 
46 20 54 
54 50 40 
20 6F 4E 
20 74 65 
20 73 67 
2f 21 29 
44 52 43 
20 6E 75 
74 20 2D 
43 41 21 
31 2D 58 
31 2D 58 
6E 66 6E 
72 72 45 
6D 72 65 
74 20 66 
66 20 42 
20 3D 20 

72 72 45 

64 6E 61 
20 6E 6F 
30 20 73 

72 72 45 

6E 69 64 

6C 69 66 

6D 65 60 

20 3D 20 

43 20 41 

72 72 45 

2F 

65 68 54 
20 65 72 
76 20 67 

2F 21 

62 65 44 

50 4C 55 

53 21 2D 

65 68 54 

74 6F 6E 

53 20 20 

58 21 20 

74 69 45 

79 62 20 

2C 6C 6C 

65 76 20 

61 20 73 



2A 2A 

31 2D 

20 4F 
2A 

2f 21 

41 56 

4F 43 

49 41 

4F 52 

20 2A 

73 20 
61 6C 
58 28 
20 2A 

72 20 
20 55 
20 73 
41 56 
41 56 
75 20 
20 2A 

74 65 
6F 20 
41 53 

73 75 

20 2A 

70 78 

69 67 

75 74 

20 2A 

61 6F 

20 42 

20 6F 

73 75 

20 2A 

20 6C 

21 64 
20 2A 
61 20 
75 62 
3A 73 

20 2A 

21 58 
21 20 

2F 

20 2A 

20 73 

20 64 

30 20 

20 2A 

6C 6C 

75 6E 

65 68 

12 65 



2F 21 28 

58 41 56 

54 55 41 

2A 2A 2A 

2F 21 40 

20 4F 54 

20 35 32 

57 20 2C 

50 20 22 

2A 2A 2f 

73 69 20 
46 5F 4C 
4C 58 21 
2A 2A 35 
65 62 20 
50 43 20 
69 20 73 
20 61 0C 
20 61 0C 
6E 61 0A 
2A 2A 46 

64 20 65 

65 7A 69 
4E 45 20 

74 61 74 

2F 

2A 2A 38 

65 20 65 

65 72 20 

61 74 53 

2F 21 

2A 2A 46 

6C 20 65 

41 53 4E 

74 6E 69 

74 61 74 

2f 

2A 2A 23 

61 6E 72 

65 72 72 

2A 2A 2E 

67 6E 69 

65 64 20 

72 6F 74 
2A 2A 28 
20 72 6F 

20 20 29 

21 29 44 
2 A 2 A 35 

61 77 20 
65 74 63 

73 75 
2A 2A 48 

75 4E 20 
20 74 6F 

74 20 72 

62 6D 75 



.ASCJI \, WAJT FOR M >»" PROMPT! A 



.ASCII \ ENSAB file - Status = !XL(X)i/\ 



C 13 
27-Jul-1984 Fiche 4 Frame C13 Sequence 776 

27-JuM984 16:00:30 VAX-11 Bliss-32 V4. 0-742 Page 

26-JuI-1984 09:38:37 DMA1:CSYS0.SYSMAINT3CR0IMAGE.B32;87 

00200 P.AAQ: ASCII \+!/**** END OF VAX-11/730,725 AUTO TEST \ 

0021 C 

0022B 

00235 .ASCII \****\ _ w 

00239 P.AAR: .ASCII \S!/!/RETURNING TO VAX-11/730,725 CONSOtE\ 

00248 

00257 

00261 

00270 

0027A P.AAS: .ASCII \/*** No DSA bit is set - DSA$GL_Flags = \ 

00289 

00298 

002A2 .ASCII \!XL(X)!/\ 

002AA P.AAT: .ASCII \5*** CRD cannot be run on this CPU - thi\ 

002B9 

002C8 

00202 .ASCII \s is !AC CPU! A 

002E0 P.AAU: -ASCII <12>\a VAX-11 /780\ 

002ED P. AAV: .ASCII <12>\a VAX-11 /750\ 

002FA P.AAW: .ASCII <10>\an unknown\ 

00305 P.AAX; .ASCII \F*** Error while determining size of the\ 

00314 

00323 

00320 

0033C 

0034B 

0034C P.AAY: .ASCII \8*** Error while expanding the region - \ 

0035B 

0036A 

00374 

00383 

00385 P.AAZ: .ASCII \F*** Error while loading the ENSAB file \ 

00394 

003A3 

003AD 

003BC 

003CB 

003CC P. ABA: .ASCII \#**« A CRD Internal Error occurredlA 

003DB 

003EA 

003F0 P. ABB: .ASCII \,*** The following are the CRD debug vec\ 

003FF 

0040E 

00418 .ASCII \tors:!A 

0041F P. ABC: .ASCII \+*** Debua vector C!UL3: fXL(X) !-!SL(\ 

0042E 

0043D 

00447 .ASCII \D)!A 

00448 P.A8D: ♦ ASCJI \5*** The region was not contracted - Sta\ 
0045A 
00469 

4 00473 .ASCII \tus = !XL(X)!A 

00481 P.ABE: .ASCII \H*** Either the Null byte is not null, o\ 
00490 



15 
(1) 



.ASCII \Status = !XL<X)!/\ 



.ASCII \into memory - Status = !XL(X)!A 



0049F 
004A9 
004B8 



.ASCJI \r the version numbers are wrongSA 



ZZ-ENSAA-7.0 

CRD1MAGE 

02-11 



DSRSLoad CRD Routine 

*** Loading and Unloading the CRD Image 

DSRSLoad.CRD Routine 



73 72 
61 20 



65 76 
42 41 



65 6C 62 69 



6E 69 

69 63 

74 61 

67 65 

61 72 

2i 21 

43 5F 

6F 6C 



43 5F 

65 68 

2F 21 

A3 -5F 

6E 75 

20 20 

A3 5F 

65 76 

20 20 

43 5F 

65 76 

20 20 

43 5F 

20 3A 

20 20 



6E 6E 

61 72 

74 73 

62 20 

74 20 

73 74 

64 61 

20 67 

2F 21 

64 61 

74 20 

2F 21 

64 61 

6F 63 

42 53 

2F 

64 61 

20 65 

42 53 

2F 

64 61 

20 65 

42 53 
2f 

64 61 

65 74 

42 53 
2F 



20 65 73 

53 4E 45 

61 20 
74 61 70 

69 67 65 

54 20 44 
74 69 

20 6C 6C 

74 61 68 

2A 22 

44 52 43 

6E 65 6D 

6F 4C 24 

6E 69 74 

20 66 

29 58 28 

6F 4C 24 

66 6F 20 

65 67 

29 58 28 

6F 4C 24 

20 72 6F 
20 20 

34 21 20 

21 42 53 
6F 4C 24 
76 69 74 

62 6D 
34 21 20 
21 42 53 
6F 4C 24 
76 69 74 

62 6D 

34 21 20 

21 42 53 

6F 4C 24 

79 62 20 

20 20 

34 21 20 

21 42 53 



65 68 

20 66 

41 41 
6D 6F 

42 20 
52 43 
6C 69 
41 20 
74 20 
20 68 
20 65 
65 74 

52 53 

72 61 

6F 20 

4C 58 

52 53 

65 7A 

61 6D 

4C 58 

52 53 

74 63 
20 20 
3D 20 
34 21 
52 53 
69 73 

75 6E 
3D 20 
34 21 
52 53 
61 67 
75 6E 
3D 20 
34 21 
52 53 
6C 6C 
20 20 
3D 20 
34 21 



54 20 

6F 20 

53 4E 

63 6E 

2A 2A 

20 65 
63 61 
2A 2A 

73 74 

74 69 
72 61 
61 74 

44 20 

74 53 
6E 6F 

21 20 
44 20 
69 53 
69 20 
21 20 
44 20 
65 56 
20 20 
53 44 
20 3D 
44 20 
6F 50 
20 6E 
53 44 
20 3D 
44 20 
65 4E 
20 6E 
53 44 
20 3D 
44 20 

75 4E 
20 20 
53 44 
20 3D 



2F 

2A 2A 

73 6E 

45 20 
69 20 

2A 2F 

68 74 

46 20 
2A 2F 
6E 65 
77 20 
20 22 
73 20 

2A 2A 

20 3A 

69 74 
3A 44 
2A 2A 
20 3A 
44 52 
20 20 
2A 2A 
20 3A 
20 20 
20 20 
20 44 
2A 2A 
20 3A 
6F 69 
20 3A 
20 44 
2A 2A 
20 3A 
6F 69 
20 3A 
20 44 
2A 2A 
20 3A 
20 20 
20 20 
20 44 



21 67 

2A 38 

6F 69 

64 6E 

65 72 
2f 21 
21 6F 

20 67 
67 6E 

21 79 
6D 65 
6E 69 
2A 2A 
65 63 
2F 21 
2A 34 
44 52 
61 63 
52 43 
2A 36 
44 52 

43 20 
20 3A 
2A 42 

44 52 
3A 74 
20 20 
52 43 
2A 42 
44 52 
73 72 

72 65 
52 43 
2A 42 
44 52 

73 72 
72 65 
52 43 
2A 42 
44 52 
20 20 
20 20 
52 43 



D 13 
27-Jul-1984 Fiche 4 Frame D13 Sequence 777 

27-JuL-1984 16:00:30 VAX-1 1 Bliss-32 V4. 0-742 Page 16 

26-Jul-1984 09:38:37 DMA1 : CSYS0.SYSMAINT3CRDIMAGE.832;87 (1) 

004C7 

004CA P.A8F: .ASCII \8*** These versions of ENSAB and ENSAA a\ 

004D9 

004E8 

004F2 

00501 



.ASCII \re incompatible! A 



.ASCII \y!/*** ALL statements that begin with "*\ 
.ASCII \** M are CRD trace statements !/!/\ 



00503 P.ABG: .ASCII \o!/*** Beginning the CRD Tracing FaciUtV 

00512 

00521 

0052B 

0053A 

00549 

00553 

00562 

00571 

00573 P.ABH: .ASCII \4*** DSR$Load_CRD: Starting Location of \ 

00582 

00591 

0059B .ASCII \CRD: !XL(X)!A 

005A8 P.ABI: .ASCII \6*** DSR$Load_CRD: Size of the CRD image\ 

005B7 

005C6 

005D0 .ASCII \: !XL(X)!/!A 

005DF P.ABJ: .ASCII \B*** DSRSLoad.CRD: Vector count: \ 

005EE 

005FD 

00607 

00616 

00622 P.ABK: .ASCII \B*** DSR$Load_CRD: Positive version numb\ 

00631 

00640 

0064A 

00659 

00665 P. ABU .ASCII \B*** DSR$Load_CRD: Negative version numb\ 

00674 

00683 

0068D 

0069C 

006A8 P. ABM: .ASCII \B*** DSR$Load,CRD: Null byte: 

006B7 

006C6 

006D0 .ASCII \ DS = !4SB CRD = !4SB!A 

006DF 

DSA$Al„APTMAIL= 65024 

DSA$GL.FLA6S= 65024 

DSA$GLJ\PTC0M= 65028 

DSA$6L^PASSES= 65032 

DSA$GL_UNITS= 65036 

DSA$GL_SECTN0= 65040 

DSA$GLlSID= 65044 

DSA$GLlMSGTYP= 65088 

DSA$GL^ERRN0= 65092 

DSASGLlEVENTz 65096 

DSA$GL„SUBTN0= 65100 

DSA$GL_TESTN0= 65104 

DSASGL PASSN0= 65108 



.ASCII \ DS s J4SB CRD = J4SBIA 



.ASCII \er: DS = I4SB CRD = !4SB!A 



.ASCII \er: DS = !4SB CRD - !4SB!A 



ZZ-ENSAA-7.G 
CRDIMAGE 

02-1 1 



DSRSload CRD Routine 

*** LoadTng and Unloading the CRD Image 

DSRSload CRD Routine 



27-Jul-1984 Fiche 4 Frame E13 Sequence 778 
27-Jul-1984 16:00:30 VAX-11 Bliss-32 y^.0-7^2 Page 17 

26-Jul-1984 09:38:37 DMA1 :CSYS0.SYSMAINT]CRDIMAGE,B32;87 (1) 

DSA$GL_DEVLEN= 65112 

DSASGL DEVNAM= 65116 

DSASGL MSGPTR= 65128 

SM0DULE* P. AAA 

T CRDJMAGE_NAME = P.AA8 
T.CRD 1MAGE,DEFAULT=P.AAD 

T NULC= P.AAF 

T~MENU= P.AAG 

T"AUT0= P.AAH 

T~INVAL1D CPU= P.AAI 

TlFILE NOT FOUND= P.AAJ 

t unknown Error= p.aak 
t~contractlon error=p.aal 

riNCOMPATIBlElTY.ERROR* 

P. A AM 
T CORRUPTED ERROR= p!AAN 
T~MM ON= " P.AAO 
T'AUTO ABORT CRD= P.AAP 
T"AUTO"END MESSAGE* P.AAQ 
T~AUTO~EXlT TO CONSOLE* 

" P.AAR 
T.NO DSA BIT_SET= p'.AAS 
T WRONG ?PU= P.AAT 
T:CPU w 780= P.AAU 
T CPU 750= P. AAV 
T~CPU~UNKNOWN= P.AAW 
T'DETERMINE SIZE= P.AAX 
T EXPAND RE5l0N= P.AAY 
TJ.0AD FILE* P.AAZ 

t crd Internal* p. aba 

TlCRDlJNTERNAL HEADER* 

P. ABB 
T_CRD_JNTERNAL_DEBUG= 

P. ABC 
T.NOT CONTRACTED* 
T CORRUPTED* 
^INCOMPATIBLE* 
T.TRACE..HEADER* 
TJRACEJ* 
T.TRACE 2= 
T TRACER* 
T'TRACE.,5* 
ORACE.6* 
T TRACE.7* 

•EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 

.EXTRN 



P.ABD 

P.ABE 

P.ABF 

P.ABG 

P.ABH 

P.ABI 

P.ABJ 

P.ABK 

P.ABL 

P. ABM 
DS CLEANUP, MAPFREE 

CRGSEXPREG, DSRSCHECK MENUTEST OFF SET 
DSRSCHECK AUTOTEST_OFF„SET 
EXESALONOflPAGED 
EXESDEANONPAGED 
DSVSEXIT, BEGIN^BLISS 
DSSGAJ)S_CTRLj:..FIRST 
DS$GA"DSCTRL"C„SECOND 
DS$L OSERCNTREC 

DSSGE.FLAGS, DSSAL DS_DISPATCHJ/ECTORS 
DSSGL.CRD FLAGS 

DSSGA LASTADR, DSSGL_CRD,DEBUG 
DSSMMOFF, DSXSPR1NT 



ZZ-ENSAA-7,0 

CRDIMAGE 

02-11 



DSRSLoad CRD Routine 

*** LoadTng and Unloading the CRD 

DSR$Load_CRD Routine 



I mags 



F 13 
27-JuM984 
27-Jul-1984 
26-viul-1984 



Fiche 4 
16:00:30 VAX 



Frame F13 
■11 Bliss-32 



Sequence 
V4. 0-742 



779 



09:38:37 DMA1:CSYS0.SYSMAINT]CRDIMAGE.B32;87 



Page 



18 
(1) 



54 00OOFE02 9F 



00000000G 



F8 

FC 

0000FE00 



06 0000FE01 



OC OO00FEO2 



E4 

E8 



5B OOOOOOOOG 

5A OOOOOOOOG 

59 OOOOOOOOG 

58 00000000V 

57 OOOOOOOOG 

56 0O0O0OOO f 

55 00000000 • 
5E 
9F 
08 

7E 

68 

A5 OOOOFEOO 

A5 OOOOOOOOG 

9F 

01 

OB 

04E7 



67 

03 OOOOOOOOG 

6A 

9F 

65 13 

08 0000FE02 

9F 

65 09 

6A 

6A 

65 08 

OOOOFEOO 

68 

50 0000FE17 

03 



68 



A5 
A5 
51 
50 



E4 

64 
80 



OFFC 00000 



9F 9E 

EF 9E 

EF 9E 

EF 9E 

9F 9E 

EF 9E 

10 C2 

00 FB 
50 E8 

01 DD 
09 7D 
03 FB 
9F DO 
Ef DO 

02 88 
01 if 
54 E9 
C6 9F 
01 DD 
1A DD 

03 FB 
EF E9 

01 88 

03 E1 
A6 9E 
2C 11 
9F E8 

02 E1 
A6 9E 

02 88 

04 8A 

11 11 
A6 9E 
01 DD 
9F DD 
7E D4 

03 FB 
9F 9A 
50 91 
09 13 
01 DD 
50 DD 
01 DD 
03 FB 
A5 85 
1C 12 
8F 9B 
A5 9E 
69 98 
01 CE 



f 



00002 
00009 
00010 
00017 
0001 E 
00025 
0002C 
00033 
00036 
0003D 
00040 
00042 
00045 
00048 
00050 
00058 
0005F 
00068 
0006B 
F 
1 

00073 
00076 
0007D 
00080 
00088 
00Q8C 
0008E 
00095 
Q009D 
000A1 
000A4 
000A7 
000A9 
OOOAD 
OOQAF 
00065 
000B7 
0008A 
QC1 
OCA 
0C6 

OOOCA 
QOOCC 

m 

00QD4 
00009 

OOODE 
000E1 



1$: 



2$: 

3$: 



4$: 
5$: 



6$: 



7$; 



8$: 



.EXTRN DSSLOAD, SYSSEXPREG 
.PSECT CODE,NOWRT, SHR,2 



.ENTRY 

MOVAB 

MOVAB 

MOVAB 

MOVAB 

MOVAB 

MOVAB 

MOVAB 

SUBL2 

CALLS 

BLBS 

PUSHL 

MOVO 

CALLS 

MOVL 

MOVL 

BISB2 

EXTZV 

BLBC 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

BLBC 

BISB2 

BBC 

MOVAB 

BRB 

BLBS 

BBC 

MOVAB 

BJSB2 

BICB2 

BRB 

MOVAB 

PUSHL 

PUSHL 

CLRL 

CALLS 

MOVZBL 

CMPB 

BEQL 

PUSHL 

PUSHL 

PUSHL 

CALLS 

TSTW 

BNEQ 

M0V2BW 

MOVAB 

CVTBL 

MNEGL 



DSR$L0AD_CRD, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 0476 

R10,R11 

a#DS$LOAD, R11 

DSSGL^CRD FLAGS, R10 

DS$AL DS J5ISPATCH.VECT0RS, R9 

CRD ERROR, R8 

a#D3XSPRINT, R7 

T CRD IMAGE DEFAULT, R6 

d5$aJ*uto_oR_menu, R5 

#16, SP 

#0, a#DS$MM0FF ; 0516 

RO, 1$ 

#1 ; 0517 

#9, -(SP) 

#3, CRD ERROR 

a# A X0000FE00, DSSL, SAVED OSA FLAGS ; 0519 

DS$GL FLAGS- DSSL jAVEDjS^FCAGS ; 0520 

#2, 9J*X0006fE00 ; 0529 

#1, #1, a# A XO000FEO2, R4 ; 0531 

R4, 2$ 

T TRACE.HEADER ; 0532 

#T 

#26 

#3- DSXSPRINT 

DS*GL CRDJ>E8UG, 3$ ; 0542 

#1, D5$GL CRD FLAGS ; 0543 

#3, a# A X000OFPO1, 4$ ; 0545 

T AUTO, DS$A„AUTOJ)R.MENU ; 0546 

a# A X00OOFEQ2, 5$ ; 0547 

#2, a#*XO00OFE02, 6$ 

T MENU. DS$A AUTO 0RJ1ENU ; 0550 

#2, DSiGL^CRtS.FLABS ; 0551 

#4, DSSGL^CRD.FLAGS ; 0552 

7$ ; 0547 

T NULL, DS$A_AUTO_0R„MENU ; 0556 

#T ; 0557 

a#*X000OFE0O 

-(SP) 

#3 f CRD ERROR 

a#*X0000FEl7, RO ; 0564 

B- * 

#1 ; 0565 

RO 
#1 

#3. CRD ERROR 

DS$0_CRB.,VECTORJ)ESC ; 056(1 

11$ ; 

#100, DS$Q CRD VECTOR DESC ; 0578 
DS$A CRD.VFCTORS, DS$B CRDJ/ECT0RJ)ESC*4 ; 057^ 

DS*AC DS"DISPATCH_VECTORS, R1 ; 0586 

#1, VECTuRJNDEX ; 0592 



ZZ-ENSAA-7,0 

CRDIMAGE 

02-11 



DSR$Load CRD Routine 

*** Loading and Unloading the CRD Image 

DSRSLoad CRD Routine 



6 13 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 4 Frame 613 Sequence 780 

16:00:30 VAX-11 Bliss-32 V4. 0-742 
09:38:37 DMA1:CSVS0.SVSMAINTJCRDIMAGE.B32;87 



Page 



19 
(1) 



F6 



E8 B540 
50 



FA 
50 04 

10 0000FE03 



00O00O00G 00 



50 



00000OO0G 

OC 
EC 
FO 

FFFFFFFF 

FFFFFFFF 



EF 
52 
53 
AE 
A5 
A5 
23 
8F 

8F 



68 



04 
OC 



F8 



6B 
52 
09 



68 

A5 000000006 

AE 000001FF 

50 00000200 

9F 



10 



10 

08 
01 

OC 
EC 



68 
52 



04 
OC 

14 
F8 



06 
6940 

51 
01 
AE 
AE 
7E 
56 
A6 
07 
50 
52 
01 
52 
02 
03 
EF 
8F 
8F 
04 
7E 
AE 
50 
04 
10 
03 
?B 

A§ 
50 
04 
50 
AE 
53 
AO 
53 

5? 
53 
11 
AE 
07 
A5 
01 
02 
7E 

52 
03 

03 

01 

AE 

AE 
53 

ii 

8? 

50 



11 
DO 

f2 

DD 

9F 

9F 

7C 

DD 

9F 

FB 

DO 

E8 

DD 

DD 

DD 

FB 

DO 

C1 

C6 

E1 

7C 

9F 

DD 

FB 

11 

DD 

D4 

9F 

DD 

FB 

DO 

DO 

C3 

9E 

DO 

E8 

D1 

12 

D1 

12 

7C 

DD 

11 

D4 

DD 

DD 

FB 

DD 

9F 

9F 

DD 

DD 

DD 

9F 

FB 
DO 



000E4 
000E6 

OOOEC 
OOOFO 
00OF2 
00OF5 

000F8 

OOOFA 

OOOFC 

OOOFF 

00102 

0C105 

00108 

001 OA 

0010C 

001 OE 

00111 

00119 

00122 

00129 

00131 

00133 

00136 

00138 

001 3F 

00141 

00143 

QQ145 

00148 

0014A 

00151 

00154 

00158 

001 5D 

00162 

00166 

00169 

00170 

00172 

001 7A 



9$: 

10$: 
11$: 



12$: 



13$: 



14$: 



15$: 
16$: 



17$: 



BRB 
MOVL 

AOBLSS 

PUSHL 

PUSHA8 

PUSHAB 

CLRQ 

PUSHL 

PUSHAB 

CALLS 

MOVL 

BL8S 

PUSHL 

PUSHL 

PUSHL 

CALLS 

MOVL 

ADDL3 

DIVL2 

BBC 

CLRQ 

PUSHAB 

PUSHL 

CALLS 

BRB 

PUSHL 

CLRL 

PUSHAB 

PUSHL 

CALLS 

MOVL 

MOVL 

SUBL3 

MOVAB 

MOVL 

8LBS 

CMPL 

BNEQ 

CMPL 

BNEQ 

CLRQ 

PUSHL 

BRB 

CLRL 

PUSHL 

PUSHL 

CALLS 

PUSHL 

PUSHAB 

PUSHAB 

PUSHL 

PUSHL 

PUSHL 

PUSHAB 

CALLS 

MOVL 



10$ 

DC$AL DS DISPATCH VECTORSCVECTOR INDEX!, 

aDS$Q"CRB VECTOR J5ESC+4CVECT0RJRDEX3 

R1, VECTOR INDEX, 9$ 

*1 

CRD FILE ATTRIBUTES 

CRD~ACTU&L.LENGTH 

-<SP> 

R6 

T CRD IMAGE.NAME 

#7, D3$L0AD 

RO, STATUS 

STATUS, 12$ 

*1 

STATUS 

ft? 

#5 CRD ERROR 

DSiGA LASTADR, DS$A SAVED LASTADR 

*511, CRD ACTUAL_LERGTH, RO 

*512, PAGE.COUNT 

#4, arxO00OFEO3, 13$ 

-(SP) 

CRD IMAGEJ.OCATION 

PAGE COUNT 

#4. 5VS$EXPREG 

14i 

#3 

-<SP> 

CRD IMA6EJ.0CATI0N 

PAGE COUNT 

#4, CRDSEXPREG 

RO, STATUS 

CRDJMA66 LOCATION, R3 

R3, CRD iRAGE LOCATIONS, RO 

KRO), 0S$QCRD IMAGE DESC 
R3, DS$G CRBjMAGEj)ESC+4 

STATUS. T7$ 
R3- #-1 

i5i 

CRDJMAGE..L0CATI0N+4, #-1 

15$ 

DS$Q_CRDJMAGEJ)ESC 

#1 

16$ 

-(SP) 

STATUS 

*3 

#3, CRD ERROR 

#1 

CRD.FILE ATTRIBUTES 

CRDJ\CTUAL„LENGTH 

R3 

CRD.ACTUAL^LENGTH 

R6 

T CRD 1MAGE.NAME 

#7, DS$LOAD 

RO, STATUS 



0594 

0586 
0612 



0614 



0616 
0619 

0622 
0632 



0642 



0643 



0653 



0655 
0657 
0662 

0663 

066( 
066< 

0672 



0682 



ZZ-ENSAA-7,0 

CRDIMAGE 

02-11 
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*** Loading and Unloading 

DSR$Load_CRD Routine 

09 



68 

OOOOOOOOG EF 

66 



67 



67 
7E 
7E 



67 
7E 
7E 



67 

7E 
7E 



67 
7E 
7E 



67 
00000000V EF 



the CRD Image 



52 E8 

7E D4 

52 DD 
04 DD 

03 F8 
04 AE CO 

54 E9 

FO A5 DD 

0557 C6 9F 

01 DD 

1A DD 

04 F8 
EC A5 DD 

058C C6 9F 

01 DD 

1A DD 

04 F8 
63 98 
69 98 

05C3 C6 9F 

01 DD 

1A DD 

05 F8 
01 A3 98 

01 A9 98 
0606 C6 9F 

01 DD 

1A DD 

05 F8 

02 A3 98 

02 A9 98 
0649 C6 9F 

01 DD 

1A DD 

05 F8 

03 A3 98 
03 A9 98 

068C C6 9F 

01 DD 

1A DD 

05 F8 

53 DD 
01 F8 

04 



27-JuL-1984 
27-Jul-1984 
26-Jul-1984 
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Page 



001 A4 

001 A7 

001A9 

001AB 

001AD 

001B0 

001B8 

001BB 

001BE 

001C2 

001C4 

001C6 

001C9 

001CC 

001 DO 

001D2 

001D4 

001D7 

001DA 

001DD 

001E1 

001E3 

001E5 

001E8 

001EC 

001F0 

001F4 

001F6 

001F8 

001FB 

001 FF 

00203 

00207 

00209 

0020B 

0020E 

00212 

00216 




BLBS STATUS, 18$ 

CLRL -CSP) 

PUSHL STATUS 

PUSHL #4 

CALLS #3, CRD ERROR 

18$; ADDL2 CRDJ\CT0AL_LENGTH, DSSGAJ.ASTADR 

BLBC R4 19$ 

PUSHL DSid CRD IMAGE J)ESC+4 

PUSHAB T TRACER 

PUSHL #T 

PUSHL M26 

CALLS Mi*. DSX$PRJNT 

PUSHL DSSQCRD IMAGEJ>ESC 

PUSHAB T TRflCEj? 

PUSHL Ml 

PUSHL M26 

CALLS #4, DSX$PRINT 

CVTBL (R3), -CSP) 

CVT8L DS$AL DS DISPATCH.VECTORS, -<SP> 

PUSHAB T TRAtEjf 

PUSHL Ml 

PUSHL #26 

CALLS MS, DSXSPRINT 

CVTBL 1(R3>, -CSP) 

CVTBL DS$AL DS DISPATCH^VECTORS+1 , -<SP) 

PUSHAB T TRACE_5 

PUSHL #T 

PUSHL #26 

CALLS MS, DSXSPRINT 

CVTBL 2<R3), ~<SP^ 

CVTBL DSSAL DS DJSPATCH.VECTORS+2, -<SP) 

PUSHAB T TRAtEj 

PUSHL #T 

PUSHL #26 

CALLS #5. DSXSPRJNT 

CVTBL 3<R3>, -(SP> 

CVTBL DS$ALJ>SJ>I$PATCH_VECT0RS+3, -<SP> 

PUSHAB T TRACE 7 

PUSHL #T 

PUSHL #26 

CALLS #5, DSX$PRINT 

19$: PUSHL R3 

CALLS n, EXCHANGE DISPATCH VECTORS 

RET 



20 
(1) 

0684 
0685 



0687 
0690 
0698 



0699 



0703 



0707 



0711 



0715 



0718 
0722 



Routine Si*e: 5S5 bytes. Routine Base: CODE * 0000 



0723 1 

0724 1 

0725 1 

0726 1 
072? 1 
072B 1 

0729 1 

0730 1 

0731 1 



XSBTTL 'DSR$Unload..CRD Routine* 

GLOBAL ROUTINE DSR$Unload_CRD (Return.To.CaUer) 



+ + 



Functional Description: 



NOVALUE = 



'Unload* the CRD image from memory. This routines does not actually unload the CRD code and data per se, 
but it does deallocate the memory that the CRD code and data occupies. This routine also deallocates 



ZZ-ENSAA-7,0 


CRD1MAGE 




02-11 




; 0732 


1 


; 0733 


1 


; 0734 


1 


; 0735 


1 


; 0736 


1 


; 0737 


1 


; 0738 


1 


; 0739 


1 


; 0740 


1 


0741 


1 


; 0742 


1 


; 0743 


1 


0744 


1 


; 0745 


1 


; 0746 


1 


; 0747 


2 


0748 


2 


; 0749 


2 


; 0750 


2 


; 0751 


2 


; 0752 


2 


; 0753 


2 


; 0754 


2 


0755 


2 


; 0756 


2 


; 0757 


2 


; 0758 


2 


0759 


2 


; 0760 


2 


; 0761 


2 


; 0762 


2 


; 0763 


2 


; 0764 


2 


; 0765 


? 


; 0766 


2 


; 0767 


2 


; 0768 


2 


; 0769 


2 


; 0770 


2 


0771 


2 


; 0772 


2 


; 0773 


-> 


; 0774 


i 


; 0775 


2 


; 0776 


2 


0777 


3 


; 0778 


3 


; 0779 


3 


; 0780 


3 


; 0781 


3 


; 0782 


2 


; 0783 


2 


; 0784 


2 


; 0785 


2 


; 0786 


2 


; 0787 
; 0788 


2 
2 
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*** Loading and Unloading the CRD Image 
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all temporary CRD storage that was allocated in the DSR$load_CRD routine. 

Formal Parameters: 

Return To Caller: If the image is loaded* then return to the caller of this routine when the 

unloading u done. If it is not loaded, return regardless. 

Side Effects: 

Too numerous to mention. See the code! 
Completion Codes: 

None 

BEGIN ! Routine DSR$Unload_CRD 

BIND 

CRD_Vectors = <.DS$Q_CRDJmage_Desc CKJmage.Ptr]) : VECTOR C, BYTE, SIGNED]; 

REGISTER 



Temp_Vector_Storage,.Length; 



MAP 



DS$AL_DS_Dispatch..Vectors : VECTOR C, BYTE, SIGNED]; 
Module^Debug ( 'DSRSUnload.CRD - Start :'); 

Clear out the three *C handler addresses* This must be done before going back to the CLI. 



IC07 



DSSGA^DS^Ctrl^First ~ 

DS$GA DS^Ctrt CSecond = 

DSSLjserCntrTC = 

$DS_CntrlC (Disabl = 1); 



! Disable A C recognition 



Check first to see if the CRD image is in there. This is checked by looking at the 
image descriptor used to point to the image. If this is null, then nothing has been 
loaded in yet. Note that the Vector.Desc has been set up already, but the vectors 
have not been exchanged yet. So, it doesn't matter that the Vector.Desc isn't null. 



IF (,DS$Q CRDJmage..Desc [KJmageJfze] EQL 0) THEN 
BEGIN 
Module^Debug ( 'DSR$unload,CRD - Short end: 1 ); 



IC07 



$DS CntrlC (Disabl * 0); 

RE TORN; 

END; 



! Fnable A C recognition 



If the Saved^LastAdr is n)t zero, restore the LastAdr address for the VDS. 
U (.DS$A_Saved_LastAdr NE0 0) THEN 
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; 0793 
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; 0794 
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; 0796 
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; 0797 


2 


; 0798 


2 


; 0799 


2 


; 0800 
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; 0801 
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; 0802 


2 


; 0803 


2 


; 0804 


2 


; 0805 


2 


; 0806 


2 


; 0807 


2 


; 0808 


2 


; 0809 


2 


; 0810 


2 


; 0811 


2 


; 0812 


2 


; 0813 


2 


; 0814 


? 


; 0815 


2 


; 0816 


3 


; 081 7 


3 


; 0818 


3 


; 0819 


3 


; 0820 


4 


; 0821 


4 


; 0822 


<* 


; 0823 


4 


; 0824 
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; 0825 


3 


; 0826 


3 


; 0827 


3 


; 0828 


4 


; 0829 


4 


; 0830 


4 


; 0831 


4 


; 0832 


4 


; 0833 


4 


; 0834 


4 


; 0835 
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; 0836 
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; 0837 
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; 0838 
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; 0839 
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; 0840 
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; 0841 
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; 0842 


2 


; 0843 


2 


0844 


3 
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3 
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BEGIN 

DSSGA LastAdr = .DS$A Saved_LastAdr; 

DSSA Saved LastAdr = 0; 

END;" 

Now check to see if an internal error occurred while running CRD. If an internal error did happen, 
then the Positive^Version will be one less than the absolute value of the Negative. Version - the 
CRD^lnternal^Error routine does this. 

IF <(,CRD Vectors [K Positive_Version] - 1) EQL 
<- , CRD Vectors [R Negative.Version]) ) 

THEN 

' + 

Simply call the error routine so that it can print some error messages, and return to here. 
CRDJrror (K^CRDJnternal , 0, 0); 

Now transfer the dispatch vectors back from the temporary vector storage to where they 
belong - in the DS$AL_DS_Dispatch_Vectors area. This enables CRD to be started again. 

Temp_Vector_Storage_Length = .DSSQ.CRD.Vector.Desc CDSCSW.Length]; 

IF (.Temp Vector Storage_Length NEQ 0) THEN 
BfGIN 
REGISTER 

Number^Of.Vectors; 



BEGIN 
BIND 



Temp_Vectors = ( .DS$Q_CRD_Vector_Desc CDSC$A e Pointer]) : VECTOR C, BYTE]; 



Number Of Vectors = .Temp Vectors CK„Number, Of. Vectors]; 
END; 

INCR Vector Index FROM TO .NumberJJf Vectors DO 
BEGIN 
MAP 

DS$AL_DS_Dispatch_Vectors : VECTOR C, LONG]; 



BIND 



Temp^Vectors = ( .DS$Q_CRD..Vector_Desc [DSC$A_Pointer]) : VECTOR C, LONG]; 



END; 



DS$AL DS Dispatch vectors C. Vector IndexJ * .Temp. Vectors C.VectorJndex]; 
END; 

! IF . . . 



Now contract the region occupied by the CRD image. 



IF (.DS$Q CRDJmage Desc [KJmage_Si2e] NEQ 0) THEN 
BEGIN 
REGISTER 



7Z-ENSAA-7.0 

CRDIMAGE 
02-11 

0846 3 

0847 3 

0848 3 



0849 
0850 
0851 



0852 3 

0853 3 

0854 5 

0855 5 
P 0856 5 
P 0857 5 
P 0858 5 

0859 6 

0860 5 
P 0861 5 
P 0862 5 
P 0863 5 

0864 5 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

087* 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 

om 

0889 
0890 
0891 
0892 
0893 
0894 

0895 _ 

0896 2 

0897 2 

0898 2 

0899 2 

0900 1 
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Status, 
Page.Count; 



LOCAL 



Temp_vector : VECTOR C2, LONG]; 

Page_Count * ( .DS$Q„CRDJmageJ>esc CK.Image.SieeD + 511) / 512; 

IF (NOT ( 

IF (,DSA$V_User) THEN 

Status = SCntReg ( 

PagCnt = .Page Count, 

RetAdr = Temp^vector, 

Region = 0) 
ELSE 

Status a SCntReg ( 

PagCnt = .Page Count, 

RetAdr = Temp.vector, 

Region = 3); 
.Status)) 



THEN 



END; 



BEGIN 

CRD Error (K Not Contracted, ^Status, K^Region.Expanded); 

END 



END; 



Now, clear out the descriptors, in preparation for next time, 

» 

DS$Q„CRD Image^Desc [KJmage^SizeJ = 0; 
DS$Q_CRD M Jmag6..Desc [K^Image^PtrD - 0; 

DS$Q_CRD_Vector_Desc [DSC$W_Length] = 

DSSG,CRD w Vector^Desc CDSCSB^ClassJ = 

DSSQ CRD.Vector Desc CDSCS8 DTypeJ = 

DS$Q_CRD_Vector_Desc CDSCSA^Pointer] = 

INCR Vec Index FROM TO (CRDSK Numb Dispatch Vectors - 1) DO 
BSSA_CRD„Vectors [.VecJndexJ = XX'FFFFFFFF •; 

Module.Debug ( 'DSRSUnload.CRD - Long end:*); 



Now resume echoing A C's. 

CRD$V_Ctrl C No Echo = false; 
CRD$V_FlusJLCtrT_C = False; 

IF (.Return To_CaUer) THEN 

RETURN ! Return to this routine's caller 

ELSE 

CRD Exit (); ! Either go to Begin or Halt 

! Routine DSRSUnload.CRD 



1C07 
SC06 



1C07 
!C07 



Z2-ENSAA-7.0 

CRD1MAGE 

02-11 
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(1) 



,EXTRN DS5CNTRLC, SYSSCNTREG 



00000000G 



55 00000000V 
54 00CO0000G 
53 00000000* 
5E 

52 04 
00000000G 
OOOOOOOOG 
00OOOO00G 



64 

64 
50 
EF 
51 



F2 



50 
50 
50 



65 
50 



50 
51 

00OO0OOOGEFA1 

51 
50 



04 0OOOFEO3 



OOOOOOOOG 00 
09 



08 



08 
01 

02 



F8 



FC 



FC 



003C 

EF 9E 

9F 9E 

EF 9E 

08 C2 

A3 DO 

E? DA 

EF DA 

EF DA 

01 DD 
7E D4 

02 F8 
63 D5 

06 12 
7E 7C 

02 F8 
OA 

A3 DO 

OA .3 

50 DO 
A3 DA 
A2 98 

51 D7 
A2 98 

50 CE 

51 D1 

07 12 
7E 7C 
05 DD 

03 FB 
A3 3C 



17 
33 
01 
OA 
B3A1 



50 01FF 
50 00000200 
9F 



08 



13 
9A 
CE 
11 
DO 



50 F3 

63 DO 

34 13 

CO 9E 

8F C6 

OA 51 

7E DA 



11 
DD 



7E DA 

AE 9F 

50 DD 

OA FB 

50 E8 

7^ DA 

50 DD 



00000 
00002 
00009 
00010 
00017 
0001 A 
0001 E 
00024 
0002A 
00030 
00032 
00034 
00037 
00039 
0003B 
0003D 
00040 
000A1 
00045 
00C47 

ooo ;e 

OOO'JI 
00055 
00057 
0005B 
00Q5E 
00061 
00063 
00065 
00067 
0006A 

0006E 
00070 
00074 
00077 
00079 



§ 



isi 



2$: 



3$: 



4$: 



00083 5$: 

00087 6$: 

0008A 

0008C 

00091 

0QQ98 

OOOAO 

O00A4 7$: 

m 8$! 

OOOAB 
OOOAD 
000B4 
OO0B7 
OO0B9 



.ENTRY 

MOVAB 

MOVAB 

MOVAB 

SU8L2 

MOVL 

CLRL 

CLRL 

CLRL 

PUSHL 

CLRL 

CALLS 

TSTL 

BNEQ 

CLRQ 

CALLS 

RET 

MOVL 

BEQL 

MOVL 

CLRL 

CVTBL 

DECL 

CVTBL 

MNEGL 

CMPL 

BNEQ 

CLRQ 

PUSHL 

CALLS 

MOVZWL 

BEQL 

MOVZBL 

MNEGL 

BRB 

MOVL 

AOBLEQ 

MOVL 

BEQL 

MOVAB 

DJVL2 

BBC 

CLRL 

BRB 

PUSHL 

CLRL 

PUSHAB 

PUSHL 

CALLS 

BLBS 

CLRL 

PUSHL 



DSR$UNLOAD_CRD, Save R2,R3,RA,R5 

CRD ERROR, R5 

a*D5$CNTRLC, R4 

DS$Q CRDJMAGE.DESC, R3 

DS$Q CRDJMAGE DESC+4, R2 

DSSGX DS^CTRLj.FIRST 

DSSGADS CTRL C SECOND 

DS$L OSERCNTRCC 

#1 " 

-(SP) 

#2, DSSCNTRLC 

DS$Q„CRDJMAGE..DESC 

1$ 

-(SP) 

#2, DSSCNTRLC 

DSSA SAVED.LASTADR, RO 

2$ 

RO, DSSGA LASTADR 

DS$A SAVED LASTADR 

KR2T, R1 

R1 

2<R2/, RO 

RO, RO 

R1, RO 

3$ 

-(SP) 

#5 

#3. CRD ERROR 

DSiQ„CRl5 VECTOR DESC, - 

TEMP VECTOR STORAGE,LENGTH 

6$ 

9DSSQ CRD VECTOR J)ESC+4, NUMBER..OF ..VECTORS 

#1, VECTOR JNDEX 

5$ 

3DSSQ.CRD VECTOR DESC+4CVECT0R.INDEX], - 

DS$ALJ>Sj5lSPATCfl_VEUORSCVECTORJNDEX3 

NUMBER OF VECTORS, VECTORJNDEX, 4$ 

DS$Q„CRD..lMAGEJ)ESC, RO 
9$ 

51KR0), RO 

#512. PAGE COUNT 

H t M*XO000FEO3, 7$ 

-(SP) 

8$ 

#3 

-(SP) 

TEMP^VECIOR 

PAGE COUNT 

H. SYSSCNTREG 

STATUS, 9$ 

-(SP) 

STATUS 



0725 



0749 
0763 
0764 
0765 
0767 



0776 
0780 

0777 

0788 

0790 
0791 
0800 

0801 



0806 



0813 

0815 
0824 
0827 

0835 

0827 
0843 

0852 

0855 
0859 

0864 



0865I 
0863 






ZZ-ENSAA-7.0 

CRDIMAGE 

U2-11 
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65 



94 



A340 

F7 50 

00000000G BF 

0? 

00000000V EF 



F8 



04 



08 DD 

03 F8 

63 7C 

A3 7C 

50 DA 

01 CE 

OD F3 

06 8A 

AC E8 

00 F8 
04 
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OOOBB PUSHL #8 

0008D CALLS #3. CRD ERROR 

000CO 9$: CLRO DS$Q,CR& IMAGE DESC 

000C2 CLRQ DS$Q CRD VECTOR.DESC 

000C5 CLRL VEC INDES 

0OOC7 10$: MNEGL #1 "DSSA CRD VECTORSCVEC INDEXD 

000CC A08LE0 #13, VEC INDEX, 10$ 

000DO BICB2 #6, DS$G[..CRD FLAGS 

000D7 BL8S RETURN TO CALCER, 11$ 

OOODB CALLS #0, CR5_E5?IT 

O00E2 11$: RET 



0876 
0879 
0884 
0885 

0894 
0896 
0899 
0900 



0901 1 

0902 1 

0903 1 

0904 1 

0905 1 

0906 1 

0907 1 

0908 1 

0909 1 

0910 1 

0911 1 

0912 1 

0913 1 

0914 1 

0915 1 

0916 1 

0917 1 

0918 1 

0919 1 

0920 1 

0921 1 

0922 1 

0923 1 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 

0936 
0937 

09?8 
091,/ 
0940 

0941 3 

0942 3 



XSBTTL , DSR$Restore_CRD_Vectors Routine' 

GLOBAL ROUTINE DSR$Restore„CRD..Vectors ; NOVALUF = 

*♦ 
Functional Description; 

Using the vectors stored in the DS$Q CRD Vector Desc, restore the CRD dispatch vectors. These vectors 
are originally set up the the DSVECS~module. NOrE; This routine SHOULD ONLY be called from the BEGINO 
label in the KERNEL module) ! i i i 1 

Formal Parameters; 

None 
Side Effects: 

Changes the CRD dispatch vectors located at DS$AL_DS_Dispatch,. Vectors 
Completion Codes: 

None 

BEGIN ! Routine DSR$Restore_CRD_Vectors 

Module.Debug ( 'DSRSRestore^CRD. Vectors - Start: 1 ); 

Now resume echoing A C's, Do this regardless of whether or not CRD is in there (just to be sure), 

CRD$V„Ctrl C No Echo = False; 
CRD$V_FlusFiJtrT_C = False; 

Now transfer the despatch sectors back from the vector storage area to where Ihey 
belong - in the DS$AL DS Dispatch Vectors area. This enables CRD to be started again. 
Do this ONLY if the vector were changed at some previous point. Determine this by 
checking the descriptor that points to the vector storage area for the vectors. 

IF C(.DS$Q CRD Vector Desc CDSC$W Length] NEO 0) AND 
(.DSSQlCRDlVectorlDesc [DSC$A~Pointer] NEO 0)) 



1C07 
!C06 



!C07 
1C07 
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; 0945 
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; 0947 


3 


0948 
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0950 


3 
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3 


; 0952 


3 


0953 


3 


; 0954 


3 


; 0955 


3 


; 0956 


3 


; 0957 


3 
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3 


0959 


3 


0960 


3 


; 0961 


3 


; 0962 


3 


; 0963 


L 


0964 


4 


; 0965 


4 


0966 


4 


0967 


4 


0968 


4 


; 0969 


4 


0970 


4 


0971 


3 


; 0972 


3 


0973 


3 


0974 


3 


0975 


3 


0976 


3 


0977 


3 


0978 


3 


0979 


3 


0980 


3 


0981 


3 


; 0982 


3 


; 0983 


7 


; 0984 


3 


0985 


3 


; 0986 


3 


; 0987 


3 


; 0988 


3 


0989 


3 


0990 


3 


0991 


3 


; 0992 


2 


• 0993 


2 


0994 


2 


; 0995 


1 
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THEN 



BEGIN 



This will ONLY be done iff CRD was previously running and was stopped by a A P, then a 

S 10000 console command was done. If this sequence of events s done, then we must restore 

Se stored dispatch vectors to their proper place in the DSSAl^DS. Dispatch. Vectors area, 
.ttso, sine, we could have been executing a diagnostic at the time the A P was typed, we must 
clear out the Environ longword in the diagnostic header so that the VPS does not think a 
diagnostic is still loaded once the VDS comes up again (after the S 10000). 



REGISTER 



Number_Of_Vectors; 



BIND 



Vectorjnfo = (.DS$Q_CRD_Vector..Desc CDSC$A_Pointer]) : VECTOR [, BYTE]; 
Number_0f_Vectors = .Vector^Jnfo CK_Number_0f_Vectors]; 



''V 



INCR Vector Index FROM TO .Number Of Vec tors D 1 
BEGIN 
MAP 

DS$AL_DS Dispatch.Vcctors : VECTOR [ , LONG]; 



BIND 



Temp^Vectors = ( .DS$Q_CRD_Vector_Desc C0SC$A_Pointer]) : VECTOR C, LONG]; 



DSSAL DS_ Dispatch Vectors [.Vector Index] = .Temp. Vectors C, Vector Index]; 
END; 

L$L_Environ = 0; 

DSSA^Saved^LastAdr = 0; 

DS$Q CRD Image Desc [KJmage_Si;>e] = 0; 
DSSO^CRD^JmagelDesc CKJmage.Ptr] = 0; 

DS$G CRD„VtrtorJ>esc CDSCSWJ.ength] = 

DS$Q CRD Vector Desc CDST$C^C lass] = 

DS$Q"CRD**Vector;Deiv. il>SC$B_DType] = 

DSSCf CRDlVector^Desc [DSC$A,Pointer] = 



Also se 
catch a 



t the temporary vector storage area vO all -Vs. This will allow the VDS to 

11 'buggy' references to an address in this area. 



INCR Ve 
END; 



c Index FROM TO CCRDSK Total Numb Vectors - 1) DO 
BSSA.CRDj/eetors Cvecjndex] = %X T FFFFFFFF •; 



END; 



Module Debug ( 'DSRSRestore CRD Vectors - End:'); 
RETURN; 

! Routine ^)SP$Restore CRD. Vectors 



!C07i 



!C07 



ZZ-ENSAA-7.0 

CRDiMAGE 



DSRSRestoreJRDj/ectors Routine 

*** Loading and Unloading the CRD Image 

DSRSRestoreJRDJ/ectors Routine 



B 14 
7-juM984 
7-Jul-1984 
!6-Jul-1984 



r 1che 4 Frame B14 



38:37 



Sequence 788 

V4. 0-74? 

DMA1:[SY$0,SYSMAJNTKRDIMAGE.B32;87 



16:00:30 VAX-11 BHst-32 
09: 



Page 



27 
(1) 



000000000 



52 

EF 



50 
51 



F2 



0QO0OOO0GEF41 
51 



F7 



98 A240 
50 



00000000* 
FC 



00 



00 



00000204 
04 
08 
FT 




50 F3 

9F D4 

A2 D4 

A2 7C 

A2 7C 

50 D4 

01 CE 

16 F3 
04 



QOQQO .ENTRY DSRSRESTORE CRD^VECTORS, Save R2 

00002 MOVAB DSJQ CRD VECTOR DESC+4, A2 

00009 BICB? *6, DS$CC CRD FCAGS 

00010 TSTW D$$0 CRDjECTOR.DESC 
00013 BEOL 4$ 

00015 TSTL DSSQ_CRD,VECT0R_DESC*4 

00017 BEOL 4S 

00019 M0VZ8L aDSSQ CRD VECTOR.DESC+4, NUMBER.OF. VECTORS 
0001D MNEGL #1, VfCTOfi.INDEX 

00020 BR8 2% 

00022 1$: MOVL SDS$Q_CRD VECTOR DESC*4[VEC iOR INDEX], - 

DS$AL~DS BlSPATCR.VECTORStVECTOR.lNDEX] 

0002C 2$: A08LEO NUMBER OF VECTORS, VECTORJNDEX, 1$ 

00030 CLRl 9^X00000204 

00036 CLRL DS*G„CRDJMAGE.DESC 

00039 CLRO DSSO.CRDJMAGE DESC+4 

0003C CLRO DS$0"CRD VECTOn^DESC 

0003F CLRL VECjNDEK 

00041 3$: MNEGL #1, DSSA.CRD VECTORSCVECJNDEXD 

00046 A08LE0 #24, VECJNDEX, 3$ 

0004A 4$; RET 



0903 

0932 
0941 

0942 

0960 
0962 

0970 

0962 

0977 

097: 

097J 

0980 

0990 

0991 

0995 



Routine Size: 75 bytes. Routine Base: COOF * 030E 



0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 

1006 
1007 

1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 

1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 



JJSBTU t Exchange_Dlspatch..Vectors Routine* 

GIOBAL ROUTINE Exchange_Dlspatch_ vectors (A^CRD^Dispatch^Vectors) ? NOVALUE = 



!C11 



♦ ♦ 



Functional Description: 



Exchange the CRD and DS dispatch vectors. That Is, the DS has a set of olspatch vectors that CRD uses to 
access certain DS locations (such as the DSA flags, the ControL-C handler address, etc.). These are 
stored 1n the CRDVECS module (part of the Resident-DS image). CRD also has a set of dispatch vectors 
that the Resldent-DS wilt use to get to certain CRD locations and routines (such as the CRD routine to 
call when something is being printed by the DS). These are stored at the beginning of the CRD-Loadable 
image (I.e., in the very first Psect). Exchange. Dispatch Vectors will exchanae these two sets of vectors, 
thus enabling the DS to get to the CRD routines, and enabling CRD to get to the DS locations and routines 



Before: 



After: 



CRD Dispatch vectors: 

DSSSl.DS,D1 spat ch_Vec tors: 

CRD Dlspatch^Vectors: 
DS$Sl.DS.D1 spat ch_Vec tors: 



Contains the addresses of the CRD-Loadable routines and locations 
Contains the addresses of certain DS locations and routines 



Contains the addresses of certain DS locations and routines 
Contains the addresses of thj CRD-Loadable routines and locatl 



ons 



Note also that the first longword in each set of vectors will contain a Count byte (the number of 
dispatch vectors), a null byte, and two bytes containing the version number of CRD. One of the version 
numbers will be positive, and the other one will be negative. The algorithm for verification is as follows: 



1 



4. 



Read in the CRD-Loadable file 
Set CRD Dispatch vectors * Starting address of 
DSiAL D3 DIspatcR. Vectors COJ <24, 8, Q> * 
DSSAL DS_D1spatch Vectors .03 <16, 8, 0> = 
DSSAL"DS.D1spatchIvectors .03 <8, 8, 0> 



the now resident CRD image 



! The null byte 
! The version #*s 



ZZ-ENSAA-7,0 

CRD1MAGE 

U2-11 



1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1C64 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 



Exchange Dispatch Vectors Routine 

*** Loading and Unloading the CRD Image 

Exchange„Dispatch_Vectors Routine 



C H 

27-jul-1984 
27~Jul-1984 16: 
26-Jul-1984 09:38:37 



fiche 4 Frame C14 Sequence 789 
00:30 VAX-11 BLfss-3? V4. 0-742 Page 28 

DMA1:C5YS0.SYSMAINT3CRD1MA6E.B32;87 (1) 



5. CRDJMspatch.Vectors [0] <24, 8, 0> = „ „ „ 

6. CRD.Dispatch.Vectors [0] <16, 8, 0> - - CRD.Dispsteh.Vectors C03 <8, 8, 0> 



.' The null byte 
J The version 0*s 



If any of the above statements are not true* an appropriate error messaae is printed and CRD-AUT0TEST 
is aborted. This ensures that not only do the version numbers agree, but also that the image read in is 
indeed the CRD-Loadable image file. 

Note: The CRD-Loadable image will be linked with a /System*XX0000 qualifer, thus making all addresses relati 
to zero. The only address that this affects are those in the CRD_Dispatch_Vectors, the ones that are moved t 
the Resident-DS area. These CRD routine addresses must be modified by the amount of the starting location of 
the CRD image (i.e., the parameter to this routine)* 
Picture: 



24 



C R D - I A D A B L E 
16 8 



- Bit numbers 



: o 


I - Version ft i + Version ft ! Count 


j CRD_Dispatch_Vectors [13 


! CRD.Dispatch.Vectors [?] 


• ♦ • • 


I CRD_Dispatch_Vectors [.Count] 



,CRDJ)ispatch_Vectors C0J 



D S - R E S I D E N T 



24 


16 8 




: : ■ 


- Version ft ! ♦ Version ft \ 


Count 


| DS. Vectors CI J 


I DS^Vectors [?] 


* • • • 


! DS_Vectors [.Count J 



- Bit numbers 

: .DS$AL_DS_Dispatch_Veuor« [03 



formal Parameters: 

A_CRD_Dispatch^Vectors : 
Implicit Inputs: 

DS$Al_DS„Di spa tch_ vectors 



The address of the CRD dispatch vectors. These vectors will contain the addresses 
of the DS routines and locations that CRD will have to access. 

The address of the DS dispatch vectors. These vectors will contain the addresses) 
of the CRD routines and locations that the Resident-DS will have to access. 



Side Effects: 

Exchanges the DS and the CRD dispatch vectors. 



ZZ-ENSAA- 


?.Q 


CRDIMAGE 




02-11 




; 1084 


1 


; 1085 


1 


; 1086 


1 


; 1087 


1 


; 1088 


2 


1089 


2 


; M 1090 


2 


; M 1091 


2 


; 1092 


2 


; 1093 


2 


; M 1094 


2 


; M 1095 


2 


; 1096 


2 


1097 


2 


1098 


2 


; 1099 


2 


; 1100 


2 


; 1101 


2 


; 1102 


2 


; 1103 


2 


; 1104 


2 


; 1105 


2 


; 1106 


2 


1107 


2 


; 1108 


2 


1109 


2 


1110 


2 


; 1111 


2 


1112 


2 


1113 


2 


11H 


2 


1115 


2 


; 1116 


2 


1117 


2 


1118 


2 


; 1119 


2 


; 1120 


2 


; 1121 


2 


; 1122 


2 


; 1123 


2 


1 1 24 


2 


; 1125 


2 


1126 


2 


1127 


2 


; 1128 


2 


; 1129 


2 


; 1 1 30 




; 1131 


2 


; 1132 


2 


; 1133 


2 


; 1 1 34 


2 


; 1135 


2 


1 1 36 


2 


; 1137 


2 


; 1 1 38 


2 


; 1 1 39 


2 


1140 


2 



(1) 



D 14 
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Completion Codes: 

None - If the verification process fails, the CRD_Error routine is called. 

BEGIN ! Routine Exchange_Dispatch_Vectors 



MACRO 



Corrupted Error = 

CRD Error (K Corrupted, 0, k Region_Expanded) 

Incompatibility.Error = 

CRD Error (K Incompatible, 0, K Region Expanded) 
X; 



Use these when referencing the vectors (the longwords). 



BIND 



CRD Dispatch Vectors = (.A CRD Dispatch Vectors) : VECTOR C, LONG], 
DSj5ispatchJ/ectors = (DS$AL_I5S_Dispatch_Vectors) : VECTOR C, LONG]; 



Use these two when referencing the particular bytes in the first longword. 



MAP 



DSSAL DSJ>ispateh_Vectors : VECTOR [, BYTE, SIGNED], 
A_CRDlOispatch_Vectors : REF VECTOR C, BYTE, SIGNED]; 



Verify that the image file read in is indeed the CRD-Loadable image file. 

IF <.A_CRD_Dispatch_Vectors [KJIull..Byte3 NEQ 0) THEN 
Corrupted_Error; 

IF (.A_CRD_Dispatch..Vectors CK_Positive_VersionJ NEQ (- .A_CRD_Dispatch,Vec tors CKJJegativeJ/ersion])) THEN 
Corrupted_Error; 



The format of the verification bytes is okay. Now check to see if the version numbers match 
(note: the DS version number must be either equal to or greater than the CRD version number). 
Also check to see if the vector counts are equal (see explanation on #2 in history above). 



!C02 



IF (,DS$AL.DS..Dispatch_Vectors [K^Positive^Version] LSS .A.CRD.Dispatch.Vectors CK^Positive.Version]) THEN 
Incompatioility.Jrror; 

IF (,DS$AL_DS.Dispatch_Vectors [K_NumberJ)fJ/ectors] NEQ .A_CRD_D1spatch_Vectors [KJJumberJ)f ^Vectors]) THEN) 
Incompatibility.Error; ! [02 

Exchange the two sets of vectors. Be sure and add In the CRD offset from zero. Since the CRD image 
is LINKed with a base of 0, all the .ADDRESSes in CRDVECS are based on a base of 0, rather than the 
actual base that is computed at run-time by the Load. CRD routine. So, I must add the value of the 
FIRST longword address in the CRD image to the values contained in each of the CRD dispatch vectors, 



-_ J 



ZZ-ENSAA- 


7.0 


CRD1MAGE 




v>2-11 




; 1141 


2 


11 42 


2 


1143 


2 


; 1144 


2 


; 1145 


3 


; 1146 


3 


; 1147 


3 


1148 


3 


1149 


3 


; 1150 


3 


1151 


3 


; 1 1 52 


5 


; 1 1 53 


2 


; 1154 


1 



Exchange Di spat ch_Vec tors Routine 

*** Loading and Unloading the CRD Image 

Exchange.^ spa tch. Vectors Routine 



E 14 

27-Jul-1984 Fiche 4 frame EU Sequence 791 

27-Jul-1984 16:00:30 VAX-11 Bliss-32 V4. 0-742 Page 30 

26-Jul-1984 09:38:37 DMA1 :CSYS0.SYSMA1NT]CRDIMAGE.B32;87 (1) 



END; 



! and then store this value in the DS dispatch vector area, 

INCR Vector FROM 1 TO ( .DSSAL DS Dispatch Vectors CK Number J)f_Vec tors] > DO 

BEGIN 
REGISTER 

Exchange; 

Exchange = .DS Dispatch Vectors [.Vector]; 

DSJHspatch.Vectors [.Vector] = .CRD^Dispatch Vectors [.Vector] + CRD^Dispatch_ Vectors; 

! Add in offset of CRD from zero 
CRD Dispatch Vectors [.Vector] = .Exchange; 

END? 

! End of Routine Exchange_Dispatch_Vectors 



50 



01 A2 



6441 



EE 



; Routine Size: 106 bytes. 







003C 00000 


.ENTRY 


55 


00000000V 


EF 


9E 00002 


M0VA6 


54 


000OOOOOG 


EF 


9E 00009 


MOVAB 


52 


04 


AC 


DO 00010 


MOVL 




03 


A2 


95 00014 


TSTB 






07 


13 00017 


BEQL 






7E 


7C 00019 


CLRQ 






06 


DD 0001 B 


PUSHL 


65 




03 


F8 0001 D 


CALLS 


50 


02 


A2 


98 00020 1$: 


CVTBL 


50 




50 


CE 00024 


MNEGL 


08 




00 


EC 00027 


CMPV 






07 


13 0002D 


BEQL 






7E 


7C 0002F 


CLRQ 






06 


DD 00031 


PUSHL 


65 




03 


F8 00033 


CALLS 


01 A2 


01 


A4 


91 00036 2$: 


CMPB 






07 


18 0003B 


BGEQ 






7E 


7C 0003D 


CLRQ 






07 


DD 0003F 


PUSHL 


65 




03 


F8 00041 


CALLS 


62 




64 


91 00044 3$: 


CMPB 






07 


13 00047 


BEQL 






7E 


7C 00049 


CLRQ 






07 


DD 0004B 


PUSHL 


65 




03 


FB 0004D 


CALLS 


53 




64 


98 00050 4$: 


CVTBL 






51 


D4 00053 


CLRL 






OE 


11 00055 


BRB 


50 




6441 


DO 00057 5$: 
C1 0005B 


MOVL 


6241 




52 


ADDL3 


6241 




50 


DO 00061 


MOVL 


51 




53 


F3 00065 6$: 
04 00069 


AOBLEQ 
RET 


Routine Base: CODE 


+ 0359 





EXCHANGE DISPATCHJ/ECTORS, Save R2,R3,R4,R5 

CRD ERROR, R5 

DS$*LJ)S DISPATCH VECTORS. R4 

A CRD.DJjPATCH.VeCTORS. R2 

37R2) 

1$ 

-<SP) 

#6 

#3, CRD ERROR 

2CR2K RO 

RO, RO 

tfO, #8, KR2), RO 

~(SP> 

#6 

#3 CRD ERROR 

DSiAL J)3„DISPATCHJ/ECTORS*1 , 1 <R2) 

3$ 

-(SP) 

#7 

03, CRD ERROR 

DS$AL_D3_DISPA7CH_VECTORS, (R2) 

4$ 

-(SP) 

#7 

« f CRD ERROR 

DSSAL D5.DISPATCH.VECTORS, R3 

VECTOR 

6$ 

DS DISPATCH VECTORSCVECTOR], EXCHANGE 

R27 <R2> [VECTOR] . DSJHSPATCH.VECTORS- 

[VECTOR] 

EXCHANGE, (R2)CVECTOR] 

R3, VECTOR, 5$ 



0998 



1103 
1118 



1121 



1130 



1133 



1144 



1149 
1150 

1152 
1144 
1154 



ZZ-ENSAA-7.0 

CRDIMAGE 

02-11 



1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 

1180 2 

1181 2 

1182 2 

1183 2 

1184 2 

1185 2 

1186 2 

1187 2 

1188 2 

1189 2 

1190 2 

1191 2 

1192 2 

1193 2 

1194 2 

1195 2 

1196 2 

1197 2 

1198 2 

1199 2 

1200 2 

1201 2 

1202 2 

1203 2 

1204 2 

1205 2 

1206 2 

1207 2 

1208 2 

1209 2 

1210 2 



Exchange Dispatch_Vectors Routine 

*** LoadTng and Unloading the CRD Image 

Exchange_Di spat ch_Vec tors Routine 

XSBTTL •CRDJxIt Routine* 

ROUTINE CRD.Exit : N0VALUB = 
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++ 



Functional Description: 

Exit from the CRD-world to either the VDS CLI command mode, or to the 11/730,725 console mode. 
Formal Parameters: 

None 
Implicit Inputs: 

None 
Side Effects: 

Either exits the VDS or goes to CLI mode via the Begin.BUss label. 
Completion Codes: 

None - does not return from here 



BEGIN 



BUILTIN 



i Routine CRDJxit 



HALT; 

Module_Debug C'CRD.Exit - Start: 1 ); 

* 
Cancel any A C f s that happened before this routine was called, and re-enable catching 
of *C's, 

DSSGL^Flags <DS$V CtrlO = Off; 
$DS_CntrlC (DisabT = 0); 

Now resume echoing *C's, 

CRDSV^Ctr' C „No Echo ' False; 
CRD$V„Flusfi„?trT.,C = False; 

Restore the DSA and DS flag settings that were saved in DSRSLoad.CRD, 

DSA$GL Kags = ,DS$L Sa^ed DSA Flags; 
DSSGL, Flags * .DSSl/SavedlDS Jlags; 

Make sure all the CRD bits are cleared. Don't touch BINARY though. Perhaps the operator turned 
it on on purpose. 



!C07 



!C06 

;o7 

107 



w 



ZZ-ENSAA- 


7.0 


CRD1MAGE 




02-11 




1211 


2 


; 1212 


2 


; 1213 


2 


12U 


2 


; 1215 


2 


; 1216 


2 


; 1217 


2 


; 1218 


2 


; 1219 


2 


; 1220 


2 


; 1221 


2 


; 1222 


2 


; 1223 


2 


; 1224 


2 


; 1225 


2 


; 1226 


2 


; 1227 


2 


; 1228 


2 


; 1229 


2 


; 1230 


2 


; 1231 


2 


: 1232 


3 


; 1233 


3 


1234 


2 


1235 


3 


; 1236 


3 


1237 


3 


; 1238 


3 


; 1239 


2 


1240 


3 


1241 


3 


1242 


3 


; 1243 


3 


1244 


3 


1245 


3 


; 1246 


2 


; 1247 


1 



CRDJxit Routine 

*** Loading and Unloading the CRD Image 

CRDJxit Routine 



DSAlVJRDJrace = Off; 
DSA$V_tRDJ1enuTest_0ff = Off; 

DSASvjRDJIenuTestJJr, = Off; 

DSA$VJRDJ\utoTestJ)ff = Off; 

DS. Cleanup O; 



6 u 
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[103 
[103 
[103 



Cleanup any residual diagnostics 



Make the VD5 think that no diagnogstic is loaded. 

DSiGLJlags <DS$V LodFlg> = Off; 
LSLJnviron = 0; 

Module^Debug (•CRDJxit - End:'); 

IF (DSR$Check,MenuTest_Off,S*t o qr 

DSR$CheckJ\utoTest_Off_Set () 
) THEN 

BEGIN 

WHILE (True) DO 
HALT (); 
END 



!C07 



ELSE 



BEGIN 

+ 

Since this goes back to the DSKli routine, the *C recognition w1 11 be re-enabled there. 



END; 



JS8 None (Begin Bliss); 
END; 



! Routine CRDJxit 



52 OOOOOOOOG 
62 



OOOOOOOOG 
OOOOOOOOG 
0000FE00 

0000FE01 



9F 

U 
9F 

62 

9F 

62 



09 



00000000* 
00000000 ■ 
0/08 
OOOOOOOOG 

00000204 
OOOOOOOOG 



OFFC 00000 CRDJXIT: 

.WORD 

MOVAB 

BICB2 

CLRQ 

CALlS 

BICB2 

MOVL 

MOVL 

OICW2 

J SB 

BJCB2 

CLRL 

J SB 

BLBS 



EF 9E 

01 8A 
71 7C 

02 F8 
06 8A 
EF DO 
U DO 
8F AA 
EF 16 
02 8A 
9F D4 

EF 16 00046 

50 E8 0004C 




Save R2,R3 £ R4 X R5 # R6,R7 # R8,R9 # R10 # R11 

DSSGLJLAGS, R2 

*1, DSSGLJLAGS 

-(§P) 

#2, a*DS*CNTRLC 

#6, DS$GL CRD FLAGS 

DSiLJAVEBj)$A FLAGS, aJTXOOOOFEQQ 

d ?HIsaved h ds Flags, dssgljlags 



dsjlIanup 

oooobsok 



a#*x 



AGS 



DSR$CHECK_MENUTESTJ)FFJET 
RO, U 



1157 

1191 
1192 




ZZ-ENSAA-7,0 
CRD1MAGE 

u2-n 



CRDJxit Routine 

*** Loading and Unloading the CRD Image 

CRDJxit Routine 
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03 



O0OOOO0OG 



000000006 



FF 
50 

FD 
EF 



16 0004F JSB 

E9 00055 8L8C 

00 00058 1$: HALT 

11 00059 BRB 

16 0005B 2$s JSB 

04 00061 RET 



DSR$CHECKJUJTOTESTJ)FF_SET 
RC, 2$ 

1$ 
BEGIALBUSS 



33 
(1) 

1233 

1237 

1245 
1247 



; Routine Size: 98 bytes. Routine Base: CODE + 03C3 



1248 


1 


1249 


1 


1250 


1 


1251 


1 


1252 


1 


1253 


1 


1254 


1 


1255 


1 


1256 


1 


1257 


1 


1258 


1 


1259 


1 


1260 


1 


1261 


1 


1262 


1 


1263 


1 


1264 


1 


1265 


1 


1266 


1 


1267 


1 


1268 


1 


1269 


1 


1270 


1 


1271 


1 


1272 


1 


1273 


1 


1274 


1 


1275 


2 


1276 


2 


1277 


2 


1278 


2 


1279 


2 


1280 


2 


1281 


2 


1282 


2 


1283 


2 


1284 


2 


1285 


2 


1286 


2 


1287 


2 


1288 


2 


1289 


2 


1290 


2 


1291 


2 


1292 


2 


1293 


2 


1294 


2 



XSBTTL 'CRDJrror Routine' 

ROUTINE CRDJrror (Error_Type, Morejnfo, Memory..was..Al located) 



NOVALUE = 



+ + 



Functional Description: 

Prints an error message, and optionally (depending on the Error_Type) unloads the CRO image. 

Formal Parameters: 

Error Type: The reason for the error. 

More Into: More information on the Error^Type (status values, etc.). 

Memory_Was_Al located: Either K^Region.Expanded or K.Region.Not. Expanded. 

Implicit Inputs: 

DS$A_Auto_Or_Menu 
Side Effects: 

Prints an error message, and optionally (depending on the Error_Type) Unloads the CRD image. 
Completion Codes: 



BEGIN 



None 
REGISTER 



CRD_Vectors 
Save DSA_Ftags, 
Return Now, 
Error_Ressage; 



! Routine CRD„Error 
REF VECTOR C, BYTE, SIGNED], 



Module„Debug <*CRD„Error - Start: 1 ); 

CRD.Vectors = ,DS$Q_CRDJmage,..Desc [KjmageJ i tr]; 

Save.DSAjlags = .DSASGLJlags; ! Save them locally 

DSA$V„CRD„MenuTestJ>ff - Off; 

DSA$V„CRD_MenuTestJ)n = Off; 

DSA$V.,CRD„AutoTest_Off = Off; 

DSASV.Binary = Oft; 



!C07 



C10D 

[10] 
[10] 



7Z-ENSAA- 


7.0 


CRDIMAGE 




02-11 




; 1295 


? 


; 1296 


? 


1297 


2 


; 1298 


2 


1 299 


2 


; 1300 


2 


; 1301 


? 


; 1 302 


2 


; 1303 


2 


1 304 


2 


; 1305 


2 


; 1 306 


3 


; 1307 


2 


; 1308 


2 


1 309 


2 


; 1310 


2 


; 1311 


2 


; 1312 


3 


; 1313 


3 


; 1314 


3 


1315 


3 


; 1316 


3 


; 1317 


3 


; 1318 


3 


; 1319 


3 


; 1 320 


3 


; 1321 


3 


; 1322 


3 


1323 


3 


; 1 324 


3 


; 1325 


3 


; 1 326 


3 


; 1327 


3 


1 328 


2 


; 1329 


2 


; 1330 


2 


; 1331 


2 


; 1332 


2 


; 1333 


3 


1334 


2 


; 1335 


2 


; 1336 


2 


1337 


c 


; 1338 


2 


; 1 339 


2 


1340 


2 


1341 


2 


1342 


3 


; 1343 


2 


1 344 


2 


1345 


2 


; 1 346 


2 


; 1347 


2 


1348 


3 


; 1349 


2 


1350 




; 1351 


2 



CRD^Error Routine 

*** Loading and Unloading the CRD Image 

CRD„Error Routine 

Error Message = 0; 

Return^Now - False; 
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! Initialize to point to *er0 



CASE .Error Jype FROM TO K.Last Jrror Jype - 1 OF 
SET 
[KJIMJsOnJ: 

frror^Message B TJW.On; 

CK No DSA Bit Set]: 
" * IF (.E>SASV_CRDJrace) THEN 

SPrint (DSSK Type General Error, DSSKJ^rintF , T.No.DSA.Bi t.Set , .Morejnfo) 
ELSE 

Errorjiessage = T_Unknown_Error; 

[KJrfrong CPU3: 

TF (.DSASV CRD Jrace) THEN 
BEGIN 
MAP 

More Info : BYTE; 



LOCAL 



CPUJype; 



ELSE 



U (.Morejnfo EQL SID 780) THEN 

CPUJype = T CPU 780 
ELSE IF (, More Info EQL 5lD 750) THEN 

CPU Type = T CPU„750 
ELSE 

CPUJype * T_CPU_Unknown; 

SPrint (DS$K Type General Error, DSSK PrintF, T Wrong CPU, , CPU Type); 
END 

Error„Message = TJnvaUd„CPU; 



CK Determine Size]: 

JF (.DSASV CRD Trace) THEN 

$Print~(DS$K Type General Error, DSSK PrintF, T Determine Size* .More Info) 
ELSE 

IF (.Morejnfo EQL RMSSJNF) THEN 

Error Message = T File Not Found 
ELSE IF (NOT .Morejnfo) THEN 

Error^Message = T.Unknown^Error; 

[K Expand Region]: 

IT (.DSASV CRD Trace) THEN 

SPrint~(DS$K Type General ^rror, DSSK„PrintF, TJixpandJtegion, .Morejnfo) 
ELSE 

Error^Message = T_Unknown_Error; 

[KjoadJileJ: 

U (.D5ASV.CRD. Trace) THEN 

SPrint (DSSKjype General Error, DSSK PrintF, T Load File, .Morejnfo) 
ELSE 

Error_Message - T_Unknown_Error; 



ZZ-ENSAA- 


7,0 


CRDIMAGE 




02-11 




; 1352 


2 


; 1353 


3 


; 1354 


3 


; 1355 


3 


; 1356 


3 


; 1357 


3 


; 1358 


3 


; 1359 


3 


; 1 360 


3 


; 1361 


3 


; 1362 


3 


; 1 363 


3 


1 364 


3 


; 1365 


2 


; 1366 


2 


; 1367 


2 


; 1368 


2 


; 1369 


3 


; 1370 


2 


; 1371 


2 


; 1372 


2 


; 1373 


2 


; 1374 


2 


; 1375 


3 


1376 


2 


1577 


2 


; 1378 


2 


1 379 


2 


; 1 380 


3 


; 1381 


3 


; 1 382 


3 


; 1 383 


3 


; 1 384 


3 


; 1385 


3 


1 386 


3 


; 1387 


4 


; 1 388 


3 


; 1 389 


3 


; 1390 


3 


1391 


3 


; 1 392 


3 


; 1393 


2 


; 1 394 


2 


; 1 395 


2 


1 396 


2 


; 1397 


2 


; 1 398 


2 


; 1399 


2 


; 1400 


3 


; 1401 


3 


1402 


3 


1403 


2 


1404 


2 


; 1405 


2 


1406 


2 


1407 


2 


1408 


2 



CRD Error Routine 

***~Loading and Unloading the CRD Image 

CRD.Error Routine 

[K CRD Internal}: 
" " BEGIN 
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This check must be made to CRD.Trace, not to CRD.Debug, because the CRD_Debug 
location may not contain the or 1 that is used to indicate debugging mode. 
It may contain a CRD dispatch vector (i«e*, the vectors may still be switched). 

JF (.CRDSV CRD.Debug) THEN 

lnternal..Error <) 
ELSE 

Error^Message = T.Corrupted.Error; 

Return Now = True; 
END; " 

[K Corrupted]: 

IF (.DSASV_CRD, Trace) THEN 

$Print (DS$K Type General Error, DS$K PrintF, T Corrupted) 
ELSE 

ErrorJIessage = T^Corrupted^Error; 

[K Incompatible]: 

I? (.DSASV^.CRD.Jrace) THEN 

$Print (DS$K Type General Error, DSSK PrintF, ^Incompatible) 
ELSE 

ErrorJ-lessage s T_JncompatibUity_Error; 

CK Not Contracted}: 
BEGIN 

•♦ 

If the contraction failed, then we must print an error message, call the 
MapFree routine to map all the free areas of memory, and then exit CRD. 

U (.DSASV_CRD_Trace) THEN 

SPrint (DS$K_Type_General_Error, DSSK.PrintF, TJtot^Contrac ted, .Morejnfo) 
ELSE 

SPrint (DS$K_Type..General_Error, DSSK.PrintF, T_Contraction_Error); 



.'[07 
1C07 
JC07 

1 107 
ICO? 



T ES; 



MapFree (); . „ v *...* v« * v .. 

CRD Exit (); ! Exit from here 
END; 



! Do this to Contract the region 



If C.ErrorJIessage NEQ 0) THEN 

SPrint (DSSK^Type^General, Error, DSSKJVintF, , Error J-lessage, .DSSA^Auto^OrJIenu); 

IF (.Return Now) THEN 
BEGIN 

DSASGL^Flags s .Save.DSA F lags; 

RETURN; 7 All we had to do was to print an error message 

END; 

If it was Auto Test that was running (the RP8 bit must be set if Auto Test was running), 
then print the final three lines of output. 



ZZ-ENSAA- 


7.0 


CRDIMAGE 




02-11 




; 1409 


2 


; 1410 


2 


; 1411 


2 


; 1412 


3 


; 1413 


3 


1414 


3 


1415 


3 


1416 


2 


1417 


2 


1418 


2 


1419 


2 


; 1420 


2 


; 1421 


2 


; 1422 


2 


; 1423 


2 


; 1424 


2 


1425 


2 


; 1426 


2 


; 1427 


1 



L 



CRD Error Routine 

♦♦♦"Loading and Unloading the CRD Image 

CRD^Error Routine 

IF <DSR$CheckJ\utoTest_Off_Set ()) THEN 
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C103 



36 
(1) 



END; 



BEGIN 

SPrint <DS$K Type General Jrror, DS$K_PrintF , T^AUTO^Abort.CRD); 

$Print (DS$fTType General Error, DS$K PrintF, T^AUTO^End Message) ; 

SPrint (DSSOype General. Error, DSSK.Pn'ntF, T.AUTO.Exi^To^Console); 

END; 

IF (.Memory Was.Al located) THEN 

DSR$Unload_CRD (0); ! This should not return to here 

DSASGL^Flags = .Save_DSA_F lags; ! Restore the (locally saved) DSA flag settings 

Module,.Debug (•CRD.Error - End:*); 

CRD Exit (); ! Exit CRD 

RETURN; 

J Routine CRD.Error 



!C07 



0FFC 00000 CRDJRR0R: 











.WORD 






57 99 AF 


9E 00002 


MOVAB 






56 00000000G 9F 


9E 00006 


MOVAB 






55 00000000* EF 


9E OOOOD 
DO 00014 


MOVAB 






50 00000000' EF 


MOVL 






52 000QFE00 9F 


DO 0001 B 
CA 00022 


MOVL 






0OOOFE0O 9F 00050802 8F 


BICL2 






53 


7C 0002D 


CLRQ 




09 


00 04 AC 


CF 0002F 


CASEL 


0089 


0061 


0028 001A 


00034 1$: 


.WORD 


00E4 


00D1 


0089 009A 
0014 oo:f 


0003C 
00044 





78 OOOOFE02 
27 00OOFEO2 



54 
9F 

9F 
01 

50 

02 



31 

0150 

08 

0186 

08 



A5 

67 

01 

A £ 
C5 

7E 

01 

AC 

07 

C5 

12 

AC 

07 



9E 
11 
El 
DD 
9F 
11 

12 
9E 
11 
91 
12 



s 



0048 2$: 

004C 
0004E 3$: 
Q005i 
0005' 
OQ05D 
0Q05F 4$: 
00067 
OQ06B 
Q006D 
00072 
00074 5$: 
00078 



MOVAB 

BRB 

BBC 

PUSHL 

PUSHAB 

BRB 

BBC 

CMPB 

BNEQ 

MOVAB 

BRB 

CMPB 

BNEQ 



Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 

CRD EXIT, R7 

a*D$X$PRINT, R6 

T CORRUPTED ERROR, R5 

DSSO CAD IMXGE DESC+4, CRD VECTORS 

a#*X{KK)0FE00, Save.dsa^flaBs 

#329730, a#*X0000FEOO 

return now 

error Type, m, #9 

4$~1$,- 
9$~1$ 1 - 

i3$~ii,~ 

14$-1$,- 
17S-1S,- 
21S-1S.- 
23$-1$.- 

21-1$ 

T MM.ON, ERROR,MESSAGE 

#1, 3**XOOOQFE02, 14S 

MORE w INFO 

T NOlDSA^BIT^SET 

15$ 

#1, 3* A xOOOOFE02, 8$ 

MOREJNFO, #1 

5$ 

T CPIL780, CPU^TYPE 

MORE. INFO, #2 
6$ 



1250 



1284 
1286 

1290 
1297 
1299 



1302 

1305 
1306 



13111 
1319 



ZZ-ENSAA-7.0 

CRD1MAGE 
1*2-11 



CRD Error Routine 

***'Loading and unloading the CRD Image 

CRD.Error Routine 



L H 

27-Jul-1984 
27-Jul-1984 
26-JuL-1984 



16:00:30 
09:38:37 



Fiche 4 Frame L14 
VAX-11 BUss-32 



Sequence 798 
V4.0-742 Page 



DMA1:CSYS0.SYSMAINT3CRDIMAGE,B32;87 



09 0000FE02 
00018292 



21 00O0FEO2 
10 0000FE02 



00000000V 



50 
50 



54 
9F 



8F 
54 
76 
9F 



9F 



66 

54 

09 
EF 

54 
53 



06 0OO0FEO2 9F 



54 
OD 0000FE02 9F 



66 

54 

10 0OOOFEO2 9F 



66 



01C3 

01D0 
0180 
FFOF 



08 
01D8 

08 

FF3E 

08 



08 
0222 



08 
0258 



FF71 

00000000G 



0357 



03A0 



DF 



08 
0321 



C5 

05 

C5 

50 

C5 

4F 

C5 

6E 

01 

AC 

C5 

37 

AC 

07 

C5 

7A 

AC 

29 

01 

AC 

C5 

OF 

01 

AC 

C5 

01 

03 

04 

79 

C5 

72 

EF 

00 

03 

65 

01 

5A 

01 

C5 

11 

65 

47 

01 

C5 

01 

03 

03 

32 

A5 

2C 

01 

AC 

C5 

01 

03 

04 

OA 



9E 0007A MOVAB T CPIW50, CPU..TYPE 

11 0007F BRB 7! 

9E 00081 6$: MOVAB T CPU UNKNOWN, CPU.TYPE 

DD 00086 7$: PUSHL CPU TVPE 

9F 00088 PUSHAB T WRONG CPU 

11 0008C BRB 15$ 

9E 0008E 8$: MOVAB T INVALID CPU, ERRORJIESSAGE 

11 00093 BRB 20$ 

E1 00095 9$: BBC #1, a**XOOOQFE02, 10$ 

DD 0009D PUSHL MORE. INFO 

9F OOOAO PUSHAB T DETERMINERS^ 

11 000A4 BRB 13$ 

D1 O00A6 10$: CMPL MOREJNFO, 098962 

12 OOOAE BNEQ 12$ 

9E OOOBO MOVAB T FILEJVOT FOUND, ERRORJIESSAGE 

11 O00B5 11$: BRB 25$ 

E8 O00B7 12$: BLBS MORE. INFO, 26$ 

11 OOOBB BRB 16$ 

E1 OOOBD 13$: BBC 01, a#*X0000FE02, 16$ 

DD 000C5 PUSHL MORE INFO 

9F 000C8 PUSHAB T EXPAND.REGION 

11 OOOCC BRB 15$ 

E1 OOOCE 14$: BBC #1 , a# A X00OOFEQ2, 16$ 

DD 000D6 PUSHL MORE. INFO 

9F 00009 PUSHAB TLOAD^FILE 

DD OOODO 15$: PUSHL *T 

DD OOODF PUSHL #3 

F8 Q00E1 CALLS *4, DSX$PRINT 

11 000E4 BRB 30$ 

9E Q00E6 16$: MOVAB T UNKNOWN ERROR, ERROR MESSAGE 

11 OOOEB BRB 30$ 

E9 OOOED 17$: BLBC DS$GL CRD FLAGS, 18$ 

F8 OOOFA CALLS *O t IRTERRAL JRROR 

11 OOOFB BRB 19$ 

9E OOOFD 18$: MOVAB T CORRUPTED ERROR, ERRORJIESSAGE 

DO 00100 19$: MOVL #T £ RETURN JlOW 

11 00103 20$: BRB 30$ 

E1 00105 21$: BBC #1, a# A X00O0FEO2, 221 

9F 001OO PUSHAB T CORRUPTED 

11 00111 BRB 25$ 

9E 00113 22$: MOVAB T CORRUPTEDJRROR, ERRORJIESSAGE 

11 00116 BRB 30$ 

E1 00118 23$: BBC n, eW A X00O0FEO2, 25$ 

9F 00120 PUSHAB T INCOMPATIBLE 

DD QQ124 24$: PUSHL #T 

DD 00126 PUSHL #3 

FB 00l28 CALLS *3, DSXSPRINT 

11 001 2B BRB 30$ 

9E 0012D 25$: MOVAB T INCOMPATIBILITY JRROR, ERROR MESSAGE 

11 00131 26$: BRB 30$ 

El 00133 27%: BBC #1. a#*X00OOFEO2, 28$ 

DD 001 3B PUSHL MORE. INFO 

9F 001 3E PUSHAB T NOT.CONTRACTED 

DD 00142 PUSHL #T 

DD 00144 PUSHL #3 

F8 00146 CALLS *4, DSX$PRINT 

11 00149 BRB 29$ 



17 
(1) 

1322 

1324 
1326 



1329 
1311 
1332 
1333 



1335 
1336 

1337 

1338 
1341 
1342 



1347 
1348 



1350 
1347 
1359 
1360 

1362 
1364 
1299 
1368 
1369 

1371 
1368 
1374 
1375 



1377 
1374 
1386 

1387 



ZZ-ENSAA-7.0 

CRD I MAGE 



CRD Error Routine 

*** Loading and Unloading the CRD Image 

CRD^Error Routine 



B4 



00000000G 



OQOOFEOO 



FE68 

OOOOFEOO 



66 
cF 
67 



66 
08 
9F 



21 



66 



66 



66 
07 

a 

9F 
6? 



00000000' 



00000000G 
0088 



00E3 



Q10F 



oc 



A5 
01 
03 
03 
00 
00 
54 
OF 
EF 
54 
01 
03 
04 
53 
52 

EF 
50 
C5 
01 
03 
03 
C5 
01 
03 
03 
C5 
01 
03 
03 
AC 
7E 
01 
52 
00 
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Page 



9F 001 
DD 001 
DD 001 
FB 001 
FB 001 
F8 001 
D5 001 
13 001 
DD 001 
DD 001 
DD 001 
DD 001 
FB 001 
E9 001 
DO 001 
04 001 
16 001 
E9 001 
9F 001 
DD 001 
DD 001 
F8 001 
9F 001 
DD 001 
DD 001 
FB 001 
9F 001 
DD 001 
DD 001 
FB 001 
E9 001 
D4 001 
FB 001 
DO 001 
FB 001 
04 001 



4B 

4E 

50 

52 

55 

5C 

5F 

61 

63 

69 

6B 

6D 

6F 

72 

75 

7C 

7D 

83 

86 

8A 

8C 

8E 

91 

95 

97 

99 

9C 

AO 

A2 

A4 

A7 

AB 

AD 

B2 

B9 

BC 



28$ J 



29$: 
30$: 



31$: 



32$; : 



33$: 



34$: 



PUSHAB 

PUSHL 

PUSHL 

CALLS 

CALLS 

CALLS 

TSTL 

BEQL 

PUSHL 

PUSHL 

PUSHL 

PUSHL 

CALLS 

BL8C 

MOVl 

RET 

JS8 

BLBC 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

BLBC 

CLRL 

CALLS 

MOVL 

CALLS 

RET 



T C0NTRACTI0N„ERR0R 

#T 

#3 

03, DSXSPRINT 

#0, MPFREE 

#0, CRD EXIT 

ERROR MESSAGE 

31$ 

DS$A AUTO OR MENU 

ERROR MESSAGF 

#1 - 

*3 

#4, DSXSPRINT 

RETURN NOW, 32$ 

SAVE_D5A_FLAGS, M a XOOOOFEGG 

DSR$CHECKJ\UTOTEST,OFF_SET 

RO, 33$ 

T AUTO_AB0RT,CRD 

#T 

*3 

*3, DSX$PRINT 

T AUTOJNDJIESSAGE 

*T 

*1 

#3, DSXSPRINT 

T AUTOJXIWO.CONSOLE 

#T 

#3 

*3, DSXSPRINT 

MEM0RYJMSJU.LOCATED, 34$ 

-<SP) 

#1, DSRSUNLOAD^CRD 

SAVE DSA FLAGS, Q# A XO00OFE0O 

00, CRO.EXIT 



38 
(1) 

1389 



1391 
1392 
1396 

1397 



1399 
1401 
1400 
1410 

1413 



1414 



1415 



1418 
1419 

1421 
1425 
1427 



Routine Si^e: 44,5 bytes. Routine Base: CODE + 0425 



1428 
1429 
1430 
1431 
1432 
1433 
14 54 
1435 
1436 
1437 

1438 

1439 

1440 
H41 
1442 
1443 
1444 



XSBTTL Mnterna(._Error Routine* 

ROUTINE Internal_Error : NOVALUE = 
" +t 

Functional Description: 



C07! 

V 



An internal error has occurred. The operator has already been notified, if the Trace or the Debug bits 
are set, print this 'error dump 1 that shows the state of CRD at the time of the internal error. This will 
help the Diagnostic Tools group people tremendously in debugging CRD, Hopefully. 

Formal Parameters; 

None 
Implicit Inputs: 

DS$Q_tRD_Jmage„Desci This points to the start of the CRD image <in memory). The dispatch vectors <or # in 



ZZ-ENSAA-7.0 

CRDIMAGE 

U2-11 



1445 

1446 

144 7 

1448 

1449 

1450 

1451 

145? 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1463 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 

1488 
1489 

1490 
1491 
1492 
149! 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

C 

2 
2 
2 
2 

2 

■) 

L 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

2 
2 



Internal Error Routine 

*** LoadTng and Unloading the CRD Image 

internal„Error Routine 
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this case, the debug vectors) are, located at the start of the image. 
Side Effects: 

Prints some debugging information. 
Completion Codes: 

None 



BEGIN 



MAP 

REGISTER 
BIND 
BIND 



DS$AL_DS_Dispatch_Vectors : VECTOR C, BYTE3; 



Stati ; 



Debug.Vec*:ors = ( ,DS$G.CRDJmage..Desc [KJmage.Ptr] + 4) : VECTOR [, L0NG3; 



Frror^Code 

* ypeCode 

Length 

Address 

Current^Stat 

MM^Current.S 

TQ~Current"*S 

HS^CurrentlS 

Previous. Sta 

DSA Flags 

DS^Flags 

Current.DDB 

Current_HSB 

Current^HSB 

Current~TQ P 

Start_07„cGD 

CRD Version 

VDS~Version 



e Table 

tate 

tate 

tate 

te 



Ptr 

Ptr 

Numb 
ntry 

Image 
Number 
Number 



Debug„Vectors [13, 

Debug Vectors UW 

Debug7 u C'C tors [33. 

Debi:^. Vectors i"**j, 

Deluy.Vectors l53, 

DcOug„Vectors r e3, 

Debug.Vector? [73, 

Debug„Vecto r s [83, 

Debug Vectors [9?, 

Debugger cors Ci03, 

Debug^v^ctors [11], 

Debu9„Vectors [123. 

Debu<j_Vectors [13], 

Debu^Vectors [14], 

Debuc, .Vectors [15], 

Debug Victors [163. 

(f.DeBua Vectors [163) <8, 8, 0>) 

DS$AL„DS_Dispatch_Vectors [1j; 



MACRO 



Error Type (Frror Type Name) = 

[- XNAME 7'CRD$K \ Error Type Name>3: 

SPrfnt (PS$K Type"General_Error, DSSK^PrintF, 

SASClC ('Error Type = ', Error Type Name, '!/')) 

Module_Debug ( ' Jnternal„Error - Starr:'); 

SPn'nt (DSSK Type General^Error , DS$fc_PrintF, 

SASClC ( '7/ !/******** **************** CRD Internal Error ************************ j /!/' )); 

! Pr>nt the type of error 

CASE ^.Irror Code FROM 1 TO (-CRD$K last Internal Error - 1) OF 

SET ~ " 

Error_Type ( 'Al locat*on_E* ror * ); 



ZZ-ENSAA- 


7.0 


CRDIMAGE 




02-11 




; 1502 


2 


; 1503 


2 


; 1504 




; 1505 


J 


; 1506 


2 


; 1507 


2 


1 508 


2 


; 1509 


2 


; 1510 


2 


; 1511 


2 


; 1512 


2 


; P 15H 


2 


1514 


2 


; 1515 


2 


; 1516 


2 


; P 1517 


2 


; 1518 




; 1519 


2 


; 1520 


2 


; 1521 


2 


; 1522 


2 


; 1523 


2 


; 1524 


2 


; 1525 


2 


; 1526 


2 


; 1527 


2 


; 1528 


2 


; 1529 


2 


; 1530 


2 


; 1531 


2 


1532 


2 


; 1533 


2 


1534 


2 


; 1535 


2 


1536 


2 


; 1537 


2 


; 1538 


2 


; 1539 


2 


1540 


2 


; 1541 


2 


1542 


2 


1543 


2 


1544 


2 


1545 


2 


1546 


2 


1547 


3 


; 1548 


3 


1549 


3 


1550 


3 


; 1551 


4 


; P 1552 


4 


; 1553 


4 


1554 


3 


; 1555 


3 


5 556 


3 


; 1557 


4 


; P 1558 


4 



B 15 
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*** Loading and Unloading the CRD Image 27-Jul-1984 16:00:30 VAX-11 BUss-3? V4. 0*742 Page 40 

Internal Error Routine 26~Jul-1984 09:38:37 DMAli[5YS0.SYS«AINT3CRPI«AGe.832;87 (1) 




rror^Type ( *8a3 Ac t ion Number ') ; 
rroOype ( 'Load Sup File*); 
rror Type < 'CreafeJ^T 1 ); 



E 
E 

Error Type 
NRARgEJ; 



CI 

SPrint (DSSK Type General_Error, DSSK.PrintF, 

SASCIC ('Error Type = unknown (JSt).*/'), .£rror„Code); 

[OUTRANGE): 

SPrint (DSSK TypeGeneral.Error, DSSK.PrlntF, 

SASCiC ('Error Type - out of range (!SL>!/*), .Error Code); 
TES; 

J Print the typecode name 

$Pr1nt (DSSK.Type.GeneralJrror, DSSK_Pr1ntF, SASCiC ('Typecode !?* - ')); 
DSRSPHnt_TypeCode_Name ( . TypeCode); 

! Print tne Length of the message beina printed at the time the internal occurred. Note that this will 
! rot always be a length, as in the Internal errors in the MENTSTINI module. 

SPrint (DSSK^Type.General. Error, DSSK.PMntF, SASCIC ('Length '4* = !UL!/">, .Length); 

: Print the address - see previous comment. 

SPrint (DSSK_Type„GeneralJrror, DS$K_PMntF, SASCJC ('Address !3* * !XL(X)!/'>, .Address); 

! Print the DSA and the DS flags. 

SPrint (DSSK Type General Error , DSSK PHntF, SASCIC COSA flags M« * :XL(X)!/'>, .DSA Flags); 
SPrint (DSSOype.GeneralJrrjr, DSSK_PHntF, SASCIC CDS flags !2* = !XL<X)!/'), .DSjTags); 

! Print the state table Information 

SPrint (DSSK Type.General Error, DSSK PrintF, SASCIC C!/State Table 110* State Number')): 
SPrint (DSSK_Typ9_General. Error, DSSK_PrintF, SASCIC ('!/ — !10* — !/')); 

State = .Current State Table; J Start at the current state table 
DO 

BEGIN 

CASE .State FROM MENSkM State.Table TO MENSKjiS^StateJable Of 
SET 

CMENt-K M Statejable]: 
BEGIN 
SPrint (DSSK. Type General Error, DSSK PrintF, SASCIC f'MainMenu !17* 12m!/ 1 ), 

.MM^urrent^StateT; 
END; 

CMENSK.TQ State.TableJ: 
BFGIN 
SPrint (DSSK_Type_GeneralJrror, DSSK„PrintF , SASCIC ('Test Queue *16* !2ULl/'), 



JZ-ENSAA- 


7.0 


CRD1MAGE 




i»2-n 




; 1559 


4 


; 1 560 


3 


; 1561 


3 


; 1 562 


3 


; 1563 


4 


; P 1564 


4 


1565 


4 


; 1566 


3 


; 1567 


3 


; 1568 


3 


; 1569 


3 


; 1570 


5 


1571 


2 


; 157? 


2 


; 1573 


? 


; 1574 


2 


1575 


2 


; 1576 


? 


; 1577 


? 


1578 


2 


; 1579 


2 


; 1 580 


2 


; 1581 


2 


1 58? 


2 


; 1583 


2 


; 1584 


2 


; 1585 


2 


1 586 


2 


; P 1587 


2 


; 1588 


2 


1589 


2 


; 1590 


2 


1591 


2 


; P 159? 


2 


1593 


3 


; 1594 


2 


1595 


2 


1596 


2 


; 1597 


2 


; 1 598 


1 



Internal Error Routine 

*** loading and Unloading the CRD Image 

Internal.Error Routine 



END; 
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END; 



,TQ_Current. State); 



CMEN&K HS StateJableJ: 

BEGIN 

SPr int (DS$K Type.Generat Error, DSSK.PrintF, SASCIC ('Hardware Support M0* J 2UL 5 / f 
.HS Current State); 

END; 
TES; 

State = (.State ♦ 1) MOD 3; 
END ' DO . . . UNTJL 

UNTJL (, State EQL . Current, State_Table); 

! Print the previous stare number 

$Print (DSSK.Type^General^Error, DSSK^PrintF , SASCIC ('Previous state 112* JPUL!/!/ 1 ), .PreviouOtate); 

! Print the DDB and HSB (Device Data Block and Hardware Support Block) pointers 




! Now. print the remaining debug vectors. The remaining ones are either or contain a PC, Print only 
• those that are PC's. 

$Print (DSSK Type General Irror , DSSK PrintF, 

SASCIC ('PCs from the call frame stack (starting with most recent): !/')); 

INCR Vector FROM 17 to (CRDSK Total Numb^Vectors - 1) DO 
If (.Debua Vectors C. Sector] NEQ 0) THEN 

VPrint (DSSK Type General Error, DSSK PrintF, 

SASCIC <• PC from call frame CIUL3 = !XL!/';, (.Vector«17), .Debug^Vectors C. Vector 

ELSE 

FXIU00P; 



Module.Debug (' Internal. Error - End;'); 

! End of InternaLError 



!C07 ; 



?A ?A ?A ?A 

?0 ?A ?A ?A 

?A ?A 2A ?A 

?A ?A 2A ?A 

41 ?0 3D 20 

72 6F 72 72 

41 ?0 3D ?0 

72 72 45 5F 



?A ?A ?A ?A ?A ?A ?F ?1 ?F ?1 4C 006EB P.ABN: 

?A ?A ?A ?A ?A ?A 2 A ?A ?A ?A ?A 006FA 

6E 72 65 74 6E 49 ?0 44 5? 43 00709 

?A ?A ?0 72 6F 72 72 4$ ?0 6C 61 00713 



.PSECT DATA,N0WRT,N0EXE, SHR,2 
.ASCII \L!/!/***»«********»***» 



CRD InternN 



?A ?A ?A ?A ?A ?A ?A 

?F ?1 h 

65 70 79 54 ?0 >? 6F 

45 5F 6E 6F 69 74 61 



A 
1 



A 
A 



A 



>A 
>A 



7? 45 1F 
6F 6C 6C 



m 

(0738 P.ABO: 
I0747 



?F ?] 0075. 
65 70 79 54 20 72 6F 72 72 4S 2\ 00?S8 P.A8P: 



65 67 6E 61 5? 5F 6E 



6F 69 74 63 00767 
?F 21 72 6F 00776 



.ASCII Sal ^rror **•**************-•***** !/IA 



.ASCII <3l>\Error Type = Allocat ionjrror |A 
.ASCII MError Type = Act ion^Range^Errc ! A 



7Z-ENSAA-7.0 
CRD I MAGE 
02-11 



Internal Error Routine 

*** LoadTng and Unloading the CRD Image 

Internal_Error Routine 



A1 20 30 20 65 70 79 5A 20 

6F AE 5F 6F AA 5F AC 51 A5 

A2 20 3D 20 65 70 79 5A 20 

72 72 A5 5F 65 6A 6F 63 65 

AA 20 3D 20 65 70 79 5A 20 

6F 72 72 A5 5F 68 7A 67 6E 



AD 20 3D 20 65 70 

6F 72 72 A5 5F 6C 

5A 20 3D 20 65 70 

6F 72 72 A5 5F 6C 

A8 20 3D 20 65 70 

6F 72 72 A5 5F 6C 

A2 20 3D 20 65 70 

65 62 6D 75 AE 5F 



AC 20 

2\ 

A3 20 

75 20 

2^ 

6F 20 

53 21 

3D 20 

21 20 

20 3D 

20 2A 

3D 20 

20 65 
62 6D 

20 2D 
2D 2D 

2A 37 
36 31 

6F 70 
2f 

65 7A 
2^ 

7A 6E 

6A 61 



3D 20 

21 65 

3D 20 

3D 20 

21 29 

3D 20 

28 20 



65 70 

6C 69 

65 70 

2F 21 

65 70 

AC 53 

65 70 

65 67 



2A 32 21 20 



3D 20 

20 2A 

31 21 

2A 32 

6C 62 

75 AE 

2D 20 

2D 2D 

31 21 

21 20 

70 75 

21 AC 

61 7A 

21 2f 

65 20 

2i 21 

20 A2 



2A 3A 

33 21 

20 73 

2f 

21 20 

61 5A 

20 65 

2D 2D 

2D 20 

20 75 
65 75 

53 20 

55 32 

73 20 

21 AC 
51 5A 
AC 55 
AA AA 



79 5A 20 

61 6E 72 

79 5A 20 

61 6E 72 

79 5A 20 

61 6E 72 

79 5A 20 

6E 6F 69 

79 5A 20 

n6 5F 70 

79 5A 20 

5A 53 A8 

79 5A 20 

21 28 20 

79 5A 20 

6E 61 72 

65 6A 6F 

21 20 68 

20 73 73 
2f 21 

67 61 6C 

21 29 58 
73 67 61 
2f 21 29 

20 65 >A 
7A 61 7A 

2D 2D 2D 

2D 2D 2D 

6E 65 AD 

2f 

65 75 51 

2^ 21 

65 72 61 

21 20 2A 
73 75 6F 
55 32 2) 

20 7A 6E 

21 20 3D 
20 7A 6E 



72 


6F 


72 


72 


A5 


2A 


0077A P.ABQ: 


5F 


6E 


6F 


69 


7A 


63 


00789 




21 


67 


6E 


69 


68 


7A 


00798 




72 


6F 


72 


72 


A5 


21 


0079F 


P.ABR: 


70 


79 


5A 


5F 


% 


61 


Q07AE 
007BD 








dF 


21 


& 




72 


6F 


72 


72 


A5 


20 


007C1 


P.ABS: 


65 


AC 


5F 


61 


7A 


61 


007D0 










2^ 


21 


72 


007DF 




72 


6F 


72 


72 


A5 


20 


007E2 


P. AST: 


65 


7A 


6E 


A9 


5F 


AD 


007F1 










2f 


21 


72 


00800 




72 


6F 


72 


72 


A5 


20 


00803 


P.ABU: 


65 


7A 


6E 


A9 


5F 


51 


00812 










2F 


21 


72 


00821 




72 


6F 


72 


72 


A5 


W 


0082A 
00833 


P.ABV: 


65 


7A 


6E 


A9 


5F 


53 










2f 


21 


72 


008A2 




72 


6F 


72 


72 


A5 


20 


008A5 


P.A8W: 


7A 


63 


A1 


5F 


6A 


61 


0085A 










2f 


21 


72 


00863 




72 


6F 


72 


7 2 


A5 


1C 


00866 P.ABX: 


75 


53 


5F 


6A 


61 


6F 


00875 




72 


6F 


72 


72 


A5 


19 


00883 


P.A8Y: 


5F 


65 


7A 


61 


65 


72 


00892 




72 


6F 


72 


72 


A5 


1C 


0089D P.A8Z: 


6E 


77 


6F 


6E 


68 


6E 


008AC 




72 


6F 


72 


72 


A5 


21 


008BA P.ACA: 


20 


66 


6F 


20 


7A 


75 


008C9 








2f 


21 


29 


AC 


008D8 




63 


65 


70 


79 


5A 


OF 
20 


008DC 
008EB 


P.AC8: 


7A 


67 


6E 


65 


AC 


12 


0Q8EC 
008FB 


P.ACC: 






2f 


21 


AC 


55 




65 


72 


6A 


6A 


A1 


16 


CJ8FF 
0090E 


P.ACD: 


29 


58 


28 


AC 


58 


21 




66 


20 


A1 


53 


AA 


18 


m 


P. ACE: 


28 


AC 


58 


21 


20 


3D 




6C 


66 


20 


53 


AA 


17 


0092F 


P.ACF: 


58 


28 


AC 


58 


21 


20 


0093E 
00947 




61 


7A 


53 


2f 


21 


1F 


P.ACG: 


53 


20 


2A 


30 


31 
72 


21 
65 


00956 
00965 




2D 


2D 


2D 


2F 


21 


21 


00967 
00976 


P.ACHi 


2D 


20 


2A 


30 


*1 


21 








2F 


21 


2D 


2D 


00985 




20 


6E 


69 


61 


AD 


15 


00989 P.ACJ: 


21 


AC 


55 


32 


21 


20 


00998 




20 


7A 


73 


65 


5A 


16 


0099f 


P.ACJ: 


AC 


55 


32 


21 


20 


2A 


009AE 




77 


6A 


72 


61 


A8 


1C 


00986 


P.ACK: 


30 


31 


21 


20 


7A 


72 


009C5 




69 


76 


65 


72 


50 


K 


009D3 P. ACL: 


20 


2A 


32 


31 


21 


20 


009E2 




65 


72 


72 


75 


A3 




009F0 P. ACM: 


20 


20 


20 


20 


79 


72 


009FF 




65 


72 


72 


75 


A3 


1E 


00A0C 


P.ACN: 



D 15 
27-Jul~198A Ffche ' frame D15 Sequence 803 

27-jul-198A 16:00:30 VAX-1 1 BUss-32 VA.0-7A2 , Page 
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♦ASCII \$Error Type = Actlon^EQL^Do^Nothing! A 

.ASCII \!Error Type = Bad.Typecode.Error » A 

. ASCII \ Error Type « Data_Length_Error !/\ 

.ASCII \ Error Type * MM_Internal_Error! A 

.ASCII \ Error Type = TG_Internal_Error! A 

.ASCII \ Error Type * HS.Internal. Error !A 

.ASCII \ Error Type = Bad^Act ion_Number !A 

.ASCII <28>\Error Type - Load^Sup^Fi le!A 

.ASCII <25>\Error Type = Create_HST!A 

.ASCII <2B>\Error Type - unknown (!SL)!A 

.ASCII \iError Type « out of range USD! A 

.ASCII <15>\Typecode \2* = \ 

.ASCII <18>\Ungth !A* * !UL!A 

.ASCII <22>\Address !3* - !XL<X)!A 

-ASCII <2A>\DSA flags !1* * !XL(X>!A 

.ASCII <23>\DS flags !2* ' !XL(X)!/\ 

.ASCI] <31>\!/State Table !10* State Number\ 



A2 
(1) 



.ASCII \!!A 



J10* 



!A 



.ASCII <21>\Main Menu M7* !2Ul!A 

.ASCII <22>\Test Queue !16* !2UL!/\ 

.ASCII <28>\Hardware Support MO* !2Ul!A 

.ASCII <28>\Previous state !12* !2UL!/!A 

.ASCII <27>\Current TQ entry = JULIA 

.ASCII <30>\Current DDB address = !XL<X)!A 



ZZ-ENSAA-7,0 

CRDIMAGE 

02-11 



Internal^Error Routine 
*** LoadTng and Unloading 
Internal^Error Routine 



the CRD Image 



E 15 
27-Jul-1984 Fiche 4 Frame E15 Sequence 804 
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21 29 58 28 AC 58 21 20 3D 20 73 73 65 



75 6E 20 42 53 48 

2F 21 4C 55 

64 61 20 42 53 48 
21 29 58 28 4C 58 

63 20 65 68 74 20 

6B 63 61 74 73 20 

67 

65 63 65 72 20 74 

6C 6C 61 63 20 6D 

20 3D 20 5D 4C 55 



20 74 6E 

21 20 3D 

20 74 6E 

21 20 3D 

6D 6F 72 

65 6D 61 

6E 69 74 

73 6F 6D 

6F 72 66 

21 5B 20 



65 72 

20 20 

65 72 
20 73 

66 20 
72 66 
72 61 
20 68 
2f 21 
20 43 
65 6D 

2f 



72 75 

72 65 

72 75 

73 65 
2^ 

73 43 

20 6C 

74 73 
74 69 
3A 29 
50 20 
61 72 

21 4C 



72 64 
2F 

43 18 

62 6D 

43 20 

72 64 

21 2f 

50 3C 

6C 61 

28 20 

71 20 

74 6E 

20 22 

66 20 

58 21 



00A1B 

00A2A 

00A2B P.ACO: 

00A3A 

00A47 P.ACP: 

00A56 

00A65 

00A68 P. ACQ: 

00A77 

00A86 

00A90 

00A9F 

00AA5 P.ACR: 

00AB4 

00AC3 



•ASCII <27>\Current MSB number = .'UL.'A 

•ASCII \ Current MSB address = !XL(X)!/!A 

•ASCII \<PCs from the call frame stack (startingV 

•ASCII \ with most recent):!/\ 

• ASCII \ M PC from call frame [!UU * IXLIA 



• PSECT C0DF,N0WRT, $HR,2 



53 



0036 
004E 



OA 
0030 
0048 
0060 



55 


00000000G 9F 


9E 00002 


54 


oooooooo • U 


9E 00009 


00000000 1 EF 


04 


CI 00010 




54 


DD 00018 




01 


DD 0001 A 




03 


DD 0001 C 


65 


03 


FB 0001 E 


50 


04 A3 


CE 00021 


01 


50 


CF 00025 


0028 


0026 


00029 


0042 


003C 


00031 


005A 


0054 


00039 



003C 00000 INTERNAL ERROR: 

TWORD 
MOVAB 
MOVAB 
ADDL3 
PUSHL 
PUSHL 
PUSHL 
CALLS 
KNEGL 
CASEL 
1$: .WORD 



65 



04 


A3 


DD 0003F 


PUSHL 


OUF 


C4 


9F 00042 


PUSHAB 




01 


DD 00046 
DD 00048 


PUSHL 




03 


PUSHL 




04 


FB 0004A 


CALLS 




45 


11 0004D 


BRB 


4D 


A4 


9F 0004 F 2$ 


PUSHAB 




39 


11 00052 


BRB 


6D 


A4 


9F 00054 3$ 


PUSHAB 




34 


11 00057 


BRB 


008F 


C4 


9F 00059 4$ 
11 0005D 


PUSHAB 




2t 


BRB 


0084 


C4 


9F 0005F 5$ 


PUSHAB 




2B 


11 00063 


BRB 


00D6 


C4 


9F 00065 6$ 


PUSHAB 



Save R2,R3 t R4,R5 

3*DSX$PRINT, R5 

P.ABN, R4 

*4, DSSG..CRDJMAGE..DESCH, 

R4 

01 

*3 

*3. DSXSPRINT 

4(R3>, RO 

RO, #1, #10 

2$-1$,- 

3$-U,- 

4$-1$,- 

5S-1S,- 

6S-1S.- 

7$-1i,- 

8S-1S,- 

9$-1$ 1 - 

10$-li,~ 

1H-1$ f - 

12$-1$ 

4(R3) 

P.ACA 

#1 

#3 

#4. DSXSPR1NT 

ui 

P,ABO 

ih 

P.ABP 

ih 

P.ABQ 

13$ 

P.ABR 

l5$ 

P.ABS 



R3 



1430 



146i 
1495 



1499 



1518 



1501 

15021 

1503 

150*1 

15051 

i 
i 

j 



ZZ-ENSAA-7.Q 

CRDiMAGE 

02-11 



Internal Error Routine 

*** Loading and Unloading The CRD Image 

Internaljirror Routine 



F 15 

27-Jul-1984 
27-Jul~1984 16: 
26-Jul-1984 09: 



44 
(1) 



0, 
0011 



65 

65 
00000000V EF 

65 

65 

65 

65 
65 



65 

52 

00 

OOOF 



00> 7 
0118 
0139 
015A 
0178 
0198 

01F1 



08 

OC 
0201 



10 
0214 



?8 
0228 



2C 
0244 



025C 



027C 



14 



18 

029E 



22 
C4 
1C 
C4 
16 
C4 
10 
C4 
OA 
C4 
04 
C4 
01 
03 
03 
C4 
01 
03 
03 
A3 
01 
A3 
C4 
01 
03 
04 
A3 
C4 
01 
3 
4 
A3 
C4 
01 
03 
04 
A3 
C4 
01 
03 
04 
C4 
01 
03 
03 
C4 
1 



8 




A3 
C4 
10 



11 
9F 
11 
9F 
11 
9F 
11 
9F 

11 

9F 

11 

9F 

DD 

DD 

FB 

9F 

DD 

DD 

FB 

DD 

F8 

DD 

9F 

DD 

DD 

F8 

DD 

9F 

DD 

DD 

FB 

DD 

9F 

DD 

DD 

F8 

DD 

9F 

DD 

DD 

FB 

9F 

DD 

DD 

FB 

9F 

DD 

LD 

F 

D 

CF 



DD 

9F 
11 



00069 
00068 
0006F 
00071 
00075 
00077 
00078 
0007D 
00081 
00083 
00087 
00089 
0008D 
0008F 
00091 
00094 
00098 
0009A 
0009C 
0009F 

m 

OOOAC 
00080 
O00B2 
000B4 
000B7 
OOQBA 
OOOBE 
OOOCO 
000C2 
OOOCS 
00QC8 
OOOCC 
OQOCE 
OOODO 
000D3 
000D6 
OOODA 
00 C 
ODE 
0E1 
0E5 
0E7 

KK? 

FO 
F2 
F4 
F7 

uOOFF 



00105 
00108 
0010C 




7$: 

8$: 

9$: 

10$: 

11$: 

12$: 
13$: 



14$: 



15$: 
16$: 



17$: 



BR8 

PUSHA8 

BR8 

PUSHAB 

8RB 

PUSHAB 

BR8 

PUSHAB 

BRB 

PUSHAB 

BRB 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHL 

CALLS 

PUSHL 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHL 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHL 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHL 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

PUSHAB 

PUSHL 

PUSHL 

CALLS 

MOVL 

CASEL 

.WORD 



PUSHL 

PUSHAB 

BRB 



Fiche 4 Frame F15 Sequence 805 
:30 VAX-11 BUss-32 V4. 0-742 Page 

:37 DMA1:CSYS0.SVSMAINT3CRDJMAGE.B32;87 

P.ABT ; 150a 

P.ABU ; 1507 

P.ABV ; 1508 

1J$ 

P.ABW ; 1509 

13$ 

P.ABX : 1510 

13$ 

P.ABY ; 1511 

*1 

*3 

#3, DSX$PRINT 

P.ACB ; 1523 

#1 

*3 

*3, DSX$PRJNT 

8(R3) ; 1524 

#1, DSR$PRINT TYPECOOE NAME 

12(R3) " ; 1529 

P.ACC 

01 

#3 

*4, DSX$PRINT 

16CR3) ; 1533 

P.ACD 

*1 

#3 

#4, DSXSPRJNT 

40(R3) ; 1537 

P. ACE 

#1 

#Z 

#4, DSX$PRINT 

44(R3) ; 1538 

P.ACF 

#1 

#3 

#4, DSX$PRINT 

P.ACG ; 1542 

#1 

*3 

#3 f DSXSPRJNT 

P.ACH ; 1543 

#1 

#3. DSX$PRiNT 

20CR3). STATE ; 1545^ 

STATE, #0, *2 ; 1548 

17$~1o$,~ 

18$«*16*,- 

19J-16S ; j 

2«(R3> ; 1553 

P.AC1 

20$ 



ZZ-ENSAA-7,0 

CRDIMAGE 

02-11 



Intemal^Error Routine 

*** Loading and Unloaaing the CRD 

Internal^Error Routine 



Image 



1C 

0284 

20 
02CB 



7E 
52 



01 
52 



14 



65 
52 
8E 

A3 



65 



65 



65 



65 



65 



65 
52 



24 
02E8 



3C 
0305 



0321 



38 
0340 



5* 
035C 



037D 



A3 

C4 

07 

A3 

C4 

01 

03 

04 

01 

03 

52 

C6 

A3 

C4 

01 

03 

04 

A3 

C4 

01 

03 

04 

A3 

C4 

01 

03 

04 

A3 
C4 
01 
03 
04 
A3 
C4 
01 
03 
04 
C4 
01 
03 
03 

n 

6342 
15 
6342 
ZF Ai 



038A 



E6 



65 
52 



C4 

01 
03 
05 
18 



DD 
9f 
11 
DD 
9F 
DD 
DD 
F8 
7A 
78 
D1 
12 
DD 
9F 
DD 
DD 
F8 
DD 
9F 
DD 
DD 
FB 

DD 
9F 

DD 
DD 
F8 
DD 
9F 
DD 



FB 

DD 

9F 

DD 

DD 

FB 

9F 

DD 

DD 

FB 

D 

D 

13 

DD 

9F 

9F 

DD 

DD 

F 

F 

04 



G 15 

P7-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 4 Frame G15 
16:00:30 VAX-11 BUss-32 



09:38:3: 



Sequence 806 
V4.Q-742 __ __ Page 



DMA1:CSYS0.SYSMAINT3CRDIMAGE,B32;87 



001 OE 
00111 
0115 
0117 
0011 A 
001 IE 
00120 
00122 
00125 
0012A 
0012F 
00133 
135 
138 
001 3C 
001 3E 
00140 
00143 
00146 
0014A 
0014C 
0014E 
00151 
00154 
00158 
15A 
15C 
0Q15F 
00162 



00198 
001 9A 




18$: PUSHL 28CR3) 

PUSHAB P.ACJ 

BRB 20$ 

19$: PUSHL 32(R3) 

PUSHAB P.ACK 

20$: PUSHL #1 

PUSHL #3 

CAUS *4, DSX$PRINT 

EMUL *}. STATE, tf 1 , -(SP) 

EDJV #3, (SP)+, STATE, STATE 

CMPL STATE, 20<R3) 

BNEQ 15$ 

PUSHL 36(R3) 

PUSHAB P. ACL 

PUSHL #1 

PUSHL *3 

CALLS #4, DSX$PRINT 

PUSHL 60(R3) 

PUSHAB P.ACM 

PUSHL #1 

PUSHL #3 

CALLS *4, DSX$PRJNT 

PUSHL 48(R3) 

PUSHAB P.ACN 

PUSHL *1 

PUSHL *3 

CALLS #4, DSXSPRINT 

PUSHL 56<R3) 

PUSHAB P.ACO 

PUSHL *1 

PUSHL *3 

CALLS *4, DSX$PRJNT 

PUSHL 52(R3) 

PUSHAB P.ACP 

PUSHL #1 

PUSHL *3 

CALLS *4, DSX$PRJNT 

PUSHAB P.ACO 

PUSHL #1 

PUSHL #3 

CALLS #3, DSX$PRJNT 

MOVL #17, VECTOR 

21$: TSTL (R35CVECTOR3 

BEQL 22% 

PUSHu (R3)CVECTOR3 

PUSHAB -1?(VECT0R) 

PUSHAB P.ACft 

PUSHL #1 

PUSHL #3 

CALLS #5, DSX$PR1NT 

AOBLEO #24, VECTOR, 21$ 
Zlli RET 



45 

(1) 

1559 
1565 

1569 
1571 
1575 

1579 

1580 

1581 

1582 

1588 



1590 
1591 

1593 



1591 
1598 



Routine Si*e: 420 bytes, Roucine Base: CODE ♦ 05E2 



1599 1 



SS8TTL , DSR$Print_TypeCodeJJame Routine* 



ZZ-ENSAA-" 


7.0 


CROIMAGE 




02-11 




; 1600 


1 


; 1601 


1 


; 1602 


1 


; 1603 


1 


1604 


1 


; 1605 


1 


; 1606 


1 


; 1607 


1 


; 1608 


1 


; 1609 


1 


; 1610 


1 


; 1611 


* 
i 


; 1612 


1 


1615 


1 


; 16K 


1 


; 1615 


1 


1616 


1 


1617 


1 


1618 


1 


1619 


1 


; 1620 


1 


; 1621 


1 


; 1622 


1 


; 1623 


1 


; 1624 


2 


; 1625 


2 


; 1626 


2 


; M 1627 


2 


; M 1628 


2 


; M 1629 


2 


; 1630 


2 


1631 


2 


; P 1632 


2 


; t 1633 


2 


; 3SPRINT: 




1634 


2 


; 1635 


2 


; 1636 


2 


; 1637 


2 


; 1638 


2 


1639 


? 


; 1640 


2 


1641 


2 


; 1642 


2 


; 1643 


2 


1644 


2 


1645 


2 


; 1646 
1647 


2 


t 


1648 




1649 


2 


; 1650 


2 


; 1651 


2 


; 1652 


2 


; 1653 


2 


1654 


2 


; 1655 


2 



DSR$Print.JypeCode Name Routine 

*** Loading and Unloading the CRD Image 

OSRSPrint TypeCode Name Routine 



H 15 

27-Jul-1984 Fkhe 4 Frame H15 Sequence 807 

27-Jul-1984 16:00:30 VAX-11 BUss-32 V4.0-74? ^ ^ Page ^6 

26-Jul-1984 09:38:37 DMA1 :[SYS0,SYSMAINT3CRD1MAGE.B52;87 (1) 



GLOBAL ROUTINE DSR$Print_TypeCode_Name (TypeCode) : NOVALUE = 



•ro? 

I V 



♦ ♦ 



Functional Description? 

Print a short message saying what a given typecode is used for. 
Formal Input Parameters: 

TypeCode: The typecode constant. 
Formal Output Parameters: 

None 
Side Effects: 

None 
Completion Codes: 

None 
BEGIN ! Routine DSRSPrint.JypeCodeJYame 

MACRO 



TypeCode Case (TypeCode^Name) = 



%; 



case uypecoae Name; = 
r*NAME rDS$K Type ', TypeCodeJJame)]: 

SPrint (DSlK_Type_General, DS$K_Pr1ntF, 



SASC1C (TypeCode.Name, , !/ , )> 



CRDJ\ssert < (CRD$K_Numb_Typecodes EOL 38), 

'You must make changes to the CASE statement below if you add more typecodes'); 
ASSERT: The assertion is true, 

CASE .TypeCode FROM TO (CRDSK^Numb.TypeCodes - 1) OF 

•General 1 ) j 



TypeCode. Case 
TypeCode Case 
TypeCode^Case 
TypeCode^Case 
TypeCode_Case 
TypeCode^Case 
TypeCode^Case 
TypeCode. Case 
TypeCode.Case 
TypeCode^Case 
TypeCode.Case 
TypeCode^Case 
TypeCode^Case 
TypeCode.Case 
TypeCode.Case 
TypeCode^Case 
TypeCode.Case 
TypeCode^Case 
TypeCode.Case 



•OS Prompt'): 

'User_Prompr ): 

'General Error*); 

'Errsup'T; 

'Errsys'); 

•Errhard'); 

'Errsoft'); 

'Erraev'); 

•Error^Body'); 

'Error End 1 ); 

'Exception Mead'); 

'Exception'); 

'Errjalt'); 

'Summary*); 

'Program^Start'); 

'Program End 1 ); 

'First Pass'); 

'No.Tests'); 






ZZ-ENSAA- 


7,0 


C&DiMAGE 




02-11 




; 1656 


2 


; 1657 


2 


; 1658 


2 


; 1659 


2 


; 1660 


2 


; 1661 


2 


; 1662 


2 


; 1663 


2 


; 1664 


2 


; 1665 


2 


; 1666 


2 


; 1667 


2 


; 1668 


2 


1669 


2 


; 1670 


2 


; 1671 


2 


; 1672 


2 


1673 


2 


1674 


2 


; 1675 


2 


; 1676 


2 


1677 


2 


; 1678 


2 


1679 


2 


; 1680 


2 


; 1681 


2 


; 1682 


1 



DSRSPrint TypeCode Name Routine 

*** Loading and Unloading the CRD Image 

DSRSPrint TypeCode Name Routine 



1 15 
27~Jul-1984 Fiche 4 Frame 115 Sequence 808 

27-Jul-1984 16:00:30 VAX-11 BLiss-32 V4. 0-742 

26-Jul-1984 09:38:37 DMA1:CSYS0.SYSMAINT]CRDi«AGE.832;87 



Page 



47 
(1) 



END; 



2> 21 

27 21 74 70 

l\ 21 74 70 6D 6F 

21 72 6F 72 72 45 5F 

2F 

2F 

2F 21 

2f 21 

2f 

2F 21 79 64 6F 

2f 21 64 6E 

64 61 65 48 5F 6E 6F 

2f 21 6E 6F 

2^ 21 74 

2F 21 

21 74 72 61 74 53 5F 

2F 21 64 6E 45 5F 

2F 21 73 73 61 

2F 21 73 

2^ 21 7a 11 65 

21 6D 61 72 67 6F 72 



TypeCode^Case 
TypeCode^Case 
TypeCode„Case 
TypeCode_Case 
TypeCode Case 
T>oeCode_Case 
TypeCode^Case 
TypeCode^Case 
T/peCode_Case 
TypeCode.Case 
TypeCode_Case 
TypeCode_Case 
TypeCode^Case 
TypeCode Case 
TypeCcde„Case 
TypeCode_Case 
TypeCode Case 
TypaCodelCase 
TypeCode_Case 

[INRANGEJ: 

SPrint 



'Abort^Test'); 

, Abort_Program , >; 

•Command^Err'); 

•Command.Out'); 

'Program Info 1 ); 

'Start^Err'); 

'Sequence Error' >; 

'CRD.AutoTest'J; 

'Errprep'); 

'Paranv Error'); 

'DS^Start'); 

•Script Pnf): 

'Script^Skip'S; 

'Script_Prompt'>; 

'Script Echo'): 

•QioJJoariver'); 

'Qio^Wrongver'); 

'QiolJnvaap'); 

'Start.list'); 

(DS$K Type General Error, DS$K PrintF, SASCIC ('Unknown typecode = JUL!/ 1 ), .Typecode 



[0UTRANGE3 : 

SPrint (DS$K„Type„GeneralJrror, DS$K„PrintF, SASCIC ('Undefined typecode = JUL!/'), .TypeCo 

TES; ! A 

! Routine DSRSPrint^TypeCode^Name !C07 



•PSECT DATA # N0WRT,N0EXE, $HR,2 



6C 61 

6D 6F 

72 50 

6C 61 

21 70 

21 73 

64 72 

74 66 

21 76 

42 5F 

45 5F 

69 74 

69 74 

6C 61 

79 12 

6D 61 

6D 61 

50 5F 

74 73 

54 5F 

50 5F 



72 65 6E 

72 50 5F 

5F 72 65 

72 65 6E 

75 73 72 

79 73 72 

61 68 72 

6F 73 7 

65 64 

72 6F 

72 6F 

70 65 



65 47 

53 44 

73 55 

65 47 



70 65 63 

48 5F 72 

1 60 6D 

2 67 6F 



» 




09 00AC8 

08 00 AD 2 

00 00ADE 

OF 00AEC 

2^ 00AFB 

08 0QAFC 

08 O0BO5 

09 O0BOE 
09 00B18 
08 00B22 
0C O0B2B 



72 67 6F 

74 73 72 

65 54 5F 

74 72 6F 

74 72 6F 



72 50 

69 46 

6F 4E 

62 41 

62 41 




2? O0BC8 



P.ACS 
P. ACT 
P.ACU 
P.ACV 

P.ACW 
P.ACX 
P.ACY 
P.ACZ 
P.ADA 
P.AD8 
P.ADC 
P. ADD 

P.ADE 
P.ADF 
P.ADG 
P.ADH 

P.ADI 
P.ADJ 
P.ADK 
P.ADL 
P.ADM 



.ASCI 
.ASCI 
.ASCI 
,ASCI 

.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

.ASCI 
.ASCI 
.ASCI 
.ASCI 

.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



<9>\GeneraUA 
<11>\DS_Prompt!A 
<13>\UserJ>rompt!A 
<15>\General^Error!/\ 

<8>\Errsup!/\ 

<8>\Errsys!/\ 

<9>\Errhard!/\ 

<9>\Errsoft!/\ 

<8>\Errdev!A 

<12>\Error - Body!/\ 

<11>\Error EndlA 

<16>\ExcepTior_Head!A 

<11>\Except^on)A 
<10>\ErrJalt!/\ 
<9>\Summary!A 
<15>\Program.Start!A 

<13>\Program End!A 
<12>\First Pass! A 
<10>\No„Tests!A 
<l2>\Abort.Test!/\ 
<15>\Abort_Program! A 



ZZ-ENSAA-7.0 

CRDIMAGE 

02-11 

2F 21 72 

2F 21 74 

2F 21 6F 66 
2F 

72 6F 72 72 

2F 21 74 73 

2F 21 72 

2F 21 

2F 21 70 

21 74 70 6D 

2F 21 6F 

2f 21 72 65 

2? 21 72 65 

2F 21 

2F 21 

6F 63 65 70 

65 70 79 74 
2F 



DSRSPrint TypeCode Name Routine 

*** Loading and Unloading the CRD Image 

DSRSPrint TypeCode Name Routine 



J 15 
27-Jul-1984 
27-Jul-1984 
26-JuM984 



Fiche 4 Frame J15 Sequence 809 
16:00:30 VAX-11 Bliss-32 V4. 0-742 
09:38:37 0MA1 :CSYS0.SYSMA1NT3CR0IMAGE,B32;87 



Page 



48 
(1) 



72 45 

75 4F 
6E 49 
21 72 
45 5F 

65 54 

2F 

6F 72 

2F 21 

66 6E 

69 6B 
6F 72 

68 63 

76 69 
76 67 

70 64 
74 73 
79 74 

2F 

20 64 

21 4C 



5F 64 

5F 64 

5F 60 

72 45 

65 63 

6F 74 

21 70 

72 45 

7u 72 

50 5F 

53 5F 

50 5F 

45 5F 

72 64 

6E 6F 

61 76 

69 4C 

20 6E 

21 4C 
65 6E 
55 21 



6E 61 

6E 61 

61 72 

5F 74 

6E 65 

75 41 

65 72 

5F 6D 

61 74 

74 70 

74 70 

74 70 



74 7C 

6F 4 

72 5 

6E 49 

5F 74 

77 6F 

55 21 

69 66 

20 3D 



6D 6D 

6D 6D 

67 6F 

72 61 

75 71 

5F 44 

70 72 

61 72 

53 5F 

69 72 

69 72 

69 72 

69 72 

5F 6F 

5F 6F 

5F 6F 

72 61 

6E 66 

20 3D 

65 64 

20 65 



6F 43 0D 

6F 43 0D 

72 50 0E 

74 53 OB 

65 53 10 

2F 21 

52 43 OE 
72 45 09 
61 50 OD 

53 44 OA 
63 53 OC 
63 53 OD 
63 53 OF 



OD 
OE 
OE 



63 53 
69 51 
69 51 
69 51 OC 
74 53 OC 
6E 55 18 
20 65 64 
6E 55 1A 

64 6F 63 



00BC9 
00BD7 
0Q8E5 
00BF4 
00C00 
00C0F 

oocn 

00C20 
00C2A 
00C38 
0OC43 
0OC50 
00C5E 
00C6D 
00C6E 
00C7C 
00C89 
00C9A 
00CA7 
00CB4 
00CC3 
OOCCD 
OOCDC 











OOOC 


00000 


.ENTRY 






53 


OOOOOOOOG 9F 


9E 


00002 


MOVAB 






52 


00000000 


■ EF 


9E 


00009 


MOVAB 




25 


00 


04 


AC 


CF 


00010 


CASEL 


0068 


0065 


005F 




0059 




00015 1$: 


.WORD 


0083 


007D 


0077 




0071 




0001D 




009B 


0095 


008F 




0089 




00025 
0002D 




0083 


OOAD 


00A7 




0OA1 






ooca 


00C5 


OOBF 




0OB9 




00035 




00E3 


OODD 


0CD7 




00D1 




0003D 




OOFB 


OOF 5 


OOEF 




00E9 




00045 




0113 


010D 


0107 




0101 




0004D 




0127 


0122 


ono 

0131 




0118 
012C 




00055 
0005D 





P.ADN: .ASCII <13>\Command Err! A 

P. ADO: .ASCII <13>\Commandl0ut!A 

P.ADP: .ASCII <U>\ProgramJnfo!A 

P. ADO: .ASCII <1 1>\Start Jrr!A 

P. ADR: .ASCII <16>\Sequence„Error! A 

P. ADS: .ASCII <14>\CRD„AutoTest! A 

P.ADT: .ASCII <9>\Errprep! A 

P.ADU: .ASCII <13>\ParamJrror! A 

P.ADV: .ASCII <10>\DS^Start!A 

P.ADW: .ASCII <l2>\ScriptJ>nf !A 

P.ADX: .ASCII <13>\Script Skip! A 

P.ADY: .ASCII <15>\ScMpt_Prompt! A 

P. ADZ: .ASCII <13>\Script EcholA 

P.AEA: .ASCII <H>\QfoJJo3river! A 

P.AEB: .ASCII <14>\Qio_Wrongver! A 

P.AEC: .ASCII <12>\0iojnvadp! A 

P.AED: .ASCII <l2>\StartJ.ist! A 

P.AEE: .ASCII <24>\Unknown typecode = JUL! A 

P.AEFj .ASCII <26>\Undef1ned typecode = iULiA 



.PSECT CODE,N0WRT, SHR,2 



DSRSPRINT TYPECODE NAME, Save R2 # R3 
a#DSX$PRlRT, R3 
P.AEF, R2 
TYPECODE, #0, ffl7 

2S-1*,- 
3S-1*,- 

41-1$,- 

S$-1$.- 

H-i$,- 

8S-1S,- 
9S-1$ X - 

ios-ii,- 

n$-is,- 

12S-1S,- 
13$-1$, 



1601 
1635 



14S-1S,- 
15$-1$,- 
16$*1$ # - 
17S-1I.- 
18S~1$,~ 
19$-1$.- 
20$-1$.- 
2H-1S,- 
22$*1S,- 
>$-1S.- 

;$-i$ # - 

!7H$,- 
!9S-1$ # - 



ZZ-ENSAA-7.0 
CRD IMAGE 
02-11 



DSRSPrint TypeCode Name Routine 

*** Loading and Unloading the CRD Image 

DSR$Print.JypeCode - Name Routine 





OA 


AC DD 
52 DD 
01 DD 
03 DD 


63 




04 F8 

04 




FDFB 


C2 9F 
7C 11 




FE05 


C2 9F 
7C 11 




FE11 


C2 9F 
7C 11 




FE1F 


C2 9F 
7C 11 




FE2F 


C2 9F 
7C 11 




FE38 


C2 9F 
7C 11 




FE41 


C2 9F 
7C 11 




FE48 


C2 9F 
7C 11 




FE55 


C2 9F 
7C 11 




FE5E 


C2 9F 
7C 11 




FE6B 


C2 9F 
78 11 




n77 


C2 9F 
7f 11 




FE88 


C2 9F 
7^ 11 




FE94 


C2 9F 
7D 11 




FE9F 


C2 9F 
7C 11 




FEA9 


C2 9F 
78 11 




FE89 


C2 9F 
75 11 




FEC7 


C2 9F 
6F 11 




FEDA 


C2 9F 






69 11 



K 15 








27-Jul- 


1984 


Fiche 4 Frame K15 Sequence 810 




27-Jul- 


1984 16:00 


:30 VAX-11 Bliss-32 V4. 0-742 Page 49 


26-JuL* 


•1984 09:38 


:37 DMA1;[SYSO,SYSMAJNTJCRDIMAG£.B32;87 
31$-1$,- 


(1) 






33$-1$, 


- , 








35$-1$, 


** * i 








37S-1S, 


# 








39$-1$, 


F — t 








41$-1$, 


•m 








43$-1$, 


*m 








45$-1$, 


t 








46$-1$, 


- f 








48$~1$, 


( - t 








50$-1$ 


f - t 








52$-1$ 


- 








54$-1$ 




00061 


PUSHL 


TYPECODE 


1680 


00064 


PUSriL 


R2 




00066 


PUSHL 


#1 




00068 


PUSHL 


ffl 




0006A 


CALLS 


04, DSX$PRJNT 




0006D 


RET 






0006E 2$; 


PUSHAB 


P.ACS ! 


• 1637 


00072 


BR8 


24$ 




00074 3$: 


PUSHAB 


P.ACT 


; 1638 


00078 


BRB 


26$ 




0007A 4$: 


PUSHAB 


P.ACU 


I 1639 


0007E 


BRB 


28$ 




00080 5$: 


PUSHAB 


P.ACV 


: 1640 


00084 


BRB 


30$ 




00086 6$: 


PUSHAB 


P.ACW 


I 1641 


0008A 


BRB 


32$ 




0008C 7$: 


PUSHAB 


P.ACX 


• 1642 


00090 


BRB 


34$ 




00092 8$: 


PUSHAB 


P.ACY 


; 1643 


00096 


BRB 


36$ 




00098 9$: 


PUSHAB 


KACZ 


; 1644 


0009C 


BRB 


38$ 




0009E 10$: 


PUSHAB 


P.ADA 


; 1645 


00OA2 


BRB 


40$ 


( 


00OA4 11$: 


PUSHAB 


P.ADB 


; 1646 


000A8 


BRB 


42$ 


; 


00OAA 12$: 


PUSHAB 


P. ADC 


; 1647! 


000AE 


BRB 


44$ 


i 
J j 


OOOBO 13$: 


PUSHAB 


P. ADD 


; 1648j 


000B4 


BRB 


47$ 




00OB6 14$: 


PUSHAB 


P.ADE 


• 1649 


000BA 


BRB 


49$ 




OOOBC 15$: 


PUSHAB 


P.ADF 


; 1650 


0OOC0 


BRB 


51$ 




000C2 16$: 


PUSHAB 


P.ADG 
5$$ 


I 1651 


00OC6 


BRB 




000C8 17$: 


PUSHAB 


P.ADH 
55$ 


I 1652) 


00OCC 


BRB 


; i 


000CE 18$: 


PUSHAB 


P.ADI 


i 1653 i 


00OD2 

00OD4 19$: 


BRB 


55$ 


PUSHAB 


P.ADJ 


• 16541 


00OD8 


BRB 


55$ 




OOODA 20$: 


PUSHAB 


P.ADK 


; 16555 


OOODE 


BRB 


55$ 


I 

I 

r 

i 



2Z-ENSAA-7.0 
CRD IMAGE 
02-11 



DSR$Print_TypeCode Name Routi 
*»* Loading and Unloading the 
DSR$Print_TypeCodeJMame Routi 









L 15 




Routine 






27-Jul 


-1984 


Fiche 4 Frame LI 


ng the CRD Image 




27-Jul 


-1984 16:00 


:30 VAX-11 Bliss- 


Routine 






26-Jul 


-1984 09:38 


:37 DMA1:CSYS0,SY 


FEDF 


C2 


9F 


000E0 21$: 


PUSHAB 


P.ADL 




63 


11 


000E4 


BRB 


55$ 


FEEC 


C? 


9F 


000E6 22$: 


PUSHAB 


P.ADM 




5D 


11 


OOOEA 


BRB 


55$ 


FEFC 


C2 


9f 


OOOEC 23$. 


PUSHAB 


P.ADN 




5? 


11 


OOOFO 24$: 


BRB 


55$ 


FFOA 


C2 


9F 


O0OF2 25$: 


PUSHAB 


P. ADO 




51 


11 


000F6 26$ 


BRB 


55$ 


FF18 


a 


9F 


000F8 27*<< 


PUSHAB 


P.ADP 




4B 


11 


OOOFC 28$: 


BRB 


55$ 


FF27 


Q2 


9F 


OOOFE 29$, 


PUSHAB 


P. ADO 




45 


11 


00102 30$: 


BRB 


55$ 


FF33 


C2 


9F 


00104 31$' 


PUSHAB 


P,ADR 




3F 


11 


00108 32$, 


BRB 


55$ 


FF44 


C2 


9F 


0010A 33$. 


PUSHAB 


P.ADS 




39 


11 


Q010E 34$ 
00110 35$ 


BRB 


55$ 


FF53 


C2 


9F 


PUSHAB 


P.ADT 




33 


11 


00114 36$ 


BRB 


55$ 


FF5D 


C2 


9F 


00116 37$ 


PUSHAB 


P.ADU 




2D 


11 


0011A 38$ 


BRB 


55$ 


FF6B 


C2 


9F 


0011 C 39$ 


PUSHAB 


P.ADV 




27 


11 


00120 40$ 


BRB 


55$ 


FF76 


C2 


9F 


00122 41$ 


PUSHAB 


P.ADW 




21 


11 


00126 42$ 


BRB 


55$ 


83 


A2 


9F 


00128 43$ 


PUSHAB 


P,ADX 




U 


11 


0012B 44$ 


BRB 


55$ 


91 


A2 


9F 


0012D 45$ 


PUSHAB 


P.ADY 




17 


11 


00130 


BRB 


55$ 


A1 


A2 


9F 


00132 46$ 


PUSHAB 


P. ADZ 




12 


11 


00135 47$ 


BRB 


55$ 


AF 


A2 


9F 


00137 48$ 


PUSHAB 


P.AEA 




OD 


11 


001 3A 49$ 


BRB 


55$ 


BE 


A2 


9F 


001 3C 50$ 


PUSHAB 


P.AEB 




08 


11 


0013F 51$ 


BRB 


55$ 


CD 


A2 


9F 


00141 52$ 


PUSHAB 


P.AEC 




03 


11 


00144 53$ 


: BRB 


55$ 


DA 


A2 


9F 


00146 54$ 


: PUSHAB 


P.AED 




01 


DD 


00149 55$ 


PUSHL 


#1 




71 


D4 


0014B 


CLRL 


-(SP) 


63 


03 


F8 


0014D 


CALLS 


#3. DSXSPRINT 






04 


00150 


RET 





Sequence 811 
V4. 0-742 Page 



50 
(1) 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1682 



Routine Size: 337 bytes. Routine Base: CODE + 0786 



1683 
1684 



END 
ELUDOM 



! End of CRDIMAGE module 



PSECT SUMMARY 



Name 



Bytes 



Attributes 



ZZ-ENSAA-7.0 
CRDIMAGE 

DATA 

WORK 
CODE 



DSRSPrint TypeCode Name Routine 

*** Loading and Unloading the CRD Image 

DSR$Print TypeCode Name Routine 



3304 NOVECNOWRT, RD 

132 NOVEC, WRT, RD 

2263 NOVECNOWRT, RD 



M 15 
27-Jul-1984 
27-Jul-1984 
26-Jul~1984 

,NOEXE, SHR, 
,N0EXE,N0SHR, 
, EXE. SHR, 



16:00:30 
09: 38': 37 



Fiche 4 Frame Ml 5 
VAX-11 Bliss-32 



Sequence 812 
V4.0-742 ... Page 



DMA1:CSYS0.SYSMAINfJCRDJMAGE.B32;87 



51 
(1) 



LCL, REL . C0N,N0PIC,ALIGN(2) 
LCL, REL, C0N,N0PIC,ALIGN(2) 
LCL, REL, C0N,N0PIC,AL1GN<2) 



Library Statistics 



File 

DRB1:CDS.WORK]DS.L32;Vi9 
DRB1 :[DS.WORK]DIAG.L32;265 
DRB1:CDS.WORK]CRD.L32;265 
SYSSSYSRQ0T:[SYSL1B]HB.L32;7 



Total 

653 

784 

463 

18017 



Symbols 
Loaded 

10 

15 

9 

12 



Percent 



Pages 

Mapped 

42 

85 

62 

975 



Processing 
Time 

00:00.2 
00:00.2 
00:00.2 
00:05.8 



COMMAND QUALIFIERS 

QL I SS/NOOBJECT/L I ST«CDS.L I S]/OPTIMIZE« (LEVEL :3, SPACE) /DEBUG/TRACE CRDIMAGE 

Size: 2263 code + 3436 data bytes 

Run Time: 01 J 15. 4 

Elapsed Time: 03:10.9 

Lines/CPU Min: 1340 

Lexemes/CPU-Min: 34270 

Memory Used: 455 pages 

Compilation Complete 



N 15 

Z7~ENSAA-/\0 <** CVRUM time conversion routine? 27-JUL-1984 Fiche 4 Frame N15 Sequence 813 

CvRMM *** CVRTIM time conversion routines 27-JUL-198A 15:12:57 VAX-11 Macro V03-01 Page 

able of contents 

(1) "97 CONVERT BINARY TIME TO ASCII STRING 

i1. ?92 CONVERT ASCII STRING TO 3INARY TIME 
(1* 524 CONVERT BINARY TIME TO NUMERIC TIME 



.1 . _.!._ 



ZZ-ENSAA-7,0 
V02-02 



-2 



*** CVRTJM time conversion 

**« CVRTIM 



0000 
0000 
0000 
000C 

oooo 
oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 

oooo 



B 16 
routine? 27- JUL-1984 Fiche 4 Frame 816 Seguence 814 

time conversion routines 27-JUL-1984 15:12:57 VAX-11 Macro V03-0T Page 

8-MAY-1980 14:31:48 DMA1 :CSYS0. SYSMAINTJCVRT IM.MAR; 1 7 < 



1 
1 ) 



00000004 



8 



oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0902 
oooo 
oooo 
oooo 
oooo 

1000 




.1 



4 

5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 

21 
22 
23 



39 

40 
41 

43 

44 
45 

46 

47 

4 

4 

50 

51 

5 
5 
54 



.TITLE CVRTIM *** CVRTJM time conversion routines 
JDEMT /V02-02/ 



COPYRIGHT (c) 1976, 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



D. N. CUTLER 6-JAN-76 

SYSTEM SERVICES TO CONVERT TIME 

CONVERT BINARY TIME TO ASCII STRING 
CONVERT ASCII STRING TO BINARY TIME 
CONVERT BINARY TIME TO NUMERIC FORMAT 

THE CONVERSION ALGORITHMS USED HEREIN WERE DEVELOPED BY P. CONKLiN, 
M. SPIER, AND D. ROSENBERY ON THE PDP-10. 



mi>:n^> by? 

02 
V02 



Roger Riggs, 8-May-l980, Version 5.04 
Emulate character string instructions 

LMK0001 LEN KAWELL K-MAH-1979 

FIX LOSS OF PRECISION IN HUNDRETHS OF SECONDS IN INUMTJM 



MACRO LIBRARY CALLS 



SSSDEF 



;DEFINE SYSTEM STATUS VALUES 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINTIONS FOR CONVERT BINARY TIME TO ASCI! STRING 



ATjMLEN=4 



;ADDRESS OF WORD TO STORE LENGTH 





T =lr^! 












- 




7 " "~~~T. 




















7 -"— ~ 












- 














— = 






in 









ZZ-ENSAA-7,0 
CVRTJM 

VO2-02 



*** CVRTIM time conversion 

•*« CVRTIM 



C 16 

routine? ?7-JUL~1984 

time conversion routines 



Flche 4 Frame C16 Seguence 815 
7-JUL-1984 1 5 ? 12:57 VAX-11 Macro V03-0T_ Page 



00000008 
0000000C 
00000010 



00000004 
00000008 



00000004 

00000008 



00008EAC 



Q0023AB1 



00000585 



00023AB1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



18 



000O 



00000585 



8 



000HE98 



1000 

1000 
0000 

0000 



55 ATIM8UF*8 

56 ATJMADR=12 



8-MAY-1980 14j31.'48 DMA1 :[SYS0.$YSMAINT]CVRTIM f MAR;17 (U 

ADDRESS Of OUTPUT SUFFER DESCRIPTOR 
ADDRESS Of 64-BIT ABSOLUTE OR DELTA TIME 
CONVERSION INDICATOR 



;ADDRESS Of ASCII STRING DESCRIPTOR 
;ADDRESS TO STORE 64-BIT ABSOLUTE OR DELTA T 



57 ACVTFLG=16 

59 ; 

60 ; ARGUMENT LIST OFFSET DEFINITIONS FOR CONVERT ASCII STRING TO BINARY TIME 

61 ; 

6£ 

63 BTJM8UF»4 

64 BTIMADR«8 
65 
66 ; 

6* ; ARGUMENT LIST OFFSET DEFINITIONS FOR CONVERT BINARY TIME TO NUMERIC TIME 

68 ; 

69 

70 NTIMBUF«4 ;ADDRESS OF 7-WORD BUFFER TO RECEIVE TIME 

71 NTIMADR=8 /ADDRESS OF 64-BIT ABSOLUTE OR DELTA TIME 
72 

7 

CONVERSION CONSTANTS 



TOTAL DAYS IN A CENTURY 



74 

75 

76 

77 

78 

79 CENTURYDAVS=<100«365>*<l00/4>-<100/1Q0> ; 

80 

81 ; 

8? ; AVERAGE QUARTER DAYS PER CENTURY 

84 ' 

85 ODAYSPCENT*«<100«365>*<100/4>-<100/100»*4>*<400/400> 
86 
8? 

88 ; AVERAGE QUARTER DAYS PER YEAR 
89 
90 
91 0DAYS">Y£AR=<365*4>*1 

93 

94 ; TOTAl DAYS IN A OUADRICENTURY 

95 

96 

97 QUADR!DAYS-<400*365>*<400/4>-<400/100>*<4QO/400> ; 

9 

100 ; TOTAL DAYS IN A QUADYEAR 
101 

103 QUADYEARDAYS=<365*4>*1 
104 

105 ; 

106 ; OFFSET IN DAYS fROM 1-JAN-1501 TO 17-N0V-1858 

107 ; 

108 

09 TIM0FF1-«1 858-1 501 >«365>*<<1 858-1 501 >/4>-«1858-1 501 >/100>*«1 858-1 501 >/400>* -; 
'10 3W8*31*30*31*30»31*51*50*31*17 ; 



JZ-ENSAA-7.Q 

TVRTIM 

V02-02 



**♦ CVRT1M time 



conversion 
*«* CVRTIM 



-1 



oooo 

0000 

0000 

0000 

0000 

00016FEC 0000 

0000 

0000 

0000 

0000 

0000 

00000020 0000 

0000003A 0000 

0000002D 0000 

00000039 COOO 

00000030 0000 

0000002E 0000 

0000 

0000 

0000 

0000 

0000 

00000000 0000 

00000002 0000 

00000004 0000 

00000006 0000 

00000008 0000 

OOOOOOOA 0000 

OOOOOOOC 0000 

0000 

0000 

0000 

0000 

0000 

0000 

00000000 

0000 



0000 

D 0001 

F 0002 

f 0003 

F 0004 

F 0005 

F 0006 

F 0007 

E 0O08 

F 0009 

E OOOA 

F 0008 

oooc 
oooc 
oooc 
oooc 
oooc 
oooc 

4E 41 *A 03 OOOC 

42 45 46 03 0010 



routines 

time conversion 



D 16 
27-JUL-19I 
routines \ 



14 Hche 4 Frame D16 Sequence 816 

7-JUL-1W 15:12:57 VAX-11 Macro V03-01 Page 3 

8-MAY-1980 14;31;48 DMA1 ;[SYS0*SYSMAINTJCVRT1M,MAR;17 (1) 



130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
H6 
.1 
148 
149 

150 
151 
152 
153 
I 54 
155 
156 
157 
158 
159 

160 

161 

16 

16 

164 

165 

166 

167 

168 



OFFSET IN DAYS FROM WAN-1601 TO 17-N0V-1858 

TJM0FF2*«1 858-1 601>*365>+«1 858-1 601>/4>-<<1858-!601>/100>K<1858-1601>/400>* -; 
31*28*31 ♦30*31 ♦30*31 ♦31*30*31*1 7 ; 

CHARACTER CODE DEFINITIONS 



8LANK«32 

COLON-58 

HYPHEN*45 

NINE'S? 

ONE«48 

PERJ0D*46 



NUMERIC TIME BUFFER OFFSET DEFINITIONS 



YEAR«0 

M0NTH«2 

DAY=4 

H0uR*6 

MJNUTE-8 

SECOND«10 

HUNDREDTH=12 



LOCAL DATA 

MONTH, DAY CONVERSION TABLE 



.PSECT 

DATE TABLE: 

.8YT£ 

.8YTE 
.BYTE 
,8VTE 
.BYTE 

.8YTE 
.8YTE 
.8YTE 
.8YTE 
.BYTE 
.8YTE 
.8YTE 



SEP, SHR, EXE, WRT, LONG 

31 
29 
31 
30 
31 
30 
31 

30 
31 
30 



DATE CONVERSION TABLE 

JANUARY 

FEBRUARY 

MARCH 

APRIL 

MAY 

JUNE 

JULY 

AUGUST 

SEPTEMBER 

OCTOOER 

NOVEMBER 

DECEMBER 



MONTH CONVERSION TABLE 



M0NTHTA8: 



.ASCII 
•ASCII 



<3>/JAN/ 

<3>/FEB/ 



77-ENSAA-7.0 

CVRTJM 

V02-02 



*** 



CVRTIM time 



conversion 
CVRTIM 



»** 



52 
52 
S9 
AE 
AC 
A7 
50 
54 
56 
A3 



A1 
50 
A1 
55 
55 
55 
A5 
A3 
AF 
A5 



AD 03 
A1 03 
AD 03 
AA 03 
AA 03 
A1 03 
53 03 
Af- 03 
AE 03 
AA 03 



21 

32 21 
5A 32 21 



6A 
3C 
3C 



21 2D 57 53 32 21 

5A 3A ?1 2D A3 41 

20 57 

57 53 3A 21 



20 

3A 57 5A 32 21 

3A 57 5A 32 

2E 57 5A 

57 



OOH 
0018 
001 C 
0020 
002A 
0028 
002C 
0030 
003A 
0038 
003C 
003C 
003C 
003C 
C03C 
003C 
003C 
003D 
003E 
003F 
003F 
003F 
003F 
003F 
003F 
00 A 5 
0048 
004D 
0052 
0058 
005E 
0064 



routine? 

time conversion 



E 16 

27-JUL-1984 
routines 27-JUL-19J 

8-MAY-191 



Fiche 4 Frame E16 Sequence 817 

14 15:12:57 VAX-11 Macro V03-0T Page 4 

10 14:31:48 DMA1:[SY$Q.SYSMAINTKVRTIM.MAR;T7 (1) 



169 
1?0 
171 
172 
173 
174 
175 

176 
177 

178 
179 
180 
181 
182 
183 
184 
185 
186 
187 

188 
189 

190 
191 
192 
193 



194 

195 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



<3>/MAR/ 
<3>/APR/ 
<3>/MAY/ 
<3>/JUN/ 
<3>/JUL/ 
<3>/AUG/ 
<3>/SEP/ 
<3>/UCT/ 
<3>/N0V/ 
<3>/DEC/ 



; HOURS, MINUTES, SECONDS, HUNDREDTHS CONVERSION TABLE 



TIMETABLE: 

.BYTE 100 

.BYTE 60 

,BYTE 60 



; CONVERSION CONTROL STRINGS 

4 

DATE. .ASCII /!2SW-!AC-!4ZW / 



DELTA: .ASCII /!4SW / 

TIME; .ASCII /!2ZW: !2ZW: !2ZW. !2ZW/ 



TIME CONVERSION TABLE 

HUNDREDTHS 

SECONDS 

MINUTES AND HOURS 



CV&UM 
V02-02 



F 16 

CONVERT BINARY TIME TO ASCII STRING 27-JUL-19I 

*** CVRTJM time conversion routines i 
CONVERT BINARY TIME TO ASCII STRING 



[4 fiche 4 Frame F 16 Seguence 818 
7-JUL-1984 15:12:57 VAX-11 Macro V03-01 Page.. 5 
8-MAY-1980 14:31:48 DMA1 :CSYS0.SYSMAINT:)CVRTIM.MAR;17 <1> 



71 



53 



56 

55 



0065 
0065 

m 

0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
C065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
006S 
0063 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
007C 0065 
08 BC 70 0067 
DO 006B 
D* 006E 



5E 
71 
5E 
52 
OC AC 
07 
50 63 

8 



DO 0071 

D4 0073 

DO 0075 

13 0079 

7D 0078 

18 007I 



5E 
54 



5E 



D6 
C2 
DO 



00) 
OOI 



.S8TTL CONVERT BINARY TIME TO ASCII STRING 

EXE$ASCTIM - CONVERT BINARY TIME TO ASCJI STRING 

THIS SERVICE PROVIDES THE CAPABILITY TO CONVERT AN ABSOLUTE OR DELTA 
TIME FROM 64-BIT FORMAT TO AN ASCI J STRING, 

INPUTS: 

ATIMLEN(AP) = ADDRESS OF WORD TO RECEIVE OUTPUT LENGTH. 

ATIMBUF(AP) * ADDRESS OF OUTPUT BUFFER DESCRIPTOR, 

ATJMADR(AP) * ADDRESS OF 64-BIT TIME VALUE. IF ZERO- THEN THE CURRENT 

SYSTEM TIME IS USED. POSITIVE VALUES ARE INTERPRETED AS 

ABSOLUTE TIMES AND NEGATIVE VALUES AS DELTA TIMES. 
ACVTFLG(AP) » CONVERSION INDICATOR. 

LOW BIT CLEAR INDICATES BOTH DATE AND TIME ARE TO BE CON- 
VERTED. 

LOW BIT SET INDICATES ONLY TIME IS TO BE CONVERTED. 

OUTPUTS: 

ro low bit clear indicates failure to convert time to ascii. 

ro * ss$ accvio - 64-bit time value or output buffer descriptor 
Cannot be read by calling access mode, or output buffer 
cannot be written by calling access mode. 

ro * ss$ ivtime - specified delta time is greater than 9999 

CAYS. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 



RO = SS$_ NORMAL - NORMAL COMPLETION. 



6F 50 E9 



EXESASCTIM:: 
.WORD 
MOVO 
MOVL 
CLRL 
MOVL 
CLRL 
MOVL 
8E0L 
MOVO 
BGEQ 
INCL 

10$: SU8L 
MOVL 
SNUMTIM 
8L8C ' 



A M<R2.R3,R4,R5,R6> 

SATIM6UF(AP) # -(SP) 

SP,R6 

-(SP) 

SP,R5 

R2 

ATIMADR(AP),R3 

10$ 

<R3),R0 

10$ 

R2 

#<«7*2>*3>/4>*4 # SP 

SP,R4 

S (R4),<R3) 

'R0,60$ 



CONVERT TIME TO ASCII 

ENTRY MASK 

SAVE OUTPUT BUFFER DESCRIPTOR 

SAVE ADDRESS OF OUTPUT BUFFER DESCRIPTOR 

CLEAR SPACE FOR LENGTH FROM FAO 

SAVE ADDRESS OF LENGTH 

ASSUME ABSOLUTE TIME SPECIFIED 

GET ADDRESS OF 64-BIT TIME VALUE 

IF EOL NONE SPECIFIED 

GET 64-BIT TIME VALUE 

IF GEQ ABSOLUTE TIME 

INDICATE DELTA TIME 

ALLOCATE NUMERIC TIME BUFFER 

SAVE ADDRESS OF NUMERIC TiME BUFFER 

CONVERT TIME TO NUMERIC FORMAT 

IF LBC CONVERSION FAILURE 



3E 10 AC E8 



; CONVERT TIME TO ASCII FORMAT 

» 
# 

BL8S ACVTFLG(AP),40$ 



;IF LBS ONLY TIME IS TO BE CONVERTED 



ZZ-ENSAA-7,0 

CVRT1M 

vQZ-02 



819 



G 16 
CONVERT BINARY TIME TO ASCII STRING 27-JUL-1984 Fiche 4 Frame G16 Seguence 

*** CVRTIM time conversion routines 27-JUL-1984 15:12:57 VAX-1 1 Macro V03-01 Page^ 
CONVERT BINARY TIME TO ASCII STRING 8-MAY-1980 14:31:48 DMA1 : CSYS0.SYSMAINTKVRTIM.MAR;17 



6 
(1) 



52 



61 



12 


52 


E8 


009A 
009D 
009D 


254 
255 

m 








009D 








0Q9D 


m 








QQ9D 
009D 


52 02 


A4 


3C 


260 


FF62 CF42 


DE 


00A1 


261 


FF94 


CF 


OF 


00A7 


262 




OE 


DD 


OOAB 


263 




06 


11 


OOAD 
OOAF 
OOAF 
OOAF 
COAF 
OOAF 


26A 
265 
266 
267 
268 
269 


FF9A 


CF 


DF 


OOAF 


270 




05 


DD 


00B3 


271 


51 


5E 


DO 


00B5 
00B8 


272 
273 


36 


50 


E9 


OOCC 


274 


66 


65 


A2 


OOCF 


275 




27 


1 5 


00D2 


276 


04 A6 


65 


CO 


00D4 
00D8 
00D8 
00D8 
00D8 
00D8 


277 
278 
279 
280 
281 
282 


FF76 


CF 


DF 


0OD8 


283 




13 


DD 


OODC 


284 


51 


5E 


DO 


OODE 
0OE1 


285 


51 04 


AC 


DO 


OOFB 




04 


13 


OOFF 


288 


65 


85 


A1 


0101 


289 






04 


0105 


290 



BLBS R2,20$ 



;If LBS DELTA TIME SPECIFIED 



CONVERT DATE 



MOVZWL 

MOVAL 

PUSHAL 

PUSHL 

BR8 



20$: PUSHAL 
PUSHL 

30$: MOVL 

$FAO,S 

BLOC 

SUBW 

BLEQ 

ADDL 



CONVERT TIME 



40$: 



50$: 



60$: 



PUSHAL 

PUSHL 

MOVL 

$FAO„S 

MOVL 

BEQL 

ADDW3 

RET 



M0NTH(R4KR2 

W*M0NTHTA8-4CR23,R2 

W A DATE 

#DELTA-DATE 

30$ 



GET NUMERIC MONTH VALUE 

GET ADORESS OF MONTH COUNTED STRING 

BUILD DESCRIPTOR FOR CONTROL STRING 



CONVERT DELTA TIME 



WDELTA 

#TIME-DELTA 

SP,R1 



BUILD CONTROL STRING DESCRIPTOR 



- .„. .COPY ADDRESS OF CONTROL STRING DESCRIPTOR 

<Rl) t CR5),(R6),DAY(R4),R2,YEARCR4) ;CONVERT DELTA TIME OR DATE 
R0<60$ ;IF LBC CONVERT FAILURE 

ANY SPACE LEFT IN TIME BUFFER? 

If LEO NO 

UPDATE TIME BUFFER ADDRESS 



(R5),(R6) 

50$ 

(R5),4(R6) 



WMJME 

#EXE$ASCTIM-TIME 

SP.R1 

(R1),2(R5),(R6),H0UR<R4) 

AT1MLENCAP),R1 

60$ 

<R5)+,(R5),<R1) 



BUILD CONTROL STRING DESCRIPTOR 

COPY ADDRESS OF CONTROL STRING DESCRIPTOR 

MINUTE (R4) ,SEC0ND(R4) -HUNDREDTHS) ; 

LENGTH ADDRESS SPECIFIED? 

IF CQL NO 

COMPUTE AND RETURN OUTPUT LENGTH 



ZZ-ENSAA-7.0 
CVHTIM 

V02-02 
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'7-JUL-1984 
8-MAY-1980 



Frame H16 Sequence 820 
VAX-11 Macro V03-01 Page 7 
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5E 
57 
55 04 



86 



51 
50 



10 
5E 
BC 
58 
55 
6F 
20 
'7 
!>5 



76 
55 
OC 



20 



81 

05 

F8 50 

02 



01FC 
C2 
DO 
7D 
DA 
B7 
19 
91 
13 
86 



9E 
3C 
13 



91 

13 
F5 
11 



51 07 



52 

58 



13 
06 



0106 
0106 

m 

0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
C106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0106 
0108 
0108 
010E 

on? 

011* 
0116 
0118 
0118 
0110 
011F 
011F 
011f 
01 IF 
0122 
0125 
0127 
0127 
012A 

012F 

0131 

0131 

0133 

0133 

0135 

0137 

OH, 

OH, 

OH, 

OH, 

OH, 



292 
293 
29* 
295 
296 
297 
298 
299 
300 
301 

304 
305 
306 
307 
308 
309 
310 
311 
312 
313 

31* 
315 
316 
317 
318 
310 
320 
321 
322 
323 
32* 
325 
326 
.1 



•S8TTL CONVERT ASCIJ STRING TO BINARY TIME 

EXE$BINTIM - CONVERT ASCII STRING TO BINARY TIME 

THIS SERVICE PROVIDES THE CAPABILITY TO CONVERT AN ASCII STRING TO A 
64-BIT ABSOLUTE OR DELTA TIME, 

INPUTS: 

BTIMBUF(AP) = ADDRESS OF ASCII STRING DESCRIPTOR. 
BTIMADRUP) * ADDRESS TO STORE 64-BIT TIME VALUE. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO CONVERT TIME iO ASCII. 

ro = ss$ jvtjme - ascii string has invalid syntax or time 
Component is out of range. 

ro low bit set indicates successful completion. 

ro * sssjyormal - normal completion. 



EXESBINTIM:: 
• WORD 
SU8L 
MOVL 
MOVQ 
CLRL 

10$: DECW 
BLSS 
CMPB 
BEOL 
INCU 



/CONVERT ASCII STRING TO BINARY TIME 
M<R2,R3,R4,R5,R6,R7,R8> ."ENTRY MASK 



#«<?*2> + 3>/4>*4,SP 

SP, n? 

a§TIMBUF(AP),R5 

R8 

R5 

30$ 

#BLANK,<R6)* 

10$ 

R5 



ALLOCATE NUMERIC TIME BUFFER 

SAVE ADDRESS OF NUMERIC TIME BUFFER 

GET ADDRESS AND LENGTH OF ASCII STRING 

ASSUME DELTA TIME 

ANY MORE CHARACTERS? 

IF LSS NO 

SKIP LEADING BLANK? 

IF EQL YES 

CORRECT NUMBER OF CHARACTERS 



10000$: 

10001$: 
10002$: 



REPLACED 

MOVAB 

MOVZWL 

BEOL 

CMPB 
BEOL 
SOBGTR 
BRB 

DECL 

BEQL 
INCL 
$NUMTIM S (R7) 



LOCC 0HYPHEN,R5,-<R6> 



ABSOLUTE TIME FORMAT? 



-<R6),R1 

10602$ 

(RIWJUHYPHEN 

ioooii 

R1 

30$ 
R8 



;IF EQL NO 

; INDICATE ABSOLUTE TIME 

.-CONVERT CURRENT TIME TO NUMERIC FORMAT 



CONVERT ABSOLUTE TIME 



ZZ-ENSAA-7,0 
CVRTIM 

V02-02 
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<i> 



54 04 A? 
6B 



50 



86 



51 
61 
50 



FEA8 CF42 
F4 52 



-6 



55 



86 



54 



54 



86 



55 
64 
2D 
2E 



76 
08 
03 

52 

50 
06 
OC 
74 



52 01 

02 A7 

5o 03 



54 



03 
6? 

36 
2D 
60 
55 
67 
OA 



67 
84 
64 
OC A7 
20 

55 
19 
20 
F7 
56 
55 



06 A7 
OC 

09 



DE 
10 
2D 
B5 
13 
91 
13 



9E 
78 
90 
D4 

D1 
13 
F2 
11 

A1 

CC 
A2 
19 
13 
91 

12 
B7 
DE 
11 



DE 
D4 
7C 
84 
10 
20 
87 
19 
91 
13 
D7 

D6 



DE 
10 
3A 
10 



0142 

0146 

0148 

0149 

014B 

014D 

0150 

0152 

0152 

0152 

0152 

0155 

0159 

015C 

C15E 

015E 

0164 

0166 

01 6A 

016C 

016C 

016F 

0171 

0174 

0177 

0179 

01 78 

01 7E 

0180 

0182 

0185 

0187 

0187 

0187 

0187 

0187 

0187 

018A 

018C 

018E 

0191 

0193 

0194 

0196 

0198 

0198 

019D 

019F 

01A1 

01A1 

01A1 

01A1 

01A1 

01A1 

01A5 

01A7 

01A8 



15$: 



349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 

368 
369 
370 
2^1 
372 
373 
374 
375 
3?6 
377 
J 78 
379 
380 
381 
382 
383 



MOVAL 

BSBB 

.BYTE 

TSTW 

BEOL 

CMPB 

BEQL 

REPLACED 

M0VA8 
ASHL 
M0V8 
CLRL 

CMPL 
BEQL 
AOBLSS 
BRB 



DAY(R7),R4 

CONVERT 

HYPHEN 

R5 

60$ 

#HYPHEN,<R6)* 

20$ 



SET ADDRESS T;. STORE 
CONVERT DAY FIELD 
EXPECTED TERMINATOR 
ANY MORE CHARACTERS? 
IF EQL NO 
MONTH FIELD VOID? 
IF EQL YES 



DAY 



MATCHC 03,-<R6),#4t12,W*MQNTHTAB ;SLARtH FOR MONTH SUBSTRIN 



-(R6),R1 
#8,(R1),R0 
#3,R0 
R2 

R0J1QNTHTABCR2J 

i9i 

*12,R2,15$ 
IVTIME 



19$: ADDU3 #1 ,R2,M0NTH<R7) 

ADDL #3,R6 

SU8W #3,R5 

BLSS IVTIME 

BEQL 60$ 

CMPB #HYPHEN,(R6>+ 

BNEQ IVTIME 

20$: DECW R5 

MOVAL YEAR(R7),R4 

BRB 40$ 



CONVERT DELTA TIME 



30$ J 



40$: 
50$: 



MOVAL 


YEAR(R7),R4 


CLRL 


<R4>* 


CLRQ 


(R4) 


CLRW 


HUNDREDTHS) 


BSBB 


CONVERT 


.BYTE 


BLANK 
R5 


DECW 


BLSS 


60$ 


CMPB 


#BLANK,(R6)+ 
50$ 


BEQL 


DECL 


R6 


INCL 


R5 



CONVERT TIME 



MOVAL 
BSBB 
.BYTE 
BSBB 



H0UR(R7),R4 
CONVERT 
COLON 
CONVERT 



; Clear month index 

; Correct month? 

; Branch if so 

; Increment month and branch if more 

; Month not found, flag invalid 

; CONVERT TO MONTH AND STORE 

UPDATE ADDRESS OF ASCII STRING 

UPDATE COUNT OF REMAINING CHARACTERS 

IF LSS INVALID SYNTAX 

IF EQL END OF STRING 

FIELD TERMINATED PROPERLY? 

IF NEQ NO 

DECREMENT COUNT OF REMAINING CHARACTERS 

SET ADDRESS TO STORE YEAR 



GET ADDRESS TO STORE YEAR 

CLEAR YEAR AND MONTH 

CLEAR DAY. HOUR, MINUTE. AND SECOND 

CLEAR HUNDREDTH 

CONVERT RELATIVE DAY OR YEAR FIELD 

EXPECTED TERMINATOR 

ANY REMAINING CHARACTERS? 

IF LSS NO 

NEXT CHARACTER BLANK? 

If EQL YES 

BACK UP TO NONBLANK CHARACTER 

ADJUST REMAINING CHARACTER COUNT 



SET ADDRESS TO STORE HOUR 
CONVERT HOUR FIELD 
EXPECTED TERMINATOR 
CONVERT MINUTE FIELD 



ZZ~EN>AA-7.0 
CVRT1M 

V02-02 
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06 
03 
33 



9 
(1) 



50 
84 





?3 

28 


51 


86 


00 BE 


51 




19 


51 


30 




17 


51 


09 




12 


50 


CA 




OD 


50 


51 




08 


74 


50 




D8 




6E 


50 0184 


8F 


270f 


8f 


04 


A7 




f2 


06 A7 


18 




£C 


08 A? 


3c 




£6 


OA A7 


3c 




EO 


0064 


8F 


OC 


A7 




08 


55 04 


A7 



3A 


01AA 


384 




.BYTE 


COLON 


EXPECTED TERMINATOR 


10 


01AB 


385 




BS88 


CONVERT 


CONVERT SECOND FIELD 


2E 


01AD 


386 




.8YTE 


PERIOD 


EXPECTED TERMINATOR 


10 


01AE 


387 




BS88 


CONVERT 


CONVERT HUNDREDTH FIELD 


20 


0180 


388 




.BYTE 


BLANK 


EXPECTED TERMINATOR 


11 


0181 


389 60$: 


BR8 


CVRTIME 






01B3 


390 












01B3 


391 ( 












0183 


392 , 


• SUBROUTINE TO 


CONVERT NUMERIC FIELD TO BINARY 




0183 


393 , 












01B3 


394 












0183 


395 ! 


IONVERT 


• 

• 




CONVERT FIELD 


04 


01B3 


396 




CLRL 


RO ; 


CLEAR ACCUMULATED VALUE 


B5 


01B5 


397 ' 


10S: 


TSTW 


(R4) + 


POINT PAST NEXT FIELD 


B7 


C1B7 


398 




DECW 


R5 


ANY MORE CHARACTERS? . 


19 


0189 


399 




BLSS 


CVRTIME 


'IF LSS NO 


9A 


018B 


400 




MOVZBL 


<R6)*,R1 


•GET NEXT CHARACTER 


91 


018E 


401 




CMP8 


R1-3<SP> 
20i 


■EXPECTED TERMINATOR? 


13 


01C2 


402 




BEOL 


•IF EQL YES 


C2 


01C4 


403 




SUBL 


#0NE,R1 


•SUBTRACT OUT CHARACTER BIAS 


19 


01C7 


404 




BLSS 


IVTIME 


•IF LSS INVALID CHARACTER 


D1 


01 C9 


405 




CMPL 


#NINE-0NE,R1 


•RESULT VALUE WITHIN RANGE? 


19 


01CC 


406 




BLSS 


IVTIME 


;IF LSS INVALID CHARACTER 


A4 


01CE 


407 




MULW 


#10, RO 


MULTIPLY PARTIAL RESULT BY 10 


ID 


01D1 


408 




BVS 


IVTIME 


j IF VS INVALID TIME 


AO 


01D3 


409 




AODU 


R1-R0 

IVTIME 


^ACCUMULATE VALUE 


10 


01D6 


410 




GVS 


;lf VS INVALID TIME VALUE 


BO 


0108 


411 




MOVW 


R0,-(R4) 


; STORE VALUE 


11 


0108 


412 




BR8 


10$ 




06 


01DD 


413 


20$: 


INCL 


(SP) 


•INCREMENT PAST TERMINATOR 


05 


010F 
01E0 
01E0 


414 

415 
416 


• 


RS8 








01E0 


417 


; INVALID SYNTAX OR TIME COMPONENT 






01E0 


418 


• 










01E0 


419 










3C 


01E0 


420 


IVTJMS; 


MOVZWL 


#SS$JVTIME,RO 


?SET INVALID TIME 


04 


01E5 
01E6 
01E6 


421 
422 
423 




RET 








01E6 


424 


; CHECK 


CONVERTED DATE AND TIME VALUES 






01E6 


425 












01E6 


426 












01E6 


427 


CVRTIME 


• 
♦ 




» 


B1 


01E6 
01EA 
01EC 


428 




CMPW 


#9999,DAYCR7> 


{DAY WITHIN UPPER LIMIT? 


IF 


429 




BLSSU 


IVTIME 


;IF LCSU NO 


81 


01EE 


430 




CMPW 


#24<H0UR(R7) 
IVTIME 


;HOUR WITHIN LIMITS? 


18 


01F2 


431 




BLEQU 


;IF LEQU NO 


B1 


01F4 


432 




CMPW 


#60 f MINUTE(R7) 


;MINUTE WITHIN LIMITS? 


18 


01F8 


433 




BLEQU 


IVTIME 


; IF LEQU NO 


81 


G1FA 

01FE 


434 




CMPW 


*60,SEC0ND(R7) 
IVTIME 


.'SECOND WITHIN LIMITS? 


IB 


435 




BLEQU 


;IF LEQU NO 


81 


0200 
0204 
0206 


436 




CMPW 


#100,HUNOREDTH(R?> 


.-HUNDREDTH WITHIN LIMITS? 


18 


437 




BLEQU 


IVTIME 


;IF LEQU NO 


3C 


0208 


438 




MOVZWL 


DAY(R7),R5 


;GET DAY VALUE 



ZZ-ENSAA-7,0 

CVRTiM 

V02-02 
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03 58 
0097 



50 



50 
F9BF 



00000190 

51 50 

00000064 

52 51 

52 52 



CC 
67 
CO 
C2 
51 
8F 
50 
52 
8F 
51 
53 
04 
53 



52 



53 016D 
00000585 

52 53 
00008EAC 

00023AB1 
55 51 

56 02 
55 
FD99 
50 

53 
53 



00000064 
54 53 



53 



50 



50 

0184 
04 



00 
I 

51 
00016FEC 

55 

52 



8F 
8f 
52 
8f 
51 
8F 
50 
50 
A7 
52 
CF40 
01 
1E 
67 
03 
14 
54 
8F 
53 
54 
07 
03 
02 
52 
56 
8f 
A7 

8F 

55 
51 
57 

51 



E8 
31 



13 
3C 
3E 
19 
04 
7B 

D4 
78 

04 
78 



A4 
7A 

C4 

7A 

04 
3C 
CO 
9A 
D1 
12 
3C 
D3 
12 
D4 
78 

D5 
12 
03 
13 
D7 

3C 
C2 

CO 
19 

01 



02OC 

020F 

0212 

0212 

0212 

0212 

0212 

0212 

0214 

0217 

021 C 

021E 

0220 

0226 

C229 

022B 

0231 

0234 

0236 

023A 

0238 

0238 

0238 

0238 

023B 

0238 

0240 

0246 

0249 

024F 

0250 

0256 

0259 

0258 

025F 

0262 

0268 

0268 

026D 

0270 

0273 

0275 

0277 

0270 

0280 

0282 

0284 

0287 

0289 

0288 
028r 
0294 
0298 
029E 
029F 
02A2 
02A4 



439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 

452 
453 

454 
455 

456 
457 
458 
459 
460 
461 
462 

463 

464 



8L8S 

8RW 



R8,5$ 
40i 



;lf LBS ABSOLUTE TIME 



CONVERT YEARS TO GUADRICENTURIES, CENTURIES, GUADYCARS, YEARS 



5$: BEQL IVTIME 

MOVZWL YEAR(R7),R0 

MOVAW -160KR0M0 

8LSS IVTIME 

CLRL R1 

EDiV #4Q0,R0,R0,R1 

CLRL R2 

EDIV #100,R1,R1,R2 

CLRL R3 

EDIV #4,R2,R2,R3 



;IF EQL INVALID TIME 
;6ET YEAR VALUE 
.-CALCULATE YEARS PAST 1601 
;IF LSS INVALID TIME 
;CLEAR HIGH PART OF DIVIDEND 
♦•CALCULATE GUADRICENTURIES 

;CLEAR HIGH PART OF DIVIDEND 
CALCULATE CENTURIES 

;CLEAR HIGH PART OF DIVIDEND 
; CALCULATE QUADYEARS AND YEARS 



CONVERT GUADRICENTURIES, CENTURIES, QUADYEARS, YEARS TO DAYS 



10$: 



•0$: 

;o$? 



485 
486 
487 



MULW 
EMUL 

MULL 

EMUL 

CLRL 

MOVZWL 

ADDL 

MOVZBL 

CMPL 

BNEQ 

MOVZWL 

BITL 

BNEQ 

CLRL 

EDIV 

TSTL 

BNEQ 

BJTL 

BEQL 

DECL 

AOBLSS 

MOVZWL 

MOVZWL 

SU8L 

ADDL 
BLSS 
CMPL 



#365, R3 CALCULATE NUMBER OF DAYS PAST LEAP YEAR 

#QUADYEARDAYS,R2,R3,R2 CALCULATE NUM8ER OF QUADYEAR DAYS AND SUM 



*CENTURYDAYS,R1 

#QUADRIDAYS,R0,R1,R5 

RO 

M0NTH(R7),R6 

R2,R5 

W^DATETABLECR03,R2 

#1 t R0 

30i 

YEAR(R7),R3 

#3,R3 

20i 

R4 

#100,R3,R3,R4 

R4 

30$ 

#3,R3 

30i 

R6,R0,1;$ 
#Sf # . t JT|HE,R0 

0Ai(fi7).R1 

*TIM0FF2.R5 

R1,R5 

60$ 

R1,R2 



CALCULATE NUMBER OF CENTURY DAYS 

CALCULATE NUMBER OF QUADRIDAYS AND SUM 

CLEAR INITIAL LOOP INDEX 

GET SPECIFIED MONTH VALUE 

ACCUMULATE TOTAL DAYS 

GET NUMBER OF DAYS IN MONTH 

SECOND MONTH OF YEAR? 

IF NEQ NO 

GET SPECIFIED YEAR VALUE 

YEAR MULTIPLE OF 4? 

IF NEQ NO 

CLEAR HIGH PART OF DIVIDEND 

CALCULATE CENTURY AND YEAR IN CENTURY 

YEAR MULTIPLE OF 100? 

IF NEQ NO 

YEAR MULTIPLE OF 400? 

IF EQL YES 

REDUCE NUMBER OF DAYS IN MONTH 

ANY MORE DAYS TO ACCUMULATE? 

ASSUME INVALID DAY OF MONTH 

GET SPECIFIED DAY 

SUBTRACT OUT NUMBER OF DAYS TO 17-NOV-1858 

CALCULATE TOTAL NUMBER OF DAYS 
IF LSS INVALID TIME 
DAY WITHIN LIMITS? 



ZZ-ENSAA-7.0 


CONVERT ASCII 


CVRHM 




V02-O2 






52 




50 06 A7 




5t 08 A7 




51 50 3C 




50 




51 OA A7 




51 50 3C 




50 




51 OC A7 




00000064 8F 




50 51 50 




0001 86A0 8F 




50 00 50 



08 



52 

53 

50 

( 

53 
52 
53 
8C 



09 



L 16 
STRING TO BINARY TIME 27-JUL-1984 Fiche 4 Frame L16 Seguence 824 

*** CVRTIM time conversion routines 27-JUL-1984 15:12:57 VAX-11 Macro V03-OT Page 
CONVERT ASCII STRING TO BINARY TIME 8-MAY-1980 14:31:48 DMA1 :CSYS0.SYSMAINT]CVRTIM.MAR;17 



324A9A70 6F 
52 00 55 
52 52 OA 



50 
51 
01 
58 
53 
52 
00 
52 



11 
(1) 



1A 



3C 
3C 
7A 

3C 
7A 

3C 
7A 

7A 



7A 
79 



CO 
D8 
3C 
E8 
CE 
CE 
D9 
70 
04 



02A7 

02A9 

02A9 

02A9 

02A9 

02A9 

02A9 

02AD 

0281 

02B5 

02B6 

02BA 

02BE 

02BF 

C2C3 

02C9 

02CC 

02D2 

02D5 

02D5 

02D5 

02D5 

02D5 

02D5 

02DB 

02DE 

02E2 

02E2 

02E2 

02E2 

02E2 

02E2 

02E5 

02E8 

02E8 

02EE 

02F1 

02F4 

02F7 

02F8 



488 
489 
490 
491 
492 
493 
494 
495 
496 

497 
498 

499 
500 

501 

502 
503 
504 
505 
506 
507 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 

518 
519 

520 
521 
522 



B6TRU 60$ 



;IF 6TRU NO 



CONVERT TIME TO TENTHS OF MICROSECONDS 



^$: MOVZWL HOUR(R7),R0 

MOVZWL MINUTE(R7),R1 

EMUL #60,R0,R1, HO 

MOVZWL SEC0ND(R7),R1 

EMUL #60,RO,R1,RO 

MOVZWL HUNDREDTHS), R1 

EMUL #100,R0,R1,R0 

EMUL 0100000, RO, 00, RO 



;GET HOUR VALUE 

;GET MINUTE VALUE 

; CONVERT HOURS TO MINUTES AND SUM 

;GET SECOND VALUE 

/CONVERT MINUTES TO SECONDS AND SUM 

;GET HUNDREDTH VALUE 

; CONVERT SECONDS TO HUNDREDTHS AND SUM 

/CONVERT TO TENTHS OF MI .ROSECONDS 



CONVERT DAYS TO TENTHS OF MICROSECONDS 

EMUL #843750000, R5,#0,R2 /MULTIPLY BY 864000000000/1024 



ASHQ #10,R2,R2 



COMBINE RESULTS AND STORE 64-81 T TIME 



/MULTIPLY BY 1024 



50$: 
60$: 



ADDL 

ADWC 

MOVZWL 

BL8S 

MNEGL 

MNEGL 

S8WC 

MOVQ 

RET 



RO,R2 

Rl R3 

#SS$ NORMAL ,R0 

R8,50$ 

R3,R3 

R2.R2 

#0.R3 

R2,88TIMADR(AP) 



ADD LOW ORDER PARTS 
ADD HIGH ORDER PARTS 
SET NORMAL COMPLETION 
IF L8S ABSOLUTE TIME 
CONVERT TO DELTA TIME 



STORE 64-BIT TIME VALUE 



B 1 

L 1 

I 1 

E 1 

F 1 

G 1 

H 1 

I 1 



B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

I 

M 

N 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 
G 
H 

I 
J 

L 
M 

N 
B 

C 
D 
E 



M 1 
N 1 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
u 
<. 

A 

A 

U 

«♦ 

A 

A 
A 
A 
A 

5 
5 
5 



Macros and 
Macros and 
Macros and 
Data Psect 
DSSCanWait 



5 

G 5 
h 5 
I 5 



INTERVAL TIMER ROUTINES. 
INTERVAL TIMER ROUTINES, 
INTERVAL TIMER ROUTINES. 
INTERVAL TIMER ROUTINES. 
Macros and Equated Symbols 
Equated Symbols 
Equated Symbols 
Equated Symbols 
Declarations 
- CANCEL DELAY ROUT 
SWAKE - Wakeup from hibernate 
DSXSUaitMS - MILLISECOND DELAY 
DSXSWaitMS - MILLISECOND DELAY 
DSXSWaitUC - MICROSECOND DELAY 
DSXSWaitUC - MICROSECOND DELAY 
EXESHIBER - HIBERNATE SYSTEM S 
EXESHIBER - HIBERNATE SYSTEM S 
EXESCANTIM - CANCEL TIMER SYST 
EXESCANTIM - CANCEL TIMER SYST 
DSRSSETIMRJNI - SET TIMER QUE 
DSRSSETIMR INI - SET TIMER QUE 
EXESSetimr^- GET TIMER SYSTEM 
EXESSetimr - SET TIMER SYSTEM 
DSISTimSrv - INTERVAL TIMER IN 
DSISTimSrv - INTERVAL TIMER IN 
DSISTIMER - Level 7 timer inte 
DSUTIMER - Level 7 timer inte 
DSISTIMER - Le»el 7 timer inte 
DSISTIMER - Level 7 timer inte 
CLKSREJNIT - SYSTEM TIMER INI 
CLKSREJNIT - SYSTEM TIMER INI 
Symbol table 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 

*** COMDRVSUB driver supDort r 
*** COMDRVSUB driver support r 
*** COMDRVSUB driver support r 
COMSDELATTNAST - DELIVER ATTEN 
COMSFLUSHATTNS - FLUSH ATTENTJ 
COMSPOST - POST 1.0 COMPLETION 
COMSDRVDEALMEM - DEALLOCATE DR 
COMSSETATTNAST - SET UP ATTENT 
COMSSETATTNAST - SET UP ATTENT 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
C r oss reference 

»** CONFIG Configure toad devi 
*** CONFIG Configure load deyi 



M 5 
N 5 



B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 
C 8 



h 8 

I 8 

J 8 

K 8 

L 8 

M 8 

N 8 

B 9 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 



*** CONFIG 
*** CONFIG 
*** CONFIG 
*** CONFIG 
*** CONFIG 
INISLOADJ)EVICE 
INJ$LOAD_DEVICE 



Configure 
Configure 
Configure 
Configure 
Configure 
Make 
Make 



load 
load 
load 
load 
load 



devi 
devi 
devi 
devi 

dev: 



ptables 
ptables 
INISLOAD DEVICE Make ptables 
DSPSCONFlG.LOAD Configure load 
DSPSCONFIGJ.OAD Configure load 
DSPSCONFIG.LOAD Configure load 
DSP$CONFIG„LOAD Configure load 
DSPSCONFIG LOAD Configure load 
DSPSCONFIGlLOAD Configure load 
DSPSCQNFIG.LOAD Configure Load 
Common routines 
Common routines 
Common routines 
configure RB730 
configure RB730 
configure RB730 
Attach UDA-50/LESI load path 
Attach UDA-50/LESJ load path 
Attach UDA-50/LF.SJ load path 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
*** CONSOLE Console I/O handle 
*** CONSOLE Console I/O handle 
*** CONSOLE Console I/O handle 
*** CONSOLE Console I/O handle 
*** CONSOLE Console I/O handle 
Libraries, Equated Symbols, Ma 
Work Psect Declarations ; C 
Data Psect Declarations ; C 
Data Psect Declarations ; C 
9 Data Psect Declarations ; C 
9 Data Psect Declarations ; C 
9 VRSetWidth Routine - Set termi 
9 VRSetWidth Routine - Set termi 
9 VRShowWidth Routine - Show ter 
9 VRShowWidth Routine - Show ter 
9 KB.Poll Routine - Keyboard rea 
9 KB.Poll Routine - Keyboard rea 
9 RJnp »t Routine - Flag driven t 
9 RInput Routine - Flag driven t 
9 RInput Routine - Flag driven t 
9 RType Routine - Retype input I 
B 10 RType Routine - Retype input I 
C 1Q Out Routines - Flag driven ter 
D 10 Out Routines - Flag driven ter 



E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

I 



Out Routines - Flag driven ter 
Out Routines - Flag driven ter 
WriteVBlk Routine - Console wr 
WriteVBlk Routine - Console wr 
ReadVBlk Routine - Console rea 
ReadVBU Routine - 
ReadVBlk Routine - 
ReadVBlk Routine - 
SI2E TERM Routine 



Console rea 
Console rea 
Console rea 
to size the 



Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

*** Loading 

*** Loading 



SIZE. TERM Routine to size the 
SIZE, TERM Routine to size the 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 

reference 

reference 

reference 

reference 

reference 

reference 

reference 

reference 

and Unloading the 
and Unloading the 
Librar ies 
Other Literals 
External Routines 
Psect Definitions 
Local ASCIC Bindings 
Own Storage 
Own Storage 
DSRSLoad CRD Routine 
DSRSLoad.CRD Routine 
DSRSLoad.CRD Routine 
DSRSLoad CRD Routine 
DSRSLoad.CRD Routine 
DSR$Load_CRD Routine 
DSRSLoad.CRD Routine 
DSRSLoad.CRD Routine 
DSRSLoad CRD Routine 
DSRSLoad.CRD Routine 
DSRSLcad.CRD Routine 
DSRSUnload^CRD Routine 
DSRSUnload.CRD Routine 
DSRSUnload.CRD Routine 
DSRSUnload.CRD Routine 
DSR$Untoad_CRD Routine 
DSRSRestore CRD Vectors Rout in 
DSR$Rpstore_CRD_Vectors Rout in 
ExchangeJ)ispatchj/ectors Rout 
ExchangeJ)ispatchj/ectors Rout 
Exchange„.Dispatch_Vectors Rout 
Exchange.Dispatch.Vectors Rout 
CRD Exit Routine 
CRDlExit Routine 
CRD.Error Routine 
CRD Error Routine 
CRD. Error Routine 
CRD^Error Routine 



^ U CRD. Error Routine 

N H Internal^Error Routine 

8 15 Internal~Error Routine 

C IS Interna'.'Error Routine 

D 15 Interna terror Routine 

E 15 Internal^Error Routine 

F 15 lnternal~Error Routine 

G 15 Internal~Error Routine 

h 15 DSRSPrint TypeCode Name Routin 

I 15 DSRSPr inOypeCode'Name Routin 

j 15 DSRSPrint_TypeCode_Name Routin 

K 15 DSR$Print~TypeCode Name Routin 

L 15 DSR$Print~TypeCode~Name Routin 

M 15 DSR$Print~TypeCodelName Routin 

N 15 **« CVRTIfl time conversion rou 

B 16 *** CVRTIM time conversion rou 

C 16 *** CVRTIM time conversion rou 

D 16 *** CVRTIM time conversion rou 

E 16 *** CVPTJM time conversion rou 

F 16 CONVERT BINARY TIME TO ASCII S 

G 16 CONVERT BINARY TIME TO ASCII S 

H 16 CONVERT ASCII STRING TO BINARY 

I 16 CONVERT ASCII STRING TO BINARY 

J 16 CONVERT ASCII STRING TO BINARY 

K 16 CONVERT ASCII STRING TO BINARY 

I 16 CONVERT ASCII STRING TO BINARY 



ZZ-ENSAA-7.G 

CVRTIM 

V02-0* 



B 1 
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*** CVRTIM time conversion routines 27-JUL-1984 15:12:57 VAX-11 Macro V03-01 Pg9?, !?, 

CONVERT BINARY TIME TO NUMERIC TIME 8-MAY-1980 14:31:48 DMA1 :CSYS0.SYSMAINT;JCVRTIM,MAR;17 (1) 



57 04 AC 

50 01 
00000000'EF 

51 

53 08 AC 

1C 

51 63 
11 

52 52 
51 51 

5? 00 

04 50 00 

50 OC 



OOFC 
DO 

3C 
7D 



02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
C2FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
U2FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FC 
02FE 

IBS 

Q30B 
0311 
0312 
316 
318 
1E 
1 

3;" 

Si 

3i 
3J 

03; 

0334 
"4 
4 
334 
34 
34 
0334 
0334 




524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

056 

557 

558 

559 

560 

561 
562 
563 
564 
565 
566 
567 

M 
569 

570 

571 

572 

§ 7 3 

574 

575 

576 

577 

578 

579 



,SBTTL CONVERT BINARY TIME TO NUMERIC TIME 

EXESNUMTIM - CONVERT BINARY TIME TO NUMERIC TIME 

THIS SERVICE PROVIDES THE CAPABILITY TO CONVERT AN ABSOLUTE OR DELTA TIME 
FROM 64-BIT FORMAT TO INTEGER DATE AND TIME VALUES, 

INPUTS: 

NTIM8UF(AP) = ADDRESS OF 7-WORD BUFFER TO RECEIVE CONVERTED DATE AND 
TIME VALUES, 

NTIMADR(AP) = ADDRESS OF 64-BIT TIME VALUE. IF ZERO, THEN THE CURRENT 
SYSTEM TIME IS USED. POSITIVE VALUES ARE INTERPRETED AS 
ABSOLUTE TIMES AND NEGATIVE VALUES AS DELTA TIMES. 

OUTPUTS: 

ro low bit clear indicates failure to convert to numeric time. 

ro = ss$ accvio - 64-bit time value cannot be read by calling 
access mode or time buffer cannot be written by 
calling access mode. 

ro = ss$ jvtime - specified delta time is greater than 9999 
Pays. 

ro low bit set indicates successful completion. 

ro = sss.normal - normal completion, 



EXESNUMTIM:: *„,„,.. 

.WORD A M<R2,R3,R4,R5,R6,R7> 

MOVL NTIM8UF(AP),R7 

IFNOWRT #7*2,<R7) f 10$ 

MOVZWL #SS$ NORMAL ,R0 

MOVQ EXE$5Q_SYSTIME,R1 

MOVL NTIMADR(AP),R3 

BEQL 20$ , % mM 

IFNORD #8,(R3),10$ 

MOVQ CR3),R1 

BGEQ 20$ 

MNEGL R2,R2 

MNEGL R1,R1 

SBWC #0,^2 

BBSC #0,RO,20$ 

10$: MOVZWL #SS$,ACCVIO,RG 
RET 



CONVERT TO NUMERIC TIME 

ENTRY MASK 

GET ADDRESS OF 7-WORD TIME BUFFER 

CAN TIME BUFFER BE WRITTEN? 

ASSUME NORMAL COMPLETION 

ASSUME TIME NOT SPECIFIED 

GET ADDRESS OF 64-TIME VALUE 

IF EQL NONE SPECIFIED 

CAN 64-BIT TIME VALUE BE READ? 

GET 64-BIT TIME VALUE 

IF GEO ABSOLUTE TIME 

NEGATE DELTA TIME VALUE 



INDICATE DELTA TIME VALUE 
SET ACCESS VIOLATION 



R1 AND R2 CONTAIN 64-BIT ABSOLUTE TIME VALUE IN UNITS OF TENTHS OF MICRO- 
SECONDS. CALCULATE DAYS PAST BASE TIME AND FRACTION OF DAY BY DIVIDING 
BY 864000000000 WHICH IS THE NUMBER OF TENTHS OF MICROSECONDS IN A DAY, 
THE DIVISION IS PERFORMED IN THREE STEPS TO INSURE BOTH QUOTIENT AND 
REMAINDER STAY WITHIN 32 BITS. 



ZZ-ENSAA-7.0 

CVRT1M 

V02-02 



C 1 

CONVERT BINARY TIME TO NUMERIC TJME 27-JUL-1984 Fiche 5 Frame CI Sequence 826 

*** CVRTIM time conversion routines 27-JUL-1984 15:12:5? VAX-11 Macro V03-0T Kwwma Page 13 
CONVERT BINARY TJME TO NUMERIC TIME 8-MAY-1980 14:31:48 DMA1 :CSYS0.SYSMAINTJCVRTIM.MAR;17 (1) 

CALCULATE DAYS BY DIVIDING BY 1024 AND THEN 843750000. QUOTIENT IS DAYS 
AND REMAINDER IS FRACTION OF DAY. 







033A 


580 






033A 


581 






033A 


582 






033A 


583 


51 OA 00 


EF 


033A 


58A 


51 




0338 




51 F6 8F 


79 


0339 


585 


51 




033D 




324A9A70 8F 


78 


033E 


586 


52 51 51 




03AA 








03A7 


587 






03A7 


588 






03A7 


589 






03A7 


590 






03A7 


591 






03A7 


592 






03A7 


593 






03A7 


5 94 






03A7 


595 






03A7 


596 






03A7 


597 


53 


DA 


03A7 


598 


52 52 OA 


79 


03A9 


599 


52 54 


C8 


03AD 


600 


0001 86A0 8F 


?B 


0350 


601 


52 55 52 




0356 








0359 


602 






0359 


603 






0359 


60A 






0359 


605 






0359 


606 






0359 


607 


7E 50 00 


E3 


0359 


608 






035D 


609 






035D 


610 






035D 


611 






035D 


612 






035D 


613 


0001FE98 8F 


CO 


035D 


61A 


51 




0363 








036A 


615 






036A 


616 






036A 


617 






036A 


618 






036A 


619 


52 


DA 


036A 


620 


00023AB1 8F 


7B 


0366 


621 


52 51 51 




036C 








036F 


622 






036F 


623 






036F 


62A 






036F 


625 






036F 


626 






036F 


627 






036F 


628 






036F 


HI 


52 04 


CA 


036F 


630 



20$: EXT2V #0,*10, A1,R4 
ASHQ #-10,R1,R1 
EDIV *843750000,R1,R1,R2 



;SAVE REMAINDER FROM NEXT DIVIDE 

/DIVIDE BY 1024 

/CALCULATE DAYS AND FRACTION OF DAY 



R1 CONTAINS DAYS PAST BASE TIME, R2 PLUS R4 CONTAIN FRACTION OF DAY 
R2 CONTAINS PART OF FRACTION IN UNITS OF 864000000000/1024 AND 
R4 CONTAINS REMAINDER 1H UNITS OF TENTHS OF MICROSECONDS, 

CALCULATE FRACTION OF DAY IN HUNDREDTHS OF SECONDS BY DIVIDING BY 
100000 WHICH IS THE NUMBER OF TENTHS OF MICROSECONDS IN A HUNDRETH 
OF A SECOND. 



CLRL R3 

ASHQ #10,R2,R2 

BJSL R4.R2 

EDIV #100000, R2,R5,R2 



.-CLEAR HIGH PART OF DIVIDEND 

; CONVERT BACK TO TENTHS OF MICROSECONDS 

;ADD REMAINDER BACK 

; CALCULATE FRACTION OF DAY IN HUNDREDTHS 



; R1 CONTAINS DAYS PAST THE BASE TIME AND R5 CONTAINS THE FRACTION OF DAY 
; IN HUNDREDTHS OF A SECOND, 

* 

BBCS #0,R0,70$ ;IF CLR, DELTA TIME SPECIFIED 

; ADD TJME OFFSET SO .HAT DAY IS RELATIVE TO 1-JAN-1501. 
* 

ADDL #TIM0FF1,R1 ;ADD TIME OFFSET 

* 

; CALCULATE NUMBER OF QUADRI CENTURIES THAT HAVE PAST SINCE 1501. 

CLRL R2 ;CLEAR HIGH PART OF DIVIDEND 

EDIV *QUADR1DAYS,R1,R1,R2 /CALCULATE NUMBER OF QUADRI CENTURIES 



; R1 CONTAINS THE NUMBER OF QUADRI CENTURIES AND R2 CONTAINS THE NUMBER OF 

; DAYS INTO THE NEXT QUADRICENTURY, CALCULATE THE NUMBER OF CENTURIES BY 

; CONVERTING TO QUARTER DAYS INTO NEXT QUADRICENTURY AND THEN DIVIDING BY 

; THE AVERAGE NUMBER OF QUARTER DAYS IN A CENTURY. 



MULL #4,R2 



/CALCULATE NUMBER OF QUARTER DAYS 



ZZ-ENSAA-7.0 
CVRTIM 

V02-02 
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*** CVRTIM time conversion routines 27-JUL-1984 15:12:57 VAX-11 Macro V03-01 Page 14 

CONVERT BINARY TIME TO NUMERIC TIME 8-MAY-1980 14:31:48 DMA1 : CSYS0.SYSMAINT3CVRTIM.MAR; 1 7 (1) 



53 

00023AB1 8F 

53 52 52 



54 

53 03 
0OOO05B5 8F 

54 53 53 

54 04 
54 



51 



51 

51 
05DD 

87 



6241 
32 

C341 
51 



51 



00000064 
52 51 



52 



51 
54 



51 

FC37 

54 



F1 



8? 



51 
87 
54 



03 
14 
52 
8F 
51 
52 
0C 
03 
07 
3B 
02 
54 
01 
CF41 
52 
04 
OC 
51 
52 



D4 0372 

7B 0374 

037A 

037D 

037D 

037D 

037D 

037D 

037D 

037D 

037D 

037D 

037D 

D4 037D 

C8 037F 

7B 0382 

0388 

C6 0388 

D6 038E 

0390 

0390 

0390 

0390 

0390 

0390 

0390 

0390 

0390 

0390 

DE 0390 

C4 0394 

3E 0397 

BO 039D 

03A0 

03A0 

03A0 

03A0 

03A0 

D3 03A0 

12 03A3 

D4 0^A5 

7B 03A7 

03AD 

D5 03B0 

12 03B2 
D3 0384 

13 03B7 
01 03B9 
18 03BC 
D6 03BE 
00 03C0 
9A 03C3 
C2 03C9 
15 03CC 
F3 03CE 
BO 03D2 
A1 03D5 



631 
632 

633 
634 
635 
636 
637 
638 
639 

640 
641 
642 
643 
644 
645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 
^72 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 



CLRL R3 

EDIV #QDAYSPCENT,R2,R2,R 



/CLEAR HIGH PART OF DIVIDEND 
; CALCULATE NUM8ER OF CENTURIES 



R2 CONTAINS THE NUMBER OF CENTURIES AND R3 CONTAINS THE NUMBER OF QUARTER 
DAYS INTO THE NEXT CENTURY. 

CALCULATE YEARS BY DISCARDING ANY FRACTION OF A DAY, ADDING 3/4'THS OF A 
DAY, AND DIVIDING BY THE AVERAGE NUMBER OF E.AYS IN A YEAR. THE LEAP DAY 
OF EACH FOUR YEAR CYCLE IS FORCED INTO THE FOURTH YEAR. 



CLRL R4 

BISL *3,R3 

EDIV #QDAYSPYEAR,R3,R3,R4 

DIVL #4,R4 

INCL R4 



;CLEAR HIGH PART OF DIVIDEND 

/TRUNCATE FRACTION AND ADD 3/4 'THS OF DAY 

/CALCULATE NUMBER OF YEARS 

/CALCULATE NUMBER OF DAYS MINUS ONE 
/CONVERT TO ACTUAL JULIAN DAY OF YEAR 



R1 CONTAINS NUMBER OF OUADRI CENTURIES. 
R2 CONTAINS NUMBER OF CENTURIES. 
R3 CONTAINS NUMBER OF YEARS. 
R4 CONTAINS JULIAN DAY OF YEAR. 

CALCULATE ACTUAL YEAR. 



MOVAL (R2)CRU.R1 

MULL #50, R1 

MOVAW 1501<R3)CR13,R1 

MOVW R1,(R7)+ 



COMBINE CENTURIES AND QUADRICENTURIES 
CALCULATE NUMBER OF DOUBLE CENTURIES 
CALCULATE ACTUAL YEAR 
STORE YEAR 



TEST FOR NONLEAP YEAR AND BIAS DAY IF AFTER 28-FEB. 



30$: 



40$: 
50$: 



60$: 



BITL 


#3,R1 


YEAR MULTIPLE OF 4? 


BNEQ 


30$ 


IF NEQ NO 


CLRL 


R2 


CLEAR HIGH PART OF DIVIDEND 


EDiV* 


#100,R1,R1,R2 


CALCULATE CENTURY AND YEAR IN CENTURY 


TSTL 


R2 


YEAR MULTIPLE OF 100? 


BNEQ 


40$ 


IF NEQ NO 


BITL 


«.R1 
40i 


YEAR MULTIPLE OF 400? 


BEQL 


IF EQL YES 


CMPL 


*31+28,R4 


AFTER 28-FEB? 


BGEQ 


40$ 


IF GEO NO 


INCL 


R4 


•ADJUST FOR TABLE BIAS 


MOVL 


#1,R1 


INITIALIZE MONTH 


MOV2BL 


W A DATETABLE-1[R1],R2 


•GET NUMBER OF DAYS IN MONTH 


SU8L 


R2,R4 


•SUBTRACT FROM JULIAN DAY 


BLEQ 


60* 


•IF LEQ CORRECT MONTH FOUND 


AOBLEQ 


#12,R1.50$ 


•LOOP THROUGH ALL MONTHS 


MOVW 


R1,(R7)+ 


; STORE MONTH 


ADDW3 


R2,R4,(R7)+ 


/STORE DAY 



J 



ZZ-ENSAA-7.0 

CVRTIM 

\O2-02 
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15 
(1) 



14 11 



87 
00002710 



50 0184 



87 
51 
8F 
51 
06 
8F 



D4 
BO 
D1 

1A 
3C 
04 



57 

52 FC43 

55 55 



EC 



77 

51 
77 



08 
51 
CF41 
56 
52 
56 
56 
02 
55 



CO 
D4 
9A 
D4 
78 

BO 
F3 
BO 
04 



03D9 

03DB 

03DB 

03DB 

03D8 

03DB 

03DB 

03DD 

03E0 

03E6 

03E7 

03E9 

03EE 

03EF 

C3EF 

03EF 

03EF 

03EF 

03EF 

03EF 

03EF 

03F2 

03F4 

03FA 

03FL 

0400 

0401 

0404 

0408 

04 OB 

040C 

040C 



685 
686 
687 
688 
689 
690 
691 
692 
693 

694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 

709 
710 
711 
712 
713 
714 



BR8 



80$ 



DELTA TIME SPECIFIED - STORE RELATIVE DAY 



70$: 



CLRL 
MOVW 
CMPL 

B6TRU 

M0V2WL 

RET 



<R7) + 
R1,(R7)+ 
#10000, R1 

80$ 
0SS$JVTIME,RO 



CLEAR YEAR AND MONTH 

STORE DAY 

RtLATIVE DAY WITHIN LIMITS? 

IF GTRU YES 

SET INVALID TIME 



R5 CONTAINS FRACTION OF DAY IN HUNDREDTHS OF SECONDS, 
CALCULATE HOUR, MINUTE, SECOND, AND HUNDREDTH OF SECOND, 



80$: ADDL *8,R7 

CLRL R1 

90$: M0V28L W A TiMETABLECR1 J, R2 

CLRL R6 

EDIV R2,R5,R5,R6 

MOVW R6,-(R7) 

AOBLEQ #2,R1,90$ 

MOVW R5,-(R7) 
RET 

.END 



POINT TWO BYTES PAST END OF BUFFER 

CLEAR LOOP INDEX 

GET NEXT UNIT DIVISOR 

CLEAR HIGH PART OF DIVIDEND 

CALCULATE NEXT PART 

STORE NEXT PART 

LOOP FOR HUNDREDTHS, SECONDS, AND MINUTES 

STORE HOUR 



ZZ-RNSAA-7.0 
CVPT.M 

Symbol table 

SST2 
ACVTFLG 

ATiMADR 

AT1MBUF 

ATIMLEN 

BLANK 

BTIMADR 

BTIMBUF 

CENTURYDAYS 

COLON 

CONVERT 

CVRT1ME 

DATE 

DATETABLE 

DAY 

DELTA 

EXESASCTIM 

EXE*BINTIM 

EXEiGQ SYST1ME 

exesnuRtim 

HOUR 

HUNDREDTH 

HYPHEN 

IVT1ME 

MINUTE 

MONTH 

MONTHTAB 

NINE 

NTIMADR 

NTIMBUF 

ONE 

PERIOD 

QDAYSPCENT 

QDAYSPYEAR 

QUADR1DAYS 

QUADYEARDAYS 

SECOND 

SS$ ACCVIO 

SSS^IVTIME 

SS$ NORMAL 

SYSlFAO 

SYSSNUMTIM 

TIME 

TIMETABLE 

TIMOFF1 

T1MOFF2 

YEAR 



Symbol table 



PSECT name 

. ABS . 

SABSS 

SEP 
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00000007 
00000010 
0OOOOO0C 
00000008 
00000004 
00000020 
00000008 
00Q0Q004 
00008EAC 
0000003A 
000001B3 
000001 E6 
0000003F 
00000000 
00000004 
0000004D 
00000065 

00000106 
*ft*t **** 

000002FC 

00000006 

oooooooc 

0000002D 
000001 EO 
00000008 
00000002 
OOOOOOOC 
00000039 
00000008 
000U0004 
00000030 
0000002E 
00023AB1 
00000585 
00023AB1 
000005B5 
0000000A 
OOOOOOOC 
00000184 
00000001 

******** 

******** 

00000052 
0000003C 
0001FE98 
0001 6F EC 
00000000 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



X 
GX 



Allocation 

00000000 
00000000 
0000040C 



02 
02 
02 



02 



R D 02 

D 
R D 02 
RG D 02 
RG D 02 
X 02 
RG D 02 

D 

D 

D 
R D 

D 

D 
R D 02 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



02 
02 



R D 02 
R D 02 

D 

D 

D 

! Psect synopsis ! 

PSECT No, Attributes 

( 0.) 00 ( 0.) NOPIC USR 
( 0.) 01 ( 1.) NOPIC USR 
( 1036.) 02 ( ?.) NOPIC USR 



CON ABS LCL NOSHft NOEXE NORD NOWRT NOVEC BYTE 
CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
CON REL LCL SHR EXE RD WRT NOVEC LONG 



ZZ-ENSAA-7,0 Cross 


reference 






27- 


6 1 
JUL-1984 


Fiche 


5 r rame 


G1 


Sequence 830 
ro V03-01 Page 


4 Tf 


CVRTIM 


.*** CVRT1M time conversion 


routines 




27-JUL-1984 15:12 


:57 VAX- 


11 Mar 


M 


Cross reference 












8-MAY-1980 14:31 


:48 DMA1 


:[SYSO 


.SYSMAiNT3CVRTiM.MAR;17 


(i; 


! Symbol Cross Reference I 




SYMBOL 
SST2 


VALUE 
=00000007 


DEFINITION 


REFERENCES. 


• ■ 


(1) 










2«6 


(1) 


273 


(1) 


286 




ACVTFLG 


=00000010 


5/ 


(1) 


#-253 


(1) 














AT1MADR 


=0000000C 


56 


(1) 


#-239 


(1) 














ATIMBUF 


=00000008 


55 


(1) 


#-234 


(1) 














ATIMLEN 


=00000004 


54 


(1) 


#-287 


(1) 














BLANK 


=00000030 


123 


(1) 


#-324 


(1) 


368 


(1) 


#-371 


(1) 


388 (1) 




BTIMADR 


=00000008 


64 


<1J 


#-521 


(1) 














BTIMBUF 


=00000004 


63 


(1) 


#-320 


(1) 














CENTURYDAYS 


=00008EAC 


79 


(1) 


#-463 


(1) 














COLON 


=0000003A 


124 


(1) 


382 


(1) 


384 


(1) 










CUNVERT 


000001B3-R 


395 


(1) 


#-337 
#-385 


(1) 
(1) 


#-367 
#-387 


(1) 
(1) 


#-381 


(1) 


#-383 (1) 




CVRTIME 


000001 E6-R 


427 


(1) 


#-389 


(1) 


#-399 


(1) 










DATE 


0000003F-R 


193 


(1) 


262 


(1) 


#-263 


(1) 










DATETABLE 


00000000-R 


148 


(1) 


#-468 


(1) 


#-679 


(1) 










DAY 


=0000000'. 


136 


(1) 


#-273 
#-483 


(1) 
(1) 


336 


(1) 


#-428 


(1) 


#-438 (1) 




DELTA 


00000OT-R 


194 


(1) 


#-263 


(1) 


270 


(1) 


#-271 


(1) 






EXESASCTIM 


00000065-R 


232 


(1) 


#-284 


(1) 














bXESBINTIM 


000001 06-R 


316 


(1) 


















EXE$GQ SYSTIMF, 


OOOOOOOO-XR 






#-560 


(1) 














exesnuRtim 


000002FC-R 


555 


(1) 


















HOUR 


=00000006 


137 


(1) 


#-286 


(1) 


380 


(1) 


#-430 


(1) 


#-494 (1) 




HUNDREDTH 


=0000O00C 


140 


(1) 


#-286 


(1) 


#-366 


(1) 


#-436 


(1) 


#-499 <1) 




HYPHEN 


=0000002D 


125 


(1) 


#-326.8 


(1) 


338 


(1) 


#-341 


(1) 


#-353 (1) 




IVTIME 


000001EO-R 


420 


(1) 


#-342.12 


(1) 


#-351 


(1) 


#-354 


(1) 


#-404 (1) 












#-406 


(1) 


#-408 


(1) 


#-410 


(1) 


#-429 (1) 












#-431 


(1) 


#-433 


(1) 


#-435 


(1) 


#-437 (1) 












#-446 


(1) 


#-449 


(1) 










MINUTE 


=00000008 


138 


(1) 


#-286 


(1) 


#-432 


m 


#-495 


(1) 






MONTH 


=00000002 


135 


(1) 


#-260 


(1) 


#-342.14 


d) 


#-466 


(1) 






MONTHTAB 


OOOOOOOC-R 


166 


(1) 


261 


(1) 


#-342.9 


(i) 










NINE 


=00000039 
=00000008 


126 


(1) 


#-405 


(1) 














NTIMADR 


71 


(1) 


#-561 


(1) 














NTIMBUF 


=00000004 


70 


(1) 


#-557 


(1) 














ONE 


=00000030 


127 


(1) 


#-403 


(i) 


#•405 


(D 










PERIOD 


=00QQQ02E 
=00023AB1 


128 


(1) 


386 


(1) 














QDAYSPCENT 


85 


(1) 


#-632 


(1) 














QDAYSPYE/' 


=00000585 


91 


<■> 


#-645 


(1) 














QUADRIDAYS 


=00023AB1 


97 


(1) 


#-464 


(1) 


#-621 


d) 










QUADYEARDAYS 


=00000585 


103 


(1) 


#-462 


(1) 














SECOND 


=OO00OO0A 


139 


(1) 


#-286 


(1) 


#-434 


(D 


#-49? 


(1) 






SS$J\CCVI0 


=OO00OO0C 






#-570 


(1) 














SSSJVTIME 
SS$ NORMAL 


=00050184 
=00000001 






#-420 
#-516 


(1) 
(1) 


#-482 
#-559 


d) 
(i) 


#-69b 


<1> 






SYS$FAO 


OOOOOOOO-XR 






273 


(1) 


286 
330 


(D 










SYSfNUMTIM 


OOOOOOOO-XR 






246 


(1) 


d) 










TIME 


00000052-R 


195 


(1) 


#-271 


(1) 


283 


d) 


#-284 


(1) 






TIMETABLE 


0000003C-R 


184 


(1) 


#-706 


M) 














TlMOFn 


^0001FE98 


110 


(1) 


#-614 


(1) 
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TIM0FF2 =00016FEC 117 (1) #-484 (1) 

YEAR =00000000 134 (1) #~27S (1) 356 (1) 363 (1) #-447 (1) 

#-471 (1) 



ZZ-ENSAA-7.0 

CVRTIM 

Cross reference 



Cross reference 



832 



I 1 

27-JUL-1984 Fiche 5 Frame II Seguence . ._ 
*** CVRTiM time conversion routines 27-JUL-1984 15:12:57 VAX-1t Macro V03-01 J?W, !?* 

8-MAY-1980 14:31:48 DMA1 ;CSYS0. SYSMAINTJCVRTIM.MAR; 1 7 (1) 



+ — .... .... — + 

! Macros Cross Reference ! 



MACRO 



SI7 



SDEFIN1 

$FAO S 

SNUMTlM S 

SPUSHADR 

SSSDEF 

IFNORD 

KNOWRT 



DEFINITION 



46 

273 

246 

246 

46 

563 

558 



REFERENCES... 



46 


(i: 






273 


d. 


286 


(1) 


246 


(1- 


> 330 


(1) 


246 


<1- 


) 273 


(1) 


46 


n. 






563 


(i- 






558 


d- 







286 



(1) 



330 (1) 



+ ....... ...... ...... ..+ 

! Performance indicators ' 
t — ...... + 



Phase 



Initialisation 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 

32" 00T00T00.10 

153 00:00:00.80 

431 00:00:06.68 

00:00:00,64 

186 00:00:02.18 

6 00:00:00.06 

4 00:00:00.02 

33 00:00:00.24 

848 00:00:10.74 



Elapsed Time 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.49 

:02.12 
: 09.21 
:00.73 
:03.79 
:00.06 
:00.04 
: 00.27 
:16.73 



The working set limit was 1000 pages. 

3376. bytes (66 pages) of virtual memory were used to buffer the intermediate 
There were 30 pages of symbol table space allocated to hold 446 non-local and 
738 source lines were read in Pass 1, producing Q object records in Pass 2. 
15 pages of virtual memory were used to define 12 macros. 

+........... — .... ....-----+ 

! Macro library statistics ! 
+... .....-....+ 



code. 
35 local 



symbols. 



Macro I itvary name 

0MA1:CSYS0.SYSMAINT]DS.MLB;218 
DMA1:[SYS0.SYSMAINT]DIAG.MI8;953 
SYS$SYSR00T:[SYSLI8]LIB.ML8;1 
SYS$SYSR00T:CSYSLIB]STARLET,ML8;2 
TOTALS (all libraries) 



Macros defined 

" 


2 
7 
9 



500 GETS were required to define 9 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECr/L I ST=[PS.US]/CROSS/ENABLE = (DEBUG, TRACE) CVRT JM/UPDA=(CVRTIM,UPD,CVRTIM.ENH)^SYS$L 1BRARY:L IB/L IBRARY+DMA1 :CSYSO.SYSMA| 



ZZ-ENSAA-7.0 

CVTFILNAM 

•able of contents 



- Converts ASCII 



to RAD50 
Converts 



ASCII to RAD50 



J 1 
27-JUL-1984 Fiche 5 Frame jl 

27-JUL-1984 15:13:15 VAX-11 Macro 



Seguence 833 
V03-0T 



Page 



(2) 
(3) 
i4> 
(5) 
(6) 



56 

83 

208 

245 

277 



DECLARATIONS 

CVTFILNAM - CONVERT FILE NAME FROM ASCII TO RAD50 
ST0RER508YTE - CONVERT AND STORE ASCII BYTE TO RAD50 
PALKRAD50 - PACK 3 BYTES OF RAD50 CHARACTERS INTO A WORD 
ASCIITORAD50 - CONVERT ASCII CHARACTER TO RAD50 



ZZ-ENSAA-7.0 

CVTF1LNAM 

06-02 



-1 



-1 



Converts ASCII d RAD50 
- Converts 



0000 
0000 
0000 
OOOu 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



ASCJJ to RA050 



834 



K 1 
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1 
.1 

3 

4 

5 

6 
.1 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

.1 
.2 
.3 

51 
52 
53 
54 



♦TITLE CVTFILNAM - Converts ASCII to RAD50 
•IDENT '06-02* 



********************************************** ****************************** 
* * 

* 



COPYRIGHT (c) 1978, 1980, 1982, 1983 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THJS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



**************************************************************************** 

FACILITY: 

Used by B00T58 and FILEREAD 

ABSTRACT: 

Converts an ASCII string file name, type, and version number 
to a 6-word RAD50 file name and typo, and a 16-bit binary 
version number. 

ENVIRONMENT: 

any 

AUTHOR: 

Carol Peters 22 March 1979 

Extracted from the Release 1 module F REREAD. MAR: all 
code and definitions are unchanged from Release 1 form. 



MODIFIED BY: 

02 



Bob Bergazzl 30-Jun-1983 Version 6,12 
Adapted for VDS 



V03-001 TCM0001 Trudy C. Matthews 
Added G* to call to LIB$CVT_DTB. 



15-Nov-1982 



J 
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CVTFILNAM 
06-02 



DECLARATIONS 



- Converts ASCII to RA050 
DECLARATIONS 



0000 56 

0000 *;? 

n ?on 58 

OUOu 59 

0000 *0 

0000 61 

0000 62 

0000 63 

0000 64 

0000 65 

0000 66 

0000 67 

00000061 0000 68 

0000007A 0000 69 

00000041 C000 70 

0000005A 0000 71 

00000030 0000 72 

00000039 0000 73 

0000002E 00)0 74 

00000038 0000 75 

0000 76 

0000 77 

0000 78 

0000 79 

0000 80 

00000000 ,1 



L 1 
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Sequence 835 



.S8TTL DECLARATIONS 



Include files 



SSSDEF 



Equated symbols 



LCA 

LCI 

UCA 

UC2 

ZERO 

NINE 

DOT 

SEMI 



PSECT declaration 



*OH1 

A 0172 

A 01C1 

*0132 

A 060 

A 071 

A 056 

A 073 



Status code definitions 



LOWER CASE A 
LOWER CASE Z 
UPPER CASE A 
UPPER CASE Z 
ASCII 2ERO 
ASCII NINE 
ASCII PERIOD 
ASCII SEMICOLON 



, PSECT code, exe, nowrt, shr, long 



C02] 
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M 1 

CVTF1LNAM - CONVERT FILE NAME FROM ASCII 27-JUL-1984 FjcheJ . .Frame Ml _Seguence 836_ 


CVTFlLNAM 


- Converts 


ASCJI to RAD50 27-JUL-1984 15:13:15 VAX-11 Macro V03-01 Paae 5 
CONVtrtT FILE NAME FROM ASCII 12-APR-1983 15:57:13 DMA1 :[SYS0.SYSMAINT]CVTF1LNAM.MAR; (3) 


06-02 


CVTFJLNAM - 




0000 


83 ,S8TTL CVTFILNAM - CONVERT FILE NAME FROM ASCII TO RAD50 




0000 


84 




0000 


85 ; 


++ 




0000 
0000 
0000 


86 ; 

87 ; 

88 ; 


FUNCTIONAL DESCRIPTION: 




THIS ROUTINE CONVERTS THE ASCII FILE NAME (NAME, TYPE, VERSION) 




0000 


89 ; 


TO THE FILE NAME BLOCK FORM OF 3 WORDS RAD50 NAME, 1 WORD OF TYPE 




0000 


90 ; 


AND 1 WORD OF VERSION. 




0000 


91 ; 






0000 


92 ; 


CALLING SEQUENCE: 




0000 


93 ; 






0000 


94 ; 


CALLG ARGLIST,FIL$CVTFILNAM 




0000 


95 ; 






0000 

cooo 

0000 


96 ; 

97 ; 

98 ; 


INPUT PARAMETERS: 




FILNAM(AP) = ;STRING DESCRIPTOR OF FILE NAME STRING 




0000 


99 ; 


FILNAMBLK(AP) = /ADDRESS OF 5 WORD BLOCK 




0000 


100 , 


3 WORD RAD50 FILE NAME 




0000 


101 ; 


1 WORD RAD50 FILE TYPE 




0000 


102 ; 


1 WORD BINARY VERSION 




0000 


103 ; 






0000 


104 , 


IMPLICIT INPUTS: 




0000 


1 "5 , 






0000 


1 06 ( 


NONE 




0000 


10 7 , 






0000 


108 


OUTPUT PARAMETERS: 




0000 


109 < 






0000 


110 , 


RO = SYSTEM STATUS CODE 




0000 


111 . 


FILNAME BLOCK FILLED IN 




oooc 


112 , 






oooc 


113 t 


IMPLICIT OUTPUTS: 




000(- 


1H , 






0000 


115 , 


NONE 




0000 


116 , 






0000 


117 


• COMPLETION CODES: 




0000 


113 






0000 


119 


SSS NORMAL SUCCESSFUL COMPLETION 




0000 


120 


SSSlBADF RENAME SYNTAX ERROR IN FILE NAME 




0000 


121 






0000 


122 


; SIDE EFFECTS: 




0000 


123 






0000 


124 


; NONE 




0000 


I25 






0000 


126 


; EQUATED SYMBOLS: 




0000 


127 






0000 


128 


; OFFSETS FROM AP 




0000 


129 






00000004 0000 


130 FJLNAM = 4 .-DESCRIPTOR QF ASCII FILE NAME STRING I 

131 FILNAMBLK = 8 ;ADDRESS OF 5 WORD FILE NAME BLOCK | 




00000008 0000 




0000 


132 






0000 


133 


; OFFSETS FROM FP 




0000 


134 






fiftfftb 0000 


135 TYPE - -3 BEGINNING OF TYPE FIELD 




tnu?ft< oooo 


136 NAME = -12 .-BEGINNING OF NAME FIELD ! 




0000 


137 ; i 




0000 


138 ;~ 




0000 


139 j 

1 



ZZ-ENSAA-7.0 

CVTFItNAM 
06-02 



CVTF1LNAM - CONVERT FILE NAME FkCM ASCII 

- Converts ASCJ1 to RAD50 



837 



N 1 , 

27-JUL-1984 Fiche 5 Frame N1 Sequence 

27-JUL-1984 15:13:15 VAX-11 Macro V03-01 Page * 

CVtriLNAH"- CONVERT FILE NAME FROM ASCII 12-APR-1953 15:57:13 DMA1 : CSYSO.SYSMAINTJCVTFILNAM^MAR; (3) 



7E 

55 04 BC 

55 55 

54 F4 AO 

53 09 

OF 



50 
5C 

50 



54 FD 
53 



50 
50 



EE 



007C 
7E 7C 



86 
2E 
OC 
3B 
24 
59 

EE 55 

2F 



AD 
03 
OF 

86 
3B 
OC 
?E 

07 

3C 

55 
1? 



U8 AC 08 

7E 

71 55 

03 

00000000' OF 
Ik 50 



54 

53 



08 
F/i 



AC 
AD 
63 



D4 
7D 
3C 
9E 
DO 
11 



90 
V1 
13 
91 
13 
10 

F4 
11 



9E 
00 
11 

90 
91 
13 
91 
13 
10 

F4 

11 



C1 

70 
FG 

t9 



DO 
9F 
95 



0000 

')000 

0002 

0004 

0006 

OOOA 

OOOD 

0011 

0014 

0016 

0016 

0016 

0016 

0016 

C016 

0019 

001C 

001E 

0021 

0023 

0025 

0025 

0028 

002A 

002A 

002A 

002A 

002A 

C02E 

0031 

0033 

0033 

0036 

0039 

003B 

003E 

0040 

004: 

0042 

0045 

0047 

0047 

0047 

0047 

0047 

0048 

0041 

004F 

0051 

0056 

0059 

0059 

0059 

0059 

0059 

0050 

0061 



140 
141 
142 
143 
144 
.1 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 

178 
179 
180 
181 
182 
18 7 

184 
185 

186 
187 
188 
189 

190 
191 
192 
193 



FILSCVTFILNAM: 
,WORD 
CLRO 
CLRL 
MOVQ 
MOVZWL 
MOVAB 
MOVL 
BR8 



A M<R2,R3,R4,P5,R6> 

-(SP) 

-(SP) 

3FILNAM(AP),R5 

R5,R5 

NAME(FP),R4 

#9,R3 

40$ 



RESERVE AND ZERO A 

12 BYTE NAME STRING 

R5 = SIZE, R6 = ADR OF STRING 

only low word used 
ADDRESS TO STORE NAME 
UP TO 9 CHARACTERS 



C02J 



STORE UP TO 9 CHARACTERS Of RAD50 IN THE BYTE ,,/?RAY ADDRESSED BY R4 
IN PREPARATiUN FOR CONVERTING INTO THE PACKED RAD50 FORMAT 



20$: 



40$: 



MOVB 
CMPB 
BEQL 
CMP8 
BEQL 
BS8B 

SOBGEQ 
BRB 



<R6)+,R0 

#DOT,RO 

FILETYPE 

#SEMI,RO 

VERSION 

STORER50BYU 

R5,20$ 
BUILDFNB 



GET THE NEXT CHARACTER 

IS IT A DOT? 

BRANCH IF YE C 

IS IT A SEMICOLON 

BRANCH IF YES 

CONVERT AND STORE THE CHARACTER 



COUNT THE CHARACTERS IN 
END OF STRING, NO TYPE, 



THE STRING 
NO VERSION 



NOW SET UP THE 3 BYTE ARRAY OF FILE TYPE 



FILETY, 



20$: 



40$: 



MOVAB 

MOVL 

BRB 

MOVB 
CMPB 
BEQL 
CMPB 
BEQL 
BSB8 

SOBGEQ 
BRB 



TYPE(FP),R4 

#3,R3 

40$ 

(R6)+,R0 

0SEMI RO 

VERSION 

#DOT,RO 

VERSION 

STORER508YTE 

R5,20$ 
BUILDFUB 



;ADDRESS OF BYTE ARRAY 
;MAX SIZE OF FILE TYPE 



GET NEXT CHARACTER 

IS IT A SEMICOLON? 

BRANCH IF YES 

DOT FOR VERSION TOO 

BRANCH IF VERSION DELIMITER 

CONVERT AND STORE THE BYTE 

LOOP THROUGH THE CHARACTERS 
END CF STRING, NO VERSION 



VERSION DELIMITER FOUND, CONVERT THE VERSION 



VERSION: 



ADDl3 #4*2,FILNAMBLK(AP),-(SP> ;ADDRESS TO STORE VERSION 



MOVQ R5,-(SP) 

CALLS #3,G A LIB$CVT^D T B 

BL8L R0,BADFILNAM 



;PUSH ADDRESS, PUSH SIZE OF VERSION STRING 
.•CONVERT DECIMAL VERSION STRING TO BINARY 

;BRANCH IT BAD FILE NAME 



NOW PACK THE TEMPORARY BYTE STRiNG INTO THE RAD50 WORDS 



BUJLDFNB: 

MOVL 

M0VA8 

TST8 



FILNAMBLK(AP),R4 

NAME(FP),R3 

«R3) 



ADDRESS TO STORE PACKED RAD50 
At DRESS OF NAMF STRING 
ANY NAME G'VEN? 



L „ 



ZZ-ENSAA-7,0 

CVTFILNAM 

06-02 



CVTFILNAM - CONVERT FILE NAME FROM ASCII 

- Converts ASCII to RAD50 
CVTFILNAM - CONVERT FILE NAME 



B 2 

27-JUL-1984 Fiehe 5 Frame B2 

27-JUL-1984 15:13:15 VAX-11 Macro 
FROM ASCII 12-APR-1983 15j57:13 



Sequence 838 
V03-01 



. __ . Page 5 

DMA1jCSYS0.SYSMAINT3CVTFILNAM.MAR; (3) 



08 AC 
53 FD 



06 
26 

22 

06 
54 
AD 
63 
02 
13 



13 
10 
1 

1 



§ 



50 01 



C1 

9E 
95 
13 
10 

3C 
04 



0063 
0065 

0067 
0069 
006B 
006B 
006F 
0070 
0074 
0076 
0078 
007A 
007A 
007D 



194 

195 
196 
197 
198 

199 



20$: 



BEQL 
BSBB 
BSBB 
BSBB 



200 

201 

202 

203 

204 40$: 

205 

206 



M0VA8 
TSTB 
BEQL 
BS8B 

MOVZWL 
RET 



20$ 

PACKRAD50 
PACKRAD50 
PACKRAD50 



ADDL3 *3*2,FILNAMBLK(AP),R4 



TYPE(FP),R3 

(R3) 

40$ 

PACKRAD50 

#SS$_NORMAL,R0 



BRANCH IF NO 
1ST 3 CHARACTERS 
2ND 3 CHARACTERS 
3RD 3 CHARACTERS 

ADDRESS TO STORE FILE TYPE 

ADDRESS OF TYPE STRING 
ANY FILE TYPE PRESENT? 
BRANCH IF NOT 
CONVERT 3 CHARACTERS 

INDICATE SUCCESS 



ZZ-ENSAA-7.0 

CVTFILNAM 

06-02 



STORER50BYTE - 



CONVERT AND STORE ASCII B 
- Converts ASCII to RAD50 
STORER508YTE - CONVERT AND 



C 2 

27-JUL-1984 Fiche 5 Frame C2 ^ Sequence 839 

27-JUL-1984 15:13:15 VAX-11 Macro V03-0T Paae 6 
STORE ASCII B 12-APR-1983 15:57:13 DMA1 :[SYS0.SYSMAINT3CVTFILNAM.MAR; (4) 



50 



26 
06 53 

0818 8F 
84 50 



007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
C07E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
007E 
10 007E 
FA 0080 
0083 
3C 0083 

04 0088 
0089 

90 0089 

05 008C 
008D 
008D 



208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 
243 



+ ♦ 



,SBTTL STORER50BYTE - CONVERT AND STORE ASCII BYTE TO RAD50 
FUNCTIONAL DESCRIPTION: 

CONVERT ASCII BYTE TO RAD50 AND STORE IN THE SPECIFIED BYTE ARRAY 
CALLING SEQUENCE: 

BSBB STORER50BYTE 

INPUT: 

RO = ASCII BYTE 

R3 = SIZE OF BYTE ARRAY TO STORE IN 

R4 = ADDRESS OF BYTE ARRAY TO STORE IN 



OUTPUT: 



RSB IF SUCCESSFUL, RET WITH ERROR CODE IN RO IF ERROR 
R3, R4 UPDATED TO REFLECT THE ADDITIONAL BYTE STORED 



.ENA8L LSB 



STORER50BYTE: 
BSBB 
SOBGEQ 

BADFILNAM: 

MOVZWL 
RET 

20$: 

MOVB 
RSB 



ASCIITORAD50 
R3,20$ 



0SS$_BADFILENAME,RO 
R0,(R4)+ 
.DSABL LSB 



; CONVERT TO RAD50 

;BRANCH IF ROOM TO STORE THIS CHARACTER 

.♦RETURN ERROR CODE 



; STORE IT 

;AND RSB SUCCESSFULLY 



J 



Z7-ENSAA-7.0 

CVTFILNAM 

06-02 



PACKRAD50 - PACK 3 BYTES OF RAD50 CHARAC 

- Converts ASCII to RAD50 
PACKRAD50 - PACK 3 BYTES OF 



D 2 

27-JUL-1984 Ffche 5 Frame D2 Seguence 840 

27-JUL-1984 15:13:15 VAX-11 Macro V03-0T Paae 7 
RAD50 CHARAC 12-APR-1983 15:57:13 DMA1 :CSYS0.SYSMA1NTJCVTFILNAM.«AR; (5) 



50 



84 



50 83 
0640 8F 

51 83 



51 
50 
51 
50 



28 
51 
83 
51 



008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

C08D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

008D 

9A 008D 

A4 0090 

9A 0095 

A4 0098 

AO 0098 

9A 009E 

A1 O0A1 

05 O0A5 



245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 



++ 



,S8TTL PACKRAD50 - PACK 3 BYTES OF RAD50 CHARACTERS INTO A WORD 
FUNCTIONAL DESCRIPTION: 

PACK 3 BYTES OF RAD50 CHARACTERS INTO A WORD 
CALLING SEQUENCE: 

BS8B PACKRAD50 
INPUTS: 



R3 = RAD50 BYTE STRING ADDRESS 

R4 = ADDRESS OF WORD ARRAY TO STORE IN 



OUTPUTS; 



R: UPDATED TO POINT TO NEXT GROUP OF 3 CHARACTERS 
R4 UPDATED TO POINT AT NEXT WORD TO STORE IN 



PACKRAD50: 

M0VZ8L 

MULW 

M0VZ8L 

MULW 

ADDW 

MOVZBL 

ADDW3 

RS8 



(R3)+,R0 

#40*40, RO 

<R3)+,R1 

#40, R1 

R1.R0 

(R3)+,R1 

R1,R0,(R4)+ 



BUILD PACKED WORD IN RO 
START ACCUMULUATING IN RO 
SECOND CHARACTER TO TEMP 
MULTIPLY BY THE RADIX 
AND ACCUMULATE 
LAST CHARACTER 
ACCUMULATE AND STORE RESULT 



ZZ-ENSAA-7.0 

CVTFILNAM 
06-02 



ASC1ITORA050 - CONVERT ASCII CHARACTER T 

- Converts ASCII to RAD50 
ASCJIT0RAD50 - CONVERT ASCII 











00A6 


277 




.SBTTL 


ASCIIT0RAD50 - 










O0A6 


278 , 


++ 














00A6 


279 ( 


FUNCTIONAL DESCRIPTION: 










00A6 


280 ( 
















00A6 


281 ( 




CONVERT 


ASCII CHARACTE 










00A6 


282 , 
















00A6 


283 ( 


CALLING SEQUENCE: 










00A6 


284 , 
















00A6 


285 , 




BS88 


ASCII TORAD50 










00A6 


286 
















00A6 


287 , 


INPUTS: 












00A6 


288 
















00A6 


289 




RO = CHARACTER TO CONV 










00A6 


290 
















C0A6 


291 ( 


* OUTPUTS: 












00A6 


292 
















00A6 


293 




RS8 IF 


SUCCESSFUL, RET 










00A6 


294 




RO = RAD50 EQUIVALENT 










00A6 


295 




R1,R2,R3 PRESERVED 










00A6 


296 
















O0A6 


297 


;-- 














00A6 


298 
















00A6 


299 ASCIITORAD50: 




7A 


8F 


50 


91 


00A6 


300 




CMP8 


RO,*LCZ 






07 


1A 


OOAA 


301 




BGTRU 


BADFILNAM 


61 


8F 


50 


91 


OOAC 


302 




CMPB 


RO,#LCA 






05 


19 


OOBO 


303 




BLSS 


10$ 


50 


60 


8F 


82 
05 


0082 
00B6 
00B7 


304 
305 
306 


10$: 


SUB8 
RSB 


#LCA-1,R0 


5A 


8F 


50 


91 


00B7 


307 




CMP8 


RO,*UCZ 






C6 


14 


008B 


308 




BGTR 


BADFILNAM 


41 


8F 


50 


91 


OOBD 


309 




CMPB 


RO,*UCA 
20i 






05 


19 


00C1 


310 




BLSS 


50 


40 


8F 


82 
05 


00C3 
00C7 
00C8 


311 
312 
313 


20$: 


SUBB 
RS8 


#UCA-1,R0 




39 


50 


91 


00C8 


314 




CMPB 


RO,#NINE 






B6 


14 


00C8 


315 




BGTR 


BADFILNAM 




30 


50 


91 


OOCD 


316 




CMP8 


R0,*ZER0 






B1 


19 


OODO 


317 




BLSS 


BADFILNAM 




50 


12 


82 
05 


00D2 
00D5 
00D6 
00D6 


318 
319 
320 
321 




SUBB 
RSB 

• END 


#ZERO-30,R0 



E 2 

27-JUL-1984 Fiche 5 Frame 12 Seguence 841 

27-JUL-1984 15:13:15 VAX-11 Macro V03-01 Page 8 
CHARACTER T 12-APR-1983 15:57:13 DMA1 iCSYS0.SYSMAINT3CVTFILNAM.MAR; (6) 

CONVERT ASCII CHARACTER TO RAD50 



TO ITS RAD50 EQUIVALENT 



WITH ERROR CODE IN RO If ERROR 



LOWER CASE ALPHA? 
BRANCH IF BAD RAD50 

BRANCH IF NOT 

CONVERT TO ALPHA 

AND RETURN SUCCESSFULLY 

UPPER CASE ALPHA? 
BRANCH IF BAD RAD50 

BRANCH IF NOT ALPHA 
CONVERT TO RAD50 ALPHA 
AND RETURN SUCCESSFULLY 



NUMERIC? 
BRANCH IF 



BAD RAD50 



BRANCH IF BAD RAD50 
CONVERT TO RAD50 NUMERIC 
AND RETURN SUCCESSFULLY 



ZZ-ENSAA-7.0 
CVTFILNAM 
Symbol table 

ASCUTORAD50 

BADF1LNAM 

BURDFNB 

DOT 

FIUCVTFRNAM 

F1LETYPE 

FILNAM 

FILNAMBLK 

LCA 

LCZ 

LlB$CVT_DTB 

NAME 

NINE 

PACKRAD50 

SEMI 

SS$_BADF RENAME 

SSS NORMAL 

STORER50BYTE 

TYPE 

UCA 

UC2 

VERSION 

ZERO 



Symbol table 



PSECT name 

. ABS , 

SABSS 

CODE 



- Converts ASCII to RAD50 



F 2 
27-JUL-1984 Fiche 5 Frame F2 Sequence 842 

27-JUL-1984 15; 13:15 VAX-11 Macro V03-01 Paae 9 
12-APR-1983 15:57:13 DMA1 :CSYSO,SYSMAINT]CVTFILNAM.MAR; (6) 



00OO00A6 
00000083 
00000059 
0000002E 
00000000 
0000002A 
00000004 
00000008 
00000061 
0000007A 
******** 

FFFFFFF4 
00000039 
0000008D 
0000C03B 
00000818 
00000001 
0000007E 
FFFFFFFD 
00000041 
0000005A 
00000047 
00000030 



R 02 

R D 02 

R D 02 

D 

R6 D 02 



R 



R 



R 



Allocation 

oooooooo"( 

00000000 < 
000000D6 ( 



02 



02 



02 



R D 02 
D 



02 



! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

214J 02 ( 2.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON ABS LCL NOSHR EXE RD 
CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.0 
CVTFILNAM 
Cross reference 



Cross reference 



- Converts ASCII to RAD50 



SYMBOL 



ASCIITOPAD50 
BADF1LNAM 

BURDFNB 

DOT 

FRSCVTFRNAM 

FILETYPE 

F1LNAM 

FILNAMBLK 

LCA 

LC2 

LIB$CVT,DTB 

NAME 

NINE 

PACKRA050 

SEMI 

SS$_BADF RENAME 

SS$ NORMAL 

STORER50BYTE 

TYPE 

UCA 

UCZ 

VERSION 

ZERO 



r P 
27-JUL-1984 Ffche 5 Frame G2 Seguence 843 

27-JUL-1984 15:13:15 VAX-11 Macro V03-0T Paae W 

12-APR-1983 15:57:13 DMA1 :CSYSO.SYSMAINTKVTFILNAM.MAR; (6) 



VALUE 

000000A6-R 
00000083-R 

00000059-R 
=0000002E 

00000000-R 

0000002A-R 
=00000004 
=00000008 
=00000061 
=0000007A 

00000000-XR 
=FFFFFFF4 
=00000039 

0000008D-R 
=00000038 
=00000818 
=00000001 

0000007E-R 
=FFFFFFFD 
=00000041 
=0000005A 

00000047-R 
=00000030 



+ • — ™.+ 

! Symbol Cross Rererence ! 
+ — — + 



DEFINITION 



299 
236 

190 

74 

140 

165 

130 

131 

68 

69 

136 
73 
267 
75 



233 

135 

70 

71 

182 

72 



(6) 

(4) 

(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(2) 
(2) 

(3) 

(2) 
(5) 
(2) 



(4) 
(3) 
(2) 
(2) 
(3) 
(2) 



REFERENCES 



#-234 
#-186 
#-317 
#-161 
#-154 

#-155 
#-144 
#-183 
#-302 
#-300 
185 
145 
#-314 
#-195 
#-156 
#-237 
#-205 
#-158 
166 
#-309 
#'307 
#-157 
#-316 



(4) 
(3) 
(6) 
(3) 
(3) 

(3) 
(3) 
(3) 
(6) 
(6) 
(3) 
(3) 
(6) 
(3) 
(3) 
(4) 
(3) 
(3) 
(3) 
(6) 
(6) 
(3) 
(6) 



#-301 

#-178 
#-173 



#-191 
#-304 



192 

#-196 
#-171 



#-175 

200 

#-311 

#-172 
#-318 



(6) 

(3) 
(3) 



(3) 
(6) 



(3) 

(3) 
(3) 



(3) 
(3) 
(6) 

(3) 
(6) 



#-308 (6) 



#-315 



(6) 



#-199 (3) 



#-197 (3) 



#-203 



(3) 



#-174 (3) 



ZZ-ENSAA-7,0 
CVTFIUNAM 
cross reference 



Cross reference 



- Converts ASCII to RAD50 



f; 



844 



H 2 

27-JUL«-1984 Fiche 5 Frame H2 Sequence 

•7-JUL-1984 15:13:15 VAX-11 Macro V03-01 Paae 11 

2- A p^-1983 15:57:13 DMA1 :[SYS0.SYSMAINTKVTFILNAM.MAR;<6) 



MACRO 



$DEF1N1 
SSSDEF 



SIZE 

1 

21 



DEFINITION 



! Macros Cross Reference ! 
REFERENCES.., 



62 
62 



(2) 
(2) 



62 

62 



(2) 

(2) 



! Performance indicators ! 



Phase 



Page faults CPU Time 



Elapsed Time 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



30 

163 

348 



73 

3 

4 

20 
644 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.10 
00.74 
04.68 
00.62 
01.27 
00.05 
00.02 
00.11 
07.62 



00:00 
00:00 




00 
00:00 
00:00 
00:00 



.•00.29 

:01. 77 

Ml 

1.88 
:00.06 
:00.02 
:00.15 
M1.18 



The working set limit was 1000 pages. 

22812 bytes (45 pages) of virtual memory were used to buffer the intermediate 
There were 30 pages of symbol table space allocated to hold 423 non-local and 
325 source tines were read in Pass 1, producing object records in Pass 2, 
9 pages of virtual memory were used to define 7 macros. 



code. 

9 local symbols. 



Macro I ibrary name 

0MA1 :[SYS0.SYSMA1NT]DS.MLB;218 
DMA1:[SYS0.SYSMAINT]DJAG.MLB:953 
SYS$SYSR00T:CSYSLI8]LI8.MLB;1 
SYS$SYSR00T:[SYSLIB]STARLET.ML8;2 
TOTALS (all libraries) 



+ -*— — MM . „„., — - — .+ 

J Macro library statistics ! 

Macros defined 



464 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=[DS.LJSJ/CROSS/ENABLE=<DEBUG,TRACE> CVTFJLNAM/UPDA5<CVTFiLNAM f UP0 # CVTFJLNAM.ENH)+SYS$LIBRARY:LlB/LlBRAftY+0MA1 :CS 



I 2 

ZZ-ENSAA-7,0 *** DASSGN deassign QJO c^nnel 27-JUL-198* «„ ft F i£ h ?A-, Fr ?,TS I? „ un* S n9 jence ■ W5 o^« n 
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ZZ-ENSAA-7.0 

DASSGN 

05-02 



-2 



*** DASSGN deassign QIO channel 

*** DASSGN deassign QJO channel 
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0000 


26 , 




0000 


21 , 




0000 


.1 , 




0000 


.2 - 




0000 


.3 




0000 


.4 




0000 


.5 




0000 


.6 




0000 


.7 




mi 


.8 
28 




0000 


29 




0000 


30 
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0000 


32 
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.TITLE DASSGN *** DASSGN deassign QIO channel 
JDENT 705-02/ 



************** ***************** ******************** ************************ 

* 



COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOT/CE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NJT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



* 
* 
* 

* 

* 
* 

* 
* 

* 
* 
* 
* 
* 
* 



A******* ****** ****** ******************************************************* 

D. N. CUTLER 26-AUG-76 

N, HOWGATE 20-FEB-78 VERSION 02 (ESSAA-4.00) . 

01 DIAGNOSTIC SUPERVISOR INTEGRATION 

Dave Butenhof 13-may-1980, Version 5,4 

02 Create ,UPD file to convert VMS V2.0 source to Supervisor 
environment 

Roger Riggs, 19-Jun-1980, Version 5.5 

03 Put normal in RO instead of R1 _ ^ _ 

V03 LMK0002 LEN KAWELL 27-SEP-1979,03-OCT-1979 
Disassociate mailbox if CCBSM.AMB is set in channel status. 

V02 LMK0001 LEN KAWELL 27-DEC-1978 

Clear DEV5MJKK, DEV$M w WCK, and DEV$M„SWL when dismounting 

a foreign mounted volume. 

DS01 M. Baggett MARCH-8-1983 VDS 6.11 
Fix truncation error. 

SYSTEM SERVICE DEASSIGN I/O CHANNEL 

MACRO LIBRARY CALLS 



SCCBDEF 

SDDBDFF 

$DDTDEF 

SIODEF 

SIPLDEF 

5PCBDEF 



DEFINE CCB OFFSETS 

DEFINE DDB OFFSETS 

DEFINE DDT OFFSETS 

DEFINE I/O FUNCTION CODES 

DEFINE INTERRUPT PRIORITY LEVELS 

DEFINE PCB OFFSETS 



ZZ-ENSAA-7,0 

DASSGN 

1^-02 



*** OASSGN deassign 010 channel 

*** OASSGN deassign QJO channel 



0000 


46 


0000 


47 


0000 
0000 


48 


49 


0000 


50 


0000 


51 ; 


0000 


52 ; 


0000 


53 ; 


0000 


54 ; 


0000 


55 ; 


0000 


56 


00000004 0000 


57 C 


0000 


.1 


00000000 


.2 


cooo 


.3 



SPRDEF 
$RSNDEF 
SSSDFF 
SUC8DEF 
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DEFINE PROCESSOR REGISTERS 
DEFINE RESOURCE WAIT NUMBERS 
DEFINE SYSTEM STATUS VALUES 
DEFINE UC8 OFFSETS 



2 

(1) 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 



CHAN=4 



.PSECT SEP, SHR, OXE, 
MODNAM SYSDASSGN 



;I/0 CHANNEL NUMBER 
WRT, LONG 



ZZ-ENbAA-7.0 

DASSGN 

05-02 



OEASSIGN I/O CHANNEL 

*** DASS6N deassign QJO channel 
DEASSJGN I/O CHANNEL 
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-6 



-5 



OOFC 

00000000' EF 9E 

54 

55 04 AC 3C 

50 55 DO 

OOOOOOOO'EF 16 

21 50 E9 

56 51 DO 

57 52 DO 



7E DC 



OA A6 
08 
8F 

EF 



B5 
13 
D5 

11 
04 



-1 



55 66 00 



OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

COOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOA 

OOOC 

0012 

0013 

0017 

001A 

0020 

0023 

0026 

0029 

0033 

0033 

0035 

0038 

881f 

003F 
0042 
0044 
0045 
0045 
004 5 
0045 
0045 



59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

.1 

.2 
.3 
.4 

96 

97 

98 

99 

.1 

106 

107 

108 

109 

.1 

115 

116 

117 

118 

119 

120 

.1 

122 



.S8TTL DEASSIGN I/O CHANNEL 

EXESDASSGN - DEASSIGN I/O CHANNEL 

THIS SERVICE DEASSIGNS A PREVIOUSLY ASSIGNED I/O CHANNEL AND CLEARS THE 
LINKAGE AND CONTROL INFORMATION IN THE CORRESPONDING CHANNEL CONTROL BLOCK. 
IF ANY I/O IS OUTSTANDING ON THE CHANNEL IT IS CANCELLED. IF A FILE IS 
OPEN ON THE CHANNEL IT IS CLOSED. IF A MAILBOX WAS ASSOCIATED WITH THE 
DEVICE WHEN IT WAS ASSIGNED, THE LINKAGE TO THE MAILBUX IS CLEARED. IF THE 
THE CHANNEL IS LAST ONE ASSIGNED TO THE DEVICE AND IT IS MARKED FOR DIS- 
MOUNT, THEN THE DISMOUNT IS COMPLETED, 

INPUTS: 

CHAN(AP) = NUMBER OF THE I/O CHANNEL TO DEASSIGN. 

R4 = CURRENT PROCESS PCB ADDRESS, 
OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO DEASSIGN CHANNEL. 

RO = $S$J VCHAN - INVALID CHANNEL NUMBER SPECIFIED. 

RO = SS$ NOPRIV - SPECIFIED CHANNEL IS NOT ASSIGNED TO A 
PEVJCE OR THE CALLER DOES NOT HAVE SUFFICIENT 
PRIVILEGE TO ACCESS THE CHANNEL. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

RO = SSMOHMAL - NORMAL COMPLETION, 

.ENTRY EXESDASSGN, *M<R2,R3,R4,R5,R6,R7> 

MOVAB DS$AX_SOFTPCB, R4 ; Software PCB to R4 



20$: 
30$: 



40$: 
50$: 



MOVZWL CHAN(AP),R5 

MOVL R5,R0 

JS8 IOCSVERIFYCHAN 

BLBC R0,50$ 

MOVL R1,R6 

MOVL R2,R7 

$CANCEL„S R5 

MOVPSL -(SP) 

SETJPL #IPL$.ASTDEL 

TSTW CCB$WJ0C(R6> 

BEQL 60$ 

TSTl (SP)+ 

SETIPL #0 

BR8 20$ 
RET 



DEASSIGN CHANNEL AND CHECK IF THIS 

60$: 

MOVL CCB$L„UCB(R6),R5 



GET CHANNEL NUM8ER 
COPY I/O CHANNEL NUMBER 
VERIFY CHANNEL NUMBER 
IF LBC INVALID CHANNEL 
COPY ADDRESS OF CCB 
SAVE CHANNEL INDEX 
CANCEL I/O ON CHANNEL 

SAVE CURRENT PROCESSOR STATUS 
RAISE TO AST DELIVERY LEVEL 
ANY I/O STILL OUTSTANDING? 
IF EQL NO 

Remove PSL before repeat 
ALLOW INTERRUPTS 



WAS THE LAST CHANNEL ASSIGNED TO DEVICE 



;GET ASSIGNED DEVICE UCB ADDRESS 



COSO 



ZZ-ENSAA-7.0 

DASSGN 
05-02 



DEASS1GN I/O CHANNEL 

*** DASSGN deassign QIO channel 
DEASSIGN I/O CHANNEL 
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4 
(2) 



50 AS 



59 34 
28 A5 



A5 



09 A6 
50 A5 
14 
01 
5E 
00' 
60 A4 
52 
03 



_i 



28 A5 
25 34 A5 00' 
20 34 A5 00' 



00000000' 8F 

34 A5 

50 30 A5 

12 

30 A5 

OOOOOOOO'EF 

1A A5 

0800 8F 

58 A5 



50 24 A5 
50 OC AO 



53 4C 



51 
03 



52 

51 

51 



OC 



A5 
5? 
AO 
10 
50 
61 



-24 



50 01 
OOOOOOOO'EF 



94 
B7 
13 
B1 
12 
E1 
D1 
12 
11 



D4 
E1 
E1 
CA 



DO 

D4 
16 
B4 
AA 



DO 
DO 

DO 
DO 
DO 
EO 
CO 
16 

DO 
17 



0048 

004B 

004E 

0050 

0054 

0056 

005B 

0060 

0062 

0064 

0064 

0064 

0064 

0067 

C06C 

0071 

0072 

0072 

00 7 2 

0077 

0079 

007D 

007F 

0082 

0088 

008B 

008F 

0091 

0091 

0091 

0091 

0095 

0099 

009D 

00A1 

00A4 

00A8 

OOAC 

OOAF 

0081 

0084 

0087 

OOBD 

006D 



123 
124 
125 
126 
127 
128 
129 

130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
.1 
146 
147 

148 

149 

150 

151 

152 

153 

154 

155 

J 

.2 

.3 

.4 

.5 

.6 

1 80 

181 

182 



CLRB 

DECW 

BEQL 

CMPW 

BNEQ 

BBC 

CMPL 

BNEQ 

BR8 



CCB$B AM0D(R6) 

UCB$WlREFC(R5) 

70$ 

*1 i UCB$W_REFC(R5) 

126$ 

S A *DEV$VJ\LL,UC8$L 



REASSIGN CHANNEL 
/DECREMENT DEVICE REFERENCE COUNT 
;lf EOL LAST REFERENCE 
;UCB REFERENCE COUNT ONE? 
;IF NEQ NO 
DEVCHAR(R5) ,120$ ;IF CLR, DEVICE NOT ALLOCATED 



PCBSL PlD(R4;,UC8$C.PID(R5) .-ALLOCATED 
120$ " ;lf NEQ NO 

80$ 



TO CURRENT PROCESS? 



DEALLOCATE DEVICE AND IF DISMOUNTING, CLEAR MOUNT OPTIONS AND DEALLOCATE VCB 



70$: 
80$: 



CLRL 
BBC 
BBC 
BICL 



MOVL 

BEQL 

CLRL 

J SB 

CLRW 

BICW 



UCB$L PID(R5) ;CLEAR OWNER PROCESS ID 

S A *DEV$V DMT,UC8$L DEVCHARCR5) ,90* ;IF CLR, NOT MARKED FOR DISMOUNT 

S A #DEV$V*"FOR,UCB$L~DEVCHAR(R5),90$ ;IF CLR, STRUCTURED VOLUME 

#DEV$M DWT!DEV$M FOR!- ;CLEAR MARKED FOR DISMOUNT, FOREIGN, AND 

DEV$M RCK!DEV$MJJCK!- ;READ/WRJTE CHECK, AND 

DEV$M~SWLN .-SOFTWARE WRITE LOCKED, AND 

DEV$M"MNT,UCB$L DEVCHAR(R5) /MOUNTED 



UCB$L_VCB(R5),R0 
90$ 

ucb$l vcb(r5) 
exe$dEanonpaged 

UCB$W VPR0T(R5) t „ 
#UCB$fl VALID, UC8$W STS(R5) 



GET ADDRESS OF VCB 
IF EQL NONE 
CLEAR ADDRESS OF 
DEALLOCATE VCB 

CLEAR VOLUME PROTECTION MASK 
; CLEAR SOFTWARE VOLUME VALID 



VCB 



CALL DRIVER'S CANCEL ROUTINE FOR ANY SPECIAL CLEANUP 



90$: MOVL UCB$L_DDB(R5) ,R0 

MOVL DDB$LJ>DT(RO),RO 

SETIPL UCB$BJIPL(R5) 

MOVL UCB$LJRP(R5),R3 

MOVL R7,R2 

MOVL DDT$L CANCEL(R0),R1 

BBS *16,RT,100$ 

ADDL R0,R1 

100$: JS8 (R1) 

SETIPL *JPL$ ASTDEL 

120$: MOVL *SS$ RORMAL, RO 

JMP IOC$0NLOCK 

,END 



GET ADDRESS OF DDB 

GET ADDRESS OF DDT 

RAISE TO DEVICE FORK IPL 

GET CURRENT I/O PACKET ADDRESS 

SET CHANNEL INDEX 

GET ADDRESS OF CANCEL I/O ENTRY POINT 

+++♦ BRANCH IF SUPERVISOR ABSOLUTE 

++++ MAKE ABSOLUTE ADDRESS 

CALL CANCEL I/O ROUTINE 

LOWER TO AST DELIVERY LEVEL 

Set success code 
UNLOCK I/O DATA BASE AI'D RETURN 



ZZ-ENSAA-7.0 
DASSGN 
Symbol table 

SER 

SMODULE 

CCBSBJ\MQD 

CCBSB.STS 

CCBSC.LENGTH 

CCBSK.LENGTH 

CCB$LJ)IRP 

'CBSL.UCB 

(C8SL WIND 

c:b$w"ioc 

CIAN " 

DJBSB ACPCLASS 

DDBSB~TYPE 

DDBSC^LENGTH 

DDB$K„LENGTH 

DDBSL ACPD 

DDBSL _DDT 

DDBSL„LINK 

0DB$L UC8 

DDBST DRVNAMF 

DDBSTlNAME 

DDBSW_SIZE 

DDTSL ALTSTART 

ODTSLlCANCEL 

DOT$L FDT 

DDT$L~REGDUMP 

DDTSL*~$TART 

DDTSL ..UNiTINJT 

DDTVL UNSOLINT 

DDTSW~DIAGBUF 

DDTSW ERRORBUF 

DEVSM^DMT 

dev$m;for 

DEVSM MNT 

DLVSM'RCK 

DEVSM~SWL 

DEVSM.WCK 

DEVSV_ALL 

DEVSV.DMT 

DEVSV_FOR 

DS$AX SOFTPCB 

EXESDSSSGN 

EXESDEANONPAGED 

IOCSUNLOCK 
JOCSVERJFYCHAN 

IPL$ ASTOEL 

PCBSB ASTACT 

PCB$BlASTEN 

PCB$B_PRi 

PCBSB..PRIB 

PCB$B TYPE 

PCB$8~WEFC 

PCB$OENGTH 

PCBSK„LENGTH 

PC8$L ARB 
PCB$L ASTOBL 
PCBSLlASTQFL 
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(2) 



00000001 


D 




00000000 f 


\ D 


02 


00000009 


D 




00000008 


D 




00000010 


D 




00000010 


D 




oooooooc 


D 




oooooooo 


D 




00000004 


D 




0000000A 


D 




00000004 


D 




00000013 


D 




OOOOOOOA 


D 




00000034 


D 




0000C034 


D 




00000010 


D 




OOOOOOOC 


D 




OOOOOOOO 


D 




00000004 


D 




00000024 


D 




00000014 


D 




00000008 


D 




0000001 c 


D 




oooooooc 


D 




00000008 


D 




00C00010 


D 




oooooooo 


D 




00C0C018 


D 




00000004 


D 




00000014 


D 




00000016 


D 




******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


OOOOOOOA 


RG D 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


00000002 


D 




oooooooc 


D 




0000000D 


D 




0COO0O08 


D 




0000002F 


D 




OOOOOOOA 


D 




0000002E 


D 




0000008C 
0000008C 


D 




D 




00000084 


D 




000000 H 


D 




00000010 


D 





pcbsljfc2p 
pcbsl efc3p 
pcb$l;efcs 

PCBSLlEFCU 

PC8SL EFWM 

PCBSLlJIB 

PC8SL_0WNER 

PCBSL PHD 

PCB$L PHYPCB 

PCBSL PID 

PCBSLlPQB 

PCBSL SQBL 

PCBSL^SQFL 

PCBSL STS 

PCBSLlUIC 

PCBSL^WSSWP 

PC8SL.WTIME 

PC8SQ PRIV 

PCBST'LNAME 

PC8SOERMJNAL 

PC8SLLAPTCNT 

PC8SW„ASTCNT 

PC8SW BIOCNT 

PC8SWIBI0LM 

PC8SW..DI0CNT 

PC8SW„DI0LM 

PCBSW GPGCNT 

PCBSW^GRP 

PCBSW MEM 

PCBSWMTXCNT 

PC8SW~PPGCNT 

PCBSUfPRCCNT 

PC8SW SIZE 

PCSSW^STATE 

PCBSW TMBU 

PRSjPL 

SIZ... 

SSS NORMAL 

SYSJCANCEL 

UC8SB..AM0D 

UCBSB CEX 

UCBSB CM1 

UC8SB.CM2 

UCBSB^DEVCLASS 

UC8SB„DEVTYPE 

UC8SB.DIPL 

UCBSB^DX SCTCNT 

UCBSB ERTCNT 

UC8SB ERTMAX 

UCSSB^FEX 

UC8SB_FIPL 

UCBSB.LOCSRV 

UCBSB OrFNDX 

UCBSB~OFFRTC 

UCBSB'REMSRV 

UCBSB"SECTORS 

UCBSBISLAVE 



00000058 


D 


0000005C 


D 


00000050 


D 


00000054 


D 


0000004C 


D 


00000078 


D 


0000001 C 


D 


00000064 


D 


00000018 


D 


00000060 


D 


0000004C 


D 


00000004 


D 


OOOOOOOO 


D 


00000024 


D 


00000088 


D 


00000020 


D 


00000028 


D 


0000007C 


D 


CO000068 


D 


0000004^ 


D 


00000030 


D 


00000030 


D 


0000003A 


D 


0000003C 


r 

V 


0000003E 


D 


00000040 


D 


00000034 


D 


0000008A 


D 


00000088 


D 


OOOOOOOE 


D 


00000036 


D 


00000042 


D 


00000008 


D 


0000002C 


D 


00000032 


D 


00000012 


D 


00000002 


D 


OOOOOC 1 


D 


******** 


GX 


00000053 


D 


00000077 


D 


0000004A 


D 


0000004B 


D 


00000038 


D 


00000039 


«\ 


000000!? 





OOOOOOA j 




OOQOOOVO 

00000071 


i. 


u 


00000076 


D 


00000008 


D 


0000003C 


D 


00000094 


D 


00000095 


D 


0000003D 


D 


0000003C 


D 


00000074 


D 



02 
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UCBSB. 

UCBSBZ 

UCBSB. 

UCBSBl 

UCBSB 

UCBSB. 

UCBSB 

UCBSB. 

UCBSB 

UCBSB. 

UCBSB. 

UCBSB. 

UCBSC„ 

UCBSC. 

UCBSC. 

UCBSK. 

UCBSK. 

UCBSK. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL„ 

UCBSL, 

ucbsl; 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL, 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 



SPR 

STATE 
TRACKS 

tt.crfill 
tTdecrf 

TT.DELFF 
TT.DESPEE 

tt detype 
tTlffill 

TT SPEED 
TYPE 
VERTSZ 
LENGTH 
MB LENGTH 
TT LENGTH 
LENGTH 
MB.LENGTH 
TT^LENGTH 
AMB 

ASTQBL 
ASTQFL 
CP1D 
CRB 
,DD8 

DEVCHAR 
DEVDEPEND 
DPC 

>UETIM 
DX BFPNT 
DX.BUF 
.DX RXDB 
EMB 
.FIRST 
FPC 
[FQBL 
FQFL 
'FR3 
FR4 
'IOGBL 
JOQFL 
IRP 
S LINK 
LOGADR 
.MAXBLOCK 
MB.MBX 
MB PORT 
IMB^RAST 
MBlSHB 
MB^WAST 

1mb wioqbl 
j1bjjioqfl 
ImeDia 
^nt.datssb 
ntjntssb 

OPtNT 
.OWNUJC 
.PID 




00000075 
00000052 
iD 
>D 
000000A1 
000000A2 
000000A0 

ooooooaa 

0000009E 
0000009C 
OOOOOOOA 
0000003F 
00000074 
00000090 
OOOOOOBC 
000QQ074 

00000090 
OOOOOOBC 
00000054 
00000010 
OOOOOOOC 
0000005C 
00000020 
00000024 

«m 

00000080 
0000005C 
0000009C 
00000098 
OOQOOOAf 
00000078 
OOOOOOH 

oooooooc 

.... .JO 
00QQQ010 
OOOOOOH 
00000044 

888 

0001 

00001 . 
00000084 
0000007C 
0000008C 
00000078 
»80 






D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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D 

D 

D 

D 

D 

D 

D 

D 

D 



UCBSL. 
UCBSL. 
UCBSLl 
UCBSL. 
UCBSLl 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSMl 
UCBST. 
UC8$W w 

ur&sw: 

UCBIW" 

UCBSWZ 
UCBSW* 
UC8SW. 
UCBSW. 

UC8SW. 

ucbsw; 

UCBSWl 
UCBSW. 

ucbsw; 

UCBSW, 
UCBSW. 
UC8SW„ 
UCBSWl 
UCBSW, 
UCBSW, 
UCBSW, 
UC8SW„ 
UCBSW. 

ucbsw; 

UCBSW, 
UCBSW, 
UCBSW. 
UCBSW, 
UCBSW. 
UCBSW. 
UCBSW. 
UCBSW. 



RQ8L 
RQFL 
SVAPTE 
SVPN 

tt.dechar 
tTrdue 
tt rtimou 

VCB 
VALID 
PARTNER 
BCNT 

BCR 
BOFF 
BUFQUO 
BYTESTOGO 
CHARGE 
CYLINDERS 
PA 
DC 

DEVBUFSI2 
DEVSTS 
DIRSEQ 
DSTADDR 
DX W BCR 
ECT 
,EC2 
.ERRCNT 
,FUNC 
MB SEED 
MSGCNT 
MSGMAX 
NT CHAN 
OFFSET 
f REFC 
SIZE 
SRCADDR 
STS 

iTT DESIZE 
UNIT 
VPROT 



00000004 
00000000 
00000068 
100064 
I00OA8 
>8C 
00000088 

88888800 



oooooooc 

0000006E 
00000096 
0Q00006C 
00000018 
0000003E 
0000004A 
Q00QQQ3E 
0000008C 
0000008E 
0000003A 
0QQ0QQ5A 
0000088 

A 0A4 
00000090 

«m 

0000007E 
00 



2 




n 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
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Psect synopsis 
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?SECT name 

ABS . 
SABSS 
SEP 



Allocation 

00000000 ( 
000000BC ( 
000000BD ( 



+„—-.———- — + 

! Psect synopsis ! 
+————— — + 

PSECT No. Attributes 

0.) 00 ( 0.) NOP1C USR 
188.) 01 ( 1.) NOPIC USR 
189.) 02 ( 2.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON ABS LCL NOSHR EXE RD 
CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 
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*** 
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! Symbol Cross Reference ! 
+ + 



SYMBOL 

$ER 

$MODULE 

CCB$B„AMOD 

CCB$L UCB 

CCBSWllOC 

CHAN 

DDB$LJ)DT 

DDT$L„CANCEL 

DEV$M DMT 

0EV$M"FOR 

DEV$M"MNT 

DEV$MlRCK 

DEV$M_SWL 

OEVSM UCK 

DEV$V"ALL 

DEV$VJ)MT 

DEV$V_FOR 

DSSAX SOFTPCB 

EXESD5SSGN 

EXESDEANONPAGED 

IOCSUNLOCK 

10CSVERIFYCHAN 

IPL$ ASTDEL 

PCB$C PID 

PR$ IPL 

SS$ NORMAL 

SYSJCANCEL 

UCBSBJIPL 

UCB$LJ)DB 

UCB$L_DEVCHAR 

UCB$LJRP 

UCB$L_PID 

UCB$L VC8 

UCB$M_VALID 

UCBSW^REFC 

UCB$W_STS 

UCBSW VPROT 



VALUE 

=00000001 

00000000-R 

00000009 

00000000 

OOOOOOOA 
=00000004 

oooooooc 
ooooococ 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

OOOOOOOA-R 

00000000-XR 

00000000-XR 

00000000-XR 

=00000002 
00000060 

=00000012 

=00000001 
00000000-XR 
OOOOOOOB 
00000024 
00000034 
0000004C 
00000028 
00000030 

=00000800 
00000050 
00000058 
0000001A 
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(2) 
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(2) 
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(2) 






#-141 


(2) 






#-139 
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#-140 


(2) 






#-139 


(2) 






#-128 


(2) 






#-136 


(2) 






#-137 


(2) 






92.1 


(2) 






144.1 


(2) 






.80 


(2) 






92.4 


(2) 






#-107 
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#-155.5 


(2) 


#-129 


(2) 






#-107 


(2) 


#-115 


(2) 


#-155.6 


(2) 






99 


(2) 
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(2) 






#-151 


(2) 






128 


(2) 


136 


(2> 
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(2) 


#-135 


(2) 


#-142 


(2) 


#-144 


(2) 


#-147 


(2) 






#-124 


(2) 


#-126 


(2) 


#-147 


(2) 






#-146 


(2) 







#-153 



(2) 



#-155.5 (2) 
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MACRO 

$CANCEL_S 

SCC8DEF 

SDDBDEF 

SDDTOEF 

SDEFINI 

SIODEF 

S1PIDFF 

SPCBDEF 

SPRDEF 

SRSNDEF 

5SSDEF 

SUCBDEF 

MODNAM 

SET1PL 



SIZE 





ON 


! Macros 


Cross Reference ! 




DEFINITJ 




REFERENCES.. 
99 (2) 


• 






99 ( 


2) 




40 ( 






40 


(1) 








41 ( 






41 


(1) 
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42 


(1) 
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40 


(1) 




41 


(1) 








45 


(1) 




46 


(1) 


43 < 






43 


(1) 








44 ( 






44 


(1) 








45 ( 






45 


(1) 








46 I 






46 


(1) 








47 l 






47 
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48 


(1) 








49 i 






49 


(1) 
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57.3 
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107 


(2) 




107 


(2) 




115 
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1 Performance indicators ! 




Page faults 


CPL 


\ Time 




Elapsed Time 




33 


00: 


00:00 


.09 


00:00. 


00. 


24 




118 


00:00:00 


.71 


00:00. 


01, 


56 




501 


00: 


00:14 


.09 


00:00 


19, 


82 







00: 


00:01 


.83 


00:00 


02, 


19 




85 


00: 


00:02 


.39 


00:00:03. 


34 




27 


00:00:00 


.17 


00:00 


•00, 


19 




7 


00: 


00:00 


.03 


00:00 


■00 


.02 




18 


00:00:00 


.21 


00:00 


•00 


23 




793 


00: 


00:19 


.53 


00:00 


:27 


,62 





4? 


(1) 


43 


(1) 


44 


(1) 


47 


(1) 


48 


(1) 


49 


(1) 



153 



(2) 



155.5 (2) 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

66850 bytes (131 pages) of virtual memory were used to buffer the intermediate 
There were 60 pages of symbol table space allocated to hold 1174 non-local and 
171 source lines were read in Pass 1, producing object records in Pass 2. 
63 pages of virtual memory were used to define 22 macros. 

+ — «««.—..». — + 

! Macro library statistics ! 
+ „ + 



code. 
10 local 



symbols 



Macro library name 

DMA1 :CSYS0.SYSMAINT]DS.MLB;218 
0MA1:CSYS0.SYSMAINT3DIAG.MLB;953 
SYS$SYSR00T:CSYSLIB3LIB.MLB;1 
SYS$SYSROOT:[SYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

1 
6 
2 
9 
18 
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VAX-11 Macro Run Statistics 9 1-APR-1980 10:27:04 DMA1 iCSYS0.SYSHAINT3DASS6M.HAR;H (2) 

1478 GETS were required to define 18 macros. 

There were no errors, warnings or information messages. 

MACRO/N00BJECT/LIST=[DS.LIS3/CR0SS/ENABLE=(DE8UG, TRACE) DASSGN/UPDA=(0ASSGN,UPD # DASS6N.ENH)+SYS$LIBRARY:LIB/LIBRARY+DMA1 :CSYS0.SYSMA 
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-aole of contents 



- CONSOLE TU58 



(2) 
i3> 
(O 
(A) 



BOOT DRIVER 
- CONSOLE TU58 



BOOT DRIVER 
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27-JUL-1984 Fiche 5 Frame 63 

27-JUL-1984 15:11 :45 VAX-11 Macro 



Sequence 856 
V03-01 



Page 



A2 
126 
164 
364.3 



DECLARATIONS 

DD SELECT - Select correct 
Console TU58 Driver 
Character transmission 



CPUs for this driver 
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CSDDBTDRV 

U6-11 
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CONSOLE TU58 BOOT DRIVER 

- CONSOLE TU58 BOOT DRIVER 



-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0000 
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.1 

.2 
3 

4 

5 
6 

.1 

8 

9 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
.1 
.2 
,3 
.4 
.5 
.6 
.7 
.8 
,9 
.10 
J1 

.13 
.14 
.15 
.16 
.17 

.18 
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CSDDBTDRV - CONSOLE TU58 BOOT DRIVER 
'06-11' 



***************************<t**********************^** ******* **************** 

* 



Copyright (c) 1979, 1982, 1983 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



***********>.********************************** ********************** ******** 



FACILITY: 



BOOTS 



ABSTRACT: 

This module contains the bootstrap device driver for the 
console TU58. 

ENVIRONMENT: IPL 31, kernel mode, code must be PIC 

AUTHOR: Steve Beckhardt, Creation Date: 1-Nov-1979 

MODIFIED BY: _ , . « 

11 Bob Bergazei May 16, 1983 Version 6.11 
Changed the order of the .LIB statements. 

10 Marion Baggett, 15-Jut-1982, Version 6.9 

Increased the timeout valu* so loading of QALOAD for QA-ing 
can be done on ZAPPA comet. 

09 - Dave Butenhof, 23-Mar-1982, version 6.7 

Now that TU58 hardware is fixed (Nebula), remove some 
hack code 

08 - Dave Butenhof, 10-Feb~1982, version (.6 

Fix driver to work correctly on Nebula. This is mainly 
a matter of allowing some leeway in READY/DONE bit polling 
loops to allow console to do something. Also allow *C 
termination of long TU-58 reads. 

V02-007 KTA0037 Kerbey T. Altmann 26-0ct-1981 
Fix start and size to encompass the entire driver. 
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- CONSOLE TU58 



BOOT DRIVER 




- CONSOLE ' 


ru58 l 


0000 


.20 
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•21 
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.24 


0000 
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.26 
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.28 
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.29 
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.31 
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.32 
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.33 


0000 


.34 
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.35 
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.36 


0000 


.3? 
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0000 
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.41 
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39 
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02-005 



02-004 



02-003 



02-02 
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02-006 STJ0125 



Steven T. Jeffreys 



30«Jul-1981 



Added support of MRSP protocol. For an explantion of the 
TU58's operation, including kSP and MRSP protocol, please 
see the TU58 Engineering Specification", document number 



TU58-0-0. 



TCM0002 
Changed 



Trudy C. Matthews 



all *7ZZ"s to M 730 M s 



29-JuM981 



TCM0001 Trudy C. Matthews 12-Jun-1981 
Altered XMIT...TW0 CHARS routine to wnrk on 11/730 processor, 
which requires that the high 3 bytes of the value moved to 
PR* CSTD be ?ero. Corrected bug in D0J1APPING routine. 
Added C0NSDD.START label to mark start of driver. 

SRB0001 Steve Beckhardt 10-JuM980 
Fixed bugs in change CAS0001 

CAS0001 C.A. Samuelson 30-Apr-1980 
Change interface to BOOTDRIVR for UBA pruge of buffered 
datapath 
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DECLARATIONS 
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0000 


42 


.SBTTL 


DECLARATIONS 




0000 


43 ; 








0000 


44 ; 


INCLUDE FILES! 






0000 


45 ; 








0000 


.1 


.Library /sysSlib 




0000 


.2 


♦library /$ds/ 




0000 


.3 


♦Library /Sdiag/ 




0000 


.4 








0000 


.5 


DsFDef 




-1 


0000 


47 


S8TDDEF 






0000 


48 


SIODEF 






0000 


49 


SPRDEF 






0000 


50 


SPTEDEF 






0000 


51 


SRPBDEF 






cooc 


52 


SSSDEF 






0000 


53 


SVADEF 






0000 


54 








0000 


55 ; 








0000 


56 ; 


MACROS: 






0000 


57 ; 








0000 


58 








0000 


59 ; 








oooc 


60 ; 


EQUATED SYMBOLS: 




0000 


61 ; 








0000 


62 








0000 


63 ; 








0000 


64 ; 


CONSOLE TU58 


REGISTER DEFJNJTJ 




0000 


65 ; 








0000 
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0000 


67 


SDEFJNI 


DD 




0000 


68 








0000 


69 


.VJELD 


CSRS,0,<- 




0000 


70 




<,6>,- 




0000 


71 




<IE,,M>,- 




0000 


72 




<DONE,,M>,- 




0000 


73 


> 






0000 


74 








0000 


75 


.VIELD 


CSRD,0,<- 
<DATA,8>,- 




0000 


?6 






0000 


77 




<,?>,- 




0000 


78 




<ERR0R,,M>,- 




0000 


79 


> 






0000 


30 








0000 


81 


.YIELD 


CSTS,0,o 




0000 


82 




<BREAK,,M>,- 




0000 


83 




<,5>,- 




0000 


84 




<IE,,M>,- 




0000 


85 




<READY,,M>,- 




0000 


86 


> 






0000 


87 








0000 


88 


_VJELD 


CSTD,0,<- 
<DATA,8>,- 




0000 


89 






0000 


90 


> 
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91 
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92 








0000 


93 


; PROTOCOL FLAGS 




0000 


94 







Define DS$V_ flags 
Boot device types 
I/O function rodes 
Processor registers 
PTE definitions 
RPB offsets 
Status codes 
Virtual address fields 



£113 
C113 
C1 1 J 

C083 



;START OF REGISTER DEFINITIONS 

;START OF PROC. REG. CSRS DEFS. 

; UNUSED 

; INTERRUPT ENABLE 

; DONE 



START OF PROC. REG. CSRD DErS. 
DATA 
UNUSED 
ERROR 



START OF PROC, REG, CSTS DcF$, 
BREAK 
UNUSED 

INTERRUPT ENABLE 
READY 



;START OF PROC REG. CSTD DEFS. 
; DATA 
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DD DATA = 1 
DD'CNTRL = 2 
DDJNIT = 4 
DD.CONTINUE = 16 



FUNCTION CODES 



DD Init„Cmd = 1 
DDlREAD = 2 
DD WRITE * 3 

DDlENDPKT * 64 



SWITCH BITS 

MRSP_SWITCH = 3 

$DEFEND DD 

Boot driver table entry 



$800T. DRIVER 



DEVTYPE s BTD$K CONSOLE, - 
ACTJON = DD SELFCT,- 
SIZE - CONSBD.DRVSU,- 
ADDR = CONSDD START, ~ 
ENTRY = CONSD0 DRIVER, - 
DRIVRNAME = DDflAME 



; Device type (console) 
; Action routine 
; Driver size 
Driver start 
; Driver entry 
; Driver file name 
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DD SELECT - Select correct CPUs for this 

- CONSOLE TU58 BOOT DRIVER 
DD SELECT - Select correct 



861 



CPUs 
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-1 



OOOOOO^S'GF 

50 



9A 
DA 



-2 



00000025' GF 
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05 



D6 



D6 
05 



OOOC 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
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0000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0006 
0008 
0008 
0008 
0008 
0016 
0016 
0017 
0017 
0017 
001D 
001 D 
001 D 
001 F 



126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
HO 
K1 
^^2 
1A3 
HA 
H5 

K6 
^7 

.1 
.2 
.3 

.A 

t s 

!o 

.7 
.8 
.9 



.11 

.12 
.13 
151 
152 
153 
.1 
155 
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157 
158 



.SBTTL DD.SELECT - Select correct CPUs for this driver 

FUNCTIONAL DESCRIPTION; 

This routine is an action routine called by the boot driver 
select code to determine if this is a cpu th't has a TU58 
for a console. 

CALLING SEQUENCE: 

JS8 DD_SELCCT 
INPUT PARAMETERS: 

EXESGB.CPUTYPE 
OUTPUT PARAMETERS: 



Global variable containing cpu type 



RO 
MRSP 



= Do not use this driver 

1 = Use this driver 

1 if this CPU has a TU58 that speaks MRSP* if not. 

It is assumed that certain CPUs must have MRSP TU58s. 
Currently, only the 11/730 must have an MRSP TU58. 
The 11/780 and 11/730 may have MRSP TU58s, but it is 
not essential that MRSP be used. 



10 CONSDD.START; 



DD.SELECT: 

CLR8 G A MRSP 
CLRL RO 
CPUDISP <CPU 780,- 
CPU_750,~ 
C PU. 7M.- 
> 
CPU.780: 

RS8 



.1 CPU 730: 

.2 

.3 

,4 CPU„750: 
161 
162 



INCL G A MRSP 



1NCL RC 
RS8 



; Label to mark start of driver 



Assume TU58 does not speak MRSP 

Initialize RO 

11/780 

11/750 

11/730 



; Do not use this driver 



; Use MRSP (and fall through to common code) 



; Use this driver 
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00O00O10 
00000014 



-1 



00000000 

00 

00 

49 52 44 44 44 00* 

58 45 2E 52 45 56 

45 



-4 



0D06 8F 

OA 58 

50 030C 8F 

0D06 Sf 

D8 AF 5E 



BB 
EQ 
3L 
BA 
05 
DO 



0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

C020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0020 

0024 

0025 

0026 

002C 

0032 

0026 

0033 

0033 

0033 

0037 

003A 

003F 

0043 

0044 

0048 

0048 

0048 

0048 

0048 

0048 

0048 

0048 

0048 



164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 

.1 
187 
188 
189 
190 
191 
192 

.1 
194 
1>5 
196 
197 

.1 
198 



199 

200 

201 

.1 

.2 

.3 

.4 

.5 

206 

2C7 

208 

209 

210 

211 

212 

213 

214 



,S8TTL Console TU58 Driver 



+ + 



Inputs: 



R1 Address of page table for virtual -> physical mapping 

R2 Base VPN of transfer (Bits 29:9 of R10) 

R5 LBN for current piece of transfer 

R8 Size of transfer in bytes 

R9 Address of the RPB 

R10 Starting address of transfer 

FUNC(AP) I/O operation (I0S.READLBLK or IOS..WRITELBLK only) 
MODE(AP) Address interpretation mode: 

-> Physical, 1 -> Virtual 



Outputs: 
R0 



Status code: 

SSMORMAL 

SS$„BUF8YTALJ 

SS$„CTRLERR 



Successful transfer 

Odd byte count 

Fatal controller error 



FUNC 
MODE 



= 16 
= 20 



OWN STORAGE: 



STKPTR: 
INIT: 

MRSP: 
DDNAMH: 



• LONG 
.8YTE 
.BYTE 
.ASCJC 






/DDDRIVER.EXE/ 



Saved stack pointer 
TU58 initialized flag 
MRSP protocol flag 
Driver file name 



CONSDD_DRJVER: 

PUSHR #*M<R1,R2,R8,R10,R11> 

BL6C R8,1$ 

MOVZWL *SSS„BUFBYTALI.RO 

POPR # A M<R1,R2,R3,R10,R11> 

RSB 

1S: MOVL SP, STKPTR 



; Save input registers 

; Branch if even byte count 

; Error - odd byte count 

; Restore registers 

; Save stack pointer 



There are 4 possibilities concerning mapping: the I/O can be 
done virtual or physical (MODE(AP)) and we can be executing virtual 
or physical (contents of processor register PRS_MAPEN), IT both 
modes match, then we can just copy data to/from the user buffer. 
If the 1/0 is to be done virtual and we are executing physical 
then the buffer address has to be translated using the page table 
pointed to by P1. If the I/O is to be done physical and we are 
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5B 
5B 
SB 14 



38 
58 
AC 



56 



51 
0201 



CA 



AF 
07 

30000080 8F 
18 
AF 
03 
0021 



BD 



-3 



52 



_i 



1E 01 

52 

015D 

IF 00 

50 1D 

0<W 8F 

014F 

0198 

10 52 

4D 

97 AF 



0048 

0048 

0048 

0048 

0048 

0048 

0048 

DB 0048 

CE 004B 

CO 0O4E 

0052 

7D 0052 

30 0055 
0058 

95 C058 

13 005B 

DA 005D 

0063 

95 0064 
13 0067 

31 0069 
0O6C 
0O6C 
006C 
O'v C 
006C 

Ovor 

006C 
DA 006C 
D4 006F 
30 0071 
DA 0074 
08 0077 
3C 007A 
30 007F 
30 0u82 
Q1 0085 
12 0088 

96 008A 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 
008D 



215 
216 
217 
218 
219 
Z20 
221 
222 
223 
224 
225 
226 
227 

.1 
.2 
.3 
.4 

.5 
.6 
.7 
.8 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
.1 
24 7 

248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
i.61 
262 
263 
264 
.1 



executing virtua 
PTE. At this po 



I then we have to double map the buffer using a spare 
int, we just compute a mapping switch in R11 as folio 



ows: 



3$: 
5$: 




1 
-1 

MFPR 

MNEGL 

ADDL 

MOVQ 
BS8W 

TstB 
BEql 
Mtpr 

TST8 
BEql 
BrW 



Both modes match, just copy the data 

Do virtual -> physical translation using page table 

Do physical -> virtual mapping using a spare PTE 



#PRS MAPEN,R11 

R11,R11 

M0DE(AP),R11 

R1,R6 

DOJWPING 



Get mapping enabled switch 

Negate it 

Add I/O mode switch 



R6 = Addr. 
Initialize 



P f page 
mapping 



tbl, R? = Base 
if required 



VPN 



Mrsp ; If Nebula, turn off clock 

3$ ; Branch if not Nebula 

0<1Q31>!<137>, #Pr$ Ices; Turn off clock 



2NIT 

5$ 
10S 



Is it necessary 

Yes 

No 



to initialize TU58? 



Initialize TU58. This code is executed the first time the 
driver is called and the next time the driver is called 
after exiting with an error. 



MTPR #CSTS M„BREAK,#PR$,CSTS 

riRL R2 

3S8W XMIT TWO CHARS 

MTPR A*0,*PR$ CSTS 

MFPR #PR$ CSRD.R0 

M0VZWL #DD TNIT38+DD INIT,R2 

BS8W XMITJW0..CHAR3 

BS8W RECV ONE CHAR 

CMP8 R2,*BD..C0NT1NUE 

BNeq 32$ 

INC8 INIT 



trans, csr 
characters 



Set BREAK bit in 

R2 contains null 

Send two nulls 

Clear BREAK bit 

Clear receive buffer 

R2 contains two INIT characters 

Send two INIT characters 

Receive a character 

Is it continue? 

No, error 

So that we don't execute this code 



again 



Perform the i/O transfer. Register usage is: 



R0 

R1 

R2 

R5 

R4 

R5 

R6 

R7 

R8 

.■»9 

R10 

R11 



TU58 



Scratch 

Loop counter 

Character to/from TU58 

Character received from 

Checksum 

logical block number 

Address of page table 

Virtual page number of buffer 

Size of remaining buffer (in bytes) 

Address of RPB 

Address of current s^ot in buffer 

Mapping switch 
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54 

52 0A02 8f 

0134 

52 02 

21 10 AC 

02 

52 

0126 



FF7A 



-2 



00 52 



52 



52 
52 



21 



52 
CF 
04 
OB 

01 1 ■<' 

52 
0112 

58 
01 OC 

55 
0106 

54 

0106 

10 AC 

42 



10 



51 80 
58 



52 



51 
51 



0149 
52 
42 
54 
8F 
51 
3 



51 

52 

08 08 



0§ 
52 

OODB 
02 

0144 
53 

01 3E 
53 

52 
00C7 

EC 51 

52 54 

00C4 

58 



D4 
3C 
30 
9A 
D1 
13 
D6 
30 



D4 
95 
13 
E2 
30 
D4 
30 
3C 
30 
3C 
30 
3C 
30 
D1 
13 



30 
91 
12 
D4 
9A 
D1 
IF 

C6 
30 

§8 

FO 

30 
F5 
3C 
30 
D5 



008D 
008D 
008D 
008D 

0094 
0097 
009A 
009E 
00A0 
00A2 
00A5 
00A5 
00A5 
00A5 
00A5 
00A5 
00A7 
OOAB 
OOAD 
00B1 
00B4 
00B6 
0089 
OOBC 
OOBF 
00C2 
00C5 
0QC8 
OOCB 
OOCF 
00D1 
00D1 
00D1 
00D1 
00D1 
00D4 
00D7 
00D9 
OODB 
IDF 



OOFC 
0100 
0101 
0104 
0107 

a 



10$: 



20$: 



25$: 



.1 



311 



40$: 



ASSUME 
ASSUME 

CLRL 

MOVZWL 

BS8W 

MOVZBL 

CMPL 

BEQL 

INCL 

BS8W 



DD WRITE EO DO.READ+1 
DD..DATA EQ 1 

RA 

#1098*DD_CNTRL, R2 
XMIT TWO„UPDSUM 

#dd Read, R2 
funEcapmios readlblk 

20$ 

R2 

XMIT TWO.UPDSUM 



Clear checksum 

Command packet and byte count 

Send them 

Assume read command 

Is it a read? 

Yes 

No, convert to write command 

Send command and modifier (0) 



The unit number of the console boot device is always zero. 
This is a result of the 11/750 console implementation, where 
logical device CSA1; is actually physical device DDAO:. 



CLRL R2 

TSTB MRSP 

BEQL 25$ w ^ _ 

BBSS #<MRSP SWJ TCH+8> ,R2 ,25$ 

BSBW XMIT.TQO UPDSUM 

CLRL R2 

BS8W XMIT TWOJJPDSUM 

MOVZWL R8,R2 

GSBW XMIT TWOJJPDSUM 

MOVZWL R5.R2 

BSBW XMIT TWO.UPDSUM 

MOVZWL RA,R2 

BSBW XMIT TWO..CHARS 

CMPL FUNCTAP) ,#IO$_READLBLK 

BEQL 50$ 



a write to the TU58 

BSBW RECV ONE CHAR 

CMP8 R2 1 #D0,CDNTINUE 

BNEQ 52$ 

CLRL RA_ 

MOVZBL #128,R1 

CMPL R1-RB 

8LSSU 35$ 

MOVL R8,R1 

ASHL n,MM 

INCL R2 

BSBW XMIT TWO.UPDSUM 

OIVL #2,RT 

BSBW GETBYTE 

MOVL R5,R2 

BSBW GETBYTE^ 

INSV R3,*8,#8,R2 

BSBW XMIT TWOJJPDSUM 

SOBGTR R1,A0$ 

MOVZWL RA,R2 

BSBW XMIT TWO.CHARS 

TSTL R8 



Switch fields 
speak MRSP? 



Set Unit * and 

Does this TU58 

Branch if not 

Set MRSP switch 

Send unit # and switches (0) 

Set sequence number (unused field) 

Send sequence number (0) 

Byte count 

Send it 

Block number 

Send it 

Checksum 

Send it 

Is it a read command? 



Receive one character 

Is it CONTINUE? 

No, error 

Clear checksum 

Number of bytes to send 

Is it less than remaining byte count? 

Yes 

No, use remaining byte count instead 

Put byte count in second b>te 

Flag byte = DDJ)ATA 

Send flag byte and byte count 

Convert byte count to word count 

Get a byte from memory in R3 

Save byte in R2 

Get another byte from memory in R3 

Put it m second byte of R2 

Send two bytes 

Repeat until byte count is 

Get checksum 

Send it 

Any more data to send? 
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51 



-5 



-1 



08 



-4 



-3 



CO 


12 


010F 


312 


30 


11 


0111 


313 






0113 


314 






0113 


315 






0113 


316 






0113 


317 


54 


D4 


0113 


318 


00F2 


30 


0115 


.1 


01 53 


91 


0118 


.2 


2E 


12 


0118 


,3 


52 02 


C7 


011D 


.4 


00E6 


30 


0121 


.5 


011E 


30 


0124 


324 


53 52 


9A 


0127 


325 


0118 


30 


01 2A 


326 


F1 51 


F5 


012D 


327 


00E5 


30 


0130 


.1 


I 08 52 


FO 


0133 


329 


53 




0137 




54 53 


B1 


0138 


330 


79 


12 


013B 


331 


3B 


10 


01 3D 


.1 


58 


D5 


013F 


332 


DO 


12 


0141 


333 






0143 


334 






0143 


335 






0143 


336 






0143 


337 






0143 


338 






0143 


339 


54 


D4 


0143 


340 


00C2 


30 


0145 


.1 


02 53 


91 


0148 


.2 






014B 


.3 


69 


12 


014B 


.4 


OOBA 


30 


014D 


,5 


40 8F 53 


91 


0150 


345 


60 


12 


0154 


346 


52 


D5 


0156 


347 


5C 


19 


0158 


348 


51 04 


DO 


01 5A 


349 


OOAA 


30 


015D 


.1 


FA 51 


F5 


0160 


.2 


00B2 


30 


0163 


.3 


8 08 52 


FO 


0166 


353 


53 




016A 




54 53 


B1 


016B 


354 


46 


12 


016E 


355 


2C 


10 


0170 


.1 


50 01 


3C 


0172 


.2 


0D06 8F 


BA 


0175 


.3 




05 


0179 


.4 






01 7A 


.5 






01 7A 


.6 


00000000' EF 


16 


01 7A 


.7 


00 


E1 


0180 


,8 


OOOOOOOO'EF 




0182 





BNEQ 
BR8 



30$ 
ENDJJF.DATA 



Do a read from TU58 



§0$: CLRL 
BSBW 
CMPB 

52$: BNEQ 
DJVL3 

55$: BSBW 
BSBW 
MOV2BL 
BSBW 
SOBGTR 
BSBW 
JNSV 

CMPW 
BNEQ 
BsbB 
TSTL 
BNEQ 



; We've sent or 
; packet with a 

END OF.DATA: 
CLRL 
BSBW 
CMPB 

DDJRROR2: 

BNEQ 
BSBW 
CMPB 
BNEQ 
TSTL 
BLSS 
MOVL 

10$: BS8W 
SOBGTR 
BS8W 
1NSV 

CMPW 

BNEU 

BsbB 

MOVZWL 

POPR 

RS8 



R4 

RECV TWO UPDSUM 

R3,*BD D*TA 

DD_ERRtJR2 

#2,R2,R1 

RECV TWO UPDSUM 

PUTBYTE " 

R2,R3 

PUTBYTE 

R1.55S 

RECV TW0„CHARS 

R2,*B,08,R3 

R3,R4 

DD..ERR0R 

DD CheckControLC 

R8" 

50$ 



received all the data, 
success code. 



R4 

RECV TWO UPDSUM 

R3,#GD_CRTRL 

DD ERROR 

RECV T WO UPDSUM 

R3,*DD EflDPKT 

DD.ERRtJR 

R2 

DD ERROR 

#47R1 

RECV TWO UPDSUM 

R1,1D$ 

RECV TWO.CHARS 

R2,*8,*8,R3 

R3.R4 

DDJRROR 

Reset Clock 

*SS$ NORMAL, RO 

# A M<R1,R2,R8,R10,R11> 



Yes, send another packet 
No, get End packet 



Clear checksum 

Get flag byte in R3, byte count in R2 

Is this a data packet? 

No, error 

Convert byte count to word count in R1 

Receive next two data bytes in R3, R2 

Store first byte in memory 

Move second b>te to R3 

Store second byte in memory 

Repeat until byte count is 

Get checksum in R3, R2 

Assemble checksum into one word 

Is checksum correct? 

No, error 

Check for control C [08] 

Anymore data to receive? 

Yes, receive next data packet 



DD CheckControlC: 

Jsb L A Kb_Poll 

BbC S A #Ds$V_CtrlC, - 



Make sure we receive an end 



Clear checksum 

Gee flag byte and byte count 

Is it a command packet? 

(extension for branch to error) 

No, error 

Get opcode and success/failure byte 

Is it an end packet? 

No, error 

Is it success? 

No, error 

Read remainder of packet 



Read checksum in R3, R2 
Form checksum in R3 

Is checksum correct? 
No, error 

Return success 
Restore registers 



; Check for control C 
; Poll keyboard 
; If A C bit 



[083 



[08] 
[083 
[083 
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-5 





15 




0187 


.9 








FE98 CF 


94 


0188 


.10 




Clr8 




10 


10 


018C 


.11 




BsbB 


5E 


FE8E CF 


DO 


018E 


.12 




MOVL 




0D06 8F 


BA 


0193 


.13 




POPR 


50 


0651 8F 


3C 


0197 


.14 




MovZWL 






04 


019C 
019D 


.15 
.16 




Ret 






05 


019D 
01 9E 


.17 
.18 


20$: 


Rsb 








019E 


.19 


Reset.Clock: 




FE83 CF 


95 


01 9E 


.20 




TstB 




OA 


13 


01A2 


.21 




BEql 




3F 


BB 


01 A4 


.22 




PushR 


00000000'EF 


16 


C1A6 


.23 




Jsb 




3F 


BA 


01AC 


.24 




PopR 
Rsb 






05 


01AE 


.25 


10$: 








01AF 


.26 












01AF 


.27 


.Enable 


LSB 








01AF 


.28 












01AF 


.29 DD.TimeOut: 


50 


022C 8F 


3C 


01AF 


.30 




MovZWL 




05 


11 


0184 
01B6 


.31 
.32 




BrB 








01 B6 


.33 


DD.ERROR: 


50 


0054 8F 


3C 


0186 
01 BB 


.34 

.35 




MOVZWL 




FE65 CF 


94 


018B 


.36 


10$: 


CLRB 




DD 


10 


01BF 


.37 




Bsb8 


5E 


FE5B TF 


DO 


01C1 


361 




MOVL 




0D06 8F 


BA 


01C6 


362 




POPR 






05 


OKA 
01C8 


363 

364 




RSB 








01CB 


.1 


.DisAbl 


e LSB 
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L A Ds$GL,Flags, 20$ 
Init 

Reset Clock 
STKPTR, SP 

* A M<R1,R2,R8,R10,R11> 
#SS$ ControtC, RO 



,. isn't set. 
Make sure to 



continue 
re-init Tu58 later 



Restore stack pointer 

Restore registers 

Set status 

Return from BOO$GIO, to prevent 

retry of the operation. 
No A C, just return 



C08J 
C083 

C08D 
E08] 
C08D 
C08.1 

cos: 

C083 



Mrsp 

10$ 

# A M<R0,R1,R2,R3,R4,R5> 

L A Clk$Re Init 

# A M<R0,RT,R2,R3,R4,R5> 



*SS$ TimeOut, RO 
10$ 



#SS$_CTRLERR,RO 

INIT 
Reset. Clock 

stkptR sp 

# A M<Rl',R2,R8,R10,R11> 



; Operation timed out 
; Set timeout code 
; Join common 



; Set failure status 

; Initialize TU58 on next entry 

; Restore stack pointer 

; Restore registers 

; Return and retry 



C08D 

C08D 
C08.1 
[08] 



cos: 

[08] 



[08] 
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transmission 
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Character 



867 



54 
54 



52 
00 



52 

52 52 

05 

8E F8 8F 

52 



~? 



50 
1F 



1E 
06 
52 



001F0000 



06 
8F 
51 



TU58 BOOT DRIVER 
transmission 



AO 
D8 



DD 
9A 
10 
78 



9A 
10 
DA 
05 



CE 11 



8B 
DO 



•ovororororoi 

orororoi 

52 50 DB 



01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

01 CB 

CUB 

01 CB 

01 CB 

01CE 

01D1 

01D1 

01D1 

01D3 

01D6 

01D8 

01DC 

01DD 

01DD 

01DD 

01DD 

01E0 

01E2 

01E5 

01E6 

01E6 

01E6 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01E8 

01EA 

01F0 

01F1 

01F7 

01F8 



.3 

365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
.1 
.2 
.3 
.4 

386 

387 

388 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

.15 

.16 

.17 

.18 

.19 

.20 

.21 

.22 

.23 

.24 

,25 

.26 

.27 



.Subtitle 
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Character transmission 



++ 



XMIT TWO UPDSUM - Transmit two characters and update checksum 
XMIT"TWO"CHARS - Transmit two characters 
XMJT;oNE_CHAR - Transmit one character 

Inputs: , . . . 

R2 Contains one or two characters in Low bytes 
R4 Checksum so far 



Outputs: 
R4 



Updated checksum 



XMIT^TWO UPDSUM: 

J.DDW R2,R4 
ADWC #0.R4 

XMIT_TWO CHARS: 

PUSHL R2 

MOVZBL R2,R2 

BSBB XMIT ONE..CHAR 

ASHL tf-8,7SP)+,R2 



XMIT_ONE CHAR: 

RovZBL *Pr$„CsTs, RO 

BsbB Wait. Ready 

MTPR R2,#PR$_CSTD 
RSB 



DD Errorl : 
BrB 



DD_fcrror 



; Add two characters to checksum 
; Add carry 



; Save input on stack. 

; Zero high bytes of data. 

; Transmit one character 

; Retrieve second character 

; and fall through to transmit it 



Number of register to poll 
Wait for bit 7 to set 
Transmit character 



; Extension to DD. Error 
; Just chain on to it 



[08] 
C083 



[08] 
[083 



+ + 



Wait_Ready - wait for done/ready bit in specified I PR to set 
Number of processor register to poll 



Inputs: 
RO 



Outputs: 

None 

If desired bit does not set wichin the timeout period, a direct 
exit is made from the driver through DD_TIM[0UT. 



Wait.Ready: 

PushR 
MovL 



10$: 



.Byte 
Mfpr 



# A M<R1 £ R2> 
# A X1F0000, R1 

1[10] 

RO, R2 



; Wait for bit 

; Save Rl for loop counter 

; Fetch value 

; Nops to free console 

; Read console CSR 



[08] 
[083 

[10] 




ZZ-ENSAA-7.0 

CSDDBTDRV 

06-11 



Character 



transmission 

- CONSOLE 
Character 



868 



05 52 



EC 



07 
51 
A8 
06 



-6 



08 08 

54 
54 



53 



~4 



F9 
AD 



50 

52 
FDFC 

50 
50 
1F 
52 



OC 
52 
53 
53 
00 



03 
52 



U 
C6 
1D 
CF 
OA 
1B 
07 
10 
OF 



TU58 BOOT DRIVER 
transmission 



EO 
F5 
11 
BA 
05 



10 
FO 

AO 
D8 
05 



10 
9A 



9A 
10 
DB 
95 
13 
DB 
E1 
DA 
FO 
05 
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01FE 

0202 

0205 

0207 

0209 

020A 

020A 

020A 

020A 

020A 

020A 

020A 

020A 

O20A 

C20A 

020A 

020A 

020A 

020A 

020A 

O20C 

0210 

0211 

0214 

0217 

0218 

0218 

0218 

021A 

021D 

021D 

021D 

021D 

0220 

0222 

0225 

0229 

022B 

022E 

0232 

0235 

0239 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 

023A 



.28 
.29 
.30 
.31 
.32 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

.1 

.2 

.3 

.4 

.5 

.6 

J 

.8 

.9 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 
440 



20$: 



BbS 

SobGtr 

BrB 

PopR 

Rsb 



#CsRs V Done, R2, 20$ 
R1, 10$ 
DD TimeOut 
/TFkRI, R2> 



Exit loop if ready 
Otherwise, loop 
Timeout if drop here 
Restore register 
Return to caller 



[08] 
[08] 
C083 
[08] 
C08] 



++ 



RECV TWO UPDSUM - Receive two characters and update checksum 
RECV"TWO~CHARS - Receive two characters 
REC\TONElCHAR - Receive one character 



Inputs: 
R4 

Outputs: 
R2 
R3 



Checksum so far 



Most recently received character 
Previous character in low byte 



RECV.TWO UPDSUM: 

BSBB RECV JWO.CHARS 
INSV R2,#8,08,R3 



ADDW 
ADWC 
RSB 

RECV_TW0 CHARS: 
BSBB 
M0VZ8L 



RECV.ONE CHAR: 
RovZBL 
BsbB 
MFPR 
TSTB 
BEQL 

10$: MFPR 
BBC 
MTPR 

20$: BBS 
RSB 



R3,R4 
*0,R4 



RECV ONE. CHAR 
R2,R3 



; Receive two characters in R3, R2 

; Put second character into R3 

; Add two characters to checksum 

; Add carry to checksum 



Get one character in R2 

Save first character in R3 and 

fall through to get second character 



#Pr$_CsRs, RO 

Wait„Ready 

*PR$ CSRD,R2 

MRSP 

20$ 

#PR$ CSTS,R0 

#CSTS V READY, RO, 10$ 

#DD COnTINUE,*PR$ CSTD 

#CSRD_V_ERR0R,R2,I5D_ERR0R1 



Get number of register 

Wait for ready to set 

Get next character 

Does this TU58 speak MRSP? 

Branch if not 

Get transmit status 

Loop until ready 

Send CONTINUE character 

Branch if data overrun 



[08] 
[08] 



GETBVTE 
PUTBYTE 



- Subroutine to 

- Subroutine to 



get a byte from memory 
store a byte in memory 



These two subroutines do two things special: 

1) Since the floppy always reads or writes 128 bytes 
these routines simply return if the byte count is zero. 

2) These routines take care of page boundaries if 
mapping is required. 



Inputs: 
R3 



Byte to store (PUTBYTE) 



ZZ-ENSAA-7,0 

CSDDBTDRV 

06-11 



Character 



transmission 

- CONSOLE 
Character 



869 



53 



8A 



5A 01FF 



TU58 BOOT DRIVER 
transmission 



023A 441 

023A 442 

023A 443 

023A 444 

023A 445 

023A 446 

023A 447 

023A 448 

023A 449 

023A 450 

023A 451 

023A 452 

023A 453 

023A 454 

C23A 455 

023A 456 

53 04 023A 457 

58 D5 023C 458 

2? 13 023E 459 

8A 9A 0240 460 

07 11 0243 461 

0245 462 

0245 463 

0245 464 

58 D5 0245 465 

26 13 0247 466 

53 90 0249 467 

024C 468 

024C 469 

58 D7 024C 470 

1F 13 024E 471 

8F B3 0250 472 

18 12 0255 473 

57 D6 0257 474 

0259 475 

0259 476 

0259 477 

0259 478 

0259 479 

0259 480 

0259 481 

0259 482 

0259 483 

0259 484 

0259 485 

0259 486 

0259 487 

0259 488 

0259 489 

0259 490 

0259 491 

0259 492 

0259 493 

0259 494 

0259 495 

0259 496 

0259 497 



R6 

R7 

R8 

R10 

R11 



Outputs: 
R3 
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Address of page table 
Virtual page number of buffer 
Size of remaining buffer (in bytes) 
Address of current spot in buffer 
Mapping switch: 

-1 Do physical -> virtual map 

No mapping required 

1 Do virtual -> physical translation 

Byte fetched from memory (GETBYTE) 



.ENABL LSB 



GETBYTE: 



CLRL R3 

TSTL R8 

BEQL 90$ 

MOVZBL <R10)+,R3 

BRB 10$ 



PUTBYTE: 



TSTL R8 

BEQL 90$ 

M0V8 R3,(R10)+ 



10$: DECL R8 

BEQL 90$ 

BITW #VA$M BYTE,R10 

BNEQ 90$ 

JNCL R7 



; Return if byte count 

; Js byte count 0? 

; Yes 

; Get byte 

; Branch to common code 



; Is byte count 0? 
; Yes 



= 



Store byte 



Deer, byte count 

Reached zero 

Did address overflow onto new page? 

No 

Yes, increment page number 



Fall through to . .. 



+ + 



D0..MAPPING - Subroutine to perform necessary mapping 



Inputs: 
R6 
R7 
R10 
R11 



Outputs: 
R10 



DO MAPPING: 



Address of page table 
Page number ot buffer 
Address to map 
Mapping switch: 

-1 Do physical -> virtual map 

No mapping required 

1 Do virtual -> physical translation 



Address to use 



ZZ-ENSAA-7.0 


Character transmission 


CSDDBTDRV 




- CONSOLE 


06-11 




Character 




5B 


D5 


0259 




12 


13 


0258 




11 


19 


025D 




FFFFFEOO 8F 


CA 


025F 




5A 




0265 


-1 






0266 




50 6647 


DO 


0266 




15 09 50 


FO 


026A 




5A 




026E 






05 


026F 

0270 

0270 

0270 

0270 
f>?7n 






00 


0270 
0271 
0271 
0271 




00000271 


0271 


-1 






0271 
0271 



TU58 BOOT DRIVER 
transmission 
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498 

499 

500 

,1 

502 
503 
504 



TSTL 
BEQL 
BLSS 
BJCL 



MOVL 
INSV 

RS8 



R11 

90$ 

100$ 

#*C<VA$M.BYTE>,R10 



Any mapping required? 

No 

Yes, map physical to virtual 

Yes, translate virtual to physical 



; Clear everything but byte offset 
<R6)CR7],R0 ; Get PfU in R0 

RO,#VA$V_VPN,0PTE$S_PFN,R1O ; Insert PFN after byte offset 



505 90$: 

506 

507 

508 ; 

509 ; Map physical to virtual 

510 : 

511 100$: HALT 
512 

513 .DSABL LSB 
514 
.1 C0NSDD DRVSIZs.-CONSDD^START 

516 

517 .END 



Not implemented yet 



ZZ-tNSAA-7,0 
CSDDBTDRV 
Symbol table 

SI ABLE 

BTD$K CONSOLE 

CLK$RMN1T 

CONSDDlDRIVER 

CONSDD.DRVS1Z 

CONSDD START 

CPU,730 

CPU„750 

CPU 780 

csrd v error 
csrs"done 
csts"m;break 
csts v ready 

DDNARE 

OD CHECKCONTROLC 

DD~CNTRL 

DDlCONTINOE 

00 OATA 

DD^ENDPKT 

DD ERROR 

DO" ERRORi 

DD~ERR0R2 

DDJNH 

DD READ 

DDlSELECT 

DD.TIMEOUT 

DD WRITE 

Off MAPPING 

DSlGL FLAGS 

DS$M SBRTFLG 

DSWfBADTIME 

DS$M~BATCM 

DS$M~BRKCLR 

DS$M BRKPT 

DS$M"CHARFLG 

DS$M~CMDFLG 

DSSM'CTRLC 

DS*M~CTRL0 

QSSMlDEVFLG 

DS$M_DISABLCC 

DS$M DONFLG 

DS$M_fcRRFLG 

DSSM EXCEPT 

DS$M~EXETST 

r,S*M~Hl TFLG 

DS$M LODFLG 

DS$M MEMMGT 

DS*M~OUTPUT 

DS&OUBFLG 

DS$M SCRIPT 

DS$M~Sfc*TIMR 

DS*M~STRFLG 

DS$M_SUBT 

DSSM SVSFLG 

DS$M"TIMRON 

DS$V"ABRTFLG 

PS$V 8ADTIME 



Symbol table 
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00000000 

00000040 

******** 

00000033 
00000271 
00000000 
00000017 
0000001 D 
00000016 
0000000F 
00000007 
00000001 
00000007 
00000026 
000001 7A 
00000002 
00000010 
00000001 
00000040 
"0000186 
'0001 E6 
*. '00014B 
000004 
J0000002 

00000000 
000001 AF 
00000003 

00000259 

******** 

00000040 
00100000 
00400000 
00001000 
00000800 
00000100 
00000080 
00000001 
000 1 0000 
00000200 
01000000 
00002000 
00000010 
00080000 
00040000 
00000008 
00000002 
00008000 

oo§OQQQQ 

00000020 
00200000 
02000000 
00000004 
>40Q0 
.10400 
00020000 
00000006 
00000014 



D 02 

D 
03 
03 




D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 



D 03 

D 03 

03 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



03 
03 



03 
03 
03 



03 
03 

03 
03 



DS$V_BATCH 

DSSV.BRKCLR 

DSSV.BRKPT 

DSSV^CHARFLG 

DSSVlCMDFLG 

DS$V_CTRLC 

DS$V CTRLO 

DSSV^DEVFLG 

DS$VJ>ISABLCC 

DS$V_DONFLG 

DS$V_ERRFLG 

DS$V_EXCEPT 

DSSVJXETST 

DS$V_HLTFLG 

DS$V LODFLG 

DSSVlMEMMGT 

DS$V OUTPUT 

DS$V_RUBFLG 

DSSVlSCRIPT 

DS$V_SETIMR 

DS$V STRFLG 

DSSVISUBT 

DSSV^SYSFLG 

DS$V TIMRON 

END OF.DATA 

EXElGB^CPUTYPE 

FUNC 

GETBYTE 

INIT 

I OS READLBLK 

KB POLL 

MODE 

MRSP 

MRSP SWITCH 

PR$ CSRD 

PRSICSRS 

PR$„CSTD 

PRS^CSTS 

PRSJCCS 

PR$ MAPEN 

PR$ SID TYP780 

PTE$S PFN 

PUTBYTE 

RECV_ONE„CHAR 

RECV TWO.CHARS 

RECV'TWO UPDSUM 

RESETJLOCK 

SIZ... 

SSS.BUFBYTALI 

SS$_C0NTR0LC 

SSSlCTRLERR 

SSSlNORMAL 

SS$ TIMEOUT 

STKPTR 

VA$M_BYTE 

VASV'VPN 

WAJTlREADY 



00000016 
OOOOOOOC 
OOOOOOOB 
00000008 
55039007 
00000000 

00000010 
00000009 

00000018 
OOOOOOOD 
00000004 
00000013 
00000012 
00000003 
00000001 
OOOOOOOF 
00000017 
00000005 
00000015 
00000019 

00Q00Q02 

OOOOOOOE 
OOOOOOOA 

0000001 1 

00000143 

******** 

00000010 

Q000023A 
00000024 

00000021 

******** 

00000014 

!«i 




.10 
= 0000 
= 0000 



ZZ-f.NSAA-7,0 
..SDDBTDRV 
Symbol table 

XMI1J)NE_CHAR 
XMIT TWO CHARS 

XMITlTWO^UPDSUM 



Symbol table 



r'SFCT rnme 

. ABS . 

$ABS$ 

BOOT0R1VR 4 
800TDRIVR!? 



- CONSOLE TU58 BOOT DRIVER 



000001DD R D 03 
000001 D1 R D 03 
000001 CB R 03 



J 4 
27-JUL-1984 

27-JUL-19I 
1-APR-19I 



+ «.— + 

! Psect synopsis ! 
+ + 



Allocation 

00000000 ( 0.) 

00000000 ( 0.) 

00000018 ( 24.) 

00000271 ( 625.) 



PSECT No. Attributes 



00 
01 
02 
03 



( 



0.) 
1.) 
2.) 
3.) 



NOPIC 
NOPIC 
NOPIC 
NOPIC 



USR 
USR 
USR 
USR 



CON 
CON 
CON 
CON 



Fiche 5 Frame J4 Seguence 872 
14 15:11:45 VAX-11 Macro V03-0T Paae 16 % 
10 09:26:57 0MA1 iCSYSO.SYSMAINTKSDDBTDRV.MAR; (4) 



ABS 
ABS 
REL 
REL 



LCL NOSHR 

LCL NOSHR 

LCL NOSHR 

LCL NOSHR 



NOEXE 
EXE 
EXE 
EXE 



NORD 
RD 
RD 
RD 



NOWRT 
WRT 
WRT 
WRT 



NOVEC BYTE 
NOVEC BYTE 
NOVEC BYTE 
NOVEC BYTE 



ZZ-ENSAA-7.0 Cross 


reference 






1 
27-. 


C 4 

JUL-1984 


Fiche 


5 Frame K4 Seguence 873 

:45 VAX-11 Macro V03-01 Page 17 

:57 DMA1:CSYS0.SYSMAINT]CSDDBTDRV.MAR;<4) 


CSDDBTDRV 


- CONSOLE TU58 BOOT 


DRIVER 






27-JUL-1934 15:11 


iross reference 












1-APR-1980 09 J 26 


! Symbol Cross Reference I 


SYMBOL 
STABLE 


VALUE 
=O00O0O00-R 


DEFINITION 
121.3 (2) 


REFERENCES. 








121.3 


(2) 




BIT... 


=00000008 


45.5 


(2) 


45.5 


(2) 








BTDSK CONSOiE 


=00000040 






121.3 


(2) 








clksrE init 


00000000-XR 






355.23 


(4) 








CONSDD DRIVER 


00000033-R 


200 


(4) 


121.3 


(2) 








CONSDD'DRVSIZ 


=00000271 


514.1 


(4) 


121,3 


(2) 








CONSDD~STARl 


00000000-R 


147.10 


<3) 


121.3 


(2) 


514.1 


(4) 




CPU 730 


0000001 7-R 


158.1 


(3) 


155 


(3) 








CPU~750 


0000001 D-R 


158.4 


(?) 


155 


(3) 








CPU~780 


0000001 6-R 


156 


(3) 


155 


(3) 








CSRC V ERROR 


=0000OOOF 






#-420.9 


(4) 








CSRS~V~DONE 


=00000007 






#-388.28 


(4) 








CSTS~M~BREAK 


=00000001 






#-237 


(4) 








CSTS"VRJ:ADY 


=00000007 






#-420.7 


(4) 








DDNAflE~ 


00000026-R 


198 


(4) 


121.3 


(2) 








DD CHECKCONTROLC 


000001 7A-R 


355.6 


(4) 


#-331.1 


(4) 








DD~CNTRL 


=00000002 






#-269 


(4) 


#-340.2 


(4) 




DD~CONTINUE 


=00000010 






#-245 


(4) 


#-292 


(4) 


#-420.8 (4) 


DD'DATA 


• =00000001 






266 


(4) 


#-318.2 


(4) 




DD~ENDPKT 


=00000040 






#-345 


(4) 








ooIerror 


000001 B6-R 


355.33 


(4) 


#-331 


(4) 


#-340.4 


(4) 


#-346 (4) #-348 (4) 










#-355 


(4) 


#-388.7 


(4) 




DO ERROR1 


000001 E6-R 


388.6 


(4) 


#-420.9 


(4) 








DD*ERROR2 


000001 4B-R 


340.3 


(4) 


#-318.3 


(4) 








DD~INIT 


=00000004 






#-242 


(4) 








DCTREAD 


=00000002 






265 


(4) 


#-271 


(4) 




DD"*SELECT 


00000000-R 


147.12 


(3) 


121.3 


(2) 








OD"TIMEOUT 


O00001AF-R 


355.29 


(4) 


#-388.30 


(4) 








DD~WRITE 


=00000003 






265 


(4) 








DO~MAPPING 


00000259-R 


497 


(A) 


ff-227 


(4) 








dsJgl FLAGS 


00000000-XR 






355.9 


(4) 








DSSM JBRTFLG 


=00000040 
=00100000 


45.5 


(2) 












D$SM_8<U)TIME 


45.5 


(2) 












DSSM BATCH 


=00400000 
=00001000 


45.5 


(2) 












DSSM~BRKCLR 


45.5 


(2) 












DSSM BRKPT 


=00000800 


45.5 


(2) 












D5SM~CHARFLG 


=00000100 
=00000080 


45.5 


(2) 












DSSM CMDFLG 


45.5 


(2) 












DSSMlCTRLC 


=00000001 


45.5 


(2) 












DSSM CTRLO 


=00010000 
=00000200 
=01000000 
=00002000 


45.5 


(2) 












DSSMlDEVFLG 


45.5 


(2) 












DSSM DISA8LCC 


45,5 


(2) 












DSSM DONFl.G 


45.5 


(2) 












DSSM^ERRFLG 


=00000010 


45.5 


(2) 












DSSMJXCEPT 


=00080000 


45.5 


(2) 












DSSM EXFTST 


=00040000 


45.5 


(2) 












DSSM^HLTFLG 


=00000008 


45.5 


(2) 












DSSM LODFLG 


=00000002 


45.5 


(2) 












DSSM~MEMMGT 


=00008000 


45.5 


(2) 












DSSM^OUTPUT 


=00800000 


45.5 


(2) 
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CSDDBTDRV 
Cross reference 

DSSM RUBFLG 

DSSM SCRIPT 

DSSM^SETIMR 

DSSM STRFLG 

OSSMlSUBT 

DSSM SYSFLG 

DSSM'TIMRON 

OSSV^ABRTFLG 

DSSV BADT1ME 

DSSVlBATCH 

DSSV BRKCLR 

OS$V BRKPT 

DSSV_CHARFLG 

DSSV CMDFLG 

DSSV_CTRLC 

D$SV_CTRLO 

DSSV DEVFLG 

DSSVJ)ISABLCC 

DS$VJ>ONFLG 

DSSV ERRFLG 

DSSV.EXCEPT 

DSSV^EXETST 

DSSV HLTFLG 

DSSVlLODFLG 

DSSV MEMMGT 

DSSV OUTPUT 

DSSV~RUBFLG 

DSSV„SCR1PT 

DSSV SETIMR 

DSSVlSTRFLG 

DSSV SUBT 

DSSV SYSFLG 

DSSV"*TIMRON 

END OF DATA 

EXE*GB"CPUTYPE 

FUNC 

GETBYTE 

JN1T 

10% readlblk 
kb Poll 
moBe 

MRSP 

MRSP SWITCH 

PRS fSRD 

PRS^CSRS 

PRS^CSTD 

PRS CSTS 

PRSIICCS 

PRSJ1APEN 

PRS SID TYP780 

PTElS PFN 

putbyTe 

RECV^ONE.CHAR 
RECV TWO^CHARS 
RECV~TWO - UPDSUM 



Cross reference 
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=00000020 45.5 (2) 

=00200000 45.5 (2) 

=02000000 45.5 (2) 

=00000004 45.5 (2) 

=00004000 45.5 (2) 

=00000400 45.5 (2) 

=00020000 45.5 (2) 

=00000006 45.5 (2) 

=00000014 45.5 (2) 

=00000016 45.5 (2) 

=0000000C 45.5 (2) 

=O000000B 45.5 (2) 

=00000008 45.5 (2) 

=00000007 45.5 (2) 

=00000000 45.5 (2) 

=00000010 45.5 (2) 

=00000009 45.5 (2) 

=00000018 45.5 (2) 

=0000000D 45.5 (2) 

=00000004 45.5 (2) 

=00000013 45.5 (2) 

=00000012 45.5 (2) 

=00000003 45.5 (2) 

=00000001 45.5 (2) 

-0000000F 45.5 (2) 

=00000017 45.5 (2) 

=00000005 45.5 (2) 

=00000015 45.5 (2) 

=00000019 45.5 (2) 

=00000002 45.5 (2) 

=0000000E 45.5 (2) 

=0000000A 45.5 (2) 

=00000011 45.5 (2) 

00000143-R 339 (4) 

00000000-XR 

=00000010 188 (4) 

0000023A-R 456 (4) 

00000024-R 197 (4) 
=00000021 

00000000-XR 

=00000014 189 (4) 

00000025-R 197.1 (4) 

=00000003 

=00000010 

=0000001 C 

=0000001 F 

=0000001 F 

=00000016 

=00000038 

=00000001 

=0000001 5 

00000245-R 464 (4) 

0000021D-R 420 (4) 

00000218-R 415 (4) 

0000020A-R 408 (4) 



#-355.8 (4) 



#-313 
#-155 
#-272 
#-303 
ft-227. 
#-272 
355. 
#-224 
#-147. 
#-355. 
#-275. 
#-241 
#-420. 
#-388. 
#-237 
ff-227. 
#-222 
#-155 
#-504 
#-324 
#-244 
#-327. 
#-318. 
#-349. 



5 



13 
20 
9 

1 
3 

4 



(4) 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(4) 
(4) 
(4) 
(4) 
f4) 
(4) 



#-285 
#-305 
#-247 
#-285 


(4) 
(4) 
(4) 
(4) 


#-355.10 


(4) 


#-355,36 


(4) 


#-158.2 
#-420.4 


(3) 
(4) 


#-227.2 


(A) 


#-275.7 


(4) 


#-420.3 


(4) 










#-420.8 
#-240 


(4) 
(4) 


#-388.1 


(A) 


#-420,6 


(4) 


#-326 
#-291 
#-349.3 
#-318.5 


(4) 
(4) 
(4) 
(4) 


#-416 
#-409 
#-340.1 


(4) 
(4) 
(4) 


#-340,5 


(4) 



M 4 

ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Fiche 5 Frame M4 Sequence 875 

CSDD3TDRV - CONSOLE TU58 BOOT DRIVER 27-JUL-1984 15:11:45 VAX-11 Macro V03-0? ^ Page 19 

Cross reference 'upo duu Lmi V l-APA-1 980 09:26:57 DMA1 :CSYS0.SYSMAINTJCSDD8T0RV.fiAR; (4) 

RESET CLOCK 0000019E-R 355.19 (4) 0-355.1 (4) 0-355.11 (4) 0-355.37 (4) 

S1Z..T =00000008 45.5 (2) 45.5 (2) 

SSS BUFBYTALI =0000030C *-§91-?, (4) 

SS$IC0NTR0LC =00000651 i'llhH 4 

SS$ CTRLERR =00000054 *"|55.34 4 

SSSlNORMAL =00000001 *"^5.2 4 

SSS TIMEOUT =0000022C 0-3^5.30 (4) 

STKPTR 00000020-R 196 (4) 0-201.5 (4) 0-355.12 (4) 0-361 (4) 

VA$M BYTE =000001FF 0-472 (4) 0-500.1 (4) 

VA$V'*VPN =00000009 0-504 (4) 

WAIT'READY 000001E8-R 388.23 (4) 0-388.2 (4) 0-420.2 (4) 

Ki! : ?S«s M15W 81 Si ^ ,3 !$! ^ «> «* in c«> ,-306.« <<> 

XM irTWO;UPDSU« 000001 CB-R 379 (4) J-J70 (}) }-gS j« {^S.IOj}} £27^ j}j 



ZZ-ENSAA-7.0 

CSDDBTDRV 

i ross reference 



Cross reference 



MACRO 



SIZE 



SBOOT DRIVER 
SBTDDEF 
$DEF 
SDEFINI 

SEQU 

SGBLIN1 

SIODEF 

$PRDEF 

tPTEDEF 

SRPBDEF 

SSSDEF 

SVADEF 

SVIELD 

$VIELD1 

ASSUME 

CASE 

CPUDISP 

DSFDF.F 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol tabie output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



- CONSOLt TU58 BOOT DRIVER 



27-JUL-1984 Fiche 5 Frame N4 Sequence 876 

27-JUL-198A 15:11:45 VAX-11 Macro V03-01 Page 20 
1-APR-1980 09:26:57 DMA1 :[SYSO.SYSMAINT]CSDDBTDRV.MAR; (4) 



DEFINITION 



! Macros Cross Reference ! 
+——.—— — — — + 

REFERENCES... 



119 
47 

45.5 
47 

45.5 
45.5 

48 

49 

50 

51 

52 

53 

45.5 

45.5 

265 

155 

152 

45.5 



(2) 
(2) 
(2) 
(2) 

(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(4) 
(3) 
(3) 
(2) 



119 
47 

47 
52 

45.5 

48 

49 

50 

5. 

52 

53 

45.5 

45.5 

265 

155 

152 

45.5 



(2) 
(2) 

(2) 
(2) 

(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(4) 
(5) 
(3) 
(2) 



48 
53 



(2) 
(2) 



49 
67 



(2) 
(2) 



50 



(2) 



51 



(2) 



266 



(4) 



+ —....... ...—...-. — + 

J Performance indicators ! 
+ — + 



Page faults CPU Time 

32 00:00:00.10 

141 00:00:00.75 

688 00:00:14.71 

00:00:01.81 

180 00:00:04.14 

16 00:00:00.12 

5 00:00:00.02 

31 00:00:00.54 

1097 00:00:22.19 



Elapsed Time 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



01.09 
03.09 
24.71 
02.09 
09.08 
00.13 
00.04 
01.13 
41,37 



The working set limit was 1000 pages. 

64820 bytes (127 pages) of virtual memor/ were used to buffer the intermediate 
There were 60 pages of symbol tab'e space allocated to hold 1134 non-local and 
.66 source lines were read in Pa 1 , producing object records in Pass 2. 
55 pages of virtual memory were used to define 21 macros* 



code. 

26 local symbols 



B 5 
77-PNSAA-7 Cross reference 27-JUL-1984 Ffche 5 Frame B5 Seguence 877 

CSDDBTDRV rereren.e _ 27-JUL-1984 15:11:45 VAX-11 Macro V03-0? _ Page 21 

VAX-11 Macro Run Statistics LU,MOULC 1-APR-1 980 09:26:57 DMA1 :CSYSO.SVSMAINTKSDDBTDRV.«AR; <4> 

+ ™„——™—— --.——+ 

! Macro Library statistics ! 
+----— ————— ———+ 

Macro library name Macros defined 

DRB?:C0S.WORK]DIAG.MLB;955 

DRB1 :CDS.WORK3DS.MLB;218 3 

SYSSSYSROOT:CSYSLIB]LIB.MLB:1 5 

DMA1:CSYS0.SYSMAINT3DS.MLB;218 

DMA1:CSYS0.SYSMA]NT]DIAG,MLB;953 

SYS$SYSR00r:tSYSLIB3LIB,MLB;1 

SYS$SYSROOT;[SYSLIB]STARLET.MLB;2 9 

TOTALS (all libraries) 17 

1190 GETS were required to define 17 macros. 

There were no errors, warnings or information messages. 

MACR0/NQ0BJECT/UST<DS.L1S3/CR0SS/ENABLE = <DEBUG, TRACE) CSDD8TDRV/UPDA=< CSDDBTDRV. UPD, CSDDBTDRV. ENH) +SYS$LIBRARY:LIB/LIBRARY+DMA1 :CS 



ZZ-ENSAA- 


7.0 E 


DEBUG 




fable of 


contents 


(2) 


87 


(7) 


298 


(8) 


341 


(9) 


383 


(11) 


456 


(13) 


532 


(15) 


675 


(20) 


798 


(23) 


9^3 


(25) 


1001 


(27) 


1057 


(28) 


1107 


(29) 


1154 


(30) 


1194 


(31) 


1241 


(33) 


1347 


(35) 


1405 


(36) 


1446 


'37) 


1499 


(40) 


1707 


(40) 


1730 


(40) 


1775 



C 5 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 F iche 5 Frame C5 Seguence 878 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 1 5 : 1 3 s 56 VAX-11 Macro V03-0T Page 

DECLARATIONS 

SET BASE ADDRESS SUBROUTINE „,,, 

SHOW BASE ADDRESS SUBROUTINE ; [13] 

SET DEFAULTS SUBROUTINE 

SHOW DEFAULTS SUBROUTINE 

EXAMINE MEMORY AND REGISTERS SUBROUTINE 

VRTYPEXAMINE Type out location EXAMINED 

DEPOSIT MEMORY AND REGISTERS SUBROUTINE 

SET BREAKPOINT SUBROUTINE 

CLEAR BREAKPOINT SUBROUTINE 

DSPSREMQVEBREAK Remove breakpoints 

SHOW BREAKPOINTS SUBROUTINE 

FIND BPT FIND BPT IN BPT TABLE 

DEBUGGER CONDITION HANDLER 

BREAKPOINT CONDITION SUBROUTINE 

TBIT CONDITION SUBROUTINE 

TEMPORARY BREAKPOINT REMOVAL SUBROUTINE 

BREAKPOINT REPLACEMEMT SUBROUTINE 

FETCH STORE COPY BYTE ROUTINE 

Handle EXAMINE/DEPOSIT of IPRs in KERNEL mode 

FETCH STOR_PREG Move data to/from JPR 

DSVSDBBUG - Process DEBUG Command [14] 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



879 



D 5 e 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 Fiche 5,. Frame D5 Sequence 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX7I 1 Macro V03-0T Pa, 
' 23-JUL-1984 16:22:51 DMA1:CSYS0.SYSMAJWT3DEBUG.HAR; 



(55 



1 

(1) 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 

14 

15 
16 
17 
18 
19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

3? 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



.TITLE 
.IDENT 
■NLIST 
.LIST 



DEBUG 
/07-15/ 

CND 
MEB 



EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUTINES 



COPYRIGHT (C) 1977, 1980 _,., 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 



SINGLE 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



FACILITY: 
ABSTRACT: 
ENVIRONMENT: 
AUTHOR: 
MODIFIED BY: 

01 



02 

03 
04 

05 
06 



VAX DIAGNOSTIC SUPERVISOR 



TOM SOUTTER 



10-NQV-77 



VERSION 01 



TOM SOUTTER 18-N0V-77 VERSION 02 

DSPR #10 - LOCATE BREAKPOINTS VIA OPERATOR SPECIFIED BASE 



VERSION 
SCB. 



03 (ESSAA-3.07) 



07 

08 
09 

10 



KEN CHAPMAN 16-FEB-78 

REMOVED EXCEPTION HANDLER TO 

Roger Riggs 18-JUL-78 (4.03) 

Changed SS$ ARITH TO DSS.ARITH 

Various enhancements and cleanup done, 

'NEXT Cn3 f command. 

Added code to restore opcode on hidden breakpoint 

Modified FETCH STORE to correctly report address on 

COMET machine checks 

Roger Riggs 29-N0V-1979 

Added BSBW SCRIPTSSTOP before call to CLI to halt script 

mechanism on breakpoints and single step. 

Dave Butenhof 16-JAN-80 

Add code to examine/deposit internal processor registers. 

Roger Riggs. 27-May-1980, Version 5.4 

Changed radix on processor register output to hex. 

Dave Butenhof, 30-sep-1980, Version 6,1 

Make PSL typeout unaffected by /WORD or /BYTE. 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 , Fjche 5 Frame E5 Seguence 880 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 ^Jt^f^^^^P.i 



(55 



2 
(1) 



0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


cooo 


72 


0000 


71 


0000 


74 


0000 


75 


0000 


76 


0000 


77 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


82 


0000 


83 


0000 


84 


0000 


85 



11 

12 
13 

14 
15 



Also change /ASCII to use !AF FAO directive, and # also type 
the Longword in hex to aid in decoding non-printing strings, 
Dave Butenhof, 23-feb-1981, version 6.3 
fix truncation errors 

- Jack Stansbury, 22-0ct-1981, Version 6.- 

Fixed truncation errors, ALso added .LIBRARY statements 
for $DS and $DIA6. 

- Jack Stansbury, 10-Nov-1981, Version 6.- 

Added routines for VRSHOWBASE (to show the base address) 
and VRSH0WDFLT (to show the default size and radix). Also 
changed the error messages to mixed case. 

- Richard Brown, 19-May-82, Version 6.8 

Addition of routine to process the DEBUG user command. 



- Domenic 
The *DEP f 
read to di 
a mchk on 
the Unibus 
and could 
new CPU's, 
final exam 
This makes 
command in 



Andella, 17-Jul-84, Vers 
command does a write fol 
splay the data written. 
11/7xxx when depositing 

Adapter Control Registe 
cause similar problems i 

Problem solved by remov 



ion 7.0 
lowed by 
This causes 
a one into 
r (UACR), 
n other 



. . _, ing the 

ine from the •DEPOSIT* command. 
VDS consistent with the DEPOSIT 
XDELTA and DEBUG. 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



DECLARATIONS 



EXAMINE, DEPOSIT, AND 
DECLARATIONS 





0000 


87 




0000 


88 




0000 


89 




0000 


90 




0000 


91 




0000 


92 




0000 


93 




0000 


94 




0000 


95 




0000 


96 




0000 


97 




0000 


98 




0000 


99 




0000 


100 




cooo 


101 




0000 


102 


00000009 


0000 


103 


00000003 


0000 


104 


00000010 


0000 


105 


OOOOOOOF 


0000 


106 


00000030 


0000 


107 


00000050 


0000 


108 


00000000 


0000 


109 


00000004 


0000 


110 




0000 


111 


00000001 


0000 


112 




0000 


113 


00010E00 


0000 


114 




0000 


115 




0000 


119 




0000 


120 




0000 


121 




0000 


122 




0000 


123 




0000 


124 




0000 


125 




0000 


126 



27-JUL-1984 Fiche 5 Frame F5 Seguence 881 
BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0? Pai 

23-JUL-1984 16522:51 DMA1 :£SYSO.$YSMAINTDDEBUG.MAR;; 



I* 
55 



3 
(2) 



.SBTTL DECLARATIONS 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 



/$DS/ 
/$DIAG/ 



£12] 
C12] 



MACROS: 



EQUATED SYMBOLS: 



HTAB 


r 


9 


BPTCODE 


s; 


03 


PSLREG 


~ 


16 


BPTMAX 


~c 


15 


EXAMSIZE 


= 


12 


PSLBUFSZ 


r 


80 


INITBASE 


r 





INITSIZE 


r 


4 



SSSJJORMAL 



= 1 



DE8UGGER.SIZE = 135 * 512 

CLIDEF 
DSFDEF 
$DS DSDEF 
SPSCDEF 
SPRDEF 
SSETPRTDEF 
$DS DSADEF 
CMKDEF 



ASCII HORIZONTAL TAB 
BREAKPOINT OPCODE 
ERSATZ ADDRESS FOR 'PSL* 
MAXIMUM NUMBER OF BREAKPOINTS 
SIZE OF DISPLAY BUFFER FOR EXAMINE 
SIZE OF PSL MNEMONICS BUFFER 
INITIAL BASE ADDRESS FOR EXAM/DEP 
INITIAL BYTE COUNT FOR EXAM/DEP 

SUCCESSFUL COMPLETION 

NO. OF PAGE? TIMES BYTES PER PAGEC14] 

CLI COMMAND BLOCK OFFSETS 
CONTROL FLAG DEFINITIONS 
SUPERVISOR STATUS CODES 
PROCESSOR STATUS BITS 
PROCESSOR REGISTERS 
SETPRT argh'st offsets 
Define DSA$x codes 
Define CHMK codes 



ZZ-ENSAA-7.0 DECLARATIONS 






G 5 
27-JUL-1984 


I 


Mche 5 Frame G5 Seguence 882 
15:13:56 VAX-11 Macro V03-01 Page 4 


DEBUG EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL- 


•1984 


07-15 DECLARATIONS 


23-JUL- 


■1984 


16:22j51 DMA1:CSYS0.SYSMAINT3DEBUG.MAR;255 (3) 




oooo 
oooo 
oooo 


131 ; GLOBAL REFERENCES 
132 




C14D 




133 .GLOBAL 


DIAG.KILEJIAME 




FILENAME OF LAST DIAG. LOADED [14] 




oooo 


134 










oooo 


135 j 










oooo 


136 ; OWN STORAGE: 










oooo 


137 ; 










oooo 


138 








00000000 


139 .PSECT 


WORK, NOSHR, NOEXE, I 


rfRT, LONG 




oooo 


140 










oooo 


141 DE8UG$G8_FLAGS: 


• 
• 






00 


oooo 


142 .BYTE 









00000000 


0001 


143 


.T*0 




; T-BIT TRAP EXPECTED 


00000001 


0001 


144 


M_TBIT=' 


t a v 


T8IT 


00000001 


0001 


145 


V.STEP=1 




" ; STEP EXECUTION, SET T-BIT AFTER T-BIT TRAP 


00000002 


0001 
0001 


146 

147 DS$A8 BPTINST:: 


M.STEP- 


i a v 


.STEP 


OO'OO'OO'OO'OO'OO'OO'OO'OO'OO'OO'OO' 


0001 


148 .BYTE 


OCBPTMAX+13 




; SAVED INSTRUCTION TABLE 


OO'OO'OO'OO* 


OOOD 












0011 


149 .ALIGN 


LONG 








0014 


150 DS$AA BPTADDRii 








00000000 • 00000000 • 00000000 ' 00000000 ' 


0014 


151 .LONG 


OCBPTMAX+U 




; BREAKPOINT LOCATION TABLE 


00000000 ' 00000000 ' 00000000 ' oooooooo • 


0024 










00000000 • OOOOOOOO 'OOOOOOOO ' oooooooo • 


0034 










oooooooo ■ OOOOOOOO ' OOOOOOOO • OOOOOOOO • 


0044 
0054 


152 DFLTSI2E: 








00000004 


0054 
0058 
0058 


153 .LONG 

154 

155 BASEADDRESS: 


INITSIZE 




; EXAMINE/DEPOSIT SIZE QUALIFIER 


OOOOOOOO 


0058 
005C 


156 .LONG 
157 


INITBASE 




; ADDRESS BIAS FOR EXAMINE/DEPOSIT 


00000064 


005C 


158 NEW„AP_FP: 


-BLKQ 1 




; SPACE FOR AP/FP 


00000068 


0064 


159 NEW_SP: 


.BLKL 1 




; OPERATOR MODIFIED 'SP' 


00000070 


0068 
0070 


160 NEW_PC.,PSL: 
161 


.BLKO 1 




; OPERATOR MODIFIED 'PC/PSL' 


00000078' 00000003' 


0070 


162 FMTDJRECTIVE: 


.LONG 20$-10$ 


.10$ 


; QUADWORD STRING DESCRIPTOR 


3F 3F 21 


0078 
0078 
0078 
0078 


163 10$: .ASCII 

164 20$: 
165 

166 EXAMQWD8UF: 


,!??. 




; FORMAT DIRECTIVE STRING 


00000083*00000020 


0078 


167 .LONG 


EXAMSIZE, EXAMBUFFER 


; QUADWORD BUFFER DESCRIPTOR 




0083 


168 EXAMBUFFER: 








000000A3 


0083 
00A3 


169 .BLK8 

170 PSLBUFFER: 


EXAMSIZE 




; DISPLAY BUFFER FOR EXAMINE 


OO0OOOF3 


00A3 
00F3 
00F3 


171 ,8LK8 

172 

173 FAOLST; 


PSLBUFSZ 




; BUFFER FOR PSL MNEMONICS 




OOF 3 


174 $FAOL 


FMTDJRECTIVE, 




- ; CONTROL STRING POINTER 




OOF 3 


175 


EXAMQWDBUF +2, 




- ; RETURNED STRING LENGTH (WORD) 




0QF3 

00F3 


176 


EXAMQWDBUF, 




- ; RETURN STRING BUFFER DESCRIPTOR 




177 


FAOARG 




; ARGLIST POINTER (UNCOUNTED) 


00000004' 


OOF 3 




.ADDRESS 


4 




00000070' 


0QF7 
00F8 




.ADDRESS 


FMTDIRECTIVE 


0000007D' 




.ADDRESS 


EXAMQWDBUF +2 


0000007B' 


OOFF 




.ADDRESS 


EXAMQWDBUF 


oooooio? { 


0103 




.ADDRESS 


FAOARG 




0107 


178 









ZZ-ENSAA-7.0 

DEBUG 

07-15 



DECLARATIONS 



62 65 64 
?F 

6F 6C 20 
21 4C 58 



4F 4C 20 
20 52 45 
48 47 55 
59 52 4F 



20 6? 6E 

21 2E 2E 

72 65 67 
21 20 74 



54 27 4E 
47 47 55 
4F 4E 45 
AD 45 4D 



69 64 61 
2E 72 65 

6? 75 62 
61 20 64 



41 43 20 

42 45 44 
20 54 4F 
20 45 45 



OOOOOOOO 



EXAMINE, DEPOSIT, AND 
DECLARATIONS 



H 5 

27-JUL-1984 Fiche 5 Frame H5 Seguence 883_ 
BREAKPOINT SU8R0UT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T ^Pai 

23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINT3DEBUG.MAR;; 



!55 



5 
(3) 



000001 OB 



00' 

75 

15 

00' 

61 

2F 

18 

00' 

41 

2D 

20 

?! 
32 

OOOOOOOO 



6F 
67 

65 

65 



3F 
20 
4E 
52 
2f 



4C 
67 

44 
64 



3F 
44 
20 
46 
21 



OOOOOOOO OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 



0107 
0107 
01 OB 
01 OB 
01 OB 
01 OB 
01 OB 
01 OB 
0117 
01 OB 
0121 
012D 
0139 
0121 
C13A 
0146 
0152 
015E 
016A 
01 3A 
016D 
0175 
0175 
01 7D 
017D 
0181 
0185 



; FAO OPTIONAL AR6S LIST 



179 FAOARG: 

180 .BLKL 1 
181 

182 

183 ; The following storage allocation is for use by the routine which 

184 ; loads the debugger. 
185 

186 FMTJ>BGJ1SG: .ASCJC "Loading debugger... !/" 

187 FMT.D8G.L0AD: .ASCJC "Debugger loaded at !XL!/ M 



[143 
[14] 

[143 
[143 



188 FMT.NO.ROOM: .ASCIC "?? CAN'T LOAD DEBUGGER - NOT ENOUGH FREE MEMORY. !/"; CUD 



189 
190 
191 
192 
193 
194 
195 



DBG_ADDRJ*EQ{ 
DBG.ADDR.RTN: 

DEBUG^LO:: 
DEBUG HI:: 
SYMTAB_HI : : 



.QUAD 

.QUAD 

.LONG 

.LONG 

.LONG 



ARRAY TO REQUEST ADDR. [143 
RANGE C143 

ARRAY TO RECEIVED ACTUAL ARRAY [14] 
ALLOCATED [14] 

LOWEST ADDR. ALLOCATED TO DEBUGGERH43 
HIGHEST ADDR. ALLOCATED TO DEBUGGERC143 
TOP OF SYMBOL TABLE AREA [143 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



DECLARATIONS 



I 5 

27-JUL-1984 



Sequence 884 
EXAMINE, DEPOSIT, AND BREAKPOINT~SUBROUt 27-JUL-1984 15:13:56 VAX 7 1 1 Macro V03-0T Pai 
DECLARATIONS " *" " 



197 
19& 
19V 



SMODULE: 



00000000 

0000 

0000 

47 55 42 45 44 00* 0000 

05 0000 

03 0006 
00C7 
000? 

74 6E 65 72 72 75 63 20 65 68 54 00' 0007 203 
73 65 72 64 64 61 20 65 73 61 62 20 0013 
2E 29 58 28 4C 58 21 20 73 69 20 73 001F 

2f 21 0028 

25 0007 

002D 

64 61 72 20 74 6E 65 72 72 75 43 00* C02D 

75 43 2F 21 2E 43 41 21 20 3A 78 69 0039 
20 3A 65 7A 69 73 20 74 6E 65 72 72 0045 

2F 21 2E 43 41 21 20 0051 

2A OOJD 

0058 206 FMTJHEX: 
6C 61 6D 69 63 65 64 61 78 65 48 00' 0058 "~ 

OB 0058 

0064 

6C 61 6D 69 63 65 44 00* 0064 

07 0064 
006C 

6C 61 74 63 4F 00' 006C 

05 006C 

0072 

6* 72 6F 77 67 6E 6F 4C 00' 0072 

08 0072 
0076 

64 72 6F 57 00' 0078 

04 0078 
0080 

65 74 79 42 00' 0080 

04 0080 

0085 

6E 69 6F 70 6B 61 65 72 42 2* 21 00' 0085 

2F 21 4C 58 21 20 3A 74 61 20 74 0091 

16 0085 

009C 

2F 21 4C 58 21 20 3A 4C 58 21 00' 009C 

OA 009C 

00A7 

2F ?1 29 58 28 4C 58 21 5F 21 00' 00A7 

OA 00A7 
0082 

65 7? 62 20 74 6E 65 72 72 75 43 00 • 00B2 225 
2F 21 3A 73 74 6E 69 6F 70 68 61 OOBE 

16 0082 
OOC 



Ffche 5 Frame 15 
„. ,.. .... 15:13:56 VAX-11 . 

23-JUL-1984 16:22:51 DWA1uSYS0.SYSMAINT3DEBUG.MAR; 

.PSECT DATA, SHR, NOEXE, NOWRT, BYTE 

MODNAM DEBUG ; SUPERVISOR MODULE IDENTIFIER 



ie 6 
55 (4) 



.ASCIC \DEBUG\ 
♦BYTE BPTCODE 



; A BPT INSTRUCTION 



200 BPT LITERAL: 

201 

202 FMT 8ASE_0UT: 

.ASCIC "The current base address is iXL(X).!/ 



1 * 



204 FMTJ>FLTJ)UT: # .,**,,.. 

205 .ASCIC "Current radix: !AC. I/Current size: !AC.!/" 



207 



208 FMT„DEC: 

209 .ASCIC 

210 FMT OCT: 

211 " .ASCIC 

212 FMTJ.OMG: 

213 .ASCIC 



.ASCIC "Hexadecimal" 
"Decimel" 
"Octal" 
Longword' 



><i 



it • 



214 FMT„WORD: 

215 .ASCIC "Word" 



216 FMT_BYTE: 

217 .ASCIC "Byte 



1 1 



218 FMT8PT: 

219 .ASCIC "I/Breakpoint at: !XU/" 



220 FMTSTEP: 

221 .ASCIC "!XL: !XL!/" 

222 FMTBPTADR: 

223 .ASCJC ,!JXL<X)!/. 

224 FMTBPTLST: 
.ASCIC .Current breakpoints:!/. 



6E 65 72 72 75 63 20 65 6E 6F 4E 00' 00C9 

2F 21 74 65 73 20 79 6C 7u 00D5 

14 00C9 

20 74 6E 69 6F 70 6B 61 65 72 42 00* OODE 



226 FMT8PTN0NE: 

227 .ASCIC .None currently set!/. 



•28 FMT8PTN0TSET: 

l 29 .ASCIC .Breakpoint was not set!!!/. 



[13] 
[133 



[133 
[133 



[133 
[133 

[133 
[13] 

[133 
[133 

[133 

[133 

[133 
[133 

[133 
[133 



[133 



[133 
[133 

[133 



ZZ-ENSAA-7.0 DECLARATIONS 27-JUL-1984 Fiche 5 Frame J5 Seguence 885 

DEBUG ucllwwijuw EXAMINE , DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-01 „ Page 7 

07-15 DECLARATIONS 23-JUL-1984 16:22:51 DMA1 jCSYS0.SYSMAINT3DEBUG.MAR;255 (A) 

21 74 65 73 20 74 6F 6E 20 73 61 77 OOEA 

2F 21 21 0QF6 
1A OODE 

00F9 230 FMTINVLDREG: . J , , ri .. 

20 6A 69 6C 61 76 6E 49 20 3F 3F 00' 00F9 231 .ASCIC .?? Invalid register mnemonic!/. ; u3J 
65 6E 6D 20 72 65 74 73 69 67 65 72 0105 

2F 21 63 69 6E 6F 6D 0111 

1E 00F9 

0118 232 FMTEXAM ASCII: 

21 22 46 41 21 22 000001 20 1 01 0E0000' 0118 233 .ASCID ."!AF"!..!tfXL. 

4C 58 23 21 5F 0126 

012B 234 FMTEXAM: 
43 41 21 5F 21 53 41 21 20 20 20 00' 0128 235 .ASCIC " !AS!.!AC!/ n 

2F 21 0137 
OD C12B 

0139 236 FMTNOBPTSLEFT: 
65 72 62 20 4C 55 21 20 6C 6C 41 00* 0139 237 .ASCIC .All JUL breakpoints currently in use!!!/. ; L13J 

72 75 63 20 73 74 6E 69 6F 70 6B 61 0145 

73 75 20 6E 69 20 79 6C 74 6E 65 72 0151 

?F 21 21 21 65 015D 
28 0139 



ZZ-ENSAA-7.Q DECLARATIONS 

DEBUG 

07-15 



K 5 

27-JUL-1984 Fiche 5 Frame K5 Seguence 886 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX : 11 J1acroJ{03-pi Page 

DECLARATIONS 



8 



6F 70 73 65 72 20 6F 4E 20 3F 3F 00' 0162 

20 64 69 6C 61 76 6E 69 2F 65 73 6E 01 6E 

6E 6F 69 74 61 72 65 70 6F 01 7A 

20 0162 

76 20 73 73 65 63 63 41 20 3F 3F 00' 0183 

6E 6F 69 74 61 6C 6F 69 01 8F 

13 0183 
74 61 6C 73 6E 61 72 54 20 3F 3F 00' 0197 
69 6C 61 76 20 74 6F 6E 20 6E 6F 69 01A3 

64 01 AF 

18 0197 

20 67 6E 69 7? 75 64 20 43 41 21 00* 01B0 

6F 74 20 65 63 6E 65 72 65 66 65 72 01BC 

2F 21 27 4C 58 21 27 58 20 01 C8 

20 C1B0 
6D 6F 72 66 20 64 61 65 72 00 • 01 D1 

09 01D1 
6F 74 20 65 74 69 72 77 00' 01 DB 

08 01 DB 
41 21 20 74 27 6E 61 43 20 3F 3F 00* 01E4 

2F 21 42 58 21 50 20 43 01F0 

13 01E4 
01F8 
44 50 46 2C 2C 2C 50 54 2C 4D 43 00' 01F8 
50 2C 40 32 3D 52 55 43 2C 53 49 2C 0204 
35 3D 4C 50 49 2C 2C 40 32 3D 56 52 0210 
44 2C 2C 2C 2C 2C 2C 2C 2C 2C 58 5E 021C 
2C 4E 2C 54 2C 56 49 2C 55 46 2C 56 0228 

43 2C 56 2C 5A 0234 

40 01F8 

0239 

0239 

00000004 0239 

00OO024D' 023D 

00000254* 0241 

0OOOO25E' 0245 

00000269' 0249 

024D 

4C 45 4E 52 45 4B 00' 024D 

06 024D 
45 56 49 54 55 43 45 58 45 00' 0254 

09 0254 
52 4F 53 49 56 52 45 50 55 53 00' 025E 

OA 025E 

52 45 53 55 00' 0269 

04 0269 



239 TJ1ACHCK: 


.ASCIC 


240 TJ\CCVIO: 


.ASCIC 


241 TJRANSL: 


.ASCIC 



23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINTJDEBU6.MAR;255 (5) 
'?? No response/invalid operation 1 ; H3J 



•?? Access violation* 

'?? Translation not valid 1 

242 FMTJXCEPTION; .ASCIC "JAC during reference to XMXLM/* 1 



243 TJWGREAD: 

244 T_PREGWRITE: 

245 FMT_BADPREG: 



246 APSLMNE:: 

247 .ASCIC 



.ASCIC "read from" 

.ASCIC "write to" 

.ASCIC "?? Can't !AC P!XB!/ M 



\CM,TP,,,FPD,IS,CUR=28,PRV=25>, ,IPL=5 A X,\ - 



[133 
C13J 

C133 

C133 

C13D 
[133 



248 \ DV,FU,IV,T,N,Z,V,C\ 

249 

250 MODELST:: .LONG 4 

251 .ADDRESS AKM 

252 .ADDRESS AEM 

253 .ADDRESS ASM 

254 .ADDRESS AUM 
255 

256 AKM: .ASCIC .KERNEL. 

257 AEM: .ASCIC .EXECUTIVE. 

258 ASM: .ASCIC .SUPERVISOR, 

259 AUM: .ASCIC .USER. 



ZZ-ENSAA-7.0 

DEBUG 
07-15 



IONS 




27-JUL-1984 Fiche 5 Frame L5 Sequence BQ7 




EXAMINE, DEPOSIT, AND 


BREAKPOINT 


SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-01 r _ Page 


9 


DECLARATIONS 




23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINT3DE8UG*MAR;255 


(6) 


026E 


261 REGNAMLST: 






000002B2' 026E 


262 


.ADDRESS 


ARO 




00000285' 0272 


263 


.ADDRESS 


AR1 




00000288' 0276 


264 


.ADDRESS 


AR2 




000002BB' 027A 


265 


.ADDRESS 


AR3 




000002BE' 027E 


266 


.ADDRESS 


AR4 




000002C1' 0282 


267 


.ADDRESS 


AR5 




000002C4' 0286 


268 


.ADDRESS 


AR6 




000002C7' 028A 


269 


.ADDRESS 


AR7 




000002CA' 028E 


270 


.ADDF.ESS 


AR8 




000002CD' 0292 


271 


.ADDRESS 


AR9 




000002D0' 0296 


272 


.ADDRESS 


AR10 




000002D4' 029A 


273 


.ADDRESS 


AR11 




000002D8' 029E 


274 


.ADDRESS 


AAP 




0000Q2DB' C2A2 


275 


.ADDRESS 


AFP 




000002DE' 02A6 


276 


.ADDRESS 


ASP 




000002E1' 02AA 


277 


.ADDRESS 


APC 




000002E4 1 02AE 


278 


.ADDRESS 


APSL 




0282 


279 








30 52 00 ' 0282 


280 ARO; 


.ASCIC 


.RO. 




02 0282 










31 52 00' 0285 


281 AR1: 


•ASCJC 


• R1. 




0? 0285 










32 52 00' 02B8 


282 AR2: 


•ASCJC 


.R2. 




02 0288 










33 52 00' 028B 


283 AR3; 


.ASCJC 


.R3, 




02 02BB 










34 52 00' 028E 


284 AR4; 


.ASCJC 


• R4. 




02 02BE 










35 52 00' 02C1 


285 AR5: 


.ASCJr 


• R5. 




02 02C1 










36 52 00' 02C4 


286 AR6: 


•ASCJC 


• R6. 




02 02C4 










37 52 00' 02C7 


287 AR7: 


•ASCJC 


• R7. 




02 02C7 










38 52 00' 02CA 


288 AR8: 


•ASCJC 


• R8. 




02 02CA 










39 52 00' 02CD 


289 AR9: 


•ASCJC 


• R9. 




02 02CD 










30 31 52 00' 02D0 


290 AR10: 


.ASCJC 


.RIO* 




03 02D0 










31 31 52 00' 02D4 


291 AR11: 


•ASCJC 


• R11. 




03 02D4 










50 41 00' 02D8 


292 AAP: 


•ASCJC 


.AP. 




02 02D8 










50 46 00' 02DB 


293 AFP: 


.ASCJC 


• FP. 




02 02D8 










50 53 00' 02DE 


294 ASP? 


.ASCJC 


• SP. 




02 02DE 










43 50 00* 02t: 


295 APC: 


.ASCJC 


• PC. 




02 02E1 










4C 53 50 00' 02E4 


296 APSL: 


•ASCJC 


.PSL. 




03 02E4 








i 



ZZ-ENSAA-7,0 

DEBUG 
07-15 



888 



« 5 r 

SFT RASE ADDRESS SUBROUTINE 27-JUL-1984 Fiche 5 Frame M5 Sequence 

btr bAbt AUUKtbb guoKuuiigc BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0? Pa, 

SET BASE ADDRESS SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYSO.SYSMAINTJDEBUG.MAR;; 



:55 



10 
(7) 



00000058'EF 18 A2 



02E8 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
DO 0000 
05 0008 



298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

J 20 

3d1 

32k 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 



.SBTTL SET BASE ADDRESS SUBROUTINE 
.PSECT CODE, SHR, EXE, NOWRT, BYTE 



+ + 



FUNCTIONAL DESCRIPTION: 

SETS UP AN ADDRESS BIAS VALUE TO BE USED BY SUBSEQUENT 
EXAMINE AND DEPOSIT OPERATOR COMMANDS 

CALLING SEQUENCE: 

BSBW VRSETBASE 

INPUT PARAMETERS: 

R2 = BASE OF CLJ DATA FRAME. 
CLI$L_ADDRESS(R2) ; OPERATOR SPECIFIED BIAS 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

BASEADDRESS 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



RECEIVES BIAS VALUE 



VRSETBASE:: 
MOVL 
RS8 



CLI$L_ADDRESS(R2),L A BASEADDRESS ; STORE THE SPECIFIED BIAS 

; RETURN 



C123 



ZZ-EN$AA-?*0 

DEBUG 

07-15 



SHOW BASE ADDRESS SUBROUTINE ; [13] 27-JUL-1984 Fiche 5 Frame N5 Seguence 889 

EXAMINE, DEPOSIT AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T P a «c L 
SHOW BASE ADDRESS SUBROUTINE ; [13] 23-JUL-1984 16:22:51 DMA1 :[SYS0.SYSMAINT]DEBUG.MAR;255 (8) 

[13] 









0009 


341 


.S8TTL SHOW BASE ADDRESS SUBROUuNE 








0009 


342 ; 


+ h 








0009 


343 ; 


FUNCTIONAL DESCRIPTION: 








0009 


344 ; 




*> 






0009 
0009 


345 ; 

346 ; 


Shows the current base address. 








0009 


347 ; 


CALLING SEQUENCE: 








0009 


348 ; 










0009 


349 ; 


BSBW VRSHOWBASE 








0009 


350 , 


JS8 VRSHOWBASE 








0009 


351 , 










0009 


352 , 


INPUT PARAMETERS: 








0009 


353 ( 










0009 


354 . 


NONE 








C009 


355 , 










0009 


356 ( 


IMPLICIT INPUTS: 








0009 


357 , 










0009 


358 , 


BASEADDRESS : The current base address 








0009 


359 , 










0009 


360 


• OUTPUT PARAMETERS: 








0009 


361 










0009 


36? 


NONE 








0009 


363 










0009 


364 


• IMPLICIT OUTPUTS: 








0009 


365 










0009 


366 


NONE 








0009 


367 










0009 


368 


■ COMPLETION CODES: 








0009 


369 










0009 


370 


; NONE 








0009 


371 










0009 


372 


; SIDE EFFECTS: 








0009 


373 










0009 


374 


; NONE 








0009 


375 










0009 


3/6 


•-- 








0009 


377 










0009 


578 


VRSHOWBASE:? 








0009 


379 


$DS PRINTF S L A FMT BASE OUT, - 








0009 


380 


l a bSse\dPress 


00000058 


'EF 


DD 


0009 




PUSHL L'BASEADDRESS 


00000007 


•EF 


9F 


000F 




PUSHAB L A FMT BASE OUT 


00000000' 9F 


02 


F8 


0015 




calls mn, a#Ds$p;uNTF 






05 


001 c 


381 


RS8 



Print the base address 



; Return to caller 



[13] 
[133, 

[133: 



[15], 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



B 6 

SET DEFAULTS SUBROUTINE 27-JUL-1984 , Fjche 5 Frame 86 Seguence 890 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-07 Pa. 
SET DEFAULTS SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYS0,SYSMAINT3DEBUG.MAR;] 



!55 



12 
(9) 



001 D 
001D 
001D 
001D 
001 D 
001 D 
001 D 
001 D 
001 D 
001D 
001 D 
001D 
001 D 
001D 
C01D 
001 D 
001 D 
001D 
001 D 
001D 
001D 
001 D 
001D 
001D 
001D 
001D 
001 D 
001 D 
001 D 
001D 
001D 
001D 
001D 
001D 
001D 
001D 
001D 
001 D 



383 
384. 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 



.SBTTL SET DEFAULTS SUBROUTINE 

FUNCTIONAL DESCRIPTION: 

SETS UP DEFAULT PARAMETERS TO BE USED BY SUBSEQUENT 
EXAMINE AND DEPOSIT OPERATOR COMMANDS 

CALLING SEQUENCE: 

BSBW VRSETDFLT 

INPUT PARAMETERS: 

R2 = BASE OF CLI DATA FRAME. 
CLI$L^FLAGS(R2) ; OPERATOR SPECIFIED DEFAULT(S) 

IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 



DS$GI. RADIX 
DFLTSTZE 

IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



RECEIVES RADIX VALUE 
RECEIVES SIZE VALUE IN BYTES 



7Z-ENSAA-7.0 
DEBUG 
U7-1 5 



C 6 
SET DEFAULTS SUBROUTINE 27-JUL-1984 Fiche 5 Frame C6 Seguence 891 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T, Pa; 
SET DEFAULTS SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYSO.SYSMAINT3DEBUG.MAR;; 



07 62 
00000000' EF 

07 62 
00000000' EF 

07 62 
OOOOOOOO'EF 



07 62 

00000054 «EF 
07 62 

0000005V EF 
07 62 

00000054'EF 



le 13 
155(10) 



11 
08 
10 
OA 
12 
10 



OD 
01 
OE 
02 
OF 
OA 



E1 
DO 
E1 
DO 
E1 
DO 



E1 
DO 
E1 
DO 
E1 
DO 



05 



001 D 

001 D 

001 D 

001 D 

001 D 

001 D 

001 D 

001D 

0021 

0028 

002C 

0033 

0037 

003E 

C03E 

003E 

003E 

003E 

003E 

003E 

003E 

0042 

0049 

004D 

0054 

0058 

005F 

005F 

005F 

005F 

005F 

005F 

005F 



422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 



VRSETDFLTu 



FIRST, CHECK RADIX FLAGS AND SET DEFAULT TO SPECIFIED VALUE 
(If MORE THAN ONE SPECIFIED, USE MAXIMI2ED VALUE) 



10$ 
20$ 
30$ 



BBC #CLI$V 0CT,CLI$L_FLAGS(R2) JOS 

MOVL #8,L A D5$GL_RADIX ; YES, 

BBC tfCLISV DECCLISL FLAGS (R2), 20$ 

MOVL #10,L A BS$GL RADlH ; YES, 

BBC #CLI$V HEX,CLI$L FLAGS(R2) ,30$ 

MOVL #16,L A PS$GLJW)l5i ; YES, 



; OCTAL ? 
SET DEFAULT 
; DECIMAL ? 
SET DEFAULT 
; HEX ? 
SET DEFAULT 



HERE, CHECK SIZE FLAGS AND SET DEFAULT TO SPECIFIED NUMBER OF 
BITS (If MORE THAN ONE SPECIFIED, USE MAXIMIZED VALUE) 



40$ 
50$ 
60$ 



BBC 

MOVL 

BBC 

MOVL 

BBC 

MOVL 



#CLI$V BYTE,CLI$L.FLAGS(R2),40$ ; BYTE ? 
#1,L A DFLTSIZE ; YES- SET SIZE IN BYTES 

*CLI$V WORD,CLJ$LJLAGS(R2),50$ ; WORD ? 
#2,L A DFLTSIZE ; YES. SET SIZE IN BYTES 

*CLI$V LONG,CLI$L.FLAGS(R2),60$ ; LONGWORD ? 
#4,L A DFLTSIZt ; YES, SET SIZE IN BYTES 



[123 
[123 
[123 

[123 
[123 



[123 
[123 
[123 
[123 
C123 



RETURN 



RS8 



; RETURN 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



SHOW DEFAULTS SUBROUTINE 27-JUL-1984 Fiche 5 Frame D6 Sequence 892 

* V EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-01 Pa< 

SHOW DEFAULTS SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINT3DEBUG.MAR;; 



ie 14 
55(11) 



0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
C060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 



456 
A57 
458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 



+ + 



.SBTTL SHOW DEFAULTS SU8R0UTINE 
FUNCTIONAL DESCRIPTION: 

Show the current default size and radix 
CALLING SEQUENCE: 

BS8W VRSHOWDFLT 
JSB VRSHOWDFLT 

INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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07 



52 


00000000' EF 




52 10 




09 


50 


00000058'EF 




15 




52 OA 




09 


50 


00000064 'EF 




07 


50 


0000006C* EF 


52 


00000054'EF 




52 OA 




09 


51 


00000072' EF 




15 




52 02 




09 


51 


0000007B'EF 




07 


51 


00000080'EF 



51 

50 

0000002D'EF 

00000000'9F 03 

07 



0060 

0060 

0060 

0060 

BB 0060 

0062 

0062 

0062 

0062 

DO 0062 

D1 0069 

12 006C 

9E 006E 

11 0075 
D1 C077 

1 2 007A 
9E 007C 

11 0083 
9E 0085 

008C 
DO 008C 
D1 0093 

12 0096 
9E 0098 

11 009F 
D1 00A1 

12 00A4 
9E 00A6 
1 1 OOAD 
9E OOAF 

00B6 

00B6 

0086 

00B6 

0086 

0086 

DD 0086 

DD O0B8 

9F 008A 

F8 OOCO 

BA 00C7 

05 00C9 



493 VRSHOWDF 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 10$: 

508 

509 

510 

511 20$: 

512 30$: 
513 

514 

515 

516 

517 

518 40$: 

519 

520 

521 

522 50$: 

523 60$: 
524 

525 
526 
527 
528 



529 
530 



LT:: 

First, save RO, R1, and R2. 
PUSHR # A M<R0,R1,R2> 



Put the FMT for the radix in RO, 
the FMT for the size in R1. 



MOVL L A DS$GL,RADIX, R2 

CMPL #16, R2 

BNEQ 10$ 

MOVAB L A FMT_HEX, RO 

BR8 30$ 

CMPL #10, R2 

BNEQ 20$ 

MOVAB L A FMT_DEC, RO 

BRB 30$ 

MOVAB L A FMTJ3CT, RO 

MOVL L A DFLTS1ZE, R2 

CMPL #4, R2 

BNEQ 40$ 

MOVAB L A FMT.LONG, R1 

BRB 60$ 

CMPL #2, R2 

BNEQ 50$ 

MOVAB L A FMT WORD, R1 

BRB 60$ 

MOVAB L A FMT_BYTE, R1 



Print the size and radix. 

$DS PR1NTF_S L A FMT_DFLT_OUT, - 

RO, R1 

PUSHL R1 

PUSHL RO 

PUSHAB L A FMT,DFLT OUT 

CALLS #$$N, a#DS$PRINTF 
POPR # A M<R0,R1,R2> 
RSQ 



Store the radix in R2 

Hexadecimal? 

If not, branch 

Stor * format for hex 

Decimal ? 

If not, branch 

Store format for decimal 

Must be octal 

Store the size in R2 

Longword? 

If not, branch 

Store format for long 

Word? 

If not, branch 

Store format for word 

Store format for byte 



; Print in this format 
Size and radix 



Restore registers 
Return to caller 



te 15 
!55<12> 

[133 
[13] 

[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[133 
[13] 
[13] 
C13] 
[13] 
[13] 
[133 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 
[13] 



[13] 
[13] 
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OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
COCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 
OOCA 



532 
533 
534 
535 
536 
537 
538 
539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 



.SBTTL EXAMINE MEMORY AND REGISTERS SUBROUTINE 
++ 
FUNCTIONAL DESCRIPTION: 

LOCATES AND DISPLAYS SPECIFIED MEMORY OR GENERAL REGISTERS 
TO THE OPERATOR IN THE SPECIFIED RADIX OR ASCII. 
ALL SUPERVISOR OVERHEAD (I.E., STACK 8 REGISTER USAGE) 
IS TRANSPARENT TO THE OPERATOR. 

CALLING SEQUENCE: 

BSBW VREXAMINE 

INPUT PARAMETERS: 

R2 = BASE OF CLI DATA FRAME. 

CLI$L FLAGSCR2) ; RADIX/SIZE SPECIFIERS 

CLI$LlADDRESS(R2) ; ADDRESS SPECIFIER 

IMPLICIT INPUTS: 

(AP) = BASE ADDRESS OF PROGRAM REGISTER CONTEXT 
DS$GL RADIX ; DEFAULT RADIX 

DFLTSTZE ; DEFAULT SIZE IN BYTES 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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OOCA 


00F8 8F 


BB 


OOCA 


0679 


30 


OOCE 
00D1 
00D1 


53 18 A2 


DO 


00D1 
00D5 
00D5 
00D5 
00D5 
00D5 
00D5 


1B 62 14 


E1 


00D5 


10 53 


D1 


00D9 


10 


1B 


CODC 
OODE 
OODE 


0OOOOOF9*EF 


9F 


OODE 


00000000* 9F 01 


FB 


00E4 


OODO 


31 


OOEB 
OOEE 


53 6C43 


DE 


OOEE 


OB 


11 


OOF 2 
00F4 


07 62 1A 


EO 


OOF 4 


53 00000058'EF 


CO 


OOF 8 
OOFF 
OOFF 










OOFF 






OOFF 






OOFF 


54 04 


DO 


OOFF 


1F 62 OF 


EO 


0102 


06 62 14 


E1 


0106 


10 18 A2 


D1 


010A 


15 


13 


010E 
0110 


5s 02 


DO 


0110 


OE 62 OE 


EO 


0113 


54 01 


DO 


0117 


07 62 OD 


EO 


011A 


54 00000054'EF 


DO 


011E 
0125 



575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 



VREXAMINE:: 

PUSHR 
BSBW 



#*M<R3,R4,R5,R6, R7> 
RBREAK..OUT 



10$: 



MOVL CL1$L_ADDRESS(R2),R3 



SAVE SOME REGISTERS 
REMOVE ALL BREAKPOINTS 



Get address for examine 



First, determine where specified item is: if it is an internal CPU 
register, special handling is required; but external registers are 
available in memory. 



BBC *CL1$V REG,CLI$L_FLAGS(R2>,20$ ; Branch if not register 

CMPL R3,#16 """~~ * 

BLEQU 15$ 



REG ADR EXCEED 
Out of range 



'PSL 



$ds pr1ntf s l a fmtinvldreg 
puShab l a fmtinvldreg 
calls #$$n, mds$printf 
vrexaminex 



COMPLAIN ABOUT REGISTER NAME 



CI 23 



15$: 



BRW 

MOVAL 
BRB 

BBS 
ADDL2 



AND EXIT 

Locate saved register 
Continue 



(AP)CR3D,R3 
30$ 

*CLI$V PREG t CLl$L.FLAGS(62),30$ ; Branch if not memory 
L*BASEflDDRESS,R3 ; Compute memory address 



592 

593 

594 

595 

596 

597 20$: 

598 

599 30$: 

600 

601 ; + 

602 ; DETERMINE SIZE OF ITEM, USE DEFAULT IF NOT SPECIFIED. 

603 ;- 

604 

605 

606 

607 

608 

609 40$: 

610 

611 

612 

613 

614 

61 S 80$: 



[123 



MOVL 

BBS 

BBC 

CMPL 

BEOL 

MOVL 

BBS 

MOVL 

BBS 

MOVL 



*4,R4 ; ASSUME 

*CLI$V_LONG,CLI$L FLAGS (R2>, 80$ 
#CLI$V REG,CLI$L FLAGS(R2),40$ 
CLI$L.ADDR£S$<R27,*PSLREG 
80$ 

*2,R4 ; ASSUME 

#CLI$V W0RD,CLI$L_ FLAGS (R2), 80$ 
#1,R4 ; ASSUME 

*CLI$V BYTE,CLI$L_FLAGS(R2),80$ 



LONGWORD 
LONGWORD SPECIFIED ? 
Skip if not register examine 
Is the register the PSL? 
If so, ignore data type switches 



L A DFLTSIZE,R4 



WORD 
WORD 

BYTE 
BYTE 



SPECIFIED ? 
SPECIFIED ? 



ELSE U§E DEFAULT SIZE 



C123 
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ie 18 
55(15) 



H 62 



000007C3'EF 



OF 



54 

55 

OOOOFEOO'FT 

00000000* EF 

QOOQOOOO'EF 01 

64 



1A 
7E 

6E 
63 
54 
03 
55 
2F 
01 
01 
1C 



06 6E 



7E 
1A 
8E 
OA 
03 
0824 



55 



1F 



50 



51 
50 

18 62 1A 
000001 D1'EF 



53 

50 

000001E4'EF 

OOOOOOOO'EF 03 

0030 

36 



30 



OOOOOOFF 



08 
10 



OF 
8F 



62 



18 



62 



18 
18 



EO 
D4 

9F 
9F 
DD 
FB 
8ED0 
11 
DO 
DO 
E1 
9F 
FB 
11 

DC 
EO 
D4 
BC 
11 
30 

DO 
E8 
E1 
9E 

DD 
DD 
9F 
FB 
31 
10 



18 A2 



A2 
29 
14 

A2 
1F 

OE 
1A 

A2 
OF 
A2 
04 
54 



D5 
13 
E1 
D1 
13 
11 
E1 
D1 
13 
D6 
11 
CO 



0125 

0125 

0125 

0125 

0125 

0129 

01 2B 

01 2B 

01 2D 

012F 

0131 

0138 

01 3B 

01 3D 

0140 

0143 

014B 

0151 

0158 

01 5A 

01 5A 

015C 

0160 

0162 

0164 

0166 

0169 

0169 

016C 

016F 

0173 

01 7A 

01 7A 

017C 

01 7E 

0184 

01 8B 

018E 

0190 

0190 

0190 

0190 

0190 

0190 

0190 

0190 

0193 

0195 

0199 

019D 

019F 

01A1 

01A5 

01AD 

01AF 

0182 

0184 



617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 



EXTRACT THE TARGET ITEM FROM MEMORY 



83$: 



85$: 



637 
638 
639 
640 
641 



642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 



30000$: 
30001$: 

86$: 



BBS 
CLRL 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

POPL 

BR8 

MOVL 

MOVL 

BBC 

PUSHAB 

CALLS 

BR8 

CMK 

MOVPSL 

BBS 

CLRL 

CHMK 

BRB 

BS8W 

MOVL 
BLBS 
BBC 
MOVAB 



#CLI$V PREG,CL1$L_FLAGS(R2),83$ ; If internal reg exam, do it 
"-* SPACE FOR DATA 



-<SP) 



(SP) 

(R3) 

R4 

#3,FETCH_STQRE 

R5 

86$ 

#1,R4 

#1,R5 

#DSA$V USER, 

L A T EMESSG1 

*1,BS$PRINTF 

VREXAMINEX 

SGIPR 

-(SP) 

#PSL$V_IS, (SP), 

(SP) + 

#CMK$ SGIPR 

300011 

CMK$S6IPR 

R1.R5 

R0,100$ 



WHERE TO STORE CURRENT CONTENTS 
AND WHERE TO FETCH IT FROM 
NUMBER OF BYTES TO SHOW 
READ THE NECESSARY BYTES 
Get data into R5 
Continue 

In case NEXT used, increment by 1 
CMK$SGIPR code for EXAMINE function 
L A DSA$GL_FLAGS, 85$ ; User mode? 

; User mode error message 

; Type it 

; Leave this place 

; Store/Get IPR value via CHMK trap 



[12] 



30000$ 



Get 
Jy 



90$: 
100$: 



$PRINTI_S 

PUSHL 



BRW 
BSBB 



#CLl$V"PREG,CLI$L..FLAGS(r2)*9 



the value 
e it, if no 

0$ ; Exit 



into R5 
error 
if not IPR 



function 



T PREGREAD,RO " ; Set up for IPR read access error 

L*FMT„BADPREG,R0,R3 ; Type error 

R3 
PUSHL RO 

PUSHAB L A FMT„BADPREG 
CALLS *$$N, DSX$PRINTI 
VREXAMINEX ; Exit routine 

VRTYPEXAMINE ; Type out value 



[123 
[123 



If NEXT is not zero, decrement it and loop back for next item, unless 
examining registers and PSL has just been displayed, or examining IPRs 
and P255 has just been displayed. 



110$: 

120$: 
130$: 



TSTL 

BEQL 

BBC 

CMPL 

BEQL 

BRB 

BBC 

CMPL 

BEQL 

INCL 

BRB 

ADDL2 



items displayed? 
registers 



CLI$L NEXTCR2) ; All specified 
VREXAMINEX : Yes x exit 

#CLI$V REG,CLI$L„FLAGS(R2),110$ ; Skip if not 
CLI$L ADDRESS(R2l,#PSLREG ; Pointing at PSL? 
VREXAMINEX ; Yes, time to exit 

120$ ; Increment ragister-style 

&2),130$ ; Skip if not IPRs 
; Pointing at top IPR? 



#CU$V PREG,CLI$L_FLAGS( 
CL1$L ADDRESS<R2),*255 



VREXAMINEX 
CLI$L„ADDRESS(R2) 
140$ 
R4,CLI$LJ\DDRESS(R2) 



Yes, 

Bump 
Skip 
Bump 



time to 
to next 
to loop 
to next 



exit 
register 
back 
data item 



... 
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30 A2 


D7 


01B8 


663 140$: DECL 


FF13 


31 


01BB 


664 BRW 






01BE 


665 






01BE 


666 ; + 






01BE 


667 ; Return 






01BE 


668 ;- 






01BE 


669 






01BE 


670 VREXAMINEX: 


05BA 


30 


01BE 


671 BSBW 


00F8 8F 


BA 


01C1 


672 POPR 




05 


01C5 


673 RSB 



CLI$L_NEXT<R2) 
10$ 



; Count this item 
; Do it all again 



RBAEAKJN 
# A M<R3,R4,R5,R6,R7> 



; Re-insert breakpoints 
; Restore registers 
; Return 
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OOCO 8F BB 



0000007A I EF 
2A 
56 
26 
56 
1E 



62 
62 
62' 



4C 
5A 
4F 



8F 
12 
8F 
10 
8F 
11 



56 4F 8F 

08 00000000' EF 

11 

56 5A 8F 

OA 00000000' EF 

04 

56 58 8F 



90 
EO 
90 
EO 
90 
EO 

90 
D1 
13 
90 
D1 
13 
90 



00000079 , FF 56 90 



01C6 
01C6 
01C6 
01C6 
01C6 
01C6 
0U6 
01C6 
01 CA 
OKA 
01D2 
01D6 
01DA 
01DE 
C1E2 
01E6 
01E6 
01EA 
01F1 
01F3 
01F7 
01FE 
0200 
0204 
0204 



675 .SBTTL 
676 

677 : + 
678 
679 
680 

681 VRTYPEXAMINE: 
PUSHR 



VRTYPEXAMINE Type out location EXAMINED 



DETERMINE DISPLAY RADIX TO BE USED, DEFAULT IF NOT SPECIFIED. 
(CONSTRUCT A CONTROL STRING FOR "FAO") 



682 
683 
684 
685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 140$: 

698 

699 150$: 



MOVB 

BBS 

M0V8 

BBS 

MOVB 

BBS 

MOVB 
CMPL 
BEQL 
MOVB 
CMPL 
BEQL 
MOVB 

MOVB 



# A M<R6,R7> 

# A A M L M ,L A FMTDIRECTIVE+10 

#CLI$V HEX,CLI$L FLAGS(R2> ,140$ 

# a A'Z':r6 

#CLI$V_DEC,CLI$L_FLAGS(R2) ,150$ 

# A A'0\R6 

*CLI$V OCT,CLI$L_FLAGS(R2),150$ 



SET UP FOR ADDRESS CONVERSION [123 

BRANCH IF HEX SPECIFIED 

SETUP FOR DECIMAL 

BRANCH U DECIMAL SPECIFIED 

SETUP OCTAL 

BRANCH IF OCTAL SPECIFIED 



# A A'0',R6 

L A PS$GL_RADIX,*8 

150$ 

# A A'Z\R6 

L A DS$GL RADIX, 010 

150$ " 

# A A M X M ,R6 

R6,L A FMTDIRECTIVE+9 



SETUP OCTAL 

OCTAL DEFAULT ? 

YES, USE IT 

SETUP DECIMAL 

DECIMAL DEFAULT ? 

YES, USE IT 

OTHERWIZE USE HEXIDECIMAL 

INSERT DIRECTIVE BYTE 



[123 
C12] 

C12D 
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020B 






020B 






020B 






020B 






020B 


0000007B'EF 20 


DO 


0208 


0000007F , EF 00000083* EF 


DE 


0212 
021D 


00000107'EF 63 


DE 


021D 


57 18 A2 


DO 


0224 


17 62 14 


E1 


0228 


00000079 , EF 4341 8F 


BO 


022C 


00000107 f EF QO00026E'EF47 


DO 


0235 


27 


11 


0241 


23 62 1A 


E1 


0243 


0000007F'FF 50 8F 


90 


0247 


0000007F'EF 


D6 


024F 


0000007B , EF 


D7 


0255 


0000007A'EF 42 8F 


90 


025B 


00000107'EF 57 


DO 


0263 
026A 
026A 


00000000' GF 000000F3'EF 


FA 


026A 


0000007B'EF 0000007D'EF 


A2 


0275 


57 0000007D'EF 


3C 


0280 


0000007F' EF 57 


CO 


0287 
028E 


0000007F f FF 093A 8F 


BO 


028E 


0000007F'EF 02 


CO 


0297 


0000007B'EF 02 


A2 


029E 



701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 
724 
725 
726 
727 
728 
729 



CONVERT ADDRESS 
AND INSERT INTO 



(REGISTER OR MEMORY) OF ITEM 10 ASCII 

OUTPUT BUFFER, FOLLOWED BY SYNTACTICAL SEPARATORS. 



MOVL 
MOVAL 

MOVAL 
MOVL 
BBC 
MOVW 
MOVL 
BR8 
1 70S: BBC 
MOVB 
INCL 
DECL 
MOVB 
MOVL 

200$: $FA0LJ5 

SUBW2 

MOVZWL 

ADDL2 

MOVW 

ADDL2 

SUBW2 



#EXAMSIZE,L A EXAMQWDBUF 
L A EXAMBUFFER,L A EXAMQWDBUF+4 

(R3),L A FA0ARG 

CLISL ADDRESS(R2),R7 

#CLiSV REG, CLISL FLAGS(R2) ,170$ 

# A A"AC r \L A FMTDIRECTIVE+9 

L A REGNAMLST[R7J,L A FA0ARG 

200$ 

#CLI$V PREG, CLISL FLAGS(R2), 200$ 

# A A , 'P , 7aL A EXAMQWDBUF+4 

L A EXAMQWDBUF+4 

L A EXAMQWDBUF 

# A A'B M ,L A FMTDIRECTIVE+10 

R7,L A FA0ARG 

L A FAOLST 
CALLG L A FAOLST,G A SYS$FAOL 
L A EXAMGWDBUF+2,L A EXAMQWDBUF 
L A EXAMQWDBUF+2,R7 
R7,L A EXAMQWD8UF+4 

/TA*: \aL A EXAMQWDBUF+4 

#2,EXAMQWDBUF+4 

#2,EXAMQWD8UF 



SET 
SET 



UP 
UP 



BUFFER 
BUFFER 



CHAR. COUNT 
POINTER 



SET 
Get 



ADDRESS TO CONVERT 
address for conversion 
Branch if not external reg 
YES, SET TO COPY A STRING 
STRING ADDRESS FOR FAO 



reg. 



[123 
[12] 

[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 
[123 



Branch if not internal 
Move a "P" into output 
Update buffer avail, address 
Update buffer avail, byte count. [1 
Set for byte edit in radix [123 
Point FAO to the register name. [12 



CONVERT ADDRESS TO ASCII [123 

ADJUST BUFFER DESCRIPTOR [123 

(BY NUMBER INSERTED) [123 

TO REMAINING BYTES [123 

STORE <:<TAB» AFTER NUMBER [123 
UPDATE AVAILABLE ADDRESS 
SHORTEN AVAILABLE LENGTH 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



900 



L 6 
VRTYPEXAMINE Type out Location EXAMINE a d 27-JUL-198A , no Fjche 5 Frame L6 Sequence 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T .£ a 9? C /??% 
VRTYPEXAMINE Type out Location EXAMINED 23-JUL-1984 16:22:51 DMA1 iCSYS0.SYSMAINT3DEBUG.MAR;255<17> 



0O00OOA3'EF 

0*5 62 13 

008C 



12 
57 



62 
01 



42 



57 57 

02 

57 4C 
00000079*EF 
0000007A'EF 
00000107'EF 



1A 
8F 
54 
OD 
8F 
54 
04 
8 r 
56 
57 
55 



00000000'GF 000000F3'EF 
57 OOOOOO/VEF 
0000007B'EF 57 
0000007F'EF 57 



37 62 14 

10 18 A2 

31 



00 
00 
00 
00 
00000239'EF 
00000239 , EF 

00000050 Sf 

000000A3 'EF 

000001 F8'EF 

55 

1F 

00000000' 9F 08 

3F 



94 
E1 
31 

EO 
90 
D1 
13 
90 
D1 
13 
90 
90 
90 
DO 

FA 
3C 
A2 
CO 



E1 
D1 
12 



DD 
DD 
DD 
DD 
DF 
DF 
DD 
9F 
9F 
DD 
DD 
FB 
11 



02A5 

02A5 

02A5 

02A5 

02A5 

02AB 

02AF 

02B2 

02B2 

0286 

02BA 

02BD 

02BF 

02C3 

C2C6 

02C8 

02CC 

02D3 

02DA 

02E1 

02E1 

02EC 

02F3 

02FA 

0301 

0301 

0301 

0301 

0301 

0301 

0305 

0309 

0308 

0308 

030B 

030D 

030F 

0311 

0313 

0319 

031F 

0325 

0328 

0331 

0333 

0335 

033C 



731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 



IF ITEM IS NUMERIC, CONVERT IT TO ASCII INTO OUTPUT BUFFER. 



199$: 



300$: 
330$: 



CLR8 

B8C 

BRW 

BBS 

MOVB 

CMPL 

BEQL 

MOVB 

CMPL 

BEQL 

MOVB 

MOVB 

MOVB 

MOVL 

SFAOL^G 

MOVZWL 

SU8W2 

ADDL2 



L A PSL8UFFER ; ERASE ANY PREVIOUS MNEMONICS 

#CLI$V ASCII, CLI$L_FLAGS(R2),199$ ; Skip branch, if ASCII 
400$ " ; Branch if not ASCII 



#CLI$V PREG,CLI$L 

# A A"B"7R7 

R4,#1 

330$ 

# A A'V,R7 

R4,#2 

336$ 

#*A"L M R7 

R6,L A FMTDIRECTIVE 

R7,L A FMTDIRECTIVE 

R5,L A FA0ARG 

L A FAOLST 
CALLG L A FAOLST, 
L A EXAMQWDBUF+2,R? 
R7,L A EXAMQWDBUF 
R7,L A EXAMQWDBUF+4 



FLAGS(R2),300$ ; Always Longword, 
SELECT BYTE OUTPUT 
SIZE = BYTE ? 
YES, USE IT 
YES, SELECT DIRECTIVE 
SIZE = WORD ? 
YES, USE IT 
Use longword form 



if IPR 



[123 
C12D 
[12] 

[12] 



+9 ; RADIX 10 DIRECTIVE STRING 
+10 ; SIZE TO DIRECTIVE STRING 
DATA ITEM FOR FAO 
CONVERT ITEM TO ASCII 
G A SYS$FAOL 

GET COUNT OF BYTES INSERTED 
ADJUST BUFFER DESCRIPTOR 
UPDATE ADDRESS 



[12] 
[12] 
[12] 
[12] 

[12] 
[12] 
[12] 



AND IF ITEM IS •PSL', CONVERT ITS CONTENTS TO A MNEMONIC STRING. 

BBC #CLI$V REG,CLI$L FLAGS(R2) ,350$ ; BRANCH IF NOT REGISTER 
CMPL CLISL flDDRESS(R2T,#PSLREG ; REGISTER = "PSL" ? 
BNEQ 350$ " ; NO, SO SKIP OUT 

$DS CVTREG S #31 ,R5,L A APSLMNE,L A PSLBUFFER,#PSLBUFSZ, - ; CNVRT TO MNCS [123 
"MODELST, MODELST ; INCLUDING ACCESS MODE MNEMONICS 

PUSHL #0 

PUSHL #0 

PUSHL #0 

PUSHL #0 

PUSHAL MODELST 

PUSHAL MODELST 

PUSHL #PSLBUFSZ 

PUSHAB L A PSLBUFFER 

PUSHAB L A APSLMNE 

PUSHL R5 

PUSHL #31 

CALLS #11, 5)#DS$CVTREG 

410$ 



764 350$: BR8 



SKIP TO DISPLAY 



ZZ-ENSAA-7,0 

DEBUG 
07-15 



M 6 
VRTYPEXAM1NE Type out location EXAMINE' d 27-JUL-1984 , no /jche 5 c Frame M6 l ,A 7 s S9 uence 901 D , 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-01 Pa« 

VRTYPEXAMINE Type out Location EXAMINE'd 23-JUL-1984 16:22:51 DMA1 :CSYSO,SYSMAINTJDEBUG.MAR;, 



ie 23 
155(18) 



56 54 

50 
51 



01 
55 
6E 
7E 



55 
56 
50 
54 
0000007B'EF 
61 

ooooohs'ef 



00000000' GF 

51 

00000078 , EF 
0000007F ( EF 



0? 
51 
51 
8E 
51 
51 



0000007B'EF 20 
QQ00007F , EF 



OOOQOO?B'EF 
00000083' EF 



000000A3'8F 
0000007B'8F 
00000128 f EF 

00000000'9F 03 
OOCO 8F 



78 
DD 
9E 
DE 



DD 
DD 
DD 
DD 
1? 
3F 
7F 
FB 
8ED0 
3C 
D4 
A2 
AO 



A3 
DE 



DD 
DD 
9F 
FB 
BA 
C5 



033E 

033E 

033E 

033E 

033E 

033E 

033E 

0342 

0344 

0347 

034A 

034A 

034A 

034A 

C34C 

034E 

0350 

0352 

0358 

035A 

0360 

0367 

036A 

036D 

036F 

0376 

037D 

037D 

037D 

037D 

037D 

037D 

0389 

0394 

0394 

0394 

0394 

039A 

03A0 

03A6 

03AD 

0381 



766 
767 
768 
769 
770 
771 
112 
111 
77k 
115 
lit 
111 
778 



ASCII 
as ". 



400$: 



779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 



794 
795 



examine. Print the data in !AF 
"> and follow by hex printout. 



ASHL #1,R4,R6 

PUSHL R5 
MOVAB (SP) f R0 
MOVAL -(SP),R1 
$FAO S l/FMTEXAM ASCII, <R1>,- 
L A EXAMQWBeUF,- 
R4,R0,R6 t R5 

PUSHL 

PUSHL 

PUSHL 

PUSHL 

PUSHAQ 

PUSHAW 

PUSHAQ 

CALLS 
POPL R1 
MOVZWL R1.R1 
CLRL (SP)+ 
SUBW2 R1,L A EXAMQWDBUF 
ADDW2 R1,L A EXAMQWDBUF+4 



format (non-printing characters appear 



Calculate ft hex digits to type 
Make data available in memory 
For convenience, point to it 
Allocate a Longword 
Format for typeout 



C12] 
CI 2D 



u,i 

R5 

R6 

RO 

R4 

L A EXAMQWD8UF 

(R1) 

L A FMTEXAM ASCII 

#$$T2,G A SVS$FAO 



Get returned length 
Clear upper word 
De-allocate temporary 
Cut buffer size 
Increase buffer address 



C12] 

C12] 



THEN PRINT THE OUTPUT BUFFER(S). 



410$: SU8W3 L A EXAMQWDBUF ,*EXAMSIZE ,L A EXAMQWD8UF 
MOVAL L A EXAMBUFFER,L A EXAMQWDBUF+4 ; SET UP 
$DS PR1NTF S L A FMTEXAM, - 

#ERAMQWDBUF, - 

*PSLBUFFER 

PUSHL 0PSLBUFFER 

PUSHL JEXAMQWDBUF 

PUSHAB L A FMTEXAM 

CALLS *$$N, a#DS$PRINTF 

tf A M<R6,R7> 



SET UP STRING LENGTH 
BUFFER POINTER 



Address and contents 
Register Mnemonics 



L12] 

[12] 
[12] 



POPR 
RS8 



Restore 
Return 



registers 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



N 6 

DEPOSIT MEMORY AND REGISTERS SUBROUTINE 27-JUL-1984 F jche 5 Frame N6 Sequence 902 

EXAMINE. DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 1 5 : 1 3 ; 56 VAX-11 Macro V03-0f Pa. 
DEPOSIT MEMORY AND REGISTER 23-JUL-1984 16:22:51 DMA1 :[SYS0.SYSMAI\T3DEBUG.MAR;i 

.sbt:l deposit MEMORY AND REGISTERS SUBROUTINE 

FUNCTIONAL DESCRIPTION: 

LOCATES AND MODIFIES MEMORY OR GENERAL REGISTERS AS SPECIFIED 

BY THE OPERATOR. 

ALL SUPERVISOR OVERHEAD (I.E.. STACK & REGISTER USAGE) 

IS TRANSPARENT TO THE OPERATOR. 

CALLING SEQUENCE: 

BS8W VRDEPOSIT 

INPUT PARAMETERS: 



ie 24 
•55(20) 



0382 


798 


03B2 


799 


03B2 


800 


03B2 


801 


03B2 


802 


03B2 


£03 


03B2 


804 


03B2 


805 


03B2 


806 


03B2 


807 


03B2 


808 


03B2 


809 


0382 


810 


03B2 


811 


C3B2 


812 


0382 


813 


0382 


814 


03B2 


815 


0382 


816 


03B2 


817 


03B2 


818 


0382 


819 


0382 


820 


03B2 


821 


0382 


822 


0382 


823 


03B2 


824 


0302 


825 


0382 


826 


0382 


827 


0382 


828 


03B2 


829 


0382 


830 


0382 


831 


03B2 


832 


0382 


833 


0382 


834 


0382 


835 


03B2 


836 


0382 


837 


0382 


838 


0382 


839 



R2 



= BASE OF CLI DATA FRAME. 



CLiSL FLAGS(R2) 
CLISL ADDRESS(R2) 
CLI$L"DATA(R2) 



SIZE SPECIFIERS 
ADDRESS SPECIFIER 
ITEM TO BE STORED 



IMPLICIT INPUTS: 



(AP) = BASE ADDRESS OF PROGRAM REGISTER CONTEXT 
DFLTSIZE ; DEFAULT SIZE IN BYTES 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

(AP) = BASE ADDRESS OF PR^~RAM REGISTER CONTEXT (MODIFIED) 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



B 7 
DEPOSIT MEMORY AND REGISTERS SUBROUTINE 27-JUL-19I 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT i 
DEPOSIT MEMORY AND REGISTERS SUBROUTINE i 



[4 Fiche 5 Frame B? Seguence 903 

7-JUL-1984 15:13:56 VAX-11 Macro V03-57 „ Pa 9§ r i5v 
'3-JUL-1984 16:22:51 DMA1 :CSYS0,SYSMAINTJDEBUG.MAR;255<21 ) 



18 
53 18 A2 



1B 62 
10 



14 
53 
10 



000000F9'EF 

00000000'9F 01 

00D9 



53 



6C43 
OB 



53 



07 62 1A 
00000058'EF 



54 

15 62 

54 
OE 62 

54 
07 62 
54 00000054'EF 



BB 



DO 



E1 
D1 
1B 



9F 
FB 
31 

DE 
11 

EO 
CO 



04 


DO 


OF 


EO 


02 


DO 


OE 


EO 


01 


DO 


00 


EO 


EF 


DO 



03B2 

03B2 

03B4 

Q3B4 

03B4 

03B8 

03B8 

03B8 

0388 

03B8 

03B8 

03B8 

03BC 

03BF 

C3C1 

03C1 

03C1 

03C7 

03CE 

03D1 

03D1 

03D5 

03D7 

03D7 

03DB 

03E2 

03E2 

03E2 

03E2 

03E2 

03E2 

03E2 

03E5 

03E9 

03EC 

03F0 

03F3 

03F7 

03FE 



841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 



857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 



VRDEPOSJT:: 

PUSHR #*M<R3,R4> 



10$: 



HOVL 



; SAVE SOME REGISTERS 
CLI$L_ADDRESS(R2),R3 ; Get address 



; FJRST, DETERMINE LOCATION OF ITEM SPECIFIED. IF A REGISTER, 
; IT'S STORED SOMEWHERE IN MEMORY AT THIS POINT IN TIME. 

* 

BBC #CLI$V REG,CLI$L FLAGS(R2) ,20$ : Branch if not external reg 
CMPL R3 f #16" ; REG ADR EXCEED •PSL 1 ? 

BLEQU 15$ 



$DS PRINfF S L X FMTINVLDREG 

PU5HAB L A FMTINVLDREG 
CALLS #$$N, MDS$PRINTF 
VRDEPOSITX 



15$: 

20$: 
30$: 



BRW 

MOVAL 
BRB 

BBS 
ADDL2 



(AP)CR33,R3 
30$ 



COMPLAIN ABOUT REGISTER NAME 



AND EXIT 

Calculate real address 
Continue 



C12D 



#CLI$V PREG,CLI$L FLAGS<R2),30$ ; Branch if not internal reg, 
L*BASEflDDRESS,R3 ; Add base offset if memory 



C12D 



• + 



DETERMINE SIZE OF ITEM, USE DEFAULT IF NOT SPECIFIED. 



80$: 



MOVL #4,R4 

BBS AfCLI$V fc .L0NG,CLI$L s .FLAGS(R2),80$ 

MOVL #2,R4 

BBS #CLI$V,W0RD,CLI$L^FLAGS(R2),80$ 

MOVL #1,R4 ^ _ 

BBS #CLI$V BYTE,CLI$L_FLAGS(R2),80$ 

MOVL L A DFLT5lZE,R4 



YES, SET SIZE IN BYTES 
BRANCH IF LONGWORD SPECIFIED 
YES, SET SIZE IN BYTES 
BRANCH IF WORD SPECIFIED 
YES, SET SIZE IN BYTES 
nc/, v* t BRANCH IF BYTE SPECIFIED 
; ELSE USE DEFAULT SIZE IN BYTES 



C123 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



C 7 

DEPOSIT MEMORY AND REGISTERS SUBROUTINE * 7m MTl 9 Vl , <no/ F li h ?* 5 ci Fr M$ Si m wn* S n? uenCe 90 *Q a 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15 : 13:56 VAX-11 Macro V03-0T Pa< 

DEPOSIT MEMORY AND REGISTERS SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYSO.SYSMAlNT]DEBUG.MAR;, 



ie 26 
55(22) 



10 







03FE 


879 ; + 








03FE 


880 ; INSERT THE TAI 






03FE 


881 ;- 








03FE 


882 




0349 


30 


03FE 
0401 


883 

884 


BSBW 


10 62 1A 


EO 


0401 


885 


BBS 


63 


9F 


0405 


886 


PUSHAB 


1C A2 


9F 


0407 


887 


PUSHA8 


54 


DD 


040A 


888 


PUSHL 


000007C3'EF 03 


FB 


040C 


889 


CALLS 


33 


11 


0413 


890 


BRB 


54 01 


DO 


0415 


891 90$: 


MOVL 


55 


D4 


0418 


892 


CLRL 


51 1C A2 


DO 


C41A 


893 


MOVL 


OOOOFEOO'EF 1C 


E1 


041E 


894 


BBC 


00000000' EF 


9F 


0426 


895 


PUSHAB 


00000000' EF 01 


FB 


042C 


896 


CALLS 


0074 


31 


0433 


897 


BRW 






0436 


898 95$: 


CMK 


?E 


DC 


0436 




MOVPSL 


06 6E 1A 


EO 


0438 




B8S 


8E 


D4 


043C 




CLRL 


OA 


BC 


043E 




CHMK 


03 


11 


0440 




BRB 


0548 


30 


0442 
0445 


30002$: 
30003$: 


BSBW 


55 51 


DO 


0445 
0448 
0448 


899 

900 100$: 

901 


MOVL 


01 


BB 


0448 


902 


PUSHR 


0328 


30 


044A 


903 


BSBW 


01 


BA 


044D 
044F 


904 
905 


POPR 


2B 50 


E8 


044F 


906 


BLBS 


54 62 1A 


E1 


0452 


907 


BBC 


09 50 01 


EO 


0456 


908 


BBS 


50 OOOOOIDB'EF 


9E 


045A 


909 


MOVAB 


07 


11 


0461 


910 


BRB 


50 000001DVEF 


9E 


0463 


911 110$: 


MOVAB 






046A 


912 115$: 


$PRINTI 


53 


DD 


046A 






5C 


DD 


046C 






000001E4 , EF 


9F 


046E 






OOOOOOQQ'EF 03 


FB 


0474 






2D 


11 


04 7B 
047D 
047D 


913 
914 
915 ; + 


BRB 






047D 


916 ; U "l 


VEXT" IS 






047D 


917 ; (EXCEPT WHEN 






047D 


918 ;- 








047D 
047D 


919 




30 A2 


D5 


920 120$: 


TSTL 


IF 


13 


0480 
0482 


921 
922 


BEQL 


08 62 H 


E1 


0482 


923 


BBC 


10 18 A2 


D1 


0486 


924 


CMPL 



*CL1$V_PREG,CLJ 

(R3) 

CLI$L DATA(R2) 

R4 " 

#3,FETCH_ST0RE 

100$ 

#1,R4 

R5 

CLI$L DATA(R2), 

#DSA$V USER, L A 

L A T EMFSS61 

#1 ,DS$PRJNTF 

VRDEPOSITX 

SGIPR 

-(SP) 

#PSL$VJS, (SP) 

(SP) + 

#CMK$ SGIPR 

30003J 

CMK$SGIPR 

R1.R5 



# A MRO 

RBREAKJN 
# A MRO 



; REMOVE ALL BREAKPOINTS 

$L FLAGS(R2),90$ ; If internal CPU reg, do it 

; ADDRESS TO STORE IT 

; ADDRESS OF DATA TO STORE 

; NUMBER OF BYTES TO STORE 

; STORE THOSE BYTES THERE 

; Continue 

; In case NEXT option, increment by 1 

; CMK$SGIPR code for DEPOSIT function 

R1 ; Data value to store 
DSA$GL - FLAGS, 95$ ; User mode? 

; User mode error message 

; Type it 

; Leave this place 

; Store/Get IPR value via CHMK trap 

, 30002$ 



C123 



Save read-back verify value 



SAVE RETURN CODE 
PUT BREAKPOINTS BACK 
RESTORE RETURN CODE 



R0,120$ ; Continue if no error 

#CLI$V PREG,CLI$L_FLAGS(R2>, VRDEPOSITX ; Exit if 



#1,R0,T10$ 

L A T PREGWRITE,RO 

115$ 

L A T PREGREAD,RO 

.s " 

PUSHL 



not IPR 



Was it the DEPOSIT that failed? 

Yes—set up correct error message 

Continue 

„ Error was on read-back 

L*FMT BADPREG,R0,R3 ; Type error message 
R3 " 



[12] 
[12] 
[12] 
[123 



PUSHL RO 

PUSHAB L*FMT BADPREG 

CALLS *$$N, DSX$PR1NTI 

VRDEPOSITX 



Exit routine now. 



; U M NEXT M IS NOT ZERO, DECREMENT IT AND LOOP BACK FOR NEXT ITEM. 
; (EXCEPT WHEN DEPOSITING REGISTERS AND "PSL M HAS JUST BEEN MODIFIED 



CLI$L,NEXT(R2) 
150$ 



Alt specified items displayed? 
YES, EXIT 



KLI$V REG,CLI$L FLAGS(RJ),125$ ; Skip if not registers 
CL1$L_XDDRESS(R27,#PSLREG ; POINTING AT "PSL M ? 



ZZ-ENSAA-7.0 DEPOSIT MEMORY AND REGISTERS SUBROUTINE 27-JUL-1984 Fiche 5 Frame D7 Seguence 905 

DEBUG ucruan ncnuni ^^gf ^^ v pEPOSI T # AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Pa M„2L 

07-15 DEPOSIT MEMORY AND REGISTERS SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINT]DEBUG.MAR;255<22> 

925 BEQL 150$ ; YES, THEN IT'S TIME TO EXIT 

,, __ 926 BRB 128$ ; Increment t t 

05 62 1A El 0A8E 927 125$: BBC *CLI$V PREG,CLI$L..FLAGS(R2) ,130$ ; Skip if not IPRs 

928 128$: INCL CLISL JDDRESS(R2) ; Bump to next register 

929 BRB 140$ ; AND SKIP TO LOOP BACK 
930 

18 A2 54 CO 0497 931 130$: ADDL2 R4,CLI$L ADDRESS(R2) ; BUMP TO NEXT DATA ITEM 

932 140$: DECL CLISL NE5?T(R2) ; DO ACCOUNTING 

933 BRW 10$ ; GO DO WHOLE THING AGAIN 
934 

02 62 1A EO 04A1 935 150$: BBS #CLI$V PREG,CH$L_FLAGS(R2) ,160$ ;, Branch if IPR 

936 BRB VRDEPOSlTX ; Then exit 

937 160$: BS8W VRTYPEXAMINE ; Only do display part of VREXAMINE 

938 

939 VRDEPOSlTX: 

940 POPR # A M<R3,R4> ; RESTORE REGISTERS 

941 RSB ; RETURN 



15 


13 


048A 


04 


11 


048C 


62 1A 


El 


048E 


18 A2 


D6 


0492 


04 


11 


0495 
0497 


A2 54 


CO 


0497 


30 A2 


D7 


049B 


FF13 


31 


049E 
04A1 


62 1A 


EO 


04A1 


03 


11 


04A5 


FD1C 


30 


04A7 
04AA 
C4AA 


18 


BA 


04AA 




05 


04AC 



2Z-ENSAA-7.0 

DEBUG 

07-15 



E 7 

SET BREAKPOINT SUBROUTINE 27-JUL-1984 Fiche 5 Frame E7 Seguence 906 
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04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
C4AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
04AD 
C AD 
04AD 
04AD 
OAAD 



943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 



.SBTTL SET BREAKPOINT SUBROUTINE 



+ + 



FUNCTIONAL DESCRIPTION: 

SAVES AN 'OPCODE' FROM THE SPECIFIED ADDRESS AND REPLACES 
IT WITH A BREAKPOINT CODE 

CALLING SEQUENCE: 

BS8W VRSETBRK 

INPUT PARAMETERS: 

CLISL ADDRESS(DS$GL CUBASE) 
CLJ$LlFLAGS(DS$GL w CCl8ASE) 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



ZZ-ENSAA-7.Q 

DEBUG 

07-15 



SET BREAKPOINT SUBROUTINE 27-JUL-198A Fiche 5 Frame F7 Sequence 907 

bti bKtAHKUiNi b ^MINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-198A 15:13:56 VAX-1 1 Macro V03-0T P*K *?, 

SET BREAKPOINT SUBROUTINE 23-JUL-198A 16:22:51 DMA1 :[SYS0.SYSMAINT]DEBUG.MAR;255<2A) 



07 

0298 

52 QOOOOOOO'EF 

62 17 

27 

00000058'EF 

50 18 A2 

OOFE 

31 50 

50 

OOF 6 

1A 50 

18 A2 00000058'EF 

OOOOOOIA'EFA! 



0000001 A 1 EF 



19 
18 A2 

OF 



OF 
000001 39'EF 

00000000'9F 02 



0275 
07 



BB 
30 
DE 
EA 



C1 

30 
E8 

DA 
30 
E9 
CI 



11 
DO 
11 



DD 
9F 
FB 



30 
BA 
05 



OAAD 


970 


VRSETBRK:: 


04AD 


971 


PUSHR 


OAAF 


972 


BSBW 


04B2 


973 


MOVAL 


0AB9 


974 


BBSC 


OABC 


975 




OABD 


976 




OABD 


977 


ADDL3 


0AC3 


978 




0AC6 


979 


BSBW 


0AC9 


980 


BL8S 


OACC 


981 




OACC 


982 


CLRL 


OACE 


983 


BSBW 


CADI 


98A 


BLBC 


0AD4 


985 


ADDL3 


OADC 






0AE2 


986 




0AE2 


987 




0AE2 


988 


BRB 


OAEA 


989 




CAEA 


990 


10$: MOVL 


OAEC 


991 




OAEC 


992 


BRB 


OAEE 


993 


20$: 


OAEE 


99A 


$DSJ> 


OAEE 






OAFO 






0AF6 






OAFD 


995 




OAFD 


996 


VRSETBRKX: 


OAFD 


997 


BS8W 


0500 


998 


POPR 


0502 


999 


RSB 



#*m<r0,r1, r2> ; save working registers 

rbreak out ; remove all breakpoints 
l a ds$gc cubase, r2 ; get cli argument frame base. 
^cli$v Kernel, cli$l.flags(R2) - 
,10$ ; set hidden brk if kernel req 



L*BASEADDRESS,- 
CLI$L ADDRESS(R2), RO 
FIND HPT 

ro,vRsetbrkx 

RO 

FIND aPT 

RO, 20$ 

l a baseaddress, - 

clisl address(r2), - 
l a ds$m bptaddrcr1] 
vrsetbrkx 

clisl address(r2>, - 
l a ds$aa bptaddr 
vrsetbrRx 



ADDRESS OF DESIRED BREAKPOINT 
SEE IF IT'S ALREADY THERE 
FOUND, EXIT QUIETLY 

TRY FOR AN EMPTY SLOT 
LOCATE EMPTY SLOT 
BRANCH IF NO FREE SLOTS 



STORE ADDRESS OF BPT IN TABLE 
EXIT 



[123 
C123 



SET HIDDEN BREAKPOINT 
EXIT 



ITF.S L*FMTN0BPTSLEFT,#8PTMAX 
PUSHL 0BPTMAX 
PUSHAB L A FMTNOBPTSLEFT 
CALLS #$$N, MDS$PRINTF 



NO MORE BREAK POINTS 



C123 

[12] 
[123 



[12] 
[12] 



RBREAKJN 
# A M<R0,R1,R2> 



PUT ALL BREAKPOINTS BACK IN 

RESTORE REGISTERS 

RETURN 



ZZ-EUSAA-7,0 
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07-15 
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CLEAR BREAKPOINT SUBROUTINE 27-JUL-1984 Fiche 5 Frame 67 Seguence 908 

Lt EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Pai 

CLEAR BREAKPOINT SUBROUTINE 23-JUL-1984 16:22:51 DMA! :CSYS0.SYSMAINT3DEBU6.MAR;, 

.SBTTL CLEAR BREAKPOINT SUBROUTINE 

FUNCTIONAL DESCRIPTION: 

RESTORES THE SAVED 'OPCODE 1 TO THE SPECIFIED ADDRESS, 
IF IT IS A KNOWN BREAKPOINT 

CALLING SEQUENCE: 

BSBW VRCLR8RK 

INPUT PARAMETERS: 

R2 = BASE OF CLI DATA FRAME. 
CLISL ADDRESS(R2) 
IMPLICIT INPUTS: 



ie 30 
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0503 


1001 


0503 


1002 


0503 


1003 


0503 


1004 


0503 


1005 


0503 


1C06 


0503 


1007 


0503 


1008 


0503 


1009 


0503 


1010 


0503 


1011 


0503 


1012 


0503 


1013 


0503 


1014 


C503 


1015 


0503 


1016 


0503 


1017 


0503 


1018 


0503 


1019 


0503 


1020 


0503 


1021 


0503 


1022 


0503 


1023 


0503 


1024 


0503 


1025 


0503 


1026 


0503 


1027 



CLJ$L_DATA(R2) 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



If -1, INDICATES "ALL 



1 1 



ZZ-ENSAA-7,0 

DEBUG 
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H 7 
CLEAR BREAKPOINT SUBROUTINE 27~JUl~1984 ^£he 5 Frame H7 Seguence 909 

lLt EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0? Pa, 

CLEAR BREAKPOINT SUBROUTINE 23-JUL-1984 16:22:51 0MA1 :CSYSO.SYSMAINT]DEBUG,MAR;, 



07 BB 

0242 30 

52 00000000 'EF DE 

FFFFFFFF 8F 1C A2 D1 

27 13 

50 18 A2 QQQQOOSS'EF C1 

00A2 30 

09 50 E9 

OOOOOOH'EFAI DA 

1C 11 



OOOOOODE'EF 9F 

00000000'9F 01 FB 

OD 11 



51 OF DO 

0000001A'EFA1 DA 

F6 51 F5 



0225 30 

07 BA 

05 



0503 
0503 

0508 

050F 

050F 

0517 

0519 

0519 

0522 

0522 

0525 

0528 

052F 

C531 

0531 

0531 

0537 

053E 

05A0 

05A0 

05A0 

05A3 

05AA 

05AD 

05AD 

05AD 

0550 

0552 



1029 
1030 
1031 
1032 
1033 
1C3A 
1035 
1036 
1037 
1038 
1039 
10A0 
10A1 
10A2 
10A3 
10AA 



10A5 
10A6 
10A7 
10A8 
10A9 
1050 
1051 
1052 
1053 
105A 
1055 



VRCLRBRK:: 

PUSHR 

BSBW 

MOVAL 

CMPL 
BEQL 

ADDL3 

BSBW 
BLBC 
CLRL 
BRB 



10$; 



30$: 
40$: 



# A M<R0,R1,R2> 
RBREAK OUT 
L A DS$GC..CLIBA$E, R2 

CLI$L_DATA(R2),#-1 
30$ 

L A BASEADDRESS, - 

CLISL ADDRESS(R2),R0 

FIND HPT 

RO,10$ 

L A DS$AA BPTADDRCR1D 

VRCLRBRRX 



$DS PRINTF S L A FMT8PTN0TSET 

PUSHAB L A FMTBPTNOTSET 
CALLS *$$N, 9WS$PRINTF 

BRB VRCLRBRKX 



MOVL 
CLRL 
S08GTR 



VRCLRBRKX: 

BSBW 
POPR 
RSB 



#BPTMAX,R1 

L A DS$AA BPTADDRCR1J 

R1,A0$ 



RBREAK IN 
* A M<R0,R1,R2> 



SAVE WORKING REGISTERS 
REMOVE ALL BREAKPOINTS 
BASE CLI DATA BASE 

CHECK FOR 'ALL' ARGUMENT 
YES, GO CLEAR THEM ALL 



GET SPECIFIED ADDRESS 
LOCATE IT 
NOT FOUND! 
REMOVE BREAKPOINT 
AND EXIT 

WAS NOT SET j 



EXIT 



MAX NUMBER OF BPT'S 
FREE UP THIS BREAKPOINT 
CHECK WHOLE TABLE (EXCEPT 



PUT BREAKPOINTS BACK IN 
RESTORE REGISTERS 
RETURN 
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C12] 

C123 

C12] 
[12] 



CO]) 



C12] 



ZZ-ENSAA-7.Q 

DEBUG 

07-15 
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U EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0? _ Pa. 

DSPSREMOVEBREAK Remove breakpoints 23-JUL-198A 16:22:51 DMA1 :CSYSO.SYSMAINTDDEBUG,MAR;i 
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53 







0553 


1057 






0553 


1058 






0553 


1059 






0553 


1060 






0553 


1061 






0553 


1C62 






0553 


1063 






0553 


106A 






0553 


1065 






0553 


1066 






0553 


1067 






0553 


1068 






0553 


1069 






0553 


1070 






C553 


1071 






0553 


1072 






0553 


1073 






0553 


107A 






0553 


1075 






0553 


1076 






0553 


1077 






0553 


1078 






0553 


1079 






0553 


1080 






0553 


1081 






0553 


1082 






0553 


1083 






0553 


108A 






0553 


1085 






0553 


1086 






0553 


1087 






0553 


1088 






0553 


1089 




oooc 


0553 


1090 






0555 


1091 


01F2 


30 


0555 


1092 


OOOOOOK'EF 


9E 


0558 


1093 


51 OA AC 


7D 


055F 


109A 


50 OF 


DO 


0563 


1095 






0566 


1096 


63A0 51 


D1 


0566 


1097 


09 


1A 


056A 


1098 


63A0 52 


D1 


056C 


1099 


03 


1B 


0570 


1100 


6340 


DA 


0572 


1101 


EE 50 


F5 


0575 


1102 






0578 


1103 


01FA 


30 


0578 


1104 




OA 


05 78 


1105 



.SBTTL DSPSREMOVEBREAK Remove breakpoints 



♦ i 



FUNCTIONAL DESCRIPTION: 

This routine can be called to remove breakpoints from 
a section of memory. 

CALLING SEQUENCE: 

CALLS/6 arglist,DSP$REMQVEBREAK 

INPUT PARAMETERS: 

*2 

A Lowest address of range 

8(AP) Highest address of range 

IMPLICIT INPUTS: 

DSA$AA^BPTADDR[n3 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 

Some breakpoints are removed from DSA$AA_BPTADDR. 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 



.ENTRY DSP$REM0VEBREAK, A M<R2,R3> 

BSBW RBREAK OUT 

MOVAB L A DSSA» BPTADDR ,R3 

MOVQ A(AP>,RT 

MOVL #BPTMAX,R0 

10$: CMPL R1,(R3)CR0J 

BGTRU 20$ 

CMPL R2,(R3)[R0J 

BLEQU 20$ 

CLRL (R3HR01 

20$: S08GTR R0,10$ 

BS8W RBREAKJN 
RET 



Put opcodes back in memory 

Base BPT address table 

Get low and high limits 

Get length of breakpoint table 

Compare lower with this BPT addr 
Branch if lower GTR this BPT 
Compare higher with this BPT addr 
Branch if higher LSS this BPT 
Remove the BPT 
Count and continue 

Put remaining breakpoints back 
Return 



C12; 
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oc 

53 

52 OF 
00000014*EF42 

25 

OD 53 00 

000000B2' EF 
00000000' 9F 01 



00000014^42 

0000O0A7'EF 

00000000'9F 02 

CF 52 

OD 53 



000000C9'EF 
00000000'9F 01 



OC 



057C 

057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
C57C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
057C 
BB 057C 
DA 057E 
0580 
DO 0580 
D5 0583 
13 058A 
058C 
E2 058C 
0590 
9F 0590 
F8 0596 
059D 
059D 
DD 059D 
9F 05A4 
FB 05AA 
0581 
F5 0561 
E8 05B4 
0587 
0587 
9F 05B7 
F8 05BD 
05C4 
05C4 
QA 05C4 
05 05C6 



1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 



1142 

1143 



1144 
1145 

1146 
1147 
1148 



1149 
1150 
1151 
1152 



.SBTTL SHOW BREAKPOINTS SUBROUTINE 
++ 
FUNCTIONAL DESCRIPTION: 

DISPLAYS ALL CURRENT BREAKPOINTS TO THE OPERATOR 
CALLING SEQUENCE: 

BS8W VRSHOWBRK 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: 

DS$AA_BPTADDR 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 



ARRAY OF KNOWN BREAKPOINTS 



VRSHOWBRK: : 

PUSHR 
CLRL 



10$: 



MOVL 
TSTL 
BEQL 



* A M<R2,R3> 
R3 

0BPTMAX, R2 

L A DS$AA BPTADDRCR23 

30$ 



20$: 



30$: 



BBSS #0,R3,20$ 
$DS_PRINTF S L A FMTBPTLST 

PUSHA8 L A FMTBPTLST 
CALLS #$$N, 9#DS$PRINTF 



NEED A TEMPORARY 

SO FAR NO BREAK POINTS SET 

SET UP TABLE LENGTH 

SCAN BREAKPOINT ADDRESSES 

SKIP UNTIL FOUND A VALID BPT 

IF HEADER ALREADY OUT, SKIP 
DISPLAY A SMALL HEADER 



[12] 



C12D 



$DS PRINTF S L A FMTBPTADR,L A DSSAA BPTADDRCR2] 
PUSHL L A DS$AA BPTADDRCR23 
PUSHAB L A FMTBPTADR 
CALLS #$$N, MDSSPRINTF 



DISPLAY 'PC OF BRKPNT [12D 



S08GTR R2,10$ 

BL8S R3,VRSH0WbRKX 

$DS PRINTF S L A FMTBPTNONE 
PU5HAB L A FMT8PTN0NE 
CALLS 0$$N, &0DS$PRINTF 



VRSHOWBRKX: 
POPR 
RS8 



# A M<R2,R3> 



GO TRY SOME MORE (EXCEPT [0]) 
EXIT IF THERE WERE ANY BREAKPOINTS 

•NONE CURRENTLY SET 1 



RESTORE TEMPORARIES 
RETURN 



C123 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



F1ND_BPT FIND 



BPT IN BPT 
EXAMINE, 
FIND.BPT 



TABLE 
DEPOSIT, 
FIND BPT 



912 
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51 
OOOOOOIA'EFAI 



OF DO 



50 

06 

F3 51 

50 



50 01 



D1 
13 
F5 
D4 
05 
DO 
05 



05C7 
05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

C5C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05C7 

05CA 

05CA 

05D2 

05D4 

05D7 

05D9 

05DA 

05DD 



1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 



++ 



.SBTTL FIND.BPT FIND BPT IN BPT TABLE 
FUNCTIONAL DESCRIPTION: 

Locate a specific breakpoint in the breakpoint table. 
CALLING SEQUENCE: 

BSBW FIND^BPT 
INPUT PARAMETERS: 

RO Address of desired BPT or 2ero if empty slot wanted 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: 

R1 Index of BPT entry (DS$AA,BPTADDRCxD as a LONGWORD) 
IMPLICIT OUTPUTS: NONE 
RETURN CODES: 

RO SSS..NORMAL If FOUND ELSE ZERO 
SIDE EFFECTS: NONE 



FIND BPT: 
" MOVL 

10$: 

CMPL 

BEQL 

SOBGTR 

CLRL 

RSB 

20$: MOVL 
RSB 



#BPTMAX,R1 

R0,L A DS$AA B .BPTADDR[R1J 

20$ 

R1,10$ 

RO 

0SS$_NORMAL,RO 



START AT THE TOP 

IS IT? 

YES, FOUND IT 

CONTINUE UNTIL AFTER CHECKED CI 3 

SET NOT FOUND 

RETURN NOT FOUND 

SUCCESS 

RETURN 



[12] 
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04 A1 



04 A1 







05DE 


1194 






05DE 


1195 






05DE 


1196 






05DE 


1197 






05DE 


1198 






05DE 


1199 






05DE 


1200 






05DE 


1201 






05DE 


1202 






05DE 


1203 






05DE 


1204 






05DE 


1205 






05DE 


1206 






05DE 


1207 






C5DE 


1208 






05DE 


1209 






05DE 


1210 






05DE 


1211 






05DE 


1212 






05DE 


1213 






05DE 


1214 






05DE 


1215 






05DE 


1216 






05DE 


1217 






05DE 


1218 






05DE 


1219 






05DE 


1220 






05DE 


1221 






05DE 


1222 






05DE 


1223 






05DE 


1224 






05DE 


1225 




0000 


05DE 


1226 






05E0 


1227 


0000' 8F 


3C 


05E0 


1228 


51 04 BC 


DE 


05E5 


1229 


00000000'8F 


D1 


05E9 


1230 


04 


12 


05F1 


1231 


OOOF 


30 


05F3 


1232 




04 


05F6 


1233 






05F7 


1234 


OOOOwOOO'8F 


D1 


05F7 


1235 


03 


12 


05FF 


1236 


00D2 


30 


0601 


1237 






0604 


1238 




04 


0604 


1239 



.SBTTL DEBUGGER CONDITION HANDLER 



♦+ 



FUNCTIONAL DESCRIPTION: 

This routine is the secondary condition handler. 

It is here to allow the supervisor to capture BPT and TBIT 

traps. It discards all other conditions. 

CALLING SEQUENCE: 

STANDARD PROCEEDURE CALL WITH STANDARD EXCEPTION ARGS 
INPUT PARAMETERS: 

STANDARD EXCEPTION SIGNAL AND MECHANISM ARRAYS 



IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

RETURN CODES: 

SS$ CONTINUE 
SSS'RESIGNAL 



NONE 
NONE 
NONE 



if one of our break points or T-bit. 
otherwise 



SIDE EFFECTS: 

UNKNOWN SINCE THE OPERATOR CAN CHANGE THINGS WHILE IN COMMAND MODE 
.ENTRY COND DEBUG, A M<> 



20$: 



30$: 



MOVZWL 

MOVAL 

CMPL 

BNEQ 

BSBW 

RET 

CMPL 
BNEQ 
BS8W 

RET 



#SS$ RESIGNAL.RO 
34(AP), Rl 
*SS$ BREAK, 4(R1) 
20$ *" 
DBG BREAK 



0SS$ TBIT, 4(R1) 
30$ ~ 
DBG TBIT 



ASSUME IT'S SOMETHING ELSE 

GET SIGNAL ARRAY POINTER 

IS THIS A BREAKPOINT CONDITION? 

NO, TRY T-BIT 

HANDLE IT 

RETURN 

JS THIS A T-BIT TRAP? 
NU, EXIT 
HANDLE T-BIT 

RETURN 
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0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
C605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 
0605 



1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 



+ + 



.SBTTL BREAKPOINT CONDITION SUBROUTINE 
FUNCTIONAL DESCRIPTION: 

This routine setups the context necessary and announces the break point. 
CALLING SEQUENCE: 

BSBW DBG.BREAK 
INPUT PARAMETERS: 

STANDARD EXCEPTION ARCS 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 



M 14 Main code 

N H Main code 

b 15 Main code 

C IS Main code 

D 15 Main code 

E 15 Main code 

F 15 Main code 

C) 15 Master routine 

h 15 Master routine 

I 15 *** DISPAT Diagnostic test seq 

j 15 *** DISPAT Diagnostic test seo 

K 15 *** DISPAT Diagnostic test seq 

L 15 *** DISPAT Diagnostic test seq 

M 15 *** DISPAT Diagnostic test seq 

N 15 Libraries and Symbol Definitio 

B 16 Work Declarations 

C 16 Data Declarations 

D 16 Data Dec larat ions 

E 16 Data Declarations 

F 16 Dispatch Routine 

G 16 Dispatch Routine 

H 16 Dispatch Routine 

I 16 Dispatch Routine 

J 16 Dispatch Routine 

K 16 Di=5oat:h Routine 

L 16 Dispatch Routine 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



a 3 

BREAKPOINT CONDITION SUBROUTINE 27-JUL-1984 Fiche 5 Frame B8 Sequence 916 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUM9M 15:13:56 VAX-11 Macro VO3-0J Paj 
BREAKPOINT CONDITION SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYSO-SYSMAINTJDEBUG.MAR;, 



Q4 



AE 40000010 8F 

00000068'eF 8E 

OC AO 

08 AO A8'AF 

50 00' 



03 

009D 

03 

0000001V EF 

5C 0000005CEF 
5E 0000006V fcF 
7E 00000068 , EF 
04 AE 10 
00000000' EF 01 



CA 068D 

7D 0695 

DC 069C 

9E 069F 

06A4 

DO 06A4 

05 06A7 

06A8 

06A8 

06A8 

06A8 

06A8 

06A8 

06A8 

C6A8 

06A8 

BB 06A8 

30 06AA 

BA 06AD 

DA 06AF 

7D 06B5 

DO 068C 

7D 06C3 

C8 06CA 

88 06CE 

02 06D5 



1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1238 

1339 

1340 

1341 

1342 

1343 

1344 

1345 



BICL2 
MOVO 
MOVPSL 
M0VA8 

MOVL 
RSB 



#PSL$M TP.'PSLSM TBIT,4(SP) ; MAY HAVE BEEN SET BY OPERATOR 
<SP) + ,C A NEW PC.PSL ; PC/PSL TO A SAFE PLACE 
12(R0) ** ; PUT CURR PSL ON ORIGINAL STACK 

B A 200$,8(R0) ; PUT LOCAL PC ON ORIGINAL STACK 



le 38 
I55C32) 

[123 
[123 



S A *SS$_CONTINUE,RO 



INDICATE 
RETURN TO 



"HANDLED" 
EXCEPTION 



HANDLER 



THE FOLLOWING CODE IS EXECUTED BY THE 'RET AT THE END OF THE 
EXCEPTION HANDLER. THIS FACILITATES THE MODIFICATION OF THE 
•SP', 'PC 1 & 'PSL' (BY THE OPERATOR) BEFORE CONTROL RETURNS TO 
THE DIAGNOSTIC PROGRAM, 



200$; 



PUSHR 

BSBW 

POPR 

CLRL 

MOVQ 

MOVL 

MOVQ 

9JSL 

BJS82 

REI 



# A M<R0,R1> 

RBREAK.OUT 

#*M<R0,R1> 

DSIAA 8PTADDR 

L A NEWJ\P„FP,AP 

L*NEW_SP,SP 

L*NEW PC PSL.-(SP) 

*PSL$R TBlT,4(SP) 



rfMSV.TBlT^DEBUGSGB.FLAGS : SET 

; RETURN TO 



SAVE THESE 

REMOVE BREAKPOINTS/PUT OPCODES BACK 

RESTORE THEM 

DON'T RESTORE NULL BREAKPOINT 

SET NEW AP/FP 

JAM A NEW POINTER INTO 'SP 1 

SETUP FOR REI 

SET THE T-BIT 



T-BIT EXPECTED FLAG 
PROGRAM 



[123 
C12D 
[123 
[133 
C12D 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



C 8 
TBI T CONDITION SUBROUTINE 27-JUL-1984 Fiche 5 Frame C8 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-198^ 15:13:56 VAX-11 . . --«,,,. 

TB1T CONDITION SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINT3DEBUG.MAR;255(33) 



Sequence 917 
VAX-11 Macro V03-0T Paqe 39 



06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 
C6D6 
06D6 
06D6 
06D6 
06D6 
06D6 
06D6 



1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1.160 

1361 

1362 

1363 

1364 

1365 

1366 

1367 



.SBTTL TBIT CONDITION SUBROUTINE 
FUNCTIONAL DESCRIPTION: 

CALLING SEQUENCE: 

aS8W DBG.TBIT 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES? NONE 

SIDE EFFECTS: NONE 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



918 



T8IT CONDITION SUBROUTINE 27* JUL-1984 Fiche 5 Frame D8 Seguence 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-OT Pa. 
TBIT CONDITION SUBROUTINE 23-JUL-1984 16:22:51 DMA1 .-[SYSO.SYSMAINTJDEBUG.MAR;, 



50 0000 *8F 
66 00000000*5 F 00 

008F 

00000000' EF 01 

48 

50 04 AC 

71 

08 AO 

04 

000007C3'EF 03 

50 04 AC 

08 AO 

0000Q09CEF 

00000000' 9F 03 

50 00000000' EF 

03 K AO 

FF2D 

0025 

00000000' EF 03 

50 04 AC 

OC AO 10 

OC 

50 04 BC 
OC AO 40000010 8F 

50 00000000'8F 



06D6 
3C 06D6 
E5 06DB 

06E3 

30 06E3 
06E6 

E5 06E6 
06ED 
DO 06EE 
DF 06F2 
DD 06F4 
DD 06F7 
FB 06F9 
0700 
DO C700 
DD 0704 
9F 0707 
FB 070D 
0714 
DE 0714 
F5 071B 

31 071F 
0722 

30 C722 
88 0725 
DO 072C 
C8 0730 
11 0734 

0736 
DE 0736 
CA 073A 

0742 
DO 0742 

0749 
05 0749 



1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 



D8G.TBIT; 

MOVZWL 
BBCC 

BSBW 

B8CC 



MOVL 

PUSHAL 

PUSHL 

PUSHL 

CALLS 

MOVL 
PUSHL 
PUSHAB 
CALLS 

MOVAL 

SOBGTR 

BRW 

BSBW 
BISB 
MOVL 
BISL 
BRB 

MOVAL 
BJCL 



10$: 



20$: 

30$: 
40$: 



#SS$ RESIGNAL,R0 ; PREPARE FOR NOT WANTING THIS 

WjBlT,L A DEBUG$GB_FLAGS,4Q$ ; EXIT IF NOT OUR T-BIT 



RBREAKJN 

M ST£P,L A DEBUG$GB_FLAGS 

, 20$ 

4(AP),R0 

-<SP) 

8(R0) 

*4 

#3,FETCH_$T0RE 

4(AP),R0 
8(R0) 
L*FMTSTEP 
*3,a#DS$PRINTF 

L A DS$GL CLI8ASE.R0 
CLISL D*TA<R0),10$ 
CALL.tLI 

RBREAK OUT 



4<SP),R0 
#PSL$M„TBIT, 12(R0) 
30$ 



RE-INSERT ALL BREAKPOINTS 



FINISH UP If NOT STEPPING 
GET ADDRESS OF SIGNAL ARGS 
STORE CONTENTS HERE 
CURRENT PC 
FETCH 4 BYTES 
GET CONTENTS 

GET ADDRESS OF SIGNAL ARGS AGAIN 
PUT PC ON STACK 
ADDRESS OF TEXT 
PRINT 'PC: CONTENTS' 

BASE CLI DATA 

LAST PASS 9 

ENTER COMMAND INTERPRETER 

RESTORE OPCODES 



ie 40 
(55(34) 



[123 



C123 



[123 
[123 



#M TBlT|M_STEP,L A DEBUG$GELFLAGS ; SET STEPPING AND T-BIT EXPECT [123 



'GET ADDRESS OF SIGNAL ARRAY 
SET THE T-BIT 
EXIT HANDLED 



S4(AP),R0 ; GET ADDRESS OF SIGNAL ARRAY 

#PSL$M.T8IT!PSL$M„TPJ2(R0) ; CLEAR T-BIT(S) 



MOVL #SS$_CONTINUE,RQ 
RSB 



INDICATE "HANDLED" 
RETURN 



2Z-ENSAA-7.0 

DEBUG 

07-15 



919 



E 8 

TEMPORARY BREAKPOINT REMOVAL SUBROUTINE 27-JUL-1984 Fiche 5 Frame E8 Seguence 
b EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0J Pa, 

TEMPORARY BREAKPOINT REMOVAL SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYSO.SYSMAINT]DEBUG.MAR;, 



ie 41 
55(35) 







074A 


H05 






074A 


1406 






074A 


1407 






074A 


1408 






074A 


1409 






074A 


1410 






074A 


1411 






074A 


1412 






074A 


1413 






074A 


1414 






074A 


1415 






074A 


1416 






074A 


1417 






074A 


1418 






C74A 


1419 






074A 


1420 






074A 


1421 






074A 


1422 






074A 


1423 






074A 


1424 






074A 


1425 






074A 


1426 






074A 


1427 






074A 


1428 






074A 


1429 






074A 


1430 






074A 


1431 


04 


BB 


074A 


1432 


5? OF 


DO 


074C 


1433 


000000H'EF42 


D5 


074F 


1434 


17 


13 


0756 


1435 






0758 


1436 


00000014^42 


DD 


0758 


1437 


0OO0O00VEF42 


9F 


075F 


1438 


01 


DD 


0766 


1439 


000007C3'EF 03 


FB 


0768 


1440 






076F 


1441 


DP 52 


F4 


076F 


1442 


04 


BA 


0772 


1443 




05 


0774 


1444 



++ 



NO PARAMETERS 



.SBTTL TEMPORARY BREAKPOINT REMOVAL SUBROUTINE 
FUNCTIONAL DESCRIPTION: 

REMOVES KNOWN BREAKPOINTS 
CALLING SEQUENCE: 

BSBW RBREAK.OUT 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 

DS$AA BPTADDR 
DSSABlBPTINST 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



RBREAK OUT; 

PUSHR 
MOVL 

10$; TSTL 
BEQL 

PUSHL 
PUSHAB 
PUSHL 
CALLS 



20$: 



S08GEQ 

POPR 

RSB 



# A MR2 

*BPTMAX,R2 

L A DS$AA 8PTADDRCR2D 

20$ 

L A DS$AA 8PTADDRCR2] 
L A DS$AB~BPTINSTCR2J 
#1 
#3,FETCH_ST0RE 

R2J0S 
/TMR2 



ARRAY 
ARRAY 



OF 
OF 



KNOWN 
SAVED 



BREAKPOINTS 
'UPCODES 1 



PRESERVE A TEMPORARY 
SET UP TABLE LENGTH 
SCAN FOR KNOWN BREAKPOINTS 
SKIP IF NOT SET 

ADDRESS TO STORE ORIGINAL OPCODE 

ADDRESS OF DATA TO STORE 

ONLY 1 BYTE 

STORE ORIGINAL OPCODE BACK 

LOOP UNTIL DONE (INCLUDING CO]) 

RESTORE TEMPORARY 

RETURN 



[12] 



[12] 
[123 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



920 



f 8 n 

BREAKPOINT REPLACEMEMT SUBROUTINE 27-JUL-1984 Fiche 5 Frame F8 Seguence 

bKt 1N EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Pa, 

BREAKPOINT REPLACEMEMT SUBROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYSO.SYSMAINT]DEBUG.MAR;, 

SUBROUTINE 



le 42 
(55(36) 







0775 


1446 


.SBTTL 


BREAKPOINT REPLACEMEMT SU 






0775 


1447 ; 


*♦ 








0775 


1448 ; 


FUNCTIONAL DESCRIPTION: 






0775 


1449 ; 










0775 


1450 ; 


RESTORES ALL KNOWN BREAKPOINTS 






0775 


1451 , 










0775 


1452 , 


CALLING SEQUENCE: 






0775 


1453 , 










0775 


1454 , 


BS8W 


R8REAKJN 






0775 


1455 , 










0775 


1456 ( 


INPUT PARAMETERS: 






0775 


1457 , 










0775 


1458 , 


NONE 








0775 


1459 , 










C775 


1460 , 


IMPLICIT INPUTS: 






0775 


1461 ( 










0775 


1462 


DS$AA BPTADDR 






0775 


1463 


DS$A8^BPTINST 






0775 


1464 










0775 


1465 


• OUTPUT PARAMETERS: NONE 






0775 


1466 










0775 


1467 


; IMPLICIT OUTPUTS: NONE 






0775 


1468 










0775 


1469 


; COMPLETION CODES; NONE 






0775 


1470 










0775 


1471 


; SIDE EFFECTS: 


NONE 






0775 


1472 


i*" 








0775 


1473 










0775 


1474 


WREAK JN: 




04 


BB 


0775 
0777 


1475 
1476 


PUSHR 


# A MR2 ; 


52 OF 


DO 


0777 


1477 


MOVL 


*BPTMAX,R2 ; 


000000H'EF42 


D5 


077A 


1478 


10$: TSTL 


L A DS$AA BPTADDRCR2] 


3A 


13 


0781 
0783 


1479 
1480 


BEQL 


30$ ; 


00000001 'EF^P 


9F 


0783 


1481 


PUSHAB 


L A DS$AB BPTINSTCR23 ; 


OOOO0014'EF42 


DD 


078A 


1482 


PUSHL 


L A DS$AA BPTADDRCR23 


01 


DD 


0791 


1483 


PUSHL 


#1 


000007C3'EF 03 


F8 


0793 


1484 


CALLS 


#3,FETCH_ST0RE 


19 50 


E9 


079A 
079D 


1485 

1486 


BL8C 


R0,20$ 


00000014 f EF42 


DD 


079D 


1487 


PUSHL 


L A DS$AA BPTADDRLR2J 


00000006' EF 


9F 


07A4 


1488 


PUSHAB 


L A BPT„LlTERAL 


01 


DD 


07AA 


1489 


PUSHL 


#1 


000007C3'EF 03 


F8 


07AC 


1490 


CALLS 


HZ, FETCH STORE 


07 50 


E8 


0783 


1491 


BLBS 


R0,30$ " ; 






07B6 


1492 


20$: 




0OOO0014'EF42 


DA 


07B6 


1493 


CLRL 


L A DS$AA BPTADDRCR23 


BA 52 


F4 


078D 
07C0 


1494 

1495 


30$: S08GEQ 


R2,10$ " 


04 


BA 


07C0 


1496 


POPR 


A MR2 ; 




05 


07C2 


1497 


RS8 





ARRAY OF KNOWN BREAKPOINTS 
ARRAY OF SAVED •OPCODES' 



PRESERVE A TEMPORARY 

SET UP TABLE LENGTH 

SCAN FOR KNOWN BREAKPOINTS 

SKIP IF NOT SET 

ADDRESS TO STORE ORIGINAL OPCODE 

ADDRESS TO INSERT BREAKPOINT 

INSERT ONLY ONE BYTE 

SAVE OPCODE 

CAN'T READ, REMOVE BREAKPOINT 

ADDRESS TO INSERT BREAKPOINT 
BPT INSTRUCTION 
INSERT 1 BYTE 
STORE IT 
OK, NEXT 

REMOVE BREAKPOINT 

LOOP UNTIL DONE (INCLUDING CO]) 

RESTORE TEMPORARY 
RETURN 



C12D 
[123 
[12] 
[12] 
C12] 



[12] 
[12] 



[12] 



ZZ-ENSAA-7.0 


G 8 
FETCH STORE COPY BYTE ROUTINE 27-JUL-1984 Fiche 5 frame G8 Sequence 921 

" EXAMINE, DEPOSJT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Page 


DEBUG 


07-15 


FETCH.STORE COPY BYTE ROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYSO.SYSMAINTJDEBUG.MAR;255< 




07C3 


H99 .SBTTL FETCH.STORE COPY 8YTE ROUTINE 




07C3 


1500 ; 


+ + 




07C3 


1501 ; 


FUNCTIONAL DESCRIPTION: 




07C3 


1502 i 






07C3 


1503 ; 


This routine will copy bytes of memory from one place to another. 




07C3 


150A ; 






07C3 


1505 j 


CALLING SEQUENCE: 




07C3 


1506 ; 






07C3 


1507 ; 


CALLG <AP>,FETCH_STORE 




07C3 


1508 , 






07C3 


1509 , 


INPUT PARAMETERS: 




07C3 


1510 t 






07C3 


1511 , 


4(AP) Count of bytes to store 




07C3 


1512 , 


8(AP) Address to fetch data from 




C7C3 


1513 t 


12(AP) Address to store data 




07C3 


15K , 






07C3 


1515 ( 


• IMPLICIT INPUTS: NONE 




07C3 


1516 ( 






07C3 


1517 , 


• OUTPUT PARAMETERS: NONE 




07C3 


1518 






07C3 


1519 


• IMPLICIT OUTPUTS: NONE 




07C3 


1520 






07C3 


1521 


• COMPLETION CODES: 




07C3 


1522 






07C3 


1523 


; SS$ NORMAL Jf alt went well 




07C3 


1524 


DS$~MACHCK If bad addresses 




07C3 


1525 


SS$"ACCVIO If memory managment faults 
DS$lTRANSL If translation not valid fault 




07C3 


1526 




07C3 


1527 






07C3 


1528 


; SIDE EFFECTS: 




07C3 


1529 






07C3 


1530 


; Memory as specified by 12(AP) is changed 




07C3 


1531 


• mmmt 




07C3 


1532 SOFFSET 0,NEGATIVE,<- 




07C3 


1533 <DATA,8>. - 


Space to save data 




07C3 


1534 <ARG1,6*4>, - 


• Space for SETPRT arglist 




07C3 


1535 <ADR1,8>, - 

1536 <ARG2,6*4>, - 


• Descriptor of page(s) 

• Space for SETPRT arglist 




07C3 




07C3 


1537 <ADR2,8>, - 


• Descriptor of page(s) 




07C3 


1538 <L0CAL,0» 


• Length of local storage required 




07C3 


.SAVE LOCAL BLOCK 




07C3 


.PSECT $ABS$ SBS 




00000000 FE70 


.=0 




FFFFFFF8 0000 


.8LKB -8 




FFF8 


DATA 






FFEO 


ARG1 






FFD8 


ADR1 






FFCO 


ARG2 






FFB8 


ADR2 






FFB8 


LOCAL: 



43 



ZZ-ENSAA-7.Q 

DEBUG 

07-15 



FETCH STORE COPY BYTE ROUTINE 

EXAMINE, DEPOSIT, AND 
FETCH STORE COPY BYTE 



H 8 

27-JUL-1984 Fiche 5 Frame H8 Seguence 922 
BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Paj 
ROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYS0.SYSMAINT]DEBU6.MAR ; ; 



ie 44 
55(38) 



6D 







303C 


07C3 
07C5 


1540 
1541 




55 5D 


DO 


07C5 


1542 


5E 


B8 AD 


9E 


07C8 


1543 




FO AD 


D4 


07CC 


1544 




DO AD 


D4 


07CF 
07D2 


1545 
1546 


0000083F 'EF 


9E 


07D2 


1547 


52 


04 AC 


7D 


07D9 


1548 




51 53 


DO 


07DD 
07E0 


1549 
1550 


3 


52 00 


OC 


07E0 


1551 




06 


12 


07E4 


1552 




50 00' 


DO 


07E6 


1553 




OCE2 


30 


C7E9 
07EC 


1554 
1555 


53 


08 AC 


DO 


07EC 


1556 


54 


F8 AD 


9E 


07F0 


1557 




0023 


30 


07F4 


1558 




01 6 A 


30 


07F7 
07FA 


1559 
1560 


54 


OC AC 


DO 


07FA 


1561 




51 54 


DO 


07FE 


1562 


>4 


52 CO 


OD 


0801 


1563 




06 


12 


0805 


1564 




50 OO 1 


DO 


0807 


1565 




00C1 


30 


080A 
080D 


1566 
1567 


53 


F8 AD 


9E 


080D 


1568 




07 


10 


0811 


1569 




OHE 


30 


0813 


1570 




50 01 


DO 


0816 


1571 






04 


0819 


1572 



.ENTRY FETCH_STORE, A M<R2,R3,R4,R5> 

MOVL FP,R5 

M0VA8 LOCAL(FP),SP 

CLRL ARG1+SETPRT$^PR0T(FP) 

CLftL ARG2+SETPRT$_PR0T(FP) 

MOVAB L A FS HANDLR,(FP) 

MOVQ 4<AP7,R2 

MOVL R3,R1 

PROBER #PSL$C_KERNEL,R2,(R3) 

BNEQ 10$ 

MOVL S A *PRT$C„UR,RO 

BS8W FS_SETUP 

10$: MOVL 8(AP),R3 

MOVAB DATA(FP),R4 

BS8W FS..COPY 

BSBW FS.RESET 

MOVL 12(AP),R4 

MOVL R4,R1 

PROBEW *PSL$C_KERNEL ,R2, (R4) 

8NEQ 20$ 

MOVL S A #PRT$C„UW,RO 

BSBW FS_SETUP 

20$: MOVAB DATA(FP),R3 

BSBB FS^COPY 

BS8W FS RESET 

MOVL S A *SS$_NORMAL,RO 
RET 



Base of local storage 
Allocate space for local storage 
Mark protection not changed 
Mark protection not changed 

Set exception handler 

Get Length and source address 

Desired address 

Readable? 

Branch if readable 

Desired protection 

Setup and set protections 



[12] 



Get source address 

Intermediate 

Copy from (R3)+ to (R4)+ by 

Put input protections back 

Output address 

Desired address 

Writeable? 

YES, DO IT 

Desired protection 

Setup and set protections 

Source for copy 

Copy data to target 

Put output protections back 

Success! 



R2 



ZZ-ENSAA-7,0 

DEBUG 

l>7-15 



FETCH STORE COPY BYTE ROUTINE 

EXAMINE. DEPOSIT, AND 
FETCH STORE COPY BYTE 



923 



I 8 

27-JUL-1984 Flche 5 Frame IB Sequence 

BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T ? a( i$ c AL 
ROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYS0.SYSMAINT3DEBUG.MAR;255<39) 











081A 


1574 










081A 


1575 










081A 


1576 










081A 


157? 










081A 


1578 










081A 


1579 










081A 


1580 










081A 


1581 










081A 


1582 


06 


52 


03 


E1 


081A 


1583 




64 


64 


7D 


081E 


1584 




84 


83 


7D 


0821 


1585 


05 


5? 


02 


E1 


0824 


1586 






64 


D5 


0828 


158/ 




84 


83 


DO 


C82A 


1588 


05 


52 


01 


E1 


082D 


1589 






64 


B5 


0831 


1590 




84 


83 


BO 


0833 


1591 




05 


5? 


F9 


0836 


1592 






64 


95 


0839 


1593 




84 


83 


90 


083B 


1594 








05 


C83E 
083F 


1595 
1596 



Copy data from one place to another, respect .desired length Q,L,W,B 
Read every address so we get machine checks instead of write timeouts 

R1 = address to report if error 

R2 = length 0-0F 

R3 = source address 

R4 = destination address 



FS..C0PY: 



10$: 



20$: 



30$: 



40$: 



BBC *3,R2,10$ 

MOVQ (R4),(R4) 

MOVQ <R3)+,(R4)+ 

BBC #2,R2,20$ 

TSTL (R4) 

MOVL (R3)+,(R4>+ 

BBC #1,R2,30$ 

TSTW (R4) 

MOVW (R3)+.(R4)t 

BLBC R2,40$ 

TSTB (R4) 

M0V8 (R3)+,(R4)+ 
RSB 



Branch if NOT 
Read to check 
Copy quadword 
Branch if NOT longword 
Check accessability 
Copy longword 
Branch if NOT word 
Check accessability 
Copy word 

Branch if NOT byte 
Check accessability 
Copy byte 



quadword 

for accessability 



ZZ-ENSAA-7.0 

DEBUG 
07-1 5 



FETCH STORE COPY BYTE ROUTINE 

EXAMINE, DEPOSIT, AND 
FETCH STORE COPY BYTE 



924 



J 8 

27-JUL-1984 Ffche 5 Frame J8 Seguence 
BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Pa, 
ROUTINE 23-JUL-1984 16:22:51 DMA1 :[SYS0-SYSMAINT3DEBUG.MAR;« 



ie 46 
(55(39) 



50 04 AC 
55 04 A1 

04 AO 00660088 8F 

OD 
50 Q0000162*EF 

51 10 A1 

45 
04 AO 006600A0 8F 

OD 

51 OC AO 

50 00000197'EF 

2E 

04 AO 00000000 f 8F 

OD 

51 OC AO 

50 00000183'EF 

17 

04 AO 00000000 *8F 

07 

25 OC A1 00 

23 

SQ 0000' 8F 



50 
OC A1 



04 AC 

04 AO 

00A2 



0020 
7D 
DO 
D1 
12 
9E 
DO 
VI 
D1 
12 
DO 
9E 
11 
D1 
12 
DO 
9E 
11 

D1 
12 
E4 

11 

3C 
04 



70 
DO 
30 

04 



083F 

083F 

083F 

083F 

083F 

0841 

0845 

0849 

0851 

0853 

085A 

085E 

0860 

0868 

C86A 

086E 

0875 

0877 

087F 

0881 

0885 

088C 

088E 

088E 

0896 

0898 

089D 

089F 

089F 

08A4 

08A5 

08A5 

08B6 

08BA 

08BF 

08C2 

08CD 



1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1623 

1629 

1630 

1631 

1632 

1633 

1634 



Exception handler for FETCH..STORE and FETCH_STOR_PREG routines 



FS.HANDLR: 

.WORD 

MOVQ 

MOVL 

CMPL 

BNEQ 

MOVAB 

MOVL 

BR8 

110$: CMPL 
BNEQ 
MOVL 
MOVAB 
BR3 

120$: CMPL 
BNEQ 
MOVL 
MOVAB 
BRB 



130$: 



145$; 



150$: 



155$: 



CMPL 
BNEQ 
BBSC 
BRB 

MOVZWL 
RET 



A MR5 

4(AP),R0 

4(R1),R5 

#DS$J1CHK,4<R0> 

110$ 

L A T MACHCK,RO 

16(R1),R1 

150$ 

#DS$ TRANSL,4(R0) 

120$ 

8+4(R0),R1 

L A T TRANSL,RO 

1501 

*SS$J\CCVIO,4(R0) 

130$ 

8+4(R0),R1 

L A T ACCVIO,R0 

150$ 

*SS$JWPRAND,4(R0) 
145$ 

#0,12(R1),155$ 
15§$ 

#SS$„RESIGNAL,RO 



$PRINTI^S L*FMT EXCEPTION, R0,R1 

MOVQ 4(AP),R0 

MOVL 4<R0),12(R1) 

BS8W FS^RESET 

$UNWJND„$ 

RET 



Need this register for old FP 

Get address of mech/signal args 

Get FP at time of exception 

MACHINE CHECK? 

NO, TRY NEXT r „^ 

POINT TO ERROR TEXT C123 

GET VIRTURAL ADDRESS 

AND PRINT IT 

TRANSLATION NOT VALID? 

NO, TRY NEXT 

Get virtural address 

POINT TO ERROR TEXT C12D 

PRINT 

ACCESS VIOLATION? 

No, try next 

Get virtural address „ ^ 

POINT TO TEXT C12D 

PRINT 

Invalid operand? (must be IPR if so) 

Nope. 

Clear success bit in return code 

Exit 

PAWN IT OFF ON SOMEONE ELSE 
RETURN FROM CONDITION HANDLER 

TYPE THE ERROR TEXT C12] 

SIGNAL AND MECHANISM ADDRESSES 

Put condition in RO 

Put protections back 

Return to caller 

RETURN 



ZZ-ENSAA-7.0 

DEBUG 
07-15 



FETCH STORE COPY BYTE ROUTINE 

EXAMINE, DEPOSIT, AND 
FETCfLSTORE COPY BYTE 



K 8 
27-JUL-1984 Fiche 5 Frame K8 Seguence 925 
BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T £*9* Qt JL 
ROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAlNTJDEBUG.MAR;2i>5(40) 



FO AD 
DO AD 
50 
D8 AD 
51 
DC AD 
DC AD 



02 
50 
50 
01FF 8F 
51 50 
?^ A142 
51 50 
D8 AD 
28 



B8 AD DC AD 
BC AD B8 AD 
DA AD D2 AD 



C4 AD 
CO AD 

00000000'EF 

DO AD 

DC AD 

F4 AD 



H AD 

EO AD 



C8 AD 
B8 AD 

05 

CO AD 
2E 50 
40 8F 

D8 AD 
F2 AD 

E8 AD 
D8 AD 

05 



00000000* EF 



EO AD 
08 50 
FO AD 40 8F 
02 



52 50 

00000183'EF 

00000180'EF 

00000000' EF 03 



0004 
50 52 



08CE 
08CE 
08CE 
08CE 
08CE 
08CE 
08CE 
BB 08CE 
9A 08D0 
9A 08D4 
3C 08D8 
CB 08DD 
9E 08E2 
CB 08E7 
D1 C8EC 
13 08F1 
08F3 
DO 08F3 
DO 08F8 
DE 08FD 
0902 
7C 0902 
7E 0905 
090A 
DO 090A 
090E 
FA 090E 
E9 0916 
88 0919 
091E 
DO 091E 
DE 0923 
0928 
7C 0928 
7E 0928 
0930 
DO 0930 
0934 
FA 0934 
E9 093C 
88 093F 
BA 0944 
05 0946 
0947 
DO 0947 
094A 
9F 094A 
9F 0950 
F8 0956 
095D 
30 095D 
DO 0960 
04 0963 
0964 
0964 
0964 
0964 



1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 



Set protections for page(s) 

RO = desired protection 
R1 = desired address, p 
R2 = length of area, 0- 



prese 
F 



rved 



FS SETUP: 

PUSHR 

MOV2BL 

MOVZBL 

MOVZWL 

BICL3 

MOVAB 

BICL3 

CMPL 

BEQL 

MOVL 
MOVL 
MOVAL 

CLRO 
MOVAQ 

MOVL 

CAILG 

BL8C 

BISB 



20$: 



30$: 



MOVL 
MOVAL 

CLRQ 

MOVAQ 

MOVL 

CALLG 

BLBC 

BJS8 

POPR 

RSB 



PUSHAB 
PUSHAB 
CALLS 

BS8W 
MOVL 
RET 



# A MR1 

R0,ARG1+SETPRT$ f'ROT(FP) 

RC,ARG2+SETPRT$"PROT(FP) 

# A X1FF,R0 

R0,R1,ADR1(FP) 

-1(R1)[R2J,R1 

RO,R1,ADR1+4(FP) 

ADR1(FP),ADR1+4(FP) 

20$ 

ADRH4(FP),ADR2(FP) 
ADR2(FP),ADR2+4(FP) 
ARG2+SETPRTS PR0T+2(FP), 
ARG2+SETPRT$~PRVPRT(FP) 
ARG2+SETPRT$~RETADR(FP) 
ADR2CFP), - " 
ARG2+SETPRT$ INADR(FP) 
0SETPRT$„NAR5S,ARG2(FP) 

ARG2(FP),SYS$SETPRT 

RO,30$ , * ■ r 

*64,ARG2+SETPRT$_PR0T(FP); Flag protection changed 



Save address 

Set desired protection 

Set desired protection 

Byte within page bits 

Starting address for this page 

Address of last byte to be affected 

Ending address 

Start same as end? , 

Branch if only one page need modifications 

Set start of page 
Set end of page 

Address to return protection 

No return address and kernel mode 

Address of start and end pages 
Set count of args 

Sot the protection 
Branch if it failed 



ADR1(FP),ADR1+4(FP) 
ARG1+SETPRTS PR0T+2(FP), 
ARG1+SETPRT$"PRVPRT(FP) 
ARG1+SETPRT$~RETADR(FP) 
ADR1 (FP), - " 
ARG1+SETPRTS INADR(FP) 
#SETPRT$.NARGS,ARG1(FP) 

ARG1(FP),SYS$SETPRT ; Set the protection 
R0,30$ ; Branch if it failed 

#64,ARG1+SETPRT$ PROT(FP); Flag protection changed 
# A MR1 ; Restore R1 



Set end address of range 

Address to return protection 

No return address and kernel mode 

Address of start and end pages 
Set count of args 



MOVL R0,R2 



L A T ACCVI0 
L A FflT EXCEPTION 
#3, DSXSPRINTi 

FS..RESET 
R2,R0 



Save SETPRT return code 

Address already on stack 

ADDRESS OF ACCESS VIOLATION INSERT 

FA0 STRING 

TYPE ACCESS VIOLATION TEXT 

Reset the protections 

Restore return code 

RETURN TO CALLER OF FETCH.STORE 



[12] 
[123 



Routine to restore protections on pages changed 
R5 = FP of local data structure 



Z7-ENSAA-7.Q 

DEBUG 

07-15 



L 8 
FETCH STORE COPY BYTE ROUTINE 27-JUL-1984 Fiche 5^ Frame L8 Seguence 926 

- EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-01 ?*$%'&, 
FETCH^STORE COPY BYTE ROUTINE 23-JUL-1984 16:22:51 DMA1 :CSYS0.SYSMAINT]DEBUG,MAR;255(40) 



50 FO A5 

OC 60 06 

60 02 AO 

OOOOOOOO'EF EO A5 

50 DO A5 

OC 60 06 

60 02 AO 

00000000' EF CO A5 





0964 


1693 


FS RESET: 


9F 


0964 


1694 




MOVAB 


F5 


0968 


1695 




BBCC 


90 


096C 


1696 




MOVB 


FA 


0970 
0978 


1697 
1698 




CALLG 


9F 


0978 


1699 


10$: 


MOVAB 


F5 


09/C 


1700 




BBCC 


90 


0980 


1701 




M0V8 


FA 


0984 
098C 


1702 

1703 




CALLG 


05 


098C 
098D 


1704 
1705 


20$: 


RS8 



ARG1+SETPRTS PROT(R5),R0; Address of protections 
06,(RO),1O$ " ; Branch if protection not changed 
2(R0),(R0) ; Put old protection in arglist 

ARG1(R5),SYS$SETPRT ; Set protection back 



ARG2+SETPRT$_PR0T(R5),R0; 

#6,(R0),20$ 

2(R0),(R0) 

ARG2(R5),SYS$SETPRT 



Address of protections 
Branch if protection not changed 
Put old protection in arglist 
Set protection back 

Return 



ZZ-ENSAA-7.0 

DEBUG 
07-15 



N 8 

Handle EXAMINE/DEPOSIT of IPRs in KERNEL 27-JUL-1984 irtfl/ F J£ h ?T 5 c / r ?,TS 5?? m uA , s Sf ence 927 Da 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Pa« 
Handle EXAMINE/DEPOSIT of IPRs in KERNEL 23-JUL-1984 16:22:51 DMA1 :CSYSO.SYSMAINT]DEBUG.MAR; ( 



ie 49 
(55(40) 



9CAF 



51 
6E 
55 
53 
03 
02 



098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

098D 

DD C98D 

DF 098F 

DD 0991 

DD 0993 

FB 0995 

BA 0999 

02 099B 

099C 



1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 



.SBTTL Handle EXAMINE/DEPOSIT of IPRs in KERNEL mode 

CHMK handler: gets control via CHMK dispatch routine. It calls routine 
FETCH STOR PREG, in KERNEL mode, to allow use of MFPR/MTPR instructions 
and handling of possible exception due to access 

PARAMETERS: . . „ t _ 

R1 Value to deposit (if function is DEPOSIT) 
R3 I PR code 

R5 function code: 1 if EXAMINE, if DEPOSIT 
RETURN: „ , 

R1 Value examined—is 'read-back of deposited 
value if function is DEPOSIT 



CMKSSGIPR:: 

PUSHL 

PUSHAL 

PUSHL 

PUSHL 

CALLS 

P0PR 

REI 



R1 

(SP) 

R5 

R3 

#3,B A FETCH.ST0R.PREG 

0. A MR1 



Data, if deposit (else save space) 
Address of where to put/get data 
Flags word to determine if flxam/dep 
Register Code 

Get data back if examine (else clear stack 
Return from the interrupt 



ZZ-ENSAA-7.0 

DEBUG 
07-15 



N 8 
FETCH ST0R..PREG Hove data to/from I PR 27-JUL-198^ Fiche 5 c Frame N8 Sequence 928 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Pa< 
FETCH STOR PREG Move data to/ from I PR 23-JUL-1984 16:22:51 DMA15CSYSO.SYSMAINT3DEBUG.MAR;. 



ie 50 
!55(40) 



6D FFFFFE9B F.F 

52 04 AC 

53 OC AC 
50 01 

07 08 AC 

52 '63 

00 50 01 

63 52 



oooc 

9E 
DO 
DO 

DO 
E8 
DA 
E2 
DB 
04 



099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

C99C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099C 

099E 

09A5 

09A9 

09AD 

C9B0 

09B4 

09B7 

098B 

09BE 



1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
768 
^69 
1770 
1771 
1772 
1773 



SBTTL FETCH_STOR PREG Move data to/from IPR 
++ 
FUNCTIONAL DESCRIPTION: 

This routine will either copy data from memory to an internal CPU 
register (DEPOSIT) or move data from an internal CPU register into 
memory (EXAMINE). If function is DEPOSIT, \t will also preform an 
EXAMINE to the same IPR, providing a verify read-back. 

CALLING SEQUENCE: 

CALLS 03,FETCH_STOR_PREG 

INPUT PARAMETERS: 

4(AP) The code for the desired IPR (range to FF(X)) 
8(AP) A flag (=1 for EXAMINE, =0 for DEPOSIT) 
12(AP) Address of location to get/store data 

IMPLICIT INPUTS: None 

OUTPUT PARAMETERS: None 

IMPLICIT OUTPUTS: None 

COMPLETION CODES: 

R0 bits define operations completed: 
bitO set = no error 
bit! set = DEPOSIT completed with no error 



SIDE EFFECTS: 



None 



.ENTRY FETCH STOR PREG, A M<R2,R3> 
M0VAB" L A FS HANDLR,(FP) 

MOVL 4(AP7,R2 

MOVL 12(AP),R3 

MOVL #1,R0 

BLBS 8<AP),10$ 

MTPR (P3),R2 

BBSS 01,ROJO$ 

10$: MFPR R2,(R3) 
RET 



Set up exception handler 

Get IPR code 

Get memory address 

Presume success 

EXAMINE only 

Attempt to move data to register 

DEPOSIT worked— now do read-back 

Try to move data from register 



C12] 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



DSVSDEBUG - Process 



B 9 

Command [14 27-JUL-1984 Fiche 5 Frame B9 Seguence 929 
EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T UA £ a 9? c/ 5L 
DSVSDEBUG - Process DEBUG Command [14 23-JUL-1984 16:22:51 DMA1 :[SYS0.SYSMAINT3DEbUG.MAR;255<40> 



DEGU6 



00000002 

45 58 45 2E O00OO9C7'010E0000' 

E1 



1A 
03 OOOOFEOO'EF 

0103 

1C 

48 OOOOFEOO'EF 

00000171 'EF 000FFFFF 8F 

00010E00 8F 
00000171 'EF 

000001 6D'EF 



000001 7D'EF 
00000181'EF 



000001 75" EF 
00000000'EF 

oooooi7d , e: 

00000185'EF 



00000175'EF 
00000179 I EF 
5A 
00010EOO 8F 
00000000'EF 
00000175'EF 
00000200 8F 

00000200 8F 
00000181'EF 
00000175'EF 
0000017D'EF 
00000000'EF 
10 50 

Q09D 

000001 75' EF 

00010E00 8F 

FFFFFF20 EF 

08 A2 



31 
E1 
DO 
C3 



DO 
DO 
11 
C3 



C2 

C3 

DO 
DO 
16 
E8 

31 
DD 
DD 
7F 
7F 



09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

C9BF 

098F 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09BF 

09CB 

09CB 

09CD 

09D3 

09D6 

09E3 

09E5 

09EB 

09F6 

09F6 

09FC 

0A01 

0A06 

0A06 

0A1B 

0A26 

0A31 

0A33 

0A39 

0A3E 

0A43 

QA4E 

0A4E 

QA59 

0A5E 

0A69 

0A74 

QA7A 

0A7D 

0A8A 

0A8D 

0A93 

0A99 

0A9F 



1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 



.SBTTL DSVSDEBUG - Process DEBUG Command 

FUNCTIONAL DESCRIPTION 

This routine will process the DEBUG command by allocating 
memory space for the debugger, loading the debugger, and 
then calling it. 

CALLING SEQUENCE 

BS6W DSVSDEBUG 

INPUT PARAMETERS 
NONE 

OUTPUT PARAMETERS 
NONE 



TRANS. VECTOR.OFFSET = 2 



BYTE OFFSET FROM TOP OF IMAGE 
HEADER, CONTAINING OFFSET 
TO TRANSFER VECTOR ARRAY 



[143 
[143 
[143 
[143 
[141 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
T143 
[143 
[143 
[143 

[143 
[143 

[143 



DBG DEF: 
DSVlDEBUG:: 
BBC 



.ASCID /.EXE/ 



5S: 



10$: 



*DSA$V DEBUG, - 
DSA$GL_FLAGS,5$ 

BRW 27$ 

SDS.PRINTF S FMT„DBG_MSG 

BBC #D5A$V_USER,- 

DSA$GL FLAGS, 10$ 

MOVL # A X000FFFFF, - 

DBG ADDR_REG*4 

SUBL3 #DEBUGGER STZE,- 
DBG.,ADDRJ^EQ♦4,- 
DBGJ\DDR REQ 

$CRETVA„S 5BG_ADDR_REQ, - 

DBG ADDR RTN 

MOVL DBG ADDMTMEB0GJ.0 

MOVL DBG ADDR.RTN+4,DEBDG HI 

BRB 20$ 

SU8L3 ^DEBUGGER SIZE,- 
DSSGL MEMSIZE,- 
DBG A0DRJHN 
#512,DBGlADDRJUN 



20$: 



SU8L2 

SU8L3 

MOVL 

MOVL 

J SB 

BL8S 

SDS.PR 

BRW 

PUSHL 

PUSHL 

PUSHAQ 

PUSHAQ 



#512,DS$GL_MEMSIZE,- 
DEBUG HI 

DBG A0DRJUN,DEBUG_LO 
DEBOG LOTSYMTABJHI 
MAP DEBUGGER 
R0,20$ 
INTF S FMT NO ROOM 

DStfSDEBUGEKlT" 

dbg addr.rtn 
*deBuggeR_size 
l a dbgj)ef 
clisq.file(r2) 



IF DEBUGGER ALREADY LOADED 
THEN 

DON'T RELOAD 
PRINT MESSAGE 
IF USER MODE 
THEN 

SET VA FOR TOP 

(1000K) 
SUBTRACT DEBUGGER 
FROM TOP ADDRESS 
AND STORE AS START 
CALL SYSTEM SERVICE 



[143 

CIA] 

[143 
[143 
[143 

[143 
[143 
[143 
OF DEBUGGER [143 
[143 
[143 
[143 
[143 
ALLO-C143 



SIZE 



VA 
TO 



MEMORY FOR DEBUGGER 
DEBUGGER LOW ADDRESS 
DEBUGGER HIGH ADDRESS 



CATE 
STORE 
STORE 
ELSE 

SUBTRACT DEBUGGER SIZE 
FROM TOP ADDRESS 
AND STORE AS START VA 
DON'T USE TOP PAGE OF MEM. 

USED BY A DIAGNOSTIC! )C143 
DEBUGGER AT TOP OF MEMC143 
LAST PAGE C143 

OF DEBUGGER C143 
SYM. TABLES STARTC143 
SPACE FOR D r BUGGERC143 



[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 



(IT'S 
TOP OF 

MINUS 
BOTTOM 
ALSO WHERE 
MAP MEMORY 



IF 



THEN 



MAPPING ERROR 

PRINT MSG 

LEAVE 
ADDRESS TO LOAD DEBUGGER 
LENGTH OF LOAD AREA 
ADDRESS OF FILE DEFAULTS 
ADDRESS OF FILE DESCRIPTOR 



[143 
[143 
[143 
[143 
[143 
[143 

Eh: 



ZZ-ENSAA-7.0 

DEBUG 

07-15 



C 9 

DSVSDEBUG - Process DEBUG Command [14 27-JUL-198A Fiche 5 Frame C? Sequence 930 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T ^ ir> Pa] 
DSVSDEBUG - Process DEBUG Command [14 23-JUL-1984 16:22:51 DMA :[SYS0.SYSMAINT3DEBUG.MAR;, 



00000000' FF 04 

OOOOOOOO'EF 

09 50 

00000000' EF 

006F 



51 



51 



07 



51 



04000000 8F 
OOOOFEOO'EF 

OE 
80000000 8F 

1C 
OOOOFEOO'EF 
40000000 8F 

51 

00 
00000000' EF 
00000000' EF 

00 
00000828' EF 
00000175'EF 



53 



52 02 
52 
53 

51 
61 



A1 
51 
04 
63 
06 



5E 



OE 
00000058 8F 



FB 
16 
E8 
16 
31 



C6 

BB 
DO 
E1 

C8 
DD 
DD 
DF 
DF 
DD 
DF 
DO 

9A 
C1 
CO 
CO 
FB 

BA 
CO 



05 



00000000 
0000081 F* 



0AA2 

0AA9 

OAAF 

0AB2 

0AB8 

OABB 

0A8B 

OACE 

0AD4 

0AD9 

OADB 

0AE2 

0AE4 

OAEA 

CAF1 

OAF 3 

OAF 5 

OAFB 

0B01 

0803 

0B09 

0B10 

0B10 

0B14 

0B18 

0B1B 

081 E 

0821 

0B21 

0B23 

0B2A 

082A 

0B2A 

0B2B 

0B2B 

0B2F 

0833 

0833 



1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 



CALLS *4,L A DSX$L0AD 
JSB DSRSCOMPLETION 
BL8S R0,25$ 
JSB UNMAP DEBUGGER 
BRW DSVSDEBUG EXIT 

25$: SDS PR1NTF S FflT^DBG LOAD, 

DBG ADDR_RTN 
BISL #19DSA$V DEBUG, - 
DSASGL FCAGS 

27tt PUSHR # A M<R17R2,R3> 
MOVL /TX80000000,R1 
BBC *DSA$V_USER,- 

DSASGL FLAGS, 30$ 
BISL #1330, R1 

30$: PUSHL Rl 
PUSHL #0 

PUSHAL DI AG FILE NAME 
PUSHAL IMAGE.HEADER 

50$: PUSHL #0 

PUSHAL TRANS VECTOR 
MOVL DBGJ\BDRJUN,R1 



M0VZ8L 
ADDL3 
ADDL2 
ADDL2 
CALLS 
CONT FROM DE8UG: 

PSPR **M<R1,R2,R3> 

ADDL2 #<22*4>,SP 



TRANS VECT0R_0FFSET(R1), 

R1,R27R3 

#4,R3 

(R3),R1 

#6,<R1) 



LOAD THE DEBUGGER 

TYPE ERROR TEXT IF NECESSARY 

IF ERROR THEN 

UNMAP MEMORY WE JUST 

LEAVE 
PRINT MESSAGE 



[143 
CUD 

[14] 

ALLOCDC143 

[143 



DSV$DEBUG EXIT: 

R5B 
TRANSACTOR: 



.END 



SET DEBUGGER RESIDENT FLAG 

SAVE REGISTERS 
SET DS ENVIRON BIT 
IF USER MODE 
THEN 

SET USER MODE BIT 
CLI STATUS BITS 
NULL ARGUMENT 

PASS ADDR. OF COUNTED STRING 
PASS ADDR. OF IMAGE HEADER 
NULL ARGUMENT 
TRANSFER ADDRESS VECTOR 
PUT START OF DEBUGGER IMAGE 
HEADER IN R1 
R2;GET OFFSET TO TRANSFER 
GET ADDRESS OF VECTOR 
GET SECOND ENTRY 
MAKE TRANSFER ADDRESS ABSOLUTE 
CALL THE DEBUGGER 

RESTORE REGISTERS 
RESTORE STACK (DEBUGGER MESSED 
IT UP), 



.LONG 
.LONG 







RETURN 
USED B\ 



DEBUGGER 



C0NT_FR0M_DEBUG-2; 



[143 
[143 
[143 
[143 

[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
VECTORC143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[143 
[14] 
[143 
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ZZ-ENSAA-7.0 Symbol 


table 






DEBUG 


EXAMINE, DEPOSIT, AND 


Symbol table 








SSARGS 


= 00000004 


D 




SSN 


= 00000002 


D 




S$T1 


= 0O000OH 


D 




SST2 


= 00000007 


D 




SER 


= 00000001 


D 




SMODULE 


00000000 R 


D 


03 


AAP 


000002D8 R 


D 


03 


ADR1 


FFFFFFD8 


D 




ADR2 


FFFFFF88 


D 




AEM 


00000254 R 


D 


03 


AFP 


000002DB R 


D 


03 


AKM 


0000024D R 


D 


03 


APC 


000002E1 R 


D 


03 


APSL 


000002E4 R 


D 


03 


APSLMNE 


000001F8 RG 


D 


03 


ARO 


000002B2 R 


D 


03 


AR1 


000002B5 R 


D 


03 


AR10 


000002DO R 


D 


03 


AR11 


000002D4 R 


D 


03 


AR2 


000002B8 R 


D 


03 


AR3 


000002BB R 


D 


03 


AR4 


000002BE R 


D 


03 


AR5 


000002C1 R 


D 


03 


AR6 


000002C4 R 


D 


03 


AR7 


000002C7 R 


D 


03 


AR8 


000002CA R 


D 


03 


AR9 


000002CD R 


D 


03 


ARG1 


FFFFF^EO 


D 




ARG2 


FFFFFFCO 


D 




ASM 


0000025E R 


D 


03 


ASP 


000002DE R 


D 


03 


AUM 


00000269 R 


D 


03 


BASEADDRESS 


00000058 R 


D 


02 


BIT... 


= OOOOOOOF 


D 




BPTCODE 


= 00000003 G 


D 




BPTMAX 


= OOOOOOOF G 


D 




BPT LITERAL 


00000006 R 


D 


03 


CALL CU 


0000064F R 


D 


04 


CLISK BUFSIZ 


= 00000100 


D 




CLI$K~SI2E 


00000444 


D 




CLISL'ADDRESS 


00000018 


D 




CLISL'COMMAND 


00000004 


D 




CLlSl~DATA 


0000001 c 


D 




CLlSLlFLAGS 


00000000 


D 




CLISL^LAST 


00000024 


D 




CLISL NEXT 


00000030 


D 




CLISL PASS 


0000002C 


D 




CLISLlSUBT 


00000028 


D 




CLISL TEST 


00000020 


D 




CLISQ'BUFQWD 


00000034 


D 




CLISQ~F ILE 


00000008 


D 




CLISQ'SECTION 


00000010 


D 




CLISQ~TIME 


0000043C 


D 




CLIST~BUFFER 


OOC0003C 


D 




CLISV ADAPTER 


= 000u0018 


D 




CLI$V"ADR 


= OOOOOOOB 


D 




CLISVlASCII 


= 00000013 


D 
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CLISV BREAK 

CLISV.BRIEF 

CLISV„BYTE 

CLISV..CLEAR 

CLISV..DEC 

CLISV.DEFAULT 

CLISV.DEPOSIT 

CLISV.EVENT 

CLISV.EXAM 

CLISV FLAGS 

CLISV^HEX 

CLISV..KERNEL 

CLISV.LOAD 

CLISV.LONG 

CLISV.NOTNUF 

CLISV.OCT 

CLISV..PREG 

CLJSV^QA 

CLI$V,QACKLOOPLOOPS 

CLISV QAERRORPRINTS 

CLISV QAMULTIPLEPASS 

CLISV~QASUBTESTLOOPS 

CLISV'QATESTLOOPS 

CLISVIREG 

CLISV.REQUIRED 

CLISV.RUN 

CLISV..SET 

CLISV SHOW 

CLlSVlVALSEC 

CLISV WORD 

CMKSSGlPR 

CMKS. 

CMKS.ASTEXIT 

CMKS.CANTJM 

CMKSJUBER 

CMKSJNITSCB 

CMKS.LAST 

CMKSJ1MENABLE 

CMKS.RCONSOLE 

CMKS REFRESH 

CMKS.SCHDWK 

CMK*„SETIMR 

CMS.SETIPL 

CMKS^SETPRT 

CMKS.SGIPR 

CMKS TCONSOLE 

C0ND_DEBUG 

CONT^FROM.DEBUG 

DATA 

DBG.ADDR^REQ 

DBG ADDR RTN 

DBG'BREAR 

DBGlDEF 

DBG TB1T 

DEBDGSGB.FLAGS 

DEBUGGER SIZE 

DEBUG_HI 



OOOOOOOA 

0000001B 

OOOOOOOD 

00000002 

00000010 

OOOOOOOC 

00000019 

00000008 

00000005 

00000009 

00000012 

00000017 

00000006 

OOOOOOOF 

00000001 

00000011 

0000001A 

00000007 

0000001 c 

0000001B 

0000001 F 

0000001 E 

0000001 D 

00000014 

00000000 

00000015 

00000003 

00000004 

00000016 

OOOOOOOE 

0000098D 

00000004 

00000000 

OOOOOOOB 

00000007 

00000008 

OOOOOOOE 

00000003 

00000001 

00000005 

00000006 

OOOOOOOC 

00000009 

OOOOOOOD 

OOOOOOOA 

00000002 

000005DE 

00000B21 

FFFFFFF8 

000001 6D 

00000175 

00000605 

000009BF 

000006D6 

00000000 

0001 OEOO 

00000181 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 04 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 04 
R D 04 

D 
R D 
R D 



02 
02 



R D Om 

R D 04 

R D 04 

RG D 02 

D 

RG D 02 



ZZ-ENSAA-7.0 
DEBUG 
Symbol table 

DEBUG LO 

DFLTSTZE 

DIAG FILE NAME 

DIR.7. 

DSSAA BPTADDR 

DSSAB'BPTINST 

DSSClT 

DS$CVTREG 

DS$GL CLIBASE 

DSSGL~MEMSIZE 

DSSGL'RADIX 

DS$K PRROR 

DSSK^NORMAL 

DSSlCSEVERE 

DSSlTSUBSYS 

DSSK~WARNING 

DS$M~ABRTFLG 

DS$M"BADTIME 

DSSM BATCH 

DS$M"BRKCLR 

DSSf-fBRKPT 

DSSM'CHARFLG 

DSSM~CMDFLG 

DSSM~CTRLC 

DSSM'CTRLO 

DSSM~DEVFLG 

DS$M"D1SA3LCC 

DS$M DONFLG 

DS$M"ERRFLG 

DSSM'EXCEPT 

DSIMlEXETST 

DSSM HLTFLG 

DS$M"LODFLG 

DSSf-fMEMMGT 

DS$M~OUTPUT 

DS$M"RUBFLG 

DSSM~SCRIPT 

DS$M~SEHMR 

DSSM'STRFLG 

DSSM~SUBT 

DSSM~SYSFLG 

DSSM'TIWRON 

DSSPRJNTF 

DSSV„ABRTFLG 

DSSV BADTIME 

DSSV BATCH 

DS$V~BRKCLR 

DS$V BRKPT 

DS$VlCHARFLG 

DS$V CMDFLG 

DSSV^CTRLC 

DSSV CTRLO 

DSSV**DEVFLG 

DS$V~DISABLCC 
DS$V"DONFLG 
DSSV~ERRFlG 
DSSV~EXCEPT 



Symbol table 
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DSSV EXETST 

DSSV^HLTFLG 

DSSV_L0DFL6 

DSSV.MEMMGT 

DSSV.OUTPUT 

DSSV_RUBFLG 

DS$V„SCRJPT 

DSSV SET1MR 

DSSVlSTRFLG 

DSSV.SUBT 

DSSV.SYSFLG 

DSSV T1MRON 

DSS SRITH 

DS$IASBE 

DS$ BADLINK 

DSS~BADTYPE 

0S$IBI1C 

DSS CHME 

DSS~CHMK 

DSS DEVNAME 

dss~errqr 
ds$;fhwe 

DSS FRAGBUF 

DSS~ICBUSY 

DSS'ICERR 

DSSIIHWE 

DSSJLLCHAR 

DSS 1LLPAGCNT 

DSSIILLUNIT 

DSS JNSFMEM 

DSS"IPL2HI 

DSS~IVADDR 

DSSJVVECT 

DSS KRNLSTK 

DSS'LOGIC 

DSS'MCHK 

DSS'MMOFF 

DSS NEEDUNIT 

DSSINODE 

DSS NOPCS 

DSSlNORMAL 

DSS_NOSUPPORT 

DSS NOTDON 
DSS"NOTIMP 
DSSlNULLSTR 
DSS OVERFLOW 
DSSIPOWER 
DSS PROGERR 
DSS^SEVERE 
DSS TRANSL 
DSS TRUNCATE 
DSS UNEXPINT 
DSSIVASFULL 
DSS WARNING 
DSA$AL APTMAIL 
DSASAT APTTXT 
DSA$GL**APTCOM 
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000001 7D f 


*G D 


02 


00000054 I 


* D 


02 


******** 


GX 


00 


FFFFFFFF 


D 




00000014 I 


?G D 


02 


00000001 I 


*G D 


02 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


00000002 


D 




00000001 


D 




00000004 


D 




00000066 


D 




00000000 


D 




00000040 


D 




00100000 


D 




00400000 


D 




00001000 


D 




00000800 


D 




00000100 


D 




00000080 


D 




00000001 


D 




00010000 


D 




00000200 


D 




01000000 


D 




00002000 


D 




00000010 


D 




00080000 


D 




00040000 


D 




00000008 


D 




00000002 


D 




00008000 


D 




00800000 


D 




00000020 


D 




00200000 


D 




02000000 


D 




00000004 


D 




00004000 


D 




00000400 


D 




00020000 


D 




******** 


X 


0< 


00000006 


D 




00000014 


D 




00000016 


D 




oooooooc 


D 




00000008 


D 




00000008 


D 




00000007 


D 




00000000 


D 




00000010 


D 




00000009 


D 




00000018 


D 




OOOOOOOD 


D 




00000004 


D 




00000013 


D 





00000012 


D 


00000003 


D 


00000001 


D 


OOOOOOOF 


D 


00000017 


D 


00000005 


D 


00000015 


D 


00000019 


D 


00000002 


D 


OOOOOOOE 


D 


OOOOOOOA 


D 


00000011 


D 


006600DO 


D 


00660118 


D 


006600FO 


D 


006600E8 


D 


00660120 


D 


006600A8 


D 


006600EO 


D 


00660108 


D 


00660002 


D 


00660068 


D 


00660080 


D 


006600C8 


D 


006600C0 


D 


00660060 


D 


00660018 


D 


00660078 


D 


00660100 


D 


00660050 


D 


006600B8 


D 


00660040 


D 


00660038 


D 


00660090 


D 


00660070 


D 


00660088 


D 


00660058 


D 


006600F8 


D 


00660128 


D 


00660110 


D 


00660001 


D 


006600B1 


D 


00660030 


D 


006600B0 


D 


00660010 


D 


00660008 


D 


00660098 


D 


00660020 


D 


00660004 


D 


006600AO 


D 


00660028 
006600D8 


D 


D 


00660048 


D 


00660000 


D 


OOQOFEOO 
OOOOFAOO 


D 


D 


0O00FEO4 


D 



J 
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DSASGL.DEVLEN 

DSA$GL_ERRN0 

DSASGLJVENT 

DSASGL FLAGS 

DSASGL..MSGTYP 

DSASGL^PASSES 

DSASGL.PASSNO 

DSASGL. SECTNO 

DSA$GL„SID 

DSA$GL^SUBTNO 

DSASGL.TESTNO 

DSA$GL„UNITS 

DSA$GQ_MSGPTR 

DSASGT DEVNAM 

DSASVjSEBUG 

DSASV USER 

DSPSREMOVEBREAK 

DSR5C0MPLETI0N 

DSVSDEBUG 

DSVSDEBUG.fcXJT 

DSXSLOAD 

OSX$PRINTI 

EXAMBUFFER 

EXAMQWDBUF 

EXAMSIZE 

FAOARG 

FAOLS CTRSTR 

FAOL$~NARGS 

FAOL$~OUTBUF 

FAOLlJHJTLEN 

FAOL$ PRMLST 

FAOLST 

FETCH STORE 

FETCH STOR PREG 

FIND BPT 

FMTBPT 

FMTBPTADR 

FMTBPTLST 

FMTBPTNONE 

FMTBPTNOTSET 

FMTDIRECTIVE 

fMTEXAM 

fmtexam ascii 

fmtinvlBreg 

fmtnobptsleft 

FMTSTEP 
FMT BADPREG 
FMT"BASE OUT 
FMT~BYTE~ 
FMT'DBG LOAD 
FMT~D8G"MSG 
FMT*"DEC" 

fmt^dflt out 

fmt'excePtion 

fmt'hex 

FMTlONG 
FMT~NO ROOM 



Symbol table 



EXAMINE, DEP( 


)$r 


r, a 


OOOOFE58 


D 




0000FE44 


D 




0000FE48 


D 




0000FE00 


D 




O0OOFE40 


D 




0000FE08 


D 




0000FE54 


D 




0000FE10 


D 




0000FE14 


D 




0000FE4C 


D 




0000FE50 


D 




OOOOFEOC 


D 




0000FE68 


D 




OOOOFE5C 


D 




OOO00O1 A 


D 




• 0000001 C 


D 




00000553 RG D 


04 


******** 


X 


04 


000009CB RG 


D 


04 


00000B2A R 


D 


04 


******** 


X 


04 


******** 


X 


04 


00000083 R 


D 


02 


0000007B R 


D 


02 


- 00000020 


D 




00000107 R 


D 


02 


; 00000004 


D 




= 00000004 


D 




= OOOOOOOC 


D 




-■ 00000008 


D 




= 00000010 


D 




0000C0F3 R 


D 


02 


000007C3 RG 


D 


04 


0000099C R6 


D 


04 


000005C7 R 


D 


04 


00000085 R 


D 


03 


000000A7 R 


D 


03 


000000B2 R 


D 


03 


000000C9 R 


D 


03 


OOOOOODE R 


D 


03 


00000070 R 


D 


02 


00000128 R 


D 


03 


00000118 R 


D 


03 


000000F9 R 


D 


03 


00000139 R 


D 


03 


0000009C R 


D 


03 


000001E4 R 


D 


03 


00000007 R 


D 


03 


00000080 R 


D 


03 


00000121 R 


D 


02 


000001 OB R 


D 


02 


00C00064 R 


D 


03 


0000002D R 


D 


03 


000001B0 R 


D 


03 


00000058 R 


D 


03 


00000072 R 


D 


03 


000001 3A R 


D 


02 



AND 
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FMTJKT 

FMT WORD 

FS_COPY 

FS HANDLR 

FSlRESET 

FS SETUP 

HTAB 

IMAGE, HEADER 

INITBKSE 

INITSIZE 

LOCAL 

MAP DEBUGGER 

MODELST 

M STEP 

M'TBIT 

NEW APJP 

NEW PC PSL 

NEW~SP~ 

prtJc.ur 

PRTSC.UW 

PSLSC.KERNEL 

PSLSM.TBIT 

PSLSM..TP 

PSLSV IS 

PSLBUfFER 

PSLBUFSZ 

PSLREG 

R8REAK IN 

RBREAlCOUT 

REGNAMCST 

SAVABS... 

SCRIPTSSTOP 

SETPRT$_ACMODE 

SETPRTSJNADR 

SETPRT$_NARGS 

SETPRTt PROT 

SETPRT$~PRVPRT 

SETPRTS^RETADR 

SJZ,.. 

SS$ ACCVIO 

SS$~BREAK 

SS$„CONTINUE 

SS$ NORMAL 

SS$IRESIGNAL 

SS$ ROPRAND 

SS$"TBIT 

SYMTAB HI 

SYSSCRETVA 

SYSSFAO 

SYSSFAOL 

SYSSSETPRT 

SYSSUNWIND 

TRANSACTOR 

TRANS VECTOR_OFFSET 

T ACCVIO 

T"EMESSG1 

TMACHCK 
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0000006C 


R 


D 


03 


0000007B R 


D 


03 


O000O81A R 


D 


04 


0000083F 


R 


D 


04 


00000964 


R 


D 


04 


000008CE 


R 


D 


04 


00000009 




D 




******** 




X 


04 


oooooooo 




D 




00000004 




D 




FFFFFFB8 




D 




******** 




X 


04 


00000239 RG D 


03 


00000002 




D 




00000001 




D 




O00OO05C 


R 


D 


02 


00000068 


R 


D 


02 


00000064 


R 


D 


02 


******** 




X 


04 


******** 




X 


04 


oooooooo 




D 




00000010 




D 




40000000 




D 




0000001 A 




D 




O000O0A3 


R 


D 


02 


00000050 




D 




00000010 




D 




00000775 


R 


D 


04 


0000074A 


R 


D 


04 


0000026E 


R 


D 


03 


FFFFFFB8 




D 




******** 




X 


04 


OOOOOOOC 




D 




00000004 




D 




00000005 




D 




00000010 




D 




00000014 




D 




00000008 




D 




00000001 




D 




******** 




X 


04 


******** 




X 


04 


******** 




X 


04 


00000001 




D 




******** 




X 


04 


******** 




X 


04 


******** 




X 


04 


00000185 


RG D 


02 


******** 




SX 


04 


******** 




X 


04 


******** 




GX 


04 


******** 




X 


04 


******** 




GX 


04 


000OOB2B 


R 


D 


04 


00000002 




D 




00000183 


R 


D 


03 


******** 




X 


04 


00000162 


R 


D 


03 



ZZ-ENSAA-7.0 
DEBUG 
Symbol table 

T PREGREAD 

T~PREGWR1TE 

T"TRANSL 

URMAP DEBUGGER 

VRCLRBRK 

VRCLRBRKX 

VRDEPOSIT 

VRDEPOSITX 

VREXAMINE 

VREXAMINEX 

VRSETBASE 

VRSETBRK 

VRSETBRKX 

VRSETDFLT 

VRSHOWBASE 

VRSHOWBRK 

VRSHOWBRKX 

VRSHOWDFLT 

VRTYPEXAMINE 

V STEP 

V'TBiT 



Symbol table 



EXAMINE, DEP0S1 


T, 


000001 D1 R D 


03 


000001 DB R D 


03 


00000197 R D 


03 


******** x 


04 


00000503 RG D 


04 


0000054D R D 


04 


000003B2 RG D 


04 


000004AA R D 


04 


000000CA RG D 


04 


000001BE R D 


04 


00000000 RG D 


04 


000004AD RG D 


04 


000004FD R D 


04 


0000001 D RG D 


04 


0000C009 RG D 


04 


0000057C RG D 


04 


000005C4 R D 


04 


00000060 RG D 


04 


000001 C6 R D 


04 


00000001 D 




00000000 D 





AND 



G 9 

27-JUL-1984 Fiche 5 Frame 69 Seguence 934 
BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0f _ ^ u Page 56 

DMA1:CSYS0.SYSMAINTJDEBUG.MAR;255(40) 



PSECT nams 

. ABS , 

$ABS$ 

WORK 

DATA 

CODE 



A I Location 

00000000 
FFFFFFF8 
00000189 
000002E8 
00000B33 



+—.«- — , *» — + 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

393.) 02 ( 2.) NOPIC USR 

744.) 03 ( 3.) NOPIC USR 

2867.) 04 ( 4.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 

CON ABS LCL NOSHR EXE RD 

CON REL LCL NOSHR NOEXE RD 

CON REL LCL SHR NOEXE RD 

CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 

NOWRT NOVEC BYTE 



ZZ-ENSAA-7,0 

DEBUG 
ross reference 



Cross reference 



H 9 

27-JUL-1984 Fiche 5 Frame H9 Sequence 935 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-198J 15:13:56 g«i ] i 5 ?I8:ivgiSlS?JDEBUG.HA5f SI 5<IS> 



! Symbol Cross Reference ! 
+ .+ 



SYMBOL 

$$ARGS 
S$N 



s$n 

SST2 

$ER 

SMODULE 

AAP 

ADR1 

ADR2 

AEM 

AFP 

AKM 

APC 

APSL 

APSLMNE 

ARO 

ART 

ARID 

AR11 

AR2 

AR3 

ar4 

AR5 
AR6 
AR7 
AR8 
AR9 
ARG1 



ARG2 



ASM 
ASP 
AUM 
BASEADDRESS 

BIT... 

BPTCODE 
BPTMAX 



BPT LITERAL 
CALC.CU 



VALUE 

:00000004 
=00000002 



=00000014 

=00000007 

=00000001 

QOOOOOOO-R 

000002D8-R 

FFFFFFD8 

FFFFFFB8 

00000254-R 

000002D8-R 

0000024D-R 

000002E1-R 

000002E4-R 

000001 F8-R 

000002B2-R 

000002B5-R 

OOO002D0-R 

000002D4-R 

000002B8-R 

000002BB-R 

000002BE-R 

000002C1-R 

000002C4-R 

000002C7-R 

000002CA-R 

000002CD-R 

FFFFFFEO 



^ff^fZO 



0000025E-R 
000002DE-R 
00000269-R 
00000058-R 

=0000000F 
=00000003 
:0O00O0OF 



00000006-R 
0000064F-R 



DEFINITION 



REFERENCES.. 



177 
1838 



177 
778 
199 
199 
292 
1538 

1538 

257 

293 

256 

295 

296 

246 

280 

281 

290 

291 

282 

283 

284 

285 

286 

287 

288 

289 

1538 



258 
294 
259 
155 

126 
104 
106 



200 
1300 



(3) 
(40) 



(3) 

(18) 

(4) 

(4) 

(6) 

(37) 

(37) 

(5) 

(6) 

(5) 

(6) 

(6) 

(5) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(37) 



1538 (37) 



(5) 
(6) 
(5) 
(3) 

(2) 
(2) 
(2) 



(4) 

(12) 



124 
0-1044 
1298 
1838 
641 
994 
124 
778 



274 
#-1647 
0-1666 
#-1653 
252 
275 
251 
277 
278 
763 
262 
263 
272 
273 
264 
265 
266 
267 
268 
269 
270 
271 
0-1544 
0-1669 
0-1676 
0-1545 
0-1657 
0-1664 
253 
276 
254 
0-1037 
0-863 
120 
200 
0-1048 
0-1433 
0-994 

1488 
0-1283 



(2) 

(26) 

(32) 

(40) 

(15) 

(24) 

(2) 

(18) 



(6) 

(40) 

(40) 

(40) 

(5) 

(6) 

(5) 

(6) 

(6) 

(17) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(6) 

(38) 

(40) 

(40) 

(38) 

(40) 

(40) 

(5) 

(6) 

(5) 

(26) 

(21) 

(2) 

(4) 

(26) 

(35) 

(24) 

(36) 

(32) 



177 
0-1141 
1629 
380 
793 

177 



0-1649 

1670 

0-1654 



0-1644 
0-1671 

1694 
0-1645 
0-1659 

1699 



0-338 

0-977 

121 

0-1095 
0-1477 



(3) 

(28) 

(39) 

(8) 

(18) 

(3) 



(40) 
(40) 
(40) 



(40) 
(40) 
(40) 
(40) 
(40) 
(40) 



(7) 

(24) 

(2) 

(27) 
(36) 



1143 

0-1802 
528 
0-856 



0-1650 
1658 



1667 
0-1672 

1697 

1655 
0-1660 

1702 



0-380 

0-985 

126 

0-1136 
148 



(28) 
(40) 
(12) 
(21) 



0-1148 
0-1826 
0-591 
912 



(28) 
(40) 
(14) 
(22) 



(40) 
(40) 



0-1653 (40) 



(40) 
(40) 
(40) 
(40) 
(40) 
(40) 



(8) 

(24) 

(2) 

(28) 
(3) 



0-1668 
1674 

0-1656 
1662 



0-598 



0-1184 
151 



(40) 

(40) 

(40) 
(40) 



(14) 



(29) 
(3) 



0-1390 (34) 



ZZ-ENSAA-7.0 Cross 


reference 






27« 


I 9 

-JUL-1984 


Fie he 


5 Frame 


19 


Segu 
*o V03-01 


ence 936 


— » CO 


DEBUG 




EXAMINE, DEPOSIT. 


AND BREAKPOINT SUBROUT 


27-JUL-1984 15:13 


:56 VAX- 


11 Macr 


Pa 


ge 58 


V' u fc^ W \J 

Cross 


reference 












23-JUL-1984 16:22 


:51 DMA1 


:CSYS0, 


SYSMAINTDDEBUG.MAR;* 


255(40) 


CL1SK_ 


BUFSIZ 


=00000100 


119 


(2) 


119 


(2) 
















CLltK 


SIZE 


00000444 


119 


(2) 
















* i \ 




CLlSLl 


ADDRESS 


00000018 


119 


(2) 


#-1038 


(26) 


#-338 


(7) 


#-580 


(14) 


#-607 


(14) 

r «4 ^ t 














#-654 


(15) 


#-658 


(15) 


#-660 


(15) 


#-662 


(15) 














#-710 


(16) 


#-760 


(17) 


#-845 


(21) 


#-924 


(22) 














#-928 


(22) 


#-931 


(22) 


#-978 


(24) 


#-986 


(24) 














#-990 


(24) 
















CLISL 


COMMAND 


00000004 


119 


(2) 




















CLlSL* 


DATA 


0000001 C 


119 


(2) 


#-1034 


(26) 


#-1389 


(34) 


887 


(22) 


#-893 


(22) 




CLlSLl 


FLAGS 


00000000 


119 


(2) 


429 


(10) 


431 


(10) 


433 


(10) 


442 


(10) 














444 


(10) 


446 


(10) 


587 


(14) 


597 


(14) 














605 


(14) 


606 


(14) 


611 


(14) 


613 


(14) 














621 


(15) 


639 


(15) 


653 


(15) 


657 


(15) 














685 


(15) 


687 


(15) 


689 


(15) 


711 


(16) 














715 


(16) 


736 


(17) 


739 


(17) 


759 


(17) 














852 


(21) 


862 


(21) 


871 


(21) 


873 


(21) 














875 


(21) 


885 


(22) 


907 


(22) 


923 


(22) 














927 


(22) 


935 


(22) 


974 


(24) 








CLISL 


LAST 


00000024 


119 


(2) 




















CLiSL" 


"NEXT 


00000030 


119 


(2) 


#-651 


(15) 


#-663 


(15) 


#-920 


(22) 


#-932 


(22) 




CLlSLl 


"PASS 


0000002C 


119 


(2) 




















CLISL. 


SUBT 


00000028 


119 


(2) 




















CLISL. 


'TEST 


00000020 


119 


(2) 




















CUSQ. 


BUFQWD 


00000034 


119 


(2) 




















CLISQ 


'FILE 


00000008 


119 


(2) 


1831 


(40) 
















CLISQ" 


"SECTION 


00000010 


119 


(2) 




















CLISQ. 


TIME 


0000043C 


119 


(2) 




















CLIST. 


"BUFFER 


0000003C 


119 


(2) 




















aisv. 


ADAPTER 


=00000018 


119 


(2) 




















CL1SV 


"ADR 


=00000008 


119 


(2) 




















clisv; 


[ASCII 


=00000013 


119 


(2) 


#-736 


(17) 
















CLISV. 


BREAK 


=0000000A 


119 


(2) 




















CLISV 


"BRIEF 


=0000001B 


119 


(2) 




















CLISV" 


[BYTE 


=O0OOO0OD 


119 


(2) 


#-442 


(10) 


#-613 


(14) 


#-875 


(21) 








CLISV 


CLEAR 


=00000002 


119 


(2) 




















CLISV^ 


"DEC 


=00000010 


119 


(2) 


#-431 


(10) 


#-687 


(15) 












CLISV_DEFAULT 


=0000O0OC 


119 


(2) 




















CLISV. 


.DEPOSIT 


=00000019 


119 


(2) 




















CLISV. 


EVENT 


=00000008 


119 


(2) 




















CLISV. 


.EXAM 


=00000005 


119 


(2) 




















CLISV 


FLAGS 


=00000009 


119 


(2) 




















CLISV] 


>EX 


=00000012 


119 


(2) 


#-433 


(10) 


#-685 


(15) 












CLISV. 


KERNEL 


=00000017 


119 


(2) 


#-974 


(24) 
















CLISV 


LOAD 


=00000006 


119 


(2) 




















CLISV] 


Ilong 


=0000000F 


119 


(2) 


#-446 


(10) 


#-605 


(14) 


#-871 


(21) 








CLISV 


NOTNUF 


=00000001 


119 


(2) 




















CLISV 


"OCT 


=00000011 


119 


(2) 


#-429 


(10) 


#-689 


(15) 












CLISV 


IPREG 


=0000001A 


119 


(2) 


#-597 


(14) 


#-621 


(15) 


#-639 


(15) 


#-657 


(15) 




V *■» * ir w , 










#-715 
#-907 


(16) 

(22) 


#-739 
#-927 


(17) 
(22) 


#-862 
#-935 


(21) 

(22) 


#-885 


(22) 




CLISV 


QA 


=00000007 


119 


(2) 




















CLISV 


IQACKLOOPLOOPS 


=0000001 c 


119 


(2) 




















CLISV 


QAERRORPR1NTS 


=00000018 


119 


(?) 




















CLISV 


""QAMULTIPLEPASS 


=0000001F 


119 


(2) 




















CLISV 


"QASUBTESTLOOPS 


=0000001 E 


119 


(2) 




















CLISV 


"OATESTLOOPS 


-0000001 D 


119 


(2) 




















CLISV 


IREG 


=00000014 


119 


(2) 


#-587 


(14) 


#-606 


(14) 


#-653 


(15) 


#-711 


(16) 





ZZ-ENSAA-7,0 Cross 


reference 






27- 


J 9 

•JUL-1984 


Fie he 


5 Frame 


J9 


Segu 
•o V03-0T 


ence 937 


frt 


DEBUG 


EXAMINE, DEPOSIT, i 


WD BREAKPOINT SUBROUT 


27-JUL-1984 15:13 


:56 VAX- 


-11 Macr 


Pa< 


je 59 


W *— W \* \J 

iross reference 




— ■——»- w 








23-JUL-1984 16:22 


:51 DMA1 


:[SYS0, 


SYSMAINT3DEBUG.MAR;< 


555(40) 










#-759 


(17) 


#-852 


(21) 


#-923 


(22) 








CL1SV REQUIRED 


=00000000 


119 


(2) 




















CL1SV~RUN 


=00000015 


119 


(2) 




















CLISV~SET 


=00000003 


119 


(2) 




















CLISV'SHOW 


=00000004 


119 


(2) 




















CLISV~VALSEC 


=00000016 


119 


(2) 




















CLISV~W0RD 


=00OO00OE 


119 


(2) 


#-444 


(10) 


#-611 


(K) 


#-873 


(21) 








CMKSSGlPR 


0000098D-R 


1720 


(40) 


#-636 


(15) 


#-898 


(22) 












CMKS_ 


=00000004 


126 


(2) 




















CMKS ASTEXIT 


=00000000 


126 


(2) 




















CMKS~CANTIM 


=0000000B 


126 


(2) 




















CMKS'HIBER 


=00000007 


126 


(2) 




















CMKS~INITSCB 


=00000008 


126 


(2) 




















CMKS~LA$T 


=00OO0OOE 


126 


(2) 




















CMKS'MMENABLE 


=00000003 


126 


(2) 




















CMKS~RCQNSOLE 


=00000001 


126 


(2) 




















CMKS~REFRESH 


=00000005 


126 


(2) 




















CMK$„SCHDWK 


=00000006 


126 


(2) 




















CMKS.SETIMR 


=0OO000OC 


126 


(2) 




















CMKS SET1PL 


=00000009 


126 


(2) 




















CMKS SETPRT 


=00O0OO0D 


126 


(2) 




















CMK$~SGIPR 


=0OO00OOA 


126 


(2) 


#-636 


(15) 


#-898 


(22) 












CMKSJCONSOLE 


=00000002 


126 


(2) 




















COND DEBUG 


00O005DE-R 


1226 


(30) 




















CONT~FROM DEBUG 


00000B21-R 


1859 


(40) 


1867 


(40) 
















DATA" 


FFFFFFF8 


1538 


(37) 


1557 


(38) 


1568 


(38) 












DBG ADDR REQ 


000001 6D-R 


189 


(3) 


#-1806 


(40) 


#-1808 


(40) 


#-1809 


(40) 


1811 


(40) 




DBG~ADDR~RTN 


000001 75-R 


191 


(3) 


1811 


(40) 


#-1812 


(40) 


#-1813 


(40) 


#-1817 


(40) 




*•■ b^ ^^ * *^ *^ ^ * ■ 








#-1818 
#-1852 


(40) 
(40) 


#-1822 


(40) 


#-1828 


(40) 


#-1838 


(40) 




DBG BREAK 


00000605-R 


1266 


(32) 


#-1232 


(30) 
















DBG'DEF 


000009BF-R 


1797 


(40) 


1830 


(40) 
















DBG~TBIT 


000006D6-R 


1369 


(34) 


#-1237 


(30) 
















DEBDGSGB FLAGS 


00000000-R 


141 


(3) 


#-1344 


(32) 


1371 


(34) 


1375 


(34) 


#-1 393 


(34) 




DEBUGGER~SIZE 


=00010EOO 


114 


(2) 


#-1807 


(40) 


#-1815 


(40) 


#-1829 


(40) 








DEBUG HI" 


000001 81 -R 


194 


(3) 


#-1813 


(40) 


#-1821 


(40) 












DEBUG~LO 


000001 7D-R 


193 


(3) 


#-1812 


(40) 


#-1822 


(40) 


#-1823 


(40) 








DFLTSlZE 


00000054-R 


152 


(3) 


#-443 
#-614 


(10) 
(14) 


#-445 
#-876 


(10) 

(21) 


#-447 


(10) 


#-513 


(12) 




DIAG FILE NAME 


00000000-XR 






133 


(3) 


1848 


(40) 












DIR.T. 


=FFFFFFFF 


1538 


(17) 


1538 


(37) 
















DS$AA_BPTADDR 


OOOOOOK-R 


150 


(3) 


#-1041 


(26) 


#-1049 


(26) 


1093 


(27) 


#-1137 


(28) 












#-1143 


(28) 


#-1186 


(29) 


#-1276 


(32) 


#-1282 


(32) 












#-1298 


(32) 


#-1339 


(32) 


#-14:4 


(35) 


#-1437 


(35) 












#-1478 


(36) 


#-1482 


(36) 


#-148? 


(36) 


#-1493 


(36) 












#-987 


(24) 


#-991 


(24) 












DSSAB BPTINST 


00000001 -R 


14? 


(3) 


1279 


(32) 


1438 


(35) 


1481 


(36) 








DSSCL7 


00000000-XR 






1309 


(32) 
















DSSCVTREG 


00000000-XR 






763 


(17) 
















DSSGL CLIBASE 


00000000-XR 






1032 


(26) 


1388 


(34) 


973 


(24) 








DSSGL~MEMSJZE 


00000000-XR 






#-1816 


(40) 


#-1820 


(40) 












DSSGLlRADIX 


00000000-XR 






#-430 


(10) 


#-432 


(10) 


#-434 


(10) 


#-502 


(12) 












#-692 


(15) 


#-695 


(15) 












DSSK ERROR 


^00000002 


121 


(2) 




















DSSK~NORMAL 


=00000001 


121 


(2) 




















DSSK~SEVERE 


=00000004 


121 


(2) 




















DSSKlSUBSYS 


=00000066 


121 


(2) 


121 


(2) 

















ZZ-ENSAA-7,0 

DEBUG 

Cross reference 

DSSK WARNING 

DSSM ABRTFLG 

DSSMlBADTlME 

DSSM BATCH 

DSSM^BRKCLR 

DSSM_BRKPT 

DSSM_CHARFLG 

DSSM^CMDFLG 

DSSM CTRLC 

DSSM"CTRLO 

DSSM DEVFLG 

DSSM~*D1SABLCC 

DSSMJ)ONFLG 

DSSMJRRFLG 

DSSM^EXCEPT 

DSSM.EXETST 

DSSM HLTFLG 

DSSMJ.ODFLG 

DSSMJ1EMMGT 

DSSMJDUTPUT 

DSSMJUJBFLG 

DSSM^SCRIPT 

DSSM SETIMR 

DSSM STRFLG 

DSSMlSUBT 

DSSM SYSFLG 

DSSM.TIMRQN 

DSSPR1NTF 



Cross reference 



K 9 

27-JUL-1984 Fiche 5 Frame K9 Sequence 938 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT g-JUM™ ]5;13:56 VAX^f] WiSCIvSSlShDEBUG.HAS?! 



"1 



ie 60 
55(40) 



DSSV 

DSSV 

DSSV. 

DSSV 

DSSV. 

DSSV. 

DSSV 

DSSV, 

DSSV 

DSSV 

DSSV 

DSSV. 

DSSV 

DSSV, 

DSSV 

DSSV. 

DSSV 

DSSV, 

DSSV 

DSSV 

DSSV, 

DSSV 

DSSV 

DSSV 

DSSV 



ABRTFLG 
'BADTIME 
"BATCH 
'BRKCLR 
BRKPT 
"CHARFLG 
"CMDFLG 
"CTRLC 
"CTRLO 
"DEVFLG 
"DISABLCC 
"DONFLG 
'ERRFLG 
"EXCEPT 
"EXETST 

HLTFLG 
"LODPLG 
"MEMMGT 
"OUTPUT 
"RUBFLG 
"SCRIPT 
'SETIMR 
'STRFLG 
"SUBT 

SYSFLG 



=00000000 
=00000040 
=00100000 
=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 
=00000200 
=01000000 
=00002000 
=00000010 
=00080000 
=00040000 
=00000008 
=00000002 
=00008000 
=00800000 
=00000020 
=00200000 
=02000000 
=00000004 
=00004000 
=00000400 
=00020000 
00000000 



-XR 



^00000006 
=00000014 
=00000016 
=OO000O0C 
=00000008 
=00000008 
=00000007 
=00000000 
=00000010 
=00000009 
=00000018 
:O000OO0D 
=00000004 
=00000013 
=00000012 
=00000003 
=00000001 
=0000000f 
=00000017 
=00000005 
=00000015 
=00000019 
=00000002 
-OO000OOE 
=OO00OO0A 



121 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 

120 



120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
120 
1^0 
120 
120 
120 
120 
120 
120 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(?) 
(2) 
(2) 
(2) 
(2) 
(2) 



1044 

1298 

1838 

634 

994 



(26) 
(32) 
(40) 
(15) 
(24) 



1141 
1386 
380 
793 



(28) 
(34) 
(8) 
(18) 



1143 


(2Z) 


1148 


(28) 


1802 


(40) 


1826 


(40) 


528 


(12) 


591 


(14) 


856 


(21) 


896 


(22) 



7Z-ENSAA-7.0 Cross 


reference 






27- 


L 9 « 
•JUL-1984 


Fiche ! 


5 Frame 


L9 


Seguence 939 
-o V03-0T Pa< 


3e 61 


DEBUG 


EXAMINE, DFPOSIT. / 


W BREAKPOINT SUBROUT 27 


-JUL-1984 15:13 


:56 VAX- 


11 Macr 


V fc*» fc-* w \J 

Cross reference 










23 


-JUL-1984 16:22 


:51 DMA1 


:[SYS0. 


SYSMAINTDDEBUG.MAR;* 


555(40) 


DSSV TIMRON 


=00000011 


120 


(2) 
















DSS Srith 


=O066O0D0 


121 


(2) 
















DSS~ASBE 


=00660118 


121 


(2) 
















DSS BADL1NK 


=0066O0F0 


121 


(2) 
















OSS BADTYPE 


=006600E8 


121 


(2) 
















DSS^BIIC 


=00660120 


121 


(2) 
















DSS.CHME 


=006600A8 


121 


(2) 
















DSS CHMK 


=006600EO 


121 


(2) 
















OSS'DEVNAME 


=00660108 


121 


(2) 
















DSS~ERROR 


=00660002 


121 


(2) 
















DSSJHWE 


=00660068 


121 


(2) 
















DSS FRAGBUF 


=00660080 


121 


(2) 
















DSS^ICBUSY 


=O06600C8 


121 


(2) 
















DSS KERR 


=006600CO 


121 


(2) 
















DSS^IHWE 


=00660060 


121 


(2) 
















DSS'lLLCHAR 


=00660018 


121 


(2) 
















DSIJLLPAGCNT 


=00660078 


121 


(2) 
















DSSJLLUNIT 


=00660100 


121 


(2) 
















DSS INSFMEM 


=00660050 


121 


(2) 
















DSSJPL2HI 


=00660088 


121 


(2) 
















DSS IVADDR 


=00660040 


121 


(2) 
















DSSJVVBCT 


=00660038 


121 


(2) 
















DSS KRNLSTK 


=00660090 


121 


(2) 
















DSS'LOGIC 


=00660070 


121 


(2) 
















DSS"MCHK 


=00660088 


121 


(2) 


#-1605 


(39) 












DSS"MMOFF 


=00660058 


121 


(2) 
















DSS"NEEDUNIT 


=006600F8 


121 


(2) 
















DSS'NODE 


=00660128 


121 


(2) 
















DS$"NOPCS 


=00660110 


121 


(2) 
















DS$~NORMAL 


=00660001 • 


1:1 


(2) 
















DSS^NOSUPPORT 


=00660081 


121 


(2) 
















DSS~NOTD0N 


=00660030 


121 


(2) 
















DSS*"NOTIMP 


=00660080 


121 


(2) 


121 


(2) 












DSS~NULLSTR 


=00660010 


121 


(2) 
















DSS'OVERFLOW 


=00660008 


121 


(2) 
















DSS>OWER 


=00660098 


121 


(2) 
















DSS"PROGERR 


=00660020 


121 


(2) 
















DSS^SEVERE 


=00660004 


121 


(2) 
















DSS"TRANSL 


=006600AO 


121 


(2) 


#-1610 


(39) 












DSS'TRUNCATE 


=00660028 


121 


(2) 
















DS$~UNEXPINT 


=00660008 


121 


(2) 
















DSS~VASFULL 


=00660048 


121 


(2) 
















DSS"* WARNING 


=00660000 


121 


(2) 


121 


(2) 












DSA$GL_FLAGS 


0000FE00 






1800 


(40) 


1804 (40) 


#-1840 


(40) 


1844 (40) 












632 


(15) 


894 (22) 










DSASV DEBUG 


=0000001A 






#-1799 


(40) 


#-1839 (40) 










DSASV~USER 


=0000001 C 






#-1803 


(40) 


#-1843 (40) 


#-632 


(15) 


#-894 (22) 




DSPSREMOVEBREAK 


00000553-R 


1090 


(27) 
















DSRSCOMPLETION 


00000000-XR 






1833 


(40) 












DSVSDEBUG 


000009CB-R 


1798 


(40) 
















DSVSDEBUG EXIT 


O00OOB2A-R 


1863 


(40) 


#-1827 


(40) 


#-1836 (40) 










DSXSLOAD 


00000000-XR 






1832 


(40) 












DSXSPRINTI 


00000000-XR 






1629 


(39) 


1684 (40) 


641 


(15) 


912 (22) 




EXAMBUFFER 


00000083-R 


168 


(3) 


167 


(3) 


707 (16) 


790 


(18) 






EXAMQWDBUF 


0000007B-R 


166 


(3) 


177 


(3) 


#-706 (16) 


#-707 


(16) 


#-716 (16) 












#-717 


(16) 


#-718 (16) 


#-723 


(16) 


#-724 (16) 












#-725 


(16) 


U-727 (16) 


#-728 


(16) 


#-729 (16) 





ZZ-ENSAA-7.0 

DEBUG 

Cross reference 



EXAMSIZE 
FAOARG 

FAOLS CTRSTR 

FAOL$~NARGS 

FAOL$IOUTBUF 

FAOLS OUTLEN 

FAOLS'PRMLST 

FAOLST 

FETCH^STORE 

FETCH STOR PREG 

FIND SPT 

FMTBPT 

FMTBPTADR 

FMTBPTLST 

FMTBPTNONE 

FMTBPTNOT3ET 

FMTDIRECTIVE 

FMTEXAM 
FMTEXAM ASCII 
FMTINVLBREG 
FMTNOBPTSLEFT 

FMTSTEP 

FMT BADPREG 

FMT~BASE OUT 

FMT~BYTE~ 

FMT~DBG LOAD 

FMT~DBG~MSG 

FMT'DEC" 

FMT"DFLT OUT 

FMT~EXCEPTION 

FMT'HEX 

FMT'LONG 

FMT~NO ROOM 

FMT~OCT 

FMT~WORD 

fs Copy 
fs~handlr 

FS~RESET 

FS~SETUP 

HTte 

IMAGE, HEADER 

INITBfiSE 

INITS1ZE 

LOCAL 

map debugger 
modFlst 

M STEP 
M~TBIT 
NEW AP fP 

NEW'PC'PSL 
NEW'SP" 



Cross reference 



M 9 
27-JUL-1984 Fiche 5 Frame M9 Seguence 940 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT g-JUL-198A 15:13 = 56 ^ll^acro^O^^^^^P, 



ie 62 
>55<40) 



=00000020 107 (2) 

000001 07-R 179 (3) 

=00000004 177 (3) 

=00000004 177 (3) 

=00O000OC 177 (3) 

=00000008 177 (3) 

=00000010 177 (3) 

000000F3-R 173 (3) 

000007C3-R 1540 (38) 

0000099C-R 1764 (40) 

000005C7-R 1183 (29) 

00000085-R 218 (4) 

000000A7-R 222 (4) 

000000B2-R 224 (4) 

O0O00OC9-R 226 (4) 

000000DE-R 228 (4) 

00000070-R 162 <3) 

000001 2B-R 234 (4) 

000001 18-R 232 (4) 

00O000F9-R 230 (4) 

00000139-R 236 (4) 

0000009C-R 220 (4) 

000001E4-R 245 (5) 

00000007-R 202 (4) 

00000080-R 216 (4) 

00000121-R 187 (3) 

000001 OB-R 186 (3) 

00000064-R 208 (4) 

0000002D-R 204 (4) 

000001BO-R 242 (5) 

00000058-R 206 (4) 

00000072-R 212 (4) 

0000013A-R 188 (3) 

0000006C-R 210 (4) 

0000007B-R 214 (4) 

0000081 A-R 1582 (39) 

0000083F-R 1601 (39) 

00000964-R 1693 (40) 

000008CE-R 1642 (40) 

=00000009 103 (2) 

00000000-XR 

=00000000 109 (2) 

=00000004 110 (2) 

FFFFFF68 1538 (37) 
00000000-XR 

00000239-R 250 (5) 

=00000002 146 (3) 

=00000001 144 (3) 

0000005C-R 158 (3) 

00000068-R 160 (3) 

00000064-R 159 (3) 



0-751 
#-782 
#-793 
167 
177 
#-749 



722 
1281 
1490 
1725 

#-1039 
1298 
1143 
1141 
1148 
1044 
177 

#-719 
793 
778 
591 
994 
1385 
641 
380 
522 
1838 
1802 
509 
528 
1629 
505 
516 
1826 
511 
520 

#-1558 
1547 

#-1559 

#-1554 

1849 
156 
153 
1543 
1824 
763 
#-1393 
#-H93 
#-1518 
#-1321 
#-1319 



(17) 

(18) 

(18) 

(3) 

(3) 

(17) 



(16) 

(32) 

(36) 

(40) 

(26) 

(32) 

(28) 

(28) 

(28) 

(26) 

(3) 

(16) 

(18) 

(18) 

(14) 

(24) 

(34) 

(15) 

(8) 

(12) 

(40) 

(40) 

(12) 

(12) 

(39) 

(12) 

(12) 

(40) 

(12) 

(12) 

(38) 

(38) 

(38) 

(38) 

(40) 

(3) 

(3) 

(38) 

(40) 

(17) 

(34) 

(34) 

(32) 

(32) 

(32) 



#-752 
#-783 

169 
#-709 



750 

1381 

627 



#-684 
#-747 



856 
912 



#-1569 

1765 

#-1570 

#-1566 



#-1340 
#-1342 
#-1341 



(17) 
(18) 

(3) 

(16) 



(17) 
(34) 

(15) 



(15) 
(17) 



(21) 

(22) 



1683 (40) 



(38) 
(40) 
(38) 
(38) 



(32) 
(32) 
(32) 



#-753 
#-789 

#-706 
#-713 



(17) 

(18) 

(16) 

(16) 



778 
#-790 

#-789 
#-720 



(18) 
(18) 

(18) 
(16) 



1440 
889 



#-1285 (32) #-979 



1484 

(24) #-983 



(35) 
(22) 



(36) 
(24) 



#-699 
#-748 



(15) #-712 (16) 
(17) 



#-1632 (39) #-1686 (40) 



ZZ-ENSAA-7.0 Cross 


reference 






27- 


N 9 

■JUL-1984 


Fiche 


5 Frame 


N9 


Sequ 
^o V03-0T 


ence 941 


I "2 


DEBUG 


EXAMINE* DEPOSIT, i 


W BREAKPOINT SUBROUT 


?7-JUL-1984 15:13 


:56 VAX- 


11 Macr 


Pac 


ae 63 

^ ¥* tf* 4 i f\ V 


fc* l_ w vj xj 

Cross reference 




—■ -— . W -T W 








23-JUL-1984 16:22 


:51 DMA1 


jCSYSO. 


SYSMAINTJDEBUG.MAR;, 


555(40) 


PRTSC UR 


00000000-XR 






#-1553 


(38) 
















PRTSC~UW 


00000000-XR 






#-1565 


(38) 
















psl$c~kernel 


=00000000 






#-1551 


(38) 


#-1563 


(38) 








4 Tt 1 \ 




PSLSM'TBIT 


=00000010 






#-1320 


(32) 


#-1343 


(32) 


#-1395 


(34) 


#-1399 


(34) 




PSL$M~TP 


=40000000 






#-1320 


(32) 


#-1399 


(34) 












PSL$\TlS 


=0000001 A 


126 


(2) 


#-636 


(15) 


#-898 


(22) 












pslbuFfer 


0O0O00A3-R 


170 


(3) 


#-735 


(17) 


763 


(17) 


#-793 


(18) 








PSLBUFSZ 


=00000050 


108 


(2) 


171 


(3) 


#-763 


(17) 












PSLREG 


=00000010 


105 


(2) 


#-607 


(14) 


#-654 


(15) 


#-760 


(17) 


#-924 


(22) 




RBREAKJN 


00000775-R 


1474 


(36) 


#-1053 


(26) 


#-1104 


(27) 


#-1373 


(34) 


#-671 


(15) 












#-903 


(22) 


#-997 


(24) 












RBREAK.OUT 


0000074A-R 


1431 


(35) 


#-1031 


(26) 


#-1092 


(27) 


#-1337 


(32) 


#-1392 


(34) 












#-577 


(14) 


#-883 


(22) 


#-972 


(24) 








regnamlst 


0000026E-R 


261 


(6) 


#-713 


(16) 
















SAVABS... 


=FFFFFFB8 


1538 


(37) 




















SCRIPTSSTOP 


00000000-XR 






1308 


(32) 
















SETPRTS acmode 


=000O0OOC 


124 


(2) 




















SETPRTS~INADR 


=00000004 


124 


(2) 


#-1659 


(40) 


#-1671 


(40) 












SETPRT$~NARGS 


=00000005 


124 


(2) 


#-1660 


(40) 


#-1672 


(40) 












SETPRT$~PROT 


=00000010 


124 


(2) 


#-1544 


(38) 


#-1545 


(38) 


#-1644 


(40) 


#-1645 


(40) 












1655 
1694 


(40) 
(40) 


#-1664 
1699 


(40) 

(40) 


1667 


(40) 


#-1676 


(40) 




SETPRTS PRVPRT 


=00000014 


124 


(2) 


#-1656 


(40) 


#-1668 


(40) 












SETPRT$~RETADR 


=00000008 


124 


(2) 


#-1657 


(40) 


#-1669 


(40) 












SIZ... 


=00000001 


120 


(2) 


120 


(2) 
















SS$ ACCVIO 


00000000-XR 






#-161 c 


(39) 
















SS$~BREAK 


00000000-XR 






#-1230 


(30) 
















SS$~CONTINUE 


00000000-XR 






#-1325 


(32) 


#-1401 


(34) 












SS$~N0RMAl 


=00000001 


112 


(2) 


#-1191 


(29) 


#-1571 


(38) 












SS$~RESIGNAL 


00000000-XR 






#-1228 


(30) 


#-1288 


(32) 


#-1370 


(34) 


#-1 626 


(39/ 




SSS'ROPRAND 


00000000-XR 






#-1621 


(39) 
















SSS'TBIT 


00000000-XR 






#-1235 


(30) 
















symTab HI 


00000185-R 


195 


(3) 


#-1823 


(40) 
















sys$crEtva 


00000000-XR 






1811 


(40) 
















SYS$FAO 


00000000-XR 






778 


(18) 
















SYSSFAOL 


00000000-XR 






722 


(16) 


750 


(17) 












SYSSSETPRT 


00000000-XR 






1662 


(40) 


1674 


(40) 


1697 


(40) 


1702 


(40) 




SYSSUNWIND 


00000000-XR 






1633 


(39) 
















TRANS VECTOR 


00000B2B-R 


1865 


(40) 


1851 


(40) 
















TRANS"VECTOR OFFSET 


=00000002 


1793 


(40) 


#-1854 


(40) 
















T ACCtflO 


000001 83-R 


240 


(5) 


1618 


(39) 


1682 


(40) 












T~EMFSSG1 


00000000-XR 






633 


(15) 


895 


(22) 












T'MACHCK 


000001 62-R 


239 


(5) 


1607 


(39) 
















T~PREGREAD 


000001D1-R 


243 


(5) 


640 


(15) 


911 


(22) 












TPREGWRITE 


000001 DB-R 


244 


(5) 


909 


(22) 
















T"TRANSL 


000001 97-R 


241 


(5) 


1613 


(39) 
















uRmap debugger 


00000000-XR 






1835 


(40) 
















vrclrBrk 


00000503-R 


1029 


(26) 




















VRCLRBRKX 


0000054D-R 


1052 


(26) 


#-1042 


(26) 


#-1045 


(26) 










t 


VRDEPOSIT 


000003B2-R 


841 


(21) 




















VRDEPOSJTX 


000004AA-R 


939 


(22) 


#-857 
#-936 


(21) 
(22) 


#-897 


(22) 


#-907 


{22' 


#-913 


(22) 




VREXAMINE 


000000CA-R 


575 


(14) 




















VREXAM1NEX 


000001BE-R 


670 


(15) 


#-592 

#-655 


(14) 
(15) 


#-635 
#-659 


(15) 
(15) 


¥-642 


(15) 


#-652 


(15) 


i 


VRSETBASE 


00000000-R 


337 


(?) 




















VRSETBRK 


000004AD-R 


970 


(24) 


















i 

! 

i 

i 
. .. i 



Z2-ENSAA-7.0 

DEBUG 

Cross reference 

VRStTBRKX 

VRSETDFLT 

VRSHOWBASE 

VRSHOWBRK 

VRSHOWBRKX 

VRSHOWDFLT 

VRTYPEXAM1NE 

V. STEP 

v'tbit 



Cross reference 



B 10 
27-JUL-1984 Fiche 5 Frame B10 Sequence 942^ 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 gg ? J IsffiSCSvfflllSf 3DEBUG.HAS?S55<tt> 



000004FD-R 996 (24) 

0000001D-R 422 (10) 

00000009-R 378 (8) 

0000057OR 1132 (28) 

000005C4-R 1150 (28) 

00000060-R 493 (12) 

000001 C6-R 681 (15) 

=00000001 145 (3) 

=00000000 143 (3) 



#-980 



(24) #-988 (24) #-992 



#-1146 (28) 



#-643 

#-1375 

#-1344 



(15) 


#-937 


(22) 


(34) 


146 


(3) 


(32) 


#-1371 


(34) 



(24) 



144 



(3) 



ZZ-ENSAA-7.0 

OEBJG 

Cross reference 



Cross reference 



MACRO 



SIZE 



SCRETVA S 


1 


$D1J»RIRT_S 


1 


SDEF 


1 


SDEFIN1 


1 


SOS CVTREG.S 


1 


$DS DSADEF 


5 


SDSlDSDEF 


2 


$DS_PRINTF_S 


1 


$EQU 


1 


$EQULS1 


1 


SEQULST 


1 


$FAOL 


1 


SFAOLDEF 


1 


SFAOL G 


1 


$FAO 5 


2 


SGBL1NI 


2 


SOFFDEF 


1 


SOFFSET 


2 


$0FFST1 


1 


SPRDEF 


4 


$PRINT1_S 


1 


SPSLDEF 


2 


SPUSHADR 


1 


SSETPRTOEF 


1 


SUNWIND S 


1 


SVIELO 


1 


SVIELD1 


1 


CLJDEF 


3 


CMK 


1 


CMKDEF 


i 


DSFDEf 


5 


MODNAM 


1 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 



DEFINITION 



1143 


(28) 


1148 


(28) 


1298 


(32) 


1826 


(40) 


1838 


(40) 


380 


(8) 


641 


(15) 


793 


(18) 


856 


(21) 



1143 


(28) 


1148 


(28) 


1298 


(32) 


1837 


(40) 


379 


(8) 


527 


(12) 


856 


(21) 


994 


(24) 







C 10 
27-JUL-1984 Fiche 5 Frame C10 Seguence 943 

EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-01 P a a?r,£L 

23-JUL-196h 16:22:51 DMA1 :CSYS0,SYSMAINTJDEBUG.MAR;255(40) 

+ ... — ....... + 

! Macros Cross Reference ! 
+ + 

REFERENCES... 

1810 (40) 1810 (40) 

380 (8) 1044 (26) 1141 (28) 

1629 (39) 1802 (40) 

528 (12) 591 (14) 

912 {22) 994 (24) 

122 (2) 122 (2) 123 (2) 125 (2) 

762 (17) 762 (17) 

125 (2) 125 (2) 
121 (2) 121 (2) 
379 (8) 1044 (26) 1141 (28) 

1802 (40) 1826 (40) 

591 (14) 791 (18) 

126 (2) 121 (2) 126 (2) 
126 (2) 121 (2) 126 (2) 

121 (2) 121 (2) 126 (2) 
174 (3) 174 (5) 
177 (3) 177 (3) 
722 (16) 722 (16) 750 (17) 
776 (18) 7/6 (18) 
120 (2) 120 (2) 121 (2) 
124 (2) 124 (2) 177 (3) 
1532 (37) 1532 (37) 
1538 (37) 1538 (37) 

123 (2) 123 (2) 
641 (15) 1629 (39) 641 (15) 

122 (2) 122 (2) 

763 (17) 1633 (39) 1811 (40) 763 (17) 778 (18) 

124 (2) 124 (2) 
1633 (39) 1633 (39) 
120 (2) 120 (2) 
126 (2) 120 (2) 

119 (2) 119 (2) 
636 (15) 636 (15) 898 (22) 
126 (2) 126 (2) 

120 (2) 120 (2) 
199 (4) 199 (4) 

4.— .......... .... — . + 

! Performance indicators ! 

f — .*.—.....— + 



126 (2) 

912 (22) 
763 (17) 



Page faults CPU Time 

"" 32 00:00:00.09 

135 00:00:00.71 

956 00:00:15.07 

00:00:00.88 
413 00:00:04.99 

1 00:00:00.25 



Elapsed Time 

00l00l00.24 
00:00:01.52 
00:00:18.95 
00:00:01.03 
00:00:06.56 
00:00:00,26 



D 10 
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DEBUG EXAMINE, DEPOSIT, AND BREAKPOINT SUBROUT 27-JUL-1984 15:13:56 VAX-11 Macro V03-0T Page 66 

VAX-11 Macro Run Statistics 23-JUL-1984 16:22:51 0MA1 :CSYS0.SYSMAINT3DEBUG.MAR;255(40> 

Psect synopsis output 5 00:00:00.03 00:00:00.03 

Cross-reference output 78 00:00:01.77 00:00:02.12 
Assembler run totals 1624 00:00:23.80 00:00:30.71 

The working set limit was 1000 pages* 

115562 bytes (226 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol taUe space allocated to hold 529 non-local and 110 local symbols. 

1869 source lines were read in Pass 1, producing object records in Pass 2. 

77 pages of virtual memory were used to define 32 macros. 

+.. — .,,,■— + 

! Macro library statistics .' 
+ —..--. — + 

Macro library name Macros defined 

DRB1:CDS.WORK]DIAG.MLB;955 5 

DRB1:CDS.W0RlODS.MLB;<f18 6 

DMA1:[SYS0.SYSMAJNT]DS.MLB;218 

DMA1:[SYS0.SYSMAINT]DIAG.MLB;953 

SYS$SYSR00T:[SYSLIB]LIB.MLB;1 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 18 

TOTALS (all libraries) 29 

587 GETS were required to define 29 macros. 

There were no errors, warnings or information messages, 

MACR0/N00BJECT/L1ST=CDS.LIS3/CR0SS/ENABLE= (DEBUG, TRACE) DEBUG/UPDA= (DEBUG. UPD, DEBUG. ENH)+SYS$LIBRARY: LJB/LIBRARY+DMA1 : CSYS0.SYSMA1NT 
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DEVALC *** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro V03-01 Page 

fable of contents 

69 ALLOCATE DEVICE 

202 DEALLOCATE DEVICE 

283 IOCK I/O DATA BASE AND SEARCH FOR DEVICE 

300 DECREMENT REFERENCE COUNT, CLEAR OWNERSHIP, AND CALL DRIVER 

324.2 DSXSMOUNT - Mount a device 

324.39 DSXSDISMOUNT - Dismount a device 
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*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro V03-0T Page 1 

1-APR-1980 10:27:52 DMA1 :CSYS0.SYSMAINT:iDEVALC.MAR;13 (1) 

.TITLE DEVALC *** DEVALC device allocation routines 
.IDENT /05-03/ 

******************************************************* A****************"***'* 



-1 



0000 


.1 




0000 


.2 




0000 


3 




0000 


4 ; 




0000 


5 ; 


* 


0000 


6 ; 


* 


0000 


.1 ; 


* 


0000 


8 ; 


* 


0000 


9 ; 


* 


0000 


10 ; 


* 


0000 


11 ; 


* 


0000 


12 ; 


* 


0000 


13 ; 


* 


0000 


14 ; 


* 


cooo 


15 ; 


* 


0000 


16 ; 


* 


0000 


17 ; 


* 


0000 


18 . 


* 


0000 


19 , 


* 


0000 


20 , 


* 


0000 


21 ( 


k 


0000 


22 ( 


* 


0000 


21 , 


* 


0000 


24 , 


* 


0000 


25 , 




0000 


26 , 




0000 


27 , 




0000 


28 , 




0000 


29 




0000 


.1 




0000 


.2 




0000 


.3 




0000 


.4 




0000 


.5 




0000 


30 




0000 


31 




0000 


32 




0000 


.1 




0000 


.2 




0000 


.3 




0000 


.4 




0000 


33 




0000 


34 




0000 


35 




0000 


36 




0000 


37 




0000 


38 




0000 


39 




0000 


40 




0000 


.1 




0000 


.2 




0000 


41 




0000 


42 




0000 


43 




0000 


44 




0000 


45 




0000 


46 





COPYRIGHT (c) 1977, 1978, 1979, 1980, 1984 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY kOJ BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



D. N. CUTLER 9-SEP-76 
MODIFICATION HISTORY: 

N. HOWGATE 17-FEB-78 VERSION 02 (ESSAA-4,00) . 

01 DIAGNOSTIC SUPERVISOR INTEGRATION 
Dave Butenhof 13-may-1980, Version 5.4 

02 Modify VMS V2.0 source to supervisor environment. 

V02 LMK0001 LEN KAWELL 20-JAN-1980 

ADDED N0N5HAREABLE DEVICE ALLOCATION PRIVILEGE CHECK. 

C03J Richard Brown 12-Julv-84 Version 7,0 
Added DSX$M0UNT and DSXSDISMOUNT 



SYSTEM SERVICES FOR DEVICE ALLOCATION 

ALLOCATE DEVICE 
DEALLOCATE DEVICE 

MACRO LIBRARY CALLS 



SALLOCDEF 

SDALLOCDEF 

SDDBDEF 

SDDTDEF 

SDEVDEF 

SPCBDEF 

SPRDEF 

SPRVDEF 



SALLOC CALL OFFSETS 
SDALLOC CALL OFFSETS 
DEFINE DDB OFFSETS 
DEFINE DDT OFFSETS 
DEFINE DEVICE CHARACTERISTICS 
DEFINE PCB OFFSETS 
DEFINE PROCESSOR REGISTERS 
DEFINE PRIVILEGE BITS 



ZZ-ENSAA-7,0 

DEVALC 

05-03 



*** DEVALC device allocation routines 

*** DEVALC device allocation 



0000 
0000 
0000 
0000 



-1 



47 
48 
49 
.1 





0000 


.2 




0000 


51 




0000 


52 




0000 


53 




0000 


54 




0000 


55 




0000 


56 


00000004 


0000 


57 


00000008 


0000 


58 


oooooooc 


0000 


59 


00000010 


0000 


60 




0000 


61 




0000 


62 




0000 


63 




0000 


64 




0000 


65 


00000004 


0000 


66 


00000008 


0000 


67 
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routines 27-JUL-1984 15:14:29 VAX-11 Macro 
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Sequence 947 

,™ .. . V03-0T Page 2 

DMA1:CSYS0.SYSMAINT]DEVALC.MAR;13 (1) 



SPSLDEF 

$SSDEF 

SUCBDEF 

$DS_DSADEF 

LOCAL SYMBOLS 

ARGUMENT LIST OFFSET 



DEVNAM=4 
PHYLEN=8 
PHYBUF=12 
ALACM0DE=16 



DEFINE PROCESSOR STATUS FIELDS 
DEFINE SYSTEM STATUS VALUES 
DEFINE UCB OFFSETS 

Define VDS flags 



C03J 



DEFINITIONS FOR ALLOCATE DEVICE 



ADDRESS OF DEVICE NAME STRING DESCRIPTOR 
ADDRESS TO STORE LENGTH OF PHYSICAL NAME 
ADDRESS OF PHYSICAL NAME BUFFER DESCRIPTOR 
ACCESS MODE 



ARGUMENT LIST OFFSET DEFINITIONS FOR DEALLOCATE DEVICE 



DEVNAM=4 
DLACM0DE=8 



/ADDRESS OF DEVICE NAME STRING DESCRIPTOR 
;ACCESS MODE 



ZZ-ENSAA-7.0 

DEVALC 
05-03 



ALLOCATE DEVICE 



*** DEVALC device allocation 
ALLOCATE DEVICE 
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0000 


69 


0000 


70 
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71 


0000 


72 


0000 


73 


0000 


74 


0000 


75 


0000 


76 


0000 


77 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


82 


cooo 


83 


0000 


84 


0000 


85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


0000 


98 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0000 


103 


0000 


104 


0000 


105 


0000 


106 


0000 


107 


0000 


108 


0000 


109 


0000 


110 


0000 


111 


0000 


112 


0000 


113 


0000 


114 


0000 


115 


0000 


116 


0000 


117 


0000 


118 


0000 


119 


0000 


120 


0000 


121 


0000 


122 


0000 


123 


0000 


124 


0000 


125 



.SBTTL ALLOCATE DEVICE 

EXESALLOC - ALLOCATE DEVICE 

THIS SERVICE PROVIDES THE CAPABILITY TO RESERVE A DEVICE FOR EXCLUSIVE 
USE. 

INPUTS: 

DEVNAM(AP) r ADDRESS OF DEVICE NAME STRING DESCRIPTOR. 
PHYLEN(AP) = ADDRESS TO STORE LENGTH OF PHYSICAL NAME. 
PHYBUF(AP) = ADDRESS OF PHYSICAL NAME BUFFER DESCRIPTOR. 
ALACMODE(AP) = ACCESS MODE DEVICE IS TO BE ALLOCATED TO. 

R4 = CURRENT PROCESS PCB ADDRESS. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO ALLOCATE DEVICE. 

RO = SS$ ACCVIO - DEVICE NAME STRING, DEVICE NAME STRING 
DESCRIPTOR, OR PHYSICAL NAME BUFFER DESCRIPTOR 
CANNOT BE READ BY CALLING ACCESS MODE, OR PHYSICAL 
NAME BUFFER CANNOT BE WRITTEN BY CALLING ACCESS 
MODE. 

RO = SS$ DEVALLOC - DEVICE ALREADY ALLOCATED TO ANOTHER 
PROCESS. 

ro = ss$ devmount - device currently mounted and cannot 
be allocated. 

ro = ss$ ivdevnam - device name string contains invalid 
characters or no device name string descriptor 
specified. 

ro = ss$ ivlognam - zero or greater than maximum length 
Device name string specified. 

ro = ss$ nonlocal - specified device exists on a remote 
System. 

ro = ss$ nopriv - device currently spooled and process does 
rot have privilege to allocate. 

ro = ss$ nosuchdev - specified device does not exist on 
rost system or no allocatable unit can be found. 

ro low bit set indicates successful completion. 

ro = ss$ devalralloc - device is already allocated to calling 
Process. 

ro = ss$ bufferovf - normal completion, physical name over- 
flowed physical name buffer. 

ro = sss.normal - normal completion, physical name transferee 
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0000 


126 ; 




TO PHYSICAL NAME 


BUFFER. 








0000 


127 ;- 
128 
.1 












v/uvv 

00000000 


.PSECT 


SEP, SHR, EXE, WRT, LONG 








0000 


,2 


MODNAM 


SYSDEVALC 






007C 


OOOA 


.3 


.ENTRY 


EXE$ALL0C, A M<R2,R3,R4,R5, 


R6> 




00000000' EF 

54 

55 0144 8F 


9E 


oooc 

0012 
0013 


.4 


M0VA8 


DS$AX_S0FTPCB,R4 


SOFTWARE PCB TO R4 


-2 


3C 


131 


MOVZWL 


#SS$ IVDEVNAM,R5 ; 


SET INVALID DEVICE NAME STATUS 




OOED 


30 


0018 


132 


BS8W 


SEARCHDEV 


LOCK I/O DATA BASE AND GET DEVICE NAME 




3F 


13 


001B 


133 


BEQL 


27$ 


IF EQL NO DEVICE NAME SPECIFIED 




FFEO' 


30 


001 D 


134 


BSBW 


IOC$SEARCHGEN 


SEARCH FOR GENERIC DEVICE 




55 50 


DO 


0020 


135 


MOVL 


R0,R5 


SAVE SEARCH STATUS 




36 55 


E9 


0023 


136 


BL8C 


R5,27$ 


IF LBC SEARCH FAILURE 




56 51 


DO 


C026 
0029 


137 
138 ; 


MOVL 


R1,R6 


SAVE DEVICE UCB ADDRESS 








0029 
0029 
0029 


139 ; RETURN PHYSICAL DEVICE NAME 
1 / n • 






51 OC AC 


DO 


141 


MOVL 


PHYBUF(AP),R1 


GET ADDRESS OF NAME BUFFER DESCRIPTOR 




1C 


13 


002D 


142 


BEQL 


20$ 


IF EQL NONE 


-1 


50 61 


3C 


002F 


144 


MOVZWL 


(R1),R0 


•GET LENGTH OF NAME BUFFER 




17 


13 


0032 


145 


BEQL 


20$ 


•IF EQL ZERO LENGTH BUFFER 




51 04 A1 


DO 


0034 


146 


MOVL 


4(R1),R1 


•GET ADDRESS OF NAME BUFFER 




53 08 AC 


DO 


0038 


.1 


MOVL 


PHYLEN(AP),R3 


•GET ADDRESS TO STORE NAME LENGTH 




00 


13 


003C 


.2 


BEQL 


10$ 


•IF EQL NONE 


-4 


FFBF ' 


30 


003E 


151 10$: 


BSBW 


10C$CVT DEVNAM 


^CONVERT DEVICE NAME AND UNIT 




55 50 


DO 


0041 


152 


MOVL 


R0,R5 " 


pSAVE COMPLETION STATUS 




53 


D5 


0044 


153 


TSTL 


R3 


;ADDRESS TO STORE LENGTH SPECIFIED? 




03 


13 


0046 


154 


BEQL 


20$ 


;IF EQL NONE SPECIFIED 




63 51 


BO 


0048 
004B 
004B 
004B 
004B 


155 

156 ; 

157 ; CHECK 

158 ; 

159 20$: 


MOVW 


R1,(R3) 


; INSERT LENGTH OF CONVERTED STRING 








» IF PROCESS ALREADY ALLOCATED DEVICE OR CAN ALLOCATE THE DEVICE 




50 28 A6 


DO 


MOVL 


UCB$L_PID<R6>,R0 


;GET PROCESS ID OF OWNER 




OD 


13 


004F 


160 


BEQL 


30$ 


;IF EQL DEVICE NOT OWNED 




60 A4 50 


D1 


0051 


161 


CMPL 


RO,PCB$L PID(R4) 
60i 


;OWNED BY CURRENT PROCESS? 




1D 


13 


0055 


162 


BEQL 


;IF EQL YES 




55 0840 8F 


3C 


0057 


163 25$: 


MOVZWL 


*SS$_DEVALL0C,R5 


;SET DEVICE ALREADY ALLOCATED 




3F 


11 


005C 
005E 
005E 


164 271: 

165 

166 30$: 


BRB 


80$ 






02 34 A6 06 


E1 


BBC 


#DEV$V SPL,UCB$L DEVCHARCR6) ,40$ ;IF CLR, DEVICE NOT SPOOLED 


-1 


05 


11 


0063 


168 


BRB 


47$ " 


• 




50 A6 


B5 


0065 


169 40$: 


TSTW 


UCB$W REFC(R6) 


;ANY CHANNELS ASSIGNED TO DEVICE? 




ED 


12 


0068 


170 


BNEQ 


25$ - 


;IF NEQ YES 




OOAB 


31 


006A 


.1 47$: 


BRW 


NOPRIV 


;ELSE NO PRIVILEGE 




2E 


11 


006D 


.2 50$: 


BR8 


80$ 


t 


-11 


55 OC 


3C 


006F 


182 55$: 


MOVZWL 


#SS$ ACCVI0,R5 


;SET ACCESS VIOLATION STATUS 




29 


11 


0072 
0074 
0074 


183 
184 
185 60$: 


BRB 


80$ " 


t 




55 01 


B1 


CMPW 


*SS$ NORMAL, R5 


;NORMAL COMPLETION STATUS? 




OA 


12 


0077 


186 


BNEO 


70$ " 


;IF NEQ NO 




05 34 A6 17 


E1 


0079 


187 


BBC 


#DEV$V ALL,UCB$L..DEVCHAR(R6),70$ ;IF CLR, DEVICE NOT ALLOCATED 




55 0641 8F 


3C 


007E 
0083 


188 
189 ; 


MOVZWL 


tfSS$_DEVALRALL0C,R5 


;SET DEVICE ALREADY ALLOCATED STATUS 








0083 


190 ; ALLOCATE THE 


DEVICE BY SETTING OWNER PIP, SETTING ALLOCATED CHARACTERISTIC, 








0083 


191 ; INCREMENTING 


THE REFERENCE COUNT, AND 


SETTING THE ALLOCATOR'S ACCESS MODE 








0083 


192 ; 









ZZ-ENSAA-7.0 


ALLOCATE DEVICE 




DEVALC 




*** DEVALC devi 


U5-03 




ALLOCATE DEVICE 




28 A6 60 A4 


DO 0083 193 




10 34 A6 17 


E2 0088 194 




50 A6 


B6 008D 195 




02 00 


EF 0090 196 




50 10 AC 


0093 




FF67' 


30 0096 197 




53 A6 50 


90 0099 198 




50 55 


DO 009D 199 




FF5D' 


31 OOAO 200 
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70$ 



80$ 



MOVL 
BBSS 
INCW 
EXTZV 

BSBW 
MOVB 
MOVL 
BRW 



PCB$L PID(R4),UC8$L PID(R6> ;SET 

*DEV$9 ALL,UCB$L DEVCHAR(R6),80$ 

UCB$W REFCCR6) " INCREMENT REFERENCE COUNT 

#0,#27ALACM0DE(AP),R0 ;6ET SPECIFIED ACCESS MODE 



OWNER PROCESS ID 

;IF SET, DEVICE ALREADY ALLOCATED 



EXESMAXACMODE 
R0,UCB$B_AM0D(R6) 
R5,R0 
I0C$UNL0CK 



;MAXIMIZE ACCESS MODE 

;SET ALLOCATING ACCESS MODE 

;SET FINAL STATUS 



ZZ-ENSAA-7.0 


DEALLOCATE DEVICE 






DEVALC 


*** 


&EVALC 


devic 


05-03 


DEALLOCATE 


DEVIC 






00A3 


202 






00A3 


203 






00A3 


204 






00A3 


205 






00A3 


206 






00A3 


207 






00A3 


208 






00A3 


209 






00A3 


210 






00A3 


211 






00A3 


212 






00A3 


213 






00A3 


214 






00A3 


215 






C0A3 


216 






00A3 


217 






00A3 


218 






00A3 


219 






00A3 


220 






00A3 


221 






00A3 


222 






00A3 


223 






00A3 


224 






00A3 


225 






00A3 


226 






00A3 


227 






00A3 


?28 






00A3 


229 






00A3 


230 






00A3 


231 






00A3 


232 






00A3 


233 






00A3 


234 






00A3 


235 






00A3 


236 






00A3 


237 






00A3 


238 






00A3 


239 






00A3 


240 






00A3 


241 






00A3 


242 






00A3 


243 






00A3 


244 






00A3 


245 






00A3 


246 




003C 


00A3 


247 




OOOOOOOO' EF 9E 


00A5 


.1 




54 


OOAB 




-3 


5A 10 


OOAC 


251 




18 13 


OOAE 


252 




FF4D' 30 


OOBO 


253 




50 50 E9 


00B3 


254 




60 A4 28 A1 D1 


00B6 


255 




44 12 


OOBB 


256 


-4 


50 A1 01 B1 


OOBD 


261 




43 12 


00C1 


262 




00000123'EF 16 


00C5 


263 
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.S8TTL DEALLOCATE DEVICE 

EXESDALLOC - DEALLOCATE DEVICE 

THIS SERVICE PROVIDES THE CAPABILITY TO RELINQUISH EXCLUSIVE USE OF A 
DEVICE. 



INPUTS: 



\ 



\ 



DEVNAM(AP) = ADDRESS OF DEVICE NAME STRING DESCRIPTOR. ZERO 

IMPLIES ALL. 
DLACMODE(AP) = ACCESS MODE FOR DEALLOCATION. 

R4 = CURRENT PROCESS PCB ADDRESS. 

OUTPUTS: 

ro low bit clear indicates failure to deallocate device. 

ro = ss$ accvio - device name string or device name string 
descriptor cannot be read by calling access mode. 

ro = ss$ devassign - device cannot be deallocated because 
Process still has channels assigned. 

ro = ss$ devnotalloc - device not allocated or not allocated 
to process, 

ro " ss$ ivdevnam - device name string contains invalid 

CHARACTERS. 

RO = SS$ IVLOGNAM - ZERO OR GkEATER THAN MAXIMUM LENGTH 
DEVICE NAME STRING SPECIFIED. 

RO = SS$ NOPRIV - CALLING ACCESS MODE DOES NOT HAVE PRIVILEGE 
TO DEALLOCATE DEVICE. 

RO ~ SS$ NOSUCHDEV - SPECIFIED DEVICE DOES NOT EXIST ON 
ROST SYSTEM. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

RO = SS$„NORMAL - NORMAL COMPLETION. 



.ENTRY 
MOVAB 

BS8B 
BEQL 
BS8W 
BLBC 
CMPL 
BNEQ 
CMPW 
BNEO 
J SB 



EXE$DALL0C, A M<R2,R3,R4,R5> 

DS$AX_S0FTPCB,R4 ;SOFTUARE PCB TO R'i 

SEARCHDEV ;LOCK I/O DATA BASE AND SEARCH FOR DEVICE 

10$ ;IF EQL NO DEVICE NAME SPECIFIED 

IOCSSEARCHDEV ;SEARCH FOR PHYSICAL DEVICE 

R0,50$ ;IF LBC SEARCH FAILURE 

UCBSL PID(R1),PCB$L PID(RA) ;DEVICE ALLOCATED TO CURRENT PROCESS? 



40$ 

#1,UCB$W w REFC(R1) 

50$ 

DECREF 



IF NEQ NO 

REFERENCE COUNT ONE? 

IF NEQ NO 

DECREMENT REFERENCE COUNT AND CALL DRIVER 



7Z-ENSAA-7.0 
DEVALC 

05-03 



DEALLOCATE 



DEVICE 

*** DEVALC 
DEALLOCATE 



device 
DEVICE 
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52 

00000000' EF 

53 

53 



63 

46 

D8 A3 

2C A1 

F1 

60 A4 28 A1 

F3 

55 

ED 

E8 34 A1 17 

50 A1 01 

E2 

00000123'EF 

DA 

50 0858 8F 

18 



51 
51 



53 A1 



11 
9E 

DO 
13 
9E 
DO 
13 
D1 
12 
91 
14 
E1 
B1 
12 
16 
11 
3C 
11 



00C9 
OOCB 
00D1 
00D2 
00D5 
00D7 
OODB 
OODF 
00E1 
00E6 
00E8 
OOEC 
OOEE 
00F3 
00F7 
00F9 
OOFF 
0101 
0106 



265 10$: MOVAB L A ItfC$GL_DEVLIST-DDe$L_LINK,R3 ;6ET ADDRESS OF I/O DATABASE LISTHEAD 

266 20$: MOVL DDB$L L1NK(R3),R3 ;G£T ADDRESS OF NEXT DDB 

267 BEQL NORMAC ;IF EQL END OF LIST 

268 MOVAB DDB$L UCB-UCB$L LINK(R3),R1 ;GET ADDRESS OF NFXT UCB ADDRESS 

269 30$: MOVL UCB$L~LINK(R1 ) ,R1 ;GET ADDRESS OF NEXT UCB 

270 BFQL 20* " ;IF EQL END OF LIST __ 

271 CMPL UCB$L PID(R1) ,PCB$L PID(R4) ;DEVICE ALLOCATED TO CURRENT PROCESS? 

272 BNEQ 30$ " ;IF NEQ NO 

273 CMP8 R5,UCB$B AM0D(R1) ;CAN ACCESS MODE DEALLOCATE DEVICE? 

274 BGTR 30$ " ;IF GTR NO ^ a 

275 BBC 0DEV$V ALL,UC8$L DEVCHAR(R1 ),30$ ;IF CLR, DEVICE NOT ALLOCATED 

276 CMPW #1,UC8lW REFC(R1T /REFERENCE COUNT ONE? 

277 BNEQ 30$ " ;JF NEQ NO _._ 

278 JSB DECREF /DECREMENT REFERENCE COUNT AND CALL DRIVER 

279 BRB 30$ ; __ 

280 40$: MOVZWL *SS$ DEVNOTALLOC.RO ;SET DEVICE NOT ALLOCATED TO PROCESS 

281 50$: BRB UNLOCK 
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M 10 . 

LOCK I/O DATA BASE AND SEARCH FOR DEVICE . 27-JUL-1984 , fjche 5 Frame M10 

*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-1 1 Macro 

LOCK I/O DATA BASE AND SEARCH FOR DEVICE 1-APR-1980 10:27:52 DMA1 : [SYSO.SYSMAINTJDEVALC.MAR;! 3 



Page 



8 
(1) 



-1 



51 



04 AC 

09 

50 OC 



50 24 

03 

50 01 

FEDD 



DO 
13 
3C 

05 
3C 
11 
3C 
31 



0108 
0108 
0108 
0108 
0108 
0108 
0108 
010C 
010E 
0111 
0117 
0118 
0118 
011D 
C120 



283 
284 
285 
286 
287 
288 
290 
291 
292 
293 
294 
295 
296 
297 
298 



.SBTTL LOCK I/O DATA BASE AND SEARCH FOR DEVICE 
SUBROUTINE TO LOCK I/O DATA BASE, SEARCH FOR DEVICE, AND CHECK FOR MAILBOX. 



SEARCHDEV: 

MOVL 



10$: 
NOPRIV: 

NORMAL : 
UNLOCK: 



BEQL 

MOVZWL 

IFNORD 

RSB 

MOVZWL 

BRB 

MOVZWL 

BRW 



DEVNAM(AP),R1 

10$ 

#SS$ ACCVIO,R0 

#8, (R1), UNLOCK 

#SS$ NOPRIV, RO 

UNLOCK 

#SS$ NORMAL ,R0 

IOC$DNLOCK 



LOCK I/O DATA BASE AND SEARCH FOR DEVICE 

GET ADDRESS OF DEVICE NAME STRING DESCRIPTO 

IF EQL NONE 

SET ACCESS VIOLATION STATUS 

CAN DEVICE NAME DESCRIPTOR BE READ? 

SET NO PRIVILEGE 

SET NORMAL COMPLETION 

UNLOCK I/O DATA BASE AND RETURN 
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*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro V03-01 Page 
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9 
(1) 



-1 



00 34 A*! 17 
50 A1 

28 A1 

2A 

50 24 A1 

50 OC AO 

55 51 

52 



53 
51 
06 



-2 



51 
51 
51 



4C 

OC 



A5 
AO 
10 
50 
50 
61 



E5 
B7 
DA 
BB 
DO 
DO 
DO 
D4 

DO 
DO 
EO 
CO 
C2 
16 



2A BA 



VI 



0123 
0123 
0123 
0123 
0123 
0123 
0123 
0128 
01 2B 
012E 
0130 
0134 
0138 
0138 
C13D 
0144 
0148 
014C 
0150 
0153 
0156 
0158 
0158 
015D 
01 5E 



300 
301 
302 
303 
304 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
.1 
.2 
.3 
319 
320 
321 
322 
*23 
324 



.SBTTL DECREMENT REFERENCE COUNT, CLEAR OWNERSHIP, AND CALL DRIVER 
SUBROUTINE TO DECREMENT REFERENCE COUNT, CLEAR OWNERSHIP, AND CALL DRIVER 



DECREF 
10$: 



20$: 



BBCC #DEV$V ALL, UCBSL 

DECW UCB$W.REFC(R1) 

CLRL UCBSL PID(R1) 

PUSHR #*M<RT,R3,R5> 

MOVL UCBSL. DDB(R1),R0 

MOVL DDBSL DDT(RO),RO 

MOVL R1,R5 

CLRL R2 

DS8INT UCB$B FIPL(R5) 

MOVL UCBSL JRP(R5),R3 

MOVL DDTSL CANCEL (RO) 

BBS #16, R1, 20$ 

ADDL2 RO, R1 

SUBL R0,R1 

JSB (R1) 

EN8INT 

POPR # A M<R1,R3,R5> 

RSB 



DEVCHAR(R1),10$ ;CLEAR DEVICE ALLOCATED 

DECREMENT REFERENCE COUNT 

CLEAR OWNER PROCESS ID 

SAVE RE6ISTERS 

GET ADDRESS OF DDB 

GET ADDRESS OF DDT 

SET ADDRESS OF DEVICE UCB 

CLEAR CHANNEL NUMBER 

RAISE TO DRIVER FORK LEVEL 
,GET ADDRESS OF CURRENT I/O PACKET 
R1 ; Get Cancel entry point 

+++ + + Skip if Supervisor absolute 
+++++ Convert to absolute 

SUBTRACT OUT BASE ADDRESS 

CALL CANCEL I/O ROUTINE 

ENABLE INTERRUPTS 

RESTORE REGISTERS 
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DSX$M0UNT - 



Mount a device 

*** DEVALC device 
DSX$MOUNT - Mount 



allocation 
a device 



B 11 
27-JUL-198A Fiche 5 Frame B11 Seguence 955 

routines 27-JUL-198A 15:H:29 VAX-11 Macro V03-0T Page, 10 

1-APR-19B0 10:27:52 DMA1 :[SYS0.SYSMAINTDDEVALC.MAR;13 (1) 



1C 

OOOOFEOO'EF 

05 

50 01 

OA 

OA AC 

01 
OOOOQOOO'GF 



0000 
EO 



00 
11 



DD 
FB 

OA 



015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

C15E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

01 5E 

0160 

0162 

0167 

0168 

016B 

016D 

0160 

0170 

0172 

0177 

0178 



.2 

,3 

.A 

.5 

.6 

.7 

.8 

.9 

JO 

.11 

.12 

.13 

.K 

.15 

.16 
.17 

.18 
.19 
.20 
.21 
.22 
.23 
.2A 
.25 
.26 
.27 
.28 
.29 

.30 
.31 
.32 
.33 
.3A 
,35 

.36 
,37 



.sbttl DSXSMOUNT - Mount a device 

++ 
Functional Description: 

Calls the VMS SMOUNT servi.-°. 
Inputs: 

A(AP) - Address of list of item identifiers 
Implicit Inputs: 

DSASGL, FLAGS 
Outputs: 

Implicit Outputs: 
Side Effects: 
Return Status: 

The return status from VMS is passed to the caller. 

.ENTRY DSXSMOUNT, A M<> 



BBS 



ffDSA$V_USER, - ; IF executing in standalone mode 



10$: 



20$: 



DSASGL FLAGS, 10$; THEN 
MOVL *SS$ NORMAL, RO ; Set SS$ NORMAL return code. 
BRB 20$ " ; Just return. 

; ELSE (user mode) 
PUSHL A(AP) ; Pass argument, 
CALLS 41,G*SYS$M0UNT ; Call service. 



RET 



; Return. 



[033 
T033 
[033 
[033 
£033 
C033 
[033 
[033 
C033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 
[033 

[033 
[033 

[033 
[033 
C033 
[033 
[033 
[033 

[033 
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DSXSDISMOUNT - Dismount a device 27-JUL-1984 Fiche 5 Frame C1 1 Seguence 956 

*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro V03-0T t „ Page 
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0178 


.39 






0178 


,40 






0178 


.41 






0178 


.42 






0178 


.43 






0178 


.44 






0178 


.45 






0178 


.46 






0178 


.47 






0178 


.48 






0178 


.49 






0178 


.50 






0178 


.51 






0178 


.52 






0178 


.53 






0178 


.54 






0178 


.55 






0178 


.56 






0178 


.57 






0178 


.58 






0178 


.59 






0178 


.60 






0178 


.61 






0178 


.62 






0178 


.63 






0178 


.64 






0178 


.65 






0178 


.66 




0000 


0178 


.67 


1C 


EO 


01 7A 


.68 


OOOOFEOO'EF 




017C 




05 




0181 


.69 


50 01 


DO 


0182 


.70 


OD 


11 


0185 


.71 






0187 


.72 


08 AC 


DD 


0187 


.73 


04 AC 


DD 


018A 


.74 


02 


FB 


018D 


,75 


00000000' GF 




018F 






04 


0194 


.76 






0195 


Jl 






0195 


325 



.sbttl DSXSDISMOUNT - Dismount a device 

++ 
Functional Description: 

Calls the VMS SDISMOU service. 

Inputs: 

4(AP) - Addr. of char, string descriptor pointing to the 

device name 
8 CAP) - Options flag 

Implicit Inputs: 

DSASGL, FLAGS 
Outputs: 

Implicit Outputs: 
Side Effects: 
Return Status: 

The return status from VMS is passed to the caller. 



.ENTRY DSXSDISMOUNT, A M<> 

BBS 0DSA$V„USfc'R, - 



10$: 



20$: 



DSASGL FLAGS, 10$ 

MOVL #SS$„N0RMAL, RO 

BRB 20$ 

PUSHL 8(AP) 

PUSHL 4(AP) 

CALLS #2,G*SYS$DISM0U 

RET 

.END 



IF executing in standalone mode 

THEN 

Set SSSJJORMAL return code. 

Just return. 
ELSE (user mode) 

Pass arguments. 

Call service. 
Return. 



[033 
C03D 
C03J 
[03J 
[03] 
[03] 
[03] 
[03] 
[03J 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[033 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 

[03] 
[03] 

[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
C03] 

[03] 
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SSARGS 

$$T1 

SER 

SMODULE 

ALACMOOE 

ALLOCS ACMODE 

ALLOC$~DEVNAM 

ALLOCS'NARGS 

ALLOCS"PHYBUF 

ALLOC$~PHYLEN 

DALLOCl.ACMODE 

DALLOCS.DEVNAM 

DALLOCS NARGS 

ODBSB AfPCLASS 

DDBSB.TYPE 

DDB$C„LENGTH 

DDBSK LENGTH 

DDB$LJ\CPD 

DDB$L DDT 

DDB$L~LINK 

DDBSL UCB 

DDB$T"DRVNAME 

DDBST'NAME 

DDB$W~SIZE 

DDT$L~ALTSTART 

DDT$L"CANCEL 

DDTSLlFDT 

DDTSL REGDUMP 

DDT$L~START 

DDT$L~UNITINIT 

ODT$L"UNSOLINT 

DDUUfDIAGBUF 

DDT$W ERRORBUF 

DECREF 

DEV$V„ALL 

DEV$V SPL 

DEVNAR 

DLACMODE 

DSSAX SOFTPCB 

DSA$A[ APTMAIL 

DSASAT>PTTXT 

DSASGL APTCOM 

DSASGLlDEVLEN 

DSA$GL_ERRNO 

DSA$GL_EVENT 

DSASGL FLAGS 

DSASGL MSGTYP 

DSASGLlPASSES 

DSASGL PASSNO 

DSASGLlSECTNO 

DSA$GL„SID 

DSASGL SUBTNO 

DSASGLlTESTNO 

DSASGL^UNITS 

DSASGQ MSGPTR 

DSA$GT~DEVNAM 

DSASV OSER 



Symbol table 



27-JUL-1984 Fiche 5 Frame D11 Seguence 957 
*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro \'03-0f J? a 9?, !?, 

1-APR-1980 10:27:52 DMA1 :CSYS0.SYSMAJNT]DEVALC.MAR;13 (1) 



00000002 
0000000C 
00000001 
00000000 
00000010 
00000010 
00000004 
00000004 

oooooooc 

00000008 
00000008 
00000004 
00000002 
00000013 
0000C00A 
00000034 
00000034 
00000010 
OOOOOOOC 
00000000 
00000004 
00000024 
00000014 
00000008 
0000001 c 

oooooooc 

00000008 
00000010 
00000000 
00000018 
00000004 
00000014 
00000016 
00000123 
00000017 
00000006 
00000004 
00000008 
******** 

0000FE00 
0000FA00 
0OOOFE04 
OOOOFE58 
0000FE44 
0OOOFE48 
OOOOFEOO 
0000FE40 
0000FE08 
0000FE54 
0000FE10 
0000FE14 
0000FE4C 
00OOFE5O 
0000FE0C 
0000FE68 
0000FE5C 
0000001 C 



R 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
K 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 




02 



02 



02 



DSXSD1SMOUNT 

DSXSMOUNT 

EXESALLOC 

EXESDALLOC 

EXESMAXACMODE 

IOCSCVT DEVNAM 

IOCSGL BEVLIST 

IOCSSEflRCHDEV 

10CSSEARCHGEN 

IOCSUNLOCK 

NOPRIV 

NORMAL 

PCB$B_ASTACT 

PCBSB ASTEN 

PCBSBIPRI 

PCB$B„PRIB 

PCBSB TYPE 

PCBSB^WEFC 

PCBSC..LENGTH 

PCBSKJ.ENGTH 

PCBSL ARB 

PCBSLlASTQBL 

PCB$L ASTQFL 

PCBSLIEFC2P 

PCBSL.EFC3P 

PCBSL..EFCS 

PCBSLJFCU 

PCBSL EFWM 

PCBSLlJIB 

PCB$LJ)WNER 

PCB$L PHD 

PCB$L„PHYPCB 

PCBSL.PID 

PCB$L PQB 

PCBSL SQBL 

pcb$l;sqfl 
pcbsl.sts 
pcbsljjic 
pcbsl.wsswp 
pcb$l wtime 

PCBSCfPRIV 

PCB$T_LNAME 

PCBST TERMINAL 

PCBSWlAPTCNT 

PCBSW ASTCNT 

PCB$W"BIOCNT 

PCBSW BIOLM 

PCBSVTDIOCNT 

PCBSW.DIOLM 

PCBSW^GPGCNT 

PCBSW GRP 

PCBSWMEM 

PCB$W"MTXCNT 

PCBSW PPGCNT 

PCBSUfPRCCNT 

PCB$W"*SIZE 

PC8SW STATE 



00000178 
000001 5E 
OOOOOOOA 
O0O000A3 
******** 
******** 
******** 
******** 
******** 
******** 

00000118 

000001 1D 

OOOOOOOC 

OOOOOOOD 

OOOOOOOB 

0000002F 

OOOOOOOA 

0000002E 

0000008C 

0000008C 

00000084 

00000014 

00000010 

00000058 

0000005C 

00000050 

00000054 

0000004 C 

00000078 

0000001 C 

00000064 

00000018 

00000060 

0000004 C 

00000004 

00000000 

00000024 

00000088 

00000020 

00000028 

0000007C 

00000068 

00000044 

00000030 

00000038 

0000003A 

0000003C 

0000003E 

00000040 

00000034 

0000008A 

00000088 

OOOOOOOE 

00000036 

00000042 

00000008 

0000002C 



RG D 02 

RG D 02 

RG D 02 

RG D 02 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
f> 
D 
D 
D 
D 

D 
D 
D 
D 
D 

D 



02 
02 
02 
02 
02 
02 
02 
02 
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PCB$W TMBU 

PHYBUF 

PHYLEN 

PRS 1PL 

SEARCHDEV 

SIZ... 

SSS ACCVIO 

SS$J)EVALLOC 

SS$ DEVALRALLOC 

SSS'DEVNOTALLOC 

SS$~IVDEVNAM 

SSSJJOPRIV 

SS$ NORMAL 

SYS$DISMOU 

SYSSMOUNT 

UCBSB AHOD 

UCBSBlCEX 

UCB$B CM1 

UCBSBICM2 

UCBSB DEVCLASS 

UCB$B DEVTYPE 

UCB$B DIPL 

UCBSBlDX SCTCNT 

UCBSB.ERTCNT 

UCB$B_ERTMAX 

UCB$B FEX 

UCBSB^FIPL 

UCB$B„LOCSRV 

UCBSB OFFNDX 

UCB$B~OFFRTC 

UCB$B~REMSRV 

UCBSB SECTORS 

UCBSB"SLAVE 

UCB$B"SPR 

UCB$B"STATE 

UCB$B~TRACKS 

UCB$B~TT.CRFILL 

UCB$B_TT_DECRF 

UCBSB.TT DELFF 

UCB$B_TT DESPEE 

UCBSB TT DETYPE 

UCBSB^TTlLFFILL 

UCBSB TT SPEED 

UCBSBlTYPE 

ucbsb vertsz 

ucbsc'length 

ucb$c_mb_length 

ucb$c_tt length 

ucb$k_leRgth 

ucbsk mb length 

ucb$k~tt"length 

ucb$lj\mB 

ucb$l_astqbl 

ucbsl astqfl 

ucb$l"cpid 

ucbsl'crb 

ucbsl^ddb 
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13 
(1) 



02 
02 



00000032 D 

OO00OO0C D 

00000008 D 

00000012 D 

00000108 R D 02 

00000001 D 

OO00O00C D 

00000840 D 

00000641 D 

00000858 D 

00000144 

00000024 D 

00000001 D 

******** x 

******** )( 

00000053 D 

00000077 D 

O000OO4A D 

OO00OO4B D 

00000038 D 

00000039 D 
00000052 D 
O000O0A6 D 

00000070 D 

00000071 D 
00000076 D 
O000OO0B D 
0000003C D 

00000094 D 

00000095 D 
0000003D D 
0000003C D 

00000074 D 

00000075 D 
00000052 D 
0000003D D 
0000009D D 
O00O00A1 D 
O00000A2 D 
OOOOOOAO D 
000000A4 D 
0000009E D 
0000009C D 
OOOOOOOA D 
0000003F D 
00000074 D 
00000090 D 
0000008C D 
00000074 D 
00000090 D 
OOOOOOBC D 
00000054 D 
00000010 D 
OOOOOOOC D 
0000005C D 
00000020 D 
00000024 D 



UCB$L. 

UCBSL. 

UCB$L_ 

UCB$L_ 

UCB$L„ 

UCB$L_ 

UC8SL 

UCBSLl 

UCB$L_ 

UCB$L 

UCBSL. 

UCB$L_ 

UC8$L_ 

UC8$L_ 

UCBSL. 

UCB$L_ 

UC8$L_ 

UCB$L_ 

UCB$L_ 

UCB$L 

UCB$L_ 

UCBIL.. 

UC8$L_ 

UCB$L_ 

UCBSL. 

UC8$L_ 

UCB$L_ 

UCB$L 

UCB$L. 

UC8$L. 

UCB$L 

UCB$L. 

UC8$L„ 

UCB$L w 

UCBSL. 

UCB$L_ 

UC8$L. 

UCB$L. 

UCB$L„ 

UC8$L. 

UCB$L. 

UCB$T 

UC8SW. 

UC8$W. 

UC8$W. 

UCBSW 

UCB$W. 

UCB$U„ 

UCB$W. 

UC8$W. 

UCB$W. 

UC8$W_ 

UCBSW 

UCB$W 

UCB$W 

UC8$W 

UCBSW 



DEVCHAR 
DEVDEPEND 
DPC 

DUET1M 
DX.BFPNT 
DX.BUF 
DX RXDB 
EMB 
FIRST 
FPC 
FQBL 
FQFL 
FR3 
FR4 
IOQBL 
IOQFL 
IRP 
LINK 
LOGADR 
MAXBLOCK 
MB MBX 
MB^PORT 
MB.RAST 
MB SHB 
MB.WAST 
MBJJIOQBL 
MB WIOQFL 
MEBJA 
NT DATSSB 
NT'INTSSB 
OPtNT 
OWNUIC 
PID 
RQBL 
RQFL 
SVAPTE 
'SVPN 

"TT.DECHAR 
"TT RDUE 
*TT RTJMOU 
*VCB 
"PARTNER 

;bcnt 

.BCR 

BOFF 
.BUFQUO 

BYTESTOGO 

CHARGE 
.CYLINDERS 
.DA 
.DC 

DEVBUFSIZ 
„DEVSTS 

DIRSEQ 
1 DSTADDR 
IDX BCR 

ECT 



00000034 


D 


0000003C 


D 


00000080 


D 


0000005C 


D 


0000009C 


D 


00000098 


D 


OOOOOOAO 


D 


00000078 


D 


00000014 


D 


OOOOOOOC 


D 


00000004 


D 


00000000 


D 


00000010 


D 


00000014 


D 


00000044 


D 


00000040 


D 


0000004 C 


D 


0000002C 


D 


00000064 


D 


00000084 


D 


0000007C 


D 


0000008C 


D 


00000078 


D 


00000080 


D 


00000074 


D 


00000088 


D 


00000084 


D 


0000008C 


D 


00000074 


D 


00000078 


D 


00000060 


D 


0000001 C 


D 


00000028 


D 


0000C004 


D 


00000000 


D 


00000068 


D 


00000064 


D 


000000A8 


D 


0000008C 


D 


000000B8 


D 


00000030 





OOOOOOOC 


D 


0000006E 


D 


00000096 


D 


0000006C 


D 


00000018 


D 


0000003E 


D 


0000004A 


D 


0000003E 


D 


0000008C 


D 


0000008E 


D 


0000003A 


D 


0000005A 


D 


00000088 


D 


00000018 


D 


000000A4 


D 


00000090 


D 



J 
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UCBSW.EC2 
UCBSWJRRCNT 
UCBSWJUNC 
UCB$W,MB SEED 
UCBSWJISGCNT 
UCBSW MSGMAX 
UCBSWJU CHAN 
UCBSWJDFfSET 
UCB$W_REFC 
UCBSU SIZE 
UCBSVfSRCADDR 
UCBSlTSTS 
UCBSW.TT DESIZE 
UCB$W_UNTT 
UCBSW VPROT 
UNLOCR 
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PSECT name 

. ABS . 

$ABS$ 
SEP 
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00000092 D 

00000072 D 

0000007E D 

00000000 D 

00000016 D 

00000014 D 

0000007C D 

0000008A D 

00000050 D 

00000008 D 

0000001A D 

00000058 D 

0000O0A5 D 

00000048 D 

0000C01A D 
00000120 R D 02 

+ + 

! Psect synopsis ! 
+ + 

PSECT No. Attributes 

( 0J 00 ( 0.) NOP1C USR 
(65136.) 01 ( 1.) NOPIC USR 
( 405.) 02 ( 2.) NOPIC USR 



Allocation 

00000000 
O000FE70 
00000195 



CON ABS LCL NOSHR NOEXE NORO 
CON ABS LCL NOSHR EXE RD 
CON REL LCL SHR EXE RD 



NOWRT NOVfc'C BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 



ZZ-ENSAA-7.0 

DEVALC 

Cross reference 



Cross reference 



SYMBOL 



SSARGS 

SST1 

$ER 

SMODULE 

ALACMODE 

ALLOCS ACMODE 

ALLOC$~DEVNAM 

ALLOCS~NARGS 

ALLOCS PHYBUF 

ALLOCS'PHYLEN 

DALLOCl ACMODE 

DALLOCSlDEVNAM 

DALLOCS NARGS 

DDBSL DEI 

DDBSL^LINK 

DDBSLJJCB 

DDTSL CANCEL 

DECREF 

DEVSV_ALL 

DEVSV SPL 

DEVNAM 

DLACMODE 

DSSAX SOFTPCB 

DSASGC FLAGS 

DSASV USER 

OSXSDlSMOUNT 

DSXSMOUNT 

EXESALLOC 

EXESOALLOC 

EXESMAXACMODE 

JOCSCVT DEVNAM 

IOCSGL DEVLIST 

IOCSSE&RCHDEV 

IOCSSEARCHGEN 

IOCSUNLOCK 

NOPRIV 

NORMAL 

PCBSL PID 

PHYBUf 

PHYLEN 

PR$ IPL 

SEARCHDEV 

SS$ ACCVIO 

SS$j>EVALLOC 

SS$ DEVALRALLOC 

SS$~DEVNOTALLOC 

SS$~IVDEVNAM 

SS$"NOPRIV 

SS$~NORMAL 

SYSXDISMOU 



r 11 

27-JUL-1984 Fiche 5 Frame G11 Seguence 960 
*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro V03-OT J?59?» !5, 

1-APR-1980 10:27:52 DMA1 :[$YS0.SYSMAINT:DEVALC.MAR;13 (1) 



VALUE 

=00000002 
=0000000C 
=00000001 

00000000-R 
=00000010 
=00000010 
=00000004 
=00000004 
=0000000C 
=00000008 
=00000008 
=00000004 
=00000002 

0000000 c 

00000000 

00000004 

oooooooc 

000001 23-R 

=00000017 

=00000006 

^0000004 

=00000008 
00000000-XR 
0000FE00 

=0000001 C 
000001 78-R 
000001 5E-R 
0000000A-R 
000000A3-R 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
000001 18-R 
000001 1D-R 
00000060 

=0000000C 

=00000008 

=00000012 
000001 08-R 

=00000000 

=00000840 

=00000641 

=00000858 

=00000H4 

=00000024 

=00000001 
00000000-XR 



+ + 

! Symbol Cross Reference i 
+ + 



DEFINITION 



40.2 

40.2 

128.2 

128.2 

60 

40.1 

40.1 

40.1 

40.1 

40.1 

40.2 

40.2 

40.2 



306 



66 
67 



295 
297 

59 
58 

288 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 



(1) 
(1) 



324.67 (1) 

324.28 (1) 

128.3 (1) 

247 (1) 



(1) 
(1) 

(1) 

(1) 

(1) 



REFERENCES... 



40.1 
40.1 



196 



#-312 

265 

268 
#-316.1 

263 
#-187 
#-166 
#-290 



#-197 
#-151 

265 
#-253 
#-134 
#-200 
#-170. 
#-264 
#-161 
#-141 
#-146. 
#-315 
#-132 
#-182 
#-163 
#-188 
#-280 
#-131 
#-295 
#-185 

324. 



(1) 
(1) 



(1) 



75 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



128.4 (1) 

324.30 (1) 

#-324.29 (1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



40.2 
40.2 



(1) 
(1) 



#•266 (1) 



278 (1) 
#-194 (1) 



247.1 (1) 

324.69 (1) 
#-324.68 (1) 



#-275 



(1) 



#-307 



(1) 



#-298 

#-267 
#-193 



#-321 
#-251 
#-292 



(1) 

(1) 

(1) 



(1) 
(1) 
(1) 



#-255 



(1) 



#-271 



CD 



#-297 



(1) 



#-324.31 (1) #-324.70 (1) 



ZZ-ENSAA-7.Q 

DEVALC 

Cross reference 

SYSSMOUNT 
UCB$B AMOD 
UCB$BlFIPL 
UCB$L DDB 
UCB$L_DEVCHAR 

UCB$L IRP 

UCBSLJ.INK 

UCB$L_P1D 

UCBSW.REFC 

UNLOCK 



Cross reference 



*** DEVALC device allocation routines 



H 11 

27-JUL-1984 



Fiche 5 Frame Hi 1 



Sequence 961 



27-JUL-1984 15:14:29 VAX- 11 Macro V03-01 Page 16 
1-APR-1980 10:27:52 DMA1 :CSYS0.SYSMAINT]DEVALC.MAR;13 (1) 



00000000-XR 

00000053 

0000000B 

00000024 

00000034 

0000004C 
0000002C 
00000028 

00000050 

000001 20-R 



298 



(1) 



324.35 
#-198 
#-315 
#-311 

166 

307 
#-316 

268 
#-159 
#-309 
#-169 
#-308 
#-281 



#-273 

187 

#-269 
#-193 

#-195 

#-293 



(1) 

(1) 

(1) 
(1) 

(1) 

(1) 



194 

#-255 
#-261 

#-296 



(1) 

(1) 

(1) 
(1) 



275 

#-271 

#-276 



(1) 

(1) 
(1) 



ZZ-ENSAA-7.0 

DEVALC 

Cross reference 



Cross reference 



27-JUL-1984 Fiche 5 Frame 111 Seguence 962 
*** DEVALC device allocation routines 27-JUL-1984 15:14:29 VAX-11 Macro V03-0T J?29f„ !L 

1-APR-1980 10:27:52 DMA1 :CSYS0.SYSMAINT]DEVALC.MAR;13 (1) 



+ + 

! Macros Cross Reference ! 
+ + 



MACRO 

SALLOCDEF 

SDALLOCDEF 

SDDBDEF 

SDDTDEF 

SDEFINI 

SDEVDEF 

$DS DSADEF 

SOFFDEF 

$PCBDEF 

SPRDEF 

SPRVDEF 

SPSLDEF 

SSSDEF 

SUCBDEF 

DSBINT 

ENBINT 

IFNORD 

MODNAM 



SIZE 



21 




Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



DEFINITION 



40.1 

40.2 
41 
42 
41 

43 

49.2 

40.1 

44 

45 

46 

47 

48 

49 

315 

321 

293 

128.2 



Page faults 

34 

136 

503 



119 

33 

7 

21 

857 



REFERENCES... 


40.1 


(1) 


40.2 


(1) 


41 


(1) 


42 


(1) 


41 


(1) 


46 


(1) 


43 


(1) 


49.2 


(1) 


40.1 


(1) 


44 


(1) 


45 


(1) 


46 


(1) 


47 


(1) 


48 


(1) 


49 


(1) 


315 


(1) 


321 


(1) 


293 


(1) 


128.2 


(1) 



42 
47 



(1) 
(1) 



43 
48 



(1) 

(1) 



44 
49 



(1) 
(1) 



45 

49.2 



(1) 
(1) 



40.2 (1) 



+ + 

! Performance indicators ! 
+ — — .— -.—- + 

CPU Time Elapsed Time 

00:00:00.08 00:00:00.25 

00:00:00.74 00:00:01.45 

00:00:15.03 00:00:18.73 

00:00:01.59 00:00:02.33 

00:00:03.08 00:00:05.12 

00:00:00.23 00:00:00.56 

00:00:00.02 00:00:00.03 

00:00:00.31 00:00:00.52 

00:00:21.09 00:00:29.00 



The working set limit was 1000 paaes. 

68759 bytes (135 pages) of virtual memory were used to buffer the intermediate 
There were 60 pages of symbol table space allocated to hold 1024 non-local and 
396 source lines were read in Pass 1, producing object records in Pass 2. 
71 pages of virtual memory were used to define 27 macros. 



code. 
24 local 



symbols 



J 11 
ZZ-EMSAA'7.0 Cross reference 27-JUL-1984 Fiche 5 Frame J11 Seguence 963 

DEVALC *** DEVALC device allocation routines 27-JUM984 15:H:29 VAX-11 Macro V03-0f^ a ^ Page 18 

VAX-11 Macro Run Statistics 1-APR-1980 10:27:52 DMA1 :[SYS0.SYSMAINT]DEVALC.MAR;13 (1) 

+„ + 

! Macro library statistics ! 
+ .—...— ...... ... — — — + 

Macro library name Macros defined 

DMA1:[SYS0.SYSMA1NT3DS.MLB;218 1 

0MA1 :[SYS0.SYSMAINTDDIA6.MLB;953 7 

SYS$SYSR00T:CSYSLIB]L1B.MLB;1 3 

SYS$SYSROOT:CSYSL1B]STARLET.MLB;2 11 

TOTALS (all libraries) 22 

1301 GETS were required to define 22 macros. 

There were no errors, warnings or information messages. 

MACRO/MOOBJECT/L1ST=CDS.LIS3/CROSS/ENABLE=(DEBU6 < TRACE) DEVALC/UPDA=(DEVALC.UPD,DEVALC.ENH)+SYS$L1BRARY:LIB/LIBRARY+DMA1 : CSYSO.SYSMA 



ZZ-ENSAA-7.0 

DEVICE 

Table of contents 



*** DEVICE Handle PTABLEs 

*** DEVICE 



Handle PTABLEs 



K 11 
27-JUL-1984 Fiche 5 Frame K11 

27-JUL-1984 15j14:59 VAX-11 Macro 



Sequence 964 
V03-0T 



Page 



(3) 
(4) 



62 

117 



DSSGPHARD Retreive address of P-table 
DSP$GENJ>TABLES Setup UUT's to test 



ZZ-ENSAA-7.0 

DEVICE 

06-01 



*** DEVICE Handle PTABLEs 

*** DEVICE Handle PTABLEs 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



2 
3 

4 

5 
6 
7 
3 
9 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 



.TITLE 
.IDENT 
• LIST 
.NLIST 
.DSA8L 



L 11 
27-JUL-1984 Fiche 5 Frame Li 1 Sequence 965 

27-JUL-1984 15:14:59 VAX-11 Macro V03-01 Pa 9? ™,L 
3-MAR-1981 10:23:33 DMA1 :[SYSO.SYSMAINT]DEVICE.MAR;120<1) 

DEVICE *** DEVICE Handle PTABLEs 

/06-01/ 

MEB 

CND 

GBL 



COPYRIGHT (C) 1977, 1980 __ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY; 
ABSTRACT: 
ENVIRONMENT: 
AUTHOR: 
01 



VAX DIAGNOSTIC SUPERVISOR. 



R. RIGGS 15-JAN-79 VERSION 01. 

Dave Butenhof, 1 7-f eb-1 981 , version 6.3 

Fix linker truncation errors; change DSA$x_? references 

to longword relative. 



ZZ-ENSAA-7,0 

DEVICE 

06-01 



*** DEVICE Handle PTABLEs 

*** DEVICE Handle PTABLEs 



M 11 
27-JUL-1984 Fiche 5 Frame Ml 1 Seguence 966 

27-JUL-1984 15:14:59 VAX-11 Macro V03-01 Pa 9?_ 2 
3-MAR-1981 10:28:33 DMA1 :CSYS0.SYSMAJNT3DEVJCE.MAR;120(2) 



0000 39 

0000 40 

0000 41 

0000 42 

0000 43 

00000001 0000 44 

0000 48 

0000 49 

0000 50 

0000 51 

0000 55 

0000 56 

0000 57 

0000 58 

OOOOCOOO 59 

0000 60 
45 43 49 56 45 44 00' 0000 

06 0000 



MACRO LIBRARIES: 



SS$ N0RMAL=1 

SDSJHPODEF 
$DS,HDRDEF 
$DS_DSADEF 
$DS DSDEF 



♦EXTRN DStGA SELECTS, DS$6A SELECTED, DS$GA PTABLE 

.EXTRN DSSPRTNTF, DS.ERRSUP, DSSGPHARD 

.PSECT DATA, SHR,NOEXE, NOWRT, BYTE 

MODNAM <DEVJCE> 

SMODULE: .ASCIC \DEVICE\ 



ZZ-ENSAA-7.0 

DEVICE 

06-01 



DSSGPHARD Retreive address of P-table 

*** DEVICE Handle PTABLEs 

DSSGPHARD Retreive address of P-table 



N 11 

27-JUL-1984 



Fie he 5 frame N1 1 



Sequence 967 



27-JUL-1984 15:14:59 VAX-11 Macro V03-0T Pa 9?^J, 
3-MAR-1981 10:28:33 DMA1 : CSYSO. SYSMAINT JDEVI CE .MAR; 120(3) 







0007 


62 




00000000 


63 






0000 


64 






0000 


65 






0000 


66 






0000 


67 






0000 


68 






0000 


69 






0000 


70 






0000 


71 






0000 


72 






0000 


73 






0000 


74 






0000 


75 






cooo 


76 






0000 


77 






0000 


78 






0000 


79 






0000 


80 






oooo 


81 






0000 


82 






0000 


83 






0000 


84 






0000 


85 






0000 


86 






0000 


87 






0000 


88 






0000 


89 






0000 


90 






0000 


91 






0000 


92 






0000 


93 






0000 


94 






0000 


95 






0000 


96 






0000 


97 






0000 


98 






0000 


99 




0004 


0000 


100 






0002 


101 


51 00000000*£F 


DE 


0002 


102 


50 04 AC 01 


C1 


0009 


*>03 


61 50 


D1 


000E 


1 04 


17 


1A 


0011 


105 


OOOOFEOC'EF 50 


D1 


0013 


106 


OE 


1A 


001A 


10? 


51 6H0 


DO 


001 c 


108 


08 BC 51 


DO 


0020 


109 


04 


13 


0024 


110 


50 01 


DO 


0026 


111 




04 


0029 


112 






002A 


113 


50 00660002 8f 


DO 


002A 


114 




04 


0031 


115 



.SBTTL DSSGPHARD Retreive address of P-table 
.PSECT CODE, SHR, NOWRT, EXE, BYTE 
+ + 
FUNCTIONAL DESCRIPTION: 

Given a logical unit number. This routine returns the base 
address of *hi* ^:sociated P-tabLe. 

CALLING SEQUENCE: 

DSSGPHARD (UNI T,XREF (ADDRESS)) 
INPUT PARAMETERS: 

4(AP) Logical unit number 
IMPLICIT INPUTS: 

DSSGA, SELECTED List of P-tables of units to be tested. 
OUTPUT PARAMETERS: 

8(AP) Address of longword to receive the address for this unit 
IMPLICIT OUTPUTS: 

R1 Same as 8(AP) 
COMPLETION CODES: 



SS$_NORMAL 
DSS ERROR 



It unit number was in range 

If unit number was too large (unsigned) 



SIDE EFFECTS: 

R1 Returns with address of specified P-table 



.ENTRY DSXSGPHARD, A M<R2> 



10$: 



MOVAL 

ADDL3 

CMPL 

B6TRU 

CMPl 

BGTRU 

MOVL 

MOVL 

BEOL 

MOVL 

RET 

MOVL 
RET 



DSSGA SELECTED, R1 

01,4<RP),RO 

R0,(R1) 

io4 

R0-L A DSA*GLJJN1TS 

10$ 

(R1)[R0],R1 

R1,a8(AP) 

10$ 

S A 0SS$ NORMAL, RO 



0DS$_ERROR,RO 



Address table 

Change to origin 1 

Compare with length of select table 

Branch if unit too large for table 

Compare with number of units tested 

Branch if unit ;oo large 

Get address of P-table 

Store where user wants it 

Branch if bogus 

Set success 

Retjrn to user 

; Spaz 



ZZ-ENSAA-7.0 

DEVICE 

06-01 



DSPSGEN.PTA8LES Setup UUT's to test ^ m 

*** DEVICE Handle PTABLEs 
DSPSGEN.PTABlES Setup UUT f s 



to 



6 12 
27-JUL-1984 Fiche 5 Frame 812 Seguence 968 

27-JUL-1984 15:U:59 VAX-11 Macro V03-01 p *9?_ * 
test 3-MAR-1981 10:28:33 DMA1 : CSYS0.SYSMAINT3DEVICE .MAR; 120(A) 



0032 


117 


00000032 


118 


0032 


119 


0032 


120 


0032 


121 


0032 


122 


0032 


123 


0032 


124 


0032 


125 


0032 


126 


0032 


127 


0032 


128 


0032 


129 


0032 


130 


C032 


131 


0032 


132 


0032 


133 


0032 


134 


0032 


135 


0032 


136 


0032 


137 


0032 


138 


0032 


139 


0032 


HO 


0032 


141 


0032 


142 


0032 


143 



.S8TTL DSPSGEN PTABLES Setup UUT's to test 
.PSECT CODE, SHR, NOWRT, EXE, BYTE 

FUNCTIONAL DESCRIPTION: 

This routine compares the unit types selected by the select 
command with the device types the current program tests 
and enters them in DSSGA.SELECTED. 

CALLING SEQUENCE: 

CALLG *0,DSP$GEN_PTA8LES 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 

DS$GA PTABLES, DS$GA_SCLECTS 
PROGRAM HEADER 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: 

The P-TABLE's for the program 



ZZ-ENSAA-7.0 

DEVICE 

06-01 



DSP$GEN_PTABLES 



Setup UUT's to test 

*** Device Handle ptables 

DSPS6EN PTABLES Setup UUT's 



to 



C 12 
27-JUL-198A Fiche 5 Frame C12 Seguence 969 

27-JUL-1984 15:14:59 VAX-11 Macro V03-07 p J9e rt 5 
test 3-MAR-1981 10:28:33 DMA1 :[SYS0.SYSMAINT]DEV1CE.MAR;120(5) 





D07C 


0032 


145 






0034 


146 


O00OFF0C 'EF 


D4 


0034 


147 


O00OO22O , EF 


D5 


003A 


148 


65 


13 


0040 


149 


56 00000000' EF 


DE 


0042 


150 


55 66 


DO 


0049 


1M 


50 00000000' E F 55 


E1 


004C 


152 






0054 


153 


54 0000O21C 9F 


DO 


0054 


154 


4A 


13 


005B 


155 


53 84 


DO 


005D 


156 


45 


13 


0060 


157 






0062 


158 


51 84 


DO 


C062 


159 


50 81 


9A 


0065 


160 


52 6645 


DO 


0068 


161 


36 


13 


006C 


162 


52 26 A2 


9E 


006E 


163 


50 82 


91 


0072 


164 


2A 


12 


0075 


165 


82 81 


91 


0077 


166 


25 


12 


007A 


167 


F8 50 


F5 


007C 


168 


OOOOFEOC'EF 01 


C1 


007F 


169 


00000220* EF 50 


D1 


0087 


170 


17 


14 


008E 


171 


OOOOFEOC'EF 


D6 


0090 


172 


00OO0000'EF4O 6645 


DO 


0096 


173 


03 


11 


009F 


174 






00A1 


175 


8E 53 


F5 


00A1 


176 






00A4 


177 


A5 55 


F5 


00A4 


178 






00A7 


179 




04 


00A7 


180 






00A8 


181 






00A8 


182 



, ENTRY DSP$GEN_PTABLES, A M<R2,R3,R4,R5,ft6> 



10$; 



20$: 



30$: 



40$ 
50$ 
60$ 



CLRL 

T5TL 

BEOL 

MOVAL 

MOVL 

BBC 

MOVL 
BEQL 
MOVL 
BEOL 

MOVL 

MOVZBL 

MOVL 

BEQL 

MOVAB 

CMP8 

BNEQ 

CMP8 

BNEQ 

SOBGTR 

ADDL3 

CMPL 

BGTR 

INCL 

MOVL 

BR8 

SOBGTR 

SOBGTR 

RET 

♦ END 



L A DSA$GL_UNITS 

L$L_UNIT 

60$ 

DS$GA_PTABLE,R6 

<R6),fi5 

R5,DS$GA_SELECTS,50$ 

3#L$A DEVP,R4 
60$ 

(R4)+,R3 
60$ 



Clear count of units to test 

; EXIT If NOT TESTING ANY UNITS 

; Point to P-table Mst 

; Get count of entries 

; Branch if not selected 

; Get address of DEVTYP in program 

; Branch if none 

; Gee count of entries 

: Branch if none 



(R4)+,R1 
<R1)+,R0 
(R6)CR5],R2 

50$ 

HP$T TYPE(R2),R2 

<R2)+,R0 

40$ 

(R1)+ # (R2)+ 

40$ 

R0,30$ 

#1,L A DSA$GL_UNITS 

ROASL UNJT 

60i 

L A DSA$GL_UNITS 

(R6)CR5J,DS$GA w SE 

50$ 

R3, 20$ 

R5J0$ 



; Get address of ASCJC devtype 

; Get length of devtype 

; Get address of P-table 

; Branch if no P-table 

; Point to type 

; Compare string lengths 

; Branch if no match 

; Compare 

; Branch if not the same 

; Branch if more to compare 

,R0 ; Get next unit number 

; Program test enough units? 

; Already selected enough units 

; Update units being tested 
LECTEDCRO] ; Insert P-table as new unit 

; Branch since match found 

; Count and continue in DEVTYP list 

; Next P-table 

; Return 



ZZ-ENSAA-7.0 
DEVICE 
Symbol table 

SER 

SMODULE 

BIT... 

DSSGA..PTABLE 

DSSGA.SELECTED 

DSSGASELECTS 

DSSGPRARD 

DS$K ERROR 

DSSK~N0RMAL 

DSSK~SEVERE 

DSSK~SUBSYS 

DSSK~WARNING 

DSSPRlNTF 

DSS ARITH 

DSS ASBE 

DSS^BADLINK 

OSS BADTYPE 

DSS_BI1C 

DSS CHME 

DSS CHMK 

DSS DEVNAME 

DSS~ERROR 

DSS~FHWE 

DSS~FRAGBUF 

DSSJCBUSY 

DSS KERR 

DSSJHWE 

DSS ILLCHAR 

DSS~ILLPAGCNT 

DSSIILLUNIT 

DSS INSFMEM 

DSS~IPL2HI 

DSSIIVADDR 

DSS IVVECT 

DSS'KRNLSTK 

DSS~L0GIC 

DSS'MCHK 

DSS""MMOFF 

DSS"NEEDUNIT 

DSSlNODE 

DSS NOPCS 

DSS'NORMAL 

DSS~NOSUPPORT 

DSS~NOTDON 

DSS~NOTIMP 

DSSlNULLSTR 

DSS OVERFLOW 

DSS~POWER 

DSS~PROGERR 

DSSlSEVERE 

DSS TRANSL 

DSS~TRUNCATE 

DSS'UNEXPINT 

DSS"VASFULI. 

DSS" WARNING 

DSAlAL APTMAIL 

DSASAT~APTTXT 



Symbol table 



*** DEVICE Handle PTABLEs 



D 12 
27-JUL-1984 Fiche 5 Frame D12 Sequence 970 

27-JUL-1984 15:14:59 VAX-11 Macro V03-0T Pa 9* § 

3-MAR-1981 10:28:33 DMA1 :CSYS0»SYSMAINT3DEVICE.MAR;120(5) 



00000001 


D 


00000000 R 


D 02 


00660130 


D 


******** 


X 00 


******** 


X 00 


******** 


X 00 


******** 


X 00 


00000002 


D 


00000001 


D 


00000004 


D 


00000066 


D 


00000000 


D 


******** 


X 00 


006600D0 


D 


006601 1 8 


D 


006600F0 


D 


006600E8 


D 


00660120 


D 


006600A8 


D 


006600EO 


D 


00660108 


D 


00660002 


D 


00660068 


D 


00660080 


D 


006600C8 


D 


006600CO 


D 


00660060 


D 


00660018 


D 


00660078 


D 


00660100 


D 


00660050 


D 


006600B8 


D 


00660040 


D 


00660038 


D 


00660090 


D 


00660070 


D 


00660088 


D 


00660058 


D 


006600F8 


D 


00660128 


D 


00660110 


D 


00660001 


D 


006600B1 


D 


00660030 


D 


006600BO 


D 


00660010 


D 


00660008 


D 


00660098 


D 


00660020 


D 


00660004 


D 


006600A0 


D 


00660028 


D 


006600D8 


D 


00660048 


D 


00660000 


D 


00O0FEO0 


D 


0000FAO0 


D 



DSASGL.APTCOM 

DSASGL DEVLEN 

DSASGL.ERRNO 

DSASGL EVENT 

DSASGL. FLAGS 

DSASGL MSGTYP 

DSASGL"PASSES 

DSASGL'PASSNO 

DSASGLlSECTNO 

DSASGL. SID 

DSASGL. SUBTNO 

DSA$GL_TESTNO 

DSASGL.UNITS 

DSASGQ MSGPTR 

DSASGT DEVNAM 

DSPSGER PTABLES 

DSXSGPHSRD 

DS ERRSUP 

HP5A DEPENDENT 

HPSA'DEVICE 

HPSA'DVA 

HPSA„L1NK 

HPSB.DRIVE 

HP$B FLAGS 

HPSCf DEVICE 

HPST^DEVICE 

HPST.TYPE 

HPSW.SIZE 

HPSW VECTOR 

LSA.tCP 

LSA DEVP 

LSAlDREG 

LSA.DTP 

LSAJCP 

LSA LASTADR 

LSA.NAME 

LSA.REPP 

LSA SECNAM 

LSA"*STATAB 

LSAJSTCNT 

LSL ENVIRON 

L$L ERRTYP 

LSL'HEADLENGTH 

LSL~REV 

LSL.UNIT 

LSL UNUSED 

LSLJJPDATE 

SJZ... 

SSS NORMAL 



0000FE04 


D 


00OOFE58 


D 


0000FE44 


D 


0000FE48 


D 


OOOOFEOO 


D 


0000FE40 


D 


0000FE08 


D 


0000FE54 


D 


0000FE10 


D 


0000FE14 


D 


0OOOFE4C 


D 


0000FE50 


D 


OOOOFEOC 


D 


0000FE68 


D 


0000FE5C 


D 


00000032 


RG D 03 


00000000 


RG D 03 


******** 


X 00 


00000032 


D 


00000018 


D 


0000001 C 


D 


00000020 


D 


OOOOCOOB 


D 


OOOOOOOA 


D 


00000000 


D 


oooooooc 


D 


00000026 


D 


00000008 


D 


00000024 


D 


00000240 


D 


0000021 C 


D 


00000224 


D 


00000218 


D 


0000023C 


D 


00000214 


D 


00000208 


D 


00000244 


D 


00000250 


D 


00000248 


D 


00000254 


D 


00000204 


D 


0000024 C 


D 


00000200 


D 


0000020C 


D 


00000220 


D 


00000228 


D 


00000210 


D 


00000001 


D 


00000001 


D 
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PSECT name 

. ABS . 

SABS$ 

DATA 

CODE 



Allocation 

00000000 
000OFE7O 
00000007 
O0OOO0A8 



+ — ..,.—.. + 

! Psect synopsis ! 
+—• .— — -.—.-.— — + 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 7.) 02 ( 2.) NOPIC USR 

( 168.) 03 ( 3J NOPIC USR 



CON 


ABS 


CON 


ABS 


CON 


REL 


CON 


REL 



LCL NOSHR NOEXE NORD 

LCL NOSHR EXE RD 

LCL SHR NOEXE RD 

LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC BYTE 

NOWRT NOVEC BYTE 
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SYMBOL 

$ER 

SMODULE 

BIT.., 

DSSGA PTABLE 

DSSGA'SELECTED 

DS$GA"SELECTS 

DSSGPflARD 

DSSK ERROR 

DSSlTNORMAL 

DSSKlSEVERE 

DS$K SUBSYS 

DSSlTWARNING 

DSSPRlNTF 

DSS ARITH 

DSS~ASBE 

DSS~BADLINK 

DSS~BADTYPE 

OSSlBIIC 

DSS CHME 

DSS'CHMK 

DSS~DEVNAME 

DSS~ERROR 

DSS'FHWE 

DSS~FRAGBUF 

DSSJCBUSY 

DS$ ICERR 

DSS'IHWE 

DSS~ILLCHAR 

DSS"*ILLPAGCNT 

DSS~ILLUNIT 

DSS^INSFMEM 

0S$ IPL2HI 

DSS~IVADDR 

DSS'lVVECT 

DSS'KRNLSTK 

DSS'LOGIC 

OSS MCHK 

DSS'MMOFF 

0S$"NEEDUNIT 

DSS'NODE 

DSS~NOPCS 

DSS NORMAL 

0SS~NOSUPPORT 

DSS~NOTDON 

DSS~NOTIMP 

OSS~NULLSTR 

DSS'OVERFLOW 

DS$"POWER 

DSS'PROGERR 

0S$:SEVERE 





! Symbol Cross 


Reference ! 




VALUE 


DEFINITION 


REFERENCES... 




=00000001 


60 


(2) 








00000000-R 


60 


(2) 








=00660130 


51 


(2) 


51 


(2) 




00000000-XR 






150 


(5) 


56 (2) 


00000000-XR 






102 


(3) 


#-173 (5) 


00000000-XR 






152 


(5) 


56 (2) 


00000000-XR 






57 


(2) 




=00000002 


51 


(2) 








=00000001 


51 


(2) 








=00000004 


51 


(2) 








=00000066 


51 


(2) 


51 


(2) 




=00000000 


51 


(2) 








00000000-XR 






57 


(2) 




=006600DO 


51 


(2) 








=00660118 


51 


(2) 








=006600F0 


51 


(2) 








=006600E8 


51 


(2) 








=00660120 


51 


(2) 








=006600A8 


51 


(2) 








=006600E0 


51 


(2) 








=00660108 


51 


(2) 








=00660002 


51 


(2) 


tf-114 


(3) 




=00660068 


51 


(2) 








=00660080 


51 


(2) 








=006600C8 


51 


(2) 








=006600C0 


51 


(2) 








=00660060 


51 


(2) 








=00660018 


51 


(2) 








=00660078 


51 


(2) 








=00660100 


51 


(2) 








=00660050 


51 


(2) 








=00660068 


51 


(2) 








=00660040 


51 


(2) 








=00660038 


51 


(2) 








=00660090 


51 


(2) 








=00660070 


51 


(2) 








=00660088 


51 


(2) 








=00660058 


51 


(2) 








=006600F8 


51 


(2) 








=00660128 


51 


(2) 








=00660110 


51 


(2) 








=00660001 


51 


(2) 








=006600B1 


51 


(2) 








=00660030 


51 


(2) 








=00660080 


51 


(2) 


51 


(2) 




=00660010 


51 


(2) 








=00660008 


51 


(2) 








=00660098 


51 


(2) 








=00660020 


51 


(2) 








=00660004 


51 


(2) 









56 



(2) 
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DEVICE 

Cross reference 

oss transl 
ds$"truncate 
ds$~unexpint 
ds$~vasfull 
ds$~warning 
0sa5gl units 
dspsger ptables 
dsx$gph£rd 
ds errsup 

HPlT TYPE 
L$A BEVP 
L$1~UN1T 
SS$~NORMAL 



Cross 



reference 








2 


r-JUL- 


*** DEVICE 


Handle 


PTABLEs 








=006600A0 


51 


(2) 








=00660028 


51 


(2) 








=006600D8 


51 


(2) 








=00660048 


51 


(2) 








=00660000 


51 


(2) 




51 


(2) 


0000FE0C 






#- 


•106 


(3) 


00000032-R 


145 


(5) 








00000000-R 


100 


(3) 








00000000-XR 








5/ 


(2) 


00000026 








16i 


(5) 


0000021 C 






ft- 


-154 


(5) 


00000220 






ft 


-148 


(5) 


=00000001 


44 


(2) 


ft 


-111 


(3) 
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#-147 



(5) 



#-169 



(5) 



#-172 



(5) 



#-170 



(5) 
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DEVICE 
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Cross reference 



*** DEVICE Handle PTABLEs 



H 12 
27-JUL-1984 Fiche 5 Frame H12 Seguence 974 

27-JUL-1984 15:H:59 VAX-11 Macro V03-01 Page 10 
3-MAR-1981 10:28:33 DMA1 :CSYS0.SYSMAINT3OEVICE.MAR;12O(5) 



MACRO 



SIZE 



SDEF 


1 


SDEFINI 


1 


SDS DSADEF 


5 


SDS DSDEF 


2 


SDS HDRDEF 


2 


SDS HPODEF 


2 


SEQO 


1 


SEQULS1 


1 


SEQULST 


1 


SGBLINI 


? 


SVIELD1 


1 


MODNAM 


1 





TION 


+ 
i 

+ 


Macros 


Cross Refe 


rence J 


DEFINJ 




REFERENCES... 




51 


(2) 












48 


(2) 






48 


(2) 


49 


50 


(2) 






50 


(2) 




51 


(?) 






51 


(2) 




49 


(2) 






49 


(2) 




48 


(2) 






48 


(2) 




51 


(?) 






51 


(2) 




51 


(?) 






51 


(2) 




51 


(2) 






51 
51 


(2) 
(2) 




51 


(2) 












60 


(2) 
CPl 


) Ti 




60 


(2) 






Performance indicators ! 


Page faults 


me 




Elapsed 1 


'ime 


32 


00: 


00: 


00 


.10 


00:00:00. 


28 


139 


00: 


00: 


00 


.73 


00:00:01, 


59 


355 


00: 


00: 


04 


.62 


00:00:10. 


60 





00. 


00: 


00 


.21 


00:00:00. 


28 


77 


00: 


00. 


00 


.76 


00:00:00. 


99 


3 


00: 


00: 


00 


.08 


00:00:00. 


08 


6 


00, 


00. 


00 


.03 


00:00:00, 


03 


29 


00. 


00 


00 


.26 


00:00:00 


26 


646 


00 


00 


06 


.81 


00:00:14, 


13 



(2) 



50 



(2) 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 950 pages. 

22860 bytes (45 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 165 non-local and 7 local symbols. 

182 source lines were read in Pass 1, producing object records in Pass 2. 

43 pages of virtual memory were used to define 15 macros. 

+_—_— — ™-™™« .— - — + 

! Macro library statistics ! 
+ + 

Macro library name Macros defined 

DMA1:CSYS0.SYSMAINTJDS.MLB;218 1 

DMA1:CSYS0.SYSMAINTJDIAG.MLB;953 4 

SYSSSYSR00T:CSYSLIB]LIB.MLB;1 

SYSSSYSR00T:CSYSLIB]STARLET.MLB;2 5 

TOTALS (all libraries) 10 

241 GETS were required to define 10 macros. 

There were no errors, warnings or information messages. 
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DEVICE 

VAX-11 Macro Run Statistics 
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MACR0/N00BJECT/LJST=CDS.L1S]/CR0SS/ENABLE=(DE8UG, TRACE) DEVI CE/UPDA=(DEVICE.UPD, DEVICE. ENH) +SYS$LIBRARY:L IB/LIBRARY+DMA1 :[SYS0.SYSMA 
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0001 

000? 

000} 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
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27-Jul-1984 
27-Jul-1984 
26-JUI-1984 



15:56:00 
09:39:06 



Fiche 5 Frame J12 



Sequence 976 
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Supervisor DIRECTORY command 



%title **+* DIRECTORY Handle DIRECTORY command 1 
module directory ( 

ident = '07-17', 

Debug, 

OptLevel = 3 

Copyright (c) 1980, 1982, 1983, 1984 __ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DEC ASSUMES NO RESPONSIBILITY FOR THF USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



+ + 

FACILITY: 

DIAGNOSTIC SUPERVISOR TEST PROGRAM 



ITS 



ABSTRACT: 



Read and print directories for supported mass storage 
ODS-1/2 disks, ANSI magtapes, and RT-11 console media 



ENVIRONMENT: DIAGNOSTIC SUPERVISOR 
AUTHOR: Dave Butenhof 1-oc t-1980 



volume formats: 



MODIFIED 
01 
02 
03 
04 

05 
06 



BY: 



Dave Butenhof, 18-mar-1981, version 6.3 
Allow ODS subdirectory support under user mode. 
-Dave butenhof, 02-Jun-1981, version 6.3 
Change library specs for more flexibility 

- Dave butenhof, 26-Jun-1981, version 6.4 

Fix to use B00$QI0 instead of DSP$XX_READ (the latter does 
not do error retries, nor does it handle errors well). 

- Dave Butenhof, 31-aug-1981 , version 6.5 

Support DQ device type (IDC disks) for Nebula. D*sks are 
R80 and R102. 

- dave butenhof, 16-Sep-1981, version 6.5 

Fix directory so unattached device results in 'nice error 
message, not general RMS$_DEV. 

- Jack Stansbury, 22-0ct-1981, Version 6.- 

Fixed a truncation error by changing the PSECT declarations to 
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DIRECTORY 

07-17 
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0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

01 1 2 

0113 

0114 





























































































1 
1 
1 
1 
1 
1 
1 
1 

1 

i 

1 
1 
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conform to the .MAR file's PSECT's. 



07 

08 

09 
10 



- Dave Butenhof, 26-0ct-1981, Version 6.- 

Alter call to L0C$PTABLE to include adapter address 
argument, 

- Dave Butenhof, 12-Jan-1982, Version 6.6 

Set up Control C trap in DIRECTORY routines; this will allow 
closing of any open files. 



- Dave Butenhof, 25-Jan-1982, Version 6.6 

Use DSR$ALL0CATE_PSEUD0_RP8 routine instead of explicit 



init 



[11] 
[12 J 



- Dave Butenhof, 03-Feb-1982, Version 6.6 
Add ability to check filespec against (wildcarded) argument 
before typing. This is almost Tree, since the checking 
routine exists in HELP already for checking keywords. All 
we need here is minimal pre-parsinq to add 'implicit 
wildcards', and the code to call the compare routine. 

Dave Butenhof, 15-Apr-1982 
Add UDA50 disk support. 

Dave Butenhof, ?4-May-1982 

Add TM78 support (by removing special case code which disallows TU78) 



13 

14 
15 

16 
17 

18 



M. Baggett, 9-March-1983, Version 6.11 
Added support for CI-HSC50 and RC25/RCF25. 

Bob Bergazzi May 17, 1983 Version 6,11 
Changed the order of searching the libraries, 
M. Baggett 11-0U-1983 Version 6.13 
Added support for CJ-HSC50 magtape. 

Bob Bergazzi April 13, 1984 Version 7.0 

Added support for III console storage device in 0DS format. 

to DSXSPIRECTORY routine. 

Bob Bergazzi May 21, 1984 Version 7.0 
Added support for DIR/WJDE, which displays the directory 
1 filename per line. This avoids the truncation of 
long filenames under VMS V4. 

RE MUSE 22 MAY ,1984 Version 7.0 

increased buffer size to handle long filenames for VMS v4 



begin 

Table of contents: 

Include files: 

library 'Sdiag'; 
library 'Sds 1 ; 
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DIRECTORY 

07-17 

0115 1 

0116 1 

0117 1 

0118 1 

0119 1 

0120 1 

0121 1 
012? 1 

0123 1 

01 24 1 

0125 1 

0126 1 

0127 1 

0128 1 

0129 1 

0130 1 

0131 1 

0132 1 

0133 1 

01 34 1 

0135 1 

0136 1 

0137 1 

0138 1 

0139 1 

0140 1 

0141 1 

0142 1 

0143 1 

0144 1 

0145 1 

0146 1 

0147 1 

0148 1 

0149 1 

0150 1 

0151 1 

0152 1 

0153 1 

0154 1 

0155 1 

0156 1 

0157 1 

0158 1 

0159 1 

0160 1 

0161 1 

0162 1 

0163 1 

0164 1 

0165 1 

0166 1 

0167 1 
0163 1 

0169 1 

0170 1 

0171 1 
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library f sys$library: lib; 



Macros: 
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psect definitions: 



psect 



plit = data ( noexecute, share, nowrite, addressing_mode ( long.relative)); 



psect 



own 



= work ( noexecute, noshare, write, addressing_mode ( Long_relative)); 



psect 



global = work ( noexecute, noshare, write, addressing_mode (long^relative)); 



psect 



code = code ( execute, share, nowrite, addressingjnode(long_relative)); 



equated symbols: 
$ds„dsadet; 
MAP 



! Define DSA locations 



bind 



DSA$GL,SJD : BLOCK; 
feline = Sascic C'JAD!/*); 



I inkage 

jsb^fake = jsb : nopreserve (2), 
jsb~scan = jsb (register = 3, register 



Own storage: 

Own 

FileSpecMatch : Block C8 # Byte], 
ControlCFlag : Byte; 

GLOBAL 

WIDE^FLAG : BYTE; 

Laterals 



= 4, register = 5) : nopreserve (2); 



i A 1 value indicates /WIDE was typed, value - no /WIDE 



LITERAL 



PR$_S1D_TYPZZZ = 5; 



[08] 
[103 
C08] 

[173 
[17] 



[16] 



[16] 
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0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

018? 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
-t 

i 

1 

1 
1 

1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 



*** DIRECTORY Handle DIRECTORY command 
*** DIRECTORY Handle DIRECTORY command 



M 12 
27-JuM984 
27-JuM984 
26-Jul-1984 



Fiche 5 Frame f)12 Sequence 979 
15:56:00 VAX-11 Bliss-32 V4. 0-742 Page 4 

09:39:06 DMA1 : CSYS0.SYSMA1NT3DIRECT0RY.B32; 1 70 (1) 



External references: 



external literal 
defSc.bkstp^len; 



Length of file spec backup 



Address of BEGIN code 



external , , 

begin bliss : addressing_mode ( long_relati ve) , 

ds$gl~clibase : addressingjnode (long_relative) , 

boofselect, ! Non-interrupt 'QI0 package stuff 

boo$al vector : addressingjnode ( long^relative) ( 

def$q Backstop : addressing mode (long relative), J last-chance file spec backup string 

def$q~dev : bblock addressing mode (long relative), ! Descriptor of system default device 

def$q~dir : bblock addressing"mode ( long"relative); ! Descriptor of system default directory 



external routine 

boolqio : addressing_mode ( long relative) f 
scanSnumeric : jsb scan addressingjnode ( lonu relative) , 
kb check : jsb none addressingjnode (long relative), 
scriptSflusn :~isbjione addressing mode Uong^relat ive) , 
init context : jsb^none addressingjnode (long„relative) , 
ds_cleanup : jsb^none addressingjnode (long.relative) , 
qio$c leanup, 
breakup_f ile, 

DsrSKey Equal, ! compare two keywords 

loc$pta5le : jsb locSptable addressing, mode (lonq relative) , 
Dsr$Allocate Pseudo RP8 : Address incj^Mode <Long_Relative) , 
Dsr$DeAllocate^Pseu3o RPB : Addressingjnode (Long.Relative) , 
dsr$completion~: jsb_0; 



[10] 
[05] 
[09] 
[09] 



ZZ-ENSAA-7,0 

DIRECTORY 

07-17 



0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

021/ 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

C232 

0233 

02 3 A 

0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 



1 
1 
1 
? 

2 

2 

i 

c 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

4 

4 

4 

4 

4 

4 

3 

3 

4 

4 

4 

4 

4 

4 

3 

3 

1 



Put filename to buffer, if matches pattern 
*** DIRECTORY Handle DIRECTORY command 
Put filename to buffer, if matches pattern 



N 12 
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27-Jul-1984 15:56:00 VAX-11 Bliss-32 V4. 0-742 Page 5 

26-Jul-1984 09:39:06 DMA1 : CSYS0. SYSMAINT JDJRtfCTORY # B32; 1 70 (2) 



SSbttl 'Put filename to buffer, if matches pattern' 

Routine PutBuffer (Count, Buffer, Desc) : NoValue = 
Begin 

Function: , tt ly , 

Includes a filename within the printout buffer, if it matches the 
specified pattern, or if there is no pattern. 



Count 

Buffer 

Desc 



Local 

Wild; 



Address of count longword (number of files typed) 
Address of directory line buffer descriptor 
Address of file name buffer descriptor (at end of 
'Buffer' buffer. 



! Dummy for key comparison routine 



Map 



Buffer 
Desc : 



: Ref Block [, Byte], 
Ref Block L, Byte]; 



If .FileSpecMatch [DscSW.Lenqth] Eql ! 
Or DsrSKey, Equal (.Desc, F ileSpecMatch, Wild) 
Then 

Begin 

.Count = , .Count + 1; 



If no pattern 



or pattern matches 



Count this file 



DIR/WIDE 



IF .WIDE FLAG 

THEN BEGTN n p ! 

Buffer CDscSW Length] = .Buffer CDscSW Length] + .Desc [Dsc$W_Length]; ! 
$Ds PrintF (Sflscic OAS!/'), Buffer CDscSW Length]); ! Print cut buffer 
BufTer [DscSW Length] = 0; ! Reset buffer length 

ChSFill UC' T , 132, .Buffer [DscSA Pointer]) ! Fill with blanks 

END 
ELSE If (Buffer [Dsc$W Length] = .Buffer [Dsc$W Length] + .Desc [Dsc$W_Length]) Gtr 60 ! 

Then ' ! 

Begin ! 

$Ds PrintF (SAscic CIAS!/'), Buffer CDscSW Length]); ! Print out buffer 
BufTer CDscSW Length] - 0; ! Reset buffer Tength 

ChSfill IXC T , 80, .Buffer [DscSA^Pointer]); ! Fill with blanks 
End ! 

End ! 



fcnd; 



[10] 
C103| 

[10] 
[10] 
[10] 

[10] 

[10] 
[10] 
[10] 
[10] 

[173 

[17] 
[17] 
[17] 
[17] 
[17] 

[10]l 
[10]! 
[10] 
[10] 

[10]: 

[10] 
[10]; 

[10]: 

[10]! 



.TITLE DIRECTORY *** DIRECTORY Handle DIRECTORY comman 

d 
.IDENT \07-17\ 



.PSECT W0RK,N0EXE,2 
00000 FRESPECMATCH; 



ZZ-ENSAA-7.0 

DIRECTORY 

07-17 



Put filename to buffer, if matches pattern 
*** DIRECTORY Handle DIRECTORY command 
Put filename to buffer, if matches pattern 



G 13 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



15:56:00 

09:39:06 



fiche 5 Frame B13 



Sequence 981 
VAX-11 Bliss-32 V4. 0-742 _ Page 6 
DMA1:[SYSO<SYSMA1NT]DIRECTORY.B32;17Q (2) 



,BLK8 8 

00008 C0NTR0LCFLAG; 

.BLKB 1 

00009 WIDE.FLAG: : 

,BLKB 1 



.PSECT DATA,N0WRT,N0EXE, SHR,2 



2F 
2F 
2F 



21 
21 
21 



44 
53 
53 



41 
41 
41 



21 
21 
21 



05 
05 
05 



00000 
00006 

ooooc 



P. AAA: 
P.AAB: 
P.AACj 

DSASAL 
DSA$6L 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
FJ.INE 



.ASCII 

.ASCII 
.ASCII 

.APTMAIL* 

..FLAGS* 

APTlOM= 

IPASSES= 
.UNITS* 
„SECTNO* 
_SID* 
MSGTYP= 

;errno= 
Zevent* 

.SUBTN0« 
JESTNO* 
„PASSNO= 
„DEVLEN= 
_DEVNAM» 
_MSGPTR= 

.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 



01FC 00000 PUTBUFFER: 



0000G 



58 00000000G 


9F 


9E 


57 00000000' 


EF 


9E 


5E 


04 


CJ 




67 


B5 




% 


13 


4080 


BB 


OC 


AC 


DD 


CF 


03 


9 


4E 


50 


04 


BC 


»$ 


56 08 


AC 


DO 



00002 
00009 
1010 
1013 




1$: 



<5>\iAD!/\ 
<5>\!A>!/\ 
<5>\!AS!A 

65024 
65024 



88? 



!2 
65036 
6S040 

65088 
65092 
65096 
65100 
65104 
65108 
65112 
65116 
65128 
P AAA 

def$c1bkstp„len 
begin^blisst dssgl.clibase 
boossElect, boosal vector 
defsq backstop. defsq..dev 
defso^dir, boosq10 
scansrumeric, kb^check 
scriptsflush, init context 
ds cleanup, qi0scleanup 
breakup file, dsrskey equal 
locsptable , dsrsalloc&te t p$eudo„rpb 

DSRSDEALLOCATE^PSEUDO rpB 
DSRSCOMPLETION, DSSPRlNTF 



.PSECT CODE,NOWRT, SHR,2 



.WORD Save R2.R3,R4,R5,R6,R7 # R8 

M0VA3 WDS$PRINTf £ R8 

MOVAB FILESPECMATCH, R7 

SUBL2 #4, SP 

TSTW FILESPECMATCH 

BEOL IS , 

PUSHR # A M<R7,SP> 

PUSHL DESC 

CALLS #3, DSRSKEYJQUAL 

BLBC RO. 3S 

INCL aCOUNT 

MOVL BUFFER, R6 



0204 

0226 
0227 



02: 
02! 



ZZ-ENSAA-7.0 

DIRECTORY 

07-17 



Put filename to buffer, if matches pattern 
*** DIRECTORY Handle DIRECTORY command 
Put filename to buffer, if matches pattern 



0084 8F 



20 



0050 8F 



20 



18 
66 



68 
6E 



50 
51 
50 
66 
3C 



68 
6E 



09 A7 

0C BC 

56 

00000000' EF 

02 
66 
00 
B6 



04 



0C 



00000000' 



04 



66 
BC 
51 
50 
50 
16 
56 
EF 
02 
66 
00 
B6 



C 13 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 5 Frame C13 



Sequence 982 
15:56:00 VAX-11 Bliss-32 V4. 0-742 Page 

09:39:06 DMA1 : CSYS0. SYSMAINTJD J RE CTORY .B32; 1 70 



E9 0002D 
AO 00031 
DD 00035 
9F 00037 
FB 00030 
B4 00040 
2C 00042 

00049 
04 00O4B 
3C 0004C 2$: 
3C 0004F 
CO 00053 
BO 00056 
D1 00059 
15 0OO5C 
DD 0005E 
9F 00060 
FB 00066 
B4 00069 
2C 0006B 

00072 
04 00074 3$: 



BLBC 

ADDW2 

PUSHL 

PUSHAB 

CALLS 

CLRW 

M0VC5 

RET 

MOVZWL 

MOVZWL 

ADDL2 

MOVUI 

CMPL 

BLEQ 

PUSHL 

PUSHAB 

CALLS 

CLRW 

M0VC5 

RET 



WIDE FLAG, 2$ 

aPESC, (R6) 

R6 

P AAB 

#2, DSSPRINTF 

(R6) 

#0, <SP>, #32, #132, 5)4<R6) 



(R6>, RO 

3DESC, R1 

R1, RO 

RO, (R6) 

RO, #60 

3$ 

R6 

P.AAC 

#2, DSSPRJNTF 

(R6) 

#0, <SP), #32, #80, 5)4(R6) 



7 

(2) 

0212 
0234 
0235 



0236 
0237 



0239 



0242 



0243 

0244 

0249 



Routine Size: 117 bytes. Routine Base: CODE + 0000 



ZZ-ENSAA-7.0 

DIRECTORY 

07-17 



0250 1 

0251 1 

0252 1 

0253 2 

0254 2 

0255 2 

0256 2 

0257 2 

0258 2 



0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
? 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



0286 1 



RAD50 

*** DIRECTORY Handle DIRECTORY command 

RAD50 

Xsbttl 'RAD50' 

routine rad50 (data, address) = 
begin 



+ + 



D 13 
27-Jul-1984 Fiche 5 Frame D13 Sequence 983 

27-JuM984 15:56:00 VAX-11 Bliss-32 V4. 0-742 _ ^ Page 8 

26-Jul-1984 09:39:06 DMA1 :[SYSO.SYSMAINT3DIRECTORY.B32;170 (3) 



Functional description: 

Routine to convert RAD50 to ASCJJ 

writes the converted characters into a byte vector at ADDRESS 

Routine value is number of characters that were non blank 

Formal parameters: 

data 16 bit quantity containing 3 rad50 characters 

address address of byte vector to receive the 3 characters in ascii 



Completion codes: 



none 



map 



address : ref vector [3, byte]; 



local 
ptr; 



! Map out where to store data 
i Point to first space in string 



bind 



xlate = uplit byte(Xascii ' ABCDEFGHIJKLMNOPQRSTUVWXYZS. 70123456789* ) 
: vector [40, byte3; 



address CO] - .xlate C. data/16003; 
address [13 = .xlate C(. data/40) mod 403; 
address L21 ~ .xlate [.data mod 403; 

if ch$fail (ptr = ch$find^ch (3, ch$ptr (.address), Xc l ')) then 3 else chSdiff (.ptr, ch$ptr (.address)) 
end; 



4E 4D 4C 4B 4A 49 48 47 46 45 44 43 42 41 20 00012 P.AAD: 
3F 2E 24 5A 59 58 57 56 55 54 53 52 51 50 4F 00021 

39 38 37 36 35 34 33 32 31 30 00030 

XLATE= 



.PSECT DATA,N0WRT,NOEXE, SHR,2 

.ASCII \ A3CDEF6H1JKLMN0PQRSTUVWXYZ$.?0123456789\ 

P.AAD 
.PSECT C0DE,N0WRT, SHR,2 







53 00000000' EF 






52 08 AC 


50 


04 


AC 00000640 8F 
62 6340 


50 


04 


AC 28 



000C 00000 RAD50: .WORD 

9E 00002 M0VAB 

DO 00009 M0VL 

C7 0000D DIVL3 

90 00016 M0V8 

C7 OOO'A DIVL3 



Save R2,R3 
XLATE, R3 
ADDRESS, R2 
#1600, DATA, R0 
XLATECR03, (R2) 
#40, DATA, R0 



0252 
0280 

0281 



ZZ-ENSAA-7.0 
DIRECTORY 

07-17 



7E 
50 

7E 
50 



RAD50 

*** DIRECTORY 

RAD50 

00 
50 

00 
50 

62 



Handle DIRECTORY command 



01 
04 

02 



50 
8E 
A2 
AC 
8E 
A2 
03 



51 

51 
50 



01 
28 

6340 
01 
28 

6340 
20 
02 
51 
51 
05 
03 
03 
52 
51 



E 13 
27-Jui-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 5 Frame E13 Sequence 984 
15:56:00 VAX-11 BMss-32 V4. 0-742 _ a Page 9 
09:39:06 DMA1 :CSYS0,SYSMAINT3DIRECT0RY,B32;170 (3) 



7A 0001 F EMUL 

78 00024 EDiV 

90 00029 MOVB 

?A 0002E EMUL 

78 00034 EDIV 

90 00039 MOVB 

3A 0003E LOCC 

12 00042 BNEQ 

D4 00044 CLRL 

D5 00046 1$: TSTL 

12 00048 BNEQ 

DO 0004A MOVL 

11 0004D BRB 

C2 0004F 2$: SUBL2 

DO 00052 3$: MOVL 

04 00055 RET 



#1, RO, 00, -(SP) 

040, (SP)+, RO, RO 

XLATECROJ, KR2) 

#1, DATA, 00, -(SP) 

#40, (SP)+, RO, RO 

XLATECROJ, 2(R2) 

#32, 03, (R2) 

1$ 

R1 

PTR 

2$ 

03, R1 

3$ 

R2, R1 

R1, RO 



0282 
0284 



0286 



Routine Si2e: 86 bytes, Routine Base: CODE + 0075 



ZZ-ENSAA-' 


?.o 


DIRECTORY 




07-17 




; 0287 


1 


; 0288 


1 


; 0289 


1 


; 0290 


1 


; 0291 


1 


; 0292 


1 


; 0293 


1 


; 0294 


1 


; 0295 


1 


; 0296 


1 


; 0297 


1 


; 0298 


1 


0299 


1 


0300 


1 


; 0301 


1 


; 0302 


1 


; 0303 


1 


0304 


2 


0305 


2 


; 0306 


2 


; 0307 


2 


; 0308 


2 


; 0309 


2 


; 0310 


2 


; 0311 


2 


; 0312 


2 


; 0313 


2 


; 0314 


2 


0315 


2 


; 0316 


2 


0317 


3 


0318 


3 


0319 


3 


; 0320 


3 


; 0321 


3 


; 0322 


3 


; 0323 


3 


; C324 


3 


; 0325 


3 


; 0326 


3 


; 0327 


3 


; 0328 


3 


; 0329 


3 


; 0330 


2 


0331 


2 



0332 1 



format odsl 

*** DIRECTORY Handle DIRECTORY command 

format_ods1 

XsbttL 'format odsl ' 

routine formatlodsl (length, dir, buffer, count) 

+ + 



27-Jul-1984 Fiche 5 Frame F13 Sequence 985 

27-Jul-1984 15:56:00 VAX-11 Bliss-32 V4. 0-742 ^ Page 10 

26-Jul-1984 09:39:06 DMA1 :CSYS0,SYSMAINT]DIRECTORY.B32;170 <4> 

no\/aLue = 



Functional description: 

This routine will format a ODS-1 directory record 

Formal parameters: 

length length of record 

dir Address of record 

buffer Address of descriptor of output buffer 

count address of longword to get count of files 



begin 

local 
desc 
name 
type 



map 



dir : 

buffer 



block C8, byte3, 
vector [16, byte], 
vector [4, byte]; 



ref block [, byte], 
: ref block [8, byte]; 



Desc. of area for fao output 
ASCIC file name 
ascic file type 



! Address of record 

! Address of buffer descriptor 



if .dir CO, 0, 16, 03 neq 
then 

begin 

if (.buffer Cdsc$w_length] mod 20) neq 

♦"* V\ f\ » 

buffer [dsc$w_length] = .buffer [dscSw.length] + 20 - (.buffer [dsc$w_length] mod 20); 

name CO] = rad50 (.dir C6, 0, 16, 03, name [1]) + rad50 (.dir C8, 0, 16, 03, name [43> + rad50 (•dir 

[10, 0, 16, 03, name [73); 
type [03 = rad50 (.dir [12, 0, 16, 03, type [13); 
desc [dscSw length] = 19; 

desc CdscSa pointerj = .buffer Cdsc$a pointer] + .buffer [dsc$w_lengtnj; 
$fao (SasciS ( , !19<!AC.,'AC;!UW!> , ) # desc, desc, name, type, .dir [14, 0, 16, 0]); ! 
PutBuffer (.Count, .Buffer, Desc) 
end; 

end; 



[103 



57 55 21 3B 43 41 21 21 43 41 21 3C 39 



31 
3E 



21 
21 



0003A P.AAF: 
00049 



00000011 



0004B 
0004C 



00000000' 00050 



P.AAE: 



.PSECT DATA,NOWRT,N0EXE, SHR,2 

.ASCII \!19<!AC.!AC;!UW!>\ 

.BLK8 1 
.LONG 17 
.ADDRESS P.AAF 



Z2-ENSAA-7.0 

DIRECTORY 
07-17 



format odsl 
*+* DIRECTORY 
format_ods1 



Handle DIRECTORY command 



G 13 
27-Jul-1984 
27-Jul-1984 
26-JuL-1984 



Fiche 5 Frame 613 Sequence 986 

15:56:00 VAX-11 BUss-32 V4. 0-742 _ a Page 11 

09:39:06 DMA1 :CSYS0.SYSMAINTJDJRECTORY.B32;1 70 (4) 



7E 
50 



00 
50 



50 
64 



04 AE 



14 
18 



55 
5E 
53 



54 
50 
50 
8E 



51 
51 
50 

7E 
65 
52 

7E 
65 
52 

7E 
65 
52 

7E 
65 
6E 
AE 
50 
AE 
7E 



00000000G 00 



88 A5 



.EXTRN SYSSFAO 

.PSECT C0DE,N0WRT, SHR,2 



A5 


AF 




1C 


08 


AC 




63 




01 


OC 


AC 




64 




01 




14 




50 




OB 




64 




50 




14 


05 


AE 


06 


A3 




02 




50 


08 


AE 


08 


A3 




02 




50 


OB 


AE 


OA 


A3 




02 




50 


01 


AE 


OC 


A3 




02 




50 




13 




64 


04 


B440 


OE 


A3 


04 


AE 


OC 


AE 


20 


AE 


24 


AE 


00000000* 


EF 




06 


14 


AE 




54 


10 


AC 




03 



003C OOOOO FORMAT. 

9E 00002 
C2 000O6 
DO 00009 
B5 OOOOD 

12 OOOOF 
04 00011 
DO 00012 1$: 
3C 00016 
7A 00019 
78 0001 E 
D5 00023 

13 00025 
3C 00027 
C3 0002A 
A1 0002E 
9F 00032 2$: 
3C 00035 
FB 00039 
DO 0003C 
9F 0003F 
3C 00042 
FB 00046 
CO 00049 
9F 0004 C 
3C 0004F 
FB 00053 
81 00056 
9F 0005B 
3C 0005E 
FB 00062 
90 00065 
BO 00068 
3C 0006C 
9E 0006F 
3C 00075 
9F 00079 
9F 0007C 
9F 0007F 
9F 00082 
9F 00085 
F6 00O8B 
9F 00092 
DD 00095 
DD 00097 
FB 0009A 
04 0009E 



0DS1: 
.WORD 
MOVAB 
SUBL2 
MOVL 
TSTW 
BNEQ 
RET 
MOVL 
MOVZWL 
EMUL 
EDIV 
TSTL 
BEQL 
MOVZWL 
SUBL3 
ADDW3 
PUSHAB 
MOVZWL 
CALLS 
MOVL 
PUSHAB 
MOVZWL 
CALLS 
ADDL2 
PUSHAB 
MOVZWL 
CALLS 
ADDB3 
PUSHAB 
MOVZWL 
CALLS 
MOVB 
MOVW 
MOVZWL 
MOVAB 
MOVZWL 
PUSHAB 
PUSHAB 
PUSHAB 
PUSHAB 
PUSHAB 
CALLS 
PUSHAB 
PUSHL 
PUSHL 
CALLS 
RET 



Save R2,R3,R4,R5 

RAD50, R5 

#28, SP 

DIR, R3 

CR35 

1$ 

BUFFER, R4 

(R4), RO 

#1, RO, #0, -(SP) 

020, (SP)+ f RO, RO 

RO 

2$ 

(R4), R1 

RO. R1, RO 

#20, RO, (R4) 

NAME+1 

6(R3), -(SP) 

#2, RAD50 

RO, R2 

NAME +4 

8(R3), -(SP) 

#2, RAD50 

RO, R2 

NAME +7 

10(R3), -(SP) 

#2, RAD50 

RO, R2, NAME 

TYPE+1 

12(R3), -(SP) 

#2, RAD50 

RO. TYPE 

#19, DESC 

(R4), RO 

94(R4)CR0J, DESC+4 

14(R3), -(SP) 

TYPE 

NAME 

DESC 

DESC 

P.AAE 

#6, SYSSFAO 

DESC 

R4 

COUNT 

#3, PUTBUFFER 



0288 
0315 

0319 



0321 
0323 



0324 
0325 



0326 
0327 

0328 



0329 
0332 



Routine Size: 159 bytes. Routine Base: CODE + OOCB 



ZZ-ENSAA-" 


?.0 


DIRECTORY 




07-17 




; 0333 


1 


; 0334 


1 


; 0335 


1 


; 0336 


1 


; 0337 


1 


; 0338 


1 


; 0339 


1 


; 0340 


1 


; 0341 


1 


; 0342 


1 


; 0343 


1 


; 0344 


1 


; 0345 


1 


; 0346 


1 


; 0347 


1 


; 0348 


1 


; 0349 


1 


; 0350 


2 


0351 


2 


; 0352 


2 


; 0353 


2 


; 0354 


2 


; 0355 


2 


; 0356 


2 


; 0357 


2 


; 0358 


2 


; 0359 


2 


; 0360 


2 


; 0361 


2 


; 0362 


2 


; 0363 


3 


; 0364 


3 


; 0365 


4 


; 0366 


4 


; 0367 


4 


; 0368 


4 


; 0369 


4 


; 0370 


4 


; 0371 


5 


; 0372 


4 


; 0373 


4 


; 0374 


4 


; 0375 


4 


; 0376 


4 


; 0377 


4 


; 0378 


4 


; 0379 


4 


; 0380 


5 


; 0381 


3 


; 0382 


3 


; 0383 


2 


; 0384 


2 



0385 1 



format ods2 

*** DIRECTORY Handle DIRECTORY command 

format ods2 



H 13 
27-Jul-1984 Fiche 5 Frame H13 Sequence 987 

27-Jul-1984 15:56:00 VAX-11 Bliss-32 V4. 0-742 _ m Page 12 

26-Jul-1984 09:39:06 DMA1 :[SYSO.SYSMAINT]DIRECTORY.B32;170 (5) 



Xsbttl , fo^mat..ods2 , 

routine format^ods2 (Length, dir, buffer, count) : novalue = 



++ 



Functional description: 

This routine will format an QDS-2 directory record 

Formal parameters: 

length length of record 

dir Address of record 

buffer Address of descriptor of output buffer 

count address of longword to get file count 



begin 

local 

desc : block C8, byte]; 



map 



dir : ref block C, byte], 
buffer : ref block C8, byte]; 



! Address of record 

! Address of buffer descriptor 



bind 



ver_offset = -2 + dir$c_length + ((.dir C-2 + dir$b_namecountJ + 1) and not 1); 



incr index from ver^oifset to .length - 1 by 8 do 
begin 

if .wide flag 
then Begin 

if (.buffer Cdsc$w_length] mod 132) neq 

buffer CdscSw length! = .buffer Cdsc$w_length] + 132 - (.buffer Cdsc$w_length] mod 132); 
desc Cdsc$w,lengtE] = 132; . , tjt t r , ^ i 

desc Cdsc$a pointer] = .buffer CdscSa.pointer] + .buffer CdscSw length]; t ^^^ 

$fao (Sascicl ClAC/iUW 1 ), desc, desc, dir C-2 + dir$b_namecountJ, .dir L. index, 0, 16, 0]) 
END 
ELSE BEGIN 

if (.buffer [dsc$w_length] mod 20) neq 

buffer [dsc$w_length] = .buffer Cdsc$w_length] + 20 - (.buffer CdscSw.length] mod 20); 

desc Cdsc$w_length] = 19; t ,,,-■*. 

desc CdscSa pointer] = .buffer [dsc$a_pomter] + .buffer LdscSw^lengthJ; 

$fao (SasciB <• !19<!AC; !UW!>') # desc, desc, dir C-2 + dir$b_namecount], .dir [.index, 0, 16, 0]) 

END; 
PutBuffer (.Count, .Buffer, Desc) 
end; 

end; 

.PSECT DATA,N0WRT,N0EXE, SHR,2 



7Z-ENSAA-7.0 

DIRECTORY 

07-17 



format ods2 
*** DIRECTORY 
format_ods2 



Handle DIRECTORY command 



I 13 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 5 Frame 113 Sequence 988 
15:56:00 VAX-11 Bliss-32 V4. 0-742 _ a Page 13 
09:39:06 DMA1 :[SYS0.SYSMAJNT3DJRECTORY.B32;170 (5) 



57 55 21 3B A3 41 21 00054 P.AAH: 

0005B 
00000007 0005C P.AAG: 
00000000' 00060 
3E 21 57 55 21 3B 43 41 21 3C 39 31 21 00064 P.AAJ: 

00071 
OO0OOO0D 00074 P.AAI: 
00000000* 00078 



.ASCII \!AC;!UW\ 

.BLKB 1 

.LONG 7 

.ADDRESS P.AAH 

.ASCII \!19<!AC;!UW!>\ 

.BLKB 3 

.LONG 13 

.ADDRESS P.AAJ 



7E 
50 



55 



00 
50 



50 
63 



04 



04 



7E 
50 



00 
50 



50 
63 



04 



003C 00000 FORMAT^ 



5E 




08 


C2 00002 


52 


08 


AC 


7D 00005 


50 


03 


A2 


9A 00009 






50 


D6 OOOOD 


50 




01 


8A OOOOF 


54 


04 


AO 


9E 00012 


AC 




01 


C3 00016 






OOAO 


31 0001 B 


46 


00000000' 


EF 


E9 0001E 


50 




63 


3C 00025 


50 




01 


7A 00028 


8E 


00000084 


8F 


7B 0002D 






50 


D5 00036 






OD 


13 00038 


51 




63 


3C 0003A 


51 




50 


C3 0003D 


50 


0084 


8F 


A1 00041 


6E 


84 


8F 


98 00047 


50 




63 


3C 0004B 


AE 


04 


B340 


9E 0004E 






6442 


9F 00054 


7E 




9E 


3C 00057 




03 


A2 


9F 0005A 




08 


AE 


9F 0005D 




OC 


AE 


9F 00060 




00000000' 


EF 


9F 00063 






3D 


11 00069 


50 




63 


3C 0006B 


50 




01 


7A 0006E 


8E 




14 


78 00073 






50 


D5 00078 






OB 


13 0007A 


51 




63 


3C 0007C 


51 




50 


C3 0007F 


50 




14 


A1 00083 


6E 




13 


BO 00087 


50 




63 


3C 0008A 


AE 


04 


8340 


9E 00080 






64'.2 


9F 00093 


7E 




9E 


3C 00096 




03 


A2 


9F 00099 



1$: 



2$: 



3$: 



4$: 



.PSECT CODE,NOWRT, SHR,2 

0DS2: 

.WORD Save R2,R3,R4,R5 

SUBL2 #8, SP 

MOVQ DIR, R2 

MOVZBL 3(R2), RO 

INCL RO 

BICB2 #1, RO 

MOVAB 4(R0), R4 

SUBL3 #1, LENGTH, R5 

BRW 6$ 

BLBC WIDE.FLAG, 3$ 

MOVZWL <R3), RO 

EMUL #1, RO, #0, -(SP) 

EDIV #132, <SP)+, RO, RO 

TSTL RO 

BEQL 2$ 

MOVZWL (R3), R1 

SUBL3 RO, R1, RO 

ADDW3 #132, RO, <R3> 

MOVZBW #132, DESC 

MOVZWL (R3), RO 

MOVAB a4(R3)CR0], DESC+4 

PUSHAB (INDEX) [R2J 

MOVZWL S(SP)+, -(SP) 

PUSHAB 3(R2) 

PUSHAB DESC 

PUSHAB DESC 

PUSHAB P.AAG 

BRB 5$ 

MOVZWL (R3), RO 

EMUL #1, RO, #0, -(SP) 

EDIV #20, <SP)+, RO, RO 

TSTL RO 

BEQL 4$ 

MOVZWL (R3), R1 

SUBL3 RO, R1, RO 

ADDW3 #20, RO, (R3) 

MOVW #19, DESC 

MOVZWL (R3), RO 

MOVAB S4(R3)CR0], DESC+4 

PUSHAB ( INDEX) CR2J 

MOVZWL 9(SP)+, -(SP) 

PUSHAB 3(R2) 



0334 
0360 

0362 

0382 
0364 
0366 

0368 



0369 
0370 

0371 



0374 



0376 



0378 
0379 

0380 



ZZ-ENSAA-7,0 

DIRECTORY 

07-17 



format ods2 
*** DIRECTORY 
format ods2 



Handle DIRECTORY command 



000000006 00 



FDDB 



CF 
54 
55 



08 
0C 
00000000 ' 

4008 
10 



AE 
AE 
EF 
05 
8F 
AC 
03 
08 
54 
03 
FF58 



J 13 
27-JuL-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 5 Frame J13 



Sequence 989 
15:56:00 VAX-11 BLiss-32 V4. 0-742 Page H 

09:39:06 DMA1 : CSYS0. SYSMA1NTDD JREC T0RY.B32; 1 70 (5) 



9F 0009C PUSHAB DESC 

9F 0009F PUSHAB DESC 

9F 00OA2 PUSHAB P.AAI 

FB 000A8 5$: CALLS #5, SYSSFAO 

BB 00OAF PUSHR tf"M<R3,SP> 

DD 000B3 PUSHL COUNT 

F8 000B6 CALLS 03, PUTBUFFER 

CO 000BB ADDL2 #8, INDEX 

D1 OOOBE 6$: CMPL INDEX, R5 

14 000C1 B6TR 7$ 

31 000C3 BRW 1$ 

04 000C6 7$: RET 



0382 



0385 



Routine Size: 199 bytes. Routine Base: CODE + 016A 



ZZ-ENSAA-" 


?.0 


DIRECTORY 




07-17 




; 0386 


1 


; 0387 


1 


; 0388 


2 


; 0389 


2 


; 0390 


2 


; 0391 


2 


; 0392 


2 


; 0393 


2 


; 0394 


2 


; 0395 


2 


; 0396 


2 


; 0397 


2 


; 0398 


2 


; 0399 


2 


; 0400 


2 


; 0401 


2 


; 0402 


2 


; 0403 


2 


; 0404 


2 


; 0405 


2 


; 0406 


2 


; 0407 


2 


; 0408 


2 


; 0409 


2 


; 0410 


2 


; 0411 


2 


; 0412 


2 


0413 


3 


0414 


3 


; 0415 


3 


0416 


3 


0417 


3 


0418 


$ 


0419 


3 


0420 


4 


; 0421 


4 


; 0422 


4 


; 0423 


4 


; 0424 


4 


; 0425 


4 


0426 


3 


; 0427 


3 


; 0428 


3 


; 0429 


3 


; 0430 


3 


; 0431 


3 


; 0432 


3 


; 0433 


4 


0434 


4 


; 0435 


4 


; 0436 


4 


; 0437 


4 


; 04 38 


4 


; 04 39 


4 


; 0440 


4 


0441 


4 


; 0442 


5 



RT-11 directory 

*** DIRECTORY Handle DIRECTORY command 

RT-11 directory 

Xsbttl 'RT-11 directory' 

routine rt1 Indirect (unit, q. device, count) = 
begin 

bind 

I = ,q_device : word; 

local 

segment, 

extra.length, 

address first, 

RP8 r Ref Block C, byte], ! Fake RPB 

segblk : bblock [1024], ! Buffer to read segment 

t buffer : bblock [80], ! Buffer for directory line 

name : vector [7, byteJ, ! Buffer for ASCIC file name 

type : vector [4, byte], ! Buffer for ASCIC file type 

OutBuffer : BBlock LDsc$C„S Bin], ! Descriptor for buffer 

q.buffer : bblock Cdsc$c„sjiln]; ! Descriptor for FA0 

RPB = DsrSAUocate^Pseudo.RPB (BTDSK.Console, 0, 0, 0, 1, 0); 

segment = 1; 

OutBuffer [DscSW^Length] = 0; 

OutBuffer [Dsc$A Pointer] = T ..Buffer; 

$ds printf (SascTc ( ' !/!/Directory .{AS!/! 



27-Jul-1934 Fiche 5 Frame K13 Sequence 990 
27-Jul-1984 15:56:00 VAX-11 Bliss-32 V4, 0-742 ._ Page 15 
26-JUI-1984 09:39:06 DMA1 : [SYS0,SYSMAJNT]DJRECTORY.B32;17O (6) 



[09] 



C103 



[09] 



ch$Till (Xc 1 \ 80, tj>uffer>; 

while 1 do 
begin 

local 

status; 

if . segment eql then exit loop; 
if not (status = boo$qio (segblk 



!/*), .q.device); 



1024, 
4 + «segment*2, 
io$ readlblk, 
0, " 
.rpb)) 
then return .status; 



two blocks long 

from disk logical block 

physical address 
address of rpb 



! Read directory segment 



[033 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 



segment = .segblk [rt$w segment]; ! Link to next segment 
extra length = .segblk IVtSw.extralerO; ! Variable part size 
address_f irst - segblk Crt$w_firstJ - rt$_fixed - .extra.length; 

while 1 do 
begin 

bind 

entry - (address.. t irst = .address.* irst + rt$„ fixed + .extra.length) : bblock; 

it , entry [ rtSv.endseg] then exit loop; ! End of segment 



if .entry [rt$v„perm] 
then 

begin 



! Only list permanent files 



ZZ-ENSAA- 


7,0 


MRECTORY 




07-17 




; 0443 


6 


; 0444 


5 


; 0445 


5 


; 0446 


5 


; 0447 


5 


0448 


5 


; 0449 


5 


; 0450 


5 


; 0451 


5 


; 0452 


3 


0453 


3 


0454 


3 


; 0455 


3 


; 0456 


4 


; 0457 


4 


0458 


4 


; 0459 


3 


; 0460 


3 


; 0461 


2 


; 0462 


2 


0463 


2 


0464 


2 


; 0465 


2 


; 0466 


2 



RT-11 directory 

*** DIRECTORY Handle DIRECTORY command 

RT-11 directory 



27-Jul-1984 Fiche 5 Frame L13 Sequence 991 
27-Jul-1984 15:56:00 VAX-11 Bliss-32 V4.0-742__ _ ___ _Page 



16 



26-Jul-1984 09:39:06 DMA1 :[SYS0.SYSMAINT]DIRECTORY.B32; 170 (6) 



name COD = rad50 (.(entry [rt$L filenamelXO, 16>, name C1J) + rad50 (.(entry [rt$l_filename] 
X16, 16>, name C4]); 



ffer 

+ 



type COD = rad50 (.entry [rt$w_filetype3, type C1J); 

q buffer CdscSw length] = 19; ! Set up FAO output bu 

q'buffer Cdsc$a~pointer] = .OutBuffer [DscSA Pointer] + .OutBuffer [PscSW.LengthJ; 

$Tao (Sascid ( , T19<!AC. JAC!>') , q.buffer, qjuffer, name, type); i 

PutBuffer (.Count, OutBuffer, Q^Buffer) ! 

end 



end; i 

If .ControlCFlag ! 

Then ! 

Begin ! 

Dsr$De Allocate Pseudo^RPB (.RPB); ! 

Return RmsS Normal ! Abort gracefully on A C 

End; " ! 



end; 



0467 1 



if .OutBuffer CDscSW^Length] gtr then Sds^printf (SAscic CIAS!/'), OutBuffer); i 

! of rt11_direct 



[10] 
C10] 
[10] 



[08] 

[09] 
[09] 
[09] 
[09] 
C09] 
[09] 



[10] 



Dsr$DeAUocate_Pseudo_RPB (.RPB); 

rms$.normal 

end; 



20 79 72 6F 74 63 65 72 69 44 2f 21 2t 21 16 0007C P.AAK: 

2f 21 2F 21 53 41 21 5F 0008B 

3E 21 43 41 21 2E 43 41 21 3C 39 31 21 00093 P.AAM: 

OO0OO0OD 000A0 P.AAL: 

00000000 ■ 000A4 

2f 21 53 41 21 05 0OOA8 P.AAN: 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII <22>\!/!/Directory JASI/SA 

.ASCII \!19<!AC.!AC!>\ 

.L0N6 13 
.ADDRESS P.AAM 

.ASCII <5>\!AS!A 

.PSECT CODE,NOWRT, SHR,2 



000000006 



5A 
59 
58 
5E 
7E 



71 

57 
56 



00000000G 
00000000' 
FE30 
FB94 



40 



10 AE 



OC 
1C 
08 



07FC 00000 RT11 DIRECT: 

.WORD 

9f 9E 00002 MOVAB 

EF 9E 00009 MOVAB 

CF 9E 000 1 MOVAB 

CE 9E 00015 MOVAB 

01 7D 0001 A MOVQ 

71 7C 0001D CLRQ 

7E D4 0001F CLRL 

8F 9A 00021 M0V2BL 

06 FB 00025 CALLS 

50 DO 0002C MOVL 

01 DO 0002F MOVL 

AE B4 00032 CLRW 

AF 9E 00035 MOVAB 

AC DD 0003A PUSHL 



Save R2,R3,R4,R5,R6,R7,R8,R9,R10 

a*DS$PRINTF, RIO 

P.AAK, R9 

RAD50, R8 

-1132(SP), 5P 

#1, -CSP) 

-CSP) 

-<SP) 

#64, -(SP) 

#6, DSR$ALLOCATE„PSEUDO..RPB 

RO, RPB 

#1, SEGMENT 

OUTBUFFER 

T 3UFFER, OUTBUFFER+4 

Q ""DEVICE 



0387 



0405 




ZZ-ENSAA-7.0 

DIRECTORY 

07-17 



0050 8F 



RT-11 directory 

*** DIRECTORY Handle 

RT-11 directory 



20 



DIRECTORY command 



M 13 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



1 5:56:00 
09:39:06 



F iche 5 frame M13 



Sequenre 992 
VAX-11 Bliss-32 V4. 0-742 Page 17 

DMA1:[SYS0,SYSMAINTJDIRECTORY.B32;17O (6) 



7E 



000000006 



52 



5F 
F0 



14 AE 



04 
08 



6A 
6E 



7E 
56 
6E 
7E 

EF 

01 

56 
54 
50 
50 
52 

53 
63 
63 

7E 
68 
55 

7E 

68 
55 

7E 
68 
6E 
AE 
50 
AE 



000000006 00 



88 A8 



1C 



0400 
0080 



6E 
72 
68 



0E 



15 
02 



18 
04 



01 
06 



oc 

10 

18 

OC 

10 

24 

04 

10 

cc 



11 00000000 

oc 



oc 

2C 



59 
02 
00 
AE 
56 
03 
00A5 
57 
21 
01 
04 
8F 
CE 
06 
50 

AE 
AE 
AE 
54 
A442 

52 
OB 
OA 
AE 
A3 
02 
50 
AE 
A3 
02 
50 
AE 
A3 
02 
50 
13 
AE 
BE40 
5E 
AE 
AE 
AE 
A9 
05 
AE 
AE 
AC 
03 
os 

t'F 
FF54 

AE 
09 
AE 
A9 



DD 
FB 
2C 

D5 
12 
31 
DD 
7D 
78 
CO 
3C 
9F 
FB 
E8 
04 
3C 
3C 
9E 
C3 
9E 

DO 

EO 

E1 

9F 

3C 

FB 

DO 

9F 

3C 

FB 

81 

9F 

3C 

F6 

90 

BO 

3C 

9E 

DD 

9F 

9F 

9F 

9F 

FB 

9F 

9F 

DD 

FB 

11 

E8 

31 

B5 

13 

9F 

9F 



0003D 
0003F 
00042 
00049 
0004B 
0004D 
0004F 
00052 
00054 
00057 
0005B 
0005E 
00063 
00067 
0006E 
00071 
00072 
00076 
0007A 
0007E 
00082 

00087 

0008A 

0008E 

00092 

00095 

00099 

0009C 

0009F 

O0OA2 

000A6 

000A9 

OCOAE 

000B1 

O0OB5 

000B8 

OOOBB 

OOOBF 

000C3 

000C9 

OOOCB 

OOOCE 

O0OD1 

000D4 

O00D7 

OOODE 

000E1 

O0OE4 

000E7 

OOOEB 

OOOED 

000F4 

000F7 

OOCFA 

OOOFC 

OOOFF 



1$: 



2$: 



3$: 



4$: 



5$: 
6$: 



PUSHL 

CALLS 
M0VC5 

TSTL 

BNEQ 

BRW 

PUSHL 

MOVQ 

ASHL 

ADDL2 

MOVZWL 

PUSHAB 

CALLS 

BLBS 

RET 

MOVZWL 

MOVZWL 

MOVAB 

SUBL3 

MOVAB 

MOVL 

BBS 

BBC 

PUSHAB 

MOVZWL 

CALLS 

MOVL 

PUSHAB 

MOVZWL 

CALLS 

ADDB3 

PUSHAB 

MOVZWL 

CALLS 

MOVB 

McVW 

MOVZWL 

MOVAB 

PUSHL 

PUSHAB 

PUSHAB 

PUSHAB 

PUSHAB 

CALLS 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

BRB 

BL8S 

BRW 

TSTW 

BEOL 

PUSHAB 

PUSHAB 



R9 

#2, 
#0, 



DSSPRJNTF 
(SP), #32, 



#80, T.BUFFER 



SEGMENT 

2$ 

6$ 

RPB 

033 -(SP) 

#1 /SEGMENT, -(SP) 

H t (SP) 

#1024, -(SP) 

SEGBLK 

#6, B00$QJ0 

STATUS, 3$ 

segblk+2, segment 

segblk+6, extra^length 

segblk-4, ro 

extra length, ro, address first 

14(extra lengthhaddress first], 

address First 

address~fjrst, r3 

#11, (R3), 5$ 

#10, (R3), 4$ 

NAME+1 

2(R3), -(SP) 

#2, RAD50 

RO, R5 

NAME +4 

4(R3>, -(SP) 

#2, RAD50 

RO, R5, NAME 

TYPE+1 

6(R3), -(SP) 

#2, RAD50 

RO, TYPE 

#19, Q BUFFER 

OUTBUFFER, RO 

aOUTBUFFER+4CROJ, Q.BUFFER+4 

SP 

NAME 

BUFFER 

CfBUFFER 

pTaal 

#5, SYSSFAO 

Q BUFFER 

OOTBUFFER 

COUNT 

#3, PUTBUFFER 

4$ 

C0NTR0LCFLA6, 7$ 

1$ 

OUTBUFFER 

7$ 

OUTBUFFER 

P.AAN 



0410 
0418 



0425 
0^20 
0422 

0420 



0428 
0429 
0430 

0436 



0438 
0440 
0443 



0444 
0445 



0446 

0447 

0448 



0449 



044() 
0454] 

0463) 



ZZ-ENSAA-7.0 

DIRK TORY 



RT-11 directory 

*** DIRECTORY Handle DIRECTORY command 

RT-11 directory 



0OO00OO0G 



6A 

EF 

50 



00010001 



02 
57 
01 
8F 



N 13 
27-Jul-1984 

27-Jul-1984 

26-Jul-1984 



Fiche 5 Frame N13 Sequence 993 
15:56:00 VAX-11 Bliss-32 V4. 0-742 Page 18 

09:39:06 DMA1 : CSYSO. SYSMA1NT JDJREC TORY. B32; 170 (6) 



F8 
DD 
F8 

DO 
04 



00102 
00105 
00107 
0010E 
00115 



?$: 



CALLS 

PUSHL 

CALLS 

MOVL 

RET 



HI, DS$PRJNTF 

RPB 

01, DSRSDEALLOCATE PSEUDO^RPB 

#65537, RO 



0465 
0467 



Routine Size: 278 bytes, «o-jMne Base: CODE + 0231 



ZZ-ENSAA-7,0 

DIRECTORY 

07-17 



0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0515 

0514 

0515 

0516 

0517 

0518 
0519 
0520 
0521 
0522 
0523 
0524 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



ANSI directory 

*** DIRECTORY Handle DIRECTORY command 

ANSI directory 

Xsbttl 'ANSI directory 1 

routine ansi direct (filespec, count) * 



B 14 

27-jul-1984 fithe 5 Frame B14 Sequence 994 

27~Jul~1984 15:56:00 VAX-11 BUss-32 V4. 0-742 _ Pwe 19 
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-~\ 



Functional description: 

Search through a tape to find all files, and list them on the 
console. 

If double tape marks are found instead of a file header the 

tape is rewound and the search continued until the first file found is 

encountered again # 



Formal parameters; 
f ilespec 
count 

Implicit inputs: 
none 

Outputs: 

count 

Implicit outputs: 
none 



address of filespec block 

address of longword to get file count 



count of files 



Routine value: 

Standard RMS completion codes 
Side effects: 

The device and associated channel are accessed 

begin 

external routine 

syslsearch : address ingjnode (absolute), 
sys$open : addressing„mode (absolute); 

bind routine 
next_Hle = 

if .dsa$v w user then syslsearch else syslopen; 



bblock CnanCcjnaxrssJ, 
oblock Cdsc$c w s_bln3 # 



local 

f llenam 

f lledesc 

reslen, 

status, 

fab : $f abided, 

nam : Snam decl, 

result : bblock [nam$c„maxrss], 

expand ; bblock [nam$r m$xrss3, 

first, file : bblock [132 



! FAB for open 

! Space for resultant string 

! Space for expanded string 

! First file found 
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3 
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3 
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3 
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3 
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3 


0551 


3 
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3 


; 0555 


2 
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2 
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2 
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3 


; 0557 


3 
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3 
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3 
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3 
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3 
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3 
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3 
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4 
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4 
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4 
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4 
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3 


; 0571 


3 
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3 
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3 
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3 
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3 
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3 
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ANSI directory 

*** DIRECTORY Handle DIRECTORY command 

ANSI directory 

first. ten, 

buffer : vector [132. byte], 

OutBuffer : BBlock [83; 
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! Space for output 

! Descriptor for output 

! Clear output buffer 



chSfill <%c' \ 132, buffer); 

OutBuffer CDscSW Length] = 0; 

OutBuffer CDsc$A"Pointer] = Buffer; ! 

first len = 132; 

chSfill (0, 132, first, file); 

$ds printf (Sascic ( ' !7)/Direc tory JAS!/!/' ) , .filespec); 

filedesc EdscSw. length] = nam$c_maxrss; 

filedesc Cdsc$a~pointer] = filenam; 

Sfao (Sascid ( 'TAS*.*;** ) , filedesc, filedesc, .filespec); 

$fab init (fab = fab, nam = nam. fop = rwo, fna = filenam, fns s .filedesc Ldsc$w_lengthj) ; 

Snanf init (nam = ram, ess " namJcjnaxrss, rss = nam$c w maxrss, esa = expand, rsa = result); 

if .dsa$v_user 
then 

! Init wi Idcard context 
begin 

local 

status; 

status = Sparse (fab = fab); 

if not , status then return .status 

end; 

while (status = next.file (fab); tab Cfab$v_rwoD = 0; .status) do 
begin 

local 

nam_len, 
nanfptr; 



C10D 



[10J 
[103 



if not ,dsa$v_user 
then 

beqin 

status = Sclose (fab = fab); 



! If we did an OPEN, 

! we have to CLOSE, too. 



if not .status then exitloop 

end; 

res_len = .nam CnamJb.rsU; 

if chScompare ( . f irst„len, first. file, .resjen, result, 0> eql then exitloop; 

if .(f irst.fileXO, 8> eql then ch$move (first, len = ,res„len, result, first. tile); 

nam ptr - ch$find_ch (.res. len, result, Xz ' : ' ) + 1; ! Look tor end of "MTAn;" 
nanflen = .res len - (.nanfptr - result); 
FileDesc CDscSW Length] = .Nam len; 
Fi leDesc CDsc$A"Pointer] = .Nam Ptr; 
If .WIDE FLAG " 
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THEN ChSCopy (.nam len, .nam ptr, Xc ' ', 132, buffer ♦ .OutBuffer CDscSW LengthJ) 
ELSE ChSCopy (.nanrflen, .nanfptr, Xc f ' , 19, buffer + .OutBuffer CDscSW.LengthJ); 



PutBuffer (.Count, OutBuffer, FileDesc); 
If .ControlCFlag Then Return Rms$„Normal 

end; 



! Abort gracefully on A C 



if .OutBuffer [DscSW.Length] gtr then Sds.printf ($Ascic ('MS!/ 1 ), 0ut8uffer); 
if .status eql rms$_nmf then status = rms$_normal; 



T17] 
[10] 
C10D 
C083 



CI 03 



0594 1 



.status 
end; 



! of ansi M direct 



20 79 12 6F 74 63 65 72 69 44 2F 21 2F 21 16 000AE P.AAO: 

2? 21 2F 2\ 53 41 21 5F OOOBD 

2A 3B 2A 2E 2A 53 41 21 000C5 P.AAO: 

000CD 

00000008 000D0 P.AAP: 

00000000' 000D4 

2F 21 53 41 21 05 000D8 P.AAR: 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII <22>\!/!/Directory JAS!/!A 

.ASCII \!AS*.*;*\ 

.BLKB 3 

.LONG 8 
.ADDRESS P.AAQ 

.ASCII <5>\!AS!/\ 

.EXTRN SYSSSEARCH, SYS$0PEN 

.EXTRN SYSSPARSE, SYSSCLOSE 

.PSECT C0DE,N0WRT, SHR,2 



5A 0000FE03 9F 



0084 8F 



0084 8F 



20 



00 



04 



OOOOOOOOG 
FEFC 
FFOO 



58 
5E 
01 
09 
58 

58 
6E 



AE 
59 
6E 



9F 
CD 
CD 



OOOOOOOOG 00 



00000000* 
F844 



OOOOOOOOG 

OOOOOOOOG 

08 

08 
84 

008C 
04 



FC 
FF04 

04 
FEFC 
FEFC 

22 



OFFC 00000 ANSI DIRECT: 

.WORD 

EF 9E 00002 MOVAB 

CE 9E 00009 MOVAB 

04 EF OOOOE EXTZV 

5A E9 00017 BL8C 

8F DO 0001 A MOVL 

07 11 00021 BRB 

8F DO 00023 1$: MOVL 

00 2C 0002A 2$: M0VC5 

AE 00031 

6E B4 00033 CLRW 

AE 9E 00035 MOVAB 

8F 9A 0003A MOVZBL 

00 2C 0003E M0VC5 

CE 00045 

AC DD 00048 PUSHL 

58 DD 0004B PUSHL 

02 F8 0004D CALLS 

8F 98 00054 MOVZBW 

CD 9E 0005A MOVAB 

AC DD 00061 PUSHL 

CD 9F 00064 PUSHAB 

CD 9F 00068 PUSHAB 

A8 9F 0006C PUSHAB 

04 F8 0006F CALLS 



Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 

P.AAO, R11 

-1212(SP), SP 

#4, #1. a# A X0000FE03, R10 

R10, 1$ 

#SYS$SEARCH, R8 

2$ 

#SYS$OPEN, R8 

#0, (SP), #32, #132, BUFFER 

OUTBUFFER 

BUFFER, OUTBUFFER+4 

#132, FIRST LEN 

#0, (SP), #0, #132, F1RSTJ1LE 

FILESPEC 

R11 

#2, a#DS$PRINTF 

#252, FILEDESC 

FILENAM, FILEDESC+4 

FILESPEC 

FILEDESC 

FILEDESC 

P AAP 

#4, SYSSFAO 



0469 
0513 

0529 

0530 
0531 
U532 
0533 

0534 



0535 
0536 
0537 
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0050 8F 
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ANSI directory 



00 



0060 8F 



00 



FEAC 
FEBO 
FEC2 
FEC8 
FED4 
FED8 
FEE0 



FEAC 
FE4E 
FE50 
FE56 
FE58 



DIRECTORY command 



6E 

CD 
CD 
CD 
CD 
CD 
CD 
CD 
6E 

CD 
CD 
CD 
CD 
CD 
OF 



000000006 



FEBO 



57 



00 



008C 



008C 
020C 



CE 
CE 



020C 



0084 8F 



52 



20 



FEFC 
FFOO 



00 
01 



68 
56 
CD 
11 

14 



000000006 00 
56 
03 



57 
54 
CE 



54 



59 
CE 
57 



50 
50 
50 
CD 
CD 
50 
OC 
61 





00 


FEAC 


CD 


5003 


8F 


80 


8F 




02 




02 


FEAC 


CD 


FF04 


CD 


FEFC 


CD 




00 


FE4C 


CD 


6002 


8F 




04 


020C 


CE 




04 


0110 


CE 




5A 


FEAC 


CD 




01 




50 



FEAC 



80 



FEAC 



CD 
01 
50 
8F 
56 
5A 
CD 
01 
50 
56 
008D 
FE4F CD 
01 
59 
CE 
03 
01 
54 
12 
CE 
OB 
57 
57 
3A 
02 
51 
51 
CE 
51 
57 
52 
51 
6E 
00000000' U 
52 
08 AE4Q 



020C 



008C 



020C 



2C 

BO 
9A 
90 
90 
9E 
9E 
90 
2C 

BO 

8E 

9E 

8E 

9E 

E9 

9F 

FB 

E8 

04 

9F 

FB 

DO 

8A 

E9 

E8 

9F 

FB 

DO 

E8 

31 

9A 

DO 

2D 

1A 
D9 
D5 
13 
95 
12 
DO 
28 
3A 
12 
D4 
D6 
9E 
C2 
CI 
BO 
DO 
3C 
E9 
2C 
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00076 

0007D 

00080 

00087 

0008D 

00092 

00097 

0009E 

000A5 

OOOAC 

000B3 

000B6 

OOOBD 

000C2 

000C9 

OOOCE 

000D5 

000D8 

OOODC 

000E3 

000E6 

000E7 

OOOEB 

OOOEE 

000F1 

000F7 

OOOFA 

OOOFD 

00101 

00108 

0010B 

0010E 

00111 

00116 

00119 

00I20 

00123 

00125 

00128 

001 2A 

0012C 

00130 

00132 

00135 

0013D 

00143 

00145 

00147 

00149 

0014E 

00151 

00155 

0015A 

0015F 

00162 

00169 

00170 



3$: 



4$: 
5$: 



6$: 



7$: 



8$: 



M0VC5 #0, (SP), #0, #80, SRMS.PTR 

MOVW #20483. $RMS PTR 

MOVZBL #128, SRMS PTR+4 

MOVB #2, SRMS PTR+22 

MOVB #2, SRMS PTR+31 

MOVAB NAM, $RM5 PTR+40 

MOVAB FILENAM, JRMS PTR+44 

MOVB F1LEDESC, SRM5 PTR+52 

M0VC5 #0, (SP), #0, »96, SRMS..PTR 

MOVW #24578, SRMS PTR 

MNEGB #4. SRMS PTR+2 

MOVAB RESULT, jRMS„PTR+4 

MNEGB #4, SRMS PTR+10 

MOVAB EXPAND, jRMS.PTR+12 

BLBC R10, 3S 

PUSHAB FAB 

CALLS #1, SYSSPARSE 

BLBS STATUS, 3S 

RET 

PUSHAB FAB 

CALLS #1, (R8) 

MOVL RO. STATUS 

BICB2 #128, FAB+4 

BLBC STATUS, 4S 

BLBS R10, 5$ 

PUSHAB FAB 

CALLS #1, SYSSCLOSE 

MOVL RO, STATUS 

BLBS STATUS, 5S 

BRW 12S 

MOVZBL NAM+3, RES.LEN 

MOVL #1, R4 

CMPC5 FIRST.LEN, FJRST.F1LE, #0, RES..LEN, RESULT 

BGTRU 6S 

SBWC #1, R4 

TSTL R4 

BEQL 12S 

TSTB FIRST FILE 

BNEQ 7S " 

MOVL RES^LEN, FIRST LEN 

M0VC3 RES^LEN, RESULT, FIRST.FILE 

LOCC #58, RES_LEN, RESULT 

BNEQ 8S 

CLRL R1 

INCL NAM PTR 

MOVAB RESOLT, RO 

SUBL2 NAM^PTR, RO 

ADD13 RESJ.EN, RO, NAM LEN 

MOVW NAM^LEN, FIL C DESC 

MOVL NAM PTR. FiLEDESC+4 

MOVZWL OUTBUFFER, RO 

BLBC WIDE FLAG, 9S 

M0VC5 NAMjEN, (NAM,PTR), #32, #132, BUFFERCR03 
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0539 



0541 
0549 

0551 

0555 



0562 
0565 



0567 

0571 
0573 



0575 



0577 



0578 



0579 
0580 
0582 
0581 
0582 
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FB2D 



61 



CF 
03 



08 

FEFC 

OA 

08 



08 

5? 

AEAO 

CD 



AE 
AC 
03 

00000000* EF 
FF51 
8F 



50 00010001 



00000000G 
000182CA 



9F 
8F 

56 
50 



2A 



00010001 



6E 
OC 
5E 
A3 
02 
56 
07 
8F 
56 



11 
2C 

9F 
9F 
DD 
KB 
E8 
31 
DO 
04 
B5 
13 
DD 
9F 
F8 
D1 
12 
DO 
DO 
OA 
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001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



73 
75 
7A 
7D 
81 
8A 
87 
8C 
93 
96 
9D 
9E 
AO 
A2 
AA 
A7 
AE 
B5 
B7 
BE 
C1 



ODD 1 Qt 

9$: M0VC5 NAM.LEN, (NAM_PTR), #32, #19, BUFFEREROD 

10$: PUSHAB FILEDESC 

PUSHAB OUTBUFFER 

PUSHL COUNT 

CALLS #3, PUTBUFFER 

BLBS CONTROLCFLAG, 11$ 

BRW 3$ 

11$: MOVL /y65537 # RO 

RET 

12$: TSTW OUTBUFFER 

BEQL 13$ 

PUSHL SP 

PUSHAB P.AAR 

CALLS #2, 3#DS$PRINTF 

13$: CMPL STATUS, #99018 

BNEQ 1A$ 

MOVL #65537, STATUS 

14$: MOVL STATUS, RO 

RET 



0583 
058A 

0585 

0589 

0591 
059A 



Routine Size: A50 bytes, Routine Base: CODE + 0347 
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0595 1 

0596 1 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
061 A 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
064 3 
0644 
064 5 
0646 
0647 
0648 
0649 

0650 
0651 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

"» 

4 
3 
2 
3 
3 
3 
2 
2 
2 



ods directory 
*** DIRECTORY 
ods directory 
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Xsbttl 'ods directory* 
routine ods„direcc (q_filspec, count) = 
begin 

local 

status, 

fab : $f abided, 

rab : $rab decl, 

buffer : bBlock [512], 

t directory : bblock [83, 

q^directory : bblock [dsc$c_s_bln], 

base directory : bblock [dsc$c_s_bln] , 

q file : bblock [dsc$c s bin], 

t file : bblock [512], 

q"buffer : bblock [dsc$c s^blnJ, 

Tbuffer : bblock L132J; 



FAB block to read directory file 

RAB block 

Buffer to read record into 

Buffer for parsed directory 

Descriptor of parsed directory 

Descriptor of direct 

Descriptor for file name 

Space for file name [18] 

Descriptor for output buffer 

Buffer to build file list [18] 



bind 



base_direct = Sascid ('0,0'), 
q^direct = ,q„fUspec + dsc$c_s_bln 



! Normal 
bblock; 



base directory 
! Directory descriptor 



local 
Left, 
right, 
p_dor, 

L_dot, 

p_lpart, 

purpart, 
l_rpart, 
l^lpart, 
p~ comma, 
l~rest; 

chSmove (8, base_direct, base^directory); 
p Ipart = .q direct [dsc$a pointer] + 1; 
Trest = .q 3irect Cdsc$w,Tength] - 2; 
p~comma = cnSfind.ch ( f l_rest, ,p_lpart, Xc 



neq 



Assume normal directory 
Point past "C" 
Exclude brackets 
,'); ! Find V if any 

! If there was a comma ( M Coctal,octaU M ) 



1 



= ,p_comma * 
= .p^comma - .p Ipart; 
= . Lrest - . t_Tpart - 1; 
scan$numeric (8, . Llpart, 



ight = scanlnumeric (8, .T_rpart, .p rpar 
directory Cdsc$a_pointer] = t_direcTory; 



.p Ipart); 

t); 



! Length of left number 
! Length of right number 



if .p_ comma 
then 

begin 

p rpart 

Opart 

I rpart 

left = 

r 

g directory [dsc$w length] = 8; 

$7ao (Sascid ( ' J30CI30L '), q_directory, q^directory, 
end 
else 

begin ! Copy string, without 

q directory [dsc$w length] = .q_direct [dsc$w_length] - 2; 
q^directory [dsc$a~pointer] = .q.direct [dsc$a, pointer] + 1 
end; 

qjile [dscSw.length] = 512 ; ! 



left, .right) 



[] 



[18] 
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2 
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2 


; 0654 


2 


; 0655 


2 


; 0656 


2 


; 0657 


2 


; 0658 


2 


; 0659 


2 


; 0660 


2 


; 0661 


2 


; 0662 


2 


; 0663 


2 


; 0664 


3 


; 0665 


3 


; 0666 


3 


; 0667 


3 


; 0668 


3 


; 0669 


3 


; 0670 


4 


; 0671 


4 


; 0672 


4 


; 0673 


4 


; 0674 


3 


; 0675 


3 


; 0676 


3 


; 0677 


3 


; 0678 


3 


; 0679 


3 


; 0680 


2 


; 0681 


2 


; 0682 


2 


; 0683 


2 


0684 


2 


; P 0685 


2 


; 0686 


2 


; 0687 


2 


; 0688 


2 


; 0689 


2 


; 0690 


3 


; 0691 


2 


; 0692 


3 


; 0693 


3 


; 0694 


3 


; 0695 


3 


; 0696 


2 


; 0697 


2 


; 0698 


3 


; 0699 


2 


; 0700 


3 


; 0701 


3 


; 0702 


3 


; 0703 


2 


; 0704 


?. 


; 0705 


2 


; 0706 


2 


; 0707 


2 


; 0708 


2 



ods directory 

*** DIRECTORY Handle DIRECTORY command 



ods directory 

q_file [dsc$a_pointer] = t„Hle; 
Print out the header 

$ds_printf (Sascic C * !/!/Directory JASCIASl !/!/'), .q.fHspec, q.directory); 
Now, check for subdirectories, and kluge string around 
p_dot = ch$find„ch (.l.rest, .popart, Xc 1 .'); 
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J Print header 



if not ch$tail (.p_dot) 
then 

begin 



If there are subdirectories 



local 



last^dot; 



Find last dot 



while not chSfail (.p_dot) do 
begin 
last_dot = .p dot; 

p dot = ch$find ch (.1 rest - (.p.dot - .p„lpart) - 1, 
" .p_dot + ITXC 1 ) 
end; 

base directory [dsc$w_length] = .last^dot - .p.Lpart; 

base'directory CdscSa'pointerJ = .p Ipart; 

q. directory Cdsc$w_ length} - ,1 rest - (.last. dot - ,p_lpart) - 1; 

q'directory CdscSa^pointerJ = .Tast„dot + 1 

end; 

Now get the filename to look up 

$fao (Sascid ( ' !ASC!AS3!AS.DJR;0 , ) , ! Create file to look up (directory) 

q file, q file, .q filspec, base direc tory, q.direc tory); 
$fab Tnit (faB = fab, ?na = .q file Tdsc$a, pointer], fns = .q_file Cdsc$w w length], fac 
Srab.init (rab = rab, fab = fab, ubf = buffer, usz = 512); 

if not (status = $open (fab = fab)) 
then 

return (selectone .status of 

set 

[rms$„fnf] : rms$„dnf; 

[otherwise] : .status 

tes); 

if not (status = Sconnect (rab = rab)) 
then 

begin 

Sclose (fab = fab); 

return .status 

end; 

chSf ill C %c • ', 132, t buffer); ! [18] 

q buffer [dsc$w_ length] = 0; 
q~buffer [dscla^pointer] = t^buffer; 



= get) 



ZZ-ENSAA-7.0 

DIRECTORY 
07-17 



20 

52 



0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 



0736 
0737 
0738 
0739 



2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
3 
3 
3 
3 
3 
2 
2 
2 
2 
2 



0735 3 



0740 1 



79 
49 



72 
2F 
44 



6F 
21 
2E 



ods directory 

*** DIRECTORY Handle DIRECTORY command 

ods directory 

while (status = Sget (rab = rab)) do 
Begin 



1 14 ] 

2/-Jul-1984 Fiche 5 Frame 114 Sequence 1001 
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case .fab [fabSb.rfm] from fab$c_fix to fabSc.var of 
set 

CfabSc fix] : 

format_ods1 (.rab [rab$w„rszJ, .rab [rab$l_rbf], q.buffer, .count); 

CfabSc var] : 

format_ods2 (,rab [rab$w_rszJ, .rab [rab$l_rbf], q^buffer, .count); 



[outrangr] : 

beau 

Sclose (fab = fab); 

return ssS_f ilestruct 

end; 
tes; 



! Bad file structure level 
! Close file and leave on A C 



If ♦ControlCFlag Then Exitloop 

End; 

if ,q_buffer rdscSw.length] neq then Sds^printf ($ascic ('IAS!/'), q.buffer); 

Sclose ( fab = fab); 
(selectone .status of 

set 

[rmsS^eof] : rmsS^normal; 

[otherwise] : .status 

tes) 
end; 



C08D 



4C 4F 33 21 4C 



74 
2f 
53 



63 
21 
41 



65 
5D 
21 



72 
53 
5D 



69 
41 
53 



44 

21 
41 



2F 
58 
21 



21 
53 
5B 



30 2C 30 000DE P.AAT: 
000E1 

00000003 000E4 P.AAS: 

00000000 ' 000E8 

4F 33 21 000EC P. AAV: 

00000008 000F4 P.AAU: 

00000000' 000F8 

2? 21 18 000FC P.AAW: 



41 
53 



21 
41 
30 



5F 
21 
38 



2f 21 53 



00000011 
00000000' 
41 21 05 



001 0B 

00118 P.AAY: 

00127 

00129 

0012C P.AAX: 



00130 



0134 P.AA2: 



.PSECT DATA,N0WRT,N0EXE, SHR,2 

.ASCII \0,0\ 

.BLKB 3 

.LONG 3 

.ADDRESS P.AAT 

.ASCII \!30L!30L\ 

.LONG 8 

.ADDRESS P. AAV 

.ASCII <27>\!/!/Directory JASC !AS3!/!/\ 

•ASCII \!ASC!A$3!AS.DIR;Q\ 

.BLKB 3 
.LONG 17 
.ADDRESS P.AAY 
.ASCII <5>\!AS!/\ 



BASE DJRECT= 

.EXTRN 



P AAS 
SYSSCONNECT, SYSSGET 



.PSECT C0DE,N0WRT, SHR,2 



ZZ-ENSAA-7.0 
DIRECTORY 

07-17 



ods directory 

*** DIRECTORY Handle 

ods directory 



DIRECTORY command 



J 14 
27-JuL-1984 
27-Jul-1984 
26-Jul-1984 
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0294 



CE 
53 



68 



04 



50 
54 



FD60 
029C 



68 



029C 
FD60 
028C 
0290 



OOOOOOOOG 



5B 00000000 ' 
5E FACO 



50 
56 
68 
A6 
58 
52 
56 
56 



59 
51 
56 
57 
55 
5^ 
53 

5A 
55 
54 
53 

CD 
CE 



000000006 00 



04 
08 



CE 
CD 
CE 
CE 



9F 
56 



01 



FF 



OOOOOOOOG 



OOOOOOOOG 
FD64 



FD5C 

FD5C 

10 



0200 

008C 

029C 

04 

18 



55 



52 
58 
50 



?f 



OFFC 00000 ODS, 

EF 9E 00002 

CE 9E 00009 

AC DO OOOOE 

AO 9E 00012 

08 28 00016 

01 C1 0001 C 
53 DO 00021 
66 3C 00024 
72 3E 00027 
2C 3A 0002A 

02 12 0002E 
51 D4 00030 

51 D5 00032 1$: 
55 13 00034 
A1 9E 00036 
58 C3 0003A 
50 C3 0003E 
A4 9E 00042 

58 DO 00046 
50 DO 00049 
08 DO 0004C 
EF 16 0004F 
50 DO 00055 

59 DO 00058 
57 DO 0005B 
08 DO 0005E 
EF 16 00061 
CD 9E 00067 
08 BO 0006E 

50 DD 00073 
5A DD 00075 
CD 9F 00077 
CD 9F 0007B 
AB 9F 0007F 
05 FB 00082 
OA 11 00089 

52 BO 0008B 2$: 

53 DO 00090 

8F BO 00095 3$: 

CE 9E 0009C 

CE 9F 000A3 

AC DD 000A7 

AB 9F OOOAA 

03 FB OOOAD 
2E 3A 000B4 
02 12 000B8 

51 D4 OOOBA 

51 D5 OOOBC 4$: 

39 13 OOOBE 

51 D5 OOOCO 5$: 

17 13 000C2 

51 DO 000C4 

51 C3 000C7 

A546 9E OOOCB 



DIRECT: 
.WORD 
MOVAB 
MOVAB 
MOVL 
MOVAB 
M0VC3 
ADDL3 
MOVL 
MOVZWL 
MOVAW 
LOCC 
BNEQ 
CLRL 
TSTL 
BEQL 
MOVAB 
SUBL3 
SUBL3 
MOVAB 
MOVL 
MOVL 
MOVL 
JSB 
MOVL 
MOVL 
MOVL 
MOVL 
JSB 
MOVAB 
MOVW 
PUSHL 
PUSHL 
PUSHAB 
PUSHAB 
PUSHAB 
CALLS 
BRB 
MOVW 
MOVL 
MOVW 
MOVAB 
PUSHAB 
PUSHL 
PUSHAB 
CALLS 
LOCC 
BNEO 
CLRL 
TSTL 
BEOL 
TSTL 
BEQL 
MOVL 
SUBL3 
MOVAB 



Save R2,R3,R4,A5,R6,R7,R8,R9,R10,R11 

BASE DIRECT, R11 

-1345CSP), SP 

C FILSPEC, RO 

87R0), R6 

#8, BASE DIRECT, BASE_DIRECTQRY 

#1, 4(R67, R3 

R3, P LPART 

(R6),"R2 

-<R2>, L REST 

#44, L.RCST, (P.LPART) 

1$ 

R1 

P COMMA 

2$ 

KR1), P RPART 

P LPART, ~P COMMA, L^LPART 

L~LPART, L~REST, R4 

-T(R4), L RPART 

P LPART, R5 

L~LPART, R4 

#8, R3 

SCANSNUMERIC 

RO, LEFT 

P RPART, R5 

L RPART, R4 

*8, R3 

SCAN^NUMERIC 

T DIRECTORY, Q DIRECTORY+4 

#B, Q^DJRECTOR? 

RIGHT 

LEFT 

Q DIRECTORY 

Q'DIRECTORY 

P7AAU 

#5, SYSSFAO 

3$ 

R2, DIRECTORY 

R3< Q DIRECTORY+4 

#512,"QJILE 

T,FILE, Q FRE+4 

Q DIRECTORY 

CCFILSPEC 

P.AAW 

#3, a*DS$PRINTF 

046, L REST, (P LPART) 

4$ 

R1 

PDOT 

75 

P DOT 

6$ 

P_DOT, 

P. DOT, 



LAST DOT 
. „., P.LP&RT, 
-T(R5)CL_REST3, 



R5 
RO 



0596 

0614 

0628 
0629 

0630 

0631 

0633 

0636 
0637 
0638 

0639 



0640 



0641 
0642 
0643 



0647 
0648 
0651 
0652 
0656 



0660 

0662 

0669 

0671 
0672 



ZZ-ENSAA-7.0 
DIRECTORY 

07-17 



ods directory 
*** DIRECTORY 
ods directory 

01 



Handle DIRECTORY command 



029C 



0050 8F 



0044 8F 



0084 8F 



A1 




50 




2E 
E9 
51 
E5 


50 




52 




58 




0294 


CE 




50 




0298 


CE 




58 


54 




56 




50 


CE 




54 




01 




FD60 


CD 


01 
029C 
0298 

04 
0298 
029C 

48 


A2 
CE 
CE 
AC 
CE 
CE 
AB 




O00O0000G 


00 




06 


00 




6E 


BO 


00 
AD 




BO 


AD 


5003 


8F 




C6 


AD 




02 




CF 


AD 




02 




DC 


AD 


0290 


CE 




E4 


AD 


028C 


CE 


00 




6E 


FF6C 


00 
CD 




FF6C 


CD 


4401 


8F 




8C 


AD 


0200 


8F 




90 


AD 


FD6C 


CD 




A8 


AD 


BO 
BO 


AD 
AD 




OOOOOOOOG 


00 
56 

11 




01 
50 
56 




00018292 


8F 




56 
23 






50 


0001 C04A 
FF6C 


3F 
CD 




OOOOOOOOG 


00 
56 
OD 


BO 


01 
50 
56 
AD 




OOOOOOOOG 


00 




01 
0099 


20 




6E 


0084 


00 
6E 
CE 




0088 


CE 


FF6C 


6E 
CD 




OOOOOOOOG 


00 
56 
48 




01 
50 
56 


01 


( 


01 
)029 


CF 


AD 
0014 



K 14 
27-Jul-1984 
27-Jut-1984 
26-Jul-1984 



15:56:00 
09:39:06 



Fiche 5 Frame K14 



Sequence 1003 
VAX-11 Btiss-32 V4 •0-742 Page 28 
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3A 
12 
D4 
11 
C3 
BO 
DO 
C3 
A3 
9E 
9F 
9F 

DD 
9F 
9F 
9F 
F8 
2t 

BO 
90 
90 
DO 
90 
2C 

BO 
BO 
9E 
9E 
9F 
FB 
DO 
E8 
D1 
12 
DO 
04 
9F 
FB 
DO 
E8 
9F 
F8 
31 
2C 

B4 
9E 
9F 
FB 
DO 
E9 
8F 



OOODO 

00005 

000D7 

000D9 

OOODB 

OOODF 

000E4 

000E9 

OOOED 

000F3 

000F9 

OOOFD 

00101 

00104 

00108 

0010C 

0010F 

00116 

001 1D 

001 1F 

00125 

00129 

001 2D 

00133 

00139 

00140 

00143 

0014A 

00150 

00156 

001 5B 

0015E 

00165 

00168 

001 6B 

00172 

00174 

001 7B 

0017C 

00180 

00187 

0018A 

0018D 

00190 

00197 

0019A 

001A1 

001A2 

001A6 

001AB 

Q01AF 

001B6 

001B9 

001BC 

001C1 



6S: 



7$: 



8$: 



9$: 
10$: 



11$: 



12$: 



BO AD 9F 001 C5 



LOCC #46, RO, KPJXJT) 

BNEQ 5$ 

CLRL R1 

BRB 5$ 

SUBL3 P LPART, LAST DOT, RO 

MOVW RO, BASE.DIREtTORY 

MOVL P LPART, BASE DIRECTORY+4 

SUBL3 RO, L REST, HZ 

SUBW3 #1, RS, Q DIRECTORY 

MOVAB KR2), Q J5IRECTORY+4 

PUSHAB Q DIRECTORY 

PUSHAB BASE DIRECTORY 

PUSHL Q.FlCSPEC 

PUSHAB Q.FILE 

PUSHAB Q_FILE 

PUSHAB P.AAX 

CALLS #6, SYSSFAO 

M0VC5 #0, (SP) f #0, #80, $RMS_PTR 

MOVW #20483, $RMS PTR 

MOVB #2, $RMS..PTR*22 

MOVB #2, $RMSJHR+31 

MOVL Q FILE+4, SRMS PTR+44 

MOVB CfFILE. $RMS^HTR+52 

M0VC5 #0, (SP), #0, #68, $RMS_PTR 

MOVW #17409, $RMS PTR 

MOVW #512, $RMS PTR+32 

MOVAB BUFFER, $RflS PTR+36 

MOVAB FAB, SRMS.PTR+60 

PUSHAB FAB 

CALLS #1, SYSSOPEN 

MOVL RO, STATUS 

BLBS STATUS, 8$ 

CMPL STATUS, #98962 

BNEQ 9$ 

MOVL #114762, RO 

RET 

PUSHAB RAB 

CALLS <*1, SYSSCONNECT 

MOVL RO, STATUS 

BLBS STATUS, 10$ 

PUSHAB FAB 

CALLS #1, SYS$CLOSE 

8RW 18$ 

M0VC5 #0, (SP), #32, #132, T ..BUFFER 

CLRW Q BUFFER 

MOVAB TBUFFER, Q_BUFFER+4 

PUSHAB R*B 

CALLS #1, SYSSGET 

MOVL RO, STATUS 

BLBC STATUS, 16$ 

CASES FAB+31, #1, #1 

.WORD 13$-12$,- 

14$-12$ 

PUSHAB FAB 



0676 

0677 
0678 

0679 
0686 



0687 



0688 



0690 
0694 
0698 

0701 

0702 
0705 

0706 
0707 
0709 

0712) 
0723 



ZZ-ENSAA-7.0 

DIRECTORY 

07-17 



ods directory 
*** DIRECTORY 
ods directory 



Handle DIRECTORY command 



OOOOOOOOG 00 
50 



F9DA 



FA64 



OOOOOOOOG 
00Q1827A 



7E 
CF 



7E 
CF 
A7 



OOOOOOOOG 9F 



00 
8F 



08C0 

08 

0088 

94 

8E 



08 

0088 

94 

8E 

OOOOOOOO* 
0084 

0084 
50 

BO 



50 00010001 
50 



01 
8F 

AC 
CE 
AD 
AD 
04 
13 
AC 
CE 
AD 
AD 
04 
EF 
CE 
OE 
CE 
AB 
02 
AD 
01 
56 
08 
8F 

56 



FB 

3C 

04 

DD 

9F 

DD 

3C 

FB 

11 

DD 

9F 

DD 

3C 

FB 

E9 

B5 

13 

9F 

9F 

FB 

9F 

FB 

D1 

12 

DO 

04 

DO 

04 
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00U8 

001CF 

001 D4 

001D5 

001D8 

001DC 

001 DF 

001E3 

001E8 

001EA 

001ED 

001F1 

001F4 

001F8 

001FD 

00204 

00208 

0020A 

0020E 

00211 

00218 

0021B 

00222 

00229 

0022B 

00232 

00233 

00236 



13$: 



14$: 



15$: 
16$: 



17$: 



18$: 



CALLS 

MOVZWL 

RET 

PUSHL 

PUSHAB 

PUSHL 

MOVZWL 

CALLS 

BRB 

PUSHL 

PUSHAB 

PUSHL 

MOVZWL 

CALLS 

BLBC 

TSTW 

BEQL 

PUSHAB 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

CMPL 

BNEQ 

MOVL 

RET 

MOVL 

RET 



#1- SYSSCLOSE 

#2240, RO 

COUNT 

Q BUFFER 

RflB+40 

RAB+34, -<SP) 

04, FORMAT 0DS1 

15$ 

COUNT 

Q BUFFER 

RteHO 

RAB+34, -<SP) 

#4, FORMAT. 0DS2 

CONTROLCFLAG, 11$ 

Q BUFFER 

17$ 

Q BUFFER 

pTaaz 

#2, 6>#DS$PR1NTF 

FAB 

#1, SYS$CLOSE 

STATUS, #98938 

18$ 

#65537, RO 

STATUS, RO 



0724 
0716 



0719 



0728 
0732 



0734 
0737 



0738 
0740 



Routine Size: 567 bytes. Routine Base: CODE + 0509 



ZZ-ENSAA- 


7.0 


MRECTORY 




07-17 




; 07^1 


1 


; 0742 


1 


; 0743 


1 


0744 


1 


; 0745 


1 


; 0746 


1 


; 0^47 


1 


; 0748 


1 


; 0749 


1 


; 0750 


1 


0751 


1 


075? 


1 


; 0753 


1 


0^54 


1 


; 0755 


1 


; 0756 


1 


0757 


1 


0758 


1 


0759 


1 


; 0760 


1 


; 0761 


1 


0762 


1 


; 0763 


1 


0764 


1 


0765 


1 


; 0766 


1 


; 0767 


1 


; 0768 


1 


0f69 


2 


; 0770 


2 


0771 


2 


; 077? 


3 


0773 


4 


; 0774 


2 



Routine 


Size 


0775 


2 


0776 


2 


07?? 


2 


0778 


2 


0779 


2 


0780 


2 


0781 


2 


078? 


2 


0783 


2 



Main code 

*** DIRECTORY Handle DIRECTORY command 

Main code 
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XsbttL 'Main code* 

global routine dsxSdirectory (deblock) : calL.cli novalue = 
+ t 

Functional description: 

This code just lists the file names and versions in a directory 



Inputs: 

cli. block 

Implicit inputs: 
none 

Outputs: 

none 



Implicit outputs: 

types directory of device 

Side effects: 

accesses device via RMS 

Return status: 
none 



pointer to cli block 



begin 

Routine InterceptControlC = 
Begin 

(ControlCFlag = 1) 
End; 



I Just set the flag 



00000000' 



50 



0000 00000 


INTERCEPTCONTROLC: 




.WORD Save nothing 
M0V8 01, CONTROLCFLAG 


01 90 00002 


01 DO 00009 


M0VL #1, R0 


04 0000C 


RET 



0771 
0773 
0774 



13 bytes. Routine Base: CODE ♦ 0/40 



loca 



count , 

length, 

pointer 
status, 
un i t , 

devten, 
devptr, 



[053 



7Z-ENSAA-7.0 

DIRECTORY 
07-17 



0784 
0785 
0786 



0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0803 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 

08-1 

081? 

0813 

0814 

0815 

0816 

0817 

0818 

0&19 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 



0787 ? 



0788 
0789 

0790 2 

0791 2 

0792 2 

0793 2 



2 
2 
2 
2 
2 
2 
? 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
j 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



0829 4 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0337 

0838 2 

0839 ? 

0840 2 



Main code 

*** DIRECTORY Handle DIRECTORY command 

Main code 
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File'Match : Vector [NamSC MaxRss, Byte3, ! 

q_f i leblock : bblock [dsc$c„s. - bln*5j; ! FHe part descriptors 



map 



cli block : ret bblock; 



Bind 



WildCardMask = SAscid <•*.*;*'> : Block [, Byte], 



JontrolCF lag = 0; 

SDs CntrlC (AstAdr - JnterceptControlC); 

b ' " " ' ' -'-'*- L " 

b 



! Initially clear the flag 
! Set Control C handler 



Merge last-chance spec 
leblock) ; 



reikup file (def$c bkstp Len. defSq. backstop, q f i leblock) ; I Mer 
reakup"file (.def$q dev rdsctw^length], .deftq^dev [dsc$a_pointer], q_f i 

! Merge default device 
breakup file (.defSq dir [dscSvMength] , .defSq.dir [dsc$a pointer], q_ f i leblock); 

! Merge default directory 
Breakup File (.WildCardMask CDscSW Length], WildCardMask [Dsc$A_Pointer], Q FileBlock); 
breakup~file (.cli block CcliSw fife len], .deblock CcU$Lf Ue.adrJ, qjileblock); 



MleSpecMatch [DscSW Length] = 0; 
FileSpecMatch CDscSA^Pointer] = FileMatch; 

Jncr Index From 2 to 4 Do 
Begin 



Merge operator file spec 
Initialize descriptor 



Merge the final spec 



hind ! 

Desc = Q_file8lock + .Index*8 i Block C, Byte]; ! 

M .fVfc TDscSW Length] + .FileSpecMatch [Dsc$W_Length] Gtr NamSCJtaxRss 

(•'xitloop; ! 

If .Desc TDscSw Length] Neq ! 

And .Desc [Dsc$A Pointer] Neq i 

Then " ! 

Begin ! 



Bind 



Destination = .FileSpecMatch LDsc$W_Length] + .FileSpecMatch [Dsc$A_Pointer]; 



ChSMove ( 

.Desc IDscSW.lenqth], 
.Desc [DscSA^Pointer], 
Dest inat ion); 



Jf .Index Fql 4 
Th^n 

Ch$Wfhar (U 1 ;* 



Make sure Version starts with 



i . * 



not 



t i 



Dest inat ion) 



FileSpecMatch [Dsc$W Length] = .FileSpecMatch [Dsc$W„Length] + .Desc [Dsc$WJ.ength3; 

end " ! 



Fnd; 

It ChSEql ( 

FileSpecMatch [Dsc$w Length]* 
.FileSpecMatch [PscSA .Pointer], 



Don't bother matching it it's all wildcardea 



[103 



[10] 
[10] 

C08] 



[10] 



[103 

[10] 

[10] 
[10] 

[103 
[103 

[10] 
[10] 
[10] 

[10] 
[10] 
[10] 
[103 

[10]- 
[1031 

[10] 
[10] 
[10]' 
C103i 

[103 
[10]' 
[103! 

[1031 
[103' 



[10] 
[10] 
[101 



ZZ-ENSAA-" 


f\Q 


DIRECTORY 




07-17 




; 0841 


2 


; 08^2 


2 


; 0843 


2 


; 0844 


? 


; 0845 


2 


; 0846 


2 


; 0847 


3 


; 0848 


3 


; 0849 


3 


; 0850 


3 


; 0851 


3 


; 0852 


3 


; 0853 


3 


; 0854 


3 


; 0855 


3 


; 0856 


3 


; 0857 


3 


; 0858 


3 


; 0859 


3 


; 0860 


3 


; 0861 


3 


; 0862 


3 


; 0863 


3 


; 0864 


3 


; 0865 


2 


; 0866 


2 


; 0867 


2 


; 0868 


3 


; 0869 


3 


; 0870 


3 


; 0871 


3 


; 087? 


4 


; 0873 


5 


; 0874 


5 


; 0875 


5 


; 0876 


5 


; 0877 


4 


; 0878 


4 


0879 


4 


; 0880 


3 


; 0881 


4 


; 0882 


4 


; 0883 


4 


; 0884 


4 


; 0885 


4 


; 0886 


4 


; 0887 


4 


; 0888 


4 


; 0889 


5 


; 0890 


5 


; 0891 
; 0892 


5 
5 


; 0893 


5 


; 0894 


5 


; 0895 


5 


; 0896 


5 


; 0897 


5 



iXain code 

*** DIRECTORY Handle DIRECTORY command 

Main cod? 

.WildCardMask [DscSW.Length], 
.WildCardMask CDscSA Pointer}, 
0) 



b 15 
27-Jul-1984 .-iche 5 Frame 815 Sequence 1007 

27-Jul-1984 15:56^00 VAX-11 Bliss-32 V4. 0-742 ^ P^e? 32 

26-Jul-1984 09:39:06 0MA1 : CSYS0.SY5MAINT JDIREC T0RY.B32; 1 70 (9) 

[103 
[103 
[103 
[103 
[103 



(0 fill) 



Then 

FUeSpecMatch CDscSW.LengthJ = 0; 

begin 

global register 
zero = 0, 
one = 1; 

jsb^device = jsb (register = 4, register - 5) : global (zero = 0, one = 1) 
nopreserve (2, 3); 

external routine , . 

scanSdevice : jsb. device novalue addressing_mode (long_relati ve); 

scan$device (.q fileblock Cdsc$w„length:j, ,q fileblock [dse$a,,,po1nter3); 

T Decode/check the device name 
devlon = .zero<0, 16>; ! Pull out lenath of device 

unit = .zero<16, 16, 1>; ! Get unit number, sign-extended 

devptr s .one 
end; 



Point to device name 



count = 0; 
status = ( 



! Initialize file count 
! Do directory & print message if error 

' If console 



[053 



if .(.devptrKO, 24> eql Xasc 1i * CSA 1 

then __,_ 

(if .unit Us then else Jf .DsalV.User ! [163 

Then Begin ! [163, 

SDs Printf (SAscic (* !/XDS-F-USER, can'*t access console device in u 

Return ! [163 

End ! C163 

ELSe if .DSASGL SID[PR$V SID TYPE3 EQL PRS^SIDJYPZZZ ! [16] 

THEN 0D5 DIRECT TQ^FTlEBLOCK. COUNT) ! [163 
ELSE rt1i„d1rect (.unit, qJUeblock, counts 

else 

begin 



local 

ptable : ref bblock field ($d9„hpo„f); 



locSptabte (.devlen, .devptr, -1; ptable); ! 

(if .ptable eql then else selectone .(ptable [hp$t_type3 + 1><0, 16> of 

! check device type 

?!ascii , RP\ Xascii'RM 1 , Xascii'RK' Xascii'DI ^Xascii'RC*. 

Xascii'R8\ %Asc ii 'KA' , Xascii'RL'J : ods. direct (qjileblock, count); 
rXascii^TA*,Xascii ? TE , # XAscii'TU', Xascii'TS T 3 : 



ansi^direct (q^f ileblock, count); 
[otherwise] : rmsS^dev 
tes) 



[073 



[133 
[113 

[153 



i 



ZZ-ENSAA- 


7,0 


DIRECTORY 




07-17 




; 0898 


4 


; 0899 


4 


; 0900 


2 


; 0901 


2 


; 0902 


2 


; 0903 


2 


; P 0904 


2 


; 0905 


3 


; 0906 


2 


; 0907 


2 


0908 


? 


; 0909 


d 


; 0910 


2 


0911 


2 


; 0912 


2 


091 3 


2 


l 0914 


2 


091 5 


3 


; 0916 


3 


; 091 7 


1 



Main code 

*** DIRECTORY Handle DIRECTORY command 

Main code 



C 15 
27-Jul-1984 Fiche 5 Frame C15 Sequence 1008 

27-JuI-1984 15:56:00 VAX-11 BLiss-32 V4, 0-742 ^^ Page 33 

26«JuL~1984 09:39:06 DMA1 {[SYS0.$YSMAINT]DJRECT0RY.832;170 (9) 



20 
6F 



54 
41 



2C 
63 



4F 
21 



52 
20 



45 
73 



4t 
20 



:6 

65 



53 
73 



65 64 6F 6D 20 



45 
63 



end 



); 



i f .status eq I ! 

t hen ' 

Sds.printf (Sascic ( ' l/XDS-F-DEVNOTATCH, Device !AD not attached!/ 1 ), 
".devlen, .de»'ptr) ! 

else ! 

dsr$completion (.status); 1 

If .ControlCF lag Then Return; ! No final printout on A C 

$Ds_CntrlC <); ! Return A C control to kernel 

it .status ! 

Sds.printf (Sascic ('{/lotal of III files. !/'), .count) ! 



[05] 
C05] 
[05] 
C053 

ros] 

C05D 



[08] 
L08J 



[05] 
T053 
C05] 



end; 



55 
65 
69 
12 

44 
69 
61 



4C 5A 21 20 66 6F 



2D 
63 
76 
65 

2D 
76 
74 

20 
2f 



46 
63 
65 
73 

46 
65 
74 

6C 
21 



20 
61 
64 
75 

2D 
44 
61 

61 
2E 



53 

20 
20 
20 

53 
20 
20 
2^ 
74 
73 



Of dsx$directory 



2A 



44 
74 
65 
6F 

44 

2C 
74 
21 
6F 
65 



38 2A 2E 2A 001 3A P. ABB 

0013F 
00000005 00140 P. ABA 
00000000' 00144 
2f 21 39 00148 P<ABC 



25 
2? 
6C 
69 

25 
48 
6F 
64 
54 
6C 



6E 
6F 
20 
2^ 
2f 
43 
6E 
65 
2F 
69 



61 63 00157 

73 6E 00166 

65 63 00170 
21 21 0017F 

21 2D 00182 P.A8D: 

54 41 00191 

2D 44 001A0 

68 63 001AA 

21 17 001B0 P.ABE: 

66 20 001BF 



.PSECT DATA,N0WRT,N0EXE, SHR,2 

.ASCII \«.*;*\ 

.BLKB 1 

.LONG 5 

.ADDRESS P. ABB 

, ASCII \9]/*DS-F-USER, can't access console devi\ 

.ASCII \ce in user mode.JA 

.ASCII \-!/XDS-F-DEVN0TATCH, Device IAD not atta\ 



.ASCII \ched!/\ 

.ASCII <23>\!/Total of III tiles. !/\ 



58 EE 
5A 00000000' 

59 00000000' 
5E FED8 

08 



00000000G 9F 



04 



0FFC 00000 

AF 9E 00002 

l^ 9E OC006 

EF 9E 00Q0D 

CE 9E 00014 

A9 94 00019 

7E D4 0001 C 

58 DD 0001 E 

02 FB 00020 

AE 9F 00027 



WILDCARDMASK- P. ABA 

.EXfRN DSSCNTRLC, SCANSDEVICE 

.PSElT C0DE,N0WRT, SHR,2 

.ENTRY DSXJDIRECTORY, Save R2,R3,R4,R5,R6,R7,R8 f - 

DO DlA Dl 1 

MOVAB INTERCEPTCONTROLC. R11 

MOVAB WILDCARDMASK+4, R10 

MOVA8 FILESPECMATCH, R9 

MOVAB -296 (SP>, SP 

CLRB CONTROLCFLAG 

CLRL -(SP) 

PUSHL R11 

CALLS *2, a*DS$CNTRLC 

PUSHAB Q.FILEBLOCK 



0743 



0795J 
0794j 



0795J 



7Z-ENSAA-7.0 

DIRECTORY 

1>7-17 



Main code 
*** DIRECTORY 
Main code 



Handle DIRECTORY command 



D 15 
27-Jul-1984 

27-Jul-1984 

26-Jul-1984 



F i che 5 Frame D15 



Sequence 1009 
15:56:00 VAX-11 §Hss-32 V4. 0-742 „ a Page 34 
09;39;06 DMA1 : CSYSO. SYSMAINT JD JREC TORY, B32; 170 (9) 



0000G 

OOOOG 

00006 

OOOOG 

OOOOG 
04 



00O0OOFC 



Ft AA 



68 



C5 
00 



04 



04 



00415343 8F 



5? 
63 

08 0OO0FE03 



CF 



7E 
CF 



7E 
CF 



71 
CF 



7E 
CF 

A9 
5 7 
56 
50 
51 
50 
8F 



000000006 
OOOOOOOOG 

04 
OOOOOOOOG 
OOC000006 

04 
OOOOOOOOG 
000000006 

04 

FC 

04 
OC 
08 



2C 
04 



58 
58 
B6 
04 

68 
69 
57 
89 



55 
54 

54 
50 
53 

18 



9F 



04 



04 



00 



08 
04 
OOOOOOOOG 

FO 



04 



EF 
8F 
03 
AE 
EF 
U 
03 
AE 
EF 
EF 
03 
AE 
6A 
AA 
03 
AE 
A2 
A2 
03 
69 
AE 
02 
AE47 
66 
69 
51 
50 
24 
66 
1C 
A6 
17 
69 
A9 
66 
57 
03 
3B 
66 
04 
69 
BA 
02 
69 
AE 
AE 
Ef 
50 
8F 
51 
6E 
00 
2i 
52 
3D 
04 
AA 



9F 
DP 
F8 
9F 

DD 
3C 
F8 

;f 

DD 

3C 

FB 

9F 

DD 

3C 

FB 

9F 

DD 

3C 

FB 

B4 

9E 

DO 

7E 

3C 

3C 

CO 

D1 

14 

B5 

13 

D5 

13 

3C 

CO 

28 

D1 

12 

90 

AQ 

F3 

2D 



12 

B4 

DO 

3C 

16 

3C 

7 

D 

D4 

ED 

12 

D5 

19 

E1 

9F 



0002A 

00030 

00036 

0003B 

0003E 

00044 

0004B 

00050 

00053 

00059 

00060 

00065 

00068 

0006A 

0006E 

00073 

00076 

00079 

0007D 

00082 

00084 

00089 

0008C 

00091 

00094 

00097 

0009A 

000A1 

000A3 

000A5 

000A7 

OOOAA 

OOOAC 

OOOAF 

000B3 

OO0B8 

OOOBB 

OOOBD 

OOOCO 

000C3 

000C7 

OOOCE 

OOODO 

000D2 

0OQD4 

O00D8 

OOODC 

000E2 

000E5 

OOOEA 

OOOED 

OOOEF 

000F8 

OOOFA 

OOOFC 

OOOFE 

00106 



1$; 



2$ 
3$ 

4$ 



5$: 



PUSHAB DEFSQ 8ACKST0P 

PUSHL 0PEF$f BKSTP LEN 

CALLS 03, BRFAKUPjJLE 

PUSHAB QJ 1 LEBLOCK 

PUSHL DpF$Q_DEV+4 

MOVZWL DEF$G DEV, -<SP) 

CALLS 03, BfiEAKUP.FILE 

PUSHAB Q FILEBLOCK 

PUSHL DEF$Q_DJR+4 

MOVZWL DEF$Q DIR, -<SP) 

CALLS #3, BREAKUP^FILE 

PUSHAB Q FILEBLOCK 

PUSHL WlLDCARDMASK+4 

MOVZWL WILDCARDMASK, -<SP> 

CALLS 03, BREAKUP_FILE 

PUSHAB Q FILEBLOCK 

PUSHL 12(CLI BLOCK) 

MOVZWL 8<CII BLOCK), -(SP) 

CALLS 03, BREAKUP FILE 

CLRW FILESPECMATCH 

MOVAB FILEMATCH, FILESPECMATCH+4 

MOVL 02, JNDEX 

MOVAQ Q.FILEBLOCKCINDEXD, R6 

MOVZWL (R6), RO 

MOVZWL FILESPECMATCH, R1 

ADDL2 R1, RO 

CMPL RO, 0252 

B6TR 4$ 

TSTW (R6) 

BEQL ?$ 

TSTL 4(R6) 

BEQL 3$ 

MOVZWL FILESPECMATCH, R8 

ADDL2 FILESPECMATCH+4, R8 

M0VC3 (R6), 94(R6), (R8) 

CMPL INDEX, 04 

6NEQ 2$ 

MOVB 059, (R8) 

ADDW2 (R6>, FILESPECMATCH 

AOBLEQ *4, INDEX, 1$ 

CMPCS FILESPECMATCH, 9F ILESPECMATCH+4, 
WILDCARDMASK, aWILDCARDMASK+4 

BNEQ 5$ 

CLRW FILESPECMATCH 

MOVL QJILEBLOCK+4, R5 

MOVZWL Q FILEBLOCK, R4 

JS8 SCAN$DEVICE 

MOVZWL ZERO, DEVLEN 

ASHL 0-16, ZERO, UNIT 

MOVL ONE, DEVPTR 

CLRL COUNT _ _ 

CMPZV 00, #24, (DEVPTR), 04281155 

BNEQ 7$ 

TSTL UNIT 

BLSS 8$ 

BBC 04, a0 A XOOOOFEO3, 6$ 

PUSHAB P.ABC 



00, - 



0796 



0798 



0800 



0801 



0803 
0804 
0806 
0810 
0812 



0816 

0817 

0822 

0824 
0829 

0831 
0833 
0816 
0838 



0845 
0860 



0862 
0863 
0864 
0867 
0870 

0872 



08741 



ZZ-ENSAA-7.0 

DIRECTORY 

07-17 



Main code 
*** DIRECTORY 
Main code 



Handle DIRECTORY command 



E 15 
27-JuL-1984 
27-Jul-1984 
26-Jul-1984 



Fiche *> Frame £15 



Sequence 1010 
15:56:00 VAX-11 Bh*ss-32 V4, 0-742 Page 35 

09:39:06 DMA1 : CSYS0, SYSMAINTDDI RECTORY .B32; 1 70 (9) 



0O000OO0G 


9F 




01 




05 


00OOFE17 


9F 

6i 
5E 






08 


AE 
52 


FAF1 


CB 




03 
5D 




52 




01 




51 




53 




50 




54 






0OO00OO0G 


b'F 
51 
04 
52 
7A 




50 


27 


A1 


3852 


8F 




50 
31 


4152 


8F 




50 
2A 


4352 


8F 




50 
23 


4944 


8F 




50 
1C 


4852 


8F 




50 
15 


4C52 


8F 




50 
OE 


4D52 


8F 




50 
07 


5052 


8F 




50 
OC 
5E 






08 


AE 


FDC9 


C8 




02 
2F 


4154 


8F 




50 
15 


4554 


8F 




50 
OE 


5354 


8F 




50 
07 


5554 


8F 




50 
OC 
5E 






0^ 


AE 


FC07 


CB 




02 
07 




50 


000184C4 


8F 




52 




50 
10 
53 
54 






3E 


AA 


0O00OO00G 


9F 




03 



FB 

04 

91 

13 

DD 

9F 

DD 

FB 

11 

CE 

DO 

DO 

16 

D5 

12 

D4 

11 

3C 

B1 

13 

B1 

13 

B1 

13 

B1 

13 

B1 

13 

B1 

13 

B1 

13 

B1 

12 

DD 

9F 

FB 

11 

B1 

13 

B1 

13 

B1 

13 

B1 

12 

DD 

9F 

FB 

11 

DO 

DO 

12 

DD 

DD 

9F 

FB 



00109 

00110 

00111 

00118 

0011A 

0011 c 

001 1F 

00121 

00126 

00128 

0012B 

0012E 

00131 

00137 

00139 

001 3B 

00130 

0013F 

00143 

00148 

0014A 

0014F 

00151 

00156 

00158 

0015D 

0015F 

00164 

00166 

0016B 

0016D 

00172 

00174 

00179 

001 7B 

0017D 

00180 

00185 

00187 

0018C 

0018E 

00193 

00195 

0019A 

0019C 

001A1 

001A3 

001A5 

001A8 

001AD 

001AF 

001B6 

001B9 

001BB 

001BD 

001BF 

001C2 



CALLS 01, 30DS$PRINTF 

RET 

6$: CMPB 8>0*xOOOOFE17, 05 

BEQL 10$ 

PUSHL SP 

PUSHAB Q FILE8L0CK 

PUSHL UfllT 

CALLS #3, RT11 DIRECT 

BRB 11$ 

7$: MNEGL #1, R2 

MOVL DEVPTR, R1 

MOVL DEVLEN, RO 

JSB LOCSPTABLE 

TSTL PTABLE 

BNEQ 9$ 

8$: CLRL STATUS 

BRB 16$ 

9$: MOVZWL 39<PTABLE), RO 

CMPW RO, 014418 

BEQL 10$ 

CMPW RO, 016722 

BEQL 10$ 

CMPW RO, 017234 

BEQL 10$ 

CMPW RO, 018756 

BEQL 10$ 

CMPW RO, 019282 

BEQL 10$ 

CMPW RO. 019538 

BEQL 10$ 

CMPW RO, 019794 

BEQL 10$ 

CMPW RO. 020562 

BNEQ 12$ 

10$: PUSHL SP 

PUSHAB Q FILEBLOCK 

CALLS 02, ODS DIRECT 

11$: BRB 15$ 

12$: CMPW RO. 016724 

BEQL 13$ 

CMPW RO. 017748 

BEQL 13$ 

CMPW RO, 021332 

BEQL 13$ 

CMPW RO, 021844 

BNEQ 14$ 

13$: PUSHL SP 

PUSHAB Q FILEBLOCK 

CALLS 02, ANSIJIRECT 

BRB 15$ 

14$: MOVL 099524, RO 

15$: MOVL RO. STATUS 

16$: BNEQ 17$ 

PUSHL DEVPTR 

PUSHL DEVLEN 

PUSHAB P.ABD 

CALLS 03, a0DS$PRINTF 



0875 
0877 

0879 



0887 
0889 

0892 



0893 
0894 



0895 



0896 
0889 
0902 
0903 











F 15 






ZZ-ENSAA-7.0 


Main code 






27-Jul- 


1984 


Fiche 5 Frame 


DIRECTORY 


*** DIRECTORY Handle DIRECTORY 


command 


27-JuL- 


•1984 15:56 


:00 VAX-11 81 is 


07-1? 


Main code 






26-Jut- 


■1984 09:39 


:06 DMA1:CSYS0. 








06 


11 001C9 


BRB 


18$ 




50 




52 


DO 001CB 17$: 


MOVL 


STATUS, RO 








00006 


30 001 CE 


8SBW 


DSR$C0MPLETJ0N 




18 


08 


A9 


E8 001D1 18$: 


BLBS 


CONTROLCFLAG, 19$ 








7E 


?C 001D5 


CLRQ 


-(SP) 




000000006 9F 




02 


FB 001D7 


CALLS 


#2, S*DS$CNTRLC 




oc 




52 


E9 001DE 


BL8C 


STATUS, 19$ 








6E 


DD 001E1 


PUSHL 


COUNT 






6C 


AA 


9F 001E3 


P'JSHAB 


P.ABE 




00000000G 9F 




02 


F8 001E6 

04 001ED 19$: 


CALLS 
RET 


#2, S//DS$PRINTF 



F15 Sequence 1011 

s-32 V4. 0-742 Page 



36 
(9) 



0907 

0909 
0911 

0913 
0915 



091? 



Routine Size: 494 bytes, Routine Base: CODE + 074D 



0918 1 



ZZ-ENSAA- 


7.0 


MRECTORY 




07-17 




; 0919 


1 


; 0920 


1 


; 0921 


1 


; 0922 


2 


; 0923 


2 


; 0924 


2 


; 0925 


2 


0926 


2 


; 0927 


2 


; 0928 


2 


; 0929 


3 


; 0930 


3 


; 0931 


3 


; 0932 


3 


; 0933 


3 


0934 


3 


; 0935 


3 


; 0936 


2 


; 0937 


2 



Master routine 

*** DIRECTORY Handle DIRECTORY command 

Master routine 

%sbtt L 'Master routine' 



6 15 „_ 

27-Jul-1984 Fiche 5 Frarr.e G15 Sequence 1012 

27-Jul-1984 15:56:00 VAX-11 BLiss-32 V4. 0-742 ^ Page 37 

26-Jul-1984 09:39:06 DMA1 :[SYS0,SYSMAINTJDIRECTORY.B32;170 (10) 



global routine dsvSdirectory : jsb.fake novalue = 
begin 

Initialize context to prevent continuation of diagnostic or script. 



0938 1 



ScriptSf lush (); 
ds^cleanup 0; 
inTt ..context (); 
begin 

bui It in 

sp; 

sp = .sp - 4; 

.sp = begin. bl iss 

end; 

dsx$directory (ds$gl_c I ibase) 

end; 



! Flush any active scripts 

! Force abort of diagnostic if any 

! Clean up stacks, etc. 



! 'Fake* return address to avoid trouble when SUSS does RSB 

! Do a PUSHAB L A BEGJN BLJSS 
! (Set address for RSB) 



i of dsv$directory 



00000000G ^f 16 00000 



FDEA 



5E 
6E 
52 
CF 



OOOOOOOOG 
OOOOOOOOG 

OOOOOOOOG 
OOOOOOOOG 



EF 
EF 
04 
EF 
EF 
00 



16 
16 
C2 
9E 
9E 
FB 
05 



00006 
0000C 
00012 
00015 
0001 C 
00023 
00028 



DSVSDIRFCTORY: 
J SB 
JS8 
J SB 
SUBL2 
M0VA8 
MOVAB 
CALLS 
RSB 



; Routine Size: 41 bytes, Routine Base: CODE + 0938 



0939 


1 




0940 


1 


end 


0941 


1 




0942 





eludom 



! End of module 



PSECT SUMMARY 



Name 



Bytes 



DATA 
WORK 
CODE 



456 NOVECNOWRT, 

10 NOVEC, WRT, 

2404 NOVEC, NOWRT, 



RD 
RD 
RD 



Attributes 

.NQEXE, SHR, LCI, 

,NOEXE,NOSHR, LCI, 

, EXE, SHR, LCL, 



SCRIPTSFLUSH 

DS CLEANUP 
INTT CONTEXT 
#4, 5p 

begin.bliss, (sp) 
dssgl clibase, r2 
#0, dSxsdirectory 



0926 
0927 
0928 
0934 
0935 
0937 

0938 



REL, 
REL, 
REL, 



CON,NOP1C,ALIGN(2) 
CON,NOPIC,AL1GN(2) 
C0N,N0PK,AL1GN<2) 



ZZ-ENSAA-7,0 

DIRECTORY 
l>7-17 



Master routine 

*** DIRECTORY Handle DIRECTORY command 

Master routine 



H 15 
27-Jul-1984 
27-JuM984 
26-JuM984 



15:56:00 
09:39:06 



F iche 5 Frame H15 



Sequence 1013 
VAX-11 Bliss~32 V4, 0-742 Page 58 

DMA1 :CSYS0.SYSMAINTDDIRECTORY.B32;17O (10) 



Library Statistics 



File 

DRB1:CDS.W0RK3DIAG.L32:265 

DRB1:[DS.W0MK]DS.L32;1S9 

SYSSSYSR00T:CSYSL1B]L1B.L32;7 



Total 

653 
18017 



Symbols 
Loaded 

20 

15 

101 



Percent 



Pages 
Mapped 

85 

42 

975 



Processing 
Time 

00:00.2 
00:00.2 
00:04*6 



COMMAND QUALIFIERS 

BL I SS/N00BJECT/L I ST=[DS,L I SVOPT IMJZE= (LEVEL: 3, SPACE) /DEBUG/TRACE DIRECTORY 

Size: 2404 code ♦ 466 data bytes 

Run Time: 00:43.3 

Elapsed Time: 01 :54.9 

Lines/CPU Min: 1305 

Lexemes/CPU-Min: 23491 

Memory Used; 233 pages 

Compilation Complete 



ZJ-ENSAA-7.0 

DiSPAT 

'able of contents 

H4 

171 
181 
22? 
487 
563 
639 
698 



%** DISPAT 



Diagnostic test 
*** DISPAT 



sequence cont 
Diagnostic test 



i 15 
27-JUL-1984 Fiche 5 Frame 115 
sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro 



Sequence 
V03-01 



1014 

Page 



Libraries and Symbol Definitions 

Work Declarations 

Data Declarations 

Dispatch Routine 

DSXSEndPass Routine 

DS Cleanup Routine 

DSXSDoSummary and VRSummary Routines 

VRShowStatus Routine 



ZZ-ENSAA-7.0 

D1SPAT 

07-37 



*** D1SPAT 



Diagnostic test 
*** DJSPAT 



0000 
0000 
0000 
OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

OOOO 
0000 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 



sequence cont 
Diagnostic test 



27-JUL-1984 Fiche 5 Frame J15 Seguence 1015 
sequence cont 27-JUL-1984 1 5 : 1 5 : U VAX-11 Macro V03-0? t °5« ,L 
23-MAY-1984 14:11:40 DMA1 :CSYSO. SYSMAINTJDISPA' # MAR;134 (1 ) 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

1* 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

2? 

28 

29 

30 

31 

32 

33 

34 



.TITLE D1SPAT *** DISPAT Diagnostic test sequence control 
JDENT /07-37/ 
.NoShow Conditionals 

Copyright (c) 1977, 1982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICF. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION, 



THIS SOFTWARE 
CONSTRUE AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 

+ t 

FACILITY: 

VAX DIAGNOSTIC SUPERVISOR, 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: 

KEN CHAPMAN 



ITS 



10-NOV-77 



VERSION 01 



ZZ-ENSAA-7.0 

D1SPAT 

07-37 



*** D1SPAT 



Diagnostic test 
*** D1SPAT 



sequence cont 
Diagnostic test 



0000 


36 ; 


MODIFIED 


0000 


37 ; 




0000 


38 ; 


01 


0000 


39 ; 




0000 


40 ; 


02 


0000 


41 ; 




0000 


42 ; 


03 


0000 


43 ; 


04 


0000 


44 ; 


05 


0000 


45 ; 


06 


0000 


46 ; 




0000 


47 ; 


07 


0000 


48 , 




0000 


49 , 


08 


cooo 


50 . 


09 


0000 


51 . 




0000 


52 , 


10 


0000 


53 ( 




0000 


54 ( 


11 


0000 


55 , 




0000 


56 , 




0000 


57 , 


12 


0000 


58 , 




0000 


59 


13 


0000 


60 




0000 


61 




0000 


62 




0000 


63 


• H 


0000 


64 


15 


0000 


65 




0000 


66 




0000 


67 




0000 


68 


; 16 


0000 


69 


17 


0000 


70 




0000 


71 




0000 


72 




0000 


73 


; 18 


0000 


74 




0000 


75 




0000 


76 


; 19 


0000 


77 


20 


0000 


78 




0000 


79 


; 21 


0000 


80 





K 15 

27-JUL-1984 Fiche 5 Frame K15 Sequence 1016 

sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page^ 2 

23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINTDDI5PAT.MAR;134(1) 



BY 



TOM SOUTTER K-NOV-77 VERSION 02. 

DSPR #24 I #25 — CLEANUP SEQUENCING PROBLEMS. 

N. HOWGATE 16-NOV-77 VERSION 03. 

DSPR #42 — APT FUNCTION UPDATE 

TOM SOUTTER 08-DEC-77 VERSION 04. 

TURNED ON EXECUTION INFO. MESSAGES. 

DSPR #43 — AUTOMATIC "DOSUMMARY" IN FINAL "ENDPASS". 

DSPR #64 — CHECK LOAD FLAG FOR SUMMARY COMMAND. 

SET EXECUTE FLAG BEFORE CHECKING EXIT TEST STATUS. (KWC) 

NICK HOWGATE 30-DEC-77 VERSION 05. 

DSXSENDPASS - CHANGE REFERENCE TO DSASGL PASSES 

Roger Riqgs 12-Jun-78 VERSION 08 

Standardizing primary messages (first pass done/end run) 

Check flag DSSV^DONFLG in DS$GL_FLAGS so cleanup is done 

only once. 

Fix to use .ENTRY and .VECTOR in proceedures 

Roger Riggs 12-Jun-1978 

Removed deallocate from cleanup code. 

Cancel *0 before calling summary and end pass message 

Dave Butenhof 15-feb-80 

Add hooks for 'ERROR SEARCH' function 

Roger Riggs, 12-Mar-1980 

Added call to INITSCB and reset memory management after cleanup 

also call QIOSCLEANUP only if program is SEP.FUNCTIONAL 

Dave Butenhof 30-jun-1980, version 5.5 
Correct word displaced mode to longword displaced 
Support DS RMS by calling cleanup routine to avoid 
cluttering pool space in case of errors 



Dave Butenhof, 
Change some mor 
Clear DSSV.CTRL 
prevent probabl 
if control C's 
Dave Butenhof, 
More word relat 
quite un-fun. 
Dave Butenhof, 
More of same. 

- dave butenhof 
Add SHOW STATUS 

- Dave Butenhof 
Fix truncation 



03-oct-1980, version 6.1 

e word~relative references to longword relative 

C bit before doing $DS CNTRLC call; this is to 

y undesired control C at next call to KB^CHECK, 

were disabled by previous program. 

29~dec-1980, version 6.2 

ive references to longword. This is getting 

17-feb-1981, version 6.3 
ALL DSA$? ? references this time, 
. 06-Oct-T981, version 6.5 
command 
02-Nov-1981, version 6.- 



errors 



ZZ-ENSAA-7.0 

D1SPAT 

07-37 



L 15 
*** DISPAT Diagnostic test sequence cont 27~JUL~1984 Fiche 5 Frame LI 5 Sequence 1017 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 1 5 : 1 5 : U VAX-11 Macro V03-0T JlfPU, ,L 
y H 23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINTDDISPAT.MAR;134<1) 

- Jack Stansbury, 03-Nov-1981, Version 6.- 
Added calls to QASMoin for the QA enhancements. Also fixed 
some truncation errors. Also changed PSECTs a bit. Added 
.LIBRARY statements for $DS, $DJAG, and LIB, 

- Dave Butenhof, 16-Nov-1981, version 6.5 
Modified the text (and corrected a bug) in the SHOW STATUS 
command. 

- Dave Butenhof, 19-Nov-1981, version 6.5 
Modify to use typecodes on all output messages. 



0000 


82 ; 


22 


0000 


83 ; 




0000 


84 ; 




0000 


85 ; 




0000 


86 ; 




0000 


87 ; 


23 


0000 


88 ; 




0000 


89 ; 




0000 


90 ; 




0000 


91 ; 


24 


0000 


92 ; 




0000 


93 ; 




0000 


94 ; 


25 


0000 


95 ; 




cooo 


96 ; 




0000 


97 ; 




0000 


98 ; 




0000 


99 ; 




0000 


100 ; 


26 


0000 


101 , 




0000 


102 , 




0000 


103 . 


27 


0000 


104 ( 




0000 


105 , 




0000 


106 ( 


23 


0000 


107 




0000 


108 ( 




0000 


109 , 


29 


0000 


110 , 




0000 


111 




0000 


112 




0000 


113 


30 


0000 


114 




0000 


115 




0000 


116 




0000 


117 


31 


0000 


118 




0000 


119 




0000 


120 




0000 


121 


; 32 


0000 


122 




0000 


123 




0000 


124 




0000 


125 


; 33 


0000 


126 




0000 


127 




0000 


128 


; [3 


0000 


129 




OOOJ 


130 




0000 


131 




0000 


132 


; 35 


0000 


133 




0000 


134 




0000 


135 


; 36 


0000 


136 




0000 


137 




0000 


138 





- Jack Stansbury, 21-Nov-1981, Version 6.5 
Commented out several of the calls to QA MAIN because 
appears as though they will not be needed for the 6.5 
version. Made several other small code changes to the 
routine for QA. 

- Jack Stansbury, 21-Nov-1981 f Version 6.5 

Changed DSXSENDPASS routine slightly to accomadate QA 

- Jack Stansbury, 16-Dec-1981, Version 6,6 
Added the DS_QADEFS macro definition. 

- Dave Butenhof, 29-Dec-1981, Version 6.6 
Print out all error counts on Summary command. 



it 
DS 
DISPATCH 



- Jack Stansbury, 6-Jan-1982, Version 6.6 

Changed EndPass routine slightly to accomodate the 

new way of implementing QA (with the QA Start Loop). 



- Dave Butenhof, 12-Jan-1982, Version 6,6 
Fix EndPass message to ovoid losing end of message on 
narrow screen. 

- Jack Stansbury, 15~Jan~1982, Version 6.6 
Made changes to the Dispatch routine for the Loop on Subtest 
QA check routine. 

- Jack Stansbury, 9-Mar-1982, Version 6.6 
Inserted some new DS macros that will help these routines 
be more understandable, 

Marion Baggett, 9~Apr~1982, Version 6.7 
Added NoShow Conditionals after the .IDENT 

[34] Dave Butenhof, 20-Apr~1982, Verit^n 6.7 

Add kluge code in DS.CLEANUP; if standalone on 730, 
reset IDC to prevent extra interrupts. 

Jack Stansbury, 13~September-1982, Version 6.9 

Fixed some truncation errors, I didn't mark those that I fixed. 

Jack Stansbury, 15-September-1982, Version 6.9 

Changed the VRSummary and VRShowStatus routines to call the 

DSRSCheckLoad routine defined in ShowMem, 



M 15 

77-ENSAA-7.0 *** DISPAT Diagnostic test sequence t cont 27-JUL-1984 ,„ /]S h ?«. 5 «/ r ? f , JS M 5 m un7 s S9 uence 101 §.«- / 

D1SPAT *** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-07 Pa 9?„, ,?v 

L»7-37 y M 23-MAY-1984 14:11:40 DMA1 :[SYSO.SYSMAJNT]DISPAT.MAR; 1 34 (1) 

0000 139 ; 37 Jack Stansburv, 8-Mar-1983, Version 6.11 

0000 140 ; Changed the VftShowStatus routine to look for the user's PC 

0000 141 ; on the stack (in the CLJ args), 

0000 142 ; — 



2Z-ENSAA-7.0 

01SPAT 



N 15 

Libraries and Symbol Definitions 27-JUL-1984 « ' JS h ?5, Fra T e M 5 U 4 n, s S9 uence 10l n 

*** DISPAT Diagnostic test sequence cont 27-JUL--1984 15:15:14 VAX-11 Macro V03-0T Pa 9?„ 5 
Libraries and Symbol Definitions 23-MA7-1984 14:11:40 DMA1 :[$YS0,SYSMAINT]DISPAT.MAR;134<1) 

.S8TTL Libraries and Symbol Definitions 

INCLUDE FILES: 



0000 


144 


0000 


145 


0000 


K6 


0000 


147 


0000 


148 


0000 


149 


0000 


150 


0000 


151 


0000 


152 


0000 


153 


0000 


154 


0000 


155 


0000 


156 


0000 


15? 


cooo 


158 


0000 


159 


cooo 


160 


0000 


161 


0000 


16? 


0000 


163 


0000 


164 


0000 


165 


0000 


166 


0000 


167 


0000 


168 


0000 


169 



.LIBRARY 
.LIBRARY 
.LIBRARY 



MACROS; 



EQUATED SYMBOLS: 

SPrDef 

$DS ENVDEF 

SDS'DSADEF 

SDS'HDRDEF 

APTPEF 

CLIDEF 

DSFDEF 

DSPDEF 

DSQA 

DS QADEFS 

$D5 fYPEDEF 



/SYS$LI3RARY;LiB/ 

/$DS/ 

/$D1A6/ 



C223 

Z221 
[22] 



Define PR codes 



Cli$L definitions 



DSQASK consiant definitions 
Other QA$K constant definitions 
Define type codes 



[343 



[31] 



1221 
[25] 
[24] 



ZZ-ENSAA-7.Q 

DISPAT 
17-37 



Work Declarations 



*** DISPAT Diagnostic 
Work Dec larat ions 



0000 171 

00000000 172 

0000 175 

0000 174 

0000 175 

0000 176 

0000 177 

00000004 0000 1 78 

00000008 0004 179 



tost 



B 16 
27-JUL-1984 
sequence cent 27-JUL-19I 
23-MAY-19I 



Fiche 5 Frame B'6 Sequence 10?0 

[4 15:1S:K VAX-11 Macro V03-01 Page 6 

14 H:11:A0 DMA1 :[$YS0,SYSMA1NT3DISPAT, NAR; 134(1 ) 



.SU8TITLF Work Declarations 

,PSECT work, Notixe, NoShr, Wrt, Long 



t221 



OWN STORAGE- 



A T6STPTR: 

AlDATAPTRi 



• BUL 
,BUl 



POINTER TO CURRENT TEST CODE, 
POINTER TO CURRENT TEST DATA. 




C 16 

77-ENSAA-7.0 Data Dec la. at ions 27-JUI-1984 F iche 5 Frame C]6 Seguence 1021 

DISPAT <*« DISPAT Diagnostic test sequence cont 27-JUL-1984 1 5 : 1 5 : H VAX-11 Macro V03-01 ^jW,, i, 

17-37 Data Declarations 23-MAY-1984 14:11 :A0 DMA1 :CSYS0.SY$MAINTJDlSPAT.MAR;134i1 > 

,E Data Declarations 

Data, NoExe, Shr, NcWrt, Long ; t22J 

DISPATCH 

\!/?? No tests in this section, !/\ ; £24] 





















0008 


181 


• SUBU 


















00000000 


1G2 


.PSECT 




















0000 


183 






















0000 


184 


MODNAM 




















0009 


185 






















0009 


186 
187 


T NOEXE: 


73 65 


74 


20 


6> 


4E 


20 


3F 3F 2f 


21 


00' 


0009 


.ASCJC 


7^ ?0 


73 


69 


68 


74 


20 


6E 69 20 


73 


74 


0015 










2F 


21 


2E 


6E 


6F 69 74 


63 6S 


0021 






















20 


0009 
002A 
002A 


188 
1 89 


FMTPASONE : 


?0 74 


75 


72 


69 


46 


20 


2E 21 2F 


21 


00' 


002A 


190 


.ASCJC 


21 20 


2C 


65 


6E 


6F 


64 


20 75 73 


61 


70 


0036 






20 53 


25 


21 


72 


6F 


72 


72 65 20 


57 


S5 


C042 






69 74 


20 


2C 


64 


65 


74 


63 65 74 


65 


64 


004E 






2F 


21 


44 


25 


21 


20 


73 69 20 


65 


6D 
3A 


005A 
002A 
0065 
0065 


191 
192 


FMTLSTPAS: 


66 6f 


20 


64 


6E 


45 


20 


2F 2E 2f 


21 


00' 


0065 


193 


•ASCJC 


72 65 


20 


57 


55 


21 


20 


2C 6E 75 


72 


20 


0071 






63 65 


74 


65 


64 


20 


53 


25 21 7? 


6F 


72 


007D 






6F 63 


20 


73 


73 


61 


70 


20 2C 64 


65 


74 


0089 






?\ ?C 


57 


55 


21 


20 


73 


69 20 74 


6E 


75 


0095 






20 73 


69 


20 


65 


6D 


69 


74 20 20 
2F 21 44 


20 
25 


2^ 
21 
4C 


00A1 
OOAD 
0065 
0082 


194 





"!/.. First pass done, !UW erroriSS detected, time is !%D!/" ; [30] 



M !/., End of run, !UW errorJXS detected, pass count is !UW # !/ M -;C303 



< i 



time is !XD!/ M ; C30D 



D 16 
/Z-ENSAA-7,0 Data Declarations 27-JUL-1984 Fiche 5 a Frame D16 Sequence 1022 

D1SPAT *** OiSPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-1 Macro V03-0T J^S?,, ,?, 

l»7-57 Data Declarations 23-MAY-1984 14:11:40 DMA1:[SYS0.SYSMAINT]DISPAT.MAR;1»<1) 

0082 196 FMTSEARCH: , . t . .„„,,., 

20 72 6F 72 72 45 20 2E 2E 2F 21 00' 00B2 197 .ASCIC "!/.. Error search: new test limit is JUL, time is !%DJ/ ; C30J 
20 77 65 6E 20 3A 68 63 72 61 65 73 008E 
69 20 74 69 6D 69 6C 20 74 73 65 74 00CA 

20 65 6D 69 74 20 2C 4C 55 21 20 73 00D6 

2F 21 44 25 21 20 73 69 00E2 

37 0082 

OOEA 198 
OOEA 199 FMTTRACE: 
3A 42 55 21 20 74 73 65 5<. 2F 21 00* OOEA 200 .ASCJC "!/Test !U8: !AC" 

43 41 21 20 00F6 
OF OOEA 

OOFA 201 

OOF A 202 FMT^SUMMARY; tt ; C28] 

6f 20 79 72 61 6D 6D 75 53 2^ 21 00' COFA 203 ,ascic ".'/Summary of !AC, Rev WL.WL:!/" - ; C?8] 

21 20 76 65 52 20 2C 43 41 21 20 66 0106 

2F 21 3A 4C 55 21 2i 4C 55 0112 (1 iwc ,, .__ 

6D 61 72 67 6F 72 70 20 4C 5A 21 20 0118 204 " !Zl program detected error!*S - ; C283 

72 65 20 64 65 74 63 65 74 65 64 20 0127 

20 53 25 21 72 6F 72 0133 t( p-l __ 

21 20 2C 64 72 61 48 20 4C 5A 21 28 013A 205 "<!ZL Hard, !ZL Soft, !ZL" - ; [28] 

4C 5A 21 20 2C 74 66 6F 53 20 4C 5A 0146 lt rw 

4C 5A 21 20 2C 6D 65 74 73 79 53 20 0152 206 " System, Hi Device),!/" - ; C28] 

2F 21 2E 29 65 63 69 ?6 65 44 20 015E t , ,„„ i#i , i( rno _, 

69 76 72 65 70 75 53 20 4C 5A 21 20 0169 207 " !ZL Supervisor detected error !2S, !/!/" ; C28D 

64 65 74 63 65 74 65 64 20 72 6F 73 0175 

?F 21 21 53 25 21 72 6F 72 72 65 20 0181 

2f 21 018D 

94 OOFA 



ZZ-ENSAA-7.0 Data Declarations . 27-JUL-1984 , Fj£ h ? c 5 4 , Fr *JS § 1 A un* S £9 uence 102 o „« a 

D1SPAT *** DiSPAT Diagnostic test sequence cont 27-JUL-1984 1 5 : 1 5 : U VAX-11 Macro V03-01 J? a 9? 7i 9, 

07-37 Data Declarations 23-MAY-1984 14:11:40 DMA1 ; CSYSO. S YSMAINT JDI bPAT.MAR; 1 5^ ( 1 ) 

018F 209 Fmt^ShGwStatusJIo.PC: ,, ; [\l\ 

21 20 66 6F 20 73 75 74 61 74 53 00* 018F 210 .Ascic "Status of !AC, Rev JUL. JUL!/" - ; C37D 

?E 4C 55 21 20 76 65 52 20 2C 43 41 0198 

69 74 63 65 53 58 5F 21 44 25 21 20 01AC 211 " !%D!_ [Section lACDI.UZL errorUS]. 1 /" - ; [37] 

5A 21 5B 5f 21 5D 43 41 21 20 6E 6F 0188 
21 5D 53 25 21 7 2 6F 72 72 65 20 4C 01C4 

? F 01D0 ,, r „ n 

21 5D 4t 5A 21 20 74 73 65 54 5B 20 01D1 212 " [Test ! ZU iJSubtest !ZLJ!/ M - ; [37J 

5A 21 20 74 73 65 74 62 75 53 5B 5F 01DD 

2F 21 5D 4C 01E9 rTvn 

21 5D 4C 5A 21 20 73 73 61 50 5B 20 01ED 213 " [Pass iZLD!/ n ; [37] 

2} 01F9 
6A 01 8F 

C1FA 214 

01FA 215 FMT SH0WSTATUS: rw 

21 20 66 6F 20 73 75 74 61 74 53 00' 01FA 216 " .ascic "Status of !AC, Rev JUL.!ULi/ M - ; [23] 

2E 4C 55 21 20 76 65 52 20 21 '.? 41 0206 

2F 21 4C 55 21 0212 „ r ^, n 

69 74 63 65 53 58 5F 21 44 25 21 20 0217 217 " IXDJ.CSection 'AULUZL error!*S]!/" - ; C2.vJ 

5A 21 58 5F 21 5D 43 41 21 20 6E 6F 0223 
21 5D 53 25 21 72 6F 72 72 65 20 4C 022F 

2f 0238 
21 5D 4C 5A 21 20 74 73 65 54 58 20 023C 218 " [Test !ZU !_ [Subtest IZL]!/" - ; [233 

5A 21 20 74 73 65 74 62 75 53 5B 5F 0248 

2F 21 5D 4C 0254 rw 

21 5D 4C 5A 21 20 73 73 61 50 58 20 0258 219 " [Pass IZUljUser PC !XLJ!/ M ; [23] 

S8 21 20 43 50 20 72 65 73 55 58 5F 0264 

2^ 21 5D 4C 0270 
79 01FA 

0274 220 

0274 221 FMTJYQDJAG: „„ 

6F 67 61 69 64 ?0 6F 4E 20 3F 3F 00* 0274 222 , ascic '?? No diagnostic running.!/* ; [23] 

6E 69 6E 6E 75 72 20 63 69 74 73 6F 0280 

2F 21 2E 67 028C 
18 0274 

0290 223 
0290 22** WSTA80: 
5D 64 65 74 72 6F 62 61 58 20 00' 0290 225 .ASCIC " [aborted] 11 

0A 0290 



ZZ-ENSAA-7.0 

DISPAT 
17-37 



Dispatch Routine 



F 16 
27-JUL-1984 



Fiche 5 Frame F16 



*** DI SPAT Diagnostic test sequence cont 27-JUL-1984 15:15:H VAX;11^MacroJ(03-pf 
Dispatch Routine " *"" " 



Sequence 1024 



Page W 



0298 


227 


00000000 


228 


0000 


229 


0000 


230 


0000 


231 


0000 


232 


0000 


233 


0000 


234 


0000 


235 


0000 


236 


0000 


237 


0000 


238 


0000 


239 


0000 


240 


cooo 


241 


0000 


242 


0000 


243 


0000 


244 


0000 


245 


0000 


246 


0000 


247 


0000 


248 


0000 


249 


0000 


250 


0000 


251 


0000 


252 


0000 


253 


0000 


254 



23-MAY-1984 14:11:40 DMA1 J CSYS0. SYSMAJNTJDJSPAT -MAR; 13A< I) 

1221 



.S8TTL Dispatch Routine 

•PSECT Code, Exe, Shr, NoWrt, Long 



♦ + 



FUNCTIONAL DESCRIPTION: 

This routine is called to initiate the test program. 

It takes case of calling initialization sections, individual 

tests and finally cleanup code. 

CALLING SEQUENCE: 

BS8W DISPATCH 

INPUT PARAMETERS: 



DS$GL FSTTEST 
DSSGLlLSTTEST 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

SIDE EFFECTS: 



= FIRST TEST NUMBER 

= NUMBER OF LAST TEST TO EXECUTE 

NONE 

NONE 

NONE 

NONE 

NONE 



ZZ-ENSAA-7.0 

DISPAT 

07-37 



Dispatch Routine 



*** 



OGUOOOOO'EF 
00000000' EF 
00000000' EF 
00000000' EF 
00000000' EF 
OOOOOOOO'EF 
OOOOFESA'EF 



COO0FE50'EF 
OOOOFEAC'EF 01 



0000025C'ff CO 
OOOOFESO'EF OOOOOOOO'EF 



OOOOFfcAc'fcf 

OOnOFEOO'EF M) 

O 7 

OOOOf F5^'EF O". 1 



Dlb.^AT Diagnostic 
Dispatch Routine 



test 



G 16 
27-JUL-198A Fiche 5 Frame G16 Seguence 1025 
sequence cont 27-JUL-198A 15:15:14 VAX-11 Macro V03-01 Page 11 
23-MAY-198A 14:11:60 DMA1:[SYS0.SYSMAiNttDISPAT.MAR;134<1) 



DA 
DA 
DA 
DA 
DA 
DA 
DA 



DA 
DO 



F8 
DO 



DA 
ES 

DO 



0000 

0000 

0006 

OOOC 

0012 

0018 

001E 

002A 

002A 

0032 

0032 

0032 

0032 

0032 

C032 

0032 

0032 

0032 

0032 

0038 

003F 

003F 

00A8 

00A8 

OOAF 

005A 

005A 

0Q5A 

0063 

0063 

0069 

0070 

0071 



256 

257 

258 

259 

260 

261 

262 

263 

26A 

265 

266 

267 

268 

269 

270 

271 

272 

273 

27A 

275 

276 

27? 

278 

279 

280 

281 

282 

283 

28A 

285 

286 

287 

288 



DISPATCH:: 

CLRL 
Ctrl 
Ctrl 
Ctrl 
Ctrl 
Clrt 

ciai 



Set.PassO 



L A DS$GL ERRCNT 
L A Ds$GL HardErr Count 
L A Ds$GLlSoft£rr Count 
L A Ds$GL_$ysErr_count 
L A Ds$GL DevErr Count 
L A Ds$GL"ErrSup Count 
L A DSA$GC.PASSND 



START WITH NO ERRORS 
Clear out error counters 



START ON FIRST PAS C 
Indicate first pass 



ever 



[23] 
[28] 
[28] 
[28] 
1282 

[323 



FIRSTTEST: 



Perform the initialization code for the diagnostic. 
Test 0, Subtest 1 => initialization code 
Test 0, Subtest 2 => cleanup code 



CLRL L A DSASGL TESTNO 
MOVL #1 # L A DSA$6L_SUBTN0 

QAJWJN Diapat.BeforeJnit 

CALLS *0, 9LSA.ICP 
MOVL L A DS$GL FSTTEST, - 

L A DSA$GLJESTNO 

OA_MA]N Dispat_AfterJnit 



TEST 0, 

SUBTEST 1 INDICATES IN1T, 

Call QASMain 

Execute initialization code, 
LOAD NUMBER OF FIRST TEST 



Call QASMain 



C223 



C22] 



CLRL L A DSA$GL SUBTNO 

B8CC tfDSASV PXSSO, - ; 

L A DS*$GL FLAGS, CALLTEST 
MOVL #1, L A DSA$GL_PASSNO ; START ON FIRST PASS 



RESET SUBTEST NUMBER. 
Clear first pass flag. 



ZZ-ENSA-'-?.0 

D15PAT 
l»7-57 



Dispatch Routine 



H 16 
27-JUL-1984 



F iche 5 Frame H16 



Sequence 1026 



SC OOOOFESO'fF 01 

5C 18 

5c oooooais'FKc 

OOOOQOOO'EF OC AC 



OU BC 



06 10 AC 



03 
01C7 

0OOOFES0*EF 

H 

01D8 

QQGQFinO'EF 
OOF? 



*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0f __ J?W ,J* 
Dispatch Routine 23-MAY-1984 14:11:40 DMA1 :[SYS0.SYSlWINttDISPAT.MAR;134<1> 



Dispat 

0078 290 CALLTESTj 

0078 291 

0078 29? 

0078 293 

0078 ?94 

0078 295 

0078 296 

0081 297 

0089 298 

0089 299 

0089 300 

0089 301 

0089 302 

0089 303 

C089 304 

C3 0089 305 

C4 0091 306 

9E 0094 30? 

DO 009C 308 

00A4 309 

12 00A4 310 
31 00A6 311 

00A9 312 

91 00A9 313 20$i 

00B1 314 

13 0081 315 
0083 316 

31 00C4 317 

00C7 318 

EO 00C7 319 30$: 

00D0 320 

31 OODO 321 



Set up everything to call a test in the diagnostic. 



QAJ1AIN Dispat.CallTest 
Clear^ErrFlg 



Call OASMain 

Clear the trror flag 



L221 
[323 



Compute the starting address of the next test to execute. 

Use the DSASGL TESTNO to compute the address. If no more tests 

go to 130$ label. 



SU8L3 *1, L*DSA$GL,JESTNO, AP 
ML'U? ^DSPSK^SIZE, AP 
MOVA8 SL$A DTPCAPj, AP 
MOVL DSP$J,TEST(AP), - 
L A AlTESTPTR 

BNEQ 20$ 
BRW 130$ 

CMP8 L A DSA$GL TESTNO, - 

SDSP$AlBASE<AP) 
BEQL 30$ 
ERRSUP..S 
BRW D1SPATCH_X 

BBS L*DSA$Gl SCCTNO, - 

D$P$Q 3ECiION(AP), 35$ 
BRW 115$ 



GET INDEX INTO DISPATCH TBL 

GET ADDRESS OF DISP TBL ENTRY. 
GET TEST CODE POINTER. 

If not equal to zero, branch 
Was equal to zero 

CHECK TEST NUMBER. 

If they are equal, branch 
Otherwise, error 1n D5 



Check for right section 
Branch if bit clear 



. i 



27-ENSAA-7.Q 

DiSPAT 

07-37 



Dispatch Routine 



*** DISPAT Diagnostic 
Dispatch Routine 



I 16 
27-JUL-1984 Fiche 5 Frame 116 Seguence 1027 
test sequence cont 27-JUL-1984 15:15:14 VAX -11 Macro V03-01 Pa 9?„ L 

23-MAY-1984 Hi 11:40 DMA1 : CSYSO. SYSMA1NT3DISPAT.MAR; 1 3A ( 1 ) 



0Q000Q04'EF 08 AC DO 



00000000' EF DA 
OOOOFEAC'EF DA 



00000000' FF 00000004' FF FA 



00D3 
00D3 
00D3 
00D3 
00D3 
OODB 
OODB 
OODB 
OODB 
OODB 
OOFA 
00F4 
OOFC 
OOFC 
COFC 
0102 
0108 
0110 
0110 
0110 
0110 
0110 
0110 
011B 
0118 
0118 
0118 
0118 
0118 
0118 
0118 
0123 
0128 



323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 



If TRACE flag is set, print the trace message. 



35$* 



Br If Not Trace 40$ 

SPRINT #ds$k type orograminfo, 

#ds$kV7ntf; - 

L A FMTTRACE, - 

3DSPSA BASE(AP), - 

DSP$A flSG(AP) 



40$: 



50$: 



MOVL 



CLRL 

CLRL 
Clear. 



DSP$A DATA(AP), - 
L A AlDATAPTR 

L A DS$GA CHKLPPC 
L A DSA$GC_SUBTN0 
Subt 



If not tracing, branch 
Print info message 
.. use PRINTF 
.. Trace message 
♦ . test number 
. . and test name 

GET DATA TABLE ENTRY. 



[32] 
[24] 
C24] 
[24] 
[24] 
[24] 



CLEAR THE CHECK LOOP P.C. 
ST r xT WITH SUBTEST ZERO 
C 'Mr the subtest flag 



[323 



Call the test that is numbered DSA$GL JESTNO. 



CALLG 3L A A_DATAPTR, - 
5)L A A TESTPTR 



The test wil I come back 
no strange escapes from 



; CALL THE TFST 



to here assuming 
the test. 



there were 



Set ExeTst 

Br Tf Not ErrFlg 100$ 

BrlirNoOearch 100$ 



; Set execute flag 

; Branch if no errors 

; Branch if not searching 



[32] 
[323 
[32] 



ZZ-ENSAA-7,0 

D1SPAT 

07-37 



Dispatch Routine 



*** 



DISPAT Diagnostic 
Dispatch Routine 



test 



J 16 
27-JUL-1984 Fiche 5 Frame J16 Seguence 1028 
sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page 14 
23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINTJ0ISPAT.HAR;134(1 ) 



00000000' EF 
FFFFFFFF 8F 



0000FE08'EF 



0000FE50'EF 
00000000' EF 
OOOOOOOO'EF 
0012 
OOOOFESA'EF 



QQO0Q2AO'EF 00 



00 
F1 



DO 
F8 



0133 
0133 
0133 
0133 
0133 
0138 
0146 
0151 
0156 
0158 
0163 
01 6A 
01 6A 
01 6A 
C16A 
016A 
016A 
01 6A 



357 
358 
359 
360 
361 
362 
363 

364 

365 

366 

367 

368 

369 80$: 

370 

371 

372 

373 



This section is for performing SEARCHing using the search flag. 



Clear ErrFlg 

MOVL L*DSA$GL TESTNO,L A DS$GL_L$TTEST 

ACBL L*DSSGL_FSTTEST,tf-1, - 



MOVL 
CALLS 



SPRINT 



L A D$SGL LSTTEST,80S 
L'DSASGL PASSNO,L A DSA$GL_PA$SES 
*0,L A DSX$ENDPASS 



0ds$k type„program_info, - 
#ds$k printf , - 
L A FMT3EARCH, - 
L A DS$GL_LSTTEST, - 
00 



Clear the 
Copy test 
Decrement 



error flag 
number to limit 
last test, and be 



1121 



sure it's in range — else bad 
just did last pass 
an EOP to stop testincj 



Pretend we 
Now 'fake' 
DSXSENDPASS 



will not return here: 



Print search message 

.. use PRINTF 

.. SEARCH message 

, . test number 

.. and current time 



C243 
T24D 

[24] 
[24] 
C24] 



ZZ-ENSAA-7.0 

DISPAT 

l>7-37 



Dispatch Routine 



** * 



DISPAT Diagnostic 
Dispatch Routine 



K 16 
27-JUL-1984 Fiche 5 Frame K16 Seguence 1029 
test sequence cont 27-JUL-1984 15:15:H VAX-11 Macro V03-0T Page 15 

23-MAY-1984 14:11:40 DMA1 : CSYSO* SYSMA JNT JDI SPAT .MAR; 1 2W ( 1 ) 







0185 


375 






0185 


376 






0185 


377 






0185 


378 






0185 


379 






0185 


380 


1D 50 


E8 


0185 


381 






0188 


382 






0190 


383 






0190 


384 






0190 


385 


20 


11 


01A3 


386 






01A5 


387 






01A5 


388 






C1A5 


389 






01A5 


390 






01A5 


391 






01A5 


392 






01A5 


393 


50 00000004 *EF 


DO 


01A5 


394 


51 60 


DO 


01AC 


395 


14 


13 


01AF 


396 


00000004 'EF 04 A041 


DF 


0181 


397 


00000004' FF 


05 


01BA 


398 


03 


13 


O1C0 


399 


FF37 


31 


0K2 


400 



If the test did an ABORT, RO will be clear, if 
trace flag is set, print a message saying that 
and go on with the next test in the sequence. 



it is clear and the 
the test was aborted 



100$; 



BL8S RO, 110$ 

Brjfjlot Trace 115$ 

$print #3s$k type abort_test,- 

0ds$k pnnti, - 

L A T TSTABO 
BR8 115$ " 



Jf success, branch 

If not Tracing, branch around C32J 

Print abort test message [24] 

.. use PRINTI (was TYPMSG) C24] 

, . ABORT text £243 



Check to see if the same test should be called again with 
another data argument list. If so, compute address of new 
data and go back to call the same test again. 



110$: 



MOVL L A A DATAPTR, R0 

MOVL (R0T,R1 

BEQL 115$ 

MOVAL 4(R0)CR13, l*A,DATAPTR 

TSTL 3L A AJ)ATAPTR 

BEQL 115$ 

BRW 50$ 



GET POINTER TO ARG LIST 

GET COUNT OF ARGS IN LIST 

END OF DATA LIST, DO NEXT 

POINT PAST ARG LIST 

END OF LIST OF ARG LISTS? 

Yes-- next test 

Repeat test with next arg 



TEST 



list 



ZZ-ENSAA-7.0 

DISPAT 
07-37 



Dispatch Routine 



*** DISPAT Diagnostic 
Dispatch Routine 



test 



L 16 
27-JUL-1984 Flche 5 Frame L 1 6 Sequence 1030 
sequence cont 27-JUL-1984 1 5 : 1 5 : H VAX-11 Macro V0j-01 Page 16 
23-MAY-1984 14:11:40 DMA1 ;[SYS0.SYSMAINT3PI$PAT.MAR;134(1 ) 



0092 31 



00000000' EF 



03 
5B 



E1 



';1 OOOOFESO'EF 
bO 0000FE08'EF 
0000FE08'EF 01 



0002 51 01 



00000000'EF 
77 



0000FE08'EF 50 
50 00000000'EF 
00000028 EO 01 
00000000'EF 01 



00000020 EO 
00000000'EF 
C0000024 EO 
00000000'EF 



51 
51 
51 
51 
2F 



DO 
DO 
DO 

3D 

11 

DO 
DE 
DO 
DO 

DO 
DO 
DO 

DO 
11 



01C5 


402 


01C5 


403 


01C5 


404 


01C5 


405 


01C5 


406 


01C5 


407 


01C5 


408 


01CD 


409 


01D0 


410 


01D0 


411 


01D7 


412 


01D8 


413 


01D8 


414 


01D8 


415 


C1D8 


416 


01D8 


417 


01D8 


418 


01D8 


419 


01 D8 


420 


01D8 


421 


0ID8 


422 


01DF 


423 


01E6 


424 


01ED 


425 


01ED 


426 


01F7 


427 


01F7 


428 


01F9 


429 


01F9 


430 


0200 


431 


0207 


432 


020E 


433 


0215 


434 


0215 


435 


021 C 


436 


0223 


437 


022A 


438 


0231 


439 



115$: 



Check to see if QA *s 

routines are currently 
code to accomplish the 



Br JfJ3A 117$ 
BRO 125$ 



runi.ing AND 
executing, 
checks. 



if several cases of check 

If both are true, perform special 



117$: BBC 



S A *QA$K Loop On Subtest, - 
L A GA$flOB_CKecE..State, 122$ 



I f running QA, branch 

QA is not set, branch around. 

If the Loop on Subtest check 
is not running, branch. 



This is for the Loop on Subtest check only. 

We have finished running one test and all its subtests. Reset the 
subtest number, and add one to both the first and last test numbers. 
Make these changes in both the CLJ data vector and the DS (DSA) 
dat? areas. 



C25J 

C25J 
[253 
[25] 



[32] 
[31] 

[31] 
[313 



[31] 
[313 

[31] 
[31] 
[313 



MOVL L*DSA$GLJestNo, R1 

MOVL L A DSA$6L PASSES, RO 

MOVL #1, L A DSA$GL_PASSES 

AC8W l A QA$w_Save_last, ^1 ^ R1, 121$ 

BR8 130$ 

121$: MOVL RO, L A DSA$GL PASSES 

MOVAL L A DS$GL CLI6BSE, RO 

MOVL #1, L A CCl$L„SUBT (RO) 

MOVL #1, L A DS$GL„SUBTE$T 

MOVL R1, L A CLJ$L^TEST (RO) 

MOVL R1, L A DSSGL_FSTTEST 

MOVL R1, L A CLI$L - LAST (RO) 

MOVL R1, L A DS$GL_LSTTEST 

BR8 125$ 



Get the current tei;t number. [31] 

Save the Passes count. [313 

Set to 1 in case we take the [31] 

branch to 130$. [31] 

Branch if (R1 + 1) LEO the [31] 

saved last test number. [31] 

Otherwise, done all the tests*[313 



Restore 
Address 
Set the 
Ditto. 



Passes count. 

the CLJ data vector. 

Subtest number to 1« 



Increment First test. 

Ditto, 

Increment Last test. 

Ditto. 

Go execute another test. 



[313 

[31] 
[31] 
[313 

[313 
[313 
[313 
[31] 
[31] 



B 1 

t 1 

I 1 

E 1 

F 1 

G 1 



N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 



H 

I 
J 
K 
L 
M 
N 
B 
I 
D 
E 
F 

G 

H 
I 
J 
K 
I 
M 
N 



L 1 
M -1 



1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 



E 3 
F 3 
G 3 



3 
3 
3 
3 
3 
3 
3 
4 
A 

4 
4 
4 
4 
4 

A 
4 



B 5 

C 5 



F 5 

G 5 

H 5 

I 5 



CONVERT BINARY TIME TO NUMERIC 
CONVERT BINARY TIME TO NUMERIC 
CONVERT BINARY TIME TO NUMERIC 
CONVERT BINARY TIME TO NUMERIC 
Symbol table 
Cross reference 
Cross reference 
Cross reference 

- Converts ASCJI to RAD50 

- Converts ASCII to RA050 
DECLARATIONS 

CVTFILNAM - CONVERT FILE NAME 
CVTFILNAM - CONVERT FILE NAME 
CVTFILNAM - CONVERT FILE NAME 
STORER50BYTE - CONVERT AND STO 
PACKRAD50 - PACK 3 BYTES OF RA 
ASCI1TORAD50 - CONVERT ASCII C 
Symbol table 
Cross reference 
Cross reference 

*** DASSGN deassign QIO channe 
*** DASSGN deassign QIO channe 
*** DASSGN deassign QIO channe 
DEASSIGN I/O CHANNEL 
DEASSIGN I/O CHANNEL 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 

- CONSOLE TU58 BOOT DRIVER 

- CONSOLE TU58 BOOT DRIVER 

- CONSOLE TU58 BOOT DRIVER 
DECLARATIONS 
DECLARATIONS 

DD^SELECT - Select correct CPU 

Console TU58 Driver 

Console TU58 Driver 

Console TU58 Driver 

Console TU58 Driver 

Console TU58 Driver 

Character transmission 

Character transmission 

Character transmission 

Character transmission 

Symbol table 

Symbol table 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

EXAMINE, DEPOSIT, 

EXAMINE, DEPOSIT, 



EXAMINE, DEPOSIT, 
LrJCLARATIONS 

DECLARATIONS 
DECLARATIONS 
DECLARATIONS 



AND 
AND 

AND 



BREAKPO! 
8REAKPOI 
BREAkPOI 



M 5 
N 5 



B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

N 

N 



B 
C 
D 
E 

F 
G 
H 

I 
J 

K 
L 
M 
N 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 
C 6 



H 8 



M 8 

N 8 



9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 



DECLARATIONS 
DECLARATIONS 
DECLARATIONS 

SET BASE ADDRESS SUBROUTINE 
SHOW BASE ADDRESS SUBROUTINE 
SET DEFAULTS SUBROUTINE 
SET DEFAULTS SUBROUTINE 
SHOW DEFAULTS SUBROUTINE 
SHOW DEFAULTS SUBROUTINE 
EXAMINE MEMORY AND REGISTERS S 
EXAMINE MEMORY AND REGISTERS S 
EXAMINE MEMORY AND REGISTERS S 
EXAMINE MEMORY AND REGISTERS S 
VRTYPEXAMINE Type out location 
VRTYPEXAMINE Type out location 
VRTYPEXAMINE Type out location 
VRTYPEXAMINE Type out location 



DEPOSIT MEMORY 
DEPOSIT MEMORY 
DEPOSIT MEMORY 
DEPOSIT MEMORY 
SET BREAKPOINT 
SET BREAKPOINT 
CLEAR BREAKPOINT 
CLEAR BREAKPOINT 



AND REGISTERS 
AND REGISTERS 
AND REGISTERS 
AND REGISTERS 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 



DSPSREMOVEBREAK Remove breakpo 
SHOW BREAKPOINTS SUBROUTINE 
FIND 8PT FIND BPT IN BPT TABLE 
DEBUGGER CONDITION HANDLER 
BREAKPOINT CONDITION SU8R0UTIN 
BREAKPOINT CONDITION SU8R0UTJN 
BREAKPOINT CONDITION SUBROUTIN 
TBIT CONDITION SUBROUTINE 
T8IT CONDITION SUBROUTINE 
TEMPORARY BREAKPOINT REMOVAL S 
BREAKPOINT RFPLACEMEMT SUBROUT 
FETCH STORE COPY BYTE ROUTINE 
~ COPY BYTE 

COPY BYTE 

COPY BYTE 

COPY BYTE 

COPY BYTE 



FE1CH STORE 
FETCH'STORE 
FETCH'STORE 
FFTOfSTORE 
FETCH~STORE 



B 10 
C 10 

D 10 



ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 

Handle EXAMINE/DEPOSIT of IPRs 

FETCH STOR PREG Move data to/f 

DSVSDEBUG - Process DEBUG Comm 

DSVSDEBUG - Process DEBUG Comm 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Cross reference 

Cross reference 

Cress reference 

Cross reference 

Cross reference 

Cross reference 

C r oss reference 

Cross reference 

Cross reference 

Cross reference 



E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 



K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 



allocation 
allocation 
allocation 



*** DEVALC device 

*** DEVALC device 

*** DEVALC device 

ALLOCATE DEVICE 

ALLOCATE DEVICE 

ALLOCATE DEVICE 

DEALLOCATE DEVICE 

DEALLOCATE DEVICE 

LOCK I/O DATA BASE AND SEARCH 

DECREMENT REFERENCE COUNT, CLE 

DSXSMOUNT - Mount a device 

DSXSDISMOUNT - Dismount a devi 

Symbol table 

Symbol table 

Symbot table 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

*** DEVICE Handle PTABLEs 

*** DEVICE Handle PTABLEs 

*** DEVICE Handle PTABLEs 

DSSGPHARD Retreive address of 

DSPSGEN PTABLES Setup UUT's to 

DSPSGEN PTABLES Setup UUT's 

Symbol table 

Pseci synopsis 

reference 

reference 

reference 

reference 
P. RECTORY Handle 
/IKcCTORY Handle 
DIRECTORY Handle 
DIRECTORY Handle 
filename to buffer, 
filename to buffer, 



to 



DIRECTORY 
DIRECTORY 
DIRECTORY 
DIRECTORY 
if mat 
if mat 



Cross 

\."OSS 

Cr.ss 

Cros. 

*** 
*** 
**♦ 
*** 

Put 

Put 

Put filename to buffer, 1f mat 

RAD50 

RAD50 

format. odsl 

format_ods1 

format ods2 

format„ods2 

format ods2 

RT-11 directory 

RT-11 directory 

RT-11 directory 

RT-11 directory 

ANSI directory 

ANSI directory 

ANSI directory 

ANSI directory 

ANSI directory 

ods directory 

ods directory 

ods directory 

ods directory 

ods directory 

ods directory 



M 

M 

b 

r 

D 
E 

G 
h 
1 
J 
K 

L 
M 

N 
B 

C 
D 
E 
F 
G 
H 
I 
J 
K 
L 



K 

H 
15 
15 

15 
15 
15 
15 
15 
15 
IS 
15 
15 
15 
15 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 



Main 

Main 

Main 

Main 

Main 

Main 

Main 

Master 

Master 



code 

code 

code 

code 

code 

code 

code 
routine 
routine 



* * * 



DISPAT Diagnostic test seq 
DISPAT Diagnostic test sec 
DISPAT Diagnostic test seq 
DISPAT Diagnostic test seq 
DISPAT Diagnostic test seq 

libraries and Symbol Definitio 

Work Declarations 

Data Declarations 

Data Declarations 

Data Declarations 

Dispatch Routine 

Dispatch Routine 

Dispatch Routine 

Dispatch Routine 

Dispatch Routine 

Dis.oat'h Routine 

Dispatch Routine 



77-ENSAA-7.0 

DISPAT 

,7-37 



Dispatch Routine 



00000000* EF 
OOOOOOOO'EF 

OOOOOOOO'EF 
FFFFFFFF 8F 



02 
08 
04 
1F 
FE32 

04 
14 



OOOOOOOO'EF 
OOO0FE50'EF 

FE18 

OE 



0000FE50*b*F 01 



OOOOOOOO'EF 
FE08 



*** DISPAT Diagnostic 
Dispatch Routine 



61 0233 
023A 

EO 0238 
0242 

31 



0243 
0246 
0246 
024D 
024E 
024E 
0259 
025E 
025E 
0260 
C260 
0262 
0262 
0262 
0262 
0262 
0262 
0262 
F1 0262 
026E 



El 



F1 



11 



441 
442 
443 
444 
445 
446 
447 
448 
449 
450 

451 
452 
<53 

454 
455 
456 
457 
458 
459 
460 
461 
462 
463 



122$: 



123$: 



B 1 

27-JUL-1984 Fiche 6 Frame B1 Seguence 1031 

test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page 17 

23-MAY-1984 14:11:40 DMA1 :[SYS0.SYSMAINT3DJ SPAT. MAR; 134(1 ) 



BBC S A #QA$K Loop On Test, - 

L*QA$flOB CfiecE State, 123$ 

BBS S A *QA$K Loop Test.Done, - 
L A QA$JOB„FTags, 125$ 

BRW CallTest 

BBC S A #QA$K Run_Backwards, - 

L A QA5AOB_Check_State, 125$ 



124$: ACBL L A DS$GL_FSTTEST, 



/M, 

L A DSA$GL_TESTNO, - 
CALLTEST 
130$ 



compare that to DS$GL_FSTTEST,C2:>3 

if the former is greater than [253 

or equal to the Latter, branch. [25 

BRB 130$ ; Otherwise, we are done Run [253 

Backwards check. [253 

+ C253 

This is the normal way to advance through the tests. [253 

Add one to the DSA$Gl_TESTNO, if it is less than or equal to the [253 
DS$GL^LSTTEST, branch back to CALLTEST and call the next test. [253 

C25D 



If the Loop on Test check is [253 

^ot running, branch [253 

If done looping on this test, [253 

branch [253 

Not done Looping => run again [253 

If the Run Backwards check is [253 

not running, branch [253 

Subtract one from DSA$GL_TESTNO.[2 



125$: AC8L 



L A DS$GL LSTTEST, 01, - 
L A DSA$GL_TESTN0, CALLTEST 



; Do next test until reaches LSTTEST 



ZZ-ENSAA-7,0 

DiSPAT 

07-37 



Dispatch Routine 



*** DISPAT Diagnostic test 
Dispatch Routine 



C 1 
27-JUL-1984 Fiche 6 Frame CI 
sequence cont 27-JUL-1984 15:15:14 VAX-11 
23-MAY-1984 14:11:40 



Seguence 1032 

Macro V03-0T Page 18 

DMAltCSYS0.SYSMAINT3DISPAT.MAR; 134(1) 



FDA6 



0270 
0270 
0270 
0270 
0270 
0270 
0270 
0278 
0280 

31 0289 
028C 
028C 
028C 
028C 
C28C 
G28C 
028C 
028C 
029F 
029F 

05 029F 



465 
466 

468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 



Come to here if there are no more tests to execute in the sequence. 
Go back to FIRSTTEST and perform the initialization code again (and 
perhaps call DSX$ENDPASS in the init code). 



130$: 



Brjfjlot FxeTst 140$ 
Clear ExeTst 

QA MAIN Dispat Done Tests 
BR0 FIRSTTEST " 



Branch if no test executed 
Clear the execute flag 
Call QASMain. 
60 RUN ANOTHER PASS 



[323 
[323 
[31] 



If there were no tests executed in this section, come to here. 



140$: $print 



DISPATCH X: 
RS8 



#ds$k type^no^tests, 
0ds$k prmti , - 
L A T_NuEXE 



No tests in section 

.. use PRINTI (was TYPMSG) 

.. 'no tests in section 1 



; RETURN TO COMMAND MODE 



[243 
[243 
[243 



ZZ-ENSAA-7.0 

DISPAT 

07-3/ 



D 1 
DSXSEndPass Routine 27-JUL-1984 Fiche 6 Frame D1 Sequence 1033 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 19 
DSXSEndPass Routine 23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINT]DISPAT.MAR;134(1) 



02AO 


487 


02A0 


488 


02A0 


489 


02A0 


490 


02A0 


491 


02AO 


492 


02AO 


493 


02A0 


494 


02A0 


495 


02AO 


496 


02AO 


497 


02A0 


498 


02AO 


499 


02A0 


500 


C2A0 


501 


02AO 


502 


02A0 


503 


02A0 


504 


02A0 


505 


02A0 


506 


02A0 


507 


02A0 


508 


02A0 


509 



.S8TTL DSXSEndPass Routine 



++ 



FUNCTIONAL DESCRIPTION; 

This routine is called to mark the end of a 'PASS*. 

If enough passes have been run execute user summary and cleanup code. 

CALLING SEQUENCE: 

CALLx #O,30DSX$ENDPASS 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT Goi'PUTSs NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



ZZ-ENSAA-7.0 


DSXSEndPass Routine 






DISPAT 




*** 


DISPAT 


Diagnostic 


07-37 




DSXSEndPass 


Routine 






0004 


02A0 
02A2 
02A2 
02AB 


511 .ENTR 
512 
513 
514 




0000FE08'EF 


D5 


02AB 


515 




7D 


13 


0281 
02B3 


516 
517 


0000FE54 


F.F 0OOOFEO8*EF 


D1 


02B3 
02BE 


518 
519 




70 


1A 


02BE 
02CO 
02CO 
02C8 


520 
521 
522 
523 




0000036A'EF 


16 


02CF 
C2D5 


524 
525 




OOOOOOOO'EF 


16 


02DD 
02E3 
02E3 
02E3 
02E3 
02E3 
02E3 
02E3 


526 
527 
528 
529 
530 
531 
532 
533 



test 



E 1 
27-JUL-1984 Fiche 6 Frame E1 Seguence 1034 

sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page.. 20 

23-MAY-1984 14:11:40 DMA1 :[SYS0.SYSMAINT]DISPAT.MAR;134(1) 



DSX$ENDPASS, A M<R2> 

QAJ1AIN Dispat_DSX$EndPass..Bgn 

TSTL L A DSA$GL_PASSES 
BEQL 10$ 

CMPL L A DSA$GL PASSES, - 

L A DSA$CL,PASSN0 
B6TRU 10$ 

Clear CtrlO 

$DS SDMMARY S 

JSB" DS CLEANUP 

Clear Ctrlo 

JSB INIT^CONTEXT 

$PRJNT #ds$k type^program^end, 
#dslk pnntf, - 

l a fmti:stpas, - 
l a ds$gl errcnt, - 

L A DSA$GC_PASSNO, - 
#0 



Call QASMain 1221 

If passes = 0, => run for infinity 
If = 0, branch 

Compare passes and passno 

If passes > passno, branch 

If passno >= passes, continue on [29] 

Clear A Q flag [323 

Execute diagnostics summary section 

Execute diagnostics cleanup section 

Clear A flag [32] 

Reset stacks and processor mode [26] 

Print 'run finished* [24] 

use PRINTF [24] 

format text [24] 

count of error [24] 

pass count [24] 

current time [24] 



ZZ-ENSAA-7,0 

DISPAT 

07-37 



F 1 

DSXSEndPass Routine 27-JUL-1984 Fiche 6 Frame F1 Sequence 1035 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page 21 



DSX$EndPass Routine 



23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINT]DISPAT.MAR;134(1 ) 



OOOOOOOO'EF 17 

OOOOFEAO'EF OA DO 

00000000'EF 17 

0000FE54'EF 01 D1 

1B 12 



0000FE54 I EF D6 



00000000'EF 



16 
04 



0304 
030D 
0315 
0318 
031B 
031B 
0323 
032A 
032A 
0330 
0330 
0337 
0339 
0339 
C339 
0339 
0339 
0339 
0354 
0354 
035A 
035A 
035A 
035A 
0363 
0363 
0369 



QA..MAIN Dispat.DSXSEndPassjHd 
Br If .Not QA 5$ 
JMP VRRestart 



Set CmdFlg 

MOVC *APM$ DONE, - 

L*D5A$Gl MSGTYP 
BEGIN 



535 

536 

537 

538 

539 5$: 

540 

541 

542 

543 

544 

545 10$: 

546 

547 

548 

549 

550 

551 

552 

553 

554 20$: 

555 

556 DSX$ENDPASS„X: 

557 

558 QAJMIN Dispat DSX$EndPas$ End 
559 

560 JSB KB.CHECK 

561 RET 



JMP 

CMPL 
BNEQ 

SPRINT 



#1- L*DSA$GL PASSNO 
20$ 

#ds$k type first .pass, - 

#ds*k printf, - 
L A FMTPAS0NE, - 
L A DS$GL„ERRCNT, - 
#0 



INCL L*DSA$GLJ 3 ASSN0 



Call OA$Main 

If not running QA, branch around 
Running QA: loop back to VRRestart 
for the next QA check. 

Set command mode 

INDICATE PROCESSING COMPLETE 

Clean up the world and go back to CLI 

IS THIS THE FIRol PASS? 
SKIP 1? NOT 

Print first pass message 
.. use PRINTF 
.. format 

error count so far 

current time 



[29] 
[32] 
[29] 
[29] 
[29] 
[32] 






[24] 
[24J 
[24] 
[24] 
C24] 



COUNT THIS PASS 

Call 0A$Main 

CHECK KEYBOARD STATUS. 



C22] 



ZZ-ENSAA-7,0 

D1SPAT 

07-37 



DS.CLeanup Routine 



6 1 

27-JUL-1984 



F "f che 6 Frame G1 



Sequence 1036 



*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T ^age 22 

DS_Cleanup Routine 23-MAY-1984 14:11:40 DMA1 :[SYS0,SYSMAINTJDISPAT.MAR;134<1) 



036A 


563 


036A 


564 


036A 


565 


036A 


566 


036A 


567 


036A 


568 


036A 


569 


036A 


570 


036A 


571 


036A 


572 


036A 


573 


036A 


574 


036A 


575 


036A 


576 


C36A 


577 


036A 


578 


036A 


579 


036A 


580 


036A 


581 


036A 


582 


036A 


583 


036A 


584 


036A 


585 


036A 


586 


036A 


587 



+ + 



,SBTTL DS„CLeanup Routine 
FUNCTIONAL DESCRIPTION: 

EXECUTE USER'S CLEANUP CODE AND DEALLOCATE DEVICES. 
CALLING SEQUENCE: 

BSBW DS.CLEANUP 



INPUT PARAMETERS: 

IMPLICIT INPUTS: 

L$A_CCP 
LSLJJNIT 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

SIDE EFFECTS: 



NONE 



= USER'S CLEANUP ROUTINE ADDRESS. 
= MAXIMUM NUM8ER OF UNITS. 

NONE 

NONE 

NONE 

NONE 



ZZ-ENSAA-7.0 

DiSPAT 

07-37 



DS„Cleanup Routine 

** 

OS^Cleanup RouEine 



H 1 
27-JUL-1984 



Seguence 1037 
*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 21 



fiche 6 Frame H1 
_ .__ . 15:15:14 VAX-11 .. . 
23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINT]DISPAT,MAft;134<1) 



00B7 

00AC 

07 



31 
31 
BB 



OOOOr 50*EF 
00O0FE4CEF 02 



D4 
DO 



00000240 t FF 00 FB 



036A 
036A 
0372 
0375 
0375 
037D 
0380 
0380 
0388 
038A 
0^8A 
0593 
0393 
0398 
C39B 
03A6 
03AF 
03B5 
03BC 
03BC 



589 DS.CLEANUP:: 



590 

591 

592 

593 1$: 

594 

595 

596 2$: 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 



Br If StrFlg 
BRD " 30$ 

Br If.Not DonFlg 
BRD 30$ 



1$ 



2$ 



Set DonFlg 

PUSRR #*M<R0,R1,R2> 

QA_MAJN Dispat_DS_Cleanup_Bgn 

Clear^CtrU 

$DS CNTRLC.S 

$CARTJ«^S 

CLRL L A DSA$GL TESTNO 

M0VL #2, L A DSS$GL..SUBTNO 

CALLS #0, 3L$A_CCP 



If started, continue on C32] 

Exit if not started 1221 

If not done already, branch around C32] 
Exit if cleanup already done L221 

Indicate that cleanup has been done C32] 
SAVE REGISTERS, 

1221 

Clear *C pending bit to avoid *C C32D 

. .. on cleanup. C32J 

DELETE USER CONTROL-C HANDLER 

CANCEL ALL TIMERS 

TEST 0, 

SUBTEST 2 INDICATES CLEANUP. 

EXECUTE USER'S CLEANUP. 



ZZ-ENSAA-7,0 

DISPAT 
07-37 



DS.Cleanup 



Routine 

*** OlSPAT 
DS.Cleanup 



03 00000000' EF 91 

1C 12 

50 00F26200'EF 9E 

51 G0000004'EF DE 

61 DD 

61 OOOOOOOO'EF 9E 

60 D4 

61 8ED0 

02 0OO002O4'EF 02 00 ED 



OOOOOOOO'EF 



07 
6C 



OOOOOOOO'EF 00 

OOOOOOOO'EF 

50 OOOOOOOO'EF 

03 

50 01 



12 
FA 

F8 
16 
9A 
13 
DO 



OOOOOOOO'EF 16 

07 BA 
05 



03C3 
03CB 
03D2 
03D2 
03D4 
Q3DB 
03E2 
03EA 
03EB 
03ED 
03F0 
03F0 
03F9 
03r9 
C3F8 
0402 
0402 
0409 
040F 
0416 
0418 
041B 
0418 
0421 
042 1 
042A 
04?C 
042C 



Diagnostic test 
Routine 



610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 3$: 

622 

623 

624 

625 

626 5$; 

627 

628 

629 

630 

631 

632 10$; 

633 

634 20$J 

635 

636 

637 30$; 



I 1 
27-JUL-1984 Fiche 6 Frame 11 Seguence 1038 
sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 24 
23-MAY-1984 14*11:40 DMA1 :[SYS0.SYSMA1NT]DISPAT.MAR;134<1) 



Brjf^User 



20$ 



CmpB L A Exe$GB CpuType, - 

#Pr$_Si3_Typ730 

BNeq 3$ 

MovAB Ioc$KJOSpace! A XF26200, 

MovAL L A Scb_8ase+4, R1 

PushL (R1) 

MovAB L A Tst$MChk, (R1) 

CLrL (RO) 

PopL (R1) 

CMPZV *0, #2, L$L ENVIRON, - 

flSEP.FUNCTjONAL 

BNEQ 5$ 

CALL6 (AP), L A QJ0$CLEANUP 

CALLS *Q t L A DS$INITSCB 

JS8 L A RMS$CLEANUP 

MOVZBL L A DS$GB_MM„ENB, RO 

BEQL 10$ 

MOVL Jf1 # R0 

JS8 L A DSR$MMENA8LE 

QA MAIN DispatDS Cleanup End 

POPR a M<RO,R1,R2> 

RS8 



Branch it user mode 

Check if CPU is 

. . a Nebula 
. Skip if not 
RO : Address of IDC 

Get mcnk handler address 

Save old one 

Use common cheap one 

Clear register 

Restore old handler 



[32] 
[34] 
C343 
T34] 
[34] 
[34] 
[34] 
[34] 
[34] 
[34] 



; SEP_FUNCTJONAL 
; Branch if not 
; CLEAN AFTER QIO 



IF NECESSARY 



too. 



; Re-initialize the SCB 

; Clean up RMS storage 

; Get state of memory managment 

; Branch if not enabled 

; Set to enable 

; Set MM according to RO 

; RESTORE REGISTERS, 

; RETURN, 



1221 
C22] 



ZZ-ENSAA-7.0 

OiSPAT 
07-37 



J 1 

DSX$DoSummary and VRSummary Routines 27-JUL-1 V8A Fiche 6 Frame Jl Seguence 1039 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page 25 
DSXSDoSunmary and VRSummary Routines 23-MAY-1984 14:11:40 0MA1 :CSYS0,SYS«A1NTJDISPAT.MAR;134(1) 



042D 


639 


042D 


640 


042D 


641 


042D 


642 


Q42D 
042D 


643 


644 


042D 


645 


042D 


646 


042D 


647 


042D 


648 


042D 


649 


042D 


650 


042D 


651 


042D 


652 


C42D 


653 


0420 


65<* 


042D 


655 


042D 


656 


042D 


657 


042D 


658 


042D 


659 


0420 


660 



♦S8TTL DSXSDoSummary and VRSummary Routines 



FUNCTIONAL DESCRIPTION: 

CALLING SEQUENCE: 

CALLS #0,DS$SUMMARY 
BS8W VRSUMMARY 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SJDE EFFECTS: NONE 



-or- 



from command scanner 



ZZ-ENSAA-7.0 

D1SPAT 

07-37 



K 1 

DSX$DoSummary and VRSummary Routines 27-JUL-1984 Fiche 6 Frame K1 Sequence 1040 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 26 
DSXSDoSummary and VRSummary Routines 23-MAY-1984 14:11:40 DMA1 :[SYS0.SYSMAJNT]DJSPAT,MAR;134<1 ) 



GOOOOOOO'EF 



0000 
OE 90 



71 

00000000' EF 



00000000'EF 
4D 50 



15 



042D 
042F 
0436 

10 0436 
16 0438 

04 043E 
043F 
043F 

16 043F 
E9 0445 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
0448 
10 0492 

05 0494 



662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 



.ENTRY DSXSDOSUMMARY. A M<> 

Movb #Ds$K„Type Summary, - 
L A Ds$GB_TypeCode 
Display Summary 
KB.CHECR 



Bsbb 

JS8 

RET 



VRSUMMARY:: 
Jsb 
Blbc 

SPrint 



Bsbb 
Rsb 



DSRSCheckLoad 
RO, 10$ 

#-ds$k type summary, - 
#ds$ILprintf, - 
L A Fmt„Summary, - 
L A l$a name, - 
L A l$l rev, - 
L A l$ljjpdate, - 
L A ds$gl_errcnt, - 
L A Ds$GL_HardErr_Count, 
L A Ds$GL„SoftErr Count, 
L A Ds$GL_SysErr_Count, 
L A Ds$GL_DevErr Count, 
L A Ds$GL.ErrSup M Count 

Display.Summary 



Set Type code to 

.. Summary 

Type out Summary stuff 



Check to see if a program is 
. . . loaded. If not, branch 



Summary 



(sticky) 



use PrTStf 

format string 
diagnostic name 
revision level 
update level 
error counter 
Hard error counter 
Soft error counter 
System error counter 
Device error counter 
ErrSup counter 
Type out Summary stuff 



C28J 
[281 
[28] 



[36] 
[36] 

[28] 
[28] 
[28] 
[28] 
[28] 
[28] 
[28] 
[28] 
[28] 
C28D 
[28] 
[28] 
[28] 
[28] 



ZZ-ENSAA-7.0 

DISPAT 
07-37 



L 1 
DSXSDoSummary and VRSummary Routines 27-JUL-1984 Fiche 6 Frame L1 Seguence 1 041 

*** DISPAT Diagnostic test sequence cont 27-JUI-1984 15:15:14 VAX-11 Macro V03-01 Page 27 

DSXSDoSummary and VRSummary Routines 23-MAY-1984 14:11:40 DMA1 :[SYS0.$YSMAINnDI SPAT. MAR; 134(1) 







0495 


688 






0495 


689 






0495 


690 




05 


04A8 


691 






04A9 


692 






04A9 


693 


00000244'FF 00 


FB 


04A9 


694 


00000000'EF 


94 


04B0 


695 




05 


0486 


696 



10$: SPrint 



Rsb 



#ds$k type command err, 
*dsSkj)rTntf, - 
L A fmt_nodiag 



Display Summary: 

Calls #0, 3L$A Repp 
Clrb l A Ds$GB_TypeCode 
Rsb 



Command error 
.. use PRINTF 
Print 'no diagnostic loaded 



Execute Summary command 
Call user report code. 
Clear sticky type code 



1281 
1281 
1281 
1281 

1281 
1281 
1281 
1281 



TZ-ENSAA-7.G 

OiSPAT 
17-37 



VRShowStatus Routim 



M 1 
27-JUL-1984 



fie he 6 Frame Ml 



Sequence 1042 



28 



*** D I SPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page, 2 
VRShowStatus Routine 23-MAY-<984 14:11:40 DMA1 :[SYS0.SYSMAINTJDISPAT.MAR;154(1 ) 



04B7 


698 


04B7 


699 


0487 


700 


04B7 


701 


0487 


702 


04B7 


703 


0487 


704 


04B7 


705 


0487 


706 


0487 


707 


04B7 


708 


04B7 


709 


0487 


710 


04B7 


711 


C4B7 


712 


0487 


713 


04B7 


714 


0487 


715 


0487 


716 


04B7 


717 



.SBTTL VRShowStatus Routine 
++ 

Functional Description; 

Cxecute a SHOW STATUS command (print test, section, etc). 

Calling sequence: 

BSBW VRSHOWSTATUS 

Input parameters: none 

Implicit inputs: none 

Outputs: none 

Implicit outputs: none 

Completion codes: none 



Z-ENSAA- 


-7.0 VRSnowStatus Routine 






tUISPAT 




*** 


D1SPAT 


Oiaq 


07-37 




VRShowStatus R5i 


j 






04B7 


719 




00000000'EF 


16 


04B7 


72 r 




03 50 


E8 


04BD 


72. 




OOAF 


31 


04C0 
04C3 


722 
723 




50 3C AC 


DO 


c.n 


724 




50 00010000 8F 


D1 


04C7 


725 




07 


14 


04CE 
04D0 


72h 
727 




00000000'EF 00 


F8 


04DQ 
04D7 


728 
729 




51 OOOOFEIO'EF 01 


C1 


04D7 


730 




51 O000025O*FF41 


00 


04DF 
04E7 


731 
732 




50 00 


01 


C4E7 


733 




44 


13 


OAEA 
OAEC 
04EC 
04EC 
04EC 
04EC 
04EC 
04EC 
04EC 
04EC 
04EC 
04EC 
04EC 
OAEC 
OAEC 


734 
735 
736 
717 
738 
739 
740 
741 
7^2 
743 
744 
745 
746 
747 
748 






05 


052F 
0530 


749 
750 








0530 
0530 
0530 
0530 
0530 
0530 
0530 
0530 
0530 
0530 
0530 
0530 


751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 






05 


0571 
057: 
057? 
0572 
057? 


763 
764 
765 
766 
767 






05 


05P, 
05d6 


768 
769 



test 



N 1 

27-JUL-1984 Fiche 6 Frame N1 Sequence 1043 

sequence cont 27-JUL-1984 15:15:14 VaX-11 Macro V03-0T Page 29 
23-MAY-1984 14:11:40 DMA1 :ESYS0. SYSMAINT3DI SPAT. MAR; 134(1 ) 



VRShowStatus: : 
Jsb 
Bibs 
Brw 



5$: 



10$; 



50$: 



100$: 



Movi. 
CmpL 
Bgtr 



addl3 
movl 

CmpL 
Beql 

Sprint 



rsb 
Sprint 



rsb 
Sprint 



rsb 
.END 



DSRSCheckLoad 
R0 X 5$ 

106s 

60(AP), RO 

rxoooioooo, ro 



Check to see if a program is 
... loaded. If so, skip over 
Not loaded, print error mess 



Get the PC from the CLI 
Is this a real user PC? 
Yes, branch around 



args 



C203 
[363 
[37] 
[373 

[373 
[373 
[373 



Calls 00, L A DSR$Find_User_PC 



Get last user PC from stack [373 



01, dsa$gl_sectno, r1 
5)lSa - secnam[r13, r1 

#0, RO 
50$ 

0ds$k cype command out, 
0ds$k_prTntf , - 
L A fmt.showstatus, - 
l$a„name, - 
l$l_rev, - 
l$l update, - 
00, - 
r1- - 

ds$gl errcnt, - 
dsa$gl„testno, - 
dsa$gl^subtno, - 
dsa$gl!passno, - 
rO 



0ds$k type^command.out, - 
0ds$k_pnntf , - 
L A Fm v- ShowStatuc.No_PC, 
l$a_name, - 
l$l_rev, - 
l$l"update, - 
00, - 

ds$gl errcnt, - 
dsaSgl^testno, - 
dsaSgl^subtno, - 
dsaSgl.passno 



0ds$k type command^err, - 
AdsS*.prTntf , - 
L A fmt_nodiag 



Get offset in section table 
Get ASCIC name address 



Is this really 
No, branch 



> valid PC? 



Command output n.tsscage 
use PRINTF 
format string 
diagnostic name 
revision level 
update level 
current time 
address of section name 
error counter 
test number 
subtest number 

Gass number 
ser PC of *C 



Command output message 
use PRINTF 
format string 
diagnostic name 
revision level 
update level 
current time 
address of section name 
error counter 
test number 
subtest number 
pass number 



[233 
[253 

[373 
[373 

[243 
[243 
[243 
C203 
[233 
[233 
C233 
E203 
[233 
[203 
[203 
C203 
[203 
E203 

C243 
E243 

C243 
[203 
[233 
[233 
[233 
[211 
C23j 
[203 
[203 
C373 
[2U3 



Command error [243 

.. use PRINTF [243 

Print 'no diagnostic running 1 [203 

[203 



ZZ-ENSAA-7.0 
DISPAT 
Symbol table 

$$N 

$$T1 

SER 

SMODULE 

APCS ABORT 

APCS^CONTINUE 

APCS DUMP 

APCSJJOP 

APCS START 

APCSJTERO 

APMS„ABTDON 

APM$ DEVERR 

APMS~DONE 

APM$IEXCEPT 

APMS HARDERR 

APMS^MORE 

APMS..NOMES 

APMS PREPERR 

APMS~PRGERR 

APMS^SOFTtRR 

APMS~SPOOL 

APM$~SYSERR 

A DATAPTR 

A'TESTPTR 

BPGIN 

BIT... 

CALLTEST 

CEPJUNCTIONAL 

CEP REPAIR 

CLllK^BUFSIZ 

CLISK_S1ZE 

CLISL..ADDRESS 

CL I $L_ COMMAND 

CLISL.DATA 

CLISL^f LAGS 

CLISL„LA$T 

CLISL NEXT 

CLISL..PASS 

CLiSL_SUBT 

CUSLJEST 

CLISQ^BUFQWD 

CLISGJILE 

CLI$Q„SECTION 

CLI$Q TIME 

CL I STAFFER 

CLISVJWAPTER 

CLISV_ADR 

CUSV.ASCII 

CLISV..BREAK 

CLISV..BRIEF 

CLISV^BYTE 

CLISV..CLEAR 

CLISV^DEC 

CLISV^DEFAULT 

CLISV OEPOSIT 

CLISVJVENT 

CLISV.EXAM 



Symbol table 



*** DISPAT Diagnostic test 



B 2 rt 
27-JUL-1984 Ffche 6 Frame B2 
sequence cont 27-JUL-1984 15:15:14 VAX-11 
23-MAY-1984 14:11:40 



Seguence 1044 

Macro V03-0T Page 30 

DMA1:CSYS0.SYSMAIAIT3DISPAT.MAR; 134(1) 



00000001 
00000001 
00000002 
00000000 
00000006 
00000009 
00000003 
00000000 
00000005 
00000004 
00000006 
00000003 
00Q0000A 
00000008 
00000003 
00000008 
00000000 
OOOOOOOC 
00000005 
00000004 
00000009 
00000001 
00000004 

00000000 

******** 

00000004 
00000078 
00000000 
00000001 
00000100 
00000444 
00000018 
00000004 
0000001 C 
00000000 
00000024 
00000030 
0000002C 
00000028 
00000020 
00000034 
00000008 
00000010 
0000043C 
0000Q03C 
00000018 
OOOOOOOS 
00000013 
OOQOOQOA 
00000018 
OOOOOOOD 
00000002 
00000010 
OOOOOOOC 
00000019 
00000008 
00000005 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
( 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 



02 
02 
04 

04 



CLISV.FLAGS 

CUSV^HEX 

CLISVlKERNEL 

CLJSV^LOAD 

CLJSV.LONG 

CLISV.NOTNUF 

CLISV„OCT 

CLISV.PREG 

CLJ$V„QA 

CLJSV GACKLOOPLOOPS 

CLISVlQAERRORPRINTS 

CLISV^GAMULTIPLEPASS 

CLJSV_GASU8TESTL00PS 

CLJSV_QATESTLO0PS 

CLJSV REG 

CLJSV^REQUIRED 

CLJSV..RUN 

CLISV SET 

CLJSV SHOW 

CLJSVlVALSEC 

cljsv. word 

dispatch 

dispatch x 

display Summary 

dsscntrCc 

dssga^chklppc 

dssgb mm enb 

ds$gb_tyPecode 

ds$gl_cljbase 

dssglldeverr.count 

dssgl.errcnt 

dssgl^errsup.count 

dssgl_flags 

dssgosttest 

dssgl.,harderr^count 

dssgl^lsttest 

dssgl^softerr^count 

ds$gl w subtest 

dssgl syserr.count 

DSSJNlTSCB 

dssk.bbc 

dsskj3bcc 

dssk„bbcci 

dssk bbcs 

ds$mbs 

ds$k;bbsc 

dssk^bbss 

dssk.bbssj 

dssk^bcc^m 

dssk:bcs~m 

dssk_beq[u_b 

dssk„beqlu m 

DSSOEOLj 

ds$Oeql"m 
dssk berror 

DSSKlBGEQU^B 
DSSK.BGEQU.M 



00000009 
00000012 
00000017 
00000006 
OOOOOQOF 
00000001 
00000011 
0000001A 
00000007 
0000001 C 
0000001B 
0000001 F 
OQ00001E 
0000001 D 
00000014 
00000000 
00000015 
00000003 
00000004 
00000016 
OOOOOOOE 
00000000 
0O00O29F 
000004A9 



**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 



**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 

**w* 

**** 
**** 
**** 
**** 
**** 



:l 



QOQQQid 
0000021 

00000023 

0000001 F 

A 

1B 
1A 
005 
11 
04 
10 



13 




RG 

R 

R 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



ZZ-ENSAA-7.0 
OISPAT 
Symbol table 



Symbol table 



C 2 

27-JUL-1984 Fiche 6 Frame C2 Sequence 1045 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 31 

23-MAY-1984 14:11:40 DMA1 .* CSYSO. SYSMAINTDD1 SPAT.MAR; 1 3W < 1 ) 



DSSK.8GEQ B 

DSSK BGEQ M 

DSSK BGTRO B 

DSSK BGTRlfM 

DSSK"BGTR J 

DSSK_BGTRJ1 

DSSK.BLBC 

DSSK_BLBS 

0S$K BLEQU B 

DSSK.BLEQU M 

DSSK^BLEQ S 

DSSK„BLEQ~M 

DSSK BLSS0,B 

DSSK^BLSSU M 

DS$K,BLSSJ5 

DS$K„BLSS M 

DSSK_BNEQCL.B 

DSSK..BNEQU M 

OSSK^BNEQj 

DSSK„BNEQ M 

DSSK„BNERfiOR 

DSSK^BVCJi 

DSSK BVS M 

OSSKlDS 3TARTIN6.LOCATI0N 

DSSKJ>RlNTB 

DSSK PRINTF 

DSSK^PRINT] 

DSSK PRINTX 

DSSK"*TYPEJ\BORT,PROGRAM 

DSSK TYPE ABORT TEST 

DSSOYPE~COMMARD ERR 

DSSK„TYPE„COMMAND OUT 

DSSK.TYPE.CRD AUTOTEST 

DSSKJYPEJ)S_PROMPT 

DS$K_TYPEJ>S START 

DSSKJYPEJRRDEV 

DSSK.TYPE..ERRHARD 

DSSKJYPE ERROR BODY 

DSSK„TYPE_ERRQR END 

DSSKJYPE..ERRPREP 

DSSK TYPE ERRSOFT 

DSSK^TYPElERRSUP 

DSSK TYPE.ERRSYS 

DSSKlTYPE^ERR HALT 

DSSKJYPE EXCEPTION 

DSSKJYPEJXCEPTION HEAD 

DSSK TYPE FIRST PASS 

DSSKlTYPElGENERSL 

DSSK TYPE GENERAL ERROR 

DSSOYPElNO TEST5 

DSSKJYPE..PARAM ERROR 

DSSK TYPE PROGRAM END 

DSSK~TYPE"PROGRAM"INFO 

DSSK"TYPE""PROGRAM""$TART 

DS$K~TYPE"QIO INWfoP 

DSSK^TYPE.QIOlNODRIVER 

DSSK_TYPE_QIO_WRONGVER 



00000006 
00000012 
00000009 
00000015 
00000008 
00000014 
00000025 
00000024 
00000003 
OOOOOOOF 
00000002 
OOOOOOOE 
00000001 
OOOOOOOD 
00000000 

oooooooc 

0000000B 
00000017 
OOOOOOOA 
00000016 
00000027 
00000019 
00000018 
00010000 
00000002 
00000001 
00000000 
00000003 
00000014 
00000013 
00000015 
00000016 
0000001A 
00000001 
0000001 D 
00000008 
00000006 
00000009 
OOOOOOOA 
000000 18 
00000007 
00000004 
00000005 
OOOOOOOD 
OOOOOOOC 
00000008 
0000001 1 
00000000 
00000003 
00000012 
0000001 c 
00000010 
0000017 
OOOOOOF 
00000024 
00000022 
00000023 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



dssk.type.script.echo 
dssk type script pnf 

ds$Oype!script;prompt 

DSSKlTYPElSCRIPT SKIP 

DSSK.JYPE SEQUENCE ERROR 

DSSK.TYPE^START^ERR 

DSSKJYPE_START LIST 

DSSK TYPE.SUMMARY 

DSSK~TYPE USER.PROMPT 

DSSM w ABRTFLG 

D$SM_BADTIME 

DSSM.BATCH 

DSSM BRKCLR 

DSSM^BRKPT 

DSSM,CHARFLG 

DSSM CMDFLG 

DSSMlCTRLC 

DSSM.CTRLO 

DSSM DEVFLG 

DS$M„DISAGLCC 

DSSM DONFLG 

DSSM ERRFLG 

DSSMJXCEPT 

DSSMJXETST 

DSSM HLTFLG 

DSSMJ.ODFLG 

DSSMlMEMMGT 

DSSM^OUTPUT 

DSSMlRUBFLG 

DS$M„SCRIPT 

DSSM^SETIMR 

DSSM STRFLG 

D$SM_SUBT 

DSSM.SYSFLG 

DSSM TIMRON 

DSSSOMMARY 

DSSV^ABRTFLG 

DSSV..BADTIME 

DSSV„BATCH 

DSSV^BRKCLR 

DSSV^BRKPT 

DSSV^CHARFLG 

DSSV^CMDFLG 

DSSV^CTRLC 

DSSV.CTRLO 

DSSV^DEVFLG 

DSSVlDISABLCC 

DSSV_DONFLG 

DSSV ERRFLG 

DSSVlEXCEPT 

DSSVJXETST 

DSSV^HLTFLG 

DSSVlLODFLG 

DSSVJ1EMMGT 

DSSV.OUTPUT 

DSSV^RUBFLG 

DS$V_SCRIPT 



00000021 
0000001 E 
00000020 
0000001 F 
00000019 
00000018 
00000025 
OOOOOOOE 
00000002 
00000040 
00100000 
00400000 
00001000 
00000800 
00000100 
00000080 
00000001 
00010000 
00000200 
01000000 
00002000 
00000010 
00080000 
00040000 
00000008 
00000002 
00008000 
00800000 
00000020 
00200000 
02000000 
00000004 
00004000 
00000400 

00020000 
******** 

00000006 
00000014 
00000016 
OOOOOOOC 
00000008 
00000008 
00000007 
00000000 
00000010 
00000009 
00000018 
KJOOOOOD 
10004 



= 00 




04 



ZZ-ENSAA-7,0 
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2 
27-JUL-1984 Fiche 6 Frame D2 Seguence 1046 

*** DJSPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 12 

23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINTJDISPAT.MAR;134<1) 



DSSV SETIMR 

DSSV.STRFLG 

DSSV.SUBT 

0S$V SYSFLG 

DS$V~T1MR0N 

DSA$JL_APTMAIL 

DSASAT APTTXT 

DSASGL~APTCOM 

DSASGLlDEVLEN 

DSA$GL_ERRNO 

DSASGL.EVENT 

DSASGL.FLAGS 

DSASGLJ1SGTYP 

D$A$6LJ>ASSES 

DSASGL_PASSNO 

DSASGL.SECTNO 

DSA$GL_SID 

DSASGL^SUBTNO 

DSASGL TESTNO 

DSASGLJJNITS 

DSA$GQ MS6PTR 

DSASGT DEVNAM 

DSASV.PASSO 

DSASV..QA 

DSASV.SEARCH 

DSASV„TRACE 

DSASVJJSER 

DSPSA..BASE 

DSPSA DATA 

DSPSA'MSG 

DSP$A"TEST 

DSPSK^SIZE 

DSPSQ SECTION 

DSQA$Rj)ISPATJ\FTER IN! T 

DSQASK J>ISPAT„8EF0RE INN 
DSQASK J)I SPAT CALLTE5T 
DSQASK DJSPAT DONE TESTS 
DSQA$0>ISPAT.,DSX$ENDPASS_BGN 
DSQASK„DiSPAT DSXSENDPASS^END 
DSQASK J)I SPAT J)SX$ENDPASS MID 
DSQA$K„DISPAT..DS^CLEANUPjGN 
DSQASK DJSPAT DS_CLEANUP END 
DSQASK DUMMY T 
DSQASK~ERROR"ERROR BGN 
DSQASlTERRORlERRORlEND 
DSQA$K„KERNEr INN CONTEXT 
DSQASK_L00P D5X$8GRSUB 

dsqa$k_l00pj)sx$ckl00p 
dsqask..l00p dsxsendsu8 
dsqask parar dsxsgetaddress 
dsqask;param„dsxsgetdata 
dsqask~param"dsxsgetlogical 
dsqa$k w param.d5x$getstring 
dsqask.param dsxsgetvield 
dsqask,qa dsesbranch 
dsqask_stjrt before header 

DSQASK START_VRRESTflRT 



00000019 

00000002 

OOOOOOOE 

0O00OO0A 

00000011 

0000FE00 

0000FA00 

0000FE04 

0000FE58 

OOO0FE4A 

OOO0FE48 

OOOOFEOO 

OO00FE40 

O000FE08 

0000FE54 

0000FE10 

0000FE14 

0000FE4C 

OOO0FE5O 

OOOOFEOC 

0000FE68 

0000FE5C 

0000001 D 

OOOOOOOF 

OOOOOOOE 

OOOOOOOA 

0000001 c 

00000000 

00000008 

00000004 

oooooooc 

00000018 
00000010 
00000014 
00000013 
00000015 
00000018 
00000001 
00000002 
00000000 
00000003 
00000004 
00000007 
00000006 
00000005 
00000008 
00000009 
00000008 
OOOOOOOA 
OOOOOOOE 
OOOOOOOC 
OOOOOOOF 
00000010 
OOOOOOOD 
00000011 
C0000017 
00000012 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



DSQASK START VRSTART 

DSRSCHECKLOAD 

DSRSFIND USER PC 

DSRSMMENJBLE 

DSX$D0SUMMARY 

DSXSENDPASS 

DSXSENDPASS.X 

DSXSPRINT 

DS.CLEANUP 

DS ERRSUP 

ENVSM.DOMAIN 

ENVSM^LEVEL 

ENVSM SUPER 

ENV$S„DOMAIN 

ENVSS.LEVEL 

ENV*S_SUPER 

ENVSV.DOMAIN 

ENVSV..LEVEL 

ENVSV SUPER 

ENVSjPU 

ENVS.FUNCTIONAL 

ENVMEPAIR 

EM$ SUPER 

ENVS SYSTEM 

EXES5B CPUTYPE 

FALSE 

FIRSTTEST 

FMTLSTPAS 

FMfPASONE 

FMTSEARCH 

FMTTRACE 

FMT„NODIAG 

FMT.SHOWSTATUS 

FMT_SHQWSTATUS_NO PC 

FMT SUMMARY 

JNlT CONTEXT 

IOCS* IOSPACE 

KB, CHECK 

LSJ,CCP 

LSA DEVP 

L$A_DREG 

l$a:dtp 

LSAJCP 

L$A_LASTADR 

L$A_NAME 

LSA.REPP 

LSA SECNAM 

LSA STATAB 

LSA TSTCNT 

LSLJNV1R0N 

LSLlERRTYP 

LSL^HEADLENGTH 

L$L_REV 

LSLJJNIT 

LSL.UNUSED 

LSL.UPDATE 

OFF 



= 00000016 I 

******** X 

******** x 

******** x 

0000042D 
000002AO 
0000035A 

******** 

0000036A 
******** 

= 00000002 
= 00000001 
= 000003FC 
= 00000001 
s 00000001 
= 00000008 
= 00000001 
= 00000000 
s 00000002 
= 00000000 
= 00000000 
= 00000001 
= 00000001 

= 00000001 

******** 

= 00000000 
00000032 
00000065 
0000002A 
0O0OOOB2 
OOOOOOEA 
00000274 
000001 FA 
000001 8F 
OOOOOOFA 
******** x 
******** x 
******** x 
00000240 
0000021 C 
00000224 
00000218 
0000023C 
00000214 
00000208 
00Q0Q244 



I00250 
I00248 
I0Q254 
►00204 
I0024C 
700 
!0C 



00000210 
00000000 



04 

04 

04 

RG D 04 

RG D 04 

R D 04 

X 04 

RG D 04 

X 04 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
X 04 

D 
R D 04 
R D 03 
R D 03 
R D 03 
R D 03 
R D 03 
R D 
R D 
R D 



03 
03 
03 
04 
0* 
04 



ZZ-ENSAA-7.0 
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ON 

pr$ sid typ730 
qasSob Check state 
qa$aob~flags~ 
qa$k_abort now 
qa$kj\ptj>aase_one 
qa$kj\pt phase two 
qa$k bad address 
qa$k,control c cont 
qa$kj)ealloc*tton 
qa$kjrror_phase one 
qa$k error_phase~three 
qa$k error phase two 
qaskjailure 
qask first branch code 
qa$k first'time " 
qask^initjontext donl 
qa$k_last_branchcode 

QA$KJ_00PJ)N_SUBTEST 
QASK..L00P..0N TEST 
QASKJ.OOP TEST DONE 
QASKJIEMORY MAflAGE 

qaskjwltipCe.pass 
qa$k_nodef 
qask.n0rmal start 
qa$k no heaber 
qa$k"nuRberj)f_checks 
gaskjjumber qa flags 

QA$K NUMB R0UTTNE„STATES 

QA$K QA DEBUG 

QA$KlQA"DONE 

QA$K_RUR BACKWARDS 

QA$K SECTION 

QA$K SUCCESS 

QASMJlN 

qasv^check^done 

qa$v_doing_cleanup 

qa$v_error found 

qa$vjnjtj50ne 

qa$w save last 

qiosCleanOp 

rmsscleanup 

SCB^BASE 

SEPJUNCTIONAL 

SEP REPAIR 

SIZT,. 

SYSSCANTIM 

TRUE 

TSTSMCHK 

T^NOEXE 

T TSTABO 

VRRESTART 

VRSHOWSTATUS 

VRSUMMARY 



** DISPAT 


Diagnostic 


00000001 


D 




00000003 


D 




******** 


X 


04 


******** 


X 


04 


00000007 


D 




OOOOOOOB 


D 




0000000C 


D 




00000009 


D 




OOOOOOOA 


D 




OOOOOOOE 


D 




00000005 


D 




00000007 


D 




00000006 


D 




00000000 


D 




oooocooo 


D 




00000005 


D 




00000003 


D 




00000025 


D 




00000003 


D 




00000002 


D 




00000004 


D 




OOOOOOOD 


D 




00000001 


D 




00000000 


D 




00000000 


D 




00000006 


D 




OOOOOOOF 


D 




00000008 


D 




00000004 


D 




00000001 


D 




00000002 


D 




00000004 


D 




00000008 


D 




00000001 


D 




******** 


X 


04 


00000003 


D 




00000002 


D 




00000001 


D 




00000000 


D 




******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


00000002 


D 




00000003 


D 




00000001 


D 




******** 


GX 


04 


00000001 


D 




******** 


X 


04 


00000009 R D 


03 


00000290 R D 


03 


******** 


X 


04 


00000487 


RG D 


04 


0000043F 


RG D 


04 



test 
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F 2 

27-JUL-1984 Fiche 6 Frame F2 Seguence 1048 
*** DJSPAT Diagnostic test sequence cont 27-JUL-1984 15'15:14 VAX-11 Macro V03-01 Page 34 
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PSECT name 

ABS . 
SABSS 
WORK 
DATA 
CODE 



Allocation 

oooooooo" 

OOOOFE70 
00000008 
00000298 
00000586 



! Psect synopsis ! 

PSECT No. Attributes 

( 0.) 00 ( OJ NOP1C USR 

(65136.) 01 ( 1.) NOPJC USR 

( 8.) 02 ( 2.) NOPIC USR 

( 667.) 03 ( 3.) NOPIC USR 

( 1414.) 04 ( 4.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC LONG 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.0 

D1SPAT 

Cross reference 



Cross reference 



*** OISPAT Diagnostic test 



G 

27-JUl- 
sequence cone 



SYMBOL 
$$N 



S$T1 
$ER 

SMODUI.E 

APC$ ABORT 

APCITCONTINUE 

APC$ DUMP 

APCS'NOP 

APC$~START 

APC$"*ZERO 

APM$ ABTDON 

APM$~DEVERR 

APM$_DQNE 

APMSJXCEPT 

APM$ HARDERR 

APM$lMORE 

APM$ NOMES 

APM$"PREPERR 

APM$~PRGERR 

APMSlSOFTERR 

APM$„SP00L 

APM$ SYSERR 

A^DATAPTR 

A TESTPTR 

BEGIN 

BIT,.. 

CALLTEST 

CEPJUNCTJONAL 

CEP REPAIR 

CLlSlC.BUFSIZ 

CLI$K_SIZE 

Cl I HEADDRESS 

CL I $L_ COMMAND 

CU$L„DATA 

CLI$L w FLAGS 

CLISL^LAST 

CLISL.NEXT 

CLISL^PASS 

CLJ$l_SUBT 

CLISL.TEST 

CU$Q_8UFQWD 

CUSCTFILE 

CLISQ SECTION 

CLISG'TIME 

CLI$reUFFER 

CU*V_ADAPTER 



'84 Fiche 6 Frame 62 Seguence 1049 
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VALUb 
=00000001 



=00000001 

=00000002 

00000000-R 

=00000006 

:00000009 

=00000003 

=00000000 

=00000005 

:00000004 

=00000006 

=00000002 

=0000000A 

=00000008 

=00000003 

=00000008 

=00000000 

:00OOOO0C 

=00000005 

^00000004 

=00000009 

=00000001 

00000004-R 

00000000-R 
00000000-XR 
=00000004 

00000078-R 

'00000000 

=00000001 

=00000100 

00000444 

00000018 

00000004 

C000001C 

00000000 

00000024 

00000030 

0000QQ2C 

00000028 

ta 

0Q00QQ0I 
0000001 
0000043C 
0000003C 
=00000018 



Symbo 



DEFJNIT 



767 



604 
316 
184 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
163 
179 

178 

169 

290 
160 
160 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 



Cross Reference ! 

,—— — — — ....„.+ 



ON 



1) 



REFERENCES. 



332 

533 
748 
604 
#-316 
316 



#-541 



#-335 

#-398 

#-309 

543 

160 

169 

#-287 



164 



#-437 



#-432 
#-435 



373 

552 
762 



(1) 
Ci) 
(1) 



#-385 

684 

#-767 



(1) 
(1) 
(1) 



#-482 
#-690 



(1) 
(1) 



(1) 



345 


(1) 


#-394 


(1) 


#-397 


(1) 


346 


(1) 










165 


(1) 


167 


(1) 


168 


(1) 


#-445 


(1) 


#-453 


(1) 


#-463 


(1) 



(1) 



(1) 



(1) 
(1) 



ZZ-ENSAA-7.0 Cross 


reference 




H 

27-JUl 


2 

.-1984 Fiche 6 Frame H2 Sequence 1050 


DISPAT 


*** DISPAT D 


iagnostic 


test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 36 


Cross reference 
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CL1SV.ADR 


=0OO000OB 


164 r 






CLISVJVSCli 


=00000013 


164 (' 






CLISV..BREAK 


=00O000OA 


164 r 






CLISV„BRIEF 


=0000001 B 


164 C 






CLISV„BYTE 


=00O000OD 


164 C 






Ci.lSV^CLEAR 


=00000002 


164 V 






CLISV.DEC 


=00000010 


164 (' 






CLISV DEFAULT 


=00OO0OOC 


164 r 






CLISV_DEPCSIT 


=00000019 


164 C 






CLISV J: VENT 


=00000008 


164 (' 






CLISVJXAM 


=00000005 


164 c 






CLiSVJLAGS 


=00000009 


164 C 






CLISV HEX 


=00000012 


164 r 






CLISVlKERNEL 


=00000017 


164 C 






CLISV,LOAD 


=00000006 


164 C 






CLlSV„L0NG 


=0OO000OF 


164 C 






CLISV.NOTNUF 


=00000001 
=0000001 1 


164 C 






CLISV JDCT 


164 C 






CLISV J>REG 


=0000001 A 


164 C 






CLISVJ3A 


=00000007 


164 (' 






CLISV^QACKLOOPLOOPS 


=0000001 c 


164 r 






CLISV..QAERRORPRINTS 


=00000018 


164 C 






CLISV QAMULTIPLEPASS 


=0000001 F 


164 C 






CLISVJ3ASUBTESTL00PS 


=0000001 E 


164 < 






CLUA/..QATESTLOOPS 


=00000010 


164 (' 






CLISV^REG 


=00000014 


164 ( 






CLISVJIEQUIRED 


=00000000 


164 ( 






CLISV..RUN 


=00000015 


164 ( 






CLISV.SET 


=00000003 
=00000004 


164 ( 






CLISV^SHOW 


164 ( 






CLISV. VALSEC 


=00000016 


164 C 






CLISV WORD 


=00O000OE 


164 r 






DISPATCH 


00000000-R 


256 ( 






DISPATCH X 


0000029F-R 


484 (' 


1) #-317 V 




display Summary 


0OO004A9-R 


693 ( 


I) #-665 <* 


1) #-685 (1) 


dsscntrCc 


00000000-XR 




603 C 




DSSGA CHKLPPC 


00000000-XR 




#-337 C 




DSSGB..MM ENB 


OOOQQQOQ-XR 
00000000-XR 




#-628 C 




DSSGB TYPECODE 




#-664 r 


I) #-695 (1) 


DSSGL^CLIBASE 


00000000-XR 




431 C 




DSSGL.DEVERR.COUNT 


OOQOQQQO-XR 
00000000-XR 




#-261 (' 


I) #-684 (1) 


DSSGL..ERRCNT 




#-257 (' 


1) #-533 (1) #-552 (1) #-684 (1) 








#-748 r 


I) #-762 (1) 


DSSGL.ERRSUP.COUNT 


00000000-XR 




#-262 (' 


I) #-684 (1) 


DSSGL. FLAGS 


00000000-XR 




297 (' 


I) 339 (1) 353 (1) 354 (1) 








361 r 
525 C 
596 r 


I) 471 (1) 472 (1) 522 (1) 
I) 540 (1) 590 (1) 593 (1) 
I) 601 (1) 


DSSGLJSTTEST 


00000000-XR 




#-280 ( 


I) #-363 (1) #-436 (1) #-450 (1) 


DSSGL HARDERR COUNT 


00000000-XR 




#-258 (' 


1) #-684 (1) 


DSSGLlLSTTEST" 


00000000-XR 




#-362 C 


I) #-364 (1) #-373 (1) #-438 (1) 








#-462 ( 




DSSGL SOFTERR„COUNT 


0QQ9&OQQ- XR 

00000000-XR 




#-259 ( 


I) #-684 (1) 


DSSGLlSUBTEST 




#-433 ( 




DSSGL SYSERRJOUNT 


OOOOUOOO-XR 




#-260 (* 


I) #-684 (1) 


DSSINTTSCB 


OOOOOQOO-XR 
=00000010 




626 (' 


I) 


DSSK.BBC 


168 (1) 















^-ENSAA-7.0 

DISPAT 

Cross reference 



Cross reference 



DS*K BBCC 
OSSKlBBCCI 
DS$K BBCS 

DSSK BBS 
0SSK,BBSC 
OSSK BBSS 
DSSK"BBSS1 
DSSK BCC M 
DS$OCS~M 
DS$K„BEQ[U_B 
DSlK BEQLU M 
OSSK.BEQLj 
DSSK..BEQL M 
DSM_BERR0R 
DSSK^BGEQU^B 
DSSK..BGEOU M 
DS*k BGEQ..B 
OSSK^BGEQ M 
DS*K_BGTRCLB 
OSSK.BGTRU M 
DSSK^BGTR^B 
DStK BGTR M 
OSSKlBLBC" 
OS$K,BLBS 
DS$K_BLEGU_B 
DS$K BLEQU M 
DS$K„BtEQj3 

ds$k bleq m 
os$OlssD_b 

ds$k„blssum 

DS$K.BtSSj 
OSSK.BLSS M 

DS$K_BNEQ0_B 
DS*K BNEQU M 
OSSK^BNEQ^B 
DS$K„BNEG_M 
OS$K BNERROR 
DS$OVC„M 
DS$K„BVS M 

dssk ds starting location 

dsskIprTntb 

ds$k printf 



ds$k_printi 

ds$k printx 

os$k"type abort program 

os$k""type;abort"tect 

dsskItype.commaRd.err 

ossk type_command out 

ds$k"type crd autdtest 

0S$K"TYPElDS.PftOMPT 

ds$k type os start 

os$k"type"erboev 

ds$k^type;errhard 

DSSlfTYPE ERROR BODY 
OSSK'TYPE^ERRORlENO 



I 2 
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=00000021 
=00000023 
=0000001 F 
=0000001 C 
=00000020 
=0000001 E 
=00000022 
=00000016 
=0000001A 
=00000005 
=00000011 
=00000004 
=00000010 
=00000026 
=00000007 
=00000013 
=00000006 
=00000012 
=00000009 
=00000015 
=00000008 
=00000014 
=00000025 
=00000024 
=00000003 
=0000000f 
=00000002 
=0000000E 
=00000001 
=OOOOOO0D 
=00000000 

^oooooooc 

=00000008 
=00000017 
:OO000O0A 
=00000016 
=00000027 
=00000019 
=00000018 
=00010000 
=00000002 
=00000001 



=00000000 
=00000003 
=00000014 
=00000013 
=00000015 
=00000016 




;0000001 D 
=00000008 
=00000006 
=00000009 
=0000000A 



168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
169 
169 



169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 



168 



(1) 



168 



(1) 



#-332 
#-684 
#-767 
#-385 



#-385 
#-690 
#-748 



(1) 

(1) 
(1) 
(1) 



(1) 
(1) 
(1) 



#-375 
#-690 



(1) 
(1) 



#-533 
#-748 



(1) 
(1) 



#-552 
#-762 



(1) 
(1) 



#-482 (1) 



#-767 
#-762 



(1) 
(1) 



ZZ-ENSAA-7.0 

D1SPAT 

Cross reference 



Cross reference 



dsskjype..errprep 
dssk type errsoft 
dssk~type~errsup 

os$k"type.errsys 

dsskjype.err halt 

dsskjype.excfption 
0s$k typejxception head 
dsskjype..first pass 
dssk type general 
dsskjype„general error 
dssk.typejjo test? 
dssk type param error 
dssk.jypej'rqgrkmjnd 
dssk.jype_programjnfo 
dssk type program start 
ds$Oype!qiojnvAdp 
dsskjype^qiojjodriver 

DSSKJYPEjaiO WRONGVER 
DSSK TYPE SCRlPTJCHO 
DSSrTYPE^SCRlPT^PNF 

dssk_type script prompt 
dssk„type_scrjpt skip 
dsskjype.sequente error 
dssk_type„start err 
dssk type start list 
dssk-type.summaRy 
dsskjype user.prompt 
dssm^abrtFlg 
dssmj9adume 
dssm batch 
dssmIbrkclr 

DSSK^Br.KPT 

DSSM^CHARFLG 

DSSM.CMDFLG 

DSSM„C T RLC 

DSSM^CTRLO 

DSSM^DEVFLG 

DSSM^DISABLCC 

DSSM^DONFLG 

DSSMlERRFLG 

dssm^except 

dssm3exetst 

dssm„hltflg 

dssm^lodflg 

dssm^memmgt 

dssh^output 

dssm„rubflg 

dssm script 

dssm^setimr 

dssm~strflg 

dssm_subt 

dssm^sysflg 

dssm timron 

dsssdmmary 

dssv^abrtflg 

dssv badtime 

dssv'batch 



J 2 
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=0000001B 




=0O000O0B 
=00000011 
=00000000 
=00000003 
=00000012 
»0000001 c 
=00000010 
=00000017 
=0O000C0F 
=00000024 
=00000022 
=00000023 
=00000021 
=0000001 E 
=00000020 
=0000001 F 
=00000019 
=00000018 
=00000075 
=0O000O0E 
=00000002 
=00000040 
=00100000 
=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 
=00000200 
=01000000 
=00002000 
=00000010 
=00080000 
=00040000 
=00000008 
=00000002 
=00008000 
=00800000 
=0^000020 



04 

4000 

ooo 

006 
=00000014 
=00000016 




-XR 



169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
169 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 

165 
165 
165 



#-552 



#-482 

#-533 
#-332 



(1) 



(1) 

(1) 
(1) 



#-373 



(1) 



#-663 



(1) 



#-684 



(1) 



523 



(1) 



ZZ-ENSAA-7,0 

DISPAT 

Cross reference 

ds$v_brkclr 

dssv„brkpt 

ds$vj!harflg 

ds$v_,cmdflg 

dssv^ctrlc 

ds$v_ctrlo 

dssvj)evflg 

dssvjhsablcc 

ds$v„donflg 

ds$v_errflg 

ds$v except 

dssvZexetst 

dssv.hltflg 

dssvj.odflg 

ds$v_memmgt 

dssv.output 

dssvjujbflg 

DSSVlSCRiPT 

DS$V SET1MR 

DSSV.STRFLG 

DS$V_SU6T 

DS$V„SYSFLG 

DS$V TIMRON 

DSASBLJLAGS 

DSASGLJ4SGTYP 
DSASGL^PASSES 

DSA$GL_PASSNO 



DSA$Gl,SECTNO 
DSASGL..SUBTNO 

DSASGL TESTNO 



DSA$V„PASSO 
DSA$V QA 
DSA$V_SEARCH 
DSA$V TRACE 
DSASVlUSER 
DSPSA.BASE 
DSP$A_DATA 
DSP$A,MSG 
DSP$A TEST 
DSPSK.SJZE 
DSP$Q SECTION 
DSQA$R D I SPAT 
DSQASK D J SPAT 
DSQASlTDISPAT 
DSQASK DISPAT 
DSQASK DISFAT 
DSQA$K~DISPAT 
DSQASK^DISPAT 
DSQASK DISPAT 
DSQA$OlSPAr 



Cross reference 



K 2 
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AFTER INIT 
BEFORE INIT 
CALLTEST 
DONE. TESTS 
DSXSENDPASS BGN 
DSXSENDPASS~END 
DSX$ENDPASS~MID 
DS.CLEANUPjGN 
DS.CLEANUP.END 



=0OOQ0O0C 
=00000008 
=00000008 
=00000007 
=00000000 
=00000010 
=00000009 
=00000018 
=OOO00OOD 
=00000004 
=00000013 
=00000012 
=00000003 
=00000001 
=O0OO00OF 
=00000017 
=00000005 
=0000001 5 
=00000019 
=00000002 
=0O0Q0OQE 
=0000000A 
=00000011 
0000FE00 

0000FE40 
0OOOFEO8 

0000FE54 



0000FF10 
0000FE4C 

00OOfE50 



^0000001 D 
=0OOO00OF 
rOOOOOOOE 
=0000000A 
=0000001 c 
00000000 
00000008 
00000004 

oooooooc 

=0000001 8 
00000010 
=00000014 
=00000013 
=0OO0Q015 
=00000018 
=00000001 
=00000002 
=00000000 
=00000003 
^00000004 



165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 



166 
166 
166 
166 
166 
166 
167 
167 
167 
167 
167 
167 
167 
167 
167 



#-540 
#-601 
#-522 


(1) 
(1) 
(1) 


#-525 


(1) 






#-593 
#-297 


(1) 
(1) 


#-596 
#-354 


(1) 
(1) 


#-361 


(1) 


#-353 


(1) 


#-471 


(1) 


#-472 


(1) 



#-590 
#-339 



264 
382 
#-542 
#-365 
#-515 
#-263 
#-533 
#-762 
#-319 
#-275 
#-748 
#-274 
#-362 
#-605 
#-264 
#-408 
#-355 

#-610 
#-314 
#-334 
#-332 
#-308 

-BJ 

#-283 
H-\?7 
#-296 
#-473 
#-513 
#-558 
#-535 
#-599 
#-634 



287 
408 

#-423 
#-518 
#-288 
#-545 

#-730 
#-285 
#-762 
#-281 
ft^22 
#-748 
#-286 
#-536 

#-382 

#-332 



327 
536 


(1) 
(1) 


355 
610 


(1) 

(1) 


#-424 


(1) 


#-430 


(1) 


#-365 
#-554 


(1) 
(1) 


#-519 
#-748 


(1) 
(1) 


#-338 


(1) 


#-606 


(1) 


#-305 
#-452 
#-762 


(1) 
(1) 
(1) 


#-313 
#-463 


(1) 
(1) 



J 



ZZ-ENSAA-7.0 
D1SPAT 

Cross reference 



Cross reference 



*** DISPAT Diagnostic test 



DSQASKJHJMMYJ 

DSQASK ERROR ERROR BGN 

DSQASJCERROrTERRORlEND 

dsqaskjcernecjnit context 
dsqask„l00pj)5xs8grsub 
dsqask„loopj)sxscklqop 
dsqask_l00p dsxsendsub 
dsqask parab dsxsgetaddress 
dsqask"param;dsx$ge tdata 
dsqaskj>aram_dsxsgetlogical 
dsqask param dsxsgetstring 
dsqask~param"dsxsgetvjeld 
dsqaskj3a dsksbranch 
dsqask_st*rt_before header 
dsqask_startj/rrest*rt 
dsqask start vrstart 

DSRSCHECKLOAB 

DSRSFIND USERJ>C 

DSRSMMEN*BLE 

DSXSDOSUMMARY 

DSXSENDPASS 

DSXSENDPASS.X 

DSXSPRINT 



DS CLEANUP 

DS..ERRSUP 

ENVSM.DOMAIN 

ENVSM LEVEL 

ENVSM.SUPER 

ENVSS_DOMAIN 

ENVSS..LEVEL 

ENVSS SUPER 

ENVSVlDOMAIN 

ENVSV LEVEL 

ENVSVlSUPER 

ENVSjPU 

ENVSJUNCTJONAL 

ENVS„REPAIR 

ENVS_SUPER 

ENVS SYSTEM 

EXES58 CPUTYPE 

FALSE " 

FIRSTTEST 

FMTLSTPAS 

FMTPASONE 

FMTSEARCH 

FMTTRACE 

FMT^NODIAG 

FMTJHOWSTATUS 

rMT SHOWSTATUS NO PC 

FMT"SUMMARY " ~ 

JNlT CONTEXT 

IOCSK IOSPACE 

KB CHFCK 

LS* CCP 

LSADTP 



=00000007 

=00000006 

:00000005 

=00000008 

=00000009 

=00000008 

=O00O00OA 

=O0OOO0OE 

=0000000C 

=0O0O000F 

■00000010 

=00000000 

=0000001 1 

:00000017 

:00000C 12 

:00000016 

00000000- 

00000000- 

00000000- 

000004 2D' 

000002A0- 

0000035A- 

00000000- 



0000036A 

00000000 

=00000002 

=00000001 

=000003F C 

=00000001 

=00000001 

=00000008 

=00000001 

=00000000 

=00000002 

=00000000 

'00000000 

=00000001 

'00000001 

'00000001 

00000000 

'00000000 

00000032 

00000065 

0000002A 

000000B2 

000000EA 

00000274 

000001 FA 

00QQQ18F 

000000FA 

00000000 

00000000 

00000000 

00000240 

00000218 



•XR 

•XR 
•XR 

-R 
•R 
•R 
•XR 



•R 
•XR 



-XR 

-R 
•R 
'R 
•R 
•R 
•R 
•R 
•R 
■R 
-XR 
'XR 
•XR 



167 
167 
167 
16? 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 



662 
511 
556 



589 

160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 

168 
266 
192 
189 
196 
199 
221 
215 
209 
202 



(1) 

(1) 
(1) 



(1) 



L 2 
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sequence cont 27-JUL-1984 15:15:14 VAX-11 
23-MAY-1984 14:11:40 



Seguence 1054 

Macro V03-0T Page 40 

DMA1jCSYS0.SYSMAINT]DISPAT.MAR;134<1) 



670 
728 
632 

366 

332 
533 
748 
524 
316 



160 
160 

160 
160 
160 

160 
#-611 

#-474 
533 
552 
373 
332 
690 
748 

684 
526 
614 
560 
608 
307 



(1) 
(1) 
(1) 

(1) 

(1) 
(1) 
(1) 
(1) 
(1) 



720 



(1) 



373 
552 
762 



(1) 
(1) 
O) 



385 
684 
767 



(1) 
(1) 
(1) 



482 
690 



(1) 
(1) 



767 



(1) 



666 



(1) 



ZZ-ENSAA-7.0 Cross referenc 


e 






27- 


M 2 

•JUL-1984 Flche 6 Frame M2 Seauence 1055 


D1SPAT 


*** DISPAT Diagnostic test 


sequencc 


• cont 


27-JUL-1984 15:15:14 VAX-11 Macro V03-0T Page 41 


Cross reference 












23-MAY-1984 14:11:40 DMA1 ;CSYS0.SYS«AINT]DISPAT.«AR;134<1) 


LSAJCP 


0000023C 






279 


(1) 




LSA NAME 


00000208 






#-684 


(1) 


#-748 (1) #-762 (1) 


LSA~REPP 


00000244 






694 


(1) 




LSA'SECNAM 


00000250 






#-731 


(1) 




LSL ENVIRON 


00000204 






621 


(1) 




LSL~REV 


0000020C 






#-684 


(1) 


#-748 (1) #-762 (1) 


LSLJJPDATE 


00000210 






#-684 


(1) 


#-748 (1) #-762 (1) 


OFF 


=00000000 


168 


(1) 








ON 


=00000001 


168 


(1) 








PRS SID TYP730 


=00000003 






#-612 


(1) 




qasSob Check state 


00000000-XR 






412 


(1) 


442 (1) 448 (1) 


QASAOB FLAGS" 


00000000-XR 






444 


(1) 




qask^aBort NOW 


=00000007 


168 










QASK APT PBASE ONfc 


=00000008 


168 










QASK APT'PHASE'TWO 


=0000000C 


168 










QASK^BAD'ADDRESS 


=00000009 


168 










QASK CONTROL C CONT 


=0000000A 


168 










QA$OEALLOC*TTON 


=0000OOOE 


168 










qask_error..phase..one 


=00000005 


168 










QASK ERROR_PHASE_ THREE 


=00000007 


168 










QASK ERROR PHASE TWO 


=00000006 


168 










qask'failuRe 


=00000000 


168 










QASK, FIRST BRANCH.tODE 


=00000000 


168 










QASKJIPST'TIME 


=00000005 


160 










QASKJNHjONTEXT DONE 


=00000003 


168 










QASK LAST BRANCH CODE 


=00000025 


168 










qask^loopIon^subTest 


=00000003 


168 




#-411 


(1) 




QASK LOOP ON TEST 


=00000002 


168 




#-441 


(1) 




QASK"LOOP"TE5T DONE 


=00000004 


168 




#-443 


(1) 




QA$K""MEMORY MANAGE 


=O0O00OOD 


168 










QASKlMULTIPrE.PASS 


=00000001 


168 










QASK NODEF 


=00000000 


168 










QASK'NORMAL START 


=00000000 


168 










QASK>0 HEABFR 


=00000006 


168 










QASK NUMBER OF CHECKS 


=0000000F 


168 










QASK"NUMBER~QA~FLAGS 


=00000008 


168 










QASK~NUMB ROUTINE. STATES 


=00000004 


168 










QASK"QA DEBUG 


=00000001 


168 










QASK~QA~DONE 


=00000002 


168 










QA$K~RUR BACKWARDS 


=00000004 


168 




#-447 


(1) 




QASK~SECTlON 


=00000008 


168 










QASK'SUCIESS 


=00000001 


168 










GASMAlN 


00000000-XR 






277 
513 
634 


0) 
(1) 
(1) 


283 (1) 296 (1) 473 (1) 
535 (1) 558 (1) 599 (1) 


QASV,CHECK,DONE 


=00000003 


168 


(1) 








QASV.DOING..CLEANUP 


=00000002 


168 


(1) 








QASV ERROR FOUND 


=00000001 


168 


(1) 








QASVJNITjONE 


=00000000 


168 


(1) 








QASW SAVE LAST 


00000000-XR 






#-426 


(1) 




qio$CleanDp 


00000000-XR 






624 


(1) 




RMSSCLEANUP 


00000000-XR 






627 


(1) 




SCB.BASE 


00000000-XR 






615 


(1) 




SEP FUNCTIONAL 


=00000002 


160 


(1) 


#-622 


(1) 




SCP'REPAIR 


=00000003 


160 


(1) 








SI77.. 


=00000001 


165 


(1) 


160 


M) 


h'5 (1) 


SYSSCANTJM 


00000000-XR 






604 


(1) 





N 2 

ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Ffche 6 Frame N2 Seguence 1056 

01SPAT *** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page 42 

Cross reference 23-MAY-1984 14:11:40 W«A1 ;CGYS0.SYSMAINT2DJSPAT.MAR;134(1 ) 

TRUE =00000001 163 (1) 

TST$MCHK 00000000-XR 617 (1) 

TJ4QEXE 00000009-R 186 <1) 482 (1) 

T"TSTAB0 00000290-R 224 (1) 385 (1) 

VRRESTART 00000000-XR 537 (1) 

VRSHOWSTATUS 000004B7-R 719 (1) 

VRSUMMARY 0000043F-R 669 (I) 



ZZ-ENSAA-7.0 

D1SPAT 

Cross reference 



Cross reference 



MACRO 

SCANT1M S 
SDI^PRlflT.S 



SDEF 

SDEF1NI 

$0S CNTRLC.S 

$DS„DSADEF 

SDS.ENVDEF 

SDS.HDRDEF 

SDSJMDEF 

SOS SUMMARY S 

SOSlTYPEDEF 

$EQU 

SEQULS1 

SEQULST 

SGBLINI 

SPRDEF 
SPRINT 



SPUSHADR 

SPUSHTWO 

SV1ELD 

SVIELD1 

APTDEF 

br if not donflg 
br:if;not"errflg 
br if not exetst 
br~if~not~qa 

BR"lF~NOrSEARCH 

BR"IF"N0T'TRACE 

BR"IF~QA " 

BR~IF"STRFLG 

BR'IF^USER 

CLEAR CTRLC 

CLEAR^CTRLO 

CLEAR ERRFLG 

CLEAR"EXETST 

CLEAR'SUBT 

CLIDEF 

OSFOEF 

OSPOEF 

OSQA 

OS QADEFS 

ERRSUP S 

MODNAM~ 

OA MAIN 



B 3 
27-JUL-1984 Fiche 6 Frame 83 Seguence 1057 

*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15 :U VAX-11 Macro V03-0? Page 43 

23-MAY-1984 14:11 :40 DMA1 : CSYSO.SYSMAJNTDDISPAT.MAR; 1 2W (1 ) 

! Macros Cross Reference .' 

+.... •••• — — + 



SIZE 


DEFINITION 


REFERENCES... 












1 


604 (1) 


604 (1 






1 


332 (1) 


332 (1 


) 373 


(1) 


385 


(1) 


482 


(1) 






533 (1 


) 552 


(1) 


684 


(1) 


690 


(1) 






748 (1 


) 762 


(1) 


767 


(1) 






1 


169 (1) 
















1 


159 (1) 


159 (1 


) 161 


(1) 


162 


(1) 






1 


603 (1) 


603 r 














5 


161 (1) 


161 (1 














2 


160 (1) 


160 r 














2 


162 (1) 


162 (1 














2 


168 (1) 


168 r 














1 


523 (1) 


523 c 














4 


169 (1) 


169 C 














1 


169 (1) 


160 r 


) 167 


<1> 


168 


(1) 


169 


(1) 


1 


169 (1) 


160 C 


) 167 


(1) 


168 


(1) 


169 


(1) 


1 


160 (1) 


160 C 


) 167 


(1) 


168 


(1) 


169 


(1) 


2 




160 r 
169 r 


I) 165 


(1) 


167 


(1) 


168 


(1) 


4 


159 (1) 


159 r 














2 


328 (1) 


328 c 


) 369 


(1) 


383 


(1) 


480 


(1) 






528 r 


I) 548 


(1) 


673 


(1) 


688 


(1) 






736 r 


I) 751 


(1) 


765 


(1) 






1 


316 (1) 


316 C 


I) 603 


(1) 










1 


604 (1) 


604 (' 














1 


160 (1) 


160 C 


) 165 


(1) 










1 


169 (1) 


160 c 


) 165 


(1) 










1 


163 (1) 


163 C 














1 


593 (1) 


593 r 














1 


354 (1) 


354 c 














1 


471 (1) 


471 (' 














1 


536 (1) 


536 c 














1 


355 (1) 


355 r 














1 


327 (1) 


327 C 


) 382 


(1) 










1 


408 (1) 


408 r 














1 


590 (1) 


590 r 














1 


610 (1) 


610 r 














1 


601 (1) 


601 r 














1 


522 (1) 


522 C 
297 C 


I) 525 


<1) 










1 


297 (1) 


!) 361 


(1) 










1 


472 (1) 


472 C 














1 


339 (1) 


339 r 














3 


164 (1) 


1 64 ( ' 














3 


165 (1) 


165 r 














1 


166 (D 

167 (1) 


166 r 

167 C 














2 














6 


168 (1) 


168 (' 














1 


316 (1) 


316 C 














1 


184 (1) 


184 ( 














1 


277 (1) 


277 V 


I) 283 


(1) 


296 


(1) 


473 


(1) 






513 (' 


!) 535 


(1) 


558 


(1) 


599 


(1) 

i 

i 



ZZ-ENSAA-7.0 

01SPAT 

Cross reference 



SET^CMDFLG 
SET DONFLG 
SETEXETST 
SEOASSO 



Cross reference 



C 3 
27-JUL-1984 Fiche 6 Frame C3 Seguence 1058 
*** DISPAT Diagnostic test sequence cont 27-JUL-1984 15:15:14 VAX-11 Macro V03-01 Page 44 

23-MAY-1984 14:11:40 DMA1 :CSYS0.SYSMAINT3DISPAT,MAR;134(1) 



540 

596 
353 
264 



(1) 
(1) 
(1) 
(1) 



634 
540 
596 
353 
264 



! Performance indicators ! 
+ — — — • •+ 



Phase 



Page faults 


CPU Time 


Elapsed Time 


32 


00:00:00-11 


00:00:00.25 


142 


00:00:00.75 


00:00:01.92 


885 


00:00:14.14 


00:00:20.55 





00:00:00.75 


00:00:00.90 


229 


00:00:02.91 


00:00:03.65 


50 


00:00:00.34 


00:00:00.67 


7 


00:00:00.02 


00:00:00.03 


119 


00:00:01.76 


00:00:02.70 


1468 


00;00:20.80 


00:00:30.69 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working sec limit was 1000 pages. 

79721 bytes (156 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 523 non-local and 43 local symbols, 

769 source lines were read in Pass 1, producing object records in Pass 2. 

118 pages of virtual memory were used to define 48 macros. 

+-™™™ + 

! Macro library statistics ! 
+-™- m ™-+ 



Macro I ibrary name 

0RB1 :d>S.WORK]DIAG.MLB;955 
DRB1:CDS. WORLDS. MLB;218 
SYS$SYSR00T:CSYSLIBJL18.MLB:1 
DMA1:[SYS0.SYSMAiNT3DS.MlB;218 
DMA1:CSYS0.SYSMAINT3DIAG,MLB;953 
SYSSSYSROOT : CSVSL IB3LIB.MLB; 1 
SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

~1 
28 




9 
45 



769 GETS were required to define 45 macros. 

There were no errors, warnings or information messages. 

MACaO/NOOBJECT/UST=[DS,U$J/CROSS/ENABLE = <DEBUG, TRACE) 0JSPAT/UP0A=(DJSPAT.UPD,DISPAT.ENH)+SYS$L1BRARY:L1B/LIBRARY+DMA1 : CSYSO.SYSMAJ 



ZZ-ENSAA-7.0 

DLBTDR1VR 

fable of contents 



- RL01/2 BOOT 



DRIVER 
- RL01/2 



BOOT DRIVER 



D 3 

27-JUL-1984 Fiche 6 Frame D3 

27-JUL-1984 15:1 5 j46 VAX-11 Macro 



Sequence 
V03-0T 



1059 
Page 







(2) 
(3) 



46 
132 



DECLARATIONS 

RL01/2 Bootstrap driver code 



ZZ-ENSAA-7.0 

DLBTDRIVR 

V02-002 



- RL01/2 BOOT DRIVER 

- RL01/2 BOOT DRIVER 



OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



.TITLE 
.IDENT 



E 3 

27-JUL-1984 Fiche 6 Fra,r.e E3 Sequence 1060 

27-JUL-1984 15:15:46 VAX-11 Macro V03-01 Page 1 
3-MAR-1931 10:29:00 DMA1 jCSYS0.SYSHA1NTMBTDRIVR.BAR; (1) 

DLBTDRIVR - RL0'j/2 BOOT DRIVER 
'V02-002' 



****************** ***********v,******************** ****** ****** ************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

■ * 



COPYRIGHT (c) 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LiCF.NSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



* ******************************************************************** ******* 



FACILITY: 



BOOTS 



ABSTRACT: 

This module contains the bootstrap device driv/er for 
the RL01/2 disks. 

ENVIRONMENT: IPL 31, kernel mode, code must be PIC 

AUTHOR: Steve b^ckhardt, CREATION DATE: 31-Oct-1979 
(Original author: Charlie Franks) 



MODIFIED BY: 
02-02 



CAS0001 C.A. Samuc-lson 30-Apr-1980 
Change interface to BOOTDRIVR for purge of UBA datapath 



ZZ-ENSAA-7.0 DECLARATIONS 








F 3 
27-JUL-1984 




: iche 6 Frame F3 Seauence 1061 


DLBTDR1VR 


- RL01/2 BOOT DRIVER 




27-JUL- 


-1984 


15: 


15:46 VAX-11 Mdcro V03-0T Paae 2 
29:00 DMA1:CSYS0.SYSMAINT]DLBTDRIVR.MAR;(2) 


V02-002 


DECLARATIONS 






3-MAR 


-1981 


10j 




OOOO 


46 




.SBTTL 


DECLARATIONS 










0000 


47 , 
















0000 


48 , 


INCLUDE FILES 












0000 


49 , 
















0000 


50 
















0000 


51 




SBTDDEF 








; Boot device types 




0000 


52 




SIODEF 








; I/O function codes 




0000 


53 




5RPBDEF 








; RP8 offsets 




0000 


54 




%SS\)Ef 








; Status code? 




0000 


55 




$UBADEF 








; UBA definitions 




0000 


56 




SUBIDEF 








; 11/750 UBA definitions 




0000 


57 
















0000 


58 , 
















0000 


59 , 


• MACROS: 












cooo 


60 , 
















0000 


61 
















0000 


62 t 
















0000 


63 , 


• EQUATED SYMBOLS j 










0000 


64 4 
















0000 


65 
















0000 


66 


• RL11/RL02 CONTROLLER REGISTER 


OFFSETS 






0000 


67 
















0000 


68 
















0000 


69 




SDEFINI 


RL 






;START OF REGISTER DEFINITIONS 




0000 


70 
















0000 


71 < 


&DEF 


RL CS 


.BLKW 


1 




/CONTROL STATUS REGISTER (CSR) 




0002 


72 




_VTELD 


RL CS^o- 






;START OF CSS BIT DEFINITIONS 




0002 


73 






^RDY^M^- 






; DRIVER RLADY 




0002 


74 






^CODE^,- 






; FUNCTION CODF 




0002 


75 






<XBA,2>,- 






; BUS ADDRESS EXTENSION BITS 




0002 


76 






<IE,,M>,- 






; INTERRUPT ENABLE 




0002 


77 






<CRDY,,M>,- 






; CONTROLLER RnADY 




0002 


78 






<DS,2>,- 






; DRIVE SELFCT 




0002 


79 






<OP A ,,M>,- 






; OPERATION INCCSPifcTE 




0002 


80 






<CRC,,M>,- 






; DATA CRC OR HEADER CRC 




0002 


81 






<DLT,,M>,- 






; DATm LATE Oft HEADER NOT FOUND 




0002 


82 






<NXM,,M>,- 






; NON-EXISTENT MEMORY 




0002 


83 






<DE,,M>,- 






; DRIVE ERROR 




0002 


84 






<CE,,M>- 






; COMPOSITE ERROR 




0002 


85 




> 








;END CSR BIT DEFINITIONS 




0002 


86 
















0002 


87 < 


5DEF 


RL.8A 


♦ BLKW 


1 




;BUS ADDRESS REGISTER (BAR) 




0004 


88 
















0004 


89 


&DEF 


RL DA 


• BLKW 


1 




;DISK ADDRESS REGISTER (DAR) 




0006 


90 




_V7ELD 


RL DA^^- 






;START OF DAR BIT DEFINITIONS 




0006 


91 






CMRK^M^- 






; MARK (ALWAYS 1) 




0006 


92 






^TS,^,- 






; GET STATUS 




0006 


93 






<,!>,- 






; RESERVED BIT 




0006 


94 






<RST,,M>,- 






; RESET 




0006 


95 






<J2>- 






; RESERVED 8MS 




0006 


96 




> 








;END OF DAR BIT DEFINITIONS 




0006 


97 
















0006 


98 


SDEF 


RL MP 


.BLKW 


1 




/MULTIPURPOSE ROISTER (MPR) 




0008 


99 




.VlELD 


RL „MP,0,<- 
<STA,3>,- 






;START OF NPR BIT DEFINITIONS 




0008 


100 










; DRIVE STATE 




0008 


101 






<8H,,M>,- 






; BRUSH HOME 




0008 


102 






<HO,,M>,- 






; HEADS OUT 





















ZZ-ENSAA-7,0 

OLBTORIVR 

VOP-Q02 



DECLARATIONS 



- RL01/2 BOOT DRIVER 
DECLARATIONS 



6 3 

27-JUL-1984 p iche 6 Frame GZ Sequence 1062 

27-JUL-198* 15:15:46 VAX-11 Macro V03-01 Page 3 
3-MAR-1981 10:29:00 DMA1 :CSYS0,SY5MAINT3DLBTDRIVR.WAR; (2) 



0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 



<C0,,M>,- 

<HS,,M>,- 

<TYP,,M>,- 

<DSE,,M>,- 

<VC,,M>,- 

<WGE,,M>,- 

<SPE,,M>,- 

<SKT0,,MV 

<WL,,M>,- 

<CHE,,M>,~ 

<WDE,,M>- 



SDEFEND RL 



OWN STORAGE: 



Boot driver table entry 



COVER OPEN 
HEAD SELECT 
DRIVE TYPE 
DRIVE SELECT ERROR 
VOLUME CHECK 
WRITE GATE fiRROR 
SPIN ERROR 
SEEK TIME OUT 
WRITE LOCK 
CURRENT HEAD tRROH 
WRITE DATA ERROR 
END OF MPR BIT DEFINITIONS 

;END RL11/RL02 REGISTER DEFINITIONS 



$800T_DRIVER 



DEVTYPE = BTD$K DL, 
SIZE - DL_DRVSlZ,- 
ADDR = DL DRIVER,- 
DRIVRNAME = DLNAME 



; Device tyj • (DL) 

; Driver sir.- 

; Driver ad, r ess 

; Driver fie name 



ZZ-ENSAA-7,0 

DLBTDRIVR 

V02-002 



RL01/2 Bootstrap driver code 

- RL01/2 BOOT DRIVER 
RL01/2 Bootstrap driver 



H 3 
27-JUL-198' 



code 



27-JUL-1984 
3-MAR-1981 



Fiche 6 Frame Hi Seguence 1063 

1 5: 1 5 :46 VAX-11 Macrr 703-01 Paae 4 

10:29:00 DMA1 jtSYS0.SV3MAINT3DLBTDRIVR.HAR; (3) 



00000004 
00000008 
00000010 



50 02 



50 

08 64 A9 
04 A7 08 



67 


50 


04 
OOF 8 


06 


A7 


ID 
F3 



D4 
F0 
BO 



A9 
30 
B3 

13 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0008 

m 

000C 
0010 
0013 
0017 
0017 



132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

184 
185 
186 
187 
188 



.S8TTL RL01/2 Bootstrap driver code 



•f ■* 



Inputs: 



R3 
R5 
R6 
R7 
R8 
R9 
R10 



- base address of adapter's register space 

- LBN FOR CURRENT PIECE OF TRANSFER 

- contains C 

- address of device's CSR 

- SIZE OF TRANSFER IN BYTES 

- address of the RPB 

- starting address of transfer (b^; t e offset in first 
page ORed with starting m*.p register number) 



FUNC(AP)- 1/0 operation (I0S..READLBLK or lOS.WRUfc'ULK only) 
BUF(AP) - Buffer address 
SIZE(AP)- Size of transfer 



Implicit inputs: 

RP8SW..UNIT 
Outputs: 

RO - status code 



- RPB field containing boot device unit number 



SS$_N0RMAL 
SS$„CTRLERR 



- successful transfer 

- fatal controller error 



R3 * must be preserved 

This routine destroys R1, R2, R4 f R5, R6. Within tne 
routine, register usage is as follows: 



BUF « 4 
SIZE = 8 
FUNC ^ 16 

DL„DRJVER: 



RESET v)RJVE AND WAIT FOR IT TO SPIN UP. 



CLRL R0 

insv rpbsw unit <r9), #8,02, r0 
movw *rl dk m rst!- 
RL- r aA3tsi- 

RLlDAX MRK '*L.l> A < R7) 

10$: BISW3 #47R0:rC..CS<R77 

BS8W READY 

BITW #RL MP M HON 

RL RPA3H!5 # RL MP(R7) 
BEOL 105 



CLEAR RO 

GET UNIT NJMBER 

PUT RESET I GET STATUS IN DAR 



EXECUTE DRIVE RFS.-T 

WAIT FOR CONTRDLLvR READY 

HEADS,BRUSHES,S r A!(E OK? 

... (5 * SEEK LINr'AR MODE STATE) 

BRANCH IF NOT: WAIT FOR DRIVE TO SPIN UP 



ZZ-ENSAA-7,0 

DLBTDR1VR 

V02-002 



RL01/2 Bootstrap driver code 

- RL01/2 BOOT DRIVER 
RL01/2 Bootstrap driver 



code 
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54 56 





67 


01 


B3 


0019 


189 






E£ 


13 


001C 
001E 
001E 
001 E 
001 E 
001E 
001E 


190 
191 
192 
193 
194 
195 
196 


67 


50 


08 


A9 


001E 


197 






00E6 


30 


0022 


198 






03 


18 


0025 


199 






00C8 


31 


0027 


200 


51 06 A7 


3F 


AB 


002A 


201 










002F 


202 










C02F 


203 










002F 


204 










002F 


205 










002F 


206 




55 


02 


C4 


002F 


207 






56 


D4 


0032 


208 


55 00000050 8F 


78 


0034 


209 










003D 


210 






55 


D4 


003D 


211 


54 55 


54 


28 


7B 


003F 
0044 


212 
213 


56 


56 


07 


78 


0044 


2K 


56 01 


06 


55 


F0 


0048 


215 




51 


56 


B1 


004D 


216 






2E 


13 


0050 
0052 
0052 
0052 
0052 
0052 


217 
218 
219 
220 
221 










222 


51 


007F 8F 


AA 


0052 
0057 


223 


52 56 


007F 8F 


AB 


224 




51 


52 


A2 


005D 


225 






08 


13 


0060 


226 






06 


1E 


0062 


227 




51 


51 


AE 


0064 


228 




51 


04 


A8 


0067 


229 


51 01 


04 


55 


F0 


006A 


230 


04 A7 


51 


01 


A9 


006f 
0074 


231 
232 


67 


50 


06 


A9 


0074 


$33 






0090 


30 


0078 
0078 


234 






03 


18 


535 






0072 


31 


007D 
0080 
0080 

m 

0080 
0080 


236 

b ? 

238 
239 
240 
241 


56 06 


00 


54 


F0 


242 










0085 


243 


04 


A7 


56 


BO 


0085 


244 


02 


A7 


5A 


BO 


0089 


242 



BJTU *RL CS M DRDY,Rl CS(R7) ; IS DRIVE READY? 

BEQL 10$ i IF NOT, BRANCH TO WAIT FOR DRIVE READY 



FIND CURRENT DISK ADDRESS, CALCULATE CYLINDER DIFFERENCE, AND SEEK 
DESIRED CYLINDER 



20$; BISW3 #8,R0,RL,CS(R7) 

BSBW READY 

8GE0 30$ 

BRW 100$ 

30$; BICW3 #*Q77,RL MPCR7) ,R1 



NOW CONVERT LOGICAL TO PHYSICAL 



MULL #2,R5 

CLRL R6 

EDIV #80,R5,R6,R4 

CLRL R5 

EDIV *40,R4,R5,R4 

ASHL #7,R6,R6 

INSV R5,#6,*1,R6 

CMPW R6,R1 

BEQL 50$ 



NEED TO PFRFORM A SEEK. 



BICW #*0177,R1 

35$; BICW3 # A 0177,R6,R2 

SU8W R2,R1 

BEQL 40$ 

BCC 40$ 

MNEGW R1,R1 

BISW #4,R1 

40$; INSV R5,#4,#1,R1 

BISW3 #RL DA H MRK,R1, 
RLJA(R7T 

BJSW3 #6,R0,RL_CS(R7) 

BSBW READY 

BGEQ 50$ 

BRW 100$ 



EXECUTE READ HFADFR 
WAIT FOR CONTROLLER RFAOY 
BRANCH IF NO fRRCtt RFADING 
OTHERWISE, BRANCH VO ERROR 
GET CURRENT CYL & 



HEADER 
HANDLING 



SURFACE 



CONVERT LOGICAL BLOCKS TO SECTORS 

CLEAR HIGH PART Or DIVIDEND 

R6 = DESIRED CYL - LBN/<SECTORS/CYL) 

R4 = REMAINING SECTORS 

CLEAR HIGH PART Of DIVIDEND 

R5 = DESIRL'O SURFACE = R5/(SECT/5>UR) 

R4 = DESIRED SECTOR 

SHIFT DESIRED *YLW5R INTO R6<"I5:7> 

INSERT DSSiRED SURFACE BIT INTO R6<6> 

IS A SEEK NEEDED? 

BRANCH IF NOT. 



ISOLATE CURRENT CYi iNDER IN R1 

ISOLATc DESIRED CYLINDER IN R2 

SUBTRACT DESIRED FROM ACTUAL 

BRANCH IF CURRENT * DESIRED CYLINDER 

BRANCH IF CURRENT >- DESIRED CYLINDER 

ACTUAL<DESIRED, MAKc POSITIVE DIFF 

SET SIGN FOR MOVE r O CENTER OF DISK 

INSERT SURFACE & r T IN R1<4> 

SET MARKER AND LOAO DIFFERENCE 

WORD. 

EXECUTE SEEK FUNCTION 

WAI) FOR CONTROLLER READY OR ERROR 

BRANCH IP NO EfxROK OuRING SEEK 

OTHERWISE, BRANCH DUE TO ERROR 



SEEK, IF ANY, IS COMPLETE. EXECUTE TRANSFER FUNCTION 



50$; INSV R4,#0,*6,R6 

MOVW R6,RL DA(R7; 
MOVW RlO,Rr,8A(R7) 



MERGE SECTOR WITH CYLINDER AND SURFACE 
CYL=R6<15:?> $UR-PA<6> REC=R6<5:0> 
SET DESIRE* ^ J SK ADDRESS 
SET BUFFER ADDRESS 



ZZ-ENSAA-7,0 

DLBTDRIVR 

V02-002 



RL01/2 Bootstrap driver code 

- RL01/2 BOOT DRIVER 
RL01/2 Bootstrap driver 



code 



J 3 
27-JUL-1984 Fiche 6 tram J r Seguence 1065 

27-JUL-1984 15:15:46 VAX-1 Macro V03-0T Page 6 

3-MAR-1981 10:29:00 DWAKi SYS0.SYSMAINT3DLBTDRIVR.MAR; (3) 



51 
51 



52 58 

28 54 

0100 8F 

51 52 



52 
52 

Of A7 
51 

20 



67 



03 
51 
02 
52 
0C 
10 AC 
03 
51 0A 

51 50 
0050 

35 

52 02 

53 52 
1C 



51 



04 A7 007F 8F 
56 04 A7 3F 



55 56 01 

5A 



56 

06 

54 

02 A7 

FF76 



51 



51 08 AC 

07 

00008000 8F 

50 01 



5A 



58 
04 



58 08 

00001 F40 
AC 09 
50 0054 



AC 
07 
8F 
00 
8F 



80 008D 
0090 
A3 0090 
A4 0094 
B1 0099 
1B 009C 
B0 009E 
A6 00A1 
AE 00A4 
BO 00A8 
D1 OOAB 

1 2 OOAF 
BO 00B1 
A9 00B4 

30 0088 
1 9 OOBB 
A4 OOBD 
A2 00C0 

13 00C3 
00C5 
00C5 
00C5 
00C5 
00C5 

AB 00C5 
A9 OOCC 
B6 00D1 
EF 00D3 
D4 OOD8 
BO OODA 

31 00D* 
00E1 
00E1 
00E1 
00E1 
00E1 

3C 00E1 

12 00E5 

DO 00E7 

3C OOEE 

05 00F1 

00F2 

00F2 

00F2 

00F2 

00F2 

3C 00F2 

12 00F6 

DO 00F8 

E^ OOFF 

3C 0105 

05 010A 

0108 

0108 

0108 

01 OB 

0108 



246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
237 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 



60$: 



70$: 
80$: 



MOVW R8,R2 

SU8W3 R4,#40,R1 

MULW #256, R1 

CMPW R2,R1 

BLEQU 60$ 

MOVW R1,R2 

DIVW #2,R2 

MNEGW R2,RL MP(R7) 

MOVW #*XC,R1 

CMPL FUNC(AP),0IO$_WRITELBIK 

BNEQ 70$ 

MOVW <TXA,R1 

BISW3 R0,R1,RL„CS<R7) 

BSBW READY 

BLSS 100$ 

MULW #2M 

SUBW R2,R8 

BEQL 90$ 



UPDATE PARAMETERS FOR NEXT TRANSFER 



BJCW3 # A 0177,RL DA(R7),R1 

BISW3 # A 077,RLj>A(R7),R6 

INCW R6 

EXTZV #6,*1,R6,R5 

CLRL R4 

MOVW RL BA(R7),R10 

BRW 35! 



TRANSFER COMPLETE - RETURN 



90$: 
95$; 



MOVZWL 

BNEQ 

MOVL 

MOVZWL 

RS8 



SIZE(AP),R1 
95$ 

# A X8000,R1 
#SS$_NORMAL,RQ 



RETRY ERROR 



100$: 
110$: 



MOVZWL 

BNEQ 

MOVL 

EXTZV 

MOVZWL 

RSB 



SIZE(AP),R8 

110$ 

#8000, R8 

#0.#9,BUF<AP),R10 

#SS$_CTRLERR,RO 



GEY WORK]/*.. COPY OF 8YTES LEFT TO XFER 

AND ASSUME THIS IS LAST TRANSFER 

R1 = SrCTO S LETT ON SURFACE 

CONVL : R r XI 8YTES LEFT ON SURFACE 

ARE ADMT.ONAL TRANSFERS REQUIRED? 

BRANCH If ANSWER IS NO. 

SET BYTE COUNT FOR THIS TRANSFER 

CALCU: AT* TRANSFER WORD COUNT 

SET NhG VKANSFER WORD COUNT 

ASSU*1C R'.AD FUNCTION 

IS IT A '/RITE FUNCTION? 

BRANCJ IF NOT 

SET WMTE FUNCTION COL>E 

MERGf UNIT H WITH FUNCTION AK'D FXECUTE 

WAIT FOR CONTROLLER READY OR ERROR 

BRANCH ON ERROR 

FIND BYTES TRANSFERRED THIS 7JME 

UPDATF 3YTES LEFT TO iRANSFER 

BRANCH IF TRANSFER IS COMPLETE 



UPDATE (UMENT CYLINDER IN R1<15:7> 
SET SfcCTU* BITS TO 1'S AND - 
UPDATr DEMRfD DISK ADDRESS IN P6 
UPDATE DE.IUD SURFACE IN R5 
UPDATE DESlftEC SECTOR IK R4 
UPDATE DEbJRECi BUFFER tfi)ftESS 
LOOP FOR NFXT TRANTER 



SET TOTAL BYTES TRANSFERRED 

BRANCH IF ORIGINAL SIZE WAS TRANSFERRED 

ELSE SIZE WAS FORCED TO 64K 

SET COMPLETION CODE 

AND RETURN 



RESTORE BYTE SIZE OF TRANSFER IN R8 

BRANCH IF SIZE WAS LEGAL 

ELSE FORCE TO 64K SIZE 

RESTORE BYTE OFFSET IN R10 

SET FATAL CONTROLLER ERROR 

AND ATTEMPT RETRY 



SUBROUTINE TO WAIT FOR CONTROLLER READY OR ERROR 



ZZ-ENSAA-7,0 

DLBTDR1VR 

V02-002 



RL01/2 Bootstrap driver code 

- RL01/2 BOOT DRIVER 
RL01/2 Bootstrap driver 



code 
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0108 


303 






01 0B 


304 READY: 


« 


67 8080 8F B3 


0108 


305 BITW # A X8080, (R7) 


.•CONTROLLER READY OR ERROR? 


F9 13 


0110 


306 BEQL READY 


;IF EQL NO 


05 


0112 


307 R5B 


♦ 




0113 


308 




58 45 2E 52 45 56 49 52 44 4C 44 00' 


0113 


309 DLNAME: .ASC1C /DLDRIVER.EXE/ 


; Driver fi Le name 


45 


01 1 F 






OC 


0113 








0120 


310 




00000120 


0120 


311 Dl_DRVSJZ=.-Dl_DRJVER 






0120 


312 






0120 


313 ,END 





ZZ-ENSAA-7.0 
OLBTDRIVN 
Symbol table 

STABLE 

BTD$KJ)L 

BUF 

OLNAME 

DLJ)R1VER 

DL DRVSIZ 

FURC 

10S WR1TELBLK 

REAPY 

RL..8A 

RL_C$ 

RL CS M DROY 

RLlDA" " 

RL DA„M_MRK 

RL..DAJ1 RST 

RLJ)A M"STS 

RL.MP" " 

RLJ1PJ1 BH 

RL MP J-f HO 

rpBswjjRit 

SIZ... 

SIZE 

SS$ CTRLERR 

SSSJJORMAL 



Symbol table 



- RL01/2 BOUT DRIVER 
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00000000 R 

00000002 

00000004 

00000113 R 

00000000 R 

00000120 

00000010 

00000020 

000001 OB R 

00000002 

00000000 

00000001 

00000004 

00000001 

00000008 

00000002 

00000006 

00000008 

00000010 

00000064 

00000001 

00000008 

00000054 

00000001 



02 



03 
03 



03 



PSECT name 

. ABS . 
$ABS$ 

BOOTDRIVR 4 
BOOTDR!VR"2 



Allocation 

00000000 ( 

00000008 i 

00000018 ( 

00000120 ( 



i Psect synopsis ! 
+•« •-— - — -«-.-,+ 

PSECT No. Attributes 

0.) 00 ( 0.) NOPJC USR 

8.) 01 ( 1.) NOP1C USR 

24.) 02 ( 2.) NOPJC USR 

288.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 



ZZ-ENSAA-7.0 
DLBTDR1VR 
Cross reference 



Cross reference 



- RL01/2 BOOT DRIVER 



SYMBOL 



STABLE 

BTD$< DL 

BUF 

DLNAME 

DL_DR1VER 

OL DRVSIZ 

FUFJC 

10$ write lblk 
reaBy 

RL BA 
RLlCS 

RL-.CS_M.DRDY 
RL_DA 

RL DA M MRK 
RL"DA*"M"RST 
RL"DA"M"STS 
RL'MP" " 
RL~MP M BH 
RL'MP'M'HO 

rpBsWuRit 

SIZE " 

SS$ CTRLERR 

SS$~NORMAL 
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VALUE 

:00000000-R 

'00000002 

:00000004 

000001 13-R 

00000000-R 

=00000120 

=00000010 

:00000C20 

000001 OB-R 

00000002 
00000000 

=00000001 

00000004 

=00000001 

=00000008 
=00000002 
00000006 
=00000008 
=00000010 
=00000064 
=00000008 
=00000054 
=00000001 



! Symbol Cross Reference ! 

+ — ™ — -™— — — + 



DEFINITION 
130 "(2) 



169 
309 
173 
311 
171 

304 



(3) 
(3) 
(3) 
(3) 
(3) 

(3) 



170 



(3) 



REFERENCES... 



130 
130 
295 
130 
130 
130 
#-256 
#-256 
#-185 
#-306 
#-245 
#-184 
#-259 
#-189 
#-183 
#-271 
#-183 
#-181 
#-182 
#-187 
#-187 
#-186 
#-180 
#-282 
#-296 
#-285 



(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 



311 



#-198 

#-275 
#-189 



#-232 
#-231 

#-201 

#-292 



(3) 



(3) 

(3) 
(3) 



(3) 
(3) 

(3) 

(3) 



#-234 



(3) #-260 (3) 



#-197 (3) #-233 (3) 



#-244 (3) #-270 (3) 



#-254 (3) 



ZZ-ENSAA-7,0 
0LBTDR1VR 
Cross reference 



Cross reference 



- RL01/2 BOOT DRIVER 
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MACRO 



SBOOT DRIVER 

SBTDDEF 

SDEFIN1 

SIODEF 

SRPBDEF 

SSSDEF 

SUBADEF 

SUBIDEF 



SIZE 

1 
1 
1 

17 

5 

21 

6 

2 





! Macros 


Cross Ref 


orence ! 




DEFINITION 


REFERENCES... 






127 (2) 


127 


(2) 






51 (2) 


51 


(2) 






51 (2) 


51 


(2) 


52 


(2) 




56 


(2) 


69 


(2) 


52 (2) 


52 


(2) 






53 (2) 


53 


(2) 






54 (2) 


54 


(2) 






55 (2) 


55 


(2) 






56 (2) 


56 


(2) 







53 



(2) 



54 



(2) 



55 



(2) 



! Performance \ndicators ! 
+ - + 



Phase 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler rut "otals 



The working ?*t limit was 1000 pages. 



Page faults 


CPU Time 


EUpsed Time 


33 


00:00:00.11 


00:00:00.23 


140 


00:00:00.67 


00:00:01.63 


384 


00:00:11.11 


00:00:17.44 





00:00:01.76 


00:00:02.13 


86 


00:00:01.81 


00:00:02.64 


5 


00:00:00.06 


00:00:00,06 


6 


00:00:00.02 


00:00:00.03 


17 


00:00:00.16 


00:00:00.20 


6/4 


00:00:15.73 


00:00:24,38 



57693 bytes (113 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table sp3ce allocated to hold 1095 non-local and 13 local symbols, 

313 source lines were read in P*ss 1, producing object records in Pass 2. 

40 pages of virtual memory were- used to define 15 macros. 



! Macro library statistics ! 



Macro library name 

DMA1:CSYS0.SYSMAINT3DS,Ml8;218 
DMA1:CSYS0.SYSMAINf]DIAG.ML8;953 
SYS$SYSR00T:CSYSLIBJUB,ML8;1 
SYS$SYSR00TjCSYSLI8]STARLET.ML8;2 
TOTALS (at I libraries) 



Macro? defined 

1 



4 

6 

11 



1135 GETS were required to define 11 macros. 

There were no errors, warnings cr information messages. 

MACRO/N0QBJECT/UST=[DS,L J Sj/CR0SS/ENABIE= (DEBUG, TRACE) DLBTDRIVR/UPDA=(DIBTDRIVR,UPD,DLBTDRI VR,ENH)+SYS$UBRARY:LIB/LIBRARY+DMA1 :CS| 



ZZ-ENSAA-7.C 
DMBTDRlVR 
able of contents 



- RK06/7 BOOT 



DRIVER 
- ,U06/7 



BOOT DRIVER 



B 4 
27-JUL-1984 Fiche 6 Frame B4 

27-JUL-1984 15:16:12 VAX-11 Macro 



Sequence 
V03-01 



1070 
Page 







(2) 
(3) 
(A) 



46 
183 
329 



DECLARATIONS 

RK06/7 Bootstrap driver 

FCC - PERFORM ECC ERROR 



code 
CORRECTION 



_ 



7Z-ENSAA-7.0 

DMBTDRIVR 
V02-002 



RK06/7 BOOT DRIVER 

- RK06/7 BOOT DRIVER 



C 4 

27-JUL-1984 



Ffche 6 frame C4 



OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 

4 

5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



.TITLE 
.IDENT 



27-JUL-1984 15:16:12 
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DMBTDRIVR - RK06/7 BOOT DRIVER 
'V02-002' 



Sequence 1071 



VAX-11 Macro V03-0T Paqe 1 
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*************************************************************************** 

COPYRIGHT (c) 1979, 1980 * 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

CORPORATION. * 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

*************************************************************************** 



+ + 
FACILITY: 



BOOTS 



ABSTRACT: 

This module contains the bootstrap device driver for the 
RK06/7 disks. 

ENVIRONMENT: IPL 31, kernel mode, code must be PIC 

AUTHOR: Steve Beckhardt f CREATION DATE: 1~Nov-1979 
(Original author: Carol Peters) 

MODIFIED BY: 

02-02 CAS0001 C.A. Samuelson 30-Apr-1980 

Change interface to BOOTDRIVR for purge of UBA datapath 
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DMBTDR1VR 


- RK06/7 BOOT DRIVER 




27-JUL- 


-1984 


VO2-002 


DECLARATIONS 






3-MAR- 


-1981 




OOOO 


46 




.SBTTL 


DECLARATIONS 








0000 


47 


t 












0000 


48 


; INCLUDE FILES 


• 
• 








0000 


49 


« 












0000 


50 














0000 


51 




SBTDDEF 








Boot device types 




0000 


52 




SIODEF 








I/O function codes 




0000 


53 




$PRDEF 








Processor registers 




0000 


54 




$RP8DEF 








RPB offsets 




0000 


55 




%SSDEf 








Status codes 




0000 


56 




SUBADEF 








' UBA definitions 




0000 


57 




SUBIDEF 








• 1V750 UBA definitions 




0000 


58 














0000 


59 














cooo 


60 


; MACROS.* 










0000 


61 














0000 


62 














0000 


63 














0000 


64 


; EQUATED SYMBOLS: 








0000 


65 














0000 


66 














0000 


67 


; RK611/RK06 CONTROLLER REGISTER OFFSETS 




0000 


68 














0000 


69 














0000 


70 




SDEFINI 


RK 








0000 


71 














OOOO 


72 


$DEF 


RK CS1 


.BLKW 


1 




•CONTROL STATUS REGISTER 1 




0002 


71 




.vTeld 


RK CSM^- 






• CONTROL SI, JUS REGISTER 1 FIELD DEFINITION 




0002 


74 






^O^M^- 
^CODE,^,- 






• GO BIT 




0002 


75 










• FUNCTION CODE 




0002 


76 






<DPPE,,M>,- 






• DATA PATH PURGE ERROR 




0002 


77 






<IE,,M>,- 






• INTERRUPT ENABLE 




0002 


78 






<RDY,,M>,- 
<MEX,2>,~ 






• CONTROLLER READY 




0002 


79 










• MEMORY EXTENSION BITS 




0002 


80 






<CDT,,M>,- 






' CONTROLLER DRIVE TYPE 




0002 


81 






<CTO,,M>,- 






• CONTROLLER TIME OUT 




0002 


82 






<CFMT,,M>,~ 






' CONTROLLER FORMAT ERROR 




0002 


83 






<SPAR,,M>,- 






■ SERIAL BUS PARITY ERROR 




0002 


84 






<DI,,M>,- 






' DRIVE INTERRU°T 




0002 


85 






<CERR,,M>- 






• CONTROLLER ERROR 




0002 


86 




> 












0002 


87 


$DEF 


RK WC 


.BLKW 


1 




•WORD COUNT REGISTER 




0004 


88 


$DEF 


RK 8A 


.BLKW 


1 




'BUFFER ADDRESS REGISTER 




0006 


89 


$DEF 


RK~DA 


.BLKW 


1 




•DESIRED SECTOR/TRACK ADDRESS REGISTER 




0008 


90 




.VlELD 


RK DA,0,O 






■ DESIRED ADDRESS FIELD DEFINITIONS 




0008 


91 






<SS,5>,- 






• DESIRED SECTOR ADDRESS 




0008 


92 






<,3>,- 






• RESERVED BITS 




0008 


93 






<TA,3>- 






■ DESIRED TRACK ADDRESS 




0008 


94 




> 












0008 


95 


$DEF 


RK CS2 


,BLKW 


1 




'CONTROL STATUS REGISTER 2 




OOOA 


96 




.VlELD 


RK CSZ^O^- 






• CONTROL STATUS REGISTER 2 FIELD DEFINITION 




OOOA 


97 






^SJ^- 






• DRIVE SELECT 




OOOA 


98 






^LS,^,- 






• RELEASE DRIVE 




OOOA 


99 






<BAI,,M>,- 






* BUFFER ADDRESS INCREMENT INHIBIT 




OOOA 


100 






<SCLR,,M>,- 






• SUBSYSTEM CLEAR 




OOOA 


101 






<1R,,M>,- 






; INPUT READY 




OOOA 


102 






<OR,,M>,- 






; OUTPUT READY 
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DMBTDR1VR 
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27-JUL-1984 15:' 
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V02-002 


DECLARATIONS 




3-MAR-1981 10:29:08 DMA1 :CSYS0.SYSMAINT3D«BTDRIVR.WAR; (2) 




OOOA 


103 




<U C E,,M>,- 


UNIT FIELD ERROR 




OOOA 


104 




<MDS,,M>,- 


MULTIPLE DRIVE SELECT 




OOOA 


105 




<PGE,,M>,- 


PROGRAMMING ERROR 




OOOA 


106 




<NEM,,M>,- 


NONEXISTENT MEMORY 




OOOA 


107 




<NED,,M>,- 


• NONEXISTENT DRIVE 




OOOA 


108 




<UPE,,M>,- 


• UNIBUS PARITY ERROR 




OOOA 


109 




<WCE,,M>,- 


• WRITE CHECK ERROR 




OOOA 


110 




<DLT,,M>- 


• DATA LATE ERROR 




OOOA 


111 


> 








OOOA 


112 $DEF 


RK DS 


.BLKW 1 ! 


•DRIVE STATUS REGISTER 




OOOC 


113 


.VlELD 


RKJ>S,0,<- 


DRIVE STATUS REGISTER BIT DEFINTIONS 




OOOC 


114 




<DRA,,M>,- 


• DRIVE AVAILABLE 




OOOC 


115 




<J>-- 


• RESERVED BIT 




OOOC 


116 




<OFST,,M>,- 


• DRIVE OFFSET 




COOC 


117 




<ACLO,,M>,- 


• DRIVE AC LOW 




OOOC 


118 




<DCLO,,M>,- 


• DRIVE DC LOW 




OOOC 


119 




<DROT,,M> # - 


■ DRIVE OFF TRACK 




OOOC 


120 




<VV,,M>,- 


• VOLUME VALID 




OOOC 


121 




<DRDY,,M>,~ 


* DRIVE READY 




OOOC 


122 




<DDT,,M>,- 


• DRIVE DRIVE TYPE 




OOOC 


123 




<,2>,- 


• RESERVED BITS 




OOOC 


124 




<WRL,,M>,- 


• DRIVE WRITE LOCKED 




OOOC 


125 




<J>.- 


• RESERVED BIT 




OOOC 


126 




<PIP,,M>,- 


: POSITIONING IN PROGRESS 




OOOC 


127 




<dsc m m>,- 


; DRIVE STATUS CHANGE 




OOOC 


128 




<SVAL,,M>~ 


? DRIVE STATUS VALID 




OOOC 


129 


> 








OOOC 


130 $DEF 


RK Eft 


.BLKW 1 


jERROR REGISTER 




OOOE 


131 


.VlELD 


RK ER^^- 


? ERROR REGISTER BIT DEFINITIONS 




OOOE 


132 




^CF^M^- 


■ ILLEGAL FUNCTION 




OOOE 


133 




^KI,^,- 


♦ SEEK INCOMPLETE 




OOOE 


134 




<NXF,,M>,- 

<DRPAR,,M>,- 


• NONEXECUTABLE FUNCTION 




OOOE 


135 




• DRIVE PARITY ERROR 




OOOE 


136 




<FMTE,,M>,- 


? FORMAT ERROR 




OOOE 


137 




<DTYE,,M>,- 


• DRIVE TYPE ERROR 




OOOE 


138 




<ECH,,M>,- 


; ECC HARD ERROR 




OOOE 


139 




<BSE,,M>,- 


: BAD SECTOR ERROR 




OOOE 


HO 




<HVRC,,M>,- 


• HEADER VRC ERROR 




OOOE 


141 




<COE,,M>,- 


• CYLINDER OVERFLOW ERROR 




OOOE 


142 




<IDAE,,M>,- 


• INVALID DISK ADDRESS ERROR 




OOOE 


143 




<WLE,,M>,- 


• WRITE LOCK ERROR 




OOOE 


144 




<DTE,,M>,- 


• DRIVE TIMING ERROR 




OOOE 


145 




<OPI,,M>,- 


• OPERATION INCOMPLETE 




OOOE 


146 




<UNS,,M>,- 


• DRIVE UNSAFE 




OOOE 


147 




<DCK,,M>- 


• DATA CHECK ERROR 




OOOE 


148 


> 








OOOE 


149 $DEF 


RK AS 


.BLKW 1 I 


•ATTENTION SUMMARY/OFFSET REGISTER 




0010 


150 


.VlELD 


RK AS,0,O 


; ATTENTION SUMMARY/OFFSET REGISTER FIELDS 




0010 


151 




<0F,7>,- 


; DRIVE OFFSET 




0010 


152 




<,1>,- 


? RESERVED BIT 




0010 


153 




<ATTN,8,M>- 


; DRIVE ATTENTION SUMMARY 




0010 


154 


> 








0010 


155 *DEF 


RK DC 


.BLKW 1 


•DESIRED CYLINDER ADDRESS 




0012 


156 $DEF 


RK"SPR 


.BLKW 1 


jUNUSED REGISTER 




0014 


157 $DEF 


RKlDS 


.BLKW 1 


;DATA BUFFER REGISTER 




0016 


158 $DEF 


RK MR1 


.BLKW 1 


MAINTENANCE REGISTER 1 




0018 


159 


.VTELD 


RK_MR1,Q,«MS,3» 


; MAINTENANCE REGISTER 1 FIELD DEFINITION 
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F 4 

27-JUL-1984 Fiche 6 Frame FA Seguence 1074 

27-JUL-1984 15.- 16:12 VAX-11 Macro V03-0T Page 4 
3-MAR-1981 10:29:08 DMA1 :[SYSO.SYSMAINT]DMBTDRIVR.MAR; (2) 



0018 
001A 
001A 
001 C 
001 C 
001 E 
0020 
0020 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 



$DEF 

$DEF 

$DEF 
$DEF 



RK EC1 .BLKW 1 

VlELD RK.EC1,0,«EPS,13» 

RK EC2 .BLKW 1 

VlELD RK.,EC2,0,«EPTJ1» 

RKJW2 .BLKW 1 

RK.MR3 .BLKW 1 

SDEFEND RK 



;ECC POSITION REGISTER 
; ECC POSITION FIELD 
;ECC PATTERN REGISTER 
; ECC PATTERN FIELD 
/MAINTENANCE REGISTER 
/MAINTENANCE REGISTER 



OWN STORAGE: 



; Boot driver table entry 



$BOOT_DRIVER 



DEVTYPE = BTD$K DM, 
SIZE -■ DM_DRVSlZ,- 
ADDR = DM DRIVER, - 
DRIVRNAME = DMNAME 



; Device t^pe (DM) 

; Driver size 

; Driver address 

; Driver name 
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RK06/7 Bootstrap driver code 
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00000004 
00000008 
0000000C 
00000010 
00000014 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 

215 
216 
217 

218 
219 
220 
221 
222 
221 
22<, 
225 
226 
22? 
228 
229 
230 
231 
212 
233 
'34 
35 
'36 
37 

'38 
>39 



•S8TTL RK06/7 Bootstrap driver code 



+ + 



Inputs; 



R3 
R5 
R6 
R7 
R8 
R9 
R10 

R11 



base address of adapter's register space 
LBN FOR CURRENT PIECE OF TRANSFER 
contains 

address of the device's CSR 
SIZE OF TRANSFER IN BYTES 
address of the RPB 

starting address of transfer (byte offset in first 
e ORed with starting map register number) 
at start of transfer 



-ca 



FUNC(AP)- I/O operation (IOS^READLBLK or I0$_WRITELBLK only) 

BUF(AP) - Buffer address 

SiZE(AP)- Size of transfer in bytes 

MODE(AP)- Address interpretation mode (0 = physical, 1 = virtual) 



Implicit inputs: 

RP8$W_UNIT 
Outputs: 

R0 - status code 



- RPB field containing boot device unit number 



SS$ NORMAL - successful transfer 
SSSJJOSUCHDEV - unsupported device 
SS$_CTRLERR - fatal controller error 

R3 - must be preserved 

This routine destroys R1, R2, R4 f R5, R6. Within the 
routine, register usage is as follows: 



R0 



R1 
R2 
R4 
R5 
R6 



mapping enabled flag 

device unit number 

status code 

device function code 

drive type according to device register 

used in logical to physical calculation 

used in logical to physical calculation 

used in logical to physical calculation 

transfer word count 



&UF 
SIZE 
L8N 
FUNC 



= 4 

"= 16 



MODE = 20 

DM.DRIVER: 



RK06/7 device driver. 
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RK06/7 Bootstrap driver code 

- RK06/7 BOOT DRIVER 
RK06/7 Bootstrap driver 
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code 
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51 11 

20 10 AC 

03 

51 13 



50 64 A9 

08 A7 20 

0092 

08 A7 50 



0A A? 

52 

08 A7 

50 



67 05 

0088 

52 

0100 8F 

05 

0400 8F 



1000 8F 

06 

0908 8F 



OA A7 



8000 8F 

67 

08 A7 50 

67 52 05 

0058 

0080 8F 

E8 

52 03 



67 



55 54 55 

56 
56 



DO 
D1 
12 
DO 



3C 
BO 
30 
BO 



BO 
30 
D4 
B3 
13 
3C 



B3 

13 
3C 
05 



BO 

BO 
A9 
30 
B3 
13 
A9 



4D 10 



56 D4 

00000042 8F 78 

10 A7 54 BO 

55 55 16 78 

08 08 55 FO 

06 A7 56 BO 



0000 
0000 
0000 
0000 
0000 
0000 
0003 
0007 
0009 
000C 
OOOC 
000C 
OOOC 
OOOC 

cooc 

OOOC 
0010 
0014 
0017 
001B 
001B 
0018 
001 E 
0021 
0023 
0029 
002B 
0030 
0030 
0030 
0036 
0038 
003D 
003E 
003E 
003E 
0042 
0043 
0047 
0048 
004E 
0054 
0056 
005A 
005A 
005C 
005C 
005C 
005C 
005C 

88IE 

005E 

067 

068 

0070 

0075 



240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
27? 
278 
279 
280 
281 
282 
283 
284 
285 

287 

288 

289 

'90 

•91 

'92 

>93 

294 

295 

296 



Translate the I/O function code into a device-dependent function 
code for this disk. 



10$: MOVL #17, R1 

CM°L FUNC (AP) ,#l 0$ WRI TELBLK 

BNEQ 20$ 

MOVL #19, R1 



ASSUME READ 

CHECK FOR WRITE FUNCTION 

NO, DO READ 

SET WRITE FUNCTION CODE 



Clear controller and drive status. Confirm that the drive exists and 
is ready for a transfer. 



20$: 



30$: 



MOVZWl RPB$W UNIT(R9),R0 ; GET UNIT NUMBER 

MOVW #RK CS2JtSCLR,RK_CS2(R7) ; CLEAR CONTROLLER AND ALL DRIVES 



33$: 



35$: 



BS8W 
MOVW 



MOVW 
BSBW 
CLRL 
BJTW 
BEOL 
MOVZWL 



BJTW 
BEQL 
MOVZWL 
RS8 



MOVW 

MOVW 

BJSW3 

BSBW 

dITW 

BEQL 

BISW3 

BS88 



READY 
R0,RK„CS2(R7) 



#5,RK_CS1(R7) 

READY 

R2 

#RKJ)S MJ>DT,RK DSCR?) 

33$ 

#RK_CS1_M_CDT,R2 



WAIT FOR CONTROLLER READY 
SET DRIVE NUMBER 

Clear drive and find type. 

Clear drive. 

Wait for controller ready* 

Assume RK06 drive. 

Is drive RK07? 

No. Branch. 

Yes. Set drive code. 



; Check for existence of drive. 
#RK„.CS2JLNED,RK_CS2(R7); Does drive exist? 
35$ ; Yes. Branch. 

#SS$_NOSUCHDEV,R0 ; No. Exit with error 



#RK CS1 M CERR,- 

RKJSKR77 

R0,RK_CS2(R7) 

#5,R2,RK„CS1(R7) 

READY 

#RK_DS.A,DRDY,RK..DS(R7) 

35$ " 

#3,R2,RK„CS1(R7) 

READY 



Clear drive and acknowledge. 

Clear controller Qmr 

status. 

Set unit number code again. 

Clear drive. 

Wait for controller ready. 

Is the drive ready? 

No. Clear drive again. 

Acknowledge pack and set 

volume valid. 

Wait for controller ready. 



Compute the cylinder, track, and sector addresses. Load device 
registers with transfer parameters and start transfer. 



CLRL 
EDIV 
MOVW 
EDIV 
INSV 
MOVW 



#22*3,R5,R4,R5 
R4 X RK DC(R7) 
#22,R5,R5,R6 
R5,#6,#8,R6 
R6,RK„DA<R?) 



Clear register for EDIV. 

COMPUTE DESIRED CYLINDER 

AND SET IN DEVICE 

CALCULATE DESIRED TRACK/SECTOR 

MERGE TRACK AND SECTOR 

SET DESIRED TRACK SECTOR 
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RK06/7 Bootstrap driver code 
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OMBTDRIVR 








- RK06/7 BOOT DRIVER 




27-JUL-1984 


15:' 
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VO2-O02 








RK06/7 Bootstrap driver 


code 


3-MAR-1981 


10:29:08 DMA1 jCSYSO.SYSMAINTJDMBTDRIVR.MAR; (3) 




04 


A7 


5A 


BO 


0079 


297 




MOVW 


R10,RK BA(R7) 




• SET STARTING BUFFER ADDRESS 




56 


58 


02 


a 


007D 


298 




DIVL3 


#2,R8,R6 




• COMPUTE WORD COUNT 




02 


A7 


56 


AF 


0081 


299 




MNEGW 


R6,RK_WC(R7) 




• SET NUMBER OF WORDS TO TRANSFER 




67 


52 


51 


A9 


0085 


300 




BJSW3 


R1,R2,RK_CSKR7) 




' Start disk function. 








1E 


10 


0089 
008B 
008B 


301 
302 
303 


$ 


BSBB 


READY 




• WAIT FOR CONTROLLER READY 












008B 


304 


; Trans 


fer is complete. See whether 


the 


transfer completed without 












008B 


305 


; error 


. If not 


, prepare input registers 


for the ECC correction routine 












0088 


306 


; and branch to 


that routine. 
















0088 


307 


• 

* 




















0088 


308 
















50 


01 


3C 


0088 


309 




MOVZWL 


itSSS NORMAL, RO 




• ASSUME NORMAL COMPLETION 








67 


B5 


008E 


310 




TSTW 


RK C5KR7) 




• CHECK COMPOSITE ERROR 








01 


19 
05 


0090 
0092 


311 
312 




BLSS 
RSB 


501 




• CONTINUE IF NO ERROR 




50 


OC 


A7 


BO 


0093 


313 


50$: 


MOVW 


RK_ER(R7),R0 




• GET ERROR STATUS 




51 


02 


A7 


32 


0097 


314 




CVTWL 


RK WC(R7),R1 




• GET NEGATED COUNT REMAINING 






51 


02 


C4 


009B 


315 




MULL 


#27R1 




• CONVERT TO BYTES 




55 


18 


A7 


3C 


009E 


316 




MOVZWL 


RK_EC1(R7),R5 




• GET POSITION OF ERROR 




56 


1A 


A7 


BO 


00A2 


317 




MOVW 


RK EC2(R7),R6 




• GET PATTERN 






0008 


31 


00A6 


318 




8RW 


ECt 




• AND ATTEMPT ECC CORRECTION 












00A9 


319 






















00A9 


320 


* 
* 




















00A9 


321 


; SUBROUTINE TO 


WAIT FOR CONTROLLER 


READY OR ERROR 












00A9 


322 


• 




















00A9 


323 






















00A9 


324 


READY? 












67 


8080 


8f 


B3 


00A9 


325 




BITW 


# A X8080,(R7) 




•CONTROLLER READY OR ERROR? 








F9 


13 
05 


OOAE 
0080 


326 
327 




BEQL 
RSB 


READY 




jIF EQL NO 



ZZ-ENSAA-7.0 

DMBTDRIVR 
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ECC - PERFORM 



ECC ERROR CORRECTION 
- RK06/7 BOOT DRJVER 
ECC - PERFORM ECC ERROR 



5B 
57 

14 



50 
50 
50 

AC 

51 



Of 
06 
33 
50 
4E 
5« 

4y 



50 



52 



51 F7 8F 

5B 50 

5A 51 

58 51 

55 

50 0200 C8 

08 AC 50 

50 08 

50 55 

19 

OD 50 



E1 
EO 
DB 
D1 
12 
CO 
13 



78 
CO 
CO 
C2 
D? 
9E 
C3 
C4 
C2 
15 
D1 



00B1 
00B1 
00B1 
00B1 
00B1 
0081 
0081 
00B1 
00B1 
0OB1 
00B1 
00B1 
00B1 
00B1 
C0B1 
00B1 
00B1 
0081 
0081 
0081 
00B1 
0081 
0081 
00B1 
0081 
00B1 
0081 
0081 
008 1 
0081 
00B1 
00B1 
0081 
00B1 
0081 
0085 
00B9 
OOBC 
OOCO 
00C2 
00C5 
O0C7 
00C7 
00C7 

00(7 

0OC7 
00C7 
OOCC 

m 

00D5 
00D7 
OODC 

00E1 
00E4 
00E7 
00E9 



329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
5o7 
368 
369 
370 
371 
j72 
373 
374 
375 
376 

I 77 

379 
380 
381 
382 
383 
38* 

385 
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.S8TTL ECC - PERFORM ECC ERROR CORRECTION 



+ + 



Functional description: 

ATTEMPT ECC ERROR CORRECTION 



INPUTS: 

RO 

R1 

R5 

R6 

R8 

R10 

R11 

Outputs: 



STATUS REGISTER 
REMAINING 



RK ER/RP FR1 ERROR 

NEGATIVE BYTE COUNT 

ECC POSITION 

ECC PATTERN 

BYTE COUNT REMAINING AT START OF LAST TRANSFER 

starting address of transfer 

BLOCK NUMBER AT START OF TRANSFER 



ETC: 



; ATTEMPT ECC CORRECTION 



Don't attempt an ECC correction if any of the following conditions apply: 

the error was not a data check 
the error was a hard ECC error 

the transfer mode does not match the map-enabled position, i.e., 
transfer is virtual, and mapping is not enabled, or v. v. 
no bytes have been transferred yet 



B8C #RK ^H V DCK,R0, RETRY 

B8S #RK"ER:v"CCH x RO, RETRY 

MFPR #PR5 MApEN.RO 

CMPt. R0,MDDE(AP5 

BNEQ RETRY 

ADDL RS-R1 

BEQL RETRY 



NOT DATA CHECK, RETRY 
HARD ECC ERROR, RETRY 
GET MAP ENABLE STATE 
SAME AS I/O MODE 
NO, CANT DO SIMPLE ECC 
COMPUTE BYTES TRANSFERRED 
NONE, RETRY 



Appears to be a correctable data check. Attempt the correction. 



ASHL *-9,R1,R0 

ADDL R0,R1I 

ADDL R1.R10 

SUBL R1,R8 

DECL R5 

MOVAB 512CR8) R0 

SU8L3 R0,SIZE(AP),R2 

MULL #8,R0 

SU8L R5.R0 

BLEO 20i 

CMPL R0,#RK_EC1 M SJPS 



CONVERT TO PAGE COUNT 

UPDATE BLOCK NUMBER 

UPDATE BYTE ADDRESS 

DECREASE BYTES REMAINING 

MAKE POSITION 1 ORIGIN 

REMAINING BYTES AT START OF BAD SECTOR 

BYTES TRANSFERRED AT START OF ERROR SECTOR! 

CONVERT BYTE COUNT TO BIT COUNi 

COMPUTE CORRECTION FIELD WIDTH 

BR IF NO CORRECTION NEEDED 

MINIMUM OF 13 AND BUFFER REMAINING 



ZZ-ENSAA-7.0 

DMBTDRiVR 

V02-002 



ECC - PERFORM 



ECC ERROR CORRECTION 
- RK06/7 BOOT DRIVER 
ECC - PERFORM ECC ERROR 



10$: 



K 4 
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03 


15 


m 


386 






50 


00 


DO 


387 




51 04 BC42 


50 


55 


EF 


00F1 


388 






51 


56 


CC 


00F8 


389 




04 BC42 50 


55 


51 


FO 


OOFB 
0102 
0102 
0102 
0102 
0102 


390 
391 
392 
393 
394 
395 








58 


D5 


0102 


7 6 








06 


15 


0104 


•1? 






55 


5B 


DO 


0106 


8 








FEF4 


31 


0109 
C10C 
010C 
010C 
010C 
010C 


3*9 

400 
401 
402 
403 
404 






50 


01 


3C 
05 


010C 
010F 
0110 
0110 
0110 
0110 
0110 
0110 


405 
406 
407 
408 
409 
410 
411 
412 




50 


0054 8F 


3C 


0110 


413 










05 


0115 

0116 


414 

415 


58 45 21 52 45 56 49 


52 44 


4D 44 


00' 


0116 


416 










45 


0122 












OC 


0116 
0123 


417 








0000C123 


0123 


418 












0123 


419 












0123 


420 



BLEO 10$ 

MOVL *RK EC1 S EPS,RO 

EXT2V R5,R0,aBuF(APHR2LR1 

XORL R6,R1 

INSV R1,R5,R0,SBUF(AP)[R2:) 



KEEP MINIMUM VALUE 

UMIT FIELD TO RK.EC1 S EPS BITS 

GET FIELD TO BE CORRECTED 

APPLY CORRECTION CODE 

AND STORE IN SUFFER 



It the transfer is not complete, branch back to retry it. 



'0$: 



TSTL 


R8 


BLEQ 


30$ 


MOVL 


R11,R5 


BRW 


DM.DRIVER 



CHECK FOR COUNT REMAINING 
NONE, EXIT 

GET WORKING COPY OF LBN 
CONTINUE TRANSFER 



; Transfer is complete. Return with success status code. 



30$: MOVZWL *SS$_N0RMAL,R0 
RSB 



; SET COMPLETION CODE 
; AND RETURN 



; No ECC correction was possible. Return and retry. 
RETRY: 



MOVZWL #SS$ CTRLERR,R0 
RSB 

DMNAME: .ASCiC /DMDRIVER.EXE/ 



418 DMJ)RVSJZ=.-DM_DRIVER 
.END 



; Set failure status 
; Return to BOOTDRIVR 

; Driver filename 



ZZ-ENSAA-7.0 
DMBTDRIVR 
Symbol tabie 

STABLE 

BTD$K DM 

BUF 

DMNAME 

DM_DRIVER 

DM DRVS1Z 

ECC 

FUNC 

10$ WRITELBLK 

LBN 

MODE 

PR$ MAPEN 

rea5y 

RETRY 

RK AS 

RK~BA 

RK^CSl 

RK CS1 M CDT 

RlTCSlXICERR 

RK~CS2 

RKICS2J1..NED 

RK_CS2.X.SCLR 

RK^DA 

RK_DB 

RK DC 

rOs 

rk ds m ddt 

rk"ds"m"drdy 

RK~ECT " 

RKlEC1_S.EPS 

RK.EC2 

RK^ER 

RK ER V DCK 

ROOIECH 

RK MRT 

RKIMR2 

RK MR3 

RK^SPR 

RK WC 

RPBSVUJNIT 

SIZ... 

SIZE 

SS$„CTRLERR 

SS$ NORMAL 

S$$_NOSUCHDEV 



Symbol table 



- RK06/7 BOOT DRIVER 



PSECT name 

. ABS . 
$ABS$ 

BOOTDRIVR 4 
BOOTDR J VR"2 



L 4 
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00000000 
00000001 
00000004 
00000116 
00000000 
00000123 
OOO00OB1 
00000010 
00000020 
0000000C 
00000014 
00000038 
0OO00OA9 
00000110 
OOOOOOOE 
00000004 
00000000 
00000400 
00008000 
00000008 
00001000 
00000020 
00000006 
00000014 
00000010 
OOOOOOOA 
00000100 
00000080 
00000018 
OOOOOOOD 
0000001A 

oooooooc 

0OO00OOF 
00000006 
00000016 
0000001 c 
0000001 E 
00000012 
00000002 
00000064 
OOOOOOOB 
00000008 
00000054 
00000001 
00000908 



R 



Allocation 

00000000 ( 

00000020 ( 

00000018 ( 

00000123 < 



02 



03 
03 

03 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 03 

D 03 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 





D 

D 

D 

D 

D 

D 

D 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

32.) 01 ( 1.) NOPIC USR 

24.) 02 ( 2.) NOPIC USR 

291.) 03 ( 3.) NOPIC USR 



ION 


ABS 


LCL NOSHR 


NOEXE 


NORD 


NOWRT NOVEC BYTE 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT NOVEC BYTE 


CON 


REL 


LCL NOSHR 


EXE 


RD 


WRT NOVEC BYTE 


CON 


REL 


LCL NOSHR 


EXE 


RD 


WRT NOVEC BYTE 



ZZ-ENSAA-7.0 
DM8TDR1VR 
Cross reference 



Cross reference 



- RK06/7 BOOT DRIVER 
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+ .. — •+ 

! Symbol Cross Reference ! 
+ ™ . + 



SYMBOL 

STABLE 

BTD$K^DM 

BUF 

DMNAME 

DM DRIVER 

DM~DRVS1Z 

EC? 

FUNC 

I0$_WR1TELBLK 

LBN 

MODE 

PRS MAPEN 

REA0Y 

RETRY 
RK BA 
RKICS1 

RK CS1 M CDT 

RK~CSTM"CERR 

RK~CS2~ " 

RCCS2J1.NED 

RK CS2J1.SCLR 

RK~DA 

RK~DC 

RK^DS 

RK DS M DDT 

RK~DS~M~DRDY 

RK ECT " 

RK EC1,S EPS 

RK~EC2 " 

RK ER 

RK~ER V_DCK 

RK~*ER~V ECH 

RK~WC~ " 

RPB$W UNIT 

SIZE " 

SS$ CTRLERR 

SS$"NORMAL 

SS$"NOSUCHDEV 



VALUE 


DEFINITION 


REFERENCES... 














00000000-R 


181 


(2) 


181 


(2) 














00000001 






181 


(2) 














00000004 


232 


(3) 


388 


(4) 


390 


(4) 










000001 16-R 


416 


(4) 


181 


(2) 














00000000-R 


238 


(3) 


181 


(2) 


#-399 


(4) 


418 


(4) 






00000123 


418 


(4) 


181 


(2) 














000000B1-R 


351 


(4) 


#-318 


(3) 














00000010 


235 


(3) 


#-246 


(3) 














00000020 






#-246 


(3) 














OOOOOOOC 


234 


(3) 


















00000014 


236 


(3) 


#-366 


(4) 














00000038 






#-365 


(4) 














OOOOO0A9-R 


324 


(3) 


#-257 
#-301 


(3) 
(3) 


#-262 
#-326 


(3) 
(3) 


#-279 


(3) 


#-284 


(3) 


00000110-R 


412 


(4) 


#-363 


(4) 


#-364 


(4) 


#-367 


(4) 


#-369 


(4) 


00000004 






#-297 


(3) 














00000000 






#-261 
#-300 


(3) 

(3) 


#-276 
#-310 


(3) 
(3) 


#-278 


(3) 


#-282 


(3) 


00000400 






#-266 


(3) 














00008000 






#-275 ' 


(3) 














0UC0O008 






#-256 


(3) 


#-258 


(3) 


#-269 


(3) 


#-277 


(3) 


00001000 






#-269 


(3) 














00000020 






#-256 


(3) 














00000006 






#-296 


(3) 














00000010 






#-293 


(3) 














OOOOOOOA 






#-264 


(3) 


#-280 


(3) 










00000100 






#-264 


(3) 














00000080 






#-280 


(3) 














00000018 






#-316 


(3) 














OOOOOOOD 






#-385 


(4) 


#-387 


<4> 










0000001 A 






#-317 


(3) 














OOOOOOOC 






#-313 


(3) 














OOOOOOOF 






#-363 


(4) 














00000006 






#-364 


(4) 














00000002 






#-299 


(3) 


#-314 


(3) 










00000064 






#-255 


(3) 














00000008 


233 


(3) 


#-381 


(4) 














00000054 






#-413 


(4) 














00000001 






#-309 


(3) 


#-405 


(4) 










00000908 






#-271 


(3) 
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Cross reference 
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MACRO 



SBOOT DRIVER 

SBTODfF 

S0EFIN1 

SIODEF 

SPRDEF 

SRPBDEF 

SSSDEF 

SUBADEF 

SUBIDEF 



SIZE 

1 

1 
1 

17 

4 

5 

21 

6 

2 





! Macros 


Cross 


Ref 


erence ! 




DEFINITION 


REFERENCES. 


• • 






178 (2) 


178 


(2) 








51 (2) 


51 


(2) 








51 (2) 


51 


(2) 




52 


(2) 




56 


(2) 




57 


(2) 


52 (2) 


52 


(2) 








53 (2) 


53 


(2) 








54 (2) 


54 


(2) 








55 (2) 


55 


(2) 








56 (2) 


56 


(2) 








57 (2) 


57 


(2) 









53 
70 



(2) 
(2) 



54 



(2) 



55 



(2) 



+——————— — — . .— -+ 

! Performance indicators ! 
+ „«— - -.+ 



Phase 



Page faults CPU Time 



Elapsed Time 



32 


00:00:00.12 


00:00:00.22 


141 


00:00:00.74 


00:00:01. *5 


538 


00:00:13.08 


00:00:15.84 





00:00:01.87 


00:00:02.10 


128 


00:00:02.26 


00:00:02.47 


8 


00:00:00.08 


00:00:00.08 


6 


00:00:00.03 


00:00:00.03 


19 


00:00:00.22 


00:00:00.52 


875 


00:00:18.42 


00:00:22.84 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

68417 bytes (134 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1256 non-local and 9 local symbols. 

420 source lines were read in Pass 1, producing object records in Pass 2. 

45 pages of virtual memory were used to define 16 macros. 

I Macro library statistics ! 
+,..• — — -— — ---------- -- t 



Mac ro I ibra y name 

DMA1;C$YS0.SYSMAINT]DS.ML8;218 
DMA1:CSYS0.SYSMAINT]DIAG.ML8;953 
SYS$SYSR00T:CSYSLI8JLJB.MLB;1 
SYS$SYSR00T:[SYSLJB]STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

o 

4 
7 

12 



1219 GFTS were required to define 12 macros. 

Th*re were no errors, warnings or information messayes, 

MACR0/N00BJECT/ u ISTc[DS,LISVCR0SS/ENA8LF=(DE8UG,TRACE) DN8TDR1VR/UPDA=(DMBTDRI VR,UPD,DMBTDRI VR.ENH)+SYS$LIBRARY:LIB/L1BRARY*DMA1 :[S 
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ZZ-ENSAA-7.0 

DQBTDR1VR 

V02-001 



RB730:RB02/RB80 BOOT DRIVER 
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OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 

4 

5 
6 
7 
8 
9 
10 
VI 
12 
13 
14 
15 
16 
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19 
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23 
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27 
28 
29 
30 
31 
32 
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34 
35 
36 
37 
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.TITLE 
.IDENT 
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******************************** ******** ************************************ 



COPYRIGHT (c) 1981 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



**************************************************************************** 



FACILITY: 



BOOTS 



ABSTRACT: 

This module contains the bootstrap device driver for 
the RB02 and RB80 disks on the RB730 controller. 

ENVIRONMENT: IPL 31, kernel mode, code must be PIC 

AUTHOR: Greg Robert, CREATION DATE: 09-Jun-1981 

NOTE: The RB730 controller is supported by host microcode which is 
activated each time a device register is accessed, and for 
each block transferred. Because of this, registers must be 
handled in strict accordance with the RB730 software specification. 
The following special registers protocols are significant: 

DAR -*• When the DAR is loaded some drive functions 

are initiated. Consequently the function code 
must be Loaded into the CSR (with CRDY set) 
prior to loading the DAR for seeks and transfers. 
For data transfers, the BAR and BCR must also 
be loaded prior to loading the DAR. 

MPR -« ■ The microcode keeps an internal disk address 

register for computing cylinder differance words 
for RB02 seek commands. If this internal register 
falls out of sync with the actual disk address 



it can be reset by executing a read header command 
Note that the header 
the MPR) in order to 



must actually be read (thru 
effect the reset. 
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0000 
0000 
0000 
0000 



58 
59 
60 
61 



MODIFIED BY 



ZZ-ENSAA-7.0 DECLARATIONS 








E 5 

27-JUL-1984 




Ff che 6 Frame E5 Seauence 1086 


DQBTDRiVR 


- RB730:RB02/RB80 BOOT 


DRIVER 


27-JUL- 


-1984 


15:' 


16:36 VAX-11 Macro V03-01 Page 3 


VO2-001 


DECLARATIONS 






2-DEC 


-1981 


10:31 \22 DMA1 :CSYSO.SYSMAINTJDQBTDRIVR.MAR; (2) 




OOOO 


63 




.SBTTL 


DECLARATIONS 










OOOO 


64 , 
















0000 


65 , 


INCLUDE FILES 


• 
• 










OOOO 


66 # 
















OOOO 


.1 




•I ibrar 


y /sys$Li 


brary 


: Lib/ 




OOOO 


.2 




.Library /$ds/ 










OOOO 


.3 




. librar 


y /$diag/ 










OOOO 


67 
















OOOO 


68 




SBTDDEF 








• Boot device types 




OOOO 


69 




SIODEF 








• I/O function codes 




OOOO 


70 




SPRDEf 








• Processor Register definitions 




OOOO 


71 




SRPBDEF 








■ RPB offsets 




OOOO 


72 




SSSDEF 








• Status codes 




OOOO 


73 




SUBADEF 








• UBA definitions 




COOO 


74 




SUBIDEF 








• 11/750 UBA definitions 




OOOO 


75 
















OOOO 


76 , 
















OOOO 


77 t 


• MACROS; 












OOOO 


78 , 
















OOOO 


79 
















OOOO 


80 
















OOOO 


81 


• EQUATED SYMBOLS: 










OOOO 


82 
















OOOO 


83 
















OOOO 


84 
















OOOO 


85 


; RB730:/R802/RB80 REGISTER OFFSETS 


FROM 


CSR ADDRESS 




OOOO 


86 
















OOOO 


87 




SDEFINI 


RB 






• START OF REGISTER DEFINITIONS 




OOOO 


88 
















OOOO 


89 J 


6DEF 


RB CS 


•BLKL 


1 




•CONTROL STATUS REGISTER (CSR) 




0004 


90 




.VlELD 


RB CS^^- 






•START OF CSR BIT DEFINITIONS 




0004 


91 






^RDY^M^- 






• DRIVE READY 




0004 


92 






^CODE^,- 






• FUNCTION CODE 




0004 


93 






<,2>,- 






• RESERVED BITS 




0004 


94 






<IE,,M>,- 






• INTERRUPT ENABLE 




0004 


95 






<CRDY,,M>,- 






• CONTROLLER READY 




0004 


96 






<DS,2>,- 






• DRIVE SELECT 




0004 


97 






<OPI,,M>,- 






• OPERATION INCOMPLETE 




0004 


98 






<CRC,,M>,- 






• DATA CRC OR HEADER CRC OR DATA ECC 




0004 


99 






<DLT,,M>,- 






• DATA LATE OR HEADER NOT FOUND 




0004 


100 






<NXM,,M>,- 






• NON-EXISTENT MEMORY 




0004 


101 






<DE,,M>,- 






• DRIVE ERROR 




0004 


102 






<CE,,M>,- 






• COMPOSITE ERROR 




0004 


103 






<ATN,4>,- 






• DRIVE ATTENTION BITS 




0004 


104 






<ECC,2>,- 






• ECC STATUS 




0004 


105 






<SSEJ,,M>,- 






• SKIP SECTOR ERROR INHIBIT 




0004 


106 






<SSE,,M>,- 






; SKIP SECTOR ERROR 




0004 


107 






<IR,,M>,- 






; IDC INTERRUPT REQUEST 




0004 


108 






<MTN,,M>,- 






• MAINTEHANCE MODE 




0004 


109 






<TYP,,M>,~ 






; DRIVE lYPE 1=RB80, 0=RB02 




0004 


110 






<ASSI,,M>,~ 






; AUTOMATiC SKIP SECTOR INHIBIT 




0004 


111 






<TOI,,M>,- 






r TIME OUT INHIBIT (U-DIAG'S) 




0004 


112 






<FMT,,M>,- 






; R80 FORMAT CONTROL 




0004 


113 






<,2>- 






; RESERVED BITS 




0004 
0004 
0004 


114 
115 
116 




> 








rEND CSR BIT DEFINITIONS 




&DEF 


R8.BA 


♦ BLKL 


1 




jBUS ADDRESS REGISTER (BAR) 



ZZ-ENSAA-7.0 DECLARATIONS 








F 5 

27-JUL-1984 Ffche 6 Frame F5 Sequence 1087 




DQBTDRIVR 


- RB730:RB02/RB80 BOOT 


DRIVER 


27-JUL-1984 15:' 


6; 36 VAX-11 Macro VQ3-0T Page 


4 


VO2-001 


DECLARATIONS 






2-DEC-1981 10:31 :22 DMA1 tCSYSO.SYSMAINTJDQBTDRIVR.ftAR; 


(2) 




0008 


117 














0008 


118 


$DEF 


RB.BC 


.BLKL 1 


BYTE COUNT REGISTER (BCR) 






OOOC 


119 














OOOC 


120 


$DEF 


RB DA 


.BLKL 1 


DISK ADDRESS Rc-jSTER (DAR) 






0010 


121 




J/lELD 


RB DA.O^- 


'START OF DAR BIT DEFINITIONS 






0010 


122 






^EcS^- 


SECTOR 






0010 


123 






^RK^,- 


TRACK 






0010 


124 






<CYL,16>- 


CYLINDER 






0010 


125 




> 




END OF DAR BIT DEFINITIONS 






0010 


126 














0010 


127 


$DEF 


RB MP 


.BLKL 1 


MULTIPURPOSE REGISTER (MPR) 






0014 


128 




.VlELD 


RB MP,0,<- 
<STA,3>,- 


RB02 STATUS WORD DEFINITIONS 






OOH 


129 






DRIVE STATE 






0014 


130 






<BH,,M>,- 


BRUSH HOME 






OOH 


131 






<HO,,M>,- 


HEADS OUT 






OOH 


132 






<CO,,M>,- 


• COVER OPEN 






OOH 


133 






<HS,,M>,- 


• HEAD SELECT 






OOH 


134 






<J>,- 


• RESERVED 






OOH 


135 






<DSE,,M>,- 


* DRIVE SELECT ERROR 






OOH 


136 






<VC,,M>,- 


• VOLUME CHECK 






OOH 


137 






<WGE,,M>,- 


WRITE GATE ERROR 






OOH 


138 






<$PE,,M>,- 


• SPIN ERROR 






OOH 


139 






<SKTO,,M>,- 


• SEEK TIME OUT 






OOH 


HO 






<WL,,M>,- 


• WRITE LOCK 






OOH 


H1 






<CHE,,M>,- 


• CURRENT HEAD ERROR 






OOH 


142 






<WDE,,M>- 


• WRITE DATA ERROR 






OOH 


143 




> 










OOH 


144 




.VJELD 


RBMP,0,<- 


•GET STATUS COMMAND DEFINITIONS 






OOH 


145 






<mRk,,m>,- 


• MARK (ALWAYS 1) 






OOH 


146 






<STS,,M>,- 


• GET STATUS 






OOH 


147 






<#1>#- 


• RESERVED 






OOH 


148 






<RST,,M>,~ 


• RESET 






OOH 


149 




> 










OOH 


150 




.VJELD 


RB MP,0,<- 


•RB80 STATUS WORD DEFINITIONS 






OOH 


151 






<SEC,5>,- 


• CURRENT RB80 SECTOR 






OOH 


152 






<,3>,- 


• RESERVED 






OOH 


153 






<FLT,,M>,- 


• DRIVE FAULT 






OOH 


154 






<PLGV,,M>,- 


PLUG VALID 






OOH 


155 






<SKE,,M>,~ 


• SEEK ERROR 






OOH 


156 






<ONCY,,M>,- 


• ON CYLINDER 






OOH 


157 






<DRDY,,M>,- 


• DRIVE READY 






OOH 


158 






<WTP,,M>,- 


• WRITE PROTECT 






OOH 


159 






<,2>,- 


• RESERVED 






OOH 


160 




> 




•END MPR BIT DEFINITIONS 






OOH 


161 














OOH 


162 


$DEF 


RB EC1 


.BLKL 1 


•ECC PATTERN REGISTER (EPAR) 






0018 


163 




^VlELD 


RB EC1.0,<- 
<P0S,11>,- 


•START OF EC1 BIT DEFINITIONS 






0018 


164 






• STARTING BIT POSITION OF ECC ERROR 






0018 


165 






< # 21>- 


• RESERVED 






0018 
0018 
0018 


166 
167 
168 




> 




•END EC1 BIT DEFINITIONS 






SDEF 


RB EC2 


.BLKL 1 


•ECC POSITION REGISTER (EPOR) 






001C 


169 




_VTELD 


RB,EC2,0,<- 

<PKT,11>,- 


•START OF EC2 BIT DEFINITIONS 






001C 


170 






• PATTERN OF ECC ERROR BURST 






OOK 


171 






<,21>- 


• RESERVED 






001C 


172 




> 




•END EC2 BIT DEFINITIONS 






OOK 


173 













ZZ-ENSAA-7.0 

DQBTDR1VR 

V02-001 



DECLARATIONS 



- RB730:RB02/RB80 
DECLARATIONS 



BOOT DRIVER 



6 5 

27-JUL-1984 Fiche 6 Frame G5 Seguence 1088 

27-JUL-1984 15:16:36 VAX-11 Macro V03-0T Page 5 
2-DEC-1981 10:31:22 DMA1 :CSYSO.SYSMAINT]DQBTDRIVR.«AR; (2) 



00000000 

00000006 

00000008 

00000002 

0000000A 

OOOOOOOC 

00000004 

OOOOOn* 

OOOOOUw 



001 c 
0020 
0020 
0020 
0020 
0C20 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 



17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 



$DEF 



RB CMD 
VlELD 



.BLKL 
RB CMD,0,<- 
<IRIT,32>,- 



1 



SDEFEND RB 



HARDWARE FUNCTION CODES 



FJJOP=0*2 
F_SEEK=3*2 
F_READHEAD=4*2 
F..WRITECHECK=1*2 
FJJRITEDATA=5*2 
F_READDATA=6*2 
F 6ETSTATUS=2*2 
BTDSK DQ = 3 
PRS.STD.TYP730 « 3 



OWN STORAGE: 



;AUXILLARY COMMAND REGISTER 
;START OF CMD BIT DEFINITIONS 

; SUBSYSTEM CLEAR < 1 

;END CMD BIT DEFINITIONS 

;END RB730:RB80/RB02 REGISTER DEFS 



NO OPERATION 
SEEK CYLINDER 
READ HEADER 
WRITE CHECK 
WRITE DATA 
READ DATA 
GET STATUS 



Boot driver table entry 



$BOOT_DRiVER 



CPUTYPE = 
DEVTYPE = 
SIZE = DQ, 
ADDR = DQ 
DRIVRNAME 



PR$ SID TYP730,- ; Must be VAX 11/730 
BTDlK DC- ; Device type (DQ) 
DRVSlZ,- ; Driver size 
DRIVER,- ; Driver address 
= DQNAME ; Driver file name 



ZZ-ENSAA-7.0 

DQBTDRIVR 
V02-001 



H 5 

RB730:RBQ2/RB80 Bootstrap driver code 27-JUL-1984 Fiche 6 Frame H5 Seguence 1089 

- RB730:RB02/RB80 BOOT DRIVER 27-JUL-1984 15:16:36 VAX-11 Macro V03-0T Page 6 
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0000 210 

0000 211 

0000 212 

0000 213 

0000 214 

0000 215 

0000 216 

0000 217 

0000 218 

0000 219 

0000 220 

0000 221 

0000 222 

0000 223 

0000 224 

0000 225 

0000 226 

0000 221 

0000 228 

0000 229 

0000 230 

0000 231 

0000 232 

0000 233 

0000 234 

0000 235 

0000 236 

0000 237 

0000 238 

0000 239 

0000 240 

0000 241 

0000 242 

0000 243 

0000 244 

0000 245 

0000 246 

0000 247 

0000 248 

0000 249 

0000 250 

0000 251 

0000 252 

0000 253 

0000 254 

0000 255 

0000 256 

0000 257 

00000004 0000 258 

00000008 0000 259 

00000010 0000 260 

0000 261 

0000 262 

C000 263 

0000 264 

00QQ 265 

0000 266 



♦SBTTt RB730:RB02/R880 Bootstrap driver code 



4* 



Inputs: 



R3 - base address of adapter's register space 

R5 - LBN FOR CURRENT PIECE OF TRANSFER 

R6 - contains 

R7 - address of device's CSR 

R8 - SIZE OF TRANSFER IN BYTES 

R9 - address of the RPB 

R10 - starting address of transfer (byte offset in first 
page ORed with starting map register number) 

FUNC(AP)- I/O operation (10$ READLBLK or IO$,WRITELBLK only) 
BUF(AP) - Buffer address 
SIZE(AP)- Size of transfer 



Implicit inputs: 

RPB$W_UNIT 
Outputs: 

R0 - status code 



- RPB field containing boot device unit number 



SS$ NORMAL 
SSS_CTRLERR 



- successful transfer 

- fatal controller error 



R3 - must be preserved 

This routine destroys R1, R2, R4, R5, R6. 

Register useage during this routine: 

R0 - scratch 

R1 - byte count for current transfer / scratch 

R2 - scratch 

R3 - adaptor base address 

R4 - unit number 

R5 * logical block number for current transfer 

R6 - disk address for current transfer / scratch 

R7 - device CSR 

R8 - remaining byte count 



BUF = 4 

SIZE = 8 
FUNC = 16 

DQ.DRJVER: 



COMPUTE ADDRESS OF DEVICE CSR 



ZZ-ENSAA-7,0 

DQBTDRIVR 

V02-001 



I 5 

RB730:RB02/RB80 Bootstrap driver code 27-JUL-1984 Fkhe 6 Frame 15 Seguence 1090 

- RB73O:RB02/RB80 BOOT DRIVER 27-JUL-1984 15:16:36 VAX-11 Macro V03-01 Paae 7 

RB73Q:RB02/RB80 Bootstrap driver code 2-DEC-1981 10:31:22 DMA1 :[SYSO.SYSMAINT]DQBTDRIVR,MAR; (3) 



57 0200 


C3 


DE 


0000 
0005 
0005 
0005 


267 
268 
269 








?70 








0005 


271 




54 


D4 


0005 


272 


08 64 


A9 


F0 


0007 


273 


54 


02 




000B 
OOOD 
OOOD 
OOOD 
OOOD 


2 7 4 
275 
276 
277 


1C A7 


01 


CE 


OOOD 


278 






DO 


0011 
0012 
0012 


279 
280 
281 


10 A7 


0B 




0012 


282 




54 


C9 


0015 
0017 


283 
284 


67 


04 




0017 


285 


00F9 


30 


0019 


286 


50 10 


A7 


DO 


001 C 


287 


04000000 8F 


D3 


0020 


288 




67 




0026 






15 


12 


0027 
0029 
0029 
0029 
0029 


289 
290 
291 
292 
2*3 


50 05 


00 
1D 


ED 


0029 
002D 
002E 
002E 
002E 


294 

295 
296 
297 




DD 


12 


002E 
0030 
0030 
0030 
0030 
0030 


298 
299 
300 
301 
302 
303 




54 


C9 


0030 
0032 


304 
305 


67 


08 




0032 


306 


00DE 
10 A7 10 A7 


30 
D1 


m 


K 








003C 


309 




07 


11 


003C 
003E 
003E 
003E 
003E 
003E 


310 
311 
312 
313 
314 
315 


50 05 


08 
1A 


ED 


003E 
0042 
0043 
0043 
0043 


316 

317 
318 
319 



MOVAL A X200(R3),R7 



COMPUTE CORRECT DEVICE CSR 



POSITION AND STORE THE UNIT NUMBER IN R4 FOR GLOBAL USE 



CLRL R4 

INSV RPBSW.UNI T (R9) ,A8,*2,R4 



RESET DRIVE AND GET STATUS 



CLEAR R4 

GET UNIT NUMBER 



10$: 



MNEGL 


*1,RB CMDCR7) 


INITIALIZE SUBSYSTEM 


MOVL 


#RB MP M STS- 


PUT GET STATUS 




!RB>PJCRST- 


... AND WITH RESET 




!RB MP M MRK,- 


... AND MARK BIT 




RBJIP(R77 


... INTO DAR 


BISL3 


R4,- 


MERGE UNIT NUMBER 




#F_GETSTATUS,- 


... AND FUNCTION 




RB CS(R7) 


• ... INTO CSR 


BSBU 


RE*DY 


* WAIT FOR DRIVE AND C 


MOVL 


RB_MP(R7),R0 


• FETCH STATUS WORD 


BITL 


#RB_CS.M„TYP # RB.CS(R7) , 


• IS THIS AN RB80? 


BNEQ 


15$ 


• BRANCH IF SO 



READY 



CHECK RB02 STATUS 



CMPZV *0,*5,R0,- 



8NEQ 



#RB MP.M.HO« 
!RB_MP M BH« 
!5 
10$ 



READ A HEADER TO MAKE SURE MICROCODE 
DISK POSITION 

BISL3 R4,~ 

#FJ*EADHEAD,- 

RB CS(R7) 
BS8W READY 
CMPL RB_MP(R7),RB_MP<R7) 

BRB 20$ 



; CHECK RB80 STATUS 

15$: CMPZV *8,tf5,R0,- 

#<RB MP M DRDY- 
!RB MP fl ONCY- 
!RB w MP^MlPLGV>- 



; TEST BITS 04:00 OF STATUS FOR 

; ... HEADS OUT 

; . .. BRUSHES HOME 

; ... SEEK LINEAR MODE (READY TO GO) 

; LOOP IF NOT READY 



IS SYNCRONIZED WITH CURRENT 



MERGE UNIT NUMBER 

... AND FUNCTION 

... INTO CSR 

WAIT FOR DRIVE AND CONTROLLER READY 

READ THE HEADER (UCODE DOESN'T LOOK 

...AT IT UNLESS WE ACCESS IT) 

CONTINUE IN COMMON 



; TEST BITS 08:12 OF STATUS FOR 

; ...DRIVE READY 

; ...ON CYLINDER 

; ...PLUG VALID 



















J 5 


— — — — ^^^^— — — — — — — - — ■ — ^ 


ZZ-ENSAA-7.0 


RB730:R802/R880 Boot 


strap Q 


river 


code 




27-JUL-1984 


Fiche 6 Frame J5 Sequence 1091 
15:16:36 VAX-11 Macro V03-0T Page 8 
10:31:22 DMA1:CSYS0.SYSMAINT]DQBTDRIVR.MAR; (3) 


OQBTDRIVR 






- RB730:RBC 


2/RB80 BOOT 


DRIVER 


27-JUL-1984 


VO2-001 






RB730:RB02/RB80 Bootstrap driver code 2-DEC-1981 










0043 


320 






8-8 


; ...SHIFT TO LOW BYTE 






C8 


12 


0043 
0045 
0045 
0045 


321 ' 
322 
323 
324 t 


18$: 


BNEQ 


10$ 


; 1^ NOT, BRANCH TO WAIT FOR IT 










0045 


325 , 


• NOW 


CONVERT 


LOGICAL TO PHYSICAL ~ 


THE COMPUTED DISK ADDRESS HAS THE 










0045 


326 


; FORM 


OF A LONG WORD WITH LOW BYTE= 


SECTOR, NEXT BYTE=TRACK, AND HIGH 










0045 


327 


; WORD 


= CYLINDER. 












0045 


328 


















0045 


329 




• 


I) CYLINDER = LBN / BLOCKS PER CYLINDER 










0045 


330 






ID TRACK = REMAINDER(I) / BLOCRS_PER„TRACK 










0045 


331 






III) RB02_SECTOR 


= REMAINDER(II) * 2 










0045 


332 






IV) RB8Q.SECT0R 


= REMAINDER(II) 










0045 


333 


















C045 


334 














51 


D4 


0045 


335 ; 


?0$: 


CLRL 


R1 


; CLEAR HIGH PART OF DIVIDEND 






56 


D4 


0C47 


336 




CLRL 


R6 


; CLEAR HIGH PART OF DIVIDEND 




04000000 


8F 
67 
13 


D3 


0049 
004F 
0050 


337 




BITL 


*RB_CS.A.TYP,R8.,CS(R7) ; IS THIS AN RB80? 






12 


338 




BNEQ 


25$ 


; BRANCH IF SO 










0052 


339 


















0052 


340 


















0052 


341 


•COMPUTE R802 


DISK ADDRESS 












0052 


342 












52 55 


28 
50 


7B 


0052 
0056 


343 




EDIV 


#40/2*2, R5,R2,R0 


; R2 = DESIRED CYL, RO = REMAINING BLKS 




50 50 


14 
56 


78 


0057 
005B 


344 




EDJV 


#40/2,R0,RG,R6 


; RO = DESIRED TRK, R6 = REMAINING BLKS 




56 


02 


C4 


005C 


345 




MULL 


#2,R6 


; 2 SECTORS PER BLOCK 




51 28 


56 


C3 


005F 


346 




SUBL3 


R6,#40,R1 

2?i 


; R1 = 256 BYTE SECTORS LEFT ON SURFACE 






15 


11 


0063 
0065 
0065 


347 
348 

349 




BR8 


; CONTINUE IN COMMON 










• 
















0065 


350 


; COMPUTE R880 


DISK ADDRESS INSTEAD 












0065 


351 


• 










000001B2 


8F 


7B 


0065 


352 i 


&5$: 


EDIV 


#31*14, R5,R2,R0 


; R2 = DESIRED CYL, RO = REMAINING BLKS 




50 52 


55 




0068 














50 50 


1F 
56 


7B 


006E 
0072 


353 




EDIV 


«1,R0,R0,R6 


; RO = DESIRED TRK, R6 = REMAINING BLKS 




51 1F 


56 


C3 


0073 


354 




SUBL3 


R6,#31,R1 


; R1 = 512 BYTE SECTORS LEFT ON SURFACE 




51 


02 


C4 


0077 
007A 
007A 


355 
356 
357 


» 


MULL 


#2,R1 


; R1 = 256 BYTE SECTORS LEFT ON SURFACE 










007A 


358 


;]F FINAL TRANSFER USE REMAINING BYTE COUNT, ELSE USE REMAINDER OF TRACK 










007A 


359 


* 










00000100 8F 

C1 


C4 


007A 
0080 
0081 


360 


&7*s 


MULL 


«56.M 


; R1 = BYTES LEFT ON SURFACE 




51 


58 


01 


361 




CMPL 


R8,R1 
284 


; ARE ADDITIONAL TRANSFERS REQUIRED? 






03 


1A 


0084 
0086 


362 




BGTRU 


; BRANCH IF ANSWER YES 




51 


58 


DO 


363 




MOVL 


R8,R1 


; SET BYTE COUNT FOR FINAL TRANSFER 










0089 


364 


















0089 


365 


















0089 


366 
367 


•FORM 


FULL DISK ADDRESS <CYL, TRK, SEC) 










0089 


* 










10 10 


52 
56 
50 


F0 


0089 
008D 
008E 


368 


&8$: 


1NSV 


R2,#16,#16,R6 


; MOVE CYLINDER INTO HIGH WORD 




08 08 


FO 


369 




INSV 


R0,#8,#8,R6 


; MOVE TRACK INTO SECOND BYTE 



ZZ-ENSAA-7.0 

DQBTDRIVR 

V02-001 
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.„.- DRIVER 27-JUL-1984 15:16:36 VAX-11 Macro V03-01 Paae 9 

RB730:RB02/RB80 Bootstrap driver code 2-DEC-1981 10:31:22 0MA1 ^SYSO.SYSMAINHDQBTDRIVR.MAR; <3) 



RB730:RB02/RB30 Bootstrap driver cede 

- RB730:RB02/RB80 BOOT 





56 




0092 
0093 
0093 
0093 
0093 
0093 
0093 


370 
371 
372 
373 
374 
375 




54 


C9 


0093 
0095 
0095 


376 
111 
378 


00000086 8F 




0095 


379 




67 




009A 




OC A7 


56 


DO 


0098 


380 


00000080 8F 


CA 


009F 


381 




67 




00A5 




006C 


30 


00A6 


382 




51 


19 


00A9 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 


383 
384 
385 
386 
387 
388 


52 8C 


8F 


9A 


OOAB 
OOAF 


389 
390 


20 10 


AC 


D1 


OOAF 


391 




04 


12 


00B3 


392 


52 8A 


8F 


9A 


00B5 
00B9 
00B9 
0089 
00B9 
00B9 
00B9 
00B9 
00B9 
00B9 


393 
394 
395 
396 
397 
398 
399 
400 
401 
402 


7 52 


54 


C9 


00B9 
OOBD 


403 
404 


08 A7 


51 


CE 


OOBD 


405 


04 A7 


5A 


DO 


00C1 


406 


OC A7 


56 


DO 


00C5 


407 


00000080 


8F 
67 


CA 


00C9 
OOCF 


408 


0042 


30 


OODO 


409 




21 


19 


00D3 
00D5 
00D5 
00D5 
00D5 
00D5 


410 
411 
412 
413 
414 
415 


5A 04 


hi 


DO 


00D9 


416 
417 


58 


51 


C2 




OP 


18 


OODC 


418 


00000200 8f 


C6 


OODE 


419 




51 




00E4 




55 


51 


CO 


00E5 


420 


FF5A 


31 


00E8 


421 



PERFORM SEEK — NOTE: FOR R8730 SEEKS AND TRANSFERS, THE COMMAND 
MUST BE LOADED INTO THE CSR WITH CONTROLLER READY BIT SET, BEFORE 
WRITING TO THE DISK ADDRESS REGISTER !!! 



BISL3 R4, - 

#F SEEK- 

!RB CS M CRDY,- 

RBjS(R7T 

MOVL R6,RB DA(R7) 

BICL #RB_C3..M„CRDY,RB_CS(R7) 

BS8W READY 
BLSS 100$ 



MERGE UNIT NUMBER 
... FUNCTION AND 
... SUPPRESS EXECUTION 
... INTO CSR 

LOAD DISK ADDRESS IN DAR 
INITIATE THE FUNCTION 

WAIT FOR CONTROLLER AND DRIVE READY 
BRANCH IF ERROR 



SEEK IS COMPLETE — EXECUTE TRANSFER FUNCTION 



60$: MOVZBL #F READDATA- 

!RB CS M CRDY,R2 

CMPL FUNt<AP),*IO$_WRITELBLK 

BNEQ 70$ 

M0V2BL #F WRITEDATA- 

!R6_CS_M_CRDY,R2 



ASSUME READ FUNCTION 

... WITH CONTROLLER READY 

IS IT A WRITE FUNCTION? 

BRANCH IF NOT 

SET WRITE FUNCTION CODE 

... WITH CONTROLLER READY 



NOTE: THE DEVICE REGISTERS MUST BE LOADED IN THE PRESCRIBED ORDER! 

1) FUNCTION CODE LOADED INTO CSR WITH CRDY SET 

2) BYTE COUNT AND MEMORY ADDRESS (THESE TWO ARE REVERSABLE) 

3) DISK ADDRESS (FIRST HARDWARE SILO LOADED AT THIS TIME) 

4) CRDY CLEARED (SECOND SILO LOADED, XFER BEGINS) 



ft)$: BISL3 R4,R2,- 

RB_CS(R7) 

MNEGL R1,RB BC(R7) 

MOVL R10,RB BA(R7) 

MOVL R6,RB JA(R7) 

BICL #RB_CS_M_CRDY,RB_CS(R7) 

BS9W READY 

BLSS 100$ 



MERGE UNIT NUMBER AND FUNCTION 

..INTO CSR 

SET NEG TRANSFER BYTE COUNT 

SET BUFFER ADDRESS 

SET DESIRED DISK ADDRESS 

INITIATE THE FUNCTION 

WAIT FOR CONTROLLER AND DRIVE READY 
BRANCH ON ERROR 



UPDATE BUFFER ADDRESS, BLOCK NUMBER, AND BYTES REMAINING 
FOR NEXT TRANSFER 



MOVL RB BA(R7),R10 

SU8L R1,R8 

BLEQU 90$ 

DIVL #512, R1 

ADDL R1-RS 

BRW 20$ 



UPDATE BUFFER ADDRESS 
UPDATE BYTES LEFT TO TRANSFER 
BRANCH IF TRANSFER COMPLETE 
COMPUTE BLOCKS TRANSFERRED 

UPDATE LOGICAL BLOCK NUMBER 
CONTINUE TRANSFER 



ZZ-ENSAA-7.0 

DQBTDR1VR 

V02-001 



51 08 AC 

07 

00008000 8F 

51 

50 01 



58 08 AC 

07 

00001 F40 8F 

58 

09 00 

5A 04 AC 

50 0054 8F 



00008080 



8F 
67 

F7 



00008001 8F 
67 

EE 
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RB730:RB02/RB80 Bootstrap driver code 

- RB730:RB02/RB80 BOOT 



49 
58 



52 
45 



44 
2E 



51 
52 



44 

45 



3C 
12 
DO 

3C 
05 



3C 
12 
DO 

EF 

3C 
05 



D3 



13 
u3 



13 
05 

00' 
56 
45 
OC 



00000135 



OOEB 
OOEB 
OOEB 
OOEB 
OOEB 
OOEB 
OOEF 
00F1 
OOF 7 
00F8 
OOFB 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
0100 
0102 
0108 
0109 
010C 
010F 
0114 
0115 
0115 
0115 
0115 
0115 
0115 
0115 
0115 
0116 
0116 
011B 
011C 
011E 
01 IF 
011F 
0124 
0125 
0127 
0128 
0128 
01 2E 
0134 
0128 
0135 
0135 
0135 
0135 



422 

423 

424 

425 

426 

427 90$: 

428 

429 

430 95$: 

431 

432 

433 

434 

435 

436 

437 100$: 

438 

439 



TRANSFER COMPLETE - RETURN 



MOVZWL 

BNEQ 

MOVL 

MOVZWL 
RS8 



RETRY ERROR 



S1ZE(AP),R1 

95$ 

# A X8000,R1 

#SS$..NORMAL,R0 



SET TOTAL BYTES TRANSFERRED 

BRANCH If ORIGINAL SIZE WAS TRANSFERRED 

ELSE SIZE WAS FORCED TO 64K 

SET COMPLETION CODE 
AND RETURN 



MOVZWL 

BNEQ 

MOVL 



SJZE(AP),R8 
110$ 
#8000, R8 



440 110$: EXTZV #0,A9,BUF (AP) ,R10 



441 

442 

443 

444 

445 

446 

447 

448 

449 READY: 

450 

451 

452 

453 
454 
455 
456 



MOVZWL #SS$.CTRLERR,RO 
RSB 



RESTORE BYTE SIZE OF TRANSFER IN R8 
BRANCH IF SIZE WAS LEGAL 
ELSE FORCE TO 64K SIZE 

RESTORE BYTE OFFSET IN R10 

SET FATAL CONTROLLER ERROR 
AND ATTEMPT RETRY 



SUBROUTINE TO WAIT FOR CONTROLLER AND DRIVE READY OR ERROR 



BITL 



BEQL 
BITL 



457 BEQL 

458 RSB 
459 

460 DQNAME: .ASCIC 



#RB„CS.ACRDY- 
!RB CS M CE,- 
RB_CS(R77 

READY 

*RB_CS_M..DRDY- 
!RB CS M CE,- 

RB.CS(R7T 
READY 



/DQDRIVER.EXE/ 



CONTROLLER READY 
...OR ERROR? 
... DEVICE CSR 

LOOP UNTIL CRDY OR ERROR 
DRIVE READY 
..•OR ERROR? 
... DEVICE CSR 

LOOP UNTIL DRDY OR ERROR 



Driver file name 



461 

462 DQ^DRVSIZ^.-DQ^DRIVER 

463 

464 .END 



2Z-ENSAA-7.0 
DQBTDRIVR 

Symbol table 

STABLE 

BTDSK DQ 

BUF " 

OQNAME 

DQ,DR1VER 

DQ DRVSIZ 

FURC 

F GETSTATUS 

F'NOP 

F'READDATA 

F'READHEAD 

F..SEEK 

F WRITECHECK 

F WRITEDATA 

10$ WRITELBLK 

PR$~SIDJYP730 

RBjA 

RB BC 

RB CMD 

RBlCS 

RB_CSJ1_CE 

RB_CS_M_CRDY 

RB_CS..MJ>RDY 

RB..CSJWYP 

RB DA 

RB"EC1 

RB.EC2 

RB,MP 

RB K? M BH 

RB"MP"M"DRDY 

RB'MP-fTHO 

RB"MP"M"MRK 

RB~MP~M"ONCY 

RB"MP"M*"PLGV 

RB'MP M RST 

RB~MP~M~STS 

RE*DY~ " 

RPBSW UNIT 

SIZ..7 

SIZE 

SS$ CTRLERR 

SS$"NORMAL 



Svmbol table 



PSECT name 

. ABS . 
$ABS$ 

BOOTDRIVR 4 
BOOTDRIVR"? 



- RB730:RB02/RB80 BOOT DRIVER 
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00000000 R 


D 02 


00000003 


D 


00000004 


D 


00000128 R 


D 03 


00000000 R 


D 03 


00000135 


D 


00000010 


D 


00000004 


D 


00000000 


D 


oooooooc 


D 


00000008 


D 


00000006 


D 


00000002 


D 


OOOOOOOA 


D 


00000020 


D 


00000003 


D 


00000004 


D 


00000008 


D 


0000001 c 


D 


00000000 


D 


00008000 


D 


00000080 


D 


00000001 


D 


04000000 


D 


OOOOOOOC 


D 


OOOOOOK 


D 


00000018 


D 


00000010 


D 


00000008 


D 


00001000 


D 


00000010 


D 


00000001 


D 


00000800 


D 


00000200 


D 


00000008 
00000002 


D 


D 


00000115 R 


D 03 


00000064 


D 


00000020 


D 


00000008 


D 


00000054 


D 


00000001 


D 



Al location 

0000000™ ( 
00000020 < 
00000018 ( 
00000135 ( 



4.-..— „...--»„..---+ 
! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

32.) 01 ( 1.) NOPIC USR 

24.) 02 ( 2J NOPJC USR 

309.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCI 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 
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DQBT0R1VR 
Cross reference 



Cross reference 



- RB73O;RB02/RB8O BOOT DRIVER 



SYMBOL 



STABLE 

BTDSK OQ 

BUF 

DQNAME 

OQ DRIVER 

DCTDRVSIZ 

FURC 

F GETSTATUS 

F'NOP 

F~READDATA 

F^READHEAD 

F_SEEK 

F WRITECHECK 

FJJRITEDATA 

lO$_WRITELBLK 

PR$ SID TYP730 

RB 5A " 

RBlBC 

RB.CMD 

RB_CS 



RB CS M CE 
RB~CS M"CRDY 



RB CS 

RB"CS. 

RB"DA 

RB MP 

RB~MP 

RB~MP* 

RB"MP' 

RB~MP' 

RB"MP' 

RB'MP" 

R8~MP* 

RB~MP" 

READY' 



M DRDY 

"m:typ 



M BH 

'M"DRDY 

M"MO 

'M~MRK 
M~ONCY 
"M"PLGV 
M RST 
'M'SFS 



RPBSW UNIT 
SIZE ' 
SS$ CTRLERR 
SS$"NORMAL 
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+ ....... .——-.— — — •--»4 

! Symbol Cross Reference J 



VALUE 


DEFINITION 


REFERENCES... 














OOOOOOOO-R 


208 


(2) 


208 


(2) 














00000003 


192 


(2) 


208 


(2) 














00000004 


258 


(3) 


440 


(3) 














000001 28-R 


460 


(3) 


208 


(2) 














00000000-R 


262 


(3) 


208 


(2) 


462 


(3) 










00000135 


462 


(3) 


208 


(2) 














00000010 


260 


(3) 


#-391 


(3) 














OOO00CO4 


191 


(2) 


#-284 


(3) 














00000000 


185 


(2) 


















0000000C 


190 


(2) 


#-390 


(3) 














00000008 


187 


(2) 


#-305 


(3) 














00000006 


186 


(2) 


#-378 


(3) 














00000002 


188 


(2) 


















0000000A 


189 


(2) 


#-394 


(3) 














00000020 






#-391 


(3) 














00000003 


193 


k?) 


208 


(2) 














00000004 






#-406 


(3) 


#-416 


(3) 










00000008 






#-405 


(3) 














0000001 C 






#-278 


(3) 














00000000 






#-285 


(3) 


#-288 


(3) 


#-306 


(3) 


#-337 


(3) 








#-379 


(3) 


#-381 


(3) 


#-404 


(3) 


#-408 


(3) 








#-452 


(3) 


#-456 


(3) 










00008000 






#-451 


(3) 


#-455 


(3) 










00000080 






#-378 
#-408 


(3) 
(3) 


#-381 
#-451 


(3) 
(3) 


#-390 


(3) 


#-394 


(3) 


00000001 






#-455 


(3) 














04000000 






#-288 


(3) 


#-337 


(3) 










oooooooc 






#-380 


(3) 


#-407 


(3) 










00000010 






#-282 


(3) 


#-287 


(3) 


#-308 


(3) 






00000008 






#-297 


(3) 














00001000 






#-318 


(3) 














00000010 






#-296 


(3) 














00000001 






#-281 


(3) 














00000800 






#-319 


(3) 














00000200 






#-319 


(3) 














00000008 






#-281 


(3) 














00000002 






#-280 


(3) 














000001 15-R 


449 


(3) 


#-286 
#-453 


(1) 

(3) 


#-307 
#-457 


(3) 
(3) 


#-382 


(3) 


#-409 


(3) 


00000064 






#-273 


(3) 














0000C008 


259 


(3) 


#-427 


(3) 


#-437 


(3) 










00000054 






#-441 


(3) 














00000001 






#-430 


(3) 
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MACRO 



sboot driver 
sbtddFf 

SDEF1NI 

SIODEF 

SPRDEF 

SRPBDEF 

SSSDEF 

SUBADEF 
SUBIDEF 



SIZE 

1 

1 
1 

17 

4 

5 

21 

6 

2 





! Macros 


Cross 


Reference ! 




DEFINITION 


REFERENCES. 


* • 




204 (2) 


204 


(2) 






68 (2) 


68 


(2) 






68 (2) 


68 


(2) 


69 


(2) 




73 


(2) 


74 


(2) 


69 (2) 


69 


(2) 






70 (2) 


70 


(2) 






71 (2) 


71 


(2) 






72 (2) 


72 


(2) 






73 (2) 


73 


(2) 






74 (2) 


74 


(2) 







70 
87 



(2) 
(2) 



71 



(2) 



72 



(2) 



! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 32 00:00:00.14 00:00:00.27 

Command processing 143 00:00:00.77 00:00:01.63 

Pass 1 909 00:00:13.60 00:00:18.47 

Symbol table sort 00:00:01.91 00:00:02.09 

Pass 2 167 00:00:02.39 00:00:02.81 

Symbol table output 9 00:00:00.10 00:00:00,35 

Psect synopsis output 6 00:00:00.02 00:00:00.02 

Cross-reference output 30 00:00:00.20 00:00:00.23 

Assembler run totals 1299 00:00:19,16 00:00:25.89 

The working set limit was 1000 pages. 

67105 bytes (132 pages) of virtual memory were used to buffc? the intermediate 

There were 70 pages of symbol table space allocated to hold 1228 non-local and 
467 source lines were read in Pass 1, producing object records in Pass 2, 
45 pages of virtual memory were used to define 16 macros. 

! Macro library statistics ! 

Macro library name Macros defined 

DRB1:CDS.WORK]DIAG.MLB;955 

DRB1:CDS.W0RKJDS.MLB;218 1 

SYS$SYSROOT:[SYSLIB3llB,MLB;1 4 

0MA1:CSYS0.SYSMAINT]DS.ML8;218 

DMA1:CSYS0.SYSMAINTJDIA6.MLB;953 

SYS$SYSR00T:CSYSLIB]LIB,MLB;1 

SYS$SYSR00T:CSYSLI8]STARLET.ML8;2 7 

TOTALS (all libraries) 12 

1219 GETS were required ro define 12 macros. 



code. 
13 local 



symbols. 



C 6 
ZZ-ENSAA-7,0 Cross reference 27-JUL-1984 Fiche 6 Frame C6 Sequence 1097 

DQBTDR1VR - RB730:RB02/R880 BOOT DRIVER 27-JUL-1984 15:16:36 VAX-11 Macro V03-01 Page H 

VAX-11 Macro Run Statistics 2-DEC-1981 10:31:22 DMA1 jCSYSO.SYSMAINTJDQBTDRIVR.MAR; (3) 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/L1ST=[DS.I.IS]/CR0SS/ENABLE= (DEBUG , TRACE) DQBTDRIVR/UPDA=(DQBTDRIVR.UPD,DQBTDRJVR.ENH)+SYS$LlBRARY:LIB/LJBRARYtDMAl j[S 



ZZ-ENSAA-7.0 - DR32 interrupt handler 

DRINT - DR32 interrupt handler 

Table of contents 



D 6 
27-JUL-1984 Fiche 6 Frame D6 

27-JUL-1984 15:17:03 VAX-11 Macro 



Sequence 
V03-01 



1098 
Page 







(?) 
(3) 



40 
107 



DECLARATIONS 

DRSINT - DR32 INTERRUPT HANDLER 



ZZ-ENSAA-7,0 

DRINT 

V01 



DR32 interrupt handler 

- DR32 interrupt handler 



OOOO 
0000 
0000 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
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.TITLE DRINT - DR32 interrupt handler 



1 
(1) 



JDENT /V01/ 

.PSECT SEP, WRT, SHR, EXE, LONG 

COPYRIGHT (c) 1978, 1980 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATIO \ 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



OF ITS 



+ + 
FACILITY: 



EXECUTIVE 



ABSTRACT: 

THIS IS A DUMMY DR32 INTERRUPT HANDLER WHICH IS USED UNTIL 

THE REAL DR32 DRIVER IS LOADED. 

ENVIRONMENT: KERNEL flODE, NON-PAGED 

AUTHOR: STEVE BECKHARDT, CREATION DATE: 7-MAR-1979 

MODIFIED BY: 



ZZ-ENSAA-7.0 

DRINT 

V01 



DECLARATIONS 



- DR32 interrupt handler 
DECLARATIONS 
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00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 



oooomo 

00002000 
00003000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 



40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 



.SBTTL DECLARATIONS 
INCLUDE FILES: 



; MACROS: 



SIDBDEF 



EQUATED SYMBOLS: 



; IDB OFFSETS 



DR32 DCR REGISTER DEFINITIONS 



$DEF 



SDEFINI 
DR DCR 
.VlELD 



DR 

.BLKL 
DR DCR,0,<- 
<AI3PTYP,8>,- 
<ID2ERR,,M>,- 
<ID2T0S,2>,- 
<,1>,- 

<ID1ERR,,M>,- 
<ID1T0S,2>,- 
<RDS,,M>,- 
<CRD,,M>,- 
<DCRHLT,,M>,- 
<DCRABT,,M>,- 
<PKTINT,,M>,- 
<INTENB,,M>,- 

<,1>,- 

<PWR UP,,M>,- 

<PWR"DN,,M>.- 

<extKbt,,h> # - 

<,1>,- 

<1MPDEP,6>,- 



; DR32 CONTROL REGISTER 

ADAPTER TYPE 

ID2 ERROR 

ID2 TIME-OUT STATUS 

RESERVED 

ID1 ERROR 

ID1 TIME-OUT STATUS 

READ DATA SUBSTITUTE 

CORRECTED READ DATA 

DCR HALT 

DCR ABORT INTERRUPT 

PACKET INTERRUPT 

INTERRUPT ENABLE 

RESERVED 

ADAPTER POWER UP 

ADAPTER POWER DOWN 

EXTERNAL ABORT 

RESERVED 

IMPLEMENTATION DEPENDENT 



BITS 



DCR CONTROL FIELD A CODES (USED WHEN WRITING TO DCR) 



DCR K CLRPWRUP= A X100 
DCRJCCLRPWRDN= A X200 
DCR,K_CLREXTABT= A X300 
DCR K CLRA8TINT= A X400 

DCRXCLRINTENB= A X500 
DCR rSETINTENB= A X600 

DCR K CLRHLT= A X700 



CLEAR POWER DOWN 
CLEAR EXTERNAL ABORT 
CLEAR ABORT INTERRUPT 
CLEAR INTERRUPT ENABLE 
SET INTERRUPT ENABLE 
CLEAR HALT 



DCR CONTROL FIELD B CODES (USED WHEN WRITING TO DCR) 



DCR K CLRCRD= A X1000 

DCRl<"SETEXTABT= A X2000 

DCR_K_CLRPKTINT= A X3000 



CLEAR CRD 

SET EXTERNAL ABORT 

CLEAR PACKET INTERRUPT 
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DR1NT 

V01 



DECLARATIONS 



- DR32 interrupt handler 
DECLARATIONS 
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00004000 0004 97 

00005000 0004 98 

00006000 0004 99 

0004 100 

0000 101 

0000 102 

0000 103 

0000 104 

0000 105 



DCR_K_RESET=: A X4000 
DCR K SETOSQTST=: A X5000 
DCRXCLROSQTST = A X6000 
SDEFEND DR 



OWN STORAGE: 



RESET 

SET OSEQ TEST 

CLEAR OSEQ TEST 
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DRINT 
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DRSINT - DR32 INTERRUPT HANDLER 

- DR32 interrupt handler 
DRSINT - DR32 INTERRUPT HANDLER 
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64 
64 



53 9E 

54 63 
0100 8F 
0200 8F 
52 8E 
54 8E 



DO 
DO 
3C 
3C 
7D 
7D 
02 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0006 
0008 
0010 
0013 
0016 
0017 
0017 
0017 
0017 
0017 



107 
108 
109 
110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

t<U 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 



.SBTTL DRSINT - DR32 INTERRUPT HANDLER 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS A DUMMY DR32 INTERRUPT HANDLER WHICH IS USED 
UNTIL THE REAL DR32 DRIVER IS LOADED. 

THIS ROUTINE ALSO CONTAINS A DUMMY DR32 CONTROLLER INITIALIZATION 
ENTRY POINT. 

CALLING SEQUENCE: 

JS8 FROM INTERRUPT VECTOR IN CRB 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

THE STACK ON ENTRY IS AS FOLLOWS: 



0(SP) 

4(SP) - 16(SP) 

20(SP) 

24(SP) 



ADDRESS OF IDB ADDRESS 
SAVED R2 - R5 
INTERRUPT PC 
INTERRUPT PSL 



OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

INTERRUPTS ARE DISABLED ON THE DR32 



DRSINT: 



MOVL 

MOVL 

MOVZWL 

MOVZWL 

MOVQ 

MOVQ 

REI 



DRSINITIAL:: 



9(SP)+,R3 

IDBSL CSR(R3),R4 

#DCRXCLRPWRUP,DR_DCR(R4) 

#DCR K CLRPWRDN,DR DCR(R4> 

<SP)+,R2 

<SP)*,R4 



GET ADDRESS OF IDB 
GET ADDRESS OF FIRST CSR 
CLEAR POWER UP 
CLEAR POWER DOWN 
RESTORE REGISTERS 



; CONTROLLER INITIALIZATION 



ZZ-ENSAA-7.0 

DR1NT 

V01 



I 6 
DRS1NT - DR32 INTERRUPT HANDLER 27-JUL-1984 Fiche 6 Frame 16 Seguence 1103 
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64 4000 8F 



3C 


0017 


164 


MOVZWL 


05 


001 C 


165 


RSB 




001 D 


166 






0O1D 


167 






001D 


168 






001D 


169 


.END 



#DCR..K..RESET # <R4) 



; RESET DR <R4 POINTS TO FIRST CSR) 



ZZ-ENSAA-7.0 

DRiNT 
Symbol table 

DCR K CLRPWRDN 

DCfTlTCLRPWRUP 

DCRjCRESET 

DR$TNTTIAL 

DR$INT 

DR DCR 

IDBSB type 

idb$Clength 
idb$k_length 

1DB$LJ\DP 
IDB$L CSR 
ID8SL OWNER 
IDB$LJJCBLST 
IDBSW SIZE 
IDB$W"UNITS 
SIZ..7 



Symbol table 



- DR32 interrupt handler 



J 6 
27-JUL-1984 Fiche 6 Frame J6 

27-JUL-1984 15:17:03 VAX-11 Macro 



Seguence 1104 
V03-0T Pa 



3-MAR-1981 10:29:17 DMA1 :[SYSO.SYS«AINT3DRINT,MAR 



!? 



6 
(3) 



00000200 


D 


00000100 


D 


00004000 


D 


0000001 7 


RG D 


00000000 


RG D 


00000000 


D 


OO00000A 


D 


00000034 


D 


00000034 


D 


00000010 


D 


00000000 


D 


00000004 


D 


00000014 





00000008 


D 


oooooooc 


D 


00000006 


D 



01 
01 



PSECr name 

. ABS . 

SEP 
$ABSS 



Allocation 

00000000 
0000001 D 
00000034 



( 



! Psect synopsis ! 
+™. — «... ..—..-+ 

PSECT No. Attributes 

0.) 00 ( 0.) NOP1C USR 
29.) 01 ( 1.) NOPJC USR 
52.) 02 ( 2.) NOPK USR 



CON 


AGS 


LCL NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


REL 


LCL SHR 


EXE 


RD 


WRT 


NOVEC 


LONG 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 



ZZ-ENSAA-7.0 

DRINT 

Cross reference 



Cross reference 



- DR32 interrupt handler 
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SYMBOL 

DCR K CLRPWRDN 

DCRJCCLRPWRUP 

DCR K RESET 

DRSTNlTlAL 

DRSINT 

DR DCR 

1D5SL.CSR 



VALUE 

=00000200 
=00000100 
=00004000 
0000001 7-R 
00000000-R 
00000000 
00000000 





! Symbol Cross Reference ! 


DEFINITION 

161 (3) 
151 (3) 


REFERENCES... 

#-155 (3) 
#-154 (3) 
#-164 (3) 

#-154 (3) #-155 (3) 
#-153 (3) 



ZZ-ENSAA-7.0 

DRINT 

Cross reference 



Cross reference 



- DR32 interrupt handler 



L 6 
27-JUL-1984 Fiche 6 Frame L6 Seguence 1106 

27-JUL-1984 15: 1 7:03 VAX-11 Macro V03-01 Page 
3-MAR-1981 10:29:17 DMA1 :CSYS0.SYSMAINT]DRJNT.HAR;11 



8 
(3) 



+ + 

! Macros Cross Reference ! 



MACRO 



SDEFINI 
SIDBDEF 



SIZE 

1 

1 



DEFINITION 



REFERENCES 



49 
49 



(2) 
(2) 



49 
49 



(2) 
(2) 



59 



(2) 



+„„..- — - — ........ — -™—^+ 

! Performance indicators ! 
+ ™ -.-— — —-- f 



Phase 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 

32 00:00:00.09 

141 00:00:00.70 

180 00:00:01.70 

00:00:00.03 
70 00:00:00.44 

1 00:00:00.02 
4 00:00:00.03 
8 00:00:00.06 

439 00:00:03.08 



Elapsed Time 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.22 
01.49 
02.71 
00.03 
00.58 
00.02 
00.03 
00.06 
05.16 



The working set limit was 1000 pages. 

5883 bytes (12 pages) of virtual memory were used to buffer the intermediate 
There were 10 pages of symbol table space allocated to hold 57 non-local and 
169 source lines were read in Pass 1, producing object records in Pass 2. 
14 pages ot virtual memory were used to define 9 macros. 

! Macro library statistics ! 



code. 
local 



symbols. 



Macro library name 

DMA1:CSYS0,SYSMAINTJDS.MLB;218 
DMA1:CSYS0.SYSMAJNTjDIAG.MLB:953 
SYS$SYSR00T:CSYSUB3LIB.MIB;1 
SYSSSYSR00T:CSYSLIB]STARLET.ML8;2 
TOTALS (all libraries) 



Macros defined 


1 

4 

5 



8? GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LJST=CDS,USJ/CR0SS/ENABLE = (DE8UG, TRACE) PRINT/UPPA= (PRINT. UPD, PRINT. ENH) + SYSSL1BRARY : UB/UBRARY+DMA1 :[SYS0.SYSMAIMT 



ZZ-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0948 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



*** DSLOAD DSSLOAD routine 
*** DSLOAD DSSLOAD routine 



Xtitle '*** DSLOAD DSSLOAD routine 1 

MODULE DSLOAD ( 

I DENT = '07-09', 
ADDRESSINGJ10DE (EXTERNAL 
) = 



M 6 

27-Jul-1984 
27-Jul-1984 
26-JUL-1984 



Fiche 6 Frame M6 Sequence 1107 
15:57:39 VAX-11 Bliss-32 V4. 0-742 Page 1 
09:39:55 DMA1 :[SYS0.SYSMAINT3DSLOAD.B32;69 (1) 



{Routines to handle DSSLOAD 
L0N6_RELATJVE) 



COPYRIGHT <c) 1980, 1981,1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DFC. 



ITS 



+ + 
FACILITY: 

ABSTRACT: 



DIAGNOSTIC SUPERVISOR 



This module 
the DSSLOAD 



contains the routines necessary to handle 
routines. 



AUTHOR: 
MODIFIED BY: 



01 



Roger 



^ggs. 



CREATION DATE: 10-November-1979 



02 
03 

04 



Dave Butenhof, 8-apr-1981 f version 6.3 
In user mode, magtapes will only load one magtape block, 
irregardless of USZ field si2e, on SREAD. Therefore, loop 
on SREAD until RMS$ EOF found, to make sure entire file is 
read. Also, use SSPACE if VBN arg is specified, so it'll 
work on magtaoes. 

'Dave Butenhof, 02-Jun-1981 f version 6.3 
Change directory specs of libraries for flexibility 

- Jack Stansbury, 28-0ct-1981, Version 6.5 
Changed PSECTs from SEP to WORK, CODE, and DATA. 

Jack Stansbury, 10-Apr-1982, Version 6.7 

Changed the location of the following assignment statement: 

addr = .address; 
in the routine, since if the return length is requssted 
(ACTUALCOUNTO GEO 5), the retlen is calculated to be the 
maximum of the actual loaded si2e (addr - address) or the 
XAB size. However, if the Length parameter is 0, the assignment 
statement above was not getting done, and the aboce calculation 
would have been wrong! 



Z7-ENSAA-7.0 

OSLOAO 

07-09 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 1 

0079 1 

0080 1 

0081 1 

0082 1 

0083 1 

0084 1 

0085 1 

0086 1 

0087 1 

0088 1 

0089 1 

0090 1 

0091 1 

0092 1 

0093 1 

0094 1 

0095 1 

0096 1 

0097 1 

0098 1 

0099 1 

0100 1 

0101 1 

0102 1 

0103 1 

0104 1 

0105 1 

0106 1 

0107 1 

0108 1 

0109 1 

0110 1 

0111 1 

0112 1 

0113 1 

0114 1 



*** DSLOAD DSSIOAD routine 
*** DSLOAD DSSIOAD routine 



N 6 
27-Jul-1984 Fiche 6 Frame N6 Sequence 1108 
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26-Jul-1984 09:39:55 DMA1 : [SYS0,SYSMAINTJDSLOAD.B32;69 (1) 



05 

06 
07 
08 

09 

BEGIN 

INCLUDE FILES: 

LIBRARY 'SDIAG 1 ; 

LIBRARY f $DS'; 

LIBRARY 'SYSSUBRARYjLJB'; 

$DS_DSADEF 

TABLE OF CONTENTS: 



FORWARD ROUTINE 
DSXSLOAD; 



EXTERNAL REFERENCES 



PSECT DEFINITIONS: 



Richard Brown, 15-June-82, Version 6.8 
Addition of code to differentiate between those diagnostics 
which have an image header and those which do not. Jf the 
header is present, it is stored in a separate buffer area. 

Richard Brown, 4-August-82 f Version 6.9 
Change to allow loading files bigger than 64k. 

Marion Baggett, 24-Sept-82, Version 6.9 
Set addressing mode to fix trucation errors. 

R.E.Muse, 15-Feb_84, version 6.14 

Added check of image header size for those diagnostics 

with new images headers created by VMS version 4. 

Richard Brown, 25-Jun-84, Version 7.0 

Changed value of image header size checked for, since 

it changed between field test 1 and field test 2 of VMS V4, 



PSECT 

PI it 



PSECT 
Code 

PSECT 
Own 



= Data (NoFxecute, Share, NoWMte, 

Addressing_Mode (Long ti Rclative)) ; 

= Code (Execute, Share, NoWrite); 



Work (NoExecute, NoShare, Write, 

Addressingjtode (Long_Retative) ) ; 



ZZ-ENSAA-7.0 

OSLOAD 
U7-09 



*** DSLOAD DSSLOAD routine 
*** DSLOAD DSSLOAD routine 



B 7 
27-Jul-1984 
27-Jul-1984 

26-Jul-1984 
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0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 



PSECT 

Global = Work (NoExecute, NoShare, Write, 

Address ing_Mode (Long.Relative)); 



!C05] 
FMT BAD HDR = ![05D 

UPLIT (XASC1C Routine DSXSLOAD has detected non-standard diag. or image header. I/Assuming no image header, •/•); !C0 



BIND 
UPL 
EXTERNAL 



IMAGE_HEADER, 
IMAGE.HEADER.END; 



!C05J 
!C05J 



ZZ-FNSAA-7,0 

DSLOAD 
07-09 



0128 


1 


0129 


1 


0130 


1 


0131 


1 


0132 


1 


0133 


1 


0134 


1 


0135 


1 


0136 


1 


013? 


1 


0138 


1 


0139 


1 


OHO 


1 


OKI 


1 


OK? 


1 


0K3 


1 


0144 


1 


0K5 


1 


0K6 


1 


0K7 


1 


0148 


1 


0K9 


1 


0150 


1 


0151 


1 


0152 


1 


0153 


1 


0154 


1 


0155 


1 


0156 


1 


0157 


2 


0158 


2 


0159 


2 


0160 


2 


0161 


2 


0162 


2 


0163 


2 


0164 


2 


0165 


2 


0166 


2 


0167 


2 


0168 


? 


0169 


2 


0170 


2 


0171 


2 


0172 


2 


0173 


2 


0174 


2 


0175 


2 


0176 


2 


0177 


2 


0178 


2 


0179 


2 


0180 


2 


0181 


2 


0182 


2 


0183 


2 


0184 


2 



DSX$lOAD routine 

*** DSLOAD DSSLOAD routine 

DSXSLOAD routine 
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2SBTTL 'DSXSLOAD routine 1 

global routine dsxSload (tile, default* length, address, retten, retrec, vbn) = 



+ + 



Functional descrition: 

This routine opens and read portions of the specified file using RMS 
into the buffer specified. 

Formal parameters: 

file Address of a quadword descriptor of the file name to be used 

default Address of a quadword descriptor of the file name defaults 

length Length of the area to receive the file in bytes, 

address Address of the buffer to receive the file 

retlen Address of a longword to receive the length of the file (bytes) 

retrec Address of a Longword to receive record attributes of the file 

vbn Virtual block of the file to start reading. 

Side effects: 

The current load media is used to locate the file 
Completion codes: 

Any RMS or system service return 

begin 

built in 

actualcount; 

label 

read; 



local 

fab : 
rab : 
xab : 
addr, 
status; 



$fab_decl, 
$rab decU 
$xabfhc,decl, 



map 



file : ref vector [2, long}, 
default : ref vector [2, long}; 



FAB for file access 
RAB for file access 
XAB for file access 
address at end of load 
Status of RMS calls 



Length and address of file name 
Length and address of default fi 



con 



le name 



$fab_init (fab = fab, tna = .tile [13, fns * .file COD, dna = .default [13, dns = .default C03, 

xab = xab, fac * (get, bio>); 
$xabfhc„init (xab = xab); 
$rab_init (rab = rab, fab - fab, rac = seq); 

if not (status = $open (fab = tab)) then return .status; 

addr = .address; ! Initial address to load 



[043 



ZZ-ENSAA-7.0 

OSLOAO 

O7-09 



0185 


2 


0186 


2 


0187 


2 


0188 


3 


0189 


3 


0190 


3 


0191 


3 


0192 


3 


0193 


3 


0194 


3 


0195 


3 


0196 


3 


0197 


3 


0198 


3 


0199 


3 


0200 


3 


0201 


4 


0202 


A 


0203 


4 


0204 


4 


0205 


4 


0206 


4 


0207 


4 


0208 


4 


0209 


4 


0210 


4 


0211 


4 


0212 


4 


0213 


4 


0214 


4 


0215 


4 


0216 


3 


0217 


3 


0218 


3 


0219 


3 


0220 


3 


0221 


3 


0222 


3 


0223 


4 


0224 


4 


0225 


4 


0226 


4 


0227 


4 


0228 


4 


0229 


4 


0230 


4 


0231 


4 


0232 


4 


0233 


4 


0234 


4 


0235 


4 


0236 


4 


0237 


4 


0238 


4 


0239 


4 


0240 


4 


0241 


4 



OSXSLOAD routine 

*** OSLOAD DSSLOAD routine 

DSXSLOAD routine 
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(2) 



read 



if .length neq 
then 



begin 

local 

first, 
len; 

if not (status = Sconnect (rab = rab)) then leave read; 

If VBN specified 



i f actualcount () geq 7 
then 

if .dsa$v user 



then 



and (.fab Cfab$l_dev3 and dev$m_sqd) neq 



begin 

local 

blsize; 



blsize * .tab [fab$w_bls3/512; 

if ((.vbn - 1)/. blsize)*. blsize neq .vbn - 1 

then 

return ds$_error; 



if in user mode 



and magtape 



space forward 



size of magtape block 



Size of block in pages 

J If can't access 



return fatal error 



rab CrabSl^bktJ = (.vbn - 1)/. blsize; 



else 



status =s Sspace (rab = rab); 

if not .status then leave read 
end 

rab [rab$l_bkt3 a »Vbn; 



len = . length; 
first = 1; 

while 1 do 
beqin 

rab OabSl^ubf] = .addr; 
if .len gtr XX'FEOO' 

rab [rab$w^usz3 = XX'FEOO* 

else 

rab Crab$w^usz] = .len; 
status = Sread (rab = rab); 
rab CrabSl bktj = 0; 
addr = .adar + .rab Crab$w_rsz3; 

if not .status then exitloop; 

len = .len - .rab [rab$w_rsz3; 

first * 0; 

if .len eql 

then 



do it 



Number of tape blocks to skip 



Initial (max) length to load 
First time 

Loop on SREAD until done 



Use NBP for future reads <if any) 
Set to read next section (or EOF) 

Leave if no good 



not first loop anymore 
I f no more room, 



[01 3 

con 

[013 



[013 

C013 
C013 
C01J 
[013 
[013 

[013 
C013 

[013 
[013 
[013 
[013 

[013 
[013 

[013 
[013 
[013 
[013 

[013 
[013 

[013 
[013 

[063 
[063 
[063 
[063 



[013 
[013 

[013 

[013 

[013 

[013 
[013 







E 7 






— — ~ ■ - 


ZZ-ENSAA- 


7,0 


DSXSLOAD routine 27-Jul-1984 


Fiche 6 Frame E7 


Sequence 1112 


DSLOAD 




*** DSLOAD DSSLOAD routine 27-Jul-1984 15:57; 


39 


VAX -11 Bliss-32 


V4. 0-742 Page 6 


07-09 




DSXSLOAD routine 26-Jul-1984 09:39j 


55 


DMA1:CSYSO.SYSMA1NTJDSLOAD.B32;69 " (2) 


; 0242 


5 


begin ! 






[013 


; 02^3 


5 


status = rms$^normal; ! that's OK 






con 


; 0244 


5 


ex it loop ! 






[01] 


; 0245 


5 


end ! 






COIj 


; 0246 


3 


end; ! 






C013 


; 0247 


3 










; 0248 


3 










; 0249 


3 


it not .first and .status eql rms$^eof ! If end of file. 


but on loop 


C013 


; 0250 


3 


then ! 






con 


; 0251 


3 


status = rms$_normal; ! 






con 


; 0252 


3 










; 0253 


3 


Sdisconnect (rab = rab); 








; 0254 


3 










; 0255 


3 


! If we are loading something at address 200 




!C05] 




; 0256 


3 


! — i., e., a diagnostic program load* then see if there 




!C05] 




; 0257 


3 


! is an image header. (Do this by checking the first 
! longword loaded.) If the header exists, move 




!C05] 




; 0258 


3 




!C05] 




; 0259 


3 


! it to its own buffer space and move the rest of what 




!C05] 




; 0260 


3 


! was read in down one page, so that the actual image will 




!C05] 




; 0261 


3 


! reside at 200. If no header, the first record of the 




!C05] 




; 0262 


3 


! image should be the "diagnostic header". If the first 




!C05] 




; 0263 


3 


! location of this header is not what the routine expects. 




IC05] 




; 0264 


3 


: the operator is warned of the discrepancy. 




!C05] 




: 0265 


3 


! The reason for this is that if the image header or diagnostic 


!C05] 




; 0266 


3 


! header size is changed, this code will also have to be 




!C05] 




0267 


3 


! changed, and the warning will be a reminder that the chanqe 


!C05] 




; 0268 


3 


! must be made. Note that if either of the header sizes 




!C05] 




A '69 


3 


! is changed, the routine will assume there is no image header. 


!C05] 




; 0^70 


3 










; 0271 


3 


IF .ADDRESS EQL XX'200' 




!C05] 




; 0272 


3 


THEN 




!C05] 




; 0273 


4 


IF (..ADDRESS EQL XX'00300084*) 








; 0274 


4 


or (..ADDRESS EQL XX'OOSOOOAS 1 ) IC08JC09D 




; 0275 


3 


THEN 




!C05] 




; 0276 


4 


BEGIN 




!C05] 




; 0277 


4 


LOCAL PTR1, PTR2; 




!C05] 




; 0278 


4 










; 0279 


4 


! Move the image header to its 




![053 




; 0280 


4 


! storage area for use by the 




!C05] 




; 0281 


4 


! debugger. 




!C05] 




; 0282 


4 










; 0283 


4 


PTR1 = IMAGE HEADER; 




!C05] 
!C05] 




; 0284 


4 


PTR2 = .ADDRESS; 






; 0285 


4 


WHILE .PTR1 LSSU IMAGE^HEADER^END 




!C05] 




; 0286 


4 


DO 




!C05] 
!C05] 




; 0287 


5 


BEGIN 






; 0288 


5 


,PTR1 = ..PTR2; 




!C05] 




; 0289 


5 


PTR1 = .PTR1 + 4; 




!C05] 




; 0290 


5 


PTR2 = .PTR2 + 4; 




!C05] 




; 0291 


4 


END; 




!C05] 




; 0292 


4 










; 0293 


4 


I Now everything already loaded 




!C05] 




; 0294 


4 


! must be moved down one page, 




!C05] 
JC053 




; 0295 


4 


! so that the diag. header 






; 0296 


4 


! starts at 200. 




!C05] 




; 0297 


4 










; 0298 


4 


PTR1 = .ADDRESS; 




!C05] 





ZZ-ENSAA- 


7.0 


)SLOAD 




07-09 




; 0299 


4 


; 0300 


4 


; 0301 


5 


; 0302 


5 


; 0303 


5 


; 0304 


5 


; 0305 


4 


; 0306 


4 


; 0307 


4 


; 0308 


4 


; 0309 


3 


; 0310 


3 


; 0311 


3 


; 0312 


2 


; 0313 


2 


; 0314 


2 


; 0315 


2 


; 0316 


2 


; 0317 


2 


; 0318 


2 


; 0319 


3 


; 0320 


3 


; 0321 


3 


; 0322 


3 


; 0323 


3 


0324 


3 


; 0325 


3 


; 0326 


3 


; 0327 


2 


; 0328 


2 


; 0329 


2 


; 0330 


2 



0331 1 



DSXSLOAD routine 

*** DSLOAD DSSLOAD routine 

DSXSLOAD routine 



F 7 

27-Jul-1984 
27-Jul-1984 
26-JuM984 



15:57:39 
09:39:55 



Fiche 6 Frame F7 



end; 



PTR2 = .ADDRESS + XX'200 1 ; 
WHILE ,PTR2 LSSU ,ADDR DO 

BEGIN 

.PTR1 = ..PTR2; 

PTR1 = .PTR1 + 4; 

PTR2 = .PTR2 + 4; 

END; 
ADDR = .ADDR - SX^OO'; 
LEN = .LEN * XX*200'; 
END 
ELSE IF ..ADDRESS NEQ XX'00000058' 
THEN 

SDS.PRiNTF (FMT.8AD HDR); 



Sequence 1113 
VAX-11 Bliss-32 vA. 0-742 Page 

DMA1:CSYS0.SYSMAINT3DSL0AD.B32;69 

[05] 
[05] 
C05J 
[053 
[05] 
[05] 
[05] 
[05] 
[05] 
[05] 



7 

(2) 



if actualcount () geq 5 then .retlen = max 
.addr - .address); 

if actualcount O geq 6 
then 

begin 



(.xab [xab$l_ebk] A 9 + 
! Bigger of XAB size 



.xab [xablw.ffb] - 512, 
and actually loaded size 



[01] 
[01] 



map 



retrec : ret block [, byte]; 



end; 



retrec [0, 0, 16, 0] = .fab CfabSw.mrs]; 

retrec [2, 0, 8, 0] = .fab [fabSb.rfm]; 

retrec [3, 0, 8, 0] = .fab [fab$b_fsz]; 
end; 

Sclose (fab = fab); 
.status 



.TITLE 
.IDENT 



DSLOAD *** 
\07-09\ 



DSLOAD DSSLOAD routine 



4F AC 24 58 

64 65 74 63 

6D 69 20 72 

75 41 2F 21 

2f 21 2E 72 



53 44 20 65 6E 69 74 75 6F 52 5E 00000 P. AAA: 

65 74 65 64 20 73 61 68 20 44 41 0000F 

64 6E 61 ?4 73 2D 6E 6F 6E 20 0001 E 

6F 20 2E 67 61 69 64 20 64 72 61 00028 

2E 72 65 64 61 65 68 20 65 67 61 00037 

20 6F 6E 20 67 6E 69 6D 75 73 00046 

65 64 61 65 68 20 65 67 61 6D 69 00050 

00 0005F 

DSASAL 

DSASGL' 

DSASGL' 

DSASGL' 

DSASGL 

DSASGL' 

DSASGL' 

DSASGL 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII \ A Routine DSXSLOAD has detected non-stand\ 

.ASCII \ard diag. or image header. ! /Assuming no \ 

.ASCII \image header. !/\<0> 



APTMAIL; 

FLAGS* 

APTCOM* 

.PASSES* 

UNITS* 

SECTNO* 

SID* 

MSGTYP* 



65024 
6502A 
65028 
65032 
65036 
650A0 
65044 
65088 



ZZ-ENSAA-7.0 


DSXSLOAD routine 










27 


G 7 
-Jul-1984 


Fiche 6 Frame 67 Sequence 1114 


* "■"■ " ■ ■ ■ ' " I 


DSLOAD 


*** DSLOAD DSSLOAD routine 






27 


-JuL-1984 15:57 


:39 VAX-11 BLiss-32 V4. 0-742 Page 8 


07-09 


DSXSLOAD routine 










26-JuM984 09:39 


:55 DMA1:CSYS0.SYSMAINT3DSLOAD.832;69 


(2) 
















DSASGL. 


ERRNO= 


65092 


















DSASGL. 


EVENT= 


65096 


















DSASGL, 


"SUBTNO= 


65100 


















DSASGL. 


TESTNO= 


65104 


















DSASGL. 


.PASSNO= 


65108 


















DSASGL. 


J)EVLEN= 


65112 


















DSASGL^ 


DEVNAM= 


65116 


















DSASGL MSGPTR= 


65128 


















FMT_BAD_HDR= 


P. AAA 




















.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 

.PSECT 


IMAGE HEADER, IMAGE HEADER,END 
SYSSOPEN, SYSSCONNECT 
SYSSSPACE, SYSSRCAD 
SYSSDISCONNECT, DSSPRINTF 
SYSSCLOSE 

CODE,NOWRT, SHR,2 














007C 00000 




.ENTRY 


DSXSLOAD, Save R2,R3,R4,R5,R6 


• 0130 








5E 


FF40 


CE 


9E 00002 




MOVAB 


-192<SP), S? 




0050 8F 


00 




6E 


70 


00 
AE 


2C 00007 
OOOOE 




M0VC5 


#0, (SP). #0, #80, SRMS..PTR 


* 0177 






70 


AE 


5003 


8F 


BO 00010 




MOVW 


#20483 SRMS PTR 








C6 


AD 




22 


90 00016 




MOVB 


#34, f,«MS PTR+22 








CF 


AD 




02 


90 0001 A 




MOVB 


#2, S^MS PTR+31 








D4 


AD 




6E 


9E 0001 E 




MOVAB 


XAB, SRM5_PTR+36 










51 


04 


AC 


DO 00022 




MOVL 


FILE, R1 

4(R1), SRMS_PTR+44 








DC 


AD 


04 


A1 


DO 00026 




MOVL 










50 


08 


AC 


DO 0002B 




MOVL 


DEFAULT. RO 
4(R0), SRMS PTR+48 








EO 


AD 


04 


AO 


DO 0002F 




MOVL 








E4 


AD 




61 


90 00034 




MOVB 


(R1), SRMS^PTR+52 








E5 


AD 




60 


90 00038 




MOVB 


(RO), SRMS .°TR+53 




2C 


00 




6E 




00 
6E 


2C 0003C 
00041 




M0VC5 


#0, (SP), JO, #44, $RMS_PTR 


• 0178 








6E 


2C1D 


8F 


BO 00042 




MOVW 


#11293, SRMS PTR \ 




0Q44 8F 


00 




6E 




00 


2C 00047 
0004E 




M0VC5 


#0, (SP), #0, #68, $RMS„PTR 


• 0179 










2C 


AE 














2C 


AE 


4401 
4A 


3F 
AE 


BO 00050 
94 00056 




MOVW 
CLRB 


#17409, SRMS PTR \ 
SRMS PTR+30 " 








68 


AE 


70 


AE 


9E 00059 




MOVAB 


FAB, SRMS PTR+60 












70 


AE 


9F 0005E 




PUSHAB 


FAB 


0181 




00000000G 


00 




01 


FB 00061 




CALLS 


#1, SYSSOPEN 










56 




50 


DO 00068 




MOVL 


RO, STATUS 










03 




56 

0187 


E8 0006B 
31 0006E 




BLBS 
BRW 


STATUS, 1S 
21$ 










55 


10 


AC 


DO 00071 


1S: 


MOVL 


ADDRESS, R5 


0183 








52 




55 


DO 00075 




MOVL 


R5, ADDR 












OC 


AC 
5A 


D5 00078 
13 0007B 




TSTL 
BEQL 


LENGTH 
3S 


0185 










2C 


AE 


9F 0007D 




PUSHAB 


RAB 


0194 




OOOOOOOOG 


00 




01 


F8 00080 




CALLS 


#1, SYSSCONNECT 










56 




50 


DO 00087 




MOVL 


RO, STATUS 










4A 




56 


E9 0008A 




BLBC 


STATUS, 3$ 










07 




6C 
4D 


91 0008D 
1F 00090 




CMPB 
BLSSU 


CAP). #7 
5* 


0196 




40 0000FE03 


9F 




04 


El 00092 




BBC 


#4, WX0000FE03, 4S 


0198 




3B 


FO 


AD 




05 


E1 0009A 




BBC 


#5, FAB+64, 4S 


019S 








53 


EC 


AD 


3C 0009F 




MOVZWL 


FAB+60, BLSIZE 


• 0206 



ZZ-ENSAA-7.0 

DSLOAO 

07-09 



DSXSLOAD routine 

*** DSLOAO DS$LOAD routine 

DSXSLOAD routine 



H 7 

27-Jul-198A 
27-Jul-198A 
26-JuM98A 



Fiche 6 Frame H7 Sequence 1115 
15:57:39 VAX-11 Btiss-32 V4. 0-742 
09:39:55 DMA1 :CSYS0.SYSMAINT]DSLOAD.B32;69 



Page 



9 
(2) 



50 
51 



1C 



64 
000000006 

64 

50 

OO00FEO0 

AC 
AC 

OO000OO0G 



0001827A 

00000000G 
00000200 

00300084 

003000A8 



AE 

00 
56 
08 

AE 
54 
53 
At 
8F 

AE 

AE 

00 
56 

50 
52 
14 
50 
54 



56 
10 
8F 

56 

00 
8F 

8F 

8F 

51 
50 
53 
53 

81 

51 
50 



00000200 



53 
AC 
50 
53 
50 



50 00660002 



2C 



1C 
OC 



FEOO 



2C 



64 
4E 



4E 



00010001 



00010001 
2C 



OOOOOOOOG 
0O0000OOG 



0200 



8F 

01 
53 
51 
53 
08 
8F 

51 
AE 
01 
50 
56 
OODA 
AC 
AC 
01 
52 
54 
08 
8F 
04 
54 
AE 
01 
50 
AE 
AE 
50 
56 
AE 
50 
53 
54 
CO 
8F 
53 
56 
07 
8F 
AE 
01 
55 
61 
65 
09 
65 
39 
EF 
55 
Ef 
51 
05 
80 
EP 
55 
C5 



C6 

C3 

C7 

CA 

01 

13 

DO 

OA 

DO 

9F 

F8 

DO 

E8 

31 

DO 

DO 

DO 

DO 

D1 

15 

BO 

11 

BO 

9F 

FB 

DO 

DA 

3C 

CO 

E9 

3C 

C2 

DA 

D5 

12 

DO 

E8 

D1 

12 

DO 

9F 

FB 

D1 

12 

D1 

13 

D1 

12 

9E 

DO 

9E 

D1 

1E 

DO 

11 

DO 

9E 



000A3 

OOOAA 

OOOAF 

000B3 

000B6 

000B9 

OOOBB 

000C2 

000C3 

00OC7 

OOOCA 

000D1 

OOODA 

000D7 

OOODA 

OOODF 

000E3 

000E6 

OOOEA 

000F1 

000F3 

000F9 

OOOFB 

OOOFF 

00102 

00109 

0010C 

0010F 

00113 

00116 

00119 

001 1D 

00120 

00122 

0012A 

00126 

0012D 

00130 

00137 

00139 

00140 

001A3 

001AA 

00151 

00153 

0015A 

0015C 

00163 

00165 

0016C 

0016F 

00176 

00179 

001 7B 

001 7E 

00180 

00183 



2$: 



3$ 
A$ 
5$ 

6$: 



7$: 



9$: 



10$: 



11$: 

12$: 



13$: 



D1VL2 #512, BLSIZE 

SUBL3 #1, VBN, RO 

DIVL3 BLSIZE, RO, R1 

MULL2 R1, R3 

CMPL R3, RO 

BEQL 2$ 

MOVL #668A674, RO 

RET 

MOVL R1, RAB A 56 

PUSHAB RAB 

CALLS 01, SYS$SPACE 

MOVL RO, STATUS 

BLBS STATUS, 5$ 

BRW 17$ 

MOVL VBN, RAB+56 

MOVL LENGTH, LEN 

MOVL #1, FIRST 

MOVL ADDR, RAB+36 

CMPL LEN, #65024 

BLEQ 7$ 

MOVW #-512, RAB+32 

BRB 8$ 

MOVW LEN, RAB+32 

PUSHAB RAB 

CALLS #1, SYS$READ 

MOVL RO, STATUS 

CLRL RAB+56 

MOVZWL RAB+3A, RO 

ADDL2 RO, ADDR 

BLBC STATUS, 9$ 

MOVZWL RAB+34, RO 

SUBL2 RO, LEN 

CLRL FIRST 

TSTL LEN 

BNEQ 6$ 

MOVL #65537, STATUS 

BLBS FIRST, 10$ 

CMPL STATUS. #98938 

BNEQ 10$ 

MOVL #65537, STATUS 

PUSHAB RAB 

CALLS #1, SYSSDISCONNECT 

CMPL R5, #512 

BNEQ 17$ 

CMPL (R5), #31A5860 

BEQL 11$ 

CMPL (R5), #31A5896 

BNEQ 16$ 

MOVAB IMAGE HEADER, PTR1 

MOVL R5, PTR2 

MOVAB IMAGE HEADERJND, R3 

CMPL PTR1, R3 

BGEQU 13$ 

MOVL (PTR2) + , (PTRD + 

BR8 12$ 

MOVL R5, PTR1 

MOVAB 512(R5), PTR2 



0207 



0209 

0211 
0212 



021A 

0217 

0219 
0220 
022A 
0225 

0227 

0229 
0230 



0231 
0232 

023A 
0236 

0238 
02A0 

02A3 
02A9 



0251 
0253 

0271 

0273 

027A 

0283 
0284 
0285 



0288 
0285 
0298 
029S 



22-ENSAA-7.0 

DSLOAD 
07-09 


DSXSLOAD routine 

*** DSLOAD DSSLOAD routine 

DSX$LOAD routine 






52 






81 






52 
54 




00000058 


8F 




00000000G 


9F 
05 




50 10 


AE 
51 
50 
52 
52 




14 


50 
BC 
06 




02 
03 


50 
60 
AO 
AO 




.00000000G 


00 
50 



FEOO 
0200 



00000000 



14 
FEOO 



18 
E6 
CF 
EF 
70 



50 
05 
80 
F6 
C2 
C4 
16 
65 
OD 
EF 
01 
6C 
1E 
09 
AE 
CKO 
55 
50 
03 
52 
50 
6C 
12 
AC 
AD 
AD 
AD 
AE 
01 
56 



Routine Size: 508 bytes. Routine Base: CODE + 0000 



0332 1 

0333 1 END 

0334 ELUDOM 



PSECT SUMMARY 



Name 



Bytes 



I 7 

27-Jul-1984 
27-JuL-1984 
26-Jul-1984 



Fiche 6 Frame 17 



D1 001 
1E 001 
DO 001 
11 001 
9E 001 
9E 001 
11 001 
D1 001 
13 001 
9F 001 
FB 001 
91 001 
1F 001 
78 001 
3C 001 
9E 001 
C2 001 
D1 001 
18 001 
DO 001 
DO 001 
91 001 
1F 001 
DO 001 
BO 001 
90 001 
90 001 
9F 001 
FB 001 
DO 001 
04 001 



88 
8B 
8D 
90 
92 
97 
9C 
9E 
A5 
A7 
AD 
B4 
B7 
B9 
BE 
C2 
C8 
CB 
CE 
DO 
D3 
D7 
DA 
DC 
EO 
E4 
E9 
EE 
F1 
F8 
FB 



14$: 



15$: 



16$: 



17$: 



. „ . . .- Sequence 

15:57:39 VAX-11 Bliss-32 V4. 0-742 
09:39:55 DMA1 :CSYS0.SYSMAJNT3DSLOAD.B32;69 



ADDR 



1116 



Page 



18$: 
19$: 



20$: 
21$: 



CMPL PTR2, 

B6EQU 15$ 

MOVL (PTR2)+, (PTR1H 

BR8 14$ 

MOVAB -512(R2), ADDR 

MOVAB 512CR4), LEN 

BRB 17$ 

CMPL (R5), 088 

BEQL 17$ 

PUSHAB FMT,BAD HDR 

CALLS #1, a#D5$PRINTF 

CMPB (AP), #5 

BLSSU 19$ 

ASHL #9, XAB+16, RO 

MOVZWL XAB+20, R1 

MOVAB -512CRDCR0J, RO 

SUBL2 R5, R2 

CMPL RO, R2 

BGEQ 18$ 

MOVL R2, RO 

MOVL RO, 9RETLEN 

CMPB (AP), #6 

BLSSU 20$ 

MOVL RETREC, RO 

MOVW FAB+54, (RO) 

MOVB FAB+31, 2(R0) 

MOVB FAB+63, 3(R0) 

PUSHAB FAB 

CALLS #1, SYS$CLOSE 

MOVL STATUS, RO 

RET 



Attributes 



10 
(2) 

0300 

0302 
0300 
0306 
0307 
0273 
0309 

0311 

0314 



0315 



0314 
0317 

0324 

0325 
0326 
0329 

0331 



DATA 
CODE 



96 NOVECNOWRT, RD ,N0EXE, SHR, LCL, REL, CQN,N0PIC,AL1GN(2) 
508 NOVECNOWRT, RD , EXE, SHR, LCL, REL, CQN,N0PJC,ALIGN<2) 



Library Statistics 



Symbols 



Pages 



Processing 



ZZ-ENSAA-7.0 

DSLOAD 

07-09 

File 



DSXSLOAD routine 

*** DSLOAD DSSLOAD routine 

DSXSLOAD routine 



DRB1 ;[DS.W0RK3D]AG.L32;265 

DRB1:CDS.W0RK3DS.L32;159 

SYS$SYSR00T:CSYSL1B3HB.L32;7 



Total 

784 

653 

18017 



4 



84 



J 7 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Loaded Percent 



15:57:39 
09:39:55 

Mapped 

85 

42 

975 



Fiche 6 Frame J7 



Sequence 1117 
VAX- 11 BUss-32 V4. 0-742 Page 11 

DMA1 :[SYSO.SYSMA1NTJDSLOAD.B32;69 (2) 

Time 

00:00.2 
00:00.2 
00:04.6 



COMMAND QUALIFIERS 
BLISS/NQ0BJECT/LIST=[DS,USJ/CPT]MIZE=(LEVEL:3, SPACE) /DEBUG/TRACE DSLOAD 



Size: 508 code + 
Run Time: 00:16.7 
Elapsed Time: 00:29.9 
Lines/CPU Min: 1198 
Lexemes/CPU-MIn: 21240 
Memory Used: 201 pages 
Compilation Complete 



96 data bytes 



?Z-ENSAA-7,Q 

DSVECS 

Table of contents 



*** DSVECS 



Module 



DSVECS Module 



K 7 

27-JUL-1984 Fuhe 6 Frame K7 

27-JUL-1984 15:17:09 VAX-11 Macro 



Sequence 
V03-01 



1118 
Page 



(1) 
(1) 



80 
86 



Libraries and Macros 
The Dispatch Vectors 



ZZ-ENSAA-7.0 

DSVECS 

01 -09 



-1 



*** DSVECS Module 



DSVECS Module 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 
.1 

3 

5 
6 
7 
8 
9 
10 

11 

12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
21 



.Title 
.Jdent 
.NoShow 



L 7 

27-JUL-1984 Fiche 6 Frame L7 Seguence 1119 

27-JUL-1984 15:17:09 VAX-11 Macro V03-07 Page 
2-NOV-1982 13:02:29 DMA1 :CSYS0.SYSMAINTJDSVECS.MAR;9 

DSVECS *** DSVECS Module 

/01-09/ 

Conditionals 



1 

(1) 



++ 
COPYRIGHT (C) 1977,1980 
DIGITAL EQUIPMENT CORPORATION, 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION 
AND SHOULD NOT 
CORPORATION. 



IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ZZ-ENSAA-7.0 

DSVECS 

01-09 



*** DSVECS 



Module 



DSVECS Module 



M 7 
27-JUL-1984 Fiche 6 Frame M7 Seguence 1120 

27-JUL-1984 15:17:09 VAX-11 Macro V03-01 Page 2 
2-N0V-1982 13:02:29 DMA1 :CSYS0.SYSMAINTJDSV£CS.MAR;9 (1) 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
.1 
.2 
.3 
.4 



+ + 

Facility: 



VAX Diagnostic Supervisor (part of the Resident-DS image). 

Abstract: 

Tf is module contains the dispatch vectors that the CRD-Loadable 
routines need to access certain Resident-DS locations and routines. 

Environment: 

Not applicable 
Author: 

Jack Stansbury 
Date Written: 

March 30, 1982 

Modifications: 

01 Jack Stansbury, Version 1.0, June 22, 1982 
Added two more vectors. 



02 

03 
04 
05 
06 

07 
08 



Jack Stansburv, Version 1,1, July 24, 1982 
Added the CRDlGBJIenu.OnLine Debug byte. If — 1, then 
on-line CRD command is allowed. It == 0, the CRD command 
is disallowed. It is =* by default. 

Jack Stansbury, Version 1.1, July 27, 1982 

Added the DSSGAJ)S, Ctrl. C First (formerly DSSGA DSCntrlC) and 

the DSSGA.DS.CtrLC.Second longwords to the dispatch list. 

Jack Stansbury, Version 1.1, August 19, 1982 

Added the Begin and DSIGL.CRD.Debug vectors. Also changed the 

version number bytes from 1 to 2. 

Jack Stansbury. Version 1.1, September 10, 1982 

Added the BootiL R5 address. This is used by Menu Test to allow 

it to determine now CRD was invoked. 

Jack Stansbury, Version 1.1, September 12, 1982 
Took out the one added in 05 above, and added the 
DSRSCheck.MenuTest.Set and the DSR$Check.AutoTest,Set routine 
addresses. 

Jack Stansbury, Version 1,1, October 26, 1982 
Added the DS$GL CRD Flags longword. This is set up now as a 
•flags' longword. It is now used for CRD.Debug (bit 1) and 
for disabling A C echoing (bit 



0), 



Jack Stansbury, Version ?.?, March 3. 1983 

Added a number of new (empty for now) dispatch vectors. These 

empty ones are to allow the debug vectors (in CRD) to be big 
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*** 


DSVECS 


Module 




DSVECS 








*** DSVECS 


Modu 


01-09 








0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


.5 

.6 
.7 
.8 
.9 
.10 
,11 
78 
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1121 



09 



enough to pass enough useful 
DSRSUnload.CRD routine. 

John Ciukaj Version 6.11 

- Changed name of CRD Online 

- Changed reference names to 



information back to the 



4-April 1983 
debug vector 
DSR$Check.. routines 
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Macros 

•«■« DSVECS Module 
Libraries and Macros 



6 8 
27-JUL-1984 Fiche 6 Frame B8 Sequence 1122 

27-JUL-1984 15:17:09 VAX-11 Macro V03-01 Page 4 

2-N0V-1982 13:02:29 DMA1 : [SYS0.SYSMAINT3DSVECS.MAR;9 (1) 



0000 
0000 
0000 
0000 
0000 



80 
81 
82 
83 
84 



.SubTitle 

.Library 
.Library 
.Library 



Libraries and Macros 

/Sys$Library:Lib/ 

/$DS/ 

/SDiag/ 



Use Lib last 

Use DS.Mar second 

Use Diag.Mar first 
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The Dispatch Vectors 

*** DSVECS Module 
The Dispatch Vectors 
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5 
(1) 



-2 



-3 





0000 


86 


00000000 


87 




0000 


88 




0000 


89 


00000000 


0000 


90 




0004 


91 




0004 


.1 




0004 


.2 




0004 


.3 




0004 


.4 




0004 


.5 


00000000 


0004 


.6 




0008 


94 




0008 


95 




C008 


96 




0008 


97 




0008 


98 




0008 


99 




0008 


100 




0008 


101 


19 


0008 


.1 


03 


0009 


,2 


FD 


000A 


.3 


00 


000B 


105 




000 C 


106 




OOOC 


107 




0O0C 


108 




COOC 


109 




OOOC 


110 




OOOC 


111 




OOOC 


112 




OOOC 


113 




OOOC 


114 




OOOC 


115 




OOOC 


116 




OOOC 


117 


00000000' 


OOOC 


118 




0010 


119 


00000000 ' 


0010 


120 




0014 


121 


00000000 ' 


0014 


122 




0018 

0018 


1 23 


00000000 ' 


124 




001C 


125 




QOIC 

001C 


126 


00000000 ' 


127 




0020 


128 




0020 


129 


00000000' 


0020 


130 




0024 


131 




0024 


132 




0024 


135 


00000024' 


0024 


131 




0028 


135 




0028 


136 


00000000* 


0028 


137 




002C 


138 



.SubTitLe 
.Psect 



The Dispatch Vectors 

Work, NoShr, NoExe, Wrt, Long 



DSSGL.CRD Flags:: 
.Long 



Analguous to the DS flags Longword 
all bits = by default L071 



This longword is used for special debug of CRD by CRD Command 



CRD$GL.CRD_Command_Debug : ; 
.Long 



= by default 



C093 



These four bytes are for verification purposes. See the 

Exchange Dispat„Vectors routine in the CRDLoad«B32 module for more 

of an explanation of these bytes. 



DSSAL.DS^Dispatch Vectors: : 
.Byte 25 
.Byte 3 
.Byte -3 
.Byte 



The # of dispatch vectors 

The positive version number 

The negative version number 

The null byte 



[08] 
£08] 
C08] 



These are the actual dispatch vectors. The first vector is the one that 
will contain the address of the routine in the CRD-Loadable image that 
will be called by the Print routine. Thus* the global label. The dispatch 
vectors now contain those routines and locations internal to the 
Resident-DS that the CRD routines will have to access. These vectors 
will be exchanged with another like-set ot vectors that are part of the 
CRD-Loadable image. 



DS$GA_CRD,DSJnterf ace: : 

.Address DSVSExit 



.Address 
.Address 
.Address 

.Address 

.Address 



DSXSPrint 

DSSGLjlags 

DSSGA.DS^Ctrl.C.First 

DSSGAjnable 

Exe$AloNonPaged 



DSSGA^User Error^Text:: 

.Address DSSGA^UserJrror^Text 



•Address 



Scan$Numeric 



Talk to the CRD image 
To exit the Resident-DS 

The DS Print routine 

The DS flags 

The DS's 1st Control-C 
. . . handler 

The list of addresses of 
, .. PTables 

Allocate a block of Non-Paged 
... pool 

The address of the user's 
MsgAdr (from the ERRxxxx 
macro) will be put here. 



[03] 
[033 



a * 



The address of the 

... ScanSNumeric routine in 



[01 

coi: 



] 
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*** DSVECS Module 
The Dispatch Vectors 
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-8 





002C 


139 




002C 


140 


00000000' 


002C 


141 




00.0 


142 




0030 


143 


00000000 ' 


0030 


144 




0034 


145 




0034 


146 


00000000 ' 


0034 


147 




0038 


148 




0038 


149 


00000000 


0038 


150 




003C 


151 




003C 


152 




C03C 


153 




003C 


154 




003C 


155 




003C 


156 


00000000' 


003C 


.1 




004U 


.2 




0040 


.3 




0040 


.4 


oooooooo 1 


0040 


.5 




0044 


.6 




0044 


.7 




0044 


,8 




0044 


.9 




0044 


.10 




0044 


.11 




0044 


,12 




0044 


,13 




0044 


.14 




0044 


.15 




0044 


.16 


00000070 


0044 


.17 




0070 


.18 




0070 


165 



.Address 
.Address 

.Address 

DS$GL_ CRD Debug: 
• Long 



.Address 



.Address 



ExeSDeaNonPaged 

DS$GA_DS_CtrL <- C <B Second 

Begin 





the PARSE module. 



6 
(1) 

con 



The address of the Deallocate [013 
... Non-Paged pool routine. [01] 

The DS's 2nd Control-C [03] 
. . , handler £03] 

The Begin label in KERNEL [04] 

Make it global to be in MAP [04] 
If bit (!) = 1, CRD will print[073 

. . . debug statements. If [07] 

. . . bit (1) = O, CRD won't [07] 

. . • print them. [07] 

Bit (0) is for disabling A C [07] 

. . . echoing. [07] 



DSR$CheckJ1enuTestJ)ff - .Set 

; Return a 1 iff 

; CRD MENU Offline is active 

DSR$Check_AutoTest..Off.Set 

; Return a 1 iff 

; CRD AUTO Offline is active 



; The above vectors are the ones that actually contain the VDS 

; addresses that CRD must know about. The ones below are unused except 

; by the Debug Vector. Note: the total number of these vectors must 

; agree with the CRD$K.TotaL_Numb_Vectors constant in the CRD.R32 

; library module. 



C09] 



C093 



[08] 
C08] 
[08] 
[08] 
[08] 



• BlkL 
.End 



<25-14> 



CRDSKJotalJIumbJ/ectors = 25 [08] 
ft of vectors above « 14 [083 
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Symbol table 



BEGIN 

CRDSGL CRD COMMAND DEBUG 

DSSAL BS DISPATCH SECTORS 

DSSGAICRB DS INTERFACE 

DSSGA DS CTRC^C FIRST 

DS*GAlDS CTRL C~SEC0ND 

DSSGA PT*BLE 

DS$GA_USER ERRORJEXT 

DSSGL CRD GEBUG 

DS$GL"CRD"FLAGS 

DSSGLlFLACS 

DSRSCBECK^AUTOTEST^OFF.SET 

DSR$CHECKJ1ENUTESTJ)FF_SET 

DSVSEXIT 

DSXSPRINT 

EXESALONONPAGED 

EXESDEANONPAGED 

SCANSNUMERIC 



PSECT name 

. A8S . 

WORK 
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******** 

00000004 

00000008 

OOOOOOOC 
******** 


X 
RG D 
RG D 
RG D 

X 


01 
01 
01 
01 
01 


******** 


X 


01 


******** 

00000024 

00000038 

00000000 
******** 


X 
RG D 
RG D 
RG D 

X 


01 
01 
01 
01 
01 


******** 


X 


01 


******** 


X 


01 


******** 


X 


01 


******** 


X 


01 


******** 


X 


01 


******** 


X 


01 


******** 


X 


01 



Al location 

00000000 "( 
00000070 ( 



J Psect synopsis ! 

PSECT No, Attributes 

0.) 00 ( 0.) NOPIC USR 
112.) 01 ( 1.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON REL LCL NOSHR NOEXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC LONG 
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Cross reference 



SYMBOL 



BEGIN 

crd$gl crd command debug 
ds$alj5s dispatch j7ect0rs 
0ssga_cri5 ds interface 
ds$ga.ds_CtrC^c first 
dssga ds ctrl c second 

DSSGAlPTSBLE " " 

DSSGA USER ERROR.TEXT 

DSSGL^CRD EEBUG 

DS$GL_CRD~FLAGS 

DSSGL FLASS 

DSRSCFlECK AUTOTEST OFFSET 

DSRSCHECK'MENUTEST^OFF.SET 

DSV$EXIT " 

DSXSPRINT 

EXE$ALONONPAGED 

EXESDEANONPAGED 

SCANSNUMERIC 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 
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! Symbol C 1 oss Reference ! 
+ —————-+ 



VALUE 


DEFINITION 


REFERENCES... 


00000000-XR 






147 


(1) 


00000004-R 


91.5 


(1) 






00000008-R 


101 


(1) 






0000000C-R 


117 


(1) 






00000000-XR 






124 


(1) 


00000000-XR 






144 


(1) 


00000000-XR 






127 


(1) 


00000C24-R 


133 


(1) 


134 


(1) 


00000038-R 


149 


(1) 






00000000-R 


89 


(1) 






00000000-XR 






122 


(1) 


00000000-XR 






156.5 


(1) 


00000000-XR 






156.1 


(1) 


00000000-XR 






118 


(1) 


00000000-XR 






120 


(1) 


00000000-XR 






130 


(1) 


00000000-XR 






141 


(1) 


00000000-XR 






137 


(1) 



! Performance indicators ! 



Page faults CPU Time 



Elapsed Time 



34 

138 

148 



52 



2 

3 

380 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



: 00.10 
:00.76 
:01.24 
:00.01 
: 00.61 
:00.02 
:00.02 
:00.06 
:02.83 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.23 
01.68 
02.45 
00.01 
01.36 
00,02 
00.02 
00.08 
05.85 



The working set limit was 950 pages. 

1780 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 18 non-local and local symbols 

190 source lines were read in Pass 1, producing object records in Pass 2. 

pages of virtual memory were used to define macros. 
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+ —- — -.-.»... «.+ 

! Macro library statistics ! 

+.. — .... — — —...... ..... + 

Macro library name Macros defined 

DRB1:EDS.WORK]DIAG.MLB;955 

DRB1:CDS,WORK3DS.MLB;218 

SYS$SYSR00T:CSYSL1B]L1B.ML8;1 

0MA1:CSYS0.SYSMAINT]DS.MLB;218 

0MA1 :LSYS0.SYSMA1NT3DJAG.MLB;953 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 

SYS$SYSROOT:CSYSLIB]STARLET.MLB;2 

TOTALS (all libraries) 

GETS were required to define macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/UST=[DS.LIS3/CRQSS/ENABLE=(DE8UG, TRACE) DSVECS/UPDA=(DSVECS. UPD, DSVECS. ENH)+SYS$LIBRARY:LIB/LIBRARY+DMA1 tCSYSO.SYSMA 
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ENTRY 

fable of contents 

176 

194 

206 

1800 

1817 

1865 



*** ENTRY DS service entry vectors 

*** ENTRY OS service entry 
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vectors 27-JUL-1984 15:17:16 VAX-11 Macro 



Sequence 
V03-0T 



1128 
Page 







Libraries and Equated Symbols 

Data Psect Declarations 

DS Entry Points 

DSSSRVDISP TABLE - Dispatch table for VDS services 

DSX$SERVICFJ)ISPATCHER - Service Dispatch Routine 

Resrvd_Entry Routine - For entry errors 
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ENTRY 
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*** ENTRY DS service entry vectors 

*** ENTRY DS service entry 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 

4 

5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



.TITLE 
.IDENT 
.NoShow 



ENTRY 
/07-35/ 

Conditionals 



*** ENTRY DS service entry vectors 



[283 



COPYRIGHT (c) 1977, 1982, 1983, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

+ \- 
FACILITY: 

VAX DIAGNOSTIC SUPERVISOR. 
ABSTRACT: 

NONE 
ENVIRONMENT: 

CEP AND SEP. 
AUTHOR: 

KEN CHAPMAN 31-OCT-77 VERSION 01. 
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*** ENTRY DS service entry 



0000 


41 ( 




0000 


42 , 


MODIFIED BY: 


0000 
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01 
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NICK H0W6ATE 15-N0V-77 VERSION 02 
CHANGE ENTRY VECTOR DISPATCH FROM 'BRW TO 'JMP' 

KEN CHAPMAN 30-NOV-77 VERSION 03 

ADDED SYS$WAKE VECTOR. REMOVED SYSSCRETVA VECTOR. 



NICK HOWGATE 15-DEC-77 
ADDED SYSSSETPRT ENTRY MASK. 



VERSION 04. 



N. HOWGATE 2WEB-78 VERSION 05 (ESSAA-4.00) . 
CHANGED ENTRY MASKS FOR SYSSASSIGN, SYSSDASSGN, SYS$CANCEL, 
SYS$GTCHAN, SYSSALLOC, SYSSDALLOC. 

KEN CHAPMAN 27-MAR-78 VERSION 06 (ESSAA-4.01 ) . 

CHANGED ENTRY MASKS FOR SYSSEXPREG, SYS*CNTREG, DS$GETBUF, 

AND DSSRELfiUF. 

ADDED NEW ENTRY NAMES: DS$SUMMARY, DSSCANWAIT, DSSASKDATA, 

DS$ASKVLD< DSSASKLGCL, DS$ASKSTR, DSSSHOCHAN. 

ADDED '+2* TO SKIP OVER LOCAL ENTRY MASKS IN SOME CASES. 

Roger Riggs 12-Jun-1978 

Changed 5ETMEM, RELMEM, MOVVRT, MOVPHY to be reserved. 

previously they were dummy routines in MEMMGT, 

Also changed EXPREG, CNTREG, MMOFF, MMON, and SETPRT to 

use .VECTOR pseudo op. 

Changed names and entry vectors 



RGETDATA 

RGETADDRESS 

RGETVIELD 

RGETLOGICAL 

RGETSTRING 

RGPHARD 

RBREAK 

Added DS$PRINTSIG 



of: 



DSXSGETDATA 
DSXSGETADDRESS 

DSXSGETVIELD 
DSXSGETLOGICAL 
DSXSGETSTRING 
DSXSGPHARD 



entry point 



Roger Riggs 
Activated 



K-Jan-1979 
DSSPROBE entry point 



Version 5.2 
at 101A0 



David R. Butenhof 06-feb-80 

Add entry point for EXESSETAST system call 

Roger Riggs, 24-MAR-1980 

Added dummy entry points for SYSILKWSET, SYSSSETPRI, 

SYSSSETRWM, SYSSSETSWM, SYSIULWSET 

Roger Riggs, 27-May-1980, Version 5.4 

Changed entry points for QIO routines to use .VECTOR 

and JMP +2 

Dave Butenhof 9-jun-1980- Version 5.4 
Added entry vectors for VMS V2.0 driver support routines: 
IOCSLOADUBAMAPA, IOCSGETBUTE, IOCSPUTBYTE, I0C$INITBUFW1ND, 
I0CSM0VFRUSER2, I0CSM0VFRUSER1 , I0C$M0VT0USER2, IQCSM0VT0USER1 

Dave Butenhof 18-jun-1980, version 5.5 
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*** ENTRY DS service entry 
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Add driver entry vectors for SCH$L0CKW and SCHSUNLOCK, for 
use by drivers doing buffered J/0, 



Roger Riggs, 22-JuLy~198Q, 
Added entry points for ??? 



Version 5.5 



Moved RMSSGL J\8STIM, RMSSGQ.SYSTIME here from clock. 



Roger Riggs, 27-Aui 
Added SYSSGET, SYSi 
SYSSDISCONNECT for 



1-1980 

iREAD, SYS$OPEN, SYS$CL0SE, SYSSCONNECT, 
subset of RMS services. 
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*** ENTRY DS service entry 
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HO 


0000 


141 


0000 


142 


cooo 


143 


0000 


144 


0000 


145 


0000 


146 


0000 


147 


0000 


148 


0000 


149 


0000 


150 


0000 


151 


0000 


152 


0000 


153 


0000 


154 


0000 


155 


0000 


156 


0000 


15? 


0000 


158 


0000 


159 


0000 


160 


0000 


161 


0000 


162 


0000 


163 


0000 


164 


0000 


165 



19 
20 

21 
22 

23 
2k 

25 

26 

27 



28 
29 
30 
31 
32 
33 
34 
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Dave Butenhof , 30-sep-1980, Version 6.1 

Added entry point for DSSATTACH— user-cal table ATTACH 

command processing 

Added entry vectors for COMSDRVDEALMCM, EXESINSIOQ, 

IOCSPTETOPFN, and moved EXE$GQ_SYST1MF here from CLOCK to 

make it accessible to drivers. 

Added entry point for DSSHELP— user-callable HELP command 

processing. 

Add entry point for IOC$MOVFRU$ER 

Dave Butenhof, 22-apr-1981, version 6.4 
Add entry points for IOCSALLOSPT, EXESMAXACMODE, and 
EXESREADLOCK. These were specified in release notes 
of version 6.3, but somehow the updates were lost, 
[also, define all libraries in source] 

- dave butenhof, 11-Sep-1981, version 6.5 

Fiv entries for event flag services. They are all done 
as jumps directly to label: fix to allow for entry mask 
on routine. 

- Jack Stansbury, 23-Oct-1981, Version 6.- 
Fixed a truncation error in the CODE Psect, and 
another possioly future one in the same Psect. 



ack Stansbury, 23-Oct-1981 

DSSSUMMARY and DS$86NsCr] 
one after DSSASKSTR. 



Version 6.- 
Added DSIBRANCH entry point, by putting it between 

and bv taking out the blank 



- Jack Stansbury, 16-Nov-1981, Version 6.- 
Changed the code at the DSSBREAK entry point. Put in a 
JMP to the label. FAKE JUMP, which is in the routine 
RESRVDENTRY. This was necessitated by the code at 
DSSBREAK occupying too many bytes for the entry point. 



Marion Baggett, 12-Apr-1982, 
Added entry point DSXSERRPREP 



Version 6.7 



Richard Brown, 27-May-82, Version 6,8 
Added entry point DSSSETPRIEXV. 

Richard Brown, 24-June-82, Version 6,8 
Added entry point DSSMAPDBGBLOCK. 

Richard Brown, 4-August-82, Version 6-9 
Added entry point DSSFREEDBGSYM, 

Bob Bergazzi 23-Nov-82 Version 6,10 
Added entry point DSSL0ADPCS. 

Bob Bergazzi May 16,1983 Version 6,11 
Changed the order of the .LIB statements. 



Richard 3rown 22-June-83 
Added entry point DSSGETTERM, 



Version 6.12 



. ) 
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0000 


166 


0000 


167 


0000 


168 


0000 


169 


0000 


170 


0000 


171 


0000 


172 


0000 


173 


0000 


174 



35 



Richard Brown 12-July-M Version 7.0 
Added entry point DSSSERViCE.DISPATCHER, to handle 
all future additional services, since empty spots 
in the dispatch vector area are in short supply. 
Added DSSSRVDJSP TABLE, used by DSSSERVICE DISPATCHER. 
Added DSXSMOUNT and DSXSDISMQUNT to DS$SRVBlSP_TABLE. 
Changed DATA psect alignment from Byte to Quad. 
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0000 


176 


.S8TTL L 


"bran'es and Equated Sym 




0000 


177 ; 










0000 


178 ; 


INCLUDE FILES: 








0000 


179 ; 










0000 


180 


.LIBRARY 




M SYS$LI8RARY:LI8 M 




oc°o 


181 


.LIBRARY 




"$DS" 




00 


182 


.LIBRARY 




"$DIA6 M 




ooou 


183 










0000 


184 ; 










0000 


185 ; 


MACROS: 








0000 


186 ; 










0000 


187 










0000 


188 ; 










0000 


189 ; 


EGUATED SYM80LS 








cooo 


190 ; 








0OO0OOOD 


0000 


191 


fR 


13 




OOOOOOOA 


0000 


192 


LF 


10 





C333 
[33] 
[333 
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0000 


194 


, SUBTITLE Data Psect Declarations 


0000 


195 




0000 


196 




0000 


197 


; OWN STORAGE: 


0000 


198 




00000000 


199 


.PSECT DATA, SHR, NOEXE, NOWRT, quad ; C35 


0000 


200 




0000 


201 


MODNAM ENTRY 


0006 


202 




0006 


203 


T_RESRVD: 


56 52 45 53 45 52 20 3F 3F 0A OD 00' 0006 


204 


.ASCIC <CRXLF>\?? RESERVED DIAGNOSTIC/SYSTEM SERVICE CALLA 


49 54 53 4F 4E 47 41 49 44 20 44 45 0012 






52 45 53 20 4D 45 54 53 59 53 2F 43 001E 






2E 4C 41 41 43 20 45 43 49 56 002A 






2D C006 







ZZ-ENSAA-7.0 
ENTRY 

07-35 



OS Entry Points 



*** ENTRY OS service 
OS Entry Points 



0034 

0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
C034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 



206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
22? 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 

"§ 

239 

240 
241 
242 
243 
244 
245 
246 



++ 
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.S8TTL OS Entry Points 



8 
(1) 



FUNCTIONAL DESCRIPTION: 

THIS SECTION PROVIDES A WELL DEFINED LINK fe THE DIAGNOSTIC 
SUPERVISOR AND THE DIAGNOSTIC PROGRAM. EAC INE STARTS ON A 
FIXED QUADWORD BOUNDRY WHICH CONTAINS THE At. MATE LINK TO 
THE BODY OF THE ROUTINE. THERE ARE FOUR SETS UF LINK VECTORS, 
ONE FOR EACH TYPE OF PROGRAM: CEP FUNCTIONAL, CEP REPAIR, 
SEP FUNCTIONAL, SEP REPAIR. 

CALLING SEQUENCE: 

ALL ROUTINES ARE CALLED VIA THE STANDARD VAX CALL PROCEDURE, 
I.E., CALLG AND CALLS INSTRUCTIONS. 

INPUT PARAMETERS: 

SEE SPECIFIC ROUTINE. 
IMPLICIT INPUTS: 

SEE SPECIFIC ROUTINE. 
OUTPUT PARAMETERS: 

SEE SPECIFIC ROUTINE. 
IMPLICIT OUTPUTS: * 

SEE SPECIFIC ROUTINE. 
COMPLETION CODES: 

SEE SPECIFIC ROUTINE. 
SIDE EFFECTS: 

SEE SPECIFIC ROUTINE. 
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00000000 
0000 



01E9 31 



01ED 31 



0000 
00000010'EF 17 



0000 
0000 
0003 
0003 
0004 
0004 
0007 
0007 
0008 
0008 
000A 



.PSECT $BASE, SHR, NOEXE, NOWRT, QUAD 



248 

249 

250 DSSENTRY: 

251 BRW LEAP.BOOT 
252 

253 .ALIGN LONG 

254 DSSAPT ENTRY: 

255 " BRW LEAP APT 
256 

257 .ALIGN QUAD 

258 ; RESERVED ENTRY POINT 

259 .WORD A M<> 

260 JMP RESRVD.ENTRY 



Address 10000 (X) 

STAND ALONE ENTRY POINT. 



APT ENTRY POINT 



ENTRY MASK. 
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E 9 

27-JUL-1984 



Fiche 6 Frame E9 



27-JUL-1984 15:17:16 
23-JUL-1984 16:22:58 



Sequence 1138 



VAX-11 Macro V03-0T Page 10 

DMA1sCSYS0.SYSMAIMT3ENTRY.MAR;T17 (1) 



00000002'EF 



00000002'EF 



0000 ' 
17 



00000002'EF 



00000002'EF 



0010 
0010 
0010 
0010 
0010 

0000' 0010 
17 0012 
0018 
0018 
0018 
0018 
001A 
0020 
0020 
C020 
0020 
0020 
0020 

0000* 0020 
17 0022 
0028 
0028 
0028 
0028 
0028 
0028 
0028 

0000' 0028 
17 002A 



INITIALIZE CODE SERVICES. 
QUAD 



262 ; + 

263 ; 4.1.11 

264 ;- 

265 .ALIGN 

266 DSSENDPASS:: 

267 .VECTOR DSXSENDPASS 

268 JMP OSXSENDPASS+2 
269 

270 .ALIGN QUAD 

271 DSSGPHARD:: 

272 .VECTOR DSXSGPHARD 

273 JMP DSXSGPHARD+2 
274 

275 ; + 

276 ; 4 J. 12 CLEANUP CODE CALL. 

277 ;- 

278 .ALIGN QUAD 

279 DSSA80RT:: 

280 .VECTOR DSXSABORT 

281 JMP DSXSABORT+2 
282 

283 ; + 

284 ; 4.1.13 SUMMARY REPORT CALL. 

285 ;- 

286 .ALIGN QUAD 

287 DSSSUMMARY:: 

288 DSSDOSUMMARY:: 

289 .VECTOR DSXSDOSUMMARY 

290 JMP DSXSDOSUMMARY+2 



END OF PASS ENTRY POINT, 



GET POINTER TO HARDWARE PARAMETER TABLE. 



ABORT PROGRAM. 



EXECUTE SUMMARY REPORT ROUTINE. 
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00000002' EF 



00000002 'EF 



00000002* Ef 



00000002' EF 



0000000c 



n • 



EF 



00000032'EF 



00000002' EF 



00000002' EF 



00000002 'EF 



00000002 % ^ 



*** ENTRY DS service entry vectors 
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0030 
0030 
0030 
0030 
0030 

0000' 0030 

17 0032 

0038 

0038 

0038 

0000* 0038 

17 003A 

0040 

0040 

C040 

0000' 0040 

17 0042 

0048 

0048 

0048 

0000' 0048 

17 004A 

0050 

0050 

0050 

0000' 0050 

17 0052 

0058 

0058 

0058 

0000 0058 
17 005A 
0060 
0060 
0060 
0060 

0000' 0060 

17 0062 

0068 

0068 

0068 

0000 ' 0068 
17 006A 
0070 
0070 
0070 
0070 

0000' 0070 

17 0072 

0078 

0078 

0078 

0000' 0078 
17 007A 



PROGRAM CONTROL 
QUAD 



292 ; + 

293 ; 4.2.1 

294 ;- 

295 .ALIGN 

296 DSSBGNSUB:: 

297 .VECTOR DSXSBGNSUB 

298 JMP DSX$BGNSUB+2 
299 

300 .ALIGN QUAD 

301 DSSENDSUB;: 

302 .VECTOR DSXSENDSUB 

303 JMP DSXSENDSUB+2 
304 

305 .ALIGN QUAD 

306 DSSCKLOOP:: 

307 .VECTOR DSXSCKLOOP 

308 JMP DSXSCKLOOP+2 
309 

310 .ALIGN QUAD 

311 DS$INLOOP:: 

312 .VECTOR DSXSJNLOOP 

313 JMP DSXSINLOOP+2 
314 

315 .ALIGN QUAD 

316 DSSESCAPE:: 

317 .VECTOR DSXSESCAPE 

318 JMP 
319 

320 .ALIGN 

321 DSSBREAK:: 

322 .WORD 

323 JMP 
324 
325 

326 .ALIGN 

327 DSSWAITMS:: 

328 .VECTOR DSXSWAITMS 

329 JMP DSXSWAITMS+2 
330 

331 .ALIGN QUAD 

332 DSSWAITUS:: 

333 .VECTOR DSXSWAITUS 

334 JMP DSXSWAJTUS+2 
335 

336 .ALIGN QUAD 

337 DSSCANWAIT:: 

338 DSSAB0RTWA1T:: 

339 .VECTOR DSX5CANWAIT 

340 JMP DSXSCANWAIT+2 
341 

342 .ALIGN QUAD 

343 DSSCNTRLC:: 

344 .VECTOR DSX$CNTRLC 

345 JMP DSX$CNTRLC+2 



SERVICES. 



DSXSESCAPE+2 
QUAD 

A M<> 

FAKE^JUMP 

QUAD 



; BEGIN SUBTEST ENTRY POINT. 



; END SU8TEST ENTRY POINT. 



; CHECK LOOP ENRTY POINT 



; IN LOOP ENTRY POINT. 



; ESCAPE ENTRY POINT. 



; BREAK FOR DYNAMIC SERVICES. 

; ENTRY MASK. 

; Go to Fake Jump, which JSB's to KB.CHECK, 

; and then RtTurns. 



; WAIT MILLISECONDS ENTRY POINT. 



; WAIT MICROSECONDS ENTRY POINT. 



; CANCEL WAIT ENTRY POINT. 
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00000002* EF 



00000002 'EF 



00000002 'EF 



00000002 , EF 



00000002 'EF 



00000002' EF 



00000002' EF 



00000002 'EF 
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0000' 
17 



0000' 
17 



0000' 
17 



0080 
0080 
0080 
0080 
0080 
0080 
0080 
0082 
0088 
0088 
0088 
0088 
0088 
008A 
0090 
0090 
0090 
0090 
0090 
0092 
0098 
0098 
0098 
0098 

0000' 0098 
17 009A 
00AQ 
00A0 
00A0 
OOAO 

0000' OOAO 
17 00A2 
00A8 
00A8 
00A8 
O0A8 
00A8 
OOAA 
0080 
0080 
0080 
0080 
0080 
0080 
0082 
0088 
0088 
0088 

0000' 0088 
1 7 OOBA 



0000 
17 



0000 ' 
17 



MESSAGE HANDLER SERVJ 
QUAD 



347 ;♦ 

348 ; 4.2.2 

349 ;- 

350 .ALIGN 

351 DSSASKDATA:: 

352 DSSGETDATA:: 

353 .VECTOR DSX$GETDATA 

354 JMP DSXSGETDATA+2 
355 

356 .ALIGN QUAD 

357 DSSASKVLD:: 

358 DSSGETVJELD:: 

359 .VECTOR DSXSGETVJELD 

360 JMP DSX$GETVIELD+2 
361 

362 .ALIGN QUAD 

363 DSSASKADR:: 

364 DSSGETADDRESS:: 

365 .VECTOR DSXSGETADDRESS 

366 JMP DSX$GETADDRESS+2 
367 

368 .ALIGN QUAD 

369 DSSASKLGCL:: 

370 DSSGETLOGICAL:: 

371 .VECTOR DSXSGETLOGICAL 

372 JMP DSXSGETLOGICAL+2 
373 

374 .ALIGN QUAD 

375 DSSASKSTR:: 

376 DSSGETSTRING:: 

377 .VECTOR DSXSGETSTRING 

378 JMP DSXSGETSTRING+2 
379 

380 

381 .ALIGN QUAD 

382 DS$BRANCH:: 

383 .VECTOR DSXSBRANCH 

384 JMP DSXSBRANCH+2 
385 

386 
387 

388 .ALIGN QUAD 

389 D3SCVTREG:: 

390 .VECTOR DSX$CVTREG, A M<> 

391 JMP DSXSCVTREG+2 
392 

393 .ALIGN QUAD 

394 DSSPARSE:: 

395 .VECTOR DSXSPARSE 

396 JMP DSXSPARSE+2 



CES. 



; GET DATA ENTRY POINT. 



; GET A VIELD ENTRY POINT. 



; GET AN ADDRESS ENTRY POINT 



; GET A LOGICAL DECISION ENTRY POINT 



; GET AN ASCII STRING ENTRY POINT. 



QA branch routine 



[263 
[26] 
[263 
[263 
C263 
[263 



; CONVERT REGISTER BITS TO ASCII 



; PARSE AN ASCII STRING, 
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* 






H 9 

27-JUL-1984 


ENTRY 




*** 


ENTRY 


DS service entry vectors 27-JUL 


07-35 




DS Entry Points 


23-JUL 








OOCO 


398 .ALIGN 


QUAD 








OOCO 


399 DSSERRSYS:: 








0000* 


OOCO 


400 .VECTOR 


DSXSERRSYS 




00000002' EF 


17 


00C2 
O0C8 


401 JMP 
402 


DSXSERRSYS+2 








O0C8 


403 .ALIGN 


QUAD 








O0C8 


404 DSSERRDEV:: 








oooo • 


O0C8 


405 .VECTOR 


DSXSERRDEV 




00000002 'EF 


17 


OOCA 
OODO 


406 JMP 
407 


DSXSERRDEV+2 








OODO 


408 .ALIGN 


QUAD 








OODO 


409 DS$ERRHARD:: 








oooo 1 


OODO 


410 .VECTOR 


DSXSERRHARD 




00000002'EF 


17 


00D2 
C0D8 


411 JMP 
412 


DSXSERRHARD+2 








00D8 


413 .ALIGN 


QUAD 








00D8 


414 DSSERRSOFT:: 








OOOO 1 


O0D8 


415 .VECTOR 


DSXSERRSOFT 




00QO0002'EF 


17 


OODA 
OOEO 


416 JMP 
417 


DSXSERRSOFT+2 








OOEO 


418 .ALIGN 


QUAD 








OOEO 


419 DSSPRINT8:: 








OOOO 1 


OOEO 


420 .VECTOR 


DSX$PRINTB, A M<> 




00000002'EF 


17 


O0E2 
00E8 


421 JMP 
422 


DSXSPRINTB+2 








00E8 


423 .ALIGN 


QUAD 








O0E8 


424 DSSPRINTX:: 








OOOO' 


O0E8 


425 .VECTOR 


DSX$PRINTX, A M<> 




00000002 •EF 


17 


OOEA 
OOFO 


426 JMP 
427 


DSX$PRINTX+2 








OOFO 


428 .ALIGN 


QUAD 








OOFO 


429 DS$PRINTF:: 








OOOO 1 


OOFO 


430 .VECTOR 


DSX$PRINTF, A M<> 




00000002 , EF 


17 


O0F2 
O0F8 


431 JMP 
432 


DSXSPRINTF+2 








00F8 


433 .ALIGN 


QUAD 








O0F8 


434 DSSPRINTS:: 








OOOO* 


00F8 


435 .VECTOR 


DSX$PRINTS, A M<> 




00000002'EF 


17 


OOFA 


436 JMP 


DSX$PRINTS+2 



Fiche 6 Frame H9 Sequence 1141 
■1984 15:17:16 VAX-11 Macro V03-0T Page 13 
•1984 16:22:58 DMA1 :CSYS0.SYSMAINTJENTRY.MAR;T17 <1) 



; SYSTEM FATAL ERROR ENTRY POINT. 



; DEVICE FATAL ERROR ENTRY POINT. 



; HARD ERROR ENTRY POINT. 



; SOFT ERROR ENTRY POINT. 



; PRINT BASIC MESSAGE ENTRY POINT 



; PRINT EXTENDED MESSAGE ENTRY POINT 



; PRINT FORCED MESSAGE ENTRY POINT. 



; PRINT STATISTICAL MESSAGE ENTRY POINT 
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0100 

0100 

0000' 0100 

00000002' EF 17 0102 

0108 

0108 

0108 

0000' 0108 

00000002 , EF 17 010A 

0110 

0110 

0110 

0000' 0110 

00000002 , EF 17 0112 

0118 

0118 

0118 

0000' 0118 

00000002 , EF 17 011A 

0120 



438 .ALIGN 

439 DSSPRINTSIG:: 

440 .VECTOR 

441 JMP 
442 

443 .ALIGN 

444 DS$ERRPREP:: 

445 .VECTOR 

446 JMP 
447 

448 .ALIGN 

449 DSSSETPRIEXV:: 

450 .VECTOR 

451 JMP 
452 

453 .ALIGN 

454 DS$MAPD8G8L0CK: 

455 .VECTOR 

456 JMP 
457 



QUAD 

DSX$PRINTSIG, A M<> 
DSXSPRINTSIG+2 

QUAD 

DSXSERRPREP 
DSXSERRPREP+2 

QUAD 

DSX$SETPRIEXV, A M<> 
DSXSSETPRIEXV+2 

QUAD 

DSX$MAPDBGBLOCK, A M<> 
DSXSMAPDBGBL0CK+2 



; Print signal array routine 



ERROR IN DEVICE PREPARATION. 



SET PRIMARY EXCEPTION VECTOR L291 

C29J 
[29] 



MAP BLOCK OF MEMORY FOR DEBUGGERC30] 

[30] 
[303 



C283 

C28] 
C28] 
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0000 • 
00000002 'EF 17 



0000' 
00000002* EF 17 



0000 
0000001D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



0000 
OOOOOOID'EF 17 



0000' 
00000002' EF 17 



0000' 
00000002 , EF 17 



0120 
0120 
0120 
0120 
0120 
0120 
0122 
0128 
0128 
0128 
0128 
01 2A 
0130 
0130 
C130 
0130 
0132 
0138 
0138 
0138 
0138 
01 3A 
OHO 
OHO 
OHO 
OHO 
0H2 
0H8 
0148 
0H8 
0148 
014A 
0150 
0150 
0150 
0150 
0152 
0158 
0158 
0158 
0158 
01 5A 



459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 



4.2.3 



MEMORY MANAGEMENT 
QUAD 



SERVICES. 



.ALJGN 
DSIGETBUF:: 

.VECTOR DSXSGETBUF 
JMP DSXSGETBUF+2 

.ALJGN QUAD 
DSSRELBUF:: 

.VECTOR DSXSRELBUF 

JMP DSXSRELBUF+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT 
.WORD *M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
DSSMMON:: 

.VECTOR DSX$MMON, A M<> 
JMP DSX$MM0N+2 

.ALIGN QUAD 
DSSMMOFF:: 

.VECTOR DSX$MMOFF, A M<> 
JMP DSXSMMOFF+2 



; GET BUFFER ENTRY POINT. 



; RELEASE BUFFER ENTRY POINT, 



GET PHYSICAL MEMORY ENTRY POINT 
ENTRY MASK 



RELEASE PHYSICAL MEMORY ENTRY POINT 
ENTRY MASK 



RELOCATE PROGRAM ENTRY POINT. 
ENTRY MASK 



PHYSICAL RELOCATE ENTRY POINT. 
ENTRY MASK 



; MEMORY MANAGEMENT ON ENTRY POINT 



; MEMORY MANAGEMENT OFF ENTRY POINT, 



ZZ-ENSAA-7,0 

ENTRY 

07-35 



OS Entry Points 



*** ENTRY DS service entry vectors 
DS Entry Points 



K 9 

27-JUL-1984 



27-JUL 
23-JUL 



Fiche 6 Frame K9 Seguence 1144 

1984 15:17:16 VAX-11 Macro V03-01 Page 16 

■1984 16:22:58 DMA1 :[SYS0.SYSMAINT]ENTRY.MAR;117 (1) 



0000' 
00000002 'EF 17 



0000* 
00000002'EF 17 



0QO0' 
00000002' EF 17 



0000' 
00000002 'EF 17 



0000' 
00000002' EF 17 



0000 
00000002' EF 17 



0000' 
00000002 'EF 17 



0000' 
00000002* EF 17 



0000 
00000002 'EF 17 



0000' 
00000002'EF 17 



0000' 
00000002'EF 17 



0160 502 ;+ 

0160 503 ; 4.2.4 

0160 504 ;- 

0160 505 .ALIGN 

0160 506 DSSSETVEC:: 

0160 507 .VECTOR 

0162 508 JMP 

0168 509 

0168 510 .ALIGN 

0168 511 DS$CLRVEC:: 

0168 512 .VECTOR 

01 6A 513 JMP 

0170 514 

0170 515 .ALIGN 

C170 516 DSSINITSCB:: 

0170 517 .VECTOR 

0172 518 JMP 

0178 519 

0178 520 .ALIGN 

0178 521 DSSSETIPL:: 

0178 522 .VECTOR 

01 7A 523 JMP 

0180 524 

0180 525 .ALIGN 

0180 526 DSSCHANNEL:: 

0180 527 .VECTOR 

0182 528 JMP 

0188 529 

0188 530 .ALIGN 

0188 531 DSSSETMAP:: 

0188 532 .VECTOR 

01 8A 533 JMP 

0190 534 

0190 535 .ALIGN 

0190 536 DSSSHOCHAN:: 

0190 537 DSSSHOWCHAN:: 

0190 538 .VECTOR 

0192 539 JMP 

0198 540 

0198 541 .ALIGN 

0198 542 DSSLOAD;: 

0198 543 .VECTOR 

01 9A 544 JMP 

01A0 545 

01A0 546 .ALIGN 

01 AO 547 DS$PR08E.*: 

01A0 548 .VECTOR 

01A2 549 JMP 

01A8 550 

01A8 551 .ALIGN 

01A8 552 DSSATTACH:: 

01A8 553 .VECTOR 

01AA 554 JMP 

01B0 555 .ALIGN 

01B0 556 DS$HELP?: 

0180 557 .VECTOR 

0182 558 JMP 



I/O SERVICES. 

QUAD 

OSX$SETVEC 
DSXSSETVEC+2 

QUAD 

DSXSCLRVEC 
DSXSCLRVEC+2 

QUAD 

DSXSINITSCB 
DSXSINITSCB+2 

QUAD 

DSXSSETIPL 
DSX$SETIPL+2 

QUAD 

DSXSCHANNEL 
DSXSCHANNEL+2 

QUAD 

DSXSSETMAP 
DSXSSETMAP+2 

QUAD 



DSXSSHOWCHAN 
DSXSSH0WCHAN+2 

QUAD 

DSX$L0AD 
DSX$L0AD+2 

QUAD 

DSX$PROBE 
DSXSPROBE+2 

QUAD 

DSX$ATTACH 

DSXSATTACH+2 

QUAD 

DSXSHELP 
DSXSHELP+2 



; SET VECTOR ENTRY POINT. 



; CLEAR VECTOR ENTRY POINT 



; INITIALIZE SYSTEM CONTROL BLOCK ENTRY POIN 



; SET INTERRUPT PRIORITY LEVEL ENTRY POINT. 



; CHANNEL SERVICES ENTRY POINT. 



; SET CHANNEL MAPPING ENTRY POINT. 



; SHOW CHANNEL STATUS ENTRY POINT. 



; A X10198 



; Probe accessibility 



; Process ATTACH command line 



; Process HELP command line 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



L 9 
27-JUL-1984 Fiche 6 Frame L9 Seguence 1145 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-OT Page 17 

23-JUL-1984 16:22:58 DMA1 :[SYS0,SYSMAINTJENTRY.MAR;?17 (1) 



0000' 
00000002' EF 17 



0000 ' 
00000002 'EF 17 



0000 ' 
00000002 , EF 17 



0000' 
00000002' EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
OE 11 

00000000/ EF 17 
06 11 

00000000' EF 17 
OOOOOOID'EF 17 



01B8 
01 B8 
01B8 
01BA 
01C0 
01 CO 
01C0 
01C0 
01C2 
01C8 
01C8 
01C8 
01C8 
01CA 
C1D0 
01DO 
01D0 
01D0 
01D2 
01D8 
01D8 
01D8 
01D8 
01D8 
01 DA 
01E0 
01E0 
01E0 
01EO 
01E2 
01E8 
01E8 
01E8 
01E8 
01EA 
01EC 
01EC 
01F? 
01F2 
01F2 
01F4 
01F4 
01F4 
01FA 
01FA 



560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

:>99 

600 

601 

602 

603 

604 



.ALIGN 
DSSFREEDBGSYM:: 
.VECTOR 
JMP 

.ALIGN 
DS$LOADPCS:: 

.VECTOR 
JMP 

.ALIGN 

DSSGETTERM:: 

.VECTOR 
JMP 



QUAD 

DSX$FREEDBGSYM, A M<> 
DSXSFREEDBGSYM+2 

QUAD 

DSX$LOADPCS, A M<> 
DSXSLOADPCS+2 

QUAD 

DSX$GETTFRM, A M<> 
DSXSGETTERM+2 



FREE MEMORY ASSIGNED TO SYMBOL TABLESC31] 

[31] 
C313 



LOAD THE PCS INTO THE COMET [32] 

[32] 
[32] 



Get terminal characteristics [34] 

[34] 
[34] 



.ALIGN QUAD 
DSSSERVICE DISPATCHER:: 

.VICTOR DSXSSERVICE 
JMP DSXSSERVICE' 



DISPATCHER 
'DISPATCHER+2 



Common dispatcher for all 
future additional services. 



[35] 
[35] 
[35] 
[35] 



.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 

.WORD A M<> 

BR8 RESRVD 
LEAP BOOT: 

JMP BOOT 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 

; LEAPFROG TO RESERVED ENTRY 

; LEAPFROG TO BOOT 



; RESERVED ENTRY+2 

BRB RESRVD 

LEAP APT: 

JMP APT 
; RESERVED ENTRY+2 
RESRVD: JMP RESRVD. 



(SAVE MASK IS HIGH ORDER BITS OF BOOT RELATIVE ADDRESS) 

; LEAPFROG TO RESERVED.ENTRY 



(SAVE 
ENTRY 



; LEAPFROG TO APT ENTRY POINT 
MASK IS HIGH ORDER BITS OF APT RELATIVE ADDRESS) 



ZZ-ENSAA-7.Q 


DS Entry Points 






M 9 
27-JUL-1984 


f 


: ic 


he 6 Frame M9 Sequence 1146 

: 17: 16 VAX-11 Macro V03-01 Page 18 

:22:58 DMA1 :CSYS0.SYSMAINTJENTRY,MAR;117 (1) 


ENTRY 


*** 


ENTRY 


[)S service entry vectors 27-JUL- 


•1984 


15 


07-35 


DS Entry Points 


23-JUL- 


•1984 


16 






0200 


606 














0200 


607 


; STARLET SYSTEM SERVICE VECTORS 


. 










0200 


608 














0200 


609 


.ALIGN QUAD 












0200 


610 


DSSAQ SYSSRV:: 












0200 


611 


SYSSQTOW:: 






; A X80000000 




OOOO 1 


0200 


612 


.VECTOR EXESQIO 










00000002' 9F 16 


0202 


613 


JSB S#EXE$QI0+2 










00000204 


0208 


614 


EXE$QI02=.-4 






; FUDGE ADDRESS OF EXE$QlO+2, SEE SYSSQIO 




03 50 E9 


0208 


615 


BLBC RO, 10$ 






; SKIP WAIT IF QIO ERROR. 




026C 31 


0208 


616 


BRW SYSSWAITFR+2 






; WAIT FOR EVENT FLAGv 




04 


020E 
020F 
020F 
C210 


617 
618 
619 
620 


10$: RET 

.ALJGN QUAD 
SYS$CALL HANDL:: 










61 04 AE FA 


0210 


621 


7ALLG 4<SP),(RD 






; CALL EXCEPTION HANDLER 




05 


0214 
0215 
0215 
0218 


622 
623 
624 
625 


RSB 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 










OOOO 


0218 


626 


.WORD A M<> 






; ENTRY MASK. 




0000001 D*EF 17 


021A 
0220 
0220 
0220 


627 

628 
629 
630 


JMP RESRVD_ENTRY 

•ALIGN QUAD 
; RESERVED ENTRY POINT. 










OOOO 


0220 


631 


.WORD A M<> 






; ENTRY MASK. 




0000001 D'EF 17 


0222 
0228 
0228 
0228 


632 
633 
634 
635 


JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 










OOOO 


0228 


636 


.WORD A MO 






; ENTRY MASK. 




0000001 D'EF 17 


022A 
0230 
0230 
0230 


637 
638 
639 
640 


JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 










OOOO 


0230 


641 


.WORD A M<> 






; ENTRY MASK. 




0000001 D'EF 17 


0232 
0238 
0238 


642 
643 
644 


JMP RESRVD_ENTRY 
.ALIGN QUAD 












0238 


645 


SYSSALLOC:: 






; A X80000038 




OOOO 1 


0238 


646 


.VECTOR EXESALLOC 










00000002 'EF 17 


023A 


647 


JMP EXESALLOC+2 



















N 9 






■ ^— — 


ZZ-ENSAA-7.0 


DS Entry Points 








27-JUL-1984 




c k 


he 6 Frame N9 Sequence 1147 
:17:16 VAX-11 Macro V03-0T Page 19 
:22:58 DMA1 :CSYS0.SYSMAINTJENTRY.MAR;T17 (1) 


ENTRY 


*** 


ENTRY I 


)S service entry vectors 27-JUL 


-1984 


15 


07-35 


OS Entry Points 




23-JUL 


-1984 


16 






0240 


649 


•ALIGN 


QUAD 












0240 


650 


; RESERVED ENTRY POINT. 






; A X80000040 




oooo 


0240 


651 


.WORD 


A M<> 






; ENTRY MASK. 




OOOOOOID'EF 17 


0242 
0248 
0248 
0248 


652 
653 
654 
655 


JMP 

.ALIGN 
SYSSASCTIM:: 


RESRVD.ENTRY 
QUAD 






; A X80O00048 




007C 


0248 


656 


.WORD 


A M<R2,R3,R4.R5, 


R6> 




; ENTRY MASK. 




00000002 , EF 17 


024A 
0250 
0250 
0250 


657 
658 
659 
660 


JMP 

.ALIGN 
SYSSASSIGN;: 


EXESASCTIM+2 
QUAD 






; A X8QOOOQ50 




OOOO' 


0250 


661 


.VECTOR 


EXESASSIGN 










00000002'EF 17 


0252 
C258 
0258 
0258 


662 
663 
664 
665 


JMP 

.ALIGN 
SYSSBINTIM:: 


EXESASSIGN+2 
QUAD 






; A X80000058 




01FC 


0258 


666 


• WORD 


A M<R2,R3,R4.,R5, 
EXESBINTIM+2 


R6,R7,R8>; ENTRY MASK, 




00000002 'EF 17 


025A 


667 


JMP 












0260 


668 
















0260 


669 


.ALIGN 


QUAD 












0260 


670 


SY$$CANCEL:r 








; A X80000060 




OOOO' 


0260 


671 


.VECTOR 


EXESCANCEL 










00000002 , EF 17 


0262 
0268 
0268 
0268 


672 
673 
674 
675 


JMP 

.ALIGN 
SYSSCANTIM:.* 


EXESCANCEL+2 
QUAD 






; A X80O00068 




OOOO' 


0268 


676 


.VECTOR 


EXESCANTIM 










00000002'EF 17 


026A 
0270 
02/0 


677 
678 
679 


JMP 
.ALIGN 


EXESCANTIM+2 
QUAD 












0270 


680 


; RESERVED ENTRY POINT. 










OOOO 


0270 


681 


.WORD 


A M<> 






; ENTRY MASK. 




OOOOOOID'EF 17 


0272 
0278 
0278 


682 
683 
684 


JMP 
.ALIGN 


RESRVD_ENTRY 
QUAD 












0278 


685 


; RESERVED ENTRY POINT. 










OOOO 


0278 


686 


.WORD 


A M<> 






; ENTRY MASK. 




OOOOOOID'EF 17 


027A 


687 


JMP 


RESRVD ENTRY 









ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



B 10 
27-JUL-1984 Fkhe 6 Frame 810 Seguence 1148 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 20 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYS«AINT]ENTRY.MAR;117 (1) 



0000001 D'EF 



0000001 D'EF 



0000001D'EF 



00000002' EF 



00000002'EF 



0000001D'EF 



0000001D'EF 



OOOOOOID'EF 



0000 
17 



0000 
17 



0000 
17 



0000' 
17 



0000 • 
17 



0000 
17 



0000 

17 



0000 
17 



0280 
0280 
0280 
0282 
0288 
0288 
0288 
0288 
028A 
0290 
0290 
0290 
0290 
0292 
C298 
0298 
0298 
0298 
029A 
02A0 
02A0 
02A0 
02A0 
02A2 
02A8 
02A8 
02A8 
02A8 
02AA 
02B0 
02B0 
0280 
0280 
0282 
02B8 
0288 
0288 
0288 
02BA 



689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7M< 
715 
716 
717 
718 
719 
720 
721 
722 
721 
12k 
725 
726 
727 



.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
SYSSCLREF:: 

.vector exeSclref 

jmp exe$clref+2 

.ALIGN QUAD 
SYSSCNTREG:: 

.VECTOR EXE$CNTREG, A M<> 
JMP EXESCNTREG+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 



; A X80000080 
; ENTRY MASK. 



; ENTRY MASK. 

; ENTRY MASK. 

; A X80000098 

; A X800000A0 



; ENTRY MASK, 



; ENTRY MASK. 



; ENTRY MASK. 



Z7-ENSAA-7.0 

ENTRY 
07-35 
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DS Entry Points 



C 10 
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23-JUL-1984 16:22:58 DMA1 :[SYS0,SYSMAINT]ENTRY.MAR;T17 (1) 



0000 
0000001 D'EF 17 



0000 
0000001 D'EF 17 



0000 
OOOOGOID'EF 17 



0000 • 
00000002 I EF 17 



0000' 
00000002*EF 17 



0000 
OOOOOQID'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



02C0 
02CO 
02C0 
02C2 
02C8 
02C8 
02C8 
02C8 
02CA 
02D0 
02D0 
02D0 
02D0 
02D2 
C2D8 
02D8 
02D8 
02D8 
02DA 
02E0 
02E0 
02E0 
02E0 
02E2 
02E8 
02E8 
02E8 
02E8 
02EA 
02F0 
02F0 
02F0 
02F0 
02F2 
02F8 
02F8 
02F8 
02F8 
02FA 



?29 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 



.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD *M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
SYSSDALLOC:: 

.VECTOR EXESDALLOC 

JMP EXESCANCEL+2 

.ALIGN QUAD 
SYS$DASSGN: : 

.VECTOR EXESDASSGN 

JMP EXESDASSGN+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 



; *X800000CO 
; ENTRY MASK. 



; ENTRY MASK. 

; ENTRY MASK. 

; A X800000D8 

; A X800000E0 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7,0 
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DS Entry Points 
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DS Entry Points 
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27-JUL-1984 Fiche 6 Frame D10 Seguence 1150 
entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 22 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINTJENTRY.MAR;117 (1) 







0300 


769 






0300 


770 




0000 


0300 


771 


0000001 D'EF 


17 


0302 


772 






0308 


773 






0308 


774 






0308 


775 




0000 


0308 


776 


0000001 D'EF 


17 


030A 


777 






0310 


778 






0310 


779 






0310 


780 




0000 


0310 


781 


0000001 D*EF 


17 


0312 


782 






C318 


783 






0318 


784 






0318 


785 




0000 


0318 


786 


0000001 D'EF 


17 


031A 


787 






0320 


788 






0320 


789 






0320 


790 




0000 


0320 


791 


0000001 D'EF 


17 


0322 


792 






0328 


793 






0328 


794 






0328 


795 




0000 


0328 


796 


0000001D'EF 


17 


032A 


797 






0330 


798 






0330 


799 






0330 


800 




0000 


0330 


801 


0000001D'EF 


17 


0332 


802 






0338 


803 






0338 


804 






0338 


805 




0000 


0338 


806 


OOOOOOID'EF 


17 


033A 


807 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD "MO 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALJGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALJGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 



; A X80001000 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK, 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7,0 

ENTRY 

07-35 



DS Entry Points 



00000002'EF 



OOOOOOOZ'EF 



OQOOOQOZ'EF 



OOOOOOID'EF 



OOOOOOID'EF 



OOOOOOID'EF 



00000002 f EF 



*** ENTRY DS service entry vectors 
DS Entry Points 



E 10 

27-JUL-1984 



Fiche 6 Frame E10 



27-JUL-1984 15:17:16 
23-JUL-1984 16:22:58 



Sequence 1151 



VAX-11 Macro V03-0T Page 23 
DMA1:CSYS0.SYSMAINTJENTRY.MAR;117 (1) 



0000 
04 



0000 

17 



OFFC 
17 



OFFC 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0340 
0340 
0340 
0342 
0343 
0343 
0348 
0348 
034A 
0350 
0350 
0350 
0350 
0352 
C358 
0358 
0358 
0358 
035A 
0360 
0360 
0360 
0360 
03o2 
0368 
0368 
0368 
0368 
036A 
0370 
0370 
0370 
0370 
0372 
0378 
0378 
0378 
0378 
037A 



QUAD 
A M<> 



809 .ALIGN 

810 SYSSEXJT:: 

811 .WORD 

812 RET 
813 

814 .ALIGN 

815 SYSSEXPREG:: 

816 .VECTOR EXE$EXPREG, A M<> 

817 JMP . .. - 

818 

819 .ALIGN 

820 SYSSFAO:: 

821 .WORD 

822 JMP 
823 

824 .ALIGN 

825 SYSSFAOL:: 



A X80000140 
ENTRY MASK. 



'X80000148 



QUAD 

EXE5L r 

EXESEXPREG+2 

QUAD 

; 'X80000150 
A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> , 
EXESFAO+2 

QUAD 



826 

827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 



; A X80000158 
.WORD A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> , 
JMP EXESFAOL+2 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 



.ALIGN 

845 SYSSGETTIM:: 

846 .WORD 

847 JMP 



QUAD 

A MO 

EXESGETTIM+2 



ENTRY MASK. 



ENTRY MASK. 



ENTRY MASK. 



A X80000178 
ENTRY MASK. 



ENTRY MASK. 



ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



F 10 
27-JUL-1984 Fiche 6 Frame F10 Seguence 1152 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 24 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINT:)ENTRY.MAR;T17 (1; 



0000' 
00000002 f EF 17 



0000 • 
00000002' EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 

50 01 DO 

04 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



OOFC 
00000002' EF 17 



0380 849 .ALIGN 

0380 850 SYS$GTCHAN:: 

0380 851 .VECTOR 

0382 852 JMP 

0388 853 

0388 854 .ALIGN 

0388 855 SYSSHIBER:: 

0388 856 .VECTOR 

038A 857 JMP 

0390 858 

0390 859 .ALIGN 

0390 860 ; RESERVED ENTRY 

0390 861 .WORD 

0392 862 JMP 

C398 863 

0398 864 .ALIGN 

0398 865 ; RESERVED ENTRY 

0398 866 .WORD 

039A 867 JMP 

03A0 868 

03A0 869 .ALIGN 

03A0 870 SYSSLKWSET:: 

03A0 871 .WORD 

03A2 872 MOVL 

03A5 873 RET 

03A6 874 

03A6 875 .ALIGN 

03A8 876 ; RESERVED ENTRY 

03A8 B77 .WORD 

03AA 878 JMP 

03B0 879 

03B0 880 .ALIGN 

03B0 881 ; RESERVED ENTRY 

03B0 882 .WORD 

0382 883 JMP 

0388 884 

03B8 885 .ALIGN 

0388 886 SYS$NUMTIM:r 

03B8 887 .WORD 

03BA 888 JMP 



QUAD 

EXESGTCHAN 
EXESGTCHAN+2 

QUAD 

EXESHIBER 
EXESHIBER+2 

QUAD 

POINT. 
A M<> 
RESRVD.ENTRY 

QUAD 
POINT. 
A M<> 
RESRVD.ENTRY 

QUAD 





QUAD 

POINT. 
*M<> 

RESRVDJNTRY 

QUAD 

POINT. 
*M<> 
RESRVDJNTRY 

QUAD 

A M<R2,R3,R4.R5,R6,R7> 
EXESNUMTIM+2 



; A X80000180 



; A X80000188 



; ENTRY MASK. 



; ENTRY MASK. 



A X800001A0 
Entry mask 
Indicate success 
Return 



; ENTRY MASK. 



; ENTRY MASK. 



; A X800001B8 
; ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



6 10 
27-JUL-1984 Fiche 6 Frame G10 Sequence 1153 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 25 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINTJENTRY.MAR;117 (1) 



0000 
0000001 D'EF 17 



0000 • 
FE36 DF 16 
04 



0000 f 
00000002 , EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001 D'EF 17 



0000 
00000002'EF 17 



03CO 890 .ALIGN 

03C0 891 ; RESERVED ENTRY 

03C0 892 .WORD 

03C2 893 JMP 

03C8 894 

03C8 895 .ALIGN 

03C8 896 SYSSQIO:: 

03C8 897 .VECTOR 

03CA 898 JS8 

03CE 899 RET 

03CF 900 

03CF 901 .ALIGN 

03DO 902 SYSSREADEF:: 

03DC 903 .vector 

C3D2 904 jmp 

03D8 905 

03D8 906 .ALIGN 

03D8 907 ; RESERVED ENTRY 

03D8 908 .WORD 

03DA 909 JMP 

03EO 910 

03E0 911 .ALIGN 

03EO 912 ; RESERVED ENTRY 

03EO 913 .WORD 

03E2 914 JMP 

03E8 915 

03E8 916 .ALIGN 

03E8 917 ; RESERVED ENTRY 

03E8 918 .WORD 

03EA 919 JMP 

03FO 920 

03F0 921 .ALIGN 

03FO 922 ; RESERVED ENTRY 

03FO 923 .WORD 

03F2 924 JMP 

03F8 925 

03F8 926 .ALIGN 

03F8 927 SYSSSETAST:: 

03F8 928 .VECTOR 

03FA 929 JMP 



QUAD 

POINT, 
A M<> 
RESRVD.ENTRY 

QUAD 

EXESQIO 
8EXE$QI02 



QUAD 

exeSreadef 
exe$readef+2 

QUAD 
POINT. 
A M<> 
RESRVD.ENTRY 

QUAD 
POINT. 
A M<> 

RESRVD_ENTRY 

QUAD 

POINT. 
A M<> 

RESRVDJNTRY 

QUAD 

POINT. 
A M<> 
RESRVD^ENTRY 

QUAD 

EXE$SETAST 

EXESSETAST+2 



; A X800001C0 
; ENTRY MASK. 



; A X800001C8 



; A X800001D0 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; A X800001F8 
; Entry mask 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
DS Entry Points 



H 10 
27-JUL-1984 Fiche 6 Frame H10 Seguence 11 54 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 26 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINT3ENTRY.MAR;T17 (1) 



0000 
00000002 *EF 17 



0000 
0000001D ! EF 17 



0000 
0000001D*EF 17 



0000 
0000001D'EF 17 



0000 • 
00000002'EF 17 



0000 

50 01 DO 

04 



0000' 
00000002'EF 17 



0000 

50 01 DO 

04 



0400 931 .ALIGN 

0400 932 SYSSSETEF:: 

0400 933 .vector 

0402 934 jmp 

0408 935 

0408 936 .ALIGN 

0408 937 ; RE^SERVED ENTRY 

0408 938 .WORD 

040A 939 JMP 

0410 940 

0410 941 .ALIGN 

0410 942 ; RESERVED ENTRY 

0410 943 .WORD 

0412 944 JMP 

C418 945 

0418 946 .ALIGN 

0418 947 ; RESERVED ENTRY 

0418 948 .WORD 

041A 949 JMP 

0420 950 

0420 951 .ALIGN 

0420 952 SYSSSETIMR:: 

0420 953 .VECTOR 

0422 954 JMP 

0428 955 

0428 956 .ALIGN 

0428 957 SYSSSETPRI;: 

0428 958 .WORD 

042A 959 MOVL 

042D 960 RET 

042E 961 

042E 962 .ALIGN 

0430 963 SYSSSETPRT:: 

0430 964 .VECTOR 

0432 965 JMP 

0438 966 

0438 967 .ALIGN 

0438 968 SYSSSETRWM:: 

0438 969 .WORD 

043A 970 MOVL 

043D 971 RET 



QUAD 

exe$setef 
exe$setef+2 

QUAD 
POINT. 
A M<> 

RESRVD.ENTRY 

QUAD 

POINT. 
A M<> 
RESRVD_ENTRY 

QUAD 
POINT. 
A M<> 
RESRVD, ENTRY 

QUAD 

EXESSETIMR 
EXESSETIMR+2 

QUAD 


#1,R0 



QUAD 

EXE$SETPRT, A M<> 
EXE$SETPRT*2 

QUAD 



n,R0 



'X80000200 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK 



'X80000220 



"X80O00228 
Entry mask 
Indicate success 
Return 



A X80000230 
ENTRY MASK. 



A X80000238 
Entry mask 
Indicate success 
Return 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



I 10 
27-JUL-1984 Fiche 6 Frame 110 Sequence 1155 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 27 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINTJENTRY.MAR;117 (1) 



OOQOOOID'EF 



0000001 D'EF 



0000001 D'EF 



O000O01D f EF 



50 01 



50 01 



00000002 , EF 



O00OO002 , EF 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
DO 
04 



0000 
DO 
04 



0000 ' 
17 



0000 » 
17 



043E 
0440 
0440 
0442 
0448 
0448 
0448 
0448 
044A 
0450 
0450 
0450 
0450 
0452 
C458 
0458 
0458 
0458 
045A 
0460 
0460 
0460 
0460 
0462 
0465 
0466 
0466 
0468 
0468 
046A 
046D 
046E 
046E 
0470 
0470 
0472 
0473 
0478 
0478 
0478 
04 7A 



973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

10O3 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD..ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD,ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
A M<> 
RESRVD_ENTRY 

QUAD 

A M<> 
RESRVD_ENTRY 

QUAD 



.WORD 
JMP 

.ALIGN 
SYSSTRNL06:: 
.WORD 
JMP 

.ALIGN 
SYSSULKPAG:: 
.WORD 
MOVL 
RET 

.ALIGN 
SYS$ULWSET:: 
.WORD 
MOVL 
RET 




01, RO 



QUAD 



#1,RQ 



QUAD 



.ALIGN 
SYSSUNWIND:: 

.VECTOR EXE$UNWIND 
JMP EXESUNWIND+2 

.ALIGN QUAD 
SYSSWAITFR:: 

.vector exe$waitfr 

jmp exe$waitfr+2 



A X800Q0240 
ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



A X80000258 
ENTRY MASK. 



A X80000260 
Entry mask 
Indicate success 
Return 

A X80000268 
Entry mask 
Indicate success 
Return 



'X80000278 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



OS Entry Points 



*** ENTRY DS service 
DS Entry Points 



J 10 
27-JUL-1984 Fiche 6 Frame J10 Seguence 1156 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 28 

23-JUL-1984 16:22:58 DMA1 :rSYS0.SYSMAINT3ENTRY.MAR;T17 (1) 



0000 f 
00000002 'EF 17 



0000 • 
00000002' EF 17 



0000 f 
00000002' EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0480 
0480 
0480 
0482 
0488 
0488 
0488 
0488 
048A 
0490 
0490 
0490 
0490 
0492 
C498 
0498 
0498 
0498 
049A 
04A0 
04A0 
04A0 
O4A0 
04A2 
04A8 
04A8 
04A8 
04A8 
04AA 
04B0 
04B0 
04B0 
04B0 
0482 
0488 
04B8 
0488 
0488 
04BA 



1015 
1016 
1017 
1018 
1019 
102O 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 



.ALIGN QUAD 
SYS$WAKE:: 

.VECTOR EXESWAKE 

JMP EXESWAKE+2 

.ALIGN QUAD 
SYSSWFLAND:: 

.vector exeSwfland 

jmp exe$wfland+2 

.ALIGN QUAD 
SYSSWFLOR:: 

.vector exeSwflor 

jmp exe$wflor+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 



; A X80000280 



; A X80000288 



; A X80000290 



; ENTRY MASK. 



; ENTRY MASK, 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7,0 

ENTRY 
07-35 



DS Entry Points 



*** ENTRY DS service 
DS Entry Points 



K 10 
27-JUL-1984 Fiche 6 Frame K10 Seguence 1157 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 29 

23-JUL-1984 16:22:58 DMA1 :CSYS0,SYSMAINT3ENTRY.MAR;117 (1) 



0000 
0000001 D'EF 17 



0000' 
00000002'EF 17 



0000 
0000001 D'EF 1? 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



OACO 

04C0 
04C0 
04C2 
04C8 
04C8 
04C8 
04C8 
04CA 
04D0 
04D0 
04D0 
04DO 
04D2 
C4D8 
04D8 
04D8 
04D8 
04DA 
04E0 
04E0 
04E0 
04E0 
0462 
04E8 
04E8 
04E8 
04E8 
04EA 
04F0 
04F0 
04F0 
04F0 
04F2 
04F8 
04F8 
04F8 
04F8 
04FA 



1055 
1056 
1057 
1058 
1059 
1C60 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 



.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
SYS$GETCHN:: 

.VECTOR EXESGTCHAN 

JMP EXESGTCHAN+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD^ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD. ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
•WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RE3RVD..ENTRY 



; A X800002CO 
; ENTRY MASK. 



; A X800002C8 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Point? 





*** 


ENTRY 


DS service entry vectors 27- 




DS Entry Points 


23- 






0500 


1095 


.ALIGN QUAD 






0500 


1096 ; 


RESERVED ENTRY POINT. 




0000 


0500 


1097 


.WORD A M<> 


0000001 D*EF 


17 


0502 


1098 


JMP RESRVD.ENTRY 






0508 


1099 








0508 


1100 


•ALIGN QUAD 






0508 


1101 ; 


RESERVED ENTRY POINT. 




0000 


0508 


1102 


.WORD A M<> 


0000001 D'EF 


17 


050A 


1103 


JMP RESRVD.ENTRY 






0510 


1104 








0510 


1105 


.ALIGN QUAD 






0510 


1106 : 


RESERVED ENTRY POINT. 




COOO 


0510 


1107 


.WORD A M<> 


OOOOOOID'EF 


17 


0512 


1108 


JMP RESRVD_ENTRY 






C518 


1109 








0518 


1110 


.ALIGN QUAD 






0518 


1111 ; 


RESERVED ENTRY POINT. 




0000 


0518 


1112 


.WORD A M<> 


0000001 D*EF 


17 


051A 


1113 


JMP RESRVD^ENTRY 






0520 


1114 








0520 


1115 


.ALIGN QUAD 






0520 


1116 ; 


RESERVED ENTRY POINT. 




0000 


0520 


1117 


.WORD A M<> 


0000001 D'EF 


17 


0522 


1118 


JMP RESRVP_ENTRY 






0528 


1119 








0528 


1120 


.ALIGN QUAD 






0528 


1121 ; 


RESERVED ENTRY POINT. 




0000 


0528 


1122 


.WORD A M<> 


0000001 D'EF 


17 


052A 


1123 


JMP RESRVD_ENTRY 






0530 


1124 








0530 


1125 


.ALIGN QUAD 






0530 


1126 ; 


RESERVED ENTRY POINT. 




0000 


0530 


1127 


.WORD A M<> 


OOOOOOID'EF 


17 


0532 


1128 


JMP RESRVD_ENTRY 






0538 


1129 








0538 


1130 


.ALIGN QUAD 






0538 


1131 ; 


RESERVED ENTRY POINT. 




0000 


0538 


1132 


.WORD *M<> 


OOOOOOID'EF 


17 


053A 


1133 


JMP RESRVD. ENTRY 



L 10 
27-JUL-1984 Fiche 6 Frame L10 Seguence 1158 

27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 

.-1984 16:22:58 DMA1 :CSYS0.SYSMAINTJENTRY.MAR;117 



; 1, X80000300 
; ENTRY MASK. 



30 
(1) 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK, 



ZZ-ENSAA-7.0 

ENTRY 
07-35 



DS Entry Points 



M 10 
27-JUL-1984 Fiche 6 Frame M10 Sequence 1159 
*** ENTRY DS service entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 31 
DS Entry Points 23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINT]ENTRY.MAR;117 (1) 







0540 


1135 


.ALIGN QUAD 






0540 


1136 ; 


RESERVED ENTRY POINT 




0000 


0540 


1137 


.WORD A M<> 


0000001 D f EF 


17 


0542 


1138 


JMP RESRVD. ENTRY 






0548 


1139 








0548 


1140 


.ALIGN QUAD 






0548 


1141 ; 


RESERVED ENTRY POINT. 




0000 


0548 


1142 


.WORD A M<> 


0000001 D'EF 


17 


054A 


1143 


JMP RESRVD.ENTRY 






0550 


1144 








0550 


1145 


.ALIGN QUAD 






0550 


1146 ; 


RESERVED ENTRY POINT. 




0000 


0550 


1147 


.WORD A M<> 


0000001 D'EF 


17 


0552 


1148 


JMP RESRVDJNTRY 






C558 


1149 








0558 


1150 


.ALIGN QUAD 






0558 


1151 ; 


RESERVED ENTRY POINT. 




0000 


0558 


1152 


.WORD A M<> 


0000001 D'EF 


17 


055A 


1153 


JMP RESRVD. ENTRY 






0560 


1154 








0560 


1155 


.ALIGN QUAD 






0560 


1156 ; 


RESERVED ENTRY POINT. 




0000 


0560 


1157 


.WORD A M<> 


0000001 D'EF 


17 


0562 


1158 


JMP RESRVD.ENTRY 






0568 


1159 








0568 


1160 


.ALIGN QUAD 






0568 


1161 ; 


RESERVED ENTRY POINT. 




0000 


0568 


1162 


.WORD A M<> 


0000001 D'EF 


17 


056A 


1163 


JMP RESRVD.F.NTRY 






0570 


1164 








0570 


1165 


.ALIGN QUAD 






0570 


1166 ; 


RESERVED ENTRY POINT, 




0000 


0570 


1167 


.WORD A M<> 


0000001 D'EF 


17 


0572 


1168 


JMP RESRVD.ENTRY 






0578 


1169 








0578 


1170 


.ALIGN QUAD 






0578 


1171 ; 


RESERVED ENTRY POINT. 




0000 


0578 


1172 


.WORD A M<> 


0000001 D'EF 


17 


057A 


1173 


JMP RESRVD_ENTRY 



; A X800Q0340 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7,0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



N 10 
27-JUL-1984 Fiche 6 Frame N10 Sequence 1160 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 32 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINT]ENTRY.MAR;T17 (1) 



00000002 'EF 



OOOOOOID'EF 



00000002' EF 



0000001D'EF 



0000001D'EF 



OOOOOQID'EF 



GOOOOOID'EF 



00000002'EF 



0000' 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0580 
0580 
0580 
0582 
0588 
0588 
0588 
0588 
058A 
0590 
0590 
0590 
0590 
0592 
C598 
0598 
0598 
0598 
059A 
05A0 
05A0 
05A0 
05A0 
05A2 
05A8 
05A8 
05A8 
05A8 
05AA 
0580 
05B0 
0580 
05B0 
05B2 
0588 
05E.8 
0538 
0588 
058A 



1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 



.ALIGN QUAD 
SYS$GET:: 

.VECTOR RMSSGET 

JMP RMSSGET+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.W. ;d a M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
SYSSREAD:: 

.VECTOR RMSSREAD 

JMP RMSSREAD+2 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD^ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD *M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
SYSSCuOSE:: 

.VECTOR RMSSCLOSE 

JMP RMSSCLOSE+2 



; A X80000380 



; ENTRY MASK. 



; A X80000390 
; ENTRY MASK. 

; ENTRY MASK, 

; ENTRY MASK. 

; ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 
07-35 



DS Entry Points 



*** ENTRY DS service 
DS Entry Points 



B 11 1 

27-JUL-1984 Fiche 6 Frame 811 Sequence 1161 
entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-0T Page 53 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINTDENTRY t MAR;117 (1) 



0000* 
00000002' EF 17 



0000 
OOOOOOID'EF 17 



0000* 
00000002' EF 17 



0000 
0000001D'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



05C0 
05C0 
05C0 
05C2 
05C8 
05C8 
05C8 
05C8 
05CA 
05D0 
05D0 
05D0 
05D0 
05D2 
C5D8 
05D8 
05D8 
05D8 
05DA 
05E0 
05E0 
05E0 
05E0 
05E2 
05E8 
05E8 
05E8 
05E8 
05EA 
05F0 
05F0 
05F0 
05F0 
05F2 
05F8 
05F8 
05F8 
05F8 
05FA 



1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 



.ALIGN 

SYSSCONNECT:: 

.VECTOR 
JMP 



QUAD 

RMS*CONNECT 

RMSSCONNECT+2 



; A X80Q003C0 



.ALIGN QUAD 
RESERVED ENTRY *OINT. 
.WORD A M<> 
JMP RESRVDJNTRY 



.ALIGN 

SYSSUSCONNECT: 
.VECTOR 
JMP 



QUAD 

RMSSDISCONNECT 
RMSSDJSCONNECT+2 



; ENTRY MASK. 

; A X800Q03D0 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD *M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



Z2-ENSAA-7.0 
ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
DS Entry Points 



C 11 
27-JUL-1984 Fiche 6 Frame C11 Seguence 1162 

entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINT3ENTRY,MAR; 117 



34 

(1) 



0000 
OOOOOOID'EF 17 



0000 ' 
00000002 , EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0600 
0600 
0600 
0602 
0608 
0608 
0608 
0608 
060A 
0610 
0610 
0610 
0610 
0610 
C612 
0618 
0618 
0618 
0618 
061A 
0620 
0620 
0620 
0620 
0622 
0628 
0628 
0628 
0628 
062A 
0630 
0630 
0630 
0630 
0632 
0638 
0638 
0638 
0638 
063A 



1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 



.ALIGN QUAD 
; RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD..ENTRY 

.ALIGN QUAD 
SYSSOPEN:: 

.VECTOR RMSSOPEN 
jMP RMSSOPEN+2 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD„ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 



; A X80000400 
; ENTRY MASK. 



; A X80000408 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK, 



; ENTRY MASK. 



; ENTRY MASK, 



; ENTRY MASK, 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
DS Entry Points 



entry vectors 



11 
27-JUL-1984 Fiche 6 Frame . 

27-JUL-1984 15:17:16 VAX-11 Macro 
23-JUL-1984 16:22:58 



D11 



Sequence 1163 
vma-ii nacro V03-01 Page 35 

DMA1jCSYS0.SYSMAINT]£NTRY.MAR;T17 (1) 







0640 


1296 


.ALIGN QUAD 






0640 


1297 ; 


RESERVED ENTRY POINT. 




0000 


0640 
0642 


1298 


.WORD A M<> 


0000001 D'EF 


17 


1299 


JMP RESRVD.ENTRY 






0648 


1300 








0648 


1301 


.ALJGN QUAD 






0648 


1302 ; 


RESERVED ENTRY POINT. 




0000 


0648 


1303 


.WORD A M<> 


0000001D'EF 


17 


064A 


1304 


JMP RESRVD.ENTRY 






0650 


1305 








0650 


1306 


.ALIGN QUAD 






0650 


1307 ; 


RESERVED ENTRY POINT. 




0000 


0650 


1308 


.WORD A M<> 


0000001D'EF 


17 


0652 


1309 


JMP RESRVD ENTRY 






C658 


1310 


*• 






0658 


1311 


.ALIGN QUAD 






0658 


1312 ; 


RESERVED ENTRY POINT. 




0000 


0658 


1313 


.WORD A M<> 


0Q00001D'EF 


17 


065A 


1314 


JMP RESRVDJNTRY 






0660 


1315 








0660 


1316 


.ALIGN QUAD 






0660 


1317 ; 


RESERVED ENTRY POINT. 




0000 


0660 


1318 


.WORD A M<> 


OOOOQOID'EF 


17 


0662 


1319 


JMP RESRVD.ENTRY 






0668 


1320 








0668 


1321 


.ALJGN QUAD 






0668 


1322 ; 


RESERVED ENTRY POINT. 




0000 


0668 


1323 


.WORD A M<> 


0000001 D*EF 


17 


066A 


1324 


JMP RESRVD.ENTRY 






0670 


1325 








0670 


1326 


.ALIGN QUAD 






0670 


1327 ; 


RESERVED ENTRY POINT. 




0000 


0670 


1328 


.WORD A M<> 


OOOOOOID'EF 


17 


0672 


1329 


JMP RESRVD.ENTRY 






0678 


1330 








0678 


1331 


.ALIGN QUAD 






0678 


1332 ; 


RESERVED ENTRY POINT. 




0000 


0678 


1333 


.WORD A M<> 


0000001 D'EF 


17 


067A 


1334 


JMP RESRVDJNTRY 



; A X80000440 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



OS Entry Points 



*** ENTRY DS service 
OS Entry Points 



E 11 
27-JUL-1984 Fiche 6 Frame 61 1 Seguence 1164 
entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 36 

23-JUL-1984 16:22:58 DMA1 :[SYS0.SYSMAINnENTRY.MAR;Tl7 (1) 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0680 
0680 
0680 
0682 
0688 
0688 
0688 
0688 
068A 
0690 
0690 
0690 
0690 
0692 
C698 
0698 
0698 
0698 
069A 
06A0 
06A0 
06A0 
06A0 
06A2 
06A8 
06A8 
06A8 
06A8 
06AA 
06B0 
0680 
06B0 
0680 
0682 
06B8 
0688 
06B8 
06B8 
06BA 



1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALJ6N QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD ENTRY 



; A X80000480 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



.. 



ZZ-ENSAA-7.0 

ENTRY 

U7-35 



DS Entry Points 



*** ENTRY DS service entry vectors 
DS Entry Points 



F 11 
27-JUL-1984 



Fie he 6 Frame F11 



27-JUL-1984 15:17:16 
23-JUL-1984 16:22:58 



Sequence 1165 



VAX-11 Macro V03-0T Page 37 

DMA1:CSYS0.SYSMAINT3ENTRY.MAR;T17 (1) 







06C0 


1376 


.ALIGN QUAD 






06C0 


1377 ; 


RESERVED ENTRY POINT. 




0000 


06C0 


1378 


.WORD A M<> 


0000001 D'EF 


17 


06C2 


1379 


JMP RESRVD.ENTRY 






06C8 


1380 








06C8 


1381 


.ALIGN QUAD 






06C8 


1382 ; 


RESERVED ENTRY POINT. 




0000 


06C8 


1383 


.WORD A M<> 


OOOOQQID'EF 


17 


06CA 


1384 


JMP RESRVD.ENTRY 






06D0 


1385 








06D0 


1386 


.ALIGN QUAD 






06D0 


1387 ; 


RESERVED ENTRY POINT. 




0000 


06D0 


1388 


.WORD A M<> 


0000001 D'EF 


17 


06D2 


1389 


JMP RESRVD.ENTRY 






C6D8 


1390 








06D8 


1391 


.ALIGN QUAD 






06D8 


139? ; 


RESERVED ENTRY POINT. 




0000 


06D8 


1393 


.WORD A M<> 


OOOOOOID'EF 


17 


06DA 


1394 


JMP RESRVD.ENTRY 






06E0 


1395 








06E0 


1396 


.ALIGN QUAD 






06E0 


1397 ; 


RESERVED ENTRY POINT. 




0000 


06E0 


1398 


.WORD A M<> 


0000001 D'EF 


17 


06E2 


1399 


JMP RESRVD.ENTRY 






06E8 


1400 








06E8 


1401 


.ALIGN QUAD 






06E8 


1402 ; 


RESERVED ENTRY POINT. 




0000 


06E8 


1403 


.WORD A M<> 


0000001 D'EF 


17 


06EA 


1404 


JMP RESRVD.ENTRY 






06F0 


1405 








06F0 


1406 


.ALIGN QUAD 






06F0 


1407 ; 


RESERVED ENTRY POINT. 




0000 


06F0 


1408 


.WORD A M<> 


0000001 D'EF 


17 


06F2 


1409 


JMP RESRVD.ENTRY 






06F8 


1410 








06F8 


1411 


.ALIGN QUAD 






06F8 


1412 ; 


RESERVED ENTRY POINT. 




0000 


06F8 


1413 


.WORD A M<> 


0000001D'EF 


17 


06FA 


1414 


JMP RESRVD.ENTRY 



; A X800OO4CO 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK, 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
Entry Points 



OS 



G 11 
27-JUL-1984 Fiche 6 Frame 611 Sequence 1166 
entry vectors 27-JUL-198* 15:17:16 VAX-11 Macro VO3-0T Page 38 

23-JUL-1984 16:22:58 DMA1 :[SYS0.SYSMAINTJENTRY.MAR;T17 (1) 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D { EF 17 



0000 
0000001 D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0700 
0700 
0700 
0702 
0708 
0708 
0708 
0708 
070A 
0710 
0710 
0710 
0710 
0712 
C718 
0718 
0718 
0718 
071A 
0720 
0720 
0720 
0720 
0722 
0728 
0728 
0728 
0728 
072A 
0730 
0730 
0730 
0730 
0732 
0738 
0738 
0738 
0738 
073A 



1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 



; A X80000500 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7,0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service entry 
DS Entry Points 



H 11 
27-JUL-1984 Fiche 6 Frame H11 Seguence 1167 

vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 39 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINnENTRY.MAR;l17 (1) 



0000001D'EF 



0000001 D'EF 



0000001 D'EF 



OOOOOOID'EF 



0000001 D'EF 



GOOOOOID'EF 



0000001D'EF 



GOOOOOID'EF 



0000 
17 



0000 
17 



0000 

17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0000 
17 



0740 
0740 
0740 
0742 
0748 
0748 
0748 
0748 
074A 
0750 
0750 
0750 
0750 
0752 
C758 
0758 
0758 
0758 
075A 
0760 
0760 
0760 
0760 
0762 
0768 
0768 
0768 
0768 
076A 
0770 
0770 
0770 
0770 
0772 
0778 
0778 
0778 
0778 
077A 



1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD ENTRY 



; A X80000540 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



DS Entry Points 



*** ENTRY DS service 
OS Entry Points 



I 11 
27-JUL-1984 Ffche 6 Frame 111 Seguence 1168 
entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 40 

23-JUL-1984 16:22:58 DMA1 :[SYS0.SYSMAINT]ENTRY.MAR;T17 (1) 



0000 
OOOOOOID'EF 17 



0000 
0000001D'EF 17 



0000 
OOOOOOIO'EF 17 



0000 
OOOOOOID'EF 17 



0000 
0000001D f EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0000 
OOOOOOID'EF 17 



0780 
0780 
0780 
0782 
0788 
0788 
0788 
0788 
078A 
0790 
0790 
0790 
0790 
0792 
C798 
0798 
0798 
0798 
079A 
07A0 
07A0 
07A0 
07A0 
07A2 
07A8 
07A8 
07A8 
07A8 
07AA 
07B0 
0780 
07B0 
0780 
0782 
0788 
0788 
0788 
07B8 
07BA 



1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD *M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD^ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD..ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT, 
.WORD A MO 
JMP RESRVD.ENTRY 



; A X80000580 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK, 



ZZ-ENSAA-7.0 

ENTRY 

07-35 



OS Entry Points 



*** ENTRY DS service 
Entry Points 



DS 



J 11 
27-JUL-1984 Fiche 6 Frame J11 Seguence 1169 
entry vectors 27-JUL-1984 15:17:16 VAX-11 Macro V03-01 Page 41 

23-JUL-1984 16:22:58 DMA1 :CSYS0.SYSMAINT3ENTRY.MAR;117 (1) 



0000 
0000001 D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001 D'EF 17 



0000 
0000001D'EF 17 



0000 
0000001D'EF 17 



000007FF 
00000600 



07C0 
07C0 
07C0 
07C2 
07C8 
07C8 
07C8 
07C8 
07CA 
07D0 
07D0 
07D0 
07D0 
07D2 
07D8 
07D8 
07D8 
07D8 
07DA 
07E0 
07E0 
07E0 
07E0 
07E2 
07E8 
07E8 
07E8 
07E8 
07EA 
07F0 
07F0 
07F0 
07F0 
07F2 
07F8 
07F8 
07F8 
07F8 
07FA 
0800 
0800 
0800 
0800 



1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 



.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD..ENTRY 

.ALIGN QJAD 
RESERVED ENTRY POINT. 
•WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD_ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVDJNTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD.ENTRY 

.ALIGN QUAD 
RESERVED ENTRY POINT. 
.WORD A M<> 
JMP RESRVD ENTRY 



; A X80005C0 
; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



; ENTRY MASK. 



.ALIGN 
DSSAQ SSEND 
DS$K SSSIZE 



QUAD 



- 1 

- DS$AQ SYSSRV 
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DS 
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00000000 
00000000 
00000000' 
00000000' 

oooooooo 

00000000 

00000818' 

00000818' 

OOOOOOOO' 9F 17 

00000000 '9F 17 

00000000'9F 17 

00000000* 9F 17 

OOOOOOOO '9F 17 

OOOOOOOO* 9F 17 

OOOOOOOO' 9F 17 

OOOOOOOO '9F 17 

00000000'9F 17 

OOOOOOOO' 9F 17 

OOOOOOOO* 9F 17 

OOOOOOOO '9F 17 

OOOOOOOO *9F 17 

00000000'9F 17 

00000000*9F 17 

OOOOOOOO *9F 17 

OOOOOOOO* 9F 17 



0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0804 
0804 
C808 
0808 
080C 
080C 
0810 
0814 
0818 
081C 
0820 
0820 
0826 
0828 
082E 
0830 
0836 
0838 
083E 
0840 
0846 
0848 
084E 
0850 
0856 
0858 
085E 
0860 
0866 
0868 
086E 
0870 
0876 
0878 
087E 
0880 
0886 
0888 
088E 
0890 
0896 
0898 
089E 
08A0 
08A6 



1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 



++ 



FUNCTIONAL DESCRIPTION: 

These entry points are fixed to allow VMS device drivers 
a static program interface to the common utility and 
support routines. Note that the absolute addresses 
of these entry points are defined only in SQIOVEC DEF in 
DS.MLB. 



SYSSGL. 

MMGSGL. 

MMGSGL, 

SCHSGL. 

EXESGL, 

IOC$GL 
IOCSGL 



OPRM8X : : 

.LONG 
SPTBASE:: 

.LONG 
POBASE:: 

.LONG POPT.BASE 
PCBVEC:: 

.ADDRESS 
ABSTIM:: 



,PSFL:: 
PSBL : : 
.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 

JMP 

.ALIGN 



DSSGL.PCBVEC 





IOC$GL,PSFL 

IOC$GL_PSFL 



.LONG 

.LONG 

.LONG 

.LONG 

QUAD 

a#ACP$ACCESS 

QUAD 

cJ#ACP$DEACCESS 

QUAD 

a*ACP$MODIFY 

QUAD 

S*ACP$MOUNT 

QUAD 

a#ACP$READBLK 

QUAD 

a#ACP$WRITEBLK 

QUAD 

a*ERL$DEVICERR 

QUAD 

a*ERLSDEVICTMO 

QUAD 

a#EXE$AB0RTI0 

QUAD 

a#EXE$IOFORK 

QUAD 

a#EXE$ONEPARM 

QUAD 

a#EXE$PWRTIMCHK 

QUAD 

a*EXE$SENSEMODE 

QUAD 

a*EXE$SETCHAR 

QUAD 

3#EXE$SETM0DE 

QUAD 

a#EXE$SNDEVMSG 

QUAD 

aJEXESZEROPARM 

QUAD 



A X10800 

A X10804 

A X10808 

Address of PCB vector 

; EXESGL.ABSTIM, time in sees 
; Unused 
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OS Entry Points 

00000000 *9F 
00000000* 9F 
00000000* 9F 
00000000 *9F 
00000000* 9F 
00000000* 9F 
00000000*9F 
00000000 *9r 
00000000* 9F 
00000000 *9F 
00000000 *9F 
00000000 *9F 
00000000'9F 
00000000 *9F 
00000000 *9F 
00000000 *9F 
00000000 *9F 
00000000'9F 
00000000* 9F 
00000000 '9F 
00000000 *9F 
00000000* 9F 
00000000 *9F 
00000000 *9F 
00000000 '9F 
00000000*9F 
00000000'9F 
00000000*9F 
00000000 *9F 



*** ENTRY OS service 
DS Entry Points 
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17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 



08A8 1637 JMP 

08AE 1638 .ALIGN 

08B0 1639 JMP 

08B6 1640 .ALIGN 

08B8 1641 JMP 

08BE 1642 .ALIGN 

08C0 1643 JMP 

08C6 1644 .ALIGN 

08C8 1645 JMP 

08CE 1646 .ALIGN 

08D0 1647 JMP 

08D6 1648 .ALIGN 

0808 1649 JMP 

08DE 1650 .ALIGN 

C8E0 1651 JMP 

08E6 1652 .ALIGN 

08E8 1653 JMP 

08EE 1654 .ALIGN 

08FO 1655 JMP 

08F6 1656 .ALIGN 

08F8 1657 JMP 

08FE 1658 .ALIGN 

0900 1659 JMP 

0906 1660 .ALIGN 

0908 1661 JMP 

090E 1662 .ALIGN 

0910 1663 JMP 

0916 1664 .ALIGN 

0918 1665 JMP 

091E 1666 .ALIGN 

0920 1667 JMP 

0926 1668 .ALIGN 

0928 1669 JMP 

092E 1670 .ALIGN 

0930 1671 IOC$RTN::JMP 

0936 1672 .ALIGN 

0938 1673 JMP 

093E 1674 .ALIGN 

0940 1675 JMP 

0946 1676 .ALIGN 

0948 1677 JMP 

094E 1678 .ALIGN 

0950 1679 JMP 

0956 1680 .ALIGN 

0958 1681 JMP 

095E 1682 .ALIGN 

0960 1683 JMP 

0966 1684 .ALIGN 

0968 1685 JMP 

096E 1686 .ALIGN 

0970 1687 JMP 

0976 1688 .ALIGN 

0978 1689 JMP 

097E 1690 .ALIGN 

0980 1691 JMP 

0986 1692 .ALIGN 

0988 1693 JMP 



a#I0C$APPLYECC 

QUAD 

WIOCSCANCELIO 

QUAD 

a#IOC$DIAGBUFILL 

QUAD 

a*IOC$LOADMBAMAP 

QUAD 

3*I0C$L0ADUBAMAP 

QUAD 

3#I0C$M0VT0USER 

QUAD 

a*IOC$PURGDATAP 

Ql !A& 

DJIO'JSRELCHAN 

QUAD 

a*IOC$RELDATAP 

QUAD 

a*IOC$RELMAPREG 

QUAD 

a#IOC$RELSCHAN 

QUAD 

a*I0C$REQC0M 

QUAD 

a#I0C$REQDATAP 

QUAD 

a*I0C$REQMAPREG 

QUAD 

a*I0C$REQPCHANH 

QUAD 

a#I0C$REQPCHANL 

QUAD 

a#IOC$REQ^CHANL 

QUAD 

a*I0C$RETURN 

QUAD 

a#IOC$SENSEDJSK 

QUAD 

a*IOC$UPDATRANSP 

QUAD 

a*IOC$WFIKPCH 

QUAD 

a*IOC$WFIRLCH 

QUAD 

a#MTSCHECK..ACCE$S 

QUAD 

3#EXE$ALL0CIRP 

QUAD 

a#EXE$ALONONPAGED 

QUAD 

a#EXE$DEANONPAGED 

QUAD 

a*EXE$FJNISH10C 

QUAD 

i#EXE$F0RK 

QUAD 

a*EXE$M0DIFYLOCKR 



Defined external tor QIO 
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098E 


1694 


.ALIGN 


QUAD 






00000000' 9F 


17 


0990 


1695 


JMP 


a#EXE$QIODRVPKT 










0996 


1696 


.ALIGN 


QUAD 






00000000'9F 


17 


0998 


1697 


JMP 


a#EXE$WRITELOCK 










099E 


1698 


.ALIGN 


QUAD 






00000000' 9F 


17 


09A0 


1699 


JMP 


3#SCH$P0STEF 










09A6 


1700 


.ALIGN 


QUAD 






00000000 '9F 


17 


09A8 


1701 


JMP 


MSCHSQAST 










09AE 


1702 


.ALIGN 


QUAD 






00000000' 9F 


17 


09B0 


1703 


JMP 


S#EXE$WRITECHK 










09B6 


1704 


.ALIGN 


QUAD 






00000000 '9F 


17 


09B8 


1705 


JMP 


3#EXE$READL0CKR 










09BE 


1706 


.ALIGN 


QUAD 






00000000* 9F 


17 


09C0 


1707 


JMP 


a#EXE$WRITELOCKR 










C9C6 


1708 


.ALIGN 


QUAD 






00000000 '9F 


17 


09C8 


1709 


JMP 


a#IOC$INITIATE 










09CE 


1710 


.ALIGN 


QUAD 






00000000 '9F 


17 


09D0 


1711 


JMP 


a#EXE$INSERTIRP 










09D6 


1712 


.ALIGN 


QUAD 






00000000 '9F 


17 


09D8 


1713 


JMP 


a#EXE$QIORETURN 










09DE 


17H 


.ALIGN 


QUAD 






00000000'9F 


17 


09E0 


1715 


JMP 


a*IQC$REQDATAPNW 










09E6 


1716 


.ALIGN 


QUAD 






00000000' 9F 


17 


09E8 


1717 


JMP 


a*COM$POST 










09EE 


1718 


.ALIGN 


QUAD 






00000000' 9F 


17 


09F0 


1719 


JMP 


a#IOC$AL0UBAMAP 










09F6 


1720 


.ALIGN 


QUAD 






00000000 '9F 


17 


09F8 


1721 


JMP 


S#IOC$ALTUBAMAP 










09FE 


1722 


.ALIGN 


QUAD 






00000000 '9F 


17 


OAOO 


1723 


JMP 


a#ERL$RELEASEMB 










0A06 


1724 


.ALIGN 


QUAD 






00000000' 9F 


17 


0A08 


1725 


JMP 


a#IOC$AL0URAMAPN 










OAOE 


1726 


.ALIGN 


QUAD 






00000000 '9F 


17 


0A10 


1727 


JMP 


a#EXE$ALL0C8UF 










0A16 


1728 


.ALIGN 


QUAD 






00000000 *9F 


17 


0A18 


1729 


JMP 


a#EXE$BUFQUOPRC 










0A1E 


1730 


.ALIGN 


QUAD 






00000000' 9F 


17 


0A20 


1731 


JMP 


a#EXE$BUFFRQUOTA 










0A26 


1732 


.ALIGN 


QUAD 






00000000 '9F 


17 


0A28 


1733 


JMP 


a#EXE$FINISHIO 










0A2E 


1734 


.ALIGN 


QUAD 






00000000 '9F 


17 


0A30 


1735 


JMP 


a#EXESREAD 










0A36 


1736 


.ALIGN 


QUAD 






00000000 '9F 


17 


0A38 


1737 


JMP 


a#EXE$READCHK 










0A3E 


1738 


.ALIGN 


QUAD 






00000000' 9F 


17 


0A40 


1739 


JMP 


a#EXE$READCHKR 










0A46 


1740 


.ALIGN 


QUAD 






00000000 '9F 


17 


0A48 


1741 


JMP 


a*EXE$WRITE 










OAAE 


1742 


.ALIGN 


QUAD 






00000000'9F 


)7 


0A50 


1743 


JMP 


a#EXE$WRITECHKR 










0A56 


1744 


.ALIGN 


QUAD 






00000000' 9F 


17 


0A58 


1745 


JMP 


a#EXE$MODIFY 










0A5E 


1746 


.ALIGN 


QUAD 






00000000' 9F 


n 


0A60 


1747 


JMP 


a*EXE$MODIFYLOCK 










0A66 


1748 


.ALIGN 


QUAD 






00000000 '9F 


17 


0A68 


1749 


JMP 


3*EXE$CARRIAGE 










0A6E 


1750 


.ALIGN 


QUAD 





6 Frame M11 Seguence 1172 

:16 VAX-11 Macro V03-01 Page 44 

:58 DMA1:[SYS0.SYSMAINTJENTRY.MAR;117 (1) 
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ENTRY 

07-35 



DS Entry Points 

00000000' 9F 
00000000' 9F 
00000000 '9F 
00000000' 9F 
00000000 *9F 
00000000 '9F 
00000000' 9F 
00000000'9F 
00000000 '9F 
00000000 '9F 
00000000 '9F 
00000000' 9F 
00000000' 9F 
00000000 '9F 
00000000 '9F 
00000000' 9F 
00000000' 9F 
00000000 '9F 
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45 



DS Entry Points 
17 



23-JUL-1984 16:22:58 DMA1 :[SYS0.SYSMAINT]6NTRY.MAR;T17 (1) 



17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 



00000000 00000000 
00000000 '9F 17 
00000000' 9F 17 
00000000' 9F 17 
00000000 '9F 17 



0A70 

0A76 

0A78 

0A7E 

0A80 

0A86 

0A88 

0A8E 

0A90 

0A96 

0A98 

0A9t 

0AA0 

0AA6 

CAA8 

OAAE 

OABO 

0AB6 

0AB8 

OABE 

OACO 

0AC6 

0AC8 

OACE 

OADO 

0AD6 

0AD8 

OADE 

OAEO 

0AE6 

0AE8 

OAEE 

OAFO 

OAF 6 

OAF 8 

OAFE 

OBOO 

0800 

0B08 

0B08 

OBOE 

0810 

0816 

0818 

081 E 

0B20 

0826 

0828 



1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1AiO 

17b3 

1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1 779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
179 • 
179ci 



JMP 


a#IOC$REQSCHANH 


.ALIGN 


QUAD 


JMP 


3#I0C$L0ADUBAMAPA 


.ALIGN 


QUAD 


JMP 


MIOCSGETBYTE 


.ALIGN 


QUAD 


JMP 


MIOCSPUTBYTE 


.ALIGN 


QUAD 


JMP 


MIOCSINITBUFWIND 


.ALIGN 


QUAD 


JMP 


a*I0C$M0VFRUSER2 


.ALIGN 


QUAD 


JMP 


a#I0C$M0VFKUSER1 


.ALIGN 


QUAD 


JMP 


a*10C$M0VT0USER2 


.ALIGN 


QUAD 


JMP 


a#IOCSM0VTOUSER1 


.ALIGN 


QUAD 


JMP 


a#SCH$LOCKW 


.ALIGN 


QUAD 


JMP 


a*SCH$UNLOCK 


.ALIGN 


QUAD 


JMP 


a#EXE$ALTQUEPKT 


.ALIGN 


QUAD 


JMP 


a#C0M$SETATTN4ST 


.ALIGN 


QUAD 


JMP 


a#COM$DELATTNAST 


.ALIGN 


QUAD 


JMP 


a#COM$FLUSHATTNS 


.ALIGN 


QUAD 


JMP 


a#COM$DRVDEALMEM 


.ALIGN 


QUAD 


JMP 


a#EXE$INSIOQ 


.ALIGN 


QUAD 


JMP 


a*I0C$PTET0PFN 


.ALIGN 


QUAD 


YSTIME: 


• 


.QUAD 





.ALIGN 


QUAD 


JMP 


a#I0C$M0VKRUSER 


.ALIGN 


QUAD 


JMP 


a*IOC$ALLUSPT 


.ALIGN 


QUAD 


JMP 


a*EXE$MAXACMODE 


.ALIGN 


QUAD 


JMP 


WEXESREADLOCK 


.ALIGN 


UUAD 



Lock "M'JTEX" for write access 
Unlock "MUTEX" 



**DA1A** System time quadword 



[23] 
C233 
[23] 
[23] 
[?3] 
[23] 
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00000002' EF 
00000002' EF 



0828 

00000034 

0034 

0034 
0034 
0034 
0038 
0038 

0000' 0038 

17 003A 

0040 

0000' 0040 

17 004? 

0043 

C048 

0048 



1800 •sbttl DS$SRVDISP,TA8LE - Dispatch table for VDS services 

1801 .psect DATA, SHR, N0EXE, N0WRT, QUAD 
1802 

1803 ; This is the dispatch table for all future additional VDS services. [35] 
1804 

1805 .ALIGN QUAD ; [35] 

1806 DS$SRVDJSP_TA3LE:: ; [35] 
1807 

1808 .VECTOR DSXSMOUNT ; [35] 

1809 JMP DSX$M0UNTi2 ; [35] 
1610 

1811 .VECTOR DSXSDISMOUNT ; [35] 

181? JMP DSXSDISMOUNTt? ; [35] 

1813 

1814 DSSSRVDJSP.TABLE^END: ; [35] 

1815 
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47 
(1) 







0048 


1817 




00000000 


1818 






0000 


1819 






0000 


1820 






0000 


1821 






0000 


1822 






0000 


1823 






0000 


1824 






0000 


1825 






0000 


1826 






0000 


1827 






0000 


1828 






0000 


1829 






0000 


1830 






cooo 


1831 






0000 


1832 






0000 


1833 






0000 


1834 






0000 


1835 






0000 


1836 






0000 


1837 






0000 


1838 






0000 


1839 






0000 


1840 






0000 


1841 






0000 


1842 






0000 


1843 






0000 


1844 






0000 


1845 






0000 


1846 






0000 


1847 






0000 


1848 






0000 


1849 






0000 


1850 






0000 


1851 






0000 


1852 




0000 


0000 


1853 






0002 


1854 


76 04 AC 08 


C5 


0002 


1855 


?E 00000038'EF 


9E 


0007 


1856 


04 AE 6E 


CO 


000E 


1857 


04 AC 6C 01 


C3 


0012 


1858 






0017 


1859 






0017 


1860 


04 BE 04 AC 


FA 


0017 


1861 




04 


001C 


1862 






001D 


1863 



SBTTL DSX$SERVICE M DISPATCHER - Service Dispatch Routine 
psect code, shr, exe, nowrt, byte 



+ + 



Functional Description: 

Calls the oroper service via the service dispatch table 
Inputs: 



: No. of args. :<=AP 

:Code indicating type of service: 
: Service routine argl : 



Service routine argN 



Implicit Inputs: 
Outputs: 

Implicit Outputs: 
Side Effects: 
Return Status: 

.ENTRY DSX$SERVICE_DISPATCHER, A M<> 



MULL3 
MOVAB 
ADDL 
SU8L3 



CALLG 
RET 



*8,4(AP),-(SP) 
DSiSRVDISP TABLE, -(SP) 
(SP),4(SP)" 
*1,(AP),4(AP) 



4(AP),a4(SP) 



Calc. offset into table. 

Get dispatch table address. 

Add offset. 

Create true arg. I.ist for 
service routine by getting 
rid of service code arg. 

Call the proper service. 

Return. 



[353 
[35] 
[35] 
[35] 
[35] 
[35] 
[35] 
[35J 
[35] 
[35] 
[35] 
[35] 
[35] 
[35] 
[35] 
[353 
[35] 
[35] 
[35] 
[353 
[353 
[353 
[353 
[353 
[353 
[353 
[353 
[35] 
[35] 
[35] 
[353 
[353 

[353 

[353 
[353 
[353 
[353 
[353 
[353 
[35] 
C353 
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001D 
0000001D 
001D 
001D 
001D 
001 D 
001 D 
001D 
001D 
001D 
001D 
001D 
001D 
001 D 
C01D 
001 D 
001D 
001D 
001D 
001 D 
001 D 
0010 
001D 
001 D 
0010 
001D 
001D 
001D 
001D 
001D 
0010 
0010 
0010 
0010 
0010 



1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 



.S8TTL Resrvd Entry Routine - For entry errors 
.PSECT CODE, 5HR, EXE, NOWRT, BYTE 



+ + 



FUNCTIONAL DESCRIPTION: 

CALLING SEQUENCE: 

NONE 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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RESRVD ENTRY: 

" ERRSUP.S MSGADR=L A T_RESRVD ; £25] 

FAKE_JUMP: ; [271 

QOOOOOOO'EF 16 0032 1905 JSB KB CHECK ; Check keyboard status [25] 

"' RET 

.END 





001 D 


1901 




001 D 


190? 




0032 


1903 




0032 


1904 


16 


0032 


1905 


04 


0038 


1906 




0039 


1907 




0039 


1908 



ZZ-ENSAA-7.0 
ENTRY 
Symbol table 

SER 

SMODUIE 

ACPSACCESS 

ACPSDEACCESS 

ACPSMODIFY 

ACPSMOUNT 

ACPSREADBLK 

ACPSWRITEBLK 

APT 

BOOT 

COMSDELATTNAST 

COMSDRVDEALMEM 

COMSFLUSHATTNS 

COMSPOST 

COMSSETATTNAST 

CR 

DSSABORT 

DSSABORTWAIT 

DSSAPT ENTRY 

OSSAQ SSEND 

DSSACfSYSSRV 

DSSASRADR 

DSSASKDATA 

DSSASKLGCL 

DSSASKSTR 

DSSASKVLD 

DSSATTACH 

DSSBGNSUB 

DSSBRANCH 

DSSBREAK 

DSSCANWAIT 

DSSCHANNEL 

DSSCKLOOP 

DS$CLRVEC 

OSSCNTRLC 

DSSCVTREG 

DSSDOSUMMARY 

DSSENDPASS 

DSSENDSUB 

DSSENTRY 

DS$ERRDEV 

DSSERRHARD 

DSSERRPREP 

DSSERRSOFT 

DSSERRSYS 

DSSESCAPE 

DS$FREEDBGSYM 

DSSGETADDRESS 

DSSGET8UF 

DSSGETDATA 

DS5GETL0GICAL 

DSSGETSTRING 

DSSGETTERM 

DSSGETVIELD 

DS$GL PCBVEC 

DSSGPRARD 

DSSHELP 



Symbol table 
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27-JUL-1984 



Fiche 6 Frame F12 
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00000002 


D 




00000000 


R D 


01 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


0000000D 


D 




00000020 


RG D 


02 


00000070 


RG D 


02 


00000004 


R D 


02 


000007FF 


RG D 


02 


00000200 RG D 


02 


00000090 


RG D 


02 


00000080 


RG D 


02 


00000098 


RG D 


02 


000000A0 


RG D 


02 


00000088 


RG D 


02 


000001 A8 


RG D 


02 


00000030 RG D 


02 


000000A8 


RG D 


02 


00000058 


RG D 


02 


00000070 


RG D 


02 


00000180 


RG D 


02 


00000040 


RG D 


02 


00000168 


RG D 


02 


00000078 


RG D 


02 


00000080 


RG D 


02 


00000028 


RG D 


02 


00000010 


RG D 


02 


00000038 


RG D 


02 


00000000 


R D 


02 


000000C8 RG D 


02 


OOOOOODO 


RG D 


02 


00000108 RG D 


02 


000000D8 


RG D 


02 


OOOOOOCO 


RG D 


02 


00000050 


RG D 


02 


000001B8 


RG D 


02 


00000090 RG D 


02 


00000120 RG D 


02 


00000080 


RG D 


02 


00000098 


RG D 


02 


OOOOOOAO RG D 


02 


000001 C8 


RG D 


02 


00000088 


RG D 


02 


******** 


X 


02 


00000018 


RG 


02 


000001BO 


RG D 


02 



DSS.INITSCB 

DSSINLOOP 

DS$K SSSIZE 

DSSLOAD 

DSSLOADPCS 

DSSMAPDBGBLOCK 

DSSMMOFF 

DSSMMON 

DSSPARSE 

DSSPRINTB 

DSSPRINTF 

DSSPRINTS 

DSSPR1NTSIG 

DSSPRINTX 

DSSPRC3E 

DS$RELBUF 

DS$SERVICEJ)ISPATCHER 

DSSSETIPL 

DSSSETMAP 

DSSSETPRIEXV 

DSSSETVEC 

DSSSHOCHAN 

DSSSHOUCHAN 

DSSSRVDISP TABLE 

DS$SRVDISP"TABLE END 

DSSSUMMARY" 

DSSWAITMS 

DSSWAITUS 

DSXSABORT 

DSXSATTACH 

DSXSBGNSUB 

DSXSBRANCH 

DSXSCANWAIT 

DSXSCHANNEL 

DSXSCKLOOP 

DSXSCLRVEC 

DSXSCNTRLC 

DSXSCVTREG 

DSXSDISMOUNT 

DSXSDOSUMMARY 

DSXSENDPASS 

DSXSENDSUB 

DSXSERRDEV 

DSXSERRHARD 

DSXSERRPREP 

DSXSERRSOFT 

DSXSERRSYS 

DSXSESCAPE 

DSXSFREEOBGSYM 

DSXSGETADORESS 

DSXIGETBUF 

DSX$GETDATA 

DSXSGETLOGICAL 

DSXSGETSTRING 

DSXSGETTERM 

DSXSGETV1ELD 

DSXSGPHARD 



00000170 
00000048 
00000600 
00000198 
000001 CO 
00000118 
00000158 
00000150 
000000B8 
OOOOOOEO 
OOOOOOFO 
0O0000F8 
00000100 
000000E8 
000001 AO 
00000128 
000001 DO 
00000178 
00000188 
00000110 
00000160 
00000190 
00000190 
00000038 
00000048 
00000028 
00000060 
00000068 



**** 

**** 
**** 
**** 
**** 

**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**-•* 
**** 
**** 
**** 
ftftftft 
**** 
**** 
**** 
*ft** 
**** 
**** 



ft*** 
*ft** 
**** 
**** 
ft*** 
ft*** 
**** 
**** 
***ft 
***« 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
*«** 
**** 
**** 
**** 
ftftftft 
ft*** 
**** 



RG 
RG 
G 
RG 
RG 
RG 
RG 
RG 
RG 
RG 
RG 
RG 
RG D 
RG D 
RG 
RG 
RG 
RG D 
RG D 
RG D 
RG 
RG 
RG 
RG D 
R D 
RG D 
RG D 
RG D 

X 

X 

i\ 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



02 
02 

02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
01 
01 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
01 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
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DSXSHELP 

DSXSINITSCB 

DSXSINLOOP 

DSXSLOAD 

05XSLOADPCS 

DSXSMAPDBGBLOCK 

DSXSMMOFF 

DSXSMMON 

DSXSMOUNT 

OSXSPARSE 

DSXSPRINTB 

DSXSPRINTF 

OSXSPRINTS 

DSXSPRINTSIG 

DSXSPRINTX 

DSX$PROBE 

DSXSRELBUF 

DSXSSERVICE DISPATCHER 

DSX$SETIPL " 

DSXSSETMAP 

OSXSSETPRIEXV 

OSXSSETVEC 

DSXSSHOWCHAN 

DSXSWAITMS 

DSXSWAITUS 

DS ERRSUP 

ERLSDEVICERR 

ERLSDEVICTMO 

ERLSRELEASEMB 

EXESABORTIO 

EXESALLOC 

EXESALLOCBUF 

EXESALLOCIRP 

EXESALONONPAGED 

EXESALTQUEPKT 

EXESASCTIM 

EXESASSIGN 

EXESBINTIM 

EXES8UFFRQU0TA 

EXESBUFQUOPRC 

EXE5CANCEL 

EXESCANTIM 

EXESCARRIAGE 

EXESCLREF 

EXESCNTREG 

EXESDASSGN 

EXESDEANONPAGED 

EXESEXPREG 

EXESFAO 

EXE$F AOL 

EXESFINISHJO 

EXESFINISHIOC 

EXESFORK 

EXESGETTIM 

EXESGL^ABSTIM 

EXEiGQ SYSTIME 

EXESGTCHAN 



******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 

00000000 
******** 

******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 

00000810 
00000B00 
******** 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



02 
02 
02 
02 
02 
02 
02 
02 
01 
02 
02 
02 
02 
02 
02 
02 
02 



RG D 03 
X 02 



02 
02 
02 
02 
02 
02 
03 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 



RG 02 

RG 02 

X 02 



EXE$HIBER 

EXESINSERTIRP 

EXESINSIOQ 

EXESIOFORK 

EXE$MAXACM0DE 

EXESMODIFY 

EXESMODIFYLOCK 

EXESMODIFYLOCKR 

EXESNUMTIM 

EXESONEPARM 

EXESPWRTIMCHK 

EXESOIO 

EXESQI02 

EXESQIODRVPKT 

EXESQIORETURN 

EXESREAD 

EXESREADCHK 

EXESREADCHKR 

EXESREADEF 

EXESREADLOCK 

EXESREADLOCKR 

EXESSENSEMODE 

EXESSETAST 

EXESSETCHAR 

EXESSETEF 

EXESSETIMR 

EXESSETMODE 

EXESSETPRT 

EXESSNDEVMSG 

EXESUNUIND 

EXESWAITFR 

EXESWAKE 

EXE$WFLAND 

EXESWFLOR 

EXESWRITE 

EXESWRITECHK 

EXESWRITECHKR 

EXESWRITELOCK 

EXE$WRITELOCKR 

EXESZEROPARM 

FAKE JUMP 

IOCSJLLOSPT 

I0CSAL0UBAMAP 

IOCSALOUBAMAPN 

IOC$ALTUBAMAP 

IOCSAPPLYECC 

IOCSCANCEUO 

IOCSDIAGBUFILL 

JOCSGETBYTE 

IOC$GLJ>SBL 

JOCSGL PSFL 

IOCSINITBUFWIND 

IOCSINITIATE 

IOCSLOADMBAMAP 

IOCSLOADUBAMAP 

IOC&LOADUBAMAPA 

JOCSMOVFRUSER 



******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******* * 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


00000204 


R D 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


00000032 


R D 


03 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


**f-***** 


X 


02 


******** 


X 


02 


******** 


X 


02 


0000081 C 


RG D 


02 


00000818 


RG D 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 



ZZ-ENSAA-7.0 
ENTRY 
Symbol table 

I0CSM0VFRUSER1 

I0CSM0VFRUSER2 

10CSMOVTOUSER 

IOC$MOVTOUSER1 

IOCSMOVTOUSER2 

IOC$PTETOPFN 

10C$PURGDATAP 

10CSPUTBYTE 

IOCSRELCHAN 

IOCSRELDATAP 

IOCSRELMAPREG 

IOCSRELSCHAN 

IOCSREQCOM 

IOCSREQDATAP 

IOCSREQDATAPNW 

IOCSREQMAPREG 

IOC$REQPCHANH 

IOCSREQPCHANL 
IOCSREQSCHANH 

I0C5REQSCHANL 

IOCSRETURN 

IOCSRTN 

IOCSSENSEDISK 

IOCSUPDATRANSP 

IOCtUFIKPCH 

IOCSWFIRLCH 

KB CHECK 

LEAP APT 

LEAPlBOOT 

LF 

MMGSGL POBASE 

MMGSGL~SPTBASE 

MTSCHECK ACCESS 

POPT BASE 

RESRtfD 

RESRVD ENTRY 

RMSSClOSE 

RMSSCONNECT 

RMS5DISCONNECT 

RMSSGET 

RMS$OPEN 

RMSSREAD 

SCHSGL PCBVEC 

SCHSLCtfKW 

SCHSPOSTEF 

SCHSQAST 

SCHSUNLOCK 

SYSSALLOC 

SYSSASCTIM 

SYS$ASSIGN 

SYSSBINTIM 

SYSSCALL HANDL 

SYSSCANCfL 

SYS$CANTIM 

SYSSCLOSE 

SYSSCLREF 

SYSSCNTREG 



Symbol table 
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SYS$CONNECT 

SYSSDALLOC 

SYSSDASSGN 

SYSSDISCONNECT 

SYSSEXIT 

SYSSEXPREG 

SYSSFAO 

SYSSFAOL 

SYSSGET 

SYSSGETCHN 

SYS$GETTIM 

SYSSGL. OPRMBX 

SYSSGTCHAN 

SYSSHIBER 

SYSSLKWSET 

SYS$NUMT1H 

SYSSOPEN 

SYSSQIO 

SYSSQIOW 

SYS$READ 

SYSSREADEF 

SYSSSETAST 

SYSSSETEF 

SYSSSETIMR 

SYS$SETPRI 

SYSSSETPRT 

SYSSSETRWM 

SYS$TRNLOG 

SYSSULKPAG 

SYS$ULWSET 

SYSSUNWIND 

SYSSWAITFR 

SYSSWAKE 

SYSSWFLAND 

SYSSWFLOR 

T.RESRVD 



******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


00000930 


RG D 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


03 


000001 FA 


R D 


02 


000001EC 


R D 


02 


0000000A 


D 




00000808 


RG D 


02 


00000804 


RG D 


02 


******** 


X 


02 


******** 


X 


02 


000001FA 


R D 


02 


0000001D 


R D 


03 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


0000080C 


RG D 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


******** 


X 


02 


00000238 


RG D 


02 


00000248 


RG D 


02 


00000250 


RG D 


02 


00000258 


RG D 


02 


00000210 


RG D 


02 


00000260 


RG D 


02 


00000268 


RG D 


02 


000005B8 


RG D 


02 


00000298 


RG D 


02 


000002A0 


RG D 


02 



000005C0 


RG 


D 


02 


000002D8 


RG 


D 


02 


000002E0 


RG 


D 


02 


000005 DO 


RG 


D 


02 


00000340 


RG 


D 


02 


00000348 


RG 


D 


02 


00000350 


RG 





02 


00000358 


RG 


D 


02 


00000580 


RG 


D 


02 


000004C8 


RG 


D 


02 


00000378 


RG 


D 


02 


00000800 


RG 


D 


02 


00000380 


RG 


D 


02 


00000388 


RG 


D 


02 


00O0O3A0 


RG 


D 


02 


000003B8 


RG 


D 


02 


00000608 


RG 


D 


02 


000003C8 


RG 


D 


02 


00000200 


RG 


D 


02 


00000590 


RG 


D 


02 


000003DO 


RG 


D 


02 


000003F8 


RG 


D 


02 


00000400 


RG 


D 


02 


00000420 


RG 


D 


02 


00000428 


RG 


D 


02 


00000430 


RG 


D 


02 


00000438 


RG 


D 


02 


00000458 


RG 


D 


02 


00000460 


RG 


D 


02 


00000468 


RG 


D 


02 


00000470 


RG 


D 


02 


00000478 


RG 


D 


02 


00000480 


RG 


D 


02 


00000488 


RG 


D 


02 


00000490 


RG 


D 


02 


00000006 


R 





01 
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PSECT name 

ABS . 
DATA 
$BASE 
CODE 



Allocation 

00000000 ( 

00000048 ( 

OO000B28 ( 

00000039 ( 



+•_ ™.-«™™ — + 
! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0J NOPIC USR 

72 J 01 ( 1.) NOPIC USR 

2856.) 02 ( 2.) NOPIC USR 

57.) 03 ( 3.) NOPIC USR 



CON 


ABS 


CON 


REL 


CON 


REL 


CON 


REL 



LCL NOSHR NOEXE NORD 

LCL SHR NOEXE RD 

LCL SHR NOEXE RD 

LCL SHR EXE RD 



NOWRT NOVEC BYTE 

NOWRT NOVEC QUAD 

NOWRT NOVEC QUAD 

NOWRT NOVEC BYTE 
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SYMBOL 



SER 

SMODULE 

ACPSACCESS 

ACPSDEACCESS 

ACPSMODIFY 

ACPSMOUNT 

ACPSREADBLK 

ACPSWRITEBLK 

APT 

BOOT 

COHSDELATTNAST 

COMSDRVDEALMEM 

COMSFLUSHATTNS 

COM$POST 

COMSSETATTNAST 

CR 

DSSABORT 

DSSABORTWAIT 

DS$APT ENTRY 

DSSAQjSEND 

DSSAQ SYSSRV 

DSSASRADR 

OSSASKDATA 

DSSASKLGCL 

DSSASKSTR 

DSSASKVLD 

DSSATTACH 

DSSBGNSUB 

DSSBRANCH 

DS$BREAK 

OSSCANWAIT 

[>S$CHANNEL 

DSSCKLOOP 

DSSCLRVEC 

DSSCNTRLC 

DSSCVTREG 

DSSDOSUMMARY 

DSSENDPASS 

DSSENDSUB 

DSSENTRY 

OSSERROEV 

DSSERRHARD 

DSSERRPREP 

DSSERRSOFT 

DSSERRSYS 

DSSESCAPE 

DSSFREEDBGSYM 

DSSGETADDRESS 

DSSGETBUF 

DSSGETDATA 
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! Symbol Cross Reference ! 
+ + 



54 
(1) 



VALUE 


DEFINITJC 
1902 C 


)N REFERENCES,.. 


=00000002 


) #-1902 (1) 


00000000-R 


201 (1) 1902 (1) 


00000000-XR 




1603 (1) 


00000000-XR 




1605 (1) 


00000000-XR 




1607 (1) 


00000000-XR 




1609 (1) 


00000000-XR 




1611 (1) 


00000000-XR 




1613 (1) 


00000000-XR 




602 (1) 


00000000-XR 




596 (1) 


00000000-XR 




1777 (1) 


00000000-XR 




1781 (1) 


00000000-XR 




1779 (1) 


00000000-XR 




1717 (1) 


00000000-XR 




1775 (1) 


=00000000 


191 (' 


) 204 (1) 


00000020-R 


279 (1 




00000070-R 


338 r 




00000004-R 


254 r 




=000007FF-R 


1577 C 




00000200-R 


610 C 


) 1578 (1) 


00000090-R 


363 C 




00000080-R 


351 C 




00000098-R 


369 C 




000000A0-R 


375 (' 




00000088-R 


357 (' 




000001A8-R 


552 c 




00000030-R 


296 C 




000000A8-R 


382 c 




00000058-R 


521 r 




00000070-R 


337 (' 




000001 80-R 


526 r 




00000040-R 


306 (* 




000001 68-R 


511 r 




00000078-R 


343 r 




000000B0-R 


389 ( 




00000028-R 


288 C 




0000001 0-R 


266 C 




00000038-R 


301 c 




00000000-R 


250 C 




000000C8-R 


404 C 




000000D0-R 


409 C 




000001 08-R 


444 C 




00000008-R 


414 C 




000000C0-R 


399 ( 




00000050-R 


316 (' 




000001B8-R 


561 r 




00000090-R 


364 C 




000001 20-R 


463 C 




00000080-R 


352 ( 
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DSSGETLOGICAL 


00000098-R 


370 C 




DSS6ETSTRING 


0OO000A0-R 


376 (' 




DSSGETTERM 


000001 C8-R 


571 r 




DSSGETVIELD 


00000088-R 


358 C 




DSSGL PCBVEC 


OOOOOOOO-XR 




1597 (1) 


DSSGPHARD 


0000001 8-R 


271 r 




DS$HELP 


000001 BO-R 


556 <* 




DSSINITSCB 


000001 70-R 


516 C 




DSSINLOOP 


00000048-R 


311 C 




DSSK SSSI2E 


=00000600 


1578 C 




osslOad 


000001 98-R 


542 C 




OSSLOADPCS 


000001 CO-R 


566 C 




DS$MAPDBGBLOCK 


0000011 8-R 


454 C 




DSSMMOFF 


000001 58-R 


498 (' 




DSSMMON 


000001 50-R 


493 c 




DS$PARSE 


00000088-R 


394 C 




DSSPRINTB 


OOOQOOEO-R 


419 C 




DSSPRINTF 


OOOOOOFO-R 


429 (' 




OSSPRINTS 


000000F8-R 


434 (* 




DSSPRINTSIG 


000001 00-R 


439 C 




DSSPRINTX 


000000E8-R 


424 C 




DSSPROBE 


000001A0-R 


547 ( 




DSSRELBUF 


000001 28-R 


468 (' 




DS$SERVICE_DISPATCHER 


000001 DO-R 


576 <* 




DSSSETIPL 


000001 78-R 


521 ( 




OSSSETMAP 


000001 88-R 


531 r 




DSSSETPRIEXV 


000001 10-R 


449 ( 




DSSSETVEC 


000001 60-R 


506 ( 




DSSSHOCHAN 


000001 90-R 


536 ( 




DSSSHOWCHAN 


000001 90-R 


537 ( 




DSSSRVDISP TABLE 


00000038-R 


1806 r 


1) 1856 (1) 


DS$SRVDISP~TABLE END 


00000048-R 


1814 ( 




DSSSUMMARY" 


0C000028-R 


287 ( 




DS$WAITMS 


00000060-R 


327 ( 




DSSWAITUS 


00000068-R 


332 ( 




DSXSABORT 


OOOOOOOO-XR 




281 (1) 


DSXSATTACH 


OOOOOOOO-XR 




554 (1) 


DSXS8GNSU8 


OOOOOOOO-XR 




298 (1) 


DSX$BRANCH 


OOOOOOOO-XR 




384 (1) 


DSXSCANWAIT 


OOOOOOOO-XR 




340 (1) 


OSXSCHANNEL 


OOOOOOOO-XR 




528 (1) 


OSXSCKLOOP 


OOOOOOOO-XR 




308 <1) 


DSXSCLRVEC 


OOOOOOOO-XR 




513 (1) 


DSXSCNTRLC 


OOOOOOOO-XR 




345 (1) 


DSXSCVTREG 


OOOOOOOO-XR 




391 (1) 


DSXSDISMOUNT 


OOOOOOOO-XR 




1812 (1) 


DSXSDOSUMMARY 


OOOOOOOO-XR 




290 (1) 


DSXSENDPASS 


OOOOOOOO-XR 




268 (1) 


DSXSENDSUB 


OOOOOOOO-XR 




303 (1) 


DSXSERRDEV 


OOOOOOOO-XR 




406 (1) 


DSXSERRHARD 


OOOOOOOO-XR 




411 (1) 


DSXSERRPREP 


OOOOOOOO-XR 




446 (1) 


DSXSERRSOFT 


OOOOOOOC-XR 




416 (1) 


DSXSERRSYS 


OOOOOOOO-XR 




401 (1) 


DSXSESCAPE 


OOOOOOOO-XR 




318 (1) 


DSX$FREEDBGSYM 


OOOOOOOO-XR 




563 (]) 


OSX$GETADDRESS 


OOOOOOOO-XR 
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23-J 


DSXSGETBUF 


OOOOOOOO-XR 


465 (1 




DSXSGETDATA 


OOOOOOOO-XR 


354 (1 




DSXSGETLOG1CAL 


OOOOOOOO-XR 


372 (1 




DSXSGETSTRING 


OOOOOOOO-XR 


378 (1 




DSXSGETTERM 


OOOOOOOO-XR 


573 (1 




OSXSGETVIELD 


OOOOOOOO-XR 


360 (1 




DSXSGPHARD 


OOOOOOOO-XR 


273 (1 




DSXSHELP 


OOOOOOOO-XR 


558 (1 




DSXSINITSCB 


OOOOOOOO-XR 


518 (1 




DSXSINLOOP 


OOOOOOOO-XR 


313 (1 




DSXSLOAD 


OOOOOOOO-XR 


544 (1 




DSXSLOADPCS 


OOOOOOOO-XR 


568 (1 




DSXSMAPDBGBLOCK 


OOOOOOOO-XR 


456 (1 




DSXSMMOFF 


OOOOOOOO-XR 


500 (1 




DSXSMMON 


OOOOOOOO-XR 


495 ( 




DSXSMOUNT 


OOOOOOOO-XR 


1809 V 




DSX$PARSE 


OOOOOOOO-XR 


396 (' 




DSXSPRINTB 


OOOOOOOO-XR 


421 C 




DSXSPRINTF 


OOOOOOOO-XR 


431 C 




DSXSPR1NTS 


OOOOOOOO-XR 


436 (" 




OSXSPRINTSIG 


OOOOOOOO-XR 


441 r 




DSXSPRINTX 


OOOOOOOO-XR 


426 C 




DSXSPROBE 


OOOOOOOO-XR 


549 C 




DSXSRELBUF 


OOOOOOOO-XR 


470 V 




DSX$SERVICE DISPATCHER 


00000000-R 1853 (1) 


578 c 




DSX$5ETIPL ~ 


OOOOOOOO-XR 


523 C 




DSXSSETMAP 


OOOOOOOO-XR 


533 (' 




DSXSSETPRIEXV 


OOOOOOOO-XR 


451 r 




DSXSSETVEC 


OOOOOOOO-XR 


508 C 




DSXSSHOWCHAN 


OOOOOOOO-XR 


539 C 




DSXSWAITMS 


OOOOOOOO-XR 


329 C 




DSXSWAITUS 


OOOOOOOO-XR 


334 C 




DS ERRSUP 


OOOOOOOO-XR 


1902 C 




ERCSDEVICERH 


OOOOOOOO-XR 


1615 C 




ERLSDEVICTMO 


OOOOCOOO-XR 


1617 r 




ERLSRELEASEMB 


OOOOOOOO-XR 


1723 C 




EXESABORTIO 


OOOOOOOO-XR 


1619 C 




EXESALLOC 


OOOOOOOO-XR 


647 C 




EXEtALLOCBUF 


OOOOOOOO-XR 


1727 C 




EXESALIOCJRP 


OOOOOOOC-XR 


1683 C 




EXESALONONPAGED 


OOOOOCOO-XR 


1685 (' 




EXESALTQUEPKT 


OOOOOOOO-XR 


1773 r 




EXESASCTIM 


OOOOOOOO-XR 


657 C 




EXESASS1GN 


OOOOOOOO-XR 


662 V 




EXESBINTIM 


OOOOOOOO-XR 


667 C 




EXESBUFFRQUOTA 


OOOOOOOO-XR 


1731 C 




EXESBUFQUOPRC 


OOOOOOOO-XR 


1729 r 




EXESCANCEL 


OOOOOOOO-XR 


672 V 




EXESCANTIM 


OOOOOOOO-XR 


677 (' 




EXESCARRIAGE 


OOOOOOOO-XR 


1749 C 




EXESCLREF 


OOOOOOOO-XR 


707 C 




EXESCNTREG 


OOOOOOOO-XR 


712 C 




EXESDASSGN 


OOOOOOOO-XR 


752 C 




EXESDEANONPAGED 


OOOOOOOO-XR 


1687 ( 




EXESEXPREG 


OOOOOOOO-XR 


817 C 




EXESFAO 


OOOOOOOO-XR 


822 ( 




EXESFAOL 


OOOOOOOO-XR 


827 ( 
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EXESFINISHIO 


00000000-XR 






1733 < 




EXESFINISHIOC 


00000000-XR 






1689 ( 




EXESFORK 


00000000-XR 






1691 < 


A \ <* 


EXESGETT1M 


00000000-XR 






84/ < 




EXESGL ABSTIM 


0000081 0-R 


1598 


(1) 






EXE$GQ SYSTIME 


OOOOOBOO-R 


1787 


(1) 






EXESGTCHAN 


00000000-XR 






1063 I 


1) 852 (1) 


EXESHIBER 


00000000-XR 






857 I 




EXESINSERTIRP 


00000000-XR 






1711 I 




EXESINSIOQ 


00000000-XR 






1783 I 




EXESIOrORK 


00000000-XR 






1621 < 




EXESMAXACMODE 


00000000-XR 






1794 i 




EXESMODIFY 


00000000-XR 






1745 I 




EXESMODIFYLOCK 


00000000-XR 






1747 I 




EXESMODIFYLOCKR 


00000000-XR 






1693 I 




EV.ESNUMTIM 


00000000-XR 






888 < 




EXESGNEPARM 


00000000-XR 






1623 l 




EXE$PWRTIMCHK 


00000000-XR 






1625 I 




EXE$Q10 


00000000-XR 






613 i 




EXESQI02 


=00000204-R 


614 


(1) 


898 < 




EXESQIODRVPKT 


00000000-XR 






1695 \ 




EXESQIORETURN 


00000000-XR 






171? i 




EXE$READ 


00000000-XR 






1735 i 




EXESREADCHK 


00000000-XR 






1737 \ 




EXESREADCHKR 


00000000-XR 






1739 \ 




EXESREADEF 


00000000-XR 






904 




EXESREADLOCK 


00000000-XR 






1796 




EXESREADLOCKR 


00000000-XR 






1705 




EXESSENSEMODE 


00000000-XR 






1627 




EXESSETAST 


00000000-XR 






929 




EXESSETCHAR 


00000000-XR 






1629 < 




EXESSETEF 


00000000-XR 






934 




EXESSETIMR 


00000000-XR 






954 




EXESSETMODE 


00000000-XR 






1631 




EXESSETPRT 


00000000-XR 






965 




EXESSNDEVMSG 


00000000-XR 






1633 




EXESUNWIND 


00000000-XR 






1008 




EXESWAITFR 


00000000-XR 






1013 




EXESWAKE 


00000000-XR 






1018 




EXESWFLAND 


00000000-XR 






1023 


f * \ * 


EXESWFLOR 


00000000-XR 






I028 




EXF$WRITE 


00000000-XR 






1741 




EXESWRITECHK 


00000000-XR 






1703 




EXESWRITECHKR 


OOOOOOOO-XR 






1743 




EXESWRITELOCK 


00000000-XR 






1697 




EXESWRHELOCKR 


00000000-XR 






1707 




EXESZEROPARM 


00000000-XR 






1635 




FAKE JUMP 


00000032-R 


1904 


(1) 


323 




IOC$5l_LOSPT 


00000000-XR 






1792 




IOCSALOUBAMAP 


00000009-XR 






1719 




IOCSALOUBAMAPN 


00000000-XR 






1725 




IOC$ALTUBAMAP 


00000000-XR 






1721 




IOCSAPPLYECC 


00000000-XR 






1637 




IOCSCANCELIO 


00000000-XR 






1639 




JOCSDIAGBUFILL 


00000000-XR 






1641 




IOCSGETBY1E 


00000000-XR 






1755 




IOC$GL_PSdL 


0000081 OR 


1601 


(1) 




i 
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IOCSGL PSFL 


0000081 8-R 


1600 


(1) 


1600 (' 


) 1601 (1) 




10C$INlTBUFWIND 


00000000-XR 






1759 C 






IOCSIN1TIATF 


00000000-XR 






1709 (' 






10CSLOADMBAMAP 


00000000-XR 






1643 C 






IOC$lOADUBAMAP 


00000000-XR 






1645 C 






IOCSLOADUBAMAPA 


00000000-XR 






1753 (* 






IOCSMOVFRUStR 


00000C00-XR 






1790 (* 






10CSMOVFRUSER1 


00000000-XR 






1763 C 






IOCSMOVFRUSER2 


00000000-XR 






1761 C 






IOCSMOVTOUSER 


00000000-XR 






1647 C 






IOC$MOVTOUS£R1 


00000000-XR 






1767 (' 






IOCSMOVTOUSER2 


00000000-XR 






1765 (' 






IOCSPTETOPFN 


00000000-XR 






1785 C 






IOCSPURGDATAP 


00000000-XR 






1649 (' 






IOCSPUTBYTE 


00000000-XR 






1757 C 






IOCSRELCHAN 


00000000-XR 






1651 C 






IOCSRELDATAP 


00000000-XR 






1653 C 






10CSRELMAPREG 


00000000-XR 






1655 C 






10CSRELSCHAN 


00000000-XR 






1657 C 






IOCSREQCOM 


00000000-XR 






1659 C 






IOCSREQDATAP 


00000000-XR 






1661 C 






IOCSREQDATAPNW 


00000000-XR 






1715 C 






IOCSREQMAPREG 


00000000-XR 






1663 ( 






IOC$REQPCHANH 


00000000-XR 






1665 < 






IOCSREQPCHANL 


00000000-XR 






1667 ( 






IOCSREQSCHANH 


00000000-XR 






1751 C 






IOCSREQSCMANL 


00000000-XR 






1669 ( 






IOCSRETURN 


00000000-XR 






1671 ( 






IOCSRTN 


00000930-R 


1671 


(1) 








IOC$SENSEDISK 


00000000-XR 






1673 C 






IOCSUPDATRANSP 


C0O00000-XR 






1675 C 






IOCSWF1KPCH 


00000000-XR 






1677 (' 






IOCSWFIRLCH 


00000000-XR 






1679 C 






KB CHECK 


00000000-XR 






1905 C 






LESP APT 


000001F4-R 


601 


(1) 


#-255 (' 






lEAP~BOOT 


000001EC-R 


595 


(1) 


#-251 ( 






LF " 


^OOOOOOOA 


192 


(1) 


204 C 






MMG$GL POBASE 


00000808-R 


1594 


(1) 








MMG$GL~SPTBASE 


00000804-R 


1592 


(1) 








MTSCHEfK ACCESS 


00000000-XR 






1681 ( 






POPT BASE 


00000000-XR 






1595 C 






REStfJD 


000001 FA-R 


604 


(1) 


#-594 ( 


I) #-599 (1) 




RESRVD_ENTRY 


0000001 D-R 


1901 


(1) 


1033 ( 


I) 1038 (1) 


1043 (1) 1048 (1) 










1053 ( 
1078 ( 
1098 ( 
1118 ( 
1138 ( 
1158 ( 
1183 ( 
1208 ( 
1243 ( 
1269 ( 
1289 ( 
1309 ( 
1329 r 
1349 ( 


1) 1058 (1) 
1) 1083 (1) 
1) 1103 (1) 
I) 1123 (1) 
1) 1H3 (1) 
1) 1163 (1) 
1) 1193 (1) 
1) 1223 (1) 
1) 1248 (1) 
1) 1274 (1) 
1) 1294 (1) 
1) 1314 (1) 
1) 1334 (1) 
1) 1354 (1) 


1068 (1) 1073 (1) 
1088 (1) 1093 (1) 
1108 (1) 1113 (1) 
1128 (1) 1133 (1) 
1148 (1) 1153 (1) 
1168 (1) 1173 (1) 
1198 (1) 1203 (1) 
1233 (1) 1238 (1) 
1253 (1) 1258 (1) 
1279 (1) 1284 (1) 
1299 (1) 1304 (1) 
1319 (1) 1324 (1) 
1339 (1) 1344 (1) 
1359 (1) 1364 (1) 
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1369 c 


) 1374 ( 


1) 1379 c 


1) 1384 ( 








1389 (1 


) 1394 ( 


1 ) 1 399 ( ' 


I) 1404 ( 








1409 (1 


) 1414 ( 


1) 1419 (* 


I) 1424 ( 








1429 r 


) 1434 ( 


1) 1439 ( 


1) 1444 ( 








1449 (" 


) 1454 ( 


1) 1459 (' 


1) 1464 ( 








1469 r 


) 1474 ( 


1) 1479 r 


!) 1484 ( 








1489 . C 


) 1494 ( 


1) 1499 C 


I) 1504 ( 








1509 r 


) 1514 ( 


1) 1519 C 


1) 1524 ( 








1529 (- 


) 1534 ( 


1) 1539 r 


I) 1544 ( 








1549 (' 


) 1554 ( 


1) 1559 (* 


I) 1564 ( 








1569 r 


) 1574 ( 


1) 260 r 


!) 475 < 








480 C 


) 485 ( 


1) 490 r 


1) 584 ( 








589 C 


) 604 ( 


1) 627 C 


1) 632 ( 








637 (' 


) 642 ( 


1) 652 ( 


1 ) 682 ( 








687 C 


) 692 ( 


1 ) 697 


1 ) 702 ( 








717 c 


) 722 ( 


1) 727 C 


I) 732 ( 








737 C 


I) 74J ( 


1) 757 ( 


1 ) 762 ( 








767 c 


I) 772 ( 


1) 777 ( 


1) 782 ( 








7S7 C 


) 792 ( 


1) 797 ( 


1) 802 ( 








807 C 


I) 832 ( 


1) 837 ( 


1) 842 < 








862 r 


I) 867 ( 


1) 878 C 


I) 883 ( 








893 C 


I ) 909 ( 


1) 9K (' 


1) 919 ( 








924 (* 


I) 939 ( 


1) 944 ( 


1) 949 ( 








976 <* 


I ) 981 ( 


1) 986 r 


1) 991 ( 


RMSSCIOSF 


00000000-XR 




1213 C 








RMSSCONNECT 


00000000-XR 




1218 (* 








RMS$DiSCONNECT 


00000000-XR 




1228 V 








RMSSGET 


00000000-XR 




1178 (* 








RMS$0PEN 


00000000-XR 




1263 r 








R«S$READ 


00000000-XR 




1188 C 








SCH$GL PCBvEC 


0000080C-R 


1596 (1) 








schsioCkw 


00000000-XR 




1 769 r 








schspostef 


00000000-XR 




1699 C 








SCHSQAST 


00000000-XR 




1701 C 








SCH$UNLQCK 


00000000-XR 




1771 C 








SYS$ALLOC 


00000238-R 


645 (1 


) 








SYSSASCTIM 


00000248-R 


655 C 


V 








SYSSASSIGN 


00000250-R 


660 n 










SYSSBJNTIM 


00000258-R 


665 (1 










SYSStALL MANDL 


0000021 0-R 


620 C 










sysscancPl 


00000260-R 


670 (1 










SYSSCANTIM 


00000268-R 


675 (1 










SYSSCLOSE 


00000588-R 


1211 (1 










SYSSCLREF 


00000298-R 


705 r 










SYS$CNTREG 


000002AO-R 


710 r 










SYSSCONNECT 


000005CO-R 


1216 C 










SYSSDALLOC 


000002D8-R 


745 r 










$YS$DASSGM 


000002E0-R 


750 c 










SYSSDiSCON'NECT 


000Q05D0-R 
00000340-R 


1226 r 










SYSSEXIT 


810 r 










SYSSEXPREG 


00000348-R 


815 c 










SYS$FAO 


00000350-R 


820 V 










SYSSFAOL 


00000358-R 


825 r 










SYS$GET 


00000580-R 


1176 C 










SYSSGETCHN 


000004 C8-R 
00000378-R 


1061 r 

845 ( 










SYSSGETTIM 










SYS$GL_OPRMBX 


00000800-R 


1590 V 
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SYS$GTCHAN 


00000380-R 


850 r 




SYSSHIBER 


00000388-R 


855 (' 




SYSSLKWSET 


000003A0-R 


870 C 




SYSSNUMTIM 


00000388-R 


886 C 




SYS$0PEN 


00000608-R 


1261 C 




SYStQIO 


000003C8-R 


896 r 




SYSSQIOW 


00000200-R 


611 (' 




SYStREAD 


00000590-R 


1186 r 




SYS$READEF 


000003DO-R 


902 C 




SYS$SETAST 


000003F8-R 


927 r 




SYSSSETEF 


00000400-R 


932 C 




SYSSSETIMR 


00000420-R 


952 V 




SYSSSETPRI 


000004 28-R 


957 C 




SYSSSETPRT 


00000430-R 


963 C 




SYSSSETRUM 


000004 38-R 


968 V 




SYSSTRNLOG 


00000458-R 


989 C 




SYS$ULKPAG 


00000460-R 


994 (* 




SYSSULWSET 


00000468-R 


1000 (' 




$YS$UNWIN0 


00000470-R 


1006 C 




SYSSWAITFR 


000004 78-R 


1011 r 


I) #-616 (1 


SYS$WAKE 


00000480-R 


1016 <■ 




SYS$WFLAND 


00000488-R 


1021 C 




5YS$WFLOR 


00000490-R 


1026 (' 




T R£SRVD 


00000006-R 


203 (' 


I) 1902 (1 
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Pag 
R;T 



e 

17 



60 
(1) 
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e„ 61 
17 (1) 



+ — «—...—— -«—— + 

1 Macros Cross Reference ! 
+ — — — — — — — + 



MACRO 



SPUSHADR 
ERRSUP_S 
MQDNAM 



SIZE 

1 

1 
1 



DEFINITION 



REFERENCES. 



1902 
1902 
201 



(1) 
(1) 
(1) 



1902 
1902 
201 



(1) 
(1) 

(1) 



+ — — — . .— »-««.<• — — + 

! Performance indicators ! 
+ — — — -*—+ 



Phase 



Page faults 


CPU Time 


Elapsed Time 


26 


00:00:00.11 


00:00:00.20 


110 


00:00:00.77 


00:00:01.56 


395 


00:00:05.77 


00:00:08.13 


1 


00:00:00.40 


00:00:00.44 


361 


00:00:03.46 


00:00:05,37 


39 


00:00:00.27 


00:00:00.63 


4 


00:00:00.04 


00:00:00.12 


80 


00:00:01.23 


00:00:02.19 


1020 


00:00:12.06 


00:00:18.65 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

25604 bytes (51 pages; of virtual memory were used to buffer the intermediate 
There were 20 pages of symbol table space allocated to hold 321 non-local and 
1908 source lines were read in Pass 1, producing object records in Pass 2. 
3 pages of virtual memory were used to define 3 macros. 

+ + 

! Macro library statistics ! 
+ ■.—.—.,.—+ 



code. 

1 local symbols. 



Macro I ibrary name 

DRB1 :CDS.W0RKJDIA6.ML8;955 

DRB1:CDS.W0RKJDS.MLB;218 

SYS$SYSR00T:[SYSLIBJLIB.MLB«1 

DMA1:CSYS0.SYSMAJNT3DS.MLB;218 

DMA1:CSYS0.SYSMAJNT3DJAG.MIB;953 

SYSSSYSR00T:CSYSLIB]LIB.MLB;1 

SYS$SYSR00T:CSYSLIBJSTARLET.MLB;2 

TOTALS (all libraries) 



Macros defined 


2 





1 

3 



18 GETS were required to define 3 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LJST=[DSaJSJ/CR0S$/ENA8LE=(DE8UG,TRACE) ENTRY/UPDA=(ENTRY. UPD, ENTRY. ENH)+SYS$UBRARY JL1B/LIBRARY+DMA1 :CSYS0.SYSMA1NT 
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ERROR 

fable ot contents 

1 38 
165 
179 
393 
445 
497 
549 
604 
659 
807 
833 
957 



*** ERROR Error 



routines 
*** ERROR 



Error routines 
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Sequence 
V03-0T 



1190 
Page 







Libraries, Macros, Equated Symbols 

Work Psect Declarations 

Data Psect Declarations 

DSXSErrSoft Routine 

DSXSErrHard Routine 

DSXSErrPrep Routine 

DSXSErrDev Routine 

DSXSErrSys Routine 

RRtpError Routine 

DS.TestID Routine 

DS ErrSup Routine 

DSRSComptetion Routine 



C17D 
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07-24 



*** ERROR 



Error routines 
*** ERROR 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Error routines 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



.Title 
Jdent 
.NoShow 
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ERROR *** ERROR Error routines 

/07-24/ 

Conditionals 



Copyright (c) 1977, 1983, 1984 
DIGITAL EQUIPMENT CORPORATION, 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC, 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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ERROR 

07-24 



*** ERROR 



Error routines 
*** ERROR 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Error routines 
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25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 

68 
69 
70 
71 
72 
71 
7^ 
75 
76 
77 
78 
79 
80 
81 



+ + 
FACILITY: 



VAX Diagnostic Supervisor 
ABSTRACT: 
ENVIRONMENT: 
AUTHOR: 

Tom Soutter 16-NOV-77 
MODIFIED BY: 

01 



VERSION 01 



TOM SOUTTER Q8-DEC-77 VERSION 02 (ESSAA-3.05) 
DSPR 020. "ERROR HALT AT ../'MESSAGE INSERTED. 



02 

03 
04 



05 

06 
07 

08 
09 
10 
11 

12 

13 



KEN CHAPMAN 30-DEC-77 VERSION 03 (ESSAA-3.06) 

PASS AP TO USER'S ERROR ROUTINE. 

NICK HOUGATE 06-DEC-78 VERSION 04 (ESSAA-5.01) 

EMULATE CHARACTER STRING INSTRUCTIONS 

Removed DSA$V_ERR_L00P, use DSSINLOOP instead 

Dave Butenhof, 10-sep-1980, Version 6.0 

Add error text to support RMS error codes used within 

supervisor. 

Dave Butenhof, 30-sep-1980, Version 6.1 

Change forced word-reletive references to longword-relative, 

since supervisor has gown. 

- Jack Stansbury, 21-0ct-1981, Version 6.- 
Added calls to OASMAIN for the QA enhancement. 
Also added .LIBRARY statements for $DS and SDIAG. 
Also changed some of the error messages to lower case. 

- Jack Stansbury, 22-0ct-1981 , Version 6.- 
Fixed truncation errors. 

- Jack Stansbury, 12-Nov-1981, Version 6.- 

Took out references to HALTD and HALTI. Changed them to HALT. 

- Dave Butenhof, 17-Nov-1981, Version 6.5 
Add 'end of error' message, and typecodes 

- Jack Stansbury, 21-Nov-1981, Version 6.5 

Commented out several of the calls to QA MAIN because it 

appears as though they will not be neede9 for the 6,5 DS version. 

- Dave Butenhof, 25-Nov-1981, version 6.5 

Added error text for error '54', 'Fatal controller error 1 , 
as it is appallingly common. 

- Dave Butenhof, 15-Dec-1981, Version 6.6 

Fix error trailer message to only type out if IE1 isn't 
set. 
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ERROR 

07-24 



*** ERROR Error 



)r routines 






*** ERROR [ 


Error r 


routines 


0000 


82 ( 


14 


0000 


83 , 




0000 


84 , 




0000 


85 ( 




0000 


86 , 


15 


0000 


87 , 




0000 


88 , 




0000 


89 t 




0000 


90 ( 


16 


0000 


91 , 




0000 


92 , 




0000 


93 , 




0000 


94 , 




0000 


95 , 




0000 


96 , 




0000 


97 , 




0000 


98 , 




0000 


99 t 


17 


0000 


100 , 




0000 


101 , 




0000 


102 t 




0000 


103 , 


18 


0000 


104 




0000 


105 




0000 


106 


19 


0000 


107 




0000 


108 




0000 


109 




0000 


110 


20 


0000 


111 




0000 


112 




0000 


113 




0000 


114 


; 21 


0000 


115 




0000 


116 




0000 


117 




0000 


118 


; 22 


0000 


119 




0000 


120 




0000 


121 




0000 


122 




0000 


123 




0000 


124 




0000 


125 




0000 


126 




0000 


127 




0000 


128 




0000 


129 


! 2Z 


0000 


130 




0000 


131 




0000 


132 




0000 


133 


I 24 


0000 


134 




0000 


135 




0000 


136 


»"- 
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- Jack Stansbury, 17-Dec-1981, Version ?.? 

Added all the registers to the register masks on each of the 
error routines. These are for the QA routines. 

- Dave Butenhof, 29-Dec-1981, Version 6.6 

Use new error counters for each class of error (hard, 
soft, etc.). 

- Jack Stansbury, 25-Jan-1982, Version 6.6 

Discovered that the error number is truncated to a word in the 
RRprError error reporting routine even though the error number 
that is passed to the routine is a Longword in Length. This is 
most Likely because of APT running on PDP-11' s, which operate 
on word Lengths. So, I changed one instruction to zero out the 
top word in DSA$GL_ERRNO when the error number is moved to this 
longword. 

Marion Baggett, 2-apr-1982, Version 6.7 

added the PREPERR error routine for reporting errors caused by a 

testing starting and the hardware not being properly set up. 



Marion Baggett, 9-Apr-1982, Version 6.7 
Change DSSPRINTF to DSXSPRINT for type codi 



ng 



Jack Stansbury, 10-Apr-1982, Version 6.7 

Changed some of the BBC instructions to the new DS macros such 

as Br_Jf_ .... 

Jack Stansbury, 11-May-1982, Version 6.8 

Added code to store the MsgAdr parameter from the $DS_ERRxxx 

macros into a location for use by the CRD routines. 



Jack Stansbury, 21-Dec-1982, Version 6.11 
Printed out some more flags, locations, etc 
routine. 



in the ErrSup 



Jack Stansbury, 03-Mar-1983, Version 6.11 

Changed the code that sets the DS$GA_User_Error Text so that 
this Location is set ONLY when CRD is running. This MUST be 
true or else the CRD dispatch vectors will get scrwed up. 
The condition was this: if a diagnostic was run that issued 
an error (prep, sys, dev, hard, or soft), then if CRD was run, 
and one of the diaqs run by CRD encountered a prep error, the 
path from the MENSPreparation Error^Text routine to the address 
of the user's error text would be lo; 
result. 



ost, and an exception would 



John Ciukaj 4-Apr-1983 Version 6.11 
- Changed all references to CRD Bits in DSA Flags 
distinguishing between Online and Offline. 

Bob Bergaz2i 24-Apr-1984 Version 7.0 

Fixed edit ft 21, FMTERRSUP1 , which pushed contents instead of the 

address of DS$GT VDS_ VERSION on the stack. 
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Libraries, 
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0000 138 

0000 139 

0000 140 

0000 141 

0000 142 

0000 143 

0000 144 

0000 145 

0000 146 

0000 147 

0000 148 

0000 149 

00000003 0000 150 

00000020 0000 151 

C00O 152 

0000 153 

OuOO 154 

0000 155 

0000 156 

0000 157 

0000 158 

0000 1 59 

0000 16C 

0000 161 

0000 162 

0000 163 



.SBTTL Libraries, Macros, Equated Symbols 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 
.LIBRARY 



EQUATED SYMBOLS: 



/SYS$LIBRARY:LIB/ 

/SOS/ 

/$DIAG/ 



C173 
[073 
L071 



BPTCODE = 03 
TESTID.LEN = 32 

APTDEF 

DSFDEF 

DSQA 

$DS CFDEF 

SDSlDSDEF 

$DS DSADEF 

$DS_ERRDEF 

$DS HDRDEF 

$DS"HP0DEF 

$RM3DEF 

$ds_typedef 



BREAKPOINT OPCODE 

TEXT BUFFER FOR TEST/SUBTEST MESSAGE 

APT MESSAGE CODE DEFINITIONS 
CONTROL FLAG DEFINITIONS 
QA routine name constants 



; CONTROL FLAG DEFINITIONS 

; DIAGNOSTIC PROGRAM HEADER SYMBOLS 

; P-TABLE OFFSET DEFINITIONS 

; RMS % return code definitions 

; Define error typecodes 



C07D 



C10] 



ZZ-ENSAA-7,0 

ERROR 
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Work Psect Declarations 

*** ERROR Error routines 
Work Psect Declarations 
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0000 
0000 
0000 
0000 
0000 
00000000 
0000 
0000 

00000008 0000 
0008 

00000010 0008 
0010 

00000030 0010 



.Subtitle 
OWN STORAGE: 



165 
166 
167 
168 
169 
170 
171 

172 Q BUFUWD: 

173 " .8LKQ 

174 DS$GQ TESTID: : 

175 .BLKQ 

176 T TESTID; 

177 ~ ,8LKB 
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Work Psect Declarations 



.Psect Work, Noshr, Noexe, Wrt, Long 



1 
1 
TESTIDJ.EN 



QUADW0RD DESCRIPTOR 
FOR MISC. STRINGS 

STRING LENGTH £ POINTER 

BUFFER FOR TEST/SUBTEST MESSAGE 
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Data Psect Declarations 

*** ERROR Error routines 
Data Psect Declarations 
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72 6F 72 72 

72 6F 72 72 
61 74 61 66 20 



20 74 6F 6E 20 
72 72 65 20 64 



61 74 61 66 20 



65 64 20 65 72 
72 6F 72 72 65 



77 6F 6E 6B 6E 
65 

61 69 74 69 6E 
63 65 73 20 6E 



75 6E 61 65 6C 
6E 6F 

21 20 74 73 65 
20 74 73 65 74 



0030 
00000000 

0000 

0000 
07 0000 

0001 

06 0001 
65 20 64 72 61 48 00' 0002 

0A 0002 
000D 

07 000D 
65 20 74 66 6F 53 00 • OOOE 

OA OOOE 
0019 

08 C019 
65 63 69 76 65 44 00' 001A 
72 6F 72 72 65 20 6C 0026 

12 001A 

002D 

IB 002D 

65 63 69 76 65 44 00' 002E 

65 72 61 70 65 72 70 003A 

72 6F 0046 

19 002E 

0048 

05 0048 

6D 65 74 73 79 53 00' 0049 

72 6F 72 72 65 20 6C 0055 

12 0049 
005C 

61 77 74 66 6F 53 00 » 005C 
20 64 65 74 63 65 74 0068 

17 005C 

0074 

00' 0074 

00 0074 

0075 

55 0000007D , 010EOOOO' 0075 

63 69 76 65 64 20 6E 0083 

008B 
49 00000093' 01 0E0000' 008B 
6F 69 74 61 7A 69 6C 0099 
6E 6F 69 74 00A5 
0OA9 
45 OOOOOOBTOIOEOOOO' 00A9 
69 74 63 65 73 20 70 00B7 

00C0 
74 OOOOOOCS'OIOEOOOO' 00C0 

62 75 73 20 2C 4C 55 OOCE 

4C 55 21 OODA 



179 
180 
181 

182 MSGBELL: 

183 .ASCII 

184 HARDER: 
185 
186 



.Subtitle Data Psect Declarations 
.Psect Data, Shr, Noexe, Ncwrt, Byte 



.byte 
.ASCIC 



187 SOFTER: 

188 

189 

190 DEVFER: 

191 

192 



193 PREPER: 

194 

195 



196 SYSFER: 

197 

198 



.byte 
.ASCIC 



.byte 
.ASCIC 



.byte 
.ASCIC 



.byte 
.ASCIC 



<7> 

ds$k type_errhard 
.Hard error. 



ds$k type_errsoft 
.SofT error. 



ds$k„type_errdev 
.Device fatal error. 



; ASCII "BELL" 

; Type code byte 

; Type code byte 

; Type code byte 



dsSK^type^errprep ; Type code byte 
•Device not prepared error. ; 



199 ersuper: 

200 .ascic 



ds$k_type_errsys 
.System fatal error. 



.Software detected error. 



Type code byte 
Supervisor error text 



201 ANULL: 
202 



.ASCIC 



203 QUNKDEV: 

204 ,ASCID 

205 OJNITSEC: 

206 .ASCID 



.Unknown device. 
.Initialization section. 



207 QCLEANSEC: 

208 .ASCID .Cleanup section. 



209 QFMTTESTID: 

210 .ASCID 



.test !UL, subtest !UL« 



[103 



[103 



[10] 
[103 



C173 
C173 



[103 
[103 



[103 
[103 
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Data Psect Declarations 

*** ERROR Error routines 
Data Psect Declarations 



L 13 
27-JUL-1984 Fiche 6 Frame L13 Seguence 1197 

27-JUL-1984 15:17:36 VAX-11 Macro V03-01 Page 7 

23-MAY-1984 14:12:11 DMA1 :CSYS0.SYSMAJNT;jERROR.MAR;T09 (1) 



6F 
50 



20 
21 

2A 
2C 

20 



65 
53 



20 
20 
2A 



61 
20 
41 
21 



67 
44 
20 
73 



20 
20 



2A 
2E 
2A 
4C 
72 



6C 
41 



2A 
43 
20 
2F 



77 
64 
21 
23 



61 
20 
3A 
72 



20 20 



52 
3A 
20 

52 
3A 
20 

52 
30 
20 



20 
32 
20 

20 
36 
20 

20 
31 
3A 



74 
74 
2F 



2A 
4C 
2A 
55 
6F 



69 

21 



2A 
41 
4C 
21 



74 
65 
22 
20 



6C 
20 
73 
65 
2F 



4C 
2F 
20 
52 
3A 

20 
52 
3A 

20 
52 
31 



6C 
61 
21 



2A 
55 
2A 
21 
72 



68 
20 



2A 
21 
55 
2F 



66 
74 
20 
72 



46 
29 
67 
56 

21 



58 
21 
4C 
20 
33 

4C 
20 
37 

AC 
20 
31 



61 
20 
29 



2A 
21 
2A 
20 
72 
44 

77 
67 



2A 
20 
21 
21 



6F 
63 
6E 
6F 

2F 



5F 
58 
61 
20 
43 



21 
4C 
58 
20 
52 

58 
20 
52 

58 
20 
52 



48 
72 
58 



2A 
20 
2A 
73 
65 
25 

20 
6E 
2F 



2A 
66 
20 
2A 



53 
65 
69 
72 
44 
21 



4C 
28 
6C 
20 
41 



20 
58 
21 
4C 
20 

21 
4C 
20 

21 
4C 
20 



20 
6F 
28 



2A 
2D 
2A 
73 
20 
21 

43 
69 
21 



2A 
6F 
72 
2A 



20 
74 
20 
72 
25 
43 



47 
4C 
46 
29 
21 



3A 
21 
20 
58 
20 

20 
58 
20 

20 
58 
20 



2E 
72 
4C 



2A 
20 
2A 
61 
2C 
20 

41 
74 
43 



2A 
20 
65 
2A 



3F 
65 
72 
65 
21 
41 



24 
58 
5F 
58 
20 



43 
20 
3A 
21 
4C 
2f 
3A 
21 
4C 
2F 
3A 
21 
4C 
2F 



2E 
72 
58 



2A 
43 
20 
50 
53 
2C 

21 
73 
4 1 



2A 
64 
62 
2A 



3F 
64 
6F 
20 
20 
21 



41 
21 
4C 
28 
3A 



50 
3A 
30 
20 
58 
2! 
34 
20 
58 
21 
38 
20 
58 
21 



2F 
65 
21 



2F 
41 
20 
20 
41 
4C 

20 
65 
21 



2f= 
6E 
6D 
2A 



2F 
20 
72 
2C 
2C 
20 



53 
20 
47 
4C 
6E 



5F 
4C 
52 
20 
21 
4C 
52 
20 
21 
4C 
52 
20 
21 
4C 



21 
20 
20 



21 
21 
4C 
2F 
21 
55 

2F 
74 
20 



21 
45 
75 
2A 



21 
65 
72 
22 
4C 
2F 



44 
3A 
24 
58 
6F 



21 
53 
5F 
3A 
20 
58 
5F 
3A 
20 
58 
5F 
3A 
20 
58 



00 • 
6E 
43 
21 

00' 

20 

55 

21 

20 

21 

21 
20 
3A 
62 

00' 

20 

6E 

2A 

2E 

00' 

72 

65 

43 

55 

21 

3E 

00' 

73 

53 

21 

69 

39 



00 
50 
21 
31 
20 
21 
21 
35 
20 
21 
21 
39 
3A 
21 
90 



39 28 17 21 4C 58 21 3A 4C 58 21 00 



00DD 
OODD 
00E9 
00F5 
OODD 
OOFF 
OOFF 
01 OB 
0117 
0123 
012F 
01 3B 
0143 
0143 
C14F 
0158 
OOFF 
0162 
0162 
016E 
01 7A 
0186 
0162 
0191 
0191 
019D 
01A9 
01B5 
01C1 
01C8 
0191 
01D0 
01D0 
01DC 
01E8 
01F4 
0200 
01D0 
020A 
020A 
020A 
0216 
0220 
022C 
0238 
0244 
0249 
0255 
0261 
026D 
0272 
027E 
028A 
0296 
020A 
0298 
0298 



212 
213 



214 
215 



216 
217 



218 
219 



220 
221 



222 

221 
22^ 



225 
226 
227 

228 



229 



230 



231 
232 



FMTERRHLT: 

.ASCJC 



FMTERRHDR: 

.ASCJC 



"!/.. Halt on error at PC !XL(X)!/ 



\j/******** JAC - JUL. JUL ********\ - 



1071 



fmtenderror: 

.ascic 



FMTERRSUP: 

.ASCJC 



"!/ Pass JUL, IAS, error JUL, !ZD"- 
"!/ JAC while testing !AS: !AC!/ M 



\!/****«r*** End of JAC number JUL ********|/i/\ 



[07] 
[07] 



no: 



FmtErrSupl: 

.Ascic 



!/?? Software detected error in "!AC", error 0JUL, iXD 1 - 



"!/ JAC!/' 



'DSA$GL_Flags: !XL<X) DS$GL_Flags: !XL(X> Version: .'AC!/* 



C07] 



C2U 

[21] 



FMTERRSUP2: 

, ASCJC 



• <i 



"i 



_PC: !XL PSL: !XLI/"- 

,R0j >XL R1: !XL R2j !XL R3: !XL!/ M - 



i t 



! w R4: !XL R5: !XL R6: !XL R7: !XL!/ M - 



• M 



!„R8: JXL R9: !XL R10: !XL R11: !XL!/ 



• i 



FMTERRSUP3: 

.ASCJC 



M !XL:!XL!7(9XL)!/ 



1 1 
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2F 21 29 4C 



58 
10 



02A7 
0298 
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21 
21 



2D 
29 



44 
4C 



41 
58 



21 
21 



2D 
3D 



43 
30 



41 
52 



21 
28 



2F 
20 



21 
43 



00' 
41 
2F 
18 



00000004* 
00000000 
00000001 
00000066 



0000 
0006' 

oooc 1 

000F' 
4D 45 54 53 59 53 25 OO 1 

07 
53 4D 52 25 00' 
04 
47 41 49 44 25 00' 
05 



0000002D' 

00000000 ' 

00000000* 

00000000' 

00000000' 

00018290 

000184C0 

000U048 

0001 COOO 

00018490 

0001 84D0 

00018278 

00018508 

00018560 

00018570 

00018580 

00018638 

OOOtrOFO 

000181A8 

00018658 

00018578 

00018528 

00660008 

00660010 

00660018 

00660020 

00660028 

00660038 

00660040 

00660048 

00660050 

00660060 

00660068 



02AC 

02AC 

0288 

02C4 

02AC 

02C5 

02C5 

02C9 

02CD 

02D1 

02D5 

02D5 

02D5 

02D7 

C2D9 

02D8 

02DD 

02DD 

02E5 

02E5 

02EA 

02EA 

02F0 

02F0 

02F0 

02F4 

02F8 

02FC 

0300 

0304 

0308 

030C 

0310 

0314 

0318 

031C 

0320 

0324 

0328 

032C 

0330 

0334 

0338 

033C 

0340 

0344 

0348 

034C 

0350 

0354 

0358 

035C 

0360 

0364 

0368 

036C 

0370 



234 
235 



236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 



T_ERROR_MASK: 
.ASCJC 



UTILITY„CODES: 
.LONG 
.LONG 
.LONG 
.LONG 



10$: 
UTILITY. 



10$ 



248 20$ 

249 30$ 



TEXT: 

.WORD 
.WORD 
.WORD 
.WORD 
.ASCJC 

.ASCJC 

.ASCJC 



250 

251 ERROR.CODES.' 

252 .LONG 

253 .LONG 

254 LONG 

255 .LONG 

256 .long 

257 .LONG 

258 .LONG 

259 .LONG 

260 .LONG 

261 .LONG 

262 .LONG 

263 .LONG 

264 .LONG 

265 .LONG 

266 .LONG 

267 .LONG 

268 .LONG 

269 .LONG 

270 .LONG 

271 .LONG 

272 .LONG 

273 .LONG 

274 .LONG 

275 .LONG 

276 .LONG 
27? .LONG 

278 .LONG 

279 .LONG 

280 .LONG 

281 .LONG 

282 .LONG 
28^ .LONG 
284 .LONG 
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"»/!AO!AD-!AC (RO=!Xl)!/' 



9 
(1) 



<10$-.>/4 



1 

A X66 





10$-. 

20$-. 

30$-. 

"XSYSTEM" 

"XRMS" 

"XDIAG" 



<10$-.>/4 

SS$ ACCVIO 

SS$ NOSUCHDEV 

SS$[NOSUCHFILE 

ss$ ctrlerr 

RMS$„FNF& A XFFF 

RMS$ DEVfc A XFFF 

RMS$~DNF& A XFFF 

RMS$"ACC& A XFFF 

RMS$~CCftfc A XFFF 

RMS$~DME& A XFFF 

RMS$~EOF& A XFFF 

RMS$ FABfc A XFFF 

RMS$IlFIfc A XFFF 

rms* iop& a xfff 
rms$:jsu a xfff 
rms$_rab& a xfff 
rms$ rer& a xfff 
rms$~rtb& a xfff 
rms$"rfa& a xfff 

RMS$~iRC& A XFFF 

RMS$'FNM& A XFFF 

DSS^OVERFLOW 

DS$ NULLSTR 

DS$"ILI.CHAR 

DSS"f r JGtRR 

DS$* TRUNCATE 

DS$"IVVECT 

DS$~IVADDR 

DS$~VASFULL 

DS$;iNSFMEM 

DS$ IHWE 

DS$**FHWE 



FFFF8 


RMS 


FFFF8 


RMS 


?nn 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF9 


RMS 


FFFF8 


RMS 


Fff^Q 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


RMS 


FFFF8 


FNM 



Access violation 

No such device 

No such file 

Fatal controller error 

no such file 

bad device 

directory not found 

file access error 

connect error 

pool allocation error 

end of file 

invalid FAB 

invalid internal file index 

illegal operation 

invalid RAB/FAB pair 

invalid RAB 

file read error 

record truncation warning 

invalid RFA 

invalid record 

error in filename 
Field overflow 
Null input string 
Illegal character 
Programmer error 
Data truncated 
Invalid vector 
Invalid vector address 
virtural address space full 
Insufficient memory 
Initial channel hardware error 
Final channel hardware error 



L123 



7MNSAA-7.Q 

ERROR 
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00660070 
00660078 
00660080 
00660088 
00660090 
00660098 
006600AO 
006600B0 
00660088 
006600C0 
006600DO 
006600D8 



005A' 
00? 4* 
0064* 
007C 1 
04C8* 
0091' 
00A3' 
00CF' 
02C4' 
02DE' 
02F4' 
0310' 
0328* 
034D' 
037D* 
0382 • 
03E4' 
0409' 

04ir 

0442' 
0469' 
048F' 
00E0' 
00ED' 
OOFD' 
010D* 

one 1 

0129* 
0136' 
0KB' 
0165' 
0177 1 
0194* 
01AF * 

our 

01D2' 
DIES' 

our 

0206' 
0219* 
022D' 
0238* 

0246* 



0374 
0378 
037C 
0380 
0384 
^588 
038C 
0390 
0394 
0398 
03QC 
03A0 
03A4 
03A4 
C3A4 
03A6 
03A8 
03A>, 
0?'.C 
O'JAE 
03BO 
0382 
0S64 

0306 
0383 
038 A 
03BC 
03BE 
03C0 
03C2 
03C4 
03C6 
03C8 
03CA 
03CC 
03CE 
03D0 
03D2 
03D4 
03D6 
03D8 
03DA 
03DC 
03DE 
03E0 
03E2 
03E4 
03E6 
03E8 
03EA 
03EC 
03EE 
03F0 
03F2 
03F4 

03F6 
03F8 



285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 

316 
317 

318 
319 
320 
321 
322 
323 
324 

326 
527 
328 

330 
331 
332 
333 
334 
335 

9 

III 

340 
341 



10$: 
ERROR, 



.LONG 

.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 

TEXT: 
.WORD 
.WORD 
.WORD 
.WORD 
.word 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



DSS.LOGIC 
DSSJLLPAGCNT 

DSWRAG8UF 
DSS.MCHK 
DS$ KRNLSTK 
DS$ POWER 
DS$~TRAN$L 
DSSlNOTIMP 
DS$ JPL2HI 
DSS KERR 
DS* ARITH 

DSSlUNEXPINT 



0$-. 

60$-. 

10$-. 

20$-. 

440$-. 

30$-. 

40$-. 

50$-. 

300$- 

310$- 

320$- 

330$- 

340$- 

350$- 

360$- 

370$- 

380$- 

390$- 

400$- 

410$- 

420$- 

430$- 

70$-. 

80$-. 

90$-. 

100$- 

110$- 

120$- 

130$- 

140$- 

150$- 

160$- 

170$- 

180$- 

190$- 

200$- 

210$- 

220$- 

230$- 

240$- 

250$- 

260$- 

270$- 



Program logic error 
Illegal page count 
Buffer is fragmented 
Machine check 
Kernel stack not valid 
Power fail interrupt 
Translation not valid 
Not implemented 
IPL too hiah 
Interval clock error 
Arithmetic trap 
Unexpected interrupt 



; Unknown error 

; A X0C Access violation 



.* Fatal controller error 



C12J 



C H 
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0259' 03FA 3A2 .WORD 280$-. 
0267* 03FC 343 .WORD 290$-. 

72 72 65 20 6E 77 6F 6E 6B 6E 55 00' 03FE 344 0$: .ASCiC "Unknown error" 

72 6F 040A 

OD 03FE 

20 2C 56 45 44 48 43 55 53 4F 4E 00* 040C 345 10$: .ASCIC "NOSUCHDEV, No such device" 

69 76 65 64 20 68 63 75 73 20 6F 4E 0418 

65 63 0424 

19 040C 

2C 45 4C 49 46 48 43 55 53 4F 4E 00' 0426 346 20$: .ASCJC "NOSUCHFJLE, No such file" 

6C 69 66 20 68 63 75 73 20 6F 4E 20 0432 

65 043E 

18 0426 

6E 20 65 6C 69 66 20 2C 46 4E 46 00' 043F 347 30$: .ASCJC "FNF, file not found" 

64 6E 75 6F 66 20 74 6F C44B 

13 043F 

65 64 20 64 61 62 20 2C 56 45 44 00' 0453 348 40$: .ASCJC "DEV, bad device, or inappropriate device type" 
61 6E 69 20 72 6F 20 2C 65 63 69 76 045F 

64 20 65 74 61 69 72 70 6f 72 70 70 0468 

65 70 79 74 20 65 63 69 76 65 0477 

2D 0453 

74 63 65 72 69 64 20 2C 46 4E 44 00' 0481 349 50$: .ASCJC "DNF , directory not found" 

6E 75 6F 66 20 74 6F 6E 20 79 72 6F 048D 

64 0499 

18 0481 

73 73 65 63 63 61 20 2C 43 43 41 00* 049A 350 60$: .ASCJC "ACC, access violation" 

6E 6F 69 74 61 6C 6F 69 76 20 04A6 

15 049A 

66 72 65 76 6F 20 64 6C 65 69 46 00' 0480 351 70$: .ASCJC "Field overflow" 

77 6F 6 r 04BC 

Ot 0480 

20 74 75 70 6E 69 20 6C 6C 75 4E 00' 048F 352 80$: .ASCJC "Null input string 

67 6E 69 72 74 73 04CB 

11 04BF 

61 68 63 20 6C 61 67 65 6C 6C 49 00' 04D1 353 90$: .ASCJC "Illegal character 

72 65 74 63 61 72 04DD 

11 04D1 

20 72 65 6D 6D 61 72 67 6F 72 50 00' 04E3 354 100$: .ASCJC "Programmer error" 

72 6F 72 72 65 04EF 

10 04E3 

61 63 6E 75 72 74 20 61 74 61 44 00* 04F4 355 110$: .ASCJC "Data truncated" 

64 65 74 0500 

OE 04F4 

63 65 76 20 64 69 6C 61 76 6E 49 00* 0503 356 120$: .ASCJC "Invalid vector 

72 6F 74 050F 

OE 0503 

63 65 76 20 64 69 6C 61 76 6E 49 00' 0512 357 130$: .ASCJC "Jnvalid vector address 
73 73 65 72 64 64 61 20 72 6F 74 051 E 

16 0512 

64 61 20 6C 61 72 75 74 72 69 56 00' 0529 358 140$: .ASCJC ''Virtural address space full" 
20 65 63 61 70 73 20 73 73 65 72 64 0535 

6C 6C 75 66 0541 

1B 0529 

6E 65 69 63 69 66 66 75 73 6E 49 00' 0545 359 150$: .ASCJC "Insufficient memory" 

79 72 6F 6D 65 60 20 74 0551 

13 0545 

61 68 63 20 6C 61 69 74 69 6E 49 00* 0559 360 160$; .ASCJC "Initial channel hardware error 

| 



.» > 



,i i 



1 1 



» » 



1 1 
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72 61 77 64 72 61 68 20 6C 65 6E 6E 0565 

72 6F 72 72 65 20 65 0571 

IE 0559 

6E 6E 61 68 63 20 6C 61 6E 69 46 00' 0578 361 170$: .ASCJC "Final channel hardware error** 

20 65 72 61 77 64 72 61 68 20 6C 65 0584 

72 6F 72 72 65 0590 

1C 0578 

67 6F 6C 20 6D 61 72 67 6F 72 50 00* 0595 362 180$: .ASCJC "Program logic error 

72 6F 72 72 65 20 63 69 05A1 

13 0595 
67 61 70 20 6C 61 67 65 6C 6C 49 00' 05A9 363 190$: .ASCJC "Illegal page count" 

74 6E 75 6F 63 20 65 0565 

12 05A9 

66 20 73 69 20 72 65 66 66 75 42 00' 05BC 364 200$: ASCJC "Buffer is fragmented" 

64 65 74 6E 65 6D 67 61 72 C5C8 

14 05BC 
65 68 63 20 65 6E 69 68 63 61 4D 00' 05D1 365 210$: .ASCJC "Machine check" 

68 63 05DD 

OD 05D1 

63 61 74 73 20 6C 65 6E 72 65 48 00' 05DF 366 220$: .ASCJC "Kernel stack not valid 

64 69 6C 61 76 20 74 6F 6E 20 6B 05E8 

16 05DF 
20 6C 69 61 66 20 72 65 77 6F 50 00' 05F6 367 230$; .ASCJC "Power fail interrupt" 

74 70 75 72 72 65 74 6E 69 0602 

14 05F6 
6E 6F 69 74 61 6C 73 6E 61 72 54 00' 0608 368 240$: .ASCJC "Translation not valid" 

64 69 6C 61 76 20 74 6F 6E 20 0617 

1 5 0608 

65 6D 65 6C 70 6D 69 20 74 6F 4E 00' 0621 369 250$: .ASCJC "Not implemented" 

64 65 74 6E 062D 
OF 0621 

67 69 68 20 6F 6F 74 20 4C 50 49 00' 0631 370 260$: .ASCJC "JPL too high" 

68 063D 

OC 0631 

6C 63 20 6C 61 76 72 65 74 6E 49 00* 063E 371 270$: .ASCJC "Interval clock error 

72 6F 72 72 65 20 6B 63 6F 064A 

14 063E 

20 63 69 74 65 6D 68 74 69 72 41 00* 0653 372 280$: .ASCJC "Arithmetic trap' 

70 61 72 74 065F 

OF 0653 

20 64 65 74 63 65 70 78 65 6E 55 00' 0663 373 290$: .ASCJC "Unexpected interrupt" 

74 70 75 72 72 65 74 6E 69 066F 

14 0663 

69 66 20 50 43 41 20 2C 43 43 41 00' 0678 374 300$: .ASCJC "ACC, ACP file access failed" 

61 66 20 71 71 65 63 63 61 20 65 6C 0684 

64 65 6C 69 0690 

18 0678 

74 6F 6E 6E 61 63 20 2C 52 43 43 00' 0694 375 310$: .ASCJC "CCR, cannot connect RAB" 

42 41 52 20 74 63 65 6E 6E 6F 63 20 06A0 

1 7 0694 
69 6D 61 6E 79 64 20 2C 45 4D 44 00' 06AC 376 320$: .ASCJC "DME, dynamic memory exhausted 

68 78 65 20 79 72 6F 6D 65 6D 20 63 06B8 

64 65 74 73 75 61 06C4 

1D 06AC 

66 6f 20 64 6E 65 20 2C 46 4F 45 CO' 06CA 377 330$; , ASCJC "EOF, end of file detected" 
74 63 65 74 65 64 20 65 6C 69 66 20 06D6 

64 65 06E2 



1 1 



.♦ i 
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69 6C 61 76 6E 69 20 2C 42 41 46 
42 41 46 20 72 6F 20 42 41 46 20 
69 73 73 65 63 63 61 20 74 6F 6E 

65 6C 

69 6C 61 76 6E 69 20 2C 49 46 49 

66 20 6C 61 6E 72 65 74 6E 69 20 
69 66 69 74 6E 65 64 69 20 65 6C 
6C 61 76 20 29 49 46 49 28 20 72 

65 

74 61 72 65 70 6F 20 2C 50 4F 49 
20 64 69 6C 61 76 6E 69 20 6E 6F 

67 72 6F 20 65 6C 69 66 20 72 6F 

72 6F 20 6E 6F 69 74 61 7A 69 6E 

65 63 69 76 65 64 

69 6C 61 76 6E 69 20 2C 49 53 49 

73 20 6C 61 6E 72 65 74 6E 69 20 
69 74 6E 65 64 69 20 6D 61 65 72 
76 20 29 49 53 49 28 20 72 65 69 

65 75 6C 

69 6C 61 76 6E 69 20 2C 42 41 52 

42 41 52 20 72 6F 20 42 41 52 20 
69 73 73 65 63 63 61 20 74 6F 6E 

65 6C 

72 20 65 6C 69 66 20 2C 52 45 52 
72 6F 72 72 65 20 64 61 

64 72 6F 63 65 72 20 2C 42 54 52 

66 20 65 67 72 61 6C 20 6F 6F 74 

75 62 20 73 27 72 65 73 75 20 72 

72 65 66 

69 6C 61 76 6E 69 20 2C 41 46 52 
66 20 71 27 64 72 6F 63 65 72 20 
20 73 73 65 72 64 64 61 20 65 6C 

29 41 46 52 

61 67 65 6C 6C 69 20 2C 43 52 49 
63 6E 65 20 64 72 6F 63 65 72 20 
20 6E 69 20 64 65 72 65 74 6E 75 

65 6C 69 

20 72 6F 72 72 65 20 ?X 4D 4E 46 

65 6D 61 6E 65 6C 69 66 20 6E 

61 66 20 2C 52 52 45 4C 52 54 43 

6C 6C 6F 72 74 6E 6F 63 20 6C 61 

72 6F 72 72 65 20 72 



19 

00* 

64 

20 

62 

26 

00' 

64 

69 

65 

75 

31 

00' 

69 

66 

61 

20 

36 

00* 

64 

74 

66 

61 

33 

00' 

64 

20 

62 

26 

00' 

65 

14 

00' 

20 

6F 

66 

27 

00' 

64 

69 

28 

28 

00' 

6C 

6F 

66 

27 

00* 

69 

16 

00' 

74 

65 

1F 



3F 46 45 57 



06CA 
06E4 
06F0 
06FC 
0708 
06E4 
070B 
0717 
0723 
072F 
073B 
0708 
073D 
0749 
C755 
0761 
076D 
073D 
0774 
0780 
078C 
0798 
07A4 
0774 
07A8 
0784 
07C0 
07CC 
07A8 
07CF 
07DB 
07CF 
07E4 
07F0 
07FC 
0808 
07E4 
080C 
0818 
0824 
0830 
080C 
0835 
0841 
084D 
0859 
0835 
085D 
0869 
085D 
0874 
0880 
088C 
0874 
0894 
0894 
0894 



378 340$: .ASCJC "FAB, invalid FA8 or FAB not accessible 



♦ » 



379 350$: -ASCJC "IFI, invalid internal file identifier (IFi) value' 



380 360$: .ASCJC "JOP, operation invalid for file organization or device' 



381 370$: .ASCJC "ISI, invalid internal stream identifier (JSJ) value 1 



382 380$: .ASCJC "RAB, invalid RA8 or RAB not accessible' 



383 390$: .ASCJC 

384 400$: .ASCIC 



1 1 



RER, file read error' 



• > 



RTB, record too large for user's buffer 



♦ ♦ 



385 410$: .ASCJC "RFA, invalid record's file address (RFA) 



386 420$; .ASCJC "IRC, illegal record encountered in file" 



387 430$: .ASCJC 

388 440$: .ascic 



389 

390 SEVERITY: 

391 .ASCII 



1 1 



FNM, error in filename" 



'CTRLERR, fatal controller error' 



C123 



"WEF?" 



J 
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0898 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



393 
394 

395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 



.S8TTL 
.PSECT 
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(1) 



+ + 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LOGS AND REPORTS THE OCCURENCE OF AN 
"ERRSOFT" CALL TO THE OPERATOR AND A.P.T., 

CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: 



ERRS NUM(AP) 
ERRSlUNIT(AP) 



= ERROR NUMBER 

= LOGICAL UNIT NUMBER 

ERRSIMSGADR(AP) = POINTER TO ASCII STRING 

ERR$J>OINTER(AP)= LINK TO PRINT ROUTINE 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 
ERROR 
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*** ERROR Error routines 
DSX$ErrSoft Routine 
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OFFC 



00000000' EF 

OOOOOOOD'EF 

00C0 

0000FE40'EF 04 



00000000" EF 



0000 
0002 
D6 0002 
DF 0008 
30 000E 
DO 0011 
0018 
0018 
16 0020 
0026 
04 0026 
0027 
0027 
0027 
C027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 

0027 
0027 
0027 
0027 
0027 
0027 
0027 



434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 



.ENTRY DSX$ERRSOFT, A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 



Incl L A Ds$GLSoftE recount 

PUSHAL L A SOFTER 

BSOW RRPTERROR 

MOVL #APM$ SOFTERR, - 

L a D3A$GLJ1SGTYP 
Br 
J 



r If Not APT 101 
SB " L*APTJ1SG 



Count this soft error 
INDICATE ERROR TYPE 
CALL ERROR REPORTING SUBRTN 
Indicate error type in mailbox 

If not running from APT, branch 
Else, transfer control to APT 
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£14] 

C15] 

C083 



[19] 

C083 



10$: 



RET 

.SBTTL 



DSX$ErrHard Routine 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LOGS AND REPORTS THE OCCURENCE OF AN 
"ERRHARD" CALL TO THE OPERATOR AND A.P.T.. 

CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: 

ERRS NUM(AP) = ERROR NUMBER 

ERRS'UNIHAP) = LOGICAL UNIT NUMBER 

ERR$~MSGADR(AP) = POINTER TO ASCII STRING 

ERR$_POINTER(AP)= LINK TO PRINT ROUTINE 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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OFFC 


0027 


485 






0029 


486 


00000000 f EF 


D6 


0029 


487 


00000001' EF 


Of 


002F 


488 


0099 


30 


0035 


489 


OOOOFEAO'EF 03 


DO 


0038 


490 






003F 


491 






003F 


492 


00000000'EF 


16 


0047 


493 






004D 


494 




04 


004D 


495 



.ENTRY DSXSERRHARD, A M<R2, R3, R4, R5, R6, R7, R8, R9, R1 0, R1 1> 



10$: 



Incl L A Ds$GL HardErr Count 

PUSHAL l/HARDER 

BSBW RRPTERROR 

MOVL #APM$ HARDERR, - 

L a D3A$6L.MSGTYP 
Br If. Not APT 10! 
JSB L*APT_MSG 

RET 



Count this hard error 
INDICATE ERROR TYPE 
CALL ERROR REPORTING SUBRTN 
Indicate error type in mailbox 



If not running 
Else, transfer 



from APT, branch 
control to APT 



16 
CD 

CUD 

ri5D 

C08] 



[193 
[08] 
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*** ERROR Error routines 
DSXSErrPrep Routine 



[17] 
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004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
0(KE 
004E 
004E 
C04E 
004E 
OUE 
004E 
004E 
004E 
004E 
004E 
004 E 
004 E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004E 
004 E 
004 E 



497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 



+ + 



.S8TTL DSXSErrPrep Routine 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LOGS AND REPORTS THE OCCURENCE OF AN 
"ERAPREP" CALL TO THE OPERATOR AND A.P.T.. 

CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: 



FRR$„NUM(AP> 
ERRS UNIT(AP) 



- ERROR NUMBER 

= LOGICAL UNIT NUMBER 

ERR$„MSGADR(AP) = POINTER TO ASCII STRING 

ERRS POINTER(AP)= LINK TO PRINT ROUTINE 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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C17] 
C17] 
C17] 
C17D 
C17J 
C17] 
C173 
C17] 
C17] 
C17] 
H73 
[17] 
C17] 
C17] 
C17] 
C17] 
C17] 
C17] 
C17J 
[17] 

n7] 

C17] 
H7] 
C17] 
E17] 
C17] 
C17] 
C17] 
[17] 
[17] 
C17] 
C17] 
E17] 
C17] 
C17] 
[17] 
[17] 
[17] 
C17] 
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DSXSErrPrep Routine CI 73 

*** ERROR Error routines 
DSXSErrPrep Routine 





OFFC 


004E 


537 






0050 


538 


00000000 ! EF 


D6 


0050 


539 


0000002D'EF 


DF 


0056 


540 


0072 


30 


005C 


541 


0000FE40'EF OC 


00 


005F 


542 






0066 


543 






0066 


544 


00000000' EF 


16 


006E 


545 






0074 


546 




04 


0074 


547 



C17J 
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.ENTRY DSXSERRPREP, A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 



Incl L A Ds$GL PrepErr Count 

PUSHAL L*PREPER 

BS8W RRPTERROR 

MOVL #APM$ PREPERR, - 

L A D5A$GL MSGTYP 
Br Jf Not APT 10$ 
SB " l*i 



Count this device preparation error 
INDICATE ERROR TYPE 
CALL ERROR REPORTING SUBRTN 
Indicate error type in mailbox 



10$: 



J 
RET 



'APT.MSG 



If not running 
Else, transfer 



from APT, branch 
control to APT 
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C17J 

C173 
C17J 
C17D 

nn 

C193 
C17D 



ZZ-ENSAA-7,0 

ERROR 
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DSXSErrDev Routine 

*** ERROR Error routines 
DSXSErrDev Routine 



0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
C075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 
0075 



549 

550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
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++ 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LOGS AND REPORTS THE OCCURENCE OF AN 
"ERRDEV" CALL TO THE OPERATOR AND A.P.T.. 

CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: 

ERR$_NUM(AP) = ERROR NUMBER 

ERR$_UNIT(AP) = LOGICAL UNIT NUMBER 

ERR$_MSGADR(AP) = POINTER TO ASCII STRING 

ERR$_POINTER(AP)= LINK TO PRINT ROUTINE 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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*** ERROR Error routines 
DSX$ErrDev Routine 
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OFFC 


0075 
0077 


589 .ENTRY 
590 


DSX$ER 


00000000' EF 


D6 


0077 


591 


Incl 


00000019' EF 


DF 


0070 


592 


PUSHAL 


00000000' EF 09 


E2 


0083 


593 


BBSS 


00 




008A 
008B 


594 
595 




44 


10 


008B 


596 10$: 


BS88 


0000FE40 , EF 02 


DO 


008D 
0094 


597 
598 


MOVL 






0094 


599 


Br M 


00000000' EF 


16 


009C 
00A2 


600 
601 


J SB 




04 


00A2 


602 20$: 


RET 



DSX$ERRDEV, A M<R2,R3.R4,R5.R6,R7,R8.R9,R10,R11> 



L A Ds$GL DevErr_Count 
L'DEVFER 
#DS$V DEVFLG, - 
L A D5$GL_FLAGS,10$ 

RRPTERROR 
#APM$ DEVERR, - 

L A D3A$GL MSGTYP 
>t APT 205 
L X APT MSG 



Count this device error 
INDICATE ERROR TYPE 
FLAG DEVICE-FATAL 



CALL ERROR REPORTING SUBRTN 
Indicate error type in mailbox 

If not running from APT, branch 
Else, transfer control to APT 



C14] 

C15J 

C08D 
[08] 



[103 



[19] 
[08] 
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DSXSErrSys Routine 

*** ERROR Error routines 
DSX$ErrSys Routine 



00A3 
0OA3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
C0A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
00A3 
0OA3 



604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 



+ + 
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.SBTTL DSXSErrSys Routine 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LOGS AND REPORTS THE OCCURENCE OF AN 
"ERRSYS" CALL TO THE OPERATOR AND A.P.T.. 

CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: 



ERRS NUM(AP) 
ERR$IUNIT(AP) 



= ERROR NUMBER 

= LOGICAL UNIT NUMBER 

ERR$IMSGADR(AP) = POINTER TO ASCII STRING 

ERR$ - POINTER(AP)= LINK TO PRINT ROUTINE 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



_J 
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** 

DSXSErrSys Routine 



*** ERROR Error routines 
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OFFC 


00A3 


644 






00A5 


645 


OOOOOOOO'EF 


D6 


00A5 


646 


00000048'EF 


DF 


00A8 


647 


OOOOOOOO'EF OA 


E2 


0061 


648 


00 




00B8 


649 






0089 


650 


16 


10 


00B9 


651 


0000FE40»EF 01 


DC 


00GB 


652 






00C2 


653 






00C2 


654 


OQOOOQGO'EF 


16 


OOCA 
OODO 


655 
656 




04 


OODO 


657 



.ENTRY DSX$ERRSYS, A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 



10$: 



Incl 

PUSHAL 

BBSS 



L A Ds$GL SysErr Count 
L A SYSFER 
#DS$V SYSFLG, - 
L A D5$GL_FLAGS, 10$ 



20S: 



BS8B RRPTERROR 

MOVL 0APMS SYSERR, - 

L A D3A$GL MSGTYP 
Br Jf Not APT 20$ 
JSS " L*APT_MSG 

RET 



Count this system error 
INDICATE ERROR TYPE 
FLAG SYSTEM-FATAL 



CALL ERROR REPORTING SUBRTN 
Indicate error type in mailbox 

Jf not running from APT, branch 
Else, transfer control to APT 



C15J 

cos] 

[08] 



CUtt 



[19] 
C083 



ZZ-ENSAA-7,0 

ERROR 
1-7-24 



RRtpError 



Routine 

*♦* ERROR 
RfttpError 

0001 
00D1 
0001 

00D1 
O0D1 
0001 
0001 
0001 
0001 
0001 
0001 
00D1 
0001 
C001 
C001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
000 » 
00D1 
0001 
0001 
0001 



Error routines 
Routine 



659 

660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 

678 
6?9 
680 
681 
682 
683 
684 
685 
686 
687 
686 
689 
690 
691 
A9? 
693 
69<. 
695 
696 
697 

698 

699 
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FUNCTIONAL DESCRIPTION: 

THIS ROUTINE REPORTS THE ERROR MESSAGE TO THE OPERATOR, 
IT IS REACHED VIA *BSBW" FROM A SUPERVISOR ROUTINE. 

CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: 



4(SP) 

ERRS NUM(AP) 

ERRS~UNIT(AP) 



' POINTER TO ERROH TYPE STRING 

- ERROR NUMBER 

* LOGICAL UNIT NUMBER 

ERRS MSGAOR(AP) - POINTER TO ASCII STRING 

ERR$'POINTER(AP)= LINK TO PRINT ROUTINE 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION COOES: 

NORMAL RETURN IF "HAlP'ON ERROR IS NOT 5ET 

GO TO COMMAND MODfc IF "HALT 11 IS SET (IMMEDIATELY AFTER RETURN) 

SIP: EFFECTS: 

NOME 



ZZ-ENSAA-7.0 

ERROR 

07-24 



RRtpfcrror 



Routine 

*** ERROR 
RRtpError 



00000000'EF D6 



00000000'EF 

000OFE68*EF 

0QQ0FE44'EF 04 AC 



51 8E 

13 50 

00000000'EF 61 01 

00000004 'EF 04 A1 01 



00000000'EF 

OOOOFESS'EF 

50 

5? 



08 

00000075*6? 

00000000'EF 

07 

00000000'EF 

50 50 

000OFF5CEF 

82 81 

FA 50 

07 



DA 
7C 
3C 



DO 
E9 
C3 

CI 

11 

70 

3C 
BB 
7D 
3C 
9E 

90 
F5 

BA 



0001 
0001 
0007 
OOOF 
00E5 
OOEB 
OOF 3 
O0F8 
OOFB 
O0F8 
0120 
0120 
012C 
012F 
C13? 
013A 
0143 
0H3 
0H5 
0H5 
0150 
0150 
0158 
0150 
0164 
0167 
016E 
016E 
0171 
0174 
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Routine 
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701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
12? 
728 
729 
730 



RRPTF.RROR; 

1NCI 



20%: 



30$; 
40$: 



45$: 



l A DS'vGL ERRCNT 
Set ErrFIg 

CLR[ L*DS$GA CHKLPPC 

CLRQ L*DSA$GO MSGPTR 
MOVZWL ERRS NUM7AP), L A DSA$bL ERRNO 
Br Jf.Not BeTl 20$ 
$QlOW.S ,C A DS$GW TTOUT, - 

#10$ W&ITEVBLK,,,, - 
L A MS5BELL, #1 

SOS GPHARD S ERR$ UNIT(AP) , -<SP> 

MOvC <$P)* 4 R1 

BL8C RO, 30$ 

SU8L3 #1. NP$0 DEVICE <«1 >. L*G BUFQWO 

A0DL3 #1. HP$(TDEVlCE*4<R1), -" 

L A BUFQWD+4 
8R9 40$ " 

MOVQ L A QUNKDEV, L A O.BUFOWO 

MOVZWL L A 0_BUFGWD,L A OSA$GL,DEVLEN 

PUSHR # A M<R0,R1,R2> 

MOVQ 8UFQWD,R0 

movzwl rO, rO 

MOVAQ L*DSA$GT_DEVNAM,R2 

M0V8 (R1)* f (R2)* 

S08GTR R0,45$ 

POPR #*M<R0,R1,R?> 



K£EP TOTAL OF ERRORS C08J 

Set the error flag [19] 

CLEAR THE CHECK.LOOP P.C. f081 
Clear message descriptor 

Save error number-only a word C 16 J 

Skip if 'BELL 1 * flag not set C19J 

"DING" C083 



GET ADDRESS OF UUT'S P-TABLE 

INTO R1 
U NON-FXJSTENT. FAKE IT 
REDUCE COUNT BY ONE 
ADJUST POINTER (SKIP ".") 

AND PROCEED 

ELSE USE "UNK" MSG 



ro8i 
ros] 

C081 



C083 



Dev name string len to maUboxC08] 
CLOBBERED BY "ROVC3 M 



Get length/address of name 
Zero extend length 



RESTORE CLOBBERED REGISTERS 



CI 03 



ZZ-ENSAA-7.0 

ERROR 
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*** ERROR 
RRtpError 



SO 



00F3 

50 OC BC 

07 

00000074' E F 



51 



FC BD 
PC AD 



01 
OQOOOOOO'EF 

09 50 
00000000* EF 



QOOOOOOO'EF 



CI 

50 

02 
01 



10 AC 

OB 

00000000' EF 09 



30 
DE 
12 
DE 

9A 

D6 



BB 
16 

E8 
16 



OB 50 E9 



8A 
DO 

11 

BA 



D5 
13 
90 



10 BC 6C FA 



0176 
017E 
017E 
0181 
0185 
0187 
018E 
018E 
0192 
0195 
0195 
0195 
0195 
0195 
C195 
0195 
0197 
01 9D 
01 9D 
01A0 
01A6 
01A6 
01A9 
01A9 
01 A8 
01B2 
0182 
01B4 
01B4 
0186 
0186 
01B6 
0186 
0186 
0186 
0186 
0186 
01B6 
0186 
0186 
01B6 
01B6 
0186 
01FA 
01FA 
01FD 
01FF 
0206 
0206 
020A 
020A 
0212 
0212 
0212 
0212 
0212 
022E 
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732 
733 
734 
735 
736 
717 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
771 

m* 

775 

7?6 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 



50$: 



90$: 



93$: 



95$: 
96$: 



100$: 



110$: 



Br I f _ IE 1 



100$ 



BSBW DS TESTID 

MOVAL 3E&R$,.M$GADR(AP) ,R0 

8NEG 90$ 

MOVAL L A ANULL,RO 

movzbt S-4(fp), r1 

incl -4(fp) 



Inhibit level-1 flag set? 

GET TEST/SU8TEST MESSAGE. 
GET ADDRESS OF CALLER'S MS6 
PROCEED IF SPECIFIED 
Else, use a null string 

Get error type code 

And increment address past type 



Now 
use 



, check to see if CRD is running. If so, load the address of the 
r's error text into the User_Error_Text location for use by CRD. 



C08J 

[10] 

[10] 



1221 
1221 



PushR 
Jsb 

Bibs 
Jsb 

Blbc 

PopR 
MovL 

Brb 

PopR 

$PRINT 



* A M<R0> ; Save RO because it's clobbered 1221 

L A DSR$Check_MenuTest.,Off..Set; Check if Menu Test Offline bit is set 

[23] 
RO, 93$ ; If Menu Test running, branch 1221 

L A DSR$Check„AutoTest„Off,.Set; Check if Auto Test Offlinebit is set 

[23] 
No Auto Test, no Menu Test => branch 1221 



rsr L 

BEOL 
movb 

CALLG 



RO, 95$ 

* A M<R0> 
RO, - 

L A DS$GA User Error Text 
96$ 

* A M<RG> 

M, - 

*DS$K PrintF, - 
L A FMTERRHDR, - 
9*L$A NAME, - 
a*L$LlREV, - 
a#LSL UPDATE, - 
L A DSA$GL PASSNQ, - 
#DS$GQ TfSTID, - 
L A DSA$GL_ERRNO, - 
*0, - 
-4<FP), - 
*Q BUFQWD, - 
RO" 

ERR$ PCINTER(AP) 

110$ 

#ds$k_type. error body, - 

L A ds$gb typtcooe 
(AP), SERR$ POINTER(AP) 



Restore RO * MsgAdr parameter 
Move the MsgAdr parameter into a 
; ... location tor CRD. 
Go print it 

Restore RO 

Print the error message: 

printf 

format string 

diag name 

diag rev level 

diag update level 

pass number of the diagnostic 

??? 

error number 
LINE 2 



LINE 3 
... MsgAdr 



user's error text 



1221 
1221 
[20] 
1221 

1221 

1221 
1221 
[22] 
1221 
1221 
1221 
1221 
1221 
1221 



1221 



Brjf JE1 V5$ 

$print #ds$k type„error_end, - 
*dslk prmtf, - 
fmtenderror, - 
-4<fp), - 
L A dsa$gl ermo 



IS THERE A PRINT LINK ? 

NO, SKIP 

Set type code to error body 

CALL USER'S PRINT ROUTINE 

Don't print trailer if IE 1 

Print out end-of-error message 
.. use PRINTF to type it 
., •end-of-error* format 
.. Type of error 
.. and error number 



ZZ-ENSAA-7.0 

ERRf" 

07-k ■-. 



RRtpError 



Routine 

*** ERROR 
RRtpError 



32 11 



00000000'E C 10 BD 

00000000' EF 10 BO 

10 BD 03 



022E 
0236 
0238 
0238 

DE 0240 
0248 

90 0248 
0250 

90 0250 
0254 
0254 
0254 
0254 
026A 
C26A 
026A 

05 0273 



Error routines 
Routine 



789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 

8G0 
801 
802 
803 
804 
805 



115$: 



120$ J 
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Br If 

BRS " 

Set Ha 
MOVAL 

M0V8 

MOVB 
Sprint 



Halt 120$ 
RRPTERRORX 



Lt 



SCF$L PC(FP), - 
L A DS$AA bptaddr 

3CFSL PC(FP), - 
L A DS$AB bptjnst 

*BPTCODE,8CF$L_PC<FP> 

#ds$k type err^halt, 
*ds5k prTntf, - 
l*fmterrhlt, - 
cf$l„pc(fp) 



RRPTERRORX: 

OA MAIN Error Error End 
RS8 



Halt on error detection? 
NO HALT(S), RETURN 

YES HALT, SET INTERNAL FLAG 
SAVE RETURN 'PC' 

SAVE THE OPCODE LOCATED THERE 

CAUSE A BREAK TO THE M CLl M 
Print out HALT ON ERROR message 
,. Use Printf to type it 
., 'Halt on error* message format 
,, display "halt pc r ' 



,»« 



26 
(1) 

[193 



RETURN TO THE DIAGNOSTIC 



ri93 

C083 
[08] 



[10] 

no] 

i103 

[103 



L07] 



Z2-ENSAA-7.0 

ERROR 

U7-24 



OS TestID Routine 



OOOOFE50'EF 
2C 

OOOOFE^C'EF 

00 
0000008B'EF 

4D 
OOOOFEAC'EF 

00 

OOOO0OA9 , EF 

37 

00000008' EF 20 

QOOOOOOC'EF 00000010'EF 



01 
0000C008*EF 

02 
00000008' EF 



os_ 



ERROR 
TestID 



0274 

0274 

0274 

0274 

0274 

0274 

0274 

0274 

05 0274 

12 027A 

027C 

01 027C 

12 0283 

70 0285 

11 C290 
01 0292 

12 0299 
7D 0298 
11 02A6 
3C 02A8 
OE 02AF 

028A 

028A 

02BA 

05 02DF 



Error routines 
Routine 



F 15 
27-JUL-1984 Fiche 6 Frame F15 Seguence 1217 

27-JUL-1984 15:17:36 VAX-11 Macro V03-01 Page 
23-MAY-1984 14:12:11 DMA1;[SYS0.SYSMAINT3ERR0R.MAR;f09 



27 
(1) 



807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 



.S8TTL DS^TestlD Routine 
FUNCTIONAL DESCRIPTION: 

DETERMINES IF IN INiT OR CLEANUP CODE AND FORMS THE PROPER MESSAGE, 



DS_TESTiD:: 

TSTL 
BNEQ 



CMPL 

BNEQ 

MOVO 

BR8 

CMPL 

BNFQ 

MOVQ 

BR8 

MOVZWL 

MOVAL 

$FAO_S 



60$: 



70$: 



80$: 



L A OSA$GL TESTNO 
70$ 



; Test ? 

; NO, PROCEED WITH STANDARD MSG 



RS8 



L*DSA$GL SU8TN0,*1 ; Test I subtest 1 ? 

60$ ; NO, TRY NEXT 

L A QINITSEC,L A DS$GQ.TESTJD ; Yes, us** irn't section msg 
80$ ; AND PROCEED 

L A DSA$GL„SUBTNO,*2 ; Test fc subtest 2 ? 

70$ ; NO, TRY NEXT 

L A QCLEANSEC,L A DS$GQ_TESTID : Yes, use clean section msg 
80$ ; AND PROCEED 

*TESTID LEN,L*DS$GQ TESTJD ; SET UP OUAOWORD DESCRIPTOR 

L A T TESTJD,L*DS$GQ TESTID+4 ; FOR "TEST/SUBTEST" STRING 

L A orMTTESTIO,L A DS$BQ.TESTID,- ; Convert test and subtest 

L A DS$GQ TESTID,- ; numbers 

L A DSA$6C_TE$TN0,l A DSA$GL_SUBTN0 ; into ascii for output 

; RETURN, 



[083 



[083 

[08] 
[083 
[083 
[083 



ZZ-ENSAA-7.0 

ERROR 

07-24 



DS^ErrSup 



Routine 

*** ERROR 
DS_ErrSup 

02E0 

02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
C2E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
Q2E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 
02E0 



Error routines 
Routine 



833 

834 
835 
836 
837 
8j>8 
839 

840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 

868 
869 
870 
871 
872 



+ + 
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.S8TTL DS_ErrSup Routine 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LOGS AND REPORTS THE OCCURENCE OF AN 
"ERRSUP" CALL TO THE OPERATOR AND A.P.T.. 

CALLING SEQUENCE: 

CALLG ARGLIST, a*DS,ERRSUP 

OR 
CALLS #3, S0DS_ERRSUP 

INPUT PARAMETERS: 

4(AP) ERROR NUMBER 

8(AP) POINTER TO COUNTED ASCII ERROR MESSAGE STRING 
12(AP) POINTER TO COUNTED ASCII MODULE NAME STRING 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 

















H 15 


- ■ ■ — ..- — . ___ 





ZZ-ENSAA-* 


r\0 DS^ErrSup Routine 










27-JUL-1984 Fie 


he 6 Frame H15 Seguence 1219 
: 17:36 VAX-11 Macro V03-01 Pa 




ERROR 




*** 


ERROR 


Error 


routines 


27-JUL-1984 15 


ge 29 

109 (1) 


07-24 




DS.E 


rrSup 


Routine 




23-MAY-1984 14 


: 12:11 DMA1 ;[SYS0.SYSMAINT3ERf9R,MAR; 






OFFC 


O2E0 


874 


.ENTRY 


DS„ERRSUP, A M<R2,R3,R4,R5,R6,R7, 


R8,R9,R10,R1I> 


[143 








02E2 


875 














OFFF 8F 


BB 


02E2 


876 




PUSHR 


# A M<R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 






7E 


DC 


02E6 


877 




MOVPSL 


-(SP) 


; Save PSL for error typeout 






10 AD 


DD 


02E8 
02EB 


878 

879 




PUSHL 


16(FP) 


; Push return address for typeout 






0000FE44'EF 04 AC 


DO 


02E8 


880 




MOVL 


4(AP),L A DSA$GL_ERRN0 


; Error number to mailbox 






50 OC AC 


DO 


02F3 


881 




MOVL 


12<AP),R0 


; Get address of ASCJC module name 






51 80 


9A 


02F7 


882 




MOVZBL 


(R0)+,R1 


; Get length of string 






0000FE58'EF 51 


DO 


02FA 


883 




MOVL 


R1,L A DSA$GL DEVLEN 


; Move string length to mailbox 






52 0000FE5CEF 


9E 


0301 
0308 


884 
885 




MOVAB 


L A DSA$GT_DEVNAM,R2 








82 80 


90 


0308 


886 


15$: 


MOVB 


(R0)+ f (R2)+ 








FA 51 


F5 


030B 
C30E 


887 
888 




SOBGTR 


R1,15$ 








52 08 BC 


DE 


030E 


889 




MOVAL 


a8(AP),R2 


; GET OPTIONAL MSG ADDRESS 






07 


12 


0312 


890 




BNEQ 


10$ 


; SKIP U VALID 






52 00000074'EF 


DE 


0314 
0318 


891 
892 




MOVAL 


ANULL, H2 


; ELSE FAKE A MESSAGE 










031B 


893 


10$: 


$print 


0ds$k type errsup, - 


; Print Supervisor error 
; .. use PRINTF 


[103 








0318 


894 






ffdslk prTntf, - 

l a fmtErrsup, - 


[103 








031B 


895 






; , . Format 


[103 








031B 


896 






12(AP), - 


; .. force the message out 


[083 








031B 


897 






4<AP), - 


; . . number 


C103 








031B 


898 






00, - 


; ♦ , current time 


[103 








031B 


899 






R2 




C083 








0338 


900 














0000020A , EF 


9F 


0338 


901 




PUSHA8 


L A FMTERRSUP2 


; Push address of register text 


C083 




7E 01 


9A 


033E 


902 




movzbl 


#ds$k printf, -<sp> 


; . . push PRJNTF code 


C103 




FFFFFFF7 8F 


DD 


0341 


903 




push I 


#~ds$E type error body 
#17,DSR$PRlRT 


; ., and type code (sticky) 


C103 




OOOOOCOO'EF 11 


FB 


0347 
034E 
034E 


904 
905 
906 




CALLS 


; Print the error 


[103 




OOOOOOOO'EF 


DF 




PUSHAL 


L A DS$GT_VDS Version 


; ... version 


[243 




OOOOCOOO'EF 


DD 


0354 


907 




PUSHL 


L A DS$GL Flags 


; ... DS flags 


[243 




OOOOr'EOO'EF 


DD 


035A 


908 




PUSHL 


L A DSA$Gr Flags 


; ... DSA flags 


[243 




OOOOOIDO'EF 


DF 


0360 


909 




PUSHAL 


L A FmtErr5up1 


; ... format string 


C243 




7E 01 


9A 


0366 


910 




MOVZBL 


#DS$K PrintF, -<SP) 


; ... use PRINTF 


[24] 




7E 04 


98 


0369 


911 




CVT8L 


*DS$K Type ErrSup, -(SP); Print Supervisor error 


[243 




00000000' 6F 06 


FB 


036C 
0373 


912 
913 




CALLS 


*6,6 A DSXSPRINT 




C243 




52 5E 


DO 


0373 


914 




MOVL 


SP,R2 


; Copy current stack pointer 






53 08 


DO 


0376 
0379 
0379 


915 
916 
917 




MOVL 


#8,R3 


; Print several lines 


C213 




52 20 A2 


DE 


16$: 


MOVAL 


32(R2),R2 


; Point past 






51 52 


DO 


037D 
0380 


918 
919 




MOVL 


R2,R1 


; Copy 






7E 71 


7D 


0380 


920 




MOVQ 


-(R1),-(SP) 


; Push quad 






7E 71 


7D 


0383 


921 




MOVQ 


-<R1),-(SP) 








7E 71 


7D 


0386 


922 




MOVQ 


-(R1),-(SP) 








7E 71 


7D 


0389 


923 




MOVQ 


-<R1),-(SP) 








51 


DD 


038C 


924 




PUSHL 


R1 


; Address of stack 






0000029B'EF 


9F 


038E 


925 




PUSHAB 


L A FMTERRSUP3 


; Edit text 


C083 




7E 01 


9A 


0394 


926 




movzbl 


#ds$k_printf ,-(sp) 


; Use PRINTF 


[18] 




71 09 


98 


0397 


927 




cvtbl 


#ds$k type error body,* 1 
#12, B a 6sx5print 


(sp) 


[183 




OOOOOOOO'GF OC 


FB 


039A 


928 




CALLS 


; print it 


[18] 




D5 53 


F5 


03A1 
03A4 


929 
930 




SOBGTR 


R3J6$ 


; Count and continue 





ZZ-ENSAA-7.0 

ERROR 

07-24 



DS,ErrSup 



Routine 

*** ERROR 
DS ErrSup 



04 AC DD 

0000005C*EF 9F 

00000162'EF 9F 

01 OD 

OA DD 

00000000' GF 05 F8 

OOOOFEOO'EF 01 D3 

2A 13 



00000000' EF 10 BD 

OOOOOOOO'EF 10 BD 

10 BD 03 



DE 
90 
90 



0000FE40'EF 05 
00000000' EF 



DO 
D6 



00000000' EF 16 
04 



03A4 
03A7 
03AD 
03B3 
03B5 
03B7 
03BE 
03C5 
03C5 
03C7 
03C7 
03CF 
03D7 
03DB 
C3D8 
03DB 
03DB 
03F1 
03F1 
03F1 
03F8 
03FE 
0406 
040C 
040C 



Error routines 
Routine 

931 pushl 

932 pushab 

933 pushab 

934 pushl 

935 pushl 

936 calls 

937 BITL 
938 

939 BEQL 
940 

941 MOVAL 

942 • MOVB 

943 MOVB 

944 SPRINT 
945 

946 
947 
948 

949 DSERRSUPX: 

950 MOVL 

951 Jncl 

952 Br If. 

953 JSB 
954 

955 10$: RET 
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4(ap) 

L A ersuper 

L A fmtenderror 

*ds$k_printf 

#ds$k type error end 

#5, G*dsx$print 

#DSA$M HALT, - 

L A DSA$GL..FLAGS 
DSERRSUPX 

316(FP),L A DSSAA 8PTADDR 
316(FP),L A DS$AB"8PTINST 
*BPTC0DE,316(FP7 
0ds$k type err halt, - 

#ds$k prTntfT - 

L a FMTERRHLT, - 

16CFP) 



Set up for PRINT error number 
'Supervisor detected error* 
use end of error format 
use PRINTF 
print end of error 
print it 



Halt on detection or isolation? 
Branch if not 

SAVE RETURN 'PC 1 

SAVE THE OPCODE LOCATED THERE 

CAUSE A BREAK TO THE "CU M 

Print error halt message 

.. use PRINTF 

. . error halt format 

. . display halt PC 



C103 
C10D 
C10J 
C10J 

[10] 
[10] 
[09] 



[08] 
[08] 

[10] 

no] 

[103 
C08D 



#APM$ PRGERR,L A DSA$GL..MSGTYP ; Indicate .rror type in mailbox 
L A Ds$GL_ErrSup,Count ; Count this err., [15] 

Not APT 10$ ; If not running from APT, branch [19] 

L*APT_MSG ; Eire. \ ansfer control to APT [08] 



22-ENSAA-7.0 

ERROR 
07-24 



DSRSCompletion Routine 

*** ERROR Error routines 
DSRSCompletion Routine 



J 15 
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040D 


957 


040D 


958 


040D 


959 


040D 


960 


040D 


961 


040D 


962 


040D 


963 


040D 


964 


040D 


965 


040D 


966 


040D 


967 


040D 


968 


040D 


969 


040D 


970 


C40D 


971 


040D 


972 


040D 


973 


0400 


974 


040D 


975 


040D 


976 


040D 


977 


040D 


978 


040D 


979 


040D 


980 


040D 


981 


040D 


982 


040D 


983 



++ 



.S8TTL DSRSCompletion Routine 



FUNCTIONAL DESCRIPTION: 

This routine can be called unconditionally to print 

the text for a given error code. It returns immediately 

if R0 does not indicate an error 

CALLING SEQUENCE: 

BS8B DSRSCOMPLETION 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: 

R0 Contains the Completion code to be translated and typed 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
COMPLETION CODES: 
SIDE EFFECTS: 



NONE 
NONE 
NONE 
NONE... ALL REGISTERS ARE LEFT INTACT 



ZZ-ENSAA-7.0 

ERROR 

07*24 



DSRSCompletion 



Routine 
*** ERROR Error routines 
DSRSCompletion Routine 



K 15 
27-JUL-1984 Fiche 6 Frame K15 Seguence 1222 

27-JUL-1984 15:17:36 VAX-11 Macro V03-0T Page 32 
23-MAY-1984 14:12:11 DMA1 :[SYS0.SYSMAiNT]ERROR.MAR;109 (1) 









040D 


985 


DSRSCOMPLETION: 


• 






01 


50 


E9 


040D 


986 




BLBC 


RO,10$ 


Continue only if error 








05 


0410 
0411 


987 
988 


10$: 


RSB 




Return since not in error 






1F 


B8 


0411 


989 




PUSHR 


# A M<R0,R1,R2,R3,R4> 


Save working registers 




54 


5E 


DO 


0413 
0416 


990 
991 




MOVL 


SP,R4 


Copy current stack pointer 






50 


OD 


0416 


992 




PUSHL 


RO 


Last arg is actual return 




5? 


50 


DO 


0418 
041B 


993 
994 




MOVL 


R0,R2 


Save uncut code 




50 


07 


CA 


041B 


995 




BJCL 


#7,R0 


Clear level bits 




53 000002F0 


•EF 


9E 


041E 


996 




MOVAB 


L A ERROR CODES, R3 


Point to table of error codes 


[08] 




61 


10 


0425 


997 




BSBB 


80$ 


Locate error text 




1 000003A4'EF41 


3E 


0427 


998 




MOVAW 


L A ERR0R TEXT[R1],R1 


Get offset to error text 


C08J 


7E 


61 


3C 


042F 


999 




MOVZWL 


<R1),-(3P) 


Push offset to error text 




6E 


51 


CO 


0432 
0435 


1000 
1001 




ADDL 


R1,(SP) 


And make it absolute 




51 52 02 


01 


EF 


0435 


1002 




EXTZV 


#M2,R2,P1 


Get severity 




00000894'EF41 


9F 


043A 


1003 




PUSHAB 


L A SEVERITY[R1] 


Push address of severity 


C08D 




01 


DD 


0441 
0443 


1004 
1005 




PUSHL 


#1 


String length=1 




50 52 0C 


10 


EF 


0443 


1006 




EXTZV 


#16,*12,R2,R0 


Get facility code 

Point to table of utilities 




53 000002C5 


'EF 


9E 


0448 


1007 




MOVAB 


L A UTILJTY^CODES,R3 


C08] 




2A 


10 


044F 


1008 




BSBB 


50$ 


Locate name of utility 




1 000002D5'EF41 


3E 


0451 


1009 




MOVAW 


L A UTJLJTY TEXT[R1],R1 


Get offset to error text 


C08] 


7E 


61 


3C 


0459 


1010 




MOVZWL 


<R1),-(SPy 


Push offset to error text 




6E 


51 


CO 


045C 
045F 


1011 
1012 




ADDL 


R1,(SP) 


And make it absolute 




000002AC 


»EF 


9F 


045F 


1013 




PUSHAB 


L A T ERROR MASK 


Push address for edit string 


C08] 


71 


01 


9A 


0465 


1014 




movzbl 


#ds$k_printf, -<sp) 


Use PRJNTF 


[103 


7E 


03 


9A 


0468 


1015 




movzbl 


0ds$k type general error. 


-(sp) ; And general error code 


[10] 


54 


5E 


C2 


046B 


1016 




SUBL 


SP,R4' 


Bytes used by args 




54 


04 


C6 


046E 


1017 




DJVL2 


*4,R4 


Longwords 




00000000 'GF 


54 


F8 


0471 
0478 
0478 


1018 
1019 
1020 




CALLS 


R4, G A DSX$PRJNT 


Type the error text 


C10] 




IF 


BA 




POPR 


# A M<R0,R1,R2,R3,R4> 


Restore 








05 


04 7A 
04 7B 


1021 
1022 


50$: 


RSB 




Return 




51 


63 


DO 


04 7B 


1023 




MOVL 


(R3),R1 


Get length of table 




6341 


50 


D1 


047E 


1024 


60$: 


CMPL 


RO f (R3)[R13 

70i 


Is this it? 


[123 




03 


13 


0482 


1025 




BEQL 


Copy text address and return 




F7 


51 


F5 


0484 


1026 




SOBGTR 


R1,60$ 


Count and continue 








05 


0487 
0488 
0488 
0488 


1027 
1028 
1029 
1030 


70$: 
80$: 


RSB 




Return 




51 


63 


DO 


0488 


1031 




MOVL 


<R3>,R1 


Get length of table 




7E 6341 


07 


CB 


048B 


1032 


90$: 


bfcl3 


nl. (r3)[r1], -(sp) 


Clear out low bits 


[123 


8E 


50 


D1 


0490 


1033 




CMPL 


RO. (sp)+ 

106$ 


Is this it? 


£123 




03 


13 


0493 


1034 




BEQL 


Copy text address and return 




F3 


51 


F5 


0495 


1035 




SOBGTR 


R1,90$ 


Count and continue 








05 


0498 
0499 


1036 
1037 


100$: 


RS8 
♦ END 




Return 
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SSARGS 




= 00O0O00A 


D 




DSSK 


$SN 




= 00000002 


D 




DSSKl 


SST1 




= 00000001 


D 




DSSK 


SST2 




= 00000005 


D 




DS$K, 


ANULL 




00000074 


R D 


03 


DSSK, 


APCS ABORT 




= 00000006 


D 




DSSK 


APCS~CONTINUE 




= 00000009 


D 




DSSK, 


APC$~DUMP 




= 00000003 


D 




DSSK, 


APCS'NOP 




= 00000000 


D 




DSSK 


APCS"START 




= 00000005 


D 




DSSK 


APCS_ZERO 




- 00000004 


D 




DSSK" 


APMS,ABTDON 




= 00000006 


D 




DSSKl 


APMS.DEVERR 




= 00000002 


D 




DSSK, 


APM$ DONE 




= OOOOOOOA 


D 




DSSK, 


APhS~EXCEPT 




= OOOOOOOB 







DSSK 


APMSlHARDERR 




= 00000003 


D 




DSSK 


APMS.MORE 




= 00000008 


D 




DSSK, 


APMSJJOMES 




= 00000000 


D 




DSSK, 


APMS PREPERR 




= OOOOOOOC 


D 




DSSK 


APM$~PRGERR 




= 00000005 







DSSK, 


APMS'SOFTERR 




= OOOOOOOA 


D 




DSSK, 


APMS~SP00L 




= 00000009 


D 




DSSK 


APMS~SY$ERR 




= 00000001 


D 




DSSK" 


APT RSG 




******** 


X 


04 


DSSK 


bit:.. 




= 00000004 


D 




DSSKl 


BPTCODE 




= 00000003 


D 




DSSK, 


CF$L AP 




00000008 


D 




DSSK 


CF$L~FP 




OOOOOOOC 


D 




DSSK, 


CFSL^ONCOND 




00000000 


D 




DSSK, 


CFSL PC 




00000010 


D 




DSSK 


CF$l~REG 




00000014 


D 




DSSK 


CFSWJ1ASK 




00000006 


D 




DSSK" 


CFSW PSW 




00000004 


D 




dssk; 


devfFr 




00000019 


R 


03 


DSSK, 


DSSAA BPTADDR 




* ******* 


X 


04 


DSSK, 


dssabIbptinst 




******** 


X 


04 


DSSK, 


DSSGA CHKLPPC 




****** ** 


X 


04 


DSSK. 


DSSGA~USER ERROR TEXT 


******** 


X 


04 


DSSK. 


DSSGB-TYPECODE 




******** 


X 


04 


DSSK, 


DSSGL'DEVERR COUNT 


* ******* 


X 


04 


DSSK. 


DSSGL'ERRCNT"" 




******** 


X 


04 


DSSK„ 


DSSGL~ERRSUP COUNT 


******** 


X 


04 


dssm; 


DSSGL'FLAGS " 




******** 


X 


04 


DSSM. 


DSSGL HARDERR 


COUNT 


******** 


X 


04 


DSSM. 


dssgiTpreperr; 


"COUNT 


******** 


X 


04 


DSSM. 


DSSGL SOFTERR 


COUNT 


******** 


X 


04 


DSSM 


DS$GL"SYSERR COUNT 


******** 


X 


04 


DSSM" 


DSSGPRARD 




* ******* 


X 


04 


dssm; 


DS$GQ_TFSTID 




00000008 


RG D 


02 


DSSM. 


DSSGT_VDS VERSION 


******** 


X 


04 


DSSM. 


DSSGW TTOOT 




******** 


X 


04 


DSSM 


dssk Error 




= 00000002 


D 




dssm; 


dssk'normal 




= 00000001 


D 




DSSM 


USSK'PRINTB 




= 00000002 


D 




dssm; 


DSSK^PRINTF 




= 00000001 


D 




DSSM 


PSSK PRINT] 




= 00000000 


D 




dssm; 


DS$K~PRINTX 




= 00000003 


D 




DSSM 



L 15 
27-JUL-1984 Fiche 6 Frame L15 Sequence 1223 

27-JUL-1984 15:17:36 VAX-1 I Macro V03-01 Page 33 
23-MAY-1984 14:12:11 DMA1 :CSYS0.SYSMAIMTJERR0R.MAR;109 (1) 

SEVERE 

SUBSYS 

TYPE ABORT PROGRAM 

TYPElABORT'TEST 

TYPE,COMMARD,ERR 

TYPE COMMAND OUT 

TYPElCRD AUTOTEST 

type ds Prompt 
type.ds start 
tvpejrRdev 
type,errhard 
type crror body 

TYPElERROR"*END 

TYPE ERRPRFP 

TYPElERRSOFT 

TYPE ERRSUP 

TYPElERRSYS 

TYPE.ERR HALT 

TYPE.EXCEPTION 

TYPE,EXCbPTION HEAD 

TYPEJIRST PASS 

TYPE,GENER*L 

TYPE,GENERAL ERROR 

TYPE NO TESTS 

TYPE>ARAM ERROR 

TYPE,PR06R*M END 

TYPE,PROGRAM~JNFO 

TYPEJ>ROGRAM START 

TYPE,QIO,INV*DP 

TYPE_QIO,NODRJVER 

TYPE,QIO URONGVER 

TYPE,SCRTPT ECHO 

TYPE SCRIPT'PNF 

TYPE SCRIPT'PROMPT 

TYPElSCRIPT^SKIP 

TYPE,SEQUENCE ERROR 

TYPE,START ERR 

TYPE,START"LIST 

TYPE SUMMARY 

TYPE USER PROMPT 

WARNING 

ABRTFLG 

BADTIME 

BATCH 

BRKCLR 

BRKPT 

CHARFLG 

CMDFLG 

CTRLC 

CTRLO 

DEVFLG 

DISABLCC 

DONFLG 

ERRFLG 

EXCEPT 

EXETST 

HLTFLG 



00000004 


D 


00000066 


D 


00000014 


D 


00000013 


D 


00000015 


D 


00000016 


D 


0000001A 


D 


00000001 


D 


0000001 D 


D 


00000008 


D 


00000006 


D 


00000009 


D 


OOOOOOOA 


D 


00000018 


D 


00000007 


D 


00000004 


D 


00000005 


D 


OOOOOOOD 


D 


OOOOOOOC 


D 


OOOOOOOB 


D 


00000011 


D 


OOOOOOOO 


D 


00000003 


D 


00000012 


D 


0000001 C 


D 


00000010 


D 


00000017 


D 


OOOOOOOF 


D 


00000024 


D 


00000022 


D 


00000023 


D 


00000021 


D 


0000001 E 


D 


00000020 


D 


0000001 F 


D 


00000019 


D 


00000018 


D 


00000025 


D 


OOOOOOOE 


D 


00000002 


D 


OOOOOOOO 


D 


00000040 


D 


00100000 


D 


00400000 


[> 


00001000 


D 


00000800 


D 


00000100 


D 


00000080 


D 


00000001 
00010000 


D 


D 


00000200 
01000000 


D 


D 


00002000 


D 


00000010 
00080000 


D 


D 


00040000 


D 


00000008 


D 
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(1) 


DSSM LODFLG 


= 00000002 


D 


DSS.KRNLSTK 




= 00660090 


D 






DSSM MEMMGT 


= 00008000 


D 


DSS LOGIC 




= 00660070 


D 






DSSMJHJTPUT 


= 00800000 


D 


DSS"MCHK 




= 00660088 


D 






DSSM.RUBFLG 


= 00000020 


D 


DSSHMOFF 




= 00660058 


D 






DSSM SCRIPT 


= 00200000 


D 


DSSJJEEDUNIT 




= 006600F8 


D 






DSSM'SETIMR 


= 02000000 


D 


DSS NODE 




= 00660128 


D 






DSSM^STRFLG 


= 00000004 


D 


DSSJJOPCS 




= 00660110 


D 






DSSM_SUBT 


= 00004000 


D 


DSS NORMAL 




= 00660001 


D 






DSSM_SYSFLG 


= 00000400 


D 


DSS NOSUPPORT 




= 00660081 


D 






DSSMJ1MRON 


= 00020000 


D 


DSS'NOTDON 




= 00660030 


D 






DSSV^ABRTFLG 


= 00000006 


D 


DSSJJOTIMP 




= 006600B0 


D 






DSSV BADTIME 


= 00000014 


D 


DSS.NULLSTR 




= 00660010 


D 






DSSV~BATCH 


= 00000016 


D 


DSS^OVERFLOW 




= 00660008 


D 






DSSV~BRKCLR 


= oooooooc 


D 


DSS POWER 




= 00660098 


D 






DSSV BRKPT 


= OOOOOOOB 


D 


DSS PROGERR 




= 00660020 


D 






OSSV^CHARFlG 


- 00000008 


D 


DSSlSEVERE 




= 00660004 


D 






DSSV CMDFLG 


= 00000007 


D 


DSS TRANSL 




= 006600A0 


D 






DSSV CTRLC 


= 00000000 


D 


DSS^TRUNCATE 




= 00660028 


r 

-< 






DSSV"CTRLO 


= 00000010 


D 


DSS_UNEXPINT 




= 006600D8 


D 






DS$VJ)EVFLG 


= 00000009 


D 


DSSJ/ASFULL 




= 00660048 


D 






DSSV^DISABLCC 


* 00000018 


D 


DSS WARNING 




= 00660000 


D 






DSSV DONFLG 


= OOOOOOOD 


D 


DSAJAL aptmajl 




OOOOFEOO 


D 






DSSV'ERRFlG 


= 00000004 


D 


DSASAT APTTX7 




OOOOFAOO 


D 






DSSV'EXCEPT 


= 00000013 


D 


DSASGL.APTCOM 




0000FE04 


D 






DSSVlEXETST 


- 00000012 


D 


DSASGL^DEVLEN 




OO00FE58 


D 






DSSV HLTFLG 


= 00000003 


D 


DSASGL ERRNO 




0000FE44 


D 






DSSV'LODFLG 


= 00000001 


D 


DSASGL^EVENT 




0000FE48 








DSSVJiEMMGT 


= OOOOOOOF 


D 


DSASGL.FLAGS 




OOOOFEOO 


D 






DSSV^OUTPUT 


= 00000017 


D 


DSASGLJ1SGTYP 




0000FE40 


D 






DSSV RUBFLG 


- 00000005 


D 


DSASGL^PASSES 




0000FE08 


D 






DSSV.StRIPT 


= 00000015 


D 


DSASGL PASSNO 




0000FE54 


D 






DSSV SETIMR 


= 00000019 


D 


DSASGL^SECTNO 




0000FE10 


D 






DSSV~STRFLG 


= 00000002 


D 


DSA$GL„SID 




O000FE14 


D 






DSSVlSUBT 


= OOOOOOOE 


D 


DSASGL SUBTNO 




OO00FE4 


D 






DSSV SVSFLG 


= OOOOOOOA 


D 


DSASGL TESTNO 




OO0OFE5O 


D 






DSSVlTIMRON 


* 00000011 


D 


DSASGL JJNITS 




OOOOFEOC 


D 






DSS XRITH 


= 006600D0 


D 


DSASGQ MSGPTR 




OO0OFE68 


D 






DSSJ\SBE 


= 00660118 


D 


DSASGT~DEVNAM 




0000FE5C 


D 






DSS BADLINK 


= 006600F0 


D 


dsasm Rait 




= 00000001 


D 






DSS"BADTYPE 


* 006600E8 


D 


DSASVlAPT 




= 0000001 F 


D 






DSS^BIIC 


= 00660120 


D 


DSASV BELL 




= 00000003 


D 






DSS.CHME 


= 006600A8 


D 


DSASV.HALT 




= 00000000 


D 






DSS..CHMK 


= 006600E0 


D 


DSASV IE1 




= 00000004 


D 






DSS„DEVNAME 


= 00660108 


D 


DSERR5UPX 




000003F1 R 


D 


04 




DSS ERROR 


= 00660002 


D 


DSQA$KJ>ISPAT_AFTER INIT 




= 00000014 
= 00000013 


D 






DSSlfHWE 


= 00660068 


D 


dsqask_dispat_beforE init 




D 






DSS FRAGBUF 


= 00660080 


D 


dsqask^dispat.callteSt 




s 00000015 


D 






DSS'ICBUSY 


= 006600C8 


D 


dsqa$kj>ispat_done tests 




-- 00000018 
= 00000001 


D 






DSS ICERR 


= 006600C0 


D 


DSQASK DISPAT_DSX$FNDPASS„ 


BGN 


D 






DSSllHWE 


= 00660060 


D 


DSGA$K~DISPAT DSXSENDPASS 


END 


= 00000002 


D 






DSS ILLCHAR 


= 00660018 


D 


DSQASK^DISPAT'DSXSENDPASS" 


MID 


= 00000000 


D 






DSS'ILLPAGCNT 


- 00660078 


D 


DSOASK DISPAT^DS CLEANUP BGN 


= 00000003 


D 






DSS^ILLUNIT 


- 00660100 


D 


DSQASOISPAT DS^CLEANUPIEND 


* 00000004 
= 00000007 


D 






DSS INSFMEM 


5 00660050 


D 


DSQASK DUMMY T 




D 






DS$"*IPL?HI 


= 00660038 


D 


DSQASK"ERR0R*"ERR0R BGN 




= 00000006 


D 






DSS'IVADDR 


* 00660040 


D 


DSQASK"ERROR~ERROR~END 




= 00000005 


D 






DSSIIVVECT 


= 00660038 


D 


dsqask;kerneE jni r context 




= 00000008 


D 
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DSQASK LOOP DSXSBGNSUB 

DSQA$KlLOOP~DSXKKL00P 

DSQASK LOOP DSXSENDSUB 

DSQASK PARAFi DSXSGETADDRESS 

DSQASK>ARAMlDSX$GETDATA 

DSQASK PARAM DSXSGETLOGI CAL 

DSQASK""PARAM~D5XSGETSTRING 

DSQASK>ARAM~DSXSGETV1ELD 

DSQASK~QA DSXSBRANCH 

OSQASKlSTSRT^BEFORE HEADER 

DSQASK. START^VRRESTART 

DSQASK START VRSTART 

DSRSCHECK AUTOTEST OFF SET 

DSRSCHECK"MENUTEST'"OFF*'SET 

DSRSCOMPLfTION " " 

DSXSERRDEV 

DSXSERRHARD 

DSXSERRPREP 

DSXSERRSQFT 

DSXSERRSYS 

DSXSPRINT 

DS ERRSUP 

DS~TESTID 

ERRS MSGADR 

ERRS'NARGS 

FRRS'UUM 

ERRt ! 

ERRS ,' 

ERRS P5 

ERRS~P4 

ERRS"P5 

ERRS~P6 

ERRS"POINTER 

ERRS'UNIT 

ERROR..CODFS 

ERROR TEXT 

FRSUPfR 

FMENDERROR 

FMTERRHDR 

FMTERRHLT 

FMTERRSUP 

FMTERRSUP1 

FMTERRSUP? 

FMTERRSUP3 

HARDER 

HPSA DEPENDENT 

HPSA~DEVICE 

HPSA~DVA 

HP$A"LINK 

HPSB"DRIVE 

HPSB~FLAGS 

HPSQ'DEVICE 

HPSTDEVICE 

HPSTTYPE 

HP$W~SIZE 

HP$W" VECTOR 

IO$J}RITEV8U 



00000009 
O00OO00B 
OOOOOOOA 
OOOOOOOE 
OOOOOOOC 
OOOOOOOF 
00000010 
OOOOOOOD 
00000011 
00000017 
00000012 

00000016 

******** 
******** 

O000C40D 
00000075 
00000027 
0000004E 
00000000 

000000A3 

******** 

000002E0 
00000274 
OOOOOOOC 
OOOOOOOA 
OOOOOOOA 
00000014 
00000018 
0000001 C 
00000020 
00000024 
00000028 
00000010 
00000008 
000002FO 
000003A4 
C000005C 
00000162 
OOOOOOFF 
OOOOOODD 
00000191 
OOOOOIDO 
0000020A 
U000029B 
00000001 
00000032 
00000018 
0000001 C 
00000020 
00000008 
OOOOOOOA 
00000000 
OOOOOOOC 
00000026 
00000008 
00000024 
******** 



R 



04 
04 



RG D 04 
RG D 04 
RG D 04 
RG D 04 
RG D 04 
RG D 04 
X 04 
RG D 04 
RG D 04 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



03 
03 



R 

R 

R 

R 

R 

R 

R 

R 

R D 03 

R D 03 



D 03 

D 03 

D 03 

D 03 

D 03 

D 03 



03 



04 
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LSA CCP 

LSA~DEVP 

LSA^DREG 

LSA DTP 

LSA~ICP 

LSA LASTADR 

LSA NAME 

LSAIREPP 

LSA SECNAM 

LSA STATAB 

LSA~TSTCNT 

LSLlENVIRON 

LSL ERRTYP 

LSLlHEADLENGTH 

LSL^REV 

LSLJJNIT 

LSL UNUSED 

LSL UPDATE 

MSGBELL 

PREPER 

QAShAIN 

QCLEANSEC 

QFMTTESTID 

QINJTSEC 

QUNKDEV 

Q 8UFQWD 

RflSS ACC 

RMSS'CCR 

RMSS~DE*' 

RMSS~DME 

RMSS'DNF 

RMSS^EOF 

RMSSJAB 

RMSS FNF 

RMSS'FNM 

RMSS'IFJ 

RMSS^IOP 

RMSS JRC 

RMSSIISI 

RMSS.RAB 

RMSS RER 

RMSS RFA 

RMSS'RTB 

RRPTERROR 

RRPTERRORX 

SEVERITY 

SJZ... 

SOFTER 

SSS^ACCVIO 

SSS CTRLERR 

SSS'NOSUCHDEV 

SSS~N0SUCHFRE 

SYS?FAO 

SYSSQiOW 

SYSFER 

TESTID LEN 

T ERROR MASK 



00000240 









0000021C 




D 




00000224 




D 




00000218 




D 




0000023C 




V 




00000214 




D 




00000208 




D 




00000244 




D 




00000250 




D 




00000248 




D 




00000254 




D 




00000204 




D 




0000024 C 




D 




00000200 




D 




0000020C 




D 




00000220 




D 




00000228 




D 




00000210 




D 




00000000 


R 


D 


03 


0000002D 


R 


D 


03 


******** 




X 


04 


00000OA9 


R 


D 


03 


OOOOOOCO 


R 


D 


03 


0000008B 


R 


D 


03 


00000075 


R 


D 


03 


00000000 


R 


D 


02 


= 0001 C002 




D 




= 00018494 




D 




= 000184C4 




D 




= 0001 84D4 




D 




= 0001 C04A 




D 




= 0001 827A 




D 




= 0001850C 




D 




- 0001829? 




D 




= 0001852C 




D 




= 00013564 




D 




= 00016574 




D 




= 0001857C 




D 




= 00018584 




D 




= 0001 863C 




D 




= 000U0F4 




D 




= 0001865C 




D 




= 000181A8 




D 




0O00OOD1 


R 


D 


04 


0000026A 


R 


D 


04 


00000894 


R 


D 


03 


= 00000001 




D 




OOOOOOOD 


R 


D 


03 


******** 




X 


03 


******** 




X 


03 


******** 




X 


03 


******** 




X 


03 


******** 




X 


04 


******** 


GX 


04 


00000048 


R 


D 


03 


= 00000020 




D 




000002AC 


R 





03 
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00000010 R D 02 
Q00002C5 R 03 
00000505 R D 03 
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PSECT n^fne 

. ABS . 
SA8SS 

WORK 

DATA 
-ODfc 



! Psect synopsis ! 

Allocation PSECT No. Attributes 

C0OC0OO0 ( 0.) 00 ( 0.) NOPIC USR 

00O0FF7O (65136.) 01 ( 1.) NOPIC USR 

00000030 ( 48.) 02 ( 2.) NOPIC USR 

00000898 ( 2200.) 03 < 3.) NOPIC USR 

00000*99 (1177,) 04 I 4,) NOPIC USR 



CON 


ABS 


LCt 


NOSHR 


NOEXE 


NORO 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCI 


NOSHR 


EXE 


RD 


WRT 


NCVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RO 


WRF 


NOVEC 


LONG 


CON 


REL 


LCL 


5HR 


NOEXE 


RC 


NOWRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


EXE 


RO 


NOWRT 


NOVEC 


BYTE 
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Cross reterence 



*** ERROR Error routines 



■ YM6QL 



VSARGS 


SSN 




ssn 




SST2 




AVUL l 




A^C* 


ABORT 


A»'C* 


CONTINUE 


A^CS 


DUMP 


APCt 


NOP 


APCS 


START 


APCS 


ZERO 


APMS 


ABTDON 


APMS 


DEVERR 


APMS 


'DONE 


APMS 


EXCEPT 


APMS 


HARDERR 


APMS 


"MORE 


APMS 


NOMES 


APMS 


PREPERR 


APMS 


PRGERR 


APMS 


SOF TFRR 


APMS 


"SPOOL 


APMS 


SVSERR 


APT RSG 



Bit... 

BPTCODE 

cFSi.rc 

devfFr 

dssaa bptaddr 

ossasibptinst 

ossga chklppc 

dssga~user error rpx 

ossce'TvPErooE ' 

DS$GL~DEV£RR COUMT 

DSSGl'ERRCNT' 

D SSGL IE RP SUP. COUNT 

DSSGl. FLAGS 

DSSGl HARDERR COUNT 

DSSGi;pREPERR;COUN r 

DSSGl SOF TERR COUNT 

DSSGL^SYSERRjOUNT 

dssgpBard 

DSSGQ.TESTiD 

TSSGT.VDS VERSION 
DSSGW TTOOT 
DSSK fRROR 
DSSk'NORMAl 
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VALUE 

00OOO0OA 
=00000002 

00000001 
=00000005 
00000074 

^00000006 
=00000009 

00000003 

oooooooo 

=00000005 
=00000004 
=00000006 
=0000000? 
OOOOOOOA 
00000008 
= 00000003 
00000008 
=00000000 
:00OO0OOC 
=00000005 
=00000004 
=00000009 
rOOOOOOOl 
OOOOOOOO 



-R 



-XR 



00000004 

=00000003 

00000010 

0000001 9-R 

C0000000-XR 

00000000-xR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000008-R 

00000000-XR 
00000000-XR 
=00000002 
=00000001 



Symbo 



DEFINIT 



159 
947 

7 10 
830 
201 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
155 
753 
153 
153 
153 



163 
150 

190 



174 



157 
157 



Cross Reference 



ON 



(!) 



(1) 



■ t ) 



REFERENCES... 






159 (1) 




774 (1) 


787 


(1) 


947 (1) 






159 (1; 


710 


(1) 


830 (1) 






737 (1) 


891 


(1) 



#-597 



#-490 



#-542 
#-950 

#-439 

#-652 

44? 

655 

154 

#-797 

793 

592 

#-794 

#-796 

#-704 

#-757 

#-?79 

#-591 

#-702 

#-951 

594 

#-487 

#-539 

#-4 36 

#-646 

712 

#-774 

#-827 

906 

#-710 



m 



d) 



(i) 
(i) 

(t) 

(i) 
(i) 
d) 
(i) 
en 
in 
(i) 
(D 
(i) 
(i) 
d) 
(i) 
(i) 
en 
(i) 
(U 
(i) 
en 
en 
<i) 
(i) 
d) 
(i) 



493 

953 

155 

#-943 

#-795 

#-941 

#-942 



649 



#-820 
830 



801 



(1) 



899 



(1) 



(1) 
(1) 
(1) 
(1) 
(1) 

(1) 
(1) 



545 

157 

#-797 



<1> 

(1) 
(1) 



600 (1) 

163 (1) 

#-801 (1) 



(1) 



703 



U) 



#-907 



(1) 



(1) 

(1) 



#-824 



(1) 



#-826 



(1) 



Cross reference 



ZZ-ENSAA-7.Q 

ERROR 

Cross reference 

DSSK PRINTB 
0S$K>RINTF 



dssk pr1nti 

dssk~printx 

dssk~severe 

ossk^subsys 

dssk type abori program 

0ssk"type"abort"test 

dssk""type"commaRd err 

dssk^type^command^out 

ds$k'type"crd autotest 

dssk~type"ds prompt 

DSSK'TYPE'DS'START 
DSSk"TYPE~ERRDEV 

dssk"typf"errhard 

dssoype'error body 
dssk~type~errqr~eno 
dssk^type^errprep 
dssk type errsoft 
dssk~type~errsup 
dssk'type'errsys 
dssk type.err halt 
dssk'type exception 
dssk'type'exception head 
dssk**type"f1rst pass 

dssk'type'generSl 
dssk~type~general ERROR 
dssk~type"no test? 

DSSK'TYPE'PARAM ERROR 

dssk~type~progr*m end 
dssk~type~prograaf info 
dssk~type~pr0gram"*sta9t 
dssk"type**qio.,inv«dp 
dssk'type qio nodrivfr 

DSSK~TYPE"QI0'WR0NGVER 

dssk"type"scrTpt_echo 

dssk~type~scrjpt pnf 

dssk~type"scrjpt'prqmpt 

dssk'type'script'skip 

dssk"type"sequenCe error 

dssk"type~start ERR 

dssk"type"start'list 

dssk*"type~summaRy 

dssk~type"user prompt 

dssk'warnTng " 

pssm'abrtflg 

dssm baotime 

dssm~batch 

dssm"brkclr 

dssm"brkpt 

dssm'charfig 

dssm^cmdflg 

dssm.ctrlc 

dssm ctrlo 

dssm'devflg 
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=00000002 


163 


=00000001 


163 


=00000000 


163 


=00000003 


163 


=00000004 


157 


=00000066 


157 


=00000014 


163 


=00000013 


163 


=00000015 


163 


=00000016 


163 


=0000001A 


163 


=00000001 


163 


=00000C1D 


163 


=00000008 


163 


=00000006 


163 


=00000009 


163 


=O0OOOO0A 


163 


=0000001B 


163 


=00000007 


163 


=00000004 


163 


=00000005 


163 


=00000000 


163 


=0000000C 


163 


=00000008 


165 


=00000011 


163 


-oooooooo 


163 


=00000003 


163 


=0000001? 


163 


=0000001 c 


163 


=00000010 


163 


=00000017 


163 


=OOOOO0OF 


163 


=00000024 


163 


=00000022 


163 


=00000023 


163 


=00000021 


163 


=0000001 E 


163 


=00000020 


163 


=0000001 F 


163 


=00000019 


163 


=00000018 


163 


=00000025 


163 


=0000000E 


165 


=00000002 


163 


=00000000 


157 


=00000040 


154 


=00100000 


154 


=00400000 


154 


=00001000 


154 


=00000800 


154 


=00000100 


154 


=00000080 


154 


=00000001 


154 


=00010000 


154 


=00000200 


154 



#-1014 


(1) 


#-774 


(1) 


#-787 


(1) 


#-801 


(1) 


#-899 


(1) 


#-902 


(1) 


#-910 


(1) 


#-926 


(1) 


#-934 


m 


#-947 


(1) 











15? 



(1> 



191 
185 

#-778 

#-78? 
194 
188 

#-899 
197 

#-801 



#-1015 O) 



#-903 
#-935 


(1) 
(1) 


#-911 


(1) 


#-947 


(1) 



#-927 



(1) 



ZZ-ENSAA-7.0 

ERROR 

iross reference 

DSSMJMSABLCC 
DSSMJ)ONFlG 
DSSM ERRFIG 
DSSM*"EXCEPT 
DSSM~EXETST 

DSSM'HLTFIG 
DSSM LODFLG 
DSSM'MEMMGT 
DSSM~OUTPUT 
OStM RUBFLG 
DSSM^SCRIPT 
DSSM SETIMR 
DS$M""STRFLG 
DSSM~SUBT 

DSSM^SYSFLG 
DSSM TIMRON 
DSSV~ABRTFLG 
DSSV QADT1ME 
D3SV..BATCH 
DSSV^BRKCtR 

dssv'b&kpt 

dssv~charflg 

ds$v"cmdflg 

ds$v ctrlc 

dssv"ctrlo 

dssv^devflg 

0ssv.0isa9lcc 

ossv„donflg 

dssv errflg 

dssv~except 

dssvjxetst 

dssv hltflg 

ossvIlodflg 

dssv memmgt 

DSSVjDUTPUT 

DSSV.RUBFLG 

DS$V SCRIPT 

DSSV SETIMR 

DSSV^STRFLG 

DSSV.SUBT 

OSSV SYSFLG 

DSSVJIMRON 

DSSjRITH 

DSS.ASBE 

DS$ BADLINK 

OSSIBAOTYPE 

DSS BIK 

DSS.CHME 

DSS CHMK 

DSS~DEVNAME 

DSS'ERROR 

DSS'FHWE 

OSS FRAGBUF 

OSSlJCBUSY 

OSS KERR 

DSS~IHWE 

DSSIILLCHAR 
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=01 000000 
=00002000 
=00000010 
=00080000 
=00040000 
=00000008 
=00000002 

=oooGaooo 

=00800000 
=00000020 
=00200000 
=02000000 
=00000004 
=00004000 
=00000400 
=00020000 
=00000006 
=00000014 
'00000016 
=0000000C 
'OOOOOOOB 
=00000008 
^00000007 
=00000000 
'00000010 
^00000009 
=00000018 
=00000000 
'00000004 
=00000013 
'00000012 
'00000003 
'00000001 
'OOOOOOOF 
'00000017 
'00000005 
=00000015 
'00000019 
'00000002 
'OOOOOOOE 
'O0O0000A 
=00000011 
'0066O0D0 
=00660118 
=006600F0 
'006600E8 
=00660120 
'006600A8 
'006600E0 
=00660108 
-00660002 
=00660068 
'00660080 
:006600C8 
G06600C0 
^00660060 
=00660018 



154 
154 
154 
154 
154 
154 
154 
154 
15- 
VA 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 



#-593 (1) 
#-703 (1) 



#-648 
295 



(1) 
(1) 



284 

287 

294 
283 
276 



(1) 
(1) 

(1) 
M) 
(1) 



ZZ-ENSAA-7.0 

ERROR 

Iross reference 

DSS 1LLPAGCNT 

DSS~1LLUNIT 

DSS'lNSFMEM 

DSSJPL2HI 

DSSJVADDR 

DSS IVVECT 

DSS~KRNLSTK 

DSSJ.OGIC 

DSS MCHK 

DSS~MMOFF 

DSS~NEEDUNIT 

DSS„NODE 

OSS^NOPCS 

OSS NORMAL 

0SS"NOSUPPORT 

DSS'NOTDON 

DSS NOTIMP 

DSS>ULLSTR 

OSS^OVERFLOW 

DSS POWER 

DSS'PROGERR 

OSS^SEVERE 

DSS TRANSL 

DSSlTRUNCATE 

DSS UNEXPINT 

DSS VASFULL 

DSS~WARNING 

DSAfGL.DEVl.EN 

DSASGL..ERRNO 

DSASGL.JLAGS 



dsasgl_msgtyp 

dsasgl passno 
dsasgl*subtno 
dsasgl~testno 
dsasgq'msgptr 

DSASGTdEVNAM 
DSASM Ralt 
dsasv^apt 

dsasv.bell 
dsaiv^halt 

DSASV JE1 

ds.prrSupx 
dsqask d j spat 
dsqask dispat 
dsqa$k~djspat 

DSOASlTOISPAT 
DSQA$K"DISPAT 
DSQASK'DISPAT 
DSGASK~DISPAT 
DSQASK'DISPAT 
DSOASK"DISPAT 
OSQA$KJ)UMMY_ 



Cross reference 



*** ERROR ^rror routines 



AFTER INI T 
^BEFORE JNIT 
_CAUTEST 
.DONE. TESTS 
„DSXSFNDPASS 8GN 
.DSXSENDPASSJND 

DSXSENDPASS MID 
~DS CLEANUP BGN 
"DS'CLEANUPlEND 



=00660078 
=00660100 
=00660050 
=00660088 
=00660040 
-00660038 
=00660090 
=00660070 
=00660088 
=00660058 
=006600F8 
=00660128 
=00660110 
=00660001 
=00660CB1 
=00660030 
=006600B0 
=00660010 
=00660008 
-00660098 
=00660020 
=00660004 
=006600AO 
=00660028 
=006600D8 
=00660048 
=00660000 
0000FE58 
O0OOFE44 
00OOFEOO 



00OOFE4O 

00OOFE54 
0000FE4C 
00OOFE5O 
0000FE68 
0OOOFE5C 
=00000001 
=0000001 F 

=00000003 

=00000000 

'00000004 

000003F1-R 

=00000014 

=00000013 

=00000015 

=00000018 

=00000001 

=00000002 

=00000000 

=00000003 

=00000004 

=00000007 
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40 
(T) 



286 

282 
295 
280 
279 
289 
285 
288 



(1) 

(1) 
(1) 
il) 
(1) 
(1) 
(1) 
(1) 



157 r 


) 292 (1) 










275 c 












274 r 












290 (' 












211 V 












291 < 












278 r 












296 C 












281 V 












157 ( 












*-722 V 


I) #-883 (1) 










#-706 C 


!) #-774 (1) 


#-787 


(1) 


#-880 


(1) 


441 c 


1) 492 (D 


544 


(1) 


599 


<1) 


654 ( 


1) 707 (1) 


732 


(1) 


782 


(1) 


789 ( 


I) 792 (1) 


#-908 


(1) 


#-938 


(1) 


952 ( 












#-440 C 


) #-491 (1) 


#-543 


(1) 


#-598 


(1) 


#-653 < 


I) #-950 (1) 










#-774 C 












#-818 ( 


I) #-822 m 


#-830 


<1) 






#-815 C 


I) #-830 (1) 










#-705 C 












726 V 


l> 884 (1) 










#-937 (' 












#-441 (" 


I) #-492 (1) 


#-544 


(1) 


#-599 


(1) 


#-65A < 


!) #-952 (1) 










#-707 ( 












#-789 c 


I) #-792 (1) 










#-732 ( 


1) #-782 (1) 










#-939 (" 
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41 


Cross reference 










(1) 


OSQASK ERROR ERROR BGN 


=00000006 


155 (1 












DSQA$K"ERROR"ERROP"EN0 


=00000005 


155 (1 


) #-804 


(1) 








DSQASkIkERNEC INlTCONTEXT 


=00000008 


155 (1 












DSQA$K.L00P.D5X$8GF1SUB 


=00000009 


155 (1 












DSQASK LOOP DSXSCKLOOP 


=0000000B 


155 (1 












DSQA$K"LOOP"DSX$ENDSUB 


=O00O00OA 


155 (1 












DSQASK PARAfl DSXSGETADDRESS 


=0000000E 


155 (1 












DSQASK~PARAM~DSXSGE TDAT A 


=0000000C 


155 (1 












DSQA$K~PARAM~DSX$GE TIOGI C AL 


=0000000F 


155 (1 












DSQA$K~PARAM~DSX$GETSTR1NG 


=00000010 


155 (1 












DSQASK~PARAM~DSX$GETVIELD 


=0000000D 


155 (1 












OSQA$K"QA DSHSBRANCH 


=0000001 1 


155 (1 












DSQA$K~ST*RT BEFORE HEADER 


=00000017 


155 (1 












D$GA$K~START"*VRRESTART 


-00000012 


155 (1 












DSQA$K"START"VRSTART 


=00O00C16 


155 (1 












dsrschFck auTotest off set 


00000000-XR 




751 


(1) 








DSRSCHECK"MENUTEST~QFF"SET 


00000000-XR 




748 


(1) 








DSRSCOMPLETION 


0000040D-R 


985 (1 












dsx$errdev 


00000075-R 


589 (1 












DSXSERRHARD 


00000027-R 


485 (1 












DSXSbRRPREP 


0000004E-R 


537 (1 












CSXSERRSOFT 


00000000-R 


434 (1 












DSXSERRSYS 


0O0O00A3-R 


644 (1 












DSX$PRINT 


00000000-XR 




1018 


(1) 


7?t* 


(1) 787 (1) 301 (D 










899 


(1) 


904 


<1> 912 (1) 928 (1) 










936 


(1) 


947 


(1) 




DS ERRSUP 


000002EO-R 


874 r 












ds~testid 


00000274-R 


8H (1 


) #-734 


(1) 








erR$ msgadr 


=000O00OC 


159 r 


> 735 


(1) 








ERRS'NARGS 


=O0OO0OOA 


159 r 












ERR$~NUM 


=00000004 


159 r 


) #-706 


(1) 








ERR$"P1 


=00000014 


159 r 












ERR$"P2 


=00000018 


159 r 












ERRS~P3 


=0000001 c 


159 c 










i 


ERR$~P4 


=00000020 


159 v 












ERR$~P5 


=00000024 


159 r 












ERRS"P6 


=00000028 


159 r 










i 


ERR$~POINTER 


=00000010 


159 (1 


) #-776 




780 


(1) 


i 


ERR$~UNIT 


=00000008 


159 r 


) #-7)2 










ERROR.CODES 


000002F0-R 


251 r 


) 996 










ERROR TEXT 


000003A4-R 


298 r 


) 998 










ersupEr 


0000005C-R 


199 ( 


) 932 








- 


FMTENDERROR 


000001 62-R 


218 C 


) 787 




933 


(1) 




FM T ERRHDR 


000000FF-R 


214 <' 


> 774 










FMTERRHLT 


OOOOOODD-R 


212 V 


) 801 




947 


(1) 




FMTERRSUP 


00000191-R 


220 C 


) 899 








i 


FMTERRSUP1 


000001 DO-R 


223 r 


) 909 










FMTERRSUP2 


0000020A-R 


226 C 


) 901 










FMTERRSUP3 


00000298-R 


231 ( 


) 925 










HARDER 


00000001 -R 


184 V 


) 488 










HP$Q DEVICE 


00000000 
00000000-XR 




#-715 




#-716 


(1) 




10$ Qritevblk 




#-710 










t$A~NAME 


0QOOQ2OB 




#-774 








, 


L$L~REV 


0000020C 




#-774 










L$L UPDATE 


00000210 




#-774 










MSGBELL 


00000000-R 


1 *2 t 


) 710 










pnmn 


0000002D-R 


195 (' 


1) 540 








i 











H 1 


6 
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QASMAJN 


oooooooo-xa 






804 r 




QCLEANSEC 


OOOO00A9-R 


207 




0-824 C 




QFMTIESTID 


000000C0-R 


209 




830 V 




QINITSEC 


00000088-R 


205 




0-820 r 




QUNKDEV 


00000075-R 


203 




0-720 r 




Q^BUFQWD 


00000000-R 


172 




0-715 (' 


) 0-717 (1) 0-? 










0-724 (' 


) 0-774 (1) 


RMS* ACC 


=0001 C002 






260 c 




RMSfCCR 


=0001 8494 






261 C 




RMSS~DEV 


=000184C4 






258 c 




RMS$~DME 


=000184D4 






262 (' 




RMSS~DNF 


=0001 C04A 






259 (' 




RMSS~E0F 


=0001 827A 






263 r 




RMSS~FAB 


=0001850C 






264 (' 




RMSS"FNF 


=00018292 






257 C 




RMS$~FNM 


=0001852C 






273 C 




RMSflFI 


=00018564 






265 C 




RMS$~IOP 


=00018574 






266 (' 




RMS$~IRC 


=0001857C 






2?2 C 




RMS$~ISI 


=00018584 






267 (' 




RMSS'RAB 


=0001863C 






268 c 




RMS$~RER 


=O0OKOF4 






269 C 




RMS$~RFA 


=0001865C 






271 C 




RMS$"RTB 


=000181A8 






270 <* 




RRPTFRROR 


OOOO0OD1-R 


701 


(1) 


0-438 C 

0-651 < 


1) 0-489 (1) 0-« 


RRPTERRORX 


0000026A-R 


803 


(1) 


0-790 ( 




SEVERITY 


00000894-R 


390 


(1) 


1003 (' 




SIZ... 


=00000001 


154 


(1) 


154 ( 




SOFTER 


0000000D-R 


187 


(1) 


437 r 




SS$ ACCVIO 


00000000-XR 






253 ( 




SSS'CTRLERR 


00000000-XR 






256 (' 




SS$"NOSUCHDEV 


00000000-XR 






254 ( 




SS$"NOSUCHFILE 


00000000-XR 






255 C 




SYS$FA0 


00000000-XR 






830 (' 




SYSSQIOW 


00000000-XR 






710 C 




SYSFER 


00000048-R 


196 


/ 1 V 

V i i 


647 (' 




TEST10 LEN 


=00000020 


151 




177 r 


) 0-826 (1) 


TERROR MASK 


000002AC-R 


234 




1013 C 




T TESTIS 


0000001 O-R 


176 




827 (' 




UTlLITY^CODES 


000002C5-R 


236 




1007 C 




UTILITY TEXT 


000002D5-R 


242 




1009 C 





Frame h16 Sequence 1232 
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DMA1:CSYSO.SYSMA1NT]ERROR.MAR;109 (1) 



(1) 



tt-722 (D 



(1) 



0-596 



(1) 



ZZ-ENSAA-7,0 

ERROR 

Cross reference 



Cross reference 



MACRO 



SD1 PRINT S 
SDEf 
SDEF INI 
SDS^CFDEF 

$DS OSADEF 

SDSlOSDEF 

SDS ERRDEF 

$DSlGPHARD S 

SDS HDRDEF" 

SDS'HPODEF 

SDS'TYPEOEF 

$EQ0 

SEQULS1 

SF.QULST 

SFAO S 

scblTni 

SOFFDEF 

SPRINT 

SPUSHADR 

SPUSHTWO 

SQIOPUSH 

SQIOW S 

SRMSDEF 

SVIELD 

SVIELD1 

APTDEF 

BR IF HALT 

BRJFJE1 

BR_JF,NOT_APT 

br if not..beu 
dsFdef 

OSQA 
OA MAIN 
SET ERRFLG 
SET"HALT 



SIZE 

1 
1 
1 
1 
5 

2 

1 

i 

2 
-> 

4 

1 
1 
1 
2 
2 
1 

2 

1 

1 

1 

1 

11 

1 

1 

1 

1 

1 

1 

1 
3 

2 

1 



*** ERROR Error routines 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 
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! Macros Cross Reference ! 



DEFINITION 



774 
163 
156 
156 
158 
157 
159 
712 
160 
161 
163 
163 
163 
155 
828 
154 
159 
762 
710 
710 
710 
708 
162 
154 
163 
153 
789 
732 
441 

707 
154 
155 
804 
703 
792 



REFERENCE 


j » . • 


774 (1 


) 787 


156 (1 


) 158 


156 (' 




158 ( 




157 C 




159 ( 




712 r 




160 c 




161 (' 




163 ( 




155 < 


) 157 


155 ( 


) 157 


155 < 


) 157 


828 ( 




154 ( 


) 155 


159 ( 




762 (1 


) 783 


710 d 


) 830 


710 r 




710 ( 




708 ( 




162 ( 




154 < 




154 ( 




153 (1 




789 ( 




732 ( 


) 782 


441 ( 1 


) 492 


952 r 




707 (1 




154 r 




155 (' 




804 (1 




703 C 




792 C 





(1) 


801 


(1) 


899 


(1) 


947 


(1) 


(1) 


160 


(1) 


161 


(1) 


162 


(1) 



(1) 
(1) 
(1) 


163 
163 
163 


(1) 

(1) 
(1) 






(1) 


157 


(1) 


163 


(1) 


(1) 
(1) 


798 


(1) 


893 


<1) 



944 



(1) 



(1) 
(1) 



544 



(1) 



599 



<1> 



654 



(1) 



! Performance indicators ! 
+—————-— ———4 



Page faults CPU Time 



Elapsed Time 



33 00:00:00.1? 00:00:00.38 

144 00:00:00.72 00:00:01.62 

825 00:00:14.20 00:00:20.86 

3 00:00:00.89 00:00:01.06 

26! 00:00:03.53 00:00:04.63 

48 00:00:00.27 00:00:00.36 

7 00:00:00.03 00:00:00,03 



J 16 
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ERROR *** ERROR Error routines 27-JUL-1984 15: 17:36 VAX-1 1 Macro V03-01 Page 44 

VAX-11 Macro Run Statistics 23-MAY-1984 14:12:11 DMA1:LSYS0.SYSMAINTJERROR,MAR;TO9 (1) 

Cross-reference output 94 00:00:01.39 00:00:03.66 

Assembler run totals 1420 00:00:21.17 00:00:32.60 

The working set limit was 1000 pages. 

82479 bytes (162 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 602 non-local and 86 local symbols. 

1037 source lines were read in Pass 1, producing object records in Pass 2. 

96 pages of virtual memory were used to define 37 macros. 

+ „™-™™^„.™»„„* — + 

! Macro library statistics ! 
+ . .... -.-.-•*••-«.—....+ 

Macro library name Macros defined 

DRB1 :CDS.W0RKDD1AG,MLB;955 9 

DRB1:CDS.W0RK]DS.ML8;218 11 

SYS$SYSR00T:[$YSLIB]LJB.MLB:1 

DMA1:[SYS0.SYSMAINT3DS.MLB;218 

DMA1:CSYS0.SYSMAINT3DIAG.ML8;953 

SYS$SYSROOT:[SYSLIB]LIB.MLB;1 

SYS$SYSROOT:CSYSLIBJSTARLET,MLB;2 12 

TOTALS (all libraries) 32 

756 GETS were required to define 32 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/L1 ST=CDS. LIS J/CR0SS/ENA8LE= (DEBUG. TRACE) ERROR/UPDA= (ERROR. UPD, ERROR. ENH)+SYS$L IBRARY :UB/LIBRARY+DMA1 :[SYSO.SYSMAINT 



Z2-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 1 

0007 1 

0008 1 

0009 1 

0010 1 

0011 1 

0012 1 

0013 1 

0014 1 

0015 1 

0016 1 

0017 1 

0018 1 

0019 1 

0020 1 

0021 1 

0022 1 

0023 1 

0024 1 

0025 1 

0026 1 

0027 1 

0028 1 

0029 1 

0030 1 

0031 1 

0032 1 

0033 1 

0034 1 

0035 1 

0036 1 

0037 1 

0038 1 

0039 1 

0040 1 

0041 1 

0042 1 

0043 1 

0044 1 

0045 1 



*** EVENT 

*++ EVENT 



flag system services 
flag system services 



K 16 
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27-Jul-1984 15:58:11 VAX-11 BUss-32 V4. 0-742 Page 

26-Jul-1984 09:40:13 DMA1 : CSYS0.SYSMAJNTJEV£NT # 832;6 



1 
(1) 



Stitle 

module 



begin 



system 
'06-01' 



'*** EVENT flag 

event (ident = 

addressing^mode 
optlevel = 3, 
optimize) - 



services 



(external = long, relative), 



Copyright (c) 1977, 1981, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



+ + 
FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: 

MODIFIED BY: 

00 

01 



VAX Diagnostic Supervisor 



Dave Butenhof, 11-Sep-1981 EDS version 6,5] 



- dave butenhof, H-Sep-1981. Converted module from Macro-32 
to Bliss-32. Primary purpose was to add SS$ WASSET and 
SSS.WASCLR status returns to READEF, SETEF and CLREF. Also, 
routines were poorly structured and did not have entry masks. 

Bob Bergazzi May 17, 1983 Version 6,11 
Changed the order of searching libraries. 



ZZ-ENSAA-7.0 
EVENT 

06-01 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 



DS-specific library 
Common VMS library 



Declarations 

*** EVENT flag system services 

Dec larations 

Xsbttl 'Declarations* 



Include Files: 
library 'Sdiag 1 ; 
library '$ds'; 
library ' sys$L ibrary: Lib'; 

Macros: 



bui Lt in 

testbitss, 
testbitsc; 



Equated Symbols: 



Own Storage: 



Externals: 



external 

ds$ax_sof tpcb, 

ds$gq~efl : bitvector C64J; ! The event flags 



L 16 
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27~JuM984 15:58:11 VAX-11 8tiss-32 V4. 0-742 Page 2< 

26-Jul-1984 09:40:13 DMA1 :[SYS0.SYSMAINr]EVENT.832;6 (2> j 



con 
con 

con 



external routine 

kb_check : jsb_none; 

Psect definition 

psect code = code (share); 



! Check for console input 



B 1 
I' 1 



G 

H 

I 

J 

K 

L 

M 

N 

B 

C 



E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 



F 1 

G 1 

H 1 

1 1 

J 1 
K 

L 



1 
1 
M 1 

N 1 



E 2 

F 2 



2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
A 

/ 

i 



B 5 

C 5 

D 5 

E 5 

F 5 

G 5 

H 5 

I 5 



Dispatch Routine 
Dispatch Routine 
DSXSEndPass Routine 
DSXSEndPass Routine 
DSXSEndPass Routine 
DS^Cleanup Routine 
DS^Cleanup Routine 
DS Cleanup Routine 
DSXSDoSummary and VRSummary Ro 
DSX^DoSummary and VRSummary Ro 
DSXSDoSummary and VRSummary Ro 
VRShowStatus Routine 
VRShowStatus Routine 
Symbol table 



Symbol 

Symbol 

Symbol 

Psect 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

Cross 

- RL01/2 

- RL01/2 



table 

table 

table 
synopsis 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
reference 

BOOT DRIVER 
BOOT DRIVER 



driver code 

driver code 

driver code 

driver code 



DECLARATIONS 
DECLARATIONS 
RL01/2 Bootstrap 
RL01/2 Bootstrap 
RL01/2 Bootstrap 
RL01/2 Bootstrap 
Symbol table 
Cross reference 
Cross reference 

- RK06/7 BOOT DRIVER 

- PK06/7 BOOT DRIVER 
DECLARATIONS 
DECLARATIONS 
DECLARATIONS 

RK06/7 Bootstrap driver code 
RK06/7 Bootstrap driver code 
RK06/7 Bootstrap driver code 
ECC - PERFORM ECC ERROR CORREC 
FCC - PERFORM ECC ERROR CORREC 
Symbol table 
Cross reference 
Cross reference 

- RB730:R802/RB80 BOOT DRIVER 

- R8730:RB02/RB80 BOOT DRIVER 

- RB'r*30:RB02/RB80 BOOT DfclVFR 
DECLARATIONS 
DECLARATIONS 
DECLARATIONS 

RB730:RB02/RB80 Bootstrap driv 
RB730;RB02/R880 Bootstrap (jnv 



C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 



B 
C 

D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 



N 5 
B 6 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 

C 8 

D 8 

E 8 



H 8 



M 8 
N 8 



RB730:RB02/RB80 Bootstrap driv 
RB730:RB02/RB80 Bootstrap driv 
RB730:RB02/RB80 Bootstrap driv 
Symbol table 
Cross reference 
Cross reference 
Cross reference 

- DR32 interrupt handler 

- DR32 interrupt handler 
DECLARATIONS 
DECLARATIONS 

DRSINT - DR32 INTERRUPT HANDLE 
DRS1NT - DR32 INTERRUPT HANDLE 
Symbol table 
Cross reference 
Cross reference 
*** DSLOAD DSSLOAD routine 
*** DSLOAD DSSLOAD routine 
*** DSLOAD DSSLOAD routine 
DSXSLOAD routine 

routine 

routine 

routine 

routine 

routine 

routine 

routine 
Module 
Module 



DSXSLOAD 

DSXSLOAD 

DSXSLOAD 

DSXSLOAD 

DSXSLOAD 

DSXSLOAD 

DSXSLOAD 

*** DSVECS 

*** DSVECS 



*** DSVECS Module 
*** DSVECS Module 
l ibraries and Macros 
The Dispatch Vectors 
The Dispatch Vectors 
Symbol table 
Cross reference 
Cross reference 






ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



DS 
DS 
DS 
DS 
DS 
DS 



entry 
entry 
entry 
entry 
entry 
entry 



vec 
vec 
vec 
vec 
vec 
vec 



B 10 
C 10 
D 10 



service 

service 

service 

service 

service 

service 
Libraries and Equated Symbols 
Data Psect Declarations 
DS Entry Points 
Points 
Points 
Points 
Points 
Points 
Points 
roints 
Points 
Points 
Points 
Points 
Points 
Points 
Points 



DS 
US 
DS 
DS 
D c 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



Entry 
Entry 
Entry 
Entry 
^ntry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 



£ 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

I 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 



Points 
Points 
Points 
Points 
Points 
Points 
Points 
Points 
Points 
Points 
Points 
Points 
Points 



Entry Points 
Entry Points 



Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 



Points 
Points 
Points 
Points 
Points 
Points 
Points 



Entry Points 



DSSSRVDISP TABLE - Dispatch ta 



DSXSSERVICE^DISHATCHER 
Resrvd.Entry Routine - 
Resrvd^Entry Routine - 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
*** ERROR Error 
*** ERROR Error 



- Servi 
For ent 
For ent 



*** ERROR Error 
*** ERROR Error 
Libraries, 

Work Psect 
Data Psect 
Data Psect 
Data Psect 
Data Psect 
Data Psect 
Data Psect 
Data Psect 
Data Psect 



routines 
routines 
routines 
routines 
Macros, Equated 
Declarations 
Declarations 
Declarations 
Declarations 
Declarations 
Declarations 
Dec larations 
Declarations 



Sym 



Declarations 
DSXSErrSoft Routine 
DSXSErrSoft Routine 
DSXSErrHard Routine 
DSXSErrPrep Routine 
DSXSErrPrep Routine 
DSXSErrDev Routine 
DSXSErrDev Routine 



n7] 
[173 



M H DSXSErrSys Routine 

M H DSXSErrSys Routine 

B 15 RRtpError Routine 

C 1 5 RRtpError Routine 

D 15 RRtpError Routine 

E 15 RRtpError Rout ine 

F 15 DS TestID Routine 

G 15 OS ErrSup Routine 

H 15 DS'ErrSup Routine 

115 DS ErrSup Routine 

J 15 DSRSCompletion Routine 

K 15 DSRSCompletion Routine 

L 15 Symbol table 

M 15 Symbol table 

N 15 Symbol table 

B 16 Symbol table 

C 16 Cross reference 

D 16 Cross reference 

E 16 Cross reference 

F 16 Cross reference 

G 16 Cross reference 

H 16 Cross reference 

I 16 Cross reference 

J 16 Cross reference 

K 1* *** EVENT flag system services 

L 16 Declarations 



Z/-ENSAA- 


7,0 


:vENT 




,'6-01 




; 0089 


1 


; 0090 


1 


; 00Q1 


1 


; 0092 


2 


; 0093 


2 


; 0094 


2 


; 0095 


2 


; 0096 


2 


; 0097 


2 


; 0098 


2 


; 0099 


2 


; 0100 


2 


; 0101 


2 


; 0102 


2 


; 0103 


2 


; 0104 


2 


; 0105 


1 



check for Legal event flag number 
*** EVENT flag system services 
check for legal event flag number 

Xsbttl 'check for legal event flag number 1 

routine rheck„efn : jsb_none - 
begin 

buil tin 

ap; 

bind 

etn = ,ap + 4; 

if .efn gtr 127 then return ssS.ULefc; 

if efn gtr 63 then return ss$.unasefc; 

ss$_normal 
end; 



B 1 «-*», 
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0000007F 8F 

50 
3F 
50 
50 

; Routine Size: 31 bytes, Routine Base: 



04 AC 



EC 

04 

0234 



05 
8F 

AC 
06 

Br 



01 
CODE * 0000 



.TITLE EVENT *** EVENT flag system services 

JDENT \06-01\ 

.EXTRN DSSAX SOFTPCB, DSWQ..EFL 

.EXTRN KB..CHECK 

.PSECT CODE,NQWRT, $HR,2 



01 00000 CHECK.EFN: 

CMPL 
15 00008 
9A 0000A 
05 0Q00E 
D1 QOQOF 1$: 
15 0001? 



3C 000 

05 0001A 

DO 0001B 2$: 

05 0001 E 



BLEQ 

MOVZBL 

RSB 

CMPL 

BLEQ 

MOVZWL 

RSB 

MOVL 

RSB 



4(AP), #127 

1$ 

#236, RO 

4(AP), #63 
2$ 
#564, RO 

#1, RO 



0100 
0102 
0105 



ZZ-ENSAA-7.0 

Event 

06-01 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

01 u 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

012? 

0123 

01 24 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

OHO 

0141 

0142 

0143 

0144 



set event flag routine 

*** EVENT flag system services 

set event flag routine 

Xsbttl 'set event flag routine* 
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++ 
Functional Description: 

Sets a single event flag specified by the caller 
Ca! I »ng Sequence: 

status - Ssetef (efn) 
Input Parameters: 

efn => event flag number 
Implicit Inputs: 

None 
Output Parameters: 

None 
Implicit Outputs: 

None 
Completion Codes: 



SS$,WASCLR 
SSS.WASSET 
SS$„UNASEFC 
SSSJUEFC 



; 128 > EFN > 63 
; EFN > 127 



Side Effects: 
None 



ZZ-ENSAA- 


7.0 


EVENT 




06-01 




; 0145 


1 


; 0.46 


2 


; 0147 


2 


; 0148 


2 


; 0149 


2 


; 0150 


2 


; 0151 


1 



set event flag routine 

*** EVENT flag system services 

set event flag rou ine 

global routine exeSsetef (ef?i) = 
begin 
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(local s; if not (s = check.efn ()) then return .s); 

testbitss (ds$gq„efl C.efn]) A 3 + 1 
end; 



0FFC 00000 



.ENTRY 



; Routine Si2e: 26 bytes. 







DD 


10 00002 


8SB8 


12 




50 


E9 00004 


BLBC 






50 


D4 00007 


CLRL 


02 000U0000G EF 


04 


AC 


E3 00009 


BBCS 






50 


D6 00012 


INCL 


50 




08 


C4 00014 1$: 


MULL2 






50 


D6 00017 
04 00019 2$: 


INCL 
RET 


Routine Base: 


CODE * 


001F 







EXESSETEF, Save R2,R3,R4,R5,R6,R7,R8,R9, 
R10,R11 

CHECK EFN 

S, 2$ 

RO 

EFN, DSSGQJFL, 1$ 

RO 

#8, RO 

RO 



0145 
0148 
0150 

0151 



ZZ-ENSAA- 


7.0 


EVENT 




06-01 




; 0152 


1 


; 0153 


1 


; 01 54 


1 


; 0155 


1 


; 0156 


1 


; 0157 


1 


; 0158 


1 


; 0159 


1 


; 0160 


1 


; 0161 


1 


; 0162 


1 


; 0163 


1 


; 0164 


1 


; 0165 


1 


; 0166 


1 


; 0167 


1 


; 0168 


1 


; 0169 


1 


; 0170 


1 


; 0171 


1 


; 0172 


1 


; 0173 


+ 


; 0174 


1 


; 0175 


1 


; 0176 


1 


; 0177 


1 


; 0178 


1 


; 0179 


1 


; 0180 


1 


; 0181 


1 


; 0182 


1 


; 0183 


1 


; 0184 


1 


; 0185 


1 


; 0186 


1 


; 0187 


1 


; 0188 


1 


; 0189 


1 


; 0190 


1 


; 0191 


1 


; 0192 


2 


; 0193 


2 


; 0194 


2 


; 0195 


2 


; 0196 


2 


; 0197 


1 



Clear event flag routine 

*** EVENT flaa system services 

Clear event flag routine 

Xsbttl 'Clear event flag routine' 
+ + 

Functional Description: 

Clears a single event flag specified by the caller 
Calling Sequence: 

status = Sclref (efn) 
Input Parameters: 

efn -> event flag number 
Implicit Inputs: 

None 
Output Parameters: 

None 
Implicit Outputs: 

None 
Completion Codes: 



E 1 
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SS$ WASSET 
SS$ WASCLR 
SS$JJNASEFC 
'iSSJLLEFC 



; 128 > EFN > 63 

; EFN > 127 



Side Effectr: 
None 



global routine exe$clref (efn) = 
begin 



(local s; if not (s = check^efn 0) then return .s>; 

testbitsc (ds$gq.efl C.efn]) A 3 + 1 
end; 



12 
02 00000000G Ef 



C3 



04 AC 



0FFC 00000 
10 000C2 

b m 

E5 00009 



.ENTRY EXESCLREF, Save R2,R3,R4,R5,R6,R7,R8,R9,- 

R10,R11 
BSBB CHECK.EFN 
BIBC S A 2$ 
CLRL R0 
BBCC EFN, DS$GQ_EFL, 1$ 



0191 
0194] 
0196 



ZZ-ENSAA-7.0 
EVENT 

06-01 



Clear event flag routine 

*** EVENT flaa system services 

Clear event flag routine 



F 1 

27-Jul-1984 
27~Jul-1984 
26-Jul-1984 



15:58:11 
09:40:13 



Fiche 7 Frame F1 



Sequence 1241 
VAX-11 Bliss-32 V4. 0-742 Page 7 

0MA1:CSVSO.SYSMAINTDEVENT.B32;6 (6) 



50 



m Vd 




JNCL 
MULL2 
INCL 
RET 



RO 
RO 



RO 



0197 



Routine Size: 26 bytes, Routine Base: CODE + 0039 



ZZ-ENSAA-7.0 

EVENT 

06-01 

0198 1 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

Q234 

0235 

0236 

0237 

0238 - 

0239 2 

0240 2 

0241 2 

0242 2 

0243 1 



post event flag 

*** EVENT flag system se r vices 

post event flag 



6 1 

27-Jul-1984 Fiche 7 Frame 61 Sequence 1242 
27-Jul-1984 15:58:11 VAX-11 BLIss-22 V4. 0-742 _ s Page 8 

26-JUM984 09:40:13 DMA1:CSYS0.SYSMAlNttEVENT.B32;6 (7) 



JCsbttl •post event flag' 

Functional Description: 

Post event flag will set an event flag specified by number 
tor a process specified by process ID (PID) and cause any 
necessary rescheduling if this event satisfies a wait 
condition for the process. 

In the supervisor, this routine merely sets the flag and returns the 
PCB address as a side effect. 

Calling Sequence: 

JSB SCHSP0STEF 

Input Parameters: 

r1 - process identic cation (pid) 
r2 - priority increment class number 
r3 - event flag numb<\». 

Implicit Inputs: 
None 

Output Parameters: 

r0 - completion status code 

r4 - pcb address of process specified by pid 

Implicit Outputs: 

event flag bit selected by pid and event flag number 
is set. 

Completion Codes: 

SSS^NORMAL - normal successful completion 
SS$_N0NEXPR - non-existent process 

Side Effects: 

None 

global routine sch$postef (pid, pri^inc, efn; pcb) : jsb^postef = 
begin 

pco * ds$ax„softpcb; ! Set PCS value for return 
dslgq^efl C.efnj = 1; ! Set flag 
ss$„normal 
end; 





54 000000006 EF 9E 00000 SCHJPOSTEF:: 




M0VAB 


00 O0OO00OOG 


EF 53 E2 QQ0Q7 BBSS 




50 01 00 QQ00F 1$: MOVL 

05 00012 RSB 





DSSAXSQFTPCB, PCI 
EFN, BSSGGJFL, V 
#1, R0 




ZZ-ENSAA-7,0 

EVENT 

06-01 



post event flag 

*** EVENT flag system services 

post event flag 



H 1 
>7-JuL-1984 
>7-JuL-1984 15:58:11 
!6-JuMW 09:40:13 



Mche 7 Frame H1 Sequence 1243 

VAX-11 BUss-32 V4. 0-742 ^ Page § 9 

0MA1:CSYSO,SYSMAINT3EVENT # B32;6 (7> 



Routine Size: 19 bytes. Routine Base; CODE + 0053 



ZZ-ENSAA-7.0 

EVENT 

06-01 

0244 
0245 
02A6 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

02?9 

0280 

0281 

0282 

0283 

0284 



read event flags routine 

*** EVENT flag system services 

read event flags routine 

Xsbtt I *read event flags routine 1 



27-JuM984 Fiche 7 Frame II Sequence 1244 
27-Jul-1984 15:58:11 VAX-11 8lfss-32 V4. 0-742 _ t Page 10 

26-Jul-1984 09:40:13 DMA1 :CSYS0-SYSMA1NT3EVENT.832;6 <8> 



!++ 



Functional Description: 

Returns a specified event flag cluster to a longword 
in the caller's area 

Calling Sequence' 

status = • >adef (2fn, state) 

Input Paramete 

efn => any event flag number within desired cluster 
state => longword address for returned cluster 

Implicit Inputs: 

None 
Output Parameters: 

state => longword pointed to receives all flags in cluseter 
Implicit Outputs: 

None 
Completion Codes: 



SS$JJNASEFC 
SS$"ILLEFC 
SSSJJASSET 
SS$_WASCLR 



; 128 > EFN > 63 

; EFN > 127 

; Success, specified flag was set 

; Success, specified flag was clear 



Side Effects: 
None 



ZZ-ENSAA- 


7.0 


EVENT 




06-01 




; 0285 


1 


; 0286 


2 


; 0287 


2 


; 0288 


2 


; 0289 


2 


; 0290 


3 


; 0291 


3 


; 0292 


2 


; 0293 


2 


: 029A 


? 


; 0295 


1 



read event flags routine 

*** EVENT flag system services 

read event flags routine 

global routine exeSreadef (efn, state) = 
begin 



J 1 

27-Jul-1984 riche 7 frame J1 Sequence 1245 

27-Jul-1984 15:58:11 VAX-11 BUss-32 VA.0-742 _ Page 11 

26-Jul-1984 09:40:13 DMA1:CSYS0.SVSMAINT3EVENT.B32;6 (9) 



(local s; if not (s = check.efn 0) then return .s); 



(map dsSgq 9f I : vector [23; 
.state = .asSgq.efl C.efn/^23 
); 

.dsXgq.efl C.efn;*3 + 1 ! 
end; 



! Access flags by longword 
! Read correct longword 

Return SSS.WASSET or SS_$WASCLR 



0FFC 00000 



.ENTRY 







52 


O00OO000G EF 


9E Q 


QQ02 


MOVAB 








8F 


10 5 


Q0Q9 


6SBB 






15 


IS 


Ev v 


yoyB 


8LBC 


50 


04 


AC 


a 6 


OOUE 


DIVL3 




08 


BC 


6240 


DO 5 


0013 


MOVL 


62 




01 


04 AC 


EF 5 


0018 


EXTZV 






50 


8 


C4 Q 


Q01E 


MULL2 








04 5 


0021 


INCL 










0023 1$: 


RET 



50 



Routine Size: 36 bytes, Routine dase: CODE * 0066 



EXESREADEF, Save R2,R3,R4,R5,R6,R/,R8,R9,- 

R10,R11 

DS$GQ_EFL, R2 

CHECKlEFN 

#32, EFN, RO 

DS$6Q EFLCROD, aSTATE^ 

EFN, »1, DS$GQ^EFL, RO 

#8, RO 

RO 



0285 

0288 
0291 
0294 

0295 



ZZ-ENSAA'7,0 

EVENT 

06-01 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 2 

0338 2 

0339 2 

0340 2 

0341 2 

0342 2 

0343 1 



wait for single event flag routine 
*** EVENT flaq system services 
wait for single event flag routine 

Xsbttl 'wait for single event flag routine 1 



K 1 
27-Jul-1984 Fiche 7 Frame K1 Sequence 1246 

27-JuM984 15:58:11 VAX-11 Bliss-32 V4. 0-742 Page 12 

26-JuL-1984 09840:13 DMA1 jCSYS0.SYSMAINT3EVENT,B32;6 (10) 



+ 4- 

Functional Description: 

Suspends program execution until a single specified 
event flag sets 

Calling Sequence: 

state = Swaitfr (efn) 
Input Parameters: 

efn => event flag number 
Implicit Inputs: 

None 
Output Parameters: 

None 
implicit Outputs: 

None 
Completion Codes: 



SS$_N0RMAL 

SS$_UNASEFC 

SSSJLLEFC 



; 128 > EFN > 63 
; EFN > 127 



Side Effects: 
None 



global routine exe$waitfr (efn) = 
begin 



(local s; if not (s = check_efn ()) then return .s); 

while not .ds$gq,.,efl C.efnJ do kb.check <); 

ss$„normal 

end; 



14 



OFFC 00000 

FF71 30 00002 
50 E9 00005 



.ENTRY EXESWAITFR, Save R2,R3,R4,R5 # N6,R7,R8,R9,~ 

R10,R11 
BSBW CHECK EFN 
BLBC S, 3$ 



0336 
0339 



7Z-ENSAA-7.0 

EVENT 

06-01 



wait for single event Hag routine 
*** EVENT flag system services 
wait for single event flag routine 



08 OO00OO00G EF 



50 



04 
000000006 



AC 
U 
EF 
01 



, L 1 
2!>-Jul-1984 

27-JuM984 
26-JuL-198A 



Fiche 7 Frame L1 Sequence 
15:58:11 VAX-11 BLiss-32 V4. 0-742 m 
09:40:13 DMA1 :CSYS0.SYS«AINT3EVENT.832;6 



1247 



Routine Size: 29 bytes, Routine Base: CODE + uOo.* 



EO 
16 
11 
DO 
04 



00008 
00011 
00017 
00019 
0001 C 



1$: 



2$: 
3$: 



BBS 

JSB 

BR8 

MOVL 

RET 



EFN, DSSGQJFL, 
KB CHECK 
1$ 
*1, RO 



2$ 



Page 13 
(10) 

0341 
0343 



r 



ZZ-FN<AA-7.0 

EVENT 
U6-01 

0344 1 

0345 *, 

0346 1 
0347 

0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 

0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 

0386 2 

0387 2 

0388 2 

0389 3 

0390 3 

0391 3 

0392 3 

0393 3 

0394 3 
0595 3 

0396 3 

0397 3 

0398 3 

0399 2 

0400 2 



(11) 



M 1 
wait for Logical or of event flags routine 27-Jul-1984 m _ Fiche 7 Frame Ml Sequence 1246 
*** EVENT flag system services 27-M-19M 15:58:11 VAX-11 BHss-32 VA. 0-742 „ / Page 14 

wail for logical or of event flags routine 26-JuM9M 09:40:13 DMA1 :CSYS0-SYSHAINT1EVENT.B32;6 

XsbttL 'wait for logical or of event flags routine' 

Functional Description: 

Suspends program execution until any one of a set of 
specified event flags sets 

Celling Sequence: 

status = Swflor (efn, mask) 

Input Parameters: 

efn => any event flag number within desired cluster 

mask => mask of desired flags within the specified cluster 

Implicit Inputs? 

None 
Output Parameters: 

None 
Implicit Outputs: 

None 
Completion Codes: 



SS$ NORMAL 

SSS.UNASEFC 

SSSJLLEFC 



128 > EFN > 63 
EFN > 127 



Side Effects: 
None 



global routine exe$wflor (efn, mask) = 
begin 

while 1 do 
begin 

local 

cluster; 

kb.check 0; 

(local 5; if not (s = exeSreadef (.efn, cluster)) then return ,s); 

if (, cluster and .mask) neq then exitloop 
end; 



Z2-£NSAA-7.C 

EVENT 

i»6-01 

0401 2 

0402 1 



wait for Logical or of event flags routine 

*** EVENT flag system services 

wait for logical or of event flags routine 

ss$_normal 
end; 



N t 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fich' ' Frame N1 Sequence 1249 

15:58: 1 1 ..X-11 Bliss-32 V4. 0-742 Page 15 

09j40j13 DM (;CSYSQ,$YSMAJNT3EVENT,B32;6 (11) 



0FFC 00000 



.ENTRY 



AB 
08 



5E 




04 




OOOOOOOOG 


5E 




04 


AC 


Ar 




92 


09 




50 


AC 




6E 

E8 


50 




01 



C2 00002 


SUBL2 


16 00005 1$: 
DD 0000B 


J SB 
PUSHl 


DD 0000D 


PUSHL 


F8 00010 
E9 00014 


CALLS 


Bt.dC 


D3 00017 


BJTL 


13 0001 B 
DO 0001 D 


BEQL 


MOVL 


04 00020 2$: 


RET 



EXESWFLOR, Save R2,R3,R4,R5,R6,R7,R8,R9, 

R10,R11 

*4, SP 

KB.CHECK 

SP 

EFN 

M, EXESREADEF 

S, 2$ 

CLUSTER, MASK 

1$ 

01, RO 



0385 



0394 
0396 



0398 
0402 



Routine S^e: 33 bytes. Routine Base? CODE + OOAP 



ZZ- r NSAA-?.0 

EVENT 
06-01 

0403 1 

0404 1 

0405 1 

0406 1 

0407 1 

0408 1 

0409 1 

0410 1 

0411 1 

0412 1 

0413 1 

0414 1 

0415 1 

0416 1 

0417 1 

0418 1 

0419 1 

0420 1 

0421 1 

0422 1 

0423 1 

0424 1 

0425 1 

0426 1 

0427 1 

0428 1 

0429 1 

0430 1 

0431 1 

0432 1 

0433 1 

0434 1 

0435 1 

0436 1 

0437 1 

0438 1 

0439 1 

0440 1 

0441 1 

0442 1 

0443 1 

0444 1 

0445 2 

0446 2 

0447 2 

0448 3 

0449 3 



0450 
0451 
0452 
0453 
0454 



3 
3 
3 
3 
3 



0455 3 

0456 3 
0*57 3 

0458 3 

0459 2 



B 2 

wait for logical and of event flags routine 27-Jul-1984 Fiche 7 Frame B2, n Sequence 1250 

*** EVENT flag system services 27-Jul-1984 15:58:11 VAX-11 BUss-32 V4.Q-742 _ s Page _ 16 

wait for logical and of event flags routine 26-Jul-1984 09:40:13 DMA1 :[SYS0.SYSMAINT3EVENT.B32;6 

Xsbttl 'wait for logical and of event flags routine 1 



(12) 



+ 4- 



Functional Description: 

Suspends program execution until all specified 
event flags are set 

Calling Sequence: 

status = Swfland (efn, mask) 

Input Parameters: 

efn => any event flag number within desired cluster 

mask => mask of desired flags within the specified cluster 

Implicit Inputs: 

None 
Output Parameters: 

None 
Implicit Outputs: 

None 
Completion Codes: 



SS$ NORMAL 

SSS..UNASEFC 

SSSJLIEFC 



128 > EFN > 63 
EFN > 127 



Side Effects; 
None 



global routine exeSwfland (efn, mask) s 
begin 



while 1 do 
begin 



local 

cluster; 

kb.check (); 

(local s; if not (s = exe$readef (,efn, cluster)) then return ,s>; 

if (.cluster and .mask) eql .mask then exitloop 

end; 



ZZ-ENSAA-7.0 

EVENT 

06-01 

0460 2 

0461 2 

0462 1 



wait for logical and of event flags routine 

*+* EVENT flag system services 

wait for logical and of event flags routine 



ssS^normal 
end; 



C 2 
27~Jul-1984 
27~Jul-1984 
26-JuM984 



15:58:11 
09:40:13 



Fiche 7 Frame C2 Sequence 1251 

VAX-11 Bliss-32 V4. 0-742 Page 17 

I DMA1:[SYS0.SYSMAINT3EVENT.B32;6 (12) 



50 



8A 



08 





OFFC 00000 




.ENTRY 


EXE$WFLAND, Save 


N2,R3,R4,R5,R6,R7,R8,R9,- , 


0444 












R10,R11 






5E 


04 


C2 00002 




SUBL2 


04, SP 






OOOOOOOOG 


EF 


16 00005 


1$: 


JSB 


KB CHECK 




0453 




5E 


DD 00008 




PUSHL 


SP 




• 0455 


04 


AC 


DD 00000 




PUSHL 


EFN 






AF 


02 


FB 00010 




CALLS 


02, EXESREADEF 






11 


50 


E9 00014 




BLBC 


S, 2$ 






50 08 


AC 


D2 00017 




MCOML 


MASK, RO 




' 0457 


6E 


50 


CB 0001 B 




BICL3 


RO, CLUSTER, RO 






AC 


50 


D1 0001 F 




CMPL 


RO, MASK 








EO 


12 00023 




BNEO 


1$ 






50 


01 


DO 00025 
04 00028 


2$: 


MOVL 
RET 


n # ro 




• 0462 



; Routine Size: 41 bytes, Routine Base: CODE * 00C8 



0463 1 

0464 1 end 

0465 eludom 



PSECT SUMMARY 



Name 



Bytes 



CODE 



241 NOVECNOWRT, RD 



Attributes 

EXE, SHR, LCL, REL, C0N,N0PIC,ALIGN(2) 



Library Statistics 



File 

DRB1 :CDS.WORKJDIAG.L32:265 

DRB1:CDS.WORK3DS.L32;159 

SYS$SYSROOT:[SYSLIBJLJB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 



Percent 



Pages 
Mapped 

85 

42 
975 



Processing 
Time 

00:00.1 
00:00.2 
00:04.6 



ZZ-ENSAA-7.0 

EVENT 

06-01 



wait for logical and of event flags routine 

*** EVENT flag system services 

wait for logical and of event flags routine 



D 2 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



15:58:11 
09:40:13 



Fiche 7 Frame D2 Sequence 1252 

VAX-11 BUss-32 V4. 0-742 Page 18 

! DMA1:CSYS0.SYSMAJNTJEVENT.B32;6 (12) 



COMMAND QUALIFIERS 
BLISS/NOOBJECT/LIST=CDS.LISD/OPTIMIZE=(LEVEL:3 # SPACE)/DE8UG/TRACE EVENT 



Si2e: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
Memory Used: 55 



iry 
lit 



241 code ♦ 
00:10,4 
00:15.8 
2687 
4190 
pages 



data bytes 



Compilation Complete 



E 2 

ZZ-ENSAA-7.0 *** EXCEPT Machine Exception handling 27-JUL-1984 « rt Fifhe 7 Frame E2 Sequence 1253 
EXCEPT *** EXCEPT Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-01 Page 

Table of contents 

(1) 131 Libraries, External fc Equated Symbols, Macros 

(1) 177 Work Psect Declarations 

(1) 186 Data Psect Declarations 

(1) 316 COND HANDLR ROUTINE - HANDLE UNWANTED EXCEPTIONS 

(1) 429 DSXSPrintSig Routine - Format Signal Array 

(1) 812 FIND USERPC Find USER PC on stack 

(1) 865 TSTSflChk Routine - Machine Check Handler ; [H3 

il) 921 HARDWARE EXCEPTION ENTR? POINTS 

(1) 1255 SEARCH FOR CONDITION HANDLER 

(1) 1381 DSXSSETPRIEXV - ESTABLISH PRIMARY EXCEPTION VECTOR [193 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



F 2 

*** EXCEPT Machine Exception handling 27-JUL-1984 Fiche 7 Frame F2 Seguence 1254 

*** EXCEPT Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0T P*9? c 

23-JUL-1984 16:23:05 PMA1:CSYS0.SYSMAINTJEXCEPT.MAR;75 



1 
(1) 



cooo 


1 


0000 


2 


0000 


3 


0000 


A 


0000 


5 


0000 


6 


0000 


7 


0000 


8 


0000 


9 


0000 


10 


0000 


11 


0000 


12 


0000 


13 


0000 


u 


0000 


'1 5 


0000 


16 


0000 


17 


0000 


18 


0000 


19 


0000 


20 


0000 


21 


0000 


22 


0000 


23 


0000 


24 



.TITLE EXCEPT *** EXCEPT Machine Exception handling 

.IDENT /07-24/ 

♦NoShow Conditionals ; 

.DSA8L GBL 

+ Copyriaht (c) 1977, 1982, 1983, 1984 _, 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINiLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF T HE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THZRtOf , 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



C18T 




6 2 
Machine Exception handling 27-JUL-1984 Fiche 7 Frame G2 Seguence 1255 

*** EXCEPT Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0T Jl*9%* 

23-JUL-1984 16:23:05 0MA1:CSVSO.SYSMAINT3EXCEPT.MAR;75 

FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: ROGER RIGGS 15-AUG-78 

MODIFICATIONS: 

01 

02 
03 

04 



2 
(1) 



VERSION 01. 



05 
06 

07 
08 

09 

10 

11 

12 

13 
14 



Roger Riggs 07-FEB-79 VERSION 01. (EVSAA 5.00) 

Added conversion of T-bit trap in compatability mode 

to compatability mode trap with code=7. 

Fixed Lower Limit of user stack in SEARCH routine 

Removed ISTK/KSTK Switching stuff. Interrupts occur on 

the correct stack as indicated by the SCB 

Fixed up position of carriage prior to calling CLI. 

Make s^re its on a new line at the Left margin 

11-$ept-1979 
Machine check entry point for 
testing the existence of a memory location 



Roger Riggs 
Added TSTSMCHK 



Roger Riggs 29-0CT-1979 

More cleanup and added DSSPRINTSIG, which can 

be used by the program to print the signal array of 

exception 



an 



Rot 
Adi 



ier 
led 



14-Feb-1980 
QI0 to cancel Control 



Riggs 



8 ! 



before printing exception info 



Roger Riggs, 21-Feb-1980 

Added duplicate defs for entry points to satisify internal debugger 
Also added code to revert to old handler for arithmetic traps 
and faults. 

Roger Riggs, 16-Apr-1980 

Corrected bug that reports the incorrect value in R3 during 

exception call to CLI 

Roger Riggs, 21-Jun-1980, Version 5.5 
Changed DSXIPRINTSIG to use PRINTS for First line 
and PRINTX for info lines. Added new entry point 
OSXSPRINTSIGI that uses PRINTI for all output. 

Dave Butenhof, 11-sep-1980, Version 6.0 

Fixed link-time truncation errors in module (change 

word-relative to long-relative) 

Roger Riggs, 17-Sep-1980 

Added Type and VA to error typeout for translation not 

Dave Butenhof < 23*apr*1981, version 6.4 

Correct spelling in some messages, change to mixed case. 

- Jack Stansbury, 22-0U-1981, Version 6.- 
Changed SEP Psect to CODE. Fixed truncation errors. 



2Z-ENSAA-7.0 

EXCEPT 

07-2* 



H 2 
*** EXCEPT Machine Exception handling 27-JUL-1984 Fiche 7 Frame H2 Sequence 1256 
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0000 
0000 
0000 
0000 
0000 
0000 

w 

0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 

oooo 

QQOO 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



oooo 
oooo 

)0 




oooo 




83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 

IK 

102 
103 
104 
105 



15 



16 

17 
18 

19 
20 
21 
22 
21 
2k 



I 



O, 



Also added .LIBRARY statements for $DS and SDIAG. 

- Dave Butenhof, 16-NOV-1981, Version 6.5 
Split the FINDJJSERPC routine into two— one will actuall 
find the last user PC and return the address <FIND_USER„ 
while the other <FIND_USERPC) will call the first, then 
format and type the response. 

- Dave Butenhof, 17-Dec-1981, Version 6.6 

Correct a bug in TSTSMCHK which seems to have been here all 
along— it clears off machine check logout incorrectly. 

- Dave Butenhof, 09-Mar-1982, version 6.6 

Fix PRINTSIG to know about SS$J1CHECK code... new for V3a. 

- Jack Stansbury, 23-Mar-1982, Version 6.8 

Added typecoding to all the messages. Also made a few minor 
enhancements (e.g., taking out the .LIST statements, changing 
the text in the .SBTTL's, etc.). 

- Richard Brown, 27-May82. Version 6.8 

Addition of routine DSXSSETPRIEXV, which is used to establish 
a primary exception vector. 



Jack Stansbury- 8-Mar-1983, Version 6.11 

Took out the Find_User_PC routine and put it into the new 

CallFrame.B32 module. 

Bob Bergazzi 5-May1983 
Added array single bit error 
XXX processor. 



Version 6.11 
interrupt (vector 064) reporting for 



• » 



Bob Bergazzi Feb. 3, 1984 Version 6.14 

Changed FMT..EXCEPT and FMT UNEXPINT to say ... 

instead of ..•"vector". This makes it clearer to some people. 



SCB vector 1 



Domenic Andella 8-Mar~1984 Version 6.14 
Remove ASBE handler from DSXSPRINTSIG routine to 
MCHKXXX module, routine ASBEJJ0RK. 

Domenic Andella 1 -May 1984 Version 7.0 
Include FAULTCLEAR selection macro, and push/pop 
of selection code to each call to DSR$FAULT_CLEAR 
routines EXEJ1CHK, and TSTIMCHK. This allows cpu 
and routine dependent action to occur. 



in 



ZZ-ENSAA-7.0 

EXCEPT 
07-24 



I 2 

Libraries, External t Equated Symbols, M 27-JUL-1984 _ F jche 7 Frame 12 Seguence 1257 

*** EXCEPT Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0? Page,. 
Libraries, External ft Equated Symbols, M 23-JUL-1984 16:23:05 DMA1:CSYS0,SYSMAINT:iEXCEPT,MAR;75 

.SBTTL Libraries, External % Equated Symbols, Macros 

INCLUDE FILES: 



4 
(1) 



0000 


131 


0000 


132 


0000 


133 


0000 


134 


0000 


135 


0000 


136 


0000 


137 


0000 


138 


8ffi 


139 
140 


0000 


141 


88 


142 
143 


0000 


144 


0000 


145 


0000 


146 


0000 


147 


0000 


148 


m 


149 
150 


0000 


151 


0000 


152 


0000 


153 


0000 


154 


m 


155 
156 


0000 


157 


0000 


158 


an 


159 
160 


0000 


161 


0000 


162 


0000 


163 


0000 


164 


0000 


165 


oc°o 


166 


0000 


167 


0000 

m 


168 


1 $ 9 
170 


ooco 


171 


0000 


172 


00000001 0000 
00000100 0000 


173 


174 


0000 


175 



•Library 
.Library 
.Library 



EXTERNAL SYMBOLS 



/Sys$Library:Lib/ 

/$6s/ 

/SDiag/ 



[15] 
CIA] 
CM] 



.EXTRN DSXSPRINTI- 

.EXTRN DSSAA BPTADDR, 

.EXTRN CHRSMtHK, 

.EXTRN MODELST, 

.EXTRN PCB BASE, 

.EXTRN SYSlCALL„HANDL 

.EXTRN ISTKPTR, 

.EXTRN IO$..WRJTEVBLK, 

.EXTRN SCBJMAGE, 



EQUATED SYMBOLS: 



SDS TypeDef 

SDS^CVTREG.DEF 

$DS~DSDEF 

SPR0EF 

SPSLDEF 

SDS SCBDEF 

SSSBEF 

CLIDEF 

CMKDEF 

DSFOEF 

APTDEF 
SDS DSADEF 

SCHfDEF 
SSSDEF 

FLTCLR.SEL 
IS = 1 

6UFSIZ = 256 



DSERRSUP, DSSABORT, 
DS$GA BREAK VFC, DSSGA TBJTVEC, 
DSICLT, COND BeBUG. 
APSLMNE, DSICVTREG, 
DS$GL FLAGS, STACK BASE, 
DSRSFJULT^CLEAR^CRIPTISTOP, 
ESTKPTR, SSTKPTR, 
DSlGW TTOUT, DSSGB.TypeCode 
DSR$F?nd_User_PC 



BPTMAX 

DEBUGSGB FLAGS 

SYSSUNWIRD 

USTKPTR 

DSXSPRINTB 

DSXSPRINTX 

IOSM.CANCTRLO 



;C18 
;C20 



; Define typecodes 



[18] 



J 2 

ZZ-ENSAA-7.0 Work Psect Declarations 27-JUL-1984 ,^, F 3S h Sj\J ra '? e it » „^ s £9 uence 125 § 

EXCEPT *** EXCEPT Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0T r Jl&% c ,?, 

07-24 Work Psect Declarations 23-JUL-1984 16:23:05 DMA1 :CSYS0.SYSMAJNTDEXCEPT.MAR;75 (1) 

OQ00 177 .SBTTL Work Psect Declarations _„ 

00000000 178 .PSECT Work, NoExe, NoShr, Wrt, Long ; CUD 

0000 179 

00000004 0000 180 NEWJP: ,8LKL 1 

OO00O00C 0004 182 NEWJ\P_FP; .BLKQ 1 

0O0C 183 
00000014 0O0C 184 NEW.PC.PSL; .BLKQ 1 



ZZ-ENSAA-7,0 

EXCEPT 

07-24 



Data Psect 



Declarations 

*** EXCEPT 
Data Psect 

OOH 

oooooooo 

0000 
0000 
0007 
0007 
0007 
OOOF 
0017 
001 F 
0027 



00000000*00000000' 
OOOOOOOO 1 OOOOOOOO 1 

OOOOOOOO 1 oooooooo* 

OOOOOOOO'OOOOOOOO 1 



K 2 

27-JUL-1984 Fiche 7 Frame K2 Seguence 1259 
Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0T Page 
Declarations 23-JUL-1984 16:23:05 DMA1 :CSYS0.SYSMAINT3EXCEPT.MAR;75 

Data 'sect Declarations 

Data, NoExe, Shr, NoWrt, Long ; 

EXCEPT 

; PRIMARY, SECONDARY EXCEPTION VECTORS FOR EXCEPTION HANDLERS 



OOOOOOOO * OOOOOOOO • OOOOOOOO * OOOOOOOO ' 



186 




.SBTTL 


187 




.PSECT 


188 






189 




MODNAM 


190 






191 


CTLSAQ. 


.EXCVEC: 


192 




.ADDRESS 


193 




.ADDRESS 


194 




.ADDRESS 


195 




.ADDRESS 


196 






197 


CTLSAL, 


STACK: 


198 




.ADDRESS 



6 
(1) 



CK3 



0,COND_DEBUG 
CC0ND.DEBU6 
0,COND_DEBUG 
0,COND..DE8UG 



KERNEL EXCEPTION HANDLER 
EXEC EXCEPTION HANDLER 
SUPER EXCEPTION HANDLER 
USER EXCEPTION HANDLER 



ADDRESS OF TOP OF EACH MODE STACK INDEX BY LONQWORD MODE 
ISTKPTR,ESTKPTR,SSTKPTR,USTKPTR 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



L 2 
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Sequence 1260 

Macro V03-01 Page^ 7 

DMA1:tSYS0.SYSMAINT3EXC£PT.MAR;75 (1) 



0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
003F 
0053 
0067 
0078 
008F 
00A3 
0087 
00C8 
OODF 
OOF 3 
0107 
0118 
012F 

0143 

0157 

0168 



200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 

£ 1 § 
219 

220 

221 

222 

221 



These are the 
not need to c 
the routines, 
calling Print 



Msg_UMchk: 

MSG KRNLSTK: 

KSG~P0WER: 

MSG OPCDEC: 

MSG.OPCCUS: 

MSGIROPRAND: 

MSGlRADRMOD: 

MSG^ACCVIOj 

MSG TRANSL: 

MSGZTBIT: 

MSGJ3REAK: 

MSG COMPAT; 

MSGICHMK: 

MSG..CHME; 

liSG.CHMS: 

MSG.CHMU: 



messages output 
ontain typecodes 
and the appropri 



by the exception printing routines. These do 
since the typecode will be set explicitly by 
ate print routine will be called (rather than 



$PrintJ_ 

SPRINTI, 

SPRINTI. 

SPRINT]. 

$PRINTI_ 

SPRINT!.. 

SPRINTI_ 

SPRINTI„ 

SPRINTI^ 

SPRINTI 

SPRINT]. 

SPRINT]. 

SPRINTI. 

SPRINTI. 

SPRINTI. 

SPRINTI! 



Fmt UMchk 

FMTlEXCEPT, 

FMT.EXCEPT, 

FMTlEXCEPT, 

FMT.EXCEPT, 

FMT.EXCEPT, 

FMT.EXCEPT, 

FMT.EXCEPT, 

FMT.EXCEPT, 

FMT.EXCEPT, 

FMTlEXCEPT, 

FMTlEXCEPT, 

FMT.EXCEPT, 

FMT.EXCEPT, 

FMrEXCEPT, 

FMT.EXCEPT, 



T KRNLSTK, T ABORT, « A X08» 
T~P0WER, T IRTRPT, « a X0C» 
rOPCDEC, T.FAUIT, « A X10» 
T OPCCUS, T FAULT, « A X14» 
T ROPRAND, T.FLT ABO, « A X18» 
T.RADRMOD, T FAUUT, « a X1 C» 
TACCVIO, T.FAULT, « A X20» 
T'TRANSL, T FAULT, « A X24» 
T.TBIT, T TRAP, « A X28» 
T BREAK, T FAULT, « A X2C» 
T COMPAT, T FLT.ABO, « A X30» 
T_CHMK, T.THAP, « a X40» 
T.CHME, T.TRAP, « A X44» 
T CHMS, f TRAP, « A X48» 
TlCHMU, T.TRAP, « A X4C» 



[183 
C183 
T183 
C183 



[173 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 
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000001 8B' 
000001 9B 1 
000001 AC 1 
000001C3' 
000001 D5' 
000001 ED' 
00000200 • 
00000211* 



6E 65 70 20 50 41 52 
65 76 6F 20 72 65 67 



76 69 64 20 72 
6F 72 65 7A 

76 6F 20 67 6E 



69 64 20 67 6E 
6F 7? 65 7A 20 

6E 75 20 67 6E 



65 67 
20 79 

69 74 
77 

69 74 
79 62 

69 74 
77 6F 



65 76 6F 20 6C 61 6D 



76 69 64 20 6C 61 6D 
6F 72 65 7A 20 79 



54 20 
67 

65 74 
77 6F 

65 74 
62 20 

61 6F 
6F 6C 

61 6F 
20 65 

61 6F 

6C 66 

69 63 
77 6F 

69 63 

62 20 



6F 
6E 

6E 
6C 

6E 
65 

6C 
66 

6C 
64 

6C 
72 

65 
6C 

65 
65 



4E 
69 

49 

66 

49 
64 

46 

72 

46 
69 

46 
65 

44 
66 

44 
64 



00' 

64 

OF 

00' 

7? 

10 

00* 

69 

16 

00' 

65 

11 

00 • 

76 

17 

00' 

64 

12 

00' 

72 

10 

00' 

69 

16 



01 6B 
016F 
0173 
0177 
01 7B 
01 7F 
0183 
0187 
0188 
01 88 
0197 
01 8B 
01 9B 
01A7 
C198 
01AC 
01B8 
01AC 
01C3 
01CF 
01C3 
01D5 
01E1 
01D5 
01ED 
01F9 
01ED 
0200 
020C 
0200 
0211 
021D 
0211 



225 AAT.ARITH:: 

226 

227 

228 

229 

230 

231 

232 

233 

234 0$: 



.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
•ADDRESS 
.ADDRESS 



0$ 
1$ 
2$ 
3$ 

4$ 
5$ 
6$ 
7$ 



.ASCJC .No TRAP pending. 



235 1$: .ASCJC .Integer overflow, 

236 2$: .ASCIC .Integer divide by aero, 

237 3$: .ASCJC .Floating overflow. 

238 4$: .ASCJC .Floating divide by zero. 



239 5$: .ASCJC .Floating underflow. 



240 6$: .ASCJC .Decimal overflow. 



241 7$: .ASCJC .Decimal divide by zero. 



C133 
C133 
C133 
C13D 
C13D 
C13D 
C133 
C133 



ZZ-ENSAA-7.0 

EXfPPT 

07-24 



Data Psect 



Declarations 

*** EXCEPT 
Data Psect 

0228 
023C 
0250 
0264 
0278 
028C 
02A0 
02B4 
02C8 
02DC 



N 2 
27-JUL-1984 Fiche 7 Frame N2 Seguence 1262 

Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0* Page 

Declarations 23-JUL-1984 16:23:05 DMA1 :[SYS0.SYSMAINnEXCEPT.MAR;75 



9 

(1) 



243 MSG. 

244 MSG 

245 MSG, 

246 MSG 

247 MSG. 

248 MSG, 

249 MSG. 

250 MSG 

251 MSG 

252 MSG. 



INTOVF; 

INTDIV: 

FIT0VF: 

FLTDIV: 

FLTUND: 

DBCOVf : 

.SUBRNG: 

,FLT0VF,F 

FLTDIV_F 

;fltund.f 



SPRINT! 
SPRINTI 
SPRINT! 
SPRINT! 
SPRINTI 
SPRINTI 
SPRINTI 
SPRINTI 
SPRINTI 
SPRINTI 



FMT.EXCc'PT, 

FMOXCEPT, 
FMTJXCEPT, 
FMT.EXCEPT, 
FMTJXCEPT, 
FMTJXCEPT, 
FMT.EXCEPT, 
FMTJXCEPT, 
FMT w EXCEPT, 
FMT.EXCEPT, 



T INTOVF, 
TJNTDIV, 
T_FlTOVF, 
T.FLTDIV, 
T FLTUND, 
T DECOVF, 
T.SU8RNG, 
T_FI_TOVF, 
T_FLTDIV, 
T_FLTUND, 



T TRAP, 
T'TRAP, 
T"TRAP, 
T TRAP, 
T 'TRAP, 
T~TRAP, 
T TRAP, 
T'FAULT 
TlFAULT 
TFAULT 



« A X34» 

« A X34» 

« A X34» 

« A X34» 

«*X34» 

« A X34» 

« A X34» 

, « A X34» 

, « A X34» 

, « A X34» 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



Data Psect Declarations 

*** EXCEPT Machine Exception 
Data Psect Declarations 



70 6F 20 64 65 

74 6C 75 

74 6C 75 

74 6C 75 

74 6C 75 

74 6C 75 61 

73 6E 69 20 6C 

75 61 66 20 6E 

73 73 65 72 64 

6E 







00000310' 


Q2F0 
02F4 


254 AAT.COMPAT; 






00000326' 


255 






00000330' 


02F8 


256 






0000033A' 


02FC 


257 






00000344' 


0300 


258 






0000034F ' 


0304 


259 






00000369' 


0308 


260 






0000037B* 


030C 


261 


76 


72 65 73 


65 52 00' 


0310 


262 0$; 


61 


66 20 65 


64 6F 63 
15 


031 C 
0310 




61 


66 20 54 


50 42 00' 
09 


0326 
0326 


263 1$: 


61 


66 20 54 


4F 49 00* 

09 


0330 
C330 


264 2$: 


61 


66 20 54 


4D 45 00' 
09 


033A 
033A 


265 3$: 


66 


20 50 41 


52 54 00' 
OA 
6C 49 00' 


0344 
0344 
034F 


266 4$: 


61 


67 65 6C 


267 5$ j 


6F 


69 74 63 


75 72 74 

74 6C 

19 


035B 
0367 
034F 




64 


61 20 64 


64 4F 00' 


0369 


268 6$: 




74 72 6F 


62 61 20 
11 


0375 
0369 
0378 




77 


6F 66 6B 


6E 55 00' 


269 7$: 






07 


037B 





B 3 

27-JUL-1984 Fiche 7 Frame 83 Seguence 1263 
handling 27-JUL-1984 15; 1 8:10 VAX-11 Macro V03-0T Page 10 
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RESERVED OPCODE FAULT 

BPT FAULT 

JOT FAULT 

EMT FAULT 

TRAP FAULT 

ILLEGAL INSTRUCTION FAULT 

ODD ADDRESS ABORT 

UNUSED 



.ADDRESS 


0$ 


.ADDRESS 


1$ 


.ADDRESS 


2$ 


.ADDRESS 


3$ 


.ADDRESS 


4$ 


.ADDRESS 


5$ 


.ADDRESS 


6$ 


.ADDRESS 


7$ 


.ASCIC . 


Reserved opcode 



fault. 

.ASCIC .BPT fault. 

.ASCIC .JOT fault. 

.ASCJC .EMT fault. 

.ASCIC .TRAP fault. 

.ASCIC .Illegal instruction fault. 

.ASCIC .Odd address abort. ; 

.ASCIC .Unknown. 



[133 

C13] 
C133 
C13] 
[133 
C133 

[133 

C133 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



Data Psect Declarations 

*** EXCnPT 
Data Psect 



C 3 

27-JUL-1984 Fiche 7 Frame C3 Seguence 1264 
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61 6D 20 53 AD 56 20 3F 3F 2F 21 00* 
20 6B 63 65 68 63 20 65 6E 69 68 63 
6F 6C 20 65 72 61 77 64 72 61 68 28 
61 76 61 20 74 6F 6E 20 74 75 6F 67 
2F 21 3A 29 65 6C 62 61 6C 69 

39 



41 21 20 43 41 21 20 3F 3F 

43 53 20 68 67 75 6F 72 68 

58 21 20 3A 72 6F 74 63 65 

2F 21 29 

65 70 78 65 6E 55 20 3F 3F 

72 6F 20 70 61 72 74 20 64 

74 20 74 70 75 72 72 65 74 

74 63 65 76 20 42 43 53 20 

2F 21 57 58 21 

72 6F 72 72 65 20 74 61 20 

21 29 58 28 4C 58 21 5F 21 



6E 72 75 74 65 72 20 72 65 

28 4C 58 21 5F 21 5F 21 3A 

2F 

6E 72 75 74 65 72 20 72 65 

6F 66 20 65 6E 6F 6E 20 3A 

2F 21 21 21 

6F 72 72 65 20 74 61 20 4C 

29 58 28 4C 58 21 5F 21 5F 

2F 21 43 41 21 20 

64 64 61 20 6C 61 75 74 72 

58 28 4C 58 21 5F 21 3A 73 

70 79 74 20 74 6C 75 61 46 

29 58 28 4C 58 21 5F 21 5F 



63 20 43 41 21 20 43 41 21 
2f 21 43 41 21 5F 21 3A 



21 5F 21 5F 21 



5F 21 3A 67 
2F 21 29 58 



20 6E 77 6F 6E 68 6E 55 20 
6F 63 2F 6E 6F 69 74 70 65 

2F 21 3A 6E 6F 69 74 

21 5F 21 5F 21 3A 74 6E 75 

2f 21 29 58 28 4C 

5F 21 5F 21 5F 21 3A 4C 55 

2F 21 29 58 28 



2F 21 00' 

74 20 43 
76 20 42 
58 28 42 

29 
2F 21 00' 
65 74 63 
6E 69 20 

75 72 68 

20 72 6F 

37 
43 50 00' 
5F 21 3A 
2f 
18 
73 55 00 1 
43 50 20 

21 29 58 

18 
73 55 00* 
43 50 20 

64 6E 75 

1E 
53 50 00' 
21 3A 72 
3B 5F 21 

20 
69 56 00' 
73 65 72 
2F 21 29 
21 3A 65 
2F 21 

31 
5F 21 00' 

65 64 6F 

16 
72 41 00' 
28 4C 58 

12 
3F 3F 00' 
63 78 65 
69 64 6E 

21 
6F 43 00' 
58 21 5F 

14 
21 50 00 ' 
4C 58 21 

13 



0383 

038F 

039B 

03A7 

03B3 

0383 

03BD 

03BD 

03C9 

03D5 

03E1 

03BD 

03E7 

03F3 

C3FF 

040B 

0417 

03E7 

041F 

042B 

0437 

041F 

0438 

0444 

0450 

0438 

0454 

0460 

046C 

0454 

0473 

047F 

048B 

0473 

0494 

04A0 

04AC 

0488 

04C4 

0494 

04C6 

04D2 

04C6 

04DD 

04E9 

04DD 

04F0 

Q4FC 

0508 

04F0 

0512 

051E 

0512 

0527 

0533 

0527 



271 FmtJJMchk: 



.AsciC * !/?? VMS machine check (hardware* - ; 



[17] 



272 

273 FMTJXCEPT: 



■ logout not available) : !/' 
.ASCIC • !/?? !AC !AC through SCB vector: iXB(X)!/ 1 



[17] 
1222 



274 FMTJJNEXPJNT: .ASCIC '!/?? Unexpected trap or interrupt thru SCB vector !XW!/' ;C 



275 FMT_ERRPC: 



276 FMTJJSRPC: 



.ASCIC 'PC at eri'or.-UJXLCX)!/' 



.ASCIC 'User return PC: !.!.!XL(X) !/• 



277 Fmt_User_PC.NF: .Ascic 'User return PC: none found!!!/* 



278 FMTJRRPSL: 



279 FMT..VJRT: 



.ASCIC *PSL at error:!. »JXL<X)L; !AC!/' 



C13] 
[133 
C20] 
[133 



.ASCIC 'Virtual address: IJXL(X) !/Fault type: JJJXLCX) !/' ; [133 



280 FMT.EXCEP.CODE: .ASCIC V'JAC !AC code: !_!AC !/' 

281 FMT_CHMXJ\RG: .ASCIC *Arg; !_!_!_ !XL(X> !/' 

282 FMTJJNK..ARG: .ASCIC *?? Unknown exception/condition: !/' 



283 FMT.UNK.CNT: .ASCIC 'Count :!.!.!. !XL(X) !/* 



[13] 
[133 
C133 

[133 



284 FMT PXXX: 



.ASCIC *P!UL:! ' ' !XL(X)!/ 



iy* 



ZZ-ENSAA-7.0 Data Psect Declarations 


EXCEPT 


*** | 


EXCEPT 


07-24 


Data 


Psect 


63 61 74 73 20 4C 45 4E 


52 45 4B 00 1 


0538 


64 69 6C 61 76 20 74 


6F 6E 20 


6B 


0547 






16 


0538 


6C 69 61 66 20 72 65 


77 6F 50 


00' 


0552 






OA 


0552 


72 70 2F 64 65 76 72 65 


73 65 52 


00' 


055D 


73 6E 69 20 64 65 67 65 


6C 69 76 


69 


0569 


6E 6F 69 74 


63 75 72 


74 


0575 






1F 


055D 


65 72 20 72 65 6D 6F 74 


73 75 43 


00* 


057D 


72 74 73 6E 69 20 64 65 


76 72 65 


73 


0589 


6E 6F 


69 74 63 


75 


0595 






1D 


057D 


70 6F 20 64 65 76 72 65 


73 65 52 


00' 


0598 


64 


6E 61 72 


65 


05A7 






10 


0598 


64 61 20 64 65 76 72 65 


73 65 52 


00' 


05AC 


64 6F 6D 20 67 6E 69 73 


73 65 72 


64 


05B8 






65 


05C4 






18 


05AC 


74 6E 6F 63 20 73 73 65 


63 63 41 


OO 1 


05C5 


6F 69 74 61 6C 6F 69 76 20 6C 6F 


72 


05D1 






6E 


05DD 






18 


05C5 


6E 6F 69 74 61 6C 73 6E 


61 72 54 


00' 


05DE 


64 69 6C 61 76 20 


74 6F 6E 


20 


05EA 






15 


05DE 


65 63 


61 72 54 


OO 1 


05F4 






05 


05F4 


74 6E 69 6F 70 6B 61 


65 72 42 


00' 


05FA 






OA 


05FA 


65 64 6F 6D 20 65 67 6E 


61 68 43 


00' 


0605 


4C 45 4E 


52 45 4B 


20 


0611 






12 


0605 


65 64 6F 6D 20 65 67 6E 


61 68 43 
45 58 45 


00' 


0618 


45 56 49 54 55 43 


20 


0624 






15 


0618 


65 64 6F 6D 20 65 67 6E 


61 68 43 


OO 1 


062E 


52 4F 53 49 56 52 45 


50 55 53 


20 


063A 






16 


062E 


65 64 6F 6D 20 65 67 6E 


61 68 43 00* 


0645 


52 


45 53 55 


20 


0651 






10 


0645 


20 64 65 74 63 65 70 78 65 6E 55 


00* 


0656 


20 6D 6F 72 66 20 73 75 


74 61 74 


73 


0662 
066E 


61 68 20 6E 6F 69 74 69 


64 6B 6F 


63 


72 


65 6C 64 


6E 


067A 
0656 






28 


70 


61 72 54 


00' 


067F 






04 


067F 


74 6C 


75 61 46 00' 


0684 






05 


0684 


74 72 


6F 62 41 


00' 


068A 






05 


068A 


74 70 75 72 72 65 


74 6E 49 00 ' 


0690 






09 


0690 


74 72 6F 62 61 2f 74 6C 


75 61 46 


00' 


069A 
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286 T.KRNLSTK: 

287 TJ>OWER: 

288 T.OPCDEC: 

289 T.OPCCUS: 

290 T.ROPRAND: 

291 T.RADRMOD: 

292 TJVCCVIO: 

293 T..TRANSL: 

294 TITBIT: 

295 T .BREAK: 

296 T..CHMK: 

297 T..CHME: 

298 T.CHMS: 

299 T.CHMU: 



.ASCIC 'KERNEL stack not valid 1 

.ASCIC 'Power fail' 

.ASCIC 'Reserved/privileged instruction' 

.ASCIC 'Customer reserved instruction* ; 

.ASCIC 'Reserved operand' 

.ASCIC 'Reserved addressing mode' ; 

•ASCIC 'Access control violation' ; 

, ASCIC 'Translation not valid 1 ; 

.ASCIC 'Trace' 

.ASCIC 'Breakpoint' 

.ASCIC 'Change mode KERNEL' 

.ASCIC 'Change mode EXECUTIVE' ; 

.ASCIC 'Change mode SUPERVISOR* 

.ASCIC 'Change mode USER' 



300 TJCCHFAJLURE: .ASCIC 'Unexpected status from condition handler' 



301 T..TRAP: 

302 T ..FAULT: 

303 T_AB0RT: 

304 TJNTRPT: 

305 T FIT ABO: 



.ASCIC 'Trap' 

.ASCIC 'Fault' 

.ASCIC 'Abort' 

.ASCIC 'Interrupt' 

.ASCIC 'Fault/abort' 



C13] 

C13J 
[13] 

[133 

C13D 
C13] 

C133 

[13] 

[13] 
[13] 
[13] 

[133 

[133 

[133 

[13] 

[13] 
[13] 
[133 
[133 
[13] 
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69 6C 69 62 61 



74 73 20 
76 20 73 



73 75 

73 65 

6E 



65 76 6F 20 72 



76 69 64 
6F 72 



20 72 
65 7A 



76 6F 20 67 6E 



65 64 2F 
65 64 69 



6E 75 20 
65 76 6F 
72 20 74 



67 6E 

76 69 

6F 

67 6E 
20 6C 

70 69 



74 61 70 6D 

65 64 6F 6D 

6F 69 76 65 

63 63 61 20 
6F 69 74 61 

65 67 65 74 

77 6F 

65 67 65 74 

20 79 62 20 

69 74 61 6F 

77 6F 6C 

69 74 61 6F 

64 20 6C 61 
72 65 7A 20 

69 74 61 6F 

77 6F 6C 66 

61 6D 69 63 

77 6F 

72 63 73 62 

65 



Data Psect Declarations 

OB 069A 

6F 43 00' 06A6 306 T.COMPAT: 

20 79 74 06B2 

12 06A6 

72 50 00' 06B9 307 T.STKVIO: 

6B 63 61 06C5 

6C 6F 69 06D1 

1F 06B9 

6E 49 00' 06D9 308 TJNTOVF: 

6C 66 72 06E5 

10 06D9 

6E 49 00' 06EA 309 T INTDIV: 

65 64 69 06F6 

16 06EA 

6C 46 00' 0701 

66 72 65 070D 

11 0701 
6C 46 00* 0713 311 T,FLTDJV: 
6D 69 63 071 F 

79 62 20 072B 

1F 0713 

6C 46 00' 0733 

72 65 64 073F 

12 0733 

65 44 00' 0746 313 T_DECQVF: 

6C 66 72 0752 

10 0746 

75 53 00' 0757 

67 6E 61 0763 

OF 0757 
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310 TJLTOVF; 



312 T^FLTUND: 



314 T_SUBRNG: 



• ASCIC 'Compatability mode 1 

.ASCIC 'Previous stack access violation* 

.ASCI C 'Integer overflow* ; 

.ASCIC 'Integer divide by zero* ; 

.ASCIC 'Floating overflow* 

.ASCIC 'Floating/decimal divide by zero' 

.ASCIC 'Floating underflow' 

.ASCIC 'Decimal overflow* 

.ASCIC 'Subscript range* 



[133 
[133 

[133 
[133 
[133 

rm 

[133 
[133 

[133 
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0767 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 



,SBTTL COND HANDLR ROUTINE - HANDLE UNWANTED EXCEPTIONS 
.PSECT CODE, EXE, SHR, NOWRT, LONG 



+ + 



FUNCTIONAL DESCRIPTION: 

This routine handles all exceptions not wanted by other handlers. 
It could be considered a last chance exception handler and is setup 
as such in user mode. 

CALLING SEQUENCE: 

PROCEEDURE CALL 
INPUT PARAMETERS: 

STANDARD MECHANISM AND SIGNAL ARRAY ARCS 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

SSS.CONTINUE -or- 
SS$_RESIGNAL 

SIDE EFFECTS: 

NONE 
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000C 



OOOOOHA'EF 04 BC FA 

01 50 E8 

04 



0000FE40'EF OB DO 



OOOOOOOO'EF OC 90 

03CD , CF 6C FA 
OOOOOOOO'EF D4 



50 04 BC DE 

51 60 DO 

50 FC A041 DE 

53 08 AO DE 

22 04 AO 1A EO 



51 04 AO 02 18 EF 



53 



52 

52 02 18 

51 

OB 

00000000'EF41 



53 
7E 



51 



60 
08 

71 08 AD 
OFFO 8F 
7E 14 AD 
50 08 BC 
7E OC AO 



DC 
ED 

13 
DO 
DB 

7D 
BB 
7D 
BB 
7D 
DE 
7D 



0000FE40*EF 01 DO 

FF46' 30 

OOOOOQOO'EF 6E FA 

50 04 AC 7D 



0000 
0002 
0002 
0002 
0023 
002B 
002E 
002F 
002F 
002F 
0037 
003E 
003E 
003E 
0045 
0045 
004A 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0054 
0057 
005C 
0060 
0065 
006D 
006D 
0073 
0073 
0075 
0079 
007A 
007C 
0084 
0087 
0087 
008A 
008C 
0090 
0094 
0098 
009C 
)A0 
)A 
)A 
. JBO 
QOBO 
00B7 
00B7 
0Q8A 
00C1 
00C1 



355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 
406 
407 
408 
409 
410 
411 



.ENTRY COND.HANDLR . A M<R2 , R3> 



Entry point to handle exceptions 



$QI0.S FUNC=*IO$ WRITEVBLKMOSM.CANCTPLO, - 



CALLG 

BLBS 

RET 



CHAN=DS$GQ TTOUT 

a4(AP),DSXJPRINTSI6I 

R0,COND_HANDLR_CLI 



COND^HANDLR CLI: 

Br If. r User 
MOVL 



5$ 

#APM$ EXCEPT, - 
DSAlGL.MSGTYP 



5$: 



MovB #DS$K 



Exception* - 



CALLG 
ClrL 



S$K Type Except i 
L A D5$GB TypeCode 

(ap>,w*fiRdJjserpc 

L A DS$GB TypeCode 



Cancel Control-0 
Format signal array 
Branch if known condition 
Return with resignal status 



Branch if in user mode 
Tell APT about the error 



Set typecode 

Locate and print PC<10000 
Clear typecode 



118] 



[18] 
[18] 

C18] 



INFORMATION 
CALL CLJ TO 
DETERMINE THE 



MOVAL 

MOVL 

MOVAL 

MOVAL 

BBS 



ABOUT THE UNEXPECTED CONDITION HAS BEEN PRINTED, 
ALLOW THE OPERATOR TO EXAMINE THE SITUATION. 
STACK POINTER AT THE TIME OF THE INTERRUPT 



Br J f .User 



94(AP),R0 

(R0KR1 

-4(RO)CR1],R0 

8<R0),R3 

#PSL$VJS,4(R0), 



T6$ 



10$ 



ADDRESS OF SIGNAL ARRAY 

GET COUNT OF ARGS 

POINT AT PC/PSL PAIR 

Stack pointer before exception 

IF IS WAS SET THAT WAS CORRECT 

Branch if in user mode 



C18] 



10$: 



EXTZV 

MOVPSL 
CMPZV 

BEQL 

MOVL 
MFPR 

MOVO 

PUSHR 

MOVQ 

PUSHR 

MOVQ 

MOVAL 

MOVQ 



#PSL$S..CURMOD, 
; GET 



PREVIOUS MODE 
current PSL 



#PSL$V fURMQD, 

4(R07,R1 

R2 ; Get 
#PSL$V CURM0D,*PSL$S.CURMOD, - 

R2,RT ; Same mode as previous? 

10$ ; Use stack pointer in R3 if so 

PCB BASECR13,R3 ; Get SP from PCB 

R1,R3 ; Get implementation dependent 

<R0),-(SP> ; STACK PC/PSL 

JTMR3 ; Push exception SP 

8(FP).-(SP) ; PUSH AP/FP 

#*M<R4,R5,R6,R7,R8,R9,R10,R11>; SAVE R4-R11 



SP 



20<FP),-(SP> 

88(AP),R0 

12(R0),-(SP) 



ARGS 



Set_CmdFlg 
Set.Except 

MOVL #APM$ SYSERR, - 

l*d5a$gl MSGTYP 

BSBW SCRIPT$STOP 
CALLG <SP),L A DS$CLI 

MOVQ 4<AP),RQ 



Push R2 and R3 
POINT TO MECHANISM 
SAVC R0-R1 

Set command mode 
Set Exception bit 



Inform APT of error 
GET OUT OF SCRIPT MODE 
PAUSE FOR OPERATOR 

POINT TO SIGNAL/MECHANISM ARRAY 



w 



CU3 
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16 
(1) 



OC A1 8E 


7D 


00C5 


412 


OFFC 8F 


BA 


00C9 


413 






as 


414 


OOOOOOOA'EF 8E 


7D 


415 


OOOOOOOO'EF 8E 


DO 


00D4 


416 


OOOOOOOC'EF 8'c 


7D 


OODB 


417 


51 60 


DO 


00E2 


418 


6041 


DC 


00E5 


419 


FC A041 F2'AF 


DE 


00E8 


420 


50 01 


DO 


OOEE 


421 




04 


OOM 


422 






00F2 


423 


5C 00000004' EF 


7D 


00F2 


424 


5E OOOOOOOO'EF 


DO 


OOF 9 


«5 


7E OOOOOOOC'EF 


7D 


C100 


426 




02 


0107 


427 



20$: 



MOVQ 
POPR 

MOVQ 

MOVL 

MOVQ 

MOVL 

MOVPSL 

MOVAL 

MOVL 

RET 

MOVQ 
MOVL 
MOVQ 
REI 



<SP)+,12(R1) 
# A XFFC 

<SP)+,L*NEW AP FP 

(SP)*,L A NEWJP 

<SP)*,L A NEW_PC_PSL 

(R0),R1 

(R0)tR1] 

B A 20S,-4(R0)[R1] 

#SS$_CONTINUE,RO 



L A NEW_AP_FP,AP 

L A NEW_SP,SP 

L A NEW_PC_PSL,-(SP) 



; PUT MODIFIED R0/R1 
; RESTORE R2-R11 



BACK IN MECHANJSM 



AP - fP 

PUT SP, PC, PSL 

IN A SAFE PLACE 

SIGNAL ARRAY SIZE 

REPLACE ORIGINAL PSL WITH CURRENT 

LOCAL PC REPLACES ORIGINAL 

INDICATE SUCCESS 

RETURN TO DISPATCHER 

SET AP AND C P 

SWITCH M SP I S M 

SETUP FOR REI PC/PSL PAIR 

RETURN TO PROGRAM CAUSING EXCEPTION 



C143 
[14] 
[HI 



[14] 
C143 
CI'J 
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0108 
0108 
0108 
0108 
0106 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
C108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
FF00 
FF00 



429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 
467 

468 
469 
470 
471 
472 
473 
474 



•S8TTL DSX$PrintSig Routine - Format Signal Array 

FUNCTIONAL DESCRIPTION: 

This routine can be called to format the signal array 
created by the condition/exception handler. 



CALLING SEQUENCE: 



0SX$PRINTSIG(signal array) 
DSXSPRINTSIGI (signal^array) 



Print using DS$PRINTB/DS$PRINTX 
Print using DSSPRINTI 



INPUT PARAMETERS: 

AP -> Signal array, Specific contents dependent on the condition 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
SIDE EFFECTS: 

An error message is typed 
REGISTER USAGE: 



R5 

R6 



Print routine for message header 
Print routine for information text 



COMPLETION CODES: 

SSS.NORMAL 
SSS.RESIGNAL 



If condition recoginzed 
If condition unknown 



BUFFER: 
LOCAL: 



S0FFSET 0, NEGATIVE, < - 
<BUFFER iL BUFSIZ> - 
<LOCAL,0» 



Length of buffer for conversion 
Length of local storage 
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18 
(1) 



55 
56 



55 



006C 

00000000' 9F 9E 

00000000'9F 9E 

OC 11 

006C 

00000000* 9F 9F 

56 65 9E 



00000000' EF OB 90 



5E FFOO CD 9E 
50 04 AC 08 C7 

00000360'EF 9F 



04 AC OC Bl 

OA 12 

65 000000B7'EF FA 

0181 31 

04 AC 000002BC 8F D1 

08 12 

65 00000037'cF FA 

05 

04 AC 00660088 8F 01 

QE 12 

0060 8F BB 



0108 
01 OA 
0111 
0118 
011A 
011A 

one 

0123 
0126 
0126 
0126 
012D 
012D 
012D 
C132 
0137 
0137 
013D 
Q13D 
013D 
013D 
013D 
01ID 
013D 
01 3D 
013D 
013D 
013D 
013D 
013D 
01 3D 
013D 
013D 
0130 
013D 
013D 
013D 
01 3D 
013D 
013D 
013D 
01 3D 
013D 
0173 
0173 
0177 
0179 
0180 
0183 
0183 
0188 
018D 
194 
195 
195 
19D 
01 9F 



476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 



.ENTRY 



.ENTRY 



COMMON: 



DSX$PRINTS1G,*M<R2,R3,R5,R6> 
MOVAB a*DSX$PRINTB,R5 
M0VA8 a#DSX$PRINTX,R6 
BR8 COMMON 



Save registers 

Use PRINTS for first message 

Use PRINTX for information message 

Join common code 



DSX$PRINTSIGJ., A M<R2,R3,R5,R6>; Save registers, 

M0VA8 a*DSX$PRINTJ,R5 ; Use PRINTI for first message 

M0VA8 <R5),R6 ; Use PRINTI for information message 



MovB #DS$K 



M0VA8 
DIVL3 

PUSHAB 

CASE 



200$: 



205$: 



CMPW 
BNEQ 

CALL6 
BRW 

CmpL 
BNeq 
CallG 
Rsb 

CMPL 
BNEQ 
PUSHR 



S$K Type Exception.Head, - ; 
L A D5lGBjTypeCode 



Set typacode 



LOCAL(FP),SP 
*8,4(AP),R0 

L A PRINT...PC.PSL 



R0,LIMIT=*SS$,BREAKa-3,TYPE=L, 

X_8REAK, - ; SSI. 

X.CHMS, - ; SSI.. 

X.CHMU, - ; SSI. 

X.COMPAT, - ; SSI_ 

X OPCCUS, - ; $$l„ 

X OPCDEC, - ; ssi_ 

RESIGNAL. - ; SSI. 

XJiADRMOD, - ; SS$_ 

X ROPRAND, - ; SS$ 

RESIGNAL, - ; SSI 

X TBIT, - ; SSI 

RESIGNAL, - ; SSI 

RESIGNAL, - ; SSI 

XJNTOVF, - ; SSI 

XJNTDIV, - ; SSI 

XlFlTOVF, - ; SSI 

XJLTDIV, - ; SSI 

X FLTUND, - ; SSI 

XlDECOVF, - ; SSI 

X.SUBRNG, - ; SSI 

X^FLTOVF^F, - ; SSI 

XlFLTDIVJ, - ; SSI 

XJLTUND.F - ; SSI 
> 



C18D 
C18D 



Allocate space 
Get index from 



for local 
condition 



icorage 
code 



Fake JSB to handler: C18J 

set return address to print PC/PSLC143 
DISPLIST=<- 
BREAK 
CHMS 
CHMU 
C01PAT 
OPCCUS 
OPCDEC 

PAGRDERR, not handled 
RADRMOD 
ROPRAND 

FAIL, not handled 
TBIT 

DEBUG, not handled 
ARTRES, not handled 
INTOVF 
INTDIV 
FLTOVF 
FLTDIV 
FLTUND 
DECOVF 
SUBRNG 

999999 



9')')'??'? 
■ • i i < i 



Floating overflow fault 
Floating divide fault 
Floating underflow fault 



#SS$ ACCVI0,4(AP) 
200$ 

L A MSG„ACCVI0,(R5) 
PRINT.TYPEJ/A 

#SS$JiCHECK, 4(Ap) 
205$ 
L A Msg_UMChk, (R5) 

#DS$_MCHK,4(AP> 

210$ 

H M<R5,R6> 



Access violation? 

Branch if not 

Print header 

Format access type and address 

User mode machine check? 
Branch if not 
Print header 
Print PC/PSL 



[143 

[173 



Standalone Machine checK? [173 

Branch if not 

Use Separate print routines for hdr/txt 
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EXCEPT 






*** 


EXCEPT 


Machine Exceotion handling 27-JUL-1984 


ae 19 


07-24 






DSXSPrfhtSi 


g Routine * 


Format S 


ignal Arr 23-JUL-1984 


16:23:05 DMA1 :[SYSO.SYSMAINT]EXCEPT.MAR 


;75 (1) 






5C 


DD 


01A3 


533 




PUSHL 


AP 


; Address of signal array 






00000000' EF 03 


FB 


01A5 


534 




CALLS 


#3,CHR$MCHK 


; Format Machine check information 










05 


01AC 
01AD 


535 
536 




RSB 




; All done 




04 


AC 


00660090 8F 


D1 


01AD 


537 


210$: 


CMPL 


#DS$J<RNLSTK,4(AP) 


; Kernel stack not valid? 








08 


12 


01B5 


538 




BNEQ 


220$ 


; Branch if not 






65 


0000003F*EF 


FA 


01B7 


539 




CALL6 


L A MSGJ<RNLSTK,(R5) 


; Print header 


C14] 








05 


01BE 
01BF 
01BF 


540 
541 
542 




RSB 




; All done 




04 


AC 


006600A0 8F 


D1 


220$: 


CMPL 


#DS$.TRANSL,4(AP) 


; Translation not valid? 








OA 


12 


01C7 


543 




BNEQ 


240$ 


; Branch if not 


C23D 




65 


OOOOOOCB'EF 


FA 


01C9 


544 




CALL6 


L A MSG„.TRANSl.,(R5) 


; Print header 


[14] 






0161 


31 


01D0 
01D3 


545 
546 




BRW 


PRINT_TYPE_VA 


; Format access type and address 




04 


AC 


006600A8 8F 


D1 


01D3 


547 


240$: 


CMPL 


#DS$_CHME,4(AP) 


; Change mode to EXEC? 








09 


12 


01 DB 


548 




BNEQ 


250$ 


; Branch If not 






6? 


0000Q12F'EF 


FA 


01DD 


549 




CALL6 


L A MSG_CHME,(R5) 


; Print header 


[14] 






11 


11 


01E4 
01F6 


550 
551 




BRB 


255$ 


; Branch to print argument 




04 


AC 


006600E0 8F 


D1 


01E6 


552 250$: 


CMPL 


#DS$_CHMK,4(AP) 


; Change mode to KERNEL? 








OA 


12 


01EE 


553 




BNEQ 


260$ 


; Branch if not 






65 


00000118'EF 


FA 


01F0 


554 




CALL6 


L*MSG_CHMK,(R5> 


; Print header 


C143 






0151 


31 


OIF? 


555 255$: 


BRW 


PRINT_CHMXJ\RG 


; Print argument 












01FA 


556 












04 


AC 


006600D8 8F 


D1 


01FA 


557 


260$: 


CMPL 


#DS$JJNEXPINT,4(AP) 


; Unexpected trap or interrupt? 








OD 


12 


0202 


558 




BNEQ 


270$ 


; Branch if not 








08 AC 


DD 


0204 


559 




PUSHL 


8(AP) 


; Vector offset 








000003E7 , EF 


9F 


0207 


560 




PUSHAB 


L*FMT UNEXPINT 


; Edit string 


C143 






65 02 


FB 
05 


020D 
0210 
0211 


561 
562 
563 




CALLS 
RSB 


#2,<R5> 


; Print it 
; All done 




04 


AC 


006600DO 8F 


D1 


0211 


564 


270$: 


CMPL 


#DS$.ARITH,4(AP) 


; Arithmetic fault or trap? 








1F 


12 


0219 


565 




BNEQ 


280$ 


; Branch if this not 1t 








0360 , CF 


9F 


02ie 


566 




PUSHAB 


W'PRINT PC^PSL 


; Set return address to print PC/PSL 












021F 


567 




CASE 


8(AP),T?PE=W,LIMIT=*1,DI$PLIST=<- ; Case on Trap/Fault 


type 










021F 


568 






XJNTOVF, - 


; SSSJNTOVF 












021F 


569 






XlINTDIV, - 


; SSSJNTDIV 












021F 


570 






X.FLTOVF, - 


; SSSJLTOVF 












021F 


571 






XJLTDIV, - 


; SS$„FLTDIV 












02U 


572 






XJLTUND, - 


; SS$;FLTUND 












021F 


573 






XlDECOVF, - 


; SS$lDECOVF 












o;if 


574 






X„SU8RNG, - 


; SSrSUBRNG 

; SS$"?????? Floating overflow fault 












021F 


575 






XlFLTOVF^F, - 












021F 


576 






XlFLTDIVlF, - 


* SS$I?????? Floating divide fault 












021F 
021F 


577 






XJLTUND.F - 


; SS$„?????? Floating underflow fault 












578 






> 










00 


11 


0238 
023A 


579 

580 
581 




BRB 


PRINT..UNK.EXC 


; Bad value of trap code, fake it. 












023A 


; + 


















023A 
023A 
023A 


582 
584 


; Unknown exception code. Print the 


argllst and PC/PSL 












i m 


















023A 


585 


280$: 


















023A 


586 


PRINT. 


UNK..EXC: 










OOOOOOOO'EF OB 


90 


58? 




MovB 


#DS$K Type Exception 
L A D5$G3jypeCode 


..Head, - ; Set typecode for header 


[18] 










0241 


588 






» 
■ 


[183 










0241 


589 













ZZ-ENSAA-7.0 

EXCEPT 

07-24 



L 3 
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000004F0*EF 

65 02 

00000000' EF OC 

6C 
00000512'EF 

66 02 



53 6C 



52 



02 
15 
01 



6C42 

52 

00000527 I EF 

66 03 

EE 52 53 

00E6 



9F 0241 
FB 0247 

024A 
90 024A 

0251 
DD 0251 
9F 0253 
FB 0259 

025C 
C3 025C 
15 0260 
DO 0262 

0265 
DD 0265 
DD 0268 
9F 026A 
FB 0270 
F2 0273 

0277 
31 0277 



590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 10$; 

604 

605 

606 

607 

608 

609 20$: 



PUSHAB L*FMT UNK.AR6 

CALLS «,<R5> 

MovB #DS$K Type Exception, 

L A D5$GB_TypeCode 

PUSHL (AP) 

PUSHAB L A FMT UNK_CNT 

CALLS #2,<R5) 

SUBL3 #2-(AP),R3 

BLEQ 20$ 

MOVL #1,R2 

PUSHL (AP)CR2J 

PUSHL R2 

PUSHAB L A FMT PXXX 

CALLS #3,(R5> 

A08LSS R3,R2,10$ 

BRW PRINT.PC.PSL 



Edit string for count 
Print header 

Set typecode <or text 

Count of args 

format for count of args 
Print count of args 

Count less PC/PSL 
None, Print PC/PSL 
Start with first arg 

Value of arg 

arg number 

Address of ed'-'t string 

Print arq 

Print all args 



20 
(1) 

[14] 



[183 
[18] 

CUD 



[14] 



Now format and print PC/PSL 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 
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Sequence 1274 

Macro V03-0T Page 21 

DMA1:CSYS0.SYSMAINT3EXCEPT.MAR;75 (1) 









027A 


611 








027A 


612 








027A 


613 








027A 


614 








027A 


615 


65 


OOOOOOFS'EF 


FA 


027A 


616 






05 


0281 
0282 
0282 
0282 
0282 
0282 
0282 


617 
618 
619 
620 
621 
622 
623 


65 


00000143'EF 


FA 


0282 


624 






05 


0289 
028A 
028A 
028A 
028A 
028A 
028A 


625 
626 
627 
628 
629 
630 
631 


65 


00000157 , EF 


FA 


028A 


632 






05 


0291 
0292 
0292 
0292 
0292 
0292 
0292 


633 
634 
635 
636 
637 
638 
639 


65 


00000107'EF 


FA 


0292 


640 


50 08 AC 03 00 


EF 


0299 


641 




000G02F0'EF40 


DD 


029F 


642 




0000069A'EF 


9F 


02A6 


643 




000006A6'EF 


9F 


02AC 


644 




000004C6 , EF 


9F 


02B2 


645 




66 04 


F8 


0288 


646 






05 


02BB 
028C 
028C 
02BC 
028C 
028C 
028C 


647 
648 
649 
650 
651 
652 
653 


65 


0000007B*EF 


FA 


028C 


654 






05 


0?C3 
02C4 
02C4 
02C4 
02C4 
02C4 
02C4 


655 
656 
657 
658 
659 
660 
661 


65 


00000067 , EF 


FA 


02C4 


662 






05 


02C8 
02CC 
02CC 
02CC 
02CC 


663 
664 
665 
666 
667 



SSS.BREAK 



X.BREAK: 



CALL6 
RSB 



SSS.CHMS 



X.CHMS: 



CALL6 
RS8 



SS$_CHMU 



X.CHMU: 



CALLG 
RSB 



SS$^COMPAT 



X COMPAT: 

CALLG 

EXTZV 

PUSHL 

PUSHAB 

PUSHAB 

PUSHAB 

CALLS 

RSB 



SS$ OPCCUS 



X.OPCCUS: 

CALLG 
RSB 



SS$ OPCDEC 



X„0PCDEC: 



CALLG 
RSB 



SS$ RADRMOD 



Breakpoint exception 



L A MSG_BREAK,(R5) 



; Print header 
; All done 



C143 



Change mode to SUPERVISOR 



L A MSG_CHMS,<R5) 



; Print header 
; All done 



CUD 



Change mode to USER 



L A MSG_CHMU,(R5> 



; Print header 
; All done 



C143 



Compatability mode trap 



L A MSG_C0MPAT,<R5) 
#0,#3,8(AP),R0 
L A AAT COMPATCR03 
L A T„FCT ABO 
L A T COMPAT 
L A FflT EXCEP_COi;E 
*4,(R5) 



Print Compatability 
Get fault type 
Address of insert 
Address of 
Address of 
Format for 
Print type 
All done 



mode fault header [143 



FAULT/ABORT 
Compatability mode 
exception code 
code 



C14] 
[143 
[143 
[143 



Opcode reserved to customer 



L A MSG.OPCCUS,(R5) 



Print header 
All done 



C143 



Opcode reserved to DIGITAL 



L A MSG„0PCDEC,{R5) 



Print header 
All done 



C143 



Reserved addressing mode 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



DSXSPrintSig Routine 



65 OOOOOOAS'EF 



65 000G008F'EF 



65 OOOOOODF'EF 



65 00000228 I EF 



65 0000023C , EF 



line - rurmoi. diyriQi nn cf-juu i7ot nuic f i r gmc n^ „ l 'n wv " l ' v ,tmf zL 

*** EXCEPT Machine Exception handling 27-JUL-1984 15:18:10 VAX-11 Macro V03-0T J? a 9e 
DSXSPrintSig Routine - Format Signal Arr 23-JUL-1984 16:23:05 0MA1 :CSYS0*SYSMAINTJEXCEPT.MAR;75 



65 00000250 4 EF 



65 00000264'EF 



ine 


• Format Si 


** 


EXCEPT 


Machi 


SX$ 


PrintSi 


g Hoi. 




02CC 


668 




02CC 


669 


FA 


02CC 


670 


05 


02D3 


671 




02D4 


672 




02D4 


673 




02D4 


674 




02D4 


675 




02D4 


676 




02D4 


677 


FA 


02D4 


678 


05 


02D3 


679 




02DC 


680 




02DC 


681 




C2DC 


682 




02DC 


683 




02DC 


684 




02DC 


685 


FA 


02DC 


686 


05 


02E3 


687 




02E4 


688 




02E4 


689 




02E4 


690 




02E4 


691 




02E4 


692 




02E4 


693 


FA 


02E4 


694 


05 


02EQ 


695 




02EC 


696 




02EC 


697 




02EC 


698 




02EC 


699 




02EC 


700 


FA 


02EC 


701 


05 


02F3 


702 




02F4 


703 




02F4 


704 




02F4 


705 




02F4 


706 




02F4 


707 


FA 


02F4 
02F4 


$ 


05 


02F8 


no 




02FC 


711 




02FC 


712 




02FC 


713 




02FC 


7K 




02FC 


715 




025 C 


716 


FA 


02FC 


717 


05 


0303 


718 




0304 


719 




03C4 


720 




0304 


721 




CJU4 


722 




0304 


721 




0304 


724 



Signal Arr 



H 3 

2,-JUl-1984 



Fiche 7 Frame N3 



Sequence 1275 



22 
(1) 



X.RADRM0D: 

CALLG 
RS8 



SS$ ROPRAND 



X.ROPRAND: 

CALLG 
RS8 



SSS.JBIT 



X^TBIT: 



CALLG 
RSB 



; SSSJNT0VF 

XJNT0VF: 

CALLG 
RS8 

; SSfcJNTDIV 



XJNTDIV: 

CALLG 
RS8 



SS5..FLT0VF 



X.FLTOVF: 

CALLG 
RSB 



SSS^FLTDIV 



170 



F U 
0$: 



TDJV: 



CALLG 
RSB 



SS$„FLTUND 



X.FLTUND: 



L A MSG_RADRM0D,(R5) 



; Print header 
; All dons 



C14J 



Reserved operand 



L A MSG_R0PRAND,<R5) 



; Print header 
; All done 



[14] 



T-bit exception 



L A h$G_TBIT,(R5) 



; Print header 
; All done 



[143 



Integer overflow 



L A MSGJNTQVF,(R5) 



; Print header 
; All done 



[14] 



Integer division by zerc 



L A MSGJNTDIV,(R5) 



; Print header 
; All done 



[14] 



Floating overflow 



L A MSG_FLT0VF,(R5) 



; Print header 
; All done 



[14] 



Floating division by zero 



L A MSG_FLTDIV,(R5) 



; Print header 

; All done 



C14] 



Floating underflow trap 



ZZ-ENSAA-7,0 

EXCEPT 
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65 00000278 , EF 



o5 0000028C f EF 



65 000002AO I EF 



65 0O00028A t EF 



65 000002C8 , EF 



65 000002DCEF 



08 AC 

OC AC 

00000494'EF 

66 03 



FA 
05 



FA 
05 



FA 
05 



FA 
05 



FA 
05 



FA 
05 



OOOOOOQQ'EF OC 90 



DD 
OD 
9F 
F8 
05 



OOOOOOOO'EF OC 90 



8 



0304 725 CALLG 

0308 726 RSB 

030C 727 

030C 728 ;♦ 

030C 729 ; SS$J>ECOVF 

030C 7|0 ;- 

030C 731 

030C 732 X^DECOVF: 

030C 733 CALLG 

0313 734 RS8 

0314 735 
0314 736 ;♦ 

0314 737 ; SS$_SUBRNG 

0314 738 ;- 

C314 739 

0314 740 X SUBRNG: 

0314 741 CALLG 

0318 742 RS8 

1C 743 

1C 744 ; + 
031C 745 ; SS$_?????? 
031C 746 ;- 
031 C 747 

03K 748 XJLTOVF F: 
031C 749 7ALLG 

0323 750 RS8 

0324 751 
0324 752 ;+ 
0324 753 ; SS$„?????? 

324 754 ;- 

324 755 
0324 756 X.FLTDIV F: 
0324 757 7ALLG 
032B 758 

0328 759 RS8 
032C 760 
032C 761 ; + 
032C 762 ; SSS.?????? 
032C 763 ;- 
032C 764 

032C 765 X.FLTUND F: 
C32C 766 TALLG 
767 RS8 
768 

769 Print. Type VA: 

770 MovB 
771 
772 

773 PushL 
77^ PUSHL 

775 PUSHA8 

776 CALLS 

777 RS8 
778 

779 PRINT CHMX ARG: 

780 MovB 
781 



8 



L A MSG_FLTUND,(R5) 



Print header 
All done 



Decimal overflow trap 



L A MSG_DEC0VF,(R5) 



Print header 
All done 



Subscript range trap 



L A MSG„SU8RNG,(R5) 



Print header 
All done 



Floating overflow fault 



L A MSG.FLT0VF.F,(R5) 



Print header 
All done 



Floating division by zero fault 



L A MSG.FLTDIV.F,(R5) 



Print header 
All done 



Floating underflow fault 



L A MSG,FLTUND.F,(R5) 



#DS$K Type Exception, 
L A 05$GB.TypeCode 

8(AP) 
12CAP) 
L A FMT VJRT 
« # (R5> 



#DS$K Type. Exception, 
L A DS$GB TypeCode 



Print header 
All done 



Set typecode 



Reference type 
Virtual address 



Format string 

Print message of lesser importance 

Now format and print PC/PSL 



Set typecode 



[143 



[143 



CUD 



CKD 



[143 



[143 



[183 
83 
83 



f! 

C18] 
[14] 



[18 
[18 



I 
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0352 


08 AC 


OD 


0352 


OOOOOADD'EF 


9F 


0355 


66 02 


FB 


035B 


00 


11 


035E 
0360 
0360 
0360 


3000'EF OC 


90 






0367 






0367 


52 6C 


DO 


0367 


FC ACA2 


DD 


036A 


OOOOOAIF'EF 


9F 


036E 


66 02 


FB 


037A 
0377 
0377 
0377 


50 FFOO CD 


9E 


03A7 


50 


DD 


03AC 


6CA2 


DD 


03AE 


0OOO0A73»EF 


9F 


03B1 


66 03 


FB 


0387 


00000000' EF 


DA 


03BA 




OA 


03C0 
03C1 
03C1 


50 0918 8F 


3C 


03C1 


00000000'EF 


DA 


03C6 




OA 


03CC 



782 

783 

78A 

785 

7b6 

787 

788 PRINT.PC 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

80A 

805 

806 

807 RESIGNAL 

808 

809 

810 



PUSHL 
PUSHAB 
CALLS 
BRB 

PSL: 
flovB 



8(AP) 

L*FMT CHMXJWG 

#2,<R5> 

PRINT.PC.PSL 



#DS$K 
L A 



K Type Exception, 
DS$GB_TypeCode 



MOVL (AP),R2 

PUSHL -A(AP)CR2J 

PUSHAB L A FMT ERRPC 

CALLS #2,(R5) 

SDS...CVTREG S #31 ,(AP)[R2], 

AP5LMNE, BUFFER(FP), 

JBUFSIZ, MODELST,MODE 

BUFFERCFP),RO 

RO 

(AP)CR23 

L A FMT ERRPSL 

#3,(Ri5) 

L A DS$GB_TypeCode 



LST 



MOVA3 

PUSHL 

PUSHL 

PUSHAB 

CALLS 

CtrL 

RET 



MOVZWL 

ClrL 

RET 



*SS$ RESIGNAL, RO 
L*DSlGB.TypeCode 



Output CHMx ARG 

Format CHMx ARG 

Output message of lesser importance 

Now format and print PC/PSL 



Set typecode 



Get count of args 

PC to print 

Address of format string 

Output message of lesser importance 

MSB and value to be converted 

Control string and buffer address 

Buffer si2e and mode list twice 

Get address of buffer 

Address of mneumonic string 

Push PSL 

Address of format string 

output message of lesser importance 

Clear typecode 

Return all done 



Unknown signal 
Clear typecode 
Return 



CMD 



[18: 

C183 



[143 



[143 
[183 

£183 
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03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
C3CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 
03CD 



812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 



.SBTTL FIND USERPC 
FUNCTIONAL DESCRIPTION: 



Find USER PC on stack 



This routine is used to find and print a user proqram PC 
in the event of an error, exception, abort or fault. 

CALLING SEQUENCE: 

CALLG (AP),FINDJJSERPC 
INPUT PARAMETERS: 

RO = ADDRESS OF FAILURE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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26 
(1) 







0000 


03CD 
03CF 


848 
849 


50 04 BC 


DE 


03CF 


850 


51 


60 


9A 


03D3 


851 


50 FC 


A041 


00 


03D6 


852 


00010000 8F 


50 


D1 


03DB 


853 




OC 


1F 


03E2 


854 


00000000'EF 


00 


FB 


03E4 


855 


50 


00 


D1 


03EB 


856 




10 


13 


03EE 
03FO 
03F0 


857 
858 
859 






04 


03FF 
0400 
C400 


860 
861 
862 






04 


040D 


863 



.ENTRY FIND_USERPC, A M<> 

MOVAL a4(APKR0 

MOVZBL (R0),R1 

MOVL -4 <R0) CR1 J JU> 

cmpl rO, * A X10000 

blssu 10$ 

CaUS #0, L*DSR$FindJJser_PC 

CmpL #0, RO 

Beql 20$ 

10$: SPRINTI..S L A FMT_USRPC, RO 
RET 

20$: SPHntl.S L A Fmt_User_PC_NF 
RET 



GET ADDRESS OF SIGNAL ARRAY 

GET COUNT OF SIGNAL ARGS 

Get PC of failure 

Less than 10000? 

If so, don't search 

Search for it 

Return a zero? 

Yes, so no user PC was found 



Print the 
Return to 



real User 
caller 



PC 



Print "none found" 
Return to caller 



C153 

[15] 
[20] 
[20] 
£201 

[20] 



[20] 
t20] 



ZZ-ENSAA-7,0 

EXCEPT 

07-24 



TSTSMChk Routine - Machine Check Handler 

*** EXCEPT 
TSTSMChk Routine 



F 4 
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040E 
000Q040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 
040E 



865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 



,SBTTL TSTSMChk Routine - Machine Check Handler 
•PSECT Code, Exe, Shr, NoWrt, Long 

FUNCTIONAL DESCRIPTION: 

This routine is entered from SCB offset 4. 

It removes the machine check info from the stack and adds 2 

to the PC, sets the "C 11 bit in the PSL and returns 

CALLING SEQUENCE: 



C14] 
[14] 



Vectored from SCB offset 4 
FOR EXAMPLE: 



PUSHL 

MOVAL 

TSTW 

POPL 

BCS 



4(scb) 
TSTSMCHK, 4<SCB) 
(R0) 
4CSCB) 



Save old machine check 
Set new machine check handler 
Instruction expected to qet mchk 
Restore old machine check handler 
Branch if machine check occured 



INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

($P) number of bytes of machine check info 

(SP)+SP PC and PSL of fault inst which MUST be 2 bytes long 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

C-bit is set and interrupt PC updated by 2 
SIDE EFFECTS: 

NONE 
COMPLETION CODES: 

N/A 



ZZ-ENSAA-7.0 
EXCLPT 

07-24 



$MChk Routine - Machine 


Check 


Handler 


6 4 

27-JUL-1984 




*** 


EXCEPT 


Machine Exception handling 27-JUL-1 




TSTSMChk Routine 


- Machine Check Handler 23-JUL-1 






040E 


910 


.ALIGN 


LONG 






0410 


911 


TSTSMCHK:: 




5E 


DD 


0410 


912 


PUSHL 


s p . 


01 


DD 


0412 


913 


PUSHL 


#DS* GK TSTSMCHK 


00000000' EF 


16 


0414 


914 


JSB 


L A DSR$FAULT_CLEAR 


5E 08 


CO 


041 A 


915 


ADDL2 


#8,SP 


5E 8E 


CO 


041D 


916 


ADDL 


(SPH, SP 


6E 02 


CO 


0420 


917 


ADDL 


#2,<SP) 


04 AE 01 


C8 


0423 


918 


UJSL 


#1,4(SP) 




02 


0427 


919 


REJ 





Fiche 7 Frame G4 



Sequence 1281 



Store stack frame address 

; Pass fault clear selection code 
Clear fault status 

Reset the stack ;C24 

Remove specific machine check info C16J 
Update PC 

Set C-bit in condition codes 
Return after faulting instruction 



ZZ-EN$A;-~7.0 HARDWARE EXCEPTION ENTRY POINTS 
EXCEPT *** EXCEPT Machine 

07-24 HARDWARE EXCEPTION 



H 4 
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0428 
00000428 

0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
C428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 
0428 



921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 

938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 



.SBTTL HARDWARE EXCEPTION ENTRY POINTS 
.PSECT Code, Exe, Shr, NoWrt, Long 



[143 



FUNCTIONAL DESCRIPTION: 

THESE ROUTINES EMULATE THE STARLET EXCEPTION HANDLER MECHANISM, 
SEE THE STARLET WORKING DESIGN DOCUMENT FOR FURTHER DETAILS. 

CALLING SEQUENCE: 

EXCEPTION OR INTERRUPT. 
INPUT PARAMETERS: 

EXCEPTION FRAME ON THE STACK. 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

EXCEPT 

07-2'. 



HARDWARE EXCEPTION ENTRY POINTS 

»** EXCEPT Machine 
HARDWARE EXCEPTION 



00660088 8F 

7E 04 AE 04 

6E 04 

5E 

00 

00000000' EF 

5E 08 

00E1 



DD 
C7 
CO 
DD 
DD 
16 
CO 
31 



00660090 8F 
00D2 



DD 
31 



00660098 8F 
00C5 



\>0 

go 

31 



7E 



043C 8F 
OOBB 



7E 



0434 8F 
00B3 



3C 
31 



0428 
0428 
0428 
0428 
0428 
0428 
0428 
042E 
0433 
0436 
0438 
Q43A 
0440 
0443 
0446 
0446 
0446 
0446 
0446 
0446 
0448 
0448 
044 r 
0'. 

;• 

0451 
0451 
0454 
0454 
04 5A 
04 5B 
04 5f 
Q45E 
045E 
045E 
04 5 E 
045E 
0460 
0460 
0465 
QA68 
0468 
0468 
0468 
0468 
0468 

m 

046D 



959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
' 11 



I 4 
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ENTER HERE FOR MACHINE CHECK ABORTS, FAULTS AND TRAPS 



30 
(1) 



• am 
t 



EXEJMHK:: 

PUSHL 

DJVL3 

ADDL2 

PUSHL 

PUSHL 

JS8 

ADDL2 

BRW 



.ALIGN LONG 



#DSS MCHK 

#4,4TSP),-<SP) 

#4,(SP> 

SP 

#0S$ GK EXE.MCHK 

L A DSRSFAULT_CLEAR 

*8,SP 

EXE.EXCEPTION 



REOUIRED FOR EXCEPTION VECTOR 

HERE FROM MCHK VECTOR 

INDICATE MACHINE CHECK CONDITION 

CONVERT BYTES TO LONGWORD COUNT 

INCLUDE PSL/PC/COND NAME ft BYTE COUNT 

Store stack frame address 

PUSH THE FAULT CLEAR SELECTION CODE 

CLEAR ERROR FIRST PASS AND RE-INIT 

Reset the stack 

PROCEED 



;C24 
;C24 

;C24 



ENTER HERE FOR KERNEL STACK NOT VALID ABORT 



.ALIGN 
EXE.KRNLSTK:.- 
PUSHL 
BRW 



LONG 

#DS$ KRNLSTK 
EXE.3ARG 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM KRNLSTK VECTOR 
INDICATE KERNEL STACK CONDITION 
SETUP 3 ARGS, AND PROCESS 



ENTER HERE FOR POWER INTERRUPT 



♦ALIGN LONG 
EXE.PQWER:: 

PUSHL #DS$_POWER 

HALT 

BRW EXEJARG 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM POWER FAIL VECTOR 
INDICATE POWER FAIL CONDITION 
NOT GRACEFUL, BUT EFFECTIVE 
SETUP 3 ARGS, AND PROCESS 



_• + 



ENTER HERE FOR RESERVED CR PRIVILEGED INSTRUCTION FAULT 



.ALIGN 
EXE„OPCDEC:: 

MOV2WL 
BRW 



LONG 

#SS$ OPCDEC, -<SP> 
EXEjARG 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM OPCDEC VECTOR 
INDICATE RESERVED OPCODE CONDITION 
SETUP 3 ARGS 



ENTER HERE FOR CUSTOMER RESERVED INSTRUCTION FAULT 



» M 



.ALIGN 
EXE_OPCCUS;.* 

MOVZWL 
BRW 



LONG 

#SS$ OPCCUS, 
EXEJARG 



-(SP) 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM OPCCUS VECTOR 
INDICATE CUSTOMER OPCODE CONDITION 
SETUP 3 ARGS 



7.-ENSAA-7.0 

XCEPT 

7-24 



HARDWARE EXCEPTION ENTRY POINTS 

*** EXCEPT Machine 
HARDWARE EXCEPTION 



27-JUL-1984 riche 7 
Exception handling 27-JUL-1984 15:18:11 
ENTRY POINTS 23-JUL-1984 16:23:0! 



Frame J4 Seguenee 1284 

i VAX-11 Macro V03-01 Page,. 31 

: DMA1:CSYS0.SYSMAINT3EXCEPT.MAR;75 (1) 



7E 



0454 8F 
OOAB 



7E 



044 C 8F 

00A3 



7E 



OC 

05 

009F 



006600A0 8F 

05 

0094 



7E 



042C 8F 
0083 



0470 

m 

0470 

0470 

0470 

0470 

3C 0470 

31 0475 

0478 

0478 

0478 

0478 

0478 

0478 

0478 

3C 0478 

31 047D 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

3C 0480 

OD 0483 

31 0485 

0488 

0488 

0488 

0488 

0488 

0488 

0488 

0488 

DD 0488 

DO 048E 

31 0490 

0493 

0493 

0493 

0493 

0493 

0493 

0494 

3C 0494 

31 0499 



1011 

Wl 
1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1035 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1Q42 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 



ENTER HERE FOR RESERVED OPERAND FAULT OR ABORT 



t m 



•ALIGN 
EXE.ROPRAND:: 
EXElROPRAND:: 
M0V2WL 
BRW 



LONG 



#SS$ ROPRAND, 
EXEjARG 



-(SP) 



REQUIRED FOR EXCEPTION VECTOR 

HERE FROM ROPRAND VFCTOR 

Used by XDELTA only 

INDICATE RESERVED OPERAND CONDITION 

SETUP 3 ARGS 



ENTER HERE FOR RESERVED ADDRESSING MODE FAULT 



.ALIGN 
EXE.RADRMOD:: 
MOVZWL 
BRW 



LONG 

#SS$ RADRMOD, -(SP) 
EXEjARG 



; REQUIRED FOR EXCEPTION VECTOR 

; HERE FROM RADRMOD VECTOR 

; INDICATE ADDRESSING MODE CONDITION 

; SETUP 3 ARGS 



ENTER HERE FOR ACCESS CONTROL VIOLATION FAULT 



.ALIGN LONG 
EXE ACCVIO:: 
EXESACVIOLAT:: 

MOVZWL #SSS^ACCVIO, -<SP) 

PUSHL #5 

BRW EXEJXCEPTION 



REQUIRED FOR EXCEPTION VECTOR 

HERE FROM ACCVIO VECTOR 

Used by XDELTA only 

INDICATE ACCESS VIOLATION CONDITION 

INDICATE SIGNAL ARRAY SIZE 

PROCEED 



;♦ 



ENTER HERE FOR TRANSLATION NOT VALID FAULT 



.ALIGN 
EXE.TRANSL:: 
MMGlFAGEFAULT:* 

PUSHL 

PUSHL 

BRW 



LONG 



#DS$,JRANSL 

#5 

fcXE EXCEPTION 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM TRANSl VECTOR 
Used by XDELTA only 
INDICATE TRANSLATION CONDITION 
INDICATE SIGNAL ARRAY SI2E 
PROCEED 



ENTER HERE FOR COMPATIBILITY FAULT OR ABO:;, 



.ALIGN 
EXE.COMPAT;: 

MOVZWL 
BRW 



LONG 

#SS$ COMPAT, -(SP) 
EXEjfARG 



; REQUIRED FOR EXCEPTION VECTOR 

; HERE FROM COMPAT VECTOR 

; INDICATE COMPATIBILITY CONDITION 

; SETUP 4 ARGS 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



HARDWARE EXCEPTION ENTRY POINTS 

*** EXCEPT Machine 
HARDWARE EXCEPTION 
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(1) 



006600D0 3F 
007A 



7E 00000000 4 EF 03 

18 

01 
50 00' 
00000000*EF40 08 AE 

06 

F2 50 

01 



01 

6E OAK 8F 

52 



7E 00000000' EF 



03 
08 
01 00000000 f EF 



6E 
A6 08 AE 



07 
1F 



DD 
31 



CB 
13 

BB 
DO 
D1 
13 
FA 
»A 
05 

BA 
3C 
11 



6E 



0464 8F 
2E 



CB 

13 
E8 
05 

n 

3C 
11 



049C 
049C 
049C 
049C 
049C 
049C 
049C 
04A2 
04A5 
04A5 
04A5 
04A5 
04A5 
04A5 
C4A5 
04A8 
04A8 
04A8 
04BO 
04B2 
04B2 
0484 
04B7 
O4C0 
04C2 
04C5 
04C7 
04C8 
04C8 
04CA 
04CF 
04D1 
04D1 
O'.DI 
0<»D1 
04D1 
04D1 
04D1 
04D1 
04D4 
04D4 
04D4 
04DC 
04DE 
04E5 
04E6 

m 

04EE 
04EE 
04F3 



1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 

1088 
1089 

1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 



ENTER HERE FOR ARITHMETIC TRAP 



.ALIGN 
EXEJUWH:: 

PUSHL 
BRW 



LONG 

#DS$ ARITH 
EXEjARG 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM ARITH VECTOR 
Indicate Arithmetic fault 
Form 4 argument list 



; ENTER HERE FOR "ALL" BREAKPOINT FAULTS iUB. t DIAGNOSTIC PROGRAM 
; WILL ALWAYS GET SECOND CHANCE AT THIS VECTOR) 



.ALIGN 
EXE BREAK:: 
EXESBREAK:: 

8ICL3 

BEQL 



10$: 



'OS: 
!0$; 



PUSHR 

MOVL 

CMPL 

BEOL 

SOBGEQ 

POPR 

RSB 

POPft 

MOVZWL 

BRB 



LONG 



#3,DS$GAJlREAKVEC,-<SP); 
30i 

# A MR0 

S A #BPTMAX,RO 

8(SP),DS$AA_BPTADDRCR0J 

20$ 

ROJOS 

# A MR0 



#*MR0 

#SS$ BREAK, iSP) 

EXEjARG 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM BREAKPOINT VECTOR 
Used by XDELTA only 
USE SOFT VECTOR 
BRANCH IF NO SOFT VECTOR 

NEED A LITTLE WORKING ROOM 

INIT AN INDEX 

LOOK AT A SUPERVISOR'S KNOWN BPT'S 

IT MATCHES, SO GO CALL HANDLER 

LOOP THRU ENTIRE LIST (INCL. COD) 

RESTORE RO 

ENTER USER I.S.R 

RESTORE REG 

INDICATE BREAKPOINT CONDITION 

SETUP 3 ARGS AND DISPATCH 



ENTER HERE FOR "ALL" TBI T TRAPS (I.E., DIAGNOSTIC PROGRAM WILL ALWAYS 
GET SECOND CHANCE AT THIS VECTOR) 



.ALIGN 

EXE TBIT:: 

EXEJTBIT:: 

BICL3 
BEQL 
BLBS 
RSB 



10$: 



MOVL 
BBS 

MOVZWL 
BRB 



LONG 



#3,DS$GA_TBITVEC,-<SP) 

10$ 

DEBUGSGB.F LAGS JOS 

#7,(SP) 

#P$L$VCM,8(SP), - 
EXE COflPAT 
MSlJBIT. (SP) 
EXEjARG 



; REQUIRED FOR EXCEPTION VECTOR 

; HERE FROM TBIT VECTOR 

; Used by XDELTA only 

; Set secondary vector 

; Branch if not set vec'ed 

; Branch if supervisor expects this 

; Dispatch to user ISR 

; Assume compatability mode T-bit 

; BRANCH TO COMPATABILITY MODE HANDLER 

; INDICATE T-BIT CONDITION 

; SETUP 3 ARGS, AND DISPATCH 



2Z-ENSAA-7.0 

EXCEPT 

07-24 



HARDWARE EXCEPTION ENTRY POINTS 

*** EXCEPT Machine 
HARDWARE EXCEPTION 
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006600D8 §F 
0021 



DD 
31 



006600E0 8F 
17 



DD 
11 



006600A8 8F 
OF 



DD 
11 



7E 041 C 8F 
08 



3C 
11 



7E 



0424 8F 
00 



04 
04 



03 
00 



3C 
11 



DD 
11 



DD 
11 



04F5 

04F5 

Q4F5 

04F5 

04F5 

04FB 

04FE 

04FE 

04FE 

04FE 

04FE 

04FE 

0500 

0500 

0506 

0508 

0508 

0508 

0508 

0508 

0508 

0508 

050E 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

0515 

0517 

0517 

0517 

0517 

0517 

0517 

0518 

0518 

051D 

051F 

051F 

051F 

0521 

0523 

0523 

0523 

0525 



1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 



; HERE FOR UNEXPECTED INTERRUPT FROM SCB 

EXE UNEXPINT:: 

PUSHL #DS$ UNEXPINT 
BRW EXEJ5ARG 



; ENTER HERE FOR CHMK TRAP 



.ALIGN LONG 
EXE. CHMK:: 

PUSHL #DS$ CHMK 

BRB EXEJJARG 

; ENTER HERE FOR CHME TRAP 



.ALIGN LONG 
EXE.CHME:: 

PUSHL #DS$ CHME 

BRB EXEJJAR6 



; ENTER HERE FOR CHMS TRAP 



.ALIGN LONG 
EXE^CHMS:: 

MOV2WL #SS$ CMODSUPR, -(SP> 

BRB EXEjARG 



; ENTER HERE FOR CHMU TRAP 



.ALIGN LONG 
EXE. CHMU:: 

MOVZWL #SS$CMODUSER, -(SP) 

BRB EXEjARG 

EXE_4ARG: 

PUSHL #4 

BRB EXEJXCEPTION 

EXE.3ARG: 

PUSHL *3 

BRB EXE.EXCEPTION 



CODE FOR EXCEPTION ARGLIST 
USE COMMON CODE FOR REST 



Indicate extraneous CHMK TRAP 
And build rest of 4 ARG list 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM CHME VECTOR 
INDICATE CHANGE MODE CONDITION 
SETUP 4 ARGS, NO SECONDARY VECTOR 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM CHMS VECTOR 
INDICATE CHANGE MODE CONDITION 
SETUP 4 ARGS, NO SECONDARY VECTOR 



REQUIRED FOR EXCEPTION VECTOR 
HERE FROM CHMU VECTOR 
INDICATE CHANGE MODE CONDITION 
SETUP 4 ARGS, NO SECONDARY VECTOR 



; 4 ARGS 

; JOIN COMMON CODE 



; 3 ARGS 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



HARDWARE EXCEPTION ENTRY POINTS 

*** EXCEPT Machine 
HARDWARE EXCEPTION 



50 



7E 



6E 51 
51 02 



03 
03 
5D 
04 

51 
1A 
16 

67 



53 



OC 

52 50 

1C AE 06 



51 



00000000' EF42 

51 52 

50 53 

51 

61 50 



02 
50 
52 
1C 



OOOOOOOO'EFAO 51 

52 51 

50 08 AE 

81 80 

FA 53 



70 C8000010 8F 

70 OOO0O5A4'EF 

OC 

5E 50 



0527 

0527 

0527 

0527 

0527 

0527 

0527 

B9 0527 

CE 0529 

DD 052C 

DD 052E 

0530 

DC 0530 

EO 0532 

EF 0536 

053B 

13 053B 

053D 

BB 053D 

DO 053F 

C1 0542 

0547 

DO 0547 

D8 054F 

78 0552 

C2 0556 

OD 0559 

12 055D 

055F 

055F 

0574 

057B 

DO 0578 

DA 0583 

9E 0586 

DO 058A 

F5 058D 

0590 

0590 

0590 

0590 

0590 

CA 0590 

0597 

9E 0597 

BA 059E 

DO 05A0 

02 05A3 



1163 
1164 
1165 
1166 
1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1202 
1203 
1204 

1205 
1206 
1207 
1208 
1209 
1210 
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COMMON CODE FOR ALL EXCEPTIONS. 

STACK CONTAINS SIGNAL ARRAY, BUILD MECHANISM ARRARY 

THEN SWITCH TO PREVIOUS MODE STACK UNLESS MS 1 IS SET OR PREVMODE WAS KERNEL 



34 
(1) 



EXE.EXCEPTION: 
PUSHR 
MNEGL 
PUSHL 
PUSHL 

MOVPSL 

BBS 

EXTZV 

BEQL 

PUSHR 

MOVL 

ADDL3 

MOVL 

MFPR 

ASHL 

SU8L2 

PROBEW 

ONEQ 



# A M<R0,R1> 

#3,-<SP) 

FP 

#4 

R1 

#PSL$VJS,R1, NORMAL 

#PSL$V..PRVMOD, - 

#PSL$S_PRVMOD,R1,R0 

NORMAL 

# A M<R2,R3> 

R0,R2 

#6,28<SP),R3 

PCS BASLCR2J,R1 

R2,R1 

#2,R3,R0 

R0,R1 

R2,R0,(R1) 

50$ 



ERRSUP S J.STKVIO 
SDSJVBORT 

50$: MOVL R1 . D CB^8ASECR03 

MTPR R1,A2 

MOVAB 8<SP),R0 

60$: MOVL (RO) + i (RD + 

SOBGTR R3,60$ 



NOW MAKE THE SWITCH TO THE NEW STACK 



SAVE VOLATILE REGISTERS 
INITIAL FRAME DEPTH 
INITIAL HANDLER ESTABLISHER FRAME 
MECHANISM ARRAY SIZE 

; GET CURRENT PSL 

; INTERRUPT ON INTERRUPT STACK, PROCESS 

; GET PREVIOUS MODE 

; BRANCH IF WAS IN KERNEL MODE, PROCESS 

; SAVE WORKING REGISTERS 

; SAVE PREVIOUS MODE STACK POINTER 

; CALCULATE NUMBER OF LONGWORDS TO MOVE 

GET SAVED SP FROM ♦PCB 1 

GET HARDWARE SAVED PREV MODE SP 

CALCULATE NUM8ER OF BYTES TO MOVE 

SET UP A NEW STACK POINTER 

CAN IT BE DONE ? 

••NO PROBLEM", PROCEED 



CANNOT COPY STACK ! 

SO GO AHEAD I DO THE UGLY DEED 

STORE NEW SP INTO 'PCB 1 
STORE NEW HARDWARE SP 
ADDRESS OF ARCS TO COPY 
COPY CURR STACK TO NEW ONE 
UNTIL DONE 



b:cl 

M0VA8 
POPR 
MOVL 
REI 



#PSL$M CM!PSL$M.JBIT! - 

PSLSM FPD!PSL$M.TP,-(RO) 

L a NORRAL,-(R0> 

/TM<R2,R3> 

RO,SP 



CLEAR CM,T,TP.FPD 

PUSH ADDRESS TO RESUME AT IN PREV M0DEC14] 

RESTORE WORKING REGISTERS 

POINT TO PC/PSL PAIR 

RETURN IN PREVIOUS MODE AT 'NORMAL* 



ZZ-fcNSAA-7.0 

EXCEPT 

07-24 



HARDWARE EXCEPTION ENTRY POINTS 

*** EXCEPT Machine 
HARDWARE EXCEPTION 
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05A4 


1212 






05A4 


1213 






05A4 


1214 






05A4 


1215 






05A4 


1216 


6E 


DF 


05A4 


1217 


18 AE 


DF 


05A6 


1218 


02 


DD 


05A9 


1219 






05AB 


1220 






05AB 


1221 






05AB 


1222 






05AB 


1223 






05AB 


1224 


000005F6 , EF 6E 


FA 


05AB 


1225 


OB 50 


E9 


C5B2 


1226 






05B5 


1227 






05B5 


1228 






05B5 


1229 






05B5 


1230 


00000000' 9F 


16 


05B5 


1231 


ED 50 


E9 


05BB 


123? 


26 


11 


05BE 


1233 






05C0 


1234 






05C0 


1235 






05C0 


1236 






C5C0 


1237 






05C0 


1238 


FFFFFA39 EF 6E 


FA 


05C0 


1239 


U 50 


E8 


05C7 


1240 






05Cm 


1241 






05CA 


1242 






05DF 


1243 






05E6 


1244 






05E6 


1245 






05E6 


1246 






05E6 


1247 






05E6 


1248 


6E 20 AE 07 


C1 


05E6 


1249 


6E 04 


C4 


05E8 


1250 


50 18 AE 


/D 


05EE 


1251 


5E 6E 


CO 


05F2 


1252 




02 


05F5 


1253 



HSRE TO BUILD THE CONDITION ARGLIST AND CALL THE HANDLER 



NORMAL : 



PUSHAL 
PUSHAL 
PUSHL 



(SP) 

24(SP) 

#2 



POINT TO MECHANISM ARRAY 
P0IN1 TO SIGNAL ARRAY 
INDICATE ARGLIST LENGTH 



, SEARCH FOR CONDITION HANDLER 



120$: CALLG (SP) ,L A SEARCH 
BLBC R0,130$ 



CALL CONDITION HANDLER 

JSB a*S>S$CALL,HANDL 
BLBC R0,120$ 
BRB 140$ 



; SEARCH FOR CONDITION HANDLER 
;IF LBC TRY LAST CHANCE 



CALL HANDLER VIA SYSTEM VECTOR 

IF LBS TRY AGAIN 

CONTINUE 



C14J 



HERE WHEN "RESIGNALLED M (I.E., CONDITION HANDLER DIDN'T WANT IT) 



130$: CALLG (SP), L A COND_HANDLR 
BLBS R0,140$ 

ERRSUP S ,T„XCHFAILURE 

$DS„AB!5RT 
; + 
; HERE TO CLEAN THE STACK AND RETURN 



; Call last chance condition handler 

; HANDLED, CONTINUE 

; UNRECOVERABLE SITUATION ! 

; NO OTHER WAY AT jHIS POINT 



[143 



140$: 



ADDL3 

MULL2 

MOVQ 

ADDL2 

REI 



*7,32(SP),(SP) 
#4,<SP> 
24(SP),R0 
(SP), SP 



CALCULATE LONGWORD OFFSET TO SAVED PC 
CALCULATE NUMBER OF BYTES TO REMOVE 
RESTORE R0,R1 
REMOVE ARGUMENT LIST FROM STACK 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



SEARCH FOR CONDITION HANDLER 

*** EXCEPT Machine Exception 
SEARCH FOR CONDITION HANDLER 
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05F6 


1255 




05F6 


1256 




05F6 


1257 




05F6 


1258 




05F6 


1259 




05F6 


1260 




05F6 


1261 




05F6 


1262 




05F6 


1263 




05F6 


1264 




05F6 


1265 




05F6 


1266 




05F6 


1267 




05F6 


1268 




C5F6 


1269 




05F6 


1270 




05F6 


1271 




05F6 


1272 




05F6 


1273 




05F6 


1274 




05F6 


1275 




05F6 


1276 




05F6 


1277 




05F6 


1278 




05F6 


1279 




05F6 


1280 




05F6 


1281 




05F6 


1282 




05F6 


1283 




05F6 


1284 




05F6 


1285 




05F6 


1286 




05F6 


1287 




05F6 


1288 




05F6 


1289 




05F6 


1290 




05F6 


1291 




05F6 


1292 




05F6 


1293 




05F6 


1294 




05F6 


1295 




05F6 
05F6 


1296 
1297 


00000000 


00000001 


05F6 


1298 


00000006 
00000008 


Q5F6 
05F6 


1299 
1300 


oooooooc 


05F6 


1301 


00000010 


05F6 


1302 


00000014 


05F6 


1303 



.SBTTL SEARCH FOR CONDITION HANDLER 

SEARCH - SEARCH FOR CONDITION HANDLER 

THIS IS A SPECIAL INTERNAL ROUTINE THAT IS CALLED IN THE INITIAL SEARCH 
FOR A CONDITION HANDLER AND ON RESIGNAL FROM A PREVIOUSLY SIGNALLED 
CONDITION. 



INPUTS: 



OO(AP) = NUMBER OF CONDITION ARGUMENTS. 

(MAP) = ADDRESS OF SIGNAL ARGUMENT LIST. 

08CAP) = ADDRESS OF MECHANISM ARGUMENT LIST. 

12 CAP) = NUMBER OF MECHANISM ARGUMENTS. 

16CAP) = FP OF HANDLER ESTA8LISHER FRAME. 

20(AP) = FRAME DEPTH. 

24 (AP) = SAVED RO. 

28(AP) = SAVED R1. 

32 (AP) = NUMBER OF SIGNAL ARGUMENTS. 

36(AP) = EXCEPTION NAME (INTEGER VALUE). 

40<AP) = FIRST EXCEPTION PARAMETER (IF ANY). 

44<AP) = SECOND EXCEPTION PARAMETER (IF ANY), 



36+N*4(AP) = N'TH EXCEPTION PARAMETER (IF ANY). 
36+N*4+4(AP) = EXCEPTION PC. 
36*N*4+8(AP) = EXCEPTION PSL. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO LOCATE CONDITION HANDLER. 

RO = SSS.ACCVIO - STACK CANNOT BE READ FROM CURRENT MODE. 

RO = SSSJVOHANDLER - NO CONDITION HANDLER COULD BE FOUND. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

R1 = ADDRESS OF CONDITION HANDLER. 



CONDITION HANDLER ADDRESS 
SAVED PSW FROM CALL 
REGISTER SAVE MASK 
SAVED AP REGISTER IMAGE 
SAVED FP REGISTER IMAGE 
SAVED PC REGISTER IMAGE 
OTHER SAVED REGISTER IMAGES 



HANDLER 


= 


SAVPSW 


= 4 


SAVMSK 


= 6 


SAVAP 


= 8 


SAVFP 


= 12 


SAVPC 


= 16 


SAVRG 


= 20 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 



SEARCH FOR CONDITION HANDLER 

*** EXCEPT Machine Exception 
SEARCH FCR CONDITION HANDLER 
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0000 
6D Q000069C , EF DE 

50 10 AC DO 



51 51 02 



50 



51 
18 
14 AC 
28 
18 
00000007*9F41 
14 AC FE 8F 
02 
80 



51 



60 
37 

D6 



69 16 AC 

50 OC AO 

63 

JO AC 50 

00000027 , EF41 50 

55 

00000000'EF 

51 03 

08 

6E Q0000023'EF41 



8E 
51 



50 
3D 
60 
04 



10 AO 



51 
7E 



06 AO 
06 AO 



51 51 

50 
50 



50 01 



00000004 , 8F 
93 
OC 00 
02 OE 
50 14 
50 8E 



03 51 
50 04 

FF 8F 

F3 

OC AO 

04 AO 
FF6D 



DC 
EF 
D6 
13 
14 
7E 
91 
13 
D5 

DO 
12 
11 

E8 
DO 
13 
DO 

D1 
1A 
9F 
D1 
13 
DO 

D1 
1F 
DO 
13 

C8 
04 

D1 
12 
Er 
EF 
CO 
CO 

E9 
CO 

78 
12 
DO 
DO 
31 



50 08F8 Bf 3C 



05F6 

05F6 

05F8 

05FF 

05FF 

0603 

0603 

0605 

060A 

060D 

060F 

0611 

0619 

061E 

0620 

0622 

0622 

0625 

0627 

0629 

0629 

062D 

0631 

0633 

0637 

0637 

063F 

0641 

0647 

064A 

064C 

0654 

0654 

0657 

0659 

065C 

065E 

065E 

0661 

0662 

0662 

066A 

066C 

0672 

0678 

067B 

067E 

067E 

0681 

0684 

0684 

0689 

0688 

068F 

0693 

0696 

0696 



1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 



SEARCH: 

10$: 

20$: 



.WORD 
MOVAL 



30$: 
40$: 

50$: 



55$: 

60$: 
70$: 



80$: 
90$: 



MOVPSL 

EXTZV 

INCL 

BEQL 

BGTR 

MOVAQ 

CMP8 

BEQL 

TSTL 

MOVL 
BNEQ 
BRB 

BLBS 
MOVL 
BEQL 
MOVL 

CMPL 

B6TRU 

PUSHA8 

CMPL 

BEQL 

MOVL 

CMPL 
BLSSU 
MOVL 
BEQL 

BISL 
RET 

CMPL 

BNEQ 

EXTZV 

EXTZV 

ADDL 

ADDL 

BL6C 
ADDL 

ASHL 
BNEQ 
MOVL 
MOVL 
BRW 



L A CHANDL,<FP) 



MOVL 16(AP),R0 



; SEARCH FOR CONDITION HANDLER 

;ENTRY MASK 

;SET ADDRESS OF CONDITION HANDLER 

;GET PREVIOUS FRAME ADDRESS 



C14J 



R1 ;READ CURRENT PSL 

#PSL$V_CURM0D,*PSL$S_CURM0D,R1,R1 ;EXTRACT CURRENT MODE 



20CAP) 

50$ 

40$ 

a#CTL$AQ EXCVECCR1],R0 

#-2,20(AP> 

30$ 

(R0) + 

(R0>,R1 
60$ 

10$ 

22(AP),100$ 
SAVFP(RO),RO 
100$ 
R0J6CAP) 

R0,CTL$AL.STACKCR13 

100$ 

STACK BASE 

#PSL$OJSER,R1 

55$ 

CTL$AL.STACK-4CR13 # (SP) 

RO.(SP)+ 

106$ 

(R0),R1 

70$ 

#1,R0 



; INCREMENT FRAME DEPTH 

;IP EQL FIRST STACK FRAME 

;IF GTR OTHER STACK FRAME 

;GET ADDRESS OF EXCEPTION VECTOR QUADWORD 

; EXAMINE PRIMARY VECTOR? 

;IF EQL YES 

;ADJUST TO SECONDARY VECTOR 

;GET ADDRESS OF CONDITION HANDLER 
;U NEQ CONDITION HANDLER FOUND 



;U LBS SEARCH COUNT OVERFLOW 
;GET ADDRESS OF PREVIOUS FRAME 
:IF EQL NONE 
;SAVE ADDRESS OF ESTABLISHER FRAME 

;FRAME POINTER WITHIN STACK RANGE? 

;IF GTRU NO 

;SET LOWER LIMIT OF USER STACK 

; CURRENT MODE USER? 

;IF EQL YES 

;SET CURRENT MODE STACK LIMIT 

; FRAME POINTER WITHIN STACK RANGE? 
;IF LSSb NO 

;GET ADDRESS OF CONDITION HANDLER 
;IF EQL NONE 

; INDICATE SUCCESSFUL COMPLETION 



#SYS$CALL_HANDL+4,SAVPC(R0) ;CALL FROM CONDITION DISPATCHER? 



10$ 

*0,#12,SAVMSK(RQ),R1 

#14,#2,SAVMSK(R0),-(SP) 

#SAVRG,R0 

<SP)+,RO 

R1,90$ 

#4,R0 



;IF NEQ NO 
;GET REGISTER SAVE MASK 
;GET STACK ALIGNMENT BIAS 
;ADD OFFSET TO REGISTER SAVE 
;ADD STACK ALIGNMENT BIAS 



AREA 



;IF LBC CORRESPONDING REGISTER NOT SAVED 
;ADJUST FOR SAVED REGISTER 



*-1,R1,Rl ;ANY MORE REGISTERS SAVED? 

80$ ;IF NEQ YES 

CHF$L MCHARGLST+4(R0),R0 ;GET ADDRESS OF MECHANISM ARGUMENTS 

CHF$L~MCH FRAME (RO),RO ;GET ADDRESS OF ESTABLISHER FRAME 

20$ 



100$: MOVZWL #SS$„NOHANDLER,RO 



;SET NO HANDLER FOUND 



ZZ-ENSAA-7.0 

EXCEPT 

07-2A 



SEARCH FOR CONDITION HANDLER 

*** EXCEPT Machine Exception 
SEARCH FOR CONDITION HANDLER 
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04 


0698 
069C 
069C 


1362 
1363 
1364 




RET 








069C 


1365 


; CONDITION H 








069C 


1366 


* 










069C 


1367 












069C 


1368 


CHANDL : 








0000 


069C 


1369 




.WORD 


50 04 


AC 


DO 


069E 


1370 




MOVL 


04 AO 0920 


8F 


B1 


06A2 
06A8 


1371 
1372 




CMPW 




12 


13 


06A8 


1373 




BEQL 


51 08 


AC 


DO 


06AA 


1374 




MOVL 


OC A1 04 


AO 


DO 


06AE 


1375 




MOVL 




7E 


7C 


0683 


1376 




CLRQ 


OOOOOOOO'EF 


02 


FB 


06B5 
06BC 


1377 
1378 




CALLS 






04 


06BC 


1379 


10$: 


RET 



CONDITION HANDLER FOR SEARCH ROUTINE EXCEPTIONS 





CHf$L SIGARGLST(AP),RO 

*ss$ Onwind, - 

CHF$L SIG.NAME(RO) 
10$ 
CHF$L MCHARGLST<AP),R1 



SEARCH ROUTINE 
ENTRY MASK 
GET ADDRESS OF 
UNWINDING? 



CONDITION HANDLER 
SIGNAL ARGUMENTS 



IF EQL YES 
GET ADDRESS 



OF 



,...„.._ ._. .__ ... MECHANISM ARGUMENTS 

CHF$L~SI6 NAME(R0),CHF$LJ1CH SAVRO<RD ;SET FINAL STATUS 
-(SP)~ " ;CLESR DEPTH AND NEW PC ARGUMENTS 

02,SYS$UNWIND ;UNWIND TO ESTABLISHER'S CALLER 



ZZ-ENSAA-7.0 

EXCEPT 

07-24 
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39 
(1) 







06BD 


1381 






06BD 


1382 






06BD 


1383 






06BD 


1384 






06BD 


1385 






06BD 


1336 






06BD 


1387 






06BD 


1388 






06BD 


1389 






06BD 


1390 






06BD 


1391 






06BD 


1392 






06BD 


1393 






06BD 


1394 




0004 


06BD 


1395 






068F 


1396 


1C 


E1 


06BF 


1397 


12 OOOOFEOO'EF 




06C1 


1398 






06C7 


1399 


20 


11 


06D7 


1400 


00000007' EF 04 AC 


DO 


06D9 


1401 


OOOOOOOF'EF 04 AC 


DO 


06E1 


1402 


00000017'EF 04 AC 


DO 


06E9 


1403 


0000001 F'EF 04 AC 


DO 


06F1 


1404 




04 


06F9 


1405 






06FA 


1406 






06FA 


1407 



.SBTTL DSXSSETPRIEXV - ESTABLISH PRIMARY EXCEPTION VECTOR 



[19] 



FUNCTIONAL DESCRIPTION , [19] 

This routine services the DS$SETPRIEXV macro call, used by a l19j 
program running under the DS when the progam wishes to establish[19] 
a primary exception vector to field exception conditions before [19] 
the supervisor's condition handler takes over. [19] 

[19] 

INPUTS . CI 93 

4(AP) = Address of the condition handler [19] 

OUTPUTS C193 

None CI 93 



.ENTRY DSXSSETPRIEXV, A M<R2> 



100$: 



200$: 



BBC 

SSETEXV. 

BRB 

MOVL 

MOVL 

MOVL 

MOVL 

RET 

.END 



#DSASV USER,- 
DSA$GL_FLAGS,100$ 
S *0,34<AP) 
'200$ 

4<AP),CTL$AQ_EXCVEC 
4<AP),CTL$AQ_EXCVEC*8 
4(AP),CTL$AQ_EXCVEC+16 
4(AP),CTL$AQ..EXCVEC+24 



[19] 



IF USER MODE 


C19] 


THEN 


[19] 


CALL SYSTEM SERVICE 


[19] 


ELSE 


[19] 


SET KERNEL PRIMARY VECTOR 


[19] 


SET EXEC PRIMARY VECTOR 


[19] 


SET SUPER PRIMARY VECTOR 


[19] 


SET USER PRIMARY VECTOR 


C19J 


RETURN 


[19] 



ZZ-ENSAA-7.0 
EXCEPT 
Symbol table 

SSARGS 

$SN 

$$T1 

SER 

SMODULE 

AAT_ARITH 

AAT COMPAT 

APCl ABORT 

APCS.CONT1NUE 

APCS DUMP 

APCS^NOP 

APC$„START 

APCS.ZERO 

APMS_ABTDON 

APMSJ)EVERR 

APMS DONE 

APMS.EXCEPT 

APMSJMRDERR 

APM$ MORE 

APMSlNOMES 

APMS PREPERR 

APMS PRGERR 

APMS SOFTERR 

APMS~SPOOL 

APMS SYSERR 

APSLRNE 

BIT.,. 

BPTMAX 

BUFFER 

BUFSI2 

CHANDL 

CHFSL.MCHARGLST 

CHFSL MCH FRAME 

CHF$LlMCH";SAVRO 

chfsl^sigXrglst 
chfsl sig name 

CHRSMtHK " 

CLISK„BUFSIZ 

CLJSK^SIZE 

CLI$L_ADDRESS 

CLISL.COMMAND 

CLISL..DATA 

CLISL^FLAGS 

CLISL_LAST 

CLISLJJEXT 

CLISLlPASS 

CLISL.SUBT 

CU$l„TE$T 

CLISQIBUFQWD 

CLISQ FILE 

CLISQ.SECTION 

CLISQ..TIME 

CLIST_BUFFER 

CLISV„ADAPTER 

CLISV^AOR 

CLISV ASCII 

CLISV.BREAK 



Symbol table 
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OOOOOOOB 
00000001 
00000000 
00000003 
00000000 
000001 6B 
000002F0 
00000006 
00000009 
00000003 
00000000 
00000005 
00000004 
00000006 
00000002 
0000000A 
OOOOOOOB 
00000003 
00000008 
00000000 
OOOOOOOC 
00000005 
00000004 
00000009 
00000001 
******** 

00000004 
******** 
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DSSGLJLAGS 
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DSSK PRINTS 

DSSK PRINTF 
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dsskzsevere 
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dsskjypej\bort test 
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DSSM^CTRLO 

DSSM.DEVFLG 

DSSM„DISABLCC 
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DSSM MEMMGT 
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DSSVZBRKCLR 
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dssvzhltflg 
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DSSV TIMRON 

DSSjfalTH 

DSS..ASBE 

DSS..BADL1NK 

DSS~BADTYPE 

DSS^BUC 

DSS.CHME 

DSS CHMK 

DS$J)EVNAME 

DSSJRROR 

DSSJHWE 

dssjragbuf 

dssjskjxe mchk 

dssIgCiniTscb 

oss gk int work 
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OSS POWER 

OSS^PROGERR 

OSS^SEVERE 

DS$ITRANSL 

OSS TRUNCATE 

OSIIUNEXPINT 

OSS~VASFUU 

OSS WARNING 

OSAlAL APTMAIL 

OSASAT^APTTXT 

0SASGL„APTCOM 

OSASGL_OEVLEN 

OSASGL^ERRNO 

OSASGL.EVENT 

DSASGLJLAGS 
DSASGLlMSGTYP 
OSASGL_PASSES 
OSASGl.PASSNO 
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fmt"except 
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HANDLER 

IOSM CANCTRLO 

lOSjlRITEVBLK 

IS 

1STKPTR 

LOCAL 

MMGSPAGE FAULT 

MODELST 

MSGJtCCVIO 

MSG^BREAK 

MSG„CHME 

MSGZCHMK 

MSG.CHMS 

MSG.CHMU 

MSG.COMPAT 

MSG.DECOVF 

MSGJLTDIV 

MSGJLTDIVJ 

MSGJLTOVF 

MSGJLTOVFJ 

MSGJLTUND 

MSGJLTUNDJ 

MSGJNTDIV 

MSGJNTOVF 

MSG.KRNLSTK 

MSG„OPCCUS 

MSG.OPCDEC 

MSGJ>OWER 

MSG^RADRMOD 

MSG ROPRAND 

MSG SUBRNG 

MSGITBIT 

MSG„TRANSL 

MSGJJMCHK 

NEW_AP_FP 

NEW PC,PSL 

NEW SP 

NORBAL 

PCB BASE 

PRlRT^CHMX ARG 

print j>cp5l 
print.tyPe va 
printjjnk Exc 
psl$cjjser 
pslsmZcm 

PSL*M FPD 

PSLSM'TBIT 

PSLSM.JP 

PSLSS..CURMOD 

PSLSS PRVMOD 

PSLSVlCM 

PSLIVlCURMOD 

PSL$VJS 

PSl $V PRVMOD 

RESJGRAL 

SAVABS... 

SAVAP 
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SCB$L_ARITH 

SCBIL.BREAK 

SCB$L,CHME 

SCBlLlCHMK 

SCBSL_CHMS 

SCB$L„CHMU 

SCBSLlCOMPAT 

SCBSLlKNLSTK 

SCB$L_MACHCHK 

SC8$IJ)PCCUS 

SC8$L w OPCDEC 

SCB$L_POWER 

SCB$L,RADRMOD 

SC8*L.R0PRAND 

SC8SL.RXDB 

SCB$L_SFTLVL1 

SCBSL^SFT! VL10 

SCBILlSFTLVLIl 
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SCBSLlTBIT 

SCBSLlTIMER 

SCBSL.TRANSL 

SC8$LlTXDB 

SCBSLlZERO 

SC8 iPlAGE 

SCRlPTISTOP 

SEARCH 

SIZ** . 

SSS ACCVIO 

SSS BREAK 

SS$ICMODSUPR 

SS$ICMODUSER 

SS$ZCOMPAT 
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SS$ ROPRAND 
SS$ZTBIT 

SSI UNWIND 
SSTRPTR 

stack base 

sysscKll.handl 

SYSSQIO 

SYSSSETEXV 

SYS$UNWIND 

TSTSMCHK 

T, ABORT 

T„ACCV!0 

T..BREAK 

TlCHME 

T..CHMK 

T CHMS 

T..CHMU 
T COMPAT 
TJ)ECOVF 
T ..FAULT 
TJLTDIV 
T FLTOVF 
T.FLTUND 
T FLT ABO 

tintbiv 

ONTOVF 
TJNTRPT 

TJCRNLSTK 

T OPCCUS 

T.OPCDEC 

T^POWER 

T RAORMOD 

OOPRAND 

T„STKVIO 

T SUBRNG 

TITBIT 

TJRANSl 

T TRAP 

OCHFAJLURfc 

U5TKPTR 

X BREAK 

XlCHMS 

X CKMU 

X COMPAT 

X^DECOVF 

XlFlTDJV 

XJLTDIV.F 

XlFLYOVF 

XlFLTOVF.F 

X„FlTUND 

X FLTUND.F 

X~INTDIV 

X INTOVF 

X^OPCCUS 

X^OPCOEC 

X RAORMOD 

X"R0PRAND 
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! Psect synopsis ! 

PSECT No. Attributes 

( 0.) Oo"<H"o.) NOPIC USR 

( QJ 01 ( 1.) NOPIC USR 

( 20.) 02 ( 2.) NOPIC USR 

( 1895.) 03 ( 3.) NOPIC USR 

( 1786.) 04 < 4.) NOPIC USR 
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NORD 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC LONG 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.Q 

EXCEPT 

Cross reference 



Cross reference 
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+ ™™»-.— — mmmm .„- — •+ 
J Symbol Cross Reference ! 



SYM80L 

SSARGS 
$$N 



$ST1 

$ER 

SMODULE 

AAT^ARITH 

AAT COMPAT 

APC$_ABORT 

APC$_CONTINUE 

APCI.DUMP 

APCSJJOP 

APCS^START 

APCS^ZERO 

APM$J\BTDON 

APM$J>EVERR 

APM$_DONE 

APMS^EXCEPT 

APMS.HARDERR 

APM$ MORE 

APMSZNOMES 

APMS_PREPERR 

APM$ PRGERR 

APMS^SOFTERR 

APM$ISP00L 

apm$ syserr 
apslRne 

BIT... 

BPTMAX 
BUFFER 
BUFSIZ 
CHANOL 
CHF$L„MCHARGLST 

CHF$L MCH„FRAME 
CHFSllMCH SAVRO 
CHFSL^SIGARGLST 

chf$l~sig_name 
chrimChk 

CLI$K_BUFSIZ 

CLISKlSIZE 

CLI$L_ADDRESS 

CLISLICOMMAND 

CLISLZDATA 

CLISLFLAGS 



VALUE 

^OOOOOOOB 
=00000001 



DEFINITION 



REFERENCES,. 



:00O00000 

:00000003 
00000000-R 
000001 6B-R 
000002FO-R 

=00000006 

=00000009 

=00000003 

=00000000 

=00000005 

=00000004 

=00000006 

=00000002 

:Q000000A 

=00000006 

=00000003 

=00000008 

=00000000 

=0QQ0000C 

=00000005 

=00000004 

=00000009 

=00000001 
00000000-XR 

=00000004 

00000000-XR 

FFFFFFQO 

=00000100 

0000069C-R 

)08 

)04 

=00OO000C 

=000001 oo" x * 

QQ0Q0444 
00Q0QQ18 
00000004 
0000001 C 
00000000 



159 
862 



1399 

1242 

189 

225 

254 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

168 

172 



474 
174 
1368 



165 
165 
165 
165 
165 
165 



(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 

(1) 



(1) 
(1) 
(1) 



159 (1 






207 (' 


) 208 C 


) 209 


211 (' 


) 212 r 


) 213 


215 C 


) 216 C 


) 217 


219 (' 


) 220 (' 


) 221 


243 C 


) 244 C 


) 245 


247 V 


) 248 C 


) 249 


251 C 


) 252 V 


) 859 


1399 C 


I) 159 C 


I) 358 


1192 C 


I) #-1242 C 




1192 (' 


I) 1242 (' 





#-365 



#-406 
147 
158 
172 
#-1082 
798 
474 
1307 
#-1357 
#-1358 
#-1375 
#-1370 
#-1372 
146 
165 



#-642 (1) 



(1) 



798 
160 

144 

799 

#-798 



#-1375 
534 



210 
214 
218 
222 
246 
250 
#-862 



(1) 
(1) 

(1) 
(1) 
(1) 



166 



(1) 



167 



(1) 



#-1374 (1) 



(1) 
(1) 



ZZ-ENSAA-7,0 

EXCEPT 

Cross reference 



Cross reference 



N 5 

27-JUL-1984 



Fiche 7 Frame M5 



Sequence 1300 



*** 
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CLISLJ.AST 

CLISL.NEXT 

CLISL.PASS 

CLISL.SUBT 

CLISL.TEST 

CLISQ BUFQWD 

CLISQ.FILE 

CLISQ.SECTION 

CLISQ_TIME 

CLISTJ3UFFER 

CLISV.ADAPTER 

CLISV ADR 

CLISVJtSCII 

CLISV^BREAK 

CLISVJRIEF 

CLISV.BYTE 

CLISV.CLEAR 

CLISV DEC 

CLISVJ)EFAULT 

CLISV DEPOSIT 

CLISV,EVENT 

CLISV„EXAM 

CLISV_FLAGS 

CLISV HEX 

CHSV_KERNEL 

CL1SV..LOAD 

CLISV.LONG 

CLISV NOTNUF 

CLISV J)CT 

CLISV J>REG 

CLISV.QA 

CLISV^QACKLOO! LOOPS 

CLlSV_QAERRORPRINTS 

CLISV J3AMULTIPLEPASS 

CLISV_QASUBTESTLO0PS 

CUSVJ3ATESTL00PS 

CLISV.REG 

CLISV_REQUIRED 

CLISV^RUN 

CLISV.SET 

CLISV„SHOW 

CLISV„VALSEC 

CLISV JJORD 

CMKS_ 

CMKS^ASTEXIT 

CMKS CANTIM 

CMKS HIBER 

CMKS INITSCB 

CMKS_LAST 

CMKIJ1MENABLE 

CMKSJKONSOLE 

CMKS_REFRESH 

CMKS SCHDUK 

CMKSlSETIMR 

CMKS..SETIPL 

CMKS SETPRT 

CMKS.SGIPR 



00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

0000003C 

=00000018 

=0000000B 

=00000013 

=0000000A 

=00000018 

=00000000 

=00000002 

=00000010 

=0O0OO0OC 

=00000019 

=00000008 

=00000005 

=00000009 

=00000012 

=00000017 

=00000006 

=0000000F 

=00000001 

=0000001 1 

=0000001A 

=00000007 

=0000001 C 

=00000018 

=0000001 F 

=0000001 E 

=0000001 D 

=00000014 

=00000000 

=00000015 

=00000003 

=00000004 

=00000016 

=0000000E 

:«» 

=00000000 
=00000007 
=00000008 
=0000000E 
=00000003 
=00000001 
=00000005 
=00000006 

=oooggooc 

=00000009 
=0000000D 
=0000000A 



165 


(!) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


165 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 



Cross reference 



ZZ-ENSAA-7.0 

EXCEPT 

Cross reference 

CMK$ TCONSOLE 

COKMflN 

CONDJ)EBUG 

COND HANDLR 
COND'HANDLR CLI 
CTL$SL STACR 
CTLSAQJXCVEC 

CVTREGS.DATA 

CVTKEGS MAXLEN 

CVTREG$_MNEADR 

CVTREG$„MSB 

CVTREGSJ1ARGS 

CVTREG$_STRBUF 

CVTREG$„V1 

CVTREG$_V2 

CVTREGSJ/3 

CVTREGSJ/4 

CVTREGSJ/5 

CVTREGS V6 

DEBUG$GB FLAGS 

DIR... " 

DS$AA BPTADDR 

DSSABQRT 

OS$CLI 

DSSCVTREG 

DS$GA BREAKVEC 

DS$GA_TBITVEC 

OS$GB_TYPECODE 



dssgl. flags 
dssgw ttout 
os$k Error 
dsskjjormal 

ds$k..printb 
ds$k„prjntf 
ds$k_pr1nti 
ds$k printx 

DSSlTSEVERE 

ossk.subsys 

ds$k typej\bort„progaam 
ds$k type^abort test 
ds$k type commard..err 
ds$k~typelcommand out 
ds$k_type..crd autotest 
ds$k type ds Prompt 
ds$kItype;ds.start 
ossk.type.erRdev 
os$k type errhard 
ds$Oype~error„body 
ds$k~type_error end 

DSSlCTYPE fcRRPREP 

ds$k"type"errsoft 

ds$k~typejrrsup 
ds$k~type_errsys 
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=00000002 166 

000001 26-R 485 
00000000-XR 

00000000-R 355 

0000002F-R 363 

00000027-R 197 

00000007-R 191 

=00000008 159 

=00000014 159 

:OO00OOOC 159 

=00000004 159 

=OO00O00B 159 

=00000010 159 

=00000018 159 

=0000001 C 159 

=00000020 159 

=00000024 159 

=00000028 159 

:0000002C 159 

00000000-XR 

sFFFFFFFF 474 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 



00000000- 

00000000- 

=00000002 

=00000001 

=00000002 

=00000001 

=00000000 

=00000003 

=00000004 

=00000066 

=00000014 

=00000013 

=00000015 

=00000016 

=0000001A 

=00000001 

=0000001 D 

=00000008 

=00000006 

=00000009 

=oqqooooa 

=00000018 

=00000007 
=00000004 
=00000005 



XR 
XR 



160 
160 
158 
158 
158 
158 
160 
160 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
153 
158 



(1) 
(1) 



(1) 
(1) 
U) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

m 



#-479 
146 
195 
1239 

#-360 

#-1330 
1316 

#-1404 



#-1104 
474 
#-1083 
1193 
146 
147 
#-1078 
#-1102 

151 

#-588 

#-790 

148 

151 



160 



192 



#-1335 
#-1401 



(1) 



(1) 
(1) 



193 



CD 



194 



(1) 



#-1402 (1) #-1403 (1) 



145 

145 

1243 

409 

798 

145 

145 

#-369 

#-594 

r/-804 

403 

#-358 



(1) 



144 



(1) 



#-371 


(1) 


#-487 


(1) 


#-771 


(1) 


#-781 


(1) 


#-809 


(1) 






404 


(1) 







(1) 



ZZ-ENSAA-7.0 

EXCEPT 

Cross reference 



Cross reference 



B 6 
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DSSK TYPEJRR HALT 
DSSOYPE.EXCFPTION 

DSSK TYPE.EXCEPTION HEAD 
DSSK TYPE.FIRST PASS 
DSSK TYPE.GENER~L 
DSSOYPE.GENERAL ERROR 

dssk~type.no TESTS 

DSSOyPE.PARAM ERROR 

DSSK TYPE.PROGR5m.END 

DSSK TYPE. PROGRAM. INFO 

DSSK~TYPE.PROGRAM START 

DSSOYPE.QIOJNV&DP 

DSSK.TYPE.QI0.N0DR1VER 

DSSK.TYPE.Q10 WRONGVER 

DSSK.TYPE.SCRTPT ECHO 

DSSK TYPE. SCRIPT PNF 

DSSK~TYPE.SCRIPT~PROMPT 

DSSKlTYPE.SCRlPTlSKIP 

DSSK.TYPE.SEQUEN'E ERROR 

DSSK TYPE START ERR 

DSSOYPE~START LIST 

DSSK TYPE.SUMMARY 

DSSK~TYPE USER.PROMPT 

DSSK"WARNlNG 

DSSM'ABRTFLG 

DSSM.BADTIME 

DSSM_BATCH 

DSSM.BRKCLR 

DSSM BRKPT 

DSSM^CHARFLG 

DSSM.CMDFLG 

DSSM CTRLC 

DSSM~CTRLO 

DSSM~DEVFLG 

DSSM.DISABLCC 

DSSM.DONFLG 

DSSM ERRFLG 

DSSM~EXCEPT 

DSSM^EXETST 

DSSM.HLTFLG 

DSSM.LODFLG 

DSSM MEMMGT 

DS$M~OUTPUT 

DSSM.RUBFLG 

DSSM SCRIPT 

DSSM SETIMR 

DSSM~STRFLG 

DS$M"SUBT 

DSSM.SYSFLG 

DSSM TIMRON 

DSSVlABRTFLG 

DSSV.BADTIME 

DSSV BATCH 

DSSV^BRKCLR 

DSSV BRKPT 

DSSV CHARFLG 



=OO000OOD 
=0000000C 

=OO000OOB 

=00000011 

=00000000 

=00000003 

=00000012 

=0000001 C 

=00000010 

=00000017 

=OO000OOF 

=00000024 

=00000022 

=00000023 

=00000021 

=0000001 E 

=00000020 

=0000001 F 

=00000019 

=00000018 

=00000025 

=00000001 

=00000002 

=00000000 

=00000040 

=00100000 

=00400000 

=00001000 

=00000800 

=00000100 

=00000080 

=00000001 

=00010000 

=00000200 

=01000000 

=00002000 

=00000010 

=00080000 

=00040000 

=00000008 

=00000002 

=00008000 

=00800000 

=00000020 

=00200000 

=02000000 

=00000004 

=00004000 

=00000400 

=00020000 

=00000006 

=00000016 
=0000QQQC 

=00000008 
=00000008 



158 
158 

158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
160 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 

167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 
167 



#-368 
#-789 
#-486 



(1) 
(1) 
(1) 



#-593 
#-587 



(1) 
(1) 



#-770 



(1) 



#-780 



(1) 



ZZ-ENSAA-7.0 

EXCEPT 

Cross reference 

DSSV CMDFLG 

DSSV~CTRLC 

DSSV.CTRLO 

DSSV DEVFLG 

DSSVJHSABLCC 

DSSV DONFLG 

DSSVJRRFLG 

DSSV„EXCEPT 

DSSV EXETST 

DSSV HLTFLG 

DSSV LODFLG 

DSSV MEMMGT 

DSSV~OUTPUT 

DSSV„RUBFLG 

DSSV^SCRIPT 

DSSV„SETIMR 

DSSV STRFLG 

DSSV.SUBT 

DSSV SYSFLG 

DSSV'TIMRON 

DSS XRITH 

DSS~ASBE 

DSS^BADLINK 

DSS BADTYPE 

DSS.BI1C 

DSS..CHME 

DSS.CHMK 

DSS DEVNAME 

DSSlERROR 

DSS^FHWE 

DSS FRAGBUF 

DSS.GK.EXE MCHK 

DSS GK INITSCB 

DSS~GKJNT WORK 

DSS~GK TSTJMCHK 

DSS"ICBUSY 

DSS ICERR 

DSSZlHWE 

DSSJLLCHAR 

DSS ILLPAGCNT 

DSSJLLUNIT 

DSSJNSFMEM 
DSSJPL2HI 
DSSJVADDR 
DSSJVVECT 
DSS KRNLSTK 
DSSJ.OGIC 
DSS MCHK 
DSS"MMOFF 
DSSlNEEDUNIT 
DSS NODE 
DSS NOPCS 
DSS NORMAL 
DSS NOSUPPORT 
DSS"NOTDON 
DSS NOTIMP 
DSSlNULLSTR 



Cross reference 
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=00000007 

=00000000 

=00000010 

=00000009 

=00000018 

=0OOOOO0D 

=00000004 

=00000013 

=00000012 

=00000003 

=00000001 

=OO000O0F 

=00000017 

=00000005 

=00000015 

=00000019 

=00000002 

=OOO00O0E 

=0000000A 

=00000011 

=006600DO 

=00660118 

=006600F0 

=006600E8 

=00660120 

=006600A8 

=006600EO 

=00660108 

=00660002 

=00660068 

=00660080 

=00000000 

=00000002 

=00000003 

=00000001 

=006600C8 

=006600C0 

=00660060 

=00660018 

=00660078 

=00660100 

=00660050 

=00660088 

=00660040 

=00660038 

=00660090 

=00660070 

=00660088 

=00660058 

=0066Q0F8 

=00660128 

=00660110 

=00660001 

=00660061 

=00660030 

=00660060 

=00660010 



167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

167 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

172 

172 

172 

172 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 

160 



(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 



#-403 (1) 



#•404 (1) 



#-1067 (1) 



#-1134 
#-1126 



(1) 
(1) 



#-564 



#-547 
#-552 



(1) 



(1) 
(1) 



#-969 (1) 
#-913 (1) 



#-537 
#-530 



(1) 
(1) 



#-980 
#-965 



(1) 
(1) 



160 



(1) 



ZZ-ENSAA-7.0 

EXCEPT 

Cross reference 

DSS.OVERFLOW 
DSS POWER 
DS$~PROGERR 
DSS^SEVERE 
DSS TRANSL 
DS$~TRUNCATE 
DSSJJNEXPINT 
DSS VASFULL 
DS$ WARNING 
DSAlGL FLAGS 

dsasgl msgtyp 
dsasv oser 
dsr$f*ult clear 
dsrsfind oser pc 
dsxsprinTb 

DSXSPRINTl 

DSXSPR1NTS1G 

DSXSPRINTSIGI 

DSXSPRINTX 

DSXSSETPRIEXV 

DS ERRSUP 

ESTKPTR 

EXESACVIOLAT 

EXESBREAK 

EXESROPRAND 

EXE$TB1T 

EXE_3ARG 

EXF.4ARG 

EXE..ACCVIO 
EXE.ARITH 
EXE BREAK 
EXElCHME 
EXE CHMK 
EXE CHMS 
EXE"*CHMU 
EXE'COMPAT 
EXE^EXCEPTION 

EXEJ<RNLSTK 

EXE MCHK 

EXElOPCCUS 

EXEJ3PCDEC 

EXE_POWER 

EXE RADRMOD 

EXE^ROPRAND 

EXElTBIT 

EXE TRANSL 

EXE~UNEXPINT 

FIND USERPC 

FMT tHMX ARG 

FMORRPC 

FMT ERRPSL 

FMT..EXCEPT 



Cross reference 
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1395 (1) 



=00660008 160 (1 

=00660098 160 (1 

=00660020 160 (1 

=00660004 160 (1 

=006600A0 160 (1 

=00660028 160 (1 

=006600D8 160 (1 

=00660048 160 (1 

=00660000 160 (1 

0000FE00 

0000FE40 

=0000001 C 

00000000-Xft 

00000000-XA 

00000000-XR 

00000000-XR 

000001 08-R 476 (1) 

0000011A-R 481 (1) 

00000000-XR 

0000O6BD-R 

00000000-XR 

00000000-XR 

00000480-R 1036 (1) 

000004 A8-R 1077 (1) 

00000470-R 1017 (1) 

000004D4-R 1101 (1) 

00000523-R 1159 (1) 

0000051F-R 1155 (1) 

00000480-R 1035 (1) 

0000049C-R 1066 (1) 

000004A8-R 1076 (1) 

00000508-R 1133 (1) 

00000500-R 1125 (1) 

0000051 O-R 1142 (1) 

0000051 8-R 1151 (1) 

00000494-R 1057 (1) 

00000527-R 1169 (1) 

00000448-R 979 (1) 

00000428-R 964 (1) 

00000468-* 1007 (1) 

00000460-ft 998 <1) 

00000454-R 988 (1) 

00000478-P 1026 (1) 

00000470-F* 1016 (1) 

000004D4-F' 1100 (1) 

00000488-P 1046 (1) 

000004F5-F' 1116 (1) 

000003CD-R 848 (1) 

000004DD-P 281 (1) 

0000041 F-R 275 (1) 

00000473-K 278 (1) 

000003BD-R 273 (1) 



#-969 

#-1048 
#-1117 

160 
1398 
#-366 
#-1397 
149 
152 
H8 
144 

359 
149 

1192 
150 



#-1000 
#-1091 
#-1059 
#-1135 



#-1109 
#-1039 
#-972 



370 
784 
794 
802 
208 
212 
216 



(1) 



(1) 


#-542 


(1) 










(1) 


#-557 


(1) 










(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


364 
#-407 
#-364 
914 
855 
477 
482 


(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


384 

#-384 
970 

859 


(1) 

(1) 
(1) 

(1) 


862 


(1) 


(1) 
(1) 


478 


(1) 










(1) 
(1) 


1242 
198 


(1) 

(1) 


144 


(1) 






(1) 
(1) 
(1) 
(1) 


#-1009 
#-1111 
#-1068 
#-1144 


(1) 

(1) 
(1) 
(1) 


#-1019 
#-981 
#-1118 
#-1153 


(1) 
(1) 
(1) 
(1) 


#-1028 

#-991 

#-1127 


(1) 
(1) 
(1) 



(1) 
(1) 
(1) 



#-1050 (1) 



#-1157 (1) #-1161 (1) 



(1) 














(1) 














(1) 














(1) 














(1) 


209 


(1) 


210 


(1) 


211 


(1) 


(1) 


213 


(1) 


214 


(1) 


215 


(1) 


(1) 


217 


(1) 


218 


(1) 


219 


(1) 



ZZ-ENSAA-7,0 Cross 


reference 
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EXCEPT 


*** EXCEPT Machine 
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ing 
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& 
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220 


(1) 


221 


(1) 222 (1) 243 (1) 








244 


(1) 


245 


(1) 246 (1) 247 (1) 








248 


(1) 


249 


(1) 250 (1) 251 (1) 








252 


(1) 






FMT EXCEP.CODE 


000004C6-R 


280 


(1) 645 


(1) 






FMT~PXXX 


00000527-R 


284 


(1) 605 


(1) 






FMT'UMCHK 


00000383-R 


271 


(1) 207 


(1) 






FMT^UNEXPINT 


000003E7-R 


274 


(1) 560 


(1) 






FMTJJNK.ARG 


000004FO-R 


282 


(1) 590 


(1) 






FMTJJNK CNT 


00000512-R 


283 


(1) 596 


(1) 






FMT USER PC.NF 


00000454-R 


277 


(1) 862 


(1) 






FMTlUSRPt 


00000438-R 


276 


(1) 859 


(1) 






FMT VIRT 


00000494-R 


279 


(1) 775 


(1) 






HANDLER 


=00000000 


1297 










10$M CANCTRLO 


00000000-XR 




150 


(1) 


#-358 


(1) 


10$J)RITEVBLK 


00000000-XR 




151 


(1) 


#-358 


(1) 


IS 


=00000001 


173 










ISTKPTR 


00000000-XR 




150 


(1) 


198 


(1) 


LOCAL 


FFFFFFOO 


474 


(1) 489 


(1) 






MMGSPAGEFAULT 


00000488-R 


1047 










MODELS! 


00000000-XR 




147 


(1) 


798 


(1) 


MSGJKCVIO 


000000B7-R 


214 


(1) 522 


(1) 






MSG.BREAK 


000000F3-R 


217 


(1) 616 


(1) 






MSG CHME 


000001 2F-R 


220 


(1) 549 


(1) 






MSG.CHMK 


000001 1B-R 


219 


(1) 554 


(1) 






MSG,CHMS 


000001 43-R 


221 


(1) 624 


(1) 






MSG_CHMU 


000001 57-R 


222 


(1) 632 


(1) 






MSG COMPAT 


000001 07-R 


218 


(1) 640 


(1) 






MSG.DECOVF 


0000028C-R 


248 


(1) 733 


(1) 






MSG_FLTDIV 


00000264-R 


246 


(1) 717 


(1) 






MSGJLTDIV.F 


000002C8-R 


251 


(1) 757 


(1) 






MSG FLTOVF 


00000250-R 


245 


(1) 709 


(1) 






MSGlFLTOVF F 


000002B4-R 


250 


(1) 749 


(1) 






MSG FLTUND" 


00000278-R 


247 


(1) 725 


(1) 






MSGlFLTUND F 


000002DC-R 


252 


(1) 766 


(1) 






MSGJNTDIV" 


0000023C-R 


244 


(1) 701 


(1) 






MSGJNTOVF 


00000228-R 


243 


(1) 694 


(1) 






MSG_KRNLSTK 


0000003F-R 


208 


(1) 539 


(1) 






MSGJJPCCUS 


0000007B-R 


211 


(1) 654 


(1) 






MSG_OPCDEC 


00000067-R 


210 


(1) 662 


(1) 






MSG_P0WER 


00000Q53-R 
000000A3-R 


209 










MSG RADRMOD 


213 


(1) 670 


(1) 






MSG ROPRAND 


0000008F-R 


212 


(1) 678 


(1) 






MSG.SU8RNG 


000002A0-R 
000000DF-R 


249 


(1) 741 


(!) 






MSG.TBIT 


216 


(1) 686 


(1) 






MSG TRANSL 


0000OOCB-A 


215 


(1) 544 


(1) 






MSG~UMCHK 


00000037-R 


207 


(1) 527 


(1) 






NEUfAP.JP 


00000004-R 


182 


(1) #-415 


(1) 


#-424 


(1) 


NEU_PC PSL 


OOOOOOOC-fi 


184 


(1) #-417 


(1) 


#-426 


(1) 


NEW SP~ 


OOOOOQOO-R 
00Q0Q5A4-R 
00000000-XR 


180 


(1) #-416 


(1) 


#-425 


(1) 


NORflAL 


1216 


(1) #-1176 


(1) 


#-1179 


(1) 1207 (1) 


PCB BASE 




#-1185 


(1) 


#-1195 


(1) 148 (1) #-392 (1) 


PRIRT CHMX ARG 


0000034B-R 


779 


(1) #-555 


(1) 






PRINT'PC P5L 


00000360-R 


788 


(1) 492 


(1) 


566 


(1) #-609 (1) #-786 (1) 


prinOyPe va 


00000334-R 


769 


(1) #-523 


(1) 


#-545 


(1) 


PRINT UNK EXC 


Q000Q23A-R 
=00000003 


586 


(1) #-579 


(1) 






PSLSClUSER 




#-1333 


(1) 







ZZ-ENSAA-7.0 Cross 


reference 
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(1) 


PSL$M CM 


=80000000 






0-1205 


(1) 










PSl$M"FPD 


=08000000 






0-1206 


(1) 










PSL$M"TB1T 


=00000010 






0-1205 


(1) 










PSLWI TP 


=40000000 






0-1206 


(1) 










PSl*S~CURMOD 


=00000002 






0-1312 


(1) 


0-386 


(1) 


0-389 (1) 




PSL$S"PRVMOD 


=00000002 






0-1178 


(1) 










PSLSV CM 


=0000001 F 






0-1108 


(1) 










PSl$V~CURMOD 


=00000018 






0-1312 


(1) 


0-386 


(1) 


0-389 (1) 




PSLSV^IS 


=0000001 A 


166 


(1) 


0-1176 


(1) 


0-383 


(1) 






PSLSV PRVMOD 


=00000016 






0-1177 


(1) 










RES1GRAL 


000003C1-R 


807 


(1) 


518 


(1) 










SAVABS... 


=FFFFFF00 


474 


(1) 














SAVAP 


=00000008 


1300 


(1) 














SAVFP 


=00OO00OC 


1301 


(1) 


0-1326 


(1) 










SAVMSK 


=00000006 


1299 


(1) 


1347 


(1) 


1348 


(1) 






SAVPC 


=00000010 


1302 


(1) 


0-1345 


(1) 










SAVPSW 


=00000004 


1298 


(1) 














SAVR6 


=00000014 


1303 


(1) 


0-1349 


(1) 










SCB IMAGE 


00000000-XR 






152 


(1) 










SCRlPTSSTOP 


00000000-XR 






149 


(1) 


0-408 


(1) 






SEARCH 


000005F6-R 


1305 


(1) 


1225 


(1) 










SIZ... 


=00000001 


167 


(1) 


167 


(1) 










SS$ ACCVIO 


=0000000C 






0-1037 


(1) 


0-520 


(1) 






SS$~BREAK 


=00000414 






0-1090 


(1) 


0-518 


(1) 






SS$ CMODSUPR 


=0000041 C 






0-1143 


(1) 










SSS'CMODUSER 


=00000424 






0-1152 


(1) 










SS$_COMPAT 


=0000042C 






0-1058 


(1) 










SS$„CONTINUE 


=00000001 






0-421 


(1) 










SSSJ1CHECK 


=000002BC 






0-525 


(1) 










SSSJIOHANDLER 


=000008F8 






0-1361 


(1) 










SS$ OPCCUS 


=00000434 






0-1008 


(1) 










SS$J)PCDEC 


=0000043C 






0-999 


(1) 










SSS.RAORMOD 


=0000044C 






0-1027 


(1) 










SSS.tESIGNAL 


=00000918 






0-808 


(1) 










SSfJWPRAND 


=00000454 






0-1018 


(1) 










SSSJBIT 


=00000464 






0-1110 


(1) 










SSS UNWIND 


=00000920 
00000000-XR 






0-1371 


(1) 










SSTRPTR 






150 


(1) 


198 


(1) 






STACK BASE 


00000000-XK 






1332 


(1) 


148 


(1) 






SYSSCXLL.HANOL 


00000000-XH 
OQOOOOOO-Xfi 
00000000-XR 






1231 


(1) 


0-1345 


(1) 


149 (1) 




SYSSQIC 






358 


(1) 










SYSSSETEXV 






1399 


(1) 










SYSSUNWIND 
TST$MCHK 


OOOQQOOQ-XR 
000004 10-R 
0000068A-R 


911 




1377 


(1) 


146 


(1) 






T ABORT 


303 




208 


(1) 










T ACCVIO 


000005C5-R 


292 




214 


(1) 










T.BREAK 
T CHME 


00Q0QSFA-R 
0000061 8-R 


295 
297 




217 
220 


(1) 
(1) 










T~CHMK 


000Q0605-R 
0000062E-R 
00000645-R 


296 




219 


(1) 










TlCHMS 


298 




221 


(1) 










T CHMU 


299 




222 


(1) 










rCOMPAT 


000006A6-R 


306 




218 


(1) 


644 


(1) 






TDECOVF 
J J AULT 


0QQQQ746-R 
00000684-R 


302 




248 
210 


(1) 
(1) 


211 


(1) 


213 (1) 214 (1) 












215 
252 


(1) 
(1) 


217 


(1) 


250 (1) 251 (1) 




T.FLTOIV 


0000071 3-R 


311 


(1) 


246 


(1) 


251 


(1) 







ZZ-ENSAA-7,0 

EXCEPT 

Cross reference 

T FLTOVF 

T~FITUND 

T~FIT ABO 

TlNTBlV 

ONTOVF 

T INTRPT 

T"KRNLSTK 

TOPCCUS 

T OPCDEC 

TPOWER 

T~RADRMOD 

TROPRAND 

T STKVIO 

T~SUBRNG 

TITBIT 

T TRANSL 

T~TRAP 



T XCHFAILURE 

USTKPTR 

X^BREAK 

X CHMS 

X~CHMU 

XlCOMPAT 

X_DECOVF 

XJLTDIV 

X.FLTDIV.F 

X^FLTOVF 

X^FLTOVF^F 

XJLTUND 

XJITUNDJ 

X.INTDIV 

X INTOVF 

XlOPCCUS 

XJJPCDEC 

X.RADRMOD 

X ROPRAND 

X'SUBRNG 

XlTBIT 



Cross reference 
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54 
(1) 



00000701-R 
00000733-R 
0000069A-R 
000006EA-R 
000006D9-R 
00000690-R 
0000053B-R 
000005 7D-R 
0000055D-R 
00000552-R 
000005AC-R 
0000059B-R 
000006B9-R 
00000757-R 
000005F4-R 
000005DE-R 
0000067F-R 



00000656- 
00000000- 
0000027A- 
00000282' 
0000028A- 
00000292- 
0000030C' 
000002FC' 
00000324- 
O00002F4- 
0000031C- 
00000304- 
00Q0032C- 
000002EC- 
000002E4- 
000002BC- 
000002C4- 
0000Q2CO 
000002D4' 
00000314' 
000002DC' 



■R 

•XR 

•R 

•R 

■R 

■R 

•R 

•R 

■R 

■R 

•R 

•R 

•R 

•R 

•R 

■R 

»R 

•R 

>R 

•R 

•R 



310 
312 
305 
309 
30S 
304 
286 
289 
28fl 
287 
29*l 
290 
307 
314 
294 
293 
301 



300 

615 
6i>3 
631 
639 
732 
716 
756 
708 
748 
724 
765 
700 
693 
653 
661 
669 
677 
740 
685 



245 

247 

212 

244 

243 

209 

208 

211 

210 

209 

213 

212 

1192 

249 

216 

215 

216 

222 

246 

1242 

147 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 

518 



250 
252 
218 



198 



578 
578 
578 
578 
578 
578 
578 
578 
578 



578 



(1) 
(1) 
(1) 



643 



(1) 



219 


(1) 


220 


(I) 


221 


(1) 


243 


(1) 


244 


(1) 


245 


(1) 


247 


(1) 


248 


(1) 


249 


(1) 



(1) 



(1) 



ZZ-ENSAA-7.0 

EXCEPT 

Cross reference 



Cross reference 



MACRO 



SCHFDEF 

$D1„ABPROGRAM 

SD1..PRINTJ. 



$D1 PRINT. S 
$DEF 

SDEFINI 

1DS.ABQRT 

$DS_CVTREG_DEF 

$DS CVTREG..S 

SDSJ)SADEF 

$DSJ>SDEF 

$DS_SCBDEF 

$DS TYPEDEF 

$EQD 

SEQULS1 

SEQULST 

SGBLINI 

SOFFDEF 

SOFFSET 

SOFFST1 

SPRDEF 

SPR1NTI.L 



SPRINGS 

SPSLDEF 

SPUSHADR 

$PUSHTWO 

SQIOPUSH 

SQIOS 

$SETEXV„S 

SSSDEF 

SViELD 

SV1ELD1 

APTDEF 

BRJFJJSER 

CASE 

CUDEF 

CMKDEF 

DSFDEF 

ERRSUP,S 



SIZE 

1 
1 
2 



H 6 
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DEFINITION 



170 

1193 

207 



859 
172 
161 

1193 

159 

796 

169 

160 

163 

158 

172 

172 

158 

158 

159 

472 

474 

161 
207 



859 

162 

358 

358 

358 

357 

1399 

164 

167 

172 

168 

364 

494 

165 

16( 

16i 

1192 



(1) 
(1) 
(1) 



(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



+ _- m — + 

! Macros Cross Reference ! 

+ + 



REFERENCES.. 



170 

1193 

207 

212 

217 

222 

2^7 

252 

859 



1243 


(1) 






208 


(1) 


209 


(1) 


213 


(1) 


214 


(1) 


218 


(1) 


219 


(1) 


243 


(1) 


244 


(1) 


248 


(1) 


249 


v1> 



862 
162 



160 
160 
160 
160 



218 

243 
248 

862 

1242 

358 

171 



384 
567 



(1) 
(1) 



1243 (1) 



(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 

(1) 

(1) 

(1) 

(1) 



(1) 
(1) 



1242 (1) 



163 



(1) 



166 


(1) 


166 


(1) 


166 


(1) 


166 


(1) 


209 


(1) 


214 


(1) 


219 


(1) 


244 


(1) 


§49 


(1) 



1399 (1) 
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210 
215 
220 
245 
250 



164 



172 
172 
172 
167 



210 
215 
220 
245 
250 



358 



(1) 



211 
216 
221 
246 
251 



169 



(1) 



(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 



(1) 



172 (1) 



211 
216 
221 
246 
251 



798 



(1) 



ZZ-ENSAA-7,0 

EXCEPT 

Cross reference 

FLTCIR_SEL 
MODNAM 
SET.CMDFLG 
SETJXCEPT 



Cross reference 
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172 
189 
403 
404 



(1) 
(1) 
(1) 
(1) 



172 
189 
403 
404 



(1) 
<1> 
(1) 
(1) 



+———.-.-.—., — — — + 
! Performance indicators ! 



Phase 



Page faults CPU Time 



Elapsed Time 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



34 
138 

1314 

32 

733 

66 

8 

177 

2508 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.'0 
i 00. 73 
:22.91 
: 01.75 

:05.61 

:00,43 

:00.03 

:02.12 
:33.69 



00:00: 

00:00: 

00:00: 

00:00: 

00: 

00: 

00:00: 

00:00: 

00:00: 



00.31 
02.03 
29.88 
01.93 
09.36 
00.67 
00.06 
02.76 
47.00 



The working set limit was 1000 pages. 

158678 bytes (310 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1070 non-local and 63 local symbols. 

1407 source lines were read in Pass 1, producing object records in Pass 2. 

115 pages of virtual memory were used to define 42 macros. 



Macro library name 



0R81 :CDS.W0RKJD1AG.MLB;955 

0RB1:CDS.WORK3DS.ML8;218 

SYS$SYSR00T;[SYSLI8jLIB.ML8:1 

DMA1:CSYS0.SYSMAINT3DS.MI8;218 

0MA1:CSYS0.SYSMAINT3D1AG.MLB;953 

SYS$SYSR00T:CSYSLJB3LIB.MLB;1 

SYS$SYSROOT:CSYSLIB3STARLET.MLB;2 

TOTALS (all libraries) 



+ • m m ™ + 

! Macro library statistics ! 
+——..-.——. mmm —+ 

Macros defined 

1 



17 

40 



1187 GETS were required to define 40 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/UST=CDS.LIS]/CR0SS/ENA8LE = (DEBUG, TRACE) EXCEPT/UPDA=(EXCEPT, UPD, EXCEPT. ENH)*SYS$UBRARY:LIB/L1BRARY+DMA1 : CSYS0.SYSMA] 



ZZ-ENSAA-7.0 

FAO 

Table of contents 



67.2 
172.2 
381 
429 
500 
639 
851 
989 
1083.4 



*** - FORMATTED 



ASCII OUTPUT 
*** - FORMATTED 



ASCII OUTPUT 



J 6 , 

27-JUL-1984 Fiche 7 Frame J6 

27-JUL-1984 15:19;00 VAX-11 Macro 



Seguence 
V03-01 



1310 
Page 



Libraries, Equated Symbols 

FAO - Main program 

GETCHAR - Routine to get next char from input string 

GETCOUNT - Routine to get repeat-count or field-width 

CVTASC - Insert ASCII string 

CVTNUM - Convert numeric parameter to ASCII 

QUICKSERVE - Small service routines 

PERCENT - Time directives and plural *S* 

HANDLER - Condition handler 



ZZ-ENSAA-7,0 

FAO 

03-02 



-2 



*** - FORMATTED ASCII 

*** ♦» 



OUTPUT 

FORMATTED ASCII OUTPUT 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



-3 



.1 

.2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
.1 
.2 
.3 
.4 
.5 
.6 
.7 
.8 
,9 
43 
44 
45 
.1 
.2 
.3 
.4 
.5 
,6 



.TITLE 
.IDENT 
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FAO *** - FORMATTED ASCII OUTPUT 
* 03-02* 



1 

(1) 



********************************* *************************** *************** 

* 

COPYRIGHT (c) 1978, 1980, 1982 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON, NO TJTLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



*************************************************************************** 



+ + 



FACILITY: SYSTEM SERVICE 

ABSTRACT: 

This module provides general formatting services. It converts 
binary values to octal, hexadecimal, ana decimal ASCII 
representations, and also inserts ASCII strings and converts 
date and time to ASCII. 

ENVIRONMENT: 

VAX Diagnostic Supervisor. 
AUTHOR: 

Henry M, Levy 
CREATION DATE: 

29-JAN-1977 
MODIFIED BY: 

03-02 Jack Stansbury, Version 6,11?, January 6, 1983 

Change the IvSSRq error return code to BadParam. This is 
to make it consistent with the Design Guide. 

03-01 Jack Stansbury, Version 6.9, July 25, 1982 

Changed the real SYSFAO module to work in the Diagnostic 



ZZ-ENSAA-7.0 


"* - FORMATTED ASCII OUTPUT 




FAO 


*** - FORMATTED 


03-02 








0000 


.7 




0000 


.8 




0000 


.9 




0000 


.10 




0000 


46 




0000 


47 




0000 


48 




0000 


49 




0000 


50 




0000 


51 




0000 


52 




0000 


53 




0000 


54 




0000 


55 




0000 


56 




0000 


57 




0000 


58 




0000 


59 




0000 


60 




0000 


61 




0000 


62 




0000 


63 




0000 


64 




0000 


65 




0000 


66 




0000 


67 



ASCII OUTPUT 
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Supervisor environment. This includes changing the PSECT names, 
changing a return error code, and changing the Handler routine 
code. 

V03-005 MSH0001 Maryann S. Hinden 20-NOV-1981 
Use longword displacement to reference EXESSIGTORET. 

V03-004 DWT0001 David W. Thiel 06-Nov-1981 

Fixed condition handler. Check argument to SASCTIM to 
prevent exception in SASCTIM. 

V03-003 PCA0001 Paul C. Anagnostopoulos 22-Jul-1981 
Fixed a bug wherein !AF did not replace unprintable 
characters if it encountered result string overflow. 
Now it replaces those characters that it does copy. 



2 
(1) 



10-Mar-1981 

CALLS with longword 



V03-002 TCM0001 Trudy C. Matthews 

Change CALLS with word displacement to 
displacement. 

V03-001 TMH0001 Tim Halvorsen 24-Feb-1981 

Add condition handler to catch access violations 
and the like, so that services like SPUTMSG do 
not cause an access violation in programs like DCL 
simply because not enough arguments were supplied. 



Z2-ENSAA-7.0 

FAO 
03-02 
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Libraries, Equated Symbols 

*** - FORMATTED ASCJ1 OUTPUT 
Libraries, Equated Symbols 



-2 





0000 


.2 


•SBTTL Li 


bra 




0000 


70 








0000 


71 ; 








0000 


72 ; 


MACROS: 






0000 


73 ; 








0000 


74 








0000 


75 


SSSDEF 






0000 


.1 ; 


SCHFDEF 






0000 


.2 ; 


SSFDEF 






0000 


78 








0000 


79 ; 








0000 


80 ; 


EQUATED SYMBOLS 






0000 


81 ; 








0000 


82 






00000000 


0000 


83 


AR6C0UNT : 


= 


00000004 


0000 


84 


INDSC = 


4 


00000008 


0000 


85 


OUTLEN = 


8 


oooooooc 


0000 


86 


OUTDSC = 


12 


00000010 


0000 
0000 


87 
88 


FJRSTARG = 


= 16 


FFFFFFFO 


0000 


89 


JNLEN = 


-16 


^FffFF^ 


0000 


90 


INPTR = 


-12 


FFFFFFF8 


0000 


91 


LASTVAL = 


-8 


FFFFFFrC 


0000 
0000 


92 
93 


FJELDEND * 


= -4 


OOOOOOOD 


0000 


94 


CR 


13 


OOOOOOOA 


0000 


95 


Lf = 


10 


00000021 


0000 


96 


EXCL = 


33 


00000009 


0000 


97 


TA8 


9 


OOOOOOOC 


0000 


98 


FF = 


12 



M 6 
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>s, Equated Symbols 



3 

(1) 



define system status codes 
Condition handling facility 
Call frame definitions 



C013 

con 



offset to argument count 

offset to input string descriptor 

offset to output length 

offset to output buffer descriptor 

offset to first conversion param 



local offset to 

local offset to 

local offset to 

local offset to 



^nput length remaining 
input string pointer 
last value converted 
end of defined field 



carriage return 
line feed 
exclamation (' ! ') 
horizontal tab 
form feed 



ZZ-ENSAA-7.0 

FAO 

03-02 



Libraries, Equated Symbols 

*** - FORMATTED ASCII OUTPUT 
Libraries, Equated Symbols 
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-1 



35 
42 



34 
41 



33 
39 
46 



32 

38 
45 



31 
37 
44 



0000 
0000 
0000 
0000 
0000 
00000000 
0000 



30 
36 
43 



4F 
58 
55 
53 
5A 
41 
25 
2A 



28 
2D 
3C 
3E 



2F 
5F 
5E 
21 



U0000010 

00000008 

oooooooc 



46 44 53 43 



0000 

0000 

0006 

000C 

AQ10 

0010 

0010 

C010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0018 

0018 

0019 

001A 

0018 

001 C 

001C 

001 C 

001D 

001E 

001F 

0020 

0020 

0020 

C020 

0020 

0020 

0020 

0020 

0020 



99 
100 
101 
102 
103 

.1 
105 

106 ASC.NAMES: , , 

107 .ASCII /0123456789ABCDEF/ ; ASCII digits 



OWN STORAGE: 

.PSect Data 



NoExe, Shr, NoWrt, Long ; 



con 



108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

.1 
133 
134 
135 
136 
137 

.1 
138 
139 
140 
141 
142 

.1 
143 
144 
145 
146 
147 
148 
149 
150 



The following table contains the first character for all 
FAO conversion directives. The first part of the table 
contains the first character for two-character directives, 
while the second half of the table contains the one-character 
directives. 

NOTE — The ordering of this table must be preserved. The index 
of the directives found in this table is used to dispatch 
via a CASE statement in the main program (FAO). 
Routine CVTNUM also uses the index to dispatch and to 
compute the proper radix for the conversion. 



CNTRL TABLE: 
TWO.CRAR^CNTRLS: 

.ASCII /07 

.ASCII m 

.ASCII /[)/ 

.ASCII ISI 

.ASCII III 

.ASCII /A/ 

.ASCII IXI 

.ASCII /*/ 

0NE„CHAR_CNTRLS: 

.ASCII /+/ 

.ASCII /-/ 

.ASCII /</ 

.ASCII />/ 



REPLACE.CHRS: 

.ASCII 
.ASCII 
.ASCII 
.ASCII 



./. 

/ / 
/*/ 

l\l 



octal conversions 

hex conversions 

unsigned decimal 

signed decimal 

unsigned decimal zero filled 

asc*' 1 insertion directives 

time conversion, or plural indication 

character repeater 



skip argument 
backup argument 
begin field definition 
end of field definition 

these are one or two char replacements 

new line 

tab 

form feed 

insert exclamation 



length of table 



CNTRL J.ENGTH = ,-CNTRL_TABLE 

ONECHARJNDEX = CNTRL..LENGTH - <0NE„CHAR_CNTRLS - CNTRL_TABLE> 

REPL^OFFSET = REPLACE. CHRS - CNTRL.JABLE ; offset of replacement chars 



STRING TYPES: 

.ASCII /CSDF/ 



ascii string types 



ZZ-ENSAA-7.C 

FAO 

03 02 



Libraries, Equated Symbols 

*** - FORMATTED ASCJJ OUTPUT 
Libraries, Equated Symbols 

DATATYPES: 

.ASCJJ 
PERCENTER: 

, ASCJJ 
FIELDS: 

.BYTE 
REPLACEMENT: 

.BYTE 
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0024 


151 


4C 57 42 


0024 


152 




0027 


153 


54 44 53 


0027 


154 




002A 


155 


20 10 08 


002A 


156 




002D 

002D 


157 


21 OC 09 OA 


158 




0031 


159 




0031 


160 




0031 


161 




0031 


162 




0031 


163 




0031 


164 




C031 


165 




0031 


166 
167 




0031 


00 08 06 03 


0031 


168 


08 04 02 


0035 


169 
170 




0038 




0038 


171 


OA OA OA 10 08 


0038 


172 



/BWL/ 

/SDT/ 

8,16,32 

LF,TAB,FF,EXCL 



byte, word , or long 
subtypes for X directive 
field size for B,W, and L 
simple replacement table 



The following array contains the number of Octal and Hex digits in 

' ' ' ' ' J ,J " - L '-'- are first, fcL - 

array may be 



; ine toi Lowing array contains tne numoer or uciai _. _ _ 

; byte , word, and longword fields. The byte digits are first, the 

; hex digits starting at the 4'th entry so that the 



context indexed, 
OCT_HEX,DJGJTS; 



.BYTE 
.BYTE 



3,6,11,0 
2, A, 8 



RADJX: 



.BYTE 8,16,10,10,10 



; radix for numeric conversions 



ZZ-ENSAA-7,0 

FAO 
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-4 



FAO - Main 



program 



• FORMATTED ASCII OUTPUT 
FAO - Ma^'n program 
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-3 



003D 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.2 
.3 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
2i1 

in 

213 

214 

215 

216 

217 

.1 

.2 

.3 

,4 

221 

® 

224 
225 
226 



.SBTTL FAO - Main program 

.PSect Code Exe, Sftr, NcWrt, Long 

FUNCTIONAL DESCRIPTION: 

This routine is the entry point for the FAO and FAOL system 
services. The caller's control string is scanned for control 
characters ('J'). All other information is simply passed to 
the output buffer. If a control directive is found, it is parsed 
and an action routine is dispatched. 

CALLING SEQUENCE: 

CALLS or CALLG to SYSSFA0 or SYSSFAOL 

INPUT PARAMETERS: 

INDSC - The address of a string descriptor for the input 

control string. 
OUTLEN - The address of a word to receive the length of 

the output string 
OUTDSC - The address of a string descriptor for the output 

buffer. 
FJRSTARG - For FAOL , this is the address of a list of longword 

parameters. For FAO , this is the first of a 

variable number of parameters which 

may have been passed on the call argument list, 

IMPLICIT INPUTS: 

none 
OUTPUT PARAMETERS: 

OUTLEN - Word pointed to will receive length of output buffer. 
IMPuICIT OUTPUTS: 

none 
COMPLETION CODES: 



6 
(1) 



[01] 



SSS^NORMAL 
SSSlBUFFEROVF 

SS$.8adParam 



- success code, normal return 

- output buffer overflow, attempt to write past end 
of output buffer 

- Invalid directive specified or unable to read 
argument list or address arguments 



C023 
[023 



SIDE EFFECTS: 
none 



ZZ-ENSAA-7.0 
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FAO - Main 



program 
*** 

FAO 



- FORMATTED ASCJI OUTPUT 

- Main program 
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7 
(1) 



-1 



-1 



5B 



10 AC 
06 



OFFC 

DE 
11 



OFFC 
58 10 AC 00 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0002 
0006 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 
000A 
000A 



.2 
• 3 
229 
?30 
231 
232 
233 
234 
235 
236 
237 
238 
239 
.1 
241 
242 
243 
244 
245 
246 
247 
248 
,1 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
.1 
.2 



Global register usage: 

R7,R8 - scratch 
R9 - number of 



registers 
characters 



ny - numoer ot tnaracters remaining in 
R10 - current position in output butter 
R11 - pointer to next conversion pa 



output buffer 
parameter 



Locals 



INLEN(FP) - (word) length of input control string 
INPTR(FP) - address of position in input control string 



Entry point for call with multiple arguments on stack 



EXESFA0:: 



• WORD 
M0VAB 
M0VAL 
BRB 



*rf<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; save all registers 
W A HANDLER, <FP) ; Establish condition handler 
FJRSTARG<AP),R11 ; get address of first argument 



con 



FAO 



go to main routine 



Entry point for FA0L call. 



EXESFA0L: 



.WORD 
M0VA8 
M0VL 



A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
W A HANDtER,(FP) ; Establish 



FIRSTARG(AP),R11 



condition handler 
address of first argument 



C013 



ZZ-ENSAA-7.0 

FAO 
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FAO - Main 



program 



7E 

7E OA BC 

59 OC BC 

59 59 



7E 

FO AD 21 

FA BD 

02 

6E 



FO AD 



50 

56 

50 

56 

75 

56 

6A 

76 8E 

FA AD 51 

5A 53 

7C 



FO AD 
59 

FA BD 



- FORMATTED ASCII OUTPUT 
FAO - Main program 



7C 
7D 
7D 
3C 



27-JUL-198A Fiche 7 Frame E7 Seguence 1318 

27-JUL-198A 15:19:00 VAX-11 Macro V03-0T Page 8 
25-JUL-1982 14:31:26 DMA1 :CSYS0.SYSMAINT]FAO.MAR;1 (1) 



DA 
3A 

13 
D6 

A3 

DO 
A2 
19 
28 

E9 
DO 
DO 
10 



000E 
000E 
000E 
0010 
001A 
0018 
001B 
001B 
001B 
001B 
001 B 
001B 
001B 
001B 
001 D 
0021 
0023 
0025 
0027 
0027 
002B 
002C 
0030 
0033 
0035 
0039 
003A 
003D 
00A1 
OOAA 



.A 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 



FAO: 



CLRQ 
MOVQ 
MOVQ 
MOVZWL 



-<SP) 

SINDSC(AP),-(SP) 

aOUTD$C(AP),R9 

R9,R9 



; save space for LASTVAL and FIELDEND 

; save locals on stack 

; load output descriptor into R9,R1Q 

; ensure word length 



Look for a control 
up to the control. 



character in the input string. Copy text 
if any , to the output buffer. 



MAIN^SCAN: 

CLRL 
LOCC 



276 

277 

278 10$: 

279 

280 
281 
282 
283 

28A 
285 
286 
287 



BEQL 
INCL 



-(SP) ; indicate control not found 

#EXCL,JNLEN(FP),SINPTR(FP) ; search for control char 



10$ 
(SP) 



SUBW3 R0,INLEN(FP),R6 

MOVL R0,INLEN(FP) 

SUBU R6,R9 

BLSS OVERFLOW 

MOVC3 R6,aiNPTR(FP),(RlO) 

BL8C (SP)+,D0NE 

MOVL R1JNPTRCFP) 

MOVL R3,R10 

BSB8 GETCHAR 



; branch if not found 

; set indicator to show char, found 

; calculate bytes to move 

; update input length remaining 

; update and test output length 

; not enough room, error exit 

; move text part of input string 

; leave if no controls left 

; update input address pointer 

; update output address pointer 

; skip control char 



ZZ-ENSAA-7.Q 

FAO 
03-02 

-1 



FAO - Main 



program 



55 



53 



55 



01 

52 

0081 

n 

28 
OD 
52 
56 
03 
56 



6F 
60 

10 53 

00000010'EF 

39 

08 50 
05 
4F 

54 53 

02 52 

47 



02 

05 

FB 55 
93 



- FORMATTED ASCJJ OUTPUT 
FAO - Main program 
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DO 
D4 
30 
10 
91 
12 
D6 
D5 
19 
DO 

10 
10 

3A 

13 

D1 
15 
10 
DO 

E9 
10 



53 10 50 C3 



11 

10 

F4 
11 



0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0049 
004B 
004E 
0050 
0053 
0055 
0057 
0059 
005B 
005E 
005E 
0060 
0062 
0062 
0065 
006A 

006C 
006F 
0071 
0073 
0076 
0076 
0079 
007B 
007B 
0078 
007F 
007F 
007F 
007F 
007F 
0Q7F 
007F 
0081 
0081 
0083 
0083 
0086 



289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 

308 
309 
310 
311 
312 
313 

314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 

s? 

Ill 

334 
335 
336 



P$se the directive which has been found in the input string. Set 
up: RO = remaining count in CNTRL TABLE 

R4 = second char if two-char directive 

R5 = repeat count 

R6 = field width 



PARSE. 



10$: 



20$: 



30$: 
40$: 



DIRECTIVE 


« 
• 


MOVL 


#1,R5 


CLRL 


R2 


BSBW 


GETCOUNT 


BSB8 


GETCHAR 


CMPB 


# A A/(/,R3 


BNEQ 


20$ 


INCL 


R2 


TSTL 


R6 


BLSS 


10$ 


MOVL 


R6,R5 


BSBB 


GETCOUNT 


BS8B 


GETCHAR 


LOCC 


R3,*CNTRL_LENGTH, 


BEQL 


ILLEGAL 


CMPL 


R0,*ONECHARJNDEX 
30$ 


BLEO 


BSBB 


GETCHAR 


MOVL 


R3,R4 


BLBC 


R2,40$ 


BSBB 


GETCHAR 



yet ) 



SUBL3 R0,#CNTRLJ.ENGTH,R3 



default repeat count is 1 

paren indicator ( not found 

pull off count, if any 

get next char from input string 

was next char a paren? 

branch if not 

set paren found indicator 

was there a repeat count? 

no. .use default 

else get repeat count 

look for field width 
get next char 

JLE ; check character in table 

illegal directive exit 
is this a one char directive? 
yes, don't need any more 
get second control char 
move to R4 for return 

skip if no paren found 
else skip paren char 



compute offset for case table 



The following does a BSBB to the case dispatch 

table. The service routines do an RSB and return into CASE_L00P. 



BRB CASE„L00P 
CASE_BSB: 

BSBB FAO CASE 
CASE..L00P: 

S0BGEQ R5,CASE BSB 

BRB MAIN.SCAN 



; start processing loop 

; dispatch next directive 

; repeat as specified 

; else continue string processing 
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FAO - Main 



program 



- FORMATTED ASCII OUTPUT 
FAO - Main program 



G 7 

27-JUL-1984 Fiche 7 Frame 67 Seguence 1320 

27-JUL-1984 15:19:00 VAX-11 Macro V03-0T Page 
25-JUL-1982 14:31:26 DMA1 :CSYS0*SYSMAINT3FAO.MAR;1 



10 
(1) 



-2 



-2 



0OD3 



50 U 
0C 



50 0601 8F 
59 
03 



50 01 



08 AC 

06 

0C BC 59 

08 BC 





0088 


338 




0088 


339 




0088 


340 




0088 


341 




0088 


342 




0088 


343 




0088 


344 




0088 


345 




0088 


346 




0088 


347 




0088 


348 




0088 


349 




0088 


350 




0088 


351 




0088 


352 




0088 


353 




0088 


354 




0088 


355 




0088 


356 




0088 


357 




0088 


358 




0088 


359 




0088 


360 




0088 


361 




00A2 


362 


31 


00A2 


363 




00A5 


364 




00A5 


365 




00A5 


366 


3C 


00A5 


.1 


11 


0OA8 


.2 




OOAA 


.3 




OOAA 


369 


3C 


OOAA 


370 


D4 


OOAF 


371 


11 


00B1 


372 




00B3 


.1 




00B3 


.2 


3C 


00B3 


.3 




00B6 


.4 




00B6 


375 


D5 


00B6 


376 


13 


00B9 


377 


A3 


OOBB 
OOBF 


378 


04 


00C1 


379 



for dispatching FAO service 

BSBB from CASE.BSB. The routines 



; Here is the main dispatch table 

; routines. The case is entered via .._... _ - 

; RSB to CASE. LOOP, Since the 5 numeric conversion directives all 

; dispatch to the same routine, the case has a base of 5 and the 

; numeric directives fall through to the statement following the CASE 



Registers RO, R1, and R2 may be scratched by service routines* 



FAO.CASE: 



CASE 



>,B,*5 
BRW 



R3,<- 

CVTASC- 

PERCENT,- 

REPEATJT,- 

INCR.ARGPTR,- 

DECR ARGPTR,« 

STARTFIELD,- 

ENDFIELD,- 

NEWLINE,- 

INSERT_CHAR,- 

INSERT CHAR,- 

INSERT'CHAR,' 



CVTNUM 



ILLEGAL: 



MOVZWL #SS$ BadParam,RO 
BRB FAOjXIT 



OVERFLOW: 

MOVZWL #SS$_BUFFEROVF,R0 

CLRL R9 

BRB FAO.EXIT 

DONE: 

MOVZWL *SS$_N0RMAL,R0 

FA0„EXIT: 

TSTL OUTLEN(AP) 

BEQL 10$ 



dispatch to service routine 

ascii string insertion 

insert ascii time or plural 'S 

repeat character 'n* times 

skip next parameter 

backup to previous parameter 

define fixed length field 

terminate fixed length field 

insert CR/LF 

insert TAB 

insert form feed 

insert '• ! • 

offset start by 5 

dispatch to numeric conversion 



Error return code 



error return code 

ensure correct return length 



no errors 



; was a return length required? 
; branch if not 



C02] 



SUBW3 R9,90UTDSC(AP),aOUTLEN(AP) ; compute and return output buffer length 
RET 



ZZ-ENSAA-7.0 

FAO 

03-02 

-1 



GETCHAR - Routine to get next char from 

*** - FORMATTED ASCII OUTPUT 
GETCHAR - Routine to get next 



H 7 
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00C2 


381 


00C2 


382 


00C2 


383 


00C2 


384 


00C2 


385 


00C2 


386 


00C2 


387 


00C2 


388 


00C2 


389 


00C2 


390 


00C2 


391 


00C2 


392 


00C2 


393 


00C2 


394 


C0C2 


395 


00C2 


396 


00C2 


397 


00C2 


398 


00C2 


399 


00C2 


AGO 


00C2 


401 


00C2 


402 


00C2 


403 


00C2 


404 


00C2 


405 


00C2 


406 


00C2 


407 


00C2 


408 


00C2 


409 


00C2 


410 


00C2 


411 


00C2 


412 


00C2 


413 


00C2 


414 


00C2 


415 


00C2 


416 


00C2 


417 


00C2 


418 


0OC2 


419 


00C2 


420 



,$BTTL GETCHAR - Routine to get next char from input string 



♦+ 



FUNCTIONAL DESCRIPTION: 

This routine gets the next character from the input control 
string, updating the Length and address pointers. If the Length 
goes negative, an error exit is caLled. 

CALLING SEQUENCE: 

JS8 (R8) 
INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

INLEN(FP) - Lower word has remaining Length of input string 
INPTR(FP) - is pointer to current string position 

OUTPUTS: 

R3 - next character in input string 
IMPLICIT OUTPUTS: 

none 
COMPLETION CODES: 

none 

SIDE EFFECTS: 

input pointers on stack are updated 
error may cause jump to ILLEGAL 



ZZ-ENSAA-7,0 

FAO 

03-02 

-1 



GETCHAR - Routine to get next char from 

*** - FORMATTED ASCII OUTPUT 
GETCHAR - Routine to get next 



53 







0OC2 


A22 GETCHAR: 




FO AD 


B7 


0OC2 


A23 DECU 


INLEN<FP) 


DE 


19 


0OC5 


A2A BLSS 


ILLEGAL 


FA BD 


9A 


00C7 


A25 M0VZ8L 


8INPTR(FP),R3 


FA AD 


D6 


OOCB 


A26 INCL 


INPTR(FP) 




05 


OOCE 


A27 RS8 
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; deer input length remaining 

; error if no more left 

; get next character 

; update pointer 

; return 



12 
(1) 



ZZ-ENSAA-7,0 

FAO 

03-02 

-1 
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.SBTTL GETCOUNT - Routine to get repeat-count or field-width 

++ 

FUNCTIONAL DESCRIPTION: 

This subroutine to PARSE DIRECTIVE scans for a repeat-count or 
field-width in the directive in the input stream. If a numeric 
count is found, it is converted to binary. If a f * f character 
is found, the count is taken from the next parameter 
in the parameter list. 

CALLING SEQUENCE: 

JSB or BSB 
INPUTS: 

R11 - parameter pointer 
IMPLICIT INPUTS: 

none 
OUTPUTS: 

R6 - value of count, if ft or number found, else -1 
IMPLICIT OUTPUTS: 

R11 may be modified if a parameter is taken from the stack 
COMPLETION CODES: 

none 
SIDE EFFECTS: 

R1, R3, and R4 are destroyed 



13 
(1) 



00CF 


429 


00CF 


430 


00CF 


431 


OOCF 


432 


OOCF 


433 


OOCF 


434 


OOCF 


435 


OOCF 


436 


OOCF 


437 


OOCF 


438 


OOCF 


439 


OOCF 


440 


OOCF 


441 


OOCF 


442 


COCF 


443 


OOCF 


444 


OOCF 


445 


OOCF 


446 


OOCF 


447 


OOCF 


448 


OOCF 


449 


OOCF 


450 


OOCF 


451 


OOCF 


452 


OOCF 


453 


OOCF 


454 


OOCF 


455 


OOCF 


456 


OOCF 


457 


OOCF 


458 


OOCF 


459 


OOCF 


460 


OOCF 


461 


OOCF 


462 


OOCF 


463 


OOCF 


464 


OOCF 


465 


OOCF 


466 


OOCF 


467 


OOCF 


468 



ZZ-ENSAA-7.0 

FAO 

03-02 

-2 
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not found indicator 
is this a param. count? 
yes ,. puLL next param 
zero buffer for digit (R3> 
..♦ and accumulator for sum 
remember where we were 



14 
(1) 











OOCF 


471 
















OOCF 


472 GETCOUNT: 






56 


01 


CE 


OOCF 


473 




MNEGL 


n,R6 


F4 


BD 


23 


91 


00D2 


474 




CMPB 


# A A/#/,3INPTR(FP) 






26 


13 


00D6 


475 




BEQL 


40$ 






53 


7C 


00D8 
OODA 


476 
477 




CLRQ 


R3 


51 


F4 


AD 


DO 


OODA 


478 




MOVL 


INPTR(FP),R1 










OODE 


479 10$: 






F4 


BD 


30 
53 


83 


OODE 
00E2 


480 




SUBB3 


# A A/0/,aiNPTR(FP),R3 






OF 


19 


00E3 


481 




BLSS 


20$ 




53 


09 


91 


00E5 


482 




CMPB 


# A A/9/- A A/0/,R3 






0A 


19 


00E8 


483 




BLSS 


20$ 




54 


0A 


C4 


OOEA 


484 




MULL2 


#10, R4 




54 


53 


CO 


OOED 


485 




ADDL 


R3,R4 






DO 


10 


00F0 


486 




BSBB 


GET CHAR 






EA 


11 


00F2 
00F4 


487 
488 


20$: 


BR8 


10$ 


F4 


AD 


51 


D1 


00F4 


489 




CMPL 


RUNPTR(FP) 






03 


13 


OOF 8 


490 




BEQL 


30$ 




56 


54 


DO 
05 


OOFA 
OOFD 
OOFD 
OOFE 
OOFE 


491 
492 
493 
494 
495 


30$: 
40$: 


MOVL 
RSB 


R4,R6 




56 


8B 


DO 


OOFE 


496 




MOVL 


<R11)+,R6 






BF 


10 
05 


0101 
0103 


497 
498 




BSBB 
RSB 


GET CHAR 



<R4> 



subtract ascii from char 

branch if not numeric 

still numeric? 

no, branch 

shift for next digit 

add in next digit 

skip digit we took 

continue while numeric 

did we get any chars? 

no, leave 

yes, return value 



return 



get value 
skip '#• 
return 



from next parameter 



ZZ-ENSAA-7.0 

FAO 

03-02 

-1 



CVTASC - Insert 



ASCII string 

*** - FORMATTED ASCII 

CVTASC - Insert ASCII 



OUTPUT 
string 
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0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
C104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 
0104 



500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 



.SBTTL CVTASC - 
.LIST MEB 



Insert ASCII string 



++ 



FUNCTIONAL DESCRIPTION: 



Service routine to handle ASCII string insertions. 
Strings are specified by several different methods. For 
filled strings (AF) , non-printing characters are output 
as dots (• 



r. 



CALLING SEQUENCE: 



JS8 or BS8 



INPUTS: 



R3 

R4 

R6 

R9 

R10 

R11 

IMPLICIT INPUTS: 



index of first control char in CNTRL_TABLE 

second control character 

output field width 

output buffer length remaining 

output buffer pointer 

parameter pointer 



none 
OUTPUTS: 

none 

IMPLICIT OUTPUTS: 

R9 and R10 are update to point to current position in output buffer 
R11 is updated as parameters are taken from the stack 

ROUTiNE VALUE: 

none 
SIDE EFFECTS: 

R7 and R8 are destroyed 



Z7-ENSAA-7.0 

FAO 

03-02 



-4 



CVTASC - Insert 



ASCII string 
*** - FORMATTED 
CVTASC - Insert 



ASCII 
ASCII 



0078 8F 

57 

04 54 

00000020' E F 

61 



BB 
D4 
3A 

13 



0^' 02 50 8F 

0008' 
000D* 
001 5 • 



57 D6 



51 



8B 
OE 



7D 
11 



51 
51 



9B 
51 
06 



7D 
3C 
11 



52 
51 



8B DO 
82 9A 



58 



56 
03 
51 



DO 
18 
DO 



0104 
0104 
0104 
0108 
01 OA 
010D 
0112 
0114 
0114 
0114 
0114 
0114 
0114 
0118 
C1 18 
011A 

one 

01 IE 

011E 

011E 

011E 

011E 

01 IE 

01 IE 

011E 

0120 

0120 

0123 

0125 

0125 

0125 

0125 

0125 

0125 

0125 

0128 

01 2B 

012D 

012D 

012D 

0120 

012D 

012D 

012D 

0130 

0133 

0133 

0133 

0133 

0133 

0133 

0133 

0133 

0133 

0136 

0138 

0138 



.2 

.3 

550 

551 

552 

553 
554 
555 
556 
557 
558 



OUTPUT 
string 
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CVTASC: 



PUSKR 

CLRL 

LOCC 

BEQL 



# A M<R3,R4,R5,R6> 

R7 

R4,#4,STRING„.TYPEJ 

110$ 



; save reg'sters 

; set filled indicator to not filled 

; search for string subtype 

; error if not found 



30002$: 



559 
560 
561 
562 
56? 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 

*>ai 

56? 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 



30003$: 



RO = 1 - filled , 2 - 2 arg desc. , 3 - str. desc. , 4 - cstring 

CASE R0,<10$,20$,30$>,B,#2 ; case on descriptor type, base = 2 
CASEB R0,#2,S**«30003$-30002$>/2>-1 

.SIGNED WORD 10$-30002$ 
,SIGNED~WORD 20$-30002$ 
.SIGNED. WORD 30$-30002$ 



; Case falls through here for filled ascii strings. Two argument 
; descriptor is used. 



10$; 



INCL 

MOVQ 
BR8 



R7 

(R 1 1)+,R1 

40$ 



; set filled indicator for filled ascii 

; get length and address 
; continue 



♦ Standard system string descriptor 

20$ j 

MOVQ a<R1D + ,Rl 

M0VZWL R1-R1 

BRB 40$ 



; move descriptor to R1 *R2 
; make sure length is word 
; continue 



; Ascii counted string, first byte contains length 
30$: 



MOVL (R11)+,R2 
M0VZ8L (R2H,R1 



; address of counted string 

; get length and skip byte count 



40$: 



; Here. R1 has string length, R2 has string address. Check length against 
; specified field width to decide how much string to move. 



50$: 



MOVL *6,R8 
BGEQ 50$ 
MOVL R1 ,R8 



was a width specified? 

branch if so 

if not* use string length instead 



ZZ-ENSAA-7.0 

FAO 

03-02 



CVTASC - Insert 



20 



56 
59 

56 
62 
6A 

52 
5A 



20 
7E 8F 

62 

EC 57 



58 
03 
58 
51 
56 

5A 
56 
14 57 

62 
06 
62 
03 



52 
56 



59 

05 

0078 8F 



FF35 

FF2P 



ASCII string 

*** - FORMATTED ASCII OUTPUT 

CVTASC - Insert ASCII string 
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59 DO 



C2 
19 
DO 
2C 



DO 
CO 
E9 

91 
19 
91 
15 



21 90 



D6 
F3 



D5 
19 
BA 
05 



31 
31 



01 3B 

01 3B 

01 3B 

013B 

01 3B 

01 3B 

01 3B 

013B 

01 3B 

01 3B 

01 3E 

013E 

0141 

0143 

0146 

014A 

014C 

014C 

014F 

0152 

0155 

0155 

0158 

01 5A 

015E 

0160 

0160 

0163 

0163 

0165 

0169 

0169 

U169 

016B 

01 6D 

0171 

0172 

0172 

0172 

0175 

0175 



598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 

613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 



The string is moved to the output buffer with blank, fill at the 
end. The output pointers are then updated by the field width,, so 
that the string will be truncated if it was longer than the field 
width. If the string is filled, a second pass is made to change 
non-printing characters to dots. 



55$: 



60$: 



70$: 
80$: 



90$: 



100$: 
110$: 



MOVL R9,R6 



SUBL 
BL.SS 
MOVL 
M0VC5 


R8-R9 

55* 

R8,R6 

R1,(R2M*A/ /,R 


MOVL 

ADDL 
BLBC 


R10,R2 
R6,R10 
R7,90$ 


CMPB 
BLSS 

CMPB 
BLEQ 


<R2), 0*040 
70$ 

<R2),# A 0176 
80$ 


MOVB 


* A A/./,(R2) 


INCL 
AOBLEQ 


R2 

R6,R7,60$ 


TSTL 
BLSS 
POPR 
RS8 


R9 

100$ 

# A M<R3,R4,R5,R6> 


BRW 


OVERFLOW 


BRW 


ILLEGAL 



copy remaining char count 
NOTt we have to use R6 here, 
update length remaining 
Overflow, use remaining length* 
else move only required length 
move string, fill at end 



save output address 

update output pointer 

all done if not filled ASCII 

R7 will now become loop counter. 

printing character? 

no, fill with dot 

still printing? 

yes, skip this one 

insert dot in place of char 

point to next character 
continue until done 



; Did we get result overflow above? 
; Yes, branch to tell user, 

; return 



ZZ-ENSAA-7,0 

FAO 

03-02 

-1 
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CVTNUM - Convert numeric parameter to AS 

*** - FORMATTED ASCII OUTPUT 

CVTNUM - Convert numeric parameter to AS 



Flche 7 Frame B8 Sequence 1328 
7-JUL-1984 15:19:00 VAX-11 Macro V03-01 Page 
5-JUL-1982 14:31:26 DMA1 :CSYS0.SYSMAINTDFAO.MAR;1 



18 
(1) 



0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
C178 
0178 
0178 
0178 

01 ll 
0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

0178 

m 

0178 



639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

672 

673 

674 

675 

67 

67 

67 

67 

680 

681 

684 
685 
686, 



.S8TTL CVTNUM - Convert numeric parameter to ASCII 



+ + 



FUNCTIONAL DESCRIPTION: 

This routine handles the various HEX, OCTAL, and DECIMAL 
conversions. The proper field is extracted from the 
parameter (byte, word , or long) and th* needed output 
width is determined. This is compared with the user 
specified field width to determine if padding of filling 
is needed. The entire field with fill is built on the 
stack and then moved so that the result will be correct 
on buffer overflow. 

CALLING SEQUENCE: 



JS8 or BSB 



INPUTS; 



R3 



R4 

R6 
R9 
R10 
R11 



- index of directive in CNTRLJA8LE, 

= Octal 

1 = heX 

2 * Unsigned decimal 

3 * Signed decimal 

4 = Zero filled unsigned decimal 

- second char of directive (B,W, or L) 

- field width, or -1 if none 

- output length remaining 

- output position pointer 

- next parameter pointer 



IMPLICIT INPUTS: 

none 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 

none 
SIDE EFFECTS: 

none 



ZZ-ENSAA-7,0 

FAO 

03-02 

-1 
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CVTNUM - Convert numeric parameter to AS_ _. ... 

*** - FORMATTED ASCII OUTPUT 27-JUL-1984 15:19:00 

CVTNUM - Convert numeric parameter to AS 25-JUL-1982 14:31:26 



Sequence 1329 
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-1 



38 BB 



03 54 

00000024 'EF 

03 

FF1E 



51 



03 
52 



50 
8B 
00 

000000?A'EF41 

52 52 

55 

57 20 

00000038'EF43 

54 



3A 

Si 

C3 

DO 
EF 



D4 
90 
9A 



02' 02 53 AF 

003C 1 

0029' 
0024 f 



50 6143 DE 

0000003VEF40 9A 

50 

58 56 DO 

03 18 

58 50 DO 

50 58 D1 

47 18 



0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
0178 
C178 
01 7A 
01 7A 
017D 
0182 
0184 
0187 
0187 
01 8B 
018E 
0190 
0196 
0198 
01 9A 
01 9D 
01A4 
01A5 
01A5 
01A5 
C1A5 
01A5 
01A5 
01A5 
01A5 
01A9 
01A9 
01AB 
01AD 
01AF 
01AF 
01AF 
01AF 
01AF 
01AF 
01AF 
0183 
01BA 
01BB 
01BE 
01CO 
01C3 
1C3 
1C6 



693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
708 
709 
710 

711 
712 
713 
714 
715 
716 



717 
718 
719 

720 
721 
722 
723 
724 
725 
726 



727 
728 
729 
730 
731 
732 
733 

734 
735 
736 
737 

739 



The registers will be set up as fellows 



RO - max digits to be output 

R1 - -> byte, 1 -> word , 2 -> 

R2 - value to be converted 

R4 - conversion radix 

R5 - sign indicator, 1 -> sign to 

R7 - fill character, (blank, zero 

for decimal conversions) 

R8 - total width of field to be output 



long 



be output, 
for !Z, or 



otherwise 

* on width too small 



CVTNUM: 



10$: 



PUSHR # A M<R3,R4,R5> 

LOCC R4, #3, DATATYPES 

BNEO 10$ 

BRW ILLEGAL 

SU8L3 R0,*3,R1 

M0VL <R11)+,R2 

EXTZV #0,FIELDSCR1J,R2,R2 



CLRL R5 

M0VB * A A/ /,R7 

M0VZ8L RAD1XCR33,R4 



; determine data type 

; continue if legal directive 

; else take error condition 

; convert to index 

; get next longword parameter 

; select proper field 



; note unsigned 
; default fill char 



get conversion 



is 
radix 



blank 



Case on the type of conversion. Note that base is set 
so that octal and hex conversions fall through case table. 



30004$: 



30005$: 



CASE 
CASEW 



R3,<40$,30$,20$>,, 
R3,*2,S A #«$0005$- 



H2 ; base index of 2 
30004$>/2>-1 



.SIGNED.W0RD 
.SIGNED.WORD 
.SJGNED^WORD 



4Q$~30004$ 
30$-3Q004$ 
20$-30004$ 



Octal and Hex fall through here 



15$: 



M0VAL 
M0V7BL 

M0VL 
BGEQ 
M0VL 

CMPL 
BGEQ 



(R1)[R3],R0 
OCT w HEX.0IGJTSCRO3,R0 

R6,R8 

15* 

R0,R8 



& 



R0 



compute index in OCT_HEX_DIGITS 
get number of digits to output 

user specified width? 
yes, use it as width 
else take needed space 

width Iss default digits? 

no, fill to user specified width 
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20 
(1) 



50 


58 


DO 


01 C8 




42 


11 


01 CB 
01CD 
01 CD 
01CD 
01 CD 
01CD 
01CD 


57 


30 


90 


01CD 




13 


11 


01 DO 
01D2 
01D2 
01D2 
01D2 
C1D2 
01D2 




00 


EE 


01D2 


0000002A' 


:F41 




01D4 


52 


52 




01 DA 


05 52 


1F 


E1 


01DC 




55 


D6 


01E0 


52 


52 


CE 


01E2 
01E5 
01E5 
01E5 
0IE5 
01E5 
01E5 
01E5 
01E5 


50 


01 


DO 


01E5 


53 


54 


DO 


01E8 
01EB 


53 


52 


D1 


01EB 




07 


IF 


01EE 


53 


54 


C4 


01F0 


F4 50 


54 


F2 


01F3 

01F7 


53 55 


50 


C1 


01F7 


58 


56 


DO 


01FB 




05 


18 


01FE 


58 


53 


DO 


0200 




0A 


11 


0203 
0205 


58 


53 


D1 


0205 

0208 




05 


15 


57 


2A 


90 


020A 




50 


D4 


02QD 
020F 








F8 AD 


52 


DO 


02QF 

020F 
0213 

0213 














0213 








0213 








0213 



MOVL R8,R0 
BRB 60$ 



740 
741 
742 

743 ; 

744 ; Unsigned decimal with *ero ml 

745 ; 
746 

747 20$: 

748 M0V8 # A A/0/,R7 

749 BRB 40$ 
750 

751 ; 

752 ; Signed decimal conversion 
753 

754 

755 30$: 

756 EXTV *0,FJELDSCR1:],R2,R2 



757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

7S7 

788 

789 

790 

791 

792 

793 

794 



BBC 

INCL 

MNEGL 



*31,R2,4Q$ 

R5 

R2,R2 



40$: 



Determine the number of digits needed 
decimal representation. 



44$: 



48$: 



50$: 



60$: 



MOVL 
MOVL 


*1,R0 
R4,R3 


CMPL 
BLSSU 
MULL 
AOBLSS 


R2,R3 
48$ 
R4,R3 
R4,R0,44$ 


ADDL3 

MOVL 

B6EQ 

MOVL 

BRB 


R0,R5,R3 

R6,R8 
50$ 
R3,R8 
60$ 


CMPL 
BLEQ 
MOVB 
CLRL 


R3.R8 
60$ 

# A A/*/,R7 
RO 


MOVL 


R2,LASTVAL(FP) 



; else output only specified width 



; insert new fill char 

; continue with normal dec. code 



; sign extend the field 

; not negative, continue 

; else note that value negative 

; and make it positive 

; common decimal processing 
to print number in ASCII 



init digit counter 
copy first power of 10 

does it fit? 

yes, R0 has count if so 

else compute next power of ten 

continue (10 digits is largest possible) 

add in sign, if one exists 
did user specify width? 
yes, use it for field width 
else use amount needed 
continue 

is there space within specified width? 

yes, go on 

no room, fill with stars 

output no digits 



; remember value to be converted 



Insert the ASCII representation for the value in R2 into the 
output buffer. 
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21 
(1) 



0840 8F 
04 A8 
6E 03 
5B 5E 
5E 6B 



51 



52 52 



53 
01 
0D 



54 

56 

00000000*EF46 

7B 

EF 51 50 

05 55 

78 2D 

51 



03 

78 57 

F9 51 58 



02 59 

21 

8A 8B 

F5 58 



5E 5B 
0841 8F 



B8 
9F 
CA 
DO 
C2 

D4 
CE 
11 

7B 

90 



F2 
E9 
90 
D6 



11 
90 
F3 



08 11 



F4 
11 
90 
F4 



DO 
BA 



38 



BA 
05 



0213 

0213 

0213 

0217 

021A 

021D 

0220 

0223 

0223 

0225 

0228 

022A 

022A 

022E 

C22F 

0236 

0237 

0237 

023B 

023E 

0241 

0243 

0243 

0243 

0243 

0243 

0243 

0243 

0245 

0245 

0248 

0248 

024C 

024C 

024C 

024C 

024C 

024C 

024E 

024E 

0251 

0253 

0256 

0259 

0259 

0259 

0259 

0259 

0259 

025C 

0260 

0260 

0260 

0260 

0260 

0260 

0262 



795 CVT BJN.TO.ASC: 
796 



797 

798 

799 

800 

801 

802 

803 

804 

805 

806 10$: 

807 

808 



PUSHR 

PUSHAB 

BICL 

MOVL 

SUBL 

CLRL 

MNEGL 

BRB 

EDIV 

M0V8 



* A M<R6,R11> 

4(R8) 

#3,<SP> 

SP,R11 

<R11),SP 

R3 

15$ 

R4,R2,R2,R6 

ASCJYAMESCR63,-<R11> 



save work registers 

compute stack space needed for buffer 

round stack to longword 

save stack pointer 

leave buffer space on stack 

clear upper half of quad quotient 
im't digit counter for loop 
start loop 

R2 <- quotient, R6 <- remainder 

output ascii digit 



A08LSS 
BLBC 
M0V8 
INCL 



R0,R1J0$ 
R5,20$ 

# A A/-/,-(R11) 
R1 



one more digit, done yet? 
branch if no sign to output 
output sign 



809 15$: 

810 

811 

812 

813 

814 20$: 

815 

816 ; 

817 ; If field (R8) is not full, then fill remainder with the fill character 

818 ; 
819 

820 BRB 

821 30$: 

822 MOVB 

823 40$: 

824 AOBLEQ 
825 

826 ; 

827 ; Now copy stack back to buffer, checking for overflow 
328 ; 



40$ 

R7,-(R11) 

R8,R1,30$ 



start the loop 
insert fill character 
fill until full 



829 

830 

831 50$: 

832 

833 

834 60$: 

835 70$: 
836 



BRB 70$ 

SOBGEQ R9,60$ 

BRB INSERT_OVF 

M0V8 <R11)+,(R10)+ 

SOBGEQ R8,50$ 



start loop 

update length, check for overflow 
handle overflow 
move char to output buffer 
move entire string 



837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 



Now clean up mess on stack 



MOVL R11,SP 

POPR * A M<R0,R6,R11> 



restore stack 

remove top of stack and restore regs 



Restore registers and return from service routine. 

POPR rf A M<R3,R4,R5> 
RSB 
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0263 
0263 
0263 
0Z63 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
C263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 



851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 

878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 



.SBTTL QUICKSERVE - Small service routines 



♦+ 



FUNCTIONAL DESCRIPTION: 

Following are a collection of short service routines for 
FAO directives. 

CALLING SEQUENCE: 

JS8 or BSB 

INPUTS: 

R3 - index in CNTRL_TABLE of the directive 

R4 - second character of two-char directive, if any 

R6 - user specified field width, if any (ignored for singal char 

and argument directives) 
R9 - output length remaining 
R10 - output position pointer 

IMPLICIT INPUTS: 

none 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

R9 and R10 are modified 
COMPLETION CODES: 

none 
SIDE EFFECTS: 

none 
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0263 .2 

0263 .3 INCR ARGPTR: 

"A 0263 897 ; . . 

0263 898 ; Directive to skip next parameter in parameter list 

0263 899 ; 

0263 900 

88 D5 0263 901 TSTL (R1D + ; skip next parameter 

05 0265 902 RSB ; exit 

0266 903 

0266 904 DECR ARGPTR: 

-1 0266 906 ; 

0266 907 ; Directive to back up and reuse last parameter in parameter list 

0266 908 ; 

0266 909 v 

7B D5 C266 910 TSTL -(R11) ; back up argument pointer 

05 0268 911 RSB ; exit 

0269 912 

0269 913 NEWLINE: 

-1 0269 915 ; 

0269 916 ; Insert carriage return, line feed into output buffer 

0269 917 ; 

0269 918 „ A ., 

02 59 F4 0269 919 SOBGEQ R9J0S ; room for CR?, branch if so 
06 11 026C 920 BR8 INSERT.OVF ; no room in output buffer 

026E 921 10$: 

8A 0D 90 026E 922 MOVB #CR,(R10)+ ; insert CR in output buffer 

0271 923 ; continue for LF insertion 

0271 924 

0271 925 INSERT_CHAR: 

-1 0271 927 ; 

0271 928 ; Make simple one character insertion in the output buffer. 

0271 929 ; 

0271 930 

03 59 F4 0271 931 SOBGEQ R9. INSERT. IT ; check length, branch if ok 

0274 .1 

0274 ,2 INSERT_0VF: 

FE33 31 0274 .3 BRW OVERFLOW ; error , no room in output buffer 

0277 .4 

0277 ,5 INSERTJT: 

-4 0277 936 ; . 

0277 937 ; Insert the character by computing the index into the replacement table 

0277 938 ; 

0277 939 

0000002rEF43 90 0277 940 M0V8 REPLACEMENT-REPL_OFFSETtR3:),<R10H ; insert the char 

8A 027E rt 

05 027F 941 RSB 



0280 942 

0280 943 

0280 944 

0280 945 

0280 946 

0280 947 

0280 948 REPEATIT: 

38 BB 0280 949 PUSHR # A M<R3,R4,R5> 

56 D5 0282 950 TSTL R6 

15 19 0284 951 BLSS ILLFIELD 

59 56 C2 0286 952 SUBL R6,R9 



Directive to repeat a particular character 'n* times, where 'n* is 
specified by the field width in the directive. 



save regs for M0VC5 clobber 
check if width was specified 
illegal if none specified 
compute remaining output length 
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24 
(1) 



54 





E9 


6E 


00 


6A 


56 


5A 


56 




38 



-3 



56 
03 



FE07 



5A 56 

FC AD 

59 56 

CC 





54 


20 


FC 


AD 


5A 
56 
CD 


5A 


FC 


AD 




59 


56 



19 0289 

2C 028B 

028F 

CO 0291 

BA 0294 

05 0296 

0297 

0297 

0297 

0297 

0297 

0297 

0297 

0297 

C297 

D5 0297 

18 0299 

0298 

029B 

31 029B 

029E 

029E 

CI 029E 

02A1 

D1 02A3 

14 02A6 

05 02A8 

02A9 

02A9 

02A9 

02A9 

02A9 

02A9 

02A9 

9A 02A9 

C3 02AC 

0280 

14 0281 

DO 02B3 

C2 02B7 

05 028A 



953 
954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

J 

.2 

.3 

.4 

.5 

.6 

972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 

984 
985 
986 
987 



BLSS 
MOVC5 

ADDL 
POPR 
RS8 



INSERT OVF 
#0,(SP7,R4,R6,(R10> 

R6,R10 
* A M<R3,R4,R5> 



not enough room, error 

fill with specified character 

update output pointer 
restore regs 



The 
The 
end 
the 



the directives which define a fixed length field. 

the define field directive. At the 
field directive/ any of the field remaining is blank filled, else 
field is truncated to the specified length. 



following are .... _ __..__ 
field width is specified with 



STARTFIELD: 
TSTL 
BGEQ 

ILLFIELD: 

BRW 



R6 
STARTOK 



ILLEGAL 



field (must be specified) 



STARTOK: 



ADDL3 R6,R10,FIELDEND<FP> 



CMPL 
BGTR 
RSB 



R6,R9 
INSERT^OVF 



; did user specify 
; yes, continue 

; illegal directive 



; compute and save ending address 

; was that much space remaining? 

; no, take error here 

; return 



Set up 
to REP 



registers 
EATIT with 



so that if 
the length 



fill is needed, a phony call is 
in R6 and the l bLank l character 



made 
in R4 



ENDFIELD: 

M0V28L 
SUBL3 

BGTR 
MOVL 
SU8L 
RSB 



#*A/ / R4 
R10,FIELDEND(FP),R6 

REPEATIT 

FIELDEND(FP),R10 

R6,R9 



; generate blank fill character 

; compute remaining field length 

; if any left, go fill with blanks 

; else truncate by setting back pointer 

; subtract negative difference from counter 

; return 
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25 
(1) 



02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
02BB 
0288 
02BB 
02BB 
02BB 
02BB 
02B3 
02B8 
02BB 
02BB 
028B 
02B8 
02B8 
02BB 
02B8 
02B8 
02BB 
02B8 
02BB 
02BB 
02BB 
02BB 
02BB 
0288 
0288 
0288 
028B 
0288 
02BB 
02BB 



989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 



.SBTTL PERCENT - Time directives and plural *$ 



♦+ 



FUNCTIONAL DESCRIPTION: 



for 



These directives are for date and time conversion, and 

conditionally inserting a plural 'S* into messages. 

The time directives insert an ASCII time string into the output buffer 

The user may supply a quadword binary time to be converted, 

or have the current date or time inserted. 



CALLING SEQUENCE: 
JSB/8SB 



INPUTS: 



R4 - 



R9 

R10 
R11 



second character of directive. D -> convert 
date and time, T -> convert time only 
S -> plural Indicator 

remaining length of output buffer 

current output buffer position 

next parameter address 



IMPLICIT INPUTS: 

none 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 

none 
SIDE EFFECTS: 

none 
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PERCENT - Time 



03 54 

00000027 , EF 

D6 

57 



directives and plural 
*** - FORMATTED ASCII 
PERCENT - Time directives 



'S' 

OUTPUT 



and 
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26 
(1) 



3A 

13 
04 



0V 02 50 8F 

0006' 
003F' 



57 D6 



20 



6A 
6A 
58 
7E 
52 
51 



38 
00 
59 
7E 
59 
6E 
8B 



-2 



57 
61 
62 
68 
04 
00000000' GF 

52 56 
03 

52 68 



59 

5A 
5E 



52 
12 
52 
OC 
38 



F8 AD 



01 

13 

03 59 



BB 
2C 

DE 
7D 
DE 
DO 



DD 
7? 
7F 
3F 
FB 

DO 
18 
3C 

C2 
19 
CO 
CO 
BA 
05 



D1 
13 
F4 



02BB 

02BB 

02BE 

02C3 

02C5 

02C7 

02C7 

02CB 

02CB 

02CD 

02CF 

02CF 

02CF 

02CF 

C2CF 

02CF 

02CF 

02D1 

02D1 

02D3 

02D7 

02D9 

02DC 

02DF 

02E2 

02E5 

02E5 

02E5 

02E5 

02E5 

02E5 

02E5 

02E7 

02E9 

02EB 

02ED 

02EF 

02F4 

02F7 

02F9 

02FC 

02FC 

02FF 

0301 
0304 
0307 
0309 
030A 
030A 
Q30A 
030A 
030A 
030A 
030A 
030A 

m 



1035 
1036 

1037 
1038 
1039 



1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 

1049 
1050 
1051 
1052 
.1 
.2 
1055 
1056 
1057 
1058 



PERCENT: 



LOCC R4,*3, PERCENTER 



30006$: 



30007$: 



BEQL 
CLRL 
CASE 
CASEB 



ILLFIELD 

R7 

R0,<10$,30$> 



B,#2 



RO >2 , S X tf «36o67$-50006$>/2>-1 



find directive type 

illegal directive if not found 
assume date and time 
branch on directive type 



.SiGNED^WORD 
.SIGNED.WORD 



10$-30006$ 
3Q$-30Q06$ 



1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 

Wl 
1073 

1074 

1075 

1076 

1077 

1078 



Time only directive falls through here 



10$: 



INCL 

PUSHR 
MOVC5 

MOVAL 

MOVQ 

MOVAL 

MOVL 

BEQL 

CMPL 



R7 ; indicate time only 

; time and date enters 
#*M<R3 t ft4 f R5> ; save registers 
#0,(R10),# A A/ /,R9,(R10) ; blank fill rest of output buffer 



here 



-<SP),R8 

R9,-(SP) 

(SP) f R2 

(R11)+,R1 

12$ 

(R1),4l*1) 



12$: $ASCTJM.S (R8) , (R2) , (R1),R7 



20$: 



30$: 



PUSHL 

PUSHAQ 

PUSHAQ 

PUSHAW 

CALLS 

MOVL R6-R2 
BGEO 20$ 
M0V2WL (R8),R2 



SU8L R2 X R9 

BLSS 40$ 

ADDL R2,R10 

ADDL *12,SP 

POPR # A M<R3,R4,R5> 

RSB 



R7 
(R1) 
(R2) 
(R8) 

*4,G A SYS$ASCTIM 



space for return length 

form descriptor for output buffer 

get address of buffer descriptor 

get binary time address 
ranch if no address 
let potential access violation 
...happen in this frame rather than 
...within SASCTIM to help condition 
..•handler 
convert time to ascii 



CC1D 

con 



did user specify width? 

yes, use it 

else use returned length 

update output length 
error, not enough room 
update output buffer 
pop locals from stack 
restore registers 



Check if 
nothing. 



the last value 
else output an 



converted was equal to one. 
'$' into the output buffer. 



If so, then do 



CMPL #1 f LASTVAL(FP) 
BEQL 60$ 
S0BGEQ R9,50$ 



was last value a one 
yes, simply return 
check if room in buffer 



K 8 

ZZ-ENSAA-7.0 PERCENT - Time directives and plural 'S* 27-JUL-1984 Fiche 7 Frame K8 Sequence 1337 
W ' 1**- FORMATTED ASCII OUTPUT 27-JUL-1984 15:19:00 VAX-1 1 Macro V03-01 a a Page 27 

03-02 PERCENT - Time directives and plural 'S* 25-JUL-1982 14:31:26 DMA1 :CSYS0.SYSMAINTJFA0.MAR;1 (1) 

FD94 31 0313 1079 40$: BRW OVERFLOW ; no room , error 
0316 .1 

8A 53 8F 90 0316 1080 50$: M0V8 # A A/S/, (R10)+ ; plural, insert , S t 

04 FE AA r * E1 031A 1081 BBC #5,-2(R10) ,60$ ; continue if previous character was 

031F 1082 , A ; ...upper case . t . . 

FF AA dO 88 031F 1083 BIS8 # A X20 # -1 (R10) ; else convert upper V to lower l s l 

0323 .1 

05 0323 ,2 60$: RSB ; return 



ZZ-ENSAA-7.0 

FAO 

03-02 



-3 



HANDLER - Condition handler 

*** - FORMATTED ASCI J OUTPUT 
HANDLER - Condition handler 



L 8 
27-JUL-1984 Fic'ie 7 Frame L8 Seguence 1338 

27-JUL-1984 15:19:00 VAX-11 Macro V03-01 Page 28 
25-JUL-1982 14:31:26 DMA1 ;[SYS0,SYSMAINT]FAO.MAR;1 (1) 



0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
C324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 



.4 
.5 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 



.SBTTL HANDLER - Condition handler 



++ 



FUNCTIONAL DESCRIPTION: 

This condition handler is used to catch any errors which 
ocurred while processing the arguments, such as access 
violation. .This is because we don't want exceptions 
occurring within the system service. 

Care must be taken in this handler to deal with a second access 
violation while storing tha return value for $FA0. 



INPUTS: 



CHF$L„SIGARGLST(AP) 
CHF$L_MCHARGLST(AP) 



Address of signal vector 
Address of mechanism vector 



OUTPUTS: 



The final R0 is set to 
is exited via SUNWIND. 



the status code and the service 



ZZ-ENSAA-7.0 

FAO 

03-02 



HANDLER - Condition handler 

*** - FORMATTED ASCII OUTPUT 
HANDLER - Condition handler 



-24 



0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 
0324 



.2 
.3 

.4 
.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

.15 

.16 

.17 

.18 

.19 

.20 

.21 

.22 

.23 

1132 

1133 



HANDLER J 



10$ 
80S 
90$ 



ASSUME 

MOVQ 

CMPL 

BEQL 

TSTL 

GNEO 

MOVL 

CLRO 

CALLS 

MOVL 
MOVL 
BEQL 
CLRW 

MOVZWL 
RET 

.END 



M 8 
27-JUL-1984 Fiche 7 Frame M8 Seguence 1339 

27-JUL-1984 15:19:00 VAX-11 Macro V03-0T Page 
25-JUL-1982 14:31:26 DMA1 :[SYS0.SYSMAINT3FAO.MAR;1 



.WORD 

MOVAB L*EXE$S1GT0RET,(FP) 



CHFSL MCHARGLST,EQ, 

CHFSL SIGARGLST(AP) 

#SS$J3NWIND,CHF$L„S 

90$ 

CHFSL MCH_DEPTH(R1) 

80S 

CHfSL^SIG NAME(RO), 

-<SP) 

#2,G*SYS$UNWIND 

SF$L SAVE AP(FP),R0 

0UTLEN(R07,R0 

10$ 

(RO) 

#SS$_RESIGNAL,RO 



; Simple handler for errors here 

CHFSL SJGARGLST+4 

,R0 7 Get address of signal argument list 

IG.NAME(RO) .-Unwinding? 
;Exit if yes 
♦•Exception within FAO? 
;Resignal if no 

CHF$L MCH SAVR0(R1) ;Set final return status 
JClear depth and new PC arguments 
;Unwind to establisher's caller 
;***** The next instruction my ACCVIO 
;Get address of FAO's argument list 
;0utput length requested? 
;Branch if not 

;Jndicate nothing returned in buffer 
;***** End of potential ACCVIO 
;Resignal (ignore after UNWIND) 



29 
(1) 



£01] 

con 

[013 
C013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
[013 
C013 



ZZ-ENSAA-7.0 

FAO 

Symbol table 

ARGCOUNT 

ASC NAMES 

CASE,BSB 

CASE LOOP 

CNTR[_LENGTH 

CNTRLJABLE 

CR 

CVTASC 

CVTNUM 

CVT BIN TO ASC 

DA I TYPES 

DF .RJ\RGPTR 

DC ME 

ENDFIELD 

EXCL 

EXE$FAO 

EXESFAOL 

FAO 

FAO_CASE 

FAO.EXIT 

FF 

FIELDEND 

FIELDS 

F1RSTARG 

6ETCHAR 

GETCOUNT 

ILLEGAL 

ILLFIELD 

INCR ARGPTR 

INDSC 

INLEN 

INPTR 

INSERT^CHAR 

INSERTJT 

INSERT OVF 

LASTVAE 

LF 

MAIN SCAN 

NEWLlNE 

OCT HEX.DIGITS 

GNftHAR INDEX 

UK CHAR CNTRLS 

outDsc 

OUTLEN 

OVERFLOW 

PARSE DIRECTIVE 

PERCENT 

PERCENT STR 

RADIX 

REPEATIT 

REPLAC r MENT 

REPLAC. CHRS 
REPL OFFSET 
SS$ BADPARAM 
SSSlBUFFEROVF 
SS$ NORMAL 
STARTFIELD 



Symbol table 



*** - FORMATTED ASCII OUTPUT 



H 8 

27-JUL-1984 Fiche 7 Frame N8 Seguence 1340 

27-JUL-1984 15:19:00 VAX-11 Macro V03-01 Page 30 
25-JUL-1982 14:31:26 DMA1 :[SYS0.SYSMAINT]FAO,MAR;1 (1) 



00000000 
00000000 R 
00000081 R 
00000083 R 
00000010 
00000010 R 
0000000D 
00000104 R 
00000178 R 
00000213 R 
00000024 R 
00000266 R 
000000B3 R 
000002A9 R 
00000021 
00000000 RG 
00000008 RG 
0000000E R 
00000088 R 
O00OO0B6 R 
0000000C 
FFFFFFfC 
0000002A R 
00000010 
000000C2 P 
000000CF R 
000000A5 R 
0000029B R 
00000263 R 
00000004 
FFFFFFFO 
FFFFFFF4 
00000271 R 
00000277 R 
00000274 R 
FFFFFFF8 
0000000A 
0000001B R 
00000269 R 
00000031 R 
00000008 
00000018 R 
0000000C 
00000008 
OOOOOOAA R 
00000046 R 
000002BB R 
0000C027 R 
00000038 R 
00000280 R 
00"0002D R 
0000001 C R 
OOOOOOOC 
00000014 
00000601 
00000001 
00000297 R 



D 
D 02 

D 03 



03 
02 
03 



D 03 
D 03 
D 02 



03 
03 
03 



02 



D 

D 

D 

D 

D 03 

D 03 

D 03 

D 03 

D 03 

D 

D 

D 

D 

D 03 

D 03 

D 03 

D 03 

D 03 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 03 

D 03 

D 03 

D 02 

D 02 

D 03 

D 02 

D 02 

D 

D 

D 

D 

D 03 



03 
03 
03 



03 
03 
02 

02 



STARTOK 
STRING TYPES 
SYSSASCTIM 
TAB 
TWO_CHAR_CNTRLS 



0000029E R D 03 

00000020 R D 02 

******** GX 03 
= 00000009 D 

00000010 R D 02 



ZZ-ENSAA-7.0 

FAO 

Psect synopsis 



Psect synopsis 



*** - FORMATTED ASCII OUTPUT 



B 9 
27-JUL-198A Fiche 7 Frame B9 Seguence 1341 

27-JUL-1984 15:19:00 VAX-11 Macro V03-01 Page 31 
25-JUL-1982 14:31:26 DMA1 iCSYSO.SYSMAINTJFAO.MAR;! (1) 



PSECT name 

, ABS . 
$ABS$ 
DATA 
CODE 



Allocation 

00000000 ( 

00000000 < 

0000003D ( 

00000324 ( 



+. .-..+ 

! Psect synopsis ! 

PSECT No, Attributes 

0.) 00 ( 0.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

61.) 02 ( 2.) NOPIC USR 

804.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR NOEXE 


NORD 


CON 


ABS 


LCL 


NOSHR EXE 


RO 


CON 


REL 


LCL 


SHR NOEXE 


RD 


CON 


REL 


LCL 


SHR EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC LONG 

NOWRT NOVEC LONG 



ZZ-ENSAA-7,0 Cross 


reference 




27- 


C 9 

JUL-1984 


Fiche 


7 Frame 


C9 


Sequ 
r-o V03-01 


ence 1342 


FAO 


*** - FORMATTED ASCII OUTPUT 




27-JUL-1984 15:19:00 VAX- 


•11 Maci 


Page 32 


Cross reference 

SYMBOL 
ARGCOUNT 


VALUE 
=00000000 








25-JUL-198, 
• ♦ 


2 14:31 


:26 DMA1 


:CSYS0 


.SYSMAINT]FAO.MAR;1 (1) 


! Symbol Cross Reference ! 


DEFINITE 


J REFERENCES. 


83 (1) 








ASC NAMES 


00000000-R 


106 (1) 


#-808 


(1) 














CASE_BSB 


00000081 -R 


332 (1) 


#-335 


(1) 














CASE LOOP 


00000083-R 


334 (1) 


#-331 


(1) 














CNTRCj-ENGTH 


=00000010 


143 (1) 


K5 


(1) 


#-313 


(1) 


#-324 


(1) 






CNTRLJABLE 


0000001 0-R 


123 (1) 


143 


(1) 


145 


(1) 


147 


(1) 


313 


(1) 


CR 


=0000000D 


94 (1) 


#-922 


(1) 














CVTASC 


0OO0Q104-R 


545.3 (1) 


361 


(1) 














CVTNUM 


000001 78-R 


706 (D 


#-363 


(1) 














CVT BIN TO.ASC 


00000213-R 


795 (1) 


















DATATYPES 


00000024-R 


151 (1) 


710 


(1) 














DECR ARGPTR 


00000266-R 


904 (1) 


361 


(1) 














DONE" 


000000B3-R 


372.2 <1) 


#-284 


(1) 














ENDFIELD 


000002A9-R 


981 (1) 


361 


(1) 














EXCL 


=00000021 


96 (11 


158 


(1) 


#-275 


(1) 










EXESFAO 


00000000-R 


246 (13 


















EXE$FAOL 


00000008-R 


257 d; 


















FAO 


0OO0000E-R 


262 (1, 


#-251 


(1) 














FAO„CASE 


00000088-R 
000000B6-R 


348 (i: 


#-333 


(1) 














FAO EXIT 


375 (1, 


► #-366.2 


(1) 


#-372 


(I) 










FF " 


=0000000C 


98 (1, 


» 158 


(1) 














FIELDEND 


=FFFFFFFC 


92 (1, 


> #-968.6 


(1) 


#-983 


(1) 


#-985 


<1> 






FIELDS 


0000002A-R 


155 (1, 


) #-716 


(1) 


#-756 


(1) 










FIRSTARG 


=00000010 


87 (1, 


> 250 


(1) 


#-259.2 


(1) 










GETCHAR 


Q00000C2-R 


422 (1 


) #-287 


(1) 


#-302 


(1) 


#-311 


(1) 


#-317 


(1) 








#-321 


(1) 


#-486 


(1) 


#-497 


(1) 






GET COUNT 


OOOOOOCF-R 


472 (1, 


> #-301 


(1) 


#-310 


(1) 










ILLEGAL 


OOO00OA5-R 


366 (1 


> #-314 
#-968.3 


(1) 
(1) 


#-424 


(1) 


#-637 


(1) 


#-712 


(1) 


ILLFIELD 


00000298-R 


968.2 (1 


) #-1037 


(1) 


#-951 


(1) 










INCR ARGPTR 


00000263-R 


892.3 (1 


) 361 


(1) 














INDSC 


=00000004 


84 (1 


) #-264 


(1) 














INLEN 


=FFFFFFFO 


89 (1 


) #-275 


(1) 


#-279 


(1) 


#-280 


(1) 


#-423 


(1) 


INPTR 


ztmmt* 


90 (1 


) 275 


(1) 


283 


(1) 


#-285 


(1) 


#-425 


(!) 








#-426 


(1) 


#-474 


(1) 


#-478 


(1) 


#-480 


<1> 








#-489 


(1) 














INSERT CHAR 


00000271-R 


925 (1 


) 361 


(1) 














insert;it 


00000277-R 


931.5 (1 


) #-931 


(1) 














INSERT OVF 


00G00274-R 


931.2 (1 


) #-833 


(1) 


#-920 


(1) 


#-953 


(1) 


#-973 


(1) 


LASTVA[ 


^FFFFFFQ 


91 (1 


) #-1076 


(1) 


#-788 


(1) 










LF 


=00000Q0A 
0000001B-R 


95 (1 


) 158 


(1) 














MAIN SCAN 


273 (1 


) #-336 


(1) 














NEWLlNE 


0Q000269-R 


913 (1 


) 361 


(1) 














OCT HEXJHGITS 


no 


0QQ031-R 


167 (1 


) #-733 


(1) 














ONEtHAR INDEX 


=00 


000008 


145 (1 


) #-315 


(1) 














ONE CHAR^CNTRLS 


00 


00001 8-R 


133 (1 


) 145 


(1) 














outDsc 

OUTLEN 


3 


» 


It !! 


) #-265 
) #-376 


(1) 
(1) 


#-378 
#-378 


(1) 
(1) 










OVERFLOW 


00 


0000AA-R 


369 (1 


) #-1079 


(1) 


#-282 


(1) 


#-635 


(1) 


#-931.3 


(1) 


PARSE.DIRECTIVE 


0000Q046-R 


297 (1 



















ZZ-ENSAA-7.0 

FAO 

Cross reference 

PERCENT 

PERCENTER 

RADIX 

REPEATIT 

REPLACEMENT 

REPLACE r.HRS 

repl offset 
ss$ badparam 
ss$ bufferovf 
ss$~normal 
sta&tf1eld 

STARTOK 
STRING TYPES 
SYSSASfTlM 
TAB 
TWO.CHAR^CNTRLS 



Cross reference 



*** - FORMATTED ASCII OUTPUT 



000002BB-R 
00000027-R 
00000038-R 
00000280-R 
0000002D-R 
0000001 OR 
:0000000C 
:000000H 
=00000601 
=00000001 
00000297-R 
0000029E-R 
00000020-R 
00000000-XR 
:00000009 
0000001 0-R 



D 9 

27-JUL-1984 Fiche 7 Frame D9 Seguence 1343 

27-JUL-1984 15:19:00 VAX-11 Macro V03-0T Page 33 % 
25-JUL-1982 14:31:26 DMA1 ;CSYSO.SYSMAINT:FAO.MAR;1 (1) 



1035 


(1) 


361 (1) 


153 


(1) 


1036 (1) 


171 


(1) 


#-719 (1) 


948 


(1) 


361 (1) 


157 


(1) 


#-940 (1) 


138 


(1) 


147 (1) 


147 


(1) 


#-940 (1) 
#-366.1 (1) 
#-370 (1) 
#-372.3 (1) 


966 


(1) 


361 (1) 


968.5 


(1) 


#-968 (1) 


149 


(1) 


552 (1) 
1058 (1) 


97 


(1) 


158 (1) 


124 


(1) 





0-984 



(1) 



ZZ-ENSAA-7.0 

FAO 

Cross reference 



Cross reference 



*** - FORMATTED ASCII OUTPUT 



E 9 

27-JUL-1984 Fiche 7 Frame E9 Seguence 1344 

27-JUL-1984 15:19:00 VAX-11 Macro V03-01 Page 
25-JUL-1982 14:31:26 DMA1 :[SYSO.SYSMAINT3FAO.MAR;1 



34 
(1) 



MACRO 



SASCTIM.S 

SDEF1NI 

SPUSHADR 

SSSDEF 

CASE 



SIZE 

1 

1 

1 

21 

1 



DEFINITION 



1058 

75 

1058 

75 

349 



+w + 

! Macros Cross Reference ! 
+... «... .... — —- — — .... « .+ 

REFERENCES... 



1058 


(1) 


75 


(1) 


1058 


(1) 


75 


(1) 


1039 


(1) 



349 (1) 



558 



(1) 



726 



(1) 



4 ... — . + 

1 Performance indicators ! 
+ ... .- .......... + 



Phase 



Page faults 


CPU Time 


Elapsed Time 


35 


00:00:00.10 


00:00:00.23 


140 


00:00:00.69 


00:00:01.83 


530 


00:00:08.56 


00:00:16.22 





00:00:00.73 


00:00:00.83 


242 


00:00:04.51 


00:00:12.44 


8 


00:00:00.07 


00:00:00.07 


4 


00:00:00.03 


00:00:00.03 


23 


00:00:00.30 


00:00:00.30 


985 


00:00:15.01 


00:00:31.95 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

36659 bytes (72 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 461 non-local and 55 local symbols 

1158 source lines were read in Pass 1, producing object records in Pass 2. 

12 pages of virtual memory were used to define TO macros. 



Macro library name 

DMA1 :CSYS0.SYSMAINTJDS.MLB;218 
DMA1:CSYS0.SYSMAINT]DIA6.MLB;953 
SYS$SYSR00T:[SYSLIBJLIB.MLB;1 
SYS$SYSROOT:CSYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



+—-..— ..-..— .-.—.— _+ 
! Macro library statistics ! 

Macros defined 
... 


1 
6 
7 



487 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LISMDS.LISJ/CROSS/ENABLEs (DEBUG, TRACE) FAO/UPDA=(FA0.UPD,FAO.ENH)+SYS$lIBRARY:UB/LIBRARY+DMA1 :CSYS0, SYSMA1NT3D1 AG/ 



F 9 

ZZ-ENSAA-7.0 - FILES11 LEVEL 1 & 2 FILE READING ROUTI 27-JUL-1984 Fiche 7 Frame F? Seguence 1345 
FILEREAD - FILES11 LEVEL 1 8 2 FILE READING ROUTI 27-JUL-1984 15:19:33 VAX-11 Macro V03-OT Page 

Table of contents 

(1) 71 DECLARATIONS 

(2) 196 FILSOPENFILE - RETURN FILE HEADER AND STATISTICS BLOCK 

(3) 467 FILSCACHE INIT - INIT FILEREAD CACHE 

(4) 555 FILSCACHElTRUNC - TRUNCATE FILEREAD CACHE 

(5) 605 ASSIGN DE? - ASSIGN A DEVICE AND RETURN A CHANNEL 

(6) 649 STORE3DIGITS - STORE 3 ASCII DIGITS 

(7) 684 FORMDIRSTRING - GET A DIRECTORY STRING 

(8) 751 MOUNT - MOUNT THE VOLUME, INIT FOR FILE LOOKUP 

(9) 8b7 FINOFILID - FIND FILE ID FOR SPECIFIED FILE 

(10) 1134 FTLSFINDFILID - STRUCTURE LEVEL 2 

(11) 1255 FILSFINDFILID - STRUCTURE LEVEL 1 

(12) 1338 READ DIR LBN - READ NEXT DIRECTORY LBN 

(13) 1381 RDCHKFiLnDR - READ AND CHECK FILE HEADER 

(14) 1531 READVBN. WRITEVBN - READ/WRITE VIRTUAL BLOCK 

(15) 1627 INIRTRVPTRSCAN - INITIALIZE RETRIEVAL POINTER SCAN 

(16) 1660 GETRTRVPTR - CONVERT NEXT RETRIEVAL POINTER 

(17) 1757 STATBLK - GET FILE STATISTICS BLOCK 

(18) 1874 FILSCHKFILHDR - CHECK FILE HEADER VALIDITY 

(19) 1946 CHECKSUM - VALIDATE A CHECKSUM 



ZZ-ENSAA-7,0 


- FILES11 LEVEL 1 & 2 FILE 


READIf 


FILEREAD 


- F1LES11 LEVEL 


06-02 








0000 


1 




0000 


.1 


-1 


0000 


3 




0000 


4 


• 


0000 


5 




0000 


6 




0000 


•1 


-1 


0000 


8 




0000 


9 




0000 


10 




0000 


11 




0000 


12 




0000 


13 




0000 


14 




0000 


15 




0000 


16 




0000 


17 




0000 


18 




0000 


19 




0000 


20 




0000 


21 




0000 


22 




0000 


23 




0000 


24 




0000 


25 




0000 


26 




0000 


27 




0000 


28 




0000 


29 




0000 


30 




0000 


31 




0000 


32 




0000 


33 




0000 


34 




0000 


35 




0000 


36 




0000 


37 




0000 


38 




0000 


39 




0000 


40 




0000 


41 




0000 


42 




0000 


.1 




0000 


.2 




0000 


.3 




0000 


43 




0000 


44 




0000 


45 




0000 


46 




0000 


47 




0000 


48 




0000 


49 




0000 


50 




0000 


51 




0000 


52 




0000 


53 




0000 


54 
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.TITLE FILEREAD - FILES11 LEVEL 1 & 2 FILE READING ROUTINES 
JDENT ■ 06-02' 



COPYRIGHT (c) 1978, 1980, 1982, 1983 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



* 
* 

* 

* 

ITS * 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



FACILITY: 
ABSTRACT: 



USER CALLABLE PROCEDURES 



THIS SET OF ROUTINES PROVIDES THE CAPABILITY OF "OPENING" AND 
READING FILES BY FILE NAME FROM A FILES11 STRUCTURE LEVEL 1 OR 2 VOLUME. 
THERE IS NO MULTI-VOLUME SUPPORT, AND MULTI-HEADER SUPPORT IS LIMITED 
TO RETURNING THE CORRECT FILE SIZE IN THE STAT8LK. 



ENVIRONMENT: USER MODE 
AUTHOR: PETER H. LIPMAN 



CREATION DATE: 14-DEC-76 



MODIFIED BY: 
02 



Bob Bergazai Jun 29,1983 Version 6.12 
Adapted for supervisor 6.12. 



V03-001 PHL0103 Peter H. Lipman 20-Jul-1982 
Correct error in FILSFINDFlLlD for structure level 1 
when directory is cached. 



V02-007 PHL0019 



Peter H. Lipman 



31-Oct-1981 



es 



Fix bug in FILSRDCHKFRHDR having to do with overflowing 
the callers retrieval pointer buffer for multi-header fil 
Fix documentation for FILSSTATBLK showing that the returned 
retrieval pointer lenath is the number of bytes that would 
have been stored if tne buffer had been large enough. 



V02-006 PHL0009 



Peter H. Lipman 



06-May-1981 



ZZ-ENSAA-7.0 

FiLEREAD 

06-02 



- FILES11 LEVEL 



1 & 2 FILE READING ROUTI 
- FILES11 LEVEL 1 & 2 FILE 



0000 


55 


0000 


56 


0000 


57 


0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 
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TOPSYS directory was not being used properly, 

V02-005 PHL0007 Peter H. Lipnan K-Mar-1981 . 

Add cacheing of directory Lookups, directory header info, 

directory data blocks, and index file header. 

Change interface to FILSRDWRTLBN to allow the reading 

of multiple blocks. 

Implement multiple level directory lookups and a new t 

top level directory in which all the system directories 

are found, -tp ^ rtrt 

V02-004 PHL0006 Peter H. Lipman 13-Dec-1980 4 

Add capability to return retrieval pointer information 
and thus allow all non-contiguous files to be handled 
at boot time. 



ZZ-ENSAA-7.0 
FILEREAD 

06-02 



DECLARATIONS 



- FILES11 LEVEL 1 


I 2 FILE READI 


DECLARATIONS 




0000 


71 


.SBTTL 


0000 


n ; 




0000 


73 ; 


INCLUDE FILES: 


0000 


74 ; 




0000 


75 • 


.nocross 


0000 


76 


SDIRDEF 


0000 


17 


SFATDEF 


0000 


78 


SFH1DEF 


0000 


79 


SFH2DEF 


0000 


80 


SFM1DEF 


0000 


81 


SFM2DEF 


0000 


82 


SFIDDEF 


0000 


83 


SHM1DEF 


0000 


84 


SHM2DEF 


cooo 


85 


SIODEF 


0000 


86 


SPSLDEF 


0000 


87 


SSSDEF 


0000 


88 


SVADEF 


0000 


89 ; 




0000 


90 ; 


MACROS: 


0000 


91 ; 




0000 


92 


•MACRO 


0000 


93 


.LIST 


oooo 


94 




0000 


95 




0000 


96 




0000 


97 




0000 


98 




0000 


99 


♦NLIST 


0000 


100 


,ENDM 


0000 


101 




0000 


102 


.MACRO 


0000 


103 


.LIST 


0000 


104 




0000 


105 




0000 


106 




0000 


107 




0000 


108 




0000 


109 




0000 


110 


.NLIST 


0000 


111 


.ENDM 


0000 


112 


.cross 


0000 


113 ; 




0000 


114 ; 


EQUATED SYMBOL 


0000 


115 ; 




0000 


116 


ASSUME 


0000 


117 


ASSUME 


0000 


118 


ASSUME 


0000 


119 


ASSUME 


0000 


120 


ASSUME 


8888 


121 


ASSUME 


122 


ASSUME 


0000 


123 


ASSUME 


0000 


124 




000001 FE 0000 


125 


FH1$W_VE 


0000 


1 ?6 




0000 


127 
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DECLARATIONS 



/DIRECTORY ENTRY OFFSET DEFINITIONS 
;RECORD ATTRIBUTE AREA DEFINITIONS 
;FILE HEADER DEFINITIONS, LEVEL 1 
;FILE HEADER DEFINITIONS, LEVEL 2 

MAP AREA, LEVEL 1 

MAP AREA, LEVEL 2 
;FILE ID OFFSET DEFINITIONS 
;HOME BLOCK DEFINITIONS, LEVEL 1 
;HOME BLOCK DEFINITIONS, LEVEL 2 
;I/0 DEFINITIONS 

.-PROCESSOR STATUS L0N6 WORD DEFINITIONS 
;SYSTEM SERVICE DEFINITIONS 
;VIRTUAL ADDRESS DEFINITIONS 



READVBN CHAN, VBN,BUF ADR, HDRADR 
MEB 

HDRADR 

BUFADR 

VBN 

CHAN 

*4,W A FIL$READVBN 



PUSHAL 

PUSHAL 

PUSHL 

PUSHL 

CALLS 

MEB 

READVBN 



READLBN 

MEB 

ROTL 

MOVZWL 

PUSHAL 

PUSHL 

PUSHL 

CALLS 

MEB 

READLBN 



CHAN, VBN, BUFADR 

#9,*1,-(SP) 

#10$ READLBLK,-<SP) 

BUFADR 

VBN 

CHAN 

#5,W A FILSRDWRTLBN 



FH1SB MPOFFSET EQ FH2SBJ1P0FFSET 
FH1SW STRUCLEV EQ FH2$W STRUCLEV 
FHUWCHECKSUM EQ FH2$W_CHECKSUM 
HMUW STRUCLEV EQ HM2SW STRUCLEV 
HM1SW~CHECKSUM1 EQ HM2$0^CHECKSUM1 
HMUW"CHECKSUM2 EQ HM2$W CHECKSUM2 
FHUtTCHECKSUM EQ HM1$W FHECKSUM2 
FH1SVICONTIG EQ FH2$V_C0NTIG 

FH1$W VBNOFFSET = FH1$W_CHECKSUM ;SAVE INDEX FILE VBN OFFSET 

;IN THIS PLACE IN INDEX FILE HEADER 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



DECLARATIONS 



- FILES11 LEVEL 
DECLARATIONS 
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0000 128 

00000008 0000 129 
0000 130 
0000 131 

00000009 0000 132 
O0000OOA 0000 133 

0000 134 

0000 135 

0000 136 

0000 137 

00000001 0000 138 

0000 139 

0000 140 

0000 141 

COOO 142 

0000 143 

0000 144 

0000 145 

0000 146 

0000 147 

GOOO 148 

0000 149 

0000 150 

0000 151 

0000 152 

0000 153 
0000 
0004 
0008 
OOOC 
OOOC 
0010 
0014 
0018 
0218 

0000 154 

0000 155 

0000 156 

0000 157 

0000 158 

0000 159 

0000 160 

0000 161 

0000 162 

0000 163 

0000 164 

0000 165 

0000 166 

0000 167 

0000 168 

0000 169 
0000 
0006 
0010 
0010 
0012 
0014 



ASSUME FH1$C_LEVELia-8 EC) 1 
FH1SV.LEVEL1 = 8 

ASSUME FH2$C_LEVEL2a-8 EQ 2 
FH2$V_LEVEL2 = 9 
FH2$VlBIGFILNUM = 10 



FIL$C_CACHEJD = 1 



;IF SET USE HIGH 8 BITS OF FILE ID RVN 
;FIELD AS FILE NUMBER EXTENSION 
;BJT IS PLACED IN FH2SW.STRUCLEV 
;BY THE FiLSMOUNT CODE 

;VERSION OF THE FILEREAD CACHE 



OFFSETS INTO HEADER PORTION OF THE FILEREAD CACHE 



JL$W. 
ILSL, 
ILSL. 
IL$L. 
ILSL, 
JL$L, 
ILSL. 
ILSA, 
IL$C. 



SOFFSET 0, POSITIVE, <- 
<FIL$W_CACHEJD,2>,- 
<,2>,- 

FILSL_DIROFF,- 
FILSLJHRNXT,- 
<FILSr DIRMAX,0>,- 
FILSL_^BNOFF,- 
FJL$L..LBNNXT,- 

FILSL LBNMAX,- 

<FILSAjXFHDR,512>,- 

<FIL$C.S1ZE,0>- 

> 
.CACHE ID: 
DIROFF: 
DIRNXT: 
.DIRMAX: 
LBNOFF: 
L8NNXT: 
.LBNMAX: 
IXFHDR: 
SIZE: 



CACHE IDENT, AND WRITE INTERLOCK BIT 

SPARE 

OFFSET IN BYTES TO DIRECTORY CACHE 

NEXT OFFSET TO ALLOCATE DIR CACHE ENTRY 

MAX OFFSET FOR DIR CACHE 

OFFSET IN BYTES TO BEGIN OF LtiN CACHE 

NEXT OFFSET TO ALLOCATE LBN CACHE 

MAX OFFSET FOR LBN CACHE 

INDEX FILE HEADER 

START OF DIRECTORY CACHE 



OFFSETS INTO DIRECTORY CACHE ENTRIES 

SOFFSET 0, POSITIVE, <- 

<FILSA_DIR„FID,6>,- 

<FIL$T_DIRJJAM,10>,- 

<FILSQJ>IR.,HDR,0>,- 

<FILSW_DIR_BKCNT,2>,- 

<FIL$B^DIR^LVLJ>,- 

<,1>,- 

filsl..dir.lbn,- 
filsl dir bfoff,- 
<fils0j)ir 9fcnt,2>,- 
<filsa_dir:ofid,6>,- 
<filsc_d1r_size,0>- 

> 
ILSA.DIRJID: 
ILST.DIR.NAM: 
ILSQ DIR_HDR: 
JLSW.DIR.BKCNT: 

lL$BJ>Ift_LVL: 
IL$L_DJR_LBN: 



DIRECTORY ID 

COUNTED NAME OF DIRECTORY - NO ".DIR" 

DIRECTORY HEADER INFORMATION 

SIZE IN BLOCKS OF DIRECTORY FILE 

STRUCTURE LEVEL OF DIRECTORY 

SPARE BYTE 

STARTING LBN OF DIRECTORY 

OFFSET TO DIR LBN BUFFEK 

SIZE IN BLOCKS OF DIR LBN BUFFER 

OUTPUT FILE ID FROM LOOKUP 

SIZE OF DIRECTORY CACHE ENTRY 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



DECLARATIONS 



- FILES11 LEVEL 
DECLARATIONS 



-1 



0018 
001 C 
001E 
0024 

0000 170 

0000 171 

0000 172 

0000 173 

0000 174 

0000 175 

0000 176 

0000 177 

0000 178 

0000 1 79 

0000 180 

0000 181 

0000 182 

0000 183 

0000 184 

0000 185 

0000 186 

00000000 .1 

0000 188 

0000 189 

00000000 ' 0000 190 

0004 191 

00000000* 0004 192 

0008 193 

00000000' 0008 194 
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IL$L_DIR_BFOFF: 
ILShl DIR..8FCNT; 
IL$A DIR.OFID: 
IL$C_D1R_SJ2E: 

MAKE THESE GLOBAL SO THAT A CACHE SIZE CAN BE PROPERLY CALCULATED 
THE CALCULATION IS: 

FJLSC.SIZE + (DIRCNT * FI IL$C_DIR_SIZE> + <L8NCNT * 512> 

.GLOBAL FIL$C_SIZE,FILSCJ>IR_SIZE 

DEFINE THE FOLLOWING WEAK REFERENCES, THEY NEED NOT BE PRESENT 



.WEAK 
.WEAK 
.WEAK 

OWN STORAGE: 



FIL$GQ_CACHE 
F1L$GT_DDDEV 
FILSGT TOPSYS 



DESCRIPTOR FOR FILESEAD CACHE 
ASCIC DEFAULT DEVICE NAME STRING 
ASCIC TOP LEVEL SYSTEM DIRECTORY 



.psect code, nowrt, exe, rd, shr, Lon9 ; 

FIL^GCLCACHE: 

.ADDRESS FILSGQ.CACHE 
FIL GT_DDDEV: 

.ADDRESS FILSGT.DDDEV 
FILJJT_T0 o SYS: 

.ADDRESS FILSGTJOPSYS 



C02D 



ZZ-ENSAA-7.0 

FILEREAD 
06-02 



FILSOPENFILE - 



RETURN FILE HEADER AND 
- FILES11 LEVEL 1 & 2 
F1LSOPENFILE - RETURN 



-1 



000C 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 



196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
.1 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
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.SBTTL FILSOPENFILE - RETURN FILE HEADER AND STATISTICS 8L0CK 



Pag 
.MA 



e 6 
R;1(2) 



+i 



FUNCTIONAL DESCRIPTION: 

THE OPENFItE ROUTINE ACCEPTS A FULL FILE NAME IN THE FORMAT 

DEV:CDIR3FILE.TYP; VERSION. 
IT ASSIGNS AND RETURNS A CHANNEL, READS THE FILE HEADER, RETURNS THE 
STATISTICS BLOCK, AND OPTIONALLY RETURNS THE RETRIEVAL POINTERS IN 
A NORMALIZED (LONG WORD COUNT, LONG WORD LBN) FORMAT, 
THE DIRECTORY MAY BE IN ANY OF THE STANDARD FORMATS: 

[10,40], C0100403, CABCDEFGHJ], OR WITH < AND > REPLACING C AND 3. 
VERSION MAY BE ZERO IN WHICH CASE THE HIGHEST VERSION IS FOUND 

CALLING SEQUENCE: 

CALLG ARGLIST,FIL$OPENFILE 



INPUT PARAMETERS: 

CHANADR(AP) 
FILNAM(AP) 



IXFHDR(AP) 

FILHDR(AP) 
STATBLK(AP) 



RTRVPTRLEN(AP) 
RTRVPTRBUF(AP) 



C023 
DESCRIPTOR 



ADDRESS OF RPB 

ADDRESS OF 2 LONG WORD FILE NAME STRING 

1 - SIZE OF STRING 

2 - ADDRESS OF S \ RING 

DB1:C10, 403FILTST.EXE 
ADDRESS OF 512 BYTE 3UFFER TO BE USED FOR 

THE INDEX FILE HEADER 
ADDRESS OF 512 BYTE BUFFER TO RETURN FILE HEADER 
ADDRESS OF 2 LONG WORD BLOCK IN WHICH THE 
FOLLOWING WILL BE RETURNED 

1 - LOGICAL BLOCK NUMBER OF FIRST BLOCK OF 

FILE OR IF FILE IS NOT CONTIGUOUS 

2 - SIZE OF FILE IN BLOCKS 
ADDRESS TO RETURN THE NUMBER OF 
BYTES OF RETRIEVAL POINTERS STORED 
***** OPTIONAL PARAMETER ***** 
ADDRESS OF RETRIEVAL POINTER 
BUFFER DESCRIPTOR. THIS PARAMETER 
IS PRESENT IF AND ONLY IF 
RTRVPTRLEN IS PRESENT, 

THE RETRIEVAL POINTERS ARE RETURNED IN 
THE FORM 32 BIT BLOCK COUNT, 32 BIT LBN 
A ZERO BUFFER DESCRIPTOR ADDRESS OR A 
ZERO BUFFER ADDRESS MEANS DON'T 
RETURN RETRIEVAL POINTER INFO 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



FILSOPENFILE - 



RETURN FILE HEADER AND ST 
- FILES11 LEVEL 1 6 2 FILE 
FILSOPENFILE - RETURN FILE 
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00000000 
00000004 
00000008 
OOOOOOOC 
00000010 
00000014 
00000018 
0000001 c 



-2 



oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 

OOOi 

oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 

FFFA 
FFCC 
FFA4 
FF98 
FF98 

oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 
oooc 



253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
J 
,2 
292 
293 
294 



295 

296 
297 
298 
299 
300 
301 
302 
303 
304 



COMPLETION CODES: 

SS$,NORMAL 
SS$ NOSUCHFILE 
SS$"8ADF RENAME 



SUCCESSFUL COMPLETION 

FAILED TO FIND DIRECTORY OR FILE 

SYNTAX ERROR IN DIRECTORY OR FILE NAME STRING 



THE FOLLOWING COMPLETION CODES INDICATE FILE STRUCTURE PROBLEMS 



SS$_BADCHKSUM 

SS$_BADFILEHDR 

SS$JILESTRUCT 



SIDE EFFECTS: 

NONE 

EQUATED SYMBOLS 

OFFSETS FROM AP 

ARGCNT 

CHANADR 

FILNAM 

IXFHDR 

FILHDR 

STATBLK 

RTRVPTRLEN 

RTRVPTRBUF 

OFFSETS FROM FP 



CHECKSUM ERROR IN HOME BLOCK, INDEX FILE HEADER 
DIRECTORY FILE HEADER OR FILE HEADER 
FILE HEADER CONSISTENCY CHECK FAILED FOR 
INDEX FILE, DIRECTORY FILE, OR DESIRED FILE 
HOME BLOCK INDICATES THAT THIS VOLUME 
CONTAINS A NON-SUPPORTED FILE STRUCTURE 
OR POSSIBLY THE HOMEBLOCK IS GARBAGE 





4 

8 

12 

16 

20 

24 

28 



OPTIONAL 
PRESENT IF 



AND ONLY IF RTRVPTRLEN IS 



SOFFSET 0, NEGATIVE, <- 

<FID,6>,- 

<DIRNAM,46>,- 

<NAMBLK,40>,- 

<NAMDSC,12>,- 

<SCRATCHSI2E,0>- 

> 



3 WORD FILE IDENTIFIER 
DIRECTORY NAME AREA 
5 WORD NAME BLOCK AREA 
NAME DESCRIPTOR AREA 
SIZE OF SCRATCH AREA 



FID: 

DIRNAM: 

NAMBLK: 

NAMDSC: 

SCRATCHSIZE: 

THE FILE DESCRIPTION ON THE STACK LOOKS AS FOLLOWS: 



+ _ ,_. + 

! DIRECTORY NAME COUNT ! 
! - ! 

! ADDRESS OF DIRECTORY NAME ! 
+ + 

! ADDRESS OF NAMBI.K ! 
+ + 



: NAMDSC 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



FILSOPENFILE - 



RETURN FILE HEADER AND 
- FILES11 LEVEL 1 & 2 
FILSOPENFILE - RETURN 



ST 

FILE 

FILE 



-4 



00000068 8F 

5E 

AO AD A4 AD 



5B FFE2 



CF 
02 



08FC 
C2 
DE 



DO 
14 



10 13 



OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

COOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOE 

OOOE 

0014 

0015 

001A 

001A 

001A 

001A 

001A 

001F 

0021 

0021 

0023 

0023 

0023 

0023 

0023 

0023 

0023 

0023 



305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
.1 
.2 
.3 
.4 
333 
334 
335 
336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 
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:NAM8LK 



ASCII STRING OF 
DIRECTORY FILE 
NAME,TYPE;VERSION 



FILE ID 
NUMBER 



RELATIVE VOLUME NUMBER 



.ENABL LSB 



:DIRNAM 



:FILID 



FILSOPENFILE: 
.WORD 
BSBW 
BL8S 
RET 

OPENFUEJ: 

.WORD 

OPENFILE 2: 
SUBL 



A M<R2,R3,R4,R5,R6,R7,R11> k , ^ C023 

ASSIGN DEV .-ASSIGN THE DEVICE_00NCE IN CALLER'S MODE 



R0,OPEflFILE.2 



;BRANCH IF SUCCESSFUL 



C023 
[02] 



A M<R2,R3,R4,R5,R6,R7,R11> 

#-SCRATCHSIZE, SP ;RESERVE SCRATCH STORAGE 



MOVAL NAMBLK(FP),NAMDSC+8(FP) ;SET ADDRESS OF NAME BLOCK 

IF CACHE DESCRIPTOR EXISTS ANU IS IN SYSTEM SPACE, THEN WE 
HAD BETTER BE IN KERNEL MODE TO USE THE CACHE. 



MOVL W*FIL_GQ_CACHE,R11 

BGTR 10$ 

BEQL 20$ 

MOVPSL RO 

EXTZV #PSL$V.CURMOD # #PSL$S ( 

BEQL 10$ 

SCMKRNL.S B*OPENFRE 1,<AP> 

CMPL RO,#SS$JIOPRlV 



-8 


00000004'EF 

58 


DO 


0023 
0029 


354 10 




07 


13 


002A 


355 




01 6B 


B1 


002C 


356 




02 


13 


002F 


357 




5B 


D4 


O031 


358 15 


• 


OOOOOOOO'EF 


PE 


0033 


359 20 



BEQL 

RET 

MOVL 

BEQL 
CMPW 
BEQL 
CLRL 
MOVAL 



;IS CACHE IN SYSTEM SPACE? 
;BRANCH IF DESCRIPTOR PRESENT 
;AND NOT IN SYSTEM SPACE 
.'BRANCH IF NO DESCRIPTOR PRESENT 
;GET PSL 
,CURMOD,RO,RO ;FETCH CURRENT MODE 

;BRANCH IF ALREADY IN KERNEL MODE 
;CALL THIS PROCEDURE IN KERNEL MODE 
; ASSUME N0PR1V MEANS WE COULDN'T 
;GET IN TO KERNEL MODE 



15$ 

FIL$GQ_CACHE+4,R11 

20$ ;BRANCH IF NOT 

FIL$W_CACHEJD(RHMFIL$C CACHEJD ;C0RREC1 VERSION OF lACHE? 



;IS THE CACHE ENABLED? 



C023 
C023 

[023 
[023 
C023 
C023 

[023 
C023 



20$ 
R11 
ril$GTJ)DSTRING,R7 



BRANCH TF YES 
DISABLE THE CACHE 
ADDRESS OF COUNTED STRING 



ZZ-ENSAA-7,0 

F1LEREAD 

06-02 



FILSOPENFI 



- RETURN FILE HEADER AND 
- FILES11 LEVEL 1 & 2 
FILSOPENFILE - RETURN 



63 





57 


56 


87 




57 


56 


02 


50 08 


AC 




27 


52 


60 


52 


3A 




07 


53 01 


A1 


52 


70 



63 



63 



58 8F 
05 



50 33 
63 52 



56 



53 



3C 
1D 
02 
52 
50 
03 
03E7 
57 53 

51 53 

52 70 
01 A1 



07 



6E 



7E 

6C 

04 

18 AC 
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0039 

9A 003A 

D6 003D 

C2 003F 

0042 

0042 

0042 

DO 0042 

13 0046 

7D 0048 

3A 004B 

13 004F 

9E 0051 

9E 0055 

0058 

0058 

0058 

91 0058 

13 005C 

91 005E 

12 0061 

81 0063 

D7 0067 

3A 0069 

12 006D 

31 006F 

DO 0072 

C3 0075 

9E 0079 

DE 007C 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

0080 

7C 0080 

D1 0082 

19 0085 

7D 0087 



360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 



MOVZBL 

INCL 

SUBL 



(R7)+,R6 

R7 

#2,R6 



GET BYTE COUNT 

STEP OVER BRACKET 

DON'T COUNT THE BRACKETS 



GET FILE NAME STRING, AND S7R1P DEVICE OFF IF PRESENT 



MOVL FILNAK'AP),RO 

BEQL 32$ 

MOVQ (R0),R2 

LOCC # A A/:/,R2,(R3) 

BEQL 25$ 

M0VA8 1(R1),R3 

MOVAB -(RO), R2 



ADDRESS OF FILE NAME DESCRIPTOR 
BRANCH IF NO NAME SPECIFIED 
R2 = SIZE, R3 = ADDRESS 
DEVICE NAME PRESENT? 
BRANCH IF NOT 
ADDRESS BEYOND ": M 
REMAINING SIZE 



SEE IF DIRECTORY SPECIFIED IN THE FILE NAME STRING 



55$: 



30$: 



32$: 
35$: 



SET 



CMPB # A A/C/,(R3) 

BEQL 30$ 

CMPB * A A/</,(R3) 

BNEO 40$ 

ADDB3 #2,<R3)+,R0 

DECL R2 

LOCC R0,R2,(R3) 

BNEQ 35$ 

BRW BADFILNAM 

MOVL R3,R7 

SU8L3 R3,R1,R6 

MOVAB -(R0),R2 

MOVAL 1(R1),R3 



DIRECTORY DELIMITER? 

BRANCH IF YES 

ALTERNATE CHARACTER 

BRANCH IT NO DIRECTORY SPECIFIED 

SCAN FOR MATCHING BRACKET ] OR > 

ADJUST SIZE AND ADR OF STRING 

SCAN FOR CLOSE BRACKET 

BRANCH IF FOUND IT 

BAD FILE NAME IF NO CLOSE BRACKET 

ADDRESS OF DIRECTORY NAME 

SIZE OF DIRECTORY NAME 

SIZE REMAINING SKIP CLOSE BRACKET 

ADR OF REMAINING STRING BEYOND CLOSE BRACKE 



UP COMMON ARGUMENT LIST FOR MOUNT, FINDFILID, RDCHKFILHDR 

: AP 





ARGUMENT COUNT 






CHANNEL NUM3ER 






NAME DESCRIPTOR 






INDEX FILE HEADER BUF ADR 






FILE HEADER BUFFER ADDR 






ADDR OF STATISTICS BLOCK 






ADDRESS CF FILE ID BLOCK 






ADDR OF RTRV PTR LENGTH 




ADDR OF RTRV PTR BUF DSCR 





40$: 



CLRQ -<SP> ;ASSUME NO RETRIEVAL POINTERS REQUESTED 

CMPL ARGCNT(AP),#RTRVPTRBUF/4 .-RETRIEVAL POINTER PARAMETERS PRESENT? 

BLSS 45$ ;BRANCH IF NOT 

MOVQ RTRVPTRLEN(AP),(SP) ;PUT RTRV PTR PARAMS IN LIST 



ZZ-ENSAA-7.0 

FUEREAD 

06-02 



F1LSOPENFILE - 



RETURN FILE HEADER AND 
- FILES11 LEVEL 1 & 2 
FILSOPENFILE - RETURN 



7E 



-1 



OC AE 
0250'CF 



FA AD 

10 AC 

OC AC 

98 AD 

04 AC 

06 

5B 

07 

18 AB 

08 

6E 



FA 
FC 



AD 04 
AD 04 
FF^C CF 

1A 
00000000' EF 

51 
50 



7E 
56 

56 



98 AD 



02ED'CF 



26 



00 8F 



-2 



98 AD 



07 

6E 
05F4'CF 



81 
OE 
56 
50 

011E 
8E 
03 

0116 
50 
6E 
58 
02 
50 
3F 
28 
AD 
3F 
56 
DF 
52 
52 
AD 
DB 
6C 
03 
02 
6E 



A4 



98 



ST 
FILE 

FILE 
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DF 
7D 
DD 
DF 
DD 
DD 
D5 
13 
DE 
11 
FA 



61 50 E9 



BO 
DO 
D5 
13 
DE 

9A 
13 
7D 
7D 
30 
7D 
11 
30 
7D 
DF 
DD 
FB 
E9 
B8 
28 

BA 
D5 
14 
7D 
D4 
D5 
14 
D1 
19 
CO 
FA 
04 



008B 

008E 

0092 

0095 

0098 

009B 

009D 

009F 

00A1 

00A6 

00A8 

OOA) 

00A t > 

OOAD 

COBO 

OOBO 

OOBO 

OOBO 

00B4 

00B8 

OOBC 

OOBE 

00C4 

00C5 

00C8 

OOCA 

OOCD 

OODO 

00D3 

00D6 

00D8 

OODB 

OODF 

00E1 

00E3 

00E8 

OOEB 

OOED 

00F1 

OOF 3 

00? 5 

00F7 

00F9 

OOhD 

OOFF 

0102 

0104 

0107 

0109 

010C 

0111 

0112 

0112 



416 
417 
418 
419 
.1 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 

438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
.1 
.2 

.3 

453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 



45$: 



50$: 



PUSHAL FID(FP) 

MOVQ FILHDR(AP),-(SP) 

PUSHL IXFHDR(AP) 

PUSHAL NAMDSC (FP) 

PUSHL CHANADR(AP) 

PUSHL #6 

TSTL R11 

BEQL 50$ 

MOVAL FIL$A IXFHDR(R11) 

ORB 60$ " 

CALL6 (SP),W A FIL$MOUNT 



3LBC R0,100$ 



ADDRESS OF FILE ID 

PUSH STATBLK ADR, FILHDR ADR 

INDEX FILE HEADER ADDRESS 

ADR OF 3 LONG WORD NAME DESCRIPTOR 

CHANNEL TO USE, LONG WORD FOR BOOTING 

PARAMETER COUNT 

CACHE ENABLED? 



JXFHOR(SP) ;USE CACHED INDEX FILE HEADER 
;AND SKIP THE MOUNT 
/"MOUNT THE VOLUME" (READ HOME 
/BLOCK, INDEX FILE HEADER, GET 
/STRUCTURE LEVEL OF VOLUME) 
;BRANCH IF ERROR 



1021 



SET UP FOR THE DIRECTORY LOOK UP 



60$: 



70$ 
75$ 
80$ 



85$: 



90$: 
100$: 



MOVW 
MOVL 
TSTL 
8EQL 
MOVAL 

MOVZBL 

BEQL 

MOVQ 

MOVQ 

BSBW 

MOVQ 

BRB 

BSBW 

MOVQ 

PUSHAL 

PUSHL 

CALLS 

BLBC 

PUSHR 

M0VC3 

POPR 

TSTL 

BGTR 

MOVQ 

CLRL 

TSTL 

BGTR 

CMPL 

BLSS 

ADDL 

CALLG 

RET 



#FID$C_MFD,FID(FP> 
#FID$C MFD,FID+2(FP) 
W A FIL STJOPSYS 
70$ " 
FIL$GT_T0PSYS,R1 

<R1)+,R0 

70$ 

R6,-(SP) 

R0,R6 

FORMDIRSTRING 

<SP)+,R6 

75$ 

FORMDIRSTRING 

RO,NAMDSC(FP) 

(SP) 

R11 

#2,W A FIL$FINDFILID 

ROJOOS 

# A M<R0,R1,R2,R3,R4, 
*<DIRNAM-NAM8LK>,*0 



MFD FILE NUMBER 

MFD FILE SEQUENCE NO., RVN = 

TOP LEVEL SYSTEM DIRECTORY PRESENT? 

BRANCH IF NOT 

GET ADDRESS OF TOP LEVEL DIR STRING 

GET SIZE TO RO, ADR TO R1 

BRANCH IF NONE SPECIFIED 

SAVE DIRECTORY STRING DESCRIPTOR 

TREAT TOPSYS LIKE DIR STRING 

FORM THE DIRECTORY NAME 

RESTORE READ DIRECTORY DESCRIPTOR 

GET NEXT DIRECTORY TO LOOKUP 
STORE DESCRIPTOR OF ITS NAME 
REAL ADDRESS OF ARGUMENT LIST 
CACHE ADDRESS IF ANY 
FIND THE FILE ID 
.BRANCH IF ERROR 

R5> ; SAVE THE REGISTER 

,NAMBLK(FP> ;REINIT NAME BLOCK 



# A M<R0,R1,R2,R3,R4,R5> 

R6 

70$ 

R2,NAMDSC(FP) 

R2 

NAMDSC (FP) 

80$ 

ARGCNT(AP),*RTRVPTRBUF/4 

90$ 

#2 (SP) 

<SP),W A FJL$RDCHKFJLHDR 



; RESTORE REGISTERS 

;ANY MORE DIRECTORY NAMES? 

;BRANCH IF YES, LOOKUP THE NEXT 

/DESCRIPTOR FOR FILE TO LOOKUP 

;STOP THE LOOKUP LOOP 

.•ALREADY DONE? 

.•BRANCH IF NO, DO THE LAST ONE 

/RETRIEVAL POINTERS DESIRED? 

BRANCH IF NOT 

ADDITIONAL ARGUMENTS ARE PRESENT 

READ AND CHECK FILE HEADER 



.DSABL LSB 



ZZ-ENSAA-7,0 

FILEREAD 

06-02 
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0112 


467 


0112 


468 


0112 


469 


0112 


470 


0112 


471 


011? 


472 


0112 


473 


0112 


474 


0112 


475 


0112 


476 


0112 


477 


0112 


478 


0112 


479 


0112 


480 


0112 


481 


0112 


482 


0112 


463 


0112 


484 


0112 


485 


0112 


486 


0112 


487 


0112 


488 


0112 


489 


0112 


490 


0112 


491 


0112 


492 


0112 


493 


0112 


494 


0112 


495 


0112 


496 


0112 


497 


0112 


498 


0112 


499 


0112 


500 


0112 


501 


0112 


502 


0112 


503 


0112 


504 


0112 


505 


0112 


506 


0112 


507 


0112 


508 


0112 


509 


0112 


510 


0112 


511 


0112 


512 


00000004 0112 


513 


00000008 0112 


514 


OOOOOOOC 0112 


515 


00000010 0112 


516 


00000014 0112 


517 


00000018 0112 


518 


0112 


519 


0112 


520 


0112 


521 


0C3C 0112 


522 


01H 


523 



++ 



.SBTTL FILSCACHEJNN - INN FILEREAD CACHE 
FUNCTIONAL DESCRIPTION: 

CACHE. INIT PERFORMS THE INITIALIZATION FOR THE FILEREAD CACHE 
CALLING SEQUENCE: 

CALLG ARGLIST,FIL$CACHEJNIT 
INPUT PARAMETERS: 



CHANADR(AP) 
FILNAM(AP) 



CACHE_SIZE(AP) 
CACHE ADR CAP) 
DIRjtfCHE.CNTCAP) 
LBN_CACHE_CNT(AP) 



ADDRESS TO RETURN LONG WORD CHANNEL 
ADDRESS OF DEVICE NAME STRING DESCRIPTOR 
THE DEVICE NAME MUST CONTAIN THE M :" 
If THE ADDRESS IS 0, THE STRING IS NULL. 
OR THE NAME DOES NOT CONTAIN A M : M , THE 
DEFAULT DEVICE NAME IS USED 
SIZE IN BYTES OF FILEREAD CACHE 
ADDRESS OF FILEREAD CACHE 
NUMBER OF DIRECTORY CACHE ENTRIES 
NUMBER OF LBN CACHE ENTRIES 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = ALWAYS SUCCESSFUL STATUS CODE 
IMPLICIT OUTPUTS: 

FILSGQ.CACHE QUAD WORD FILLED IN WITH SIZE AND ADDRESS OF CACHE 
COMPLETION CODES: 

SS$_NORMAL SUCCESSFUL COMPLETION 

SIDE EFFECTS: 

NONE 

EQUATED SYMBOLS, OFFSETS FROM AP 



CHANADR 
FILNAM 
CACHE.SIZE 
CACHE ADR 
DIR CACHE CNT 
LBNlCACHE^CNT 



4 

8 

12 

16 

20 

24 



FILSCACHE JNIT:: 

,Q0RD A M<R2,R3,R4,R5,R10,R11> 



ZZ-ENSAA-7,0 

FILEREAD 

06-02 



F1LSCACHE INIT - INIT FILEREAD CACHE 

- FILES11 LEVEL 1 fc 2 
FILSCACHE INIT - INIT 
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5A OC AC 

00000218 8F 

50 5A 

60 

6B 01 

00000218 8F 

04 AB 

00000218 8F 

08 A8 

14 AC 24 

51 

50 51 

43 

00000218 8F 

OC AB 51 



10 



AB 
18 



AC 
50 



OC 



AB 
09 
51 
51 
08 
8F 
50 
51 
AB 



000001 FF 
51 
10 AB 
14 
003D 

17 50 

18 AB 
7E 

04 BC 

03 

07 50 

5A 

00000000' EF 

50 01 



025D'CF 



7D 
C3 

19 
BO 

DO 

DO 

C5 

C2 
19 
C1 



DO 
78 

D1 
15 
CB 

C1 

30 
E9 
DF 
D4 
DD 
FB 
E9 
7D 

DO 
04 



0114 

0114 

0118 

011E 

0120 

0122 

0125 

0125 

01 2B 

012D 

0133 

0135 

0139 

01 3A 

013D 

013F 

0145 

0148 

0148 

0148 

014D 

0151 

0152 

0155 

0157 

015D 

015F 

0163 

0165 

0168 

016B 

016E 

0170 

0173 

0178 

01 7B 

017D 

0182 

0185 



524 
525 
526 

527 
528 
529 
530 

531 

532 

533 
534 
535 

536 

537 
538 
539 

540 
541 
542 



ASSUME 

MOVQ 

SUBL3 

BLSS 
MOVW 

MOVL 

MOVL 

MULL3 

SUBL 
BLSS 
ADDL3 



ASSUME 

MOVL 

ASHL 

CMPL 
BLEQ 
BICL3 



CACHE SIZE*** EQ CACHE_ADR 

CACHE SIZE(AP) t R10 ;R10=SIZE, R11=ADR 

#FIL$C_SIZE,R1&,R0 ;BYTES LEFT FOR DIR AND LBN CACHES 

100$ ;BRANCH IF NOT ENOUGH CACHE SPACE 

#FIL$C CACHEJD,FIL$W_CACHE IDCR11) ;SET CACHF ID a t 

;ALUOWS MOVING CACHES BETWEEN FILEREAD 1 S 
#FIL$C_SIZE,FIL$LJ>IR0FF(R11> /BEGINNING OF DIR CACHE 

#FIL$C_SIZE,FIL$L_DIRNXT(R11) ;NEXT AVAILABLE SLOT IN DIR CACHE 

#FIL$CJ>IR_SIZE,DIRJ:ACHE_CNT<AP),R1 ;BYTE COUNT FOR DIR CACHE 

R1,R0 ;BYTE COUNT LEFT FOR LBN CACHE 

100$ ;BRANCH IF NOT ENOUGH SPACE 

*FIL$C_SIZE,R1,FIL$LJ>IRMAX<R11> ;END OF DIR CACHE 

FIL$L DIRMAX EQ FIL$L LBNOFF 

FIL$L"LBN0FF(R11),FILSL - LBNNXT(R11) ;NEXT LBN ENTRY TO ALLOCATE 
#9,LBFLCACHE_CNT<AP),R1 ;BYTE COUNT IN LBN CACHE 



R1-R0 

20$ 
# A X1FF,R0,R1 



; ENOUGH ROOM FOR WHOLE LBN CACHE 

; BRANCH IF YES 

;USE WHAT IS LEFT TRUNCATED 



543 20$: ADDL3 R1 ,FIL$L_LBNNXT(R11 ) ,FIL$L_LBNMAX(R11 ) ;END OF LBN CACHE 



544 
545 
546 
547 
548 
549 
550 
551 

552 
553 



100$: 



BSBW ASSIGN DEV 

BLBC ROJOOJ 

PUSHAL FILSA IXFHDRCR11) 

CLRL -(SP)~ 

PUSHL aCHANADR(AP) 

CALLS *3,W A FIL$M0UNT 

BLBC R0,100$ 

MOVQ R10,FIL$GQ_CACHE 

MOVL S A #SS$_NORMAL,RO 
RET 



;ASSIGN THE DEVICE 

;BRANCH IF ERROR 

;ADDRESS TO READ INDEX FILE HEADER 

;UNUSED PARAMETER 

; CHANNEL JUST ASSIGNED 

;MOUNT THE VOLUME, RETURN INDEX FILE HDR 

.-BRANCH IF ERROR 

;SAVE DESCRIPTOR OF CACHE 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



FILSCACHE TRUNC - TRUNCATE FILEREAD CACH 

- FILES11 LEVEL 1 & 2 FILE 
FILSCACHE TRUNC - TRUNCATE 
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Pag 

.MA 



e 13 
R;1<4) 



00000004' EF 

50 

OC AO 08 AO 

14 AO 10 AO 

10 AO 

OOOOOOOO'EF 

50 01 



0000 
DO 

DO 
DO 
DO 

DO 
04 



0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

C186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0186 

0188 

018E 

018F 

0194 

0199 

019C 

01A1 

01A4 



555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 
600 
601 

602 
603 



.S8TTL FILSCACHE. TRUNC - TRUNCATE FILEREAD CACHE 
++ 
FUNCTIONAL DESCRIPTION: 

CACHE TRUNC TRUNCATES THE FILEREAD CACHE AND MAKES IT IMPOSSIBLE 
TO ADD MOPE~DIRECTORY CACHE OR DIRECTORY LBN ENTRIES TO IT. IN EFFECT 
THIS ROUTINE TURNS THE CACHE INTO A READ-ONLY DATA BASE. 

CALLING SEQUENCE: 

CALLG AR6LJST,FIL$CACHE.TRUNC 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

FILSGQ.CACHE DESCRIPTOR FOR THE CACHE 

OUTPUT PARAMETERS: 

RO = ALWAYS SUCCESSFUL STATUS CODE 
IMPLICIT OUTPUTS: 

FILSGQ.CACHE FILLED IN WITH ALTERED SIZE OF CACHE 
COMPLETION CODES: 

SSSJJORMAL SUCCESSFUL COMPLETION 

SIDE EFFECTS: 

NONE 
EQUATED SYMBOLS 



FILSCACHE TRUNC:: 
,0ORD 
MOVL FILSGQ CACHE+4,R0 



;ADDRESS OF THE CACHE 



MOVL 
MOVL 
MOVL 

MOVL 
RET 



FILSL.DIRNXT(RO),FILSL..DIRMAX<RO) ;N0 NEW DIRECTORY CACHE ENTRIES 
FILSL L8NNXT(R0),FILSL LBNMAX(RO) ;N0 MORE LBN BUFFERS 
FIL$LlLBNNXT(RO),FIL$Ga_CACHE ;SET NEW SIZE OF CACHE 

S A *SSS_NORM',,R0 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



G 10 

ASS1GNJ)EV - ASSIGN A DEVICE AND RETURN 27-JUL-1984 _ Fjche 7 Frame 610 Seguence 1359 

- F1LES11 LEVEL 1 & 2 FILE READING ROUTI 27-JUL-1984 15:19:33 VAX-11 Macro V03-0T Page 14 
ASSIGN DEV - ASSIGN A DEVICE AND RETURN 12-APR-1983 15:57:42 DMA1 :CSYS0.SYSMAINTDFILEREAD.MAR;1 (5) 



-1 



50 
FE59 CF 

OA 
QOOQOOOO'EF 

51 

50 81 

03 

52 

AC 

11 

52 60 

63 52 3A 

08 

04 AE 53 

6E 51 53 

50 5E 

OC 



50 08 



D4 
D5 
13 
DE 

9A 
BB 
7C 
DO 
13 
7D 
3A 
13 
DO 
C3 
DO 

BA 
05 



01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
C1A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A7 
01 AB 
01AD 
01B3 
0184 
01B7 
01B9 
0188 
01BF 
01C1 
01C4 
01C8 
01 CA 
01CE 
01D2 
01D5 
01D5 
01D7 



605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
.1 
646 
647 



.S8TTL ASSIGN DEV - ASSIGN A DEVICE AND RETURN A CHANNEL 

FUNCTIONAL DESCRIPTION: 

ASSIGN THE GIVEN DEVICE AND RETURN A CHANNEL NUMBER 

FOR BOOTING THIS VALUE IS A LONG WORD 



INPUTS: 

FILNAM(AP) 
CHANADR(AP) 



= ADDRESS OF STRING 

IF DEVICE NAME IS 

= ADDRESS TO RETURN 



DESCRIPTOR 

PRESENT IT MUST HAVE ":" 

LONG WORD OF CHANNEL NUMBER 



OUTPUTS: 



R0,R1 ALTERED 

R2 = SIZE OF DEVICE NAME STRING (DEFAULT IF NOT IN NAME STRING) 

MAYBE IF DEFAULT DEVICE STRING WAS NOT PRESENT 

THIS IS THE CASE WHEN BOOTSTRAPPING. 
R3 = ADDRESS OF DEVICE NAME STRING 

IF DEFAULT DEVICE STRING WAS NOT PRESENT 



ASSIGNJ)EV: 
CLRL 
TSTL 
BEQL 
MOVAL 



10$: 



20$ J 



MOVZBL 

PUSHR 

CLRQ 

MOVL 

BEQL 

MOVQ 

LOCC 

BEQL 

MOVL 

SU8L3 

MOVL 

$ASSIGN, 

POPR 

RS8 



RO 

W A FIL_GT_DDDEV 
10$ 
FIL$GT_DDDEV,R1 

<R1)+,R0 
# A M<R0,R1> 
R2 

FILNAM(AP),RO 
20$ 

(R0),R2 

#*A/:/,R2,(R3) 
20$ 

R3,4(SP) 
R3.R1,<SP) 
SP,R0 

S (RO),ciCHANADR(AP) 
> A M<R2,R3> 



ASSUME NULL DEFAULT DEVICE STRING 
ADDRESS OF DEFAULT DEVICE COUNTED STRING 
BRANCH IF NO DEFAULT DEVICE STRING 
GET THE ADDRESS 

SIZE OF DEFAULT DEVICE STRING 

PUSH DEFAULT DEVICE DESCRIPTOR 

ASSUME NULL STRING DESCRIPTOR 

ADDRESS OF STRING DESCRIPTOR 

BRANCH IF NO NAME GIVEN 

R2 = SIZE, R3 = ADR OF FILE NAME STRING 

ANY DEVICE SPECIFIED? 

BRANCH IF NONE 

ADDRESS OF DEVICE NAME 

SIZE OF DEVICE NAME STRING 

ADDRESS OF DEV NAME DESCRIPTOR 

ASSIGN THE CHANNEL 

GET DEVICE NAME SIZE AND ADDRESS 



ZZ-ENSAA-7.0 

FILEREAO 

06-02 
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03 



50 

03 

0279 



82 



3030 8F 

82 30 

03 

72 71 

FA 50 



D1 
15 
31 

BO 
90 
11 
90 

F4 
05 



01 D8 
01D8 
01D8 
01 D8 
01D8 
01D8 
01D8 
01D8 
01 D8 
01D8 
01D8 
01D8 
01D8 
01D8 
C1D8 
01D8 
01D8 
01D8 
01 D8 
01D8 
01D8 
01D8 
01D8 
01D8 
01 DB 
01 DD 
01E0 
01E0 
01E5 
01E8 
01EA 
01ED 
01ED 
01F0 



649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

66* 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

t>76 

677 

678 

679 

680 

681 

682 



++ 



.SBTTL ST0RE3DIGITS - STORE 3 ASCII DIGITS 
FUNCTIONAL DESCRIPTION: 

STORE 3 DIGITS OF DIRECTORY STRING 
CALLING SEQUENCE: 

BSaB ST0RE3DIGITS 

INPUT: 

RO = NO, OF DIGITS TO PUT IN STRING 
R1 = ADDRESS + 1 OF RIGHT MOST DIGIT 
R2 = ADDRESS AT WHICH TO STORE 3 DIGITS 

OUTPUTS: 

NONE 



ST0RE3DIGITS: 
CMPL 
BLEQ 
BRW 

5$: MOVU 
MOVB 
BRB 

10$: MOVB 

20$: SOBGEQ 
RSB 



R0,*3 

5$ 

BADFILNAM 

#*A/00/,(R2)+ 

#*A/0/,(R2)+ 

20$ 

-<R1),-(R2) 

R0J0$ 



3 DIGITS OR LESS SPECIFIED? 

YES. BRANCH, 

NO, DIRECTORY STRING BAD. EXIT 

WITH ERROR, 

BACKGROUND WITH ASCII 

START LOOP AT BOTTOM 
STORE BYTES LAST TO FIRST 
LEAVING LEADING ASCII O'S 
LOOP 2ER0 OR MORE TIMES 



ZZ-ENSAA-7.0 

F1LEREAD 

06-02 



F0RMDIRSTRIN6 - 



-1 



67 
56 

50 

57 



61 



56 2E 

50 01 

51 57 
51 57 
01 A140 

07 

27 50 

03 

024A 

50 2C 

39 

50 

04 AE 50 

50 

52 CC AD 

B6 

50 8E 01 

51 8E ZE 
52 C? AD 

A8 

OA 

50 06 

51 CC AD40 

5249442E 8F 

81 

61 3138 8F 



GET A DIRECTORY 
- FILES11 LEVEL 
FORMDIRSTRING - 



I 10 
STRING 27-JUL-198', Fiche 7 Frame 110 Sequence 1361 
1 & 2 FILE READING ROUTI 27-JUL-1984 15:19:33 VAX-11 Macro V03-0T Page 16 
GET A DIRECTORY STRING 12-APR-1983 15:57:42 DMA1 :[SYS0,SYSMAINT]FILEREAD.MAR;1 (7) 



3A 
C3 

C3 
DO 
9E 
BB 
D1 
15 
31 
3A 
13 
DD 
C3 

DE 

10 
C3 
C1 
DE 
10 
BA 
DO 
9E 
DO 

BO 



01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
01F1 
C1F1 
01F1 
01F1 
0V1 
01F1 
C1F1 

Olrl 

01F1 

01F1 

01F1 

01F1 

01F1 

01F1 

01F1 

01F1 

01F1 

01F1 

01F5 

01F9 

01F9 

01FD 

0200 

0205 

0207 

020A 

020C 

020F 

0213 

0215 

0217 

021B 

021C 

0220 

0222 

0226 

022A 

022E 

0230 

0232 

0235 

023A 

0240 

0241 



684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
,1 
722 
723 
724 
725 
726 
727 

728 
729 
730 
731 
732 
733 
734 
735 
736 
737 

738 



.SBTTL FORMDIRSTRING - GET A DIRECTORY STRING 

FUNCTIONAL DESCRIPTION: 

PULL THE FIRST DIRECTORY NAME OFF THE FRONT OF THE INPUT 
DIRECTORY STRING AND FORM THE FULL FILE NAME OF THE DIRECTORY 
TO LOOK UP. 

CALLING SEQUENCE: 

8S8W FORMDIRSTRING 



INPUTS: 



R6 = SIZE OF DIRFCTORY STRING 

R7 = ADDRESS OF DIRECTORY STRING 

THE STRING CONTAINS NO BRACKETS, 

IT MAY BE OF THE FORM "DIR1 .DIR2.DIR3. . .DINT 

THE FIRST AND ONLY ITEM MAY BE IN THE FORM GROUP, MEMBER 

DIRNAM(FP) = ADDRESS OF AREA TO BUILD THE NAME 



OUTPUTS: 



RO = SIZE OF DIRECTORY STRING 

R1 = ADDRESS OF DIRECTORY STRING 

R2,R3 PRESERVED 

R6, R7 UPDATED TO POINT AT THE REST OF THE STRING 



FORMDIRSTRING: 



5$: 



10$: 



LOCC 


# A A/./,R6,(R7) 


SU8L3 


#1,R0,R6 


SUBL3 


R7,R1,R0 


MOVL 


R7.R1 
1(R1)[R0],R7 


MOVAB 


PUSHR 


# A M<R0,R1,R2> 


CMPL 


R0,#39 


BLEQ 


5$ 


BRW 


BADFILNAM 


LOCC 


* A A/,/,R0,(R1) 


BEQL 


20$ 


PUSHL 


RO 


SU8L3 


R0,4(SP),R0 


MOVAL 


DIRNAM(FP),R2 


BSBB 


ST0RE3DIGITS 


SU8L3 


#1,<SP)+,R0 
(SP)*,(SP)+,R1 

DIRNAM+3(FP),R2 


ADDL3 


MOVAL 


BS8B 


ST0RE3DIGITS 


POPR 


# A M<R2> 


MOVL 


#6,R0 


MOVAB 


DIRNAM(FP)[R0],R1 


MOVL 


* A A/.DIR/,(R1>+ 


MOVW 


# A A/;1/,(R1) 



FIND NEXT DIRECTORY STRING 

SIZE OF REST, SKIP THE 'V 

-1 IF EMPTY 

BYTE COUNT OF DIRECTORY NAME 

ADDRESS OF DIRECTORY NAME 

ADDRESS OF NEXT BYTE BEYOND ".' § 

SAVE STRING DESCRIPTORS AND R2 

LENGTH OF DIRECTORY STRING OKAY? 

YES, BRANCH. 

NO. EXIT WITH ERROR. 

GOOD STRING: ANY '%"? 

BRANCH IF NOT, RETURN THE DESCRIPTOR AS IS 

SAVE REMAINING BYTE COUNT 

BYTE COUNT TO LEFT OF 



i« it 



ADDRESS TO STORE FIRST 3 CHARS 

STORE THEM 

COUNT OF CHARS TO RIGHT OF 'V 

ADR OF BYTE TO RIGHT OF LAST CHAR 

ADR TO STORE LAST 3 CHARS OF DIR NAME 

STORE THEM 

RESTORE SAVED R2 

6 BYTES STRING SIZE 

POINT TO END OF STRING 

PUT TYPE IN STRING 

;AND VERSION AS WELL 



ZZ-ENSAA-7.0 
F REREAD 
06-02 



FORMDIRSTRING - 



51 CC AO 
50 06 



10 BE 



38 



OC AE 

CC AD 

38 

07 

D8 



GET A DIRECTORY 
- FILES11 LEVEL 
F0RMDIRSTRIN6 - 



9E 0246 

CO 024A 

05 024D 

BB 024E 

0250 

0250 

0250 

28 0250 

0255 

BA 0257 

BA 0259 

11 025B 



744 
745 
746 

747 
748 
749 



J 10 

STRING 27-JUL-1984 Fiche 7 Frame J10 

1 & 2 FILE READING ROUTI 27-JUL-1984 15:19:33 VAX-11 Macro 

GET A DIRECTORY STRING 12-APR-1983 15:57:42 



Sequence 1362 
V03-01 Page 17 

DMA1:CSYS0.SYSMAINT]FILER£AD.MAR;1(7) 



739 

740 

741 

742 20$: 

743 



MCVAB 
ADDL 
RSB 
PUSHR 



DIRNAM(FP),R1 
#6,R0 



;ADDRESS OF STRING 
;SIZE INCLUDES M .DIR;1 



* A M<R3,R4,R5> ;SAVE THESE FROM MOVC3 

12(SP) = SIZE OF STRING, 16CSP) = ADDRESS 

M0VC3 12<SP),al6(SP),DIRNAM<FP> ;M0VE NAME TO SCRATCH AREA 

POPR # A M<R3,R4,R5> ,'RESTORE REGISTERS 

POPR rf A M<R0,R1,R2> 
BRB 10$ 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 
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53 
7E 01 
7E 



025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
C25D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
025D 
0250 
025D 
C25D 
025D 
025D 
025D 
025D 
025D 
00000004 025D 
OOOOOOOC 025D 
025D 
025D 
025D 
025D 
001C 025D 
OC AC DO 025F 



09 
21 
53 
01 



9C 0263 

3C 0267 

DD 026A 

DD 026C 



751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

771 

774 

775 

776 

777 

77B 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

804 
805 
806 
807 



.S8TTL MOUNT - MOUNT THE VOLUME, INIT FOR FILE LOOKUP 
++ 
FUNCTIONAL DESCRIPTION: 

MOUNT PERFORMS THE NECESSARY INITIALIZATION FOR FILE LOOKUP. 
IT READS THE HOME BLOCK, AND THEN RETURNS THE INDEX FILE HEADER TO THE 
SPECIFIED BUFFER, THE INDEX FJLE HEADER IS ALTERED BY RECORDING THE 
VIRTUAL BLOCK OFFSET REQUIRED TO TRANSLATE 'FILE NUMBER 1 TO INDEX FILE VBN 

CALLING SEQUENCE: 

CALL 6 ARGLIST,FIL$MOUNT 

INPUT PARAMETERS: 



CHAN(AP) 

UNUSED 

IXFHDR(AP) 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

SS$„NORMAL 
SSSJ-'ILESTRUCT 
SSS^BADCHKSUM 
SSS.BADFILEHDR 



CHANNEL ON WHICH DEVICE IS ASSIGNED 

2ND PARAMETER NOT USED 

ADDRESS TO RETURN INDEX FILE HEADER 



SUCCESSFUL COMPLETION 

FILE STRUCTURE LEVEL NOT SUPPORTED 

CHECKSUM ERROR ON HOME BLOCK OR INDEX FILE HEADER 

INDEX FILE HEADER IS BAD 



SIDE EFFECTS: 
NONE 

EQUATED SYMBOLS, OFFSETS FROM AP 



CHAN 
IXFHDR 



FILSMOUNT:: 

.WORD 

MOVL 

ROTL 

MOVZWL 

PUSHL 

PUSHL 



4 

12 



A M<R2,R3,R4> 

IXFHDR(AP) f R3 

#W<SP) 

#10$ JEADLBLK,-(SP) 

R3 

#1 



ADDRESS OF BUFFER 
NUMBER OF BYTES TO 
READ LOGICAL BLOCK 
BUFFER ADDRESS 
LOGICAL BLOCK NUMBER 



READ 
FUNCTION 



1 IS HOME BLK 



■'Z-ENSAA-7.0 

ULEREAD 
06-02 



MOUNT - MOUNT THE VOLUME. INJT FOR FILE 27-JUL-1984 . rt(W F J?he 7 Frame L Seguence 1364 
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19 



04 AC 

05 

OOOO'CF 6E 

71 50 

51 53 

50 ID 
05B9 

51 53 
05AE 



50 08C0 8F 



51 18 A3 
50 20 A3 
54 K A3 



OE A3 



02 A3 

50 
54 
54 



04 
54 
OB 



10 
51 
63 
02 
50 



51 50 

08 AE 

0000 *CF 8E 

25 50 

51 53 

7E 

00010001 8f 

50 5E 

0522 

01FE C3 54 



54 



FO BF 
54 



DD 026E 

DD 0271 

FA 0273 

E9 0278 

DO 027B 

3C 027E 

30 0281 

DO 0284 

30 0287 

028A 

028A 

028A 

028A 

3C 0293 

04 0298 

0299 

0299 

0299 

DO 0299 

3C 029D 

DO 02A1 

02A5 

A5 02A5 

02A9 

1 1 02AA 

02AC 

02AC 

02AC 

9C 02AC 

02BO 

3C 02B1 

DO 02B4 

AO 02B7 

028A 

02BA 

02BA 

02BA 

02BA 

028 A 

C1 028A 

02BD 

FB 02BF 

02C4 

E9 02C4 

DO 02C7 

D4 02CA 

DD 02CC 

DO 02D2 

30 02D5 

02D8 

BO 02D8 

02DD 

02DD 

02DD 

02DD 

78 02DD 

02E1 



808 


PUSHL 


809 


PUSHL 


810 


CALLG 


811 


BLBC 


812 


MOVL 


813 


MOVZWL 


814 


BSBU 


815 


MOVL 


816 


BSBW 


817 


CASE 


818 




819 




820 




821 5$: 


MOVZWL 


822 


RET 


823 ; 




824 ; STRUCTURE LE 


825 ; 




826 10$: 


MOVL 


827 


MOVZWL 


828 


MOVL 


829 




830 


MULW3 



831 
832 
833 
834 
835 

836 
837 
838 
839 
840 
841 
842 
843 
844 
845 

846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
356 
857 
858 
859 
860 



BRB 



CHAN(AP) 

#5 

(SP),W A FIL$RDWRTLBN 

R0,30$ 

R3,R1 

#HM1$W CHECKSUM19-1,R0 

FILSCHECKSUM1 

R3,R1 

FILSCHECKSUM 

HM1$W_STRUCLEV+VR3),<- 

15$,- 

10$- 

>,TYPE=B, LIMITS 

0SS$_FILESTRUCT,RO 



L 2 

HM2$L IBMAPLBN(R3),R1 

HM2$WllBMAPSIZE(R3),R0 

HM2$L_MAXFILES(R3),R4 

#4,HM2$W_CLUSTER(R3),R4 

20$ 



CHANNEL 

NO. OF ARGUMENTS 

READ THE HOME BLOCK 

BRANCH IF ERROR 

ADDRESS OF HOME BLOCK 

NO, OF WORDS IN FIRST CHECKSUM 

CHECK THE FIRST CHECKSUM 

ADR OF HOME BLOCK AGAIN 

CHECK THE MAIN CHECKSUM 

/STRUCTURE LEVEL 1 
STRUCTURE LEVEL 2 

/UNSUPPORTED FILE STRUCTURE LEVEL 



; INDEX BIT MAP STARTING LBN 

; INDEX BIT MAP SIZE IN BLOCKS 

;MAXIMUM FILES ON VOLUME 

;ONLY INTERESETED IN HIGH 16 BITS 

;4*CLUSTER TO LOW WORD OF R4 



; STRUCTURE LEVEL 1 

'15$: ROTL #16,HM1$L JBMAPL8N(R3) ,R1 ;LOGICAL BLK NO. OF 1ST INDEX BIT MAP BLK 



20$: 



MOVZWL HM1 $W_IBMAPSI ZE (R3) ,R0 
MOVL #2,R4 
ADDW R0,R4 



;N0. OF BLOCKS OF INDEX 
;NUMBER OF VBN'S BEFORE 
;LOW WORD IS VBNOFFSET 
;FROM FILE ID TO INDEX FILE 



BIT MAP 
INDEX FILE 



BIT MAP 



VBN 



READ 



INDEX FILE HEADER 
RO - NUMBER OF BLOCKS IN INDEX FILE 
R1 - STARTING LBN OF INDEX FILE 



ADDL3 R0,R1,8(SP) 

CALLS (SP)+,W A FIL$RDWRTL8N 

BLBC R0,30$ 

MOVL R3,R1 

CLRL -(SP) 

PUSHL # A X10001 

MOVL SP,R0 

BSBW FIL$CHKFILHDR 

MOVW R4,FH1$W_VBN0FFSET(R3) 

IF MAXFILES WAS GREATER THAN A XFFFF 
NON-ZERO. IN THIS CASE, RECORD THE 



;DESIRED LBN TO ARG LIST 

READ INDEX FILE HEADER 

STRIP OFF THE ARGUMENT LIST 

BRANCH IF ERROR 

ADDRESS OF HEADER 

FORM FILE ID ON STACK 

FOR THE INDEX FILE HEADER 

ADDRESS OF FILE ID 

CHECK THE FILE HEADER (SEE IF 

FILE IDS MATCH) 

STORE VBN OFFSET 



ASHL 0-16,R4,R4 



THEN HIGH 16 BITS OF R4 WILL BE 
BIGFILNUM BIT IN THE STRUCLEV WORD 

;SEE IF HIGH 16 BITS = 



ZZ-ENSAA-7.0 

FILEREAD 

06*02 



M 10 

MOUNT - MOUNT THE VOLUME, INN FOR FILE 27-JUL-1984 Fiche 7 .Frame M10 Seguence 1365 
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00 06 A3 
50 



05 
OA 

01 



13 
E2 

3C 
04 



02E2 
02E4 
02E9 
02E9 
02EC 



861 
862 
863 

864 25$: 

865 30$: 



BEQL 
BBSS 

MOVZWL 
RET 



25$ 

#FH2$V BIGFILNUM,FH2$W..STRUCLEV(A3>,25$ ;MUST USE HIGH 8 BITS 

;OF RVN FIELD AS FILE NUMBER EXTENSION 
#SS$ NORMAL, RO .-SUCCESSFUL COMPLETION 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 



N 10 

FINDFILID - FIND FILE ID FOR SPECIFIED F 27-JUL-1984 Fiche 7 frame NlO Sequence 

- FILES11 LEVEL 1 & 2 FILE READING ROUTI 27-JUL-1984 15:19:33 VAX-11 Macro V03-0t 
FINDFILID - FIND FILE ID FOR SPECIFIED F 12-APR-1983 15:57:^2 DMA1 jCSYSO.SYSMAINTJFILEREAD.MAR;! (9) 



1366 
Page 



21 



02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

C2ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

U2ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

C*ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 

02ED 



8l7 

868 

•869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 



.SBTTL FINDFILID - FIND FILE ID FOR SPECIFIED FILE 



+ + 



FUNCTIONAL DESCRIPTION: 

FINDFILID SCANS A SPECIFIED DIRECTORY FOR . FJLE AND 
RETURNS ITS FILE ID IF FOUND. STRUCTURE LEVEL 1 AND 2 DIRECTORIES 
ARE SUPPORTED, VERSION NUMBER MEANS FIND MOST RECENT VERSION, 
-1 VERSION (FIND OLDEST) IS NOT SUPPORTED, VERSION FOUND IS RETURNED IN 
THE NAME BLOCK ADDRESSED BY THE FILE DESCRIPTOR (LEVEL 1 ONLY). 
NOTE THAT NON-CONTIGUOUS DIRECTORIES ARE NOT SUPPORTED. 

CALLING SEQUENCE: 

CALLG ARGLIST,FR$FINDFILID 



INPUT PARAMETERS: 

CHAN(AP) 
FILDSC(AP) 



IXFHDR(AP) 
DIRBUF(AP) 
STATBLK(AP) 

FILID(AP) 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO - SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 



SSSJIORMAL 
SS$„NOSUCHFILE 
SS$ BADF RENAME 
SS$_8ADCHKSUM 
SSS.8ADFILEHDR 



SIDE EFFECTS: 
NONE 



/CHANNEL ON WHICH 
ADDRESS OF 3 LONG 



ADR 
ADR 



SIZE OF 

USE 

ADDRESS 

ADDRESS 

MAY 

AT 



DEVICE IS ASSIGNED 

WORD FILE DESCRIPTOR 
ASCII STRING, A VALUE MEANS 
THE CONTENTS OF THE NAMfiLK BELOW 
OF ASCII STRING 

OF NAME BLOCK - USED ONLY FOR LEVEL 1 
CONTAIN DEFAULTS, BUT MUST BE 
LEAST INITIALIZED TO ZERO 



IT WILL BE WRITTEN. 
OF INDEX FILE HDR AS RETURNED 
OF 512 BYTE BUFFER TO USE FOR 



ADDRESS OF 2 LONG WORD AREA USED FOR A 
SCRATCH STATISTICS BLOCK 
ADR OF 3 WORD AREA USED BOTH AS THE ID 
THE DIRECTORY TO SCAN AND AS THE PLACE 
RETURN THE ID OF THE FILE FOUND 



FROM FILSMOUNT 
DIRECTORY SCAN 



OF 
TO 



SUCCESSFUL COMPLETION 

FILE NOT FOUND 

SYNTAX ERROR IN FILE NAME 

CHECKSUM ERROR ON DIRECTORY FILE HEADER 

DIRECTORY FILE HEADER WAS BAD 



ZZ-ENSAA-7.0 


FINDFIL1D - FIND FILE ID FOR SPECIFIED F 


B 11 

27-JUL-1984 


Ffchc 


7 Frame 811 Sequence 1367 
9:33 VAX-11 Macro V03-01 Page 22 


F1LEREAD 




- FILES11 LEVEL 


1 I 2 FILE READING ROUTI 27-JUL 


-1984 


15:1 


06-02 




FINDFILID - 


• FIND 


FILE ID FOR SPECIFIED F 12-APR 


-1983 


15:57:42 DMA1 :CSYS0.SYSMAJNTJFIl.EREAD.MAR;1 (9> 








02ED 


924 


















02ED 


925 


















02ED 


926 


; EQUATED SYMBOLS, OFFSETS FROM AP 












02ED 


927 














00000004 


02ED 


928 


CHAN 


~ 


4 








00000008 


02ED 


929 


FILDSC 


r 


8 








oooooooc 


02ED 


930 


IXFHDR 


s 


12 








00000010 


02ED 


931 


DIR8UF 


3 


16 








00000014 


02ED 


932 


STATBLK 


r 


20 








00000018 


02ED 


933 


FILID 


r 


24 












02ED 


934 


i 
















02ED 


935 


; OFFSETS FROM 


FP 














02ED 


936 


• 
















02ED 


937 


SOFFSET 


0. NEGATIVES- 














C2ED 


938 


DIR_8FCNT,- 






BUFFER COUNT REMAINING IN LBN CACHE 








02ED 


939 


DIR 8UF 


» 






NEXT BUFFER ADDRESS IN DIR LBN CACHE 








02ED 


940 


ENTRY ADR,- 






FOUND CACHE ENTRY ADR 








02ED 


941 


<ENTR7. 


FIL$C_DIR_SIZE>, 


- 




CACHE ENTRY FOR SEARCH/CREATE 








02ED 


942 


<SCRATCH_SIZE,0>= 






SIZE OF SCRATCH AREA 








02ED 


943 


> 
















FFFC 




DIR^BFCNT; 
















FFF8 




DIR BUF: 
















FFF4 




ENTRY ADR: 
















FFDO 




ENTRY? 
















FFDO 




SCRATCH^SIZE: 
















02ED 


944 


♦ 
















02ED 


945 


$ """ 
















02ED 


946 


















02ED 


947 FIL$FINDFILID:: 














OFFC 


02ED 


948 


.WORD 


A M<R2,R3,R4,R5, 


R6,R7 


,R8,R9,R10,R11> 




5E 30 


C2 


02EF 


949 


SU8L 


#~SCRATCH SIZE, 


SP 


4 


ALLOCATE SCRATCH SPACE 




00 6E 00 


2C 


02F2 


950 


M0VC5 


#O,(SP),#O,0-SCRATCH_ 


m $ui 


MSP) ,ZERO THE SCRATCH STORAGE 




6E 30 




02F6 
















5B 


D4 


02F8 


951 


CLRL 


R11 




i 


ASSUME NO CACHE 




02 6C 


D1 


02FA 


952 


CMPL 


<AP),*2 




4 


'IF ONLY 2 ARGUMENTS 




08 


12 


02FD 


953 


BNEQ 


5$ 










58 04 AC 


DO 


02FF 


954 


MOVL 


4(AP),R11 






•THE FIRST IS THE CACHE ADDRESS 




5C 08 AC 


DO 


0303 


955 


MOVL 


8(AP),AP 






THE SECOND IS THE REAL ARGUMENT LIST 




58 


D5 


0307 


956 
957 


5$J TSTL 


R11 






•CACHE ENABLED? 




66 


13 


0309 


BEQL 


65$ 






•BRANCH IF NOT 








030B 


958 


# 
















0308 


959 


; WE DO HAVE A 


CACHE TO LOOK IN AND MAKE 


ENTRIES IN, SET UP THE 








0308 


960 


; SCRATCH REGION FOR A LOOKUP 














030B 


961 


t 
















0308 


962 


ASSUME 


ENTRY EQ SCRATCH„SIZE 


; SCRATCH CACHE ENTRY MUST BE ON TOP 








0308 


963 


ASSUME 


FILSA DIR FID EQ 




;DIR ID IS AT FRONT OF CACHE ENTRY 




18 BC 06 

6E 

50 08 BC 


28 


0308 
030F 
0310 


964 


M0VC3 


#6,aFllID7AP),(SP) 




;STORC DIRECTORY ID 




70 


965 


MOVO 


aFILDSC(AP),RO 






;GET LOOKUP NAME DESCRIPTOR 




06 50 


01 


0314 


966 
96? 


CMPL 


!8i" 






;MUST BE MORE THAN '\DIR;1 U 




?5 


15 


0317 


BLEQ 






jBRANCH IF NOT A DIRECTORY NAME 




OF 50 


D1 


0319 


968 


CMPL 


?8i" s 






;AT MOST 9 CHAR WITH M .DIR;1" 




20 


14 


031C 


969 


BGTR 






;BRANCH IF NOT A DIRECTORY NAME 




52 51 50 


C1 


031E 


970 


ADDL3 


R0,R1,R2 
**A/;1/,-CR2) 






;POINT OFF END OF NAME STRING 




72 3138 8F 


81 


0322 


971 


CMPW 






;LAST 2 BYTES ,, ;V ? 




15 


12 


0329 


972 


BNEQ 


10$ 






^BRANCH IF NOT A DIRECTORY NAME 




5249442E 8F 


D1 


973 


CMPL 


**A/.DIR/,-<R2> 






■•PRECEDED BY ".DIR" ? 



ZZ-ENSAA-7.0 


FINDFILID - FI 


F1LEREAD 




06-02 






72 




OC 




50 06 




D6 AD 50 




61 50 




D7 AD 



5B 
58 



04 AB 
58 

08 AB 
59 
1E 



DO AD 



FA AD 



10 
68 

06 
58 
1E 



OA 50 

09 

F4 AD 58 

D6 AD 

10 

58 24 

59 58 
DD 



58 F4 AD 
45 
OF 



1E A8 

OA 

1E A8 06 

18 BC 

50 01 



EO AD 10 A8 



EB AD 18 A8 
t'C AD 1C A8 



C 11 
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032F 
12 0330 
C2 0332 
90 0335 

28 0339 
033C 

C1 033E 
0342 

C1 0343 
0347 

11 0348 
034A 
034A 

29 034A 
034E 
034F 

12 034F 
DO 0351 
11 0355 

0357 
0357 
0357 
D1 0357 
14 035A 
DO 035C 
95 0360 

13 0363 
CO 0365 
D1 0368 
1F 036B 

036D 

036D 

036D 

036D 

036D 

036D 

DO 036D 

13 0371 

11 0373 

0375 

0375 

0375 

D5 0375 

13 0378 

28 037A 

037E 

3C 0380 

04 0383 

0384 

0384 

0384 

0384 

7D 0384 

0389 

0389 

DO 0389 

BO 038E 



974 
975 
976 
977 

978 10$: 
979 

980 
981 
982 
983 20$: 



984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 



BNEQ 10$ ;BRANCH IF NOT A DIRECTORY NAME 

SUBL #6,R0 ;JUST KEEP THE NAME PART 

MOVB RO,FIL$T DIR NAM+ENTRY(FP> ;PUT SIZE AND NAME STRING 

M0VC3 R0,(R1),FlL$T_DIRJJAM+UENTRY(FP) ;IN ENTRY TO LOOKUP 

ADDL3 FIL$LJ>IR0FF<R11),R11,R8 /ADDRESS OF DIRECTORY CACHE 

ADDL3 FIL$L_DJRNXT(R11),R11,R9 ;ADDRESS OF LAST+1 BYTE 

BRB 60$ ;LOOP OR MORE TIMES 

ASSUME FILST.DIR NAM EQ FIL$A DIR FID+6 

CMPC3 *6+10:fIL$A_DIR..FID+ENTRY(FP), - ;DOES FID AND NAME MATCH? 

FIL$A_DIR FIDCR8) 

BNEQ 30$ 

MOVL R8,ENTRYJU)R(FP) 

BRB 70$ 



/BRANCH IF DIDN'T MATCH ALL OF 
/RECORD THAT A MATCH WAS FOUND 



IT 



FAILED TO MATCH THE ENTIRE ENTRY, DID WE MATCH THE DIR ID FIELD? 



§0$: 



50$: 
60$: 



CMPL R0,#10 

BGTR 50$ 

MOVL R8, ENTRY ADR(FP) 

TSTB F ILST DlR_NAM+ENTRY(FP) 

BEQL 70$ 

ADDL #FIL$C^DIR SIZE,R8 

CMPL R8,R9 

BLSSU 20$ 



/IF 10 OR LESS CHAR'S LEFT 
;THEN MATCHED THE DIR ID 
;SAVE THIS PARTIAL MATCH 
;IF NOT SEARCHING FOR A DIR NAME 
;THEN THIS ENTRY WILL DO FINE 
/ADDRESS OF NEXT CACHE ENTRY 
/DONE SCANNING DIR CACHE? 
/BRANCH IF NOT, CHECK NEXT ENTRY 



FNTRY ADR(FP) = ADDRESS OF CACHE HIT ENTRY 

= IF NO MATCH FOUND 
IF WE DROP THROUGH TO HERE AND WE GOT A CACHE HIT, THEN IT WAS 
NOT EXACTLY WHAT WE WERE LOOKING FOR. BUT IT DID MATCH THE DIRECTORY. 



65$: 



MOVL ENTRY ADR(FP),R8 
BEQL READJJIR.HEADER 
BRB 80$ 



/WAS THERE A CACHE HIT? 

/BRANCH IF NO 

/YES, FOR DIRECTORY LBN AND SIZE 



FOUND WHAT WE WERE LOOKING FOR - MAY ONLY NEED DIRECTORY LBN AND SIZE 



1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 



fo$: 



72% : 



TSTL 
BEQL 
M0VC3 

MOVZWL 
RET 



FII.$A_DIRJ)FID(R8) /DID WE GET A FILL ID? 
80$ /BRANCH IF NOT 

*6,FIL$A„DIR - 0FID(R8),aFILID(AP) /RETURN THE FILE ID 

S A 0SS$Jy|ORMAL,RO 



/SET SUCCESS STATUS 
/AND RETURN 



CACHE HIT ONLY FOUND THE DIRECTORY LBN AND SIZE, SAVING THE 
READ OF THE DIRECTORY FILE HEADER. 



S0$: 



MOVQ 



MOVL 
MOVW 



f1l$q dir hdr(r8),fil$q dir hdr+entry(fp) /save dirhdr 

/info for making a new entry 
/with the directory fid in it 
fil$lj>ir..bf0ffvr8>,fil$lj)ir..bf0ff+entry(fp) 
fil$w:dirZbfcnt(R8),fil$w:dir:bfcnt+entry<fp) 



ZZ-ENSAA-7.0 

F1LEREAD 

06-02 
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1 



FC 



E4 AD 

57 
AD 
5B 



EO 
EC 
E8 
F8 
57 
03 E2 



01 
56 
AD 
AD 
AD 
AD 
56 
AD 



OOBA 
0192 

009C 



6C 

000005F4'EF 

^5 50 

55 10 AC 

14 BC 01 

56 



I? 



54 OE A5 
01 
5A 
04 

14 A5 
10 
57 

OC A4 
02 
57 
01 

E4 AD 
57 
5A 



07 A5 



54 
08 A4 



56 

EO AD 
E2 AD 



0393 

0393 

0393 

0393 

0393 

0393 

C3 0393 

0397 

3C 0398 

3C 039C 

CI 03A1 

03A5 

CO 03A7 

E9 03AA 

31 03AE 

31 03B1 

03B4 

31 03B4 

03B7 

04 03B7 

03B8 

03B8 

03B8 

03B8 

FA 03B8 

03BA 

E9 03BF 

DO 03C2 

C3 03C6 

03CA 

03CB 

03CB 

03CB 

03CB 

03CB 

03CB 

03CB 

03CB 

19 03CB 

03CD 

03CD 

03CD 

DE 03CD 

83 03D1 

03D5 

13 03D6 

DE 03D8 

9C 03DC 

03E0 

B5 03E1 

12 03E4 

D7 03E6 

C1 03E8 

03EB 

BO 03ED 

90 03F1 

03F5 



;SAVE DIR LBN CACHE INFO TOO 



1025 
1026 
1027 
1028 
1029 

1030 . 

1031 $0$: SUBL3 #1 ,FIL$L_DIR..LBN+ENTRY<FP),R6 ;R6=STARTING LBN - 1 



AT THIS POINT ENTRY(FP) CONTAINS DIRECTORY LBN CACHE INFORMATION 
IF ONE HAD ALREADY EXISTED OR IF WE JUST CREATED IT. 
SET UP THE WORKING LOCATIONS FOR THE DIRECTORY LBN CACHE 



1032 
1033 
1034 

1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 

1048 
1049 
1050 

1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 



MOVZWL 
MOVZWL 
ADDL3 

ADDL 
BLBC 
BRW 

100$: BRW 

BADDIR2: 

BRW 

BADRET1: 

RET 



F1L$W DIR BKCNT+ENTRY(FP),R7 ;R7=SIZE OF DIRECTORY IN BLOCKS 
FIL$W"DIR"BFCNT+ENTRY(FP) # DIR.BFCNT(FP) .-BUFFER COUNT IN LBN CACHE 
FIL$L"DIR"BF0FF+ENTRY<FP),R11,DIR..BUF<FP) ;STARTING ADR IN CACHE 



R6,R7 



LAST LBN OF FILE INCLUSIVE 



FIL$B DIR LVL+ENTRY<FP> ,100$ ;BRANCH IF STRUCTURE LEVEL 

FIND,CFVFC2J 

FINDJ.EVEL1J 



BADDIR 



CACHE WAS NOT ENABLED OR THERE WAS NOT A HIT FOR THIS DIRECTORY 



READ DIR HEADER: 

CALLG <AP),FIL$RDCHKFILHDR 

BLBC R0,BADRET1 
MOVL DIRBUF(AP),R5 
SUBL3 #1,aSTATBLK(AP),R6 



;READ AND CHECK DIRECTORY FILE HEADER 

; BRANCH IF ERROR 

;ADDRESS OF BUFFER TO READ DIRECTORY BLOCKS 

;GET START LBN - 1 



IF THIS RESULT IS NEGATIVE, THEN THE DIRECTORY WAS NOT CONTIGUOUS. 

THIS CODE SUPPORTS ONLY CONTIGUOUS DIRECTORIES, ANOTHER BUFFER WOULD 

Bb REQUIRED TO HOLD THE DIRECTORY HEADER IN ORDER TO SUPPORT NON-CONTIGUOS 

DIRECTORIES. SUCH DIRECTORIES ARE ONLY CREATED BY FILES-11 WHEN 

A DIRECTORY MUST BE EXTENDED AND THERE IS NOT ENOUGH CONTIGUOUS SPACE 

ANYWHERE ON THE VOLUME TO MAKE A NEW DIRECTORY OF THE CORRECT SIZE, 



BLSS BADDIR2 



; BRANCH IF NOT CONTIGUOUS 



SEE IF THIS LOOKS LIKE A DIRECTORY FILE 



1065 
1066 
1067 10$: 

1068 
1069 
1070 
1071 20$: 

1072 
1073 
1074 ; 



MOVAL 
SUBB3 

BEQL 

MOVAL 

ROTL 

TS'iW 

BNEQ 
DECL 
ADDL3 

MOVW 
MOVB 



FH1$W RECATTR(R5),R4 ;ADDRESS OF LEVEL 
#1,FHT$W_STRUCLbV+1(R5),R10 ;0 IF LEVEL 1, 



1 RECORD ATTRIBUTES 
1 IF LEVEL 2 



10$ 

FH2$W RECATTR(R5),R4 

#16,F*T$LJFBLK<R4),R7 



FAT$W,FFBYTE(R4) 

20$ 

R7 ;CORRECT TO 

*1,R6,FIL$L DIR_LBN+ENTRY(FP) ;SAVE 



;BRANCH IF LEVEL 1 

;ADDRCSS OF LEVEL 2 RECORD ATTRIBUTES 

;VBN OF DIRECTORY EOF 

;IF ZERO, EFBLK IS LAST+1 VBN 



GET LAST VBN 
START LBN, 



R7,FIL$W DIR BKCNT + ENTRYCFP) .'DIRECTORY SIZE, 
R10,FIL$SJ)IRJ.VL+ENTRY(FP) ;AND STRUCTURE LEVEL 



ZZ-ENSAA-7.0 


FINDFILID - 


FIND 


FILE ID FOR SPECIFIED 


F 


E 11 
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FILEREAD 








- FILES11 I 


-EVEL 1 


& 2 


FILE READ 


06-02 








FINDFILID ■ 


• FIND 


FILE 


ID FOR SPECIFIED F 12-APR-1983 15:57:42 DMA1 JCSYSO.SYSMAINTJFILEREAD.MAR/I (9) 












03F5 


1075 ; 


SEE 


IF WE CAN 


SET UP A CACHE OF THE DIRECTORY BLOCKS FOR THIS DIRECTORY 












03F5 


1076 ; 














5B 


D5 


03F5 


1077 




TSTL 


R11 ;ANY CACHEING ENABLED? 








51 


13 


03F7 


1078 




BEQL 


80$ ;BRANCH IF NOT 




14 AB 


10 


AB 
52 


C3 


03F9 
03FE 
03FF 


1079 
1080 




SUBL3 


FIL$L_LBNNXT(R11),FIL$L_LBNMAX(R11),R2 ;N0. OF BYTES 

.-AVAILABLE TO ALLOCATE 




52 


F7 


8F 
52 
44 


78 


03FF 
0403 
0404 


1081 




ASHL 


*-9,R2,R2 ;N0. OF PAGES AVAILABLE 








13 


1082 




BEQL 


80$ ; BRANCH IF NO SPACE AT ALL 






57 


52 


D1 


0406 


1083 




CMPL 


R2,R7 ;EN0UGH ROOM FOR WHOLE DIR 








03 


15 


0409 


1084 




BLEQ 


40$ • /BRANCH IF NOT, USE WHAT IS LEFT 






52 


57 


DO 


040B 


1085 




MOVL 


R7,R2 /YES, USE THE RIGHT SIZE 




53 


10 


AB 


DO 


040E 


1086 40$: 


MOVL 


FIL$L_LBNNXT(R11),R3 /OFFSET TO DIR LBN CACHE 












0412 


1087 ; 


















0412 


1088 ; 


READ 


THE DISK 


BLOCKS INTO THE LBN CACHE. 












0412 


1089 ; 










7E 


52 


09 


78 


0412 


1090 




ASHL 


#9,R2,-(SP) /BYTE COUNT TO TRANSFER 






7E 


21 


3C 


0416 


1091 




MOVZWL 


#10$ READLBLK,-(SP) ;READ LOGICAL BLOCK FUNCTION 






6B43 


9F 


0419 


1092 




PUSHAB 


(R11TCR33 /BUFFER ADDRESS 






E4 


AD 


DD 


041C 


1093 




PUSHL 


FIL$L DIR..L8N+ENTRY(FP) /STARTING LBN 






04 


AC 


DD 


041F 


1094 




PUSHL 


CHAN(AP) /CHANNEL 








05 


FB 


0422 


1095 




CALLS 


#5,FIL$RDWRTLBN /FILL THE DIR LBN CACHE 




00000000 


•EF 




0424 














1E 


50 


E9 


0429 
042C 


1096 
1097 t 




BLBC 


RO,80$ /BRANCH IF ERROR 












042C 


1098 ( 


NOTE 


THAT DIRECTORY BLOCKS ARE IN MEMORY 












042C 


1099 t 










FC 


AD 


52 


DO 


042C 


1100 




MOVL 


R2,DIR BFCNT(FP) 
(R11)CR3J,DIR BUF(FP) 


'COUNT OF BLOCKS READ IN 




F8 AD 6843 


9E 


0430 


1101 




MOVAB 


•ADDRESS OF FIRST BLOCK READ IN 






D6 


AD 


95 


0435 


1102 




TSTB 


FIL$T.DIR,NAM+ENTRY(FP) « 


■ARE WE LOOKING UP ANOTHER DIRECTORY? 








10 


12 


0438 
043A 
043A 


1103 
1104 
1105 




BNEQ 


80$ 


•BRANCH IF YES, DON'T ALLOCATE 
•A PERMANENT CACHE ENTRY FOR 
■AN INTERMEDIATE LEVEL DIRECTORY 




EC 


AD 


52 


BO 


043A 


1106 




MOVW 


R2,FIL$W_DIR..BFCNT+ENTRY(FP) /SET UP FOR PERMANENT ENTRY 




E8 


AD 


53 


DO 


043E 


1107 




MOVL 


R3,FIL$L DIR BFOFF+ENTRYCFP) /SAVE THE SIZE AND OFFSET OF CACHE 




51 


52 


09 


78 


0442 


1108 




ASHL 


#9,R2,Rr " /NO. OF BYTES IN CACHE 




10 


AB 


51 


CO 


0446 
044A 


1109 
1110 , 


• 


ADDL 


R1,FIL$L LBNNXT(R11) /ALLOCATE THE CACHE 












044A 


1111 ( 


• IF IT WAS POSSIBLE TO READ THE DIRECTORY INTO THE LBN CACHE AREA, 












044A 


1112 


• THE 


SCAN WILL 


FIND THESE BLOCKS AS THEY ARE NEEDED. 












044A 


1113 


• 
















04 4A 


1114 i 


30$: 
















044A 


1115 


















044A 


1116 


• R6 = 


• STARTING 


LBN - 1 FOR THE DIRECTORY 












044A 


1117 


; R7 = 


: COUNT OF 


BLOCKS OF DIRECTORY TO BE SCANNED 












044A 


1118 


; R10C0:7J = 


IF STRUCTURE LEVEL 1 












044A 


1119 




= 1 


IF STRUCTURE LEVEL 2 












044A 


1120 












57 


56 


CO 


044A 


1121 




ADDL 


R6,R7 /LAST LBN 0. c FILE (INCLUSIVE) 
R10.FIND LEVELS /BRANCH IF STRUCTURE LEVEL 2 
FIND.LEVEL1 






OF 


5A 


E8 


044D 


1122 




BL8S 






00E8 


31 


0450 


1123 




BRW 












0453 


1124 


















0453 


1125 


















0453 


1126 


; ERROR RETURNS 


• 












0453 


1127 










50 


0828 


8F 


3C 


0453 


1128 I 


3ADDIR: MOVZWL 


#SS$_BADIRECTORY,R0 



ZZ-ENSAA-7,0 
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50 0818 8F 



04 0458 1129 BADRET; RET 

0459 1130 BADFILNAM: 

3C 0459 1131 M0V2WL 

04 045E 1132 RET 



#SS$_8ADFILENAME,R0 



;RETURN ERROR CODE 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 
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EF 34 A5 OD 



0802 8F 
64 
E8 



64 



58 08 BC 

5A 

53 58 

53 2E 

07 

53 70 

54 01 A1 

64 53 3B 

06 

64 53 2E 

34 



58 



50 
7E 



01 A1 

70 

03 

00000000* EF 

B8 50 

5A 8E 



18 



54 05 A5 

00 69 58 

06 A5 54 



045F 
045F 
045F 
045F 
045F 

E1 045F 
0464 
0464 

B1 0464 
0468 

12 0469 
046B 
046B 
046B 
C46B 
046B 
046B 
046B 

7D 046B 
D4 046F 
70 0471 
3A 0474 

13 0478 
9E 047A 
9E 047D 
3A 0481 

12 0485 
3A 0487 

13 048B 
048D 
048D 
04 8D 
048D 

C2 048D 

0490 

DF 0490 

0492 

9F 0492 

9F 0495 

FB 0497 

0499 

E9 049E 

DO 04A1 

04A4 

04A4 

04A4 

04A4 

04A4 

04A4 

04A4 

11 04A4 

04A6 

04A6 

04A6 

9A 04A6 

2D 04AA 

04AE 



1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

115? 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

.163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 



.SBTTL FILSFINDFILID - STRUCTURE LEVEL 2 



STRUCTURE LEVEL 2 



FIND.LEVEL2: 
BBC 

ASSUME 
CMPW 

BNEQ 



#FH2$V_DiRECT0RY,FH2$L_FIL6CHAR(R5),8ADDIR .-DIRECTORY BIT MUST BE SF 

FAT$B RATTRIB EQ FAT$B RTYPE+1 

#<FATJM NOSPAN 9 8 + FAT$C VARIABLE^- .-VARIABLE LENGTH 

FAT$B RTYPE(R4) .-RECORDS NOT CROSSING BLOCK BOUNDARIES 

BADDlR ;BRANCH IF BAD RECORD ATTRIBUTES 



***** NOTE THAT EACH BLOCK MUST END IN A RECORD SIZE OF -1 

***** A RECORD IS NOT ALLOWED TO EXACTLY FILL THE BLOCK 

***** PDP-11 FILE CONTROL SERVICES WILL READ THIS FILE CORRECTLY. BUT 

***** WILL NOT WRITE IT PROPERLY. LIKEWISE FOR RMS-11 AND RMS-32 



FIND.LEVEL2 1; 
M0V3 
CLRL 
MOVQ 
LOCC 
BEQL 
MOVAB 
MOVAB 

40$: LOCC 
BNEO 
LOCC 
BEQL 



BFILDSC(AP).R8 

R10 

R8.R3 

# A A/./,R3.(R4) 

40$ 

-<R0),R3 

1(R1),R4 

# A A/;/.R3.(R4) 

60$ 

#*A/./.R3.(R4) 

120$ 



;R8 = SIZE. R9 * ADDRESS OF FILE NAME STRING 

;ASSUME DEFAULT VERSION 

;COPY FILE NAME DESCRIPTOR 

;FIND FILE TYPE DELIMITER IF PRESENT 

.♦BRANCH IF NOT PRESENT 

.-SIZE OF REMAINING STRING 

.♦ADDRESS OF STRING BEYOND 

;SEE IF VERSION DELIMITER 

;BRANCH IF IT IS 

;TRY ALTERNATE VERSION DELIMITER 

;BRANCH IF NO VERSION STRING PRESENT 



DELIMITER 
PRESENT 



RO 
R1 

60$: 



BYTE COUNT OF VERSION STRING PLUS DELIMITER 
ADDRESS OF VERSION DELIMITER 



SUBL R0,R8 

PUSHAL -(SP) 

PUSHAB KR1) 

PUSHAB -(RO) 

CALLS #3,LIB$CVTJ)TB 

BLBC RO.BADFILNAM 

MOVL (SPJ+.R10 



REDUCE FILE NAME STRING SIZE 

ELIMINATING VERSION STRING AND DELIMITER 

RESERVE LONG WORD FOR VERSION NUMBER 

AND PUSH ITS ADDRESS 

ADDRESS OF VERSION STRING 

SIZE OF VERSION STRING 

CONVERT DECIMAL VERSION STRING TO BINARY 

;8RANCH IF SYNTAX ERROR IN VERSION STRING 
;FETCH EXPLICIT VERSION NUMBER 



R6 
R7 
R8 
R9 
R10 



R5 = 



ADDRESS OF LAST LBN READ FROM DIRECTORY FILE (FIRST - 1) 

ADDRESS OF LAST LBN (INCLUSIVE) TO BE READ FROM DIRECTORY FILE 

SIZE OF NAME STRING TO SCAN FOR 

ADDRESS OF NAME STRING TO SCAN FOR 

FILE VERSION NUMBER IF EXPLICIT, OR IF DEFAULT TO LATEST VERSION 



BRB 120$ 
ADDRESS OF NEXT RECORD 



;BEGIN LOOP AT BOTTOM 



^00$: 



M0VZ8L DIR$B NAMECQUNT(R5),R4 ;GET SIZE OF 
CMPC5 R8,(R9).*0,R4,DIR$T_NAME(R5> ;SEE IF 



"NAME.TYP" STRING 
STRINGS MATCH 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 
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ID 

10 

50 65 

55 02 A540 

65 

E5 

06 56 57 

50 0910 8F 

O0F8 
ED 



53 
55 



54 
54 01 
06 A544 
50 65 
02 A540 



63 



53 
55 



5A 
11 

5A 
OC 
D8 
08 
53 
F1 
C6 



56 02 A3 

57 57 

02 A3 06 

18 BC 



5B 

2C 

D6 AD 

07 

F4 AD 

22 

08 

EE AD 56 

F2 AD 57 

58 08 AB 

50 58 24 

OC AB 50 

OA 

08 AB 50 



13 
19 
3C 
9E 
B5 
14 
F3 
K 
04 
30 
11 



D6 
CA 
9E 
3C 
9E 

D5 
13 

B1 
13 
1A 
CO 
D1 
1F 
11 



7D 
3C 
28 



D5 
13 
95 
12 
D5 
12 
11 
DO 
BO 
DO 
C1 
D1 
14 
DO 



04B1 

04B3 

04B5 

04B8 

04BD 

04BF 

04C1 

04C5 

04CA 

04CB 

04CE 

04D0 

04D0 

04D0 

04D0 

04D2 

04D5 

04DA 

04DD 

04E2 

04E2 

04E4 

04E6 

04E6 

04E9 

04EB 

04ED 

04F0 

04F3 

04F5 

04F7 

04F7 

04Ff 

04F7 

04F7 

04FB 

04FE 

0502 

0504 

0504 

0504 

0504 

0504 

0504 

0506 

0508 

050B 

050D 

0510 

0512 

0514 

0518 

051C 

0520 

0524 

0528 

052A 



1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 



BEQL 200$ 

BLSS 140$ 

MOVZWL DIR$W SIZE(R5),R0 

MOVAB 2<R5)rR0],R5 

110$: TSTW DIR$W„SIZE(R5) 

B6TR 100$ 

120$: A08LEQ R7,R6,160$ 

140$: MOVZWL #SS$JJOSUCHFILE,RO 
150$: RET 

160$: BSBW READ.DIR.LBN 

BRB 110$ 

; FOUND A MATCH OF FILE NAME AND TYPE 

« 

$00$: INCL R4 

BICL #1,R4 

MOVAB DIRSTJJAME <R5) CR4 J ,R3 

MOVZWL DIR$W SIZE(R5),R0 

MOVAB 2(R5)TR0],R5 

TSTL R10 

BEQL 240$ 

230$: CMPW R10,DIR$W_VERSION(R3> 

BEQL 240$ 

BGTRU 140$ 

ADDL #DIR$C VERSION, R3 

CMPL R3,R5 

BLSSU 230$ 

BRB 110$ 



FOUND THE FILE ID, RETURN IT TO CALLER 



; BRANCH If THEY DO 

;BRANCH IF BEYOND WHERE NAME WOULD GO 

;USING THE SIZE OF THIS RECORD 

;FORM ADDRESS OF NEXT RECORD 

;END OF BLOCK? (MARKED WITH -1) 

;BRANCH IF NOT 

; CANNOT FIND FILE 

;READ THE NEXT DIRECTORY LBN 



ROUND UP NAME COUNT 

TO EVEN NUMBER OF BYTES 

ADDRESS OF FIRST VERSION ENTRY 

SI/E OF THIS RECORD 

FORM ADDRESS OF BEGINNING OF NEX RECORD 

WHICH IS ALSO THE END OF THE VERSIONS 

LATEST VERSION DESIRED? 

BRANCH IF YES, R3 IS ADDRESS OF 

DESIRED VERSION AND FILE ID 

IS THIS THE RIGHT VERSION? 

BRANCH IF YES 

BRANCH IF PAST WHERE IT WOULD BE 

NEXT VERSION ENTRY 

END OF RECORD? 

BRANCH IF NOT, CHECK NEXT VERSION 

VERSION NOT IN THIS VERSION CHAIN 

SEE IF IT IS IN THE NEXT RECORD 



240$: MOVQ DIR$W FID(R3),R6 ;GET THE FILE ID 
MOVZWL R7,R7" 
M0VC3 *6,DIR$WJID(R3),SFILID(AP) ;AND RETURN IT TO THE CALLER 

« 

; SEE IF WE SHOULD MAKE A CACHE ENTRY FOR THIS LOOKUP 
; R6,R7 = FID 



EXIT.FILID FND: 
TSTL 
BEQL 
TSTB 
BNEQ 
TSTL 
BNEQ 
BRB 

20$: MOVL 
MOVW 

30$: MOVL 
ADDL3 
CMPL 
BGTR 
MOVL 



R11 

100$ 

FIL$TJ)IR_NAM*ENTRY(FP) 

20$ 

ENTRY ADR(FP) 

100$ " 

30$ 

r6,fil$a dir ofid+entry(fp) .-store 
r7,fil$a:dirIofid*4+entry(fp) 



;IS THE CACHE ENABLED? 
;BRANCH IF NOT, JUST RETURN THE FID 
;WAS LOOKUP FOR A DIRECTORY? 
;BRANCH IF YES, MAKE A CACHE ENTRY 
; CACHE HIT FOR THIS DIR HDR? 
;BRANCH IF YES 

;MAKE THE CACHE ENTRY FOR THIS DIR HDR 
THE FID FOUND 



FIL$L DlRNXTTR11),R8 

#FIL$CDIR SIZE,R8,R° 
R0,FIL$L,DTRMAX(R11) 

90$ 

R0,FIL$LJ)IRNXT(R11) 



GET OFFSET TO FREE SPACE 

FORM OFFSET TO END OF NEW ENTRY 

ENOUGH SPACE FOR NEW ENTRY? 

BRANCH IF NOT 

YES, ALLOCATE THE NEW ENTRY 
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00 AD 24 28 052E 1245 M0VC3 #FIL$CJ>IR SIZE, ENTRY(FP), (R11)CR8:i ;AND WRITE IT 
6B48 0532 

0534 1246 90$: 

50 01 3C 0534 1247 100$: MOVZWL #SS$ NORMAL, RO .-INDICATE SUCCESSFUL COMPLETION 

04 0537 1248 RET 

0538 1249 ; 

0538 1250 ; BAD DIRECTORY FILE 

0538 1251 ; 

0538 1252 BADDIR1: 

FF18 31 0538 1253 BRW BADDIR 



ZZ-ENSAA-7.0 


FILSFINDFILID - 


STRUCTURE 


LEVEL 1 






J 11 

27-JUL-1984 Fiche 


» 7 Frame J11 Seguence 1375 
9:33 VAX-11 Macro V03-01 Page 30^ 


F1LEREAD 








- FILES11 


LEVEL 1 


t 2 


FILE READING ROUTI 27-JUL-1984 15:1 


06-02 








FILSFINDFILID - STRUCTURE LEVEL 


1 12-APR-1983 15:57:42 DMA1 :CSYS0,SYSMAINTDFILEREAD.MAR;(1i; 












053B 


1255 




.SBTTL 


FILSFINDFILID - STRUCTURE 


' LEVEL 1 












053B 


1256 ; 




















053B 


1257 ; 


STRUCTURE LEVEL 1 FIND 














053B 


1258 ; 


R4 = 


ADDRESS 


OF RECORD ATTRIBUTES 














053B 


1259 ; 






• 














053B 


1260 FIND LEVEL1: 










64 


01 


91 


053B 


1261 




CMP8 


#FAT$C FIXED, FAT$8 RTYPE(R4) ;FIXED LENGTH RECORD? 








F8 


12 


053E 


1262 




BNEQ 


BADDIRT " ; 


BRANCH IF NOT 




02 


A4 


10 


B1 


0540 


1263 




CMPW 


n6,FAT$W_RSIZE<R4) 


16 BYTES EACH 








F2 


12 


0544 
0546 


1264 
1265 ; 




BNEQ 


BADDIR1 


BRANCH IF NOT 












0546 


1266 ; 


GET 


FILE NAME 


BLOCK FOR STRUCTURE LEVEL 1 DIRECTORY SCAN 












0546 


1267 . 




















0546 


1268 FIND_LEVEL1_1: 








53 


08 


AC 


DO 


0546 


1269 




MOVL 


FILDSC(AP),R3 


ADDRESS OF 3 LONG WORD FILE DESCRIPTOR 








63 


D5 


054A 


1270 




TSTL 


(R3) 


SIZE OF ASCII STRING 








0D 


13 


054C 


1271 




BEQL 


25$ 


BRANCH IF NAME BLOCK ALL SET UP 






08 


A3 


OD 


054E 


1272 




PUSHL 


8(R3) 


ADDRESS OF NAME BLOCK 








63 


OF 


0551 


1273 




PUSHAL 


(R3) 


ADDRESS OF STRING DESCRIPTOR 




0000 


CF 


02 


FB 


0553 


1274 




CALLS 


#2,W A FIL$CVTFILNAM 


•CONVERT ASCII STRING TO NAME BLOCK (RAD50) 






5D 


50 


E9 


0558 


1275 




BLBC 


R0,90$ 


'BRANCH IF ERROR 




53 


08 


A3 


DO 


055B 


1276 ; 


>5$: 


MOVL 


8(R3),R3 


'ADDRESS OF NAME BLOCK 




6E 


08 


A3 


3C 


055F 
0563 


1277 
1278 




MOVZWL 


8(R3),(SP) 


•SAVE FILE VERSION OVER FILE SIZE 
•THAT WAS LEFT FROM THE STATBLK CALL 




50 


18 AC 


DO 


0563 


1279 




MOVL 


FILID(AP),RO ! 


•ADDRESS OF RETURN FILE ID 








80 


D4 


0567 


1280 




CLRL 


(R0) + 


'INIT TO ZERO 








60 


B4 


0569 


1281 




CLRU 


(RO) 


jALL 3 WORDS. 








3D 


11 


0568 
056D 


1282 
1283 




BRB 


80$ 


•START DIRECTORY SCAN AT BOTTOM OF LOOP 












056D 


1284 


• THE 


FOLLOWING 


REGISTER CONVENTION ARE I 


JSED IN THE DIRECTORY SCAN 












056D 


1285 




R2 s CURRENT DIRECTORY ENTRY BEING SCANNED 












056D 


1286 




R3 = NAMEBLOCK TO COMPARE AGAINST 












056D 


1287 




R4 = ADDRESS OF LAST BYTE OF DIRECTORY BLOCK 












056D 


1288 




R5 - ADDRESS OF DIRECTORY BUFFER 














056D 


1289 




R6 = LOGICAL BLOCK NUMBER OF CURRENT DIRECTORY BLOCK 












056D 


1290 




R7 = LAST LOGICAL BLOCK NUMBER (INCLUSIVE) TO SCAN 












056D 


1291 




O(SP) = 


VERSION OF FILE FROM NAME BLOCK 












056D 


1292 


* 












0056 


30 


056D 


1293 


*0$: 


BSBW 


READ DIR LBN 


?READ THE NEXT DIRECTORY LBN 




54 


01FF 


C5 


DE 


0570 


1294 




MOVAL 


511(R5),R4 


;ADDRESS OF LAST BYTE OF BUFFER 






52 


55 


DO 


0575 


1295 




MOVL 


R5,R2 
<R$) 


;SET DIRECTORY RECORD POINTER 








62 


B5 


0578 


1296 


^0$: 


TSTW 


;IS THIS DIRECTORY RECORD EMPTY 








28 


13 


057A 


1297 




BEQL 


70$ 


;BRANCH IF YES 




51 


06 A2 


DE 


057C 


1298 




MOVAL 


6(R2),R1 


;STEP OVER FILE ID TO NAME PORTION 






50 


53 


DO 


0580 


1299 




MOVL 


R3.R0 


;MAKE A SCRATCH COPY OF NAME BLOCK ADR 






81 


80 


D1 


0583 


1300 




CMPL 


(R0)+,(R1)+ 


; CHECK 1ST 2 WORDS OF RAD50 FILE NAME 








1C 


12 


0586 


1301 




BNEQ 


70$ 


; BRANCH IF NO MATCH 






81 


80 


D1 


0588 
058B 


1302 
1303 




CMPL 


(R0)+,(R1)+ 


;LAST WORD OF RAD50 FILE NAME 
;AND THE 1 WORD RAD50 FILE TYPE 








17 


12 


058B 
058D 


1304 
1305 


• 


BNEQ 


70$ 


;BRANCH IF NO MATCH 












058D 


1306 


; NOW 


CHECK THE 


VERSION, IF SPECIFIED VERSION WAS WE'RE LOOKING FOR 












058D 


1307 


; THE 


LARGEST VERSION WHICH OTHERWISE MATCHES, KEEP THE CURRENT LARGEST 












058D 


1308 


; IN 


THE INPUT 


NAME BLOCK, THUS RETURNING THE VERSION NUMBER FOUND. 












058D 


1309 


• 














6E 


B5 


058D 


1310 




TSTW 


(SP) 


; SEARCHING FOR HIGHEST VERSION? 








07 


13 


058F 


1311 




BEQL 


50$ 


; BRANCH IF YES 
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61 



61 



60 

18 BC 

52 10 



60 
OE 
21 
60 
07 
61 
62 
54 



BF 56 57 



B1 
12 
11 
B1 
1E 
BO 
00 
F1 
FFCE 
F3 



18 BC D5 



OA 
50 0910 8F 



18 BC 62 

56 18 BC 

57 

FF3E 



12 
3C 
04 



DO 
DO 
D4 
31 



0591 

0594 

0596 

0598 

059B 

059D 

05A0 

05A4 

05A8 

05AA 

05AE 

05AE 

05AE 

05AE 

C5AE 

05B1 

05B1 

05B3 

05B8 

05B9 

05B9 

0589 

0589 

05BD 

05C1 

05C3 



1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 

1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 



CMPW (R0),(R1) 

BNEQ 70$ 

BR8 100$ 

50$: CMPW (R0),(R1) 

B6EQU 70$ 

MOVW (R1),(R0) 

MOVL (R2),aFILID(AP) 

70$: ACBL R4,016,R2,4O$ 

80$: A08LEQ R7,R6,30$ 



NO, JUST COMPARE FOR EXACT MATCH 

BRANCH IF NO MATCH 

FILE FOUND, EXIT LOOP 

HIGHER THAN PREVIOUS HIGHEST VERSION? 

BRANCH IF NOT 

RECORD HIGHEST VERSION FOUND 

AND RECORD ITS FILE ID 

NEXT DIRECTORY RECORD If ANY 

NEXT DIRECTORY BLOCK IF ANY 



DIRECTORY COMPLETELY SCANNED, IF LOOKING FOR HIGHEST VERSION, THEN 
POSSIBLY A FILE WAS FOUND, OTHERWISE NO MATCH, 



TSTL 9FILID(AP) 

BNEQ 120$ 

MOVZWL #SS$„NOSUCHFILE,R0 
90$: RET 

EXACT MATCH, FILE FOUND 

100$: MOVL (R2),aFILID(AP) 

120$: MOVL 3F ILID(AP) ,R6 

CLRL R7 

BRW EXIT.FJLJD.FND 



If ANY FILE ID WAS STORED 
THEN A FILE WAS FOUND 
BRANCH IF FILE WAS FOUND 
NO SUCH FILE 



RETURN THE FILE ID 
FETCH FILE ID 
INTO R6,R7 



ZZ-ENSAA-7.0 
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55 



FC AD 
OE 
FC AD 
F8 AD 
0200 C5 
F8 AD 



D5 
13 
D7 
DO 
DE 

05 



55 10 AC DO 



7E 



01 
7E 



OOOO'CF 



04 
E5 



09 
21 
65 
56 
AC 
05 
50 



9C 
3C 
DF 
DD 
DD 
FB 
E8 
04 



05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C6 

05C9 

05CB 

05CE 

05D2 

05D6 

05D8 

05D9 

05D9 

05D9 

05D9 

05DD 

05DD 

05E1 

05E4 

05E6 

05E8 

05EB 

05FO 

05F3 



1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

'i368 

1369 

1370 

1371 

1372 
1373 
1374 
1375 
1376 
1377 



1378 
1379 



.S8TTL READ_DJR_LBN - READ NEXT DIRECTORY LBN 

FUNCTIONAL DESCRIPTION: 

READ THE NEXT DIRECTORY LBN fROM THE DISK OR POINT AT 
THE CACHED COPY IF ONE IS PRESENT 

CALLING SEQUENCE: 

BS8W READ^DIR.LBN 

INPUT: 

R6 = DESIRED LBN 

DIRBUF(AP) = BUFFER ADDRESS TO READ IT INTO 

CHAN(AP) = CHANNEL FOR FILSRDWRTLBN 

DIR BFCNT(FP) = COUNT OF BUFFERS REMAINING IN DIR LBN CACHE 

DIR~8U C (FP> = ADDRESS OF NEXT BUFFER IN DIR LBN CACHE 



OUTPUTS: 



R5 = ADDRESS OF DESIRED DIRECTORY LBN 

RSB IF SUCCESSFUL 

RET WITH STATUS IN RO IF ERROR 

RO, R1 DESTROYED, OTHERS PRESERVED 



READJ)IR L8N: 
TSTL 
BEQL 
DECL 
MOVL 
MOVAL 



DIR.BFCNT(FP) 

20$ 

DIR BFCNT(FP) 

DIR BUF <FP), R5 

512TR5),DIR BUF(FP) 



ANYTHING LEFT IN DIR LB* CACHE? 

BRANCH IF NOT 

COUNT ANOTHER BUFFER USED 

LOAD ADDRESS OF BUFFER 

AND POINT TO NEXT BUFFER IF 



ANY 



10$: 



RSB 



DIR LBN CACHE RAN OUT OF BLOCKS OR NEVER HAD ANY AT ALL 



$0$; 



MOVL 
READLBN 



DIRBUF(AP),R5 
CHAN(AP),R6,(R5) 



BL8S 
RET 



ROTL *9,*1,~(SP) 

POVZWL *IO$_READLBLK,-(SP> 

PUSHAL (R5) 

PUSHL R6 

PUSHL CHAN(AP) 

CALLS 05,tTFIL$RDWRTLBN 
R0,10$ ; BRANCH 

;RETURN 



;ADDRESS OF BUFFER TO READ INTO 
;READ THE DESIRED LBN 



IF READ SUCCESSFULLY 
ERROR STATUS 



ZZ-ENSAA-7,0 

FILEREAD 

06-02 
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05F4 

05F4 

05FA 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05FA 

05FA 

05F4 

05F4 

05FA 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05FA 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05FA 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05F4 

05FA 

05F4 

05F4 

05F4 

05F4 



1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

'.430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 



.S8TTL RDCHKFILHDR - READ AND CHECK FILE HEADER 



++ 



FUNCTIONAL DESCRIPTION: 

RDCHKFILHDR READS AND VALIDATES A FILE HEADER GIVEN ITS FILE ID 
AND THE INDEX FILE HEADER AS RETURNED BY FILSMOUNT. 

CALLING SEQUENCE: 

CALLG ARGLIST,FIL$RDCHKFILHDR 



INPUT PARAMETERS: 

CHAN(AP) 

UNUSED 

IXFHDR(AP) 

FILHDR(AP) 

STATBLK(AP) 

FJLJD(AP) 

RTRVPTRLEN(AP) 



RTRVPTRBUF(AP) 



CHANNEL ON WHICH DEVICE IS ASSIGNED 

UNUSED PARAMETER 

ADR OF INDEX FILE HEADER AS RETURNED BY FILSMOUNT 

ADDRESS OF 512 BYTE BUFFER FOR FILE HEADER 

ADR OF 2 LONG WORD AREA TO RETURN STATISTICS BLOCK 

ADDRESS OF 3 WORD FILE ID OF DESIRED FILE HEADER 

ADDRESS TO RETURN THE NUMBER OF 

BYTES OF RETRIEVAL POINTERS STORED 

***** OPTIONAL PARAMETER ***** 

ADDRESS OF RETRIEVAL POINTER 

BUFFER DESCRIPTOR. THIS PARAMETER 

IS PRESENT If AND ONLY IF 

RTRVPTRLEN IS PRESENT. 

THE RETRIEVAL POINTERS ARE RETURNED IN 

THE FORM 32 BIT BLOCK COUNT, 32 BIT LBN 

A ZERO BUFFER DESCRIPTOR ADDRESS OR A 

ZERO BUFFER ADDRESS MEANS DON'T 

RETURN RETRIEVAL POINTER INFO 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SSS.NORMAL 
SIDE EFFECTS: 

NONE 

EQUATED SYMBOLS 
OFFSETS FROM AP 



SUCCESSFUL COMPLETION 



ZZ-ENSAA-7.0 


RDCHKFILHDR - READ AND CHECK FILE HEADER 


N 11 
27-JUL-1984 


Fiche 7 Fram N11 Sequence 1379 


FILEREAD 




- FILES11 


.EVEL 1 & 2 I 


■ILE READIMG ROUTI 27-JUL 


-1984 15 


:19:33 VAX-11 Macro V03-01 Page 5<* 
;57;42 DMA1 : CSYS0.SVSMAINT3FILEREAD.MAR; <13) 


06-02 




RDCHKFILHDR - READ AND 


CHECK FILE HEADER 12-APR 


-1983 15 




00000000 


05F4 


1438 


ARGCNT 


= 









00000004 


05F4 


1439 


CHAN 


— 


4 






OOOOOOOC 


05F4 


1440 


IXFHDR 


= 


12 






00000010 


05F4 


1441 


FJLHDR 


= 


16 






OOOOOOK 


05F4 


1442 


STATBLK 


= 


20 






00000018 


05F4 


1443 


FILID 


s 


24 






OOOOOOK 


05F4 


1444 


RTRVPTRLEN 


28 


; OPTIONAL PARAMETER 




00000020 


05F4 


14/ 5 


RTRVPTRBUF = 


32 


; PRESENT U AND ONLY IF RTRVPTRLEN IS 








05F4 


1446 ; 
















05F4 


1447 ; OFFSETS FROM FP 












05F4 


1448 ; 
















05F4 


1449 


SOFFSET 


0, NEGATIVES- 












05F4 


1450 


<HDRCNT>,- 




; COUNT OF FILE HEADERS READ 








05F4 


1451 


<TMPRTRVLEN>,- 




;TEMP RTRV PTR BYTE COUNT 








05F4 


1452 


<TMPRTRVDSC,8>- 




;TEMP RTRV PVR BUFFER DESCRIPTOR 








05F4 


1453 


> 














FPFC 


HDRCNT 


• 














r FF8 


TMPRTRVLEN: 














FFFO 


TMPRTRVDSC; 














05F4 


1454 ; 
















05F4 


1455 ;-- 






• 










05F4 


1456 




■y 


*. 










05F4 


1457 FIL$RDCHKFILHDR 


• • 










007C 


05F4 


i458 


.WORD 


*M<R2,R3,R4,R5, 


R6> 






7E 01 


CE 


05F6 


1459 


MNEGL 


#1,-(SP) 




; COUNT OF HEADER BLOCKS READ 




7E 


D4 


05F9 


1460 


CLRL 


-vSP) 




;INIT RTRV PTR BYTE COUNT 




71 


7C 


05FB 


146! 


CLRQ 


-<SP) 




;ASSUME NO RTRV PTR BUFFER 




08 6C 


D1 


05FD 


1462 


CMPL 


ARCCNT(AP),#RTRVPTRBUF/4 ;RTRV PTR PARAMS PRESENT? 




OD 


19 


0600 


1463 


BLSS 


2$ 




; BRANCH IF NOT 




50 20 AC 


DO 


0602 


1464 


MOVL 


RTRVPTRBUF (AP), 


RO 


;RTRV BUFFER DESCRIPTOR ADDRESS 




07 


13 


0606 


1465 


BEQL 


2$ 




;E>RANCH IF NONE SPECIFIED 




FQ AD 60 


7D 


0608 


1466 


MOVQ 


(RO)JMPR.RVDSC(FP) 


;MAKE COPY OF BUF DESCRIPTOR 




1C BC 


D4 


060C 
C60F 


1467 
1468 


CLRL 


aRTRVPTRLEN(AP) 




;INIT RETURNED BYTE COUNT 








060F 


1469 


ASSUME 


FILHDR EQ IXFHDR+4 






52 OC AC 


7D 


060F 
0613 


1470 2$: 
1471 


MOVQ 


IXFHDR(AP),R2 




;R2 = INDEX FILE HEADER ADDRESS 
;R3 = FILE HEADER ADDRESS 








0613 


1472 


ASSUME 


FILID EQ S1ATBLK+4 






54 14 AC 


7D 


0613 
0617 


1473 
1474 


MOVO 


STATBLKcAP),R4 




;R4 = RETURN STATBLK ADDRESS 
;R5 = ADDRESS OF FILE ID 




7E 65 


7D 


0617 


1475 


MOVQ 


(R5),-(SP) 
SP,R5 




;COPY FILE ID TO WRITABLE SCRATCH 




55 5E 


DO 


061A 


1476 


MOVL 




;AND REMEMBER ITS ADDRESS 




56 7E 


7E 


061 D 

m 


1477 
1478 


MOVAQ 


-(SP),R6 




.■RESERVE SCRATCH STATISTICS BLOCK 
;AND SAVE ITS ADDRESS IN R6 




64 


7C 


1479 


CLRQ 


(R4) 




;INIT THE RETURN STAT BLOCK 




64 


D7 


0622 


1480 


DECL 


(R4) 




;-1 LBN MEANS NOT YET STORED 




7E 65 


3C 


0624 


1481 5$; 


MOV?ei 


(R5).-(SP) 




;FILE NUMBER TO LONG WORD 




05 06 A2 OA 


E1 


0627 


1482 


BBC 


#FH2$V BIGFILNUM.FH2SW. 
FID$BjWX(R5),2($P> . 


STRUCLEV(R2).10$ :BRANCH IF NO BIG FIL NUM 
;HIGH 8 BITS OF RVN COMPLETE FILE NUMBER 




02 AE 05 A5 


90 


062C 


1483 


MOVB 




50 8E 


DO 


0631 


1484 10$: 


MOVL 


(SP)+,RO 




;IF FILE ID IS ZERO, 




03 


12 


0634 


1485 


BNEQ 


12$ 








0081 


31 


0636 


1486 


8RW 


40$ 




;THEN READ LAST HEADER BLOCK 




51 01FE C2 


3C 


0639 


1487 12$; 


MOVZWL 


FH1$W VBN0FFSET(R2).R1 


.•RECOVER VBN OFFSET FROM INDEX FILE HEADER 




50 51 


CO 


063E 


1488 


ADDL 


R1,R0 




;ADD VBN OFFSET TO FORM INDEX FILE VBN 




FC AD 


D6 


0641 


1489 


INCL 


HDRCNT(FP) 




;COUNT EACH HEADER READ 








0644 


1490 


READVBN 


CHAN(AP),R0,(R3),(R2) 


;READ THE FILE HEADER 




62 


Df 


0644 






PUSHAL (R2) 







ZZ-ENSAA-7*0 


RDCHKFILHDR - F 


FILEREAD 




06-02 






63 




50 




OA AC 




06D3'CF OA 
76 50 






71 FC AD 1F 




50 55 




51 53 




0197 




52 OC AC 




FO AD 




F8 AD 




56 




53 




0?8A , CF OA 




51 F8 AD 




16 




1C BC 51 




FO AD 51 




OA 




51 FO AD 




FA AD 51 




FO AD 51 




51 6A 




03 




6A 66 




OA AA OA A6 




65 OE A3 




OF 06 A3 09 




50 01 A3 




50 63A0 




65 02 AO 




OA A5 




FF6A 




FC AD 




09 




65 18 BC 




EF FC AD 1F 




50 01 
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READING ROUT! 27-JUL-19 



DF 


06A6 








DD 


06A8 








DP 


Q6AA 








FB 


Q6AD 








E? 


0652 
0655 


1A91 




BLBC 


EO 


1A92 




BBS 


DO 


065A 


1A93 




MOVL 


DO 


Q65D 
0660 


1AVA 




MOVL 


30 


1A95 




BS6W 


DO 


0663 


1A96 




MOVL 


DF 


0667 


1A97 




PUSHAL 


DF 


066A 


1A98 




PUSHAL 


DD 


066D 


1A99 




PUSHL 


DD 


066F 


1500 




PUSHL 


FB 


C671 


1501 




CALLS 


DO 


0676 


1502 




MOVL 


13 


067A 


1503 




BEOL 


CO 


067C 


150A 




ADDL 


D1 


0680 


1505 




CMPL 


15 


068A 


W 




BLEQ 


DO 


0686 




MOVL 


CO 


068A 


1508 


1A$: 


ADDL 


C2 


068E 


1509 




SUBL 


02 


0692 


1510 


16$; 


MCOML 




0695 


1511 




BNEQ 


DO 


0697 


1512 




MOVL 


CO 


069A 


1513 


20$: 


ADDL 


7D 


069F 


151A 




MOVQ 


EO 


06A3 


1515 




BBS 


9A 


Q6A8 
06AC 


1516 




MOVZBL 


3E 


1517 




MOVAW 


DO 


06B0 


1518 




MOVL 


D4 


0687 


1519 




CLRL 


31 


1520 


30$: 


BRW 




06BA 


1521 








06BA 


1522 


; LAST 


FILE HE 


D5 


Q6BA 
06BA 


1523 
152A 


4o$: 


TSTL 


15 


06BD 


1525 




BLEQ 


7D 


06BF 


1526 
1527 




MOVQ 


E3 


06C3 




BBCS 


3c 


06C8 


1528 


A5$: 


MOVZWL 


OA 


06C8 


1529 


50$: 


RET 



(R3) 

RO 

CHAN(AP) 

*A,W A FIL$READVBN 



PUSHAL 

PUSHL 

PUSHL 

CALLS 

RO.SOS 

#3i,HDRCNT(FP) # 50$ 

R5,60 

R3,R1 

FIL$CHKFJLHDR 

IXFHDR<AP),R2 

TMPRTRVDSC(FP) 

TMPRTRVLEN(FP) 

R6 

R3 

#A,W*riL$STAT8LK 

TMPRTRVLEN(FP),R1 

16$ 

R1,8RTRVPTRLEN(AP) 

R1.TMPRTRVDSCCFP) 

1Ai 

TMPRTRVDSC<FPKR1 

R1,TMPRTRVDSC*A(FP) 

R1JMPRTRVDSC<FP> 

(RA),R1 

20$ 

<R6>,(RA> 

ACR6),A(RA) 

FH2$W EXT_FID(R3),(R5> 



BRANCH IF ERROR 

BRANCH IF JUST RE-READING MAIN HEADER 

GET FILE ID ADDRESS 

ADDRESS OF FILE HEADER 

CHECK THE FILE HEADER 

INDEX FILE HEADER ADDRESS 

RTRV PTR BUF DESCRIPTOR 

ADDRESS TO RETURN BYTE COUNT 

ADDRESS OF SCRATCH STAT BLOCK 

ADDRESS OF FILE HEADER 

READ STATISTICS BLOCK 

ANY RTRV PTR INFO TO RETURN? 

ZERO IF NONE REQUESTED 

ACCUMULATE RTRVPTR BYTE COUNT 

MORE SPACE NEEDED THAN WOULD FIT? 

BRANCH IF NOT 

SAY WE USED IT ALL UP 

C'^T NEW STARTING ADDRESS 

MND CALC NEW SIZE REMAINING 

SEE IF START LBN HAS BEEN SET 

BRANCH IF IT HAS 

SET IT ONCE ONLY 

ADD IN THE SIZE FROM THIS HEADER 



-„.....„ A ww, .GET EXTENSION FILE ID IF ANY 

#FH2$7 L£VEL2,FH2iwSTRUCLEV(R3).30$ ;GOT IT IF LEVEL2 
FH1$B «P0FFSEf(R3),R0 ;GET W0R6 OFFSET TO LEVEL1 MAP AREA 
(RSrfROJ.RO /ADDRESS OF MAP AREA 

FM1$WJX..FILNUM<R0),<R5) :GET EXTENSION FILE NUMBER IF ANY 
A(R5) ;ZERO RVN 

5$ ;READ THIS HEADER IF ANY 

FILE HEADER READ, SEE IF MUST RE-READ THE ORIGINAL HEADER 



HDRCNT(FP) 

A5$ 

aFILJD(AP),(R5) 

#31,HDRCNT(FP),30$ 

#SS$.NORMAl ,R0 



;WAS <, BUMPED ONCE PER READVBN 
.'BRANCH IF STILL HAVE MASTER FILE HEADER 
.•ORIGINAL FILE ID AGAIN 
;SET SIGN BIT AND GO READ ORIGINAL HEADER 
;RETURN SUCCESS STATUS 



ZZ-ENSAA-7.Q 

F1LEREA0 

06-02 
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00000004 
00000008 
OOOOOOOC 
00000010 



FFFFFFFC 



06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

C6CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 

06CC 



1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 



.SBTTL READVBN, WRITEVBN - READ/WRITE VIRTUAL BLOCK 

FUNCTIONAL DESCRIPTION: 

THESE ROUTINES READ OR WRITE A VIRTUAL BLOCK FROM A FILE. 
VOLUME IS SPECIFIED BY THE CHANNEL TO WHICH IT IS ASSIGNED, AND THE 
FILE IS SPECIFIED BY THE ADDRESS OF ITS FILE HEADER WHICH WAS PREVIOUSLY 
READ BY A CALL TO FILSRDFILHDR, 

CALLING SEQUENCE: 



CALLG ARGLIST,FIL$READVBN 
CALLG ARGLIST,FIL$WRITEV8N 



INPUT PARAMETERS: 

CHAN(AP) = 

VBN(AP) = 

BUFADR(AP) = 

FJLHDR(AP) = 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

SS$ NORMAL 
SSSIENDOFFILE 

SIDE EFFECTS: 

NONE 

EQUATED SYMBOLS: 

OFFSET FROM AP 

CHAN - 

VBN = 

BUFADR = 

FILHDR = 

OFFSETS FROM FP 

IOFUNCTION = 



CHANNEL TO WHICH VOLUME IS ASSIGNED 
DESIRED VIRTUAL BLOCK NUMBER 
ADDRESS OF BUFFER TO READ INTO 
ADDRESS OF FILE HEADER 



SUCCESSFUL RETURN 

SPECIFIED VBN BEYOND END OF FILE 



4 
8 
12 
16 



-4 



CHANNEL TO WHICH VOLUME IS ASSIGNED 
VIRTUAL BLOCK NUMBER 
BUFFER ADDRESS TO READ INTO 
ADDRESS OF FILE HEADER 



;SAVED I/O FUNCTION CODE 



ZZ-ENSAA-7.0 

FILEREAD 

06-02 
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06CC 


1588 


















06CC 


1589 


FIL$WRITEV8N:: 












0O3C 


06CC 


1590 




.WORD 


A M<R2,R3,R4,R5> 






7E 


20 


3C 


06CE 


1591 




MOVZWL 


#10$ WRITELBLK, -(SP) 








05 


11 


06D1 
06D3 


1592 
1593 




BR8 


RDWRTVBN 












06D3 


1594 


FIL$READVBN:: 












003C 


06D3 


1595 




.WORD 


A M<R2,R3,R4,R5> 






7E 


21 


3C 


06D5 
06D8 


1596 
1597 




MOVZWL 


#IO$_READLBLK, -(SP) 












06D8 


1598 


RDWRTVBN: 






55 


10 AC 


DO 


06D8 


1599 




MOVL 


FItHDR(AP),R5 


BASE ADR OF FILE HEADER 


52 


06 A5 


3C 


06DC 


1600 




MOVZWL 


FH1$W STRUCLEV(R5),R2 , 


STRUCTURE LEVEL 






31 


10 


06E0 
06E2 


1601 
1602 


* 


BSBB 


INIRTRVPTRSCAN 


SET UP TO SCAN RETRIEVAL POINTERS 










06E2 


1603 


; R4 r 


POINTER 


TO FIRST RETRIEVAL POINTER, 










06E2 


1604 


; R5 = 


POINTER 


TO FIRST BYTE BEYOND LAST 


RETRIEVAL POINTER 










06E2 


1605 


; LOOP 


THROUGH 


RETRIEVAL POINTERS TO FIND THE ONE WHICH CONTAINS THE DESIRED VBN 










06E2 


1606 


* 








08 


AC 


01 
53 
48 


C3 


06E2 
06E6 
06E7 


1607 




SUBL3 


#1,VBN(AP),R3 


VBN BASE TO LOOK FOR 






10 


1608 


20$: 


BSBB 


GETRTRVPTR 


•FETCH NEXT RETRIEVAL POINTER 




50 


53 


D1 


06E9 


1609 




CMPL 


R3,R0 


•IS VBN IN THIS RETRIEVAL POINTER 






OE 


19 


06EC 


1610 




BLSS 


40$ 


•BRANCH IF YES 




53 


50 


C2 


06EE 


1611 




SU8L 


R0,R3 


•PASS OVER THAT MANY VBN'S 




55 


54 


D1 


06F1 


1612 




CMPL 


R4,R5 

20* 


•ANY MORE RETRIEVAL POINTERS? 






F1 


1F 


06F4 


1613 




BLSSU 


•BRANCH IF YES 


50 


0870 8F 


3C 


06F6 


1614 




MOVZWL 


#SS$„ENDOFFILE,RO 


•RETURN END OF FILE INDICATION 








04 


06F8 
06FC 


1615 
1616 




RET 














06FC 
06FC 
06FC 


1617 
1618 
1619 


; VBN 


IS IN THIS RETRIEVAL POINTER, R1 = 


STARTING LBN 


7F 


01 


09 


9C 


40$: 


ROTL 


#9,*1,-(SP) 


;NUMBER OF BYTES TO READ/WRITE 




FC 


AD 


DD 


0700 


1620 




PUSHL 


IOFUNCTION(FP) 


•FUNCTION CODE 




OC 


AC 


DD 


0703 


1621 




PUSHL 


BUFADR(AP) 


•BUFFER TO TRANSFER TO/FROM 


7E 


51 


53 


C1 


0706 


1622 




ADDL3 


R3,R1,-(SP) 


?LBN 




04 


AC 


DD 


070A 


1623 




PUSHL 


CHAN(AP) 


; CHANNEL 


0000 


■CF 


05 


F8 
04 


070D 
0712 


1624 
1625 




CALLS 
RET 


#5,W A FIL$RDWRTLBN 


j TRANSFER THE BLOCK 



ZZ-ENSAA-7,0 

F1LEREAD 
06-02 
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50 01 A5 

54 6540 
OC 52 09 
55 08 A4 

54 OA 

55 6445 



55 



3A A5 
F5 



9A 
3E 
EO 
9A 
CO 
3E 
05 
9A 
11 



0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0713 
0717 
0718 
071F 
0723 
0726 
072A 
0728 
072F 



1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 
1657 

1658 



+ + 



.SBTTL INIRTRVPTRSCAN - INITIALIZE RETRIEVAL POINTER SCAN 
FUNCTIONAL DESCRIPTION: 

LOCATE START AND END OF RETRIEVAL POINTERS IN A FILE HEADER. 
CALLING SEQUENCE: 

BSBW INIRTRVPTRSCAN 
INPUT: 



R2 = STRUCTURE LEVEL 

R5 = FILE HEADER ADDRESS 



OUTPUT: 



R4 = ADDRESS OF 1ST RETRIEVAL POINTER 

R5 = ADDRESS OF FIRST BYTE BEYOND LAST RETREIVAL POINTER 



INIRTRVPTRSCAN: 
MOVZBL 
MOVAW 
BBS 

MOVZBL 
ADDL 

10$: MOVAW 
RSB 

20$: MOVZBL 
BRB 



FH1$B MP0FFSET(R5),R0 

(R5)CR0D,R4 

*FH2$V LEVEL2,R2,20S 

FM1$B INUSE(R4),R5 

*FM1$C POINTERS. R4 

(R4)CR53,R5 

FH2$B_MAPJNUSE(R5),R5 
10$ 



;WORD OFFSET TO MAP AREA 

;BASE ADR OF MAP AREA 

;BRANCH IF LEVEL2 

;WORDS OF RETRIEVAL POINTERS IN USE 

.♦BEGINNING OF RETRIEVAL POINTERS 

;ADR JUST BEYOND LAST VALID RTRV PTR 

;N0. OF WORDS OF RTRV PTRS IN USE 



ZZ-ENSAA-7.0 


GETRTRVPTR • 


• CONVERT 


NEXT 
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06-02 








GETRTRVPTR 


- com 












0731 


1660 


.SBTTL GETRTRVPTR - CONVERT NEXT RETRIEVAL POINTER 












0731 


1661 ; 


++ 












0731 


1662 ; 


FUNCTIONAL DESCRIPTION: 












0731 


1663 ; 














0731 


1664 ; 


CONVERT NEXT RETRIEVAL POINTER TO NUMBER OF BLOCKS COVERED BY 












0731 


1665 ; 


POINTER AND STARTING LBN. 












0731 


1666 ; 












t 


0731 


1667 , 


CALLING SEQUENCE: 












0731 


1668 ; 














0731 


1669 ; 


BSBW GETRTRVPTR 












0731 


1670 ; 














0731 


1671 i 


INPUTS: 












0731 


1672 , 














0731 


1673 ( 


R2 = STRUCTURE LEVEL WORD 












0731 


1674 , 


R4 = ADDRESS OF NEXT RETRIEVAL POINTER 












0731 


1675 ( 














0731 


1676 , 


OUTPUTS: 












0731 


1677 , 














0731 


1678 , 


RO = NUMBER OF BLOCKS COVERED BY THE RETRIEVAL POINTER 












0731 


1679 , 


R1 = STARTING LOGICAL BLOCK NUMBER 












0731 


1680 , 


R2,R3 PRESERVED 












0731 


1681 ( 














0731 


1682 , 


»--. 












0731 


1683 














0731 


1684 { 


3ETRTRVPTR: 




OF 


52 


09 


EO 


0731 
0735 
0735 
0735 
0735 
0735 
0735 


1685 
1686 
1687 
1688 
1689 
1690 
1691 


BBS #FH2$V„LEVEL2,R2,20$ ;BRANCH IF STRUCTURE LEVEL 2 

: STRUCTURE LEVEL 1 RETRIEVAL POINTERS - 4 BYTES EACH 
; BYTE = BITS 16 - 23 OF LOGICAL BLOCK NUMBER 
; BYTE 1 = COUNT - 1 OF BLOCKS COVERED BY THIS POINTER 
BYTES 2-3 = BITS 0:15 OF LOGICAL BLOCK NUMBER 




50 


01 


A4 


9A 


0735 


1692 


MOVZBL 1<R4),R0 ;COUNT - 1 




51 


02 A4 


3C 


0739 


1693 


MOVZWL 2(R4),R1 ;LOW LBN BITS 




08 


10 


84 
51 


FO 


073D 
0741 


1694 


INSV (R4)+,*16,#8,R1 ;PUT HIGH LBN BITS IN 








36 


11 


0742 
0744 
0744 
0744 
0744 


1695 
1696 
1697 
1698 
1699 


BR8 INCRS8 ; INCREMENT COUNT AND EXIT 

J STRUCTURE LEVEL 2 RETRIEVAL POINTERS 

BITS 14:15 = RETRIEVAL POINTER FORMAT 




64 


02 


OE 
50 


EF 


0744 
0748 
0749 
0749 
0749 
0749 
0749 
0753 
0753 
0753 
0753 
0753 
0753 
0753 
0753 
0753 


1700 

1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 


?0$: EXTZV #FM2$V„FORMAT,#FM2$SJ : ORMAT,<R4>,RO ;FORMAT TO RO 

CASE R0,<- 

PLACEMENT,- .-PLACEMENT FORMAT 
F0RMAT1.- ; FORMAT 1 
F0RMAT2- ; FORMAT 2 
> 

; FORMAT 3 = 8 BYTES 

; BITS 0:13 = BITS 16:29 OF COUNT - 1 
BITS 14:15 = FORMAT = 3 
BYTES 2-3 = BITS 0:15 OF COUNT - 1 
BYTES 4-7 = LOGICAL BLOCK NUMBER 

F0RMAT3: 



ZZ-ENSAA-7.0 

FILEREAO 

06-02 
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50 
02 



84 
1E 

51 



10 
00 
50 
84 
19 



51 
54 



01 
02 
50 



50 



50 
06 



50 50 
50 FC 



84 
08 
51 
10 
A4 

50 



50 



50 
OE 

51 



84 
00 
50 
84 
FO 



9C 0753 
FO 0757 
075B 
DO 075C 
11 075F 
0761 
0761 
0761 
0761 
0761 
0761 
0761 
CE 0761 
CO 0764 
D4 0767 
05 0769 
076A 
076A 
076A 
076A 
076A 
076A 
076A 
DO 076A 
EF 076D 
0771 
79 0772 
9A 0776 
077A 
D6 077A 
05 077C 
077D 
077D 
077D 
077D 
077D 
077D 
077D 
077D 
3C 077D 
EF 0780 
0784 
DO 0785 
11 0788 



1715 
1716 

1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 

1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 

1754 
1755 



ROTL *16,(R4)+,R0 

INSV *0>30,#2,R0 

MOVL (R4)+,R1 

BRB INCRS8 



;FORM COUNT - 1 
;ZERO HIGH 2 BITS 

;GET LBN 

INCREMENT COUNT AND EXIT 



PLACEMENT CONTROL - THIS IS NOT A RETRIEVAL POINTER, RATHER IT 

CONSISTS OF 2 BYTES OF PLACEMENT INFORMATION. TREAT AS IF 
LENGTH RETRIEVAL POINTER. 
RO = 



PLACEMENT: 

MNEGL #1,R1 
ADDL #2,R4 
CLRL RO 
RSB 

FORMAT 1 = 4 BYTES 

BITS 0:7 = COUNT 
BITS 8:13 = BITS 
BYTES 2-3 = BITS 



IMPOSSIBLE LBN 
BUMP THfc POINTER 
CLEAR BLOCK COUNT 



- 1 

16:21 
0:15 



OF 
OF 



LOGICAL 
LOGICAL 



BLOCK 
BLOCK 



NUMBER 
NUMBER 



FORMAT 1 



INCRSB: 



MOVL 
EXTZV 

ASHQ 
MOVZBL 

INCL 
RSB 



<RO*,R0 ;FETCH ENTIRE RETRIEVAL POINTER 

*FM2$VJ-UGHLBN,*FM2$S_HIGHLBN,R0,R1 ;FETCH HIGH LBN BITS 



*16,R0,R0 
-4<R4),R0 

RO 



;FORM R1 - LBN 
;REFETCH COUNT 

;FORM COUNT 
;AND RETURN 



- 1 



FORMAT 2=6 BYTES 

BITS 0:13 = COUNT - 1 
BITS 14:15 = FORMAT = 2 
BYTES 2-5 = LBN 



F0RMAT2: 



MOVZWL 
EXTZV 

MOVL 
BRB 



(R4)+,R0 ;FETCH COUNT - 1 AND 

*FM2$V..COUNT2,/yFM2$S..COUNT2,R0,R0 ; COUNT - 1 



FORMAT BITS 



(R4)+,R1 
INCRSB 



;L8N 
.♦INCREMENT 



COUNT AND RETURN 



ZZ-ENSAA-7,0 
F ILEREAD 
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078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

C78A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

078A 

Q78A 

078A 



1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 



.SBTTL STATBLK - GET FILE STATISTICS BLOCK 



++ 



FUNCTIONAL DESCRIPTION: 

GIVEN A FILE HEADER, RETURN THE FILE STATISTICS BLOCK 
AND OPTIONALLY RETURN THE RETRIEVAL POINTERS 

CALLING SEQUENCE: 

CALLG ARGLIST,FIL$STAT8LK 

INPUT PARAMETERS: 



FILHDR(AP) 
STATBLK (AP) 
RTRVPTRLEN(AP) = 



RTRVPTRBUF(AP) = 



/ADDRESS OF THE FILE HEADER 
.'ADDRESS TO RETURN STATISTICS BLOCK 
;ADDRESS TO RETURN THE NUMBER OF 
;BYTES OF RETRIEVAL POINTERS 
;FOUND IN THE FILE HEADER(S). 
;***** OPTIONAL PARAMETER ***** 
;ADDRESS OF RETRIEVAL POINTER 
;BUFFER DESCRIPTOR, THIS PARAMETER 
:IS PRESENT IF AND ONLY IF 
;RTRVPTRLEN IS PRESENT. 
;ZERO DESCRIPTOR ADDRESS OR ZERO 
;BUFFER ADDRESS MEANS DON'T 
;RE T URN RETRIEVAL POINTER INFO 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 



RO = SYSTEM 
STATBLK 



TATUS CODE 

CONTAINS 2 LONGWORDS 

LBN OF 1ST BLOCK If CONTIGUOUS OR ZERO IF NOT 

SIZE OF FILE IN BLOCKS 
RTRVPTRLEN RECEIVES THE NUMBER OF BYTES OF RETRIEVAL POINTER 

INFORMATION THAT WOULD HAVE BEEN STORED IN THE RETRIEVAL 

POINTER BUFFER GIVEN A LARGE ENOUGH BUFFER, 
THE RETRIEVAL POINTER BUFFER RECEIVES NORMALIZED RETRIEVAL 

POINTERS IN THE FORMAT 32 BIT COUNT, 32 BIT STARTING LBN 



IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SS$.NORMAL 
SIDE EFFECTS: 

NONE 

EQUATED SYMBOLS: 



SUCCESSFUL COMPLETION 



ZZ-ENSAA-7.0 
F REREAD 
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NUMBER OF ARGUMENTS 

ADDRESS OF FILE HEADER 

ADDRESS TO RETURN STATISTICS BLOCK 

ADDRESS TO RETURN COUNT OF BYTES 

STORED IN THE RETRIEVAL POINTER BUFFER 

ADDRESS OF RETRIEVAL POINTER 

BUFFER DESCRIPTOR 









078A 


1814 


• 












078A 


1815 


* 


OFFSETS FROM AP 








078A 


1816 


t 








00000000 


078A 


1817 




ARGCNT 







00000004 


078A 


1818 




FILHDR 


= 4 




00000008 


078A 


1819 




STATBLK 


8 




OOOOOOOC 


078A 


1820 




RTRVPTRLEN = 12 








078A 


1821 










00000010 


078A 


1822 




RTRVPTRBUF = 16 








078A 


1823 














078A 


1824 















078A 


1825 


1 












078A 


1826 














078A 


1827 


FIL$STAT8LK:: 






OOFC 


C78A 


1828 




.WORD 


*M<R2,R3,R4,R5,R6,R7> 




56 


7C 


078C 


1829 




CLRQ 


R6 




04 6C 


D1 


078E 


1830 




CMPL 


ARGCNT (AP) ,*RTRVPTRBUF/4 




OF 


19 


0791 


1831 




BLSS 


5$ 


50 


10 AC 


DO 


0793 


1832 




MOVL 


RTRVPTRBUF (AP),RO 




09 


13 


0797 


1833 




BEQL 


5$ 




56 60 


7D 


0799 


1834 




MOVQ 


(R0),R6 




56 07 


CA 


079C 


1835 




BICL 


#7,R6 




OC BC 


D4 


079F 


1836 




CLRL 


QRTRVPTRLEN(AP) 


55 


04 AC 


DO 


07A2 


1837 5$: 


MOVL 


FILHDR(AP),R5 


52 


06 A5 


3C 


07A6 


1838 




MOVZWL 


FH1$W„STRUCLEV<R5),R2 ; 


50 


34 A5 


9A 


07AA 


1839 




MOVZBL 


FH2$L FILECHARdtfKRO ; 
#FH2$V LEVEL2,R2,10$ 


04 


52 09 


EO 


07AE 


1840 




BBS 


50 


OC A5 


9A 


0782 


1841 




MOVZBL 


FH1$W FlLECHAR(R5),R0 ; 


50 


01 07 
7E 


EF 


0786 
07BA 


1842 


10$; 


EXTZV 


#FH1$V_C0NTIG,#1,R0,-(SP> 




FF55 


30 


07BB 


1843 




BSBW 


INIRTRVPTRSCAN 




53 


D4 


07BE 


1844 




CLRL 


R3 




29 


11 


07C0 
07C2 


1845 
1846 




BR8 


50$ ; 




FF6C 


30 


07C2 


1847 20$: 


BSBW 


GETRTRVPTR ; 




53 


D5 


07C5 


1848 




TSTL 


R3 




OA 


12 


07C7 
07C9 


1849 
1850 




BNEQ 


40$ 








07C9 


1851 


; FIRST RETRIEVAL POINTER 








07C9 


1852 










50 


D5 


07C9 


1853 




TSTL 


RO 




1E 


13 


07CB 


1854 




BEQL 


50$ 




03 6E 


E9 


07CD 
07DO 


1855 
1856 




BLBC 


<SP),40$ 




6E 51 


DO 


07D0 


1857 




MOVL 


R1,(SP) ; 




53 50 


CO 


07D3 


1858 


40$: 


ADDL 


R0,R3 ; 




56 


D5 


07D6 


1859 




TSTL 


R6 ; 




09 


13 


07D8 


1860 




BEQL 


45$ ; 




8? 50 


DO 


07DA 


1861 




MOVL 


R0,(R7)+ ; 




87 51 


DO 


07DD 


1862 




MOVL 


R1,(R7)+ ; 




56 08 


C2 


07E0 


1863 




SUBL 


#8,R6 ; 




57 


D5 


07E3 


1864 


45$: 


TSTL 


R7 ; 




04 


13 


07E5 


1865 




BEQL 


50$ 


OC 


BC 08 


CO 


07E7 


1866 




ADDL 


*8,3RTRVPTRLEN(AP) 




55 54 


D1 


07EB 


1867 


50$: 


CMPL 


R4.R5 
20* 




D2 


1F 


07EE 


1868 




BLSSU 




04 


BA 


07F0 


1869 




POPR 


# A M<R2> 



ASSUME NOT DOING RETRIEVAL POINTERS 
;RTRV PTR PARAMS PRESENT? 
BRANCH IF NOT 

ADDRESS OF BUFFER DESCRIPTOR 
BRANCH IF NOT SPECIFIED 
R6 = MAX SIZE, R7 = BUFFER ADR 
EVEN MULTIPLE OF 8 BYTES 
INIT RETURN BYTE COUNT 
ADDRESS OF FILE HEADER 
STRUCTURE LEVEL 

FILE CHARACTERISTICS IF LEVEL 2 
BRANCH IF STRUCTURE LEVEL 2 
GET LEVEL 1 FILE CHARACTERISTICS 
.-CONTIGUOUS BIT TO TOP OF STACK 

INIT FOR SCAN OF RETRIEVAL POINTERS 
INIT REGISTER TO COUNT BLOCKS 
START AT BOTTOM OF LOOP IN CASE 
FILE HAS NO RETRIEVAL POINTERS 
GET THE NEXT RETRIEVAL POINTER 
IS THIS FIRST RTRV PTR? 
BRANCH IF ALREADY COUNTED SOME 



; IGNORE EMPTY ONES 

BRANCH IF FILE NOT CONTIGUOUS 

O(SP) = IN THIS CASE 

SET LBN OF 1ST NON-ZERO RTRV PTR 

ACCUMULATE COUNT OF BLOCKS 

ANY MORE ROOM FOR RTRV PTRS? 

BRANCH IF NO MORE BUFFER SPACE 

STORE SIZE OF RETRIEVAL POINTER 

AND STORE L8N 

USED 8 MORE BYTES OF SPACE 

DOES CALLER WANT RTRV PTR INFO? 

BRANCH IF NOT, DON'T COUNT POINTERS 

UPDATE RTRV PTR BYTE COUNT 

ANY MORE RETRIEVAL POINTERS? 

BRANCH IF YES 

GET SAVED STARTING LBN 
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08 BC 52 7D 07F2 1870 MOVQ R2,3STATBLK(AP) ;RETURN THE STATISTICS BLOCK 

MOVZWL #SS$ NORMAL, RO SUCCESSFUL COMPLETION 
RET 



fiC 


52 


7D 


07F2 


1870 


50 


01 


3C 


07F6 


1871 






04 


07F9 


1872 



ZZ-ENSAA-7.0 

FiLEREAD 

06-02 



FILSCHKFILHDR - 



CHECK FILE HEADER VALIDJ 
- FILES11 LEVEL 1 & 2 FILE 
FIL$CHKFILHDR - CHECK FILE 



K 12 
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27 



7E 01 

7E 02 A1 

08 



7E 
7E 



OC A1 

08 A1 

6E 



07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
07FA 
1 1 0803 
0805 
0805 
0805 
0805 
0808 
080C 
080E 
080E 
080E 
080E 
0812 
0816 



CE 
DO 
11 



3C 
DO 
B5 



1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1927 
1928 
1929 
1930 



t+ 



.SBTTL FILSCHKFILHDR - CHECK FILE HEADER VALIDITY 
FUNCTIONAL DESCRIPTION: 

CHECK THE VALIDITY OF A FILE HEADER 
CALLING SEQUENCE: 

BSBW FILSCHKFILHDR 

INPUT PARAMETERS: 

RO = ADDRESS OF FILE ID 

R1 = ADDRESS OF FILE HEADER 

IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 

RS8 TO CALLER IF FILE HEADER VALID 

RET IF NOT VALID WITH RO = ERROR STATUS 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

SS$_8ADFILEHDR 
SS$_NOSUCHFILE 

SIDE EFFECTS: 

NONE 



FILE ID CODES DON'T MATCH 
FILE IS MARKED AS DELETED 



FiLSCHKFILHDR: 
CASE 



FH1$W STRUCLEV+1(R1),<- 

5$,- " ; STRUCTURE LEVEL 1 

10$- .-STRUCTURE LEVEL 2 

>,TYPE=B,LIMIT=#1 

30$ ;BAD FILE HEADER 



BR8 

STRUCTURE LEVEL 1 

5$: MNEGL #1,-(SP) ;N0 RVN TO CHECK 

MQVL FH1$W FID NUM(R1) ,-(SP) ;PUSH FILE ID ON STACK 
BRB 15$ 



STRUCTURE LEVEL 2 
15$: 



MOVZUL FH2$W FID.RVN(RI) ,-<SP) ;PUSH RELATIVE VOLUME NUMBER 
MOVL FH2$WIFID_NUM(R1),-(SP) ;PUSH FILE ID ON STACK 
TSTW (SP) ;FILE DELETED? 



Z2-ENSAA- 
F REREAD 
06-02 



■7.0 F1LSCHKF1LHDR - 



CHECK FILE HEADER VALID! 
- FRESH LEVEL 1 & 2 FILE 
FIL$CHKFILHDR - CHECK FRE 



8E 



6E 



18 
80 
OD 
6E 
05 
60 



50 
50 



04 

01 

OC 

0810 8F 

0910 8F 



13 


0818 


1931 




BEQL 


40$ 


D1 


081A 


1932 




CMPL 


<RO)+,<SP>+ 


12 


081D 


1933 




BNEQ 


30$ 


D5 


081 F 


1934 




TSTL 


(SP) 


19 


0821 


1935 




BLSS 


20$ 


B1 


0823 


1936 




CMPW 


(RO),(SP) 




0826 


1937 








12 


0826 


1938 




BNEQ 


30$ 


BA 


0828 


1939 


20$: 


POPR 


# A M<RQ> 


11 


082A 


1940 




8RB 


FR$CHECKSUM 


3C 


082C 


1941 


30$: 


MOVZWL 


*SS$ BADFREHDR,RO 


04 


0831 


1942 




RET 




3C 


0832 


1943 40$: 


MOVZWL 


#SS$JIOSUCHFILE,RO 


04 


0837 


1944 




RET 
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HEADER VALIDI 12-APR-1983 15:57:42 DMA1 :CSYS0.SYSMAINTJFREREAD.MAR;<18) 

BRANCH If YES 

FRE NUM AND FRE SEQ NUM AGREE? 

BRANCH IF NOT, BAD HEADER 

CHECKIN6 RVN? 

BRANCH IF NOT 

RELATIVE VOLUME NUMBER AND 

FILE NUMBER EXTENSION AGREE 

BRANCH IF NOT 

CLEAN OFF STACK 

GO VERIFY THE CHECKSUM 

THIS HEADER IS BAD 

DELETED FILE 



ZZ-INSAA-7.0 

FILEREAD 

06-02 



CHECKSUM - VALIDATE A CHECKSUM 

- FILES11 LEVEL 1 & 2 
CHECKSUM - VALIDATE A 



50 00FF 8F 

52 

52 81 

FA 50 

61 52 

01 

50 0808 8F 



3C 

D4 

AO 
F5 
B1 
12 
05 

3C 
0* 



0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0830 

C838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

0838 

083D 

083D 

083F 

083F 

0842 

0845 

0848 

084A 

084B 

0848 

0850 

0851 

0851 

0851 



1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 



M 12 
27-JUL-1984 Fiche 7 Frame M12 
FILE READING ROUTI 27-JUL-1984 15:19:33 VAX-11 Macro 
CHECKSUM 12-APR-1983 15:57:42 

.S8TTL CHECKSUM - VALIDATE A CHECKSUM 



Sequence 
V03-0T 



1391 
Pa< 



46 



DMA1:CSYS0.SYSMAINT3FILEREAD.MAR;(19) 



++ 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CALCULATES AND CHECKS THE FILE11 CHECKSUM FOR 
FILE HEADERS AND THE HOMEBLOCK. 



CALLING SEQUENCE: 

BSBW FILSCHECKSUM 
BSBW FILSCHECKSUM1 

INPUT PARAMETERS: 



; CHECK FILE HEADER CHECKSUM 

/CHECK SPECIFIED NO. OF WORDS IN RO 



RO = NO. OF WORDS TO CHECK IF ENTERING AT CHECKSUM1 
R1 = ADDRESS OF BUFFER TO CHECK 

IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 

RS8 TO CALLER IF CHECKSUM IS OK 

RET TO TOP LEVEL WITH ERROR CODE IN RO IF CHECKSUM IS WRONG 

IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



FILSCHECKSUM: 
MOVZWL 

FILSCHECKSUM1: 
CLRL 



10$: 



20$: 



ADDW 

SOBGTR 

CMPW 

BNEQ 

RS8 



#FH1$W„.CHECKSUM3-1,R0 

R2 

(RD+.R2 

ROJOi 

R2,iR1) 

20i 



MOVZWL #SS$ BADCHKSUM,R0 
RET 



.END 



/NO. OF WORDS TO CHECK 

; INIT THE SUM 

/ACCUMULATE THE SUM 
;ONCE FOR EACH WORD 
/CHECKSUM OK? 
/BRANCH IF NOT 

/ERROR STATUS IN RO 



ZZ-ENSAA-7.0 
F REREAD 
Symbol table 

ARGCNT 

ASSIGNJ)EV - 

BADD1R 

BADDIR1 

BADDIR2 

BADFILNAM 

BADRET 

BADRET1 

BUFADR 

CACHE ADR 

CACHE SIZE 

CHAN 

CHANADR 

DIRSB NAMECOUNT 

DIRSCJ/ERSION 

OIRST NAME 

DIR$W~FID 

DIRSWlSIZE 

D1RSWJ/ERSION 

DIR,.. 

DIRBUF 

DIRNAM 

DIR BFCNT 

D1R~BUF 

DIR^CACHE^CNT 

ENTRY 

ENTRY ADR 

EXIT FILID FND 

FAT$B RATTRIB 

FATSBlRTYPE 

FAT$C_FIXED 

FATSC..VARIABLE 

FAT$l EPBLK 

FAT$M_NOSPAN 

FAT$W FF8YTE 

FATSUfRSIZE 

FH1SB MPOF c SET 

FH1$CJ_EVEL1 

FHUV^CONTIG 

FH1$V LliVELl 

FH1SW..CHECKSUM 

FH1$W FID NUM 

FHUWJIlECHAR 

FH1$WJ*ECATTR 

FH1$W STRUCLEV 

FH1$W"VBNOFFSET 

FH2SB"MAP INUSE 

FH2$BlMPOFFSET 

FH2$C„LE\/FL2 

FH2$L„FILECHAR 

FH2$V^BIGFILNUM 

FH2$V_CONTIG 

FH2$V_DIRECTORY 

FH2$VJ_EVEL2 

FH2SW^CHECKSUM 

FH2$WJXT_FID 

FN2$W FID NUM 



Symbol table 
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00000000 

000001A5 

00000453 

00000538 

000003B4 

00000459 

00000458 

000003B7 

0000000C 

00000010 

O00O00OC 

00000004 

00000004 

00000005 

00000008 

00000006 

00000002 

00000000 

00000000 

FFFFFFFF 

00000010 

FFFTFFCC 

FFFFFFFC 

FFFFFFF8 

00000014 

FFFFFFDO 

FFFFFFF4 

00000504 

00000001 

00000000 

00000001 

00000002 

00000008 

00000008 

OOOOOOOC 

00000002 

00000001 

00000101 

00000007 

00000008 

000001 FE 

00000002 

OOOOOOOC 

OOOOOOOE 

00000006 

000001FE 

0000003A 

00000001 

00000200 

00000034 

OOOOOOOA 

00000007 

OOOOOOOD 

00000009 

000001 FE 

COOOOOOE 

00000008 



R 



02 
02 
02 
02 
02 



D 02 
D 02 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 02 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



FH2$W FID RVN 

FH2$W_RECSTTR 

FH2$W„STRUCLEV 

FJD 

FJD$8_NMX 

FID$C„MFD 

FIL$A.,DIR_FID 

FILSAJHR OF ID 

FJLSAJXFflDR 

FIL*B DIRJ.VL 

FILSCXCHEJNIT 

FIL$CACHE TRUNC 

FILSCHECK3UM 

FJLSCHECKSUM1 

FILSCHKFILHDR 

FILSCVTFILNAM 

FIL$C_CACHE ID 

FILSC.DIR SIZE 

FJLSC SIZE 

F JLSFlNDFILJD 

FIL$GQ_ CACHE 

FIL$GT_ODDEV 

FJL$GT_DDSTRING 
FJLSGT TOPSYS 

FILSLjSlRMAX 

F1LSL..DIRNXT 

FJL$L_DIROFF 

FIL$LJ>IR_BFOFF 

FJLSL^DIR LCN 

FILSLlLBNflAX 

FJL$L„LBNNXT 

FIL$L LBNOFF 

FJLSMOUNT 

FILSOPENFILE 

FILSQ DIR HDR 

FILSRDCHKFILHDR 

FILSRDWRTLBN 

FILSREADVBN 

FILSSTATBLK 

FIL$T DIR NAM 

FILSWRlTEtfBN 

FJLSW CACHE ID 

FILSWlDIR^BfCNT 

FlL$VfDIR„BKCNT 

FILDSC 

KILHDR 

FILJD 

FILNAM 

FJLJiQ CACHE 

fil^gt^dddev 
fil.gt topsys 
find.level1 
find level1j 
find.le^el2 
find level2j 
fm1$b inuse 
fmuc:pointers 



OOOOOOOC D 

00000014 D 

00000006 D 

FFFmFA D 

00000005 D 
00000004 D 

00000000 D 
0000001 E D 
00000018 D 
00000012 D 
00000112 RG D 
00000186 RG D 
00000838 R D 
0000083D R D 

000007FA R D 

******** x 

00000001 D 
00000024 G D 
00000218 G D 
000002ED RG D 
********y gx 
********g gx 
******** x 
********y QX 
OOOOOOOC D 
t\ 000008 D 
00000004 D 
00000018 D 
00000014 D 
00000014 D 
00000010 D 
OOOOOOOC D 
O00O025D RG D 
OOOOOOOC RG D 
00000010 D 
000005F4 RG D 
******** x 

000006D3 RG D 

0000078A RG D 

00000006 D 
000006CC RG D 
00000000 D 
0000001 C D 
00000010 D 
00000008 D 
00000004 D 
QQQQ0Q18 D 
00000008 D 
00000000 R D 
00000004 R D 
00QQOQO8 R D 
000QQ538 R D 
00000546 R D 
Q000Q45F R D 
00000468 R D 
00000008 D 
OOOOOOOA D 



02 
02 
02 
02 
02 
02 



02 
00 
00 
02 
00 



02 
02 

02 
02 
02 
02 

02 



02 

°i 
02 

02 

02 

02 

02 



ZZ-ENSAA-7.0 
FILEREAO 
Symbol table 

FM1$W EX FiLNUM 
FM2$S"CO0NT2 

fm2$s format 
fm2$s~highlbn 
fm2sv.count2 
fm2$v format 
fm2$v~highlbn 

FORMAT1 

FORMAT2 

F0RMAT3 

FORMDIRSTRING 

GETRTRVPTR 

HORCNT 

MMUL 1BMAPLBN 

HMHtfCHECKSUMI 

HM1SWICHECKSUM2 

HM1$W IBMAPSIZE 

HMHW..STRUCLEV 

HM2$L 1BMAPL8N 

HM2$L~MAXFILES 

HM2$W~CHECKSUM1 

HM2$W"CHECKSUM2 

HM2$w;CLUSTER 

HM2$W IBMAPSIZE 

HM2$W STRUCLEV 

INCRSB 

1nirtrvptrscan 
10$ readlblk 
10$ wrjtelblk 
iofOnction 

IXFHDR 

lbncache cnt 
libJcvt^dTb 

NAMBLK 

NAMOSC 

OPENFREJ 

OPENFRE 2 

PLACEMENT 

ROWRTVBN 

READ DIR HEADER 

READ"DIR"LBN 

RTRVPTRBOF 

RTRVPTRLEN 

SAVABS... 

scratchsize 
scratch size 
ss$„badChksum 

ss$ badfilehdr 
ss$ibadf rename 

SS$ w BADJR£CTORY 

SSSJNDOFFRE 
SS$lFRESTRUCT 

SSS.NORMAl 

SS$ NOSUCHFILE 
STAT8LK 
ST0RE3DIGITS 
TMPRTRVDSC 



Symbol table 



- F1LES11 LEVEL 1 8 2 FILE 



00000006 

00000002 
00000006 
O9OOQOOO 
OOOOOOOE 
00000008 
0000076A 
0000Q77D 
00000753 
000001 F1 
00000731 
FFFFFFFC 
00000002 
0000C03A 

05999 1f e 

0599099° 
0000000c 

00000018 

0000001c 

0000003A 
000001 FE 
OOOOOOOE 
00000020 

oooooooc 

0000Q77A 
00000713 
00000021 
00000020 

oooooooc 

00000018 

******** 

mmu 

FFFFFF98 
OOOOOQOC 

oogoi 

OOOOi 

OOi 

00! 

0001 

OOOOi 

OOOOI 

FFFFFFFO 

FFFFFF98 

FFFFFfDO 

00000808 

00000810 

00000818 

OOOf 

ffi! 




:t 




9OOQOOO8 

000001D 
FFFFFFF 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
< 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



B 13 

27-JUL-1984 
READING ROUT] 27-JUL-19I 
12-APR-19I 

TMPRTRVLEN 
V8N 



Flchc 7 Frame B13 Seguence 1393 
IA 15; 19i 33 VAX-11 Macro V03-0T Pa 
13 15:57:42 DMA1 :[SYS0.SYSMAINT3FREREAD,M 

fffffftB D 
= 00000008 D 



hi 



48 
(19) 



02 
02 
02 
02 
02 



02 
02 



02 



02 
02 
02 
02 



02 



ZZ-ENSAA-7.0 
HLEREAD 
Psect synopsis 



Psect synopsis 
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PSECT name 

ABS . 
SABS$ 
CODE 



AUocat ion 

00000000*"" ( 
FFFFFFFC ( 
00000851 ( 



+ — — ..._...— ..+ 

! Psect synopsis ! 
+ .-™~. — ...... -+ 

PSECT No. Attributes 

0,) 00 ( 0.) NOPIC USR 

0.) 01 ( U NOPIC USR 

2129.) 02 ( 2.) NOPIC USR 



CON ABS 
CON ABS 
CON REL 



LCL NOSHR NOEXE NORD 
LCL NOSHR EXE RD 
LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.0 

F1LEREAD 

Cross reference 



Cross reference 



SYMBOL 

ARGCNT 

ASSIGN J)EV 

BADDiR 

BADDIR1 

BADD1R2 

BADFILNAM 

BADRET 

BADRET1 

BUFADR 

CACHE ADR 

CACHElSIZE 

CHAN 

CHANAOR 

DIR$B NAMECOUNT 

DIRSClVERSlON 

DIRSTJJAME 

DIR$W_FID 

DIR$W SIZE 

OIR$U"VERSION 

0IR..7 

DIRBUF 
DIRNAM 

DIR„BFCNT 

DIR_BUF 

DIR CACHE.CNT 

ENTRY 



ENTRY ADR 
EXIT FlLlD FND 
FAT$B RATTR1B 
FATSBlRTYPE 
FAT$C. FIXED 
FAT$C_VARIABLE 
FAT$L_EFBLK 
FAT$M NOSPAN 
FAT$UfFFBYTE 
FAT$W~RSIZE 
FH1SB MPOFFSET 
FH1$C"LEVEL1 
FH1$V~C0NTIG 
FH1$VlLEVEL1 
FH1$W CHECKSUM 
FHUVfFID NUM 
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! Symbol Cross Reference ! 

VALUE 

:00000000 
00000iA5-R 
00000453-R 
00000538-R 
000003B4-R 
00000459-R 
00000458-R 
000003B7-R 
:0000000C 
:00000010 
=0OO0OOOC 
=00000004 

=00000004 
=00000005 
=00000008 
=00000006 
=00000002 
=00000000 
=00000000 
=FFFFFFFF 

=00000010 
FFFFFFCC 

FFFFFFFC 

FFFFFFF8 

=00000014 

FFFFFFDO 



FFFFFFF4 

00000504-R 
=00000001 
=00000000 
=00000001 
=00000002 
=00000008 
=00000008 
=O0000OOC 
=00000002 
=00000001 
=00000101 
=00000007 
=00000008 
=000001 FE 
=00000002 



DEFINITION 


REFERENCES... 
















1817 


(17) 


#-1462 


(13) 


#-1830 


(17) 


#-413 


(2) 


#-459 


(2) 




629 


(5) 


#-544 


(3) 
















1128 


(9) 


#-1040 


(9) 


#-1139 


(10) 


#-1144 


(10) 


#-1253 


(10) 




1252 


(10) 


#-1262 


(11) 


#-1264 


(11) 












1039 


(9) 


#-1059 


(9) 
















1130 


(9) 


#-1174 


(10) 


#-384 


(2) 


#-674 


(6) 


#-723 


(7) 




1129 


(9) 




















1041 


(9) 


#-1048 


(9) 
















1580 


<1>) 


#-1621 


(14) 
















516 


(3' 


524 


(3) 
















515 


(3) 


524 


(3) 


#-525 


(3) 












1578 


(14) 


#-1094 
#-808 


(9) 
(8) 


#-1377 


(12) 


#-1490 


(13) 


#-1623 


<14) 




513 


(3) 


#-419.1 
#-1187 
#-1215 
1188 
#-1223 


(2) 

(10) 

(10) 

(10) 
(10) 


#-548 

1205 
1225 


(3) 

(10) 

(10) 
















#-1191 


(10) 


#-1193 


(10) 


#-1206 


(10) 












#-1212 


(10) 
















1453 


(13) 


1453 
943 


(13) 
(9) 


153 


(1) 


169 


(1) 


294 


(2) 




931 


(9) 


#-1049 


(9) 


#-1376 


(12) 












294 


(2) 


#-450.2 
739 


(2) 
(?) 


728 
746 


(7) 
(7) 


732 


(7) 


736 


(7) 




943 


(9) 


#-1033 


(9) 


#-1100 


(9) 


#-1367 


(12* 


#-1369 


(12) 




943 


(9) 


#-1034 


(9) 


#-1101 


(9) 


#-1370 


(12) 


#-1371 


(12) 




517 


(3) 


#-532 


(3) 
















943 


(9) 


#-1020 


(9) 


#-1023 


(9) 


#-1024 


(9) 


#-1031 


(9) 








#-1032 


(9) 


#-1033 


(9) 


#-1034 


(9) 


#-1036 


(9) 








#-1071 


(9) 


#-1072 


(9) 


#-1073 


(9) 


#-1093 


(9) 








#-1102 


(9) 


#-1106 


(9) 


#-1107 


(9) 


#-1233 


(10) 








#-1238 


(10) 


#-1239 


(10) 


1245 


(10) 


962 


(9) 








#-976 


(9) 


977 


(9) 


983 


(9) 


#-994 


(9) 




943 


(9) 


#-1005 


(9) 


#-1235 


(10) 


#-986 


(9) 


#-993 


(9) 




1230 


(10) 


#-1336 
1141 


(11) 
(10) 




















1141 


(10) 


#-1143 


(10) 


#-1261 


(11) 












#-1261 


(11) 




















#-1142 


(10) 




















#-1067 


(9) 




















#-1142 


(10) 




















#-1068 


(9) 




















#-1263 


(11) 




















116 


(1) 


#-1516 


(13) 


#-1650 


(15) 












128 


(1) 
















129 


(1) 


123 


(1) 


#-1842 


(17) 












118 


(1) 


122 


(1) 


125 


(1) 


#-1987 


(19) 








#-1923 


(18) 

















ZZ-ENSAA-7.0 Cross 


reference 






F1LEREAD 


- FILES11 LEVEL 1 


8 2 FILE 


Cross reference 








FH1SW FILECHAR 


=0000000C 






FH1$W~RECATTR 


=0000000E 






FHISvTSTRUCLEV 


=00000006 






FHUW VBNOFFSET 


=000001 FE 


125 


(1) 


FH2$B~MAP INUSE 


=0000003A 






FH2SB~MP0FFSET 


=00000001 






FH2$C"LEVEL2 


=00000200 






FH2SL FILECHAR 


=00000034 






FH2SV'B16FILNUM 


=00C0000A 


133 


(1) 


FH2$VlC0NTIG 


=00000007 






FH2SV DIRECTORY 


=0OOOO00D 






FH2SVILEVEL2 


=00000009 


132 


(1) 


FH2SW CHECKSUM 


=000001 FE 






FH2SWIEXT.FID 


=00000C0E 






FH2SW_FID_NUM 


=00000008 






FH2$W^FID RVN 


=00000000 






FH2SW_REC*TTR 


=00000014 






FH2SW STRUCLEV 


=00000006 






FID " 


FFFFFFFA 


294 


(2) 


FID$B NMX 


=00000005 






FID$C MFD 


=00000004 






FILSA~DIR FID 


00000000 


169 


(1) 


filsa;dir""ofid 


0000001 E 


169 


(1) 


filsajxfRdr 


00000018 


153 


(1) 


FIL$B DIRJ.VL 


00000012 


169 


(1) 


filscXche init 


00000112-R 


521 


(3) 


FILSCACHE TRUNC 


000001 86-R 


596 


(4) 


filscheckSum 


00000838-R 


1986 


(19) 


FILSCHECKSUM1 


0000083D-R 


1988 


(19) 


FILSCHKFILHDR 


000007FA-R 


1913 


(18) 


FIISCVTFILNAM 


00000000-XR 






FILSC..CACHE ID 


=00000001 


138 


(1) 


FILSC.DIR.SlZE 


00000024 


169 


(1) 


FIL$C_SIZE 


00000218 


153 


(1) 


FILSFINDFILID 


000002ED-R 


947 


(9) 


FIL$GQ_CACHE 


00000000-XR 






FILSGT_DDDEV 


00000000-XR 






FILSGT DDSTRING 


00000000-XR 






FILSGTlTOPSYS 


00000000-XR 






FIL$L BlRMAX 


oooooooc 


153 


(1) 


FILSLlDIRNXT 


00000008 


153 


(1) 


FILSL.DIROFF 


00000004 


153 


(1) 


FILSL DIR BFOFF 


00000018 


169 


(1) 


FJLSLlDIR LBN 


00000014 


169 


(1) 


FILSL LBNRAX 


00000014 


153 


(1) 


FILSL.LBNNXT 


00000010 


153 


(1) 


FILSL LBNOFF 


oooooooc 


153 


(1) 


FILSM&UNT 


0000025D-R 


801 


(8) 


FILSOPENFILE 


OOOOOOOC-R 


328 


(2) 


FILSQ DIR HDR 


00000010 


169 


(1) 


FILSRBCHKFILHDR 


000005F4-R 


1457 


(13) 
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#-1841 

1063 

#-1064 

#-1917 

#-1487 

#-1657 

116 

131 

1139 

#-1482 

123 
#-1139 
#-1515 
118 
#-1514 
#-1929 
#-1928 
1066 
117 
416 
#-1483 
#-433 
963 
#-1011 
424 
#-1036 



#-1940 
#-814 
#-1495 
1274 
#-356 
#-1241 
943 
176 
#-535 
449 
180 
#-598 
181 
359 
182 
#-1242 
#-1240 
#-979 
#-530 
#-1023 
#-1031 
#-1079 
#-1079 
#-543 
537 
426 

#-1020 
1047 



(17) 

(9) 

(9) 

(18) 

(13) 

(15) 

(1) 

(1) 

(10) 

(13) 

(1) 

(10) 

(13) 

(1) 

(13) 

(18) 

(18) 

(9) 

(1) 

(2) 

(13) 

(2) 

(9) 

(9) 

(2) 

(9) 



(18) 

(8) 

(13) 

(11) 

(2) 

(10) 

(9) 

(1) 

(3) 

(2) 

(1) 

(4) 

(1) 

(2) 

(1) 

(10) 

(10) 

(9) 

(3) 

(9) 

(9) 

(9) 

(9) 

(3) 

(3) 

(2) 

(9) 
(9) 
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#-855 



#-1839 
#-862 



1482 
#-433 

#-434 
982 
1013 
546 

#-1073 



#-816 

#-853 

#-528 
#-1245 
#-996 
#-526 



190 

#-601 

192 

194 
#-535 
#-1244 

#-978 
#-1034 
#-1071 
#-543 
#-1086 
#-600 
#-538 
549 



(1) 
(8) 



(17) 
(8) 



#-1600 (14) #-1838 (17) 



#-1652 (15) #-1685 (16) #-1840 (17) 



(13) 

(2) 

(2) 
(9) 
(9) 
(3) 
(9) 



(8) 

(8) 

(3) 
(10) 
(9) 
(3) 



(1) 
(4) 
(1) 

(1) 
(3) 
(10) 

(9) 
(9) 
(9) 
(3) 
(9) 
(4) 
(3) 
(3) 



1515 
#-434 



983 
#-1238 



176 
#-530 

#-354 

633 

437 
537 

#-531 



#-1107 

#-1093 

#-600 

#-1109 

#-601 



(13) 
(2) 



(9) 
(10) 



(1) 
(3) 

(2) 

(b) 

(2) 
(3) 
(3) 



(9) 
(9) 
(4) 
(9) 
(4) 



862 (8) 



984 (9) 

#-1239 (10) 



#-532 
#-531 

#-551 



#-599 
#-599 



(3) 

(3) 

(3) 



(4) 

(4) 



#-538 (3) 



462 (2) 
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F 13 
27-JUL-1984 


Fiche 


7 Frame 


F13 Seguence 1397 

11 Macro V03-01 Page 52 v 

:[SYS0.SYSMAINT3FILEREAD.MAR;<19) 


FILEREAD 


- FJLES11 LEVEL 1 


& 2 FJLE 


READING ROUTI 


27-JUL-1984 15:15 


:33 VAX- 


Cross reference 












12-APR-1983 15:57:42 DMA1 


FILSRDWRTLBN 


00000000-XR 






1095 

846 

1490 


(9) 
(8) 
(13) 


1377 


(12) 


1624 


(14) 810 (8) 


FILSREADVBN 


000006D3-R 


1594 


(14) 










FILSSTATBLK 


0000078A-R 


1827 


(17) 


1501 


(13) 










FIL$TJ>IRJIAM 


00000006 


169 


(1) 


#-1102 


(9) 


#-1233 


(10) 


#-976 


(9) 977 (9) 










982 


(9) 


#-994 


(9) 






F1LSUR1TEVBN 


000006CC-R 


1589 


(14) 














FILSW.CACHE ID 


00000000 


153 


(1) 


#-356 


(2) 


#-528 


(3) 






FILSW DIR.BFCNT 


0000001 C 


169 


(1) 


#-1024 


(9) 


#-1033 


(9) 


#-1106 


(9) 


F1L$W"D1R_BKCNT 


00000010 


169 


(1) 


#-1032 


(9) 


#-1072 


(9) 






FILDSt 


=00000008 


929 


(9) 


#-1152 


(10) 


#-1269 


(11) 


#-965 


(9) 


FILHDR 


=00000004 


1818 


(17) 


1469 


(13) 


#-1599 


(14) 


#-1837 


(17) #-417 (2) 


FILIO 


=00000018 


1443 


(13) 


1013 


(9) 


1225 


(10) 


#-1279 


(11) #-1318 (11) 










#-1325 


(11) 


#-1333 


(11) 


#-1334 


(11) 1472 (13) 










#-1526 


(13) 


964 


(9) 






FILNAM 


=00000008 


514 


(3) 


#-366 


(2) 


#-637 


(5) 






FIL GQ CACHE 


00000000-R 


189 


(1) 


#-342 


(2) 










filjjOddev 


00000004-R 


191 


(1) 


#-631 


(5) 










FIL 6T TOPSYS 


00000008-R 


193 


(1) 


#-435 


(2) 










F1N5 LFVEL1 


0000053B-R 


1260 


(11) 


#-1123 


(9) 










FINDJ_EVEL1 1 


00000546-R 


1268 


(11.) 


#-1038 


(9) 










FIND LEVEL2 


0000045F-R 


1138 


(10) 


#-1122 


(9) 










FIND LEVEL2 1 


0000046B-R 


1151 


(10) 


#-1037 


(9) 










FM1SB INUSE 


=00000008 






#-1653 


(15) 










FM1$C"P0INTERS 


=00OO000A 






#-1654 


(15) 










FMUVTEX FILNUM 


=00000002 






#-1518 


(13) 










FM2$S C0DNT2 


=00OO000E 






#-1753 


(16) 










FM2SSIF0RMAT 


=00000002 






#-1700 


(16) 










FM2$3„HIGHLBN 


=00000006 






#-1738 


(16; 










FM2$V„C0UNT2 


=00000000 






#-1753 


(16) 










FM2$V M F0RMAT 


=00OO000E 






#-1700 


(16) 










FM2SV HIGHLBN 


=00000008 






#-1738 


(16) 










FORMAT1 


0000076A-R 


1736 


(16) 


1705 


(16) 










FORMAT2 


0000077D-R 


1751 


(16) 


1705 


(16) 










FORMAT 3 


00000753-R 


1714 


(16) 














FORMDIRSTRING 


000001F1-R 


713 


(7) 


#-442 


(2) 


#-445 


(2) 






GETRTRVPTR 


00000731 -R 


1684 


(16) 


#-1608 


(14) 


#-1847 


(17) 






HDRCNT 


FFFFFFFC 


1453 


(13) 


#-1489 


(13) 


1492 


(13) 


#-1524 


(13) 1527 (13) 


HM1$L IBMAPL8N 


=00000002 






#-835 


(8) 










HM1$W~CHECKSUM1 


=0000003A 






120 


(1) 


#-813 


(8) 






HM1$W~CHECKSUM2 


=000001 FE 






121 


(1) 


122 


(1) 






HM1$W~IBMAPSIZE 


=00000000 






#-836 


(8) 










HMUfcTSTRUCLEV 


=0OOOOOOC 






119 


(1) 


#-820 


(8) 






HM2$LllBMAPLBN 


=00000018 






#-826 


(8) 










HM2$L„MAXFILES 


=0000001 c 






#-828 


(8) 










HM2$W CHECKSUM 


=0000003A 






120 


(1) 










HM2$WlCHECKSUH2 


=000001 FE 






121 


(1) 










HM2$W_CLUSTER 


=0000000E 






#-830 


(8) 










HM2SWJBMAPSIZE 


=00000020 






#-827 


(8) 










HM2SW STRUCLEV 


=0OO00OOC 






119 


(I) 










INCRSB 


0000077A-R 


1741 


(16) 


#-1695 


(16) 


#-1718 


(16) 


#-1755 


(16) 


INIRTRVPTRSCAN 


0000071 3-R 


1649 


(15) 


#-1601 


(14) 


#-1843 


(17) 






10$ READLBLK 


=00000021 






#-1091 


(9) 


#-1377 


(12) 


#-1596 


(14) #-805 (8) 


IO$~WRITELBLK 


=00000020 






#-1591 


(14) 










iofOnction 


^fFfFFFfC 


1585 


(14) 


#-1620 


(14) 










IXFHDR 


=0OOO0OOC 


1440 


(13) 


1469 

#-424 


(13) 
(2) 


#-1470 
#-803 


(13) 
(8) 


#-1496 


(13) #-418 (2) 
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Cross reference 

LBN CACHE CNT 
LIBJCVT.DTB 
NAMBLK 
NAMDSC 

OPENFILEJ 

OPENFILE 2 

PLACEMENT 

RDWRTVBN 

READ DIR^HEADER 

READ'DIR LBN 

RTRVPTRBQF 

RTRVPTRLEN 

SAVABS... 
SCRATCHSIZE 
SCRATCH SIZE 
SSS.BADCHKSUM 
SS$ BADFILEHDR 
SS$ BADF RENAME 
SSS'BADIRECTORY 
SSS ENDOFFILE 
SSS'FILESTRUCT 
SSS.NORMAL 

SS$_NOSUCHFILE 
STATBLK 
STORE3DIG1TS 
TMPRTRVDSC 

TMPRTRVLEN 
VBN 
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=00000018 
00000000-XR 
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OOOOOOQC-R 
0000000E-R 
00000761 -R 
000006D8-R 
000003B8-R 
000005C6-R 
=00000010 

=000O000C 

=FFFFFFF0 
FFFFFF98 
FFFFFFDO 
=00000808 
=00000810 
=00000818 
=00000828 
=00000870 
=000008CO 
=00000001 

=00000910 
=00000008 
000001 D8-R 
FFFFFFFO 

FFFFFFF8 
=00000008 
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(2) 


337 


(2) 
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(2) 
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(2) 
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#-457 


(2) 
(2) 


419 
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#-446 
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#-455 
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#-1592 


(14) 
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(9) 


#-1006 


(9) 












1366 


(12) 


#-1198 


(10) 


#-1293 


(11) 
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(17) 
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#-413 


(13) 
(2) 


#-1464 
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(13) 

(2) 


#-1830 


(17) 


#-1832 


1820 


(17) 


#-1467 
#-415 


(13) 
(2) 


#-1504 


(13) 


#-1836 


(17) 


#-1866 


1453 


(13) 
















294 


(2) 


#-336 


(2) 












943 


(9) 


#-949 

#-1997 

#-1941 

#-1131 

#-1128 

#-1614 

#-821 


(9) 

(19) 

(18) 

(9) 

(9) 

(14) 

(8) 


#-950 


(9) 


962 


(9) 








#-1014 


(9) 


#-1247 


(10) 


#-1528 


(13) 


#-1871 






#-552 


(3) 


#-602 


(4) 


#-864 


(8) 








#-1196 


(10) 


#-1328 


(11) 


#-1943 


(18) 




1819 


(17) 


#-1050 


(9) 


1472 


(13) 


#-1473 


(13) 


#-1870 


671 


(6) 


#-729 


(7) 


#-733 


(7) 








1453 


(13) 


#-1466 
#-1508 


(13) 
(13) 


1497 
#-1509 


(13) 
(13) 


#-1505 


(13) 


#-1507 


1453 


(13) 


1498 


(13) 


#-1502 


(13) 








1579 


(14) 


#-1607 


(14) 













(2) 



(17) 
(17) 



(17) 

(17) 
(13) 
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MACRO 
SDEFIN1 



SFATDEF 

SFH1DEF 

SFH2DEF 

SFIDDEF 

SFM1DEF 

SFM2DEF 

SHM1DEF 

SHM2DEF 

SIODEF 

SOFFSET 

SOFFST1 

SPSLDEF 

SSSDEF 

SVADEF 

ASSUME 



CASE 

READLBN 

READVBN 



SIZE 
1 



3 

2 

5 

1 

2 

2 

2 

4 

17 

2 

1 

2 

21 

1 

1 
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Cross Reference 1 












DEFINITION 




REFERENCES... 


78 


(1) 


79 


(1) 


80 
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(1) 
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83 


(1) 


84 


(1) 


85 
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83 


(1) 




83 
















84 


(1) 




84 
















85 


(1) 




85 
















142 


(1) 




142 




1449 


(13) 


157 


(1) 


288 


(2) 


153 


(1) 




1453 


(13) 


153 


(1) 


169 


(1) 


294 


(2) 


86 


(1) 




86 
















87 


(1) 




87 
















88 


(1) 




88 
















116 


(1) 




1141 


(10) 


116 


(1) 


117 


(1) 


118 


(1) 








120 




121 


(1) 


122 


(1) 


123 


(1) 








131 




1469 


(13) 


1472 


(13) 


524 


(3) 








962 


(O) 


963 


(9) 


982 


(9) 






817 


(8) 




1701 


(16) 


1914 


(18) 


817 


(8) 






102 


(1) 




1377 


(12) 














92 


(1) 
CPL 




1490 


(13) 
















! Performance indicators ! 




Page faults 


J Time 




Elapsed 1 


rime 




35 


00: 


00:00 


.10 


00:00:00 


,26 












135 


00:00:00 


.78 


00:00:01 


.66 












867 


00: 


00:19 


.51 


00:00:28 


.41 















00: 


00:02 


.09 


00:00:04 


.11 












451 


00: 


00:06 


.21 


00:00:14 


.57 












5 


00:00:00 


.15 


00:00:00.20 












5 


00: 


00:00 


.02 


00:00:00 


.02 












55 


00: 


00:00 


.93 


00:00:01 


.29 












1558 


00: 


00:29,81 


00:00:50 


.52 













81 
86 



(1) 
(1) 



937 
943 



119 
128 
537 



(9) 
(9) 



(1) 
(1) 
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Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

99309 bytes (194 pages) of virtual memory were used to buffer the intermediate 
The r e were 80 pages of symbol table space allocated to hold 1297 non-local and 
2005 source lines were read in Pass 1, producing object records in Pass 2. 
76 pages of virtual memory were used to define 25 macros. 



code. 
111 local 



symbols. 
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+— — .™— .* ™— — . — + 

! Macro library statistics ! 
+ — -™™™— •— .•+ 

Macro library name Macros defined 

DMA1:[SYS0.SYSMAINT]DS.MLB;218 

DMA1 :[SYS0.SYSMAINT3DIAG.MLB;953 

SYS$SYSR00T:CSYSLIB]LI8.ML8;1 10 

SYS$SYSROOTiCSYSLIB3STARLET.MLB;2 10 

TOTALS (all libraries) 20 

1360 GETS were required to define 20 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=[DS.LISD/CR0SS/ENABLE= (DEBUG, TRACE) FILEREAD/UPDA=(F J LEREAD,UPD, FILEREAD. ENH)+SYS$LIBRARY :LIB/L, 9RARY+DMA1 : CSYSO 



ZZ-ENSAA-7.0 

FLAGS 

Table of contents 

84 
114 
136 
191 
237 
287 
337 
407 



*** FLAGS Set/Clear/Show flags 

*** FLAGS Set/Clear/Show flags 



Libraries, Macros, Equated Symbols 
Data Psect Declarations 
VRSetFlg Routine - Set control flaqs 
VRClrFlg Routine - Clear control flags 
VRSetEF Routine - Set event Haas 
VRClrEF Routine - Clear event flags 
VRShowFlg Routine - Show control Hags 
VRShowEF Routine - Show event flags 



J 13 
27-JUL-1984 Fiche 7 Frame J13 Seguence 1401 

27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 
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FLAGS 

07-13 



*** FLAGS Set/Clear/Show flags 

*** FLAGS Set/Clear/Show 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
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4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



K 13 „,^ 

27-JUL-1984 Fiche 7 Frame K13 Sequence 1402 
flags 27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 1 

23-MAY-1984 14:12:42 DMA1 :CSYS0.SYSMAINTJFLAGS.MAR;52 (1) 

.TITLE FLAGS *** FLAGS Set/Clear/Show flags 

. IDENT /07-13/ 

.NoShow Conditionals ; LIU 



Copyright (c) 1977, 1982 
DIGITAL EQUIPMENT CORPORATION, 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL A7 ALL TIMES 
REMAIN IN DEC, 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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FLAGS 
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*** FLAGS Set/C Lear/Show flags 

*** FLAGS Set/Clear/Show flags 
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++ 
FACILITY: 



VAX DIAGNOSTIC SUPERVISOR 
ABSTRACT: 

Set/clear/show control and event flags. 
ENVIRONMENT: 
AUTHOR: 

TOM SOUTTER 17-N0V-77 VERSION 01 



MODIFIED BY: 
01 



02 



TOM SOUTTER 21-NOV-77 VERSION 02 
DSPR #14 - DEFAULT FLAGS SETTING. 



KEN CHAPMAN 05-DEC-77 
DSPR #45 - REMOVED HALTI. 



VERSION 03 (ESSAA-3.05) 



03 
04 
05 

06 

07 

08 

09 



10 
11 



KEN CHAPMAN 09-JAN-78 VERSION 04 (ESSAA-3.06) 
DSPR #14 - DEFAULT FLAG SETTING (AND CLEARING). 
SET AND CLEAR FLAGS ALL SHOULDN'T MODIFY APT FLAGS, 

KEN CHAPMAN 19-JAN-78 VERSION 05 (ESSAA-3.07) 
FIXED SET AND CLEAR FLAGS ALL BY DEFINING DSASM.ALtFLAGS. 

Dave Butenhof 15-feb-80 
Include SEARCH flag 

Dave Butenhof 30-apr-80 

Change DSA$GL_FLAGS references from word relative to long 

relative 

- Jack Stansbury, 22-Oct-1981 , Version 6.- 

Fixed truncation errors by changing remaining W A 's to L A . 
Also added .LIBRARY statements for $DS and SDIAG. 

- Jack Stansbury, 4-Nov-1981, Version 6.- 
Took out all references to the following: 

LOCK, SPOOL, COMPAT, ENSPEC, HALTD, HALTI, SUBMIT, LOG, and 
CONSOLE. These flags are no longer used anywhere. I changed 
the HALTD and HALTI flags to just plain HALT. 

- Jack Stansbury, 12~Nov-1981, Version 6.- 
Added the VERIFY and BINARY flags. 

- Jack Stansbury, 25-Mar-1982, Version 6.? 
Added typecoding to the print statements. 



[12] Dave Butenhof, 07-May-1932, version 6,8 
Fix truncation error 

C13J Marion Baggett, 16-June-1982, Version 6,8 
Show HALT flag it cleared. 



M 13 , „,„, 

ZZ-ENSAA-7.Q *** FLAGS Set/Clear/Show flags ai 27-JUL-1984 « Fjghe 7 Frame M13 t $S? uence UO t ? 

FLAGS *** FLAGS Set /Clear/Show flags 27-JUL-1984 15:20:25 VAX-11 Macro V03-0T Page 3 

07-13 23-MAY-1984 14a12:42 DMA1 :CSYS0,SYSMAINTJFLAGS.HAR;52 (1) 

0000 82 ; — 



._.__] 



ZZ-ENSAA-7.0 

FLAGS 
07-1 S 



Libraries, Macros, Equated Symbols 

*** FLAGS Set/Clear/Show flags 
Libraries, Macros, Equated Symbols 



27-JUL-1964 Fiche 7 Frame N13 Seguence 1405 

27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 
23-MAY-1984 14:12:42 DMA1 :[SYS0.SYSMAINT]FLAGS.MAR;§2 



4 

(1) 



0000 


84 


0000 


85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


cooo 


98 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0000 


103 


0000 


104 


00000002 0000 


105 


0000 


106 


OOO0OO0E 0000 


107 


0000 


108 


0000 


109 


0000 


110 


0000 


111 


000037FD 0000 


112 



•SBTTL Libraries, Macros, Equated Symbols 
INCLUDE FILES: 



.L'brary 
.Library 
.Library 



MACROS: 

EQUATED SYMBOLS: 

$DS DSADEF 
CLIDEF 
ENVDEF 
$DS_TypeDef 

$E.MV 

LEFTMOSTFLAG 

DSA$M_ALL FLAGS 



/SysJLibrarytLib/ 

/$DS/ 

/$DIA6/ 



[11] 
[08] 
[08] 



; CONTROL FLAG DEFINITIONS 
; CLI COMMAND BLOCK OFFSETS 
; ENVIRONMENT BIT DEFINITIONS 
; Define TypeCodes 

13V„ENV ; FORCE SS CALLS TO SS VECTORS 

DSA*V_SEARCH ; MSB for CVTREG function 



[11] 



DSA$M,HALT ! DSA$M„LOOP 

DSA$M IE1 ! DSASMJE2 

DSA$M~QUICK ! DSA$M„VERJF Y 

DSA$M~0PER ! DSASM.PROMPT 



DSA$M_BELL 
DSA$M IE3 
DSASMlTRACE 
DSA$M_IES 



[10] 
C09] 
[10] 
C09] 



ZZ-ENSAA-7.0 
FLAGS 



B 14 
Data Psect Declarations 27-JUL-1984 

*** FLAGS Set/Clear/Show flags 
Data Psect Declarations 



Hche 7 Frame B14 



Sequence 1406 



4 Fiche / Frame BH beguence i*uo 
7-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 
3-MAY-1984 14:12:42 DMA1 :CSYS0.SYSMAIMT]FLAGS.MAR;52 



5 

(1) 



66 20 6C 6F 72 
20 3A 20 74 65 



66 20 6C 6F 72 
20 3A 72 61 65 



61 6C 66 20 74 
21 43 41 21 20 



6D 6F 72 50 2C 
61 72 54 2C 2C 
75 51 2C 79 66 

2C 32 45 49 2C 

6F 6F AC 2C 6C 
6C 61 48 2C 79 



30 32 2C 31 32 

36 31 2C 37 31 
32 31 2C 33 31 

37 2C 38 2C 39 

31 2C 32 2C 33 



74 6E 6F 43 
73 20 20 73 



74 6E 6F 43 

6C 63 20 73 

2F 21 



6E 65 76 45 
3A 74 65 73 



68 63 72 61 
72 65 70 4F 

69 72 65 56 

2C 
33 45 49 2C 
6C 65 42 2C 
72 61 6E 69 



2C 3^ 32 2C 

2C 38 31 2C 

2C 34 31 2C 

2C 30 31 2C 

2C 34 2C 35 



0000 

0000 

0000 

0000 

0000 

00000000 

0000 

0000 

2F 21 00 1 0000 

67 61 6C 000C 

43 41 21 0018 

1A 0000 

0018 

0018 

2f 21 00' C018 

67 61 6C 0027 

43 41 21 0033 

U 001B 

0038 

2F 21 00' 0038 

20 73 67 0044 

2f 0050 

18 0038 

0051 

0051 

65 53 00 f 0051 

2C 74 70 005D 

2C 65 63 0069 

6B 63 69 0075 

53 45 49 0079 

31 45 49 0085 

42 2C 70 0091 

74 009D 

4C 0051 

009E 

33 32 00' 009E 

39 31 2C OOAA 

35 31 2C 0086 

31 31 ?C 00C2 

2C 36 2C OOCE 

38 0096 



.Subtitle 
OWN STORAGE: 



Data Psect Declarations 



114 
115 
116 
117 
118 
119 
120 

121 FMTSHOWFLGS: 

122 .ASCJC .'/Control flags set : IAC. 



.Psect Data, Shr, NoExe, NoWrt, 9yte 



123 

124 FMTSHOWFLGC: 

125 .ASCJC .i/Control flags clear: !AC!/. 



126 

127 FMTSHOWEF: 

128 .ASCIC .S/Event flags set* !AC!/. 



129 

130 AFLAGMNfi: 

131 .ASCIC . Search. Prompt, Oper,, Trace, Verify, Qui ck,,- 



132 



.IES,IE3,IE2,IE1, Bell, loop,B1nary, Halt. 



[103 
C103 



133 AEFNMNEt 

134 .ASCJC ,23,22, 21 ,20, 19, 18, 17,16,15,14, 13, 12. 11, 10, 9, 8, 7,6,5,4,3,2,1. 



■ i i 



Z2-ENSAA-7.0 

FLAGS 

07-13 



VRSetFLg Routine - Set control flags 

*** FLAGS Set/Clear/Show flags 
VRSetflg Routine - Set control 



C 14 

27-JUL-1984 

27-JUL-1984 
flags 23-MAY-1984 



Frame C14 Sequence 1407 

VAX-11 Macro V03-0T Page 6 
14:12:42 DMA1 :CSYS0.SYSMAINT]FLAGS,MAR;§2 (1) 



Fiche 7 
15:?0:25 



OODA 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



136 

137 

138 

139 

HO 

141 

142 

143 

144 

H5 

H6 

147 

H8 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 



+ + 



,SBTTL VR r etFlg Routine - Set control flags 
.PSECT CODE, SRR, EXE, NOWHT, BYTE 

FUNCTIONAL DESCRIPTION: 

SETS SPECIFIED OPERATOR CONTROL FLAGS 
CALLING SEQUENCE: 

BSSW VRSETFLG 
INPUT PARAMETERS: 

CLI$L_DATA = MASK OF SPECIFIED FLAGS 
IMPLICIT INPUTS* 

R2 = BASE ADDRESS FOR CLJ DATA BLOCK <DS$GL_CL1BASE) . 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 VRSetFlg Routine - Set control 


FLAGS 


*** 


FLAGS 


Set/C 


07-13 


VRSetFLg Routin 






0000 


173 


OB 62 OC 


E1 


0000 


174 






0004 


175 


OOOOFEOO'EF 0000'8F 


BO 


0004 


176 






OOOD 


177 


13 


11 


OOOD 


178 






OOOF 


179 


1C A2 


D5 


OOOF 


180 


06 


18 


0012 


181 


1C A2 37FD 8F 


3C 


0014 


182 






001A 


183 






001A 


184 


OOOOFEOO'EF 1C A2 


C8 


001A 


185 






0022 


186 






C022 


187 






0022 


188 




05 


0022 


189 



flags 

lear/Show flags 
e - Set control 

VRSETFLG: : 

BBC 

MOVW 



D 14 
27-JUL-1984 Fiche 7 Frame D14 Sequence 1408 

27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 
flags 23-MAY-1984 14:12:42 DMA1 :[SYS0.SYSMAINT3FLAGS.MAR;52 



7 

(1) 



10$: 



BR8 

TSTL 
BGEQ 
MOVZWL 



20$: BJSL2 



VRSETFLG X: 
RSB 



#CH$V DEFAULT, - 
CLI$E FLAGSCR2) 

*DSA$M J5FLTFLGS, ■ 
L A DSA$GL. FLAGS 

VRSETFLG_X 

CH$L_DATA(R2) 
20$ 

#DSA$M ALLFLAGS, « 
CLI$C^DATA(R2) 

CL1SL DATA(R2), - 
L A D3A$GL. FLAGS 



10$ 



SET TO DEFAULT ? 
Yes, plug in default 



CHECK FOR ALL. 
SKIP JF NOT. 
GET "ALL" FLAGS. 



No, set the specified flags 



RETURN 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



E 14 

27-JUL-1984 



VRClrFlg Routine - Clear control flags 

*** FLAGS Set/Clear/Show flags 
VRClrFlg Routine - Clear control flags 



Fiche 7 Frame EH 



Sequence 1409 



27-JUL-1984 15:20:25 
23-MAY-1984 14:12:42 



VAX-1 1 Macro V03-01 Page 8 
DMA1:CSYS0.SYSMAINT3FLAGS,MAR;52 (1) 



0023 


191 


0023 


192 


0023 


193 


0023 


194 


0023 


195 


0023 


196 


0023 


197 


0023 


198 


0023 


199 


0023 


200 


0023 


201 


0023 


202 


0023 


203 


0023 


204 


C023 


205 


0023 


206 


0023 


207 


0023 


208 


0023 


209 


0023 


210 


0023 


211 


0023 


212 


0023 


213 


0023 


214 


0023 


215 


0023 


216 


0023 


217 


0023 


218 


0023 


219 


0023 


220 


0023 


221 


0023 


222 


0023 


223 


0023 


224 


0023 


225 



++ 



•S8TTL VRClrFlg Routine - Clear control flags 
FUNCTIONAL DESCRIPTION: 

CLEARS SPECIf JED OPERATOR CONTROL FLAGS 
CALLING SEQUENCE: 

BS8W VRCLRFLG 
INPUT PARAMETERS: 

CLISL.DATA = MASK OF SPECIFIED FLAGS 
IMPLICIT INPUTS: 

R2 = BASE ADDRESS FOR CLI DATA BLOCK <DS$GL_CLIBASE>. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.G 

FLAGS 

07-13 



F 14 

VRClrFlg Routine - Clear control flags 27-JUL-1984 . Fjche 7 Frame F14 

*** FLAGS Set/Clear/Show flags 27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Pa 
VRCLrFLg Routine - Clear control flags 23-MAY-1984 14:12:42 DMA1 .-[SYSO.SYSMAINTJFLAGS.MAR; 



Sequence 1410 
t-OT 



1C A2 

06 

1C A2 37FD 8F 

OOOOFEOO'EF 1C A2 



0023 227 VRCLRFLG:: 

D5 0023 228 TSTL 

18 0026 229 BGEQ 

3C 0028 230 M0VZWL 

002E 231 

002E 232 

CA 002E 233 10$: BICL2 

0036 234 

05 0036 235 RSB 



CLI$L_DATA(R2) 
10$ 

#DSA$M ALLFLAGS, - 
CLI$Cj>ATA(R2> 

CLI$L DATA(R2), - 
L A D5A$GL.FLAGS 



CHECK FOR "ALL"- 

BR IF NOT. 

GET "ALL" FLAGS. 



Clear specified flags 
RETURN 



9 
(1) 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



VRSetEF Routine - Set event flags 



*** FLAGS Set/Clear/Show flags 
VRSetEF Routine - Set event flags 



6 14 

27-JUL-1984 



0037 


237 


0037 


238 


0037 


239 


0037 


240 


0037 


241 


0037 


242 


0037 


243 


0037 


244 


0037 


245 


0037 


246 


0037 


247 


0037 


248 


0037 


249 


0037 


250 


C037 


251 


0037 


252 


0037 


253 


0037 


254 


0037 


255 


0037 


256 


0O37 


257 


0037 


258 


0037 


259 


0037 


260 


0037 


261 


0037 


262 


0037 


263 


0037 


264 


0037 


265 


0037 


266 


0037 


267 


0037 


268 


0037 


269 


0037 


270 


0037 


271 



+ + 



Fiche 7 Frame G14 Seguence 1411 
_ .JL-1984 15:20:25 VAX-11 Macro V03-0T Page 
23-MAY-1984 14:12:42 DMA1 :[SYS0.SYSMAINTJFLAGS.MAR;52 

.SBTTL VRSetEF Routine - Set event flags 
FUNCTIONAL DESCRIPTION: 

SETS OPERATOR SPECIFIED EVENT FLAGS (1-23 ONLY) 
CALLING SEQUENCE: 

BS8W VRSETEF 
INPUT PARAMETERS: 

CLISL.DATA = MASK OF SPECIFIED FLAGS 
IMPLICIT INPUTS: 

R2 = BASE ADDRESS FOR CLI DATA BLOCK <DS$GL_CLIBASE) . 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



10 
(1) 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



VRSetEF Routine 



08 
1C A2 FF000001 8F 



53 
09 1C A2 



17 
53 



EF 53 
08 



- Set event flags 

*** FLAGS Set/Clear/Show 

VRSetEF Routine - Set event 



flags 



27-JUL-1984 Fiche 7 Frame H14 Seguence 1412 
gs 27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 

flags 23-MAY-1984 14:12:42 DMA1 :[SYS0.SYSMAJNT]FLAGS.MAR;52 



11 

(1) 



0037 

BB 0037 

CA 0039 

0041 

0041 

DO 0041 

0044 

E1 0044 

0049 

0052 

F5 0052 

BA 0055 

05 0057 



273 VRSETEF:: 



274 

111 

276 

27/ 

278 10$: 

279 

280 20$: 

281 

282 

283 30$: 

284 

285 



PUSHR * A M<R3> 
BICL rXFF000001, - 
CLI$L.,DATA(R2) 

MOVL #23, R3 

BBC R3, CLJ$L^DATA(R2), 30$ 
$SETEF_S R3 



SOBGTR 

POPR 

RSB 



R3,20$ 
A M<R3> 



SAVE SOME WORKING REGISTERS 
CLEAR ILLEGAL FLAGS 



UPPER FLAG NUMBER LIMIT 

EFN SPECIFIED ? 
YES, THEN GO SET IT 

NEXT TILL DONE (DON'T DO 0) 

RESTORE REGISTERS 

RETURN 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



VRClrEF Routine - Clear event flags 

*** FLAGS Set/Clear/Show flags 
VRClrEF Routine - Clear even? flags 



I 14 
27-JUL-1984 Fiche 7 Frame II A Seguence 1413 

27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 12 
23-MAY-1984 14:12:42 DMA1 :CSYS0.SYSMAINT]FLAGS.MAR;52 (1) 



0058 


287 


.5BTTL VRClrEF Routine - Clear event flags 


0058 


288 ; 


++ 


0058 


289 ; 


FUNCTIONAL DESCRIPTION: 


0058 


290 ; 




0058 


291 ; 


CLEARS OPERATOR SPECIFIED EVENT FLAGS (1-23 ONLY) 


0058 


292 ; 




0058 


293 ; 


CALLING SEQUENCE: 


0058 


294 ; 




0058 


295 ; 


BSBW VRCLREF 


0058 


296 ; 




0058 


297 ; 


INPUT PARAMETERS: 


0058 


298 ; 




0058 


299 . 


CLISL.DATA = MASK OF SPECIFIED FLAGS 


0058 


300 . 




C058 


301 . 


IMPLICIT INPUTS: 


0058 


302 , 




0058 


303 , 


R2 = BASE ADDRESS FOR CLI DATA BLOCK (DSSGL.CLIBASE) 


0058 


304 ( 




0058 


305 ( 


OUTPUT PARAMETERS: 


0058 


306 ( 




0058 


307 ( 


NONE 


0058 


308 , 




0058 


309 , 


IMPLICIT OUTPUTS: 


0058 


310 , 




0058 


311 , 


NONE 


0058 


312 t 




0058 


313 


• COMPLETION CODES: 


0058 


314 




0058 


315 


NONE 


0058 


316 




0058 


317 


; SIDE EFFECTS: 


0058 


318 




0058 


319 


; NONE 


0058 


320 




0058 


321 


• •« 



ZZ-ENSAA-7.0 

FLAGS 
07-13 



J 14 
VRClrEF Routine - Clear event flags 27-JUL-1984 Ffche 7 Frame JU Seguence 1414 

*** FLAGS Set/Clear/Show flags 27-JUL-1984 15:20:25 VAX-11 Macro V03-01^ Page 13 

VRClrEF Routine - Clear event flags 23-MAY-1984 14:12:42 DMA1 :CSYS0.SYSMAIMTDFLA6S.MAR;52 (1) 



08 
1C A2 FF000001 8F 



53 
09 1C A2 



17 
53 



EF 53 
08 



0058 

B8 0058 

CA 005A 

0062 

0062 

DO 0062 

0065 

E1 0065 

006A 

0073 

F5 0073 

BA 0076 

05 0078 



323 VRCLREF:: 



324 

325 

326 

327 

328 10$: 

329 

330 20$: 

331 

332 

333 30$: 

334 

335 



PUSHR # A M<R3> 
BJCL #*XFF000001, - 
CLI$LJ>ATA<R2> 

MOVL #23, R3 



BBC 
$CLREF_S 

SOB6TR 

POPR 

RSB 



R3, CLI$L_DATA(R2), 30$ 
R3 

R3,20$ 
# A M<R3> 



SAVE SOME WORKING REGISTERS 
CHECK FOR ILLEGAL FLAGS 



UPPER FLAG NUMBER LIMIT 

EFN SPECIFIED ? 

YES, THEN GO CLEAR IT 

NEXT TILL DONE (DON'T DO 0) 

RESTORE REGISTERS 

RETURN 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



VRShowFlg Routine - Show control flags 

*** FLAGS Set/Clear/Show 
VRShowFlg Routine - Show 



0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
C079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 



337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 



K 14 
27-JUL-1984 Fiche 7 Frame K14 Seguence 1415 
flags 27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 
control flags 23-MAY-1984 14:12:42 DMA1 :CSYS0.SYSMAINT3FLAGS,MAR;52 

.S8TTL VRShowFlg Routine - Show control flags 



14 
(1) 



FUNCTIONAL DESCRIPTION: 

DISPLAYS OPERATOR CONTROL FLAGS WHICH ARE SET FOLLOWED BY 
THOSE WHICH ARE CLEAR (I.E., DISPLAYS ALL CONTROL FLAGS) 

CALLING SEQUENCE: 

BS8W VRSHOWFLG 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

DSA$GL_FLAGS = FLAGS WHICH ARE TO BE DISPLAYED 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



L 14 
27-JUL-1984 Fiche 7 Frame L14 Seguence 1416 

*** haw set/iLear/anow nags 27-JUL-1984 15 :20:25 VAX-11 Macro V03-0T Page 

VRShowFlg Routine - Show control flags 23-MAY-1984 14:12:42 DMA1 :[SYS0.SYSMAINT]FLAGS.MAR;52 



VRShowFlg Routine - Show control flags 

*** FLAGS Set/Clear/Show flags 



15 
(1) 



04 BB 



52 QOOOFEOQ'EF 02 



04 



BA 
05 



0079 

0079 

0078 

007B 

007B 

0078 

007B 

007B 

00A8 

00A8 

00A8 

00A8 

00A8 

00A8 

00C1 

00C1 

00C8 

00C8 

00C8 

00C8 

00C8 

00C8 

00C8 

00F1 

00F1 

00F1 

00F1 

00F1 

00F1 

01 0A 

01 0A 

010C 



374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 



VRSHOWFLG: 

PUSHR 



# A M<R2> 
$DS,CVTREG S 

MSB=*LEFTMOSTFLAG, 
DATA=L A DSA$GL FLAGS, 
MNEADR=L*AFLAGMNE, 
STRBUF=L A DS$GT STRBUF, 
MAXLEN=#DS$K,STRBUF 

SPrint - 

#DS$K Type Command.Out, 
#DS$K PMnTF, - 
l a fmtShouflgs, - 
#ds$gt_strbuf 

MCOML L A DSA$GLjaAGS, R2 

$DS,CVTREG S 

MSB=#LEFTMOSTFLAG, 

DATA=R2 " 

MNEADR*L A AFLA6MNE, 

STRBUF=L A DS$GT STRBUF, 

MAXLEN=#DSSK_STRBUF 



SPrint - 



P0PR 
RSB 



#DS$K.Type - ,Command_Out / 
#DS$K PrintF, - 

l a fmt3howflgc - 
jdssg^strbuf 

# A M<R2> 



SAVE A WORKING REGISTER 
BUILD MNEMONIC STRING 
FIRST BIT TO BE INTERPRETED 
Register Location 
CONTROL STRING ADDRESS 
MNEMONIC STRING BUFFER 
SIZE OF ABOVE BUFFER 

Display flags which are set 
: ... typecode number 
... type of print 
... the format string 
.. the converted register output 

Get cleared flags 

BUILD MNEMONIC STRING 
FIRST BIT TO BE INTERPRETED 
REGISTER LOCATION 
CONTROL STRING ADDRESS 
MNEMONIC STRING BUFFER 
SIZE OF ABOVE BUFFER 

Display flags which are clear 
; ... typecode number 
... type of print 
... the format string 
.. the converted register output 

RESTORE REGISTERS 
RETURN 



[083 
[083 



[113 
CI ID 

[113 
[113 
C1 13 



[08] 
[083 



[11] 
[11] 
[11] 
[113 
C113 



ZZ-ENSAA-7.0 

FLAGS 

07-13 



VRShowEF Routine - Show event flags 27-JUL-1984 _ Fiche 7 Frame M* «., s £9 uence U1 £ 

*** FLAGS Set/Clear/Show flags 27-JUL-1984 15:20:25 VAX-11 Macro V05-01 Page 
VRShowEF Routine - Show event flags 23-MAY-1984 14:12:42 DMA1 :CSYS0.SYSMA1NT]FLAGS.MAR;52 



16 
(1) 



01 OD 


407 


.SBTTL VRShowEF Routine - Show ev« 


010D 


408 ; 


++ 


010D 


409 ; 


FUNCTIONAL DESCRIPTION: 


010D 


410 ; 




01 0D 


411 . 


DISPLAYS ALL OPERATOR ACCESSA8LE E 


010D 


412 . 


CURRENTLY SET 


01 0D 


413 , 




01 OD 


414 ( 


CALLING SEQUENCE: 


010D 


415 . 




010D 


416 , 


BSBW VRSHOWEF 


010D 


417 , 




01 OD 


418 ( 


INPUT PARAMETERS: 


01 OD 


419 , 




01 OD 


420 , 


NONE 


C10D 


421 ( 




01 OD 


422 , 


IMPLICIT INPUTS: 


01 OD 


423 , 




010D 


424 , 


NONE 


01 OD 


425 t 




010D 


426 t 


• OUTPUT PARAMETERS: 


010D 


427 , 




010D 


428 


NONE 


010D 


429 




010D 


430 


♦ IMPLICIT OUTPUTS: 


01 OD 


431 




010D 


432 


; DS$GL_EFCO = CLUSTER EVENT FLAGS 


01 OD 


433 




010D 


434 


• COMPLETION CODES: 


01 OD 


435 




010D 


436 


; NONE 


010D 


437 




010D 


438 


I SJDE EFFECTS: 


01 OD 


439 




010D 


440 


; NONE 


010D 


441 




010D 


442 


#"" 
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52 OOOOOOOO'EF 



01 0D 444 VRSHOWE 

04 BB 01 OD 445 

010F 446 

FF 8F 9C 01 IE 447 

0127 448 

0127 449 

0127 450 

- 0127 451 

0127 452 

0127 453 

0127 454 

0150 455 

0150 456 

0150 457 

C150 458 

0150 459 

0150 460 

0169 461 

04 BA 0169 462 

05 016B 463 

016C 464 



F:: 

PUSHR * A M<R2> 

SREADEF S J(0,L 4 DS$GL EFCO 

ROTL AM,L A DS$GL_EFC0,R2 

$DS„CVTREGS 
MSB=#22, 
DATA*R2 

MNEADR=L A AEFNMNE, 
STRBUF=L A DSSGT STRBUF, 
MAXLEN=*DS$K STRBUF 



SPrint - 



POPR 

RS8 

.END 



*DS$K Type Command Out 
*DS$K PrintF, - 
L A FMT5H0WEF, - 
<*DS$GT_STR8UF 

# A M<R2> 



SAVE A WORKING REGISTER 
READ EVENT FLAG CLUSTER 
POSITION FOR CVTREG 

BUILD MNEMONIC STRING 
FIRST BIT TO BE INTERPRETED 
REGISTER LOCATION 
CONTROL STRING ADDRESS 
MNEMONIC STRING BUFFER 
SIZE OF ABOVE BUFFER 

Display flags which are set 
: ... typecoae number 
... type of print 
,., the format string 
.. the converted register output 



17 
(1) 



T083 
1123 



[083 
[083 



[113 
[113 
[113 
[113 
[113 



RESTORE 
RETURN 



REGISTERS 
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18 
(1) 



SENV 

AEFNMNE 

AFLAGMNE 

BIT... 

CLISK^BUFSIZ 

CL1SK.S1ZE 

CLl$L,ADDRESS 

CLlSt ..COMMAND 

CL1SL.DATA 

CL1$L FLAGS 

CLISLJ.AST 

CUSL NEXT 

CLISL^PASS 

CLISL SUBT 

CLISLlTEST 

CllSQ BUFQWD 

CLISO^FILE 

CL1SQ_SECTI0N 

CL1SQ.TIME 

CLIST BUFFER 

fLlSV ADAPTER 

CLISV ADR 

CLISV„ASCII 

CLISV BREAK 

CLISV^BRIEF 

CLI$V_BYTE 

CLISV_CLEAR 

CLISV.DEC 

CLISV.DEFAULT 

CUSV.DEPOSIT 

CLISV.EVENT 

CLISVJXAM 

CLI$V„FLAGS 

CLISV^HEX 

CLISV.KERNEL 

CLISV LOAD 

ClI$VlLONG 

CLISV.NOTNUF 

CLISV.OCT 

CLl$V_PREG 

CLISVJM 

CLI$V w QACKLOOPLOOPS 

CU$V QAERRORPRINTS 

CLISV'QAMULTJPLEPASS 

CLISV.QASUBTESTLOOPS 

CLISV QATESTLOOPS 

CLISV.REG 

CLISV REQUIRED 

CLJSV^RUN 

CLISV.5ET 

CLISV.SHOW 

CLISV.VALSEC 

CLISV WORD 

DSSCVTRFG 

DSSGLJFCO 

DS$GT_STRBUF 



* 00000002 
« 00000002 

0000009E 
00000051 

* 00000004 
5 00000100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

OQOOQOJO 

0000005c 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

I0QQ003C 

10000018 

= 00000008 

= 00000013 

= 0000000A 

5 00000018 

= 0000000D 

= 00000002 

s 00000010 

= oooooooc 



.8 





a OOOOOOOF 

* 00000001 
= 00000011 
= 00QQ0Q1A 

* 00000007 

* 0000001 c 
118 
I1F 

he 

>01D 

; urn* 

■ 00000003 

s oooooooc 

= mm ]6 

= OOOOOOOE 

******** 
******** 
******** 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 
X 
X 



o; 
o; 



03 
03 
03 



dssk prints 

dssk printf 

dsskzprinti 

dssk w pr1ntx 

dssk strbuf 

dssk;type„abort^program 

ds$Oype:a8ort:test 

ds$kltype commard err 

dsskjypejommand out 

DSSK TYPE CRD AUTOtEST 

dssk"typeIds Prompt 
dssk~type_d3.start 
dssk type.errdev 
dssk type errhard 

DSSlTTYPE ERR0R_B0DY 
DSSK"TYPE M ERROR end 

dssk type frrprep 
dssk~type_errsoft 
dssk.typejrrsup 

DSSK^TYPElERRSYS 

ds$k"typejrr halt 
dssk typejxception 
dssk.typejxception head 
ds$k"type*fjrst pass 

DSSK^TYPElGENERSL 

ds$k~type„generat error 

dssk type no tests 

dssOype^paRam error 

dsskItype^progrAm^end 

ds$Oype~program"jnfo 

dssk"typeZprogram:<tart 

dssk_type_qiojnvXdp 

dsskjype^qio^nodriver 

dssk~type^qio~wrongver 

dssk.type.scrTptjcho 

dsskjype^scriprpnf 

dssk type script prompt 

DS$0YPEISCRIPT SKIP 
DSSK. TYPE SEQUENCE. ERROR 
DSSKlTYPElSTARTJRR 

dssk type start list 
dssk'type^summaRy 
ps$k!type*user..prompt 
usasXl.apTmail 
dsasat apttxt 
dsasglIaptcom 
dsasgl devlen 
dsasgljrrno 

DSASGLlEVENT 

DSASGLJLAGS 
DSASGL^MSCTYP 

DSASGL.PASSES 

DSASGL w PASSN0 

DSASGL SECTNO 

DSASGLlSID 

DSASGLlSUBTNO 

DSASGL'TESTNO 



= 00000002 
* 00000001 

:r 

******** 




* OOl 

: *L 

= 00000016 
= 00Q00O1A 
= 00000001 
r Q000QQ1D 
= 00000008 
> 00000006 
= 00000009 
» OOOOOOOA 
= 0000001 B 
« 0000000? 

* Q822282* 

■ 00000005 
. OOOOOOOD 

* OOOI 

: " 

: m 

= OOOOl 

■ 0000001 c 
O003O01Q 




FEOI 

IFE4I 

IFEQ8 

FE54 

FE10 

FEU 

FE4C 

IFE50 



D 
D 
D 
D 

t 

*D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 



ZZ-ENSAA-7.0 
FLAGS 
Symbol table 

DSASGLJJNITS 

DSASGQ MSGPTR 

DSA$GOEVNAM 

OSASM^SLLFLAGS 

DSASM^BELL 

DSASMJ)FLTFLGS 

DSASMALT 

DSASMJE1 

DSASMJE2 

DSASMJE3 

DSASMJES 

DSASM LOOP 

DSA$MJ)PER 

DSA$M PROMPT 

DSA$M~QUICK 

DSASMlTRACE 

OSASM VERIFY 

DSA$V~SEARCH 

DSXSPRlNT 

FMTSHOWEF 

FMTSHOWFLGC 

FMTSHOWFLGS 

LEFTMOSTFLAG 

SIZ. • • 

SYSSCLREF 

SYSSREADEF 

SYSSSETEF 

VRCLREF 

VRCLRFLG 

VRSETEF 

VRSETFLG 

VRSETFLG.X 

VRSHOWEF 

VRSHOWFLG 

V ENV 

v;lvl 



Symbol table 



PSECT name 

, ABS . 
SABSS 
DATA 
CODE 



*** FLAGS Set/Clear/Show flags 



C 15 
27-JUL-1984 



7-JUL-1984 
'3-MAY-1984 



Fiche 7 Frame C 1 5 Seguence 1420 
15:20:25 VAX-11 Macro V03-01 
14:12:42 0MA1 J CSYSO, SYSMAINT3FLA6S.MAR 



Page 
R;52 



19 
(1) 



0000FE0C 

0000FE68 

0000FE5C 

= 000037FD 

« 00000008 
******** 

= 00000001 
= 00000010 
= 00000020 
= 00000040 
= 00000080 
= 00000004 
= 00001000 
= 00002000 
= 0000C100 
= 00000400 
= 00000200 

= 0000000E 

******** 

00000038 
0000001 B 
00000000 
= OOOOOOOE 
= 00000001 
******** 
******** 
******** 

00000058 
00000023 
00000037 
00000000 
00000022 
000001 OD 
00000079 
= 00000001 
* 00000000 



D 
D 
D 
D 
D 

*D 
D 
D 
D 
D 
D 

D 

D 
D 
D 
( 


D 
D 
D 




Allocation 

00000000 
0000FE70 
OOOOOODA 
0000016C 



03 



03 
02 
02 
02 



GX 
GX 
GX 
RG D 03 



03 
03 
03 



RG 
RG D 
RG D 
R D 
RG D 
RG D 
D 



81 

03 
03 
03 
03 




^ «i «•«»«*««»«*«»«■«•»«*«»«• »«*^ 




! Psect synopsis ! 




PSECT No. Attributes 


< OJ 00 ( OJ NOPIC USR 
(65136J 01 ( 1J NOPIC USR 
( 218.) 02 ( 2.) NOPIC USR 
( 364 J 03 < 3 J NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 

CON ABS LCL NOSHR EXE RD 

CON REL LCL SHR NOEXE RD 

CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC BYTE 

NOWRT NOVEC BYTE 











D 15 




ZZ-ENSAA-7.0 Cross 


reference 




27-JUL-1984 Fiche 7 Frame D15 Sequence 14Z1 


FLAGS 


*** FLAGS Set/Clear/Show flaas 
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» • 

402 (1) 460 (1) 


Cross reference 
SYMBOL 


VALUE 

=00000002 








! Symbol C 


ross Reference ! 


DEFINITION 


1 REFERENCES. 


460 (1) 


387 


(1) 


$ENV 


=00000002 


105 (1) 








AEFNMNE 


0000009E-R 


133 (1) 


454 


(1) 




AFLAGMNE 


00000051-R 


130 (1) 


381 


(1) 


396 ( 1 ) 


BIT,.. 


=00000004 


103 (1) 


103 


(1) 




CLISK.BUFSIZ 


=00000100 


101 (1) 


101 


(1) 




CUSK SIZE 


00000*44 


101 (1) 








CUSLlADORESS 


00000C18 


101 (1) 








CLI$L COMMAND 


00000004 


101 (1) 








CLISLlDATA 


0000001 C 


101 (1) 


#-180 


(1) 


#-183 (1) #-185 (1) #-228 (1) 








#-231 


(1) 


#-233 (1) #-276 (1) 280 (1) 








#-326 


(1) 


330 (1) 


CLISL^FLAGS 


00000000 


101 (1) 


175 


(1) 




CLI$L_LAST 


00000024 


101 m 








CLISL.NEXT 


00000030 


101 (13 








CLISL.PASS 


0000002C 


101 cu 








CLI$L_SUBT 


00000028 


101 (13 








CLISL^TEST 


00000020 


101 (13 








CLI$Q BUFQWD 


00000034 


101 (13 








CL1SG~FILE 


00000008 


101 (1- 








CLISCf SECTION 


00000010 


101 (13 








CLISQ.JIME 


0000043C 
0000003C 


101 (1- 








CLI$T„BUFFER 


ioi (i: 








CL1$V„ ADAPTER 


=00000018 


101 (1, 








CLI$V„ADR 


=OO00OO0B 


101 (1. 








CLISV^ASCI I 


=00000013 


101 (1. 








CLISV..BREAK 


=0000000A 


101 (1- 








CLl$V„BRIEF 


=0000001B 


101 (1. 








CLISV^BYTE 


=0000000D 


101 (1, 








CLISV.CLEAR 


=00000002 


101 <r 








CLI$V_DEC 


=00000010 


101 (1 








CLISV^DEFAULT 


=O00000OC 


101 (1. 


) #-174 


(1) 




CLI$VJ)EPOSIT 


=00000019 


101 (1- 








CLI$V_EVENT 


-00000008 


101 (1 








CLISV..EXAM 


=00000005 


101 (1 








CtI$V_FLAGS 


=00000009 
=00000012 


101 (1 








CLI$V_HEX 


101 (1 








CLI$V_KERNEL 


=00000017 


101 (1 








CLISV..LOAD 


=00000006 


101 (1 








CLISV LONG 


=0000000F 


101 (1 








CLISV NOTNUF 


-00000001 


101 (1 








CLISV^OCT 


=00000011 
-0000001A 


101 (1 








CLI$V_PREG 


101 (1 








CLI$V„QA 


=00000007 
=0000001 c 


101 (1 








CLISV QACKLOOPLOOPS 


101 (1 








CLISV'QAERRORPR'NTS 


-00000018 


101 (1 








CLI$VlQAMULTIPLL°ASS 


=0000001 F 


101 (1 








CLISV QASUBTESTLOOPS 


=0000001 E 


101 (1 








CLl$V~QATESTLOOPS 


=00000010 


101 (1 








CLISVlREG 


=00000014 


101 (1 






i 
. .. j 



Cross reference 



ZZ-ENSAA-7.0 

FLAGS 

Cross reference 

CllSV REQUIRED 

CL1$V_RUN 

CLISV^SET 

CUSV^SHOW 

CLISV^VALSEC 

CLISV WORD 

DStCVTREG 

DS$GL EFCO 

DSSGT~STRBUF 



dssk printb 

dssk^printf 

dssk_printi 

dssk..pr1ntx 

dssk strbuf 

ds$k~ type abort program 

dssk~type~aboroest 

ds$k"type'commaFJd.err 

dsskltype.command out 

dssk type..crd autdtest 

dssk typej)s_prompt 

dssOypej>s start 

dssk.jype„errdev 

dssk typejrrhard 

dssk_type,error„body 

dssk type error end 

DS$K"TYPElERRPREP 
DS$K~TYPE ERRSOFT 
DSSOYPE'ERRSUP 
DSSK~TYPE~ERRSYS 
DSSK~TYPElERR HALT 
DSSK^TYPEJXCEPTJON 
DSSK TYPE EXCEPTION HEAD 
DS$lTTYPE~nRST PASS 

dssk-type~genersl 
dssk"type_general error 
ds$Oype_nq tests 

DSSK_TYPE„PARAM error 

dssk type progrAmjnd 
dssk-type.prog.iaw.info 
dssk~type_program start 
dssk'type^qiojnvJdp 
dssoype..qio..nodriver 
dssk typejho wrongver 

DSSK~TYPE_SCR7PT_ECH0 

dssk type^script^pnf 
dss^typelscript^prompt 
ds$oype w script skip 
dssk"type sequence error 
dssk type"start err 
dssk~type...start list 
dssk~type summary 
dssk"type'user.prompt 
dsasCl.flSgs 

dsasm allflags 
dsasm~8ell 



*** FLAGS Set/Cle. ,. /Show flags 



=00000000 101 

=00000015 101 

=00000003 101 

=00000004 101 

=00000016 101 

=0000000E 101 

00000000-XR 

00000000-XR 

00000000-XR 

=00000002 103 

=00000001 103 

=00000000 103 

=00000003 103 

00000C00-XR 

=00000014 103 

=00000013 103 

=00000015 103 

=00000016 103 

=U000001A 103 

=00000001 103 

=0000001 D 103 

=00000008 103 

=00000006 103 

=00000009 103 

=0000000A 103 

=00000018 103 

=00000007 103 

=00000004 103 

=00000005 103 

=OOOO00OD 103 

=0000000C 103 

=00000003 103 

=00000011 103 

=00000000 103 

=00000003 103 

=00000012 103 

=0000001 C 103 

=00000010 103 

=00000017 103 

=00Q0000F 103 

=00000024 103 

=00000022 103 

=00000023 103 

=00000021 103 

HE 103 

>20 103 

=0000001 F 103 

=00000019 103 

=00000018 103 

=0QQQQQ$5 103 

=00000006 103 

=00000002 103 

O000FEO0 

=000037FD 112 
=00000008 



E 15 
27-JUL-1984 



Fiche 7 Frame E15 
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381 
446 
381 
454 


(1) 
(1) 
(1) 
(1) 


396 
#-447 
#-387 
#-460 


(1) 
(1) 
(1) 
(1) 


454 
396 


(1) 
(1) 


#-402 


#-387 


(1) 


#-402 


(1) 


#-460 


(1) 




#-381 


(1) 


#-396 


(1) 


#-454 


(1) 





(1) 



#-387 (1) #-402 (D 



#-460 



(1) 



(1) 



#-177 


(1) 


#-186 


(1) 


#-389 


(1) 






#-182 


(1) 


#-230 


(1) 


109 


n> 







#-234 



(1) 



#-381 



(1) 



ZZ-ENSAA-7,0 

FLAGS 

Cross reference 

DSASM DFLTFLGS 

DSA$M"HALT 

DSASM^IEI 

DSASMJE2 

DSASMJE3 

OS ASM IES 

DSASM LOOP 

DSASM'OPER 

DSASM~PROMPT 

DSASM'QUICK 

DSASM TRACE 

DSASMJ/ERIFY 

DSASV SEARCH 

DSXSPRlNT 

fMTSHOWEF 

FMTSHOUFLGC 

FMTSHOWFLGS 

LEFTMOSTFLAG 

SYSSCLREF 

SYSSREADEF 

SYSSSETEF 

VRCLREF 

VRCLRFLG 

VRSETEF 

VRSETFLG 

VRSETFLG.X 

VRSHOWEF 

VRSHOWFLG 
V ENV 
V~LVL 



Cross reference 



*** FLAGS Set/CLear/Show flags 



F 15 
27-JUL-1984 Fiche 7 Frame F15 Seguence 1423 

27-JUL-1984 15:20:25 VAX-11 Macro V03-01 Page 22 

23-MAY-1984 Ui12i42 DMA1 : CSYSO. SYSMAJWTJFLAGS.MAft; 52 (1) 



00000000-XR 




#•176 


(1) 


00000001 




109 


(1) 


00000010 




110 


(1) 


00000020 




110 


(1) 


00000040 




110 


(1) 


00000080 




112 


(1) 


00000004 




109 


(1) 


00001000 




112 


(1) 


00002000 
00000100 




112 


(1) 




111 


(1) 


00000400 




111 


(1) 


00000200 




111 


(1) 


OOOOOOOE 




107 


(1) 


00000000-XR 




387 


<1> 


00000038-R 


127 (1) 


460 


(1) 


0000001 B-R 


124 (13 


402 


(1) 


00000000-R 


121 m 


387 


(1) 


OOOOOOOE 


107 (13 


#-381 


(1) 


00000000-XR 




331 


(1) 


00000000-XR 




446 


(1) 


OOOOOOOO-XR 




281 


(1) 


00000058-R 


323 (1) 






00000023-R 


22? (U 






00000037-R 


273 <1J 






00000000-R 


173 (1, 






00000022-R 


188 d: 


#-178 


(1) 


0000010D-R 


444 (1: 






00000079-R 


374 d: 






00000001 


102 (1. 


> 105 


(1) 


=00000000 


102 d: 







402 



#-396 



(1) 



<1> 



460 



(1) 



ZZ-ENSAA-7.0 

FLAGS 

Cross reference 



Cross reference 



*** FLAGS Set/Clear/Show flags 



G 15 

27-JUL-19 



84 Fiche 7 Frame 

27-JUL-1984 15:20:25 
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+ + 

! Macros Cross Reference ! 



MACRO 



SIZE 



REFERENCES.. 



SCLREF S 


1 


$D1 prTnt^s 


1 


$def 


1 


SDEFINI 


1 


SOS CVTREG_S 


1 


$DSJ)SADEF 


5 


SDS TYPEDEF 


4 


$EQ0 


1 


SEQULS1 


1 


SEQULST 


1 


SGBLIN1 


2 


SPRINT 


2 


SPUSHADR 


1 


SREADEF S 


1 


SSETEF 5 


1 


SVIELDT 


1 


CLIDEF 


3 


ENVDEF 


1 



331 


(1) 


387 


(1) 


100 


(1) 


377 


(1) 


100 


(1) 


103 


(1) 


103 


(1) 


103 


(1) 


103 


(1) 


103 


(1) 


384 


(1) 


381 


(1) 


446 


(1) 


281 


(1) 


101 


(1) 


102 


(1) 



402 
392 



(1) 
(1) 



399 
396 



(1) 
(1) 



DEFINITION 

33? 
387 
103 
100 
377 
100 
103 
103 
103 
103 

384 
381 
446 
281 
103 
101 
102 

+ — —„ + 

! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 34 00:00:00.09 00:00:00.24 

Command processing 139 00:00:00,78 00:00:01.56 

Pass 1 521 00:00:05.77 00:00:08.69 

Symbol table sort O 00:00:00.22 00:00:00.39 

Pass 2 134 00:55:01.35 00:00:02.01 

Symbol table output 18 00:00:00.13 00:00:00.54 

Psect synopsis output 6 00:00:00.03 00:00:00.03 

Cross-reference output 35 00:00:00.53 00:00:00.78 

Assembler run totals 890 00:00:08.91 00:00:14.25 

The working set limit was 1000 pages. 

29743 bytes (59 pages) of virtual memory were used to buffer the intermediate 
There were 20 pages of symbol table space allocated to hold 190 non-local and 
464 source lines were read in Pass 1, producing object records in Pass 2. 
39 pages of virtual memory were used to define 21 macros. 
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code. 
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symbols. 
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! Macro library statistics ! 

Macro library name Macros defined 

DRB1:[DS.W0RK]D1AG.MLB;955 4 

DRBV.CDS, WORLDS. MLB;218 3 

SYS$SYSROOT:CSYSLIB]LIB.MLB;1 

0MA1 :[SYS0.SYSMA1NT3DS.ML8; 218 

DMA1 :CSYS0.SYSMAINTD01AG.MLB;953 

SYS$SYSR00T:CSYSLIB3LIB.MLB;1 

SYS$SYSR00TjCSYSLIB]STARLET.MLB;2 9 

TOTALS (all libraries) 16 

305 GETS were required to define 16 macros. 

There were no errors, warnings or information messages, 

MACno/NOOBJECT/LlST=CDS.LlS]/CROSS/ENABLE= (DEBUG , TRACE) FLAGS/UPDA=(FLAGS. UPD, FLAGS. ENH)+SYS$LIBRARY JLIB/LIBRARY+DMA1 jCSYSO.SYSMAINT 
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FRKCTL *** FRKCTL QIO fork control 

/06-03/ 

MEB 

CND 



*************** ********************* **************************************** 



COPYRIGHT (c) 1976, 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



**************************************************************************** 

D. N. CUTLER 9-AUG-76 

MODIFIED BY R.HEINEN ON 13-0CT-76; ALLOW FORK TO IPL 6 
FORK CREATION AND DISPATCHING 

MODIFIED BY T.L. SOUTTER 20-FEB-78 

ADAPTED TO DIAGNOSTIC SUPERVISOR ENVIRONMENT 

Dave Butenhof 13-may-1980, Version 5.4 

02 Create .UPD file to modify VMS V2.0 source to 
Supervisor environment 

Dave Butenhof, 23-feb-1981, version 6.3 

03 Fix some truncation errors. 
MACRO LIBRARY CALLS 



SFKBDEF 

SPRDEF 

SUCBDEF 



.PSECT SEP, SHR, EXE, WRT, LONG 



DEFINE FKB OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE UCB OFFSETS 
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CREATE 1/0 DRIVER FORK PROCESS 

*** FRKCTL QIO fork control 
CREATE I/O DRIVER FORK PROCESS 
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.S8TTL CREATE I/O DRIVER FORK PROCESS 

EXESIOFORK - CREATE I/O DRIVER FORK PROCESS 

THIS ROUTINE IS CALLED BY AN I/O DRIVER TO CREATE A FORK PROCESS. 

INPUTS: 

OO(SP) = RETURN ADDRESS OF CALLER. 

04(SP) = RETURN ADDRESS OF CALLER'S CALLER. 

R5 = UC8 ADDRESS OF DEVICE UNIT. 

OUTPUTS: 

***T8S*** 



EXESIOFORK:: 
B8CC 



;CREATE I/O DRIVER FORK PROCESS 
0UCB$V_TJM,UCB$W„STS(R5),EXE$FORK /DISABLE TIMEOUT 
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06-03 



CREATE FORK PROCESS 

*** FRKCTL Q10 fork control 
CREATE FORK PROCESS 
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.SBTTL CREATE FORK PROCESS 

EXESFORK - CREATE FORK PROCESS 

THIS ROUTINE IS CALLED TO CREATE A FORK PROCESS, 

INPUTS: 

OO(SP) = RETURN ADDRESS OF CALLER. 

04(SP) = RETURN ADDRESS OF CALLER'S CALLER. 

R5 = ADDRESS OF FORK BLOCK. 

OUTPUTS: 

*«r*T8S*** 



EXESFORK:: 

MOVQ 
POPL 
M0VZ8L 
MOVAQ 



R3,FKBSL FR3(R5) 
FKB$L„FPC(R5) 
FKB$B FIPL(R5),R4 
L A SWI$GL_FQFL-<6*8>CR4: # 



INSQUE (R5),a4(R3) 
BNEQ 10S 
SOFTINT R4 

MTPR R4,S A 0PR$,SIRR 
RS8 



CREATE FORK PROCESS 

SAVE REGISTERS R3 AND R4 

SET FORK PROCESS PC 

GET FORK IPL 

R3 ; Get address of fork queue 

; INSERT FORK BLOCK IN FORK QUEUE 
;IF NEQ NOT FIRST ENTRY IN QUEUE 
; INITIATE SOFTWARE INTERRUPT 
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DB 
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OF 
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00000000' 9F 
4F 46 44 41 42 
2C 4C 50 49 48 
4C 41 54 41 



DO 
BB 
16 
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.SBTTL SOFTWARE INTERRUPT FORK DISPATCHER 

EXESFORKDSPTH - SOFTWARE INTERRUPT FORK DISPATCHER 

THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN THE SOFTWARE INTERRUPT 
PRIORITY ARBITRATION LOGIC iN THE CENTRAL PROCESSOR DETECTS A PENDING 
INTERRUPT AT LEVEL 6, 7, 8, 9, 10, OR 11 AND THE CURRENT PRIORITY LEVEL 
LOWER THAN THE PENDING LEVEL. THE STATE OF THE STACK ON ENTRY IS: 



IS 



OO(SP) = 
04(SP) = 



INTERRUPT 
INTERRUPT 



PC, 
PSL. 



FOR EACH OF THE LEVELS 6, 7, 8, 9, 10, AND 11, THERE EXISTS A QUEUE OF FORK 
BLOCKS WAITING TO BE PROCESSED. WHEN A FORK BLOCK IS ENTERED IN ITS 
CORRESPONDING QUEUE AND IT IS THE FIRST TO BE ENTERED (I. E. THE QUEUE 
WAS PREVIOUSLY EMPTY), A SOFTWARE INTERRUPT IS REQUESTED FOR THAT LEVEL, 
THE FORK DISPATCHER GAINS CONTROL AND EMPTIES THE QUEUE ONE ENTRY AT A 
TIME. AS EACH FORK IS DISPATCHED, REGISTERS R3 AND R4 ARE RESTORED FROM 
THE FORK BLOCK AND THE FORK PROCESS IS CALLED VIA A JSB INSTRUCTION. 
ON RETURN, THE FORK DISPATCHER RETRIEVES THE NEXT ENTRY FROM THE QUEUE 
AND REPEATS THE DISPATCHING OPERATION. THIS PROCESS CONTINUES UNTIL 
THERE ARE NO MORE FORKS TO DISPATCH AT WHICH TIME THE INTERRUPT IS 
DISMISSED. 



.ALIGN 
EXESFORKDSPTH; 

PUSHR 
10$: MFPR 

MOVAQ 

REMQUE 

BVS 

MOVQ 



LONG 

# A M<R0,R1,R2,R3,R4,R5> 
*PR$ IPL,RO 
L A SWl$GL w FQFL-<6*8>CR0], 

a<R1)+,R5 

20$ 
FKB$L_FR3(R5),R3 



SOFTWARE INTERRUPT FORK DISPATCHER 
SAVE FORK PROCESS REGISTER SET 
READ CURRENT IPL 
R1 ; Get address of fork queue 

REMOVE NEXT ENTRY FROM FORK QUEUE 
IF VS NO ENTRY REMOVED 
RESTORE REGISTERS R3 AND R4 



DISPATCH FORK PROCESS WITH: 

RO THRU R2 = SCRATCH 

R3 AND R4 = RESTORED 

R5 = ADDRESS OF FORK 



REGISTERS, 

FROM FORK BLOCK, 

BLOCK. 



MOVL FKBSL FPC(R5),R1 

PUSHR # A M<R0,R1> 

JSB (R1) 

POPR # A M<R0,R1> 

MFPR #PR$ IPL,R2 

CMPL R0.R2 

BEQL 10$ 

BUG CHECK BADFORKJPL, FATAL 

JSB"* a#BUG$CHECK 

.ASCJC "BADFORKIPL, FATAL" 



SAVE DISPATCH ADDRESS 

SAVE IPL AND DISPATCH ADDRESS 

DISPATCH FORK 

RESTORE IPL, DISPATCH ADDRESS 

GET EXIT IPL 

EXIT IPL MUST EQUAL ENTRY 

GO AGAIN 

BAD FORK EXIT INTERRUPT PRIORITY LEVEL 



N 15 
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3F BA 0063 139 20$: POPR # A M<R0,R1 ,R2,R3,R4,R5> ;REST0RE FORK PROCESS REGISTER SET 

02 0065 HO REI ; 

0066 141 

0066 142 ,END 
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Symbol table 



*** fRKCTL QIO fork control 



8 16 

27-JUL-1984 

27-JUL-19I 
2-DEC-19I 



F i che 7 Frame B16 Sequence 1432 

14 15:20:41 VAX-11 Macro VQ3-0? Page 6 

II 08:46:15 DMA1 :[SY50.SYSMA.INT]FRKCTl.MAR;21 (I) 



BUGSCHECK 

EXESFORK 

EXESFORKDSPTH 

EXES10F0RK 

FKBSB.F1PL 

FKBSB TYPE 

FKB$C~LENGTH 

FKBU~LENGTH 

FKBRlFPC 

FKBfcL.jQBL 

FKBSL.FQFL 

FKB$l„FR3 

FKBSLJR4 

FKBSW^SIZE 

PRS I PL 

PRS'SIRR = 

SI2... * 

SW1SGL FQFL 

UCBSB J?MOD 

UCB$B^CEX 

UCBSB..CM1 

UCBSB_CM2 

UCBSB^DEVCLASS 

UCB$B_DEVTYPE 

UCBSBJMPL 

UCBSB„DX SCKNT 

UCBSB.ERTCNT 

UCBSBJRTMAX 

UC8SB..FEX 

UCBSB.FJPL 

UCBSB^LOCSRV 

UCBS8_0FFNDX 

UCBSB^OFFRTC 

UCBSB.REMSRV 

UCBSB^SECTORS 

UCBSB^SLAVE 

UCBSB.SPR 

UCBSB^STATE 

UCBSB TRACKS 

UCBSB.TT.CRFILL 

UCBSBJT^DECRF 

UCBS8JT OELFF 

UCBSBJOESPEE 

UCBSB^TT^DETYPE 

UCBSBlTT^LFFILL 

ucbsb.ttspced 
ucbssjyPe 

uc8s8„vertsz 
ucbsc^length 
ucbscjib.length 
ucbsc^tt length 
ucbsk_l£rgth 
ucbsk.mb length 
ucbsk..tt length 

JC8Sl„AMB 

UC8SL,ASTGBL 

UCBSL..ASTOFL 



******** 

00000005 
00000024 
00000000 
0000000B 
OOOOOQOA 
OOOQOOIfe 
00000018 
OOOQQQQC 
00000004 
00000000 
00000010 
00000014 
00000008 
00000012 
00000014 

00000002 
******** 

00000053 
00000077 
0000004A 
00000048 
00000038 
00000039 
00000052 
000000A6 
00000070 
00000071 
00000076 
00000008 
0000003C 
00000094 
00QQ0095 
0000002D 
0Q0003C 
0000074 
00QQQ075 
00000052 
QQ000Q30 
0000009D 
000000A1 
OOOO0OA2 
00000OA0 
000O0OA4 
0000009E 
0000009C 
A 



8 




RG 
RG 
RG 



00000054 
00000010 

oooooooc 



D 
D 
D 
D 

D 

D 
D 
D 
D 
D 
D 
D 


( 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 


D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 

D 



D 
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utesL. 
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UCBSL„ 
UCBSL. 
UC8SL, 
UCBSL' 
UCBSLl 
UC8SL_ 
UCBSL_ 
UCBSL. 
UCBSL. 
UCB$L_ 
UCBSL. 
UCBSL„ 
UCBSL_ 
UC8$L„ 
UCBSLl 
UC8SL_ 
UCBSL^ 
UCBSLl 
UC8SL_ 
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UCBSL„ 
UC8$Ll 
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UCBSL. 
UCBSL. 
UC8SL„ 
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UCBSL. 
UCBSL., 
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UCBSL. 
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UCBSL, 
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UC8SL. 
UCBST 
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ucesw; 

UCBSW. 
UCBSW. 
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ucbsw; 
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UCBSW, 
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DJRSEQ 
DSTADDR 
DX BCR 
EC7 
EC2 

ERRCNT 
,FUNC 
MB^SEED 
.MS5CNT 
MSGMAX 
NT CHAN 
[OFFSET 
r REFC 
SIZE 
SRCADDR 
STS 

[TT DESI2E 
UNIT 
VPROT 
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00000090 
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*** FRKCTL Q]0 fork control 



C 1 6 „ 
27-JUL-1984 

27-JUL-19I 
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PSECT name 



. Aes 

SABS* 

SI 



P EP 



Altocat Jen 

00000000 "< 
000000BC ( 
00000066 ( 



! Psect synopsis ! 

PSECT No, Attributes 

OJ 00 ( 0.) NOPIC USR 
188.) 01 ( 1.) NOPIC USR 
102.) 02 ( 2.) NOPIC USR 



CON ABS 
CON ABS 
CON REL 



LCL NOSHR 
LCL NOSHR 
LCL SHR 



NOEXE 
EXE 
EXE 



NORD 
RD 
RD 



NOWRT 
WRT 
WRT 



NOVEC BYTE 
NOVEC BYTE 
NOVEC LONG 
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SYMBOL 

BUGSCHECK 

EXESFORK 

EXE$FORKDSPTH 

EXES10FORK 

FKBSBJ1PL 

FKBSLJPC 

FKBtl FR3 

PRS I PL 

PR$"SIRR 

SWI5GL FQFL 

UCBtV.TlM 

UCB$W^STS 
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VALUE 


DEFINITION 


REFERENCES... 


00000000-XR 
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78 
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00000000-XR 
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(3) 81.1 (2) 


=00000000 
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(1) 


00000058 
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Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

AssembLer run totals 

The working set limit was 1000 pages. 

26247 bytes (52 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 211 non-local and 3 local symbols. 

164 source lines were read in Pass 1, producing object records in Pass 2. 

21 pages of virtual memory were used to define 14 macros. 

+— -™— ,— — ,.„««.•„•.,-„„„ + 
! Macro library statistics ! 



Macro I ibrary name 

DMA1:[SYS0.SYSMAJNT]DS.MI8;218 

0MA1:[SYS0.SYSMAJNT]0IAG.MLB:953 
SYS$SYSR00T:CSYSLIB]LiB.MLB;1 
SYS$SYSROOT:CSYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

"-"""""l" 

2 
1 
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478 GETS were required to define 1 Q macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/UST=[DS.L I S]/CROSS/ENABLE = (DEBUG, TRACE) FRKCTL/UPDA- (FRKCTL, UPD, FRKCTL. ENH) +SYSSHBRARY :L IB/L IBRARY+0MA1 sCSYSO.SYSMAi 
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- SYSTEM SERVICE GET TIME 
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.TITLE 
.IDEM 



GETTIM - 
/01/ 



SYSTEM SERVICE GET TIME 



COPYRIGHT <C> 1976, 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM 
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION, 



DEC ASSUMES MO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC* 

D. N. CUTLER 30-SEP-76 

SYSTEM SERVICE GET TIME 

MACRO LIBRARY CALLS 

SSSDEF 

LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 

TIMADR=4 



ITS 



;DEFINE SYSTEM STATUS VALUES 



;ADDRESS OF QUADWORD TO RECEIVE TIME 



ZZ-ENSAA-7.0 

GETT1M 
01 



GET TIME 
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61 
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50 OC 

00000000* EF 
SO 01 



- SYSTEM SERVICE GET TIME 
GET TIME 
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0000 42 

0000 44 

0000 46 

0000 47 

0000 48 

0000 49 

0000 50 

0000 51 

0000 52 

0000 53 

0000 54 

COOO 55 

0000 56 

0000 57 

0000 58 

0000 59 

0000 60 

0000 61 

0000 62 

0000 63 

00000000 64 

0000 65 

0000 0000 66 

DO 0002 67 

3C 0006 68 

0009 69 

70 OOOF 70 

3C 0016 71 

04 0019 72 

001A 7? 

001A 74 



•S8TTL GET TIME 

EXESGETTIM - GET TIME 

THIS SERVICE PROVIDES THE CAPABILITY TO RETRIEVE THE CURRENT SYSTEM TIME 
IN 64 BIT FORMAT. 

INPUTS: 

TJMADR(AP) a ADDRESS OF QUADWORD THAT. IS TO RECEIVE TIME, 
OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO RETRIEVE SYSTEM TIME. 

RO * SS$ ACCVIO - QUADWORD TO RECEIVE TIME CANNOT BE 
QRITTEN BY CALLING ACCESS MODE, 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

RO - SSS.NORMAL - NORMAL COMPLETION. 



•PSECT 

EXESGETTIM:: 
• WORD 



SEP, SHR, WRT, EXE, LONG 



MOVL TIMADR(AP),R1 

MOVZWL #SSS ACCVIO, RO 

IFNOWRT #8,<R1>,10S 

MOVQ EXESGG SYSTIME,(R1) 

MOVZWL rfSSS NORMAL, RO 
10$J RET 

.END 



GET TIME 

ENTRY MuSK 

GET ADDRESS OF QUADWORD TO RECEIVE TIME 

ASSUME QUADWORD NOT WRITABLE 

CAN QUADWORD BE WRITTEN? 

STORE SYSTEM TIME IN QUADWORD 

SET NORMAL COMPLETION 
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GETT1M 
Symbol table 

EXESGETTIM 

EXESGQ SYSTIME 
SS$ ACtVIO 
SSOlORMAL 
T IMRDR 



Symbol table 



- SYSTEM SERVICE GET TIME 



00000000 RG D 02 
******** X 02 

OOOOOOOC 

00000001 D 
QQ0G0Q04 
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7 Frame 116 



PSECT name 

. ABS , 

$ABS* 

SEP 



Allocation 

00000000 < 
00000000 ( 
0000001A ( 



+™. ™ ....... «.. • — + 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOP1C USR 

0.) 01 < 1.) NOPIC USR 

26.) 02 ( 2.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT NOVEC BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC BYTE 


CON 


REL 


LCL 


SHR 


EXE 


RD 


WRT NOVEC LONG 
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Cross reference 



Cross reference 
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! Symbol Cross Reference ! 
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SYMBOL 



EXESGETTIM 

EXESGQ SYSTIME 
SS$„ACCV10 
SSS NORMAL 
T1MSDR 



VALUE 

00000000-R 

00000000-XR 

:OOOO0OOC 

^00000001 

=00000004 



DEFINITION 


REFERENCES... 
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39 (2) 


#-70 (2) 

#-68 (2) 
#-71 (2) 
#-67 (2; 
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! Macros Cross Reference ! 



MACRO 



S0EF1N1 

SSSDEF 

IFNQWRT 



SIZE 
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DEFINITION 



REFERENCES. 
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! Performance indicators ! 
+ ...... — ..-. — .....+ 



Phase 
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Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

19064 bytes (38 pages) of virtual memory were used to buffer the intermediate 
There were 30 pages of symbol table space allocated to hold 405 non-local and 
74 source lines were read in Pass 1, producing object records in Pass 2. 
10 pages of virtual memory were used to define 8 macros. 

+ — ., ..- — + 

! Macro library statistics ! 
+ ...—...*+ 



code. 
1 local 



symbols 



Macro library name 

DMA1:CSYSO.SYSMAJNT]OS.MLB;218 
DMA1:CSYS0.SYSMAINT]DIAG.MLB:953 
SYS$SYSR00T:[SYSU8]UB,M18;1 
SYS$SYSR00T:CSYSLIBJSTARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

JT" 


1 
4 
5 



468 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/UST=[DS,L I SJ/CR0S$/ENABLE= (DEBUG, TRACE) GETTJM/UPDA=(GETTIM.UPD.GETTIM t ENH)+SYS$LIBRARY:LIB/LIBRARY+0MA1 :[SYS0.SYSMAJ 
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.TITLE 
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*** GTCHAN Get channel information 



COPYRIGHT (C) 1977,, 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM 
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

D. S. CUTLER 22-6EP-76 

MODIFICATION HISTORY 

N. HOWGATE 20-FEB-78 VERSION 02 (ESSAA-4.00) 
01 DIAGNOSTIC SUPERVISOR INTEGRATION 

SYSTEM SERVICE GET I/O CHANNEL DEVICE INFORMATION 



MACRO LIBRARY CALLS 



$CCBDEF 

SDDBDEF 

SDEVDEF 

SSSDEF 

SUCBDEF 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSiT DEFINITIONS 



CHAN=4 

PRILEN=8 

PRI8UF=12 

SCDLEN=16 

SCD8UF-20 



DEFINE CCB OFFSETS 

DEFINE DDB OFFSETS 

DEFINE DEVICE CHARACTERISTICS 

DEFINE SYSTEM STATUS VALUES 

DEFINE UCB OFFSETS 



I/O CHANNEL NUMBER 

ADDRESS TO STORE LENGTH OF PRIMARY STRING 
ADDRESS Or PRIMARY BUFFER DESCRIPTOR 
ADDRESS TO STORE LENGTH OF SECONDARY STRING) 
ADDRESS OF SECONDARY BUFFER DESCRIPTOR 



ZZ-ENSAA-7.G 

GTCHAN 
l>2-01 



GET I/O CHANNEL DEVICE INFORMATION 

*** GTCHAN Get channel 
GET I/O CHANNEL DEVICE 
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3C 0002 
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99 




2F 50 


E9 0009 


100 




55 61 


DO QOOC 


101 




54 55 


DO OOOF 


102 


04 34 


A5 06 


V 0012 


104 


54 


54 A5 


DO 001/ 




56 01 


3C 0018 


105 
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106 
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107 


54 
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.SBTTL GET I/O CHANNEL DEVICE INFORMATION 



EXESGTCHAN - GET I/O CHANNEL DEVICE INFORMATION 

THIS SERVICE PROVIDES THE CAPABILITY TO RETRIEVE INFORMATION ABOUT A 
DEVICE THAT IS ASSIGNED TO A CHANNEL AND ITS ASSOCIATED DEVICE IF ANY. 

INPUTS: 

CHAN(AP) = I/O CHANNEL NUMBER. 

PRILENlAP) = ADDRESS TO STORE LENGTH OF PRIMARY STRING. 
PRIBUF(AP) = ADDRESS OF PRIMARY BUFFER DESCRIPTOR. 
SCDLEN(AP) = ADDRESS TO STORE LENGTH OF SECONDARY STRING. 
SCDBUF(AP) = ADDRESS OF SECONDARY BUFFER DESCRIPTOR. 

R4 = CURRENT PROCESS PCS ADDRESS. 

OUTPUTS: 

ro low bit clear indicates failure to retrieve device information. 

ro = ss$ accvio - primary or secondary buffer descriptor 
Cannot be read by calling access mode, or primary 
or secondary buffer cannot be written by calling 
access mode. 

ro = sssjvchan - invalid channel number specified. 

ro = ss$ nopriv - specified channel is not assigned to a 
pevice or the calling access mode does not have 
privilege to access the channel. 

ro low bit set indicates successful completion. 

ro = ss$ bufferovf - normal completion, all characteristic 
Information did not fit in specified buffer(S). 

ro * ss$ normal - normal completion, all characteristic 
Information transfered. 



.psect SEP, 



SHR, 



EXE, WRT, 



LONG 



.ENTRY EXE$GTCHAN, A M<R2,R3,R4,R5,R6,R7,R8> 



10$: 



MOVZWL 

BSBW 

BLBC 

MOVL 

MOVL 

BBC 

MOVL 

MOVZWL 

MOVO 

BSBB 

MOVL 

BEQL 



CHAN(AP),RO 

IOCSVERJYCHAN 

R0,40$ 

CC8$L_UCB(R1),R5 

R5,R4 

*DEV$V SPL,UC8$L_ 

UCBSL SMB(R5),R4 

*SS$ NORMAL, R6 

PRILEN(AP),R7 

FILBUF 

UCBSL AM3(R5),R4 

20$ 



GET CHANNEL NUMBER 
VERITY CHANNEL NUMBER 
IF LBC INVALID CHANNEL 
GET DEVICE UNIT UCB ADDRESS 
.ASSUME ASSOCIATED UCB NOT SPOOL DEVICE 
DEVCHAR(R5),10$ ;IF CLR, THEN DEVICE NOT SPOOLED 
GET INTERMEDIATE DEVICE UCB ADDRESS 
ASSUME ALL INFO CAN BE RETURNED 
GET PRIMARY BUFFER PARAMETERS 
FILL PRIMARY BUFFER 
ANY ASSOCIATED UCB? 
IF EQL NO 



ZZ-ENSAA-7,0 
GKHAN 

1*2-01 



GET I/O CHANNEL DEVICF INFORMATION 

*** GTCHAN Get channel 
GET 1/0 CHANNEL DEVICE 
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03 34 A5 06 

54 55 

57 10 AC 

04 

50 56 



52 



51 
51 



51 
51 



50 



67 



68 
50 



58 
43 



68 
31 
53 04 A8 



34 A4 

50 OC 

16 

48 A4 

50 02 

OD 

24 A4 

14 A1 

50 61 

50 

52 

08 

83 81 

F6 50 

07 

52 

0601 8F 

57 

04 



52 
OC 



E1 002A 
DO 002F 
7D 0032 
10 0036 
DO 0038 

04 003B 
003C 
003C 
003C 
003C 
003C 

D5 003C 
13 003E 

0040 
3C 0040 
13 0043 
DO 0045 

0049 
DE 0049 
DO 004D 
10 0050 
DE 0052 
DO 0056 

10 0059 
DO 0058 
DE 005F 
9A 0063 
D6 0066 
D7 0068 
19 006A 
90 006C 
F5 006F 

11 0072 
D6 0074 
3C 0076 
D5 007B 
13 007D 

007F 
A3 007F 

05 0083 
3C 0084 
04 0087 

0088 
0088 



110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 



20$: 
30$: 



40$: 



BBC 

MOVL 

MOVQ 

BSBB 

MOVL 

RET 



#DEV$V SPL,UCB$L DEVCHAR(R5) ,30$ ;IF CLR, THEN DEVICE NOT SPOOLED 
R5,R4 " ;SET SECONDARY DEVICE UCB ADDRESS 

SCDLEN(AP),R7 ;GET SECONDARY BUFFER PARAMETERS 

FILBUF ;FILL SECONDARY BUFFER 

R6,R0 ;SET FINAL REQUEST STATUS 



SUBROUTINE TO FILL CHARACTERISTIC BUFFER 



FILBUF 



10$: 



20$ 
30$ 
40$ 



50$: 
60$. 



TSTL 

BEQL 

IFNORD 

MOVZWL 

BEQL 

MOVL 

IFNOWRT 

MOVAL 

MOVL 

BSBB 

MOVAL 

MOVL 

BSBB 

MOVL 

MOVAL 

M0VZ8L 

INCL 

DECL 

BLSS 

MOVB 

SOBGTR 

BRB 

INCL 

MOVZWL 

TSTL 

BEQL 

IFNOWRT 

SUBW3 

RSB 

MOVZWL 

RET 

,END 



R8 

50$ 

#8,(R8),60$ 

(R8),R2 

30$ 

4(R8),R3 

R2,(R3),60$ 

UCBSL DEVCHAR(R4),R1 

#12, RO 

10$ 

UCB$WJJNIT(R4),R1 

#2,R0 

10$ 

UCB$L_DDB(R4) f R1 

DDB$T NAME(R1),R1 

<R1),R0 

RO 

R2 

20$ 

<R1)+,(R3)+ 

R0,10$ 

40$ 

R2 

#SS$_BUFFEROVF,R0 

R7 

50$ 

#2,(R7>,60$ 

R2,(R8),(R7) 

#SS$J\CCVIO,R0 



ANY BUFFER SPECIFIED? 

IF EQL NO 

CAN OUTPUT BUFFER DESCRIPTOR BE READ? 

GET SIZE OF OUTPUT BUFFER 

IF EQL NULL 

GET ADDRESS OF OUTPUT BUFFER 

CAN ENTIRE BUFFER BE WRITTEN? 

GET ADDRESS OF CHARACTERISTICS 

SET BVTP COUNT 

MOVE CHARACTERISTICS TO BUFFER 

GET ADDRESS OF UNIT NUMBER 

SET BYTE COUNT 

MOVE UNIT NUMBER OT BUFFER 

GET ADDRESS OF DDB 

GET ADDRESS OF GENERIC DEVICE NAME 

GET LENGTH OF NAME IN BYTES 

ACCOUNT FOR COUNT BYTE 

ANY SPACE LEFT IN BUFFER? 

IF LSS NO 

MOVE BYTE TO BUFFER 

ANY MORE BYTES TO MOVE? 

ADJUST COUNT OF REMAINING BYTES 

SET BUFFER OVERFLOW 

ADDRESS SPECIFIED TO STORE RESULT LENGTH? 

IF EQL NO 

CAN LENGTH BE WRITTEN? 

CALCULATE LENGTH OF RESULT STRING 

SET ACCESS VIOLATION 



ZZ-ENSAA-7.0 
GTCHAN 
Symbol table 

CCB$B AMOD 

CCBSB^STS 

CCBSCJ.ENGTH 

CCBSKJ.ENGTH 

CCB$LJ)IRP 

CCBSLJJCB 

CCBSL.WIND 

CCB$W IOC 

CHAN " 

DDBSB ACPCLASS 

DDBS^'TYPE 

DDBSClLENGTH 

DDBSKJ.ENGTH 

DDBSL ACPD 

DDBSL J)DT 

DDBSL J_ INK 

DDBSL UCB 

DDB$TJ)RVNAME 

DDBSTJVAME 

DDBSW_SIZE 

DEV$V SPL 

EXESGTCHAN 

F1LBUF 

10CSVERIFYCHAN 

PRIBUF 

PRILEN 

SCDBUF 

SCDLEN 

SIZ... 

SSS..ACCVIO 

SSS BUFFEROVF 

SSS NORMAL 

UCBlB„AMOD 

UCBSl^CEX 

UCB$B„CM1 

UCBSB.CM2 

UCBSB„DEVCLASS 

UCB$B^DEVTYPE 

UCBS8>IPL 

UCBfB DX SCTCNT 

UCBSB^ERTCNT 

UCBS8„ERTMAX 

UCBSBJEX 

UCB$B_FIPL 

UCBSGJ.OCSRV 

UC8SB..0FFNDX 

UCBSB..OFFRTC 

UCBSB REMSRV 

UCB$B„$ECTORS 

UCBSB^SLAVE 

UCB$B_SPR 

UCBSBZSTATE 

UCBSB TRACKS 

UCBSBJT^CRFRL 

UCBSBlTTDECRF 

UCB$B:TrDELFF 

UCBS8 TT DESPEE 



Symbol table 



E 1 

27-JUL-1984 Fiche 8 Frame E1 Seguence 1446 
*** GTCHAN Get channel information 27-JUL-1984 15:21:08 VAX-11 Macro V03-OT Page 4 

3-MAR-1981 10:31:00 0MA1 :CSYS0.SYS«AINT3GTCHAN.MAR;16 (1) 



00000009 
00000008 
00000010 
00000010 
OOOOOOOC 
00000000 
00000004 
0000000A 
00000004 
00000013 
OOOOOOOA 
00000034 
00000034 
00000010 
OOOOOOOC 
00000000 
00000004 
00000024 
00000014 
00000008 
00000006 
00000000 

0000003C 

******** 

OOOOOOOC 
00000008 
00000014 
00000010 
00000002 
OOOOOOOC 
00000601 
00000001 
00000053 
00000077 
0000004A 
0000004B 
00000038 
C0000039 
00000052 
000000A6 
00000070 
00000071 
00000076 
OOOOOOOB 
0000003C 
00000094 
00000095 
0000003D 
0000003C 
00000074 

mm 

0000003D 
0Q0Q009P 
000000A1 
00OO00A2 
OOOOOOAO 



D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 02 
R D 02 
X 02 

D 

D 

\) 

D 



D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 





D 

D 



UCBSB 

UCB$B 

UCBSB 

UCB$B 

UCB$B 

UCB$C 

UCBSC 

UCB$C 

UCB$K 

UCBSK 

UCBSK 

UCB$L 

UCBSL, 

UCB$L_ 

UCB$L 

UCB$L 

UCB$L 

UCB$L 

UCBSL 

UCBSL 

UCBSL 

UC8SL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UC8SL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 



TT.DETYPE 

TT LFFILL 

TT'SPEED 

TYPE 

VERTSZ 

LENGTH 

MBJ.ENGTH 

TT LENGTH 

LENGTH 

MB,LENGTH 

TT LENGTH 

AMB 

ASTQBL 

ASTQFL 

CP1D 

CRB 

DDB 

DEVCHAR 

DEVDEPEND 

DPC 

DUETIM 

DX..8FPNT 

DX_BUF 

DX RXDB 

EMB 

FIRST 

FPC 

FQBL 

FQFL 

FR3 

FR4 

IOQBL 

IOQFL 

IRP 

LINK 

LOGADR 

MAXBLOCK 

MB.MBX 

MB„PORT 

MB.RAST 

MBJHB 

MB, WAST 

MBJJIOQBL 

MB WIOOFL 

MECIA 

NTJ)ATSSB 

NT INTSSB 

OPCNT 

OWNUIC 

PID 

RQBL 

RQFL 

SVAPTE 

SVPN 

TT..DECHAR 

TrRDUE 

TT RTJMOU 
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Symbol table 



UCBSL. 

UCBST 

UCBSW. 

UCBSW. 

UCBSW, 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW 

UCbSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW 

UCBSW. 

UCBSW. 

UCBSW 

UCB$W. 

UCB$W 

UCBSW, 

UCBSW 

ucbsw; 

UCBSW. 



VCB 

PARTNER 

BCNT 

BCR 

BOFF 

BUFQUO 

BYTESTOGO 

CHARGE 

CYLINDERS 

DA 

.DC 

DEVBUFS1Z 

.DEVSTS 

DIRSEQ 

.DSTADDR 

DX BCR 

ECT 

EC2 

ERRCNT 

.FUNC 

MB, SEED 

MSCCNT 

MSGMAX 

,NT CHAN 

OFFSE i 

REFC 

SIZE 

'SRCADDR 

STS 

,VT DESJZE 

,UNlT 

VPROT 



PSECT name 

. ABS , 

$ABS$ 

SEP 
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00000030 D 

0000000C D 

0000006E D 

00000096 D 

0000006C D 

00000018 D 

0000003E D 

0000004A D 

0000003E D 

0000008C D 

0000008E D 

0000003A D 

0000005A D 

00000088 D 

00000018 D 

000000A4 D 

00000090 D 

00000092 D 

00000072 D 

0000007E D 

00000000 D 

00000016 D 

00000014 D 

00 A 0007C D 

0000008A D 

00000050 D 

00000008 D 

0000001 A D 

00000C58 D 

000000A5 D 

0C00O048 D 

0000001A D 

♦■— - -- —.-.——. -♦ 
! Psect synopsis ! 

PSECT No, Attributes 

( OJ 00 ( 0.) N0P1C USR 
( 188.) 01 ( 1.) NOP1C USR 
( 136.) 02 ( 2J NOPIC USR 



Allocation 

ooooooocT" 
ooooooec 

00000088 



CON 


ABS 


LCL NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC BYTE 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT 


NOVEC BYTE 


CON 


REL 


LCL SHR 


EXE 


RD 


WRT 


NOVEC LONG 
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Cross reference 
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Symbol Cross Reference ! 

,— - — ——*——— — -+ 



SYMBOL 

CCBSL.UCB 

CHAN 

DDBST.NAME 

DEV$V SPL 

EXESGTCHAN 

FILBUF 

IOCSVER1FYCHAN 

PRIBUF 

PRILEN 

SCDBUF 

SCDLEN 

SS$_ACCVIO 

SS$„BUFFEROVF 

SSS NORMAL 

UCB5L amb 

UCB$L DOB 

UCB$L~DEVCHAR 

UCB$W_UN1T 



VALUE 


DEFINITION 


REFERENCES... 






00000000 


#-101 (1) 




00000004 


47 


(1) 


#-98 (1) 






000000H 






135 (1) 






00000006 
00000000-R 






#-103 (1) 


#-110 


(1) 


96 


(1) 








0000003C-R 


121 


(1) 


#-107 (1) 


#-113 


<1> 


00000000-XR 






#-99 (1) 






0000000C 


49 


(1) 








00000008 


48 


(1) 


#-106 (1) 






O00000H 


51 


(1) 








00000010 


50 


(1) 


#-112 (1) 


» 




OOOOOOOC 






#-150 (1) 






00000601 






#-144 (1) 






OOOOOC01 






#-105 (1) 






00000054 






#-104 (1) 


#-108 


(1) 


000000^4 






#-134 (1) 






00000034 






103 (1) 


110 


(1) 


00000(48 






131 (1) 







128 



(1) 
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MACRO 


SIZE 

1 


DEFINITION RE 


tCCBDEF 


35 (1 


) 35 


SDDBDEF 


1 


36 (' 


) 36 


SDEF1NI 


1 


35 (' 


) 35 


SDEVDEF 


1 


37 (1 


) 37 


SSSDEF 


21 


38 < 


) 38 


SUCBOEF 


10 


39 (1 


) 39 
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+ ....... — .—.——.+ 

! Macros Cross Reference I 
+-.——. ............. — + 

REFERENCES... 



36 



(1) 



37 



(1) 



38 



(1) 



39 



(1) 



+ ^ ... + 

! Performance indicators ,' 

+ ..... — .. — ..+ 



Phase 



Page fau' ts CPU Time 



Elapsed Time 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



33 

110 

349 



69 

18 

7 

12 
602 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.09 
00.71 
08.59 
00.98 
01.20 
00.12 
00.03 
00.11 
11.83 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.21 
:01.65 
:11.10 
:01.14 
:02.86 
:00.58 
:00.03 
:00.16 
:17,73 



The working set limit was 1000 pages. 

41070 bytes (81 pages) of virtual memory were used to buffer the intermediate 
There were 40 pages of symbol table space allocated to hold 663 non-local and 
153 source lines were read in Pass 1, producing object records in Pass 2. 
35 pages of virtual memory were used to define 14 macros. 

+..—.——.. ———.—.-+ 

I Macro library statistics ! 

+ ... .............4 



code. 
10 local 



symbols. 



Macro library name 

0MA1:CSYS0.SYSMAJNT]DS.MLB;218 
0MA1:CSYS0.SYSMAJNT]DIA6.MLB;953 
SYSSSYSR00T:[SYSi IBJLIB.MLB; 1 
SYS$SYSR00T:CSYSLIB]STARLET,ML8;2 
TOTALS (all libraries) 



Macros defined 

(T~ 
4 

6 
10 



863 GETS were required to define 10 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LI STEEDS. L I S]/CR0SS/ENABLE= (DEBUG JRACE) GTCHAN/UPDA= (GTCHAN, UPD .GTCHAN. ENH) +SYSSL IBRARY :L IB/L 1BRARY+DMA I sCSYSO.SYSMAJ 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
001? 
0018 
0019 
0020 
0021 
0022 




























*** HELP Handle HELP command 
*** HELP Handle HELP command 



I 1 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



15:58:29 
09:40:23 



Fiche 8 Frame 11 Sequence 1450 

» VAX-11 BHss-32 V4. 0-742 Page 1 

! DMA1 : CSYSO. SYSMAINT3HELP.B32;231 (1 > 



XTITLE '*** HELP 
MODULE help < 



Handle HELP command 



IDENT = 

) 5 



•06-10 



! Supervisor HELP facility 



Copyright (c) 1980, 1982, 1983, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHC D NOT BE 
CORPORA 'ON. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC AS" -f t0 no RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWAht ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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FACILITY: DIAGNOSTIC SUPERVISOR 
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26-Jul-1984 



Fiche 8 Frame J1 Sequence 1451 
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ABSTRACT: 



This module implements a Diagnostic Supervisor HELP conmand in a 
manner more-or-less compatible with VMS. 



AUTHOR: 
MODIFIED BY: 



1 
2 
3 

04 
05 

C063 

07 

08 

09 
10 



Dave Butenhof 22-jun-1980 



Dave Butenhof 8-sep-1980, version 6.0 
Convert to use RMS calls for file read. 

Dave Butenhof 2-oct-1980, version 6.1 

Rename entry point to DSXSHELP, since DSV prefix routines 
should be JSB entry, wl»ereas DSX is CALLable, 
Dave Butenhof, 8-abr-1981, version 6.3 
On printing other help fo^ not-found key, be sure to skip 
the record SAVBRFA 1s pointing to (lest is cause infinite 
loop) ! 

-Dav? Butenhof 02-Jun-1981 , version 6.4 
Redefine file specs to mike library access more flexible 

- Dave Butenhof, 03-Feb~1982, Version 6.6 

Make KEYJQUAL be global (as alias DSR$KEY„EQUAL) so 

Directory can use It. Also make it CALL linkage to avoid 

complications. 

Dave Butenhof, 29-Mar-1982, version 6,6 

Fix bug in READ handling of no-attribute. Don't check 

'last two' characters unless they're really there. 

Dave butenhof, 20-Apr-1982 

Change name HLPSV HELP to HLP$V_HELP_KEY; LIB now openly defines 

something celled RLP$V_HELP. 

Jack Stansbury, 16-Dec-1982, Version 6.11 

Changed the field width for qualifiers and other key words to 

be 16 rather than 8. This Improves the Help output some. 

M. Baggett, 18-Nov-1983 Version 6.13 

The restriction on the second character has been removed. 



Bob Bergaz2i May 31 
Edit 09 broke HELP EX* 
for all 



new 



1984 
EXAMINE, so 
processors. 



Version 7,0 
fix it and also 



add support 



ZZ-ENSAA- 


7.0 


*** HEL p Handle HELP command 


HELP 




*** HELP Handle HELP command 


06-10 






; 0072 


1 


BEGIN 


; 0073 


1 


! + 


; 0074 


1 


! INCLUDF FILES? 


; 0075 


1 


J- 


; 0076 


1 




: 0077 


1 


LIBRARY 'Sdiag'; 


• 0078 


1 




; 0079 


1 


LIBRARY '$ds\- 


; 0080 


1 




; 0081 


1 


LIBRARY 'sysSlibrary: star let. 132'; 


; 0082 


1 
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09:40:23 0MA1:CSYS0.SYSMAINT3HELP.B32;231 (3) 
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ZZ-ENSAA- 


7.0 


HELP 




06-10 
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! DMA1:CSYS0.SYSMAJNT3HELP.B32;231 (4) 



linkages 



LINKAGE 
Jsb.2 = 

5b!3 a 



JSB 



(REGISTER 
(REGISTER 



- C, REGISTER 
= 0, REGISTER 



1, REGISTER = 2)1 
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; 0093 1 


; 0094 1 


; 0095 1 


; 0096 1 


; 0097 1 


; 0098 1 


; 0099 1 


: 0100 1 


; 0101 1 


; 0102 1 


; 0103 1 


; 01 Oh 1 


; 0105 1 


; 0106 1 


; 0107 1 


; 0108 1 



*** 



HELP Handle HELP command 
HELP Handle HELP command 



TABLE OF CONTENTS: 



FORWARD ROUTINE 
dsxShelp, 
do_help, 
is, key on-line, 
pnnt_keys : NOVALUc, 
print. text, 
print otherhelp, 
READ, 



dsr$key„ equal , 
skip.bUnks, 



ocan word, 

find~char : ji,b 2, 

print.crlf j jsb_none NOVALUE; 



M 1 
27-Jul-1984 
27-JuL- 198* 

26-Jul-1984 



15:58:29 

09:40:23 



Fiche 8 Frame M1 Sequence 1454 

' VAX-11 Bliss-32 v^0-/« Page 5 

I DMA1«CSYS0,SYSMAINT3HELP.832;231 (5) 



Main program 

Recursive file search 

Check for key record 

Print keys level 1 - x 

Print help text for level 

List all keys at level 

Read random RFA 

Compare keys (wildcard, partial match, etc) 

Skip spaces/tabs 

Find length of word 

Find character on line 

Cause a blank line to magically appear 
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1 
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1 
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1 
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1 
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1 
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1 
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1 
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1 


; 0119 


1 


; 0120 


1 
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PSECT 

PL1T = datalSNARE, ADDRESS 1NG.MODE (LONG.RELATIVE)); 

PSECT 

GLOBAL = work(N0SHARE, ADDRESSING.MCDE (LONG.RELATIVE)) ; 

PSECT 

CODE - CODECEXEC'TE, SHARE, NOWRITE); 
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Literals 



G 2 
2/-Jul-1984 

27-Jul-1984 
26-Jul-1984 



BIND 



Fiche 8 Frame 82 Sequence 1456 
15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 7 

09:40:23 DMA1 :CSYS0.SYSMAINT]HELP.B32;231 (7) 



help„help = Sascid ( , HELF t ); 



! Default first levol key 



Ih 
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1 




0129 


1 




0130 


1 




0131 


1 




0132 


1 




0133 


1 




0134 


1 
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*** HELP Handle HELP command 



OWN storage: 



GLOBAL 

hetpinfo s bblock Chtp$c.sue3; 
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! DMA1:CSYS0.SYSMAINT3HELP.B32;231 (8) 



Help processing data block 
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; 0145 


1 
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Help control routine 

*+* HELP Handle HELP command 

Help control routine 

2SBTTL 'Help control routine* 

GLOBAL ROUTINE dsx$help (desc) = 
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26-Jul-1984 09:40:23 DMA1 :CSYS0.SYS«AINT3HELP.B32;231 (9) 



++ 



FUNCTIONAL DESCRIPTION 

Process HELP command. Scans appropriate file to extract help text 
for keywords 



INPUTS 



desc address of descriptor tor remainder of command line 



IMPLICIT INPUTS 
none 



OUTPUTS 

des^ 



descriptor is updated to end of line 



IMPLICIT OUTPUTS 

typeout to console 

SIDE EFFECTS 
none 

RETURN CODES 
none 
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2 
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2 
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0198 


3 


0199 


3 


0200 


3 


0201 


3 


0202 


3 


0203 


3 


0204 


3 
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3 
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Help control routine 
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BEGIN 



LOCAl 



helpfab : $fab_decl, 

helprab : $rab_decl, 

startrfa : bblock Ofa$c_ length], 

buffer : bblock ChlpSc maxrecsiz], 

VECTOR Chlp$cjnaxrecsiz, BYTE], 
: bblock Cdsc$c_s_blnJ, 



nextkey 

nextdesc 

level* 

elipsis, 

keylist 



FAB block 
RAB block 
Beginning of file 
Allocate input buffer 



MAP 



desc 



bblock [hlp$cjnaxkeys*dsc$c.s_bln]; 
REF bblock [dsc$c„sJ>lnJ; 



Keyword descriptors 



print^crlf (); 
e lips is = '.... ' ; 



CHSFILL (0, hlp$c size, helpinfo); 

helpinfo Chlp$l allhelp] = nlp$cjnaxkeys ♦ 1; 



Leading blank line 

Three dots 

Clear data table 
nv<.Ff"iv tiiiMf^BuiiBi^ - iuH^juaA<s 7/ g . ( , I Init 'allhelp' to deactivate it 

CHSF ILL (0, nlpScjnaxkeys*dsc$c s_bln, keylist); i Clear key descriptors 
helpinfo Ehlp$L_keylistJ = keyhst; ! Set up pointer to keys 

level = 0; 

helpinfo ChlpSl rab] = helprab; ! Set up pointer to RMS 

Sfab init (fab = helpfab, dnm = \HLP', fnm = 'EVSAA';; ! Initialize FAB 

$rab_init (rab = helprab, fab = helpfab, ubt = buffer, usz = hlp$c_maxrecsiz); ! 



Initialize RAB 



WHILE 1 DO 
BEGIN 

BIND 



! Isolate the keywords 



curkey = keylist + dsc$c s bin*, level : bblock, 
wildflags = helpinfo Chlp$EjdldUags] : BITVECTOR, 
keytext = curkey Cdsc$a_pointer] : REF VECTOR [, BYTE]; 

LOCAL 

next qual, 
ptr; 

IF NOT skip^blanks (.desc) THEN EXJTLOOP; ! End of line 

curkey Cdsc$a^pointerJ = ,desc Cdsc$a_pointer]; ! Beginning of a word 
next_qual = find^char (.desc, XCV); 

If we're lookin' at it, 



IF .next.qual EQL 
THEN 

next^qual = .desc Cdsc$w_length]; 



it's a start, not an end 
Find length of word 



curkey Cdsc$w_length] * » .«., a ... v . 

MIN (.next_qual, find^char (.desc, XC '), find.char (.desc, XC 
desc CdscSw^length] = .desc CdscSw^length] - ! Update descriptor 
.curkey CdscSw^length]; 

desc CdscSa pointer] = .desc Cdsc$aj)ointer] + .curkey [dsc$w_length]; 
ptr = CH$FIND_SU8 (.curkey Cdsc$w_length], .curkey CdscSa^pointerj, 3, 

! Look for • . ,.' in key 



•)); 



elipsis); 
IF NOT CHSFAIL C.ptr) AND ,ptr EQL (.curkey [dsc$a.pointer] + .curkey Cdsc$w_length3 - 3) 
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Help control routine 26-Jul-1984 09:40:23 DMA1 :[SYS0.SYSMAINT]HELP.B32;231 (10) 

THEN ! ,, <word>...*' 

BEGIN 

helpinfo [hlp$l allhelp] = .level + 2; ! All lower keys wildcarded 
curkey [dsc$w_length] = .curkey [dsc$w_Length] - 3; ! Discard '...* 

IF .curkey [dsc$w length] EQL ! If just # ... # , wilcard this level, too 
THEN 

helpinfo ChlpSl_allhelp] = .helpinfo ChlpSl allhelp] - 1 
ELSE 

level = .level +1; ! Count level if ' ...' had company 

INCR i FROM .helpinfo Chlp$l_allhelp] TO hlp$c jnaxkeys DO 
wildflags C.i - 1] = 1; ! Set the wildcard flags 

EXITLOOP ! Don't need more keys 

END; 

INCR i FROM TO .curkey CdscSw. length] - 1 DO 

IF .keytext C.i] EQL XCT OR .keytext C.i] EQL XC 1 *' THEN wildflags [.level] = 1; 

! Set flag if wildcard char. 
Level = . level + 1 
END; 

helpinfo [hlp$l, realkeys] = .level; ! Number of keys 

If .level GTR 

THEN ! If there's a key, 

BEGIN ! Check for diagnostic help 

BIND 

keyltext = keylist [dsc$a_pointer] : REF VECTOR [, BYTE]; 

1? .keyltext CO] EQL XC'E' AND (.KEY1TEXT [1] EQL XC'V OR ! [10] 

.KEY1TEXT [1] EQL XC f S' OR ! [10] 

.KEY1TEXT [1] EQL XC'C' OR ! [10] 

.KEY1TEXT [1] EQL XC'N 1 OR ! [10] 

.KEY1TEXT [1] EQL XCT OR ! [10] 

.KEY1TEXT [1] EQL XC'D' OR ! [10] 

.KEY1TEXT [1] EQL XC'B' OR ! [10] 

.KEY1TEXT [1] EQL XC'M' OR ! [10] 

.KEY1TEXT [1] EQL XC'Z') ! [10] 
THEN 

BEGIN ! Key 1 is actually file specifier for diagnostic help file 

helpfab Cfab$l„fnaJ = .keylist Cdsc$a„pointer]; ! Change filename 

helpfab CfabSb^fns] = .keylist Cdsc$w length]; 

CHSMOVE ((hlp$c maxkeys - 1)*dsc$c s bin, keylist + dsc$c_s_bln, keylist); 

T Move other keys down one 

helpinfo [hlp$b„wildf lags] = .helpinfo Chlp$b..wildf lags]*-1; ! Move flags down one bit 

IF .helpinfo [hlp$l allhelp] LEQ hlp$c maxkeys 
THEN ! Correct ALLHELP level 

helpinfo Chlp$Lallhelp] = .helpinfo [hlpSl^al Ihelp] - 1; 

helpinfo Chlp$l realkeys] = .helpinfo [hlp$l realkeys] - 1 
END 
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*** HELP Handle HELP command 

Help control routine 



END; 
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IF .helpinfo [hlp$l_realkeysj EQL OR .keylist Cdsc$w length] EQL 
THEN ! If null Tirst key, make it 

BEGIN ! 'HELP* by default 

CHSMOVE (dsc$c s bin, help_help, keylist); 

helpinfo [hlp$l realkeysJ = 1 ! S ^ one key found 

END; 



IF NOT .(helpinfo Chlp$b wi Idf lagsDXO, 1, 0> 
THEN 



! If key 1 not wild 



IF ( 



THEN 



LOCAL 
w; 

dsrSkey^equal <help_help, keylist, w>) 

helpinfo Chlp$v_help_keyJ = 1; 



startrfa CrfaSl^vbnJ = 1; 
startrfa Crfa$w„of fsetJ = 0; 



LOCAL 

stat; 



» and it matches 'HELP' 
then set flag 
Start of file 
Open the fi le 



C07] 



stat = Sopen (fab - helpfab); IF NOT .stat THEN RETURN .stat); 

! If not no-attribute 



IF .helpfab Cfab$b_ratD NEQ 
THEN 

helpinfo Chlp$v,crJ = 1; 

( 

LOCAL 
stat; 

stat = Sconnect (rab = helprab); 
IF NOT .stat THEN RETURN .stat); 
nextdesc Cdsc$a_pointerJ = nextkey; 

LOCAL 
stat; 

stat = do^help (1, startrfa, nextdesc); 
If NOT .stat THEN RETURN .stat); 
BEGIN 

LOCAL 

noerr; 

startrfa [rfa$l_vbn] * 1; 
startrfa Crfa$w.of fsetJ = 0; 



! Need explicit CR on typeout 



! Connect record stream 
! Set key space for key 1 



! Do everything, recursively 
! Check for tail-end stuff 

! Reset RFA 
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*** HELP Handle HELP command 
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IF NOT (noerr = .helpinfo Chlp$v foundhel; 1) 

OR .helpinfo [hlp$v_help_keyJ 
THEN 

( 

LOCAL 
stat; 

stat = print otherhelp (1, startrfa, 
IF NOT .stat THEN RETURN .stat) 

END; 

print_crlf (); 

$close (fab = helpfab) 

END; 



or 



! If no help found 
key 1 was •HELP 1 



C07D 



.noerr); ! print error and/or otherhelp 



! Cause a trailing CRLF 
1 Close the file 



of help 



.TITLE HELP *** HELP Handle HELP command 
•IDENT \06-10\ 



00000 HELPINFO:: 

.BLK8 



.PSECT W0RK,N0EXE,2 
46 



41 



50 



41 
50 



4C 45 48 00000 P.AAB: 

00000004 00004 P. AAA: 

00000000' 00008 

53 56 45 0000C P.AAC: 

4C 48 2E 00011 P.AAD: 



.PSECT DATA,N0WRT,N0EXE, SHR,2 

.ASCII \HELP\ 
.LONG 4 
.ADDRESS P.AAB 
.ASCII \EVSAA\ 
.ASCII \.HLP\ 



OFFC 00000 



59 0000V 
58 00000000* 
57 00000000 ' 



00 
00 



24 
04 



5E 

6E 
6E 

67 
6E 

A7 

A7 



FD2C 
2E2E2E2E 



08 
08 

FF6C 



CF 
EF 
Ef 
CE 
0000V 
8F 
00 
67 
06 
00 
AE 
AE 
56 
CD 



9E 00002 
9E 00007 
9E OQOOE 
9E 00015 
30 0001A 
DO 0001 D 
2C 00024 

DO 0002A 
2C 0002D 
00032 
9E 00034 
D4 00039 
9E 0003B 



HELP HEIP= 

WILDFLA6S= 

.EXTRN 
.EXTRN 

.PSECT 

.ENTRY 

MOVAB 

MOVAB 

MOVAB 

MOVAB 

BSBW 

MOVL 

M0VC5 

MOVL 
M0VC5 

MOVAB 

CLRL 

MOVAB 



P AAA 

HELPINFO+44 
SYSSOPEN, SYSSCONNECT 
SYSSCLOSE 

CODE,NOWRT, SHR,2 

DSXSHELP, Save R2,R3,R4,R5,R6,R7,R8,R9,R10/ 

R11 

FIND,CHAR, R9 

HELP HELP, R8 

HELPlNFQ, R7 

-724 (SP), SP 

PRINT CRLF 

#774778414, ELIPSIS 

#0, (SP), #0, #46, HELPINFO 

#6, HELPINFO 

#0, (SP), #0, #40, KEYLIST 

KEYLIST, HELPINFO+36 

LEVEL 

HELPRAB, HELPINFO+4 



0137 



0179 
0180 
0181 

018^ 
0183 

0184 

011 
011 



ZZ-ENSAA-7.0 


Help control routine 








i ; 

27-Jul- 


•1984 


Fiche 8 Frame 12 Sequence 1463 




HFLP 


*** HELP Handle HELP c 


ommand 






27-Jul- 


•1984 15:58 


:29 VAX-11 Bliss-32 V4. 0-742 Page 14 


06-10 


Help control routine 








26-Jul- 


•1984 09:40 


:23 DMA1 :CSYS0.SYSMAINT]HELP.B32;231 


(10) 


0050 8F 


00 


6E 


BO 


00 
AD 


2C 00041 
00048 


M0VC5 


#0, (SP), #0, #80, SRMS.FTR 


' 0187 




B0 


AD 


5003 


8F 


BO 0004A 


MOVW 


#20483, SRMS.PTR \ 






C6 


AD 




02 


90 00050 


MOVB 


#2, SRMS.PTR+22 






CF 


AD 




02 


90 00054 


MOVB 


#2, $RMS PTR+31 






DC 


AD 


08 


A8 


9E 00058 


MOVAB 


P.AAC, $RMS PTR+44 






EO 


AD 


OD 


A8 


9E 0005D 


. MOVAB 


P.AAD, $RMS PTR+48 






E4 


AD 


0405 


8F 


BO 00062 


MOVW 


#1029, $RMS PTR+52 




0044 8F 


00 


6E 


FF6C 


00 
CD 


2C 00068 
0006F 


M0VC5 


#0, (SP), #0, #68, SRMS.PTR 


0188 




FF6C 


CD 


4401 


oc 


DO 00072 


MOVW 


#17409, $RMS PTR ! 






8C 


AD 


0100 


8F 


BO 00079 


MOVW 


#256, $RMS PTR+32 






90 


AD 


0138 


CE 


9E 0007F 


MOVAB 


BUFFER, $RBS PTR+36 






A8 


AD 


BO 


AD 


9E 00085 


MOVAB 


HELPFAB, $RMS^PTRi60 
DESC, R5 








55 


04 


AC 


DO 000SA 


MOVL 


0202 






54 


08 AE46 


?E 0008E 1$; 


MOVAQ 


KEYLISTCLEVEL3, R4 


• 0194 










55 


DD 00093 


PUSHL 


R5 


• 0202 




0000V 


Cf 




01 


FB 00095 


CALLS 


#1, SK1P..BLANKS 








03 




50 


E8 0009A 


BLBS 


RO. 2$ 

I5i 












00A9 


31 0009D 


9RW 






04 


A4 


04 


A5 


DO 000A0 2$: 


MOVL 


4(R5), 4(R4) 


• 0204 






51 




2f 


DO 000A5 


MOVL 


#47, R1 


; 0205 






50 




55 
69 


DO 00OA8 
16 000AB 


MOVL 
JSB 


R5, RO 
FIND CHAR 








52 




50 


DO 000AD 
12 00OBO 


MOVL 


RO, REXT,GUAL 












03 


BNEQ 


3$ 


• 0207 






52 




65 


3C 0OOB2 


MOVZWL 


(R5), NEXT„QUAL 


• 0209 






51 




20 


DO 000B5 3$; 


MOVL 


#32, R1 


• 0212 






50 




55 
69 


DO 000B8 
16 00OBB 


MOVL 
JSB 


R5, RO 

FIND CHAR 








50 




52 
03 


D1 OOOBD 
15 OOOCO 
DO 00OC2 


CMPL 
BLEQ 


R2, RO 
4$ 








52 




50 


MOVL 


RO, R2 








51 




09 


DO 0OOC5 4$: 


MOVL 


#9, R1 








50 




55 
69 


DO 0OOC8 
16 OOOCB 


MOVL 
JSB 


R5, RO 
FIND CHAR 








50 




52 
03 


D1 OOOCO 
15 OOQDO 
DO 00OD2 


CMPL 
BLEQ 


R2, no 
5$ 








52 




50 


MOVL 


RO, R2 








64 




52 


BO 00005 5$: 


MOVW 


R2, (R4) 
(R4), (R5) 








65 




64 


A2 000D8 


SUBW2 


0214 






50 




64 


3C OOODB 


MOVZWL 


<R4), RO 
RO, 4<R5) 


0215 




04 


A5 




50 


CO OOOOE 
39 00OE2 


A0DL2 




04 B4 


64 


6E 




03 


MATCHC 


#3, ELIPSIS, (R4), 34(R4) 


0216 










S3 


13 000E8 


BEQL 


6$ 








53 




DO OOOEA 


MOVL 


#3, R3 








53 




03 


C2 OOOED 6$: 


SUBL2 


#3, R3 
11* 












33 


13 uQQFO 


BEQL 


0219 






50 




64 


3C QyQF2 


MOVZWL 


(R4), RO 








50 


04 


A4 


CO 0OuF5 


AD0L2 


4<R4), RO 








50 




03 


C2 Q00F9 


SUBL2 


#3. RO 








50 




53 
24 


01 QOOFC 
12 OOOFF 


CMPL 
BNEQ 


PTfi, RO 
1 1S 








67 


02 


A6 


9E 00101 
A2 00105 


MOVAB 


2(R6), HELPINF0 


0222 






64 




03 


SUBW2 


#3, (R4) 


• 0223 










04 


12 00108 


BNEQ 


7S 


0225 










67 


D7 0010A 


DECL 


HELPINFO 


• 022? 



ZZ-ENSAA-7.0 

HELP 

06-10 



Help control routine 

*** HELP Handle HELP command 

Help control routine 



J 2 
27-JuM984 
27-JuM98« 

26-Jul-1984 



Fiche 8 Frame J2 Sequence 

15:58:29 VAX-11 Bliss-32 V4. 0-742 
09:40:23 DMA1 jCSYS0.SYSMAINT3HELP.832;231 



1464 



50 



00 
F3 



00 
E9 



2C 



08 



AE 
50 



2C 

28 

45 

56 
53 
43 
4E 
54 
44 
42 
4D 
5A 

0C 

E4 
10 

2C 



67 

51 
A7 

5i 



r ^0 



51 
50 

25 

2A 

A7 
50 

A7 

51 
8F 

50 
8F 

8F 

8F 

8F 

8F 

8F 

8F 

8F 

AD 
AD 
AE 
50 
50 
A7 
05 



ff 



04 
04 



OC 



01 



08 

2C 
FF 



28 

28 

08 



02 
56 
01 
09 
AO 
51 
05 
24 
64 
01 
13 

B440 
07 

B440 
05 
56 
51 
56 

FF45 
56 
6A 
AE 
61 
60 
A1 
50 
30 
50 
2A 
50 
24 
50 
1E 
50 
18 
50 
12 
50 
OC 
50 
06 
50 
26 
51 
AE 
20 
A7 

50 
67 

01 
67 

A7 

A7 

05 

AE 

09 



11 
D6 
C3 
11 
9E 

*2 

F3 

11 

3C 

CE 

11 

91 

13 

91 

12 

E2 

F2 

D6 

31 

DO 

15 

DO 

91 

12 

9A 

91 

13 

91 

13 

91 

13 

91 

13 

91 

13 

91 

13 

91 

13 

91 

13 

91 

12 

D 

9 

2 

9A 

7 

9 

D1 



0010C 
001 OE 
00110 
00114 
00116 
001 1A 
001 1F 
00123 
00125 
00128 
0012B 
0012D 
00132 
00134 
00139 
001 3B 
00140 
00144 
146 

.149 
0014D 
001 4 F 
00153 
00157 
00159 
001 5D 
00161 
00163 
00167 
00169 
001 6D 
0016F 
00173 
00175 
00179 
001 7B 
001 7F 
00181 
00185 
00187 
0Q18B 
0018D 
00191 

0193 

0197 
j019C 
001A2 
1A6 

JAB 
0Q1AF 

B4 

HB6 
HB9 
HBC 
>1BE 

nci 



7$: 
8$: 

9$: 

10$: 

11$: 



12$: 



13$: 
14$: 



15$: 



16$: 




BRB 

JNCL 

SUBL3 

BRB 

MOVAB 

BBSS 

AOBLEQ 

BRB 

MOVZWL 

MNEGL 

BRB 

CMPB 

BEQL 

CMPB 

BNEQ 

BBSS 

AOBLSS 

INCL 

BRW 

MOVL 

BLEQ 

MOVL 

CMPB 

BNEQ 

MOVZBL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BEQL 

CMPB 

BNEQ 

MOVL 

MOVB 

MOVC3 

MOVZBL 

ASHL 

MOVB 

CMPL 

BGTR 

DECL 

DECL 

TSTL 

BEQL 

TSTW 

BNEQ 



8$ 

LEVEL 

#1, HELPJNFO, ; 

10i 

-KR0), R1 

Rt, WILDFLAGS, 

#5, I, 9$ 

15$ 

(R4), R1 

#1, I 

14$ 

a4(R4>[I], #37 

13$ 

MtROCn, #42 

14$ 



Page 1 5 
(10) 



0229 
0231 



10$ 



0232 



0221 
0237 



0239 



WILDFLAGS, 
12$ 



14$ 



LEVEL, 

R1, I, 

LEVEL 

1$ 

LEVEL, HELPINFO+40 

18$ 

KEY1TEXT- R1 

(R1), 069 

18$ 

KR1), RO 

RO, #86 

16$ 

RO, #83 

16$ 

RO, #67 

16$ 

RO, #78 

16$ 

RO, #84 

16$ 

RO, #68 

16$ 

RO, #66 

16$ 

ro, m 

16$ 

RO, #90 

18$ 

R1, HELPFAB+44 

KEYLIST, HELPFAB+52 

#32, KEYLIST+8, KEYLIST 

HELPINFO+44, RO 

#~1, RO, RO 

RO, HELPlNFO+44 

HELPJNFO, #5 

17$ 

HELPINFO 

HELPINFO+40 

HELPINFO+40 

19$ 

KEYLIST 

20$ 



0242 

0245 
0247 
0254 



0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0265 
0266 
0267 
0269 

0271 

027! 
027 ( 
028I 















K 2 


> 


ZZ-ENSAA-7.0 Help control routine 










27 


-Jul- 


•1984 


HELP *** HELP Handle HELP c 


ommand 








27 


-Jul- 


•1984 15:58: 


06-10 Help control routine 










26 


-Jul- 


•1984 09:40: 


08 AE 


63 




08 


28 


001C3 


19$: 


M0VC3 


28 


A7 




01 


DO 


001C8 




MOVL 




14 


2C 


A7 


E8 001CC 


20$: 


BLBS 






04 


AE 


9F 


001 DO 




PUSHAB 






OC 


AE 


9F 


001D3 




PUSHAB 








58 


DD 


001 D6 




PUSHL 


0000V 


CF 




03 


F8 001 D8 




CALLS 




04 




50 


E9 


OHDD 




BLBC 


2D 


A7 




01 


88 


0>1E0 




BJSB2 


FF64 


CD 




01 


DO 


C01E4 


21$: 


MOVL 






FF68 


CD 


B4 


001E9 




CLRW 






BO 


AD 


9F 


001ED 




PUSHAB 


OOOOOOOOG 


00 




01 


FB 


001F0 




CALLS 




60 




50 


E9 001F7 




BLBC 






CE 


AD 


95 


001FA 




TST8 








04 


13 


001FD 




BEQL 


2D 


A7 




08 


§ 8 


0Q1FF 
00203 




BJSB2 






FF6C 


CD 


9F 


22%: 


PUSHAB 


OOOOOOOOG 


00 




01 


FB 


m 




CALLS 




49 




50 


E9 




BLBC 


34 


AE 


38 


AE 


9E 


99211 

00216 




M0VA8 






30 


AE 


9F 




PUSHAB 






FF64 


CD 


9F 


00219 




PUSHAB 








01 


DD 


0021D 




PUSHL 


0000V 


CF 




03 


FB 


0021 F 




CALLS 




33 




50 


E9 


00224 
00227 




BLBC 


FF64 


CD 




01 


DO 




MOVL 


50 2D A? 


01 


FF68 


CD 
02 


B4 
EF 


88118 




CLRW 
EXT2V 




04 




50 


E9 


$0236 
00239 




BLBC 




10 


2D 


A7 


E9 




BLBC 








50 


DD 


0Q23D 

0023F 


23$: 


PUSHL 






FF64 


CD 


9F 




PUSHAB 








01 


DD 


00243 




PUSHL 


oooov 


CF 




Q3 


FB 


00245 




CALLS 




OD 




50 


E9 0024A 




BLBC 








OOOOV 30 


0024D 


24$: 


BSBW 






BO 


AD 


9F 


00250 




PUSHAB 


OOOOOOOOG 


00 




01 


FB 00253 




CALLS 










04 


0025A 25$t 


RET 


; Routine Size: 603 bytes, Routine 


Base.* 


CODE 


+ 0000 









0350 1 



Fiche 8 Frame K2 Sequence 1465 
29 VAX-11 8liss-32 V4. 0-742 Page 16 

23 DMA1'CSYS0.SYSMAINT3HELP.B32;231 (10) 

#8, HELP HELP, KEYLIST ; 0283 

#1, HELPlNFO+40 ; 0284 

HELPINF0+44, 21$ ; 0287 

W ; 0295 

KEYLIST 

R8 

*3, DSR$KEY_EQUAL ; 

RO, 21$ 

41, HELPJNFO+45 ; 0297 

#1, STARTRFA ; 0299 

STARTRFA+4 ; 0300 

HFLPFAB ; 0306 

*\, SYS$OPEN 

STAT, 25$ 

HELPFAB<-30 ; 0308 

22$ 

#8, HELPINFO+45 ; 0310 

HELPRAB ; 0317 

#1, SYSSCONNECT 

STAT, 25$ ; 0318 

NEXTKEV, NEXTDESC+4 ; 0319 

NEXTDESC ; 0325 

STARTRFA 

#1 ; 

«. DO HELP 

STAT, 25$ ; 0326 

#1, STARTRFA ; 0332 

STARTRFA+4 ; 0333 

#2, #1, HELPJNFO+45, NOERR ; 0335 

NOERR, 23$ 

HELPINFO+45, 24$ ; 0336 

NOERR ; 0343 

STARTRFA ; 

*1 

#3, PRINT.OTHERHELP 

STAT, 25$ ; 0344 

PRINT CRLF ; 0347 

HELPF&B ; 0348 

01, SYS$CLOSE 

; 0349 



ZZ-ENSAA-7.0 

HELP 

06-10 

0351 1 

0352 1 

0353 1 

0354 1 

0355 1 

0356 1 

0357 1 

0358 1 

0359 1 

0360 1 

0361 1 

0362 1 

0363 1 
C364 1 

0365 1 

0366 1 

0367 1 

0368 1 

0369 1 

0370 1 

0371 1 

0372 1 

0373 1 

0374 1 

0375 1 

0376 1 

0377 1 

0378 1 

0379 1 

0380 1 

0381 1 

0382 1 

0383 1 

0384 1 

0385 I 



do help stuff 
*** HELP Handle 
do help stuff 



HELP command 



L 2 
27-JuM9M 

27-Jul-1984 
26-Jul-1984 



Fiche 8 Frame L2 Sequence 1466 
15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 17 

09:40:23 DHA1 :CSYS0.SYSMAINT3H£LP,B32;231 (11) 



XSBTTL 'do help stuff 1 

ROUTINE do.help (level, firstrfa, key) 



FUNCTIONAL DESCRIPTION 

Recursive routine to scan for all help. Each incarnation will call 
itself at each matched key of it's level, to scan lower levels of 
that key. Matched keys are printed, lowest level help text is 
printed. If there is no match, the message 'No help for... 1 is 
typed, and a list of other help available is typed. This list is 
typed anyway at the first level if the first level key is 'HELP',. 



the level of help for which this incarnation is 
to extract help. 

The RFA to begin searching the file at. 
address of descriptor to save our key 



INPUTS 

level 

firstrfa 
key 

IMPLICIT INPUTS 
none 

OUTPUTS 

none 

IMPLICIT OUTPUTS 

several flags in the HELPINF0 block. 

SIDE EFFECTS 

updates RFA block beyond text used at this level, unless Allhelped 

RETURN CODES 
none 



Mill 



M 2 

ZZ-ENSAA-7,0 do help stu'f 27-Jul-1984 Ffche 8 Frame M2 Sequence 1467 

HELP *** HELP Handle HELP command 27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 18 

06-10 do help stuff 26-Jul-1984 09:40:23 0MA1 :CSYS0.SYSMAINTJHELP.B32;231 (12) 

BEGIN 

BIND 

rab = .helpinfo LhlpSL rabJ : bblock, 

curkey = (.helpinfo ChlpSl.keylistJ + ((.level - 1)*dsc$c.s..bln)) : bblock; 

MAP 

key : REF bblock, 
firstrfa : REF bblock; 

LOCAL 

Linelevel, ! level of current key Mne 

qualifier. ! Set if curkey begins w/ 'V 

char i BYTE, 

nextkey : VECTOR [hlp$c jnaxrecsu, BYTE3, ! space to hold lower key 

nextdesc : bblock Cdsc$c s blnj, ! descriptor lower key 

keydesc : bblock [dsc$c_s_Etn], 

bound.. I eve I, 

lastlevel, ! last key level found 

sawerfa : bblock CrfaSc^lengthJ; ! Where we started 

IF .level 6TR hlp$c_maxkeys OR (.level 6TR .helpinfo ChlpSl.realkeysJ AND .level LSS .helpinfo Chlp$l_allhelp 

THEN 

RETURN 1; ! We oughtn't to be here, 

IF .curkey [dsc$a .pointer] NEQ ! If key is not null 

THEN 

char a .(.curkey CdscSa oointerJXO, 8, 0> ! Get first char of input key 
ELSE 

char = 0; ! otherwise, clear it 

qualifier = .char EQL XC'/'; 

bcund level = lastlevel = .level - 1; ! Init last level found 

CHSMQfa <rfa$c_length, .firstrfa, rab CrabSw^rfaJ); J Set RfA to read 

DO 

BEGIN ! Find first key of right level 

LOCAL 

stat; ! status 

CHSMOVE (rfa$c_length, rab [rabSw^rfaJ, saverfa); ! Save start RFA 
stat = READ 0; ! Read a record 

IF NOT .stat ! If some nasty error hit us 

THEN 

IF .stat EQL rms$ M eof THEN EXIU00P ELSE RETURN .stat; ! Say it didn't work out 

linelevel = is key on line (keydesc); ! Get level and key from line 
END 

UNTIL (IF NOT .qualifier THEN (.linelevel LEQ .level) ELSE (.linelevel EQL hlpScjnaxkeys + 1 OR .I'.ielevel 

LEQ .bound^level)) ! Qual. search can skip 1 level 

AND .linelevel NEQ 0; ! until we find our level, or won't 

JF .linelevel LSS .level ! No help at this level 



0386 


2 


0387 


2 


0388 


2 


0389 


2 


0390 


2 


0391 


2 


0392 


2 


0393 


2 


0394 


2 


0395 


2 


0396 


2 


0397 


2 


0398 


2 


0399 


2 


0400 


2 


0401 


2 


0402 


2 


0403 


2 


0404 


2 


0405 


2 


0406 


2 


0407 


3 


0408 


3 


0409 


2 


0410 


2 


0411 


2 


0412 


2 


0413 


2 


0414 


2 


0415 


2 


0416 


2 


0417 


2 


0418 


2 


0419 


2 


0420 


2 


0421 


2 


0422 


2 


0423 


3 


0424 


3 


0425 


3 


0426 


3 


0427 


3 


0428 


3 


0429 


3 


043r 


3 


043'. 


3 


0432 


3 


0433 


3 


0434 


3 


0435 


3 


0436 


3 


0437 


3 


0438 


4 


0439 


3 


0440 


2 


0441 


2 


0442 


2 



ZZ-ENSAA-7.0 

HELP 

06-10 



do help stuff 
*** HELP Handle 
do help stuff 



HELP command 



N 2 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



15:58:29 
09:40:23 



Fiche 8 Frame N2 Sequence 1468 

i VAX-11 Bliss-32 V4. 0-742 Page 19 

! DMA1:CSYS0.SYSMAINT3HELP,B32;231 (12) 



0443 
0444 
0445 
0446 
0447 
04^8 
0449 



THEN 



AND NOT .qualifier 



BEGIN 

CHSMOVE (rtaSc Length,, rab Crab$w_rfaJ, . firstrfa); 

RETURN 1 

END; 



! Backup RFA 



ZZ-ENSAA- 


7,0 


HELP 




06-10 




; 0450 


2 


; 0451 


? 


; 0452 


2 


; 045? 


2 


; 0454 


2 


; 0455 


2 


; 0456 


2 


; 0457 


2 


; 0458 


2 


; 0459 


2 


0460 


3 


0461 


3 


; 0462 


3 


; 0463 


3 


; 0464 


3 


; 0465 


3 


; 0456 


3 


; 0<67 


3 


; 'J468 


3 


0469 


3 


; 0470 


3 


; 0471 


3 


; 0472 


3 


; 0473 


3 


0474 


3 


; 0475 


3 


; 0476 


3 


; 0477 


3 


; 0478 


3 


; 0479 


3 


; 0480 


3 


; 0481 


3 


; 0482 


3 


; 0483 


3 


0484 


3 


0485 


4 


; 0486 


4 


; 0487 


4 


; 0488 


3 


; 0489 


3 


; 0490 


3 


; 0491 


3 


; 0492 


3 


; 0493 


4 


0494 


4 


; 0495 


4 


; 0496 


4 


; 0497 


4 


; 0498 


4 


; 0499 


4 


; 0500 


4 


; 0501 


4 


; 0502 


4 


; 0503 


4 


; 0504 


4 


; 0505 


4 


; 0506 


4 



do help stuff 

*** HELP Handle HELP command 

do help stuff 



B 3 
27-Jul-1984 Fiche 8 Frame B3 Sequence 1469 

27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 20 

26-Jul-1984 09:40:23 DMA1 :CSYS0.SYSMAINT3HELP.B32;231 (13) 



Now process the file, from current position to the next key of higher level 
(i.e.* level 2 processing ends when level 1 key is found, level 1 
processing ends when end-of-file is reached). 



rab Crab$b_rac3 = rab$c.rfa; 

WHILE 1 DO 
BEGIN 

LOCAL 

wildkey, 

stat, 

linelevel; 

stat = REAO (); 

IF NOT .stat 
THEN 



! Set random for fst record 



! Flag for wildcardir.g key 

! Status 

! level of current h'nr 

! Read next record 



IF .stat EQL rmsS^eof THEN EXITL00P ELSE RETURN .stat; 
linelevel = is_key_on_line (keydesc); ! Find key on this line 



! If this is numeric key 
! level (not qualifier) 



IF .linelevel LEQ hlp$c maxkeys 

AND .linelevel GTR 
THEN 

last I eve I = .linelevel; ! then remember it 

IF .linelevel LEQ .bound^level AND .linelevel NEQ THEN EXITL00P; 

1^ .linelevel EQL .level ! If levels match, 

OR .level GEO .helpinfo Chlpil^al Ihelp] ! or ALLHELPed 
OR (.qualifier ! or key is qualifier 

AND .linelevel EQL hlp$c maxkeys + 1 ! and so is line 
AND .lastlevel EQL .bound level) ! and it's at right level 

THEN ! This is a possible 

IF dsr$key_ equal (keydesc, curkey, wildkey) ! Compare the keys 

OR .level GEO .helpinfo ChlpSl.allhelp] ! see if all help ('../) used 

THEN 

BEGIN ! They ARE equal... go to it 

BIND 



! Exit if found key we don't want 



keynames = helpinfo [hlp$l_keynames] : VECTOR [hlp$c„maxkoys, LONG]; 

keynames C.bound^leveU = .key; ! Set up static key pointer 
CHIM0VE (key Cdsc$w length] = ! Set up key text— all rest 

.helpinfo [hlp$T„butdesc] - ! or record from key on 

(.keydesc Cdsc$a^pointer3 - .(helpinfo Chlp$l_bufdesc] + 4)), .keydesc Cdsc$a pointer], 

.key Cdsc$a pointer]): ! Copy key to save it 
helpinfo ChlpSv^qual] = .linelevel EQL hlp$cjnaxkeys + 1; ! Set flag if this is qualifier 

U .level EQL .helpinfo Chlp$l realkeys] ! If this is lowest level 
OR .level GEO .helpinfo [hlp$l_allhelp] ! or we want it all 



2Z-ENSAA- 


7.0 


HELP 




06-10 




; 0507 


A 


; 0508 


5 


; 0509 


5 


2 0510 


5 


; 0511 


5 


; 0512 


5 


; 0513 


A 


; 0514 


A 


; 0515 


A 


; 0516 


5 


; 0517 


5 


; 0518 


5 


; 0519 


5 


; 0520 


5 


; 0521 


5 


; 0522 


A 


; 0523 


A 


; 052A 


4 


; 0525 


A 


; 0526 


5 


; 0527 


5 


; 0528 


5 


; 0529 


5 


; 0530 


5 


; 0531 


5 


; 0532 


A 


; 0533 


A 


; 053A 


A 


; 0535 


A 


; 0536 


A 


; 0537 


A 


; 0538 


3 


; 0539 


3 


; 0540 


2 


; 05A1 


2 



C 3 
do help stuff 27-Jul-198A Fiche 8 Frame C3 Sequence 1A70 

*** HELP Handle HELP command 27-Jul-198A 15:58:29 VAX-11 BUss-32 V4. 0-742 Page 21 

do help stuff 26-Jul-1984 09:40:23 DMA1 :CSYS0.SYSMAINT]HELP.B32;231 (13) 

THEN 

BEGIN 

helpinfo [hlp$v_foundhelp] =1; 1 We've found something 

print_keys (.level); ! Print out keywords found 

print^text (.linelevel, .level); ! Print out text under key 

rab [rab$b racJ = rab$c rfa ! Set random 

END; 

nextdesc CdscSa^pointerD = nextkey; ! Set up lower key space 

LOCAL 
stat; 

stat - do help (.level + 1, rab Oab$w rfaJ, nextdesc); ! Find lower level help 
IF NOT .stat THEN RETURN .stat); 

IF .level EQL .helpinfo Chlp$l realkeysJ ! If lowest level 
THEN 

( 

LOCAL 
stat; 

stat = print otherhelp (.level + 1, rab Crab$w rfa], 1); ! type lower keys 
IF NOT .stat THEN RETURN .stat); 

IF NOT .wildkey AND .level LSS .helpinfo [hlp$l.allhelp] THEN RETURN 1; 

! If this key wasn't wild, (even implicitly) don't continue searc v .ng 
rab Crab$b rac] = rab$c rfa ! Next loop read is rnd 
END; ! Key found 

END; ! Loop 



.J 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 0542 


2 


; 0543 


2 


; 0544 


2 


; 0545 


2 


; 0546 


2 


; 0547 


2 


; 0548 


2 


; 0549 


2 


; 0550 


3 


; 0551 


3 


; 0552 


? 


; 0553 


3 


; 0554 


3 


; 0555 


3 


; 0556 


3 


; 0557 


3 


; 0558 


3 


; 0559 


3 


; 0560 


3 


; 0561 


3 


; 0562 


3 


; 0563 


3 


; 0564 


3 


; 0565 


3 


; 0566 


4 


; 0567 


5 


; 0568 


4 


; 0569 


3 


; 0570 


4 


; 0571 


4 


; 0572 


4 


; 0573 


4 


; 0574 


4 


; 0575 


4 


; 0576 


4 


; 0577 


4 


; 0578 


4 


; 0579 


4 


; 0580 


4 


; 0581 


4 


; 0582 


4 


; 0583 


4 


; 0584 


4 


; 0585 


4 


; 0586 


4 


; 0587 


2 


; 0588 
; 0589 


2 
2 



0590 1 



do help stuff 

*** KELP Handle HELP command 

do help stuff 



3 

27-Jul-1984 Fiche 8 Frame 03 Sequence 1471 

27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 22 

26-Jul-1984 09:40:23 DMA1 :[SYS0.SYSMAINT]HELP.B32;231 (14) 



Now* type out list of other keys at this level if: 

o There was no help found at this level (or a lower level) 

and this level is the highest wild-carded level or no levels 

are wildcarded. 
o If this is level 1 and the key was 'HELP 1 or if no text or 

other keys were printed out elsewhere. 

BEGIN 

LOCAL 

position, 
size, 
first, 
wildpath; 

BUILTIN 
FFS; 



position = 0; 

size = . level - 1; 

wildpath = NOT FFS (position, size, 

nelpinfo [hlp$b_wi Idf lags], first); 



! See if wild path here 
! If haven't found help 



JF ( NOT .nelpinfo Chlp$v foundhelp] 

AND NOT (.level GEO .fielpinfo [hlp$Lallhelp] ! and not all-helped 
OR .wildpath)) ! and not wild path 

THEN 

BEGIN ! 



LOCAL 

stat; 

rab [rab$b rac] = rab$c rfa; 
CHSM0VE (6, saverfa, raB CrabSw rfaJ); 
stat = READ (); 
stat = READ (); 



! Set to random access 

! Copy begin RFA 

! Position record stream 

! Advance past begin key 



END; 

1 
END; 



IF NOT .stat THEN RETURN .stat; ! 

stat = print„otherhelp (.level, rab Crab$w_rfaJ, 0); 

U NOT .stat THEN RETURN .stat 

END ! 

! of do.help 



[03] 



[03] 
C03] 
[03] 
[03] 

[03] 



Type out other keys 



[03] 



5E 



FED8 



0FFC 
CE 9E 



KEYNAMES^ 



00000 DO HELP:. WORD 
00002 M0VAB 



HELPINF0+16 



Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
-296(SP5, SP 



; 0352 



ZZ-ENSAA-7,0 

HELP 

06-10 



do help stuff 
*** HELP Handle 
do help stuff 



HELP command 



E 3 

27-Jul-1984 
27-Jul-1984 
26-JuL-1984 



15:58:29 
09:40:23 



Fiche 8 Frame E3 Sequence 
VAX-11 Bliss-32 V4. 0-742 
DMA1:CSYS0.SYSMAJNTDHELP.832;231 



1472 



5A 
58 
5B 
5B 
05 



00000000" EF 
00000000* EF 

51 

2F 







57 






56 






6F 




04 


AE 


04 


BE 08 


BC 




08 


AE 


10 


AE 04 


BE 




0000V 


CF 
OA 




0001827A 


8F 




0000V 


CF 
59 
05 
58 

06 

6E 



08 BC 



04 



58 

09 
BE 



1E AA 

0000V CF 

OD 

0001827A 8F 



00000000* EF 

04 AC 
00000000^48 
08 
58 
03 
01F2 
58 
09 
58 
78 

04 AB 
06 

04 88 
02 
51 
50 
51 
02 
50 
50 

FF A8 
56 

10 AA 
06 
57 
06 
00 
50 
50 
23 



18 



08 



AE 
01 
50 
AE 
59 
08 
59 
05 
59 
CA 
59 
C6 
59 
OD 
AE 
06 

0165 
02 
00 
50 
50 
03 

OOFB 



18 AE 



08 



DO 
DO 
7E 
C2 
D1 
15 
31 
D1 
15 
D1 
19 
D5 
13 
90 
11 
94 
D4 
91 
12 
D6 
DO 
9E 
DO 
9E 
28 
D2 
28 
FB 
E8 
D1 
13 
04 
9F 
F8 
DO 
E9 
D1 
11 
D1 
13 
D1 
14 
D5 
13 
D1 
18 
E9 
28 
31 
90 

E8 
D1 
12 
31 
U4 
9F 



00007 
OOOOE 
00012 
0001A 
0001 D 
00020 
00022 
00025 
0002C 
0002E 
00035 
00037 
0003A 
0003C 
00040 
00042 
00044 
00046 
00049 
0004B 
0004D 
00050 
00054 
00057 
0005C 
00062 
00066 
0006 C 
00071 
00074 
0007B 
0007D 
0007E 
00081 
00086 
00089 
0008D 
00090 
00092 
00095 
00097 
0009A 
0009C 
0009E 
OOOAO 
000A3 
000A5 
00QA9 
OOOAF 
0O0B2 
Q00B6 
OOOBB 
OOOBE 
000C5 
000C7 
OOOCA 
OOOCB 



1$: 



2$: 



3$: 
4$: 



5$: 



6$: 



7$: 



8$: 



9$: 
10$: 

11$: 



12$ 

13$ 
14$ 



15$ 
16$ 
17$ 



MOVL 

MOVL 

MOVAQ 

SUBL2 

CMPL 

BLEQ 

BRW 

CMPL 

BLEQ 

CMPL 

BLSS 

TSTL 

BEQL 

MOVB 

BRB 

CLRB 

CLRL 

CMPB 

BNEO 

INCL 

MOVL 

MOVAB 

MOVL 

MOVAB 

M0VC3 

MCOML 

M0VC3 

CALLS 

BLBS 

CMPL 

BEQL 

RET 

PUSHAB 

CALLS 

MOVL 

BL8C 

CMPL 

BRB 

CMPL 

BEQL 

CMPL 

BGTR 

TSTL 

BEQL 

CMPL 

B6EQ 

BLBC 

M0VC3 

BRW 

MOVB 

CALLS 

BLBS 

CMPL 

BNEQ 

BRW 

RET 

PUSHAB 



R10 



R11 



HELPINFO 



CHAR 



HELPINFO+4, 

LEVEL, R8 

9HELPINF0+36CR8J, 

#8, R11 

R8, #5 

1$ 

29$ 

R8, HELPINFO+40 

2$ 

R8, 

12$ 

4(R11) 

3$ 

a4(R11), 

4$ 

CHAR 

RO 

CHAR, #47 

5$ 

RO 

RO, QUALIFIER 

-KR8), LASTLEVEL 

l.ASTLEVEL, B0UND„LEVEL 

.6(R10), 4(SP) 

#6, aFIRSTRFA, 34<SP> 

QUALIFIER, 8(SP) 

A'6, a4(SP), SAVERFA 

00, READ 

STAT, 7$ 

STAT, #98938 

11$ 

KEYDESC 

#1, IS KEY ONJ.INE 

RO, LJRELE7EL 

8(SP), 8$ 

LINELEVEL, R8 

9$ 

LINELEVEL, #6 

10$ 

LINELEVEL, BOUND.LEVEL 

6$ 

LINELEVEL 

6$ 

LINELEVEL, R8 

13$ 

8(SP), 13$ 

#6, 34(SP), AFIRSTRFA 

29$ 

#2, 30(R10) 

#0, READ 

STAT, 17$ 

STAT, #98938 

16$ 

27$ 

KEYDESC 



Page 23 
(14) 

0389 
0390 



0407 



0412 

04U 

0416 
0418 



0419 

0420 

0438 
0428 
0429 
0431 
0434 



0436 
0438 

0*39 

0440 

0442 

0443 
0446 
0447 
0457 
0467 
0469 
04?2 

0474 



ZZ-ENSAA-7.0 


do help stuff 

*** HELP Handle HELP c 


• 






F 3 

27-Jul- 


» 
•1984 


Fkhe 8 Frame F3 Sequence 1473 


— .. ... . 


HELP 


ommand 






27-Jul- 


•1984 15:58 


:29 VAX-11 Bliss-32 V4. 0-742 Page 24 


06-10 


do help stuff 








26-Jul- 


•1984 09:40 


:23 DMA1:CSYS0.SYSMAINTJHELP.B32;231 


(14) 




oooov 


CF 




01 


FB OOOCE 


CALLS 


#1, IS KEY ON.LINE 








59 




50 


DO 0OOD3 


MOVL 


RC, LIRELEVEL 








05 




59 

07 


D1 0OOD6 
14 000D9 


CMPL 
BGTR 


LINELEVEL, #5 
18$ 


• 0476 










59 


D5 OOODB 


TSTL 


LINELEVEL 


' 0477 










03 


15 OOODD 


BLEQ 


18$ 








56 




59 


DO OOODF 


MOVL 


LINELEVEL, LASTLEVEL 


• 0479 






6E 




59 
04 
59 
DC 


D1 000E2 18$: 
14 000E5 
D5 000E7 
12 000E9 


CMPL 
BGTR 
TSTL 
BNEQ 


LINELEVEL, BOUND.LEVEL 

19$ 

LINELEVEL 

15$ 


► 0481 

• 






58 




59 
16 


D1 OOOEB 19$: 
13 OOOEE 


CMPL 
BEQL 


LINELEVEL, R8 
20$ 


• 0483 




00000000' 


EF 




58 
OD 


D1 OOOFO 
18 0OOF7 


CMPL 
BGEQ 


R8, HELPINFO 
20$ 


• 0484 






BA 




57 


E9 000F9 


BLBC 


QUALIFIER, 14$ 


• 0485 






06 




59 

B5 


D1 OOOFC 
12 OOOFF 


CMPL 
BNEQ 


LINELEVEL, *6 
14$ 


■ 0486 






6E 




56 
BO 


D1 00101 
12 00104 


CMPL 
BNEQ 


LASTLEVEL, BOUND_LEVEL 
14$ 


* 0487 








OC 


AE 
5B 


9F 00106 20$; 
DD 00109 


PUSHAB 
PUSHL 


WILDKEY 
R11 


; 0490 








20 


AE 


9F 001 OB 


PUSHAB 


KEYDESC 






oooov 


CF 




03 


FB 0010E 


CALLS 


#3, DSR$KEY EQUAL 








09 




50 


E8 00113 


BLBS 


RO, 21$ 






00000000* 


EF 




58 
97 


D1 00116 
19 0011D 


CMPL 
BLSS 


R8, HELPINFO 
14$ 


• 0491 






50 


OC 


AC 


DO 001 IF 21$: 


MOVL 


KEY, RO 


■ 0498 






51 




6E 


DO 00123 


MOVL 


BOHND LEVEL, R1 
RO, KEYNAMESCR1] 






00000000' EF41 




50 


DO 00126 


MOVL 






51 00000000' 


EF 


1C 


AE 


C3 001 2E 


SUBL3 


KEYDESC+4. HELPINFO+12, R1 
HELPINFO+8, R1 


• 0501 






51 00000000' 


EF 


CO 00137 


ADDL2 








60 




51 


BO 001 3E 


MOVW 


R1, (RO) 


• 0500 




04 BO 1C 


BE 




51 


28 00141 


M0VC3 


R1, 9KEYDESC+4, 94(R0) 


• 0502 










50 


D4 00147 


CLRL 


RO 


; 0503 






06 




59 
02 
50 


D1 00149 
12 0014C 
D6 001 4* 


CMPL 
BNEQ 
INCL 


LINELEVEL, #6 

22$ 

RO 




00000000 ' EF 


01 


01 




50 


FO 00150 22$: 


INSV 


RO, *1, #1, HELPINFO+45 






00000000' 


EF 




58 
09 


D1 00159 
13 00160 


CMPL 
BEQL 


R8, HELPINFOH40 
23$ 


0505 




00000000* 


FF 




58 


D1 00162 


CMPL 


R8, HELPINFO 
24i 


0506 










18 


19 00169 


BLSS 






00000000' 


EF 




04 


88 0016B 23$: 


BISB2 


#4, HELPINFO+45 


0509 










58 


DD 00172 


PUSHL 


R8 


0510 




oooov 


CF 




01 


FB 00174 


CALLS 


#1, PRINT.KEYS 












58 


DD 00179 


PUSHL 


R8 


0511 










59 


DD 001 7B 


PUSHL 


LINELEVEL 






oooov 


CF 




02 


FB 001 7D 
90 00182 


CALLS 


#2, PRINT TEXT 






IE 


AA 




02 


MOVB 


#2, 30(R10) 


0512 




24 


AE 


28 


AE 


9E 00186 24$: 


MOVAB 


NEXTKEY, NEXTDESC+4 


• 0515 








20 


AE 


9F 0018B 


PUSHAB 


NEXTDESC 


0521 








08 


AE 


DD 0018E 


PUSHL 


8(SP) 










01 


A8 


9F 00191 


PUSHAB 


KR8) 






FE67 


CF 




03 


FB 00194 


CALLS 


#3, DO HELP 








7i 




50 


E9 00199 


BLBC 


STAT, 30$ 


• 0522 




00000000* 


EF 




58 


D1 0019C 


CMPL 


R8, HELPINFO+40 


• 0524 



ZZ-ENSAA-7.0 

HELP 

06-10 



do help stuff 
*** HELP Handle 
do help stuff 



HELP command 



0000V 
00000000* 



53 00000000 ' EF 



32 00000000 • 
00000000 * 



04 BE 



1E 
10 
0000V 
0000V 



CF 
65 
09 
EF 



51 
51 



50 
EF 
EF 

26 
AA 
AE 
CF 
CF 
12 



0000V CF 
03 
50 



08 
01 



OC 



FF 



08 



10 
01 
AE 
A8 
03 
50 
AE 
58 
55 
FEED 
52 
A8 
50 
52 
02 
50 
50 
02 
58 
29 
50 
02 
06 
00 
00 
50 
7E 
AE 
58 
03 
50 
01 



12 
DD 
DD 
9F 
F8 
E9 
E8 
D1 
19 
31 
DA 
9E 
D4 
EA 
12 
D6 
D2 
EO 
D1 
18 
E8 
90 
28 
F8 
F8 
E9 
DA 
DD 
DD 
FB 
E9 
DO 
OA 



G 3 

27-JuM9M 
27-JuM984 
26-JUM9M 



Fkhe 8 Frame 63 Sequence 

15:58:29 VAX-11 Bliss-32 V4. 0-742 
09:40:23 DMA1 :CSYS0.SYSHAINT3HELr.B32;231 



1474 



001A3 
001A5 
001A7 
001AA 
001AD 
001B2 
001B5 
00189 
001CO 
001C2 
001C5 
001C7 
001 CB 
001CD 
001D6 
001D8 
001DA 
001DD 
001E5 
001EC 
001EE 
001 F1 
001 F 5 
001FB 
00200 
00205 
00208 
0020A 
0020D 
0020F 
00214 
00217 
0021A 



25$: 



26$: 
27$: 



28$: 



29$: 
30$: 



BNEQ 25$ 

PUSHL #1 

PUSHL 8(SP) 

PUSHA8 KR8) 

CALLS 03, PRINT.OTHERHELP 

BLBC STAT, 30$ 

BLBS WILDKEY, 26$ 

CMPl R8, HELPINFO 

BLSS 29$ 

BRW 13$ 

CLRL POSITION 

MOVAB -KR8), SI2E 

CLRL RO 

FFS POSITION, SIZE, HELPINFO+44, FIRST 

BNEO 28$ 

INCL RO 

MCOML RO, WILDPATH 

BBS #2, Hr.i.PINFO+45, 29$ 

CMPL R8, HELPINFO 

BGEQ 29$ 

BLBS WILDPATH, 29$ 

MOVB #2, 30CR10) 

M0VC3 #6, SAVERFA, 34(SP) 

CALLS #0, READ 

CALLS *0, READ 

BLBC STAT. 30$ 

CLRL -(SP) 

PUSHL 8(SP) 

PUSHL R8 

CALLS #3, PRINT OTHERHELP 

BLBC STAT, 30$ 

MOVL ft, RO 

RET 



Page 25 
(14) 



0531 



053? 
0534 



0537 
0561 
0562 
0564 



0563 
0566 
0567 

0568 

0575 

0576 

0577 

0578| 

0580 

0582 



0584 
0590 



Routine Size: 539 bytes, Routine Base: CODE + 025B 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 0591 


1 


; 0592 


1 


; 0593 


1 


; 0594 


1 


; 0595 


1 


; 0596 


1 


; 0597 


1 


; 0598 


1 


; 0599 


1 


; 0600 


1 


; 0601 


1 


; 0602 


1 


; 0603 


1 


; 0604 


1 


; 0605 


1 


; 0606 


1 


; 0607 


1 


; 0608 


1 


; 0609 


1 


; 0610 


1 


; 0611 


1 


; 0612 


1 


; 0613 


1 


; 0614 


1 


; 0615 


1 


; 0616 


1 


; 0617 


1 


; 0618 


1 


; 0619 


1 


; 0620 


1 


; 0621 


1 


; 0622 


1 



check for key on Line 

*** HELP Handle HELP command 

check for key on line 

XSBTTL 'check for key on line' 
ROUTINE is_key„on_tine (key) = 



H 3 

27-Jul-1984 
27-Jul-1984 
26-M-1984 



15:58:29 
09:40:23 



Fiche 8 Frame H3 Sequence 1475 

> VAX-11 Bliss-32 V4. 0-742 Page 2o 

i DMA1:CSYS0.SYSMAINT]HELP.B32;231 (15) 



FUNCTIONAL DESCRIPTION 

Scan the current line to see if it has a keyword on it. The valid 
formats for a keyword line are "n key' 1 and Vkev" where n is a number 
from 1 to hlp$c_maxkeys, and key is a valid symbol (A-Z, a-z, $, ). 
It will return n, or nlp$cjnaxkeys+1 if the qualifier form "/key is 
found, or if no key is found. 



INPUTS 

key 

IMPLICIT INPUTS 
none 

OUTPUTS 

none 

IMPLICIT OUTPUTS 

none 



address of descriptor of buffer for keyword 



SIDE 



EFFECTS 
none 



RETURN CODES (RO) 

level of key found 
hlp$c_maxkeys+1 if qualifier line 
if no key found 



ZZ-ENSAA- 


7,0 


HELP 




06-10 




; 0623 


2 


; 0624 


2 


; 0625 


2 


; 0626 


2 


; 0627 


2 


; 0628 


2 


; 0629 


2 


; 0630 


2 


; 0631 


2 


; 0632 


2 


; 0633 


2 


; 0634 


2 


; 0635 


2 


; 0636 


2 


; 0637 


2 


; 0638 


2 


; 0639 


2 


; 0640 


2 


; 0641 


2 


; 0642 


2 


; 0643 


2 


; 0644 


3 


; 0645 


2 


; 0646 


2 


; 0647 


2 


; 0648 


2 


; 0649 


3 


; 0650 


3 


; 0651 


3 


; 0652 


3 


; 0653 


4 


; 0654 


4 


; 0655 


4 


; 0656 


4 


; 0657 


4 


; 0658 


4 


; 0659 


4 


; 0660 


4 


; 0661 


4 


; 0662 


4 


; 0663 


4 


; 0664 


5 


; 0665 


5 


; 0666 


5 


; 0667 


4 


; 0668 


4 


; 0669 


4 


; 0670 


4 


; 0671 


4 


; 0672 


4 


; 0673 


4 


; 0674 


4 


; 0675 


3 


; 0676 


3 


; 0677 
; 0678 


3 

3 



0679 3 



check for key on line 

*** HELP Handle HELP command 

check for key on line 



27-Jul-1984 Fiche 8 Frame 13 Sequence 1476 
27-JuM984 15:58:29 VAX-11 BLiss-32 V4. 0-742 Page 27 

26-JUI-1984 09:40:23 DMA1 :CSYS0.SYSMAINT]HELP.B32;231 (16) 



BEGIN 
MAP 



key : REF bblock; 



BIND 

line = helpinfo ChlpSt^bufdesc] : bblock; 

LOCAL 

locdesc : bblock Cdsc$c s bin], 

char : BYTE, 

level; 

IF .Line Cdsc$w_lengthJ EQL 
THEN 

RETURN 0; 



! If Mne is null, 

! then can't be key on it 



level = 0: 

CH$M0VE <dsc$c s bin, line, locdesc); . ..,.,,«„...,. ,v*«, ^, 

char = CH$RCHAR 7. locdesc LdscSa^pointerJ); ! Read first character 



! Initialize Level 

! Initialize local descriptor 



IF (.char LSSU XC'0' ! If not numeric 

OR ,char GEQU XC'9') AND .char NEQ *C'/' J And not a qualifier line 



THEN 

I 

ELSE 



RETURN 
BEGIN 



IF .char NEQ XCV 
THEN 

BEGIN 

LOCAL 
ptr, 
len; 

ptr = .locdesc CdscSa^pointerJ; 
len = scan_word (locdesc); 

WHILE ,len GTR 



then it's not a key line 
else it IS a key line 
If it's a normal keyword 



! Get number ptr, len 
! and scan past it 



! convert ascii to binary 
AND CHSRCHAR (.ptr) GEQU XC'O' AND CHSRCHAR (.ptr) LEQU XC'9' 
BEGIN 

level = .leveMO * (CHSRCHAR J\ (ptr) - %C f f >; 
len = . len - 1 



DO 



ELSE 



END; 

IF .level GTR hlpSc maxkeys 
THEN 

RETURN 0; 

skip blanks (locdesc) 
END 

level = hlp$c_maxkeys ♦ 1; 



If Level is illegally high, 
don't recognize it 
Skip to keyword 

! Specify qualifier 



key [dscSa_pointer] = .Locdesc CdscSa pointer."]; ! Remember start of word 

key Cdsc$w_length] = MIN (scan.word (locdesc), hlpSc.maxrecsiz) ! Length of string 



ZZ-ENSAA-7,0 


check for key on line 


HELP 


*** HELP Handle HELP co 


06-10 


check for key on line 


; 0680 2 


END; 


; 0681 2 




; 0682 2 


. level 


; 0683 1 


END; 



J 3 

27-Jul-1984 
27-Jul~1984 
26-Jul-1984 



15:58:29 
09:40:23 



Fiche 8 Frame J3 Sequence 

VAX-11 Bliss-32 V4. 0-742 
DMA1tCSYS0.SYSHAINT3HELP.e32;231 



147 7 



°age 28 
(16) 



of 1s_key_on_h'ne 



6E 



50 











LINE* 




HELPINFO+8 






OOFC 00000 


ISJ<EY. 


.ON LINE: 














.CORD 


Save R2,R3,R4,R5,R6,R7 
LINE, R7 


57 00000000' 


EF 


9E 00002 




MOVAB 


5E 




08 


C2 00009 




SUBL2 


#8, SP 






67 


B5 00O0C 




TSTW 


LINE 






4D 


13 0000E 




BEQL 


5$ 






56 


D4 00010 




CLRL 


LEVEL 


67 




08 


28 00012 




M0VC3 


#8, LINE, LOCDESC 


50 


04 


BE 


90 00016 




MOVB 


9L0CDESC+4, CHAR 


30 




50 


91 0001 A 




CMPB 


CHAR, #48 






05 


IF 0001D 




BLSSU 


1$ 


39 




50 


91 0001 F 




CMPB 


CHAR, #57 






05 


1F 00022 




BLSSU 


2$ 


2F 




50 


91 00024 


1$: 


CMPB 


CHAR, #47 






34 


12 00027 




BNEQ 


5$ 


2F 




50 


91 00029 


2$: 


CMPB 


CHAR, #47 






3B 


13 0002C 




BEOL 


7$ 


52 


04 


AE 


DO 0002E 




MOVL 


LOCDESC+4, PTR 






5E 


DD 00032 




PUSHL 


SP 


0000V CF 




01 


FB 00034 




CALLS 


#1, SCANJJORD 


53 




50 


DO 00039 




MOVL 


RO, LEN 






1A 


15 0003C 


3$: 


BLEQ 


4$ 


30 




62 


91 0003E 




CMPB 


(PTR), #48 






15 


1F 00041 




SSU 


4$ 


39 




62 


91 00043 




CMPB 


(PTR), #57 






10 


1A 00046 




BGTRU 


4$ 


56 




OA 


C5 00048 




MULL 3 


#10, LEVEL, RO 


51 




32 


9A 0004 C 




MOVZBL 


<PTR)+, R1 
-48(R1)CR0D, LEVEL 


56 


DO AHO 


9E 0004F 




MOVAB 






53 


D7 00054 




DECL 


LEN 






§4 


11 00056 




BRB 


3$ 


05 




56 


D1 00058 4$: 


CMPL 


LEVEL, #5 






03 


15 0005B 




BLEQ 


6$ 






50 


D4 0005D 
04 0QO5F 


5$: 


CLRL 
RET 


RO 






5E 


DD 00060 6$: 


PUSHL 


SP 


0000V CF 




01 


FB 00062 




CALLS 


#1, SKIP.BLANKS 






03 


11 00067 




BRB 


8$ 


56 




06 


DO 00069 7$: 


MOVL 


#6, LEVEL 


52 


04 


AC 


DO 0006C 


8$: 


MOVL 


KEY, R2 


04 A2 


04 


AE 


DO 00070 




MOVL 


LOCDESC+4, 4(R2) 






5E 


DD 00075 




PUSHL 


SP 


oooov cr 




01 


FB 00077 
D1 0007C 




CALLS 


#1, SCAN.WORD 


00000100 8F 




50 




CMPL 


RO, #256 






05 


15 00083 




BLEQ 


9$ 


50 


0100 


8F 


3C 00085 




MOVZWL 


#256, RO 


62 




50 


BO 0008A 9$: 


MOVW 


RO, (R2) 



0592 



(636 

0640 
)641 
0642 
0644 

0645 



CGS1 

0659 
0660, 



0662 
0b63 



0665 

0666 
0669 
0671 
0673 



0676 
0678 

0679 



K 3 

ZZ-ENSAA-7.0 check for key on line ?7-Jul-1984 Fiche 8 Frame « ^ „ Sequence 1478 

HELP *** HELP Handle HELP command i.T-Jul-1984 1 5:58:29 VAX-1 1 Bliss-32 V4. 0-742 Page 29 

O6-10 check for key on tine 26-Jul-1984 09:40:23 DMA1 :CSYS0,SYSMAINT3HELP.B32;231 (16) 

50 56 00 0008D MOVL LEVEL, R0 ; 0683 

04 00090 RET 

; Routine Size: 145 bytes. Routine Base: CODE + 0476 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 0684 


1 


; 0685 


1 


; 0686 


1 


; 0687 


1 


; 0688 


1 


; 0689 


1 


; 0690 


1 


; 0691 


1 


; 0692 


1 


; 0693 


1 


; 0694 


1 


; 0695 


1 


; 0696 


1 


; 0697 


1 


; 0698 


1 


; 0699 


I 


; 0700 


1 


; 0701 


1 


; 0702 


1 


; 0703 


1 


; 0704 


1 


; 0705 


1 


; 0706 


1 


; 0707 


1 


; 0708 


1 


; 0709 


1 


; 0710 


1 


; 0711 


1 


; 0712 


1 



print key list 
*** HELP Handle 
print key list 



HELP command 



L 3 

27-Jul-1984 
27-Jul~i<?84 

26-JuI-195h 



15:58:29 
09:40:23 



Fiche 8 Frame L3 Sequence 1479 

• VAX-11 Bliss-32 V4.0- 7 42 Page 30 

t DMA1iWYS0.SYSMAINT3HELP.B32;231 (17) 



XSBTTL 'print key list' 
ROUTINE print, keys (level) 



NOVALUE = 



FUNCTIONAL DESCRIPTION 

A list of pointers to string descriptors for keys along the path 
to the current level (i.e., ke/1 descriptor, key2 descriptor, etc.) 
is stored in the helpinfo block. This routine will print, with 
the correct indentation, all keys along that path. 



INPUTS 

level 

IMPLICIT INPUTS 
none 

OUTPUTS 

none 

IMPLICIT OUTPUTS 
none 

SIDE EFFECTS 
none 

RETURN CODES 
none 



The current level (lowest key name to output) 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 0713 


2 


; 07H 


2 


; 0715 


2 


; 0716 


2 


; 0717 


2 


; 0718 


2 


; 0719 


2 


; 0720 


2 


; 0721 


2 


; 0722 


2 


; 0723 


2 


; 0724 


2 


; P 0725 


2 


; 0726 


2 


; 0727 


2 


; 0728 


1 



print key list 

*** HELP Handle HELP command 

print key list 

BEGIN 



M 3 

27-Jul-1984 Fiche 8 Frame M3 Sequence 1480 

27-Jul-1984 15:58:29 VAX-11 BUss-32 V4. 0-742 Page 31 

26-M-1984 09:40:23 DMA1 :CSYS0.SYSMAINT3HELP,B32;231 (18) 



BIND 

keynames = helpinfo Chlp$l„keynames3 : VECTOR C, L0NG3; 

1NCR i FROM 1 TO .level DO 



Print; with trailing CRLF unless this is lowest level key and 
it's a qualifier. 



$ds printf ((IF .helpinfo ChlpSv qua I 3 AND .i EQL .level THEN Sascic ('!/!** IAS 1 ) ELSE Sascic ( 
•!/]** •AS.'/')), .1*2, .keynames C.1 - 13); 



END; 



9 PSECJ DATA,NOWRT,NOEXE, SHR,2 



53 41 21 20 2A 23 21 2F 21 09 00015 P.AAE: 
2F 21 53 41 21 20 2A 23 21 2F 21 08 0001 F P.AAF: 



.ASCII 
.ASCII 



KEYNAMES* 

.EXTRN 



<9>\!/itf* !AS\ 
<11>\J/!#* IAS!/\ 

HELPINFO+16 
DSSPRINTF 



.PSEcT C0DE,N0WRT, SHR,2 



0004 00000 



52 

32 



7F 
OF 



00000000' 
04 



52 
Ef 
AC 



00000000'EF4, 



50 00000000* 
50 OOQOOQOO' 



C9 



OOOOOOOOG 



9F 
52 



04 



1 
1 
52 
09 
EF 
07 
EF 
50 
03 
AC 



D4 
11 
DD 
78 
E1 
D1 
12 
9E 
11 
9E 
DD 
F8 
F3 
04 



00002 
00004 
00006 
00OOD 
00011 
00019 

00026 

m 

00031 
00038 
0003D 



1$: 



PRINT KEYS: 

.WORD 

CLRL 

BRB 

PUSHL 

ASHL 

BBC 

CMPL 

BNEQ 

MOVAB 

BRB 

MOVAP 

PUSHL 

CALLS 

AOBLEQ 

RET 



2$: 
3$: 

4$: 



Save R2 

I 

4$ 

KEYNAMES-4CI3 

#1, J, ~(SP) 

#1, HELPINFO+45, 2$ 

I, LEVEL 

2$ 

P.AAE, RO 

3$ 

P.AAF, RO 

r6 

M, a*DS$PRINTF 
LEVEL, I, 1$ 



0685 
0718 

0726 



0728 



Routine Size: 62 bytes. Routine Base: CODE + 0507 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 0729 


1 


; 0730 


1 


; 0731 


1 


; 0732 


1 


; 0733 


1 


; 0734 


1 


; 0735 


1 


; 0736 


1 


; 0737 


1 


; 0738 


1 


; 0739 


1 


; 0740 


1 


; 0741 


1 


; 07 \2 


1 


; 07'<3 


1 


; 0744 


1 


; 0745 


1 


; 0746 


1 


; 0747 


1 


; 0748 


1 


0749 


1 


; 0750 


1 


; 0751 


1 


; 0752 


1 


0753 


1 


0754 


1 


0755 


1 


; 0756 


1 


; 0757 


1 


0758 


1 



print help text 
*** HELP Handle 
print help text 



HELP command 



N 3 

27-Jul-1984 
27~Jul-1984 
26-Jul-1984 



15:58:29 

09:40:23 



Fiche 8 Frame N3 Sequence 1481 

» VAX-11 BLiss-32 M.Q-742 Page 32 

! DMA1:CSYS0,SYSMAINT3HELP.B32;2?1 (19) 



XSBTTL 'print help text 1 
ROUTINE print. text (Level, 



indent) = 



++ 
FUNCTIONAL DESCRIPTION 

Print out help text. Scan from given RFA until another key 
line is found, printing each Line, A qualifier key Line which 
is imbedded within the text for a level is printed out £s text. 



INPUTS 

level 

indent 

IMPLICIT INPUTS 
none 

OUTPUTS 

IMPLICIT UUTPUTS 
none 

SIDE EFFECTS 
none 

RETURN CODES 
none 



The Level for which help is wanted (this can 
1 to hlp$c maxkeys; or nlp$c_maxkeys+1 for 
qualifier help) 
position of key in input List 



be 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 0759 


2 


; 0760 


2 


; 0761 


2 


; 0762 


2 


; 0763 


2 


; 0764 


2 


; 0?65 


2 


; 0/66 


2 


; 0767 


2 


; 0768 


2 


; 0769 


2 


; 0770 


2 


0771 


2 


; 0772 


? 


; 0773 


2 


; 0774 


2 


0775 


2 


; 0776 


2 


; 0777 


d 


; 0778 


2 


; 0779 


3 


; 0780 


3 


; 0781 


3 


; 0782 


3 


; 0783 


3 


; 0784 


4 


; 0785 


4 


; 0786 


4 


; 0787 


4 


; 0788 


4 


; 0789 


4 


; 0790 


5 


0791 


5 


; 0792 


6 


; 0793 


7 


0794 


7 


0795 


6 


0796 


5 


; 0797 


5 


; 0798 


4 


; 0799 


3 


; 0800 


2 


; 0801 


3 


; 0802 


3 


; 0803 


4 


; 0804 


2 


; 0805 


2 


; 0806 
; 0807 


2 

2 



0808 1 



print help text 

*** HELP Handle HELP command 

print help text 



B 4 

27-Jul-1984 Fiche 8 Frame B4 Sequence 14C2 

27-JuM984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 33 

26-Jul-1984 09:40:23 DMA1 :CSYS0.SYSMAINT3HELP.B32;231 <20) 



BEGIN 



LOCAl 



stat, 

logtabs, 

linelevel, 

lastqual, 

keydesc : bblock Cdsc$c_s_blnJ; 



Number of logical tabs to indent 
Level of key record 
Flag for qualifier help text 
Descriptor for key 



logtabs = .indent + (If .level LEO hlpScjnaxkeys THEN 1 ELSE 0); 

Now print out lines until we find another qualifier. Note that 
unless we are lonking for qualifier help, or we are in ALLHELP 
mode, a qualifier key line counts as text! 



lastqual = 1; 

WHILE 

BEGIN 

stat = READ (); 



Pre-set switch so it works 



! Read next record 
IF NOT .stat AND .stat NEQ rms$_eof THEN RETURN .stat; 
BEGIN 



! If end of file, no more text 



DO 



IF NOT .stat 

THEN 


ELSE 

BEGIN 

linelevel = is key_on_line (keydesc); I Get help key 

(.linelevel EuE ! continue if no key on line 

OR (.level EQL hlp$c maxkeys + 1 AND .lastqual) ! or second qual in row 

OR (.linelevel EQL hTp$c maxkeys +1 ! or qual line and not printing 

AND .level LEQ hlp$c maxkeys) ) ! qualifier help 

END 

END 
END 

BEGIN 

lastqual = (If .linelevel EQL hlp$c maxkeys + 1 THEN 1 ELSE 0); 

$ds_printf (Sascic <■ !/.'** IAS 1 ), .Togtabs*2, helpinfo [hlp$l bufdesc]) 

END; 



print.crlr 0; 

.stat 
END; 



53 41 21 20 2A 23 21 2f 21 



! Force double space after text 
! of print. text 

.PSECT DATA,N0WRT,N0EXE, SHR,2 
09 0002B P.AAG: .ASCII <9>\!/!#* !AS\ 



ZZ-ENSAA-7,0 

HELP 

06-10 



print help text 
*** HELP Handle 
print help text 



HELP command 



C 4 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



15:58:29 
09:40:23 



Fiche 8 Frame C4 Sequence 1483 

• VAX-11 Bliss-32 V4. 0-742 Page 34 

! DMA1 :CSY$0.SYSMAINTJHEIP.B32;231 (20) 



Routine Size: 














FFC 


00000 


PRINT. 


.TEXT: 
.WORD 






5E 




08 
56 


C2 
D4 


00002 
00005 




SUBL2 
CLRL 






05 


04 


AC 
07 
56 


D1 
14 
D6 


0CO07 
OOOOB 
OOOOD 




CMPL 
B6TR 
INl'L 






50 




01 
02 


DO 
11 


OOOOF 
00012 




MOVL 
BRB 










50 


D4 


00014 


1$: 


CLRL 






50 


08 


AC 


CO 


00016 


2$: 


ADDL2 






52 




01 


DO 


0001A 




MOVL 


55 




50 




01 


78 


0001D 




ASHL 




0000V 


CF 




00 


FB 


00021 


3$: 


CALLS 






53 




50 


DO 


00026 




MOVL 






OC 




53 


E8 


00029 




BLBS 




0001827A 


8F 




53 

46 


D1 
12 


0002C 
00033 




CMPL 
BNEQ 






40 




53 


E9 00035 




BLBC 










5E 


DD 


00038 


4$: 


PUSHL 




FEF2 


CF 




01 


FB 


0003A 




CALLS 






54 




50 
11 


DO 
13 


0003F 
00042 




MOVL 
BEOL 






06 


04 


AC 
03 


D1 
12 


00044 
00048 




CMPL 
BNEQ 






08 




52 


E8 


0004A 




BLBS 






06 




54 
26 


D1 
12 


0004D 
00050 


5$: 


CMPL 
BNEQ 






23 




56 


E9 00052 




BLBC 






06 




54 
05 


D1 
12 


00055 
00058 


6$: 


CMPL 
BNEQ 






52 




01 
02 


DO 
11 


0005A 
0005D 




MOVL 
BRB 










52 


D4 


0005F 


7$: 


CLRL 








00000000' 


55 


9F 
DD 


00061 
00067 


8$: 


PUSHAB 
PUSHL 








00000000* 


EF 


9F 


00069 




PUSHAB 




000U0000G 


9F 




03 
A9 


FB 
11 


0006F 
00076 




CALLS 
BRB 










0000V 


30 00078 


9$: 


BSBW 






50 




53 


DO 
04 


0007B 
0007E 


10$: 


MOVL 
RET 


127 bytes. 


Routine 


Base: CODE 


+ 0545 









.PSECT CODE,NOWRT, SHR,2 



Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 

#8, SP 

R6 

LEVEL, #5 

1$ 

R6 

#1, RO 

2$ 

RO 

INDENT, LOGTABS 

01, LASTQUAL 

#1, LOGTABS, R5 

*0, READ 

RO, STAT 

STAT, 4$ 

STAT, #98938 

10$ 

STAT, 9$ 

SP 

#1, IS KEY ON LINE 

RO, LlRELEVEL 

6$ 

LEVEL, #6 

5$ 

LASTQUAL, 6$ 

LINELEVEL, #6 

9$ 

R6, 9$ 

LINELEVEL, #6 

7$ 

#1, LASTQUAL 

8$ 

LASTQUAL 

HELPINFO+8 

R5 

P.AAG 

#3, a#DS$PRINTF 

3$ 

PRINT CRLF 

STAT,"RO 



0730 
0768 



0776 
0803 
0780 

0782 



0786 
0791 



0792 
0793 



0794 

0795 
0802 



0803 



0806 
0808 



ZZ-ENSAA- 


7,0 


HELP 




06-10 




; 0809 


1 


; 0810 


1 


; 0811 


1 


; 0812 


1 


; 0813 


1 


; 0814 


1 


; 0815 


1 


; 0816 


1 


; 0817 


1 


; 0818 


1 


; 0819 


1 


; 0820 


1 


; 0821 


1 


; 0822 


1 


; 0823 


1 


; 0824 


1 


; 0825 


1 


; 0826 


1 


; 0827 


1 


; 0828 


1 


; 0829 


1 


; 0830 


1 


083 i 


1 


; C*32 


1 


; C333 


1 


; 0834 


1 


; 08 55 


1 


0836 


1 


; 0837 


1 


0838 


1 



List other keys 
*** HELP Handle 
List other keys 



HELP command 



D 4 

27-Jul-1984 
27-Jul-l984 
26-Jul-1984 



15:58:29 
09:40:23 



Fiche 8 Frame D4 Sequence 1484 

> VAX-11 Bliss-32 V4. 0-742 Page 35 

I DMA1:CSYS0.SYSMAINTJHELP.B32;231 (21) 



XSBTTL 'List other keys 1 

ROUTINE print. otherhelp (level, keyrfa, errflg) = 



++ 



FUNCTIONAL DESCRIPTION 

When the search for a 
is 'HELP', a list is p 
that level* 



help key fails, or if the key is level 1, 
rinted of all 'other* help keys valid for 



and 



INPUTS 

level 
keyrfa 

errflg 

IMPLICIT INPUTS 
none 

OUTPUTS 

IMPLICIT OUTPUTS 
none 



SIDE EFFECTS 

Updates RAB RFA past keys 

RETURN CODES 
none 



The level for which keys are to be listed 

The RFA to begin scan at (immediately following 

RFA for the next highest level) 

if *no keys found* message should be typed 



the 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




: 0839 


2 


; 0840 


2 


; 0841 


2 


0842 


2 


; 0843 


2 


; 0844 


2 


; 0845 


2 


0846 


2 


; 084? 


2 


; 0848 


2 


0849 


2 


; 0850 


2 


; 0851 


2 


: 0852 


2 


0853 





0854 


2 


; 0855 


2 


; 0856 


2 



List other keys 
*** HELP Handle 
List other keys 

BEGIN 



HELP command 



E 4 

27-Jul-1984 
27-Jul-1984 
26-M-1984 



15:58:29 
09:40:23 



Fiche 8 Frame E4 Sequence 1485 

> VAX-11 Bliss-32 V4. 0-742 Page 36 

! DMA1:CSVS0.SVSMAINT3HELP.832;231 (22) 



BIND 



r 

fmt ... 

otherinfo = Sascic 



rabJ : bblock. 



ab = .helpinfo ChlpSl ra 
mt = Sascic ('!/ !AD T ), 

(•!/ Additional 



! Format output line 
information available:!/ 1 ); 



LOCAL 

qua line, 

no^qual yet, 

tastlevel, 

linelevel, 

first, 

linecoL 

ptr, 

keydesc : bblock [dsc$c_s_blnj, 

outbuf : VECTOR [hlp$c jnaxrecsiz, BYTED; 



Flag for qualifier line 
Flag for qual. line found 
Last key level found 
Level of current record 
First-time flag 
Current column of line 
Pointer to output buffer 
Key descriptor 

! Output buffer 



ZZ-ENSAA- 


7,0 


HELP 




06-10 




; 0857 


2 


; 0858 


2 


; 0859 


3 


; 0860 


3 


; 0861 


3 


; 0862 


3 


0863 


3 


; 0864 


3 


; 0865 


3 


; 0866 


3 


; 0867 


4 


; 0868 


4 


; 0869 


A 


; 0870 


5 


; 0871 


5 


; 0872 


3 


; 0873 


3 


; 0874 


A 


; 0875 


2 



PrintHeader 

*** HELP Handle HELP command 

PrintHeader 



F 4 

27-JuL-198A 
27-Jul-1984 
26-Jul-1984 



Fiche 8 Frame FA Sequence 
15:58:29 VAX-11 Bliss-32 V4. 0-742 
09:40:23 DMA1 :CSYS0.SYSMAINT:IHELP.B32;231 



1A86 



Page 37 
(23) 



XSBTTL 'PrintHeader' 
ROUTINE printheader 
BEGIN 

BIND 



(err, lev) : jsb.2 NOVALUE = 



nodocmsg = Sascic ('!/ Sorry, no documentation on !AS JAS !AS IAS !AS!/'), 
keylist = .helpinfo ChLp$L.keyh'st3 : VECTOR [, L0NGJ; 

IF NOT .err 
THEN 

BEGIN 

helpinfo [hlp$v_foundhelpJ = 1; ! Say we found something. 

print keys (.lev - 1); ! Print keys to next higher 

$ds printf (nodocmsg, keylist COJ, keylist [23, keylist [A], keylist C6J, keylist C83) 

! Print out "no help' 1 msg 

END; 

$ds printf (otherinfo) 
END; 



.PSECT DATA,N0WRT,N0EXE, SHR,2 



6C 
76 


61 
61 


6E 
20 


6F 
6E 


bF 


6F 
20 


6E 
6E 


20 
6F 






2F 


21 



AA A1 21 20 20 2? 21 07 00035 P.AAH: 

69 7A 69 6A 6A A1 20 20 2F 21 27 0003D P.AAI: 

6F 69 7A 61 6D 72 6F 66 6E 69 20 000AC 

2F 21 3A 65 6C 62 61 6C 69 61 0005B 

2C 79 72 72 6F 53 20 20 2F 21 3A 00065 P.AAJ: 

69 7A 61 7A 6E 65 6D 75 63 6F 64 00074 

20 53 A1 21 20 53 A1 21 20 6E 00083 

53 A1 21 20 53 A1 21 20 53 A1 21 0008D 



.ASCII 
.ASCII 



.ASCII 
.ASCII 



<7>\\/ !AD\ 

Vi/ Additional information available: !/\ 



\4)/ Sorry, no documentation on IAS !AS \ 



FMT= 

0THERINF0= 

N0D0CMSG= 



MAS !AS !AS!A 

P.AAH 
P.AAI 
P.AAJ 



.PSECT C0DE,N0WRT, SHR,2 



52 DD 00000 



00000000' 



52 
2A 
EF 



FF28 CF 



00000000G 9F 
00000000G 9F 



00000000 



FF 

20 
18 
10 
08 

00000000' 

00000000' 



EF 
50 
04 
A1 
01 
A2 
A2 

A? 
A2 
52 
EF 
06 
EF 
01 
04 



DO 
E8 
88 
9F 
F8 
9F 
9F 
9F 
9F 
DD 
9F 
F8 
9F 
FB 
BA 



00002 
00009 
0000C 
00013 
00016 
0001B 
0001 E 
00021 
00024 
00027 

m 

00036 
0003C 
00043 



PRINTHEADER: 
PUSHL 
MOVL 
BL8S 
BISB2 
PUSHAB 
CALLS 
PUSHAB 
PUSHAB 
PUSHAB 
PUSHAB 
PUSHL 
PUSHAB 
CALLS 

1$: PUSHAB 
CALLS 
POPR 



R2 

HELPINFO+36, R2 

ERR, 1$ 

#4, HELPINFO+45 

-KIEV) 

#1, PRINT JCCYS 

32(R2) 

24(R2) 

16(R2) 

8(R2) 

R2 

NODOCMSG 

*6, a*DS$PRINTF 

OTHERINFO 

#1, a#DS$PRINTF 

# A M<R2> 



0858 
0863 
0865 
0868 
0869 

0870 



0874 
0875l 



ZZ-ENSAA-7.0 

nap 



PnntHeader 
*** HELP Handle 
PrintHeader 



HELP command 



G 4 

27-JuM9M 
27-JuM984 
26-Jul-1984 



15:58:29 
09:40:23 



Fiche 8 Frame 64 Sequence 1487 

> VAX-11 Biiss-32 V4. 0-742 Page 38 

! DMA1:CSYS0.SYSMAINT]HELP.B32;231 (23) 



05 00045 



RSB 



Routine Size: 70 bytes. Routine Base: CODE + 05C4 



I.'-fcNSAA- 


7.0 


litLP 




rfc-10 




; 0876 


2 


■ 0877 


2 


; 0878 


2 


; 0879 


2 


; 0880 


2 


0881 


2 


; 0882 


2 


0883 


2 


; 0884 


2 


; 0885 


2 


0886 


2 


0887 


2 


; 0888 


2 


; 0889 


3 


0890 


3 


; 0891 


3 


0892 


3 


0893 


3 


; 0894 


3 


; 0895 


3 


0896 


3 


. 0897 


3 


0898 




0899 


4 


0900 


4 


; 0901 


4 


0902 


4 


; 0903 


«: 


0904 


4 


; 0905 


5 


; 0906 


5 


; 0907 


5 


; 0908 


5 


; 0909 


5 


: 0910 


5 


091 l 


6 


; 0912 


5 


; 0913 


5 


09H 


4 


; 0915 


3 


; 0916 


2 


0917 


2 


; 0918 


2 


0919 


2 


: 0920 


3 


; 0921 


3 


; 0922 


3 


• 0923 


3 


; 0924 


3 


; 0925 


3 


; 0926 


5 


; 0927 


3 


; 0928 


3 


; 0929 


3 


; 0930 


3 


; 0931 
noTo 


3 



H 4 

print otherhelp main code 27-Jul-1984 Fiche 8 Frame H4 Sequence 1488 

*** HELP Handle HELP command 27-JuM984 15:58:29 VAX-11 BMss-32 V4. 0-742 Page 39 

print.otherhelp main code 26-Jul-1984 09:40:23 DMA1 :CSYS0.SYSMAINT3HELP.B32;231 (24) 

XSBTTL 'print. otherhelp main code' 

IF .level GEO .helpinfo ChlpSl.allhelpD OR .helpinfo [hlplv.quaU THEN RETURN 1; 

first = 1; ! Set first-time flag 

lastlevel = .level - 1; ! Init last key found 

no.qual vet = 1; ! Haven't found qualifier yet 

ptr = cRSPTR (outbuf); 

linecol = 0; ! Set column pointer 

CHSM0VE (rfa$c length, .keyrfa, rab CrabSw.rfa]); ! Initialize local RFA 

rab CrabSb^racJ « rab$c_rfa; ! Set random access 

WHILE 

BEGIN 

LOCAL 

stat; 

stat = READ <); ! Read next record 

rab Oab$b_racJ = rab$c_seq; ! Set back to sequential 

IF NOT .stat AND .stat NEQ rmsS.eof THEN RETURN .stat; 

BEGIN 

IF NOT .stat 
THEN 

(0) 
ELSE 

BEGIN 

linelevel = is_key_on_line (keydesc); 

IF (.linelevel GTR 0) AND (.linelevel LEQ hlp$cjnaxkeys) THEN lastlevel = .linelevel; 

qualine = (If (.linelevel LEQ hlpScjnaxkevs) OR (.lastlevel NEQ .level) THEN ELSE 1); 

((.linelevel GEO .level) OR (.linelevel EQL 0)) 

END 



DO 



END 
END 

IF (.linelevel EQL .level) OR .qualine ! Type keys 6 qualifiers 
THEN 

BEGIN 

LOCAL 

length, 

reallen, 

outlen; 

reallen = .helpinfo [hlpSl.bufdesc] - (.keydesc Cdsc$a pointer] - .(helpinfo [hlp$l.,bufdesc3 ♦ 4)); 

! Length of rest ot record 
;♦ 

! At this point, the following are true: 

I RealLen = the length of the key word or the qualifier to be printed 

I LineCol * Current column in the line (starting at 0) 



Z/-FNSAA-7.0 


HUP 




0^i-10 




; 0933 


3 


; 0934 


3 


; 0935 


3 


; 0936 


3 


; 0937 


3 


; 0938 


3 


: 0939 


3 


0940 


3 


; 09 A 1 


3 


: 0942 


3 


; 0943 


3 


0944 


3 


0945 


3 


0946 


3 


; 0947 


3 


0948 


3 


0949 


4 


; 0950 


3 


: 0951 


4 


; 0952 


4 


; 0953 


4 


; 0954 


4 


; 0955 


4 


; 0956 


4 


0957 


4 


0958 


4 


; 0959 


4 


0960 


4 


; 0961 


3 


; 0962 


3 


; 0963 


3 


0964 


3 


0965 


3 


0966 


? 


0967 


2 


; 0968 


2 


0969 


2 


; 0970 


3 


0971 


3 


; 0^72 


3 


; 0973 


3 


; 0974 


4 


; 0975 


2 


0976 


2 


; 0977 


2 


; 0978 


1 



print otherhelp main code 
*** HfcLP Handle HELP command 
print.otherhelp main code 



I 4 
27-Jul-1984 Fiche 8 Frame 14 Sequence 1489 

27-JuL-1984 15:58:29 VAX-11 BUss-32 V4. 0-742 Page 40 

26-JuM984 09:40:23 DMA1 :CSYS0.SYSMAINTJHELP.B32;231 (24) 



i. 



Now set Length to the length of the key word plus at least one space 
and make the Length modulo 15. That is, if the RealLen of the key word 
is 8, the Length will be 15 (15 mod 15 = 0). If the RealLen of the key 
word is 15, the Length will be 30 (30 mod 15 = 0), In this second 
example, the one space required after the key word makes it 16 plus the 
additional spaces (for which 14 wuld be needed to bring it to the next 
field). 

length = ((.reallen + 15) / 15) * 15; 

outlen = CHSDJFF (.ptr, CHSPTR (outbuf)); 

IF ((.outlen + .length) GTR 78) OR (.no_qual_yet AND .qualine) 
THEN 

BEGIN 

IF .qualine THEN no_qual_yet = 0; 

IF .first THEN printheader (.errflg, .level); 

first = 0; 

$ds Drintf (fmt, .outlen, outbuf); 

ptr = CH$PTR (outbuf); 

linecol = 

END; 

ptr - •',* *v (.reallen, .keydesc Cdsc$a w pointerJ, XC* ', .length, .ptr); 

! Copy key into output descriptor 
linw-.-i * .tinecol + .length ! Update column count 
END; 



IF .linecol GTR 
THEN 

BEGIN 



! If we have a partial line left, 



U .first THEN printheader (.errflg, .level); 

$ds_printf (Sascic ('!/ IAD. 1 / 1 ). CHSDJFF (.ptr, CHSPTR (outbuf)), outbuf) 
END; 



1 
END; 



! of print„otherhelp 



.PSECT DATA,N0WRT,N0EXE, SHR,2 
2f 21 44 41 21 20 20 2F 21 09 0009A P.AAK: .ASCII <9>\!/ !AD!/\ 

.PSECT C0DE,N0WRT, SHR,2 



Z*>ENSAA-7.0 

HELP 
06-10 



print otherhelp main code 
*** HbLP Handle HELP command 
print.otherhelp main code 



J 4 
27-Jut-1984 

27-JuM984 
26-Jul-1984 



Fiche 8 Frame J4 Sequence 
15:58:29 VAX-11 BUss-32 V4. 0-742 
09:40:23 DMA1 : CSYS0.SYSMAINTDHELP-B32/231 



1490 



00000000 



F5 00000000 
04 
08 
0C 



10 A6 



08 
1E 
0000V 



0001 827A 



FE06 



08 



50 00000000 • 
53 



58 



52 
50 



0000004E 



5E 
56 
57 
EF 



EF 
AE 
AE 
AE 
5A 

BC 
A6 
CF 

10 
8F 



03 



CF 
59 

05 

AE 
05 

57 



58 
57 



57 

AC 

6 f 
50 

50 

50 

50 

50 

5A 

52 

BF 

32 
2F 



FEE8 
00000000 ' 
04 



FF 
10 



1E 



F8 



08 



00000000 
OF 



10 



OC 



CE 
EF 
AC 
57 
03 
011A 
01 
01 
A7 
01 
AE 
6E 
06 
02 
00 
A6 
50 
50 
01 

50 
00B0 
AD 
01 
50 
09 
59 
04 
59 
59 
06 
AE 
04 
58 
03 
01 
59 
04 
S9 
7T 
59 
03 
58 
AD 
Ef 
A3 
OF 
OF 

15 

58 
50 
07 
AE 
58 



OFFC 00000 PRINT. 

9E 00002 
DO 00007 
DO OOOOE 
D1 00012 
19 00019 
31 0001B 1$: 
EO 0001 E 2$: 
DO 00026 
9E 0002A 
DO 0002F 
9E 00033 
D4 00037 
28 00039 
90 0003F 
F8 00043 3$: 
94 00048 
E8 0004B 
D1 0004E 

13 00055 
04 00057 
E8 00058 4$: 
31 0005B 
9F 0005E 5$: 
F8 00061 
DO 00066 
15 00069 
D1 0006B 

14 9006E 
DO 00070 
D1 00074 6$: 

15 00077 
D1 00079 



J 



00C7D 



10$: 



D4 0007F 7$: 

11 00081 

DO 00083 8$: 
D1 00086 9$: 
;8 00089 
D5 0008B 

12 0008D 
D1 Q008F 

13 000V2 
E9 00094 

C3 00097 11$: 
C OOOAO 
9E 0C0A8 
C6 OOOAC 
C5 OOOAF 

C3 Q0QB7 
C1 OQQBB 
D1 QOOBF 

14 000C6 
E9 00QC8 
E9 OOOCC 



OTHERHELP 
.WORD 
MOVAB 
MOVL 
MOVL 
CMPL 
BLSS 
BRW 
BBS 
MOVL 
MOVAB 
MOVL 
MOVAB 
CLRL 
M0VC3 
MOVB 
CALLS 
CLRB 
BLBS 
CMPL 
BEQL 
RET 
BLBS 
BRW 
PUSHAB 
CALLS 
MOVL 
BLEQ 
CMPL 
BGTR 
MOVL 
CMPL 
BLEQ 
CMPL 
BEOL 
CIRL 
BRB 
MOVL 
CMPL 
BGEQ 
TSTL 
9NEG 
CNPL 
BEOL 
BLBC 
SUBL3 
ADDL3 
MOVAB 
DIVL2 
MULL3 
MOVAB 
SU8L3 
ADDL3 
CMPL 
BGTR 
BLBC 
BLBC 



Save R2 f R3,R4,R5,R6,R7,R8,R9,R10,R11 

-280(SP>, SP 

HELPINFO+4, R6 

LEVEL, R7 

R7, HELPINFO 

2$ 

18$ 

#1, 

#1 



Page 41 
(24) 



0810 



1$ 



HELPINFO+45, 

FIRST 
-KR7), LASTLEVEL 
#1, NO QUAL..YET 
OUTBUF, PTR 
LINECOL 

#6, 3KEYRFA, 16(R6) 
#2, 30(R6) 
#0, READ 
30(R6) 
STAT, 5$ 
STAT, #98938 
4$ 

STAT, 5$ 

16$ 

KEYDESC 

#1, IS KEY ON.HNE 

RO, LIRELECBL 

6$ 

LINELEVEL, #5 

6$ 

LINELEVEL, LASTLEVEL 

LINELEVEL, #5 

7$ 

LASTLEVEL, R7 

8$ 

OUALINE 

9$ 

01, OUALINE 

LINELEVEL, R7 

10$ 

LINELEVEL 

16$ 

LINELEVEL, R7 

11$ 

QUALINE. 3$ 

KEYDESC+4, HELPINF0+12. RO 

HELPJNFO+8, RO, REALLEN 

15CR3). RO 

#15, RO 

#15 RO, LENGTH 

OUTBUF. RO 

RO, PT6, OUTLEN 

LENGTH, OUTLEN, RO 

RO, #76 

I2i 

NO QUAL_YET X 15$ 
QUALJNE, 15$ 



0842 
0878 



0880 
0881 
0882 
0883 
0884 
0885 
0886 
0894 
0895 
0897 



0901 
0906 

0908 
0910 



0911 

0918 

0927 
0945 

0947 
0949! 



ZZ-ENSAA-7.0 

HELP 

06-10 



print otherhelp main code 
*** HtLP Handle HELP command 
print^otherhelp main code 



58 



O000O000G 
20 FC 



7E 



OO0OOO0OG 



03 

OA 
51 
50 



9F 
5A 

BD 

5A 
6E 



OA 
51 
50 



50 
5A 

9F 
50 



OC 
OA 

OC 

04 
10 

00000000* 

10 



58 
AE 
AE 
57 
AC 

FED7 
AE 
AE 
52 
EF 
03 
AE 
6E 
53 
6A 
53 
58 

FF35 
6E 
26 
AE 
57 
AC 

FE9A 
AE 
AE 
50 
00000000* EF 
03 
01 



04 

OC 

10 
14 



K 4 
27-JuM984 
27-JuM984 
26-JuL-1984 



Fiche 8 Frame K4 Sequence 

15:58:29 VAX-11 Bliss-32 V4, 0-742 
09:40:23 0MA1 :CSYS0,SYSMAINT]HELP.B32;231 



1491 



E9 OOQCF 12$: Bl.BC QUALINE, 13$ 

D4 000D2 CLRL NO QUALYET 

E9 000D5 13$: BLBC FIRST, T4$ 

DO 0O0D9 MOVL R7, R1 

DO OOODC MOVL ERRFLG, RO 

30 000E0 BSBW PRINTHEADER 
D4 0OOE3 14$: CLRL FIRST 

9F 000E6 PUSHAB OUTBUF 

DD Q00E9 PUSHL OUTLEN 

9F OOOEB PUSHAB FMT 

FB OOOM CALLS #3, a*DS$PRINTF 

9E 0O0F8 MOVAB OUTBUF, PTR 

D4 OOOFC CLRL LINECOL 

2C OOOFE 15$: MO^C c REALLEN, SKEYDESCK, 

00104 

DO 00105 MOV R3, PTR 

CO 00108 M>OU LENGTH, LINECOL 

31 001 OB BRW 3$ 

D5 0010E 16$: TSTL LINECOL 

15 00110 BLEQ 18$ 

E9 00112 BLBC FIRST, 17$ 

DO 00116 MOVL R7, R1 

DO 00119 MOVL ERRFLG, RO 

30 001 1D BSBW PRINTHEADER 

9F 00120 17$: PUSHAB OUTBUF 

9E 00123 MOVAB OUTBUF, RO 

C3 00127 SUBL3 RO, PTR, -<SP) 

9F 001 2B PUSHES P.AAK 

FB 00131 CALLS #3, 9*DS$PRINTF 

DO 00138 18$: MOVL *1 , RO 

04 0013B RET 



Page 42 
(24) 

0953 

0955 



0957 
0958 



#32, LENGTH, (PTR) 



0959 
0960 
0963 



0965 
0918 
0968 

0972 



0974 



0978 



Routine Siee: 316 bytes, Routine Base: CODE + 060A 



ZZ-ENSAA-7.0 

HELP 

06-10 

0979 1 

0980 1 

0981 1 

0982 1 

0983 1 

0984 1 

0985 1 

0986 1 

0987 1 

0988 1 

0989 1 

0990 1 

0991 1 

0992 1 

0993 1 

0994 1 

0995 1 

0996 1 

0997 1 

0998 1 

0999 1 

1000 1 

1001 1 

1002 1 

1003 1 

1004 1 

1005 1 



Read random record 

*** HELP Handle HELP command 

Read random record 

XSBTTl 'Read random record 1 
ROUTINE READ = 



+♦ 



L 4 

27-Jul-1984 Fiche 8 Frame L4 Sequence 1492 

27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 43 

26-JUL-1984 09:40:23 DMA1 :CSYS0,SYSMAINT3HELP.B32;231 (25) 



FUNCTIONAL DESCRIPTION 

Read a Logical record from the current help file 



HELP module storage block 



INPUTS 

IMPLICIT INPUTS 
helpinfo 
RAB 

OUTPUTS 

none 

IMPLICIT OUTPUTS 

helpinfo Chlp$l_bufdesc3 is set to describe the record read. 

SIDE EFFECTS 
none 

RETURN CODES (RO) 
SSS^NORMAl 
any RMS error code 



ZZ-ENSAA- 


7,0 


HELP 




06-10 




; 1006 


2 


; 1007 


2 


: 1008 


2 


; 1009 


2 


; 1010 


2 


; 1011 


2 


; 1012 


2 


1013 


2 


1014 


2 


; 1015 


2 


; 1016 


2 


1017 


2 


; 1018 


2 


; 1019 


2 


; 1020 


2 


; 1021 


2 


; 1022 


2 


1023 


2 


; 1024 


2 


; 1025 


3 


; 1026 


3 


; 1027 


3 


; 1028 


2 


; 1029 


2 


; 1030 


2 


; 1031 


2 


; 1032 


2 


; 1033 


2 


1034 


2 


; 1035 


2 


; 1036 


2 


; 1037 


2 


; 1038 


2 


; 1039 


2 


; 1040 


2 


; 1041 


2 


; 1042 


1 



Read random record 

*** HELP Handle HELP command 

Read random record 



M 4 
27-JuM984 Flche 8 Frame M4 Sequence 1493 

27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 44 

26-Jul-1984 09:40:23 0MA1 :CSYS0.SYSMAINT]HELP-832;231 (26) 



BEGIN 



LOCAL 



len, 
ptr, 
stat; 



BIND 

rab = .hetpinfo ChlpSl^rab] : bblock, 
fab = .rab Crab$l_fab] : bblock; 

stat = $get (rab = rab); 
rab Crab$b_rac3 = rab$c„seq; 
Len = .rab [rabSw^rszJ; 
ptr = .rab [rab$L_rbfJ; 

IF .fab CfabSb rat] EQL fab$rn„ftn 

AND .ten GTR 
THEN 

BEGJN 

Len = .Len - 1; 

ptr = .ptr ♦ 1 

END; 

IF .fab [fab$b rat] EQL 
AND .Len GEO 2 



! Map to RAB 
! Map to FAB 

! Read a record 

! Restore sequential access 

! Get length 

! and address 

! If fortran format 
! and not null record 



Lose the CR byte 



AND .(.ptr + .len - 2X0, 16> EQL *X'0a0d f 



! If no attribute 

1 and there are two chars 



i 



THcN 

len = .len - 2; 

helpinfo Chlp$l_bufdesc] = .len; 
helpinfo Chlp$l_bufdesc3 + 4 = .ptr; 



and last chars are CRLF 



C063 



J Slice off CRLF 
! Length read 



IF .stat EQL rms$_rfa THEN stat = rms$_eof; ! Fake error type if bad RFA 

! of read 



.stat 
END; 



.EXTRN SYSSGET 







000C 00000 READ: 


.WORD 


Save R2,R3 


52 


00000000' 


U 


DO 00002 
DO 00009 


MOVL 


HELP1NF0+4, R2 


53 


3C 


A? 


MOVL 


60(R2), R3 






52 


DD 000QD 


PUSHL 


R2 


000000006 00 




01 


F8 0000F 


CALLS 


#1, SYSSGET 




1E 


A2 


94 00016 


CLRB 


30CR2) 


51 


22 


A2 


3C 00019 
00 00010 


MOVZWL 


34(R2), LEN 


52 


28 


A2 


MOVL 


40(R2), PTR 


01 


1E 


A3 


91 QQQ21 
12 00025 


CMPB 


30(R3), #1 






08 


BNEQ 


1$ 






51 


D5 00027 


TSTL 


LEN 






04 


15 00029 
D7 0002B 


BLEQ 


1$ 






51 


DECL 


LEN 






52 


D6 0002D 


INCL 


PTR 




1E 


A3 


95 0002F 1$: 


TST8 


30(R3) 



0980 
1014 
1015 
1017 

1018 
1019 
1020 
1022 

1023 

1026 
1027 
1030 



ZZ-EN$AA-7,Q 

HELP 

06-10 



Read random record 

*+* HELP Handle HELP command 

Read random record 



02 



OAOD 8F 



00000000 • 
0001865C 



FE 



51 
EF 
8F 

50 0001827A 



13 
51 
OE 
A142 
9E 
03 
02 
51 
50 
07 
8F 



12 
D1 
19 
9F 
B1 
12 
C2 
7D 
D1 
12 
DO 
04 



H 4 

27-Jul-1984 
27-JuL-1984 
26-JuM984 



Fiche 8 Frame N4 Sequence 

15:58:29 VAX-11 Bliss-32 VA. 0-742 
09:40:23 0MA1 :CSYS0.SYSHAINTJHELP.B32;231 



1494 



00032 
00034 
00037 
00039 
0003D 
00042 
00044 
00047 
0004E 
00055 
00057 
0005E 



2$: 



3$: 



BNEQ 2$ 

CMPL LEN, 02 

BLSS 2$ 

PUSHAB -2(LEN)CPTRJ 

CMPW a<SP>+, 02573 

BNEQ 2$ 

SUBL2 02, LEN 

MOVQ LEN, HELPJNFO+8 

CMPL STAT, 099932 

BNEQ 3$ 

MOVL 098938, STAT 

RET 



Page 45 
(26) 



1031 

1032 



1034 
1036 
1039 



1042 



routine Size; 95 bytes. Routine Base: CODE + 0746 



ZZ-ENSAA- 


7.0 


HELP 




L'6-10 




; 1043 


1 


1044 


1 


; 1045 


1 


; 1046 


1 


; 1047 


1 


; 1048 


1 


1049 


1 


; 1050 


1 


; 1051 


1 


; 1052 


1 


; 1053 


1 


; 1054 


1 


; 1055 


1 


; 1056 


1 


; 1057 


1 


; 1058 


1 


; 1059 


1 


; 1060 


1 


; 1061 


1 


; 1062 


1 


; 1063 


1 


; 1064 


1 


; 1065 


1 


; 1066 


1 


; 1067 


1 


; 1068 


1 


; 1069 


1 


; 1070 


1 


; 1071 


1 


; 1072 


1 



compare keys 

*** HELP Handle HELP command 

compare keys 



B 5 
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XSBTTL 'compare keys' 

GLOBAL ROUTINE dsr$key_equal (keyl, key2, wildcompare) = 



+ t 



FUNCTIONAL DESCRIPTION 

Using wildcard characters ('*' and *% % ) compare two strings. 



INPUTS 

keyl 
key2 
wildcompare 

IMPLICIT INPUTS 
none 

OUTPUTS 

none 

IMPLICIT OUTPUTS 
none 

SIDE EFFECTS 
none 



The non^wildcard match string 

The pattern string (possibly wildcarded) 

Address of flag to set if wildcarded compare 



RETURN CODES 


1 



(RO) 

strings do not match 

strings match 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 1073 


2 


; 1074 


2 


; 1075 


2 


; 1076 


2 


; 1077 


2 


; 1078 


2 


1079 


2 


; 1080 


2 


; 1081 


2 


; 1082 


2 


; 1083 


2 


1084 


2 


; 1085 


2 


; 1086 


2 


; 1087 


2 


; 1088 


2 


; 1089 


2 


; 1090 


2 


; 1091 


2 


; 1092 


2 


; 1093 


2 


1094 


2 


1095 


2 


; 1096 


2 


1097 


2 


1098 


2 


1 099 


2 


; 1100 


2 


; 1101 


2 


; 1102 


3 


; 1103 


3 


1104 


3 


; 1105 


3 


; 1106 


3 


1107 


3 


1108 


3 


; 1109 


3 


1110 


3 


1111 


3 


; 1112 


3 


; 1113 


3 


1114 


3 


1115 


3 


1116 


4 


1117 


4 


; 1118 


4 


; 1119 


4 


; 1120 


4 


1121 


4 


; 1122 


4 


; 1123 


4 


1124 


4 


; 1125 


5 


; 1126 


4 


; 1127 


4 


; 1128 


5 


; 1129 


5 



C 5 

compare keys 27-Jul-1984 Fiche 8 Frame C5 Sequence 1496 

*** HELP Handle HELP command 27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 47 

compare keys 26-Jul-1984 09:40:23 DMA1 :CSYS0.SYS«AINTJH£LP.B32;231 (28) 

BEGIN 

MAP 

keyl i REF bblock, 
key2 : REF bblock; 

LABEL 

loop; 

LOCAL 
wild, 
lenl, 
len2, 
Ptr1 # 
ptr2, 
savlenl , 
savlen2, 
savptrl , 
savptr2; 

.wildcompare = wild = 0; ! Init wUd flag 

savlenl = 0; ! Use savelen! as 'flag' to see if saved 

lenl = .keyl Cdsc$w lengthJ; 

len2 = ,key2 tdsc$w~length3; 

ptrl = .keyl Cdsc$a_pointerJ; 

ptr2 = .key2 Cdsc$a_pointerJ; 

WHILE 1 00 

loop : 

BEGIN 

LOCAL 

char : dYTE; 

len2 = .len2 - 1; 

IF .len2 LSS 

THEN 

IF .lenl EQL 
THEN 

RETURN 1 
ELSE 

BEGIN 

IF (savlenl = .savlenl - 1) LSS ! Partial match 
THEN 

IF .wild 
THEN 

RETURN ! Don't take partial, if wild 

ELSE 

RETURN (.wildcompare - 1) ! Partial OK, elsewise 
ELSE 

BEGIN ! Restore saved valued—backup 

ptrl = (savptrl = .savptrl + 1); J Advance to next char. 



ZZ-ENSAA-7.0 


HELP 




06-10 




; 1130 


5 


; 1131 


5 


; 1132 


5 


; 1133 


4 


; 1134 


4 


; 1135 


4 


; 1136 


3 


; 1137 


3 


; 1138 


3 


; 1139 


3 


; 1140 


3 


; 1141 


3 


1142 


4 


; 1143 


4 


1144 


4 


1145 


4 


1146 


4 


1147 


4 


1148 


4 


; 1149 


4 


; 1150 


4 


1151 


4 


; 1152 


3 


; 1153 


3 


1 1 54 


3 


1155 


4 


; 1156 


4 


1157 


5 


1 1 58 


5 


1 1 59 


5 


1160 


5 


1161 


5 


; 1162 


5 


; 1163 


7 


1164 


6 


; 1165 


5 


; 1166 


'. 


1167 


3 


; 1168 


3 


1169 


3 


; 1 1 70 


3 


1171 


3 


; 1172 


3 


; 1173 


3 


1174 


3 


; 1175 


3 


1 1 76 


3 


; 1177 


4 


1178 


4 


V.79 


4 


; 1180 


4 


1181 


4 


; 1182 


4 


; 1183 


4 


; 1184 


3 


; 1185 


3 


; 1136 


3 



compare keys 

*** HELP Handle HELP command 

compare keys 

ptr2 = .savptr2; 

lenl = .savlenl; 

len2 = .savlen2 
END; 

LEAVE Loop 
END; 

char = CH$RCHAR_A <ptr2); 

IF .char FQL JSC 1 *' 
THEN 

BEGIN 

wild = 1; 



D 5 
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! Proceed to next iteration of loop 
! Get next pattern character 



! If wildcard char, save descriptors for later backup. 
! Set wildcard flag 



ELSE 



IT .len2 EQL THEN RETURN ( .wHdcompare ~ 1); 

savptrl = ,ptr1; 

savpcr2 = .ptr2; 

savlenl = .Lenl; 

savlen2 = .len2 
END 



! *** at end matches all 



IF 



THEN 



BEGIN 

lenl = .lenl - 1; 

BEGIN 

LOCAL 

ch : BYTE; 

ch - CHSRCHAR A (ptrl); 

(♦ch - (JF .ch* GEQU XC'a' AND .ch LEQU XC'z' 

THEN aCa* - U'A' ELSE 0)) 

END 

END 

NEQ .char ! I f not a match 



! convert to upper case 



It .char NEQ UT 
THEN 



! and not a character wildcard 



IF (savlenl = .savlenl - 1) LSS 
THEN 

RETURN 
ELSE 

BEGIN ! Restore values 

ptrl - (savptrl = , savptrl + 1); ! Advance to next char 

ptr2 = .savptr2; 

lenl = .savlenl; 

len2 = .savlen2 

END 



ELSE 



.wildcompare = 1 



ZZ-ENSAA-7.0 

HELP 

06-10 



compare keys 
*** HELP Handle 
compare keys 



HELP command 



1187 
1188 
1189 
1190 



END; 




END; 



E 5 

27-JuM984 
27-JuL-1984 
26-Jul-1984 

! loop 



15:58:29 
09:40:23 



Fiche 8 Frame E5 Sequence 1498 

» VAX-11 Bh'ss-32 V4. 0-742 Page 49 

! DMA1:CSYS0.SYSMAINT3HELP,B32;231 (28) 



If we leave loop, no good, 
of Dsr$Key_Equal 









0FFC 


00000 




.ENTRY 


DSRSKEY EQUAL, Save 

R9,R10,R11 

#4, SP 


R2,R3,R4 




5E 




04 


C2 


00002 




SUBL2 










5B 


D4 


00005 




CLRL 


WILD 








OC 


BC 


D4 


00007 




CLRL 


SWILDCOMPARE 










53 


D4 


000OA 




CLRL 


SAVLEN1 






51 


04 


AC 


DO 


0000C 




MOVL 


KEY1, R1 






55 




61 


3C 


00010 




MOVZWL 


(R1), LEN1 






50 


08 


AC 


DO 


00013 




MOVL 


KEY2, RO ' 






54 




60 


3C 


00017 




MOVZWL 


(RO), LEN2 






58 


04 


A1 


DO 


0001 A 




MOVL 


4(R1), PTR1 






57 


04 


AO 


DO 


0001 E 




MOVL 


4(R0), PTR2 






OC 




54 


F4 


00022 


1$: 


SOBGEQ 


LEN2, 2$ 










55 


D5 


00025 




TSTL 


LEN1 










1B 


13 


00027 




BEOL 


4$ 






5B 




53 


F4 


00029 




SOBGEQ 


SAVLEN1, 9$ 






11 




58 


E9 


0002C 




BLBC 


WILD, 3$ 










6C 


11 


0002F 




BRB 


11$ 






52 




87 


90 


00031 


2$: 


MOVB 


(PTR2H, CHAR 






2A 




52 


91 


00034 




CMPB 


CHAR, #42 










1D 


12 


00037 




BNEQ 


6$ 






5B 




01 


DO 


00039 




MOVL 


#1, WILD 










54 


D5 


0003C 




TSTL 


LEN2 










08 


12 


0003E 




BNEQ 


5$ 






0C BC 




01 


DO 


00040 


3S: 


MOVL 


#1, SWILDCOMPARE 






50 




01 


DO 
04 


00044 
00047 


4$: 


MOVL 
RET 


#1, RO 






56 




58 


DO 


00048 


5$; 


MOVL 


PTR1, SAVPTR1 






59 




57 


DO 


0004B 




MOVL 


PTR2, SAVPTR2 






53 




55 


DO 


0004E 




MOVL 


LEN1, SAVLEN1 






5A 




54 


DO 


00051 




MOVL 


LEN2, SAVLEN2 










CC 


11 


00054 




BRB 


1$ 










55 


D7 


00056 6$: 


DECL 


LEN1 






51 




88 


90 


00058 




MOVB 


(PTRD + , CH 






61 8F 




51 


91 


0005B 




CMPB 


CH, #97 










08 


1F 


0005F 




BLSSU 


7$ 






7A 8F 




51 


91 


00061 




CMPB 


CH, #122 










05 


1A 


00065 




BGTRU 


7$ 






50 




20 


DO 


00067 




MOVL 


#32, RO 










02 


11 


0006A 




BRB 


8$ 










50 


D4 


0006 C 


7$: 


CLRL 


RO 






6E 




51 


9A 


0006E 


8$: 


MOVZBL 


CH, (SP) 






50 




6E 


C2 


00071 




SUBL2 


(SP), RO 






50 




50 


CE 


00074 




MNEGL 


RO, RO 




52 


08 




00 


ED 


00077 




CMPZV 


#0, #8, CHAR, RO 










A4 


13 


0007C 




BEQL 


1$ 






25 




52 


91 


0007E 




CMPB 


CHAR, #37 










14 


13 


00081 




BEQL 


10$ 





1045 



1093 

1094 
1095 

1096 

1097 
1098 

1107 
1112 

1118 
1121 
1125 
1138 
1140 

1143 

1145 



1147 
1148 
1149 
1150 

1156 
1162 
1163 



1164 
1163 

1167 

117C 



ZZ-ENSAA-7,0 

HELP 

06-10 



compare keys 

+** HELP Handle HELP command 

compare keys 



58 
57 
55 
54 



OC BC 



53 D7 

16 19 

56 D6 

56 DO 

59 00 

53 DO 

5A DO 

88 11 

01 DO 

85 11 

50 D4 
04 



F 5 

27-Jul-1984 
27-Jul-1984 
26-JuL-1984 



Fiche 8 Frame F5 Sequence 

15:58:29 VAX-11 BUss-32 V4. 0-742 
09:40:23 DMA! :CSYS0.SYSMAINT]HELP.B32;231 



1499 



00083 DECL SAVLEN1 

00085 BLSS 11$ 

00087 9$: JNCL SAVPTR1 

00089 MOVL SAVPTR1, PTR1 

0008C MOVL SAVPTR2, PTR2 

0008F MOVL SAVLEN1, LEN1 

00092 MOVL SAVLEN2, LEN2 

00095 BRB 1$ 

00097 10$: MOVL #1, 3WJLDC0MPARE 

0009B BRB 1$ 

0009D 11$: CLRL RO 

0009F RET 



Page 50 
(28) 

1173 

1178 

1179 
1180 
1181 
1173 
1185 
1170 
1190 



Routine Size: 160 bytes. Routine Base: CODE + 07A5 



1191 1 



ZZ-ENSAA- 


7,0 


HELP 




06-10 




1192 


1 


; 1193 


1 


1194 


1 


1195 


1 


1196 


1 


; 119? 


1 


1198 


1 


; 1199 


1 


; 1200 


1 


; 1201 


1 


; 1202 


1 


; 1203 


1 


1204 


1 


1205 


1 


; 1206 


1 


; 1207 


1 


; 1208 


1 


; 1209 


1 


; 1210 


1 


1211 


1 
• 


; 1212 


1 


; 1213 


1 


1214 


1 


1215 


1 


; 1216 


1 


; 1217 


1 


; 1218 


1 



skip b tanks 

*** HELP Handle HELP command 

skip.blanks 

XSBTTL 'skip blanks' 
ROUTINE skip~blanks (desc) * 



6 5 
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+ + 



FUNCTIONAL DESCRIPTION 

Advance line descriptor past blanks 



INPUTS 



desc pointer to descriptor of text 



IMPLICIT INPUTS 
none 



OUTPUTS 

desc 



descriptor is updated past blanks 



IMPLICIT OUTPUTS 
none 

SIDfc EFFECTS 
none 



RETURN CODES 



if end-of-line detected 

if non-blank character found 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 1219 


2 


; 1220 


2 


; 1221 


2 


; 1222 


2 


; 1223 


2 


; 1224 


2 


1225 


2 


; 1226 


2 


; 1227 





; 1228 


3 


; 1229 


3 


; 1230 


3 


; 1231 


3 


; 1232 


3 


; 1233 


3 


; 1234 


3 


; 1235 


3 


; 1236 


3 


; 1237 


2 


; 1238 


2 


1239 


2 


; 1240 


1 



H 5 

skip blanks 27-Jul-1984 Fiche 8 Frame H5 Sequence 1501 

*** HELP Handle HELP command 27-Jul-1984 15:58:29 VAX-11 Bliss-32 V4. 0-742 Page 52 

skip„blanks 26-Jul-1984 09:40:23 DMA1 :CSYS0.SYSMA1NTJHELP.B32;231 (30) 

BEGIN 

MAP 

desc : REF bblock; 

LOCAL 

char : BYTE; 

WHILE .desc [dsc$w_lengtrJ 6TR DO 
BEGIN 
char - CHSRCHAR (.desc [dsc$a_pointerJ) ; ! Get next character 

IF ,char EQL %V\ % THEN RETURN 0; ! Comment delimits line 

IF .char NEQ XV % AND .char NEQ XC ' THEN RETURN 1; ! Done 

desc CdscSa^pointer] « .desc [dsc$a pointer] + 1; ! Advance descriptor 

desc Cdsc$w length] = .desc Cdsc$w length] - 1 

END; 

! Hit end of line 

END; i of skip^blanks 







C 


000 00000 


SKIP. 


BLANKS: 
.WORD 


Save nothing 


50 


04 


AC 


DO 00002 




MOVL 


DESC, RO 






60 


B5 00006 


1$: 


TSTW 


(RO) 






1E 


13 00008 




BEQL 


3$ 


51 


04 


B0 


90 0OOOA 




MOVB 


34 (RO), CHAR 


21 




51 


91 OOOOE 




CMPB 


CHAR, 033 






15 


13 00011 




BEQL 


3$ 


20 




51 


91 00013 




CMPB 


CHAR, #32 






09 


13 00016 




BEQL 


2$ 


09 




51 


91 00018 




CMPB 


CHAR, #9 






04 


13 00018 




BEQL 


2$ 


50 




01 


DO 0001 D 
04 00020 




MOVL 
RET 


#1, RO 




04 


A0 


D6 00021 


2$: 


INCL 


4(R0) 






60 


B7 00024 




DECW 


(RO) 






DE 


11 00026 




BRB 


1$ 






50 


D4 00028 
04 0002A 


3$: 


CLRL 
RET 


RO 



1193 
1227 



1229 
1231 

1233 



1235 
1236 

1240 



Routine Si*2e: 43 bytes. Routine Base: CODE + 0845 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 1241 


1 


; 12A2 


1 


; 1243 


1 


; 1244 


1 


; 1245 


1 


; 1246 


1 


; 1247 


1 


; 1248 


1 


1249 


1 


; 1250 


1 


; 1251 


1 


; 1252 


1 


; 1253 


1 


1254 


1 


; 1255 


1 


; 1256 


1 


; 1257 


1 


; 1258 


1 


; 1259 


1 


; 1260 


1 


; 1261 


1 


; 1262 


1 


; 1263 


1 


1264 


1 


1265 


1 


; 1266 


1 


; 1267 


1 



scan word 

*** HELP Hanole HELP command 

scan_word 

XSBTTL 'scan^word' 
ROUTINE scan^word (desc) = 

FUNCTIONAL DESCRIPTION 

scan descriptor over a word 



27-Jul-1984 Fkhe 8 Frame 15 Sequence 1502 
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INPUTS 



desc address of descriptor for string 



IMPLICIT INPUTS 
none 



OUTPUTS 

aesc 
R0 



descriptor i;» updated past word scanned 
length of word scanned 



IMPLICIT OUTPUTS 
none 

SIDE EFFECTS 
none 



RETURN CODES 
none 



(R0 if function value) 



ZZ-ENSAA-7.0 sc 


HELP 


** 


06-10 


sc 


; 1268 


2 


; 1269 


2 


; 1270 


2 


; 1271 


2 


; 1272 


2 


; 1273 


2 


; 127A 


2 


; 1275 


2 


; 1276 


2 


1277 


2 


; 1278 


2 


; 1279 


2 


; 1280 


2 


; 1281 


3 


; 1282 


3 


; 1283 


3 


; 1284 


3 


; 1285 


3 


; 1286 


3 


; 1287 


3 


; 1288 


3 


; 1289 


3 


; 1290 


3 


1291 


5 


; 1292 


5 


1293 


5 


1294 


5 


1295 


5 


; 1296 


5 


; 1297 


5 


1298 


4 


1299 


3 


; 1 300 


3 


; 1301 


3 


; 1302 


3 


; 1303 


3 


1 304 


3 


; 1305 


2 


; 1306 


2 


1307 


3 


; 1308 


1 



scan word 

*** HELP Handle HELP command 

scan_word 

BEGIN 

MAP 

desc : REF bblock; 

LOCAL 

f irstchar, 
startpointer; 



J 5 
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startpointer = .desc Cdsc$a_pointerJ; 
first char = 1; 

WHILE .desc Cdsc$w length] GTR DO 
BEGIN 

LOCAL 

char : BYTE; 

char = CHSRCHAR (.desc CdscSa.pointerJ) ; 



! flag 

! Point to initial character 

! On first character 
! Scan string 



Read next character 



i If it's not a legal character to have inside a word, exit 

IF NOT ((.char GEQU XC'A 1 AND .char LEQU %VV) OR (.char GEQU XC'a' AND .char LEQU %Vz % ) OR (.char GEQU 
XC'O 1 AND .char LEQU XC f 9 f ) OR (.char EQL XC'S') ! dollar sign 



OR (.char EQL XC*_ 

OR (.char EQL XC»- 

OR (.char EQL XC\ 

OR (.char EQL %C'% 

OR (.char EQL %C« 



THEN 



OR (.firstchar AND (.char EQL XC , / , )>> 



! underscore 

! hyphen 

! period 

! wildcard 

1 wildcard 



! slash (for qualifier) 



EXITLOOP; 



! Exit if done with word 



firstchar = 0; ! Reset flag 

desc Cdsc$a_pointerJ = .desc CdscSa pointer] + 1; 
desc Cdsc$w_lengthJ = .desc CdscSw Tength] - 1 
END; 

(CH$DJFF (.desc [dsc$a„pointer], .startpointer)) 

END; ! of scan.word 



41 
5A 



50 
53 
52 



51 
8F 

8F 



04 


AC 


04 


AO 




01 




60 




56 


04 


BO 




51 

St 



000C 00000 SCAN WORD: 

.WORD 
DO 00002 MOVI. 
DO OC006 MOVL 
DO O00OA MOVL 
B5 0000D 1$: TSTW 
13 0000F BEQL 

90 00011 MOVB 

91 00015 CMP8 
IF 00019 BLSSU 
91 0001 B CMPB 



Save R2.R3 

DESC. RO 

4(R0), STARTPOINTER 

01, FIRSTCHAR 

(RO) 

6$ 

c*4(R0), CHAR 

CHAR, #65 

2$ 

CHAR, #90 



1242 
1277 

1278) 
1280 

1286 
12 ( >1 



7Z-ENSAA-7.Q 

HELP 
06*10 



scan word 

*** HELP Handle 

scan word 



HELP command 



61 
7A 



5F 



8F 
8F 
30 
39 
24 
8F 
2D 

25 

2A 

0E 
2F 



04 



50 



04 AO 





K ' 
27-Jul^ 


■1984 


Fiche 8 Frame K5 




27-Jul- 


-1984 15:58 


:29 VAX-11 Bliss-32 V 




26-Jut« 


-1984 09:40j23 DMA1 : CSYSO. SYSMAI 


3D 


18 0001 F 


BLEQU 


5$ 


51 


91 00021 2$: 


CMPB 


CHAR, #97 


06 


1F 00025 


BLSSU 


3$ 


51 


91 00027 


CMPB 


CHAR, #122 


31 


16 0002B 


BLEQU 


5$ 


51 


91 0O02D 3$: 


CMPB 


CHAR, #48 


05 


1F 00030 


BLSSU 


4$ 


51 


91 00032 


CMPB 


CHAR, #57 


27 


18 00035 


BLEQU 


5$ 


51 


91 00037 4$: 


CMPB 


CHAR, #36 


22 


13 0003 A 


BEQL 


5$ 


51 


91 0003C 


CMPB 


CHAR, #95 


1C 


13 00040 


BEQL 


5$ 


51 


91 00042 


CMPB 


CHAR, #45 


1? 


13 00045 


BEQL 


5$ 


51 


91 00047 


CMPB 


CHAR, #46 


12 


13 0004 A 


BEQL 


5$ 


51 


91 0004C 


CMPB 


CHAR, #37 


OP 


13 0004 F 


BEQL 


5$ 


51 


91 00051 


CMPB 


CHAR, #42 


08 


13 00054 


BEQL 


5$ 


52 


E9 00056 


BLBC 


FIRSTCHAR, 6$ 


51 


91 00059 


CMPB 


CHAR, #47 


09 


12 0005C 


BNEQ 


6$ 


52 


D4 0005E 5$: 


CLRL 


FIRSTCHAR 


AO 


D6 00060 


INCL 


4(R0) 


60 


B7 00063 


DECW 


(RO) 


A6 


11 00065 


BRB 


1$ 


53 


C3 00067 6$: 


SUBL3 


STARTPOINTER, 4(R0), RO 




04 0006C 


RET 





Sequence 1504 
V4. 0-742 



Page 55 
(32) 



1292 

1293 
1294 
1295 
1296 
1297 
1298 



1302 
1303 
1304 

1307 
1308 



Routine Sizes 109 bytes. Routine Base? CODE + 0870 



ZZ-ENSAA- 


7,0 


«LP 




06-10 




; 1309 


1 


; 1310 


1 


; 1311 


1 


; 1312 


1 


; 1313 


1 


1314 


1 


; 1315 


1 


; 1316 


1 


; 1317 


1 


; 1318 


1 


; 1319 


1 


; 1320 


1 


; 1321 


1 


1322 


1 


; 1323 


1 


1324 


1 


; 1325 


1 


; 1326 


1 


; 1327 


1 


; 1328 


1 


; 1329 


1 


; 1330 


1 


1331 


1 


; 1332 


1 


1333 


1 


1334 


1 


1335 


1 



find character 

*** HELP Handle HELP command 

find character 

XSBTTL 'find character' 

ROUTINE find.char (desc, character) : jsb_2 = 

FUNCTIONAL DESCRIPTION 

find distance to character in string 
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INPUTS 

desc 
character 

IMPLICIT INPUTS 
none 

OUTPUTS 
RO 

IMPLICIT OUTPUTS 
none 

SIDE EFFECTS 
none 



RETURN CODES 

RO is function value 



address of string descriptor to search 
the character to look for 



distance in string to character 



7Z-ENSAA- 


7,0 


HELP 




06-10 




; 1336 


2 


; 1337 


? 


; 1338 


2 


; 1339 


2 


; 1340 


2 


; 1341 


2 


; 1342 


2 


; 1343 


2 


; 1 344 


2 


; 1345 


2 


; 13)0 


2 


; 1347 


2 


; 1348 


2 


1349 


2 


; 1350 


3 


; 1351 


3 


; 1352 


3 


; 1353 


3 


; 1354 


3 


; 1355 


3 


; 1356 


2 


; 1357 


2 


; 1358 


2 


; 1359 


1 



find character 

*** HELP Handle HELP command 

find character 
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BEGIN 



LOCAl 



MAP 



ptr, 
ten; 



desc : REF bblock, 
character : BYTE; 



len = .desc CdscSw^lengthD; 
ptr = .desc Cdsc$a_pointerJ; 

WHILE .len 6TR 00 
BEGIN 
Len = .len - 1; 

IF CH$RCHAR (.ptr) EQL .character THEN EXITLOOP; 

ptr = .ptr + 1 
END; 

CHSDiFF (.ptr, .desc Cdsc$a DointerD) 
END; 



I If we found it 



! Return distance 
! of find_char 



50 



Routine Size: 32 bytes. Routine Base: CODE + 08DD 







OC 


BB 00000 FIND. 


.CHAR: 
PUSHR 


53 




60 


3C 00002 


MOVZWL 


52 


04 


AO 


DO 00005 


MOVL 






53 


D5 00009 1$: 


TSTL 






08 


15 0000B 


BLEQ 






53 


07 0000D 


DECL 


51 




62 


91 O000F 


CMP8 






04 


13 00012 


BEQL 






52 


D6 00014 


INCL 






F1 


11 00016 


BRB 


52 


04 


AO 


C3 00018 2$: 


SUBL3 






OC 


BA 0001 D 
05 0001 F 


POPR 
RSB 



#*M<R2,R3> 

(DESC), LEN 

4(DESC), PTR 

LEN 

2$ 

LEN 

(PTR), CHARACTER 

2% 

PTR 

1$ 

4(DESC), PTR, RO 

iTM<R2,R3> 



1310 
1346 
1347 
1349 

1351 
1353 

1355 

1358 
1359 



ZZ-ENSAA- 


7.0 


HELP 




06-10 




; 1360 


1 


; 1361 


1 


; 1362 


1 


; 1363 


1 


; 1 364 


1 


1365 


1 


; 1 366 


1 


; 1367 


2 


; 1368 


3 


; 1 369 


1 



print blank line 

*** HELP Handle HELP command 

print blank line 

XSBTTL 'print blank line* 

ROUTINE print, crlf : jsb^none NOVALUE 
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♦ •f 



Print a blank line 



BEGIN 

$ds orintf (Sascic <■{/')) 

END; 



! of print_crlf 

,PSECT DATA,NOWRT,NOEXE, SHR,2 
2F 21 02 OOOAA P.AAI.i .ASCII <2>\!/\ 



.PSECT CODE,NOWRT, SHR,2 

0U000000 1 EF 9F 000OO PRINT_CRLF: 

PUSHA8 P.AAL 
01 FB 00006 CALLS #1 , a*DS$PRINTF 
05 OOOOD RSB 



Routine Size: H bytes. 



OOOOOOOOG 9F 

Routine Base; CODE + 08FD 



1368 
1369 



ZZ-ENSAA-7.0 

HELP 

06-10 



1370 1 

1371 1 

1372 



print blank tine 

*** HELP Handle HELP command 

print blank line 

END 

ELUDOM 



„ B 6 
27-Jul-1984 
27-Jul-1984 
26-JuL-198A 
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PSECT SUMMARY 



Name 



Bytes 



DATA 
WORK 
CODE 



167 NOVECNOWRT, 

46 NOVEC, WRT, 

2315 NOVECNOWRT, 



Attributes 

RD ,NOEXE, SHR, LCL # REL, 

RD ,NDEXE,NOSHR, LCL, REL, 

RD , EXE, SHR, LCL, REL, 



C0N,N0PIC,ALJGN(2) 
C0N,N0PIC,ALIGN(2) 
C0N,N0PIC,AL1GN<2) 



Library Statistics 



File 



DRB1:CDS.W0RKJD1AG.L32;265 

DRB1:[DS,W0RK]DS.L32;159 

SYS$SYSR0OT:CSYSLJBJSTARLET,L32;60 



Total 

784 

653 

9486 



Symbols 
Loaded 

3 

19 
76 



Percent 



Pages 
Mapped 

85 

42 

570 



Processing 
Time 

00:00.1 
00:00.2 
00:02,6 



COMMAND QUALIFIERS 

8LISS/N00BJECT/L I ST=[DS. LI S3/0PTIMI2E=(LEVEL:3, SPACE) /DEBUG/TRACE HELP 

Size: 2315 code + 213 data bytes 

Run Time: 00:43.6 

Elapsed Time: 01 :55.1 

Lines/CPU Min: 1887 

Lexemes/CPU-Min: 18909 

Memory Used: 235 pages 

Compilation Complete 
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fable of contents 

(2) 1 08 DECLARATIONS 

(3) 199 Device description database 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Interpreted code for TSP 

- Interpreted code for TSP 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.TITLE 
• I DENT 
.LIST 
.NLIST 
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ICODE - Interpreted code for TSP 

/07-22/ 

MEB 

CNO 



1 

(1) 



Copyright (c) 1979, 1982, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 



+ + 
FACILITY: 

ABSTRACT: 



ENVIRONMENT: 
AUTHOR: 
MODIFIED BY: 

01 

02 



TSP 

This module is used to generate the necessary driver 
for the APT Attach command interpreter. It is really 
part of TSP. 



R. Riggs 



15-Jul-1979 



Dave Butenhof, 2-apr-1981 (with Supervisor V6.3) 

Add PTdescriptors for ML11, KA730, LP25, TM78 and TU78 

Dave Butenhof, 13-Nov-1981 , version 6.5 

Add Ptable descriptors for DW730, DMF32CA,P,S, J, UDA50, 

RB730, R80, and RA80. 



C03J Dave butenhof, 09-Apr-1982, version 6.7 

Support $DS_$NAME directive (ignore it) 

[043 Dave Butenhof, 03-May-1982, version 6.7 
Add RA81 and RA60 devices 



05 
06 
07 



M. Baggett 

added CI750 



Bob Bergazzi 
U 

jg 
Added CI 750 macro call. 



added u8a11 
M. Baggett 



24-Sept-1982 Version 6.9 
2-Nov-1982 Version 6.9 
3-Nov-1982 Version 6,9 



ZZ-ENSAA-7.0 

1C0DE 

07-22 



Interpreted code for TSP 

- Interpreted code for TSP 



08 
09 
10 
11 
12 
13 
14 
15 

16 
17 
18 
19 

20 

21 
22 



0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


cooo 


72 


0000 


73 


0000 


74 


0000 


75 


0000 


76 


0000 


7? 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


82 


0000 


83 


0000 


84 


0000 


85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 


90 


0000 


9? 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


0000 


98 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0000 


103 


0000 


104 


0000 


105 


0000 


106 
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M. BAGGETT 1-Dec-1982 
Added TU80 and DZ32. 



M. BAGGETT 
Added TU81. 

M. BAGGETT 
Added VS100. 

M. BAGGETT 
Added RC25. 



8-DEC-1982 
10-DEO1982 
H-JAN-1983 
23-Feb-1983 



M. Baggett 

Added CIJJODE and RCF25,VS300. 



Version 6.10 
Version 6.10 
Version 6.10 
Version 6.11 
Version 6.11 



M. Baggett 14-Mar-1983 Version 6.11 
Added p-tabte for LESI controller. 

M. Baggett 21-Mar-1983 Version 6.11 
Added VT220,VT240,LA12,LA100,LN01 . 

Richard Brown 18-July-83 Vision 6.12 
Added CONSOLE, KAXXX, KAYYY, LP07, LP26, LP27, 
RC11, SBJA. 



M. Baggett 
Added IEU11A. 

M. Baggett 
Added VS125. 

M. Baggett 
Added TS05,DISK. 



8-Aug-1983 
7-Sep-1983 
22-Nov-1983 



Version 6.12 
Version 6.13 
Version 6.13 
Version 6.14 



Richard Brown 5-Mar-84 

Added DEQNA, DLVJ1, DZV11, RQDX1 , RX50, RD51, R052 

for MicroVAX I. 

Richard Brown 3-Apr-84 Version 7.0 
Corrected typo which included RD51 twice and 
excluded RD52. Now both RD51 and RD52 are 
there. 



M. Baggett 
Added DMZ32. 



21-Jun-84 



Version 7.0 



Richard Brown 7-Jul-84 Version 7.0 
Removed RC11, since it is really LESI. 
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DECLARATIONS 



- Interpreted 
DECLARATIONS 



code for TSP 
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00000008 
0OOOO0OA 
OOOOOOOB 
0OOOO0OC 
00000018 
0000001 C 
00000020 
00000024 
00000026 
00000032 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
C008 
0008 
OOOA 
OOOA 

oooa 

0008 

oooc 
oooc 

0018 
0018 
001 c 
001 c 
0020 
0020 
0024 
0024 
0026 
0026 
0032 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



108 
109 
110 

111 

112 
113 
114 
115 
116 
117 
118 



119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 



.SBTTL DECLARATIONS 



INCLUDE FILES: 



.LIBRARY /SDIAG/ 



MACROS: 



.MACRO 



.ENDM 



.MACRO 

.ENDM 

.MACRO 

.ENDM 
.MACRO 



$DS HPODEF 
SAVE LOCAL BLOCK 

NB,HPSQ DEVICE, HPSQ DEVICE: 

NB,.BLKO, .BLKO 1 

NB,HP$W SIZE, HPSWSIZE: 

NB,.BLKQ, .BLKQ 1 

NB,HP$B FLAGS, HP$B FLAGS: 

NB,.BLK6, .BLKB 1 

NB,HP$B DRIVE, HP$B DRIVE: 

NB,.BLKB, .BLKB 1 

NB,HP$T DEVICE, HPST DEVICE: 

NB,.BLKB, .BLKB 12 

NB,HP$A DEVICE, HP$A DEVICE: 

NB,.BLKC, ,BLKU 1 

NB,HP$A DVA, HP$A DVA: 

NB,.BLK[, .BLKC 1 

NB,HP$A LINK, HP$A LINK: 

NB,.BLK[, .BLKL 1 

NB,HP$W VECTOR, HP$W VECTOR: 

NB,.8LKQ, .BLKO 1 

NB,HP$T TYPE, HPST TYPE: 

NB,.8LKB, .BLKB 12 

NB,HP$A DEPENDENT, HPSA.DEPENDENT: 
RESTORE 

SDS SINIT1ALIZE DEVICE, LF JGTH, MAX, DRIVER 

.ASllC '•DEVICE 1 ' ; Device name 

.BYTE MAX ; Maximum unit number 

.BYTE A X80 ; Constant to identify start of descriptor 

$DS_$INITIALIZE 



.MACRO SDS„SNAME 
.ENDM $DS_$NAME 



FLAGS, GENERIC 



SDS SEND 
.BYTE A X81 
$DS_$END 

SDS SDECIMAL 
.BYTE A X82 
.ASCIC "PROMPT" 
.LONG LOW, HIGH 
SDSJDECIMAL 



Indicate end of PT-descriptor 



PROMPT, LOW, HIGH 

Indicate scan decimal 

prompt string 

Low , High Limits on input 



SDS SOCTAL PROMPT, LOW, HIGH 

.BYTE 783 ; Indicate scan octal 

.ASCIC "PROMPT" • prompt string 



ZZ-ENSAA-7.0 
I CODE 
07-22 



DECLARATIONS 



- Interpreted code for JSP 
DECLARATIONS 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



142 

143 .ENDM 

144 

145 .MACRO 

146 

147 

148 

149 .ENDM 

150 

151 .MACRO 

152 

153 

154 

155 

156 

157 

158 .ENDM 

159 

160 .MACRO 

161 

162 

163 

164 

165 

166 .ENDM 

167 

168 .MACRO 

169 $$$$$$$ = ARG 

170 .ENDM 
171 

172 .MACRO 

173 .ENDM 
174 

175 .MACRO 

176 .ENDM 
177 

178 .MACRO 

179 .ENDM 
180 

181 .MACRO 

182 .ENDM 
183 

184 .MACRO 

185 .ENDM 
186 
187 .MACRO 



.LONG *0'LOW, A 0'HIGH 
$DS_$OCTAL 



Low , High Limits on input 



$DS $HEX PROMPT, LOW, HIGH 

.BYTE a X84 ; Indicate scan hexadecimal 

.ASCIC "PROMPT" ; prompt string 

.LONG LOW, HIGH ; Low , High limits on input 

$DS $HEX 



$DS SSTRING 

.BYTE A X85 

.ASCIC "PROMPT" 

.IRP STRING, STRINGS 

.ASCIC "STRING" 

.ENDR 

.BYTE 

$DS_$STRING 

$DS SLOGICAL PROMPT 

.BYTE *X85 

.ASCIC "PROMPT" 

.ASCIC "NO" 

.ASCIC "YES" 

.BYTE 

$DS_$LOGICAL 



PROMPT, STRINGS 

; Indicate scan and verify string 
; prompt string 



Null length is end of valid strings 



For APT, pretend this is a STRING 



$DS SLITERAL 



$D5_$LITERAL 

$DS_$FETCH 
$DS_$FETCH 

SDS.SSTORE 
$DS_$ST0RE 

$DS_$COMPLEMENT 
$DS_$COMPLEMENT 

$DS_$ADD 
$DS.$ADD 

$DS_$CASE 
$DS.$CASE 



ARG 

OFFSET, BIT, SIZE 
OFFSET, BIT, SIZE 



$DS_DEVTYP 



188 $$N=0 

189 .IRP X, ADDRESSES 

190 $$N=$$N+1 

191 .ENDR 

192 AL.DEVTYP: 

193 .WORD $$N 

194 .IRP X, ADDRESSES 

195 .WORD X-AL DEVTYP 

196 .ENDR 

197 .ENDM $DS_DEVTYP 



OFFSET, BIT, SIZE 

CASEPAIRS 

STRJNGS,ADDRESSES 



ZZ-ENSAA-7.Q 

ICODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 
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5 
(3) 



0076 

00EE' 

0128' 

0162' 

01EV 

01B0' 

0210* 

021B 1 

024C* 

0262' 

026A' 

0298' 

0334' 

0366' 

0398' 

0497' 

04E6' 

0539' 

05C7* 

05F9 1 

0725 ' 

0757 1 

0791' 

07C3' 

0824' 

0883' 



0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0002 
0004 
0006 
0008 
OOOA 

oooc 

OOOE 
0010 
0012 
0014 
0016 
0018 
001A 
001C 
001E 
0020 
0022 
0024 
0026 
0028 
002A 
002C 
002E 
0030 
0032 



199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 



.SBTTL Device description database 



The following 
of device the 



DS$GA PTDESC:: 

SDS.DEVTYP 



AL,DEVTYP: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



list contains the descriptor for each type 
supervisor known about. 



<>,<AA11K,AD11K, CI NODE, CI780,CI750, CONSOLE ,- 
CR11,DEQNA-D1SK,0LT1,DLVJ1 - 
DMC11,DMF32,DMFi2A,DMF32P,DMF32S,- 
DMP11,DMR11,DMZ32,DR11B,- 
DR11K,DR11W,DR750,DR780, - 

DUP11.DW730,DW750,DW780,DZ11,DZ32,DZV11,IEU11A,- 
KA730,KA750,KA780,KAXXX,KA785, - 
KMC11,KW11K,LA12,LA34,LA36,LA38, - 
LA100,LA120,LA180,LESI,LN01,LP04, - 

LP05,LP06,LP07,LP11,LPK, - 
LP25,LP26,LP27,LPA11K,MA780,MBE,- 

ML11 .MS750,MS780,PCL11 # - 

PX780,- 

R80,RA60,RA80,RA81,RB730,RCF25,RC25, - 

RD51 ,RD52,RH750,RH780,RL01 ,RL02, - 

RL11,RK06.RK07,RK611, - 

RM03,RM05,RM80, - 

RP04,RP05,RP06,RP07,RQDX1 ,RX02, - 

RX211,RX50,SBIA,TE16,TM03,TM78,- 

TS04,TS05,TS11,TU45,TU58,TU77,TU78,TU80,TU81- 

UBE.UDA50,UNA11,- 

VS100,VS125,VS300,VT50,VT52,VT55,VT100,- 

VT220,VT240> 



C213 



C13: 

C15D 

con 
con 

C123 

C19] 



C19] 

con 

C18D 
C06] 
C12] 



StN 

AA11K-AL DEVTYP 
AD11K-AL DEVTYP 
CI NODE-XL DEVTYP 
CI780-AL DEVTYP 
CI750-AL DEVTYP 
CONSOLE-XL DEVTYP 
CR11-AL DEVTYP 
DEQNA-AC DEVTYP 
DISK-ALJ5EVTYP 
DL11-AL DEVTYP 
DLVJ1-AC..DEVTYP 
DMC11-AL„DEVTYP 
DMF32-AL DEVTYP 
DMF32A-AC,DEVTYP 
DMF32P-AL_DEVTYP 
DMF32S-AL DEVTYP 
DMP11-ALJEVTYP 
DMR11-AL DEVTYP 
DMZ32-ALIDEVTYP 
DR11B-AL DEVTYP 
DR11K-AL DEVTYP 
DR11W-AL~DEVTYP 
DR750-ALIDEVTYP 
DR780-AL DEVTYP 
DUP11-AL~DEVTYP 



ZZ-ENSAA-7.0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



08E6* 
08EF' 
08F8' 
0919* 
096V 
0A1D' 
0A43' 
0A77 1 
0B1C 
0BB7' 
0C36 1 
0CB5' 
0D34 1 
0D66' 
ODAO* 
0DC3' 
ODCB' 
0DD3' 
0DA8' 
0DB1' 
ODBA 1 
ODDB' 
OEOB* 
0E13 1 
0E1B' 
0E23' 
0E2B' 
0E33' 
0E6A' 
0E6C 
0E74' 
0E7C 1 
0E84* 
0EB7' 
0EF3* 
OEFA' 
OF 36' 
0F3F 1 
0F6E' 
OFAO' 
OFCF* 
0FD6' 
OFDE' 
0FE6* 
OFEE' 
0FF7' 
1000' 
1008' 
1010' 
1018 1 
102D 1 
104E' 
1056 f 
105E' 
108F' 
1097' 
109F' 



0034 
0036 
0038 
003A 
003C 
003E 
0040 
0042 
0044 
0046 
0048 
004A 
004C 
004E 
C050 
0052 
0054 
0056 
0058 
005A 
005C 
005E 
0060 
0062 
0064 
0066 
0068 
006A 
006C 
006E 
0070 
0072 
0074 
0076 
0078 
007A 
007C 
007E 
0080 
0082 
0084 
0086 
0088 
008A 
008C 
008E 
0090 
0092 
0094 
0096 
0098 
009A 
009C 
009E 
00A0 
00A2 
00A4 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
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DW730-AL.DEVTYP 

DW750-AL.DEVTYP 

DW780-AL DEVTYP 

DZ11-AL„BEVTYP 

DZ32-AL DEVTYP 

DZV11-AC DEVTYP 

IEU11A-AE DEVTYP 

KA730-ALJ5EVTYP 

KA750-AL„DEVTYP 

KA780-AL_DEVTYP 

KAXXX-AL_DEVTYP 

KA785-AL_DEVTYP 

KMC11-ALJJEVTYP 

KW11K-AL DEVTYP 

LA12-ALJ5EVTYP 

LA34-AL.DEVTYP 

LA36-AL. DEVTYP 
LA38-AL DEVTYP 
LA100-Ar DEVTYP 
LA120-AL_DEVTYP 
LA180-AL DEVTYP 
LESI-AlJJEVTYP 
LN01-AL.DEVTYP 
LP04-AL.DEVTYP 
LP05-AL_DEVTYP 
LP06-AL..DEVTYP 
LP07-AL DEVTYP 
LP11-AL. DEVTYP 
LP14-AL DEVTYP 
LP25-ALIDEVTYP 
LP26-AL. DEVTYP 
LP27-AL DEVTYP 
LPA11K-JL DEVTYP 
MA780-AL 5EVTYP 
MBE-AL DEVTYP 
ML11-AC DEVTYP 
MS750-AU,DEVTYP 
MS780-AL.DEVTYP 
PCL11-AL..DEVTYP 
PX780-AL DEVTYP 
R80-AL DEVTYP 
RA60-AC DEVTYP 
RA80-AL.DEVTYP 

RA81-AL DEVTYP 
RB730-AC.DEVTYP 

RCF25-AL DEVTYP 

RC25-ALJ&EVTYP 

RDS1-AL.DEVTYP 

RD52-AL DEVTYP 

RH750-AC_DEVTYP 

RH780-AL DEVTYP 

RL01-AIJ3EVTYP 

RL02-AL.DEVTYP 

RL11-AL DEVTYP 

RK06-AL.DEVTYP 

RK07-AL DEVTYP 

RK611-AC.DEVTYP 



6 
(3) 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for ISP 
Device description database 



10DV 
10D9* 
10EV 
10E9 1 
10F1 • 
10F9 1 
110V 
1109' 
111E 1 
1126* 
1158' 
1160* 
1168' 
1170* 
1187* 
119E ' 
11CF' 
1218 1 
1249' 
1251' 
1259' 
126V 
1269' 
12B2' 
12E3' 
1307' 
134F • 
138V 
1383* 
13E5' 
H17' 
H1F' 
)W 
)W 
K38' 
144 V 



00A6 
00A8 
00AA 
OOAC 
OOAS 
00B0 
00B2 
0084 
0086 
00B8 
OOBA 
OOBC 
OOBE 
OOCO 
C0C2 
00C4 
0OC6 
0OC8 
OOCA 
OOCC 
OOCE 
OODO 
00D2 
0OD4 
OODtl 
00D8 
OODA 
OODC 
OODE 
OOEO 
0OE2 
00E4 
0OE6 
00E8 
OOEA 
OOEC 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
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RM03-AL..DEVTYP 

RM05-AL DEVTYP 

RM80-AL.DEVTYP 

RP04-AL..DEVTYP 

RP05-AL.DEVTYP 

RP06-AL DEVTYP 

RP07-AL DEVTYP 

RQDX1-AE DEVTYP 

RX02-AL J5EVTYP 

RX211-AE.DEVTYP 

RX50-ALJEVTYP 

SBIA-ALJJEVTYP 

TE16-AL.DEVTYP 

TM03-AL DEVTYP 

TM78-ALIDEVTYP 

TS04-AL,DEVTYP 

TS05-AL„DEVTYP 

TS11-ALJ>EVTYP 

TU45-AL„DEVTYP 

TU58-AL„DEVTYP 

TU77-AL..DEVTYP 

TU78-ALJ)EVTYP 

TU80-AL.DEVTYP 

TU81-AL DEWYP 

UBE-AL I5EVTYP 

UDA50-AL.DEVTYP 

UNA11-AL DEVTYP 

VS100-ALJDEVTYP 

VS125-AL DEVTYP 

VS300-AL"DEVTYP 

VT50-AL DEVTYP 

VT52-ALIDEVTYP 

VT55-AL DEVTYP 

VT100-AE^DEVTYP 

VT220-AL_DEVTYP 

VT240-AL.DEVTYP 



7 
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ZZ-ENSAA-7,0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 
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8 
(4) 



0OEE 
00EE 
0OEE 
00EE 
00EE 
0032 
00000033 0032 
0033 
OO000OEE 
00EE 
00EE 
0OF4 
OOF 5 
00F6 
C0F7 
00F7 



4B 31 31 41 41 00 
05 
04 
80 
83 
52 53 43 20 53 55 42 20 4F 2F 49 00' 

OB 

00O3FFFE 0003E000 
83 
52 4F 54 43 45 56 00' 

06 

000001 FE 00000002 
82 
52 42 00' 
02 

00000007 00000004 
81 



00000032 
00000033 



4B 31 31 44 41 00 
05 
04 
80 
83 
52 53 43 20 53 55 42 20 4F 2f 49 00' 

OB 

0003FFFE 0003EOOO 
83 
52 4F 54 43 45 56 00' 

06 

000001 FE 00000002 
82 
52 42 00' 
02 

00000007 00000004 
81 



0103 
0108 
010C 
010C 
0113 
01 IB 

one 
one 

01 IF 

0127 
0128 
0128 
0128 
0033 
0032 
0032 
0033 
00000128 
0128 
0128 
012E 
012F 
0130 
0131 
0131 



45 44 4F 4E 5F 49 43 



00 • 

07 

00 

80 

85 



01 3D 
0145 
0146 
0146 
014D 
0155 
0156 
0156 
0159 
0161 
0162 
0162 
0162 
01 6A 
0168 
016C 



230 
231 
232 AA11K: 



233 AD11K: 



•LIST MEB,MC 

$DS AA11K 

.SAtfE LOCAL.BLOCK 

.PSECT SABSS.ABS 

.J IF NB,AA11K$B^BR. AA11KSB..BR: 

• J IF NB,.BU8. .BLKB 1 

.IIF NB,AA11K$KJ_EN, AA11K$K_LEN: 

.RESTORE 

.ASCIC M AA11K" ; AA11K name 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

• LONG 

.BYTE 
.ASCIC 



4 

A X80 

A X83 

M I/0 BUS CSR" ; 

A O760000 ^ 0777776 

A X83 
it 



VECTOR" 



Maximum unit number 

Constant to identify start of descriptor 

Indicate scan octal. 

I/O BUS CSR string 

; 760000 , 777776 limits on input 
Indicate scan octal 
VECTOR string 



A 02 A 0776 
A X82 



tf BR M 



BR string 
4 



2 , 776 limits on input 
Indicate scan decimal 



.LONG 4,7 

.BYTE A X81 

$DS_AD11K 

.SAVE LOCAL„BLOCK 

.PSECT $ABS$,ABS 

.=HP$AJ)EPENDENT 

.IJF NB,AD11K$B..BR, AD11K$B_BR: 

.11F NB,.BLKB, .BLKB 1 

.UP NB,AD11KSK..LEN, AD11K$K_LEN: 

.RESTORE 

.ASCIC "AD11K" ; AD11K name 



7 limits on input 
; Indicate end of PT-descriptor 



234 C 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 



4 

A X80 

A X83 

"I/O BUS CSR" ; 

A 0760000, A Q777776 

A X83 

"VECTOR" 



Maximum unit number 

Constant to identify start of descriptor 

Indicate scan octal 

I/O BUS CSR string 

; 760000 , 777776 limits on input 
Indicate scan octal 
VECTOR string 



A 02 A 0776 
A X8$ 



"BR 



1 1 



4,7 

A X81 



I_N0DE:$DS CI NODE 

.ASCIC "CLNODE 



.BYTE 
.BYTE 
.BYTE 





A X80 

A X85 



; 2 , 776 limits on input 
; Indicate scan decimal 
BR string 

4 , 7 limits on input 

; Indicate end of PT-descriptor 

; C1JI0DE name 

; Maximum unit number 

; Constant to identify start of descriptor 

; Indicate scan and verify string 



CI 23 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 
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(4) 



65 70 79 74 5F 65 64 



30 38 37 58 

30 35 37 58 

30 35 43 

30 31 
54 4E 

73 65 72 64 64 61 5F 65 64 

0OO00OFF 
30 35 37 

74 6F 
0000000F 

00000007 

65 64 

OOOOOOFF 

30 38 37 



6F 4E 00' 016D 

09 016D 

00' 0177 

00 0177 

00' 0178 

00 0178 

41 56 00' 0179 

06 0179 

41 56 00' 0180 

06 0180 

53 48 00 f 0187 

05 0187 

00* 018D 

00 01 8D 

4C 4B 00' C18E 

04 01 8E 

49 43 00' 0193 

04 0193 

00 0198 

82 0199 

6F 4E 00' 01 9A 

73 01A6 
OC 

00000000 
81 



01 9A 
01A7 
01AF 
0180 
0180 
01B0 
0186 
0187 
0188 



49 43 00' 

05 

08 

80 

82 
6C 53 00' 01B9 

04 0189 
0000000A 01 BE 

82 01 C6 
52 42 00' 01C7 

02 01 C7 
00000004 01 CA 

82 01D2 
6F 4E 00 • 01D3 

04 01 D3 
00000000 

81 



OOOOOOOF 
00000007 



49 43 00' 

05 

08 

80 

82 
52 54 00' 

02 
00000001 

82 
52 42 00' 01F6 

02 01F6 
00000004 01 F9 

82 0201 



01 D8 
01E0 
01E1 
01E1 
01E1 
01E7 
01 E8 
01E9 
01EA 
01EA 
01ED 
01F5 



235 CI750: 



236 CJ780: 



.ASCJC 

.ASCIC 

.ASCIC 

.ASCJC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.8YTE 
.BYTE 
.ASCJC 



.LONG 
.BYTE 



"Node.type 
i ii * 

in i 

•VAX780 ,, 
, VAX750 M 



i « 



Node.type string 



"HSC50 



• i 



i tn 

M KL10 M 
"CINT" 




A X82 

"Node_address 



• i 



Null length is end of valid 
Indicate scan decimal 
Node_address string 



* * 



0.255 
A X81 



$DS CI750 
.ASCIC "CI 750" 



.8YTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 

.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCIC 

,L0N6 
.BYTE 
$DS CI780 
.ASCJC "CI 780" 



8 

A X80 
A X82 
"Slot" 

10.15 

"BR M 

4,7 

A X82 
"Node" 

0,255 
A X81 



.8YTE 
.BYTE 
.BYTE 
. ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 



8 

A X80 
A X82 
"TR" 

1 ' 1 5 

A X82 

"BR M 

4.7 

A X82 



, 255 Limits on input 

; Indicate end of PT-descriptor 

CI750 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
Slot string 

10 , 15 limits on input 

; Indicate scan decimal 
BR string 

4 , 7 Limits on input 

; Indicate scan decimal 
Node string 

, 255 limits on input 

; Indicate end of PT-descriptor 

♦ 

CI780 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
TR string 

1 , 15 limits on input 

; Indicate scan decimal 
BR string 

4 , 7 Limits on input 

; Indicate scan decimal 



[07] 



[023 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 
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65 64 
OOOOOOFF 



6F 4E 00' 
04 

00000000 
81 



00000032 



65 6C 6F 73 6E 6F 63 



0202 
0202 
0207 
020F 
0210 
0210 
0210 
0033 
0032 
00000210 



00 
07 
01 
80 
81 



00000032 
00000036 
00000037 



31 31 52 43 00 
04 
01 
80 
83 

5> 43 00 
03 

0003E000 
83 

45 56 00 
06 

00000002 
82 

52 42 00 

02 

00000007 00000004 

81 



52 

0003FFFE 

52 4F 54 43 

000001FE 



00000032 
00000036 



41 4E 51 45 44 



52 53 43 



0210 
0210 
0218 
0219 
021A 
021B 
021B 
021B 
0033 
0032 
0032 
0036 
0036 
0037 
0000021B 
021B 
021B 
0220 
0221 
0222 
0223 
0223 
0227 
022F 
0230 
0230 
0237 
023F 
0240 
0240 
0243 
024B 
024C 
024C 
024C 
0037 
0032 
0032 
0036 
0000024C 
00' 024C 
024C 
0252 
0253 
0254 
0255 
0255 



05 

00 

80 

83 

00' 

03 



•ASCIC "Node" 



Node string 




.LONG 0,255 
.BYTE A X81 
237 CONSOLE :$DS CONSOLE 

.SAVE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=Hp$A_Dependent 

. J IF NB,Console$K Len, 

.RESTORE 

•ASCJC "console" 



255 Limits on input 
; Indicate end of PT-descriptor 



Console$K_Len: 
console name 



C15J 



238 CR11: 



239 DEQNA: 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS CR11 

.SA?E LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.IJF NB,CR11$L.CSR, CR11$L_CSR: 

,IJF NB,.BLKL, .BLKL 1 

.J IF NB,CR11$B BR, CR1UB.BR: 

.11F NB,.BLKB, .BLKB 1 

.IH NB,CR11$K^LEN, CRUSK^LEN: 

.RESTORE 

.ASCIC M CR11 M ; CR11 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



1 

A X80 
A X83 

M CSR M 



name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A 0760000, "0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 

SECTOR" ; VECTOR string 



A 02 A 0776 
A X82 



« »i 



BR 



1 1 



; 2 , 776 limits on input 
; Indicate scan decimal 
BR string 



.LONG 4,7 ; 4 

.BYTE A X81 

$DS DEQNA 

.SA9E LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A.DEPENDENT 

.llf NB,DEQNA$L..CSR, DEQNASL^CSR: 

t \lf NB,.BLKL, .BLKL 1 

.IIF NB,DEQNA$K..LEN, DEQNASK.LEN: 

.RESTORE 

.ASCIC M DEQNA M ; DEQNA name 



7 limits on input 

; Indicate end of PT-descriptor 



C19D 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 





A X80 
A X83 
"CSR 41 



CSR 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
string 



ZZ-ENSAA-7.0 

iCODt 

07-22 



Device desc 
Q003FFFC 



ription database 

- Interpreted code for TSP 
Device description database 



N 6 

27-JUL-1984 Fiche 8 Frame N6 Sequence 1520 

27-JUL-1984 15:21:28 VAX- 11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :[SYS0.SYSMAINT]ICODE.MAR;43 



0003E000 0259 

81 0261 

0262 

0262 

0262 

00000032 0037 

0032 

0032 

00000262 

4B 53 49 44 00' 0262 

04 

FF 

80 

81 



240 DISK: 



31 31 

52 

0003FFFE 

52 4F 54 43 

000001 FE 

00000007 



31 4A 56 



52 



000000 7 2 
00000036 
00000037 



0262 
0267 
0268 
0269 
026A 
026A 
026A 
0037 
0032 
0032 
0036 
0036 
0037 
0000026A 
4C 44 00* 026A 
04 
00 
80 
83 

53 43 00' 0272 

03 0272 

0003E000 0276 

83 027E 

45 56 00' 027F 

06 027F 

00000002 

82 

52 42 00 

02 

00000004 

81 



241 DL11: 



026A 
026F 
0270 
0271 



0286 
028E 
028F 
028F 
0292 
029A 
029B 
029B 
029B 
0037 
0032 
0032 
0036 
0036 
0037 
00000298 
4C 44 00' 029B 
05 0298 
00 02A1 
80 02A2 
83 02A3 
53 43 00' 02A4 



242 DLVJ1 



00000032 
OOOOOOio 
O0COUO37 



.LONG A O76O00O, A 077777^ ; 760000 , 77777k limits on input 

.BYTE A X81 ; Indicate end of PT^descriptor 

$DS DISK 

.SA?E !0CAL.BL0CK 

.PSECT S.\BS$,ABS 

,=HP$A„DEf INDENT 

Alf NB.HPSK DISK LEN, HPSK^DISK.LEN: 

.IIF NB,!MSKSK_LER, DISK$K_LEN: 

.RESTORE 

.ASCIC "DISK" ; DI5K name 



11 
(4) 



C1M 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS DL11 

.SAtfE LOCAL.BLOCK 

.PSECT *ABS$,ABS 

,=HP$A_DEPENDENT 

.IIF NB,DL11$L,CSR, DL11SL.CSR: 

.IIF NB..BLKL, .BLKL 1 

Alf NB,DL11$BJ3R, DL11$B_BR: 

AU NB,.BLKB, .BLKB 1 

.IIP NB,DL11$Kj.EN, DL11SKJ.EN: 

.RESTORE 

.ASCIC "DL11" ; DL11 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.8YTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
,8YTE 
.ASCIC 





A X80 
A X83 
M CSR M 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O76O00O, *077?7?t ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 

•VECTOR" ; VECTOR string 



A 02 A Q776 
A X82 



••BR" 



BR string 
4 



2 t 776 limits on input 
Indicate scan decimat 



, 7 limits on input 

; Indicate end of PT-descriptor 



.LONG 4,7 

.BYTE A X81 

$DS DLVJ1 

.SAVE L0CAL.BL0CK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.IIF NB,DLVJ1$L_CSR, DLVJ1SL.CSR: 

Air NB,.BLKL, .BLKL 1 

A If NB # DLVJ1$B„FLA6S, DLVJ1$B,FLAGS: 

Alf NB,.BLKB, .BLKB 1 

AU NB,DLVJ.$K_LEN, DLVJUK.LEN: 

.RESTORE 

.ASCIC M DLVJ1 M ; DLVJ1 name 



C193 



.BYTE 
.8YTE 
.BYTE 
.ASCIC 





'X80 
A X83 
' *SR" 



CSR 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
string 



ZZ-ENSAA-7.0 
1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



03 



02A4 

0003FFFE 0003E000 02A8 

83 02B0 

52 4F 54 43 45 56 00' 02B1 

06 0281 

000001 FE 00000002 02B8 

85 02C0 

64 20 66 6F 20 72 65 62 60 75 4E 00' 02C1 

73 74 69 62 20 61 74 61 02CD 

13 02C1 

37 00* 02D5 
01 02D5 

38 00' 02D7 
01 02D7 

00 C2D9 
85 02DA 

73 20 66 6F 20 72 65 62 6D 75 4E 00' 02D8 

73 74 69 62 20 70 6F 74 02E7 

13 02DB 

31 00' 02FF 

01 02EF 

32 00* 02F1 

01 02F1 
00 02F3 
85 02F4 

65 74 65 64 20 79 74 69 72 61 50 00' 02F5 
65 6C 62 61 6E 65 20 6E 6F 69 74 63 0301 

64 030D 

18 02F5 

4F 4E 00' 030E 

02 030E 
53 45 59 00' 0311 

03 0311 
00 0315 
85 0316 

79 74 69 72 61 70 20 6F 65 76 45 00' 0317 

64 65 6C 62 61 6E 65 20 0323 

13 0317 

4F 4E 00' 0328 

02 0328 
53 45 59 00' 032E 

03 032E 



00 


0332 


81 


0333 




0334 




0334 




0334 


00000032 


0037 


00000036 


m 

88It 


00000037 




003? 


00000334 


31 31 43 4D 44 00' 


0334 


05 


0334 


00 


033A 



243 0MC11 



.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



.ASCJC 
.ASCJC 

.BYTE 
.BYTE 
.ASCJC 

.ASCJC 

.ASCJC 

• BYTE 
.BYTE 
.ASCJC 



.ASCJC 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 

.ASCJC 

.ASCJC 



B 7 

27-JUL-1984 



Fiche 8 Frame 87 



Seguence 1521 
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A O760000, "0777776 



A X83 
'VECTOR 

A 02 *0776 
A X8§ 



760000 , 777776 limits on input 



Indicate scan octal 
VECTOR string 



Number of data 



; 2 , 776 limitc on input 

; Indicate scan and verify string 

bits" ; Number of data bits stri 



ng 



Hjt I 

IIQII 



'8' 





A X85 , .... 

"Number of stop bits 



"1" 

i mil 



Null length is end of valid 7,8 



Indicate scan and verify string 

Number of stop bits string 



; Null length is end of valid 1,2 

A X85 ; For APT. pretend this is a STRING 

"Parity detection enabled 



"NO" 

"YES" 



A X85 ; For APT, pretend this is a STRING 

"Even parity enabled" 



"NO" 
"YES* 



.BYTE 

.BYTE A X81 

$DS DMC11 

.SA9E L0CAL„BL0CK 

.PSECT $ABS$,ABS 

,=HP$A_DEPENDENT 

.IJF Nb,DMC11$L„CSR, DMC11SL.CSR: 

.IJF NB,.BLKL, .BLKL 1 

.IJF NB, DMC11SB.BR, DMC11$B_BR: 

.J IF NB,.BLKB. .BLKB 1 

.IJF NB,DMC11$K,.LEN, DMC11SK..LEN: 

.RESTORE 

.ASCJC "DMC11" ; DMC11 name 



Indicate end of PT-descriptor 



.BYTE 



Maximum unit number 



ZZ-ENSAA-7.Q 
I CODE 
07-22 



Device description 'database 

- Interpreted code for TSP 
Device description database 



C 7 
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27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT]ICODE.MAR;43 



13 
(4) 



S2 

0003FFFE 

52 4F 54 43 

000001 FE 

00000007 



32 33 46 

52 

0003FFFE 

11 6F 74 63 

000001FE 

00000007 



80 033B 
83 033C 

53 43 00' 033D 
03 033D 

0003EOOO 0341 
83 0349 

45 56 00' 034A 
06 034A 

00000002 0351 

82 0359 

52 42 00' 035A 

02 035A 
00000004 035D 

81 0365 
C366 
0366 
0366 

00000032 0037 
0032 
0032 

00000033 0032 
0033 
0033 

00000034 0033 
0034 
0034 

00000035 0034 
0035 
0035 

00000039 0035 

0039 

0039 

00000366 

4D 44 00' 0366 

05 0366 

05 036C 

80 036D 

83 036E 

53 43 00' 036F 

03 036F 
0003E000 0373 

83 037B 
65 56 00* 037C 

06 037C 
000000C0 0383 

82 0388 
52 42 00' 038C 

02 038C 
00000004 038F 

81 0397 
0398 
0398 
0398 

00000032 0039 
0032 

, 0032 

00000033 0032 



244 DMF32: 



.BYTE 
.BYTE 
•ASCJC 

.LONG 
.BYTE 
•ASCJC 

.LONG 
.BYTE 
.ASCJC 



A X80 
A X83 



h csr m 

A 0760000, A 0777776 



; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



*X83 
'VECTOR 11 

A 02. A 0776 
A X82 



; 760000 , 777776 limits on input 
Indicate scan octal 
VECTOR string 



"BR 



1 1 



; 2 * 776 limits on input 
; Indicate scan decimal 
BR string 



.LONG 4,7 ; 4 

.BYTE A X81 

$DS DMF32 

.SA?E L0CAL.8L0CK 

.PSECT $ABS$,A8S 

.^HPSA.DEPENDENT 



7 limits on input 

; Indicate end of PT-descriptor 



C02] 



.JIF 

.JJF 

.IJF 

.11* 

.JJF 

.JIF 

.JJF 

.JJF 

.JIF 

.JIF 

.IJF 

.JJF 

.IJF 

.JIF 

.RESTORE 

.ASCJC 

.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



NB,HP$BDMF 32 COMMON, 

NB,DMF32$B.C0HM0N, 

NB,.BLKB, .BLKB 

NB,HP$B DMF 32 FLAGS, 

N8.DMF32$B.FL7tGS, 

NB,.BLKB, .BLKB 

NB,HP*B DMF32.BR, 

NB , DMF 32SB.BR , DMF 32SB.BR : 

NB,.BLKB, .BLKB 1 

NB,HP$L DMF32 CSR, HPSL..DMF32_CSR: 

NB,DMF32$L.CSR, DMF32SL.CSR: 

NB,.BLKL, .BLKL 1 

NB,HPSK DMF32LEN, HPSK.DMF32.LEN: 

NB,DMF32$K_LEF), DMF32SK.LEN: 



HP$B DMF32 COMMON; 
DMF32$B.C0flM0N: 

HP$B DMF32 FLAGS; 
DMF32SB FLSGSj 
1 
HPSB.DMF32.br : 



'DMF 32" ; DMF 32 name 



5 



*X80 
A X83 
"CSR' 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O760000, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 



"Vector" 
0300/0776 



Vector string 



A X82 
"BR" 



; 300 , 776 limits on input 
; Indicate scan decimal 
BR string 



A, 7 
A X81 



7 limits on input 
; Indicate end of PT-descriptor 



.LONG 
.BYTE 
245 DMF32A: IDS DMF32A 

.SAtfE LOCAL„BLOCK 

.PSECT SABSS.ABS 

.=HP$A.DEPENDENT 

.IJF NB,HPSB DMF32A.BR. NP$BJ)MF32A BR: 

.IJF NB,DMF32ASB BR, DMF32ASB BR: 

JJF NB,.BLKB, .BLKB T 



C02] 



ZZ-ENSAA-7,0 

ICODE 

07-22 



Device description database 

- Interpreted code 
Device description 



D 7 
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41 



0033 
0033 

00000034 0033 
0034 
0034 

00000035 0034 
0035 
0035 

00000037 0035 
0037 
0037 

00000038 0037 
0038 
0038 

00000398 
0398 
0398 
00 
80 
83 

52 53 43 00' 03A2 

03 03A2 

0003FFFE 0003E000 03A6 

83 03AE 

72 6F 74 63 65 56 00' 03AF 

06 03AF 
000001 FE 0OOO00C0 
82 
52 42 00 • 
02 
00000007 00000004 
83 
65 6E 69 4C 20 65 76 69 74 63 41 00' 



32 33 46 4D 44 00' 
06 



039F 
03A0 
03A1 



/3 
OC 
000000FF 00000001 
85 



0386 
03BE 
03BF 
03BF 
03C2 
03CA 
03CB 
03D7 
03C8 
03D8 



03E0 
65 74 61 52 20 64 75 61 42 00' 03E1 

09 
30 35 00' 
02 
35 37 00' 
02 
30 31 31 00' 
03 
35 2E 34 33 31 00' 



05 
30 35 31 00* 

03 
30 30 33 00' 

03 
30 30 36 00' 

03 



30 30 32 31 
30 30 38 31 



00 
04 
00 
04 



03E1 
03E8 
03EB 
03EE 
03EE 
03F1 
03F1 
03F5 
03F5 
03FB 
03F8 
03FF 
03FF 
0403 
0403 
0407 
0407 
040C 
040C 



• JJF 

.JJF 

• J IF 

.JJF 

.JJF 

.JJF 

-JJF 

. I JF 

.JJF 

.JJF 

.JJF 

.IJF 

.JJF 

.JJF 

.RESTORE 

.ASCJC 

.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



NB,HPSB DMF32A ACTIV, 
NB,DMF32ASBj\CTlV, 
NB,.BLKB, .BLKB 
NB,HP$BDMF32A SPEED, 
N8,DMF32A$8.,SPEED, 
NB,.BLKB, .BLKB 
NB,HP$WDMF32A FLAGS, 
NB,DMF32A$W„FLAGS, 
NB,.BLKW, .8LKW 
NB,HP$B DMF32A JUMP, 
NB,DMF32A$B„.JuflP, 
NB,.6LKB, .BLKB 
NB,HP$K DMF32A LEN, 
NB,DMF32A$K LEfJ, 



HPSBDMF32A ACTIV: 

DMF32ASB ACTIV: 

1 

HP$B DMF32A SPEED: 

DMF32A$B„SPEED: 

1 

HPSW DMF32A FLAGS: 

DMF32A$ULFLflGS: 

1 

HP$B DMF32A JUMP: 

DMF32A$B_JUHP: 

1 

HP$K DMF32A LEN: 

DMF32A$K_LER: 



i »i 



DMF32A 





A X80 
A X83 
"CSR" 



t < 



; DMF32A name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
; CSR string 



A O07600OO/OO777776 ; 0760000 , 0777776 limits on input 
A X83 ; Indicate scan octal 



1 1 



Vector 



• i 



; Vector string 



A 0300, A 0776 ; 300 , 776 limits on input 
A X82 ; Indicate scan decimal 

"8R" ; BR string 

4,7 ; 4 , 7 limits on input 

A X83 ; Indicate scan octal 

"Active Lines 11 ; Active Lines string 



.LONG 
.BYTE 
•ASCJC 

.ASCJC 

.ASCJC 

.ASCJC 

.ASCIC 

.ASCJC 

.ASCIC 

.ASCJC 

.ASCJC 

.ASCIC 



A 01 A 0377 

A X85 

"Baud Rate" 

m 5q m 
•75" 

"no" 

••134.5" 

"150" 

"300 M 

"600" 

"1200" 

"1800" 



1 , 377 limits on input 
Indicate scan and verify string 
Baud Rate string 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



30 30 

30 30 

30 30 

30 30 

30 30 

30 30 

30 30 32 

79 54 20 6B 63 61 62 70 6F 

AC 41 4E 52 45 54 

38 34 32 

AD 45 44 4F 4D 5F 4C 41 43 

4C 42 41 4D 4D 41 52 47 4F 
4D 45 44 4F 

39 34 32 



74 69 6E 49 20 73 75 62 69 
72 65 70 6D 



53 



30 32 00' 
04 

34 32 00 • 
04 

36 33 00' 
04 

38 34 00' 

04 

32 37 00 • 

04 
36 39 00' 
04 

39 31 00' 

05 
00 
85 

6F 4C 00' 
65 70 
OD 

4E 49 00' 
08 

33 48 00* 

05 
4F 4C 00' 
OB 
52 50 00' 
4D 5F 45 
12 
33 48 GO 1 
05 
00 
85 
6E 55 00 • 
75 4A 20 
12 
4F 4E 00' 
02 
45 59 00' 
03 
00 
81 



00000032 
00000033 
00000034 
00000035 
00000039 



0411 

0411 

0416 

0416 

041B 

041B 

0420 

0420 

0425 

0425 

042A 

04 2A 

042F 

042F 

C435 

0436 

0437 

0443 

0437 

0445 

0445 

044E 

044E 

0454 

0454 

0460 

046C 

0460 

0473 

0473 

0479 

047A 

0478 

0487 

0478 

048E 

048E 

0491 

0491 

0495 

0496 

0497 

0497 

0497 

0039 

0032 

0032 

0032 

0033 

0033 

0033 

0034 

0034 

0034 

0035 

0035 

0035 
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.ASCIC 


"2000" 


.ASCIC 


"2400" 


•ASCIC 


"3600" 


.ASCIC 


"4800" 


.ASCIC 


'7200" 


.ASCIC 


"9600' ' 


•ASCIC 


M 19200 M 


.BYTE 
• BYTE 
.ASCIC 




*X85 
"Loopback Type 



Null length is end of valid 50,75,110,134.5,150,30 
Indicate scan and verify string 
Loopback Type string 



•ASCIC "INTERNAL" 

•ASCIC "H3248" 

.ASCIC "LOCALJWDEM" 

.ASCIC "PROGRAMMABLE J10DEM' 



246 DMF32P: 



.ASCIC "H3249" 

.BYTE 

.BYTE A X85 

.ASCIC "Unibus Init Jumper 



.ASCIC "NO" 

.ASCIC "YES 14 

.BYTE 

.BYTE A X81 

$DS DMF32P 

.SAtfE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 



Null length is end of valid INTERNAL, <H3248>, LOCAL 
For APT, pretend this is a STRING 



Indicate end of PT-descriptor 



[023 



.11F - NB,HP$B DMF32P COMMON, 

.J IF NB,DMF32P$B,C0RM0N, 

.llf NB,.BLKB, .BLKB 

.IIF NB,HP$B DMF32P FLAGS, 

AU NB,DMF32P$B.FLSGS, 

,11^ NB,.BLKB, .BLKB 

Alf NB,HP$B DMF32P„BR, 

.UF NB,DMF32P$B_BR, DMF32PSB BR: 

AU NB,.BLKB, .BLKB T 

.11^ NB,HP$L DMF32P CSR, HP$L DMF32P CSR: 

.IIF NB,DMF3?P$L,CSR, DMF32P$L^CSR: 

.IIF NB,.3LKL, .BLKL 1 



HPSBDMF32P COMMON: 

DMF32P$B_COflMON: 

1 

HP$BDMF32P FLAGS; 

DMF32P$B_FLAGS: 

1 

HP$BJ)MF32P BR: 



ZZ-ENSAA-7,0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



F 7 
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16 
(4) 



0039 

0039 

00000497 

50 32 33 46 4D 44 00' 0497 

06 
00 
80 
83 
52 53 43 00' 



. JIF NB,HP$K DMF32PJ.EN, 
- J IF NB,DMF32P$K LER, 
.RESTORE 



HP$K DMF32P LEN: 
DMF32PSK.LER: 



50 41 



0497 
049E 
049F 
04A0 
04A1 
04A1 
04A5 
04AD 
04AE 
04AE 
C485 
04BD 
04BE 
04BE 
04C1 
04C9 
04CA 
04CA 
04D6 
04D6 
04DC 
04DC 
04DF 
04DF 
04E4 
04E5 
04E6 
04E6 
04E6 
0039 
0032 
0032 
0032 
0033 
0033 
0033 
0034 
0034 
0034 
0035 
0035 
0035 
0039 
0039 
000004E6 
53 32 33 46 4D 44 00' 04E6 

06 04E6 
01 04ED 
80 04EE 
83 04EF 
52 53 43 00' 04F0 
03 04F0 
0003FFFE 0003EOOO 04F4 



.ASCJC "DMF32P 



1 1 



03 
0003FFFE 0003E000 
83 
72 6F 74 63 65 56 00' 

06 

000001 FE 000000C0 

82 

52 42 00' 

02 

00000007 00000004 

85 

65 63 69 76 65 44 20 74 72 6F 50 00' 

OB 
52 45 48 54 4F 00' 
05 
50 4C OO 1 
02 
52 57 00' 
04 
00 
81 



00000032 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCIC 

.ASCIC 

.ASCJC 

.ASCJC 





A X80 
A X83 
"CSR" 



; DMF32P name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O760000, A 0777776 ; 760000 , 777776 Limits on input 

A X83 ; Indicate scan octal 



'Vector* 



Vector string 



A O300, A 0776 ; 300 , 776 limits on input 
A X82 ; Indicate scan decimal 

•W ; BR string 



4 7 «4 

A X85 

"Port Device" 

"OTHER" 

"LP" 

,# WRAP" 





7 limits on input 

; Indicate scan and verify string 
; Port Device string 



00000033 



00000034 



00000035 



00000039 



.BYTE 

.BYTE A X81 
247 DMF32S; $DS DMF32S 

.SAVE LOCAL.BLOCK 

.PSECT $ABSS,ABS 

.=HP$A DEPENDENT 

.JIF " NB,HPSB DMF32S COMMON, 
NB,DMF32S$B_CORMON, 
NB,,BLKB, ,BLKB 



Null length is end of valid OTHER, LP, WRAP 
Indicate end of PT-descriptor 



C023 



-JIF 
.Uf 
• JIF 
-JIF 

.IJF 
.JIF 
.JIF 
.UF 

.Uf 
.Uf 
.IJF 

.Uf 
.Uf 

.RESTORE 
.ASCIC 

.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 



HP$B DMF32S COMMON: 

DMF32S$3_C0flM0N: 

1 

HP$B DMF32S FLAGS: 

DMF32SSB FLAGS: 

1 

HP$B DMF32S BR: 



nb,hp$bdmf32s flags, 

nb,dmf32s$b.flAgs, 

nb,.blkb, .blkb 

nb,hp$b dmf32s,br, 

nb,dmf32s$b„br, dmf32ssb br: 

nb,.blkb, .blkb t 

nb,hp$l dmf32s csr, hp$l dmf32s csr: 

nb,dmf32ssl_csr, dmf32ssl csr: 

nb,.blkl, .blkl 1 

nb,hp$k dmf32s len, hp$k dmf32s len: 

nb,dmf32ssk_ler, dmf32ssk.ler: 



"DMF32S" 

1 



A X80 
A X83 



"CSR 

A O76O000, A 0777776 



; DMF32S name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



760000 , 777776 limits on input 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



G 7 

27-JUL-1984 Fiche 8 Frame 67 Seguence 1526 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 17 
23-JUL-1984 16:23:10 DMA1:CSYS0 SYSMAINT]ICODE.MAR;43 (4) 



83 04FC 

72 6F 74 63 65 56 00' 04FD 

06 04FD 
000001 FE 00000002 0504 

82 050C 
52 42 00' 050D 

02 050D 
00000007 00000004 0510 

85 0518 
72 57 20 6C 61 6E 72 65 74 78 45 00' 0519 

70 61 0525 

0D 0519 

45 4E 4F 4E 00' 0527 

04 0527 
4D 45 44 4F 4D 00' C52C 

05 052C 
50 41 52 57 00' 0532 

04 0532 
00 0537 

81 0538 
0539 
0539 
0539 

00000032 0039 
0032 

00000033 0032 
0033 

00000034 0033 
0034 

00000035 0034 
0035 

00000039 0035 

0039 

00000539 

31 31 50 4D 44 00' 0539 

05 0539 
00 053F 
80 0540 

83 0541 

52 53 43 00' 0542 

03 0542 
0003FFFE 0003E000 0546 

83 054E 
52 4F 54 43 45 56 00' 054F 

06 054F 
000001 FE 00000002 0556 

82 055E 
52 42 00* 055F 

02 055F 

00000007 00000004 0562 

85 056A 

61 74 53 20 6C 6F 72 74 6E 6F 43 00' 0568 

6E 6F 69 74 0577 

OF 0568 

4F 4E 00* 0578 

02 0578 

53 45 59 00' 057E 



248 DMP11 



.8YTE 
•ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 

.ASCIC 



A X83 
M Vector M 

A 02, A 0776 
A X82 



"BR 



1 1 



; Indicate scan octal 
; Vector string 

; 2 , 776 Limits on input 
; Indicate scan decimal 
8R string 



4,7 ; 4 , 7 limits on input 

A X85 ; Indicate scan and verify string 

"External Wrap" ; External Wrap string 



"NONE" 
"MODEM" 

"WRAP" 




.ASCIC 

.ASCIC 

.ASCIC 

.8YTE 

.BYTE A X81 

$DS DMP11 

.SAVE L0CAL_BL0CK 

.PSECT $ABS$,ABS 

.=HPSA DEPENDENT 

AlF 

AU 

Alt 

Alt 

A1F 

A1F 

A1F 

.IIF 

A1F 

.RESTORE 

.ASCIC "DMPIV 



Null length is end of valid NONE, MODEM, WRAP 
Indicate end of PT-descriptor 



NB,DMP11$B COMMON. DMP1UB COMMON: 

NB,.8LKB, " .BLKB 1 

NB,DMP11$B_FLAGS, DMP11$B.FLAGS; 

NB,.BLKB, .BLKB 1 

NB,DMP11$B BR, DMP11SB BR: 
NB,.BLKB, " .BLKB "1 

NB,DMP11$L_CSR, DMP11$L_CSR: 
NB,.BLKL, .BLKL 1 

NB,DMP11$K LEN, DMP11SKJ.EN: 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



.ASCIC 
.ASCIC 





A X80 
A X83 
"CSR" 



DMP11 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O7600O0, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 



•VECTOR" 

A 02, A Q776 

A X82 

"BR" 



VECTOR string 



BR string 
4 



2 , 776 limits on input 
Indicate scan decimal 



4,7 ; 4 , 7 limits on input 

A X85 • Indicate scan and verify string 

"Control Station ; Control Station string 



"NO" 
"YES" 



ZZ-ENSAA-7,0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



H 7 

27-JUL-1984 Fkhe 8 Frame H7 Seguence 1527 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 18 

23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAJNT;jICODE.MAR;43 (4) 



03 057E 

00 0582 

85 0583 

79 72 61 74 75 62 69 72 54 00' 0584 

09 0584 

4F 4E 00* 058E 

02 058E 
53 45 59 00' 0591 

03 0591 
00 
85 



0595 
0596 



74 6C 69 62 61 74 61 70 6D 6F 43 00" 0597 



65 64 6F 4D 20 79 
11 

4F 4E 00' C5A9 
02 05A9 
53 45 59 00' 05AC 
03 
00 
85 

78 65 6C 70 75 44 20 66 6C 61 48 00' 0582 

08 0582 
4F 4E 00' 058E 
02 
53 45 59 00 
03 
00 
81 



05A3 
0597 



05AC 
0580 
0581 



05BE 
05C1 
05C1 
05C5 
05C6 
05C7 
05C7 
05C7 
00000032 0039 
0032 

00000036 0032 
0036 

00000037 0036 
0037 

000005C7 
31 31 52 4D 44 00* 05C7 

05 05C7 
00 05CD 

80 05CE 
83 05CF 

52 53 43 00' 05D0 

03 05D0 

0003FFFE 0003E000 05D4 

83 05DC 

52 4F 54 43 45 56 00' 05DD 

06 05DD 
000001FE 00000002 05E4 

82 05EC 

52 42 00' 0SED 

02 05ED 

00000007 00000004 05F0 

81 05F8 
05F9 
05F9 



249 DMR11 



250 DMZ32: 



.BYTE 
.BYTE 
.ASCJC 

•ASCJC 

•ASCJC 

.BYTE 
.BYTE 
.ASCJC 

•ASCJC 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 

.ASCJC 

.ASCJC 

.BYTE 
.BYTE 



* i 





A X85 

"Tributary 

"NO" 
m yes m 



A X85 

"Compatabi Ity Mode 

"NO" 
"YES" 



*X85 

"Half Duplex" 

"NO" 

"YES" 





Null length is end of valid NO,Yf.S 
Indicate scan and verify string 
Tributary string 



Null length is end of valid NO/ YES 
Indicate scan and verify string 
" ; Compatabi Ity Mode string 



Null length is end of valid NO, YES 
Indicate scan and verify string 
Half Duplex string 



A X81 
$DS DMR11 

.SA7E LOCAL,BL0CK 
.PSECT $ABS$,ABS 
.=HP$A_DEPENDENT 

• J JF NB,DMR11$L.CSR, DMR11SL..CSR: 
.JIF NB,.BLKL, .BLKL 1 
.11F NB,DMR11$B BR, DMR1UB BR: 

.JIF NB,.BLKB, .BLKB 1 
.11F NB,DMR11$K..LEN, DMR11SK..LEN: 

.RESTORE 
•ASCIC "DMR11" ; DMR11 name 



Null length is end of valid NO, YES 
Indicate end of PT-descriptor 



.BYTE 
.BYTE 
.BYTE 
•ASCJC 

.LONG 
.8YTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 





A X80 
A X83 
"CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A 0760000, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scon octal 

VECTOR" ; VECTOR string 



• t 



A 02, A 07?6 
A X82 



"BR 



1 1 



; 2 , 776 h'mits on input 
; Indicate scan decimal 
BR string 



4,7 
A X81 



.LONG 

.BYTE 

$DS DMZ32 

.SAVE LOCAL BLOCK 



7 limits on input 

; Indicate end of PT-descriptor 



C213 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



20 53 45 4E 49 
29 



4C 4E 4F 20 33 

4E 49 4C 20 54 

29 31 54 45 



4C 4E 4F 20 33 

4E 49 4C 20 54 
29 32 54 45 



65 74 61 
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19 
(4) 



32 33 5A 

52 

0003FFFE 

12 6F 74 63 

000001FE 

00000006 

4C 20 54 53 
30 54 45 54 

OOOOOOFF 

20 4C 45 56 

53 45 54 20 

54 43 4F 28 

OOOOOOFF 

20 4C 45 56 

53 45 54 20 

54 43 4F 28 

OOOOOOFF 
52 20 64 75 



00000032 
00000033 
00000034 
00000035 
00000036 
00000037 
00000039 
0000003A 



4D 44 

05 

00 

80 

83 
53 43 00 

03 
0003E000 

83 
65 56 00 

06 
OOOOOOCO 

82 
52 42 00 

02 
00000005 

83 
45 54 00 
43 4F 28 

13 
00000000 

83 
45 4C 
2D 20 
20 53 



05F9 
0039 
0032 
0032 
0033 
0033 
0034 
0034 
0035 
0035 
0036 
0036 
0037 
0037 
C039 
0039 
003A 
000005F9 
00' 05F9 



00' 
59 
45 
22 

00000000 
83 

45 4C 

2D 20 

20 53 



00* 

59 

45 

22 

00000000 
85 

61 42 00' 
09 

30 35 00' 
02 

35 37 00' 



05F9 

05FF 

0600 

0601 

0602 

0602 

0606 

060E 

060F 

060F 

0616 

061E 

061F 

061F 

0622 

062A 

062B 

0637 

0628 

063F 

0647 

0648 

0654 

0660 

0648 

066B 

0673 

0674 

0680 

068C 

0674 

0697 

069F 

06A0 

06A0 

06AA 

06AA 

06AD 



PSECT $ABS$,ABS 

=HP$A DEPENDENT 

J IF NB,HP$B DMZ32 BR, 

IJF NB,.BLKB, .BUB 

IIF NB,HP$B DMZ32JJCTET0, 

IJF NB,.BLKfl, ,BLKB 

IIF NB,HPSB DMZ32JJCTET1, 

IIF NB,,BLKB, .BLKB 

UF NB,HP$B DMZ32„OCTET2, 

UF NB,.BLKB, .BLKB 

UF NB,HP$B DMZ32..SPEED, 

IJF NB,.BLKB, .BLKB 

UF NB,HPSW DMZ32.L00P, 

UF NB,.BLKQ, .BLKW 

IIF NB,HP$B DMZ32J10DEM, 

IIF NB,.BLKB, .BLKB 

IJF NB,HP$K,DMZ32_LEN, 
RESTORE 

ASCIC "DMZ32" ; DMZ32 name 



HP$B„DMZ32_BR: 

1 

HP$B DMZ32.0CTET0 

1 

HP$B_DMZ32^0CTET1 

HP$B DMZ32,0CTET2 

1 " 

HP$B fc DMZ32_SPEED: 

1 

HP$WJ>MZ32„LOOP: 

1 

HP$B,DMZ32J10DEM: 

1 

HP$K^DMZ32^LEN: 



BYTE 
BYTE 
BYTE 
ASCIC 

LONG 
BYTE 
ASCIC 

LONG 
BYTE 
ASCIC 

LONG 
BYTE 
ASCIC 





A X80 
A X83 
"CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
; CSR string 



A O760000, A 00777776 ; 760000 , 07/7776 limits on input 
A X83 ; Indicate scan octal 

'Vector'* ; Vector string 

A O300, A G776 ; 300 , 776 limits on input 
A X82 ; Indicate scan decimal 

"BR' 1 ; BR string 

5,6 ; 5 , 6 Limits on input 

A X83 ; Indicate scan octal 

"TEST LINES (OCTETO)" ; TEST LINES (OCTETO) string 



LONG A 00, A 0377 ; , 377 limits on input 

8YTE A X83 ; Indicate scan octal 

ASCIC "LEVEL 3 ONLY - TEST LINES (OCTET!)" ; LEVEL 3 ONLY - TEST LINES 



.LONG A O0, A 0377 

.8YTE A X83 

.ASCIC "LEVEL 3 ONLY 



.LONG A 00 A 0377 
.BYTE A X85 
.ASCIC "Baud Rate" 



; , 377 limits on input 
; Indicate scan octal 
TEST LINES (0CTEJ2)" 



LEVEL 3 ONLY - TEST LINES 



, 377 limits on input 
Indicate scan and verify string 
Baud Rate string 



.ASCIC "50" 
.ASCIC "75" 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code 
Device description 



for TSP 
database 
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02 06AD 


30 


31 


31 


00' 06B0 
03 06B0 


35 2E 34 


33 


31 


00' 06B4 
05 06B4 


30 


35 


31 


00' 06BA 
03 06BA 


30 


30 


33 


00' 06BE 
03 06BE 


30 


30 


36 


00' 06C2 
03 06C2 


30 30 


32 


31 


00' 06C6 
04 06C6 


30 30 


38 


31 


00' 06CB 
04 C6CB 


30 30 


30 


32 


00' 06D0 
04 06D0 


30 30 


34 


32 


00' 06D5 
04 06D5 


30 30 


38 


34 


00' 06DA 
04 06DA 


30 30 


36 


39 


00' 06DF 
04 06DF 


30 30 32 


39 


31 


00' 06E4 
05 06E4 
00 06EA 
85 06EB 


79 54 20 6B 63 61 62 70 6F 


6F 


4C 


00' 06EC 






65 


70 06F8 
0D 06EC 






30 


00' OoFA 
01 06FA 






31 


00' 06FC 
01 06FC 






32 


00' 06FE 
01 06FE 






33 


00' 0700 
01 0700 






34 


00' 0702 
01 0702 






35 


00' 0704 
01 0704 






36 


00' 0706 
01 0706 






37 


00' 0708 
01 0708 






38 


00' 070A 
01 070A 
00 070C 
85 070D 


72 74 6E 6F 43 20 6D 65 64 


6F 


4D 


00' 070E 






6C 


6F 071A 
0D 070E 




4F 


4E 


00' 071C 
02 071C 


53 


45 


59 00' 071F 








03 071F 



.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.BYTE 
.BYTE 
.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.ASCIC 

.BYTE 
.BYTE 
.ASCIC 

.ASCIC 

.ASCIC 



"110" 

"134.5" 

"150" 

"300" 

"600" 

"1200" 

"1800" 

"2000" 

"2400" 

"4800" 

"9600" 

"19200" 



A X85 



; Null length is end of valid 50,75,110,134,5,150,30 
; Indicate scan and verify string 



"Loopback Type" ; Loopback Type string 



"0" 

I M t I 

"3" 
'V' 

"6" 

t tyi i 

MQI I 



•8 

; Null length is end of valid 0,1,2,3,4,5,6,7,8 

A X85 ; For APT, pretend this is a STRING 
"Modem Control" 



"NO" 
"YES" 



ZZ-ENSAA-7.0 


Device description database 
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I CODE 


- Interpreted C( 


Dde 


for 


TSP 


21 


07-22 


Device descript 


ion 


database 


(4) 




00 


0723 








.BYTE 









81 


0724 








.BYTE 


A X81 ; Indicate end of PT-descriptor 








0725 


251 


DRUB: 


$DS DR11B 








0725 








.SA7E 


LOCAL^BLOCK 








0725 








.PSECT 


$ABS$,ABS 






00000032 


003A 
0032 








.=HP$A_ 
.IIF 


DEPENDENT 
NB,DR11B$L CSR, DR11BSL CSR: 






00000036 


0032 
0036 








.JIF 

.IJF 


NB,.BLKL, * .BLKL "1 
NB , DR1 1 BSB.BR , DR1 18$B_BR : 






00000037 


0036 








JIF 


NB,.BLKB, .BLKB 1 
NB,DR11B$K LEN, DR11BSKLEN: 








0037 








.JIF 






00000725 








.RESTORE 






42 31 31 52 <4 00' 


0725 








.ASCIC 


"DR11B" ; DR11B name 






05 


0725 
















00 


C72B 








.BYTE 


; Maximum unit number 






80 


072C 








.BYTE 


A X80 ; Constant to identify start of descriptor 






83 


072D 








.BYTE 


A X83 ; Indicate scan octal 






52 53 43 00' 


072E 








.ASCIC 


"CSR" ; CSR string 






03 


072E 
















0003FFFF 0003E0O0 


0732 








.LONG 


A 0760000, A 0777776 ; 760000 , 777776 Limits on input 






83 


073A 








.BYTE 


A X83 ; Indicate scan octal 






52 4F 54 43 45 56 00 1 


073B 








.ASCIC 


'VECTOR" ; VECTOR string 






06 


073B 
















000001 FE 00000002 


0742 








.LONG 


A 02, A Q776 ; 2 , 776 Limits on input 






82 


074A 








.BYTE 


A X82 ; Indicate scan decimal 






52 42 OO 1 


0748 








.ASCIC 


"BR" ; BR string 






02 


074B 
















00000007 00000004 


074E 








.LONG 


4,7 ; 4 , 7 limits on input 






81 


0756 








.BYTE 


A X81 : Indicate end of PT-descriptor 








0757 


252 


DR11K: 


$DS DR11K 








0757 








.SAtfE 


LOCAL.BLOCK 








0757 








.PSECT 


$ABS$,ABS 






00000032 


003A 
0032 








.=HP$A. 
JIF 


DEPENDENT 
NB,DR11K$B_BR, DR11KSB.BR: 






00000033 


0032 
0033 








JIF 
JIF 


NB,.BLKB, .BLKB 1 
NB,DR11K$K LEN, DR11K$K_LEN: 






00000757 








.RESTORE 






4B 31 31 52 44 00' 


0757 








.ASCIC 


"DRIIK" ; DR11K name 






05 


0757 
















06 


075D 








.BYTE 


6 ; Maximum unit number 






80 


075E 








.BYTE 


A X80 : Constant to identify start of descriptor 






83 


075F 








.BYTE 


A X83 ; Indicate scan octal 




52 53 43 20 53 


55 42 20 4F 2F 49 00' 

OB 
0003FFFE 0003EOOO 
83 
52 4F 54 43 45 56 00' 

06 
000001 FE 00000002 


0760 
0760 
076C 
0774 
0775 
0775 
077C 








.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 


"I/O BUS CSR" ; I/O BUS CSR string 

A O760000, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 
•VECTOR" ; VECTOR string 

A 02 A 0776 ; 2 , 776 limits on input 
A X82 ; Indicate scan decimal 






82 


0784 








.BYTE 






52 42 00' 


0785 








.ASCIC 


"BR" ; BR string 






02 


0785 
















00000007 00000004 


0788 








.LONG 


4,7 ; 4 , 7 limits on input 






81 


0790 








.BYTE 


A X81 ; Indicate end of PT-descriptor 








0791 


253 DR11W; 


$DS DR11W 








0791 








.SAtfE 


L0CAL..BL0CK 








0791 








.PSECT 


$ABS$,ABS 





ZZ-ENSAA-7.0 

KODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 
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00000032 



00000036 
00000037 



57 31 31 52 44 00 
05 
00 
80 
83 
52 53 43 00 4 
03 

0003FFFE OO03EO00 
83 
52 4F 54 43 45 56 00' 

06 

000001 FE 00000002 
82 
52 42 00 1 
02 

00000007 00000004 
81 



003A 
0032 
0032 
0036 
0036 
0037 
00000791 
0791 
0791 
0797 
0798 
0799 
079A 
079A 



00000032 
00000033 
00000034 
00000035 
00000036 
00000037 



C79E 
07A6 
07A7 
07A7 
07AE 
0786 
07B7 
07B7 
078 A 
07C2 
07C3 
07C3 
07C3 
003A 
0032 
0032 
0033 
0033 
0034 
0034 
0035 
0035 
0036 
0036 
0037 
000007C3 
07C3 
07C3 
07C9 
07CA 
07CB 
07CC 
07CC 



254 DR75Q: 



30 35 37 52 44 00 
05 
FF 
80 
82 
54 4F 4C 53 00' 
04 

OOOOOOOF OOOOOOOA 07D1 

82 07D9 

52 42 00' 070A 

02 07DA 

00000007 00000004 07DD 

85 07E5 

54 53 45 54 20 46 4C 45 53 00' 07E6 

09 07E6 

4F 4E 00' 07F0 

02 07F0 



.=HP$A„DEPENDENT 

.JJF NB,DR11W$L_CSR, DR11W$L_CSR: 

Alt NB,.BLKL, .BLKL 1 

.IJF NB,DR11W$B..8R, DR11W$B_BR: 

. J IF NB,.BLKB, .BLKB 1 

.IJF NB,DR11W$K_LEN, DR11WSK..LEN: 

.RESTORE 

.ASCJC "DR11W" : DR11W name 



,8YTF 
.BYTE 
.BYTE 
.ASC1C 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCJC 





A X80 
A X83 
"CSR" 



Maximum unit number 

Constant to identify start of descriptor 
indicate scan octal 
CSR string 



A O760000, A 0777776 ; 760000 , 777776 Limits on input 
A X83 ; Indicate scan octal 

"VECTOR" ; VECTOR string 



*O2*0776 
A X8$ 



"BR" 



; 2 , 776 limits on input 
; Indicate scan decimal 
BR string 



7 limits on input 

; Indicate end of PT-descriptor 



.MF 

.IJF 

.J IF 

Alf 

• J IF 

.JJF 

.JJF 

.JJF 

.JJF 

AH 

.RESTORE 

.ASCJC 



DR750$B_SLOT: 



.LONG 4,7 ; 4 

.BYTE A X81 

$DS DR750 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.«HP$AJ>EPENDENT 

•IJF NB,DR750$B_SLOT, 

NB,.BLKB. .BLKB 1 

NB,DR750$B lw BR, DR750S8.BR: 

»&,. BLKB, .BLKB 1 

NB,DR?50$B_SELF, DR750SB.SELF : 

NB,.8LK8, .BLKB 1 

NB,DR750$B_C0NFIG, DR750SB CONFIG? 

NB,.BLKB, .BLKB 1 

NB,DR750$B_UUT, DR750SB..UUT: 

NB,.BLKB, .BLKB 1 

NB,DR750$K_LEN, DR750$K_LEN: 



'DR750" ; DR750 name 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



255 
A X80 
A X82 
"SLOT" 

10.15 

A X82 

"BR" 

4,7 

A X85 
"SELF TEST 1 



Maximum unit number 

Constant to identify start of descriptor 
Indicate scan decimal 
SLOT string 

10 , 15 Limits on input 

; Indicate scan decimal 
BR string 

4 , 7 limits on input 

For APT, pretend this is a STRING 



.ASCJC "NO 



i» t 



ZZ-ENSAA- 


-7,0 


Device description d 


atabase 






M 7 

27-JUL-1984 


Fiche 8 Frame M7 Sequence 1532 
-1984 15:21:28 VAX-11 Macro V03-0T Page 23 
-1984 16:23:10 DHA1 :CSY$0.SYSMAINT]ICODE,MAR;43 (4) 


ICODE 




- In 


teroreted a 


Dde for 


TSP 


27-JUL- 


07-22 




Device descript 


ion database 


23-JUL- 






53 45 59 00' 


07F3 




.ASCIC 


"YES" 








03 


07F3 














00 


07F7 




.BYTE 











85 


07F8 




.BYTE 


A X85 


; Indicate scan and verify string 


47 49 46 


4E 4F 


43 20 54 53 45 54 00' 

OB 


07F9 
07F9 




.ASCIC 


'TEST CONFIG" 


; TEST CONFIG string 






55 50 43 31 00' 


0805 




•ASCIC 


"1CPU M 








04 


0805 














55 50 43 32 00' 


080A 




•ASCIC 


"2 CPU" 








04 


080A 














00 


080F 




.BYTE 





; Null length is end of valid 1CPU,2CPU 






85 


0810 




.BYTE 


A X85 


; For APT, pretend this is a STRING 


54 


49 4E 


55 20 54 53 45 54 00' 

09 


0811 
0811 




.ASCIC 


"TEST UNIT" 








4F 4E 00 • 


C81B 




.ASCIC 


"NO" 








02 


081B 














53 45 59 00' 


081E 




.ASCIC 


"YES" 








03 


081E 














00 


0822 




.BYTE 











81 


0823 




.BYTE 


A X81 


; Indicate end of PT-descriptor 








0824 255 


DR780: 


$DS DR780 










0824 




.SA?E 


LOCAL^BLOCK 










0824 




.PSECT 


$ABS$,ABS 








00000032 


003A 




.=HP$A„ 


DEPENDENT 










0032 




.J IF 


NB,DR780$B TR, 


DR780$B_TR: 






00000033 


0032 




.UF 


NB..BLKB. 
NB,DR780$B BR, 


.BLKB 1 








0033 




.IIF 


DR780$B_BR: 






00000034 


0033 




A1F 


NB,.BLK8, 
NB,DR780$B_SELF 


.BLKB 1 








0034 




A1F 


DR780$B_SELF: 






00000035 


0034 




.iir 


NB..BLKB. 


.BLKB 1 








0035 




.J IF 


NB,DR780$B^CONFIG, DR780$B_CONFIG: 






00000036 


0035 




.IIF 


NB # .BLKB< 


.BLKB 1 








0036 




.UF 


NB,DR780$8_UUT, 


DR780$B_UUT : 






00000037 


0036 




.IIF 


NB,,8LK8, 

NFLDR780k_LEN, 


.BLKB 1 








0037 




.11F 


DR780SK.LEN: 






00000824 




.RESTORE 








30 38 37 52 44 00* 


0824 




•ASCIC 


"DR780" ; DR780 


name 






05 


0824 














FF 


082A 




.BYTE 


255 


; Maximum unit number 






80 


082B 




.BYTE 


A X80 


; Constant to identify start of descriptor 






82 


082C 




.BYTE 


A X82 


; Indicate scan decimal 






52 54 00' 


0B2D 




.ASCIC 


'TR 1 ' ; TR string 






02 


082D 














O0O0OOOF 00000001 


0830 




.LONG 


1,15 ; 1 , 15 limits on input 






82 


0838 




.BYTE 


A X82 


, Indicate scan decimal 






52 42 OO 1 


0839 




.ASCJC 


"BR" ; BR string 






02 


0839 














00000007 00000004 


08iC 




.LONG 


4,7 ; 4 , 7 


limits on input 






85 


084* 




.BYTE 


*X85 


; For APT, pretend this is a STRING 


54 


53 45 


S4 ?0 46 4C 45 53 OO 1 

09 


0845 
0845 




.ASCIC 


"SELF TEST" 








4F 4E 00' 


084F 




.ASCIC 


"NO" 








02 


084F 














53 45 59 OO 1 


0852 




.ASCIC 


"YES" 








03 


0852 














00 


0856 




.BYTE 











85 


0857 




.BYTE 


A X85 


; Indicate scan and verify string 



ZZ-ENSAA-7.0 


Device description database 








27-JUL-1984 Fiehe 8 Frame N7 Seguence 1533 
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1C0DE 


- Interpreted code 


for 


TSP 


07-22 


Device description 


database 


47 49 46 4E 4F 


43 20 54 53 45 54 00' 

OB 


0858 
0858 






.ASCIC 


"TEST CONFIG'* ; TEST CONFIG string 




55 50 43 31 00 1 


0864 






.ASCIC 


"1CPU M 




04 


0864 












55 50 43 32 00' 


0869 






.ASCIC 


"2CPU" 




04 


0869 












00 


086E 






♦ BYTE 


; Null length is end of valid 1CPU,2CPU 




85 


086F 






.BYTE 


A X85 ; For APT, pretend this is a STRING 


54 49 4E 


55 20 54 53 45 54 00' 

09 


0670 
0870 






.ASCIC 


"TEST UNIT** 




4F 4E 00' 


087A 






.ASCJC 


"NO" 




02 


087A 












53 45 59 00' 


087D 






.ASCJC 


"YES" 




03 


087D 












00 


C881 






.BYTE 







81 


0882 






.BYTE 


A X81 ; Indicate end of PT-descriptor 






0883 


256 DUP11: 


$DS DUP11 






0883 






.SA7E 


LOCAL.BLOCK 






0883 






.PSECT 


$ABS$,ABS 




00000032 


003A 
0032 






.^HP$A„ 
.JJF 


DEPENDENT 
NB,DUP11$L_CSR, DUP11SL.CSR: 




00000036 


0032 






.JJF 


NB,.BLKL £ .BLKL 1 
NB , DUP1 1 §B_BR , DUP1 1 SB..BR : 






0036 






.JJF 




00000037 


0036 






.JJF 


NB,.BLKB, .BLKO 1 
NB,DUP11$K LEN, DUP1HK LEN: 






0037 






• J IF 




00000883 






.RESTORE 




31 31 50 55 44 00' 


0883 






.ASCJC 


"DUP11 M ; DUP11 name 




05 


0883 












00 


0889 






.BYTE 


; Maximum unit number 




80 


088A 






.BYTE 


A X80 ; Constant to identify start of descriptor 




83 


0888 






.BYTE 


*X83 ; Indicate scan octal 




52 53 43 00' 


088C 






.ASCJC 


"CSR" ; CS3 string 




03 


088C 












0003FFFE 0003E000 


0890 






.L0N6 


A 0760000, A 0777776 ; 760000 , 777776 limits on input 




83 


0898 






.BYTE 


*X83 ; Indicate scan octal 




52 AF 54 43 45 56 OO 1 


0899 






.ASCJC 


"VECTOR" ; VECTOR string 




06 


0899 












000001 FE 00000002 


08A0 






.LONG 


A 02 A 0776 ; 2 , 776 limits on input 
A X82 ; Indicate scan decimal 




32 


08A8 






.BYTE 




52 4c' 00' 


08A9 






.ASCJC 


"BR" ; BR string 




02 


08A9 












00000007 00000004 


08AC 






.LONG 


4,7 ; 4 , 7 limits on input 




81 


08B4 






.BYTE 


A X81 ; Indicate end of PT-descriptO: 






0885 


257 DV1 1 : 


$DS DV11 






0885 






.SA7E 


LOCAL.BLOCK 






0885 






.PSECT 


$ABS$,ABS 




00000032 


003A 
0032 






.=HP$A. 
.IJF 


DEPENDENT 
NB,DV11$L_CSR, DV1UL.CSR: 




00000036 


0032 
0036 






JJF 
.JJF 


NB,.BLKL, .BLKL 1 
NB,DV11$B_BR, DV1HB.BR : 




00000037 


0036 
0037 






.JJF 
.JJF 


NB,.8LK8, .BLKB 1 
NB,DV11$K LEN, DV1HK LEN: 




00000885 






.RESTORE 




31 31 56 44 00' 


0885 






.ASCJC 


"DV11" ; DV11 name 




04 


0885 












00 


088A 






.BYTE 


; Maximum unit number 




80 


0888 






.BYTE 


A X80 ; Constant to identify start of descriptor 



ZZ-ENSAA-7.Q 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



15: 



6 8 
27-JUL-198A Piche 8 Frame B8 Sequence 

27-JUL-'i984 15:21:25 VAX-11 Macro V03-0T Page 
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25 
(4) 



52 
0003FFFE 
52 4F 54 43 45 56 
000001FE 



83 08BC 

53 43 00' 08BD 

03 08BD 

0003EOOO 08C1 



00000007 



83 
00 

00000002 
82 

52 42 00 
02 

00000004 
81 



00000032 



30 33 37 57 44 



08C9 
08CA 
08CA 
08D1 
08D9 
08DA 
08DA 
08DD 
0855 
08E6 
C8E6 
08E6 
003A 
003? 
000008E6 



00 
05 
01 
80 
81 



00000032 



30 35 37 57 44 



05 
04 
80 
81 



00000032 
00000033 



08E6 
08E6 
08EC 
03ED 
08EE 
08EF 
08EF 
08EF 
003A 
0032 
000008EF 
00' 08EF 



08EF 

08F5 

08F6 

08F7 

08F8 

08F8 

08F8 

003A 

0032 

0032 

0033 

00000034 0033 

0034 

000008F8 

30 38 37 57 44 00' 08F8 

05 08F8 

08 08FE 

80 08FF 

82 0900 

52 54 00' 0901 

02 0901 

QQ0Q00QF 00000001 0904 

B2 090C 

52 42 00' 090D 

02 090D 

00000007 00000004 0910 



258 DW730: 



259 DW750: 



260 DW780: 



.BYTE 
.ASCIC 

.LONG 
.BYTE 
•ASCIC 

.LONG 
.BYTE 
.ASCIC 



A X83 
M CSR" 



; Indicate scan octal 
CSR string 



A O760000, A O777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 



M 



VECTOR 



1 1 



A 02, A 0776 
A X82 



"BR" 



; VECTOR string 

; 2 , 776 limits on input 
; Indicate scan decimal 
BR string 



.LONG 4,7 ; 4 

.BYTE A X81 

$DS DW730 

.SAVE LOCAL BLOCK 

.PSECT $ABS$TABS 

.=HP$A^DEPENDENT 

• J IF NB,DW730$K„LEN, DW730SK LEN; 

.RESTORE 

.ASCIC "DW730" ; DW73Q name 



7 limits on Input 

; Indicate end of PT-descriptor 



[02] 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS DW750 

.SAVE LOCALJjLOCK 

.PSECT $ABS$7A8S 

.=HP$A DEPENDENT 

.lir m NB,DW750$K„LEN, DW750SK LEN: 

.RESTORE 

.ASCJC "DW750" ; DW750 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 4 

.BYTE A X80 

.BYTE A X81 

$DS DW780 

.SAVE L0CAL_BL0CK 

.PSECT $ABS$,ABS 

,=HP$A DEPENDENT 

,JIF NB,DW780$B.JR, DW780$B TR: 

.IIF NB,.BLKB, .BLKB "1 

.!IF NB,DU780$B_BR, DW780$B_BR: 

.JJF N8,.BLKB { .BLKB 1 

.IJF NB,DW780$K^L 

.RESTORE 

.ASCIC "DW780" ; DW780 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



EN, DW780$K_LEN: 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



8 

A X80 
A X82 
"TR" 



1.15 

A X82 
"BR" 



.LONG 4,7 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
TR string 

1 , 15 limits on input 

; Indicate scan decimal 
BR string 

4 , 7 limits on input 



ZZ-ENSAA-7.0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



81 



00000032 
00000036 
00000037 
00000038 



31 31 



0003FFFE 



0003I 



5A 44 

04 
00 
80 
83 
52 53 43 00' 
03 

:eooo 

83 

52 4F 54 43 45 56 00' 

06 

000001 FE 00000002 

82 

52 42 00' 

02 

00000007 00000004 

85 

45 50 59 54 20 45 4C 55 44 4F 4D 



0918 
0919 
0919 
0919 
003A 
0032 
0032 
0036 
0036 
0037 
0037 
0038 
0000091 9 
00' 0919 



41 49 45 
41 4D 30 32 



00000032 



00000033 



00000034 



00000035 



00000037 



C919 
091 E 
091 F 
0920 
0921 
0921 
0925 
092D 
092E 
092E 
0935 
093D 
093E 
093E 
0941 
0949 
094A 
094A 
0956 
0956 
095A 
095A 
095F 
0960 
0961 
0961 
0961 
003A 
0032 
0032 
0032 
0033 
0033 
0033 
0034 
0034 
0034 
0035 
0035 
0035 
0037 
0037 
00000961 



00* 

0B 

00' 

03 

00* 

04 

00 
81 



261 D211 



262 DZ32: 



C 8 
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; Indicate end of PT-descriptor 



26 
(4) 



.BYTE A X81 
$DS DZ11 

SAtfE LOCAL BLOCK 

PSECT $ABS$,ABS 

=HP$A DEPENDENT 

J IF " NB,DZ11$L CSR, DZ1UL CSR: 

JJF NB,.BLKL, .BLKL 1 

I IF NB,DZ1UB_BR, DZ1UB..BR: 

J IF NB,.BLKB, .8LKB 1 

JJF NB,DZ11$B MTYPE, DZ11$B MTYPE: 

J IF NB,,BLKB," .BLKB 1 

IJF NB,DZ11$K_LEN, DZ11$K^LEN: 

RESTORE 

DZH name 



,ASCIC 

BYTE 
8YTE 
BYTE 
ASCIC 

LONG 
BYTE 
,ASCIC 

LONG 
8YTE 
ASCIC 

LONG 
BYTE 
ASCIC 

ASCIC 

ASCIC 



"dzh" 
o 

A X80 
A X83 
"CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



"O760000, *077?776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 
'VECTOR" ; VECTOR string 



A 02, A 0776 

A X82 

"BP M 



BR string 
4 



2 t 776 limits on input 
Indicate scan decimal 



4,7 ; 4 , 7 limits on input 

A X85 ; Indicate scan and verify string 

"MODULE TYPE" ; MODULE TYPE string 

"EI A" 

"20MA" 



BYTE 

BYTE A X81 
$DS DZ32 
SAVE LOCAL BLOCK 
PSECT SABSSTABS 
=HP$A DEPENDENT 

I IF " — 

JIF 

llf 
JIF 
IIF 
IIF 
IIF 
IIF 
llf 
llf 
llf 
llf 
llf 
llf 
RESTORE 



Null length is end of valid EIA,20MA 
Indicate end of PT-descriptor 



C083 



NB,HP$8 DZ32 BRLVL, 
NB,DZ32JB_BRCVL, 
NB,.8LK8. ,8LK8 
NB,HP$B DZ32 ACTIV, 
NB,DZ32SBJ\CTlV, 
NB,.8LKB, .BLKB 
NB,NP$B DZ32SPEED, 
NB,D23?Jb^SPPED, 
NB,.BLK8, ,8LKB 
NB,HP$UDZ32 FLAGS, 
NB.DZ32!W..FLAGS, 
NB,.8LKW, .8LKW 
N8,HP$K LEN, HP$K LEN: 
NB,DZ32$_LEN, DZ32S.LEN: 



HPSBDZ32 BRLVL: 
DZ32lB^BRCVL: 



1 

HPSBDZ32 ACTIV: 

DZ32JDJ\CTlV: 

1 

HPSBDZ32 SPEED: 

DZ32lB.SPpED; 

1 

HP$W DZ32 FLAGS: 

DZ32JW.FLXGS: 

1 



ZZ-ENSAA-7,0 

ICODE 

07-22 



Device description databas 

- Interpre 
Device des 



ted code for TSP 
cription database 



32 33 5A 44 



52 

00Q3FFFE 

52 4F 54 43 

000001FE 

00000007 
45 4E 49 4C 20 45 56 49 54 

0O0OO0FF 

45 54 41 52 20 44 55 

OOOOOOOE 

59 54 20 4B 43 41 42 50 4F 

00000004 

53 20 54 45 53 45 52 20 48 

48 43 

00000001 

48 43 54 49 57 53 20 45 44 

00000001 

44 45 45 50 53 20 54 49 4C 

52 45 50 4D 

00000002 



53 43 



00* 

04 

00 

80 

83 

00' 

03 

O0O3E00O 
83 

45 56 00' 
06 

00000002 
83 

52 42 00' 
02 

00000004 
83 

43 41 00' 
53 
OC 

00000000 
83 

41 42 00 • 
09 

00000000 
83 

4F 4C 00' 
45 50 
OD 

00000000 
83 

4E 49 00' 

54 49 57 

10 
00000000 

83 
4F 4D 00' 

OB 
00000000 

83 
50 53 00* 

55 4A 20 

12 

00000000 

81 



00000032 
00000036 



31 31 56 5A 



0961 
0961 
0966 
0967 
0968 
0969 
0969 
096D 
0975 
0976 
0976 
097D 
0985 
0986 
0986 
0989 
0991 
0992 
099E 
0992 
099F 
09A7 
09A8 
09A8 
09B2 
09BA 
098B 
09C7 
09BB 
09C9 
09D1 
09D2 
09DE 
09D2 
09E3 
09EB 
09EC 
09EC 
09F8 
0A00 
0A01 
OAOD 
0A01 
OAK 
0A1C 
0A1D 
0A1D 
0A1D 
003A 
0032 
0032 
0036 
OOO0OA1D 
44 00' 0A1D 
05 0A1D 
00 0A23 
80 0A24 



263 DZV11 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 

.BYTE 
. ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 

.BYTE 
.ASCJC 



.LONG 
.BYTE 
.ASCJC 



.LONG 
.BYTE 
.ASCJC 



D 8 
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.ASCJC "DZ32" ; DZ32 name 





A X80 
A X83 
"CSR" 



Maximum unit number 

Constant to identify start of descriptor 
Jndicate scan octal 
CSR string 



A O760000, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 



1 1 



VECTOR 



i a 



A 02 A 0776 
A X83 



"BR" 



; VECTOR string 

; 2 , 776 limits on input 
; Jndicate scan octal 
BR string 



A 04 A 07 ; 4 , 7 limits on input 
*X83 ; Indicate scan octal 

"ACTIVE LINES' 1 ; ACTIVE LINES string 



.LONG A O0 A 0377 
.BYTE A X83 
.ASCJC '"BAUD RATE" 



, 377 limits on input 
Jndicate scan octal 
BAUD RATE string 



.LONG A 00,*016 ; , 16 limits on input 
.BYTE A X83 , ; Indicate scan octal 
.ASCIC "LOOPBACK TYPE" ; LOOPBACK TYPE string 



A O0. A O4 ; , 4 limits on input 

A X83 ; Indicate scan octal 

"INH RESET SWITCH" ; INH RESET SWITCH string 



A O0 A U1 ; , 1 limits on input 

A X83 ; Indicate scan octal 

"MODE SWITCH" ; MODE SWITCH string 



.LONG A O0 A 01 ; , 1 limits on input 

.BYTE A X83 : Indicate scan octal 

.ASCIC "SPLIT SPEED JUMPER" ; SPLIT SPEED JUMPER string 



A 00, A 02 ; , 2 limits on input 

A X81 ; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS DZV11 

.SA7E LOCAL.BLOCK 

.PSECT $ABS$.ABS 

.=HP$A DEPENDENT 

.IIF NB,D2V11$L.CSR, DZV1UL CSR; 

JIF NB,,BLKL, .BLKL 1 

AU NB,DZV11$K_LEN, DZV1UKJ.EN; 

.RESTORE 



[193 



.ASCIC "DZV11 

.BYTE 
.BYTE A X80 



M 



DZV11 name 



Maximum unit number 

Constant to identify start of descriptor 



J 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



E 8 
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28 
(4) 



52 

0003FFFE 

52 4F 54 43 

000001FE 



41 31 31 55 

65 73 

0003FFF0 

72 6F 74 63 

000001 FC 

00000007 



83 0A25 
53 43 00' 0A26 

03 0A26 
0003EOOO 0A2A 

83 0A32 
45 56 00' 0A33 

06 0A33 
00000002 0A3A 

81 0A42 
0A43 
0A43 
0A43 

00000032 003A 
0032 
C032 

00000033 0032 
0033 
0033 

00000A43 

45 49 00 • 0A43 

06 0A43 

01 0A4A 

80 0A4B 
83 0A4C 

61 42 00' 0A4D 

04 0A4D 
0003E000 0A52 

83 0A5A 
65 56 00' 0A58 

06 0A58 
00000000 0A62 

82 0A6A 
52 42 00' 0A6B 

02 0A6B 
00000004 0A6E 

81 0A76 
0A77 
0A77 
0A77 

00000032 003A 

0032 
00000036 0032 

0036 
00000038 0036 

0038 
0000003A 0038 

003A 
0000003D 003A 

003D 
0000003E 003D 

003E 
00000040 003E 

0040 

00000042 0040 
0042 

00000043 0042 
0043 



LONG 
,8YTE 
264 JEU11A: $DS JEU11A 

SAflE L0CAL_8L0CK 

PSECT $ABS$,ABS 

=HP$A„DEPENDENT 

J IF NB,HP$B IEU11A_BR, HPSBJEU1 1 A.BR J 

J IF NB,IEU1TA$0_BR, IEU11A$B BR: 

UF NB,.BLKB, .BLKB T 

UF NB,HP$K IEU11A LEN, HP$K IEU11A LEN: 

UF NB,IEU1TA$K,LER, IEU1TA$K_LER: 

RESTORE 

ASCJC "IEU11A" ; IEU11A name 



265 



BYTE 
ASCIC 

LONG 
BYTE 
ASCIC 



A X83 
"CSR" 



; Indicate scan octal 
CSR string 



0760000/0777776 



A X83 
"VECTOR 



760000 , 777776 limits on input 



Indicate scan octal 
VECTOR string 



A 02, A 0776 
*X81 



2 , 776 limits on input 
Indicate end of PT-descriptor 



C163 



BYTE 
BYTE 
8YTE 
ASCJC 

LONG 
BYTE 
ASCJC 

LONG 
BYTE 
ASCJC 



1 

A X80 
A X83 
"Base" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
Base string 



A O760000, A O777760 ; 760000 , 777760 limits on input 
A X83 ; Indicate scan octal 
"Vector" ; Vector string 



A O0 A 0774 
A X82 



"BR" 



; , 774 limits on input 
; Indicate scan decimal 
BR string 



LONG 4,7 ; 4 
BYTE A X81 
$DS KA..DEF 
SAVE LOCAL BLOCK 
PSECT $ABS$TABS 
=HP$A„DEPENDENT 



7 limits on input 

; Indicate end of PT-descriptor 



UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 
UF 



NB,KASL FLAGS, KA$L FLAGS: 

NB,.BLK[, .BLKC 1 

NB,KA$W WCS, KASWUCS: 

NB,.BLKQ, .BLK0 1 

NB,KA$W RESERVED, KA$W.RESERVED: 

NB,.BLK0, .BLKW 1 

NB,KA$L.SID, KA$L_SID: 



NB,.BLKB, .BLKB 

NB,KA$B SIDJYPE, 
NB,.BLKB, .BLKB 

NB,KA$W LATENCY, 

NB,,BLKQ, .blkw 

nb,ka$w progress, 
nb,.blk0, .blkw 
nb,ka$b accjype, 
nb,.blkb, .blkb 
nb,ka$b.,re served, 



KA$B_SID_TYPE: 

1 

KA$W LATENCY: 

1 

KASW..PROGRESS 

1 

KA$B.ACC.TYPE 

1 

KASB.RESERVED 



ZZ-ENSAA- 


•7.C 


> Device description database 
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ICODE 








- Interpreted code 


for 


TSP 


29 


07-22 








Device description database 


(4) 








00000044 


0043 






.JIF 


NB,.BLKB. ,BLKB 1 














0044 






.IJF 


NB,KA$W MEM_SIZE, KA$W MEM.SIZE: 










00000046 


0044 






.JJF 


NB,.BLKQ, .BLKW 1 














0046 






.JIF 


NB,KA$K LEN, KA$K LEN: 












00000A77 






.RESTORE 














0A77 


266 KA730: 


$DS KA730 


con 






30 33 37 


41 


4B 00" 
05 
04 
80 
85 


0A77 
0A77 
0A7D 
0A7E 
0A7F 






.Asric 

.BYTE 
.BYTE 
.BYTE 


"KA730" ; KA730 name 

4 ; Maximum unit number 

A X80 ; Constant to identify start of descriptor 

A X85 ; For APT, pretend this is a STRING 




61 65 79 


2D 


66 6F 2D 65 6D 


69 


54 00' 


0A80 






.ASCIC 


"Time-of-year clock" 








68 63 6F 6C 63 20 72 


0A8C 




















12 


0A80 


















4F 


4E 00 • 
02 


CA93 
0A93 






.ASCIC 


• , N0 ,, 








53 


45 


59 00' 
03 
00 
84 


0A96 
0A96 
0A9A 
0A98 






.ASCIC 

.BYTE 
.BYTE 


"YES" 



A X84 ; Indicate scan hexadecimal. 




64 61 20 


74 


73 61 6C 20 53 

71 73 


43 
65 


57 00' 
72 64 
10 


0A9C 
0AA8 
0A9C 






.ASCJC 


"WCS last address 11 ; WCS last address string 








OOOOFFFF 


00000000 


OAAD 






.LONG 


0, 1916-1 ; , 1316-1 limits on input 












82 


0AB5 






.BYTE 


A X82 ; Indicate scan decimal 




72 6F 74 


61 


72 65 6C 65 63 
65 70 


63 
79 


41 00' 
74 20 
10 


0AB6 
0AC2 
0AB6 






.ASCIC 


"Accelerator type" ; Accelerator type string 








000000FF 


OCOOOOOO 


0AC7 






.LONG 


0,255 ; , 255 limits on input 












82 


OACF 






.BYTE 


A X82 ; Indicate scan decimal 




20 66 6F 


20 


73 65 74 79 62 


2D 


48 00' 


OADO 






.ASCIC 


"K-bytes of Main Memory" ; K-bytes of Main Memory string 




79 72 


6F 


6D 65 4D 20 6E 


69 


61 4D 
16 


OADC 
OADO 
















00001400 


00000000 


0AE7 






.LONG 


0,5120 ; , 5120 limits on input 












85 


OAEF 






.BYTE 


A X85 / For APT, pretend this is a STRING 




6F 6C 20 


53 


43 57 20 72 65 
64 


73 

65 

4F 


55 00' 
64 61 

OF 
4E OO 1 

02 


OAFO 
OAFC 
OAFO 
0800 
0800 






.ASCIC 
.ASCIC 


"User WCS loaded'* 
"NO" 








53 


45 


59 00' 
03 
00 
85 


0B03 
0BO3 
OB07 
0808 






•ASCIC 

.BYTE 
.BYTE 


"YES" 



A X85 ; For APT, pretend this is a STRING 




73 


72 


6F 72 72 65 20 


42 

4F 


53 00' 
09 

4E 00' 
02 


0809 
0809 
0B13 
0813 






.ASCJC 
.ASCIC 


"SB errors" 
"NO" 








53 


45 


59 00' 
03 
00 
81 


0B16 
0B16 
0B1A 
0B1B 






.ASCIC 

.BYTE 
.BYTE 


"YES" 



A X81 ; Indicate end of PT-descriptor 














081 C 


267 KA750; 


SDS JCA750 








30 35 37 


41 


48 00 ' 
05 
04 
80 


081 C 
081 C 
0B22 
0B23 






.AStlC 

.BYTE 
.BYTE 


"KA750" ; KA75Q name 

4 ; Maximum unit number 

A X80 ; Constant to identify start of descriptor 





ZZ-ENSAA 

1C0DE 

07-22 



20 67 6E 
73 6E 6F 



-7.0 



Device description database 

- interpreted code for TSP 
Device description database 
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69 74 
69 74 



20 67 6E 
73 6E 6F 



69 74 
69 74 



61 65 79 2D 66 



64 61 20 74 73 



72 oF 74 61 72 



20 67 6E 
73 6E 6F 



69 74 
69 74 



20 67 6E 
73 6E 6F 



69 74 
69 74 



85 0B24 
61 6F 6C 66 2D 47 00* 0B25 
63 75 72 74 73 6E 69 0B31 

17 0B25 
4F 4E 00* 0B3D 

02 0B3D 
53 45 59 00' 0B40 

03 0B40 
00 0B44 
85 0B45 

61 6F 6C 66 2D 48 00* 0B46 
63 75 72 74 73 6E 69 0B52 

17 0B46 
4F 4E 00* 0B5E 

02 CB5E 
53 45 59 00' 0B61 

03 0B61 
00 0B65 
85 0B66 

6F 2D 65 6D 69 54 00 f 0B67 
6B 63 6F 6C 63 20 72 0B73 

12 0B67 
4F 4E 00' 0B7A 

02 08 7A 
53 45 59 00' 0B7D 

03 0B7D 
00 0B81 

84 0B82 
61 6C 20 53 A3 57 00' 0B83 

73 73 65 72 64 0B8F 

10 0B83 

0000FFFF 00000000 0B94 

82 0B9C 

65 6C 65 63 63 41 00* 0B9D 

65 70 79 74 20 0BA9 

10 0B9D 

000000FF 00000000 OBAE 

81 0BB6 

0BB7 

30 38 37 41 46 00 • 0BB7 

05 0BB7 

04 OBBD 
80 OBBE 

85 OBBF 
61 6F 6C 66 2D 47 00' OBCO 
63 75 72 74 73 6E 69 OBCC 

17 OBCO 

4F 4E 00' 0BD8 

02 4 0BD8 

53 45 59 00* 0BD8 

03 OBDB 

00 OBDF 

85 OBEO 

61 6F 6C 66 20 48 00' 0BE1 

63 75 72 74 73 6E 69 OBED 

17 08E1 
4F 4E OO 1 0BF9 



268 KA780: 



.BYTE 
.ASCJC 



.ASC1C 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 

.ASCJC 

.ASCJC 

.BYTE 

.BYTE 
.ASCJC 

.ASCJC 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 



.LONG 
.BYTE 
.ASCJC 



A X85 ; For APT, pretend this is a STRING 

"G-floating instructions" 

"NO" 
"YES" 



A X85 ; For APT, pretend this is a STRING 

"H-floating instructions" 



"NO" 
"YES" 




A X85 



For APT, pretend this is a STRING 



"Time-of-year clock 



"NO" 

M YES" 



A X84 ; Indicate scan hexadecimal 

"WCS last address" ; WCS last address string 



0,1316-1 ; , 1SJ16-1 limits on input 
A X82 .'Indicate scan decimal 

Accelerator type ; Accelerator type string 



1 1 



.LONG 

.BYTE 
$DS KA780 
.ASClC "KA780" 



0,255 
A X81 



, 255 limits on input 

; Indicate end of PT-descriptor 



KA780 name 



.BYTE 
.BYTE 
.BYTE 
, ASCJC 



.ASCJC 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 



4 

A X80 
A X85 



Maximum unit number 

Constant to identify start of descriptor 

For APT, pretend this is a STRING 



"G-floating instructions 

"NO" 
"YES" 



*X85 ; For APT, pretend this is a STRING 

* H-f loating instructions" 



.ASCJC "NO 



<( 



ZZ-ENSAA 
I CODE 
07-22 



-7.0 



Device description database 

- Interpreted code for JSP 
Device description database 
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31 
(4) 



64 61 20 74 73 



72 6F 74 61 72 



20 67 6E 
73 6E 6F 



69 74 
69 74 



20 67 6E 
73 6E 6F 



69 74 
69 74 



64 61 20 74 73 



72 6F 74 61 72 



20 67 6E 
75 6E 6F 



69 74 
69 74 



02 0BF9 
53 45 59 00 1 OBFC 

03 OBFC 
00 OCOO 

84 0C01 
61 6C 20 53 43 57 00 1 0C02 

73 73 65 72 64 OCOE 

10 0C02 

OOOOFFFF 00000000 0C13 

82 0C1B 

65 6C 65 63 63 41 00' 0C1C 

65 70 79 74 20 0C28 

10 0C1C 

000000FF 00000000 0C2D 

81 CC35 
0C36 

58 58 58 41 4B 00' 0C36 

05 0C36 

04 0C3C 

80 0C3D 

85 0C3E 
61 6F 6C 66 2D 47 00' 0C3F 
63 75 72 74 73 6E 69 0C48 

17 0C3F 

4F 4E 00 • 0C57 

02 0C57 
53 45 59 00' 0C5A 

03 0C5A 
00 0C56 
85 0C5F 

61 6F 6C 66 2D 48 00* 0C60 

63 75 72 74 73 6E 69 0C6C 

17 0C60 

4F 4E 00' 0C78 

02 0C78 
53 45 59 00' 0C7B 

03 0C7B 
00 0C7F 

84 0C80 
61 6C 20 53 43 57 00' 0C81 

73 73 65 72 64 0C8D 

10 0C81 

OOOOFFFF 00000000 0C92 

82 0C9A 
65 6C 65 63 63 41 00' 0C9B 

65 70 79 74 20 0CA7 

10 0C9B 

000000FF 00000000 OCAC 

81 0CB4 
0CB5 

35 38 37 41 4B 00 1 0CB5 

05 0CB5 

04 OCBB 
80 OCBC 

85 OCBD 
61 6F 6C 66 2D 47 00' OCBE 
63 75 72 74 73 6E 69 OCCA 



269 KAXXX: 



270 KA785: 



♦ASCJC 

.BYTE 
.BYTE 
.ASCJC 



.LONG 
.BYTE 
.ASCJC 



.LONG 
.BYTE 



"YES' 




A X84 ; Jndicate scan hexadecimal 

M WCS last address" ; WCS last address string 



0,1916-1 ; , 1916-1 limits on input 
A X82 ; Indicate scan decimal 

"Accelerator type" ; Accelerator type string 



0,255 
A X81 



$DS KAXXX 
.AStJC "KAXXX" 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 



.ASCJC 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 

.ASCIC 

.ASCJC 

.BYTE 
.BYTE 
.ASCJC 



.LONG 
.BYTE 
, ASCJC 



4 

A X80 

A X85 
i « 



, 255 limits on input 

; Jndicate end of PT-descriptor 

KAXXX name 

; Maximum unit number 

; Constant to identify start of descriptor 

; For APT, pretend this is a STRJNG 



[15] 



G-floating instructions 



"NO" 
"YES" 





A X85 ; For APT, pretend this is a STRJNG 

"H-floating instructions" 



"NO" 
"YES" 





A X84 ; Indicate scan hexadecimal 

•IdCS last address" ; WCS last address string 



0,1316-1 ; , 1316-1 limits on input 
A X82 ; Jndicate scan decimal 

"Accelerator type" ; Accelerator type string 



.LONG 0,255 
.BYTE A X81 
$DS KA785 
.AStlC "KA785" 



, 255 limits on input 

; Indicate end of PT-descriptor 



KA785 name 



[153 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 



4 

A X80 

A X85 
1 1 



G-floating instructions 



Maximum unit number 

Constant to identify start of descriptor 

For APT, pretend this is a STRING 



ZZ-ENSAA-7,0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 
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17 OCBE 
4F 4E 00' 0CD6 

02 0CD6 
53 45 59 00' 0CD9 

03 0CD9 
00 0CDD 
85 0CDE 

20 67 6E 69 74 61 6F 6C 66 2D 48 00' 0CDF 
73 6E 6F 69 74 63 75 72 74 73 6E 69 OCEB 

17 OCDF 
4F 4E 00' 0CF7 

02 0CF7 
53 45 59 00' OCFA 

03 OCFA 
00 CCFE 
84 OCFF 

64 61 20 74 73 61 6C 20 53 43 4A 00' ODOO 

73 73 65 72 64 ODOC 

10 ODOO 

OOOOFFFF 00000000 0D11 

82 0D19 
72 6F 74 61 72 65 6C 65 63 63 41 00' 0D1A 

65 70 79 74 20 0D26 

10 0D1A 

0000OOFF 00000000 0D2B 

81 0D33 
0D34 
0D34 
0D34 

00000032 0046 
0032 

00000036 0032 
0036 

00000037 0036 
0037 

OOO00D34 
31 31 43 4D 4B 00* 0D34 

05 0D34 
00 0D3A 

80 0D3B 

83 0D3C 
52 53 43 00 1 0D3D 

03 UD3D 

0003FFFE O0O3EO0O 0D41 

83 0D49 

52 4F 54 43 45 56 00 • 0D4A 

06 0D4A 
000001FE 00000002 0D51 

82 0D59 
52 42 00' 0D5A 

02 0D5A 
00000007 00000004 0D5D 

81 0D65 
0D66 
0D66 
0D66 

00000032 0046 



271 KMC11 



272 KW11K: 



.ASCJC 

.ASCIC 

.BYTE 
.BYTE 
.ASCJC 

.ASCIC 

.ASCIC 

.BYTE 
.BYTE 
.ASCIC 



.LONG 
.BYTE 
.ASCIC 



"NO" 
"YES" 



A X85 



"H-floating instructions 



For APT, pretend this is a STRING 



"NO" 
"YES" 



A X84 ; indicate scan hexadecimal 

"JCS last address" ; JCS last address string 



0, 1916-1 ; , 1916-1 limits on input 
A XS2 ; Indicate scan decimal 

"Accelerator type" ; Accelerator type string 



.LONG 
.BYTE 







0,255 
A X81 
SDSJCMC11 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.11F NB,KMC11$L CSR, KMC11SL CSR: 

.JIF NB,.BLKL, " .BLKL "1 

Alf NB,KMC11$B BR, KMC11$B BR: 

.JIF NB,.BLKB, " .BLKB "1 

.JIF NB,KMC11$K_LEN, KMC11SK.LEN: 

.RESTORE 

.ASCIC "KMC11" ; KMC11 name 



255 limits on input 

; Indicate end of PT-descriptor 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 





A X80 
A X83 
"CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A 0760000, "0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 

« 



'VECTOR" 
02, A 0776 



VECTOR string 



A 

A X82 
"BR" 



; 2 , 776 limits on input 
; Indicate scan decimal 
BR string 



.LONG 4,7 ; 4 

.BYTE A X81 

$DS KW11K 

.SAVE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A.DEPENDENT 



7 limits on input 

; Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



1542 
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33 

(4) 



00000033 



4B 31 31 57 48 00' 
05 
02 
80 
83 
52 53 43 20 53 55 42 20 4F 2F 49 00' 

0B 

0003FFFE OOO3EO0O 
83 
52 4F 54 43 45 56 00' 

06 

000001 FE 00000002 



0032 
0032 
0033 
0O000D66 
0D66 
0D66 
0D6C 
0D6D 
0D6E 



0D6F 
0D6F 
0D7B 
0D83 
0D84 
0D84 
0D8B 

82 0D93 
52 42 00 • 0D94 

02 0D94 
00000007 00000004 

81 



0D97 

0D9F 

0DA0 

ODAO 

ODAO 

00000032 0046 

0032 

0032 

0OO00DA0 

32 31 41 4C 00 * ODAO 

04 ODAO 
08 0DA5 

80 0DA6 

81 0DA7 
0DA8 
0DA8 
0DA8 

00000032 0046 

0032 

0032 

0OO00DA8 

30 30 31 41 4C 00' 0DA8 

05 0DA8 
08 ODAE 

80 ODAF 

81 ODBO 
0DB1 
0DB1 
0DB1 

00000032 0046 

0032 

0O000DB1 

30 32 31 41 4C OO 1 0DB1 

05 0DB1 

08 0DB7 

80 0DB8 

81 0DB9 
ODBA 



273 LA12: 



274 LA100: 



275 LA120: 



.J IF NB,KW11K$B_BR, KW11K$B,BR: 

.llf NB,.BLKB, .8LKB 1 

,IIF NB,KW11K$K_LEN, KW11K$K_LEN: 

.RESTORE 

.ASCIC "KW11K" ; KW11K name 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 

.BYTE 
.ASCIC 



2 

A X80 

A X83 

"I/O BUS CSV ; 

A 0760000, A 0777776 

A X83 

•VECTOR" 

A 02, A 0776 
A X82 



Maximum unit number 

Constant to identify start of descriptor 

Indicate scan octal 

I/O BUS CSR string 

; 760000 , 777776 limits on input 
Indicate scan octal 
VECTOR string 



"BR M 



2 , 776 limits on input 
Indicate scan decimal 



4,7 
A X81 



BR string 
4 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS LA12 

.SA9E LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.Uf " NB,HP$K LA12 LEN, HP$K LA12 LEN: 

.11F NB,LA12$K_LER, LA12$K_LEN: " 

.RESTORE 

.ASCIC "LA12" ; LA12 name 



C143 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS LA100 

.SAVE LOCAL BLOCK 

.PSECT $ABS$7ABS 

.=HP$A_DEPENDENT 

.JJF NB,HP$K LA100 LEN, HP$K LA100 LEN: 

.IIF NB,LA100$K_LER, LA100$K„LEN: 

.RESTORE 

.ASCIC "LA100 M ; LA100 name 



[143 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS LA120 

.SA9E LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

AlF " NB,LA120$K LEN, LA120$KJ_EN: 

.RESTORE 

.ASCIC "LA120" ; LA120 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



276 LA180: 



.BYTE 8 
.BYTE A X80 
.BYTE A X81 
$DS LA180 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



K 8 
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34 
(4) 



ODBA 

ODBA 

00000032 0046 

0032 

00000DBA 

30 38 31 41 4C 00' ODBA 

05 ODBA 

01 ODCO 

80 0DC1 

81 0DC2 

0DC3 277 LA34: 

0DC3 

0DC3 

00000032 0046 

0032 

00000DC3 

34 33 41 4C 00 1 0DC3 

04 0DC3 

08 0DC8 

80 0DC9 

81 ODCA 

ODCB 278 LA36: 

ODCB 

ODCB 

00000032 0046 

0032 

00000DCB 

36 33 41 4C 00' ODCB 

04 ODCB 

08 ODDO 

80 0DD1 

81 0DD2 

0DD3 279 LA38: 

0DD3 

0DD3 

00000032 0046 

0032 

00000DD3 

38 33 41 4C 00' 0DD3 

04 0DD3 

08 0DD8 

80 0DD9 

81 ODDA 

ODDB 280 LESI: 
ODDB 
ODDB 
00000032 0046 
0032 
0032 

00000036 0032 
0036 
0036 

00000037 0036 
0037 
0037 

OOOOODDB 
49 53 45 4C 00' ODDB 



.SAVE LOCAL..BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

Alt " NB,LA180$K„IEN, LA180$K_LEN: 

. RESTORE 

.ASCIC "LA180" ; LA180 name 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS LA34 

.SAVE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

,JJF NB,LA34$K_LEN, LA34$K_LEN: 

.RESTORE 

.ASCJC M LA34 M ; LA34 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

IDS LA36 

.SAVE LOCAL_BLOCK 

.PSECT IABSl,ABS 

.=HP$A fci DEPENDENT 

.JJF NB,LA36$K_LEN, LA36$K_LEN: 

.RESTORE 

.ASCJC "LA36" ; LA36 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



8 

A X80 

A X81 



.BYTE 

.BYTE 

.BYTE 

IDS LA38 

.SAVE LOCAL BLOCK 

.PSECT $ABSl,ABS 

,=HP$A DEPENDENT 

A1F NB,LA38$K.LEN, LA38IK.LEN: 

.RESTORE 

.ASCIC M LA38 M ; LA38 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



; Maximum unit number 

; Constant to identify start of descriptor 

; Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS LESI 

.SAVE LOCAL BLOCK 

.PSECT $ABSl,ABS 

.=HP$A DEPENDENT 

A1F NB,HP$l LESIJP, HPILJ.ESIJP: 

NB,LESJlL_ IP. LESISL IP: 

NB,,BLKL, .BLKL 1 

NB,HP$B LESI_BR, HP$3 M LESI.BR: 

NB,LESI$B_BR, LESISB^BR: 

NB,.BLKB, .BLKB 1 

NB,HPIK LESI LEN, HP$KJ.ESIJ_ENj 

NB,LESI$K_LER, LESISK.LEN: 



C133 



.UF 
• IJF 
.IIF 

.IIF 
.IJF 
-JJF 

.JIF 

.RESTORE 

.ASCIC 



*i 



LESI 



t » 



LESI name 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



L 8 
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35 
(4) 



0003FFFC 

72 6F 74 63 

000001FC 



00000007 



04 

00 

80 

83 
50 49 00' 

02 
O003E00O 

83 
65 56 00' 

06 
00000004 

82 
52 42 00 1 

02 
00000004 

81 



00000032 



31 30 4E 4C 



04 
01 
80 
81 



00000032 



0DDB 
0DE0 
0DE1 
0DE2 
0DE3 
0DE3 
0DE6 
ODEE 
ODEF 
ODEF 
0DF6 
ODFE 
ODFF 
ODFF 
CE02 
OEOA 
0E08 
OEOB 
OEOB 
0046 
0032 
00000E0B 
00 • OEOB 



34 30 50 4C 



04 
01 
80 
81 



00000032 



OEOB 
0E10 
OE11 
0E12 
0E13 
0E13 
0E13 
0046 
0032 
OOO0OE13 
00 1 0E13 



35 30 50 4C 



04 
01 
80 
81 



00000032 



OE13 
0E18 
0E19 
0E1A 
0E1B 
0E18 
0E1B 
0046 
0032 
OOO0OE1B 
00' 0E1B 



36 30 50 4C 



0E1B 

0E20 

OE21 

0E22 

0E23 

0E23 

0E23 

0046 

0032 

00000E23 

00 • 0F23 

04 0E23 



281 LN01: 



282 LP04: 



283 LP05: 



284 LP06: 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 





A X80 
A X83 
"IP" 



Maximum unit number 

Constant to identify start of descriptor 
Indicate scan octal 
IP string 



A O760O00, A 0777774 ; 760000 , 77777^ limits on input 
A X83 ; Indicate scan octal 

'Vector" ; Vector string 



A 04 A 0774 
A X82 



"BR" 



; 4 , 774 limits on input 
; Indicate scan decimal 
BR string 



4,7 
A X81 



.LONG 

.BYTE 

$DS IN01 

.SAVE LOCAL_BL0CK 

.PSECT $ABSS,ABS 

.=HP$A_DEPENDENT 

Alt NB,LN01$K_LEN, LNOUK.LEN: 

.RESTORE 

.ASCJC "LNOV 1 ; LN01 name 



7 limits on input 

; Indicate end of PT-descriptor 



[143 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS IP04 

.SAVE LOCAL BLOCK 

.PSECT $ABS$7ABS 

.=HP$A DEPENDENT 

.JIF NB,LP04$K_LEN, LP04$K LEN: 

.RESTORE 

.ASCJC n LP04 M ; LP04 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS LP05 

.SAVE LOCAL_BL0CK 

.PSECT $ABS$,ABS 

,=HP$A_DEPENDENT 

. I JF NB,LP05$K_LEN, LP05$K_LEN: 

.RESTORE 

.ASUC "LP05 M ; LP05 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS LP06 

.SA9E LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.IIP NB,LP06$K - LEN, LP06SK.LEN: 

.RES10RE 

, ASCIC "LP06 n ; LP06 name 



; Maximum unit number 

; Constant to identify start of descriptor 

; Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 

KODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



M 8 

27-JUL-1984 Fiche 8 Frame M8 Seguence 1545 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 
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01 
80 
81 



00000032 



37 30 50 4C 



0E28 
0E29 
0E2A 
0E2B 
0E28 
0E2B 
0046 
0032 
OO000E2B 
00' 0E2B 



285 LP07: 



04 
01 
80 
81 



000000:*2 
00000036 
00000037 



31 31 



50 4C 

04 

00 

80 

83 

52 53 43 00' 

03 

0003FFFE 00O3E0O0 

83 

52 4F 54 43 45 56 00* 

06 

000001 FF 00000002 

82 

52 42 00 • 

02 

00000007 00000004 

8* 



0E2B 
0E30 
0E31 
0E32 
0E33 
0E33 
0E33 
0046 
0032 
0032 
0036 
0036 
0037 
00000E33 
00 1 0E33 



286 LP11: 



00000032 



34 31 50 4C 



04 
01 
80 
81 



00000032 



0E33 
0E38 
0E39 
0E3A 
0E3B 
0E38 
0E3F 
0E47 
0E48 
0E48 
0E4F 
0E57 
0E58 
0E58 
0E5B 
0E63 
0E64 
0E64 
0E64 
0046 
0032 
00000E64 
00' 0E64 



287 LP14: 



0E64 
0E69 
0E6A 
0E6B 
0E6C 
0E6C 
0E6C 
0046 
0032 



288 LP25: 



.BYTE 1 

.BYTE A X80 

•BYTE A X81 

$DS LP07 

.SAVE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HPSA DEPENDENT 

.IJF " NB,LP07$K_LEN, LP07$K_LEN: 

.RESTORE 

.ASCIC M LP07 M ; LP07 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



36 
(4) 



H51 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

SDSLP11 

.SAVE L0CAL_BL0CK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.IJF NB,LP11$L_CSR, 

.IIF NB,.BLKL, 

.IJF N8,LP11$B_BR, 

.IJF NB,.BLKB, 

.IIF NB,LP11$K,LEN, LP11SK.LEN: 

.RESTORE 

.ASCIC M LP1V ; LP11 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



LP11SL CSR: 
.BLKL " 1 
LP11SB BR: 
♦BLKB " 1 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 





*X80 
A X83 
M CSR M 



Maximum unit number 

Constant to identify start of descriptor 
Indicate scan octal 
CSR string 



A 0760000, A 0777776 ; 760000 , 777776 Limits on inpuc 

A X83 ; Indicate scan octal 



« i 



VECTOR 



• i 



A 02, A 0776 
A X82 



••BR" 



; VECTOR string 

; 2 , 776 limits on input 
; Indicate scan decimal 
BR string 



4,7 
A X81 



.LONG 

.BYTE 

$DS LP14 

.SAVE LOCAL BLOCK 

.PSECT $ABS*,ABS 

.=HP$A_DEPENDENT 

.JIF NB,LP14$K..LEN, LP14$K_LEN: 

.RESTORE 

.ASCIC "LP14" ; LP14 name 



7 limits on input 

; Indicate end of PT-descriptor 



.BYTE 1 

.BYTE A X80 

.BYTE A X81 

$DS LP25 

.SAVE LOCAL BLOCK 

.PSECT $ABS$7A8S 

.=HP$A_DEPENDENT 

.IIF NB,LP25$KJ.EN, LP25$K„.LEN: 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



[013 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



N 8 
27-JUL-1^84 Fiche 8 Frame N8 Seguence 1546 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 
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37 
(4) 



00000E6C 

35 32 50 4C 00* 0E6C 

04 0E6C 
01 0E71 

80 0E72 

81 0E73 
0E74 
0E7A 
0E74 

00000032 0046 

0032 

O000OE74 

36 32 50 4C 00 • 0E74 

04 
01 
80 
81 



.RESTORE 
•ASCIC M LP25" 



LP25 name 



289 LP26: 



00000032 



37 32 50 4C 



0E74 
CE79 
0E7A 
0E7B 
0E7C 
0E7C 
0E7C 
0046 
0032 
OOO0OE7C 



.8YTE 1 

•BYTE A X80 

.BYTE A X81 

SDS LP26 

.SAVE LOCAL BLOCK 

.PSECT $abs$;abs 

.=HP$A DEPENDENT 

.JJF " NB,LP26$K LEN, LP26SK.LEN: 

.RESTORE 

.ASCIC "LP26 M *; LP26 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



[15] 



290 LP27: 



00 
04 
01 
80 
81 



00000032 
00000036 
00000037 



48 31 31 41 



0E7C 
0E7C 
0E81 
0E82 
0E83 
0E84 
0E84 
0E84 
0046 
0032 
0032 
0036 
0036 
0037 
OO00OE84 
00* 0E84 



.BYTE 1 

.BYTE *X80 

.BYTE A X81 

$DS LP27 

.SAVE LOCAL BLOCK 

.PSECT SABSSTABS 

.=HP$A DEPENDENT 

.IIF " NB,LP27$K„LE*\ 

.RESTORE 

.ASCJC "LP27" ; LP27 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-tiescriptor 



LP27$K_LEN: 



[15] 



50 4C 

06 0E84 

01 0E8B 

80 0E8C 
83 0E8D 

52 53 43 00 1 0E8E 

03 0E8E 

0003FFFF 0003E000 0F92 

83 0C9A 

52 4F 54 43 45 56 00' 0E9B 

06 0E9B 

000001 FE 00000002 0EA2 

82 0EAA 

52 42 00' 0EAB 

02 0EAB 
00000007 00000004 0EAE 

81 0EB6 
0EB7 
0E87 



.BYTE 1 
.BYTE A X80 
.BYTE *X81 
291 LPA11K: $DS LPA11K 

.SAVE LOCAL BLOCK 

.PSECT SABSSTABS 

,=HP$A DEPENDENT 

.IIF " NB,LPA11K$Lj:SR, 

.IIF NB,.BLKL, .BLKL 1 

.IIF NBAPA1 1KSB.BR, LPA11KSB BR: 

.JIF NB,.BLKB, ,BLKB T 

.IIF NB,LPA11KSKJ.EN, LPA11KSK..LEN: 

.RESTORE 

.ASCIC "LPAIIK" ; LPA11K name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



LPA11KSL.CSR: 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 

.ASCIC 

.LONG 
.BYTE 
.ASCIC 



1 

•a 50 
*X83 
U CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A 0760000, A 0777776 ; 760000 , 77777b limits on input 

A X83 ; Indicate scon octal 

"VECTOR" 



VECTOR string 



*02 *0776 
*X82 



"BR" 



; 2 ♦ 776 limits on input 
; Indicate scan decimal 
; BR string 



292 MA780: 



.L0N6 4,7 ; 4 

.8YTE A X81 

$DS MA780 

.SAVE LOCAL BLOCK 



7 limits on input 

; Indicate end of PT-descriptor 



ZZ-ENSAA-7,0 

1C0DE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



B 9 
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38 
(4) 



30 38 37 



0000000F 

00000007 

4D 

00000003 

54 52 

00000003 



00000032 
00000033 
00000034 
00000035 
00000036 



41 4D 

05 

08 

80 

82 
52 5'. OO* 

02 
00000001 

82 
52 42 00' 

02 
00000004 

82 
50 4D OCT* 

03 
00000000 

82 
4F 50 00' 

04 
00000000 

81 



0EB7 
0046 
0032 
0032 
0033 
0033 
0034 
0034 
0035 
0035 
0036 
00000E87 
00' 0EB7 



00000032 



45 42 4D 



03 
08 
80 
81 



00000032 
00000033 
000000^ 



0EB7 
CEBD 
OEBE 
OEUF 
OECO 
OECO 
0EC3 
OECB 
OECC 
OECC 
OECF 
0ED7 
0ED8 
0ED8 
OEDC 
0EE4 
0EE5 
0EE5 
OEEA 
0EF2 
0EF3 
0EF3 
0EF3 
0046 
0032 
O0O00EF3 
00' 0EF3 



31 31 4C 



0EF3 

0EF7 

0EF8 

0EF9 

OEFA 

OEFA 

OEFA 

0046 

0032 

0032 

0033 

0033 

0034 

OOOOOEFA 

4D 00' OEFA 

04 OEFA 

08 OEFF 



293 MBE: 



294 ML 1 1 : 



.PSECT $ABSS,ABS 

.=HP$A DEPENDENT 

- J IF N<3,MA780$B TR, MA780SB TR: 

N8,.8LKB, ' .BLKB 1 

NB,MA780$8 BR, MA780$B_8R: 

N8,.BLKB, ' .BLKB 1 

NB,MA780$B MPM, MA780SBJ1PM: 

NB,.8LKr. " .BLKB 1 
NB,MA780$B PORT, MA780SB PORT: 

NB,.BLKB, " .BLKB 1 

NB,MA780$K_LEN, MA780$K_LEN: 



JJF 
.IJF 

JJF 

JJF 

.IJF 
.IJF 

.JJF 
.JJF 

.RESTORE 
.ASCJC 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
•ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
$DS JIBE 
.SA?E 
.PSECT 



M MA780" 

8 

A X80 
A X82 
"TR" 

1 - 1 5 

A X82 
"BR" 

A X82 
"MPM" 

*X82 
"PORT" 

0,3 
A X81 



MA780 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
TR string 

1 , 15 limits on input 

; Indicate scan decimal 
BR string 

4 , 7 limits on input 

; Indicate scan decimal 
MPM string 

, 3 limits on input 

; Indicate scan decimal 
PORT string 

, 3 limits on input 

; Indicate end of PT-descriptor 



LOCAL.BLOCK 

$ABS$,ABS 
.=HP$A.DEPENDENT 
.JJF NB,M8E$K_LEN, 
.RESTORE 
.ASCJC "MBE" ; MBE name 



MbESK.LEN: 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS ML11 

.SAtfE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

,=HP$A DEPENDENT 

.JJF NB,ML11$B ARRAY, ML 1 1 SB ARRAY: 

. I IF NB,.BLKB, .BLKB 1 

JJF NB,ML11$B_CHJP, ML11SB.CHIP: 

JJF NB,.8LKB, .BLKB 1 

JJF NB,ML11$K_LEN, ML11SK.LEN: 

.RESTORE 

.ASCJC M ML11" ; ML11 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



[01] 



.BYTE 8 



Maximum unit number 






ZZ-ENSAA-7.Q 

KOOE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



61 



20 
73 



80 
82 
00' 
72 
16 
00000010 00000001 
85 
65 7A 69 73 20 70 69 68 43 



66 
64 



6F 
72 



20 
61 



72 
6F 



65 
62 



62 
20 



6D 
79 



75 
61 



4E 
72 



4B 36 31 
4B 34 36 



00' 
09 

00 • 

03 

00' 

03 

00 

81 



00000032 



30 35 37 53 4D 



05 
08 
80 
81 



30 38 37 



0000000F 



61 20 66 6F 20 72 65 



62 
73 



6D 
79 



00000010 



00000032 
00000033 
00000034 



53 4D 

05 
08 
80 
82 

52 54 00' 
02 

00000001 
82 

75 4E 00' 

61 72 72 
10 

00000000 
81 



00000032 
00000036 



OFOO 
0F01 
0FO2 
OFOE 
0F02 
0F19 
0F21 
0F22 
0F22 
0F2C 
0F2C 
0F30 
0F30 
0F34 
0F35 
0F36 
0F36 
0F36 
0046 
0032 
O0000F36 
00' 0F36 
0F36 
0F3C 
0F3D 
0F3E 
0F3F 
0F3F 
0F3F 
0046 
0032 
0032 
0033 
0033 
0034 
00000F3F 
00* 0F3F 
0F3F 
0F45 
0F46 
0F47 
0F48 
0F48 
0F48 
0F53 
0F54 
0F60 
0F54 
0F65 
0F6D 
0F6E 
0F6E 
0F6E 
0046 
0032 
0032 
0036 



295 MS750: 



296 MS780; 



297 PCL11! 



.BYTE 
.BYTE 

.ASCJC 



.LONG 
.BYTE 
.ASCJC 



C 9 
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A X80 ; Constant to identify start of descriptor 

A X82 ; Indicate scan decimal 

"Number of array boards" ; Number of array boards string 



39 

(4) 



1,16 ; 1 

A X85 

"Chip size' 1 



16 limits on input 

; Indicate scan and verify string 
; Chip size string 



.ASCJC "16K" 



.ASCJC M 64K 



M 



.BYTE 

.3YTE A X81 

$DS MS750 

.SA?E LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.IJF NB,MS750SK„LEN, MS750SK LEN: 

.RESTORE 

.ASCJC "MS750" ; MS750 name 



Null length is end of valid 16K,64K 
Indicate end of PT-descriptor 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS,MS780 

.SAVE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.J IF " NB,MS780$B TR, MS780$B TR: 

.JJF NB..BLKB. " .BLKB "1 

.J IF NB,ms780*b arrays, ms780$b arrays: 

.JJF NB,.blkb. .blkb 1 

.JJF NB,MS780$K_LEN, MS780$K_LEN: 

.RESTORE 

.ASCIC "MS780" ; MS780 name 



.BYTE 8 

.BYTE A X80 

.BYTE A X82 

.ASCJC "TR" 



.LONG 
.8YTE 
.ASCJC 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
TR string 

1 



1,15 ; 1 , 15 limits on input 

A X82 ; Indicate scan decimal 

"Number of arrays" ; Number of arrays string 







.LONG 0,16 

.BYTE A X81 

SDS PCL11 

.SAVE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

JJF NB,PCL11$L_CSR, PCL1UL..CSR: 

.IJF NB,.BLKL> .BLKL 1 

.IIF NB,PCL11$B_BR, PCL11$B_BR: 



16 limits on input 
; Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 

KODE 

07-22 



Device description database 

- Interpreted code for IS? 
Device description database 



D 9 
27-JUL-1984 Fiche 8 Frame D9 Seguence 1549 
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40 
(4) 



00000037 



31 31 4C 

52 

0003FFFE 

52 4F 54 43 

000001 FE 

00000007 



43 50 

05 

20 

80 

83 
53 43 00' 

03 
0003E00O 

83 
45 56 00' 

06 
00000002 

82 
52 42 00' 

02 
00000004 

81 



0036 
0037 
OOO00F6E 

00' 0F6E 



00000032 
00000033 
00000034 
00000035 



30 38 37 



0000000F 

00000007 

65 64 

QQOQQQFF 



58 50 

05 

01 

80 

82 
52 54 00' 

02 
00000001 

82 
52 42 00' 

02 
00000004 

82 
6F 4E 00' 

04 
00000000 

81 



0F6E 
OF 74 
0F75 
0F76 
0F77 
0F77 
OF 78 
0F83 
0F84 
0F84 
CF8B 
0F93 
0r94 
0F94 
OF 97 
0F9F 
OFAO 
OFAO 
OFAO 
0046 
0032 
0032 
0033 
0033 
0034 
0034 
0035 
OOOOOFAO 
00' OFAO 



30 38 



OFAO 
0FA6 
0FA7 
0FA8 
0FA9 
0FA9 
OFAC 
0FB4 
0FB5 
0FB5 
0FB8 
OFCO 
0FC1 
0FC1 
0FC6 
OFCE 
OFCF 
OFCF 
OFCF 
0046 
0032 

OOOOOFCF 
52 00' OFCF 

03 OFCF 



00000032 



298 PX780 



299 R80: 



.IIF NB,.8LKB, .BUB 1 

.IIP NB,PCL11$K..LEN, PCL 1 .1$KJ.EN: 

.RESTORE 

.ASCJC "PCL11" ; PCL11 name 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



3? 

A X80 
A X83 
"CSR' 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O76O000, A O?77776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 

• it 



VECTOR 



1 1 



VECTOR string 



A 02, A 0776 
A X82 



•■br m 



BR string 
4 , 



2 , 776 Limits on input 
Indicate scan decimal 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 4,7 

.BYTE A X81 

$DS PX780 

.SAVE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.119 " NB,PX780$B TR, PX780SB TR: 

.UP NB,.BLKB, .BLKB 1 

.J IF NB,PX780$B BR, PX780SB BR: 

,UF N8,.BLKB, .BLKB 1 

. J J F NB ,PX780$B„N0DE . PX780$B,N0DE : 

.JIF NB,.BLKB, .BLKB 1 

.IIF NB,PX780$K_LEN, PX780$K„LEN: 

.RESTORE 

PX780 name 



\ 



.ASCJC "PX780 1 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
$DS R80 
.SAVE 
.PSECT 



1 

A X80 
A X82 
"TR" 

1 ' 1 5 

A X82 
"BR" 

A X82 
"Node" 

0,255 
A X81 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
TR string 

1 , 15 limits on input 

; Indicate scan decimal 
BR string 

4 , 7 limits on input 

; Indicate scan decimal 
Node string 

, 255 limits on input 

; Indicate end of PT-descriptor 



L0CAL_BL0CK 

$ABS$,ABS 
,=HP$A DEPENDENT 
Alf " NB,R80$K_LEN, 
.RESTORE,, „ 
.ASCJC "R80" ; R80 name 



[02] 



R80$K_LEN: 



ZZ-ENSAA-7,0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



E 9 

27-JUL-1984 Fiche 8 Frame E9 Seguence 1550 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :[SYS0.SYSMAJNT]JCODE.MAR;43 



41 
(4) 



08 
80 
81 



00000032 



30 36 41 52 



0FD3 
0FD4 
0FD5 
0FD6 
0FD6 
0FD6 
0046 
0032 
0032 
00000FD6 
00' 0FD6 



04 
FF 
80 
81 



00000032 



30 38 41 52 



04 
FF 
80 
81 



00000032 



0FD6 
0FDB 
0FDC 
CFDD 
0FDE 
0FDE 
OFDE 
0046 
0032 
0032 
00000FDE 
00* OFDE 



31 38 41 52 



OFDE 
0FE3 
0FE4 
0FE5 
0FE6 
0FE6 
0FE6 
0046 
0032 
0032 
00000FE6 
00* 0FE6 



04 

80 
81 



00000032 



00000036 



00000037 



30 33 37 42 52 



0FE6 
OFEB 
OFEC 
OFED 
OFEE 
OFEE 
OFEE 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00000FEE 
00' OFEE 



05 
00 
80 
81 



OFEE 
0FF4 
0FF5 
0FF6 



300 RA60: 



301 RA80; 



302 RA81: 



303 RB730; 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RA60 

.SAVE LOCAL BLOCK 

.PSECT $ABS$TABS 

.-HP$A DEPENDENT 

.IJF " NB,HP$K RA60 LEN, HP$K_RA60,LEN: 

.11F NB,RA60$K_LER, RA6Q$K_LEN: 

.RESTORE 

.ASCJC ,I RA60" ; RA60 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS RA80 

.SAVE LOCAL.BLOCK 

.PSEC1 $ABS$,ABS 

.=HP$A_DEPENDENT 

. J i F NB,HP$K RA80 LEN, HP$K_RA80_LEN : 

.JJF NB,RA80lK_LEfl, RA80$K.LEN: 

.RESTORE 

.ASCJC l, RA80 M ; RA80 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



C023 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS RA81 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

,=HP$A DEPENDENT 

.JJF " NB,HP$K RA81 LEN, HP$K_RA81_LEN: 

,JIF NB,RA81JK.LER, RA81$K_LEN: 

.RESTORE 

.ASCJC "RA81" ; RA81 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS RB730 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.JJF ' 

.JIF 

.JJF 

.JIF 

.IJF 

.JIF 

.JIF 

.UF 

.RESTORE, 

.ASCJC M RB730 M 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



[023 



NB,HP$L RB730 CSR, HP$L_RB730 CSR: 

NB,RB730$L„CSR, RB730SL CSR: 

NB,.BLKL, .BLKL 1 

NB , HP$B RB730 M BR , HP$B.RB730.BR : 

NB , RB730SB.BR , RB730$B„BR : 

NB,.BLKB, .BLKB 1 

NB,HP$K RB730 LEN, HP$K RB730.LEN: 

NB,RB730$K_LER, RB730$K_LEN: 



RB730 name 



.BYTE 
.BYTE A X80 
.BYTE A X81 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code tor TSP 
Device description database 



P 9 

27-JUL-1984 Fiche 8 Frame F9 Sequence 1551 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINTJIC0DE.MAR;43 



0FF7 

0FF7 

0FF7 

00000032 0046 

0032 

0032 

00000FF7 

35 32 46 43 52 00' 0FF7 

05 0FF7 

n 0FFD 

80 0FFE 

81 0FFF 
1000 
1000 
1000 
1000 

00000032 0046 
0032 
0032 
00001000 
00' 1000 



35 32 43 52 



04 
FF 
80 
81 



00000032 



31 35 44 52 



00 
04 
FF 
80 
81 



00000032 



1000 
1005 
1006 
1007 
1008 
1008 
1008 
0046 
0032 
00001008 



32 35 44 52 



04 
FF 
80 
81 



00000032 



00000033 



1008 
1008 
100D 
100E 
100F 
1010 
1010 
1010 
0046 
0032 
00001010 
00' 1010 



1010 
1015 
1016 
1017 
1018 
1018 
1018 
0046 
0032 
0032 
0032 
0033 
0033 
00001018 



304 RCF25: 



305 
306 



;1221 
RC25: 



307 RD51: 



308 RD52: 



$DS RCF25 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.IJF " NB,HP$K RCF25 LEN, HP$K_RCF25_LCN: 

.IJF NB,RCF25$K..LER, RCF25$K_LEN: 

.RESTORE 

.ASCIC M RCF25" ; RCF25 name 



42 
(4) 

C12] 



.BYTE 255 
.BYTE A X80 
.BYTE A X81 
RC11: $DS RC11 

SDSRC25 

.SAVE LOCAL BLOCK 
.PSECT $ABS$7ABS 
.=HP$A_DEPENDENT 

.IJF NB,HP$K RC25 LEN, HP$K_RC25_LEN: 
AU NB,RC25$K.LER, RC25$K_LEN: 
.RESTORE 
.ASCIC M RC25 n ; RC25 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



309 RH750: 



[15] 
[11] 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS RD51 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

,=HP$A DEPENDENT 

.IJF " NB,RD51$K_LEN, RD51SK.LEN: 

.RESTORE 

.ASCIC n RD51" ; RD51 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



[19] 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS RD52 

.SAVE LOCAL.BLOCK 

.PSEZJ $ABS$,ABS 

.=HP$A_DEPENDENT 

.JIF NB,RD52$K_LEN, RD52$K_LEN: 

.RESTORE 

.ASCIC "RD52 M ; RD52 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



[19] 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 255 

.BYTE *X80 

.BYTE A X81 

$DS RH750 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

,=HP$A DEPENDENT 

.JIF " NB,HP$B RH750.BR, HP$B_RH750_BR: 

.JIF NB,RH750$B BR, RH750SB.BR: 

.IJF NB,.8LKB, .BLKB 1 

.1 If NB,HP$K RH750 LEN, HP$K„RH750,LEN; 

.JIF NB,RH750$K.LEfl, RH750$K_LEN: 

.RESTORE 



ZZ-ENSAA-7,0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



6 9 
27-JUL-1984 Fiche 8 Frame G9 Sequence 1552 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 43 
23-JUL-1984 16:23:10 DMA1 :[SYS0.SYSMAINniCODE.MAR;43 (4) 



30 35 37 48 52 00' 
05 
08 
80 
82 
52 42 00' 
02 

00000007 00000004 
81 



00000032 



00000033 



00000034 



30 38 37 



OO000OOF 
00000007 



48 52 

05 
08 
80 
82 

52 54 00' 
02 

00000001 
82 

52 42 00' 
02 

00000004 
81 



1018 
1018 
101E 
101F 
1020 
1021 
1021 
1024 
102C 
102D 
102D 
102D 
0046 
0032 
0032 
0032 
0033 
0033 
0033 
0034 
0034 
0000102D 
00' 102D 



00000032 



31 30 4C 52 



04 
08 
80 
81 



00000032 



102D 
1033 
1034 
1055 
1036 
1036 
1039 
1041 
1042 
1042 
1045 
104D 
104E 
104E 
104E 
0046 
0032 
0032 
0000104E 
00' 104E 



12 30 4C 52 



104E 
1053 
1054 
1055 
1056 
1056 
1056 
0046 
0032 
0032 
00001056 
00' 1056 
04 1056 
08 105B 



310 RH780: 



311 RL01 



312 RL02: 



.ASCIC 

.BYTE 
.BYTE 
.BYTE 
.ASCJC 



"RH750 M 

8 

A X80 
A X82 



i « 



BR" 



RH750 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan decimal 
BR string 



.LONG 
.BYTE 



4 



7 limits on input 
; Indicate end of PT-descriptor 



4,7 

A X81 
$DS RH780 

.SAVE LOCAL.BLOCK 
.PSECT $ABS$,ABS 
.=HP$A_DEPENDENT 

.UF NB,HP$B RH780 TR, HP$B RH780_TR: 

.UF NB,RH780$B_TR7 RH780SBJR: " 

.UF NB,.BLKB, .BLKB 1 

.UF NB,HP$B RH780 BR, HP$BJ?H780_BR: 

.UF NB,RH780$B_8R7 RH780SB BR: 

.UF NB,.BLKB, .BLKB 1 

.UF NB,HP$K RH780 LEN, HP$K RH780.LEN: 

.UF NB,RH780$K_LEfl, RH780$K_LEN: 

.RESTORE 

RH780 name 



.ASCIC 

.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



M RH780 M 

8 

A X80 
A X82 
M TR M 

1,15 

A X82 
"BR" 



4,7 
A X81 



; Maximum unit number 

; Constant to identify start of descriptor 

; Indicate scan decimal 
TR string 

1 , 15 linrits on input 

; Indicate scan decimal 
BR string 



7 limits on input 
; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS RL01 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A„DEPENDENT 

.UF NB,HP$K RL01 LEN, HPSK..RL01..LEN: 

.IIF NB,RL01$K LEN, RL01$K.LEN: 

-RESTORE 

.ASCIC M RL0r i ; RL01 name 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

IDS RL02 

.SAVE L0CAL_BL0CK 

.PSECT $ABS$,ABS 

.=HP$A.DEPENDENT 

.UF NB,HP$K RL02 LEN, HP$K_RL02J.EN: 

-JIF NB,RL02$K,LEFJ, RL02$K,LEN: 

.RESTORE 

.ASCIC M RL02 M ; RL02 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 



Maximum unit number 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for JSP 
Device description database 



H 9 
27-JUL-1984 Fiche 8 Frame H9 Sequence 1553 

27-JUL-1984 15:21:28 VAX-1 1 Macro V03-01 Page 44 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT:IC0DE.MAR;43 (4) 



80 
81 



00000032 



00000036 



00000037 



31 31 4C 52 

04 

00 

80 

83 

52 53 43 00' 

03 

0003FFFE 0003E000 

83 

52 4F 54 43 45 56 00' 

06 

000001 FE 00000002 

82 

52 42 00' 

02 

00000007 00000004 

81 



105C 
105D 
105E 
105E 
105E 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001 05E 
00* 105E 



00000032 



36 30 4B 52 



105E 
1063 
1064 
1065 
1066 
1066 
106A 
1072 
1073 
1073 
107A 
1082 
1083 
1083 
1086 
108E 
108F 
108F 
108F 
0046 
0032 
0032 
00001 08F 
00' 108F 



04 
08 
80 
81 



00000032 



37 30 48 52 



108F 
1094 
1095 
1096 
1097 
1097 
1097 
0046 
0032 
0032 
00001097 



00 
04 
08 
80 
81 



1097 
1097 
109C 
109D 
109E 
109F 



313 RL11 



314 RK06: 



315 RK07: 



A X80 
A X81 



.BYTE 

.BYTE 

$DS RL11 

.SA7E LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$AJ)EPENDENT 



Constant to identify start of descriptor 
Indicate end of PT-descriptor 



.IIF 
.IIF 

.IIF 

.IIF 

.IIF 

.UF 

.lit 

.IIF 

.RESTORE 

.ASCIC 

.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.L0MG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



NB,HP$L RL11 CSR, HP$L_RL11,CSR: 

NB,RL11|L_CSR, RL11$L_CSR: 

NB,.BLKL, .BLKL 1 

NB,HP$B RL11 BR, HPSB.RLll^BR: 

NB, RL11lB.BR: RL11$B_BR: 

NB,.8LKB. .BLKB 1 

NB,HP$K RL11 LEN, HP$K_RLl1j.EN: 

NB,RL11SK_LER, RL11$K_LEN: 



M 



RL11 





A X80 
A X83 
M CSR" 



RL11 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O76O00O, A 0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 

•VECTOR" 



A 02, A 0/76 
*X82 



i »i 



BR 



I I 



; VECTOR string 

; 2 , 776 limits on input 
; Indicate scan decimal 
8R string 



4,7 
A X81 



4 



7 limits on input 
; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS RK06 

.SAtfE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

,IIF NB,HP$K RKQ6 LEN, HP$K_RK06j.EN: 

.Uf NB,RKQ6$K_LEF), RK06$K_LEN: 

.RESTORE 

.ASCIC °RK06 M ; RK06 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RK07 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A^DEPENDENT 

.UF NB,HP$K RK07 LEN, HP$KJ*K07 L EN: 

.IIF NB,RK07SK - LER. RK07SK.LEN: 

.RESTORE 

.ASCIC "RK07" ; Rk07 name 



316 RK611 



.BYTE 8 
.BYTE A X80 
.BYTE A X81 
$DS RK611 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



I 9 
27-JUL-1984 Fi che 8 Fra/ne 19 Seguence 1554 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 45 
23-JUL-1984 16:23:10 DMA1 :CSYSO.SYSMAINT]ICOD£.MAR;43 (4) 



00000032 



00000036 



00000037 



31 31 36 48 52 

05 
00 
80 
83 
52 53 43 00' 
03 

0003FFFE 0003E000 
83 
52 4F 54 43 45 56 00' 

06 

000001FE 00000002 
82 
52 42 00' 
02 

00000007 00000004 
81 



109F 
109F 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001 09F 
00' 109F 



00000032 



33 30 4D 52 



04 
08 
80 
81 



00000032 



109F 
10A5 
10A6 
10A7 
10A8 
10A8 
10AC 
10B4 
1085 
10B5 
108C 
10C4 
10C5 
10C5 
10C8 
10D0 
10D1 
10D1 
10D1 
0046 
0032 
0032 
000010D1 
CO 1 10D1 



35 30 4D 52 



04 
08 
80 
81 



00000032 



10D1 
10D6 
10D7 
10D8 
10D9 
10D9 
10D9 
0046 
0032 
0032 
00001 0D9 
00' 10D9 



10D9 
10DE 
10DF 
10E0 
10E1 
10E1 
10E1 
0046 



317 RM03: 



318 RM05: 



319 RM80: 



.SAVE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.1U ~ NB,HP$L RK611 CSR, HP$L_RK61 1_CSR: 

NB,RK61T$L..CSR, RK611$L_CSR: 

NB,.BLKL, .BLKL 1 

NB,HP$B RK611.BR, HP$B_RK61 1.BR: 

NB,RK61T$B BR, RK611$B_BR: 

NB,.8LK8, .BLKB 1 

NB,HP$K RK611 LEN, HPSK.RK61 1.LEN: 

NB,RK61T$K_LER, RK61UK.LEN: 



.IJF 

.JIF 

.IJF 

.11? 

.lU 

.IJF 

.JIF 

.RESTORE 

.ASCIC 



1 1 



RK61 1 



i • 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCIC 





A X80 
A X83 
M CSR M 



RK611 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A 0760000, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 



1 1 



VECTOR 



> i 



VECTOR string 



A 02, A 0776 

A X82 

••BR" 



4,7 
A X81 



BR string 
4 



2 , 776 limits on input 
Indicate scan decimal 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS RM03 

.SAtfE LOCAL BLOCK 

.PSECT $ABS$TABS 

.=HP$A.DEPENDENT 

.IJF NB,HP$K RM03 LEN, HP$K_RM03_LEN: 

.JIF NB,RM03$K„LER, RM03$K,LEN: 

.RESTORE 

.ASCIC M RM03 M ; RM03 name 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RM05 

.SAVE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.11^ " NB,HP$K RM05 LEN, HP$K_RM05„LEN: 

.IIF NB,RM05$K LER, RM05SK LEN: 

.RESTORE 

.ASCIC n RM05 M ; RM05 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RM80 

.SAVE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



ZZ-ENSAA-7,0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



J 9 

27-JUL-1984 Fiche 8 Frame J9 

27-JUL-1984 15:21:23 VAX-11 Macro 



Sequence 1555 
V03-0T Pa 



23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT3IC0DH.MAR 



% 



46 
(4) 



30 38 4D 



0032 
0032 

000010E1 
52 00' 10E1 

04 



08 
80 
81 



00000032 



34 30 50 52 



10E1 
10E6 
10E7 
10E8 
10E9 
10E9 
10E9 
0046 
0032 
0032 
00001 0E9 
00' 10E9 



04 
08 
80 
81 



00000032 



35 30 50 52 



10E9 
10EE 
10EF 
10F0 
10F1 
10F1 
10F1 
0046 
0032 
0032 
00001 OF 1 
00* 10F1 



04 
08 
80 
81 



00000032 



36 30 50 52 



00 
04 
08 
80 
81 



00000032 



10F1 
10F6 
10F7 
10F8 
10F9 
10F9 
10F9 
0046 
0032 
0032 
00001 0F9 



37 30 50 52 



10F9 
10F9 
10FE 
10FF 
1100 
1101 
1101 
1101 
0046 
0032 
0032 
00001101 
00' 1101 



04 
08 
80 
81 



1101 

1106 
1107 
1108 
1109 



320 RP04: 



321 RP05: 



322 RP06: 



323 RP07; 



.J IF NB,HP$K RM80 LEN, HP$K_RM80 LEN: 

.JJF NB,RM805K_LER, RM80$K,LEN: 

.RESTORE 

.ASCIC "RM80 M ; RM80 name 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RP04 

.SAVE LOCAL BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.JJF NB,HPSK RP04 LEN, HP$K RP04 LEN; 

.IIF NB,RP04$K..LER, RP04$K.LEN: " 

.RESTORE 

.ASCIC M RP04° ; RP04 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RP05 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

,=HP$A DEPENDENT 

. JJF " NB,HP$K RP05 LEN. 

.JJF NB,RP05$K_LER, RP05$K 

.RESTORE 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HP$K w RP05^LEN: 
LEN: 



.ASCIC M RP05' 



RP05 name 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS RP06 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

•JJF " NB,HP$K RP06 LEN, 

.JJF NB,RP06SK„LER, RP06SK 

.RESTORE 

.ASCIC "RP06 M ; RP06 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HP$K RP06„LEN: 
LEN: 



.BYTE 8 
.BYTE A X80 
.BYTE A X81 
$DS RP07 

.SAVE LOCAL.BLOCK 
.PSECT $ABS$,ABS 
.=HP$A DEPENDENT 
.JJF NB,HP$K_RP07 



LEN 



.JJF NB,RP07SKJ.ER, RP07SK.LEN: 

.RESTORE 

.ASCIC H RP07 n ; RP07 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HP$K.RP07 <w LEN: 



324 RQDX1 



.BYTE 8 
.BYTE A X80 
.BYTE A X81 
$DS.RQDX1 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



C193 



ZZ-ENSAA-7.0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



K 9 

27-JUL-1984 Fiche 8 Frame K9 Seguence 1556 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 47 
23-JUL-1984 16:23:10 DMA1 :[SYS0.SYSMAINT:]IC0DE.MAR;43 (4) 



00000032 
00000036 



31 58 44 



0003FFFC 



51 52 

05 
00 
80 
83 

50 49 00 
02 

0003EQOO 
81 



1109 
1109 
0046 
0032 
0032 
0036 
00001109 
00 1 1109 



00000032 



32 30 58 52 



1109 
110F 
1110 
1111 
1112 
1112 
1115 
111D 
111E 
111E 

0046 
0032 
0032 
0000111E 
00' 111E 



04 
02 
80 
81 



00000032 



00000036 



00000037 



31 31 32 58 52 00 

05 

00 

80 

83 
53 43 00 

03 
0003EOOO 

83 1138 
45 56 00' 113C 

06 113C 
00000002 1143 

82 114B 
52 42 00' IKc 

02 114C 
00000007 00000004 114F 



52 

0003FFFE 

52 4F 54 43 

000001 FE 



1 1 1E 

1123 
1124 
1125 

1126 
1126 
1126 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001126 
1126 
1126 
112C 
1120 
112E 
112F 

112? 

1133 



325 RX02: 



326 RX211 



.SAVE LOCAL BLOCK 

.PSECT $ABS$TABS 

.=HP$A^DEPENDENT 

.JIF NB,RQDX1$LJP, RQDX1$L JP: 

.JIF NB,.BLKL, .BLKL 1 

.IIF NB,RQDX1$K_LEN, RGDX1$K^LEN: 

.RESTORE 

.ASCJC "RQDXI" ; RQDX1 name 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 





A X80 

A X83 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
IP string 



A 0760000, A 0777774 ; 760000 , 77777** limits on input 
A X81 ; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS RX02 

.SA7E LOCAL BLOCK 

.PSECT $ABS$TABS 

,=HP$A„DEPENDENT 

.JIF NB,HP$K RX02 LEN. HP$K_RX02_LEN: 

.IJF NB,RX02SKJ.ER, RX02$K,LEN: 

.RESTORE 

.ASCJC M RX02 M ; RX02 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 2 

.BYTE A X80 

.BYTE A X81 

$DS RX211 

.SAtfE LCCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.JIF NB,HP$L .RX211 CSR, HP$L_RX211_CSR: 

. JIF NB,RX21T$L„.CSR, RX211$L_CSR: 

.JIF NB,.8LKL, .BLKL 1 

.IJF NB,HP$B RX211.BR, HPSB.RX21 1.BR: 

.UF NB,RX21T$B BR, RX211$B_BR: 

.JIF NB,.8LKB, .BLKB 1 

.IJF NB,HP$K RX21 i" LEN, HPSK.RX21 1.LEN: 

.JIF NB,RX2lT$K LEF), RX211SK LEN: 

.RESTORE 

.ASCJC "RX211 -- ; RX211 name 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
♦ASCJC 

.LONG 





A X80 
A X83 
"CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A 0760000, A 0777776 ; 760000 , 777776 limits on input 
A X83 ; Indicate scan octal 

; VECTOR string 



•'VECTOR 



i « 



A 02/07?6 
A X82 



••BR" 
4,7 



; 2 , 776 limits on input 
; Indicate scan decimal 
BR String 

4 , 7 limits on input 



.-.., 



ZZ-ENSAA-7.0 

1C00E 

07-22 



Device description database 

- Interpreted code for JSP 
Device description database 



L 9 
27-JUL-1984 Fiche 8 Frame L9 

27-JUL-1984 15:21:28 VAX-11 Macro 



Sequence 1557 
V03-OT Pa 



81 1157 

1158 

1158 

1158 

00000032 0046 

0032 

00001158 

30 35 58 52 00' 1158 



04 
FF 
80 
81 



00000032 



41 49 42 53 



1158 
115D 
115E 
115F 
1160 
1160 
1160 
0046 
0032 
0032 
00001160 
00' 1160 



04 
02 
80 
81 



00000032 



36 31 45 54 



1160 
1165 
1166 
1167 
1168 
1168 
1168 
0046 
0032 
0032 
00001168 
00' 1168 



04 
08 
80 
81 



00000032 



00000033 



1168 
116D 
1i6E 
116F 
1170 
1170 
1170 
0046 
0032 
0032 



33 30 4D 54 

04 
00 
80 
82 

45 56 49 52 44 00' 
05 

00000007 00000000 
81 



00S? 
0033 
0033 
00001170 
00' 1170 



1170 
1175 
1176 
1177 
1178 
1178 
117E 
1186 
1187 
1187 



327 RX50: 



328 SBIA: 



329 TE16: 



330 TM03: 



331 TM78: 



23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT3IC00E.MAR 
Indicate end of PT-descriptor 



n 



.BYTE A X81 

$DS RX50 

.SAtfE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

,=HP$A,DEPENDENT 

.JIF NB,RX50$K..LEN, RX50SK LEN: 

.RESTORE 

.ASCK M RX50 M ; RX50 name 



48 
(4) 



[193 



.BYTE 255 

.BYTE A X80 

.BYTE A X81 

$DS SBIA 

.SA7E LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A,DEPENDENT 

.IIF NB,HP$K SBIA LEN, HP$K_SBJA„LEN: 

.JIF NB,SBIASKJ.ER, SBIASK.LEN: 

.RESTORE 

.ASCJC "SBIA" ; SBIA name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



C15J 



.BYTE 2 

.BYTE A X80 

.BYTE A X81 

$DS TE16 

.SAtfE LOCAL BLOCK 

.PSECT $A8S$,A8S 

.=HP$A_DEPENDENT 

.Uf NB,HP$K TE16 LEN, MP$K_TE16„LEN: 

.IJF NB,TE16$K_LER, TE16SK LEN: 

.RESTORE 

.ASCJC M TE16" ; TE16 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS TM03 

.SAtfE L0CAL.BL0CK 

.PSECT $ABSS,ABS 

.=HP$A„DEPENDENT 

.IJF NB,HP$BTM03 DRIVE, 

.JIF NB,TM03lB„DRlVE, 

.JIF NB,.BLKB, .BLKB 

.JIF NB,HP$K TM03 LEN, 



.IIF NB,TM03$K„LEN, 

.RESTORE 

.ASCJC M TM03 M ; TM03 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HPSBTM03 DRIVE: 
TM03JB DRIVE: 
1 
HPSK..TM03..LEN: 



TM03$K_LEN: 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 





A X80 

A X82 . . 

"DRIVE" ; DRIVE string 



Maximum unit number 

Constant to identify start of descriptor 

Indicate scan decimal 



0,7 
A X81 







.LONG 

.BYTE 

$DS TM78 

.SAVE LOCAL.BLOtK 



7 limits on input 

; Indicate end of PT-descriptor 



C013 



ZZ-ENSAA-7.0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



N 9 
27-JUL-1984 Fiche 8 Frame M9 Sequence 1558 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT3IC0DE.MAR;43 



49 
(4) 



00000032 



00000033 



38 37 AD 54 00 
04 
00 
80 

52 44 00' 
05 

00000000 
81 



45 56 49 
00000007 



1187 
0046 
0032 
0032 
0032 
0033 
0033 
00001187 
1187 
1187 
118C 
118D 
118E 
118F 
118F 



34 30 

52 

0003FFFE 

52 4F 54 43 

000001FE 

00000007 



00000032 



00000036 



00000037 



53 54 

04 

01 

80 

83 
53 43 00' 

03 
0003E000 

83 
45 56 00' 

06 
00000002 

82 
52 42 00' 

02 
00000004 

81 



1195 
119D 
119E 
119E 
119E 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
C000119E 
00* 119E 



35 30 53 



119E 
11 A3 
11A4 
11A5 
11A6 
11A6 
11AA 
11B2 
11B3 
11B3 
11BA 
11C2 
11C3 
11C3 
11C6 
1 1CE 
11 CF 
11CF 
1 1 CF 
0046 
0032 
0032 
0033 
0033 
0G0011CF 
54 00' 1 1 CF 



000C0032 
00000033 



332 TS04: 



333 TS05: 



.PSECT $ABS$,ABS 

.=HP$A„DEPENDENT 

.JJF NB,HP$BTM78 DRIVE, HPSBTM78 DRIVE: 

. J I F NB , TM78$B„DR7VE , TM78$B_DRT VE : 

.IIF NB,.BLK8, .BLKB 1 

A\F NB,HP$K TM78 LEN, HP$K_TM78 LEN: 

.IIF NB,TM78$K,LEfJ, TM78$K LEN: 

.RESTORE 

TM78 name 



•ASCJC 

.BYTE 
.BYTE 
.BYTE 
.ASCJC 



M TM78" 



A X80 
A X82 
"DRIVE' 



Maximum unit number 

Constant to identify start of descriptor 
Indicate scan decimal 
DRIVE string 



0,7 
A X81 







, 7 Limits on input 

; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS TS04 

.SAflE L0CAL.BL0CK 

.PSECT $ABS$,ABS 

.=HP$A^DEPENDENT 

JJF NB,HP$L TS04 CSR, HP$L_TS04„CSR: 

.IIF NB,TS04$L_CSR, TS04SL.CSR: 

JIF NB,.BLKL, .BLKL 1 

.J IF NB,HP$B TS04„BR, HP$B_T504 BR: 

.JJF NB,TS04lB BR, TS04SB BR: 

JJF NB,.BLKB,~ .BLKB " 1 

JIF NB,HP$K TS04 LEN, HPSK..TS04 LEN: 

.IIF NB,TS04$K - ,LEfl, TS04$K_LEN: 

.RESTORE 

.ASCJC M TS04 M ; TS04 name 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



1 

A X80 
A X83 
M CSR M 



Maximum unit number 

Constant to identify start of descriptor 
Indicate scan octal 
CSR string 



"0760000, *Q777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 

•VECTOR" ; VECTOR string 



A 02, A 0776 
A X82 



'•BR 11 



; 2 , 776 limits on input 
; Indicate scan decimal 
; BR string 



A, 7 
A X81 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS TS05 

,SA?E LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

•IIF " NB,TS05$B BR, TS05SB.BR: 

.JJF NB,.BLKB, .BLKB 1 

JJF NB,HP$K TS05 LEN, HP$K_TS05 LEN: 

JJF NBJS055K LER, TS05SK LEN: 

.RESTORE 

.ASCJC "TS05 M ; TS05 name 



C183 



ZZ-ENSAA-7,0 
I CODE 
07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



N 9 
27-JUL-1984 Fiche 8 Frame N9 

27-JUL-1984 15:21:28 VAX-11 Macro 
23-JUL-1984 16:23:10 



Sequence 1559 
V03-0T 



Pag 
DMA1 :CSYS0.SYS«AINTJIC0DE,MAR;2 



50 
(4) 



44 41 5F 52 53 A3 5F 



35 
53 



30 
53 



53 

45 



54 
52 



0003FFFE 
52 4F 54 43 45 56 5F 35 30 

000001 FE 

4C 45 56 45 4C 5F 

00000007 



04 
08 
80 
83 
00 
44 
10 

0O03E000 
83 

53 54 00 
08 

00000002 
82 

52 42 00 
08 

00000004 
81 



00000032 



00000036 



00000037 



31 31 53 54 00 

04 

01 

80 

83 

52 53 43 00 

03 

0003FFFE 0003EOOO 

83 

52 4F 54 43 45 56 00 

06 

000001FE 00000002 

82 

52 42 00 

0"> 

00000007 00000004 

81 



11CF 

11D4 
11D5 
11D6 
11D7 
11E3 
11D7 
11L8 
11F0 
11F1 
11F1 
11FD 
1205 
1206 
1206 
120F 
1217 
1218 
1218 
1218 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001218 
1218 
1218 
121D 
121E 
121F 
1220 
1220 



00000032 



35 34 55 54 



1224 
122C 
122D 
122D 
1234 
123C 
123D 
123D 
1240 
1248 
1249 
1249 
1249 
0046 
0032 
0032 
00001249 
00' 1249 
04 1249 
08 124E 



334 TS11: 



335 TU45: 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 



.LONG 
.BYTE 
•ASCIC 

.LONG 
.BYTE 
.ASCJC 



8 

A X80 
A X83 
TS05 CSRJ\DDRESS 



• i 



1 1 



Maximum unit number 

Constant to identify start of descriptor 

Indicate scan octal 

; TS05_CSR_ADDRESS string 



"0760000, "0777776 ; 760000 , 777776 limits on input 

*X83 ; Indicate scan octal 

M TS05_VECT0R" ; TS05.VECT0R string 



A 02, A 0776 

A X82 

•"BR LEVEL' 



2 , 776 limits on input 
Indicate scan decimal 
BR LEVEL string 



4,7 

A X81 



7 limits on input 
; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS TS11 

.SAVE LOCAL,BLOCK 

.PSECT SABSS,AfcS 

.=HP$A DEPENDENT 

.JIF m NB,HP$L TS11 CSR, HP$L.TS11.CSR: 

.JIF NB,TS11SL CSR, TS11SL.CSR: 

• J IF NB,.BLKL, .BLKL 1 

.JIF NB,HP$B TS11.8R, HP$B.TS11^BR: 

•IJF NB,TS11$B BR, TS11SB BR: 

.JIF NB,.BLKB,"" .BLKB " 1 

.IIF NB,HP$K TS11 LEN, HP$K.TS11.LEN: 

.JIF NB,TSMlK LER, TS11$K_LEN: 

.RESTORE 

.ASCIC ,4 TS11" ; TS11 name 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 

.Asnc 



1 

A X80 
A X83 
M CSR' 



Maximum unit number 

Constant to identify start of descriptor 
Indicate scan octal 
CSR string 



A 0760000, "0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 



•VECTOR" 

A 02/07?6 
A X8$ 



VECTOR string 



"BR M ; BR string 
; 4 



2 * 776 limits on input 
Indicate scan decimal 



4,7 

A X81 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$D2 TU45 

,SA?E LOCAL^BLOCK 

.PSECT $ABS$7ABS 

.=HP$A DEPENDENT 

.IIF " NB,HP$K TU45 LEN, HP$K_TU45„LEN: 

AU NB,TU45$K LEN, TU45SK.LEN: 

.RESTORE 

.ASCIC H TU45 M ; TU45 name 



.BYTE 8 



Maximum unit number 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Devke description database 

- Interpreted code for TSP 
Device description database 



B 10 
27-JUL-1984 Fiche 8 Frame B10 Sequence 1560 

27-JUL-1984 15:21 : 28 VAX-11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :CSYSO.SYSMAINT3ICODE.MAR;?3 



51 
<4> 



80 
81 



00000032 



38 35 55 54 



124F 
1250 
1251 
1251 
1251 
0046 
0032 
0032 
00001251 
00' 1251 



04 
02 
80 
81 



00000032 



37 37 55 54 



1251 
1256 
1257 
1258 
1259 
1259 
1259 
0046 
0032 
0032 
00001259 



00 
04 
08 
80 
81 



00000032 



38 37 55 54 



1259 
1259 
125E 
125F 
1260 
1261 
1261 
1261 
0046 
0032 
0032 
00001261 



00 
04 
08 
80 
81 



00000032 
00000036 



00000037 



30 38 55 54 



1261 
1261 

1266 
1267 
1268 
1269 
1269 
1269 
0046 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001269 



44 41 5F 52 53 43 5F 



30 
53 



38 
53 



55 
45 



54 
52 



00 

04 

08 

80 

83 

00' 

44 



1269 
1269 
126E 
126F 
1270 
1271 
127D 



336 TU58: 



337 TU77: 



338 TU78: 



339 TU80: 



.BYTE A X80 ; Constant 

.BYTE A X81 ; Indicate 

$DS TU58 

.SAtfE LQCAL„8L0CK 

.PSECT $ABSS,A8S 

.=HP$A DEPENDENT 

•I JF " N6,HP$K TU58 LEN, HP$K TU58 LEN: 

-I IF NB,TU58*K LER, TU58SKJ.EN: 

.RESTORE 

.ASCJC "TU58 M ; TU58 name 



to identify start of descriptor 
end of PT-descriptor 



.BYTE 2 j 

.BYTE A X80 

.BYT: A X81 

$DS TU77 

.SA7E LOCAL BLOCK 

.PSECT $ABS$7ABS 

.=HP$A DEPENDENT 

- 1 JF " NB,HPSK TU77 LEN. . . 

. J JF NB,TU77SK..LER, TU77$K.LENt 

.RESTORE 

.ASCJC M TU77" ; TU77 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HP$K_TU77_LEN: 



.8YTE 8 

.BYTE A X80 

.BYTE A X81 

SDS TU78 

.SAfa L0CAL.BL0CK 

.PSECT $ABSS,ABS 

.=HP$A DEPENDENT 

. J JF " NB,HP$K TU78 LEN, HPSK.TU78 LEN: 

.J JF NBJU785K LEN, TU78$K^LEN: 

.RESTORE 

.ASCJC M TU78 M ; TU78 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



con 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS"U80 

.SAtfE L0CAL_BL0CK 

-PSECT *ABS$TABS 

.=HP$A DEPENDENT 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



C08D 



. J JF 

.UK 
. J JF 
. J IF 

. J JF 
- J JF 

.JIF 

.RESTORE 
.ASCJC M TU80 n 



NB,HP$L TU80_CSR, HPSL.TU80.CSRt 

NU.BLKC, .BLKL 1 

NB//U80SB BR, TU80SB.BR: 

NB,HP$B T080^BR, HP$B^TU80 BR: 

N8,.8LKB, .8LKB 1 

NB,HPSK YU80 LEN, HPSKJU80 LEN: 

NB,TU80$K_LER, TU80SK.LEN: 

TU80 name 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 



8 ; Maximum unit number 

A X80 ; Constant to identify start of descriptor 

A X83 ; Indicate scan octal 

TU80^CSR.ADDRESS n ; TU80_CSR_ADDRESS string 



1 1 



ZZ-ENSAA-7.0 

1C0DE 

07-22 



Device description database 

- Interpreted code for JSP 
Device description database 



C 10 
27-JUL-1984 Fiche 8 Fra*.e C10 Seguence 1561 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT]ICODE.MAR;43 



52 

a) 



0003FFFE 



52 4F 54 A3 45 56 5F 30 38 

000001FE 

4C 45 56 45 4C 5F 

00000007 



10 
O003EOO0 

83 
55 54 00' 

0B 
00000002 

82 
52 42 00' 

08 
00000004 

81 



00000032 



OOOD0036 



00000037 



31 38 55 54 00 

04 

04 

80 

83 

52 53 43 00' 

03 

0003FFFE 0003E000 

83 

52 4F 54 43 45 56 00' 

06 

000OO1FE 00000002 

82 

52 42 00' 

02 

00000007 00000004 

81 



1271 
1282 
128A 
128B 
128B 
1297 
129F 
12A0 
12A0 
12A9 
1281 
12B2 
12B2 
1282 
C046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001 2B2 
1282 
12B2 
1287 
12B8 
1289 
12BA 
12BA 
12BE 



00000032 



00000036 



45 42 55 



52 53 43 



12C6 
12C7 
12C7 
12CE 
12D6 
12D7 
12D7 
12DA 
12E2 
12E3 
12E3 
12E3 
0046 
0032 
0032 
0032 
0036 
0036 
0000 1 2E3 
00* 12E3 



03 
08 
80 
83 
00 ' 



12E3 
12E7 
12E8 
12E9 
12EA 



340 TU81: 



341 UBE: 



.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



A O76O000, A 0777776 ; 760000 , 777776 Limits on input 

A X83 ; Indicate scan octal. 

« 
* 



M TU80_VECT0R" ; TU80.VECTOR string 



A 02 A 0776 

A X82 

"BR.LEVEL" 



4,7 
A X81 



.LONG 

.BYTE 

$DS TU81 

.SAVE LOCAL_BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

AU 



; 2 , 776 limits on input 
; Indicate scan decimal 
; BR.LEVEL string 

7 limits on input 

; Indicate end of PT-descriptor 



[09] 



.1U 
.IIF 
.IIF 

.IJF 

.IIF 

.Uf 

.IJF 

.RESTORE 

.ASCJC 

.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
•ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
$DS UBE 
.SA7E 
.PSECT 



NB,HP$L TU81 CSR, HP$L_TU81 CSR: 

NB,TU81SL_CSR, TU8UL.CSR: 

N8,.BLKL, .BLKL 1 

NB,HP$B TU81 BR, HP$B TU81 BR: 

NBJU81SB.8R: TU81$B.BR: 

NB,.BLKB, .BLKB 1 

NB,HP$K TU81 LEN, HPSK.TU81 LEN: 

NB,TU81$K LEW, TU81$K„LENi 



M TU81 M 

4 

A X80 
A X83 
"CSR" 



TU81 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O760000, «0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 



i * 



VECTOR 



> i 



VECTOR string 



A 02, A 0776 

A X82 

"BR M 

4,7 

A X81 



BR string 
4 



2 , 776 limits on input 
Indicate scan decimal 



7 limits on input 

; Indicate end of PT-descriptor 



L0CAL.8L0CK 

$ABS$,ABS 
.=HP$A„DEPENDENT 

.IIF NB,HP$L U8E CSR, HP$LJJBE_CSR: 

.llf NB,UBE$E_CSR, UBESL.CSR: 
A1F NB,.BLKL, .BLKL 1 

.IJF NB,HP$K UBE LEN, HPSK^UBE LEN: 

.IIF NB,UBE$R_LEfl, UBE$K„.LEN: 

.RESTORE 
.ASCIC M UBE M ; UBE name 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 



8 

A X80 
A X83 
"CSR" 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



7Z-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



10 
27-JUL-1984 Fiche 8 Frame D10 Sequence 1562 

27-JUL-1984 15:21:28 VAX-1 1 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAIMT3IC0DE.MAR;43 



53 
(4) 



0003FFFE 

52 4F 54 A3 

O0OOOHE 



03 
O003E000 

83 
45 56 00' 

06 
00000002 

81 



00000032 



00000036 



00000037 



00000038 



30 35 41 44 55 00' 
05 
00 
80 
83 

50 49 41 44 55 00' 
05 

0003FFFC 0003E000 
83 
72 6F 74 63 65 56 00' 

06 

000001 FC 00000004 
82 
52 42 00 • 
02 

00000007 00000004 
82 
65 74 61 52 5F 74 73 72 75 42 00 • 

OA 

0000003F 00000000 
81 



12EA 
12EE 
12F6 
12F7 
12F7 
12FE 
1306 
1307 
1307 
1307 
0046 
0032 
0032 
0032 
C036 
0036 
0036 
0037 
0037 
0037 
0038 
0038 
00001307 
1307 
1307 
130D 
130E 
130F 
1310 
1310 
1316 



00000032 
00000033 
000000Z7 



31 31 41 4E 55 



131E 
131F 
131F 
1326 
132E 
132F 
132F 
1332 
133A 
133B 
1338 
1346 
134E 
134F 
134F 
134F 
0046 
0032 
0032 
0033 
0033 
0037 
00001 34F 
00* 134F 
05 134F 
01 1355 



342 UDA50: 



343 UNA11 



.LONG 
.BYTE 
.ASCJC 



'O760000, '0777776 



A X83 
"VECTOR" 



A 02, A 0776 
A X81 



.LONG 

.BYTE 

$DS UDA50 

.SAtfE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$AJ)EPENDENT 

.JJF 

.IIF 

.JJF 

.JJF 



; 760000 , 777776 Limits on input 
Indicate scan octal 
VECTOR string 

2 , 776 limits on input 
Indicate end of PT-descriptor 



.JJF 

.JJF 

.JJF 

.JJF 

-JJF 

JJF 

.UF 

.RESTORE 

.ASCJC 

.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
•ASCJC 

.LONG 
.BYTE 
.ASCJC 

.LONG 
.BYTE 
.ASCJC 



NB,HP$L UDA50 UDAIP, HP$L UDA50 UDAIP: 

NB,UDA50$LJJDfllP, UDA50$L_UDAlP: 

NB,.BLKL, .8LKL 1 

NB,HP$B UDA50 BR, HP$B JJDA50.BR : 

NB ,UDA50SB_BR7 UDA50SB..BR : 

NB,.BLKB, .BLKB 1 

NB,HP$B UDA50 BURST, HP$B UDA50 BURST: 

NB,UDA50$B_BURST, UDA50$B_BURST: 

NB,.BLKB, .BLKB 1 

NB,HP$K UDA50 LEN, HP$K,UDA50_LEN: 

NB,UDA50$K_LER, UDA50SK LEN: 



"UDA50" 





A X80 
A X83 



"UDAIP" 

0760000, A 0777774 



UDA50 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
UDAIP string 



*X83 

1 1< 



Vector" 

A 04 A 0774 

A X82 

"BR" 



; 760000 , 77777^ limits on input 
Indicate scan octal 
Vector string 



*X82 
••Burst.Rate" 







BR string 
4 



4 , 774 limits on input 
Indicate scan decimal 



7 limits on input 
; Indicate scan decimal 
; Burst.Rate string 



.LONG 0,63 

.BYTE A X81 

$DS UNA11 

.SAVE LOCAL^BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.JJF NB, UNA1UB.BR, UNA11$B_BR: 

.UF NB,.BLKB, .BLKB 1 

.UF NB,UNA11$L.CSR, UNA1UL CSR: 

.UF NB,,BLKL, .BLKL "1 

.UF NB,UNA11$K LEN, UNA1UK LEN: 

.RESTORE 

.ASCIC "UNA11 M ; UNA11 name 



63 limits on input 

; Indicate end of PT-descriptor 



C06] 



.BYTE 1 



Maximum unit number 



ZZ-ENSAA-7,0 

1C0DE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



E 10 

27-JUL-1984 Fiche 8 Frame E10 Sequence 1563 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINTJIC0DE.MAR;?3 



54 
(4) 



52 

0003FFFE 

52 4F 54 43 

000001FE 

00000007 



53 



80 

83 
43 00' 

03 
0003EOOO 

83 
45 56 00' 

06 
00000002 

82 
52 42 00' 

02 
00000004 

81 



00000032 



00000036 



00000037 



30 30 31 53 56 00* 
05 
01 
80 
83 

53 43 00' 
03 

0003E000 
83 

45 56 00* 
06 

00000002 
82 

52 42 00' 
02 
00000007 00000004 
81 



52 

0003FFFE 

52 4F 54 43 

000001FE 



1356 
1357 
1358 
1358 
135C 
1364 
1365 
1365 
136C 
1374 
1375 
1375 
1378 
1380 
1381 
1381 
1381 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001381 
1381 
1381 
1387 
1388 
1389 
138A 
138A 



00000032 



00000036 



00000037 



138E 
1396 
1397 
1397 
139E 
13A6 
13A7 
13A7 
13AA 
1382 
1363 
13B3 
1383 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 
00001383 



344 VS100: 



345 VS125: 



.BYTE 

.BYTE 
.ASCJC 

.LONG 

.BYTE 
.ASCJC 

.LONG 

.BYTE 
.ASCIC 



A X80 
A X83 

IlitAntl 



CSR 
A 0760000, *0777776 



; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A X83 
•VECTOR 1 * 

A 02 A 0776 
A X82 



; 760000 , 777776 Limits on input 
Indicate scan octal 
VECTOR string 



H 



BR 



• • 



; 2 , 776 limits on t input 
; Indicate scan decimal 
BR string 



4,7 

A X81 



7 limits on input 

; Indicate end of PNdescriptor 



.LONG 

.BYTE 

$DS VS100 

.SAflE LOCAL BLOCK 

.PSECT $ABS$7A8S 

,=HP$A_DEPENDENT 

.1 IF NB,HP$L VS100 CSR, HP$L..VS100_CSR: 

- JJF NB,VS100$L CSR, VS100$L_CSR: 

JJF NB,.BLKL, " .8LKL 1 

JJF NB,HP$B VS100 BR, HP$B VS100.BR: 

JJF NB,VS100$B.BRT VS100$B,BR: " 

.JJF NB,.BLKB, .BLK8 1 

.J IF NB,HP$K VS100 LEN, HP$K VS100.LEN: 

- JJF NB,VS100$K_LER, VS100SK.LEN: 

.RESTORE 

.ASCJC *VS100 M 



no: 



.BYTE 
.BYTE 
.BYTE 
.ASCJC 

.LONG 

.BYTE 
•ASCJC 

.LONG 

.BYTE 
.ASCJC 



1 

A X80 
A X83 
M CSR" 



VS100 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O760000, A 0777776 ; 760000 , 77777b limits on input 
A X83 ; Indicate scan octal 

"VECTOR" ; VECTOR string 



A 02, A 0776 

A X82 

••BR" 



BR string 
4 



2 , 776 limits on input 
Indicate scan decimal 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 4,7 

.BYTE A X81 

SDS VS125 

.SAVE L0CAL„8L0CK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

.IIF NB,HP$L VS125 CSR, HP$L VS12S CSR: 

.JJF NB,VS125$L_CSR, VS125SL.CSR: 

JJF NB,.BLKL, .BLKL 1 

.JJF NB,HP$B VS125 BR, HP$B_VS125_BR: 

.JJF NB,VS125$B_BR, VS^SSB.BR: 

JJF NB,.BLKB, .BLKB 1 

.JJF NB,HP$K VS125 LEN, HP$K_VS125_LEN: 

.JIF NB,VS125$K.LER, VS125SK.LENJ 

.RESTORE 



C17] 



ZZ-ENSAA-7.0 

1CO0E 

07-22 



Device desc 
35 32 31 53 56 



ription database 

- Interpreted code for JSP 
Device description database 



F 10 
27-JUL-1984 Fiche 8 Frame F10 Sequence 1564 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAJNT]ICODE.MAR;43 



55 
(4) 



52 

0003FFFE 

52 4F 54 43 

000001 FE 

00000007 



00' 

05 

01 

80 

83 

53 43 00' 
03 

0003EOOO 
83 

45 56 00' 
06 

00000002 
82 

52 42 00' 
02 

00000004 
81 



00000032 



00000036 



00000037 



30 30 33 53 56 00 
05 
01 
80 
83 

53 43 00' 
03 

0003EOOO 
83 

45 56 00' 
06 

00000002 
82 

52 42 00' 
02 
00000007 00000004 
81 



52 

0003FFFE 

52 4F 54 43 

000001FE 



30 35 54 



13B3 
13B3 
13B9 
13BA 
13BB 
13BC 
13BC 
13C0 
13C8 
13C9 
13C9 
13D0 
13D8 
13D9 
13D9 
13DC 
13E4 
13E5 
13E5 
13E5 
0046 
0032 
0032 
0032 
0036 
0036 
0036 
0037 
0037 

000013E5 
13E5 
13E5 
13EB 
13EC 
13ED 
13EE 
13EE 
13F2 
13FA 
13F8 
13FB 
1402 
140A 
140B 
HOB 
HOE 
1416 
1417 
1417 
1417 
0046 
0032 
0032 

00001417 
56 00' 1417 

04 1417 

08 141 C 



00000032 



346 VS300: 



347 VT50: 



.ASCIC 

.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



"VS125 M 

1 

A X80 
A X83 
"GSR" 



VS125 name 

; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O76OO00, A 0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 
it 



VECTOR" 

A 02. A Q776 

A X82 

"BR M 



VECTOR string 



.LONG 
.BYTE 



BR string 
4 



2 , 776 limits on input 
Indicate scan decimal 



7 limits on input 

; Indicate end of PT-descriptor 



4,7 

A X81 
$DS VS300 
.SAVE LOCAL.BLOCK 
.PSECT $ABSS,ABS 
.=HP$A_DEPENDENT 

•JIF NB,HP$L VS300 CSR, HPSL.VS300.CSR: 
.UF NB,VS300$L.CSR, VS300SL.CSR: 

A1F NB,.BLKL, .BLKL 1 

.UF NB ,HP$B VS300.BR , HPSB.VS300.BR : 

.UF NB,VS300$B BR, VS300SB.8R: 
.UF NB,.BLKB, .BLKB 1 

.UF NB,HP$K VS300 LEN, HPSK,VS300„LEN: 
. I JF NB,VS300$K_LER, VS300SX.LEN: 
.RESTORE 
.ASCIC "VS300" ; VS300 name 



C12D 



.BYTE 
.BYTE 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 

.LONG 
.BYTE 
.ASCIC 



1 

A X80 
A X83 
M CSR° 



; Maximum unit number 

; Constant to identify start of descriptor 
; Indicate scan octal 
CSR string 



A O76O000, «0777776 ; 760000 , 777776 limits on input 

A X83 ; Indicate scan octal 



"VECTOR" 
02, A 0776 



VECTOR string 



; 2 ,776 limits on input 
; Indicate scan decimal 
M BR M ; BR string 



A 

A X82 



4,7 
A X81 



7 limits on input 

; Indicate end of PT-descriptor 



.LONG 

.BYTE 

$DS VT50 

.SA9E LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A.DEPENDENT 

. I J F NB,HP$K VT50 LEN, HPSKJ/T50 LEN: 

.IIF NB,VT50$K„LEF), VT50SK LEN: 

.RESTORE 

.ASCIC M VT50" ; VT50 name 



.BYTE 8 



Maximum unit number 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



6 10 
27-JUL-1984 Fiche 8 frame 610 Seguence 1565 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINT3ICODE.MAR;43 



56 
(4) 



32 35 



35 35 



30 30 31 



30 32 32 



80 


141D 




81 


141E 






141F 


348 VT52: 




141F 






141F 




00000032 


0046 
0032 
0032 




00001 41 F 




54 56 00' 


141F 




04 


141F 




08 


1424 




80 


1425 




81 


1426 






1427 


349 VT55: 




1427 






1427 




00000032 


0046 
0032 
0032 




00001427 




54 56 00' 


1427 




04 


1427 




08 


142C 




80 


142D 




81 


142E 






142F 


350 VT100: 




142F 






1<<2f 




00000032 


0046 
0032 
0032 




0000142F 




54 56 00' 


142F 




05 


142F 




08 


1435 




80 


1436 




81 


1437 






1438 


351 VT220: 




1438 






1438 




00000032 


0046 
0032 
0032 




00001438 




54 56 00' 


1438 




05 


1438 




08 


143E 




80 


143F 




81 


1440 






1441 


352 VT240: 




1441 






1441 




00000032 


0046 
0032 
0032 




00001441 





.BYTE A X80 ; Constant 

.8YTE A X81 ; Indicate 

$DS VT52 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,A8S 

.=HP$A DEPENDENT 

AIF " NB,HP$K VT52 LEN, HPSK.VT52.LEN: 

.IIP NB,VT52SK LER, VT52$K_LEN: 

.RESTORE 

•ASCIC 'VT52" ; VT52 name 



to identify stare of descriptor 
end of PT-descriptor 



.8VTE 8 

.BYTE A X80 

.BYTE A X81 

$DS VT55 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A„DEPENDENT 

.IJF NB,HP$K VT55 LEN, HP$K_VT55 LEN: 

.JIF NB,VT55SKJ_ER, VT55SK.LEN: 

.RESTORE 

.ASCIC M VT55 M ; VT55 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS_VT100 

.SAVE LOCAL ..BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.JIF ' NB,HP$K VT100 LEN, „ rw 

,UF NB,VT100$K„LER, VT100$K_LEN: 

.RESTORE 

.ASCIC *VT100" ; VT100 name 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HP$K..VT100_LEN: 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS VT220 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A_DEPENDENT 

•IIF NB,HP$K VT220 LEN, HP$K_VT220_LEN: 

. IIP NB,VT220$K..LEF], VT220SK..LEN: 

.RESTORE 

.ASCIC M VT220 M ; VT220 name 



C14D 



.BYTE 8 

.BYTE A X80 

.BYTE A X81 

$DS VT240 

.SAVE LOCAL.BLOCK 

.PSECT $ABS$,ABS 

.=HP$A DEPENDENT 

.UF NB,HP$K VT240 LEN. 

JIF NB,VT240$K LER, VT240SK LEN: 

.RESTORE 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



HP$K_VT240_LEN: 



[14] 



ZZ-ENSAA-7.0 

ICODE 

07-22 



Device description database 

- Interpreted code for TSP 
Device description database 



30 34 32 54 56 



00 ' 

05 

03 

80 

81 



1441 
1441 
1447 
1448 
1449 
144A 



353 



BYTE 
BYTE 
BYTE 
END 



H 10 
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•ASCJC M VT240 M ; VT240 name 



8 

A X80 

A X81 



Maximum unit number 

Constant to identify start of descriptor 

Indicate end of PT-descriptor 



ZZ-ENSAA-7.0 
I CODE 
Symbol table 

SSN 

AA11K 

AA11KSB BR 

AA11K$K"LEN 

AD11K " 

AD11KSB BR 

AD11KSK"LEN 

AL DEVTYP 

CI750 

CI 780 

CI NODE 

CONSOLE 

CONSOLESKJ.EN 

CR11 

CR11SB BR 

CR11SK~LEN 

CR11SL CSR 

DEQNA 

DEQNASK LEN 

DEQNA$L~CSR 

DISK " 

DISKSK.LEN 

DL11 

DL11SB BR 

DL11$KlLEN 

DL11$L„CSR 

DLVJ1 

DLVJ1SB FLAGS 

DLVJUKlLEN 

DLVJ1SL CSR 

DMC11 

DMC11SB.BR 

DMCt1SK_LEN 

DMC11SL CSR 

DMF32 

DMF32SB BR 

DMF32SB~C0MM0N 

DMF32SB~FLAGS 

DMF32SK"LEN 

D«F32$LlCSR 

DMF32A 

DMF32ASB_ACTIV 

DMF32ASB.BR 

DMF32ASB_JUMP 

DMF32ASB.SPEED 

DMF32ASK_LEN 

DMF32A$W_FLAGS 

DMF32P 

DMF32PSB_BR 

DMF32PS8.C0MM0N 

DMF32PSB.FLAGS 

DMF32PSK LEN 

DMF32PSLICSR 

DMF32S 

DMF32S$B_BR 

DMF32SSB_C0MM0N 

DMF32S$B_FLAGS 



Symbol table 



- Interpreted code for TSP 



I 10 
27-JUL-1984 Fiche 8 Frame 110 Seguence 1567 
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00000076 D 

0000OOEE R D 01 

00000032 D 

00000033 D 
00000128 R D 01 

00000032 D 

00000033 D 
00000000 R D 01 
000001BO R D 01 
000001E1 R D 01 
0000C162 R D 01 
00000210 R D 01 
00000032 D 
0000021B R D 01 

00000036 D 

00000037 D 
00000032 D 
0000024C R D 01 
00000036 D 
00000032 D 
00000262 R D 01 
00000032 D 
0000026A R D 01 

00000036 D 

00000037 D 
00000032 D 
0000029B R D 01 

00000036 D 

00000037 D 
00000032 D 
00000334 R D 01 

00000036 D 

00000037 D 
00000032 D 
00000366 R D 01 

00000034 D 

00000032 D 

00000033 D 
00000039 D 

00000035 D 
00000398 R D 01 

00000033 D 
00000032 D 

00000037 D 

00000034 D 

00000038 D 

00000035 D 
0000049? R D 01 

00000034 D 

00000032 D 

00000033 D 

00000039 D 

00000035 D 
000004E6 R D 01 

00000034 D 

00000032 D 

00000033 D 



DMF32SSK LEN 

DMF32SSL~CSR 

DMP11 

0MP11SB.BR 

DMP11SB.C0MM0N 

DMP11SB FLAGS 

DMP11SK"LEN 

DMP11SLICSR 

DMR11 

DMR11SB BR 

DMR11SK~LEN 

DMR11SLICSR 

DM232 

DR118 

DR11BSB BR 

DRUBSKlEN 

DR11BSLICSR 

DR11K 

DR11KSB BR 

DR1USICLEN 

DR11W 

DR11WSB BR 

DR11WSK LEN 

DR11WSLZCSR 

DR750 

DR750$B_BR 

DR750SB.CONFI6 

DR750SB.SELF 

DR750SB SLOT 

DR750SB UUT 

DR750SK~LEN 

DR780 

DR780SBJ3R 

DR780SB.CONFIG 

DR780SB.SELF 

DR780SB TR 

DR780SB~UUT 

DR780SK LEN 

DSSGA PTDESC 

DUP11" 

DUP11SB.BR 

DUP11SK LEN 

DUP11SL.CSR 

DV11 

DV11SB BR 

DV11SK.LEN 

DV11$L_CSR 

DW730 

DW730SK.LEN 

DW750 

DW750SK.LEN 

DW780 

DW780SB_BR 

DW780SB.TR 

DW780SK_LEN 

DZ11 

DZ11SB.BR 



00000039 

00000035 

00000539 R 

00000034 

00000032 

00000033 

00000039 

00000035 

000005C7 R 

00000036 

00000037 

00000032 

000005F9 R 

00000725 R 

00000036 

00000037 

00000032 

00000757 R 

00000032 

00000033 

00000791 R 

00000036 

00000037 

00000032 

000007C3 R 

00000033 

00000035 

00000034 

00000032 

00000036 

00000037 

00000824 R 

00000033 

00000035 

00000034 

00000032 

00000036 

00000037 

00000000 RG 

00000883 R 

00000036 

00000037 

00000032 

000008B5 R 

00000036 

00000037 

00000032 

000008E6 R 

00000032 

000008EF R 

00000032 

000008F8 R 

00000033 

00000032 

00000034 

00000919 R 

00000036 



01 



01 
01 



01 



01 



D 

D 

D 01 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 01 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 01 

D 01 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 01 

D 



01 



01 



01 
01 
01 



ZZ-ENSAA-7,0 
ICODE 
Symbol table 



Symbol table 



- Interpreted code for TSP 



0211SB MTYPE 
0Z11SK.LEN 
DZ11SL CSR 

DZ32 

DZ32SB„ACTIV 
DZ32SB BRLVL 
DZ32SB..SPEED 
DZ32SW FLAGS 
DZ32S.CEN 
0ZV11 

DZV11SK LEN 
DZV1UL"CSR 
HP$A DEPENDENT 
HPSAJJEVICE 
HPSA.DVA 
HP$A LINK 
HPSB„DMF32A ACTIV 
HPSBJ)MF32A**BR 
HP$B DMF32A"~JUMP 
HP$BlD«F32A"SPEED 
HP$B DMF3?P~BR 
HP$B~DMF32PlC0MM0.N 
HP$B DMF32P FLAGS 
HPSB~DMF32S~BR 
HPSB~*DMF32S~C0MM0N 
HP$B DMF32S"FLAGS 
HP$B~DMF32 BR 
HPSB~DMF32~COMMON 
HPSB~DMF32~FLAGS 
HP$B DMZ32 BR 
HP$B""D«Z32>ODEM 
HP$3 DMZ32 OCTETO 
HP$BJ)MZ32 OCTET1 
HPSBJ)MZ32~OCTET2 
HP$B DMZ32"SPEED 
HP$B DRIVE" 
HPSBJ)Z32_ACTIV 
HPSB_DZ32 BRLVL 
HPSB_DZ32 SPEED 
HPSB FLAGS 
HP$BIIEU11A BR 
HPSB LESI BR 
HPSB RB73D BR 
HP$B"RH750"BR 
HPSBlRH780"BR 
HPSB RH780 TR 
HP$BlRK6irBR 

hpsb rl11 br 
hpsb~rx21t br 
hpsb;tm03Jrive 
hpsb tm78 drive 

hpsb~ts0<t8r 
hps8its11 br 
hpsb tu80"br 

HPSB"TU8rBR 
HPSB'UDA5D BR 
HPSB~UDA50~BURST 



00000037 


D 


00000038 


D 


00000032 


D 


00000961 R 


D 01 


00000033 


D 


00000032 


D 


00000034 


D 


00000035 


D 


00000037 


D 


000OOA1D R 


D 01 


00000036 


D 


00000032 


D 


00000032 


D 


00000018 


D 


0000001 C 


D 


00000020 


D 


00000033 


D 


00000032 


D 


00000037 


D 


00000034 


D 


00000034 


D 


00000032 


D 


00000033 


D 


00000034 


D 


00000032 


D 


00000033 


D 


00000034 


D 


00000032 


D 


00000033 


D 


00000032 


D 


00000039 


D 


00000033 


D 


00000034 


D 


00000035 


D 


00000036 


D 


0000000B 


D 


00000033 


D 


00000032 


D 


00000034 


D 


0000000A 


D 


00000032 


D 


00000036 


D 


00000036 


D 


00000032 


D 


00000033 


D 


00000032 


D 


00000036 


D 


00000036 


D 


00000036 


D 


00000032 


D 


00000032 


D 


00000036 


D 


00000036 


D 


00000036 


D 


00000036 


D 


00000036 


D 


00000037 


D 
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HPSB VS100 BR 
HPSBlVS125"BR 
HPSB.VS300 BR 
HP$KJ)ISK CEN 
HP$KJ)MF32A_LEN 
HPSK. m DMF32P_LEN 
HPSK.DMF32S LEN 
HPSK.DMF32JEN 
HPSK DMZ32 LEN 
HPSK IEU11S LEN 
HPSK„LA100 CEN 
HPSK_LA12_CEN 
HPSK LEN 
HPSKlLESI^LEN 
HPSK_RA60_LEN 
HPSK.RA80 LEN 
HPSK„RA81 LEN 
HPSK.RB730 LEN 
HPSK RC25 CEN 
HPSK RCF25_LEN 
HPSKJW750 LEN 
HPSK RH780~LEN 
HPSK.RK06JEN 
HPSK.RK07 LEN 
HPSK RK61T LEN 
HP$KJ*L01jEN 
HPSKJ*L02J.EN 
HPSK RL11 LEN 
HPSK RM03J_EN 
HP$K_RM05 w LEN 
HPSKJW80 LEN 
HPSK RP04ILEN 
HPSK RP05J.EN 
HP$KJ*P06..LEN 
HPSK RP07 LEN 
HP$K'RX02"LEN 
HPSKJ?X21T LEN 
HPSK^SBIAjEN 
HPSK.TE16.LEN 
HPSKJM03_LEN 
HPSK TM78 LEN 
HPSKlTS04"LEN 

hpskjs05„len 
hpsk.ts11.len 
hpskju45 len 
hpsk.tu58.len 
hpsk.tu77.len 
hpsk.tu78 len 
hpsk tu80~len 
hp$k:tu81"len 
hpsk.ube cen 
hpsk uda50 len 
hpsk vs100"len 
hpsk"vs125"len 
hpsk"vs300"len 
hpsk vt100 len 

HP$k:vT220!LEN 



59 
(4) 



00000036 


D 


00000036 


D 


00000036 


D 


00000032 


D 


00000038 


D 


00000039 


D 


00000039 


D 


00000039 


D 


0000003A 


D 


00000033 


D 


00000032 


D 


00000032 


D 


00000037 


D 


00000037 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000037 


D 


00000032 


D 


00000032 


D 


00000033 


D 


00000034 


D 


00000032 


D 


00000032 


D 


00000037 


D 


00000032 


D 


00000032 


D 


00000037 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000037 


D 


00000032 


D 


00000032 


D 


00000033 


D 


00000033 


D 


00000037 


D 


00000033 


D 


00000037 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000037 


D 


00000037 


D 


00000036 


D 


00000038 


D 


00000037 


D 


00000037 


D 


00000037 


D 


00000032 


D 


00000032 


D 



ZZ-ENSAA-7.0 
ICODE 
Symbol table 



Symbol table 



HPSK VT240 LEN 

HP$K"VT50 LEN 

HP$K~VT52~LEN 

HP$OT55~LEN 

HP$L DMF32P CSR 

HP$l_lDMF32S^CSR 

HPSL.DMF32 FSR 

HPSLJ.ESI IP 

HP$L„RB730..CSR 

HP$L RK611 CSR 

HP$L"RL11 CSR 

HP$L RX21T CSR 

HP$L~TS04 CSR 

MPRlTSlTCSR 

HP$L„TU80_CSR 

HP$L TU81 CSR 

HPSLJJBE CSR 

HP$L_UDA50JJDAIP 

HPSLJ/S100.CSR 

HP$L_VS125_CSR 

HP$LJ/S300,CSR 

HP$M„ALLOC 

HPSQ.OEVICE 

HPST.DEVICE 

HP$T TYPE 

HP$W~DMF32A FLAGS 

HP$WlDMZ32jT00P 

hp$w dz32jlags 
hpsw.size 
hp$w vector 
ieuiTa 
ieu11asb br 
ieu11a$k~len 
ka$b_acc~type 
ka$b reserved 
kasb^sid type 

KA$K_LEN~ 
KA$L_FLAGS 
KA$L_SID 
KA$M CHAR 
KA$M CRC 
KA$M D FLOAT 
KA$M EDIT 
KA$M F FLOAT 
KA$M~G~FLOAT 
KASMjTFLOAT 
KASM PACKED 
KA$M~PACK MUL 
KA$M"TODR" 
KASW^LATENCY 
KASW.MEK SIZE 
KA$W_PR05RESS 
KA$W RESERVED 
KASW'WCS 
KA73D 
KA750 
KA780 



Interpreted code 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000035 


D 


00000035 


D 


00000035 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 





00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000032 


D 


00000001 


D 


00000000 


D 


0000000C 


D 


00000026 


D 


00000035 


D 


00000037 


D 


00000035 


D 


00000008 


D 


00000024 


D 


00000A43 R 


D 01 


00000032 


D 


00000033 


D 


00000042 


D 


00000043 


D 


00CO0O3D 


D 


00000046 


D 


00000032 


D 


0000003A 


D 


00000100 


D 


00000010 


D 


00000002 


D 


00000080 


D 


00000001 


D 


00000004 


D 


00000008 


D 


00000020 


D 


00000040 


D 


00010000 


D 


0000003E 


D 


00000044 


D 


00000040 


D 


00000038 


D 


00000036 


D 


O0OOOA77 R 


D 01 


00000B1C R 


D 01 


000008B7 R 


D 01 
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KA785 

KAXXX 

KMC11 

KMC1UB BR 

KMC11SK LEN 

KMC11$L"CSR 

KW11K " 

KU11KSB.BR 

KW11K$K_LEN 

LA100 

LA100SK LEN 

LA12 " 

LA12SK LEN 

LA120 

LA120$K_LEN 

LA180 

LA180SK LEN 

LA34 

LA34$K LEN 

LA36 

LA36$K,LEN 

LA38 

LA38$K„LEN 

LESI 

LESI$B„BR 

LESI$K_LEN 

LESISLJP 

LN01 

LN01SK LEN 

LP04 " 

LP04SK LEN 

LP05 " 

LP05SK LEN 

LP06 

LP06SK LEN 

LP07 

LPQ7$K,LEN 

LP11 

LP11SB.BR 

LP11SKJ.EN 

LP11SL CSR 

LP14 " 

LP14SK.LEN 

LP25 

LP25SKJ.EN 

LP26 

LP26SK LEN 

LP2? " 

LP27$K_LEN 

LPA11K 

LPA11KSB BR 

LPA11KSKILEN 

LPA11K$L_CSR 

MA780 

MA780SB.BR 

MA780SB MPM 

MA780$B:pORT 



00000CB5 R 

0OOOOC36 R 

00000D34 R 

00000036 

00000037 

00000032 

000OOD66 R 

00000032 

00000033 

000O0DA8 R 

00000032 

000O0DAO R 

00000032 

00OO0DB1 R 

00000032 

OOOOODBA R 

00000032 

O0OO0DC3 R 

00000032 

OOOOODCB R 

00000032 

000O0DD3 R 

000C0032 

OOOOODDB R 

00000036 

00000037 

00000032 

OOOOOEOB R 

00000032 

00OO0E13 R 

00000032 

00OO0E1B R 

00000032 

000O0E23 R 

00000032 

0O0O0E2B R 

00000032 

000O0E33 R 

00000036 

00000037 

00000032 

000O0E64 R 

00000032 

0O0O0E6C R 

00000032 

O0OO0E74 R 

00000032 

00OO0E7C R 

00000032 

0QOO0E84 R 

00000036 

00000037 

00000032 

00OO0EB7 R 

00000033 

00000034 

00000035 



01 



01 
01 
01 



D 01 
D 01 
D 01 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 01 
D 

D 01 
D 
D 
D 

D 01 
D 

D 01 
D 
D 
D 
D 
D 
D 
D 

D 01 
D 
01 



01 



01 
01 



01 



D 

D 

D 

D 

D 01 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



01 
01 
01 
01 
01 



01 



ZZ-ENSAA-7.0 
1C0DE 
Symbol table 

MA780S8 TR 

MA780SK"LEN 

MBE 

MBESK LEN 

ML11 " 

ML11SB ARRAY 

ML11$B"CHIP 

ML11$KJ.EN 

MS750 

MS750$K LEN 

MS780 ~ 

MS780SB ARRAYS 

MS780$B~TR 

MS780SKILEN 

PCL11 

PCL11$B,BR 

PCL1UK LEN 

PCL11$L"CSR 

PX780 " 

PX780SB BR 

PX780$B~N0DE 

PX780SBITR 

PX780SK LEN 

R80 

R80SK LEN 

RA60 

RA60$K,LEN 

RA80 

RA80SK LEN 

RA81 

RA81$K LEN 

RB730 " 

RB730SB BR 

RB730$lf LEN 

RB730$L~CSR 

RC25 " 

RC25$K_LEN 

RCF25 

RCF25SK LEN 

R051 " 

RD51$K_LEN 

RD52 

RD52$K LEN 

RH750 " 

RH750$B„BR 

RH750SK LEN 

RH780 " 

RH780SB BR 

RH780$B~TR 

RH780$K"LEN 

RK06 

RK06SK LEN 

RK07 

RK07SK LEN 

RK611 " 

RK611SB BR 

RK61WTLEN 
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00000032 D 

00000036 D 

000OOEF3 R D 01 

00000032 D 

00000EFA R D 01 

00000032 D 

00000033 D 

00000034 
0000OF36 R D 01 
OOC00032 D 
00000F3F R D 01 

00000033 D 
00000032 D 

00000034 D 
000OOF6E R D 01 

00000036 D 

00000037 D 

00000032 D 
OOOOOFAO R D 01 

00000033 D 

00000034 D 
00000032 D 

00000035 D 
OOOOOFCF R D 01 
00000032 
00000FD6 R 
00000032 
00000FDE R 
00000032 
00000FE6 R 
00000032 
0000OFEE R 
00000036 
00000037 
00000032 
00001000 R 
00000032 
00000FF7 R 
00000032 
00001008 R 
00000032 D 
00001010 R D 01 
00000032 D 
00001018 R D 01 

00000032 D 

00000033 D 
0000102D R D 01 

00000033 D 
00000032 D 

00000034 D 
0000108F R D 01 
00000032 D 
00001097 R D 01 
00000032 D 
00001 09F R D 01 

00000036 D 

00000037 D 



D 

D 

D 

D 01 

D 

D 

D 

D 

D 

D 

D 

D 01 

D 

D 01 

D 

D 01 



01 



01 
01 



RK611SL CSR 
RL01 " 
RL01SK LEN 
RL02 " 
RL02$K_LEN 
RL11 
RL11SB BR 

RL11$KILEN 

RLIUL.CSR 

RM03 

RM03$K LEN 

RM05 *" 

RM05SK LEN 

RM80 ' 

RM80SK LEN 

RP04 " 

RP04$K uEN 

RP05 " 

RP05SK LEN 

RP06 " 

RP06SK LEN 

RP07 " 

RP07$K_LEN 

RQDX1 

RQDXUK..LEN 

RQDX1$L IP 

RX02 

RX02SK LEN 

RX211 ' 

RX21UB.BR 

RX211$K.J_EN 

RX211$L_CSR 

RX50 

RX50SK LEN 

SBIA " 

SBIASK^LEN 

SIZ... 

TE16 

TE16$K_LEN 

TM03 

TM03$B_DRIVE 

TM03$K_LEN 

TM78 

TM78SB DRIVE 

TM78SKILEN 

TS04 

TS04$B BR 

TS04$lO_EN 

TS04$L"CSR 

TS05 * 

TS05SB BR 

TS05$K"LEN 

TS11 " 

TS11SB BR 

TS11$K~LEN 

TS11$L"CSR 

TU45 *" 



00000032 

0000104E R 

00000032 

00001056 R 

00000032 

0000105E R 

00000036 

00000037 

00000032 

000010D1 R 

00000032 

000010D9 R 

00000032 

000010E1 R 

00000032 

000010E9 R 

00000032 

000010F1 R 

00000032 

000010F9 R 

00000032 

00001101 R 

00000032 

00001109 R 

00000036 

00000032 

000011 1E R 

00000032 

00001126 R 

00000036 

00000037 

00000052 

00001158 R 

00000032 

00001160 R 

00000032 

00000001 

00001168 R 

00000032 

00001170 R 

00000032 

00000033 

00001187 R 

00000032 

00000033 

0000119E R 

00000036 

00000037 

00000032 

00001 1CF R 

00000032 

00000033 

00001218 R 

00000036 

00000037 

00000032 

00001249 R 



D 

D 
D 01 



01 



01 



D 
D 
D 
D 
D 
D 01 



01 



D 
D 
D 
D 01 



D 

D 

D 

D 01 

D 

D 

D 

D 

D 

D 01 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 01 

D 

D 

D 

D 

D 



D 



D 

D 

D 

D 

D 01 

D 

D 

D 

D 01 



01 



01 
01 



01 
01 



01 
01 



01 



01 



01 



01 
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TU45SK LEN 


00000032 


D 




TU58 " 


00001251 R 


D 


01 


TU58SK.LEN 


00000032 


D 




TU77 


00001259 R 


D 


01 


Tl)77$KJ_EN 


00000032 


D 




TU78 


00001261 R 





01 


TU78SK LEN 


00000032 


D 




TU80 " 


00001269 R 


D 


01 


TU80SB BR 


00000036 


D 




TU80$KlLEN 


00000037 


D 




TU81 


00001 2B2 R 


D 


01 


TU81SB BR 


00000036 


D 




TU8WTLEN 


00000037 


D 




TU81$LlCSR 


00000032 


D 




UBE 


000012E3 R 


D 


01 


UBESK.LEN 


00000036 


D 




UBESL CSR 


00000032 


D 




UDA50" 


00001307 R 


D 


01 


UDA50SB BR 


00000036 


D 




UDA50$B~BURST 


00000037 


D 




UDA50$K"lEN 


00000038 


D 




UDA50$L~UDAIP 


00000032 


D 




UNA11 " 


00001 34F R 


D 


01 


UNA11SB BR 


00000032 


D 




UNA11$K~LEN 


00000037 


D 




UNA11$L~CSR 


00000033 


D 




VS100 " 


00001381 R 


D 


01 


VS100SB BR 


00000036 


D 




VS100$K~LEN 


00000037 


D 




VS100$L~CSR 


00000032 


D 




VS125 " 


00001 3B3 R 


D 


01 


VS125SB BR 


00000036 


D 




VS125$)TLEN 


00000037 


D 




VS125$L~CSR 


00000032 


D 




VS300 " 


O0OO13E5 R 


D 


01 


VS300SB BR 


00000036 


D 




VS300SK LEN 


00000037 


D 




VS300$L"CSR 


00000032 


D 




VT100 ~ 


O00O142F R 


D 


01 


VT100$K„LEN 


00000032 


D 




VT220 


00001438 R 


D 


01 


VT220SK LEN 


00000032 


D 




VT240 " 


00001441 R 


D 


01 


VT240SK LEN 


00000032 


D 




VT50 " 


00001417 R 


D 


01 


VT50SK LEN 


00000032 


D 




VT52 " 


0000141F R 


D 


01 


VT52SK LEN 


00000032 







VT55 " 


00001427 R 


D 


01 


VT55SK LEN 


00000032 


D 
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N 10 
ZZ-ENSAA-7.0 Psect synopsis 27-JUL-1984 Fiche 8 Frame N10 Seguence 1572 
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Psect synopsis 23-JUL-1984 16:23:10 DMA1 :[SYS0.SYSMAINTDICODE-MAR;43 (4) 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 



. ABS . OOOOOO'O ( 0.) 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

. BLANK . 0000144A ( 5194.) 01 ( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

$ABS$ 00000046 ( 70.) 02 ( 2.) NOPIC USR CON ABS LC- NOSHR EXE RD WRT NOVEC BYTE 



ZZ-ENSAA-7.0 Cross 


reference 






27 


B 11 
-JUL-1984 


Fiche 8 Frame B11 Sequence 1573 




ICODE 
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27-JUL-198A 15:21 ;28 VAX-It Macro V03-0T Page 
23-JUL-198A 16:23:10 DHA1:CSVS0.SYSMAINT3IC0PE,MAR;M 


6A 


Cross reference 












f4> 


\ Symb 


ol Cross 


Reference I 


SYMBOL 


VALUE 


DEFINITION 


REFERENCES. 


t » 






$$$$$$$ 


=00000001 


352 


(A) 












UN 


=00000076 


228 


(3) 


228 


(3) 








AA11K 


000000EE-R 


232 


(A) 


228 


(3) 








AD11K 


000O01 28-R 


233 


(A) 


228 


(3) 








AL DEVTYP 


00000000-R 


228 


(3) 


228 


(3) 








C1750 


000001BO-R 


235 


(A) 


228 


(3) 








CI 780 


000O01E1-R 


236 


(A) 


228 


(3) 








CI NODE 


00000162-R 


23A 


(A) 


228 


(3) 








CONSOLE 


00000210-R 


237 


(A) 


228 


(3) 








CR11 


0000021 B-R 


238 


(A) 


228 


(3) 








DEQNA 


000002AC-R 


239 


(A) 


228 


(3) 








DISK 


00000262-R 


2A0 


(A) 


228 


(3) 








DL11 


0000026A-R 


2A1 


<A> 


228 


(3) 








DLVJ1 


0000029B-R 


2A2 


(A) 


228 


(3) 








DMC11 


0000033A-R 


2A3 


(A) 


228 


(3> 








DMF32 


00000366-R 


2AA 


(A) 


228 


(3) 








DMF32A 


00000398-R 


2A5 


(A) 


228 


(3) 








DMF32P 


0OOO0A97-R 


2A6 


(A) 


228 


(3) 








DMF32S 


00OO0AE6-R 


2A7 


(A) 


228 


(3) 








DMP11 


00000539-R 


2A8 


(A) 


228 


(3) 








DMR11 


000005C7-R 


2A9 


(A) 


228 


(3) 








DM232 


000005F9-R 


250 


(A) 


228 


(3) 








DR11B 


00000725-R 


251 


(A) 


228 


(3) 








DR11K 


00000757-R 


252 


(A) 


228 


(3) 








DR11W 


00000791 -R 


253 


(A) 


228 


(3) 








DR750 


000007C3-R 


25A 


(A) 


228 


(3) 








DR780 


0000082A-R 


255 


(A) 


228 


(3) 








DS$GA PTDESC 


00000000-R 


205 


(3) 












DUP11" 


00000883-R 


256 


(A) 


228 


(3) 








DV11 


00000885-R 


257 


(A) 












DW730 


000008E6-R 


258 


(A) 


228 


(3) 








DW750 


000008EF-R 


259 


(A) 


228 


(3) 








DW780 


00OO08F8-R 


260 


(A) 


228 


(3) 








DZ11 


0000091 9-R 


261 


(A) 


228 


(3) 








DZ32 


00000961 -R 


262 


(A) 


228 


(3) 








DZV11 


00000A1D-R 


263 


(A) 


228 


(3) 








HP$M_AL10C 


=00000001 






238 
276 
281 


(A) 
(A) 
(A) 


273 
277 

282 


(A) 27A (A) 275 (A) 
<«) ?78 (A) 279 (A) 
(A) 283 (A) 28A (A) 
(A) 288 (A) 289 (A) 
(A) 29A (A) 299 (A) 












285 


(A) 


287 












290 


(A) 


291 












300 


(A) 


301 


(A) 302 (A) 30A (A) 












306 


(A) 


307 


(A) 308 (A) 311 (A) 












312 


(A) 


31A 


(A) 315 (A) 317 (A) 












318 


(A) 


319 


(A) 320 (A) 321 (A) 












322 


(A) 


3?3 


(A) 325 (A) 327 (A) 












329 


(A) 


3?2 


(A) 333 (A) 33A (A) 












335 


(A) 


336 


(A) 337 (A) 338 (A) 












339 


<A> 


3A0 


(A) 3AA (A) 3A5 (A) 












346 


(A) 


3A7 


(A) 3A8 (A) 3A9 (A) 


i 
i 



ZZ-ENSAA-7.0 Cross 


reference 






C 11 
27-JUL-1984 Fiche 8 Frame C11 Sequence 1574 


*" "" 


1C0DE 


- Interpreted code 


for TSP 






27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYS«AiNTDJC0DE.MAR;43 


65 


Cross reference 












(A) 










350 


(4) 


351 (4) 352 (4) 




1EU11A 


00000A43-R 


264 


(4) 


228 


(3) 






KASM.CHAR 


=00000100 






266 


(4) 


267 (4) 268 (4) 269 (4) 












270 


(4) 






KASM.CRC 


=00000010 






266 


(4) 


267 (4) 268 (4) 269 (4) 












270 


(4) 






KASM.D.FLOAT 


=00000002 






266 


(4) 


267 (4) 268 (4) 269 (4) 












270 


(4) 






KASMJDIT 


=00000080 






266 


(4) 


267 (4) 268 (4) 269 (4) 












270 


(4) 






KA$M_F .FLOAT 


=00000001 






266 


(4) 


267 (4) 268 (4) 269 (4) 












270 


(4) 






KASM G FLOAT 


=00000004 






266 


(4) 






ka$m~h;*float 


=00000008 






266 


(4) 






KASM.PfaKED 


=00000020 






266 


(4) 


267 (4) 268 (4) 269 (4) 












270 


(4) 






KA$M_PACKJ1UL 


=00000040 






266 


(4) 


267 (4) 268 (4) 269 (4) 












Z70 


(4) 






KA$M TOOR 


=00010000 






268 


(4) 


269 (4) 270 (4) 




KA730 


O0OO0A?7-R 


266 


(4> 


228 


(3) 






KA750 


0000081 C-R 


267 


(4) 


228 


(3) 






KA780 


00000887-R 


268 


(4) 


228 


(3) 






KA785 


00000CB5-R 


270 


(4) 


223 


(3) 






KAXXX 


00000C36-R 


269 


(4) 


228 


(3) 






KMC11 


00000D34-R 


271 


(4) 


228 


(3) 






KW11K 


00000D66-R 


272 


(4) 


228 


(3) 






LA100 


00000DA8-R 


274 


(4) 


228 


(3) 






LA12 


000O0DAO-R 


273 


(4) 


228 


(3) 






LA120 


00000DB1-R 


275 


(4) 


228 


(3) 






LA180 


00000DBA-R 


276 


(4) 


228 


(3) 






LA34 


00000DC3-R 


277 


(4) 


228 


(3) 






LA36 


00000DCB-R 


278 


(4) 


228 


(3) 






LA38 


00000DD3-R 


279 


(4) 


228 


(3) 






LESI 


OOOOODDB-R 


280 


(4) 


228 


(3) 






LN01 


00000E0B-R 


281 


(4) 


228 


(3) 






LP04 


00000E13-R 


282 


(4) 


228 


(3) 






LP05 


00000E1B-R 


283 


(4) 


228 


(3) 






LP06 


00000E23-R 


284 


(4) 


228 


(3) 






LP07 


00000E2B-R 


285 


(4) 


228 


(3) 






LP11 


00000E33-R 


286 


(4) 


228 


(3) 






LP14 


00000E64-R 


287 


(4) 


228 


(3) 






LP25 


00000E6OR 


288 


(4) 


228 


(3) 






LP26 


00000E74-R 


289 


(4) 


228 


(3) 






LP27 


OOOO0E7C-R 


290 


(4) 


228 


(3) 






LPA11K 


00000E84-R 


291 


(4) 


228 


(3) 






MA780 


00000EB7-R 


292 


(4) 


228 


(3) 






MBE 


00OO0EF3-R 


293 


(4) 


228 


(3) 






ML11 


OOOOOEFA-R 


294 


(4) 


228 


(3) 






MS750 


00000F36-R 


295 


(4) 


228 


(3) 






MS780 


00000F3F-R 


296 


(4) 


228 


(3) 






PCL11 


00000F6E-R 


297 


(4) 


228 


(3) 






PX780 


OOOOOFAO-R 


298 


(4) 


228 


(3) 






R80 


OOOOOFCF-R 


299 


(4) 


228 


(3) 






RA60 


00000FD6-R 


300 


(4) 


228 


(3) 




I 


RA80 


OOOOOFDE-R 


301 


(4) 


228 


(3) 






RA81 


00000FE6-R 


302 


(4) 


228 


<Z) 






R8730 


OOOOOFEE-R 


303 


(4) 


228 


(3) 







ZZ-ENSAA-7.0 

1C0DE 

Cross reference 

RC25 

RCF25 

R051 

RD52 

RH750 

RH780 

RK06 

RK07 

RK611 

RL01 

RL02 

RL11 

RM03 

RM05 

RM80 

RP04 

RP05 

RP06 

RP07 

RGDX1 

RX02 

RX211 

RX50 

SBIA 

TE16 

TM03 

TM78 

TS04 

TS05 

TS11 

TU45 

TU58 

TU77 

TU78 

TU80 

TU81 

UBE 

UDA50 

UNA11 

VS100 

VS125 

VS300 

VT100 

VT220 

VT240 

VT50 

VT52 

VT55 



Cross 



reference 








21 


'-JUL- 




- Interpreted code 


for TSP 








00001000-R 


306 


(4) 


228 


(3) 




00000FF7-R 


304 


(4) 


228 


(3) 




00001008-R 


307 


(4) 


228 


(3) 




00001010-R 


308 


(4) 


228 


(3) 




00001018-R 


309 


(4) 


228 


(3) 




00001 02D-R 


310 


(4) 


228 


(3) 




0000108F-R 


314 


(4) 


228 


(3) 




00001 097-R 


315 


(4) 


228 


(3) 




0000109F-R 


316 


(4) 


228 


(3) 




0000104E-R 


311 


(4) 


228 


(3) 




00001056-R 


312 


(4) 


228 


(3) 




0000105E-R 


313 


(4) 


228 


(3) 




000010D1-R 


317 


(4) 


228 


(3) 




00001 0D9-R 


318 


(4) 


228 


(3) 




00001CE1-R 


319 


(4) 


228 


(3) 




00001 0E9-R 


320 


(4) 


228 


(3) 




00001 OF 1-R 


321 


(4) 


228 


(3) 




00001 OF 9-R 


322 


(4) 


228 


(3) 




00001 101 -R 


323 


(4) 


?28 


(3) 




00001 109-R 


324 


(4) 


228 


(3) 




0000111E-R 


325 


(4) 


228 


(3) 




00001 126-R 


326 


(4) 


228 


(3) 




00001 158-R 


327 


(4) 


228 


(3) 




00001160-R 


328 


(4) 


228 


(3) 




00001 168-R 


329 


(4) 


228 


(3) 




00001 170-R 


330 


(4) 


228 


(3) 




00001 187-R 


331 


(4) 


228 


(3) 




0000119E-R 


332 


(4) 


228 


(3) 




000011CF-R 


333 


(4) 


228 


(3) 




00001 21 8-R 


334 


(4) 


228 


(3) 




00001 249-R 


335 


(4) 


228 


(3) 




00001251-R 


336 


(4) 


228 


(3) 




00001259-R 


337 


(4) 


228 


(3) 




00001261-R 


338 


(4) 


228 


(3) 




00001 269-R 


339 


(4) 


228 


(3) 




00001 2B2-R 


340 


(4) 


228 


(3) 




000012E3-R 


341 


(4) 


228 


(3) 




00001307-R 


342 


(4) 


228 


(3) 




0000134F-R 


343 


(4) 


228 


(3) 




00001381-R 


344 


(4) 


228 


(3) 




00001 383-R 


345 


(4) 


228 


(3) 




000013E5-R 


346 


(4) 


228 


(3) 




0000142F-R 


350 


(4) 


228 


(3) 




00001438-R 


351 


(4) 


228 


(3) 




00001441-R 


352 


(4) 


228 


(3) 




0000141 7-R 


347 


(4) 


228 


(3) 




0000141F-R 


348 


(4) 


228 


(3) 




00001427-R 


349 


(4) 


228 


(3) 



D 11 

84 Fiche 8 frame D11 Sequence 1575 
27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 66 
23-JUL-1984 16:23:10 DMA1 :CSYS0.SYSMAINTJlCODE*MAR;43 (4) 



E 11 

ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Fiche 8 Frame E11 Seguence 1576 

ICODE - Interpreted code for TSP 27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 67 

Cross reference 23-JUL-1984 16:23:10 DMA1 :[SYS0.SYSMAINT]ICODE.MAR;43 (4) 

+ -.— .- -— + 

! Macros Cross Reference i 
MACRO SIZE DEFINITION REFERENCES.*. 



SDEFINI 1 118 (2) 118 (2) 

239 (4) 

244 (4) 

249 (4) 

254 (4) 

259 (4) 

264 (4) 

274 (4) 

279 (4) 

284 (4) 

289 (4) 

294 (4) 

299 (4) 

304 (4) 

310 (4) 

315 (4) 

320 (4) 

325 (4) 

330 (4) 

335 (4) 

340 (4) 

345 (4) 

350 (4) 

$DS $ADD 1 181 (2) 234 (4) 

$DS~$CASE 1 184 (2) 234 (4) 

$DS~$COMPLEMENT 1 178 (2) 259 (4) 

$DS~$DECIMAL 1 133 (2) 232 (4) 

238 (4) 

246 (4) 

251 (4) 

256 (4) 
266 (4) 
271 (4) 
292 (4) 
309 (4) 
330 (4) 
339 (4) 
345 (4) 

$DS SEND 1 129 (2) 232 (4) 

237 (4) 

242 (4) 

247 (4) 

252 (4) 

257 (4) 
262 (4) 
268 (4) 
273 (4) 
278 (4) 
283 (4) 
288 (4) 



232 


(4) 


233 


(4) 


237 


(4) 


238 


(4) 


240 


(4) 


241 


(4) 


242 


(4) 


243 


(4) 


245 


(4) 


246 


(4) 


247 


(4) 


248 


(4) 


250 


(4) 


251 


(4) 


252 


(4) 


253 


(4) 


255 


(4) 


256 


(4) 


257 


(4) 


258 


(4) 


260 


(4) 


261 


(4) 


262 


(4) 


263 


(4) 


265 


(4) 


271 


(4) 


272 


(4) 


273 


(4) 


275 


(4) 


276 


(4) 


277 


(4) 


278 


(4) 


280 


(4) 


281 


(4) 


282 


(4) 


265 


(4) 


285 


(4) 


286 


(4) 


287 


(4) 


288 


(4) 


290 


(4) 


291 


(4) 


292 


(4) 


293 


(4) 


295 


(4) 


296 


(4) 


297 


(4) 


298 


(4) 


300 


(4) 


301 


(4) 


302 


(4) 


303 


(4) 


306 


(4) 


307 


(4) 


308 


(4) 


309 


(4) 


311 


(4) 


312 


(4) 


313 


(4) 


314 


(4) 


316 


(4) 


317 


(4) 


318 


(4) 


319 


(4) 


321 


(4) 


322 


(4) 


323 


(4) 


324 


(4) 


326 


(4) 


327 


(4) 


328 


(4) 


329 


(4) 


331 


(4) 


332 


(4) 


333 


(4) 


334 


(4) 


336 


(4) 


337 


(4) 


338 


(4) 


339 


(4) 


341 


(4) 


342 


(4) 


343 


(4) 


344 


(4) 


346 


(4) 


347 


(4) 


348 


(4) 


349 


(4) 


351 


(4) 


352 


(4) 










259 


(4) 


328 


(4) 










233 


(4) 


234 


(4) 


235 


(4) 


236 


(4) 


241 


(4) 


243 


(4) 


244 


(4) 


245 


(4) 


247 


(4) 


248 


(4) 


249 


(4) 


250 


(4) 


252 


(4) 


253 


(4) 


254 


(4) 


255 


(4) 


257 


(4) 


260 


(4) 


261 


(4) 


264 


(4) 


267 


(4) 


268 


(4) 


269 


(4) 


270 


(4) 


272 


(4) 


280 


(4) 


286 


(4) 


291 


(4) 


294 


(4) 


296 


(4) 


297 


(4) 


298 


(4) 


310 


(4) 


313 


(4) 


316 


(4) 


326 


(4) 


331 


(4) 


332 


(4) 


333 


(4) 


334 


(4) 


340 


(4) 


342 


(4) 


343 


(4) 


344 


(4) 


346 


(4) 














233 


(4) 


234 


(4) 


235 


(4) 


236 


(4) 


238 


(4) 


239 


(4) 


240 


(4) 


241 


(4) 


243 


(4) 


244 


(4) 


245 


(4) 


246 


(4) 


248 


(4) 


249 


(4) 


250 


(4) 


251 


(4) 


253 


(4) 


254 


(4) 


255 


(4) 


256 


(4) 


258 


(4) 


259 


(4) 


260 


(4) 


261 


(4) 


263 


(4) 


264 


(4) 


266 


(4) 


267 


(4) 


269 


(4) 


270 


(4) 


271 


(4) 


272 


(4) 


274 


(4) 


275 


(4) 


276 


(4) 


277 


(4) 


279 


(4) 


280 


U) 


281 


(4) 


282 


(4) 


284 


(4) 


285 


(4) 


286 


(4) 


287 


(4) 


289 


(4) 


290 


(4) 


291 


(4) 


292 


(4) 



ZZ-ENSAA-7.0 Cross 


reference 




F 11 
27-JUL- 


1984 


Fiche 8 F 


rame F11 


Seguence 1577 


ICODE 


- Interpreted code for 


TSP 




27-JUL- 


•1984 15 


21:28 


VAX-11 Maci 


*o V03-0T 




Page 68 
MAR;43 (4) 


Cross reference 








23-JUL- 


-1984 16 


23:10 


DMA1:CSYS0 


.SYSMAJNTJICODE.J 




293 


(4) 


294 


(4) 


295 


(4) 


296 


(4) 


297 


(4) 




298 


(4) 


299 


(4) 


300 


(4) 


301 


(4) 


302 


(4) 




303 


(4) 


304 


(4) 


306 


(4) 


307 


(4) 


308 


(4) 




309 


(4) 


310 


(4) 


311 


(4) 


312 


(4) 


313 


(4) 




314 


(4) 


315 


(4) 


316 


(4) 


317 


(4) 


318 


(4) 




319 


(4) 


320 


(4) 


321 


(4) 


322 


(4) 


323 


(4) 




324 


(4) 


325 


(4) 


326 


(4) 


327 


(4) 


328 


(4) 




329 


(4) 


330 


(4) 


331 


(4) 


332 


(4) 


333 


(4) 




334 


(4) 


335 


(4) 


336 


(4) 


337 


(4) 


338 


(4) 




339 


(4) 


340 


(4) 


341 


(4) 


342 


(4) 


343 


(4) 




344 


(4) 


345 


(4) 


346 


(4) 


347 


(4) 


348 


(4) 




349 


(4) 


350 


(4) 


351 


(4) 


352 


(4) 






$DS,$FETCH 1 


172 (2) 234 


(4) 


235 


(4) 


236 


(4) 


259 


(4) 


260 


(4) 




293 


(4) 


294 


(4) 


309 


(4) 


310 


(4) 


317 


(4) 




318 


(4) 


319 


(4) 


320 


(4) 


321 


(4) 


322 


(4) 




323 


(4) 


328 


(4) 














SDS $HEX 1 


145 (2) 266 


(4) 


267 


(4) 


268 


(4) 


269 


(4) 


270 


(4) 


$DS"$INITIAL1ZE 1 


120 (2) 232 


(4) 


233 


(4) 


234 


(4) 


235 


(4) 


236 


(4) 




237 


(4) 


238 


(4) 


239 


(4) 


240 


(4) 


241 


(4) 




242 


(4) 


243 


(4) 


244 


(4) 


245 


(4) 


246 


(4) 




247 


(4) 


248 


(4) 


249 


(4) 


250 


(4) 


251 


(4) 




252 


(4) 


253 


(4) 


254 


(4) 


255 


(4) 


256 


(4) 




257 


(4) 


258 


(4) 


259 


(4) 


260 


(4) 


261 


(4) 




262 


(4) 


263 


(4) 


264 


(4) 


266 


(4) 


267 


(4) 




268 


(4) 


269 


(4) 


270 


(4) 


271 


(4) 


272 


(4) 




273 


(4) 


274 


(4) 


275 


(4) 


276 


(4) 


277 


(4) 




278 


(4) 


279 


(4) 


280 


(4) 


281 


(4) 


282 


(4) 




283 


(4) 


284 


(4) 


285 


(4) 


286 


(4) 


287 


(4) 




288 


(4) 


28* 


(4) 


290 


(4) 


291 


(4) 


292 


(4) 




293 


(4) 


294 


(4) 


295 


(4) 


296 


(4) 


297 


(4) 




298 


(4) 


299 


(4) 


300 


(4) 


301 


(4) 


302 


(4) 




303 


(4) 


304 


(4) 


306 


(4) 


307 


(4) 


308 


(4) 




309 


(4) 


310 


(4) 


311 


(4) 


312 


(4) 


313 


(4) 




314 


(4) 


315 


(4) 


316 


(4) 


317 


(4) 


318 


(4) 




319 


(4) 


320 


(4) 


321 


(4) 


322 


(4) 


323 


(4) 




324 


(4) 


325 


(4) 


326 


(4) 


327 


(4) 


328 


(4) 




329 


(4) 


330 


(4) 


331 


(4) 


332 


(4) 


333 


(4) 




334 


(4) 


335 


(4) 


336 


(4) 


337 


(4) 


338 


(4) 




339 


(4) 


340 


(4) 


341 


(4) 


342 


(4) 


343 


(4) 




344 


(4) 


345 


(4) 


346 


(4) 


347 


(4) 


348 


(4) 




349 


(4) 


350 


(4) 


351 


(4) 


352 


(4) 






$DS_$LITERAL 1 


168 (2) 234 


(4) 


235 


(4) 


236 


(4) 


238 


(4) 


244 


(4) 




246 


(4) 


248 


(4) 


250 


(4) 


254 


(4) 


255 


(4) 




258 


(4) 


259 


(4) 


260 


(4) 


266 


(4) 


267 


(4) 




268 


(4) 


269 


(4) 


270 


(4) 


273 


(4) 


274 


(4) 




275 


(4) 


276 


(4) 


277 


(4) 


278 


(4) 


279 


(4) 




281 


(4) 


282 


(4) 


283 


(4) 


284 


(4) 


285 


(4) 




287 


(4) 


288 


(4) 


289 


(4) 


290 


(4) 


291 


(4) 




292 


(4) 


294 


(4) 


296 


(4) 


298 


(4) 


299 


(4) 




300 


(4) 


301 


(4) 


302 


(4) 


303 


(4) 


304 


(4) 




306 


(4) 


307 


(4) 


308 


(4) 


309 


(4) 


310 


(4) 




311 


(4) 


312 


(4) 


314 


(4) 


315 


(4) 


317 


(4) 




318 


(4) 


319 


(4) 


320 


(4) 


321 


(4) 


322 


(4) 




323 


(4) 


325 


(4) 


327 


(4) 


328 


(4) 


329 


(4) 




332 


(4) 


333 


(4) 


334 


(4) 


335 


(4) 


336 


(4) 




337 


(4) 


338 


(4) 


339 


(4) 


340 


(4) 


344 


(4) 


■ 


345 


(4) 


346 


(4) 


347 


(4) 


348 


(4) 


349 


(4) 

I 
J 



ZZ-ENSAA-7,0 Cross 


reference 




G 11 
27-JUL- 


1984 


Fid 


ie 8 Frame G11 


Sequence 1578 


ICODE 


- Interpreted code for 


TSP 




27-JUM984 15 


:21:28 


VAX-11 Mac 


no V03-0T 




Page 69 
MAR;43 (4) 


Cross reference 








23-JUL- 


•1984 16 


:23;10 


DMAIjCSYSO 


.SYSMAINHICODE. 




350 


(4) 


351 


(4) 


352 


(4) 










SDS^SLOGICAL 1 


160 (2) 242 


(4) 


245 


(4) 


250 


(4) 


254 


(4) 


255 


(4) 




266 


(4) 


267 


(4) 


268 


(4) 


269 


(4) 


270 


(4) 


SD5JNAME 1 


126 (2) 232 


(4) 


233 


(4) 


234 


(4) 


235 


(4) 


236 


(4) 




238 


(4) 


239 


(4) 


240 


(4) 


241 


(4) 


242 


(4) 




243 


(4) 


245 


(4) 


246 


(4) 


247 


(4) 


248 


(4) 




249 


(4) 


250 


(4) 


251 


(4) 


252 


(4) 


253 


(4) 




254 


(4) 


255 


(4) 


256 


(4) 


257 


(4) 


258 


(4) 




259 


(4) 


260 


(4) 


261 


(4) 


262 


(4) 


263 


(4) 




264 


(4) 


266 


(4) 


267 


(4) 


268 


(4) 


269 


(4) 




270 


(4) 


271 


(4) 


272 


(4) 


273 


(4) 


274 


(4) 




275 


(4) 


276 


(4) 


277 


(4) 


278 


(4) 


279 


(4) 




280 


(4) 


281 


(4) 


282 


(4) 


283 


(4) 


284 


(4) 




285 


(4) 


286 


(4) 


287 


(4) 


288 


(4) 


289 


(4) 




290 


(4) 


291 


(4) 


292 


(4) 


294 


(4) 


295 


(4) 




296 


(4) 


298 


(4) 


299 


(4) 


300 


(4) 


301 


(4) 




302 


(4) 


303 


(4) 


304 


(4) 


306 


(4) 


307 


(4) 




308 


(4) 


309 


(4) 


310 


(4) 


311 


(4) 


312 


(4) 




313 


(4) 


314 


(4) 


315 


(4) 


316 


(4) 


317 


(4) 




318 


(4) 


319 


(4) 


320 


(4) 


321 


(4) 


322 


(4) 




323 


(4) 


324 


(4) 


325 


(4) 


326 


(4) 


327 


(4) 




328 


(4) 


329 


(4) 


330 


(4) 


331 


(4) 


332 


(4) 




333 


(4) 


334 


(4) 


335 


(4) 


336 


(4) 


337 


(4) 




338 


(4) 


339 


(4) 


340 


(4) 


341 


(4) 


342 


(4) 




343 


(4) 


344 


(4) 


345 


(4) 


346 


(4) 


347 


(4) 




348 


(4) 


349 


(4) 


350 


(4) 


351 


(4) 


352 


(4) 


$DS_$0CTAL 1 


139 (2) 232 


(4) 


233 


(4) 


238 


(4) 


239 


(4) 


241 


(4) 




242 


(4) 


243 


(4) 


244 


(4) 


245 


(4) 


246 


(4) 




247 


(4) 


248 


(4) 


249 


(4) 


250 


(4) 


251 


(4) 




252 


(4) 


253 


(4) 


256 


(4) 


257 


(4) 


261 


(4) 




262 


(4) 


263 


(4) 


264 


(4) 


271 


(4) 


272 


(4) 




280 


(4) 


286 


(4) 


291 


(4) 


297 


(4) 


313 


(4) 




316 


(4) 


324 


(4) 


326 


(4) 


332 


(4) 


333 


(4) 




334 


(4) 


339 


(4) 


340 


(4) 


341 


(4) 


342 


(4) 




343 


(4) 


344 


(4) 


345 


(4) 


346 


(4) 






$DS_$ST0RE 1 


175 (2) 212 


(4) 


233 


(4) 


234 


(4) 


235 


(4) 


236 


(4) 




238 


(4) 


239 


(4) 


241 


(4) 


242 


(4) 


243 


(4) 




244 


(4) 


245 


(4) 


246 


(4) 


247 


(4) 


248 


(4) 




249 


(4) 


250 


(4) 


251 


(4) 


252 


(4) 


253 


(4) 




254 


(4) 


255 


(4) 


256 


(4) 


257 


(4) 


258 


(4) 




259 


(4) 


260 


(4) 


261 


(4) 


262 


(4) 


263 


(4) 




264 


(4) 


266 


(4) 


267 


(4) 


268 


(4) 


269 


(4) 




270 


(4) 


271 


(4) 


272 


(4) 


273 


(4) 


274 


(4) 




275 


(4) 


276 


(4) 


277 


(4) 


278 


(4) 


279 


(4) 




280 


(4) 


281 


(4) 


282 


(4) 


283 


(4) 


284 


(4) 




285 


(4) 


286 


(4) 


287 


(4) 


288 


(4) 


289 


(4) 




290 


(4) 


291 


(4) 


292 


(4) 


293 


(4) 


294 


(4) 




296 


(4) 


297 


(4) 


298 


(4) 


299 


(4) 


300 


(4) 




301 


(4) 


302 


(4) 


303 


(4) 


304 


(4) 


306 


(4) 




307 


(4) 


308 


(4) 


309 


(4) 


310 


(4) 


311 


(4) 




312 


(4) 


313 


(4) 


314 


(4) 


315 


(4) 


316 


(4) 




317 


(4) 


318 


(4) 


319 


(4) 


320 


(4) 


321 


(4) 




322 


(4) 


323 


(4) 


324 


(4) 


325 


(4) 


326 


(4) 




327 


(4) 


328 


(4) 


329 


(4) 


330 


(4) 


331 


(4) 




332 


(4) 


333 


(4) 


334 


(4) 


335 


(4) 


336 


(4) 




337 


(4) 


338 


(4) 


339 


(4) 


340 


(4) 


341 


(4) 




342 


(4) 


343 


(4) 


344 


(4) 


345 


(4) 


346 


(4) 



1 












H 11 


• — - — ■ — ■ — ■ 1 


ZZ-ENSAA-7.0 


Cross 


reference 








27-JUL-1984 Fiche 8 F 


rame H11 Sequence 1579 
VAX-11 Macro V03-01 Page 70 
DMA1 :CSYS0.SYSMAINT3ICODE.MAR;43 (4) 


ICODE 




- InterDreted 


code for 


TSP 


27-JUL-1984 15:21:28 


Cross reference 












23-JUL-1984 16:23:10 










347 


(4) 


348 (4) 349 (4) 


350 (4) 351 (4) 










352 


(4) 






SDS.SSTRING 


1 


151 


(2) 


234 


(4) 


242 (4) 245 (4) 


246 (4) 247 (4) 










248 
294 


(4) 
(4) 


250 (4) 254 (4) 


255 (4) 261 (4) 


SDS AA11K 


1 


232 


(4) 


232 


(4) 






SDS~AA11K DEF 


1 


232 


(4) 


232 


(4) 






SDS~AD11K~ 


1 


233 


(4) 


233 


(4) 






SDSIAD11K DEF 


1 


233 


(4) 


233 


(4) 






SDS CI750" 


2 


235 


(4) 


235 


(4) 






$DSlCI780 


3 


236 


(4) 


236 


(4) 






SDS CI NODE 


4 


234 


(4) 


234 


(4) 






SDS'COflSOLE 


1 


237 


(4) 


237 


(4) 






SDS~CONSOLE DEF 


1 


237 


(4) 


237 


(4) 






SDS"CR11 


1 


238 


(4) 


238 


(4) 






SDS"CR11 DEF 


1 


238 


(4) 


238 


(4) 






SDS~DEQN5 


1 


239 


(4) 


239 


(4) 






$DS"DEQNA DEF 


1 


239 


(4) 


239 


(4) 






SDS'DEVTYP 


1 


187 


(2) 


206 


(3) 






SDS~DISK 


1 


240 


(4) 


240 


(4) 






SDS~D1SKJ)EF 


1 


240 


(4) 


240 


(4) 






SDS~DI_11 


1 


241 


(4) 


241 


(4) 






SDS DL11 DEF 


1 


241 


(4) 


241 


(4) 






SDSJ)LVJT 


2 


242 


(4) 


242 


(4) 






SDS DLVJ1 DEF 


1 


242 


(4) 


242 


(4) 






SDS"DMC11" 


1 


243 


(4) 


243 


(4) 






SDSJ)MC11_DEF 


1 


243 


(4) 


243 


(4) 






SDS DMF32 


1 


244 


(4) 


244 


(4) 






SDS~DMF32A 


2 


245 


(4) 


245 


(4) 






SDS~DMF32A DEF 


2 


245 


(4) 


245 


(4) 






SDSJ)MF32P~ 


1 


246 


(4) 


246 


(4) 






SDS DMF32P DEF 


1 


246 


(4) 


246 


(4) 






SDS~DMF32S~ 


1 


247 


(4) 


247 


(4) 






SDSJ)MF32S DEF 


2 


247 


(4) 


247 


(4) 






SDS DMF32 CEF 


1 


244 


(4) 


244 


(4) 






SDS"DMPir 


2 


248 


(4) 


248 


(4) 






SDSJ)MP11 DEF 


1 


248 


(4) 


248 


(4) 






SDS DMR11 


1 


249 


(4) 


249 


(4) 






SDS~DMR11 DEF 


1 


249 


(4) 


249 


(4) 






$DSJ)MZ32~ 


3 


250 


(4) 


250 


(4) 


«. 




SDS DMZ32 DEF 


2 


250 


(4) 


250 


(4) 






SDS~DR11B~ 


1 


251 


(4) 


251 


(4) 






SDS"DR11B DEF 


1 

i 


251 


(4) 


251 


(4) 






SDS~DR11K~ 


1 


252 


(4) 


252 


(4) 






SDS"DR11K DEF 


1 


252 


(4) 


252 


(4) 






SDS~DR11W" 


1 


253 


(4) 


253 


(4) 






SDS~DR11W DEF 


1 


253 


(4) 


253 


(4) 






SDSIDR750 


2 


254 


(4) 


254 


(4; 






SDS^DR750„DEF 


1 


254 


(4) 


254 


(4) 






SDS..DR780 


2 


255 


(4) 


255 


(4) 






$DS - DR780 - DEF 


1 


255 


(4) 


255 


(4) 






SDS.DUP11 


1 


256 


(4) 


256 


(4) 






SDS DUP11.DEF 


1 


256 


(4) 


256 


(4) 






SDS"DV11 


1 


257 


(4) 


257 


(4) 






SDS DV11 DEF 


1 


257 


(4) 


257 


(4) 






SDS~DU/730 


1 


258 


(4) 


258 


(4) 






SDSIDW730.DEF 


1 


258 


(4) 


258 


(4) 







ZZ-ENSAA-7.0 

ICODE 

Cross reference 

SDS DW750 
$DS"DW750 DEF 
SDS 0W780" 
$DS~DW780_DEF 
SDS~DZ11 
SDS~DZ11 DEF 
SDS"DZ32~ 
SDS~DZ32 DEF 
$DS D2V1T 
SDS"DZV11 DEF 
SDSlHPODEF 
$DS IEU11A 
SDS~IEU11AJ)EF 
SDS~KA730 
$DS'KA750 
SDS~KA780 
SDS~KA785 
SDS'KAXXX 
SDS~KA DEF 
SDSJ<MC11 
$DS KMC11 DEF 
$DS"KW11K " 
$DS"KW11K DEF 
SDSJ.A100" 
SDS LA100 DEF 
SDS~LA12 " 
SDSJ.A120 
SDS LA120 DEF 
$DS"LA12 DEF 
$DS"LA18D 
SDS"LA180 DEF 
SDS~LA34 " 
SDS~LA34 DEF 
SDSILA36" 
SDS LA36 DEF 
$DS"LA38" 
SDSJ.A38J)EF 
SDS LESI 
SDSJ.ES I J>EF 
SDSJ.N01 
SDS LN01 DEF 
SDS~LP04~ 
$DS~LP04_DEF 
SDS LP05 
SDS~LP05 DEF 
SDSJP06 
SDS LP06 DEF 
SDSILP07" 
SDS LP07 DEF 
SDSJ.P1T 
SDS LP11 DEF 
SDSlLPH" 
SDS LP14J)EF 
SDSJP25 
SDS LP25 DEF 
SDS~LP26 
SDS:LP26_DEF 



Cross reference 



- Interpreted code for TSP 



I 11 

27-JUL-1984 Fiche 8 Frame 111 Seguence 1580 

27-JUL-1984 15:21:28 VAX-11 Macro V03-01 Page 71 

23-JUL-1984 16:23:10 DMA1 :CSYS0,SYSMAINT]ICODE.MAR;43 (4) 





259 


(4) 


259 


(4) 




259 


(4) 


259 


(4) 


2 


260 


(4) 


260 


(4) 




260 


(4) 


260 


(4) 




261 


(4) 


261 


(4) 




261 


(4) 


261 


(4) 


2 


262 


(4) 


262 


(4) 




262 


(4) 


262 


(4) 




263 


(4) 


263 


(4) 




263 


(4) 


263 


(4) 


2 


118 


(2) 


118 


(2) 




264 


(4) 


264 


(4) 




264 


(4) 


264 


(4) 


3 


266 


(4) 


266 


(4) 


3 


267 


(4) 


267 


(4) 


2 


268 


(4) 


268 


(4) 


2 


270 


(4) 


270 


(4) 


2 


269 


(4) 


269 


(4) 


3 


265 


(4) 


265 


(4) 




271 


(4) 


271 


(4) 




271 


(4) 


271 


(4) 




272 


(4) 


272 


(4) 




272 


(4) 


272 


(4) 




274 


(4) 


274 


(4) 




274 


(4) 


274 


(4) 




273 


(4) 


275 


(4) 




275 


(4) 


275 


(4) 




275 


(4) 


275 


(4) 




273 


(4) 


273 


(4) 




276 


(4) 


276 


(4) 




276 


(4) 


276 


(4) 




277 


(4) 


277 


(4) 




277 


(4) 


277 


(4) 




278 


(4) 


278 


(4) 




278 


(4) 


278 


(4) 




279 


(4) 


279 


(4) 




279 


(4) 


279 


(4) 




280 


(4) 


280 


(4) 




280 


(4) 


280 


(4) 




281 


(4) 


281 


(4) 




281 


(4) 


281 


(4) 




282 


(4) 


282 


(4) 




282 


(4) 


282 


(4) 




283 


(4) 


283 


(4) 




283 


(4) 


283 


(4) 




284 


(4) 


284 


(4) 




284 


(4) 


284 


(4) 




285 


(4) 


285 


(4) 




285 


(4) 


285 


(4) 




286 


(4) 


286 


(4) 




286 


(4) 


286 


(4) 




287 


(4) 


287 


(4) 




287 


(4) 


287 


(4) 




288 


(4) 


288 


(4) 




288 


(4) 


288 


(4) 




289 


(4) 


289 


(4) 




289 


(4) 


289 


(4) 



ZZ-ENSAA-7.0 

1C0DE 

Cross reference 

SDSJ.P27 
SDSJ.P27 DEF 
SDSJ.PA1TK 
SDS LPA11K DEF 
SDSJ1A780 
SDS MA780 DEF 
SDS MBE " 
SDSlMBE DEF 
$DS ML1T 
$DS""ML11 DEF 
5DSIMS75D 
SDS^MS750^DEF 
SDS MS780 
$DSl«S780 DEF 
SDS.PCLH" 
SDS PCL11 DEF 
SDS~PX780~ 
SDSJ>X780^DEF 
SDS R80 
SDS"*R80 DEF 
SDSIRA60 
SDS RA60 DEF 
SDS RA80 
SDS~RA80_DEF 
SDS RA81 
SDS*"RA81 DEF 
SDSIRB73D 
SDS RB730 DEF 
SDS~RC25 " 
SDS~RC25 DEF 
SDS"RCF25 
SDS"RCF25 DEF 
SDS~RD51 " 
SDSlRD51,DEF 
SDS RD52 
SDSIRD52 DEF 
SDS.RH75D 
SDS RH750 DEF 
$DS;RH78G" 
SDSJ?H780_DEF 
SDS RK06 
SDS~RK06..DEF 
SDS RK07 
SDS~RK07 DEF 
$DS"RK61T 
SDS"RK611 DEF 
$DS~RL01 " 
$DSJ*L01,DEF 
SDS.RL02 
SDS_RL02,DEF 
$DS_RL11 
SDS RL11 DEF 
SDSIRM03" 
SDS RM03 DEF 
SDS~RM05 
SDS"RM05 DEF 
SDS:RM80" 



Cross reference 



- Interpreted code for TSP 



J 11 
27-JUL-1984 Fiche 8 Frame J11 Seguence 1581 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 72 
23-JUL-1984 16;23;10 DMA1 :CSYS0.SYSMAINT3ICODE.MAR;43 (4) 





290 


(4) 


290 


(4) 




290 


(4) 


290 


(4) 




291 


(4) 


291 


(4) 




291 


(4) 


291 


(4) 




292 


(4) 


292 


(4) 




292 


(4) 


292 


(4) 




293 


(4) 


293 


(4) 




293 


(4) 


293 


(4) 




294 


(4) 


294 


(4) 




294 


(4) 


294 


(4) 




295 


(4) 


295 


(4) 




295 


(4) 


295 


(4) 




296 


(4) 


296 


(4) 




296 


(4) 


296 


(4) 




297 


(4) 


297 


(4) 




297 


(4) 


297 


(4) 




298 


(4) 


298 


(4) 




298 


(4) 


298 


(4) 




299 


(4) 


299 


(4) 




299 


(4) 


299 


(4) 




300 


(4) 


300 


(4) 




300 


(4) 


300 


(4) 




301 


(4) 


301 


(4) 




301 


(4) 


301 


(4) 




302 


(4) 


302 


(4) 




302 


(4) 


302 


(4) 




303 


(4) 


303 


(4) 




303 


(4) 


303 


(4) 




306 


(4) 


306 


(4) 




306 


(4) 


306 


(4) 




304 


(4) 


304 


(4) 




304 


(4) 


304 


(4) 




307 


(4) 


307 


(4) 




307 


(4) 


307 


(4) 




308 


(4) 


308 


(4) 




308 


(4) 


308 


(4) 


2 


309 


(4) 


309 


(4) 




309 


(4) 


309 


(4) 


2 


310 


(4) 


310 


(4) 




310 


(4) 


310 


(4) 




314 


(4) 


314 


(4) 




314 


(4) 


314 


(4) 




315 


(4) 


315 


(4) 




315 


(4) 


315 


(4) 




316 


(4) 


316 


(4) 




316 


(4) 


316 


(4) 




311 


(4) 


311 


(4) 




311 


(4) 


311 


(4) 




312 


(4) 


312 


(4) 




312 


(4) 


312 


(4) 




313 


(4) 


313 


(4) 




313 


(4) 


313 


(4) 




317 


(4) 


317 


(4) 




317 


(4) 


317 


(4) 




318 


(4) 


318 


(4) 




318 


(4) 


318 


(4) 




319 


(4) 


319 


(4) 



ZZ-ENSAA-7.0 

I CODE 

Cross reference 

SDS RM80 DEF 
SDS**RP04" 
SDSlRP04J)EF 
SDS RP05 
SDS~RP05_DEF 
SDS.RP06 
SDS RP06JJEF 
SDS~RP07 
SDS~RP07 DEF 
$DS"RQDXT 
SDS~RQDX1 DEF 
SDS~RX02 " 
$DS~RX02 DEF 
SDS~RX21T 
SDS~RX211J)EF 
SDSIRX50 
SDS RX50J>EF 
SDS'SBIA 
SDS~SBIA_DEF 
SDS TE16 
SDS TE16 DEF 

sds;tmo3~ 

SDS TM03 DEF 

SDS~TM78~ 

SDS"TM78,DEF 

SDS..TS04 

SDS_TS04J)EF 

SDS TS05 

SDSITS05.DEF 

SDS TS11 

$DS~TS11J>EF 

SDS'TU45 

SDS~TU45 DEF 

SDS~TU58~ 

SDS~TU58J)EF 

SDS"TU77 

$DS"TU77J)EF 

SDSITU78 

SDS TU78_DEF 

SDS"TU80 

SDS~TU80 DEF 

$DSlTU81" 

SDS TU81_DEF 

SDSlUBE 

SDS.UBE DEF 

SDS UDA50 

$DS~UDA50^DEF 

SDS~UNA11 

SDS~UNA11_DEF 

SDS~VS100 

SDS~VS100 DEF 

$DS~VS125 

SDSIVS125.DEF 

SDS VS300 

SDS~VS300_DEF 

SDS'VTIOO 

$DS~VT100 DEF 



Cross reference 



- Interpreted code for TSP 



K 11 

27-JUL-1984 Fiche 8 Frame K11 Seguence 1582 

27-JUL-1984 15:21:28 VAX-11 Macro V03-0T Page 73 

23-JUL-1954 16:23:10 DMA1 :CSYSO.SYSMAINTJICODE.MAR;43 <4) 



319 


(4) 


320 


(4) 


320 


(4) 


321 


(4) 


321 


(4) 


322 


(4) 


322 


(4) 


323 


(4) 


323 


(4) 


324 


(4) 


324 


(4) 


325 


(4) 


325 


(4) 


326 


(4) 


326 


(4) 


327 


(4) 


327 


(4) 


328 


(4) 


328 


(4) 


329 


(4) 


329 


(4) 


330 


(4) 


330 


(4) 


331 


(4) 


331 


(4) 


332 


(4) 


332 


(4) 


333 


(4) 


333 


(4) 


334 


(4) 


334 


(4) 


335 


(4) 


335 


(4) 


336 


(4) 


336 


(4) 


337 


(4) 


337 


(4) 


338 


(4) 


338 


(4) 


339 


(4) 


339 


(4) 


340 


(4) 


340 


(4) 


341 


(4) 


341 


(4) 


342 


(4) 


342 


(4) 


343 


(4) 


34 3 


(4) 


344 


(4) 


344 


(4) 


345 


(4) 


345 


(4) 


346 


(4) 


346 


(4) 


350 


(4) 


350 


(4) 



319 


(4) 


320 


(4) 


320 


(4) 


321 


(4) 


321 


(4) 


322 


(4) 


322 


(4) 


323 


(4) 


323 


(4) 


324 


(4) 


324 


(4) 


325 


(4) 


325 


(4) 


326 


(4) 


326 


(4) 


327 


(4) 


327 


(4) 


328 


(4) 


328 


(4) 


329 


(4) 


329 


(4) 


330 


(4) 


330 


(4) 


331 


(4) 


331 


(4) 


332 


(4) 


332 


(4) 


333 


(4) 


333 


(4) 


334 


(4) 


334 


(4) 


335 


(4) 


335 


(4) 


336 


(4) 


336 


(4) 


337 


(4) 


337 


(4) 


338 


(4) 


338 


(4) 


339 


(4) 


339 


(4) 


340 


(4) 


340 


(4) 


341 


(4) 


341 


(4) 


342 


(4) 


342 


(4) 


343 


(4) 


343 


(4) 


344 


(4) 


344 


(4) 


345 


(4) 


345 


(4) 


346 


(4) 


346 


(4) 


350 


(4) 


350 


(4) 



ZZ-ENSAA-7.0 

I. CODE 

cross reference 

SDSJ/T220 
$DS VT220 DEF 
SDS~VT240~ 
$DS;VT240 J>EF 
SDS..VT50 
$DSJ/T50 DEF 
SDS VT52" 
$DS~VT52 DEF 
$DS~VT55" 
SDSZVT55_DEF 



oss reference 








- Interpreted 


code for 


TSP 


1 351 


(4) 


351 


(4) 


1 351 


(4) 


351 


(4) 


1 352 


(4) 


352 


(4) 


1 352 


(4) 


352 


(4) 


1 347 


(4) 


347 


(4) 


1 347 


(4) 


347 


(4) 


1 348 


(4) 


348 


(4) 


1 348 


(4) 


348 


(4) 


1 349 


(4) 


349 


(4) 


1 349 


(4) 


349 


(4) 
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74 
(4) 



+ — — — — — + 

! Performance indicators ! 

+ + 



Phase 



Page faults 


CPU Time 


Elapsed Time 


32 


00:00:00.11 


00:00:00.53 


120 


00:00:00.73 


00:00:02.27 


2806 


00:00:36.54 


00:01:00.47 


3 


00:00:00.74 


00:00:01.44 


1507 


00:00:08,19 


00:00:15.25 


64 


00:00:00.38 


00:00:00.40 


7 


00:00:00.02 


00:00:00.02 


483 


00:00:02.41 


00:00:03.40 


5028 


00:00:49.15 


00:01:23.80 



Init Jalizat ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

450239 bytes (880 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 555 non-local and local symbols 

353 source lines were read in Pass 1, producing object records in Pass 2. 

742 pages of virtual memory were used to define 367 macros. 

+™™«__— —..—.. — -+ 

! Macro library statistics ! 

+ . ™ + 



Macro I ibrary name 

DRB1jCDS.WORKJDIAG.ML8;955 
DMA1 :CSYS0.SYSMAINTDDS.«LB;218 
DMA1:CSYS0.SYSMAINT3DJAG.ML8;953 
SYS$SYSR00T:CSYSLIB]LJB.MLB;1 
SYS$SYSROOT:[SYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

"232" 




4 
236 



2460 GETS were required to define 236 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LIST=CDS.LJSJ/CR0SS/ENA8LE= (DEBUG, TRACE) IC0DE/UPDA=(J C0DE.UPD,K0DE.ENH)+SYS$LIBRARY:LIB/HBRARY*DMA1 : CSYSO.SYSMAINT 



.-... 



ZZ-ENSAA-7.0 

IOBASE 

Jable of contents 



*** IOBASE I/O 



data 



base 
IOBASE 



I/O data base 



M 11 
27-JUL-1984 Fiche 8 Frame M11 

27-JUL-1984 15:22:54 VAX-11 Macro 



Sequence 
V03-0T 



1584 
Page 







(2) 
(5) 



1 61 
222 



DECLARATIONS 

Device description database 



ZZ-ENSAA-7.0 

IOBASE 

12-46 



*** IOBASE I/O 



data base 
*** IOBASE 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



I/O data base 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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.TITLE IOBASE *** IOBASE I/O data base 

.ident /12-46/ 

.LIST ME8 

.DSABL GBL 

.NLIST CND 



Copyright (c) 1977, 1982, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
OTHER COPIES THEREOF, MAY n-n eg PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER Pt . :-0* EXCEPT FOR USE ON SUCH SYSTEM 
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



R.HEINEN 3-AUG-76 
MODIFICATION HISTORY: 



Ol 

02 

03 

04 
05 
06 
07 

08 
09 



10 

11 



N, HOWGATE 3-FEB-78 
ALTERED TO REPRESENT A 
FOR INITIAL DIAGNOSTIC 



VERSION 02 (ESSAA-4.00) 
ONE (4) DBA: SYSTEM 
SUPERVISOR QIO DEBUG 



N. HOWGATE 20-APR-78 VERSION 03 (ESSAA-4.01 ) . 
ADDED DEVICE DATA FOR ONE DMA: SYSTEM (3 UNITS) 

TOM JOUTTER 12-MAY-78 VERSION 04 (ESSAA-4.02) . 
ADDED DEVICE DATA FOR ONE DRA: SYSTEM (4 UNITS) 



TOM SOUTTER 
ADDED DEVICE 
NICK HOWGATE 
ADD LONGWORD 
NICK HOWGATE 



14-JUN-78 VERSION OS (ESSAA-4.03) . 

DATA FOR ONE MTA: SYSTEM (2 UNITS) 
22-JUN-78 

TO END OF RM03 UCB'S FOR ADDITIONAL STATUS 

11-JUL-78 

ADD RK07 SUPPORT IN DM TYPE UCB 

NICK HOWGATE 13-JUL-78 

ADD LONGWORD TO CR8 FOR UNIT INIT CODE 

CRB$L iNTD+VECSL UNITINIT 

NICK ROWGATE 24-AUG-78 

INCLUDE NEW UCB NTRIES (UCBSW.ERRCNT ,UCB$B FEX, UCBSB CEX) 

Roger Riggs JO-SEP-78 VERSION 6 (E5SAA 5.00) 

Major modifications to accomodate new QIO initialization 

and loadable drivers. 

Roger Riggs 1-0CT-1979 

Added DMP11 ,DMR1 1 ,DV1 1 ,LA18O,MS780 

John Ciukaj 1-15-80 



ZZ-ENSAA-7.Q 

10BASE 

•2-46 



*" IOBA5E I/O 



data base 




*** IOBASE 


1/0 ( 


0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


6m 


0000 


6S 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


cooo 


72 


0000 


73 


0000 


74 


0000 


75 


0000 


76 


0000 


77 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


82 


ocoo 


83 


0000 


8s 


0000 


85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


0000 


98 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0000 


103 


0000 


104 


0000 


105 


0000 


106 


0000 


107 


0000 


108 


0000 


109 


0000 


110 


0000 


111 


0000 


112 


0000 


113 


0000 


114 



data base 



B 12 
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7-JUL-19M 

'3-JUL-1984 



Fiche 8 Frame 812 



Sequence 1586 
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16:23:15 DMA1 :CSYS0.SYSMAINTJIOBASE. MAR; 155(1 ) 



12 



13 

14 
15 
16 



17 

18 

19 

20 
[21] 
[223 
C233 

[243 

C253 



[263 
27 

28 
29 
30 
31 



Added DL11,RX02,RX211,TU58,TS11 

M, Baagett 18-MAR-80 

Add T078 magtape 

Dave Butenhof, 15-dec-1980, V6.2 

Add ML11 PTDESC. 

Dave Butenhof, 19-mar-1981, version 6.3 

Add DV11 PTdesc. 

Add KA730 Ptdesc. 

-dave butenhof, 4-sep-1981, version 6.5 

add R8730 and R80 Ptable descriptors 

- Dave Butenhof, 26-0ct-1981, version 6.- 
Add some missing devices 

- Dave Butenhof, 10-Nov-1981 , version 6.- 
Add the UDA50 and RA80 devices 

- Dave Butenhof, 15-Dec-1981 , Version 6.6 
Add PX780 

- Dave Butenhof, 23-Feb-1982, version 6.6 
Add CIJIODE and CI 750 Ptable descriptors 

Dave Butenhof, 16-Apr-1982, verison 6.7 
Add RA81 Ptable descriptor 

Dave Butenhof, 29~Apr-1982, version 6.7 
Add RA60 Ptable descriptor 

Dave Butenhof, 05*-May -1982, version 6.8 

Activate the device name check feature which 
was added (latent) in 6.7 macros. 

Dave Butenhof, 11~May-1982, version 6.8 

Add Lp07 and Lp26 Ptabl.es for Dan MiUeville 

Dave Butenhof. 25-May-l982, version 6.8 

Add "console" Ptable desc. to I08ASE, This allows 

new console Ptable to be displayed by SHOW 

{DEVICE ! SELECT} without the annoying ".,," which 

means it couldn't find the Ptable. This device is 

attached at DS startup by KERNEL, and as it has 

a lower-case device type, CANNOT be attached manually! 

M. Baggett, 20-Jul-1982 Ver 6,9 
Added LP2? line printer. 

Bob 8erga*2i 1-0ct-82 Version 6.9 



I 



Added UNA11 (UNIBUS to NI Adapter) 



M. Baggett 1-Dec-1982 
Added TU80 magtape and DZ32. 

M. Baogett 8-Dec-1982 
Added Tu81 magtape. 



M, Baggett 

Added VS100. 



10-Dec-1982 



Version 6,10 
Version 6.10 
Version 6.10 



Bob Berga**i 1Q~Jan~83 Version 6.11 
Changed the comment before DStGA_PTABLE. 



ZZ-ENSAA-7,0 

IOBASE 

■ 2-46 



*** IOBASE 



I/O data base 
*** IOBASE 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



I/O data base 



115 ; 32 

116 

117 

118 ; 33 

119 

120 

121 i 34 

122 

123 

124 ; 35 

125 

126 

127 ; 36 

128 

129 

130 ; 37 

131 

132 

133 ; 38 

134 

135 

136 ; 39 

137 

138 

139 ; 40 

140 

141 

142 ; 41 

143 

144 

145 ; 42 

146 

147 

148 ; 43 

149 

150 

151 ; 44 

152 

153 

154 ; 45 

155 

156 

157 ; 46 

158 

159 



C 12 
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M. Baggett 
Added RC25. 



M. Beygett 

Added VS300 and RCF25. 



14-Jan-83 



15-Feb-83 



Version 6.11 
Version 6.11 



M. Baggett 14-Mar-1983 Version 6.11 
Added p-table for LESJ controller. 

K. Baggett 21~March-1983 Version 6.11 
Added p-tables for LA12,LA100,LN01 ,VT220,VT240. 



Bob Berga2zi 25-Apri 1-1983 
Added Ptable for KA785. 

Richard Brown 2-May-1983 
Added S8JA and KAxxx. 



Richard Brown 
Added RC11. 

M. Baggett 
Added IEU11A 

M. Baggett 
Added VS125. 



15-July-1983 

8-Aug-1983 

7-Sep-1983 



M. Bagqett 21-Sep-1983 
Added DISK p-table. 

M, Baggett 11-Oct-1983 
Added TAPE p-table. 

M. Baggett 13-OU-1983 
Added TS05 p-table. 

Bob Bergazzt Jan 23, 1984 
Added KAZZZ Ptable. 

M. Bagqett Feb 6, 1984 
Added DMZ32 p-table. 



Version 6.11 
Version 6.11 
Version 6-12 
Version 6.12 
Version 6.13 
Version 6.13 
Version 6.13 
Version 6.13 
Version 6.14 
Version 6.14 



Richard Brown July 7, 1984 Version 7,0 
Removed RC11, since it is really LESI. 



ZZ-ENSAA-7.0 

IOBASE 

12-46 



DECLARATIONS 






*** 


IOBASE 


I/O 


DECLARATIONS 




0000 


161 




0000 


162 




0000 


163 




0000 


164 




0000 


165 




0000 


166 




0000 


167 




0000 


168 




0000 






0000 




00000008 


0000 
0008 




OOOOOOOA 


0008 
OOOA 




00000008 


COOA 
0008 




OOOOOOOC 


0008 
OOOC 




00000018 


OOOC 
0018 




0000001 C 


0018 
001 C 




00000020 


001 C 
0020 




00000024 


0020 
0024 




00000026 


0024 
0026 




00000032 


0026 
0032 
0000 






0000 


169 



data base 



D 12 
27-JUL-1984 Fiche 8 Frame D12 Seguence 1588 

27-JUL-1984 15:22:54 VAX-11 Macro V03-0T Page 4 

23-JUL-1984 16:23; 15 DMA1 ;[SYS0.SYSMAINn IOBASE. MAR; 155(2) 



.S8TTL DECLARATIONS 
MACRO LIBRARY CALLS 



.Library /Sdiag/ 

$DS HPODEF 
SA?E LOCAL BLOCK 

NB,HPSQ DEVICE, HP$G DEVICE: 

NB,.BLK3, .BLKQ 1 

NB,HP$W SUE, HP$W SIZE; 

NB,.BLKQ, .BLKO 1 

NB,HP$B FLAGS, HP$B FLAGS: 

NB,.BLKB, ,BLKB 1 

NB,HP$B DRIVE, HP$B DRIVE: 

NB,.BLKB, .BLKB 1 

NB,HP$T DEVICE, HP$T DEVICE: 

NB,.BLKB, .BLKB 12 

NB,HP$A DEVICE, HPSA DEVICE: 

NB,.BLKr, .BLKr 1 

NB,HP$A DVA, HP$A DVA: 

NB,.BLKC, .8LKC 1 

NB, HPSA LINK, HPSA UNK: 

NB,.BLKC, .BLKC 1 

NB,HP$W VECTOR, HP$W VECTOR: 

NB,,BLKQ, .BLKO 1 

NB,HPST TYPE, HPST TYPE: 

NB,.BLKB, .BLKB 12 
NB,HP$A„DEPENDENT, HP$A_DEPENDENT: 

STORE 
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DECLARATIONS 



*** IOBASE I/O 
DECLARATIONS 



data base 
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0000 171 

0000 172 

0000 173 

0000 174 

0000 175 

0000 176 

0000 177 

00000000 178 

0000 179 

00000000 0000 180 

00000000 0004 181 

0008 182 

0008 183 

00000000 0008 184 

COOC 185 

0OO00O00 000C 186 

0010 187 

OOOOOOIO'OOOOOOIO 1 0010 188 



GLOBAL DATA 

SYSTEM BOOT UCB TABLES 



.PSECT 
IOCSAL SYSUCB: 
' .LONG 
.LONG 

IOCSGL DEVLIST 

" .LONG 
IOCSGL.ADPLJST 

.LONG 
IOCSGL OPTLJST 

.LONG 



SEP, SHR, 






EXE, WRT, LONG 

; SYSTEM DEVICE UCB TABLE 
; RP06 UCB TABLE 



START OF DEVICE LIST 



; START OF ADAPTER CONTROL BLOCK LIST 
; QUEUE OF DRIVER PROLOGUE BLOCKS 
IOCSGL.DPTL 1ST, IOCSGL. DPTLIST 
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IOBASE 
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DECLARATIONS 



*** IOBASE I/O 
DECLARATIONS 



00000080 
OOOOOOU 



OOOOOOOO' 
00000000' 
00000000 • 

oooooooo • 

00000000' 
OOOOOOOO' 
OOOOOOOO' 
OCOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 



OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOCOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 



00000080 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 



OOOOOOOO 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 
0014 
0O14 
0014 
0014 
0014 
0014 
C014 
0014 
0014 
0018 
0028 
0038 
0048 
0058 
0068 
0078 
0088 
0098 
00A8 
00B8 
00C8 
0OD8 
0OE8 
0OF8 
0108 
0118 
0128 
0138 
0148 
0158 
0168 
0178 
0188 
0198 
01A8 
01B8 
01C8 
01D8 
01E8 
01F8 
0208 
0218 
0218 
0218 
0218 
0218 
0218 
0218 
0218 



190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
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.PSECT WORK, NOSHR, NOEXE, WRT, LONG 



208 
209 
210 
211 
212 
213 
214 
215 



; The following table contains a select bit corresonding to the 
; entries in DSSGA.PTABLE. 

MAXPT=128 
DS$GA,SELECTS:: 

.8LKL MAXPT/32+1 

This table contains the addresses of each P-table actually to be tested. 
It is built at program start time by matching the device types in the 
program DEVTYP list with the type field in each P-table. 
DSPSGENjnABLES in DEVICE actually performs this. 



DS$GA_SELECTED: 
.LONG 
.LONG 



MAXPT 
OCMAXPT] 



This table contains the address of each known device. It is ordered. 
The most recently attached device has the lowest index in the table because 
entries are allocated from the bottom up. In addition as a byproduct of 
the SELECT command the specified devices are moved to the end of the list. 
This results in the most recently selected device is the last (in a series) 
to be tested. 
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DECLARATIONS 



*** IOBASE I/O 
DECLARATIONS 



data base 



OOOOOOOO 
00000000 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 



1 OOOOOOOO' 
•OOOOOOOO 1 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO 1 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO 1 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO 1 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO* 
'OOOOOOOO* 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 



OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 



00000080 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO* 
•OOOOOOOO' 
•OOOOOOOO 1 
•OOOOOOOO' 
•OOOOOOOO 1 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO' 
•OOOOOOOO* 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO' 
•OOOOOOOO 1 
•OOOOOOOO' 
'OOOOOOOO' 
'OOOOOOOO* 
•OOOOOOOO' 
'OOOOOOOO' 



0218 
0218 
0218 
0218 
021 C 
022C 
023C 
02AC 
025C 
026C 
027C 
028C 
029C 
02AC 
C2BC 
02CC 
02DC 
02EC 
02FC 
030C 
031C 
032C 
033C 
034C 
035C 
036C 
037C 
038C 
039C 
03AC 
03BC 
03CC 
03DC 
03EC 
03FC 
040C 



216 
217 
218 
219 
220 



DS$GA_PTABLE: 
.LONG 
.LONG 
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MAXPT 
OCMAXPTJ 
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041 C 


222 


00000000 


223 




0000 


224 




oooo 


225 




0000 


226 




0000 


227 




0000 


228 




oooo 


229 




0000 


230 




oooo 


231 




oooo 


232 




oooo 


233 




oooo 


234 




oooo 


235 




oooo 


236 




oooo 


237 




oooo 


238 




oooo 


239 




oooo 


240 




oooo 


241 




oooo 


242 




oooo 


243 




oooo 


244 




oooo 


245 




oooo 


246 




oooo 


247 




oooo 


248 




oooo 


249 




oooo 


250 




oooo 


251 




oooo 


252 


00000071 


oooo 




00000108' 


0004 




00000219* 


0008 




000002E9* 


oooc 




0000026A* 


0010 




00000370 * 


0014 




0000042D' 


0018 




00000438* 


001 c 




00000492 ' 


0020 




000004A2' 


0024 




000004EF' 


0028 




0000053D' 


002C 




00000590 ' 


0030 




000006B2' 


0034 




0000072C 


0038 




000007A0 1 


003C 




00000868* 


0040 




000008B6 • 


0044 




0OO0OA14* 


0048 




00000A62* 


004 C 




0OO00AB3* 


0050 




00000801 ' 


0054 




0OO00B8C ' 


0058 




0OO0OC1F' 


005C 




00000C6D' 


0060 




0OO0OC9C* 


0064 





.S8TTL 
.PSECT 



The following 
of device the 



Device description database 
DATA, SHR, NOWRT, NCEXE, BYTE 

list contains the descriptor for each type 
supervisor known about. 



DS$GA PTDESC:: 

" $DS_DEVTYP 



AL.DEVTYP: 



.LONG 
.LONG 
.LONG 
.LONG 
-LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 



1202 
[20] 
[41] 



[45] 



<>,<AA11K f AD11K,- 

CI780,CI7S0,CI NODE,- 

ConsoU,CR11,DlSK,DLl1,- 

DMC11 ,DMF32,DMF32A,DMF32P,- 

DMF32S,DMP11,DMR11,DMZ32,DR11B,- 

DR11K,DR11W,DR750,DR780,DUP11,- 

DW730,DW750,DW780,- 

DZ11,DZ32,IEU11A,KA730,KA750,KA780,KA785,KAXXX,KAZZZ,-; [44] 

KMC11,KW11K,LA12,LA34,LA36,LA38,- ; [35] 

LA100,LA120,LA180,LESI,LN01,LP04, - ; [34] 

LP05,LP06,LP07, - 

LP1 1 ,LP14,LP25,LP26,LP27,- 

LPA11K,MA780,M8E,ML11, - 

MS750,MS780,PCL11,PX780, - 

R80,RA6Q,RA80,RA81 ,RB730,RCF25,RC25,- ; C38K46] 

RH750,RH780,RL01,RL02,- 

RL11,RK06,RK07,RK611, - 

RM03,RM05,RM8Q, - 

RP04,RP05,RP06,RP07,RX02,- 

RX211,SBIA,TAPE,TE16,TM03,TM78, - ; [42] 

TS04,TS05,TS11,TU45,TU58,- ; [43] 

TU77,TU78,TU80,TU81,UBE,UDA50,UNA11,VS100,VS125,--; [40] 

VS300,VT50,VT52,VT55,VT100,VT220,VT240> ; [35] 

$$N 

AA11K 

AD11K 

CI780 

CI750 

CI NODE 

Console 

CR11 

DISK 

DL11 

DMC11 

DMF32 

DMF32A 

DMF32P 

DMF32S 

DMP11 

DMR11 

DMZ32 

DR11B 

DR11K 

DR11W 

DR750 

DR780 

DUP11 

DW730 

DW750 
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00000CE0' 
00000D54' 
OOOOODBD* 
OOOOOEAE' 
OOO0OEF9' 
OOO00FD4' 
00001 0A0' 
00001149' 
000011F2' 
0000129B' 
00001344' 
00001392' 
000013E3' 
000013FD' 
00001417' 
00001431 ' 
00001 44B' 
0O001466' 
00001481 ' 
0OO0149C' 
000014E8' 
00001502' 
00001 51 C 
00001536' 
00001550' 
00001 56A' 
00001587' 
000015D1' 
00001 5EB' 
00001605' 
0000161F' 
00001678' 
000016F3' 
00001707' 
00001769' 
00001 77A' 
00001 7CA' 
00001813' 
0000107C 
00001895 ' 
000018AF' 
000018C9' 
000018E3' 
00001912' 
00001 92D» 
00001947' 
00001 9A0' 
00001 A05' 
00001A1F' 
00001 A39' 
00001 A86' 
00001 AAO' 
00001 ABA' 
00001808' 
0000182C 
00001850' 
00001874' 



0068 
006C 
0070 
0074 
0078 
007C 
0080 
0084 
0088 
008C 
0090 
0094 
0098 
009C 
OOAO 
00A4 
00A8 
OOAC 
00B0 
0084 
0088 
008C 
OOCO 
00C4 
00C8 
OOCC 
OODO 
0OD4 
0OD8 
OODC 
OOEO 
00E4 
0OE8 
OOEC 
OOFO 
00F4 
00F8 
OOFC 
0100 
0104 
0108 
010C 
0110 
0114 
0118 

one 

0120 
0124 
0128 
012C 
0130 
0134 
0138 
013C 
0140 
0H4 
0148 



.LONG 


DW780 


.LONG 


DZ11 


.LONG 


DZ32 


.LONG 


IEU11A 


.LONG 


KA730 


.LONG 


KA750 


.LONG 


KA780 


.LONG 


KA785 


.LONG 


KAXXX 


.LONG 


KAZZZ 


.LONG 


KMC11 


.LONG 


KW11K 


.LONG 


LA12 


.LONG 


LA34 


.LONG 


LA36 


.LONG 


LA38 


.LONG 


LA100 


.LONG 


LA120 


.LONG 


LA180 


.LONG 


LESI 


.LONG 


LN01 


.LONG 


LP04 


.LONG 


LP05 


.LONG 


LP06 


.LONG 


LP07 


.LONG 


LP11 


.LONG 


LP14 


.LONG 


LP25 


.LONG 


LP26 


.LONG 


LP27 


.LONG 


LPA11K 


.LONG 


MA780 


.LONG 


MBE 


.LONG 


ML11 


.LONG 


MS750 


.LONG 


MS780 


.LONG 


PCL11 


.LONG 


PX780 


.LONG 


R80 


.LONG 


RA60 


.LONG 


RA80 


.LONG 


RA81 


.LONG 


RB730 


.LONG 


RCF25 


.LONG 


RC25 


.LONG 


RH750 


.LONG 


RH780 


.LONG 


RL01 


.LONG 


RL02 


.LONG 


RL11 


.LONG 


RK06 


.LONG 


RK07 


.LONG 


RK611 


.LONG 


RM03 


.LONG 


RM05 


.LONG 


RM80 


.LONG 


RP04 
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00001B98' 
00001B8C 1 
00001BEO' 
00001004' 
00001C1E* 
00001 C6C' 
00001 CAE' 
00001 CBE' 
00001CD8 1 
00001D06' 
00001D34' 
00001D8B' 
00001DF5' 
00001E4C' 
00001E66' 
00001 E80' 
00001 E9A' 
00001 EB4' 
000O1F23' 
00001 F7A' 
00001FB5' 
0000201E' 
0000206C' 
00C020C4' 
00002110* 
00002174' 
0000218E' 
000021 A8' 
00002102' 
000021 DD' 
000021F8' 



014C 
0150 
0154 
0158 
015C 
0160 
0164 
0168 
016C 
0170 
0174 
0178 
017C 
0180 
C184 
0188 
018C 
0190 
0194 
0198 
019C 
01A0 
01A4 
01A8 
01AC 
0180 
01B4 
01B8 
018C 
01C0 
01C4 
01C8 



253 



.LONG 


RP05 


.LONG 


RP06 


.LONG 


RP07 


.LONG 


RX02 


.LONG 


RX211 


.LONG 


SBIA 


.LONG 


TAPE 


.LONG 


TE16 


.LONG 


TM03 


.LONG 


TM78 


.LONG 


TS04 


.LONG 


TS05 


.LONG 


TS11 


.LONG 


TU45 


.LONG 


TU58 


.LONG 


TU77 


.LONG 


TU78 


.LONG 


TU80 


.LONG 


TU81 


.LONG 


UBE 


.LONG 


UDA50 


• LONG 


UNA 11 


.LONG 


VS100 


.LONG 


VS125 


.LONG 


VS300 


.LONG 


VT50 


.LONG 


VT52 


.LONG 


• VT55 


.LONG 


VT100 


.LONG 


VT220 


.LONG 


VT240 
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000001C8 255 .PSECT DATA, SHR, NQWRT, NOEXE, BYTE 

01C8 256 .NLIST ME,MEB 

01C8 257 .LIST MC 

01C8 258 

01C8 259 AA11K: $DS AA11K 

0219 260 AD11K: $DS"AD11K 

026A 261 $DS CI DEF 

026A 262 CI750: SDSICI750 

02E9 263 CI780: $DS CI780 

0370 264 CI_NODE:SDS~CI_NODE 

042D 265 Console: 

042D 266 SDS Console 

043B 267 CR11: SDS CR11 

0492 268 DISK: SDSJHSK 

C4A2 269 DL11: $DS DL11 

04EF 270 DMC11: SDS.DMC11 

053D 271 DMF32: SDSJ)MF32 

0590 272 DMF32A: SDSJ)MF32A 

06B2 273 DMF32P: $DS DMF32P 

072C 274 DMF32S: $DSlDMF32S 

07A0 275 DMP11: $DS DMP11 

0868 276 DMR11: $DS DMR11 

08B6 277 DM232: SDSZDMZ32 

0A14 278 DRUB: $DSJ>R11B 

0A62 279 DR11K: SDS.DR11K 

0AB3 280 DR11W: $DS DR11W 

0BO1 281 DR750: SDS~DR750 

0B8C 282 DR780: SDSJJR780 

0C1F 283 DUP11: SDS DUP11 

0C6D 284 DW730: $DS DW730 

0C9C 285 DW750: SDS.DW750 

OCEO 286 DW780: $DS_DW780 

0D54 287 DZ11: SDSJ)Z11 

ODBD 288 DZ32: $DSJ)Z32 

OEAE 289 IEU11A: SDSJEU11A 

0EF9 290 $DS KA DEF 

0EF9 291 KA730: SDS~KA730 

0FD4 292 KA750: SDSJ<A750 

10A0 293 KA780: $DS KA780 

1149 294 KA785: $DS"KA785 

11F2 295 KAXXX: SDSJCAXXX 

1298 296 KAZZZ: SDSJCAZZZ 

1344 297 KMC11: SDSJCMC11 

1392 298 KU11K: SDS KW11K 

13E3 299 LA12: $DSlLA12 

13FD 300 LA34: SDS LA34 

1417 301 LA36: $DS~IA36 

1431 302 LA38: $DSlLA38 

1448 303 LA100: SDS IA100 

1466 304 LA120: SDSILA120 

1481 305 LA180: SDS LA180 

149C 306 LESI: SDS^LESI 

14E8 307 LN01: SDS LN01 

1502 308 LP04: SDSILP04 

151 C 309 LP05: SDS LP05 

1536 310 LP06; SDS~lP06 

1550 311 LP07: SDSILP07 



C20J 
CZ03 

[203 



[413 



[453 



[163 



C28] 
[393 

C153 



[363 
[373 
[433 



[353 



[353 



[343 
[353 
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156A 


312 


15B7 


315 


15D1 


314 


15EB 


315 


1605 


316 


161F 


317 


1678 


318 


16F3 


319 


1707 


320 


1769 


321 


177A 


322 


17CA 


323 


1813 


324 


187C 


325 


1895 


326 


18AF 


327 


18C9 


328 


18E3 


329 


1912 


330 


1912 


331 


192D 


332 


1947 


333 


19A0 


334 


1A05 


335 


1A1F 


336 


1A39 


337 


1A86 


338 


1AA0 


339 


1ABA 


340 


1808 


341 


1B2C 


342 


1B50 


343 


1B74 


344 


1B98 


345 


18BC 


346 


1BE0 


347 


1C04 


348 


1C1E 


349 


1C6C 


350 


1CAE 


351 


1C8E 


352 


1CD8 


353 


1D06 


354 


1D34 


355 


1088 


356 


1DF5 


357 


1E4C 


358 


1E66 


359 


1E80 


360 


1E9A 


361 


1EB4 


362 


1F23 


363 


1F7A 


364 


1F85 


365 


201E 


366 


206C 


367 


20C4 


368 



LP11: 

LP14: 

LP25: 

LP26: 

LP27. 

LPA11K 

MA780: 

MBE? 

ML 1 1 : 

MS750 

MS780 

PCL11 

PX780 

R80: 

RA60 

RA80 

RA81 

RB730: 

;[463 

RCF25: 

RC25: 

RH750: 

RH780: 

RL01 

RL02 

RL11 

RK06 

RK07 

RK611 

RM03 

RM05 

RM80 

RP04 

RP05 

RP06 

RP07 

RX02 

RX211 

SBIA 

TAPE 

TE16 

TM03 

TM78 

TS04 

TS05 

TS11 

TU45 

TU58 

TU77 

TU78 

TU80 

TU81 . 

USE: 

UDA50 

UNA11 

VS100 

VS125 



$DS LP11 

$DS LP14 

SDSILP25 

$DS LP26 

tDSlLP27 
: SDS.LPA11K 

$DS .MA780 

$DS_MBE 

$DS ML 11 

$DS"MS750 

SDS.MS780 

$DS_PCU1 

$DS_PX780 

$DS_R80 

$DS RA60 

$DS"RA80 

$D$IRA81 

$D$ R8730 
RC11:~ $DS,.RC11 

$DS - RCF25 

$DS_RC25 

SDSJW750 

$DS_RH730 

$DS_RL01 

SDS..RL02 

$DS RL11 

$D$lRK06 

$DS_RK07 

SDSJWC611 

SDSIRM03 

SDS.RM05 

SDSJW80 

SDS.RP04 

$DS_RP05 

$DSJ?P06 

JDS RP07 

$DS"RX02 

SDS.RX21 1 

$DS_SBIA 

$DS TAPE 

$DS_TE16 

$DS_TM03 

$DS TM78 

SDSITS04 

SDS.JS05 

$DS_TS11 

IDS TU45 

$DSlTU58 

SDS.TU77 

$DS - TU78 

SDSJU80 

$DS TU81 

SDSlUBE 

$DS_UDA50 

$DS UNA11 

$DS~VS100 

SDSIVS125 



[193 
[163 

[17] 

[213 
[163 
[383 
[333 
C323 



[37] 
[42] 



[A3] 



[283 
[293 

[173 
[273 
[303 
[403 
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21 1 C 


369 VS300: 


21 74 


370 VT50: 


218E 


371 VT52: 


21A8 


372 VT55: 


21C2 


373 VT100: 


21DD 


274 VT220; 


21F8 


375 VT240: 


2213 


376 



$DS VS3O0 

$DS_VT50 

$DS_VT52 

$DS_VT55 

$DS,VT1O0 

$DS_VT220 

$DS VT240 

.END 



C333 



[35] 
[35] 



ZZ-ENSAA-7.0 
10BASE 
Symbol table 

SSN 
%% $ 

AAT1K 

AA11KSQ BR 

AA11K$lCLEN 

AD11K * 

AD11KSB BR 

ADlUcSlTlEN 

AL DEVTVP 

BIT... 

CISB BR 

CISB^NODE 

CISB TR 

CI$KfLEN 

CI$L^FUNC 

CI$l INDEX 

CISL'MAINT ID 

CI/50 

CI 780 

CI NODE 

CORSOLF 

C0NS0LE$K„LEN 

CR11 

CRIlSB BR 

CRIUlTLEN 

CR11$L'CSR 

DISK 

DISK$K_LEN 

DL11 

DL11$B M BR 

DL11SK LFN 

DL11SL"CSR 

DMC11 " 

DMC11SB BR 

DMC11$K'LEN 

DMC11$L"*CSR 

DMF32 " 

DMF32SB BR 

DMF3?$B~C0MM0N 

DMF32SBIFLAGS 

DMF32SK LEN 

DMF32$L~CSR 

DMF32A " 

DMF32ASB ACTIV 

DMF32A$BlBR 

DMF32ASB JUMP 

DMF32A$BlSPEED 

DMF32A$K_LEN 

DMF32A$W„FLAGS 

DMF32P 

DMF32PSB BR 

DMF32P$B"COMMON 

DMF32P$B~FLAGS 

DMF32P$K~LEN 

DMF32P$L'CSR 

DMF32S 

DMF32S$B_BR 
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00000071 

00000005 

000001 C8 R 

00000032 

00000033 

00000219 R 

0000003? 

00000033 

00000000 R 

00000005 

00000033 

00000034 

00000032 

00000041 

00000035 

0000003D 

00000039 

000%26A R 

000002E9 R 

00000370 R 

0000042D R 

00000032 

00000438 R 

00000036 

00000037 

00000032 

00000492 R 

00000032 

000004A2 R 

00000036 

00000037 

00000032 

000004EF R 

00000036 

00000037 

00000032 

0000053D R 

00000034 

00000032 

00000033 

00000039 

00000035 

00000590 R 

00000033 

00000032 

00000037 

00000034 

00000038 

00000035 

OOC00682 R 

00000034 

00000032 

00000033 

00000039 

00000035 

0000072C R 

00000034 



D 

D 

D 04 

D 

D 

D 04 

D 

D 

D 04 

D 

D 

D 

D 

D 

D 

D 

D 

D 04 

D 04 

D 04 



04 
04 



04 
04 



04 



D 

D 

D 

D 04 

D 

D 

D 

D 04 

r 

6 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 04 

D 

D 

D 

D 

D 

D 04 

D 



DMF32SSB COMMON 

DMF32S$B"FLA6S 

DMF32SSK LEN 

DMF32S$.'CSR 

DMP11 

DMP11$B„8R 

DMP11$B_C0MM0N 

DMP11SB FLAGS 

DMP11$KJ_EN 

DMP11SL..CSR 

DMR11 

DMR11SB BR 

DMR11SK"LEN 

dmrh$l;csr 

PMZ32 

DR11B 

PR11BSB.BR 

DR11BSK.LEN 

DR11BSL.CSR 

DR11K 

DR11KSB.BK 

DR11K$K,LEN 

DR11W 

DR11W$B,BR 

DR11WSK LEN 

DRUWSLlCSR 

DR750 

DR750SB BR 

DR750$B„CONFIG 

DR750SB.SELF 

DR750JB SLOT 

DR750SBJJUT 

DR750*K LEN 

DR780 " 

DR780$B_BR 

DR780SB.CONFIG 

DR780SB.SELF 

DR780SB.TR 

DR780SB UUT 

DR780SK LEN 

DSSGA^PTABLE 

DS$GA„PTDESC 

DSSGA.SELECTED 

DSSGA SELECTS 

DUP11 

DUP11SB.BR 

DUP11SK LEN 

DUP11$L.CSR 

DW730 

DW730SK.LEN 

DW750 

DW750SK LEN 

DW780 " 

DW780SB BR 

DW780SB"TR 

DW780SK"LEN 

DZ11 " 



00000032 


D 




00000033 


D 




00000039 


D 




00000035 


D 




000007AO R 


D 


04 


00000034 


D 




00000032 


D 




00000033 


D 




00000039 


D 




00000035 


D 




00000868 R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




000008B6 R 


D 


04 


00000A14 R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




O00OOA62 R 


D 


04 


00000032 


D 




00000033 


D 




00000AB3 R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




O0000B01 R 


D 


04 


00000033 


D 




00000035 


D 




00000034 


D 




00000032 


D 




00000036 


D 




00000037 


D 




O000OB8C R 


D 


04 


00000033 


D 




00000035 


D 




00000034 


D 




00000032 


D 




00000036 


D 




00000037 


D 




00000218 RG 


D 


03 


00000000 RG 


D 


04 


00000014 RG 


D 


03 


00000000 RG 


D 


03 


00000C1F R 


D 


U4 


00000036 


D 




00000037 


D 




00000032 


D 




O000OC6D R 


D 


04 


00000032 


D 




00000C9C R 


D 


0'. 


00000032 


D 




00000CE0 R 


D 


04 


00000033 


r 




00000032 


D 




00000034 


D 




O0000D54 R 


D 


C4 
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IOBASE 

Symbol table 

DZ11SB BR 
DZ11$B"MTYPE 
D211$K"L6N 
DZ11SL CSR 
DZ32 " 
DZ32SB ACTJV 
DZ32SI3"BRLVL 
DZ32SB.SPEED 
DZ32SW FLAGS 
DZ32S CEN 

hpsaJependent 
hpsa.0ev1ce 
hpsa ova 
hpsaIlink 

HPSB_C1.BR 

hpsb^ci node 
hpsb_ci~tr 
hpsb dmf32a act iv 
hpsb_dmf32a"br 
hpsb_dmf32a!jump 
hpsb.dmf32a speed 
hpsb dmf32p*br 
hpsb~dmf32p~ common 

HPSBlDMF32P_FLAGS 
HPSB„DMF32S..BR 
HPSB.DMF32S COMMON 
HPSB_DMF32S FLAGS 
HP$B DMF32 BR 
HPSB_DMF32~C0MM0N 
HP$B W DMF32"FLAGS 
HPSB.DMZ32IBR 
HPSB.DMZ32 MODEM 
HP$BJ)MZ32 OCTETO 
HPSB DMZ32"0CTET1 
HP$BlDMZ32lOCTET2 
HPSB.0MZ32 SPEED 
HPSB^DRJVE" 
HP$B DZ32 ACTIV 
HPSB.DZ32.BRLVL 
HPSB.DZ32 SPEED 
HPSB FLAGS 
HP$B"IEU11A 8R 
HP$B„LESI BR 
HPSB RB730 BR 
HP$B"RH750"BR 
hPS8~RH780~8R 
HPSB_RH780~TR 

HP$B RK61TBR 
HP$B"RL11 BR 
HPS8„RX21T BR 

HPSB„TM03J$RIVE 
HP$B TM78 DRIVE 
HPSBlTSOA^BR 
HPSB TS11 BR 
HPSB'TUSO'BR 
HP$B"TU81"BR 
HPSBlUDASD 8R 
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00000036 D 

00000037 D 

00000038 D 

00000032 D 
O0000DBD R D 04 

00000033 D 
00000032 D 

00000034 D 

00000035 D 
00000037 D 
00000032 D 
00000018 D 
0000001 C D 
00000020 D 
OO00C033 D 

00000034 D 
00000032 D 

00000035 D 
00000032 D 
00000037 D 
00000034 D 
00000034 D 

00000032 D 

00000033 D 

00000034 D 

00000032 D 

00000033 D 

00000034 D 

00000032 D 

00000033 D 

00000032 D 
00*00039 D 
C0000033 D 

00000034 D 

00000035 D 

00000036 D 
00000008 D 

00000033 D 
00000032 D 

00000034 D 
OOOOOOOA D 
00000032 D 
00000036 D 
00000036 D 

00000032 D 

00000033 D 
00000032 D 
00000036 D 
00000036 D 
00000036 D 
00000032 D 
00000032 D 
00000036 D 
00000036 D 
00000036 D 
00000036 D 
00000036 D 
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HPSB.UDA50.BURST 

HPSB_VS100_BR 

HPSB VS125 BR 

HPSB VS300"BR 

HPSK.C1 LER 

HPSK D15k LEN 

HPSK~DMF3?A_LEN 

HPSK.DMF32P.LEN 

HPSK.DMF32S LEN 

HPSK_DMF32jEN 

HPSK.DMZ32 LEN 

HPSKJEU11A LEN 

HP$K_LA100 CEN 

HPSK.lA12.tCN 

HPSK.LEN 

HPSKJ.ESIJ.EN 

HP$K_RA60 LEN 

HPSK_RA80~LEN 

HPSK.RA8VLEN 

HPSK - ,RB730 LEN 

HPSK.RC25 Jen 

HPSK„RCF25_LEN 

HPSK.RH750.LEN 

HPSK.RH780 LEN 

HP$K_RK06_TEN 

HPSK.RK07~LEN 

HPSK.RK61T LEN 

HPSK.RL01.CEN 

HPSK.RL02.LEN 

HPSK.RL11 LEN 

HPSK.RM03ZLEN 

HPSK_RM05„LEN 

HPSK.RM80 LEN 

HPSK.RP04.LEN 

HPSK RP05 LEN 

HPSK.RP06.LEN 

HPSK.RP07.LEN 

HPSK.RX02 LEN 

HPSK.RX21T LEN 

HPSK.SBIA.CEN 

HPSK TAPE.LEN 

HPSK w TE16lLEN 

HPSK.TM03.LEN 

HPSK. TM78 LEN 

HPSK.TS04.LEN 

HPSK_TS05_LEN 

HPSK TS11 LEN 

HPSKITU45ILEN 

HPSK.TU58.LEN 

HP$K.TU77_LEN 

HPSK.TU78.LEN 

HPSKJU80.LEN 

HPSK. TU81 LEN 

HPSK.UBE CEN 

HPSK.UDA50..LEN 

HPSK VS100.LEN 

HPSK.VS125.LEN 



00000037 
00000036 
00000036 
00000036 
00000041 
00000032 
00000038 
00000039 
00000039 
00000039 
0000003A 
00000033 
00000032 
00000032 
00000037 
0000C037 
00000032 
00000032 
00000032 
00000037 

00000032 
00000032 
00000033 
00000034 
00000032 
00000032 
00000037 
00000032 
00000032 

mm 

00000032 

00000032 

00000032 

00000032 

00000 

00000 

00000. 

000000 

00000032 



oooooo; 
0000003: 



66061 



00000033 
)03? 




17 
00000036 
00000038 
0000QQ37 
0000003? 
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HPSK..VS300 LEN 
HPSKJ/TKXTLEN 
HP$K Mi VT220lLEN 

hpsk...vt240 len 
hp*>kj/t50_cen 
hpskj/t52.len 
hpsk vt55 len 
hpsl^cijOnc 
hpsl ci index 
hpslji'maint id 
hpsl dmf32p c3r 
hp$l;dmf32sZcsr 

HPSLJW32 fSR 
HPSL^LESI IP 
HPSLJ*B730 CSR 
HP$LJ*K6ircSR 
HP$L RL11 PSR 
HPSL~RX21T CSR 
HPSLlTSOA CSR 
HPSL TS1TCSR 
HPSL TU80~CSR 
HPSL~TU8rcSR 
HPSLlUBE CSR 
HPSL UDA50 UDAIP 
HPSL VS100~*CSR 
HPSL~V$125~CSR 
HPSL"VS300~CSR 
HPSM~ALLOC~ 
HPSQ^OEVICE 
HPST^DEVICE 
HPST TYPE 
HPSWIDMF32A FLAGS 
HPSW.DMZ32 JOOP 

hpsw DZ32 Flags 

HPSWISIZE"* 

HPSW VECTOR 

IEU1TA 

IEU11ASB BR 

IEU11ASK~LEN 

IOCSAL^SUCB 

IOCSGL.ADPLJST 

IOCSGL.DEVLIST 

IOCSGL DPTLIST 

KASB ACC TYPE 

KASBlRESERVED 

KASB_SJD TYPE 

KASK^LEN" 

KASL.FLAGS 

KASL.SJD 

KASM CHAR 

KASM^CRC 

KASM D FLOAT 

KASM EEilT 

KASM~F FLOAT 

KASMlG"FLOAT 

KASM H~FLOAT 

KASM'PflCKED 



0000003/ 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000035 
0000003D 
00000039 
00000035 
00000035 
00000035 
00000032 
0000C032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000032 
00000001 
00000000 
0000000C 
00000026 
00000035 
00000037 
00000035 
00000008 
00000024 
OO000EAE 
00000032 
00000033 
00000000 

oooooooc 

00000008 
00000010 
00000042 
00000043 
0000003D 
00000046 
00000032 
0000003A 
00000100 
00000010 
00000002 
00000080 
00000001 
00000004 
00000008 
00000020 



R 



RG 
RG 
RG 
RG 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 




04 



02 
02 
02 
02 



kasm pack mul 
kasm todr 

kasvXfloat 
kasvh float 

kasv sb err 

kasv'tobr 

kasv"wcs ld 

kasu'latency 

kasw'mem size 

KASvf PROGRESS 

KASW~RESERVED 

KASW WCS 

KA730 

KA750 

KA780 

KA785 

KAXXX 

KAZZZ 

KMC11 

KMC11SB BR 

KMC11SK~LEN 

KMC11SL"CSR 

KW11K 

KW11KSB BR 

KW11KSK~LEN 

LAIOO " 

LA100SK LEN 

LA12 " 

LA12SK_LEN 

LA120 

LA120SK..LEN 

LA180 

LA180SK..LEN 

LA34 

LA34SK.LEN 

LA36 

LA36SK.LEN 

LA38 

LA38SK.LEN 

LESI 

LESJSB.BR 

LESJSK.LEN 

LESISL IP 

LN01 

LN01SK LEN 

LP04 " 

LP04SK LEN 

LP05 " 

LP05SK.LEN 

LP06 

LP06SK.LEN 

LP07 

LP07SK LEN 

LP11 " 

LP11SB BR 

LP11SK"LEN 

LPimjSR 



00000040 D 

00010000 D 

00000002 D 

00000003 D 
00000019 D 
00000010 D 
00000018 D 
0000003E D 
00000044 D 
00000040 D 
00000038 
00000036 D 
OOO00EF9 R 04 
00000FD4 R 04 
00001 OAO R 04 
00001149 R D 04 
000011F2 R 04 
00001 29B R D 04 
00001344 R D 04 

00000036 D 

00000037 D 
00000032 D 
00001392 R D 

00000032 D 

00000033 D 
0000144B R D 
00000032 D 
000013E3 R D 
00000032 D 
00001466 R D 
00000032 D 
00001481 R D 04 
00000032 
00001 3FD R D 04 
00000032 D 
00001417 R D 04 
00000032 D 
00001431 R D 04 
00000032 D 
00001 49C R D 04 

00000036 D 

00000037 D 
00000032 D 
000014E8 R D 04 
00000032 D 
00001502 R D 04 
00000032 D 
00001 51 C R D 04 
00000032 D 
00001536 R 04 
00000032 D 
00001550 R 04 

m 00032 

0156A R D 04 

00000036 

00000037 
00000032 



04 



04 
04 
04 
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LP14 

LP1ASK LEN 

I.P25 " 

LP25$K LEN 

LP26 " 

LP26SKJ.EN 

LP27 

LP27SK_LEN 

LPA11K 

LPA11KSB BR 

LPA11K$K"LEN 

LPA11KSL"CSR 

MA780 " 

MA780SB BR 

MA780$B"MPM 

MA780$B~PORT 

MA780$B~TR 

MA780$K~LEN 

MAXPT 

MBE 

MBESK LEN 

ML11 " 

ML11SB ARRAY 

ML11$B~CH1P 

ML11$K'LEN 

MS750 " 

MS750SK LEN 

MS780 " 

MS780$B ARRAYS 

MS780$B"TR 

MS780$K~LEN 

PCL11 " 

PCL11SB BR 

PCL11$K~LEN 

PCL11$L"CSR 

PDS ADD" 

PDlTCOMPLEMENT 

PD$~DECIMAL 

PD$"END 

PD$~FETCH 

PD$~HEXADECIMAL 

PD$"LITERAL 

PD$lLOGICAL 

PD$_NAME 

PD$_OCTAL 

PDS START 

PD$~STORE 

PD$"STRING 

PTD5M CONTROLLER 

PTDSM^DEVICE 

PTDSM ENDDEVICE 

PTDSM'INHERIT 

PTD$M~INHERIT CON 

PTDSMllNHERITlPRE 

PTD$M NAME 

PTD$M~UNIT 

PX780~ 



00001 5B7 fi 


D 


04 


00000032 


D 




000015D1 R 


D 


04 


00000032 


D 




000015EB R 


D 


04 


00000032 


D 




00001605 R 


D 


04 


00000032 


D 




0000161F R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




00001678 R 


D 


04 


00000033 


D 




00000034 


D 




00000035 


D 




00000032 


D 




00000036 


D 




00000080 


D 




00001 6F 3 R 


D 


04 


00000032 


D 




00001707 R 


D 


04 


00000032 


D 




00000033 


D 




00000034 


D 




00001769 R 


D 


04 


00000032 


D 




00001 77A R 


D 


04 


00000033 


D 




00000032 


D 




00000034 


D 




00001 7CA R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




0000008A 


D 




00000089 


D 




00000082 


D 




00000081 


D 




00000087 


D 




00000084 


D 




00000086 


D 




0000008B 


D 




0000008D 


D 




00000083 


D 




00000080 


D 




00000088 


D 




00000085 


D 




00000002 


D 




00000003 


D 




00000018 


D 




00000018 


D 




00000010 


D 




00000008 


D 




00000004 


D 




00000001 


D 




00001813 R 


D 


04 



PX780SB.BR 

PX780SB.NODE 

PX780SB TR 

PX780SK"LEN 

R80 

R80SK LEN 

RA60 

RA60$K_LEN 

RA80 

RA80SK.LEN 

RA81 

RA8WJ.EN 

RB730 

RB730SB BR 

RB730$KJ_EN 

RB730$L„CSR 

RC25 

RC25SK.LEN 

RCF25 

RCF25$K_LEN 

RH750 

RH750SB BR 

RH750$OEN 

RH780 

RH780SB BR 

RH780$B~TR 

RH780$OEN 

RK06 

RK06SK.LEN 

RK07 

RK07$K_LEN 

RK611 

RK611SB BR 

RK611$K""LEN 

RK611SLICSR 

RL01 

RL01SK.LEN 

RL02 

RL02$K_LEN 

RL11 

RL11SB.BR 

RL11$K_LEN 

RL11SL..CSR 

RM03 

RM03SK.LEN 

RM05 

RM05SK.LEN 

RM80 

RM80$K„LEN 

RP04 

RP04SK LEN 

RP05 

RP05SK.LEN 

RP06 

RP06SK LEN 

RP07 " 

RP07SK.LEN 



04 
04 



04 
04 



04 



00000033 D 

00000034 D 
00000032 D 

00000035 D 
00001 87C R D 04 
00000032 D 
00001895 R D 04 
00000032 
00001 8AF R 
00000032 
000018C9 R 
00000032 
000018E3 R 
00000036 
00000037 
00000032 
0000192D R 
00000032 
00001912 R 
00000032 
00001947 R 
00000032 
00000033 
00001 9A0 R 
00000033 
00000032 
00000034 
00001A86 R 
00000032 
00001AA0 R 
00000032 
00001ABA R 
00000036 
00000037 
00000032 
00001A05 R 
00000032 
00001 A1F R 
00000032 
00001A39 R 
00000036 
00000037 
00000032 
00001B08 R 
00000032 
0000182C R 
00000032 
00001B50 R D 
00000032 D 
00001B74 R D 04 
00000032 D 
000Q1B98 R D 04 
00000032 D 
00001BBC R D 04 
00000032 D 
O0001BE0 R D 04 
00000032 D 



D 

D 

D 

D 

D 

D 04 

D 

D 

D 

D 04 

D 

D 

D 

D 

D 

D 

D 04 

D 

D 

D 

D 

D 

D 04 



04 



04 
04 



D 
D 
D 
D 
D 
D 
D 
D 
D 

D 04 
D 
D 
D 

D 04 
D 

D 04 
D 
04 
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RX02 

RX02SK LEN 
RX211 " 
RX211SB BR 

RX211$K"LEN 
RX211SLICSR 
SBIA 

SBIASK LEN 
SIZ... 
TAPE 

TAPESK LEN 
TE16 " 
TE16SK LEN 
TM03 "" 
TM03SB DRIVE 
TM03$K~LEN 
TM78 " 
TM78SB.DRIVE 
TM78SK LEN 
TS04 " 
TS04SB BR 
TS04$K~LEN 
TS04SL CSR 
TS05 " 
TS05SB BR 
TS05$K"LEN 
TS11 " 
TS11SB BR 
TS11$K'LEN 
TS11$L"CSR 
TU45 " 
TU45$K LEN 
TU58 " 
TU58SK LEN 
TU77 ' 
TU77$K LEN 
TU78 ~ 
TU78$K LEN 
TU80 

TU80$B BR 
TU80$K"LEN 
TU81 " 
TU81SB BR 
TU81$K~LEN 

ruauLlcsR 

UBE 

UBE$K,LEN 

UBE$L CSR 

UDA50" 

UDA50SB BR 

UDA50$B~BURST 

U0A50$KlLEN 

UDASOSL^UDAJP 

UNA 11 

UNA11SB BR 

UNA11$K"lEN 

unah$l:csr 



Symbol table 



*** IOBASE I/O data base 



E 13 
27-JUL-1984 Fiche 8 Frame E13 Seguence 1602 

27-JUL-1984 15:22:54 VAX-11 Macro V03-0T Page 18 

23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAINT]IOBASE.MAR;155(6) 



00001 C04 R 





04 


00000032 


D 




00001C1E R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




00001 C6C R 


D 


04 


00000032 


D 




00000001 


D 




00001 CAE R 





04 


00000032 


D 




00001 CBE R 


D 


04 


00000032 


D 




00001 CD8 R 


D 


04 


00000032 


D 




00000033 


D 




00001 D06 R 


D 


04 


00000032 


D 




00000033 


D 




00001 D34 R 





04 


00000036 


D 




00000037 


D 




00000032 


D 




00001 D8B R 


D 


04 


00000032 


D 




00000033 


D 




00001 DF 5 R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




00001E4C R 


D 


04 


00000032 


D 




00001 E66 R 


D 


04 


00000032 


D 




00001E80 R 


D 


04 


00000032 


D 




00001 E9A R 


D 


04 


00000032 


D 




00001 EB4 R 


D 


04 


00000036 


D 




00000037 


D 




00001F23 R 


D 


04 


00000036 


D 




00000037 


D 




00000032 


D 




00001 F7A R 


D 


04 


00000036 


D 




00000032 


D 




00001FB5 R 


D 


04 


00000036 


D 




00000037 


D 




00000038 


D 




00000032 


D 




0000201 E R 


D 


04 


00000032 


D 




00000037 


D 




00000033 


D 





VS100 

VS100$B_BR 

VS100SK LEN 

VS100$LlCSR 

VS125 

VS125$B.BR 

VS125SK.LEN 

VS125SL CSR 

VS300 

VS300SB BR 

VS300$KlLEN 

VS300$L_CSR 

VT100 

VTIOOS^LEN 

VT220 

VT220$K^LEN 

VT240 

VT240$K,LEN 

VT50 

VT50SK..LEN 

VT52 

VT52SK..LEN 

VT55 

VT55SK.LEN 



0000206C R 

00000036 

00000037 

00000032 

000020C4 R 

C0000036 

00000037 

00000032 

000021 1C R 

00000036 

00000037 

00000032 

000021 C2 R 

00000032 

000021 DD R 

00000032 

000021 F 8 R 

00000032 

00002174 R 

00000032 

000021 8E R 

00000032 

000021 A8 R 

00000032 



04 



D 04 

D 

D 

D 

D 



D 

D 

D 04 

D 

D 

D 

D 04 

D 

D 04 

D 

D 04 

D 

D 04 

D 

D 04 

D 

D 04 

D 



ZZ-ENSAA-7.0 

10BASE 

Psect synopsis 



Psect synopsis 



*** I08ASE I/O data base 



F 13 
27-JUL-1984 Fiche 8 Frame F13 Seguence 1603 

27-JUL-1984 1 5:22:5A VAX-11 Macro V03-0T Page 19 

23-JUL-1984 16:23:15 DMA1 :CSYSO.SYS«AINTJIOBASE. MAR; 155(6) 



PSECT name 

ABS . 
SABSS 
SEP 
WORK 
DATA 



+ . + 

! Psect synopsis ! 

Allocation PSECT No. Attributes 

00000000 ( 0.) 00 ( 0J NOPIC USR 

00000046 ( 70.) 01 ( 1.) NOPIC USR 

00000018 ( 24.) 02 ( 2.) NOPIC USR 

0000041C ( 1052.) 03 ( 3.) NOPIC USR 

00002213 ( 8723.) 04 ( 4.) NOPIC USR 



CON 


ABS 


CON 


ABS 


CON 


REL 


CON 


REL 


CON 


REL 



LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 



LCL NOSHR EXE RD 

LCL SHR EXE RD 

LCL NOSHR NOEXE RD 

LCL SHR NOEXE RD 



WRT NOVEC BYTE 

WRT NOVEC LONG 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 



ZZ-ENSAA-7.0 

IOBASE 

Cross reference 



Cross reference 



*** IOBASE I/O data base 



6 13 
27-JUL-1984 Ffche 8 Frame G13 Seguence 1604 

27-JUL-1984 15:22:54 VAX-11 Macro V03-0T Page 20 

23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAINTJIOBASE.MAR;155<6) 



! Symbol Cross Reference ! 
+ + 



SYMBOL 

$$N 
$$ $ 
AAT1K 

AA11KSB BR 
AA11K$K~LEN 
A011K " 
AD11KSB BR 
AD11K$K"LEN 
AL DEVTVP 
BIT.., 



CI$B BR 

CISBlNODE 

CI$B_TR 

CI$K LEN 

CI$L_FUNC 

CISLJNDEX 

CISL MAINT ID 

CI75D 

CI 780 

CI NODE 

CONSOLE 

C0NSOLE$K LEN 



VALUE 


DEFINITION 


REFERENCES... 














=00000071 


252 


(5) 


252 


(5) 














=00000005 


264 


(6) 


264 


(6) 














000001 C8-R 


259 


(6) 


252 


(5) 














00000032 






259 


(6) 














00000033 






259 


(6) 














0000021 9-R 


260 


(6) 


252 


(5) 














00000032 






260 


(6) 














00000C33 






260 


(6) 














00000000-R 


252 


(5) 


















=00000005 


375 


(6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 








264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 








269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 








273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 








277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 








281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 








285 


(6) 


286 


(6) 


287 


(6) 


288 


(6) 








289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 








294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 








298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 








302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 








306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 








310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 








314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 








318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 








322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 








326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 








331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 








335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 








339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 








343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 








347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 








351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 








355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 








359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 








363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 








367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 








371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 








375 


(6) 














00000033 






262 


(6) 


263 


(6) 










00000034 






262 


(6) 


263 


(6) 


264 


(6) 






00000032 






262 


(6) 


263 


(6) 










00000041 






262 


(6) 


263 


(6) 


264 


(6) 






00000035 






262 


(6) 


263 


(6) 


264 


(6) 






0000003D 






264 


(6) 














00000039 






262 


(6) 


263 


(6) 


264 


(6) 






0000026A-R 


262 


(6) 


252 


(5) 














000002E9-R 


263 


(6) 


252 


(5) 














00000370-R 


264 


(6) 


252 


(5) 














0000042D-R 


265 


(6) 


252 


(5) 














00000032 






266 


(6) 








■ 








ZZ-ENSAA-7.0 

IOBASE 

Cross reference 

CR11 
CR11SB PR 

CR11$K~LEN 

CR11$L"CSR 

DISK "" 

DISK$K LEN 

DL11 " 

DL11S8 BR 

DL11$K"*LEN 

DL11$L~CSR 

DMC11 

DMC11SB BR 

DMCIWCLEN 

DMC11$L~CSR 

DMF32 " 

DMF32$B_BR 

DMF32$B COMMON 

DMF32$K~LEN 

DMF32$L~CSR 

DMF32A " 

DMF32ASB.ACTIV 

DMF32A$B,BR 

DMF32ASB JUMP 

DMF32A$B~SPEED 

DMF32A$KlLEN 

DMF32A$W_FLAGS 

DMF32P 

DMF32PSB BR 

DMF32P$BlC0MM0N 

DMF32PSB FLAGS 

DMF32P$K~LEN 

DMF32P$L_CSR 

DMF32S 

DMF32S$8„BR 

DMF32SSB FLAGS 

DMF32S*L~CSR 

OMP1 1 

DMP11$B BR 

DMP11$B~C0MM0N 

DMP11$B~FLAGS 

DMP11$K~LEN 

DMP11$L~CSR 

DMR11 " 

OMR11SB BR 

DMR11$K"LEN 

OMR11$L"CSR 

DMZ32 " 

DRUB 

DR11BSB BR 

DR11B$K"LEN 

DR11B$L~CSR 

DR11K 

DR11K$B BR 

DR11KSKILEN 

DR11W 

DR11WSB BR 

DR11W$K - LEN 



Cross reference 



*** IOBASE I/O data base 



00000438-R 267 (6) 

00000036 

00000037 

00000032 

00000492-R 268 (6) 

00000032 

000004A2-R 269 (6) 

00000036 

00000037 

00000032 

000004EF-R 270 (6) 

00000036 

00000037 

00000032 

0000053D-R 271 (6) 

00000034 

00000032 

00000039 

00000035 

00000590-R 272 (6) 

00000033 

00000032 

00000037 

00000034 

00000038 

00000035 

00000682-R 273 (6) 

00000034 

00000032 

00000033 

00000039 

00000035 

0000072C-R 274 (6) 

00000034 

00000033 

00000035 

000007AO-R 275 (6) 

00000034 

00000032 

00000033 

00000039 

00000035 

00000868-R 276 (6) 

00000036 

00000037 

00000032 

000008B6-R 277 (6) 

00000A14-R 278 (6) 

00000036 

00000037 

00000032 

00000A62-R 279 (6) 

00000032 

00000033 

00000AB3-R 280 (6) 

00000036 

00000037 



H 13 

27-JUL-1984 Fiche 8 Frame H13 Seguence 1605 

27-JUL-1984 15:22:54 VAX-1 1 Macro V03-01 Page 21 
23-JUL-1984 16:23:15 DMA1 :CSYS0*SYSMAINT3IOBASE, MAR; 155(6) 

252 (5) 

267 (6) 

267 (6) 

267 (6) 
252 (5) 

268 (6) 
252 (5) 

269 (6) 
269 (6) 

269 (6) 
252 (5) 

270 (6) 
270 (6) 

270 (6) 
252 (5) 

271 (6) 
271 (6) 

271 (6) 274 (6) 

271 (6) 
252 (5) 

272 (6) 
272 (6> 
272 (6) 
272 (6) 
272 (6) 

272 (6) 
252 (5) 

273 (6) 
273 (6) 
273 (6) 
273 (6) 

273 (6) 
252 (5) 
271* (6) 

274 (6) 
27ts (6) 
252 (5) 

275 (6) 
275 (6) 
275 (6) 
275 (6) 

275 (6) 
252 (5) 

276 (6) 
276 (6) 
276 (6) 
252 (5) 
25? (5) 
278 (6) 
278 (6) 

278 (6) 
252 (5) 

279 (6) 

279 (6) 
252 (5) 

280 (6) 
280 (6) 






ZZ-ENSAA-7.0 

IOBASE 

Cross reference 

DR11WSL CSR 

DR750 " 

DR750SB BR 

DR750$B~CONFIG 

DR750$B"*SELF 

DR750$B~*SL0T 

DR750$B"UUT 

DR750$K"LEN 

DR780 " 

DR780SB BR 

DR780$B~C0NFIG 

DR780$B~SELF 

DR780$B~TR 

DR780$B'UUT 

DR780$K~LEN 

DSSGA.PTABLE 

DS$GA„PTDESC 

DS$GA SELECTED 

DS$GA"SELECTS 

DUP11 

DUP1UB BR 

DUP11$OEN 

DUP11SL CSR 

DW730 

DW730SK LEN 

DW750 " 

DW750SK LEN 

DW780 

DW780SB BR 

DW780$B~TR 

DW780$lTLEN 

DZ11 " 

DZ11SB BR 

DZ11$B""MTYPE 

DZ11$K~LEN 

0Z11$L'CSR 

DZ32 " 

DZ32SB ACTIV 

DZ32$B~BRLVL 

DZ32$B~SPEED 

DZ32$U"FLAGS 

DZ32$ JEN 

HP$A BEVICE 



Cross reference 



*** IOBASE 1/0 data base 



I 13 
27-JUL-1984 Fiche 8 Frame 113 Seguence 1606 

27-JUL-1984 15.-22:54 VAX-11 Macro V03-01 Page 22 
23-JUL-1984 16:23:15 0MA1 :CSYS0.SYSMAINTJI0BASE.MAR;155(6) 



00000032 






280 


(6) 










00000B01-R 


281 


(6) 


252 


(5) 










00000033 






281 


(6) 










00000035 






281 


(6) 










00000034 






281 


(6) 










00000032 






281 


(6) 










00000036 






281 


(6) 










00000037 






281 


(6) 










00000B8C-R 


282 


(6) 


252 


(5) 










00000033 






282 


(6) 










00000035 






282 


(6) 










00000034 






282 


(6) 










00000032 






282 


(6) 










00000036 






282 


(6) 










00000C37 






282 


(6) 










0000021 8-R 


218 


(4) 














00000000-R 


229 


(5) 














0000001 4-R 


205 


(4) 














00000000-R 


196 


(4) 














00000C1F-R 


283 


(6) 


252 


(5) 










00000036 






283 


(6) 










00000037 






283 


(6) 










00000032 






283 


(6) 










00000C6D-R 


284 


(6) 


252 


(5) 










00000032 






284 


(6) 










00000C9C-R 


285 


(6) 


252 


(5) 










00000032 






285 


(6) 










OOOOOCEO-R 


286 


(6) 


252 


(5) 










00000033 






286 


(6) 










00000032 






286 


(6) 










00000034 






286 


(6) 










00000D54-R 


287 


(6) 


252 


(5) 










00000036 






287 


(6) 










00000037 






287 


(6) 










00000038 






287 


(6) 










00000032 






287 


(6) 










00000D8D-R 


288 


(6) 


252 


(5) 










00000033 






288 


(6) 










00000032 






288 


(6) 










00000034 






288 


(6) 










00000035 






288 


(6) 










00000037 






288 


(6) 










00000018 






259 


(6) 


260 


(6) 


262 


(6) 








264 


(6) 


267 


(6) 


269 


(6) 








271 


(6) 


111 


(6) 


273 


(6) 








275 


(6) 


276 


(6) 


211 


(6) 








279 


(6) 


280 


(6) 


281 


(6) 








283 


(6) 


284 


(6) 


285 


(6) 








287 


(6) 


288 


(6) 


289 


(6) 








292 


(6) 


297 


(6) 


298 


(6) 








312 


(6) 


317 


(6) 


318 


(6) 








320 


(6) 


322 


(6) 


323 


(6) 








329 


(6) 


333 


(6) 


334 


(6) 








340 


(6) 


341 


(6) 


342 


(6) 








344 


(6) 


345 


(6) 


346 


(6) 








349 


(6) 


350 


(6) 


353 


(6) 








355 


(6) 


356 


(6) 


357 


(6) 



263 


(6) 


270 


(6) 


274 


(6) 


278 


(6) 


282 


(6) 


286 


(6) 


291 


(6) 


306 


(6) 


319 


(6) 


324 


(6) 


337 


(6) 


343 


(6) 


347 


(6) 


354 


(6) 


362 


(6) 



ZZ-ENSAA-7,0 

IOBASE 

Cross reference 



HP$A DVA 



HP$8 DMZ32 BR 
HP$B DMZ32J10DEM 
HP$BJ)MZ32.,0CTET0 
HP$B DMZ32 OCTET1 
HP$B"DMZ32 0CTET2 
HP$B"*DMZ32"SPEED 
HP$B_DR1VE 



HP$B FLAGS 



Cross reference 



HP$B LESI BR 
HP$B"TU8(TBR 
HP$BJJDA50^BR 
HP$B UDA50 BURST 
HP$rDMZ32"LEN 
HP$K_LESI CEN 
HP$K UDA5D LEN 
HPSLlLESI TP 
HP$L TU80 CSa 
HP$L"UDA5D UOAIP 
HPWfALLOC" 



HP$W DMZ32 LOOP 
HP$W~VECTOR 



*** IOBASE I/O data base 



0000001 C 



00000032 
00000039 
00000033 
00000034 
00000035 
00000036 
0000000B 



0000000A 



00000036 
00000036 
00000036 
00090037 
0000003A 
00000037 
00000038 
00000032 
00000032 
00000032 
=00000001 



00000037 
00000024 



J 13 
27-JUL-1984 Fiche 8 Frame J13 Seguence 1607 

27-JUL-1984 15:22:54 VAX-11 Macro V03-OT Page 23 
23-JUL-1934 16:23:15 DMA1 :CSYS0.SYSMAINT3IO3ASE.MAR;155(6) 



363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 






262 


(6) 


263 


(6) 


264 


(6) 


284 


(6) 


285 


(6) 


286 


(6) 


333 


(6) 


334 


(6) 


350 


(6) 














277 


(6) 














277 


(6) 














277 


(6) 














277 


(6) 














277 


(6) 














277 


(6) 














264 


(6) 


285 


(6) 


286 


(6) 


319 


(6) 


320 


(6) 


333 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


350 


(6) 


353 


(6) 


354 


(6) 


267 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 


320 


(6) 


325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 


331 


(6) 


332 


(6) 


335 


(6) 


336 


(6) 


338 


(6) 


339 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


348 


(6) 


352 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


363 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 


375 


(6) 


306 


(6) 














362 


(6) 














365 


(6) 














365 


(6) 














277 


(6) 














306 


(6) 














365 


(6) 














306 


(6) 


•* 4 












362 


(6) 














365 


(6) 














267 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


302 


(iS) 


303 


(6) 


304 


(6) 


305 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 


320 


(6) 


325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 


331 


(6) 


332 


(6) 


335 


(6) 


336 


(6) 


338 


(6) 


339 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


348 


(6i 


352 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


363 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 


375 


(6) 


277 


(6) 














259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


267 


(6) 


269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 



ZZ-ENSAA-7.0 

IOBASE 

Cross reference 



Cross reference 



*** IOBASE I/O data base 



K 13 
27-JUL-1984 Fkhe 8 Frame K13 Sequence 1608 

27-JUL-1984 15:22:5-; VAX-1 1 Macro VO3-0T Page 24 

23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAINTJIOBASE.MAR;155(6) 



IEU11A 
IEU11ASB BR 
IEU11A$K"LEN 
IOCSAL SVSUCB 
IOCSGL>DPLIST 
IOCSGL DEVLIST 
IOCSGL PPTLIST 
KA$B_AtC.JYPE 

KA$K_LEN 

KA$L_FLAGS 

KA$M_CHAR 

KA$M_CRC 

KA$M_DJLQAT 

KA$M_EDIT 

KASM.FJLOAT 

KASM G FLOAT 
KASMlH 'FLOAT 
KA$M JACKED 

KA$M_PACK_MUL 

KASM TODR 
KASVlGJLOAT 

KASV.H^FLOAT 

KA$V SB ERR 
KASV"TOpR 
KA$V~WCS LD 
KASWiLATENCY 

KA$U MEM SIZE 
KA$WlPR05RESS 

KASWJJCS 

KA730 
KA750 
KA780 









276 


(6) 


277 


(6) 


278 


(6) 


279 


(6) 








280 


(6) 


281 


(6) 


282 


(6) 


283 


(6) 








284 


(6) 


285 


(6) 


286 


(6) 


287 


(6) 








288 


(6) 


289 


(6) 


297 


(6) 


298 


(6) 








306 


(6) 


312 


(6) 


317 


(6) 


318 


(6) 








323 


(6) 


324 


(6) 


329 


(6) 


333 


(6) 








334 


(6) 


337 


(6) 


340 


(6) 


349 


(6) 








350 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 








362 


(6) 


363 


(6) 


364 


(6) 


365 


(6) 








366 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 


0OO00EAE-R 


289 


(6) 


252 


(5) 














00000032 






289 


(6) 














00000033 






289 


(6) 














00000000-R 


179 


(3) 


















0000000OR 


185 


(3) 


















00000008-R 


183 


(3) 


















0000001 0-R 


187 


(3) 


188 


(3) 














00000042 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


00000046 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


00000032 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


=00000100 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


=00000010 






201 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


=00000002 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


=00000080 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


=00000001 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


<6> 


294 


(6) 


=00000004 






291 


(6) 














=00000008 






291 


(6) 














=00000020 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6^ 


293 


(6) 


294 


(6) 


=00000040 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


-00010000 






293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


=00000002 






292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


295 


<6) 


=00000003 






292 
296 
291 


(6) 
(6) 
(6) 


293 


(6) 


294 


(6) 


295 


(6) 


=00000019 


















-00000010 






291 


(6) 


292 


(6) 










=00000018 






291 


(6) 














0000003E 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


00000044 






291 


(6) 














00000040 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


00000036 






291 
295 


(6) 
(6) 


292 
296 


(6) 
(6) 


293 


(6) 


294 


(6) 


0OO00EF9-R 


291 


(6) 


252 


(5) 














00000FD4-R 


?92 


(6) 


252 


(5) 














000010AU-R 


293 


(6) 


252 


(5) 















ZZ-ENSAA-7.0 

IOBASE 

Cross reference 

KA735 
KAXXX 
KAZZZ 
KMC11 

KMC11SB BR 
KMC11SK LEN 
KMC11SL CSR 
KW11K 

KW11KSB BR 
KW11KSKILEN 
LA100 

LA100SK LEN 
LA12 

LA12SK LEN 
LA120 

LA120SK LEN 
LA180 " 

LA180SKJ.EN 

LA34 

LA34$K„LEN 

LA36 

LA36$K,LEN 

LA38 

LA38$K LEN 

LESI " 

LN01 

LN01$K LEN 

LPOA 

LP04$K_LEN 

LP05 

LP05SK LEN ■ 

LP06 " 

LP06$K_LEN 

LP07 

LP07$K LEN 

LP11 " 

LP11$B BR 

LP11$KlLEN 

LP11SL CSR 

LP14 

LPH$K LEN 

LP25 

LP25SK.LEN 

LP26 

LP26$K LEN 

LP27 " 

LP27$K_LEN 

LPA11K 

LPA11KSB BR 

LPA11K$K"LEN 

LPA11K$L~CSR 

MA780 " 

MA780SB BR 

MA780$B~MPM 

MA780*8~PORT 

MA780$B~TR 

MA780$K:LEN 



Cross reference 



*** IOBASE I/O data base 



0OO01 H9-R 294 (6) 

000011F2-R 295 (6) 

0000129B-R 296 (6) 

00001344-R 297 (6) 

00000036 

00000037 

00000032 

00001392-R 298 (6) 

00000032 

00000033 

0OO0144B-R 303 (6) 

00000032 

000013E3-R 299 (6) 

00000032 

00001466-R 304 (6) 

00000032 

00001481-R 305 (6) 

00000032 

000013FD-R 300 <6) 

00000032 

0000141 7-R 301 (6) 

00000032 

0OO01431-R 302 (6) 

00000032 

0000149C-R 306 (6) 

OOO0HE8-R 307 (6) 

00000032 

00001502-R 308 (6) 

00000032 

0OO0151C-R 309 (6) 

00000032 

00001536-R 310 (6) 

00000032 

00001550-R 311 (6) 

00000032 

00001 56A-R 312 (6) 

00000036 

00000037 

00000032 

00001 5B7-R 313 (6) 

00000032 

000015D1-R 314 (6) 

00000032 

000015EB-R 315 (6) 

00000032 

00001605-R 316 (6) 

00000032 

0000161F-R 317 (6) 

00000036 

00000037 

00000032 

00001678-R 318 (6) 

00000033 

00000034 

00000035 

00000032 

00000036 



L 13 
27-JUL-1984 Fiche 8 Frame L13 Seguence 1609 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 25 

23-JUL-1984 16:23:15 DMA1:CSYSO.SYSMAINTJIOBASE.MAR;155(6) 

252 (5) 

252 (5) 

252 (5) 

252 (5) 

297 (6) 

297 (6) 

297 (6) 
252 (5) 

298 (6J 

298 (O 
252 (!) 

303 (6; 
252 (5) 

299 (6) 
252 (5) 

304 (6) 
252 (5) 

305 (6) 
252 (5) 

300 (6) 
252 (5) 

301 (6) 
252 (5) 

302 (6) 
252 (5) 
252 (5) 

307 (6) 
252 (5) 

308 (6) 
252 (5) 

309 (6) 
252 (5) 

310 (6) 
252 (5) 

311 (6) 
252 (5) 

312 (6) 
312 (6) 

312 (6) 
252 (5) 

313 (6) 
252 (5) 

314 (6) 
252 (5) 

315 (6) 
252 (5) 

316 (6) 
252 (5) 

317 (6) 
317 (6) 

317 (6) 
252 (5) 

318 (6) 
318 (6) 
318 (6) 
318 (6) 
318 (6) 













N 13 












— — .— — __ . 


ZZ-ENSAA-7.0 Cross 


reference 






27« 


-JUL-1984 


Fiche S 


J Frame 


Ml 3 


Sequence 1610 


IOBASE 


*** IOBASE 


I/O data 


base 






27-JUL-1984 15:22: 


54 VAX- 


•11 Macro V03-0T 


Page 26 


Cross reference 












23-JUL-1984 16:23: 


15 DMA1 


:CSYS0 


.SYSMAINT]I0BASE.MAR;155(6) 


MAXPT 


=00000080 


195 


(4) 


197 
220 


(4) 
(4) 


206 


(4) 


207 


(4) 


219 


(4) 


MBE 


000016F3-R 


319 


(6) 


252 


(5) 














MBESK LEN 


00000032 






319 


(6) 














ML11 


00001 707-R 


320 


(6) 


252 


(5) 














ML11SB ARRAY 


00000032 






320 


(6) 














ML11SB""CHIP- 


00000033 






320 


(6) 














MLIISK'LEN 


00000034 






320 


(6) 














MS750 


00001 769-R 


321 


(6) 


252 


(5) 














MS750SKJ.EN 


00000032 






321 


(6) 














MS780 


00001 77A-R 


322 


(6) 


252 


(5) 














MS780SB ARRAYS 


00000033 






322 


(6) 














MS780SB TR 


00000032 






322 


(6) 














MS780$K~LEN 


00000034 






322 


(6) 














PCL11 ~ 


000017CA-R 


323 


(6) 


252 


(5) 














PCL11SB BR 


00000036 






323 


(6) 














pcuwClen 


00000037 






323 


(6) 














PCL11SL CSR 


00000032 






323 


(6) 














PD$ ADD 


=0O000O8A 


375 


(6) 


264 


(6) 


285 


(6) 


350 


(6) 






PD$~CASE 


=00000O8C 


375 


(6) 


264 


(6) 














PD$~COMPLEMENT 


=00000089 


375 


(6) 


285 


(6) 














PD$J)ECIMAL 


=00000082 


375 


(6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 










264 


(6) 


267 


(6) 


269 


(6) 


270 


(6) 










271 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 










275 


(6) 


276 


(6) 


277 


(6) 


278 


(6) 










279 


(6) 


280 


(6) 


281 


(6) 


282 


(6) 










283 


(6) 


286 


(6) 


287 


(6) 


289 


(6; 










291 


(6) 


292 


(6) 


293 


(6) 


294 


(6) 










295 


(6) 


296 


(6) 


297 


(6) 


298 


(6) 










306 


(6; 


312 


(6) 


317 


(6) 


318 


(6) 










320 


(6) 


322 


(6) 


323 


(6) 


324 


(6) 










333 


(6) 


334 


(6) 


337 


(6) 


340 


(6) 










349 


(6) 


353 


(6) 


354 


(6) 


355 


(6) 










356 


(6) 


357 


(6) 


362 


(6) 


363 


(6) 










365 


(6) 


366 


(6) 


367 


(6) 


368 


(6) 










369 


(6) 














PD$_END 


=00000081 


375 


(6) 


259 


(6) 


260 


<6> 


262 


(6) 


263 


(6) 










264 


(6) 


266 


(6) 


267 


(6) 


?iu 


(6) 










269 


(6) 


270 


(6) 


27 1 


(6) 


.72 


(6) 










273 


(6) 


274 


(6) 


275 


(6) 


?76 


(6) 










277 


(6) 


278 


(6) 


279 


(6) 


?80 


<6) 










281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 










285 


(6) 


286 


(6) 


287 


(6) 


288 


(6) 










289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 










294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 










298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 










302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 










306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 










310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 










314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 










318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 










322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 










326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 










331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 










335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 










339 


(6) 


340 


(6) 


341 


(6) 


342 


<6> 










343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 



ZZ-ENSAA-7.Q Cross reference 

IOBASE *** 108ASE I/O data base 

Cress reference 



N 13 
27-JUL-1984 Fiche 8 Frame N13 Seqjence 1611 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 27 

23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAIMT3IOBASE.MAR;155(6) 



PDSJETCH 

PD$_HEXADECIMAL 
PD$ UTEKAl 



PDS.LOGICAL 
PD$_NAME 







347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 






351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 






355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 






359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 






363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 






367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 






371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 






375 


(6) 














=00000087 


375 (6) 


262 


(6) 


263 


(6) 


264 


(6) 


285 


(6) 






286 


(6) 


319 


(6) 


320 


(6) 


333 


<6) 






334 


(6) 


341 


(6) 


342 


(6) 


343 


<6) 






344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 






350 


(6) 














=00000084 


375 (6) 


291 
295 


<6) 
(6) 


292 
296 


(6) 
(o) 


293 


(6) 


294 


(6) 


=00000006 


375 (6) 


262 


(6) 


263 


(6) 


264 


16) 


267 


(6) 






271 


(6) 


273 


(6) 


275 


(6) 


277 


Co) 






281 


(6) 


282 


(6) 


284 


(6) 


285 


(6) 






286 


(6) 


291 


(6, 


292 


(6) 


293 


(6) 






294 


(6) 


295 


(6) 


296 


(6) 


299 


(6) 






300 


(6) 


301 


(6) 


302 


(6) 


303 


<6) 






304 


(6) 


305 


(6) 


307 


(6) 


308 


(6) 






309 


(6) 


310 


(6) 


311 


(6) 


313 


(6) 






314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 






318 


(6) 


320 


(6) 


322 


(6) 


324 


(6) 






325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 






329 


(6) 


331 


(6) 


332 


(6) 


333 


<6) 






334 


(6) 


335 


(6) 


336 


(6) 


338 


(6) 






339 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 






344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 






348 


(6) 


350 


(6) 


352 


(6) 


355 


(6) 






356 


(6) 


357 


(6) 


358 


(6) 


359 


(6) 






360 


(6) 


361 


(6) 


362 


(6) 


363 


(6) 






367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 






371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 






375 


(6) 














=00000088 


375 <6) 


272 


(6) 


277 


<6> 


281 


(6) 


282 


(6) 






291 


(6) 


292 


(6) 


293 


(6) 


294 


(6) 






295 


(6) 


296 


(6) 










=00000080 


375 (6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 






264 


(6) 


267 


(6) 


268 


(6) 


269 


(6) 






270 


(6) 


272 


<6) 


273 


(6) 


274 


(6) 






275 


(6) 


276 


(6) 


271 


(6) 


278 


(6) 






279 


(6) 


280 


(6) 


281 


(6) 


282 


(6) 






283 


(6) 


284 


(6) 


285 


(6) 


286 


(6) 






287 


(6) 


288 


(6) 


289 


(6) 


291 


(6) 






292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 






296 


(6) 


2*7 


(6) 


298 


(6) 


299 


(6) 






300 


(6) 


301 


(6) 


302 


(6) 


303 


(6) 






304 


(6) 


305 


(6) 


306 


(6) 


307 


(6) 






308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 






312 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 






316 


(6) 


317 


(6) 


318 


(6) 


320 


(6) 






321 


(6) 


322 


(6) 


324 


(6) 


325 


(6) 






326 


(6) 


327 


(6) 


328 


(6) 


329 


<6) 






331 


'6) 


332 


(6) 


333 


(6) 


334 


(6) 






335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 



ZZ-ENSAA-7.0 

IOBASE 

Cross reference 



Cross reference 



*** lOBASt 1/0 data base 



B 14 

27-JUL-1984 



7-JUL-1984 
>3-JUL-1984 



fiche 8 feme 814 Sequence 1612 
15:22:54 VAX-11 Macro V03-01 Page 28 
16:23:15 DMA1 :f SYSO,SY$MAINT]IOBAS£,MAR;155(6) 



PDS OCTAL 



=00000083 



375 



(6) 



PDS^START 



=00000080 



375 



(6) 



P0S.ST0RE 



^OQOOOOBB 



375 



(6) 



339 
343 
347 
351 
355 
359 
363 
367 
371 
375 
259 
270 
274 
278 
287 
298 
323 
355 
363 
367 
259 
264 
269 
273 
277 
281 
285 
289 
294 
298 
302 
306 
310 
314 
318 
322 
326 
331 
335 
339 
343 
347 
351 
355 
359 
363 
367 
371 
375 
259 
264 
271 
275 
279 
283 
287 

292 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6) 
(6) 
(6) 
(6) 
(6) 
(6) 
'6> 
(6) 



260 
267 

2J2 

276 
280 
284 

288 
293 



16) 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 



341 
345 
349 
353 
357 
361 
365 
369 
373 

267 
272 
276 
280 
289 
312 
340 
357 
365 
369 
262 
267 
271 
275 
279 
283 
287 
292 
296 
300 
304 
308 
312 
316 
320 

333 
337 
341 
345 
349 
353 
357 
361 
365 

373 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 
(6) 
(6) 
<6> 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
<6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6> 
(6) 



342 
346 
350 
354 
358 
362 
366 
370 
374 

269 
273 
277 
283 
297 
317 
349 
362 
366 

263 
268 
272 
276 
280 
284 
288 
293 
297 
301 
305 
309 
313 
317 
321 
325 
329 
334 

338 
342 

hi 

350 
354 
358 
362 
366 
370 
374 

263 
270 
274 
27B 
282 
286 
291 
295 



(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 
(6) 
(6) 

<o 

(6) 
(6) 
(6) 
(6) 
(6) 

<6> 
(6) 
(6> 
(6) 
(6) 
(6) 
(6) 
(6) 
<6> 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 

(6) 
(6) 
(6) 
(6> 
(6> 
(6) 
(6> 
(6) 

(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 
(6) 



ZZ-ENSAA-7.0 Cross reference 

IOBASE 

l ross reference 



*** IOBASE I/O data base 



PD$ STRING 



PTD$M CONTROLLER 



=00000085 



=00000002 



375 (6) 



375 (6) 



PTD$M_DEVICE 



=00000003 



375 



(6) 



C H 
27-JUL-1984 Fiche 

27-JUL-1984 15:2, 
23-JUL-1984 16:2; 



8 Frame C14 Seguence 1613 

':54 VAX-11 Macro V03-0T Page 29 

1:15 DMA1j[SYS0,SY$MAIMT]JOeASE.MAR;155C6) 



296 


(6) 


297 


(6) 


298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 


318 


(6) 


319 


(6) 


320 


(6) 


322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 


339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


363 


(6) 


364 


(6) 


365 


<6) 


366 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 


375 


(6) 














264 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 


277 


(6) 


281 


(6) 


282 


(6) 


287 


(6) 


320 


(6) 










259 


(6) 


260 


<6) 


262 


(6) 


263 


(6) 


264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 


269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


<6) 


276 


(6) 


277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 


281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 


285 


(6) 


286 


(6) 


287 


(6) 


288 


(6) 


289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 


298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


i>02 


<6) 


303 


(6) 


304 


(6) 


305 


<6> 


316 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


312 


(6) 


3I3 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 


318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 


322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 


339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 


567 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 


375 


(6) 














259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


267 


(6) 


c6o 


(6) 


270 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 


281 


(6) 


282 


(6) 


283 


(6) 


297 


(6) 


298 


(6) 


317 


(6) 


320 


(6) 



ZZ-ENSAA-7.0 Cross reference 

I0BASE *** IOBASE 1/0 data base 

Cross reference 



D 14 
27-JUL-1984 Fiche 8 Frame D14 Seguence 1614 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 30 
23-JUL-1984 16:23:15 DMA1 :CSYSO.SYSMAJNTJ10BASE.MAR;155<6) 



PTDSM ENDDEVICE 



PTDSMJNHERIT 



PTDSM INHERITED 
PTD$M"INHERIT CON 







324 


(6) 


341 


(6) 


342 


(6) 


343 


(6) 






344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 






351 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 






359 


(6) 


362 


(6) 


363 


(6) 


364 


(6) 






366 


(6) 














=0000001B 


375 (6- 


> 299 


(6) 


300 


(6) 


301 


(6) 


302 


(6) 






303 


(6) 


304 


(6) 


305 


(6) 


307 


(6) 






308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 






313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 






325 


(6) 


327 


(6) 


328 


(6) 


331 


(6) 






332 


(6) 


335 


(6) 


336 


(6) 


338 


(6) 






339 


(6) 


348 


(6) 


352 


(6) 


358 


(6) 






360 


(6) 


361 


(6) 


367 


(6) 


368 


(6) 






369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 






373 


(6) 


374 


(6) 


375 


(6) 






=00000018 


375 <6 


I 259 


(6) 


260 


(6) 


262 


<6) 


263 


<6> 






264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 






269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 






273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 






277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 






281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 






285 


(6) 


286 


(6) 


287 


(6) 


288 


(6) 






289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 






294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 






298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 






302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 






306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 






310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 






314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 






318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 






322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 






326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 






331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 






335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 






339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 






343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 






347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 






351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 






355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 






359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 






363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 






367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 






371 


(6) 


372 


(6) 


373 


V6) 


374 


(6) 






375 


(6) 








r 






=00000008 


375 (6) 
















-00000010 


375 (6) 259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 






264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 






269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 






273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 






277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 






281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 






? §5 


(6) 


286 


(6) 


287 


f6) 


288 


(6) 






289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 






294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 






298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 






302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 






306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 



ZZ-ENSAA-7,0 

IOBASE 

Cross reference 



Cross reference 



*** IOBASE 1/0 data base 



E 14 
27-JUL-1984 Fiche 8 frame E14 Seguence 1615 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 31 

23-JUL-1984 16:23:15 DMA1 ;CSYS0.SYSMAJNT;j1OBASE.MAR;155<6) 



PTDSMJNHERJT.PRE 



PTDSM NAME 
PTD$M~UNIT 





310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 




314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 




318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 




322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 




326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 




331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 




335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 




339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 




343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 




347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 




351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 




355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 




359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 




363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 




367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 




371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 




375 


(6) 














=00000008 375 


(6) 259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 




264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 




269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 




273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 




27? 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 




281 


(6) 


2S2 


(6) 


283 


(6) 


284 


(6) 




285 


(6) 


286 


(6) 


287 


(6) 


288 


(6) 




289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 




294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 




298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 




302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 




306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 




310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 




314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 




318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 




322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 




326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 




331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 




335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 




339 


(6) 


340 


(61 


341 


(6) 


342 


(6) 




343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 




347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 




351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 




355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 




359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 




363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 




367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 




371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 




575 


(6) 














=00000004 375 


(6) 264 


(6) 


351 


(6) 










=00000001 375 


(6) 259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 




264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 




269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 




273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 




277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 




281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 




285 


(6) 


286 


(6) 


287 


(6) 


288 


(6) 




289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 




294 


'6) 


295 


(6) 


296 


(6) 


297 


(6) 




298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 



ZZ-ENSAA-7.0 

IOBASE 

Cross reference 



Cross reference 



*** I08ASE I/O data base 



F H 
27-JUL-1984 Fiche 8 Frame F14 Seguence 1616 

27-JUL-1984 15:22: 54 VAX-11 Macro V03-01 Page 32 

23-JUL-1984 16:23:15 DMA1 ;CSYS0. SYSMAINTJIOBASE. MAR; 155(6) 



PTDSV^CONTROLLER 

PTD$VJNHERIT_CON 

PTDSVJNHERIT.PRE 

PTDSV NAME 

PTDSV^UNIT 

PX780 

PX780SB BR 

PX780$B~N0DE 

PX780$B"TR 

PX780$K~LEN 

R80 

R80$K,LEN 

RA60 

RA60SK LEN 

RA80 " 

RA80SK LEN 

RA81 " 

RA81SK..LEN 

RB730 

RB730SB 8R 

RB730SK\EN 

RC25 

RC25SK LEN 

RCF25 

RCF25SK LEN 

RH750 

RH750SB BR 

RH750$K'LEN 

RH780 

RH780SB BR 

RH780$B"TR 

RH780$K""LEN 

RK06 

RK06tK LEN 

RK07 " 

RK07$K LEN 

RK611 ' 
RK611$B_BR 









302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 








306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 








310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 








314 


(6) . 


315 


(6) 


316 


(6) 


317 


(6) 








318 


(6) * 


319 


(6) 


320 


(6) 


321 


(6) 








322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 








326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 








331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 








335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 








339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 








343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 








347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 








351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 








355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 








359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 








363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 








367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 








371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 








375 


(6) 














=00000001 


375 


(6) 


















=00000004 


375 


(6) 


















=00000003 


375 


(6) 


















=00000002 


375 


(6) 


















=00000000 


375 


(6) 


















00001 81 3-R 


324 


(6) 


252 


(5) 














00000033 






324 


(6) 














00000034 






324 


(6) 














00000032 






324 


(6) 














00000035 






324 


(6) 














00001 870R 


325 


(6) 


252 


(5) 














00000032 






325 


(6) 














00001 895-R 


326 


(6) 


252 


(5) 














00000032 






326 


(6) 














00001 8AF-R 


327 


(6) 


252 


(5) 














00000032 






327 


(6) 














00001 8C9-R 


328 


(6) 


252 


(5) 














00000032 






i?8 


(6) 














00001 8E3-R 


329 


<6> 


25^ 


(5) 














00000036 






7*9 


(6) 














00000037 






j29 


(6) 














00001 92D-R 


332 


(6) 


252 


(5) 














00000032 






332 


(6) 














00001912-R 


331 


(6) 


252 


(5) 














00000032 






331 


(6) 














00001 94 7-R 


333 


(6) 


252 


(5) 














00000032 






333 


(6) 














00000033 






333 


(6) 














00001 9A0-R 


334 


(6) 


252 


(5) 














00000033 






334 


(6) 














00000032 






334 


(6) 














00000034 






334 


(6) 














00001A86-R 


338 


(6) 


2j2 


(5) 














00000032 






338 


(6) 














00001 AA0-R 


339 


(6) 


252 


(5) 














00000032 






339 


(6) 














00001 ABA-R 


340 


(6) 


252 


(5) 














00000036 






340 


(6) 












I 



2Z-ENSAA-7.0 

10BASE 

Cross reference 

RK611SK LEN 
RK61UL"CSR 
RL01 

RL01SK LEN 
RL02 "" 
RL02$K LEN 
RL11 " 
RL11SB BR 
RL11$K~LEN 
RL11$I~CSR 
RM03 " 
RM03$K LEN 
RM05 " 
RM05$K LEN 
RM80 " 
RM80SK LEN 
RP04 " 
RP04SK LEN 
RP05 "" 
RP05$K LEN 
RP06 " 
RP06SK LEN 
RP07 " 
RP07SK LEN 
RX02 " 
RX02SK..LEN 
RX211 

RX211$B BR 
RX211$K"LEN 
RX211$L~CSR 
SBIA 

SB1ASK LEN 
SIZ..,~ 



Cross reference 



*** IOBASE 1/0 data base 



G 14 

27-JUL-1984 Fiche 8 Frame G14 Seguence 1617 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 33 

23-JUL-1984 16:23:15 DMA1 :[SYS0.SYSMAINTJI0BASE.MAR;155(6) 



00000037 






340 


(6) 














00000032 






340 


(6) 














00001A05-R 


335 


(6) 


252 


(5) 














00000032 






335 


(6) 














00001A1F-R 


336 


(6) 


252 


(5) 














00000032 






336 


(6) 














00001A39-R 


337 


(6) 


252 


(5) 














00000036 






337 


(6) 














00000037 






337 


(6) 














00000032 






337 


(6) 














00001B08-R 


341 


(6) 


252 


(5) 














00000032 






341 


(6) 














00001B2OR 


342 


(6) 


252 


(5) 














00000032 






342 


(6) 














00001B50-R 


343 


(6) 


252 


(5) 














00000032 






343 


(6) 














00001B74-R 


344 


(6) 


252 


(5) 














00000032 






344 


(6) 














00001B98-R 


345 


(6) 


252 


(5) 














00000032 






345 


(6) 














00001B8OR 


346 


<6) 


252 


(5) 














00000032 






346 


(6) 














00001BEO-R 


347 


(6) 


252 


(5) 














00000032 






347 


(6) 














00001 C04-R 


348 


(6) 


252 


(5) 














00000032 






348 


(6) 














00001C1E-R 


349 


(6) 


252 


(5) 














00000036 






349 


(6) 














00000037 






349 


(6) 














00000032 






349 


(6) 














00001 C6C-R 


350 


(6) 


252 


(5) 














00000032 






350 


(6) 














00000001 


375 


(6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 








264 


(6) 


266 


(6) 


267 


(6) 


268 


(6) 








269 


(6) 


270 


(6) 


271 


(6) 


111 


(6) 








273 


(6) 


274 


(6) 


275 


(6) 


276 


<M 








211 


(6) 


278 


(6> 


279 


(6) 


280 


(n> 








281 


(6) 


282 


(6) 


283 


(6) 


284 


(b) 








285 


(6) 


286 


(6) 


287 


(6) 


288 


6) 








289 


(6) 


291 


(6) 


292 


(6) 


293 


.6) 








2Q4 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 








298 


(6) 


299 


(6) 


300 


(6) 


301 


f>) 








302 


(6) 


303 


(6) 


304 


(6) 


305 


6) 








306 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 








310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 








314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 








318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 








322 


(6) 


323 


(6) 


324 


(6) 


325 


<M 








326 


(6) 


327 


(6) 


328 


(6) 


329 


lO 








331 


(6) 


332 


(6) 


"3 


(6) 


334 


(6) 








335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 








339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 








343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 








347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 








351 


(6) 


352 


(6) 


353 


(6) 


354 


(6) 








355 


'6) 


356 


(6) 


357 


(6) 


358 


(6) 








359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 



ZZ-ENSAA-7.0 

10BASE 

Cross reference 



Cross reference 



*** 10BASE 1/0 data base 



H 14 

27-JUL-1984 Fiche 8 Frame H14 Seguence 1618 

27-JUL-1984 15:22:54 VAX-11 Macro V03-0T Page 34 

23-JUL-1984 16:23:15 0MA1 :CSYS0.SYSMAJNT]I0BASE.MAR;155<6) 



TAPE 

TAPESK LEN 

TE16 " 

TE16SK LEN 

TM03 

TM03$BJ)RIVE 

TM03$K LEN 

TM78 " 

TM78SB DRIVE 

TM78$kTLEN 

TS04 " 

TS04SB..BR 

TS04$K_LEN 

TS04SL CSR 

TS05 " 

TS05SB BR 

TS05$KJ_EN 

TS11 

TS1UB.BR 

TS11SK LEN 

TS11$L~CSR 

TU45 " 

TU45$K_LEN 

TU58 

TU58$K LEN 

TU77 " 

TU77$K LEN 

TU78 " 

TU78SK LEN 

TU80 

TU80SK.LEN 

TU81 

TU81$B BR 

TU81SKJ.EN 

TU81$L_CSR 

UBE 

UBEtK LEN 

UBESLlCSR 

UDA50 

UNA11 

UNAIUB^BR 

UNA11SK LEN 

UNA11$L~CSR 

VS100 *" 

VS100SB BR 

VS100SK LEN 

VS100$LlCSR 

VS125 

VS125SB BR 

VS125$K_LEN 

VS125$L_CSR 

VS300 

VS300SB BR 









363 


(6) 


364 (6) 


365 (6) 


366 (6) 








367 


(6) 


368 (6) 


369 (6) 


370 (6) 








371 


(6) 


372 (6) 


373 (6) 


374 (6) 








375 


(6) 








00001 CAE-R 


351 


(6) 


252 


(5) 








00000032 






351 


(6) 








00001 CBE-R 


352 


(6) 


252 


(5) 








00000032 






352 


(6) 








00001 CD8-R 


353 


(6) 


252 


(5) 








00000032 






353 


(6) 








00000033 






353 


(6) 








00001D06-R 


354 


(6) 


252 


(5) 








00000032 






354 


(6) 








00000033 






354 


(6) 








00001 P34-R 


355 


(6) 


252 


(5) 








00000036 






355 


(6) 








00000037 






355 


(6) 








00000032 






355 


(6) 








00001 D8B-R 


356 


(6) 


252 


(5) 








00000032 






356 


(6) 








00000033 






356 


(6) 








00001DF5-R 


357 


(6) 


252 


(5) 








00000036 






357 


(6) 








00000037 






357 


(6) 








00000032 






357 


(6) 








00001E4OR 


358 


(6) 


252 


(5) 








00000032 






358 


(6) 








00001 E66-R 


359 


(6) 


252 


(5) 








00000032 






359 


(6) 








00001E80-R 


360 


(6) 


252 


(5) 








00000032 






360 


(6) 








00001 E9A-R 


361 


(6) 


252 


(5) 








00000032 






361 


(6) 








00001 EB4-R 


362 


(6) 


252 


(5) 








00000037 






362 


(6) 








00001 F23-R 


363 


(6) 


252 


(5) 








00000036 






363 


(6) 








00000037 






363 


(6) 








00000032 






363 


(6) 








00001 F7A-R 


364 


(6) 


252 


(5) 








00000036 






364 


(6) 








00000032 






364 


(6) 








00001 FB5-R 


365 


(6) 


252 


(5) 








0000201 E-R 


366 


(6) 


252 


(5) 








00000032 






366 


(6) 








00000037 






366 


(6) 








00000035 






366 


(6) 








0000206C-R 


367 


(6) 


252 


(5) 








00000036 






367 


(6) 








00000037 






367 


(6) 








00000032 






367 


(6) 








000020C4-R 


368 


(6) 


252 


(5) 








00000036 






368 


(6) 








00000037 






368 


(6) 








0000^032 






368 


(6) 








0000*11 OR 


369 


(6) 


252 


(5) 








00000036 






369 


(6) 









ZZ-ENSAA-7.0 

10BASE 

Cross reference 

VS300SK LEN 
VS300$L~CSR 
VT100 " 
VT100SK LEN 
VT220 ' 
VT220$K LEN 
VT240 " 
VT240SK LEN 
VT50 " 
VT50SK LEN 
VT52 

VT52SK LEN 
VT55 " 
VT55SK LEN 



Cross reference 



*** I08ASE 1/0 data base 



00000037 

00000032 

000021 C2-R 373 (6) 

00000032 

000021 DD-R 374 (6) 

00000032 

000021F8-R 375 (6) 

00000032 

000021 74-R 370 (6) 

00000032 

000021 8E-R 371 (6) 

00000032 

000021A8-R 372 (6) 

00000032 



I 14 

27-JUL-1984 Fiche 8 Frame 114 Seguence 1619 

27-JUL-1984 15:22:54 VAX-11 Macro V03-OT Page 35 
23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAINT3I0BASE.MAR;155<6) 



369 


(6) 


369 


(6) 


252 


(5) 


373 


(6) 


252 


(5) 


374 


(6) 


252 


(5) 


375 


(6) 


252 


(5) 


370 


(6) 


252 


(5) 


371 


(6) 


252 


(5) 


372 


(6) 



Z7-ENSAA-7.0 

IOBASE 

Cross reference 



Cross reference 



*** IOBASE I/O data base 



J 14 

27-JUL-1984 Fiche 8 Frame J14 Seguence 1620 

27-JUL-1984 15:22:54 VAX-11 Macro V03-0T Page 36 
23-JUL-1984 16:23:15 DWA1 :CSYS0.SYSMAINT3iOBASE.MAR;155(6) 



MACRO 



SDEF 
SDEFIN1 



SIZE 

1 
1 



+ ....... — .— ...... — + 

! Macros Cross Reference J 
+.... — .. — ....-.........+ 

DEFINITION REFERENCES... 



SDS $A00 1 

SDS~$CASE 1 

SDS*~SC0MPLEMENT 1 

$DS"$DECIMAL 1 



SDS SEND 



375 (6) 






















168 (2) 


168 


(2) 


259 


(6) 


260 


(6) 


261 


(6) 


266 


(6) 




267 


(6) 


268 


(6) 


269 


(6) 


270 


(6) 


271 


(6) 




272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 




2 7 7 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 


281 


(6) 




282 


(6) 


283 


(6) 


284 


(6) 


285 


(6) 


286 


(6) 




287 


(6) 


288 


(6) 


289 


(6) 


290 


(6) 


297 


(6) 




298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


302 


(6) 




303 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 


307 


(6) 




308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


312 


(6) 




313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 




318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 


322 


(6) 




323 


(6) 


324 


(6) 


325 


(6) 


326 


(6) 


327 


(6) 




328 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 


333 


(6) 




334 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 


338 


(6) 




339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 


343 


<6> 




344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


348 


(6) 




349 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 


353 


<6> 




354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 




359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


363 


<6) 




364 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 


368 


(6) 




369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


373 


(6) 




374 


(6) 


375 


(6) 














264 (6) 


264 


(6) 


285 


(6) 


350 


(6) 










264 (6) 


264 


(6) 


















285 (6) 


285 


(6) 


















259 (6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


264 


(6) 




267 


(6) 


269 


(6) 


270 


(6) 


271 


(6) 


272 


(6) 




273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 


277 


<6) 




278 


(6) 


279 


(6) 


280 


(6) 


281 


(6) 


282 


<6> 




283 


(6) 


286 


(6) 


287 


(6) 


289 


(6) 


291 


<6> 




292 


(6) 


293 


to) 


294 


(6) 


295 


(6) 


296 


<6) 




297 


(6) 


298 


(6) 


306 


(6) 


312 


(6) 


317 


(6) 




318 


(6) 


320 


(6) 


322 


(6) 


323 


(6) 


324 


(6) 




333 


(6) 


334 


(6) 


337 


(6) 


340 


(6) 


349 


(6) 




353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 




362 


(6) 


363 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 




368 


(6) 


369 


(6) 














259 (6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


264 


(6) 




266 


(6) 


267 


(6) 


268 


(6) 


269 


(6) 


270 


<6> 




271 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 




276 


(6) 


277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 




281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 


285 


(6) 




286 


(6) 


287 


(6) 


288 


(6) 


289 


(6) 


291 


(6) 




292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 




297 


(6) 


298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 




302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 




307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 




312 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 




317 


(6) 


318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 



ZZ-ENSAA-7.0 

IOBASE 

Cross reference 



Cross reference 



*** IOBASE I/O data base 



K H 
27-JUL-1984 Fkhe 8 Frame K14 Seguence 1621 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 3? 

23-JUI-1984 16:23:15 DMA1 :CSYS0.SYSMAJNT]IO8ASE.MAR;155<6) 



$DS_$FETCH 1 

$^SJ>HEX 1 

SDS^SINITIALIZE 1 



SDSJLITERAL 





322 


(6) 


323 


(6) 


324 


(6) 


325 


(6) 


326 


(6) 




327 


(6) 


328 


(6) 


229 


(6) 


331 


(6) 


332 


(6) 




333 


(6) 


334 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 




338 


(6) 


339 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 




343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 




348 


(6) 


349 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 




353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 




358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 




363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 




368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 




373 


(6) 


374 


(6) 


375 


(6) 










262 (6) 


262 


(6) 


263 


(6) 


264 


(6) 


285 


(6) 


286 


(6) 




319 


(6) 


320 


(6) 


333 


(6) 


334 


(6) 


341 


(6) 




342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 




347 


(6) 


350 


(6) 














291 (6) 


291 
296 


(6) 
(6) 


292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


259 (6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


264 


(6) 




266 


(6) 


267 


(6) 


268 


(6) 


269 


(6) 


270 


(6) 




271 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 




276 


(6) 


277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 




281 


(6) 


282 


(6) 


283 


(6) 


284 


<*) 


285 


(6) 




286 


(6) 


287 


(6) 


288 


(6) 


289 


(o) 


291 


(6) 




292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 




297 


(6) 


298 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 




302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 




307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 




312 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 




317 


(6) 


318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 




322 


(6) 


323 


(6) 


324 


(6) 


32; 


(6) 


326 


(6) 




327 


(6) 


328 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 




333 


(6) 


334 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 




338 


(6) 


339 


(6> 


340 


(6) 


341 


(6) 


342 


(6) 




343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 




348 


(6) 


349 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 




353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 




358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 




363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 




368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 




373 


(6) 


374 


(6) 


375 


(6) 










262 (6) 


262 


(6) 


263 


(6) 


264 


(6) 


267 


(6) 


271 


(6) 




273 


(6) 


275 


(6) 


277 


(6) 


281 


(6) 


282 


(6) 




284 


(6) 


285 


(6) 


286 


(6) 


291 


(6) 


292 


(6) 




293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


299 


(6) 




300 


(6) 


301 


(6) 


302 


(6) 


303 


(6) 


304 


(6) 




305 


(6) 


307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 




311 


(6J 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 




317 


(6) 


318 


(6) 


320 


(6) 


322 


(6) 


324 


(6) 




325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 




331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 


335 


(6) 




336 


(6) 


338 


(6) 


339 


(6) 


341 


(6) 


342 


(6) 




343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 




348 


(6) 


350 


(6) 


352 


(6) 


355 


(6) 


356 


(6) 




357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 




362 


(6) 


363 


;6) 


367 


(6) 


368 


(6) 


369 


(6) 




370 


(6) 


371 


(6) 


372 


(6) 


373 


(6) 


374 


(6) 




375 


(6) 





























L 14 












— — 


1 


ZZ-ENSAA-7.0 Cross 


reference 








27-JUL- 


1984 


Fid 


ie 8 F 


rame L14 


Seguence 1622 


10BASE 


*** 


IOBASE I/O 


data bas 


e 




27-JUL-1984 15 


:22:54 


VAX-11 Maci 


-o V03-0T 




Page 38 


Cross reference 












23-JUL- 


•1984 16 


: 23:15 


DMA1:CSYS0 


.SYSMAINTJIOBASE 


.MAR; 155 (6) 


SDS.SL0G1CAL 1 


272 


(6) 


272 


(6) 


277 


(6) 


281 


(6) 


282 


(6) 


291 


(6) 








292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


$DS_$NAME 1 


259 


(6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


264 


(6) 








267 


(6) 


268 


(6) 


269 


(6) 


270 


(6) 


272 


(6) 








273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 


277 


(6) 








278 


(6) 


279 


(6) 


280 


(6) 


281 


(6) 


282 


(6) 








283 


(6) 


284 


(6) 


285 


(6) 


286 


(6) 


287 


(6) 








288 


(6) 


289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 








294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 


298 


(6) 








299 


(6) 


300 


(6) 


301 


(6) 


302 


(6) 


303 


(6) 








304 


(6) 


305 


(6) 


306 


(6) 


307 


(6) 


308 


(6) 








309 


(6) 


310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 








314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 


318 


(6) 








320 


(6) 


321 


(6) 


322 


(6) 


324 


(6) 


325 


(6) 








326 


<6) 


327 


(6) 


328 


(6) 


329 


(6) 


331 


(6) 








332 


(6) 


333 


(6) 


334 


(6) 


335 


(6) 


336 


(6) 








337 


(6) 


338 


(6) 


339 


(6) 


340 


(6) 


341 


(6) 








342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 


346 


(6) 








347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 


351 


(6) 








352 


(6) 


353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 








357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 








362 


(6) 


363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 








367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 








372 


(6) 


373 


(6) 


374 


(6) 


375 


(6) 






$DS_$0CTAL 1 


259 


(6) 


259 


(6) 


260 


(6) 


267 


(6) 


269 


(6) 


270 


(6) 








271 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 








276 


(6) 


277 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 








283 


(6) 


287 


(6) 


288 


(6) 


289 


(6) 


297 


(6) 








298 


(6) 


306 


(6) 


312 


(6) 


317 


(6) 


323 


(6) 








337 


(6) 


340 


(6) 


349 


(6) 


355 


(6) 


356 


(6) 








357 


(6) 


362 


(6) 


363 


(6) 


364 


(6) 


365 


(6) 








366 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 






SDS_SSTORE 1 


259 


(6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


264 


(6) 








267 


(6) 


269 


(6) 


270 


(6) 


271 


<6> 


272 


(6) 








273 


(6) 


274 


(6) 


275 


(6) 


276 


(6) 


277 


<6) 








278 


(6) 


279 


(6) 


280 


(6) 


281 


(6) 


282 


(6) 








283 


(6) 


284 


(6) 


285 


(6) 


286 


(6) 


287 


(6) 








288 


(6) 


289 


(6) 


291 


(6) 


292 


(6) 


293 


(6) 








294 


(6) 


295 


(6) 


296 


(6) 


297 


(6) 


298 


(6) 








299 


(6) 


300 


(6) 


301 


(6) 


302 


(6) 


303 


(6) 








304 


(6) 


305 


(6) 


306 


(6) 


307 


(6) 


308 


<6) 








309 


(6) 


310 


(6) 


311 


(6) 


312 


(6) 


313 


(6) 








314 


(6) 


315 


(6) 


316 


(6) 


317 


(6) 


318 


<6> 








319 


(6) 


320 


(6) 


322 


(6) 


323 


(6) 


324 


<6> 








325 


(6) 


326 


(6) 


327 


(6) 


328 


(6) 


329 


(6) 








331 


(6) 


332 


(6) 


333 


(6) 


334 


(6) 


335 


(6) 








336 


(6) 


337 


(6) 


338 


(6) 


339 


<6> 


340 


(6) 








341 


(6) 


342 


(6) 


343 


(6) 


344 


(6) 


345 


(6) 








346 


(6) 


347 


(6) 


348 


(6) 


349 


(6) 


350 


(6) 








352 


(6) 


353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 








357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 








362 


(6) 


363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 








367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 








372 


(6) 


373 


(6) 


374 


(6) 


375 


(6) 






$DS„$STRING 1 


264 


(6) 


264 


(6) 


272 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 








277 


(6) 


281 


(6) 


282 


(6) 


287 


(6) 


320 


(6) 


sosjum l 


259 


(6) 


259 


(6) 



















ZZ-ENSAA-7.0 

IOBASE 

Cross reference 

SDS AA11K DEF 
$DS"AD11K" 
SDS AD11K DEF 
SDSICI750" 
SD$„C1780 
SDS.C1 DEF 
SDS.C1 NODE 
SDS.COflSOLE 
SDS CONSOLE DEF 
SDS~CR11 
SDS~CR11 DEF 
SDS'DEVTYP 
SDS~DISK 
SDS~DISK DEF 
SDSIDL11" 
SDS DL11 DEF 
SDS~DMC1T 
SDS~DMC11„DEF 
SDS DMF32 
SDS~DMF32A 
SDS~DMF32A^DEF 
SDS DMF32P 
SDS~DMF32P DEF 
SDSZDMF32S'" 
SDS DMF32S DEF 
SDSIDMF32JEF 
SDS DMP11 
SDS7DMP11 DEF 
SDS_DMR11 
SDS DMR11 DEF 
SDSIDMZ32" 
SDS_DMZ32_DEF 
SDS DRUB 
SDSIDR11B DEF 
SDS DR11K 
SDS DR11K DEF 
SDS~DR11Uf 
SDS~DR11W DEF 
SDS~DR750" 
SDS_DR750„.DEF 
SDS DR780 
SDS.DR780..DEF 
SDS_DUP11 
SDS_DUP11 DEF 
SDS DW730 
SDS DW730 DEF 
SDSIDW750 - 
SDS DW750 DEF 
SDSIDW780" 
SDS DW780 DEF 
SDSIDZ11 " 
$DS_DZ11_DEF 
SDS_DZ32 
SDS_DZ32 DEF 
SDS_HPODFF 
SDS IFU11A 
SDS IEU11A DEF 



Cross 


reference 










*** J 


(OBASE I/O 


data base 


1 


259 


(6) 


259 


(6) 


1 


260 


(6) 


260 


(6) 


1 


260 


(6) 


260 


(6) 


2 


262 


(6) 


262 


(6) 


3 


263 


(6) 


263 


(6) 


2 


261 


(6) 


261 


(6) 


4 


264 


(6) 


264 


(6) 




266 


(6) 


266 


(6) 




266 


(6) 


266 


<6) 




267 


(6) 


267 


(6) 




267 


(6) 


267 


(6) 




230 


(5) 


230 


(5) 




268 


(6) 


268 


(6) 




268 


(6) 


268 


(6) 




269 


(6) 


269 


(6) 




269 


(6) 


269 


(6) 


1 


270 


(6) 


270 


(6) 


'1 


270 


(6) 


270 


(6) 


! 


271 


(6) 


271 


(6) 


*) 
• 


272 


(6) 


272 


(6) 


i. 


272 


(6) 


272 


(6) 


i 


273 


(6) 


271 


(6) 


i 


273 


(6) 


273 


(6) 


1 


27** 


(6) 


27** 


(6) 




274 


(6) 


274 


(6) 




271 


(6) 


27) 


(6) 




275 


(6) 


275 


(6) 




275 


(6) 


275 


(6) 




276 


(6) 


276 


(6) 




276 


(6) 


276 


(6) 




277 


(6) 


277 


(6) 




277 


(6) 


277 


(6) 




278 


(6) 


278 


(6) 




278 


(6) 


278 


(6) 




279 


(6) 


279 


(6) 




279 


(6) 


279 


(6) 




280 


(6) 


280 


(6) 




280 


(6) 


280 


(6) 


2 


281 


(6) 


281 


(6) 




281 


(6) 


281 


(6) 


2 


282 


(6) 


282 


(6) 




282 


(6) 


282 


(6) 




283 


(6) 


283 


(6) 




283 


(6) 


283 


(6) 




284 


(6) 


284 


(6) 




284 


(6) 


284 


(6) 




285 


(6) 


285 


(6) 




285 


(6) 


285 


(6) 


2 


286 


(6) 


286 


(6) 




286 


(6) 


286 


(6) 




287 


(6) 


287 


(6) 




287 


(6) 


287 


(6) 


2 


288 


(6) 


288 


(6) 




288 


(6) 


288 


(6) 


2 


168 


(2) 


168 


(2) 




289 


(6) 


289 


(6) 




289 


(6) 


289 


(6) 



M M 
27-JUL-1984 Fiche 8 Frame MM Seguence 1623 

27-JUL-1984 15:22:54 MM1 Macro V03-OT Page 39 

23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAINT]IO8ASE.MAR;155(6) 



ZZ-ENSAA-7.0 

10BASE 

Cross reference 

SDS KA730 
$0S"KA750 
SDS~KA780 
SDSJCA785 
SOSJCAXXX 
SDS KAZZZ 
SDS KA OEF 
$DS"KMC11 
SDS^KMCII DEF 
SOS KW11K 
SDSJCU11K DEF 
SDS LAIOO" 
SDS~IA100 DEF 
SDS~LA12 " 
SDS~LA120 
SDS LA120 DEF 
SDSILA12 BEF 
SOS.LA180 
SDS LA180 DEF 
SDS~LA34 " 
SDS~LA34J)EF 
SOS LA36 
SDS~LA36 DEF 
SDS~LA38~ 
SDS"LA38 DEF 
SDS"LESI" 
SDS'LESI DEF 
SOS^LNOr 
SDS„LN01J)EF 
SDS LP04 
SDS'LPOA^DEF 
SDS LP05 
SDS'LPOS DEF 
SDS~LP06~ 
SDSlLP06^DEF 
SDS LPO? 

sds~lp07 def 
sds'lph 

$DSlLP11_DEF 

SDS LP14 
SDS'lPK DEF 
SDS LP25 
SDS~tP25^DEF 
SDS LP26 
$DSllP26J)EF 
SDS LP27 
SDSJ.P27 DEF 
SDS LPA1TK 
SDSlLPAIU^DEF 
SDS MA780 
SDS"*MA780 DEF 
SDS^MBE " 
SDS MBE DEF 
SDS'MLlT 
$DS"ML11 DEF 
SDS~MS?50 
$DS~MS750 DEF 



Cross 



reference 




*** 


I0BA5E 


291 


(6) 


292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


290 


(6) 


297 


(6) 


297 


(6) 


298 


(6) 


298 


(6) 


303 


(6) 


303 


(6) 


299 


(6) 


304 


(6) 


304 


(6) 


299 


(6) 


305 


<6> 


305 


(6) 


300 


(6) 


300 


(6) 


301 


(6) 


301 


(6> 


302 


(6) 


302 


^6) 


306 


(6) 


306 


(6) 


307 


(6) 


307 


(6) 


308 


(6) 


308 


(6) 


:09 


(6) 


SL9 


(6) 


310 


(6) 


310 


(6) 


311 


(6) 


311 


«6> 


31: 


(6) 


5)2 


(6) 


313 


(6) 


313 


(6) 


3U 


(6) 


314 


(6) 


315 


(6* 


315 


(6) 


316 


(6: 


316 


(6; 


317 


(6) 


317 


(6) 


318 


(6) 


318 


(6) 


319 


(6) 


319 


<6) 


320 


k6) 


320 


(6) 


321 


(6) 


321 


(6) 



I/O data base 



N 14 
27-JUI-1984 Fiche 8 Frame N14 Sequence 1624 

27-JUL-1984 15:22:54 VAX-11 Macro V03-01 Page 40 

23-JUL-1984 16:23:15 DMA1 :CSYS0.SYSMAJNT3I0BASE.MAR;155(6) 



291 


(6) 


292 


(6) 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


290 


(6) 


297 


(6) 


297 


(6) 


298 


(6) 


298 


(6) 


303 


(6) 


303 


(6) 


299 


(6) 


304 


(6) 


304 


(6) 


299 


(6) 


305 


<6) 


305 


(U 


500 


(6) 


300 


(6) 


301 


(6) 


301 


(6) 


302 


(6) 


302 


(6) 


306 


(6) 


306 


(6) 


307 


(6) 


307 


(6) 


308 


(6) 


308 


(6) 


309 


(6) 


309 


(6) 


310 


(6) 


310 


(6) 


311 


(6) 


311 


(6) 


312 


it) 


312 


(6) 


313 


(6) 


313 


(6) 


314 


(6) 


3H 


(6) 


315 


(6) 


315 


(6) 


316 


(6) 


316 


(6) 


317 


(6) 


317 


(6) 


318 


(6) 


318 


(6) 


319 


(6) 


319 


(6) 


320 


(6) 


320 


(6) 


321 


(6) 


321 


(6) 



2Z-ENSAA-7.0 Cross reference 








B 15 

27-JUL- 


1984 


Fiehe 


8 Frame 815 


Seqi 


jence 1625 


I0BASE 


*** 


I08A*.: J/0 


data ba 


se 




27-JUL- 


■1984 15:2 


2:54 


VAX-11 Macro V03-0T 




Page 41 


l ross reference 












23-JUL- 


-1984 16:2 


3*15 


DMA1:[SYS0.SYSMAIMT 


31 DBASE 


,MAR;155<6>" 


SOS MS780 1 


322 


(6) 


322 


(6) 


















$DS~MS?80 OEF 1 


322 


(6) 


322 


(6) 


















SDS'PCLII 1 


3?3 


(6) 


323 


(6) 


















$DS"PCL11 DEF 1 


323 


(6) 


3c3 


(6) 


















SDS^PDDEF" 1 


259 


(6) 


259 


(6) 


260 


(6) 


262 


(6) 


263 


(6) 


264 


(6) 








266 


(6) 


267 


(6) 


268 


(6) 


269 


<6> 


270 


(6) 








271 


(6) 


212 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 








276 


(6) 


211 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 








281 


(6) 


282 


(6) 


283 


(6) 


284 


(6) 


285 


(6) 








286 


(6) 


287 


(6) 


288 


(6) 


289 


(6) 


291 


(6) 








292 


(6> 


293 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 








297 


(6) 


298 


(6) 


299 


(6) 


300 


(6) 


301 


<6) 








302 


(6) 


303 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 








307 


(6) 


308 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 








312 


(6) 


313 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 








317 


(6) 


318 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 








322 
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(6) 


327 


(6) 


333 


(6) 


338 


(6) 


343 


(6) 


348 


(6) 


353 


(6) 


358 


(6) 


363 


(6) 


368 


(6) 


373 


(6) 


259 


(6) 


266 


(6) 


271 


(6) 


276 


(6) 


281 


(6) 


286 


(6) 


292 


(6) 


297 


(6) 


302 


(6) 


307 


(6) 


312 


(6) 


317 


(6) 


322 


(6) 


327 


(6) 


333 


(6) 


338 


(6) 


343 


(6) 


348 


(6) 



298 


(6) 


303 


(6) 


308 


(6) 


313 


(6) 


318 


(6) 


323 


(6) 


328 


(6) 


334 


(6) 


339 


(6) 


344 


(6) 


349 


(6) 


354 


(6) 


359 


(6) 


364 


(6) 


369 


(6) 


374 


(6) 


260 


(6) 


267 


(6) 


272 


(6) 


277 


(6) 


282 


(6) 


287 


(6) 


293 


(6) 


298 


(6) 


303 


(6) 


308 


(6) 


313 


(6) 


318 


(6) 


323 


(6) 


328 


(6) 


334 


(6) 


339 


(6) 


344 


(6) 


349 


(6) 


354 


(6) 


359 


(6) 


364 


(6) 


369 


(6) 


374 


(6) 


260 


(6) 


267 


(6) 


272 


(6) 


277 


16) 


282 


(6) 


287 


(6) 


293 


(6) 


298 


(6) 


303 


(6) 


308 


(6) 


313 


(6) 


318 


(6) 


323 


(6) 


328 


(6) 


334 


(6) 


339 


(6) 


344 


(6) 


349 


(6) 



299 


(6) 


300 


(6) 


301 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


314 


(6) 


315 


(6) 


316 


C6) 


319 


(6) 


320 


(6) 


321 


(6) 


324 


(6) 


325 


(6) 


326 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


375 


(6) 










262 


(6) 


263 


(6) 


264 


(6) 


268 


(6) 


269 


(6) 


270 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 


283 


(6) 


284 


(6) 


285 


(6) 


288 


(6) 


289 


(6) 


291 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 


324 


(6) 


325 


(6) 


326 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


375 


(6) 










262 


(6) 


263 


(6) 


264 


(6) 


268 


(6) 


269 


(6) 


270 


(6) 


273 


(6) 


274 


(6) 


275 


(6) 


278 


(6) 


279 


(6) 


280 


(6) 


283 


(6) 


284 


(6) 


285 


(6) 


288 


(6) 


289 


(6) 


291 


(6) 


294 


(6) 


295 


(6) 


296 


(6) 


299 


(6) 


300 


(6) 


301 


(6) 


304 


(6) 


305 


(6) 


306 


(6) 


309 


(6) 


310 


(6) 


311 


(6) 


314 


(6) 


315 


(6) 


316 


(6) 


319 


(6) 


320 


(6) 


321 


(6) 


324 


(6> 


325 


(6) 


326 


(6) 


329 


(6) 


331 


(6) 


332 


(6) 


335 


(6) 


336 


(6) 


337 


(6) 


340 


(6) 


341 


(6) 


342 


(6) 


345 


(6) 


346 


(6) 


347 


(6) 


350 


(6) 


351 


(6) 


352 


(6) 



ZZ-ENSAA-7,0 

IOBASE 

Cross reference 



Cross reference 



*** IOBASE 1/0 data base 



6 15 

27-JUL-1984 Fiche 8 Frame G15 ieguence 1630 

27-JUL-1984 15:22: 5^ VAX-11 Macro V03-01 Page 46 

23-JUL-1984 16.-23:15 0MA1 }[SYS0.SYSMAIMT]IO8ASE.MAR;155(6) 



353 


(6) 


354 


(6) 


355 


(6) 


356 


(6) 


357 


(6) 


358 


(6) 


359 


(6) 


360 


(6) 


361 


(6) 


362 


(6) 


363 


(6) 


364 


(6) 


365 


(6) 


366 


(6) 


367 


(6) 


368 


(6) 


369 


(6) 


370 


(6) 


371 


(6) 


372 


(6) 


3?3 


(6) 


374 


(6) 


375 


(6) 











! Performance indicators ! 
+ *«-- . + 



Phase 



Page faults 


CPU Time 


Elapsed Time 


37 


00:00:00.10 


00:00:00.28 


142 


00:00:00.79 


00:00:01.70 


5363 


00:02:21.40 


00:03:13.74 


7 


00:00:00.81 


00:00:01.05 


14b1 


00:00:15.51 


00:00:19.77 


75 


00:00:00.43 


00:00:00.47 


7 


00:00:00.03 


00:00:00,03 


799 


00:00:07.83 


00:00:10.19 


7916 


00:02:46.91 


00:03:47.24 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

631524 bytes (1234 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 578 non-local and local symbols. 

376 source lines were read in Pass 1, producing object records in Pass 2. 

1501 pages of virtual memory were used to define 352 macros. 

! Macro library statistics ! 



Macro library name 

DRB1:C0S.W0RKJDIAG.MLB;955 

DMA1:[SYS0\SYSMAINT]DS.MLB;?18 
DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 
SYS$SYSR00T:[SYSUB3UB.MIB;1 
SYS$SYSROOT:[SYSLI8]STARLFT f MLB;2 
TOTALS (all libraries) 



Macros defined 

IS"" 




5 
242 



2534 GETS were required to define 242 macros. 

There were no errors, warnings or information messages. 

MACRQ/N00BJECT/LIST=[DS.US]/CR0SS/ENABLE=(DE8UG,TRACE) IOBASE /UPDA=( JOBASE ,UPD J0BASE .ENM)+SYS$UBRARY:L1B/LIBRARY*DMA1 jCSYSO.SYSMA 



H 15 
ZZ-ENSAA-7.0 *«* 10P0ST I/O completion posting 27-JUL-1984 Fiche 8 Frame H15 Seguence 1631 

IOPOST *** IOPOST I/O completion posting 27-JUL-1984 15:26:45 VAX-11 Macro V03-0T Page 

lable of contents 

HISTORY ; DETAILED 

DECLARATIONS 

I/O COMPLETION POSTING 

VIRTUAL I/O COMPLETION 

QUEUE NEXT SEGMENT 

BUFFERED READ COMPLETION AST ROUTINE 

DIRECT I/O COMPLETION AST ROUTINE 

MOVE DATA TO USER BUFFER 

UNLOCK AREAS IN JRPE'S ♦ 



(1) 


41 


(2) 


87 


(3) 


123 


(4) 


292.2 


(5) 


301.60 


(6) 


639.15 


(7) 


701.75 


(8) 


831.57 


(9) 


831.80 






ZZ-ENSAA-7,0 

IOPOST 

05-04 



-2 



I 15 
*** IOPOST I/O completion posting 27-JUL-1984 Fiche 8 Frame 115 Seguence 1632 

*** IOPOST I/O completion posting 27-JUL-1984 15:26:45 VAX-11 Macro V03-01 Page 1 

1-APR-1980 10:21:03 DMA1 :CSYS0,SYSMAINTJlOPOST.MAR;46 (1) 

.TITLE IOPOST *** IOPOST I/O completion posting 
.IDENT /05-04/ 



0000 


.1 


0000 


.2 


0000 


3 


0000 


4 


0000 


5 


0000 


6 


0000 


7 


0000 


8 


0000 


9 


0000 


10 


0000 


11 


0000 


12 


0000 


13 


0000 


14 


cooo 


15 


0000 


16 


0000 


17 


0000 


18 


0000 


19 


0000 


20 


0000 


21 


0000 


22 


0000 


23 


0000 


24 


0000 


25 


0000 


26 


0000 


27 


0000 


28 


0000 


29 


0000 


30 


0000 


31 


0000 


32 


0000 


33 


0000 


34 


0000 


35 


0000 


36 


0000 


37 


0000 


38 


0000 


39 


0000 


40 


0000 


41 


0000 


42 


0000 


43 


cooo 


44 


0000 


45 


0000 


.1 


0000 


.2 


0000 


.3 


0000 


.4 


0000 


.5 


0000 


.6 


0000 


.7 


0000 


,8 


0000 


.9 


0000 


.10 


0000 


46 


0000 


47 



* COPYRIGHT (c) 1978, 1979, 1980 

* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

* TRANSFERRED. * 

* * 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

* CORPORATION. * 

* * 

* EIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* * 

+ + 

FACILITY: EXECUTIVE, I/O SYSTEM 

ABSTRACT: 

IOCIOPOST IMPLEMENTS THE DEVICE INDEPENDENT COMPLETION PROCESSING FOR 
I/O PACKETS. IT IS INVOKED BY QUEUEING THE PACKET ON THE I/O POST QUEUE 
AND TRIGGERING THE IPL$ IOPOST SOFTWARE INTERRUPT. SOME OF THE IOPOST 
OPERATIONS SUCH AS SETTING EVENT FLAGS, UNLOCKING BUFFER PAGES, 
RELEASING BUFFERS AND PAGING I/O COMPLETION ARE PERFORMED IN THE IOPOST 
INTERRUPT SERVICE ROUTINE, WHiLE OTHER OPERATIONS THAT REQUIRE ACCESS 
TO PROCESS ADDRESS SPACE ARE PERFORMED BY SENDING A SPECIAL KERNEL AST. 

ENVIRONMENT: MODE = KERNEL, RESIDENT 

.SBTTL HISTORY ; DETAILED 

AUTHOR: R. HUSTVEDT, CREATION DATE: 26-AUG-76 
MODIFIED BY: 

01 



02 

03 
04 



Dave Butenhof 12~may~1980, Version 5.4 

Modify VMS source for supervisor 
Dave Butenhof !8-jun-1980, version 5.5 
Restore buffered I/O support. 



Dave Butenhof 17-feb-1981 , version 6.3 

Change SEP psect to CODE, correct some reference truncation 

errors. 

Bob Bergazzi 6~May,1983 Version 6.11 

Corrected truncation error. 



V0211 KDM0103 



KATHLEEN D, M3RSE 



13-MAR-198G 



ZZ-ENSAA-7.0 

10PQST 

05 -04 



HISTORY 



DETAILED 






*+* IOPOST 


I/O completion posti 
DETAILED 


HISTORY , 


0000 


<8 , 




0000 


49 ( 




0000 


50 , 


V0210 


0000 


51 t 




0000 


52 , 




0000 


53 , 




0000 


54 , 


V0209 


0000 


55 ( 




0000 


56 , 




0000 


57 , 




0000 


58 ( 




0000 


59 , 




0000 


60 ( 


V0208 


0000 


61 , 




cooo 


62 , 




0000 


63 , 




0000 


64 , 


V0207 


0000 


65 , 




0000 


66 t 




0000 


67 


V0206 


0000 


68 t 




0000 


69 , 




0000 


70 , 


V0205 


0000 


71 , 




0000 


72 




0000 


73 , 


V0204 


0000 


74 




0000 


75 




0000 


76 


V0203 


0000 


77 




0000 


78 




0000 


79 


; V0202 


0000 


80 




0000 


81 




0000 


82 




0000 


83 


VQ201 


0000 


84 




0000 


85 





J 15 
27-JUL-1984 Fiche 8 Frame J15 Seguence 1633 
ig 27-JUL-1984 15:26:45 VAX-11 Macro V03-0T Page 2 
1-APR-1980 10:21:03 DMA1 :CSYS0.SYSMAINT:iOPOST.MAR;46 (1) 

REMOVE DUPLICATE MODIFICATION HISTORY, 

RIH0059 RICHARD I. HUSTVEDT 25-FEB-1980 
CHANGE PRIORITY INCREMENT CLASS FOR PAGEFAULT TO GIVE 
SEPARATE AND LOWER BOOST. 

KDM0094 KATHLEEN D. MORSE 22-JAN-1980 13:30 
ADD CHECK FOR DRIVER RETURNING TOTAL BYTE COUNT TRANSFERRED 
ON PAGE READ ERROR. ASSUME THIS COUNT IS WRONG AND RESET 
IT TO ZERO BYTES TRANSFERRED. THIS CAUSES THE FIRST PAGE OF 
THE TRANSFFR TO BE THE PAGE WITH THE ERROR. 

RIH0036 RICHARD I. HUSTVCDT 02-N0V-1979 09:36 
HONOR IRP$VJERMIO AND IRP$V,FILACP FLAGS FOR PERFORMANCE 
IMPROVEMENT. 



RIH0033 RICHARD I. HUSTVEDT 
MOVE BYTCNT FhOM PCB TO JIB. 



19-0CT-1979 



15:32 



RIH0032 RICHARD I. HUSTVEDT 10-SEP-1979 11:15 
ADD END ACTION DISPATCHING FOR INTERNAL PACKET COMPLETION. 

KDM0054 KATHLFEN D. MORSE 31-AUG-1979 15:35 
FIX INTERFACE BUG lt^ CALLING PMS$START„RQ. 

ACG23542 ANDREW C, GOLDSTEIN 04-MAY-1979 16:41 
CHECK LBN OF MAPPED VIRTUAL I/O AGAINST UCB$L. w MAXBLOCK. 

KDM0029 KATHLEEN D. MORSE 30-APR-1979 10:00 
ADD CODE TO MAKE SUPDSEC WORK FOR SHARED MEMORY. 

SRB0001 STEVE BECKHARDT 29-MAR-1979 10:00 
ADDED CODE TO UNLOCK REGIONS SPECIFIED : A IRPE'S AND 
TO DEALLOCATE IRPE'S. 

RIH21586 R. I. HUSTVEDT 12-JAN-1979 10:00 
CORRECTED BUFFER PROBING FOR BUFFERED I/O COMPLETION. 



ZZ-ENSAA-7.0 

IOPOST 

05-04 



DECLARATIONS 



*** IOPOST I/O 
DECLARATIONS 



completion posting 



K 15 

27-JUL-1984 



27-JUL-1984 
1-APR-1980 



Fiche 8 Frame K15 



Sequence 1634 
15:26:45 VAX-11 Macro V03-01 Page 3 
10:21:03 DMA1 :CSYS0.SYSMAINT3IOPOST.MAR;46 (2) 



-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00000000 

0000 

45 20 50 43 41 00* 0007 

52 4F 52 52 000D 

09 0007 

00000000 
0000 

01 0000 

03 0001 
01 0002 

04 0003 



87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

.1 

.2 

.3 



.4 
117 

118 
119 

120 

121 



.SBTTL DECLARATIONS 



INCLUDE FILES: 

SAC8DEF 

SAQBDEF 

SCADEF 

SCC8DEF 

SCX8DEF 

SIPLDEF 

SIRPDEF 

SIRPEDEF 

SJI8DEF 

SPCBDEF 

SPFNDEF 

SPHDDEF 

SPADE F 

SPRIDEF 

SPTEDEF 

SRSNDEF 

SUCBDEF 

SVADEF 

SVCBDEF 

SWCBDEF 

$WQHDEF 



OWN STORAGE: 

.PSECT 
MODNAM 
AACPERR;,ASCIC 



DATA, SHR, NOEXE, NOWRT, 

IOPOST 

.ACP ERROR, 



AST CONTROL BLOCK DEFINITIONS 

DEFINE AQB OFFSETS 

CONDITIONAL ASSEMBLY PARAMETERS 

CCB DEFINITIONS 

DEFINE CXB OFFSETS 

IPL DEFINITIONS 

IRP DEFINITIONS 

IRPE DEFINITIONS 

JIB DEFINITIONS 

PCB DEFINITIONS 

PFN DATA BASE DEFINITIONS 

PROCESS HEADER DEFINITIONS 

PROCESSOR REGISTER DEFINITIONS 

PRIORITY INCREMENT DEFS 

PAGE TABLE ENTRY DEFINITIONS 

DEFINE RESOURCE WAIT NUMBERS 

DEFINE UCB OFFSETS 

DEFINE VIRTUAL ADDRESS FIELDS 

DEFINE VCB OFFSETS 

DEFINE WCB OFFSETS 

WAIT QUEUE HEADER DEFINITIONS 



LONG 



PRITBL: 



•PSECT CODE, SHR, EXE, LONG, 



♦ BYTE 
.BYTE 
.BYTE 
.BYTE 



PRI$ 
PRI$" 

PRI$' 
PRI$' 



IOCOM 
TOCOM 
IOCOM 
TICOM 



NOWRT 

TABLE OF PRIORITY INCR CLASSES 

=> DIRECT WRITE 

1 => BUFFERED WRITE 

2 => DIRECT READ 

3 => BUFFERED READ 



ZZ-ENSAA-7.0 


I/O COMPLETION 


POSTING 








L 15 
27-JUL-1984 Fie 


he 8 Frame L15 Sequence 1635 
:26:45 VAX-11 Macro V03-01 Page 4 


IOPOST 




*** 


IOPOST 


I/O completion posti 


ng 27-JUL-1984 15 


05-04 




I/O 


COMPLETION POSTING 




WPR-1980 10 


:21:03 DMA1 :CSYS0.SYSMAINTJIOPOST,MAR;46 (3) 








0004 


123 




•S81TL 


I/O COMPLETION POSTING 










0004 


124 , 


+ * 














0004 


125 , 


FUNCTIONAL DESCRIPTION: 










0004 


126 t 
















0004 


127 ( 




IOCSIOPOST IS INITIATED BY TRIGGERING AN IPL$ IOPOST SOFTWARE 








0004 


128 , 




INTERRUPT AFTER PLACING A COMPLETED I/O PACKET IN THE IOPOS" 








0004 


129 , 




QUEUE* 


IOCSIOPOST PERFORMS ALL 


APPROPRIATE COMPLETION ACTIVITY 








0004 


130 ( 




REQUIRED FOR THE PACKET EITHER 


DIRECTLY OR BY QUEUEING KERNEL 








0004 


131 ( 




ASTS TO 


CONCLUDE PROCESSING IN 


THE CONTEXT OF THE PROCESS 








0004 


132 ( 




WHEN REQUIRED. 










0004 


133 , 
















0004 


134 , 


CALLING SEQUENCE: 










0O04 


135 ( 
















0004 


136 < 




SOFTINT 


#IPL$JQPOST 










C004 


137 ( 
















0004 


138 , 


• INPUT 


PARAMETERS: 










0004 


139 , 
















0004 


140 , 




NONE 












0004 


141 , 
















0004 


142 , 


• IMPLICIT INPUTS: 










0004 


143 , 
















0004 


144 , 




IOC$GL_ 


PSFL - I0POSTING QUEUE 










0004 


145 , 
















0004 


146 , 


: OUTPUT PARAMETERS; 










0004 


147 
















0004 


148 




NONE 












0004 


149 
















0004 


150 t 


• ™^ 














0004 


151 
















0004 


152 




.ENA8L 


LSB 










0004 


153 


IOCSI0POST:: 




; I/O POSTING INTERRUPT 




7E 54 


7D 


0004 


154 




MOVQ 


R4,-(SP> 


; SAVE 




7E 52 


70 


0007 


155 




MOVQ 


R2,-(SP> 


; NORMAL 




71 50 


7D 


OOOA 


156 




MOVQ 


RO,-(SP> 


; REGISTERS 




00000000' FF 


OF 


OOOD 


• 1 


IOPOST: 


REMQUE 


aiOC$GL.PSFL,R5 


; GET HEAD OF POST QUEUE 




55 




0013 












-1 


11 


1C 


0014 


158 




BVC 


10$ 


; QUEUE NOT YET EMPTY 




50 8E 


7D 


0016 


159 




MOVQ 


(SP)+,R0 


; RESTORE 




52 8E 


7D 


0019 


160 




MOVQ 


(SP)*,R2 


; REGISTERS 




54 8E 


7D 


001C 


161 




MOVQ 


(SP)+,R4 


; AND EXIT 






02 


001F 
0020 


162 
163 




REI 




; IF QUEUE EMPTY 




00C5 


31 


0020 
0023 
0023 


164 
165 
166 


5$: 


BRW 


VIRTUAL 


; PROCESS VIRTUAL I/O COMPLETION 




61 


16 


7$: 


JS8 


(R1) 


; CALL END ACTION ROUTINE 




E6 


11 


0O25 
0027 


167 
168 




BR8 


IOPOST 






51 OC A5 


DO 


0O27 


169 


10$: 


MOVL 


IRP$L_PJD(R5),R1 


; GET PID/END ACTION ADDRESS 




F6 


19 


0028 
002D 


170 
171 




BLSS 


7$ 


; BR IF END ACTION ADDRESS 

; (SYSTEM SPACE ADDRESSES ARE NEGATIVE) 




51 51 


3C 


002D 


172 




MOVZWL 


R1,R1 


; GET PROCESS INDEX 




00000000'FF41 


DO 


0030 


J 




MOVL 


aL A SCH$GL_PCBVECCR1],R4 


; And translate to PCB address 




54 




0037 












-1 


03 2A A5 00 


El 


0038 


174 




BBC 


*1RP$V_BUFI0,IRP$W_STS<R5) ,12$ ; IF CLEAR, DIRECT I/O 




0056 


31 


003D 


175 




BRW 


BUFIO 


; BUFFERED I/O 




3E A4 


B6 


0040 


176 


12$: 


JNCW 


PCB$W DI0CNT(R4) 


; UPDATE DIRECT I/O COUNT 




53 2C A5 


DO 


0043 


177 




MOVL 


IRP$L_SVAPTE(R5),R3 


; GET ADDRESS OF FIRST PTE 



ZZ-ENSAA-7.0 

IOPOST 

05-04 



I/O COMPLETION 



2A A5 



44 8F 
37 



-1 



-7 



53 
29 

51 32 A5 

52 30 A5 
OB 2A A5 04 

BD 34 A5 
3E A5 36 A5 

B6 

51 01FF C142 

51 F7 8F 

51 

OOOOOOOO'EF 

03 2A A5 OB 

02FE 



-39 



POSTING 
*** IOPOST I/O 
I/O COMPLETION 



-9 



completion 
POSTING 



posting 



M 15 
27-JUL-1984 



27-JUL-1984 
1-APR-1980 



Fiche 8 Frame M15 



Sequence 1636 
15:26:45 VAX-11 Macro V03-0T Page 
10.-21:03 DMA1.'CSYSO.SYSMAINTJIOPOST.MAR;46 



5 
(3) 



^3 
2 



D5 
13 
3C 
3C 
E1 
E9 
B1 

12 
9E 
78 

16 
E1 
30 



30 11 



3A A4 B6 

03 2A A5 OC E1 

3E A4 B6 

50 2C A5 DO 

OE 13 

01E8'CF 9E 

18 A5 

09 2A A5 01 EO 

FF48' 30 

02BE'CF 9E 

18 A5 

02 00 Cr 

50 2A A5 

03 2A A5 09 EO 

50 01 AA 

51 OC A5 DO 
52 FF2E CF40 9A 



0047 

0047 

0047 

0047 

004C 

004E 

004E 

004E 

004E 

004E 

004E 

0050 

0052 

0056 

C05A 

005F 

0063 

0068 

0068 

006A 

0070 

0074 

0075 

007B 

0080 

0083 

0083 

0085 

0085 

0085 

0085 

0085 

0085 

0085 

0096 

0096 

0096 

0096 

0096 

0099 

009E 

00A1 

00A1 

00A5 

00A7 

OOAB 

OOAD 

0082 

0065 

00B9 

0088 

OOBE 

0OC1 

00C6 

00C9 

00C9 

OOCD 



178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
1^2 
193 
194 
195 
196 
197 
198 

J 
2o0 
201 
202 
210 
211 
212 
213 
214 
215 
216 

.1 
256 
257 
258 
259 
260 
261 
262 
263 
273 
274 
275 

276 
27? 
278 

279 



ASSUME IRP$V PAGIO LE 7 

ASSUME IRP$V~SWAPIO LE 7 

BIT8 #<IRP5M PAGIO ! IRP$M SWAPI0>,IRP$W_STS(R5) 

BNEQ PAGIO_0R_SWAPIO 



PAGIO OR SWAPJO? 



DIRECT I/O COMPLETION 



DJRIO: 



UNLOCK? 

14$: 

15$: 



TSTL 

BEQL 

MOV?WL 

MOVZWL 

BBC 

BL8C 

CMPW 

BNEQ 

MOVAB 

ASHL 

JS8 
BBC 
BS8W 

BRB 



PTE ADDRESS VALID? 

If EQL NO PAGES TO UNLOCK 

GET REQUESTED TRANSFER BYTE COUNT 

GET BYTE OFFSET IN PAGE 

; BRANCH IF NOT VIRTUAL I/O 
ERROR IN VIRTUAL REQUEST 



R3 

14$ 

IRP$W^BCNT(R5),R1 

IRP$W BOFF(R5),R2 , __ _ _ 

#IRP$V VIRTUAL, IRP$W_STS(R5), UNLOCK 

IRPSL 70ST1(R5),5$ ; BRANCH IF 

IRP$L~J0Sm2(R5),IAP$W_0BCNT(R5) ; IF COMPLETED ORIGINAL BYTE COUNT 

; THEN NO SPECIAL VIRTUAL PROCESSING 
5$ ; OTHERWISE DO THE SEGMENTED COMPLETION 

511(R1)CR2J,R1 ; C0M8INE OFFSET AND COUNT AND ROUND 
#-VA$S BYTE,R1,R1 ; CONVERT TO NUMBER OF PAGES 



L A MMG$UNLOCK ; Unlock 

*IRP$V EXTEND, IRP$W_STS(R5) ,15$ 
UNLOCKlMORE 



30$ 



pages 
BRANCH IF NO IRPE'S ATTACHED 
UNLOCK AREAS DESCRIBED IN IRPE'S 
REFERENCE LABEL 



PAGE I/O OR SWAP I/O COMPLETION 



PAGIO OR SWAPIO: 
FRRSUP.S 

BUFFERED I/O COMPLETION 



BUT JO: 



NOTACP: 



30$: 
40$: 



INCW 

BBC 

INCW 

MOVL 
6EQL 
MOVAB 

BBS 

BS8W 

M0VA8 



PCB$W BIOCNTCR4) ; UPDATE BUFFERED I/O COUNT 
#IRP$9 FILACP,IRP$W_STS(R5), NOTACP ; BR IF NOT ACP I/O 



PCB$WjlOCNT(R4) 

IRP$L_SVAPTE(R5),R0 

30$ 

W*8UFP0ST,ACB$L KAST(R5) 



RESTORE DIRECT I/O COUNT 

ANY BUFFER SPECIFIED? 
IF EQL NO 
ASSUME READ FUNCTION 



#IRP$V,FUNC,IRP$W - irS(R5),40$ ; IF SET, READ FUNCTION 
EXE$DESNONPAGED ; DEALLOCATE WRITE BUFFER 
W*DIRP0ST,AC8$L_KAST(R5) ; SET SPECIAL KERNEL AST ADDRESS 



EXTZV *IRP$V,BUFIO,*2,IRP$W_STS(R5),R0 ; GET PACKET TYPE 



280 

281 

282 50$: 

283 

284 



BBS 
BICW 

MOVL 
MOVZBL 



*IRP$VJERMIO,IRP$W_STS(R5>,50$ ; BR IF TERMINAL I/O 



#1,R0 

IRP$L PI0(R5),R1 
PRITBCCR0],R2 



ELSE TREAT AS NORMAL I/O COMPLETION 
FOR PRIORITY INCREMENT SELECTION 
PROCESS IDENTIFICATION 
SET PRIORITY INCREMENT CLASS 



ZZ-ENSAA-7.0 

10P0ST 

05-04 



1/0 COMPLETION 



POSTING 
*** IOPOST I/O 
1/0 COMPLETION 



completion 
POSTING 



N 15 
27-JUL-1984 



posting 



27-JUL-198A 

1-APR-1980 



Fiche 8 Frame N15 



53 



22 A5 
FF26 1 



-1 



08 A5 80 8F 

OOOOOOOO'BF 

FF25 



9A 00D3 285 M0VZ8L 

30 00D7 286 BSBW 
OODA 287 IOPOSTJCAST: 

88 OODA 288 BISB 

16 OODF .1 JSB 

31 0OE5 290 BRW 
00E8 291 .DSA8L 
00E8 292 



IRP$B EFN(R5),R3 
SCHSPOSTEF 

# A X80,AC8$8 RM0D(R5) 

SCHSQAST 

IOPOST 

I. SB 



Sequence 1637 

15:26:45 VAX-11 Macro V03-01 Page 6 

10:21:03 DMA1 :CSYS0.SYSMAINTJI0POST,MAR;46 (3) 

; GET EVENT FLAG NUMBER 

; AND POST IT 

; SET INTERNAL AST FLAG 

; NOW OUEUE THE KERNEL AST [043 

; GET NEXT PACKET TO POST 



ZZ-EN r AA-7.Q 

IOPOST 

l»5-G<* 



VIRTUAL I/O COMPLETION 

*** IOPOST I/O completion posting 
VIRTUAL I/O COMPLETION 



B 16 
27-JUL-1984 



27-JUL-1984 
1-APR-1930 



F -f che 8 Frame B16 S^guence 1638 

15:26:45 VAX-11 Macro V03-01 Page 

10:21:03 DMA1 :[SYS0.SYSMAINT]I0P0ST.MAR;46 



7 



-6 



50 
3C 
SO 



A5 



56 

i 

F? 



AS 

50 
8F 
50 



3C 
AO 
78 



40 AS 50 


CO 


36 AS 3C AS 


BO 


33 34 AS 


fc9 


50 K AS 


00 


IF 34 AO 00' 


EO 


3E AS 3C AS 


A3 


3? AS 




16 


13 


51 F7 8F 


78 


51 




2C AS 6341 


OE 


53 55 


DO 


55 If A3 


DO 


25 


10 


FEE3 


31 


51 3E A5 


3C 


53 44 AS 


DO 


FF35 


31 



00E8 
00E8 
00E8 
00E8 
00E8 
OOE8 
00E8 
00E8 
00E8 
00E8 
00E8 
00E8 
OOE8 
00E8 
C0E8 
00E8 
00E8 
00E8 
OOES 
00E8 
00E8 
00E8 
00E8 
00E8 
00E8 
OOEC 
OOFO 
00F4 
00F5 
OOF 9 
OOFE 
0102 
0106 
0108 
0110 
0112 
01U 
0118 

0119 

0119 

011E 
0121 
0125 

0127 

012A 
012A 
012A 
012A 
012E 
0132 
0135 
0135 
0135 
0135 
0135 
0135 
0135 



4 

5 
6 
7 
8 
299 
300 
301 

.2 
.3 

.4 

.5 

.6 

.7 

.8 

.9 

JO 

.11 

.12 

.13 

.14 

.15 

.16 

,17 

.18 
.19 
.20 
.21 
.22 
.23 
.24 
.25 
.26 

.27 

.28 
.29 
.30 
.31 
.12 
.33 
.34 
.35 

:» 

.38 
.39 
.40 
.41 
.42 
.43 
.44 
.45 



.S8TTL VIRTUAL 1/0 COMPLETION 
VIRTUAL I/O COMPLETION 
CALLING SEQUENCE: 

8RW VIRTUAL 

INPUTS: 

R1 = REQUESTED BYTE COUNT, POSSIBLY DIFFERENT FROM TRANSFERRED 

BYTE COUNT FOR MAGTAPE 
R2 = JRPSW BOFF CONTENTS 
R3 = SVAPTE OF START OF TRANSFER 



OUTPUTS: 



BRANCHES TO UNLOCK, PRESERVING R1,R2,R3 
OR BRANCHES TO IOPOST 



.ENA8L LSB 



VIRTUAL: 



MOVZWL 

ADDW 

ASHL 

ADDL 

MOVW 

BL8C 

MOVL 

B8S 

SU8W3 

BEOL 

ASHL 



IRPSL IOST1*2(R5) f R0 

ro,irp$w abcnt(r5) 
#-va$s.b?tf,ro,ro 



VIRTUAL I/O FUNCTION 
GET ACTUAL NUMBER Of BYTES TRANSFERED 
ACCUMULATE TOTAL BYTES TRANSFERED 
CALCULATE NUMBER OF BLOCKS TRANSFERED 



NEXT SEGMENT 
BYTES TRANSFERED 



ROJRPSL SEGVBN<R5> ; CALCULATE DISK ADDRESS OF 

IRP$WJ\BCNT(R5), IRPSL IOST1*2(R5) ; SET ACCUMULATED 

IRP$L w IOST1(R5) i 20$ " ; IF LBC I/O ERROR 

IRPSL UC8(R5),r6 ; GET ADDRESS OF DEVICL UC8 

S A *DE9$V SQD.UCBSL DEVCHAR(R0) f 10S ; IF SET, SEQUENTIAL DEVICE 

IRP$W ABrNT(RS) JRP$W 0BCNT(R5),- : CALCULATE BYTES REMAINING 

IRP$W!8CNT(R5) ; 

IF EOL NONE 

CALCULATE NUMBER OF PAGES REQUESTED 



10$ 
#-VA$S_8\TE,R1,R1 



ONXTSEG: 



5S: 



MOVAL 

MOVL 

MOVL 

8S88 

8RW 



(R3)CR1], IRPSL SVAPTE(R5) 

R5.R3 

IRPSL UCB(R3),R5 

lOCSQNXTSEG 

IOPOST 



; SET ADDRESS OF NEXT PTE ENTRY 
COPY I/O REQUEST PACKET ADDRESS 
GET ADDRESS OF DEVICE UCB 
QUEUE THE NEXT VIRTUAL SEGMNET 



ALL SEGMENTS OF THIS TRANSFER ARE COMPLETE 



io$: MOVZWL IRPSW 08CNT(R5>,R1 

MOVL IRPSL DIAGbUF(R5),R3 
BRW UNLOCK 



GET 
GET 



ORIGINAL 
ORIGINAL 



BYTE 
PAGE 



COUMT 
TABLt 



ADDRESS 



I/O OPERATION ENDED WITH AN UNSUCCESSFUL STATUS 

IF THE DEVICE IS A SEQUENTIAL DEVICE, THEN 
MERELY SENT TO THE ACP FOR NOTIFICATION OF 



THE I/O PACKET 
THE ERROR, 



IS 



ZZ-ENSAA-7.0 

OPOST 

U5-04 



VIRTUAL I/O COMPLETION 

*** IOPOST I/O completion posting 
VIRTUAL I/O COMPLETION 



C 16 

27-JUL-1984 Fiche 8 Frame C16 Sequence 1639 

27-JUL-1984 15:26:45 VAX-11 Macro V03-01 Page 

1-APR-1980 10:21 :03 DMA1 :CSYS0.SYSMAINT]iOP0ST.MAR;A6 



8 
<4> 



2C 







0135 


.46 






0135 


.47 






0135 


,48 






0135 


.49 


53 55 


DO 


0135 


.50 


3E A4 


87 


0138 


.51 


?A A3 10 


AA 


0138 


.52 


A3 44 A3 


DO 


01 3F 


.53 


5? 3E A3 


3C 


0144 


.54 


58 


10 


0148 


.55 


OB 


11 


014A 


.56 






014C 


.57 






014C 


.58 



IF THE DEVICE IS A RANDOM 
STORED IN IRPSL.SECVBN IS 



DEVICE, THEN THE VIRTUAL BLOCK NUMBER 
THE BLOCK THAT HAS AN ERROR. 



20$: 



MOVL 

UECW 

BICW 

MOVL 

MOVZWL 

BS88 

BRB 



R5,R3 ; COPY 1R? ADDRESS 

PC8SW DI0CNT(R4) ; ADJUST DIRECT I/O COUNT 

#IRP$fl VIRTUAL, IRP$W STS(R3) ; CLEAR VIRTUAL I/O FLAG 

IRP$L DlAGBUF(R3) t IRP$L SVAPT£(R3> ; RESET PAGE TABLE ADDRESS 

IRP$W"08CNMR3>,R<? "; GET ORIGINAL BYTE COUNT 

IOCSQTOACP ; QUEUE PACKET TO ACP 

5$ 



.DSAQL LSB 



ZZ-ENSAA-7,0 

IOPOST 

05-04 



QUEUE NEXT 



-289 



-4 



52 
51 
50 



1 d 
32 
40 



A3 
A3 
A3 



3E A4 
OOOOOOOO'EF 



32 A3 



52 
A3 
3C 
51 
A3 
52 
8F 
52 
51 
13 
52 
OC 

00000000' EF 
00000000' EF 



32 

50 
52 32 

52 n 



52 
0084 C5 



SEGMENT 

*** IOPOST 
QUEUE NEXT 



014C 

014C 

one 
ouc 

014C 

one 

one 
one 
one 
one 
ouc 
one 
ouc 
ouc 
cue 
ouc 
ouc 
ouc 
ouc 
ouc 
ouc 
ouc 
ouc 

DO OUC 

3C 0150 

00 0154 

0158 

0158 

0158 

0158 

0158 

0158 

0158 

0158 

0158 

0158 

0158 

0158 

8? 0158 

16 0158 

A3 0161 

0165 

13 0167 

DO 0169 

3C 016C 

07 0170 

78 0172 

0176 

CO 01?7 

IF 017A 

D1 017C 

1E 0181 

16 0183 

17 0189 
018F 

om 

0.8F 



I/O completion posting 
SEGMENT 



D 16 
27-JUL-1984 



27-JUL-1984 
1-APR-198G 



Fiche 8 Frame D16 



Sequence 1640 
15:26:45 VAX-11 Macro V03-0< Page 9 

10:21:03 DMA1 :[SYS0.SYSM\*T]IOPO$r,MAR;46 <5> 



.60 

.61 

.62 

.63 

.64 

.65 

.66 

.67 

.68 

.69 

.70 

591 

592 

593 

.1 

.2 

.3 

598 

599 

600 

.1 

.2 

.3 

.4 

.5 

,6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

.15 

.16 

.17 

.18 

.19 

.20 

.21 

.22 
.23 
.24 
.25 
.26 

.27 

.28 
.29 
.30 
.31 
.32 
.33 
.34 
.35 



.S8TTL QUEUE NEXT SEGMENT 
FUNCTIONAL DESCRIPTION: 

IOCSQNXISEG PERFORMS THE FUNCTION OF QUEUEING THE NEXT 
SEGMENT OF A VIRTUAL I/O REQUEST THAT DID NOT MAP TO A 
SINGLE CONTIGUOUS I/O REQUEST. 

CALLING SEQUENCE: 

BS8W IOC$QNXTSEG 



INPUTS: 

R3 = I/O REQUEST 

R4 = PCB ADDRESS 

R5 = UCB ADDRESS 

OUTPUTS: 

R4 NOT PRESERVED 



PACKET ADDRESS 

ASSOCIATED WITH THE PID IN THE PACKET 

OF THE ASSOCIATED DEVICE 



IOCSQMXTSEG:: 
MOVL 
MOVZWL 
MOVL 



IRP$L WIND(R3),R2 
IRP$W"BCNHR3),R1 
IRP$L SEGVBN(R3),RQ 



GET ADDRESS OF MAPPING WINDOW 

GET SIZE OF NEXT SEGMENT 

GET STARTING VIRTUAL BLOCK NUMBER 



ALTERNATE ENTRY TO IOCSQNXTSEG: 

BS8W I0C$QNXTSEG1 

ADDITIONAL INPUTS: 

RO = VIRTUAL BLOCK NUMBER OF START OF NEXT SEGMENT 
R1 = DESIRED BYTE COUNT OF NEXT SEGMENT 
R2 = WINDOW ADDRESS 



I0CSQNXTSEG1:: 

DECW 
J SB 
SU8W3 

BEQL 

MOVL 

MOVZWL 

DECL 

ASHL 

ADDL 
BCS 
CMPL 
BGEQU 
J SB 
J MP 



PCBSW DI0CNT(R4) ; ADJUST THE DIRECT I/O COUNT 
LMOCSMAPVBLK ; Map virtual to logical block 

R2,IRP$W.BCNT(R3),IRP$W -| BCNT(R3) ; CALCULATE SIZE OF NEXT SEGMENT 



30$ 

R1.R0 

IRP$W BCNT(R3),R2 

R2 " 

*-VA$S„BYTE,R2,R2 

R1.R2 

25* 

R2.UCB$L_MAXBL0CK(R5) 

25i 

LMOCSCVTLOGPHY 

L A EXE$INSIOQ 



IF EQL TOTAL MAP FAILURE 

COPY STARTING LOGICAL BLOCK NUMBER 

GET TRANSFER BYTE COUNT 

ROUND DOWN AND... 

SHIFT DOWN FOR BLOCK COUNT - 1 

COMPUTE ENDING BLOCK NUMBER 

BRANCH ON OVERFLOW 

AND CHECK AGAINST DEVICE SIZE 

BRANCH IF NOT LEGAL 

Convert logical to physical block 

Insert I/O packet in device queue 

AND RETURN 



TO HERE IF THE VIRTUAL BLOCKS MAP OFF THE END OF THE VOLUME. COMPLETE THE 















E 16 


ZZ-ENSAA-7.0 


QUEUE NEXT SEGMENT 






27-JUL-1984 Fkhe 8 Frame E16 Sequence 1641 


IOPOST 






*** 


IOPOST 


I/O completion posting 27-JUL-1984 15:26:45 VAX-11 Macro V03-0T Page 10 


U5-G4 






QUEUE NFXT 


SEGMENT 1-APR-1980 10:21:03 DMA1 :CSYS0.SYSMAINTJI0POST.MAR;46 (5) 










018F 


.36 , 


I/O WITH AN ERROR. WE QUEUE THE PACKET FOR PROCESSING, RATHER THAN WANDERING 










01 8F 


.37 , 


OFF INTO THE COMPLETION CODE BECAUSE THIS IS A GENERALLY CALLABLE ROUTINE. 










018F 


.38 . 








0000*8F 


3C 


018F 


.39 25S i MOVZWL #SS$ ILLBLKNUM,IRP$L I0STKR3) ; SET ILLEGAL BLOCK NUMBER STATUS 






34 A3 




0193 




™ •» 






38 A3 


DA 


0195 


.40 


CLRL IRP$L IOST2(R3) ; ZERO 2ND I/O STATUS LONGWORO 






63 


OE 


0198 


.41 


INSQUE (R3;,5lOC$GL_PSBL ; INSERT AT TAIL 0* I/O POST QUEUE 




OOOOOOOO* FF 




01 9A 










03 


1? 


019F 
01A1 


.4? 
.43 


BNEQ 26$ ; BRANCH If NOT EMPTY 
SOFTINT #1PL$ IOPOST ; WAKE UP I/O COMPLETION 








05 


01A4 


.44 26$; RS8 










01A5 


.45 












01A5 


.46 30$: 










01A5 


.47 . 












C1A5 


.48 , 


ALTERNATE ENTRY TO IOC$WAKACP: 










01A5 


.49 , 












01A5 


.50 t 


BS8W IOCSQTOACP 


-29 








01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 
01A5 


630 , 

631 , 

632 ( 
.1 , 
.2 , 
.3 t 
.4 , 
.5 , 


INPUTS: 

R2 = DESIRED BYTE COUNT 

R3 - IRP ADDRESS 

PlB$W_DIOCNT(R4) ALREADY DECREMENTED 

[OCSQTOACP: 




32 


A3 52 


BO 


01A5 


.6 


MOVW R2,IRP$W BCNT(R3) ; SET REMAINING BYTES TO TRANSFER 




52 


18 A3 


DO 


01A9 


.7 


MOVL IRP$L WlRD(R3),R2 ; GET WINDOW ADDRESS 




06 


A2 0? 


EO 


01AD 


.8 


BBS *WC8$? N0TFCP,WC8$B ACCESS(R2>,- ; JF SET THEN 






20 




01B1 


.9 


N0TFCPDC8 ; NOT FCP WINDOW 




52 


K A3 


00 


01B2 
0186 
0186 
01B6 
0186 
01B6 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 


,10 

.11 , 
.12 t 
.13 
J4 ( 
.15 . 
.16 , 
.17 ( 

.18 ( 
.19 , 
.20 , 
.21 « 
M t 
.21 , 


MOVL IRP$L_UCB(R3),R2 ; GET ADDRESS OF DEVICE UCB 

• FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO QUEUE AN I/O PACKET FOR AN ACP PROCESS AND WAKE 
THE PROCESS IF ITS QUEUE WAS PREVIOUSLY EMPTY. 

• CAUJNG SEQUENCE: 

BSBW IOC$WAKACP 

• INPUTS: 

R2 = DEVICE UCB ADDRESS 

R3 = I/O REQUEST PACKET ADDRESS 


-4 








01B6 
0186 
01R6 
0186 
01B6 


637 
638 

639 

.1 , 
.2 , 


■ OUTPUTS: 

R4 ALTERED 










01B6 


.3 


[OCSWAKACP:: 


' QUEUE I/O PACKET AND WAKE ACP PROCESS 










01B6 


.4 


DS8INT *IPL$ SYNCH 


• SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 










01BC 


.5 


BUG CHECK NONEXSTACP 


• NONEXISTENT ACP PROCESS 










01CE 


.6 


10$: EN8TNT 


■ RESTORE SAVED IPL 








05 


01D1 


,7 


RS8 












01D2 


.8 


t 










0102 


\l 


* WINDOW IS NOT AN FCP WINDOW, ONLY USED FOR BOOT TIME INTIALIZED WIN. OWS 










0102 


JO 


; FOR CONTIGUOUS FILES. IT IS NOT POSSIBLE TO NEED TO TURN SUCH A WINDOW. 



F 16 

ZZ-ENSAA-7.0 QUEUE NEXT SEGMENT 27-JUL-1984 Fiche 8 Frame F 16 Seguence 16^2 

iOPOST *«* IOPOST I/O completion posting 27-JUL-1984 15:26:A5 VAX-11 Macro V03-0T Page 11 

1*5-04 QUEUE NEXT SEGMENT 1-APR-198Q 1Q;21:Q3 DMA1 ;[SYS0.SYSMAINTJlQPO$T f MAR;46 (5) 

01D? .11 ; 

01D2 .12 NQTFCPWC8: 

01D2 .13 BUG^CHECK N0TFCPWC8, FATAL 



ZZ-ENSAA-7.0 

IOPOST 

L'5-04 



G 16 
BUFFERED READ COMPLETION AST ROUTINE 27-JUL-1984 Fiche 8 Frame 616 Sequence 1643 

*** IOPOST I/O completion posting 27-JUL-1984 15:26:45 VAX-11 Macro V03-01 Page 
BUFFERED READ COMPLETION AST ROUTINE 1-APR-1980 10:21:03 DMA1 :CS YSO.SYSMA I NT J IOPOST. MAR; 46 



12 
(6) 



-59 



4 A 
4D 



56 
57 
?A 
2A 

50 

51 



51 



53 



OOEO 
2C 
32 

A5 

A5 

56 
02 

04 

50 

01FF 

50 

54 

FEOO 



8F 
A5 
A5 
03 
05 
66 
A6 
32 
A6 
51 
8F 
51 
66 
8F 



50 



51 



53 

6043 

FO 

02 A6 

01 A644 

04 B6 

55 

56 

C2 



55 



6E 
08 
57 
72 
6D 
0103 
6E 



51 



51 



50 

04 
50 

OUF 
50 



68 
57 

A6 
51 
8F 
51 



B8 
DO 
3C 
El 
EO 
DO 
3C 
13 
DO 
CO 
AA 
C2 
3C 
32 

C2 
3E 
14 
28 



DO 
CO 
F5 
11 
11 
30 
DO 
11 
DO 
DO 
CO 
AA 
C2 



01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
C1E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01E8 
01EC 
01 FO 
01F4 
01F9 
01FE 
0201 
0205 
0207 
0208 
020E 
0213 
0216 
0219 
021E 
0225 
0228 
022C 
022E 
0231 
0234 
0236 
0239 

0*3C 
023F 
0241 
0243 
0246 
0249 
0248 
024E 
0252 
0255 
025A 



.15 

.16 
.17 

.18 

.19 

.20 

.21 

699 

700 

701 

.1 

.2 

.3 

.4 

,5 

.6 

.7 

.8 

.9 

.10 

.11 

,12 

.13 

.14 

.15 

.16 

.17 

.18 
.19 

.20 
.2) 
.22 
.23 
.24 
.25 
.26 
.2? 
.23 
.29 
.30 
.31 
.52 



.33 
.34 
.35 
.36 
.37 
.38 
.39 
.40 
.41 
.42 
.43 
.44 
.45 



.S8TTL BUFFERED READ COMPLETION AST ROUTINE 



+ + 



FUNCTIONAL DESCRIPTION: 

BUFPOST PERFORMS ALL NECESSARY COMPLETION OPERATIONS REQUIRED 
FOR A BUFFERED READ OPERATION IN THE CONTEXT OF THE PROCESS 
ISSUING THE I/O REQUEST. 

CALLING SEQUENCE: 

JSB BUFPOST 

INPUT PARAMETERS: 

R4 * CURRENT PROCESS PCB ADDRESS. 
R5 = IRP/AST CONTROL BLOCK. 

IMPLICIT INPUTS: 

SCH$GL_CURPCB - POINTER TO PCB OF CURRENT PROCESS 



BUFPOST 



10$: 



20$: 



30$: 



35$: 

40$: 



50$: 



PUSHR #*M<R5,R6,R7> 

MOVL IRP$L SVAPTE(R5 

MOVZWL IRP$W BCNHR5), 

BBC #IRP$?_COMPLX,J 

BBS #IRP$V CHAINED, 

MOVL (R6).R5 

MOVZWL 2<R6),R0 

BEQL 30$ 

MOVL 4lR6),R1 

ADDL R1,R0 

BICW *VA$M„BYTE,R1 

SU8L R1-R0 

MOVZWL (R6KR4 

CVTWL *-*X20Q,R3 

IFNOWRT RO,(R1>,35$,(R6 

SU8L R3.R1 

MOVAW (R0)[R3],R0 

BGTR 20$ 

MOVC 2(R6) J(R6)CR4? 



MOVl <SP),R5 

ADDL #8,R6 

SOBGTR R7J0$ 

BR8 130$ 

BR8 120$ 

BS8W MOVBUF 

MOVL <SP>,R5 

BRB 1 30$ 

MOVL R7,R0 

MOVL 4(R6),R1 

ADDL R1,R0 

BICW *VA$M BYTE # R1 

SUBL R1,RQ 



>,R6 
R7 



BUFFERED READ COMPLETION 

SAVE REGISTERS 

GET ADDRESS OF I/O BUFFER 
t GET COUNT OF BYTES OR DESCRIPTORS 
RP$W STS(R5),40$ ;IF CLR, NOT COMPLEX BUFFER FORMAT 
IRP$Q,.STS(R5>,50$ ;IF SET , CHAINED BUFFERS 

GET ADDRESS OF FIRST BUFFER DESCRIPTOR 

GET COUNT OF BYTES TO TRANSFER 

IF EQL NONE THIS DESCRIPTOR 

GET ADDRESS OF USER BUFFER 

CALCULATE ENDING ADDRESS OF BUFFER 

TRUNCATE ADDRESS TO PAGE BOUNDARY 

COMPUTE NUMBER OF BYTES TO PROBE 

GET OFFSET TO DATA AREA 

SET ADDITION CONSTANT 

CAN BUFFER BE WRITTEN? 

UPDATE ADDRESS OF BUFFER 

UPDATE REMAINING LENGTH 

if GEO MORE TO CHECK 

MOVE DATA TO USER BUFFER 



)CR43 



,34<R6) 



RESTORE ADDRESS OF I/O PACKET 
ADVANCE TO NEXT BUFFER DESCRIPTOR 
ANY MORE DESCRIPTORS TO PROCESS? 



CONTINUE 

MOVE BUFFER TO USER 

RETRIEVE ADDRESS OF 



I/O PACKfcT 



SET LENGTH OF USER BUFFER 
SET ADDRESS OF USER BUFFER 
CALCULATE END OF USER BUFFER 
TRUNCATE TO PAGE BOUNDARY 
COMPUTE NUMBER OF BYTES TO PROBE 
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53 



02 00 


EF 


025D 


.46 




EXTZV 


#0,*2JRP$BJWOD<R5) # R2 ; 


52 OB A5 




0260 










FFOO 8F 


32 


0263 


.47 




CVTWL 


#- A X200,R3 






0268 


.48 


60S: 


IFNOWRT 


R0,(R1),90$,R2 


51 53 


C2 


026E 


.49 




SUBL 


R3.R1 

(R0)CR3],RO 


50 6043 


3E 


0271 


.50 




MOVAW 


F1 


14 


0275 


.51 




BGTR 


60$ 


53 04 A6 


DO 


0277 


.52 




MOVL 


4<R6),R3 


OC A6 57 


B1 


0278 


,53 


70$: 


CMPW 


R7 t CXB$W^LENGTH(R6) 
80$ 


04 


1E 


027F 


.54 




BGEQU 


OC A6 57 


BO 


0281 


.55 




MOVW 


R7,CXB$W LENGTHCR6) 


96 OC A6 


28 


0285 


.56 


80$: 


MOVC 


CXB$ULLERGTH(R6),a<R6)*,< 


63 




0289 










55 6E 


DO 


028A 


.57 




MOVL 


(SP),R5 


57 08 A6 


A2 


C28D 


.58 




SU8W 


CXB$W_LENGTH-4(R6),R7 ; 


OB 


13 


0291 


.59 




BEQL 


100$ 


56 OC A6 


DO 


0293 


.60 




MOVL 


CXB$L_LINK-4(R6),R6 


E2 


12 


0297 


.61 




BNEQ 


70$ 


03 


11 


0299 


.62 




BR8 


100$ 


OODE 


30 


029B 


.63 


90$: 


BSBW 


ACCVJO 


50 2C A5 


DO 


029E 


.64 


100$: 


MOVL 


IRP$L SVAPTE(R5),R0 


56 10 AO 


DO 


02A2 


.65 


110$: 


MOVL 


CXB$LlLINK(R0),R6 


OF 


13 


02A6 


.66 




BEQL 


140$ 


FD55 1 


30 


02A8 


.67 




BS8W 


EXE$DEANONPAGED 


50 56 


DO 


02A8 


.68 




MOVL 


R6,R0 


F2 


11 


02AE 


.69 




BR6 


110$ 


0OC9 


30 


0280 


.70 


120$: 


BSBW 


ACCVIO 


50 2C A5 


DO 


0283 


.71 


130$: 


MCVL 


IRPSL SVAPTE<R5),R0 


fD46' 


30 


02B7 


J2 


140$: 


BSBW 


FXE$DFANONPAG£D 


OOEO 8F 


BA 


028A 


,73 




PUPR 


0*M<R5,R6,R7> 



GET REQUEST ACCESS MODE 

SET ADDITION CONSTANT 
CAN BUFFER BE WRITTEN? 
UPDATE ADDRESS OF BUFFER 
CALCULATE NEW LENGTH 
IF GEO MORE TO PROBE 
GET STARTING ADDRESS OF USER 
REMAINING LENGTH LARGER THAN 
IF GEQU YES 

TRUNCATE LENGTH OF DATA AREA 
I3> ; MOVE DATA TO USER BUFFER 



BUFFER 
DATA AREA? 



RETRIEVE ADDRESS OF I/O PACKET 
REDUCE REMAINING BYTES TO TRANSFER 
U EQL DONE 

GET ADDRESS OF NEXT BUFFER IN CHAIN 
IF NEQ MORE fO GO 

SET ACCESS VIOLATION 

GET ADDRESS OF FIRST BUFFER 

GET ADDRESS OF NEXT BUFFER 

If EQL NONE 

DEAuLOCATE BUFFER 

SET ADDRESS OF NEXT Bl ,rr ER 

SET ACCESS VIOLATION STATUS 
GET ADDRESS OF BUFFER TO RELEASE 
DEALLOCATE BUFFER 
RESTORE REGISTERS 



L 
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-78 



-41 



-1 



1C 2A A5 07 
00E0 Bf 
44 A5 
08 A6 
57 OC 
75 
00E0 8F 
44 A5 
FD2T 
28 A5 
00000000*FF40 
51 
OA A1 
12 
53 OC AT 
OC 
OC A1 
OA A1 
52 61 
FEB4 



56 
57 



50 
50 



50 24 A5 

10 
02 00 

51 08 A5 

60 34 A5 



028E 

02BE 

02BE 

02BE 

02BE 

02BE 

02BE 

02BE 

028E 

02BE 

02BE 

02BE 

02BE 

02BE 

C2BE 

02BE 

02BE 

02BE 

02BE 

02BE 

02BE 

02BE 

02BE 

02BL 

028E 

E1 028E 

BB 02C3 

DO 02C7 

3C 02C8 

C2 0?CF 

10 02D2 

BA 02D4 

DO 02D8 

30 02DC 

32 02DF 

9E 02E3 

02EA 

B7 02E8 

12 02EE 
DO 02F0 

13 02F4 
D4 02F6 
B6 02F9 
DO 02FC 
30 02FF 

0302 

0302 

0302 

0302 

030? 

0302 

DO 0302 

13 0306 

EF 0308 

0308 

030E 

7D 0314 



.75 

.76 

.77 

.78 

.79 

.80 

.81 

.82 

.83 

780 

781 

782 

.1 

824 

825 

826 

827 

.1 

829 

830 

831 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

,15 

.16 
,17 

.18 
,19 
.20 
.21 
.22 
.23 
.24 
.25 
.26 
.27 
,28 
.29 
.30 
,31 
,32 

.33 

,34 



.SBTTL DIRECT I/O COMPLETION AST ROUTINE 



+ + 



FUNCTIONAL DESCRIPTION: 

DIRPOST PERFORMS ALL GENERAL I/O COMPLETION ACTIVITIES WHICH 
MUST BE DONE IN THE CONTEXT 0»" the PROCESS. THESE INCLUDE 
I/O STATUS POSTING IF AN IOSB WAS SPECIFIED, CHANNEL CONTROL 
BLOCK ACTIVITY COUNT DECREMENTING, QUEUEING OF ANY REQUESTED 
AST OR RELEASE OF THE I/O REQUEST PACKET. 

CALLING SEQUENCE: 

JS8 DIRPOST 

INPUT PARAMETERS: 

R4 = CURRENT PROCESS PCB ADDRESS. 
R5 = IRP/AST CONTROL BLOCK ADDRESS. 

IMPLICIT INPUTS: 

SCH$GL W CURPCB - POINTER TO CURRENT PCB 



DIRPOST: 



10$: 



BBC 

PUSHR 

MOVL 

MOVZWL 

SUBL 

BS8B 

POPR 

MOVL 

BSBW 

CVTWL 

MOVAB 

DECW 

8NEQ 
MOVL 
BEQL 
CLRL 
INCW 
MOVL 
BSBW 



; DIRECT I/O POSTING AST 
#1RP$V_DMGBUF,IRP$W_STS(R5),10S ; If CLR, NO DIAGNOSTIC 3UFFER 



#*M<R5,R6,R7> 

IRP$L_DIAGBUF(R5),R6 

IRPSW SIZE(R6),R7 

#12,R? 

MOVBUF 

#*M<R5,R6,R7> 

IRPSL DIAGBUF(R5),R0 

EXESDPANONPAGED 

IRPSW CHAN(R5),R0 

aCTL$GL_CCBBASECR03,R1 

CCBSW IOC(RD 

30$ 

CCBSL_DIRP(R1),R3 

30$ 

CCB$L_DIRP(R1) 

CCBSW IOC(RI) 

CCB$L~UCB(RU,R2 

IOCSWAKACP 



30$: 



SAVE REGISTERS 

GET ADDRESS OF DIAGNOSTIC BUFFER 

GET SIZE OF DIAGNOSTIC BUFFER 

REDUCE BY SIZE OF BUFFER HEADER 

MOVE DIAGNOSTIC INFORMATION TO USER 

RESTORE REGISTERS 

RETRIEVE ADDRESS OF DIAGNOSTIC BUFFER 

DEALLOCATE DIAGNOSTIC BUFFER 

GET CHANNEL NUMBER (NEGATED) 

SET CCS BASE ADDRESS 

DECREMENT I/O COUNT FOR CHANNEL 

NOT IDLE YET 

GET ADDRESS OF DEACCESS PACKET 

IF EQL NONE 

CLEAR ADDRESS OF DEACCESS PACKET 

ACCOUNT FOR DEACCESS 

GET ASSIGNED DEVICE UCB ADDRESS 

QUEUE I/O PACKET AND WAKE ACP 

R4 ALTERERED 



R4 DOES NOT NECESSARILY HAVE CURRENT PCB ADDRESS IN IT AT THIS POINT 



I0CSPJRPPST1:: 

urn 

K'QL 
E>'T7V 

IFNOWRT 

MOVQ 



IRP$LJOS8(R5),R0 

35$ 

#0,*2,IRP$8„RMOD<R5),R1 

*8,(R0),35$,R1 
IRP$LJ0STKR5),<RQ) 



GET IOSB ADDRESS 

IF EQL NONE SPECIFIED 

GET REQUEST ACCESS MODE 

CAN I/O STATUS BE WRITTEN? 
MOVE STATUS INTO IOSB 
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13 2A A5 
08 OB A5 



OB EO 

06 E1 

52 D4 

00000000' EF 17 

50 55 DO 

FCDO 1 31 



»» 



50 AC A5 DO 

54 DA 

04 2 A AO 08 E1 

54 4C AO DO 

FCBE' 30 

50 54 DO 

ED 12 

D4 11 



0318 
031D 
0322 
0324 
032A 
032D 
0330 
0330 
0330 
0330 
0330 
0330 
0330 
0334 
C334 
0336 
033B 
033F 
0342 
0345 
0347 



.35 35$: 

.36 37$: 

.37 

.38 

.39 40$: 

.40 

.41 

.42 

.43 

.44 

.45 

.46 

.47 50$: 

.48 

.49 60$: 

.50 

.51 

.52 70$: 

.53 

.54 

.55 



BBS 

BBC 

CLRL 

JMP 

MOVL 

8RW 



#IRP$V EXTEND ,IRP$W STS(R5) , 50$ 
#ACB$V_QUOTA,JRP$BJ5MQD(R5),40$ 



R2 

SCH$QAST 

R5,R0 

EXE$DEAN0NPA6ED 



BRANCH TO DEALLOCATE IRPE'S 
If CLR, NO AST SPECIFIED 



SET NULL PRIORITY INCREMENT 
QUEUE AST FOR REQUESTOR 
SETJP ADDRESS FOR DEALLOCATE 
AND RELEASE I/O PACKET 



DEALLOCATE IRPE'S 



MOVL IRP$L.EXTEND(R5),R0 ; GET ADDRESS OF FIRST IRPE 



CLRL 

BBC 

MOVL 

BS8W 

MOVL 

BNEQ 

BRB 



R4 ; WILL HOLD 

#IRPE$V_EXTEND,IRPE$W_STS(R0),70$ ; 



IRPE$L FXTEND(R0),R4 

EXE$DEANONPAGED 

R4.R0 

60i 

37$ 



ADDRESS OF NEXT IRPE 
BR. IF NO MORE IRPE'S 



SAVE ADDRESS OF NEXT IRPE 
DEALLOCATE IRPE POINTED TO BY RO 
PUT ADDRESS OF NEXT IRPE IN RO 
BR. IF THERE IS ANOTHER IRPE 
DONE DEALLOCATING IRPE'S 



ZZ-ENSAA-7.0 

10POST 

05-04 



MOVE DATA TO USER BUFFER 
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51 



51 



53 



96 



52 



50 







0349 


.57 




.SBTTL 






0349 


.58 


« 








0349 


.59 


; SUBROUTINE T 






0349 


,60 


• 

9 








0349 


.61 










0349 


.62 


MOVBUF : 




50 57 


DO 


0349 


.63 




MOVL 


2D 


13 


034C 


.64 




BEQL 


04 A6 


DO 


034E 


.65 




MOVL 


50 51 


CO 


0352 


.66 




ADDL 


01FF 8F 


AA 


0355 


. .67 




BJCW 


50 51 


C2 


035A 


.68 




SUBL 


02 00 


EF 


035D 


.69 




EXTZV 


OB A5 




0360 








FEOO 8F 


32 


C363 


.70 




CVTWL 






0368 


.71 


10$: 


IFNOWR 


51 53 


C2 


036E 


J2 




SUBL 


6043 


3E 


0371 


.73 




MOVAW 


F1 


14 


0375 


.74 




BGTR 


96 57 


28 


0377 


.75 




MOVC 




05 


0378 


.76 


15$: 


RSB 


A5 00* 


BO 


037C 


.77 ACCVJO: 


MOVW 




05 


0380 


.78 




RSB 



.SBTTL MOVE DATA TO USER BUFFER 
SUBROUTINE TO MOVE DATA FROM A SIMPLE BUFFERED I/O BUFFER TO A USER BUFFER 



R7,R0 

15$ 

4(R6),R1 

R1.R0 

#VA$M,BYTE,R1 

R1,R0 

#0,*2,IRP$B_RMOD(R5),R2 

#- A X200,R3 

R0,(R1),ACCVI0,R2 

R3,R1 

(R0)CR33,R0 

10$ 

R7 # a(R6)+,9(R6)* 



MOVE BUFFER 

SET LENGTH OF USER BUFFER 

BR IF NULL STRING 

GET ADDRESS OF USER BUFFER 

CALCULATE ENDING BUFFER ADDRESS 

TRUNCATE ADDRESS TO START OF PAGE 

CALCULATE LENGTH OF BUFFER TO PROBE 

GET REQUEST ACCESS MODE 

SET ADDITION CONSTANT 

CAN BUFFER BE WRITTEN? 

UPDATE BUFFER ADDRESS 

UPDATE REMAINING LENGTH OF BUFFER 

IF GEO MORE TO CHECK 

MOVE DATA TO USER BUFFER 



S*rfSS$_ACCVIO,JRP$LJOST1<R5) ; SET FINAL TRANSFER STATUS 



ZZ-ENSAA-7,0 

IOPOST 

1*5-04 



-69 

-5 

-1 
-105 



UNLOCK AREAS IN IRPE'S 
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-1 









0381 


.80 








0381 


901 








0381 


902 








0381 


903 








0381 


.1 








0381 


♦ 2 








0381 


909 








0381 


910 








0381 


911 








0381 


.1 








0381 


913 








0381 


914 








0381 


915 








0381 


1021 








C381 


1022 








0381 


1023 








0381 


1024 








0381 


1025 








0381 


1026 








0381 


1027 








0381 


1028 








0381 


1029 








0381 


1030 




55 


OD 


0381 
0383 
0383 
0383 


1031 
1032 
1033 
1034 


55 4C 


A5 


DO 


0383 


1035 


53 2C 


A5 


00 


0387 


1036 




OA 


13 


0388 


1037 


52 30 


A5 


3C 


038D 


1038 


51 34 


A5 


DO 


0391 


1039 




19 


10 


0395 
0397 


1040 
1041 


53 38 


A5 


DO 


0397 


1042 




OA 


13 


0398 


1043 


52 3C 


A5 


3C 


039D 


1044 


51 40 


A5 


DO 


03A1 


1045 




09 


10 


03A5 
03A7 


1046 
1047 


D7 2A A5 


OB 


EO 


03A7 


1048 




55 


8ED0 


03AC 


1049 






05 


03AF 
0380 
0380 
0380 
03B0 
0380 
0380 
0380 
0380 
0380 


1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 


1 Q1FF C142 


9E 


0380 


1060 


51 F7 


8F 
51 


78 


0386 
038A 


1061 


00000000 


'EF 


16 


0388 


.1 






05 


03C1 


1063 



.SBTTL UNLOCK AREAS IN IRPE'S 



+ + 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE UNLOCKS THE AREAS DESCRIBED BY FIELDS IN THE IRPE'S. 
IRPE HAS SPACE TO HOLD TWO AREA DESCRIPTIONS. 

CALLING SEQUENCE: 

BSBW UNLOCK.MORE 
INPUT PARAMETERS: 

R5 - I/O REQUEST PACKET ADDRESS 
SIDE EFFECTS: 

RO - R3 ARE NOT PRESERVED 

ASSUME IRP$L_EXTEND EQ IRPE$L_EXTEND 

UNLOCKJiORE : 

PUSHL 



EACH 



10$: 



R5 ; SAVE IRP ADDRESS 

UNLOCK AREA! SPECIFIED IN NEXT IRPE 



20$; 



30$; 



MOVL 

MOVL 

BEQL 

MOVZWL 

MOVL 

BSBB 

MOVL 

BEQL 

rfOVZWL 

MOVL 

BSBB 

BBS 

POPL 

RSB 



IRPE$L„EXTEND(R5) f R5 

IRPE$L_SVAPTE1(R5).R3 

20$ 

IRPE$W_B0FF1(R5),R2 

IRPE$L_BCNT1(R5),R1 

UNLK 

IRPE$L„SVAPTE2(R5),R3 

30$ 

IRPE$W BOFF2CR5), R2 

IRPE$L_BCNT2(R5),R1 

UNLK 



GET ADDRESS OF NEXT IRPE 
GET SVAPTE OF FIRST AREA 
BR. IF NOTHING TO UNLOCK 
GET BYTE OFFSET IN PAGE 
GET SIZE OF AREA 
UNLOCK FIRST AREA 

GET SVAPTE OF SECOND AREA 
BR, IF NOTHING TO UNLOCK 
GET BYTE OFFSET IN PAGE 
GET SIZE OF AREA 
UNLOCK SECOND AREA 



*1RPE$V„EXTEND,1RPE$W STS(R5>.10$ ; BR. IF THERE'S ANOTHI-R IRPE 
R5 ; RESTORE R5 



LOCAL SUBROUTINF TO UNLOCK PAGES 

R1 = BYTE COUNT (OR SIZE OF AREA) 

R2 = BYTE OFFSET IN PAGE 

R3 = SVAPTE OF START OF AREA 



UNLK: 



MOVAB 5..'R1)CR2J,R1 
ASHL Jf-VASS BYTE,R1,R1 



J SB 
RSB 



L A MMG$UNLOCK 



; COMBINE OFFSET AND SIZE AND ROUND 
; CONVERT TO NUMBER OF PAGES TO UNLOCK 

; Unlock pages 



B 


1 


*** GTCHAN Get channel informa 


C 


1 


GET I/O CHANNEL DEVICE INFORMA 


D 


1 


GET I/O CHANNEL DEVICE INFORMA 


E 


1 


Symbol table 




F 


1 


Symbol table 




G 


1 


Cross reference 




H 


1 


Cross reference 




1 


1 


*** HELP Handle HELP 


command 


i 


1 


*** HELP Handle HELP 


command 


K 


1 


*** HELP Handle HELP 


command 


L 


1 


*** HELP Handle HELP 


command 


M 


1 


*** HELP Handle HELP 


command 


N 


1 


*** HELP Handle HELP 


command 


B 


2 


*** HELP Handle HELP 


command 


C 


2 


*** HELP Handle HELP 


command 


D 


2 


Help control routine 




E 


2 


Help control routine 




F 


2 


Help control routine 




G 


2 


Help control routine 




H 


2 


Help control routine 




I 


2 


Help control routine 




J 


2 


Help contrcl routine 




K 


2 


Help control routine 
do help stuff 




L 


2 




M 


2 


do help stuff 




N 


2 


do help stuff 




B 


3 


do help stuff 




C 


3 


do help stuff 




D 


3 


do help stuff 




E 


3 


do help stuff 




F 


3 


do help stuff 




G 


3 


do help stuff 




H 


3 


check for key on line 


i 


I 


3 


check for key on I ine 


> 


J 


3 


check for key on line 


i 


K 


3 


check for key on lint 


i 


I 


3 


print key list 




M 


3 


print ke\ 


t list 




N 


3 


print he 


Lp text 




B 


4 


print he 


Lp text 




C 


4 


print he 


lp text 




D 


4 


List other keys 




E 


4 


List other keys 




F 


4 


PrintHeader 




G 


4 


Pr intHeader 




H 


4 


print^otherhelp main 


code 


I 


4 


print^otherhelp main 


code 


J 


4 


print^otherhelp main 


code 


K 


4 


print~otherhelp main 


code 


L 


4 


Reac* random record 




M 


4 


Read random record 




N 


4 


Read random record 




B 


5 


compare keys 




C 


5 


compare keys 




D 


5 


compare keys 




E 


5 


compare keys 




F 


5 


compare keys 




G 


5 


skip_blanks 




H 


5 


skip_blanks 




I 


5 


scan'won 


1 





J 5 scan_word 
K 5 scan„word 
L 5 find character 
M 5 find character 
N 5 print blank line 
print blank line 

- Interpreted code 

- Interpreted code 

- Interpreted code 
DECLARATIONS 
DECLARATIONS 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 

description 
description 
description 
description 
description 
description 
Device description 
Device description 
description 
description 
description 
description 
Device description 
Device description 
Device description 
Devicf- description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
Device description 
B 10 Device description 
C 10 Device description 
D 10 Device description 



B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 



C 
D 
E 

F 
G 
H 
J 
J 
K 
L 
M 
N 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 

C 8 

D 8 

E 8 

F 8 

G 8 

H 8 

I 8 

J 
K 

L 



8 
8 
8 

M 8 
N 8 
B 9 



9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 



Device 
Device 
Device 
Device 
Device 
Device 



Device 
Device 
Device 
Device 



for TSP 
for TSP 
for TSP 



database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 
database 



E 


10 


F 


10 


G 


10 


H 


10 


I 


10 


J 


10 


K 


10 


L 


10 


M 


10 


N 


10 


B 


11 


C 


11 


D 


11 


E 


11 


F 


11 


G 


11 


H 


11 


I 


11 


J 


11 


K 


11 


L 


11 


M 


11 


N 


11 


B 


12 


C 


12 


D 


12 


E 


12 


F 


12 


G 


12 


H 


12 


I 


12 


J 


12 


K 


12 


L 


12 


M 


12 


N 


12 


B 


13 


C 


13 


D 


13 


E 


13 


F 


13 


G 


13 


hi 


13 


I 


13 


J 


13 


K 


13 


L 


13 


M 


13 


N 


13 


B 


14 


C 


14 


D 


14 


E 


14 


F 


14 


G 


14 


H 


14 


I 


:u 


J 


14 


K 


14 


L 


14 



Device description database 

Device description database 

Device description database 

Device description database 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

*** I0BASE I/O data base 

*** I0BASE I/O data base 

*** I0BASE I/O data base 

*** I0BASE I/O data base 

DECLARATIONS 

DECLARATIONS 

DECLARATIONS 

DECLARATIONS 

Device description database 

Device description database 

Device descr^otion database 

Device description database 

Device d scription database 

Device description database 

Symbol tablt 

Symbol table 

Symbol table 

Symbol table 

Symbol tabU 

Fsect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 



M H Cross reference 

N H Cross reference 

b 15 Cross reference 

C 15 Cross reference 

D 15 Cross reference 

F 15 Cross reference 

F 15 Cross reference 

G 15 Cross reference 

H 15 *** IOPOST I/O completion post 

I 15 *** IOPOST I/O completion post 

J 15 HISTORY ; DETAILED 

K 15 DECLARATIONS 

L 15 I/O COMPLETION POSTING 

M 15 I/O COMPLETION POSTING 

H 15 I/O COMPLETION POSTING 

B 16 VIRTUAL I/O COMPLETION 

C 16 VIRTUAL I/O COMPLETION 

D 16 QUEUE NEXT SEGMENT 

E 16 QUEUE NEXT SEGMENT 

F 16 QUEUE NEXT SEGMENT 

G 16 BUFFERED R^AD COMPLETION AST R 

H 16 BUFFERED READ COMPLETION AST R 

1 16 DIRECT I/O COMPLETION AST ROUT 

J 16 DIRECT I/O COMPLETION AST ROUT 

K 16 MOVE DATA TO USER BUFFER 

L 16 UNLOCK AREAS IN IRPE'S 



B 1 

7J-ENSAA-7.0 UNLOCK AKEAS IN IRPE'S 27-JUL-1984 Fiche 9 Frame B1 Seguence 1649 

lO^OSt *** I0P0ST I/O completion posting 27-JUL-1984 15:26:45 VAX-11 Macro V03-0T Page 18 

• S-04 UNLOCK AREAS IN IRPE'S 1-APR-1980 10:21:03 DMA1 :CSYS0.SYSMAINTJIOPOST.MAR;46 (9) 

03C2 1064 
03C2 1065 
03C2 1066 .END 



U. 



ZZ-ENSAA-7,0 
IQPQST 
Symbol table 

SER 

IMODULE 

AACPERR 

ACBSB RMOD 

ACB$B~TYPE 

ACB$tJ.ENGTH 

ACB$KJ.ENGTH 

ACBSL.AST 

ACB$L^ASTPRM 

ACB$L„ASTQBL 

ACB$L ASTQFL 

ACBSL KAST 

ACB$L„PID 

ACBSV QUOTA 

ACBSVTSIZE 

ACCVlO 

BUFIO 

BUFPOST 

BUGSCHECK 

CCB$B„AM0D 

CCBSB^STS 

CCBSC..LENGTH 

CCB$KJ_ENGTH 

CCB$L_DIRP 

CCBSL.UCB 

CCB$L„W1ND 

CCB$W IOC 

ctlsgC CCBBASE 

CXBSL.CINK 

CX8$W^LENGTH 

OEVSV SQD 

DIRIO 

DIRPOST 

OS ERRSUP 

EXFIDEANONPAGED 

EXESINSIOQ 

10C$CVTLOGPHY 

IOCIDIRPOST1 

IOCSGl.PSBL 

IOC$GL PSFL 

IOCSIOPOST 

IOCSMAPVBLK 

IOCSQNXTSEG 

IOCSQNXTSEG1 

iOCSQTOACP 

IOCIWAKACP 

IOPOST 

IOPOST KAST 

IPlSjflPOST 

IPL$ SYNCH 

IRP$B a CARCON 

IRP$B"EFN 

IRP$B PR I 

IRP$B"RMOD 

IRP$BlTYP£ 

IRPSC.LENGTH 

IRP$K_lENGTH 
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00000002 
00000000 
00000007 
00000008 
0000O00A 
00000018 
00000018 
00000010 

oooooou 

00000004 
00000000 
00000018 

oooooooc 

00000006 
00000008 
0000037C 
00000096 
000001 E8 
******** 

00000009 
00000008 
00000010 
00000010 

oooooooc 

00000000 
00000004 
0O00000A 

******** 
00000010 

oooooooc 

******** 
0000004E 

000002BE 

******** 
******** 
******** 
******** 

00000302 

******** 
******** 

00000004 

******** 



00001 < 
000015 
0Q1A5 
001B6 



IS 




Kooos 

OOQOOOQA 
0000005C 
0000005C 



X 
D 

D 

D 

D 
D 

X 
D 
D 

X 
R D 
R D 

X 

X 

X 

X 



R 



02 
02 



03 
03 



D 03 
0?> 



03 



03 
03 
03 
03 
03 
03 
03 



RG D 03 

X 03 

X 03 

RG D 03 

X 03 

RG D 03 

RG 03 

R D 

RG D 

R 



8 

03 
03 



IRPSL.ARB 

1RP$L„AST 

IRP$L ASTPRH 

IRP$L_DIAG8UF 

IRPSLlEXTEND 

1RP$L IOQBL 

IRPSIZIOQFL 

IRPSL.IOSB 

IRP$LllOST1 

1RP$LJ0ST2 

IRPJLlMEDIA 

IRPSL^PID 

IRPSLZSEGVBN 

IRP$L SEQNUM 

IRPSLlSVAPTE 

IRPSLZTT TERM 

IRPSL^UCB 

JRP$L WIND 

IRPSfCPAGIO 

1RP$M_SWAPI0 

IRP$M„VIRTUAI 

IRPSCfNT PRVMSK 

IRP$V_BllFlO 

IRP$V_CHAINED 

IHPSV^COMPLX 

I RP$0 1 AGBUF 

IRPSV^EXTEND 

JRP$V FJIACP 

IRPSVlFUNC 

IRPSV PAGIO 

IRPSV SWAP! 

IRPSOERMIO 

IRPSVlVIRTUAL 

IRPSW^ABCNT 

IRP$W"BCNT 

IRPSWlBOFF 

IRPSW^CHAN 

IRP$W„FUNC 
IRPSW~08CNT 
IRP$W*SIZE 
IRPSW STS 
JRPSWlTT PRMPT 
IRPE$Bj?PE 
IRPUCZLEN6TH 
IRPEMc.LENGTH 

irpekz3cnt1 

irpe$l„bcnt2 

irpeslZextend 

irpe$l~svaptei 

irpe$l7,svapte2 

IRPE$VlEXTEND 

IR*E$WlB0FF1 

IRPE$W.B0FF2 

IRPE$W„SIZE 

IRPESW^STS 

MMGSUNCOCK 

MQVBUF 



00000050 
00000010 
OOOOOOU 
0O00OQ44 
QO0OQ04C 
00000004 
00000000 
00000024 
00000034 
00000038 
00000034 
OOOOOOOC 
00000040 
00000048 
0000002C 
00000038 
1000001 C 
10000018 
= 00000004 
= 00000040 
= 00000010 
QQ00QO3C 
= 00000000 
= 00000005 
= 00000003 
= 00000007 
= OOOOOOOB 

* OOOOOOOC 

* 00000001 
= 00000002 

* 00000009 



= 00000004 




.OOOOJOA 



IO00OI 



8 



0( 
00( 



8 



i50 

I34 
I40 
HC 
I0?C 
)8 



I? 



******** 
00000349 



D 
D 
D 

D 
D 
D 
D 
D 
D 

D 
D 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 

D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 
R D 



°3 
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ZZ-ENSAA-7.0 
IOPOST 
Symbol table 

NOTACP 

NOTFCPWC8 

PAGIO.OR SWAPIO 

PCBIB.ASTACT 

PCB$B_ASTEN 

PCBSB.PRI 

PCBS8.PRIB 

PCBSBJYPE 

PCBSBlWEFC 

PCB$C_LENGTH 

PCB*K„LENGTN 

PCBSLlARB 

PCB$L_A$TQBL 

PCB$LJ\STQFl 

pcb$l efc2p 

pcb$l;efc3p 
pcb$l„.efcs 
pcbsl efcu 
pcbsljfwm 

PCB$L_J18 

PCBSL OWNER 

PCB$L PHD 

PCB$L~PHYPCB 

PCBSL.PID 

PCBSL^PQB 

PCBSLlSQBL 

PCB$L SQFL 
PCB$l_ST$ 

PCB$L„UIC 

PCB$L„WSSWP 

PCBSlJrfTIME 

PCBSQ PRIV 

PCBSTlLNAME 

PCB$T TERMINAL 

PCB$W_APTCNT 

PCB$W_ASTCNT 

PCB$W w BIOCNT 

PCBSW^BIOLM 

PCB$WJ)IOCNT 

PCBIW.DIOLM 

PCBSW..GPGCNT 

PCBSW^GRP 

PC8$W_MEM 

PCB$W„MTXCNT 

PCB$W PPGCNT 

PCB$W_PRCCNT 

PCB$W W SIZE 

PCB$W~STATE 

PCB$W~TMBU 

PRIJPL 

PRi'SIRR 

PRI* IOCOM 

PRISITICOM 

PRJ$~TQCOM 

PRITBL 

QNXTSEG 

SCH$GL_PCBVEC 
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000QQ0A1 R 
000001 D2 R 
5 R 

0000000D 
0000000B 
0000002F 
OOOOOOOA 
000Q002E 
0000008C 
0000008C 
00000084 
00QQQ01 4 
00000010 
00000058 
0000005 C 
00000050 
00000054 
0QOOO4C 
000U078 
0000001 C 
00000064 
00000018 
00000060 
0000004C 
00000004 

00000000 
4 



t 




00000020 
I0026 

>0068 

I00Q44 

•0530 

. J003A 
0000003C 
0000003E 
00000040 
00000034 

«» 




00000042 
)00008 



S 




' f 



3 

03 



******** 



3 
3 

03 



SCHSPOSTEF 

SCHSCAST 

SIZ.., 

SS$„ACCVIO 

SS$ ILLBLKNUM 

UC8$B AMOD 

UCB$B~CEX 

UCBSB.CM1 

UC8$8^CM2 

UCBSB^DEVCLASS 

UCBSB^DEVTYPE 

UCBSB^DIPL 

UCB$B_DX SCTCNT 

UCBSBlERTCNT 

UC8$8„ERTMAX 

UCBSBlFEX 

UCBSB^FIPL 

UCBIBlLOCSRV 

UCB$B~OFFNDX 

UCBSB^OFFRTC 

UCBSB^REMSRV 

UCBSBlSECTORS 

UC8SBZSLAVE 

UCBIBlSPR 

UCBSBlSTATE 

UCBSBITRACKS 

UCB$B~TT.CRFILL 

UCBSELTT.DECRF 

UCB$B_TTJ)ELFF 

UCBSB.TT.DESPEE 

UCBSB_TTJ>ETYPE 

UCBSBlTTlLFFILL 

UCB$BlTT"SPEED 

UCBIB^TYPE 

UCBSBlVERTSZ 

ucb$Clength 
ucb$c"mbj.ength 

UCBSClTT LENGTH 
UCBSKlLERGTH 

ucbsk^mb^length 

ucb$OOength 
ucbsl^amb 

ucb$l~astqbl 

ucb$l*astqfl 

ucb$l;cpid 

ucbsl^crb 

UCBSLlDDB 

UC8$L,DEVCHAR 

UCBSL^DEVDEPEND 

UCBSLlDPC 

UCB$L W DUETIM 

UCBSLlDX^BFPNT 

UCBSL^DXZBUF 

UCBSLlDX RXDB 

UCBtllEflB 

UCBSLlFIRST 

ucb$l!fpc 



t 



******** 
******** 

00000001 

******** 

******** 

00000053 
00000077 
0000004A 
00000048 
00000038 
00000039 
0$0Q052 
00000A6 
00000070 
00000071 
00000076 
00000008 
0000003C 
00000094 
00000095 
0000003D 

00000075 
00000052 
0000003D 
0000009D 
000000A1 



r 



03 
03 

03 
03 
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UCBSL 

ucb$l; 

UCBSL 

UCBSL 

UCBSL. 

UCBSL, 

UCBSL, 

UCBSL 

UCBSL, 

UCBSL, 

UCBSL. 

UCBSL, 

UCBSL 

UCBSL! 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL. 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL 

UCBSL 

UCBiL! 

UCBSL 

UCQSL, 

UCBST 

UCBSW 

UCBSW 

UCBSW, 

UCBSW 

UCBSW 

UCB*/, 

UGBW, 

ucesw, 

UCBSW 
UCBSW, 
UCBSW] 
UCBSW. 
UC8SW r 
UCBSW 
UCBSW, 
UCBSW, 
UCBSW 
UCBSW 
UCBSW 

UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 



FQBL 

JQFL 

FR3 

;fra 

„10QBL 
.IOQFL 

;irp 

.LINK 

..LOGADR 

.MAXBLOCK 

..MB.MBX 

,MB„PORT 

.MB^RAST 

JCSHB 
.MB^WAST 

M MB_WI0QBL 
« WIOQFL 
.MECIA 
.NTJ)ATSSB 
„NT INTSSB 

OPfNT 
.OWNUIC 
.PIO 
IRQBL 
,RQFL 
.SVAPTE 

SVPN 

JTJ)ECHAR 
JT..RDUE 

TT RTIMOU 
IVCB 

PARTNER 
.BCNT 
.BCR 
,B0FF 

.BUFOUO 
.BYTESTOGO 
^CHARGE 
^CYLINDERS 

:oa 

DC 

OEVBUFSI2 

DEVSTS 

OIRSEQ 

OSTADDR 

OX BCR 

ECT 

EC2 

ERRCNT 

FUNC 
JIB SEED 
IMSGCNT 

MSGMAX 

NT CHAN 

OFFSET 
~REFC 
ISIZE 



00000004 
00000000 
0000001 
00000014 
00000044 
00000040 
0000004 C 
000QQ02C 
00000064 
00000084 
0000007C 
0000008C 
00000078 
00000080 
C0000074 
00000088 
00000084 
0000008C 
00000074 
00000078 
00000060 
0000001 C 
00000028 
00000004 
00000000 
00000068 
00000064 
00Q0QQA8 
0000008C 
000000B8 
00000030 
000000CC 
00000066 
00000096 
0000006C 

Mr 19 

oor 



001 

001 

8 



ffl 

0001 



00000050 
00000008 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

r 

D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 



UC8SW.SRCADDR 

UCBSW.STS 

UCBSW..TT DESIZE 

UCBSW^UNlT 

UC8SW,VPR0T 

UNLK 

UNLOCK 

unlock more 
va$m_bYte 

VA$S BYTE 

VCBSBJ3LOCKFACT 

VCB$B_CURJWN 

VCBSB..EOF5ELTA 

VCBIBJBMAPSIZE 

VCBSBZIBMAPVSN 

VCBSB^LRU LIM 

VC8$8„QNAflECNT 

VCBSBlRESFILES 

vcbsb^sbmapsi ze 
vcb$8„$8mapv8n 
vc8$8~status 
vcb$i?:$tatus2 

VCBSB.TM 
VC8$B„TYPE 

vcbsb^windgw 

vcbsc^comlen 

vcb$Clength 

vcbsc.mrklen 

vc8sk..comlen 

vcbsk^length 

vc8$k_mrklen 

vcbsl^aqb 

vcbsl.blockbl 

vcbsl^blockfl 

vcbsl^cache 

vcbsl^cur fid 

VCBSLlFCBBL 

VC8SLJCBFL 

VCBSL.FREE 

VC8$L„HOME2LBN 

VCBSL.HOMELBN 

VCBSLJBMAPLBN 

VC8SLJXHDR2L8N 

VCB$L~MAXFILES 

VCBSL~MVL 

VCBSL^QUOCACHE 

VCBSLlQUOTAFCB 

VCBSL^RVT 

VCB$L„SBMAPLBN 
VCBSLlSTART FID 

vcb|l:stre?ord 
vcbslZusRlblast 
vcbsl^vpbl 
vcbslZvpfl 

VCBSLlWCB 
VC8ST QNAME 
VC8SO0LNAME 



0O00OO1A 

00000058 

OO000OA5 

00000048 

0000001A 

000003BO R 

0000006A R 

00000381 R 

000001 FF 

00000009 

00000052 

0000002F 

0000004E 

00000038 

0000003A 

00000049 

OOOOOOOB 

0000004F 

53592Q39 

0Q000Q3B 
OOOOOOOB 
0O00QO53 
0000002E 
OOOOOOOA 
QQQ00048 
00000024 
00000064 







QQ000Q24 

00090004 
00000000 
00000040 
00000028 




D 

D 

D 

D 

D 

D 03 

D 03 

03 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 



D 



D 



r- 



Z2-ENSAA-7 
IOPOST 
Symbol table 

VCBSW CLUSTER 
VCBSWJIUR..NUM 
VCBtW^CUR SEQ 
VCBSW EXTEND 
VCBSWJILEPROT 
VCBSWJ1COUNT 
VCB$W MODE 
VCB$W~PENDERR 
VCB$WjaUQSIZE 
VCB$W w RECORDSZ 
VCB$U RVN 
VCBSVfSIZE 

vcb$w„start^num 
vcbswIstarOeq 
vcbsw trans 

VIRTUAL 

WCRSB^ACCESS 

WCBSB TYPE 

WCBSCJ-ENGTi: 

WCBSClMAP 

WCB$K LENGTH 

WtB$K MAP 

WCBSL'FCB 

WCBSLlLBN 

WCB$LJ)RGUCB 

WC8$l„P1 LBN 

WCB$L„,P2 J BN 

WCB$L„PlB 

WCB$L PREVLBN 

WCB$L"RVT 

WCB$L_STVBN 

WCBSL^WLBL 

WCB$LJ*/LFL 

WCB$V NOTFCP 

WCBIW^ACON 

WCBSW^CQUNT 

WCB$W~NMAP 

UCBSU.P1. COUNT 

WCBlW^ COUNT 

WCB$W„PREVC0UNT 

WCBSVfREFCNT 

WCBSW^SIZE 

WQHSC^LENGTH 

WQHSK LENGTH 

WQHSL^WQBL 

WQH$L_WQFL 

WQH$W WQCNT 

WQHSW WQSTATE 



Symbol table 



*** IOPOST I/O completion posting 



F 1 
27-JUL-1984 



27-JUL-1984 
1-APR-1980 



Fiche 9 Frame F1 



Seguence 1653 
15:26:45 VAX-11 Macro V03-01 Page 22 
10:21:03 OMA1:CSYSO.SYSMAINT3IOPOST.MAR;46 (9) 



0000003C 
0000002A 
0000 
0000 




t 



0000! 

0000! 

000-\ 

00000060 

00000050 

0000000E 

00000008 

00000028 

0000002A 

0000C00C 

000000E8 

Q0000Q0B 

0000000A 

oooooIa 

00000024 
00000024 
00000018 
00000002 

26 

0000002 C 
0000000C 
FFFFFFFC 
0000001 c 
00000020 
00000004 

mm 

00000014 
00000000 
00000016 





fFFFFFFA 

00! 



V 




R 



03 



ZZ-ENSAA-7,0 

IOPOST 

Psect synopsis 



Psect synopsis 



*** IOPOST I/O completion posting 



G 1 
27-JUI-1984 



It- 
1 



Fiche 9 Frame G1 Sequence 1654 

>JUL~1984 15:26:45 VAX- 11 Macro V03-0? Page 23 

•APR-1980 10:21:03 DMA1 :tSYS0.SYSMAINT3lOPOST.MAR;46 (9) 



PSECT name 

ABS . 
SABS* 
DATA 
CODE 



Allocation 

0000000(T~( 
FFFFFFFC ( 
0C000011 ( 
000003C2 ( 



+ -. ,— .*•- * *mmmmm mm m + 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 I 0.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

17.) 02 ( 2.) NOPIC USR 

962.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR N0EXE 


NORD 


CON 


ABS 


LCL 


NOSHR EXE 


RD 


CON 


REL 


LCL 


SHR N0EXE 


RD 


CON 


REL 


LCL 


SHR EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC LONG 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.0 Crosi reference 

IOPOST 

Cross reference 



*** IOPOST I/O completion posting 



H 1 
27-JUL-1984 



SYMBOL 



SER 

SMODULE 

AACPERR 

ACB$B_RMOD 

ACB$LJ(AST 

ACB$V QUOTA 

ACCVID 

BUFIO 

BUFPOST 

BUG 'CHECK 

CCB$LJ)IRP 

CC8SLJJCB 

CCBSW.IOC 

CTLSCr CCBBASE 

CXB$LjlNK 

CXB$U"LENGTH 

DEVSV..SQD 

DiRIO 

DIRPOST 

OS ERRSUP 

EXE$DEANONPAGED 

EXESINSIOQ 

IOCSCVTLOGPHY 

IOCSDIRPOST1 

IQCSGL.PSBL 

IOCSGL PSFL 

IOCSIOPOST 

IOCSMAPVBLK 

IOCSQNXTSEG 

IOC$QNXTSEG1 

IOCSQTOACP 

IOCSWAKACP 

IOKOST 

IOPOCT *CAST 

IPLSjOPGST 

IPL$.SYNCH 

IRPSB.EFN 

IRPSB..RMOD 

IRP$LJ>IAGBUF 

IRP$L EXTEND 

iRp$Oose 

IRP$LJOSH 

IRP$l.IOST2 
IRP$L„PID 
IRPSl.SEGVBN 
IRPSLlSVAPTE 

IRPSLJJCB 



VALUE 

oooqooob" 

00000018 

=00000006 

0000037C-R 

00000096-R 

000001E8-R 

00000000-XR 

O0QO0OOC 

mm 

=oooooooc 

OO0O0OOQ-XR 

0QQQQQ4E-R 

00Q0028E-R 

00000000-XR 

00000000-XR 




»** 



OCR 
f-R 
hXR 
l-XR 
I4-R 
I0-XR 
H4C-R 
H58-R 
HA5-R 
000001 B6-R 
I0D-R 




0000001 C 



! Symbol Cross Reference ! 



DEFINITION 



21 
11 
115. 



.1 



188 
831.4 



600.3 

600.18 

632.5 

639.3 

156.1 

287 



(3) 
(2) 
(2) 



831.77 (8) 
260 (3) 
701.13 (6) 



(3) 
(7) 



831.29 (7) 



153 (3) 



(5) 
(5) 
(5) 
(5) 
(3) 
(3) 



#-216.1 
216.1 



#-288 
#-275 
#-831 
#-701 
#-175 
275 
639 
#-831 
#-831 
#-831 

§31 

#-701 
#-701 
#-301 



.31 
.6! 



.13 
.18 

:? 

.15 
♦ 60 
.53 

.22 



278 

216.1 
*~277 
#-831.4i 



(3) 

(3) 

(3) 
(3) 
(7) 
(6) 
(3) 
(3) 
(5) 
(7) 
(?) 
(7) 
(?) 
(6) 
(6) 
(4) 

(3) 
(3) 
(3) 

- - * (7) 
600.32 (5) 

600,31 (5) 

600.41 (5) 
156.1 (3) 

600.20 (5) 
#-301.31 (4) 

#-301.55 (4) 
#-831.23 (?) 
#-167 (3) 

#-600.43 (5) 
#-659.4 (5) 
#-285 (3) 

701.46 (6) 
#-301 .37 (4) 

102& (9) 
#-831.30 (7) 

#-600.40 (5) 
#-169 (3) 
#-301.18 (4) 
#-177 (3) 
#-701.15 '6) 
#-301.21 (4) 



27-JUL-1984 
1-APR-1980 




REFERENCES.. 



#-278 (3) 
#-701.70 (6) 



639.5 (5) 

#-831.20 (7) 

#-831.21 (?) 

#-701.65 (6) 

#-701.55 (6) 



#-701.67 (6) 
#-831.52 (?) 



#-290 




(3) 



1.32 (?) 
1.53 (4) 
1.47 (?) 



#-194 (3) 
#-600,39 (5) 




#-701.64 (6) 
#-301.30 <4) 



9 Frame HI Sequence 1655 
6:45 VAX-11 Macro V03-0? Page 24 
1:03 D«A1:CSVS0,SYSMAINT3lOPOST.HAR;46 (9) 



#-831,71 (8) 



#-701.56 (6) #-701.58 (6) 



#-701.72 (6) #-831.13 (?) 



#-301.32 (4) 



831,36 (?) 
#-831.12 (?) 



#-301,15 (4) 
#-831.34 (?) 



•301.28 (4) 
701.71 (6) 
#-632,10 (5) 



#« 
#< 



831.69 (8) 
#-831,7 (?) 



#-i01.19 (4) 
#-831.77 (8) 



#-301.53 (4) 



ZZ-ENSAA-7.0 

IOP0ST 

Cross reference 



Cross reference 



IRPSL. 

irp$m: 

IRP$M 

irp$m; 

lRPSVl 

IRPSV. 

1RPSV 

IRP*V„ 

1RPSV 

IRPSV" 

IRPSV; 

IRPSV 

IRPSVl 

IRP$V. 

IRP$V_ 

IRPSW. 

IRPIW 



WIND 

;pagio 

SWAP 10 

VIRTUAL 

BUFIO 

CHAINED 

COMPLX 

DIAG3UF 

EXTEND 

!FILACP 

FUNC 

PAG 10 

SWAPIO 

TERMIL 

VIRTUAL 

ABCNT 

BCNT 



1RP$W„B0FF 
IRP$W~CHAN 
IRPSWJDBCNT 
IRP$W_SIZE 
IRPSW STS 



irpesl.bc^ti 

irp'-$lj3cnt2 

irpesl'extend 

irpesl^svaptei 

irpe$l_svapte2 

irpe$v"extend 

irpesw^boffi 

irpe$w„b0ff2 

irpe$w sts 

mmgJunCock 

MOVBUF 

NOTACP 

NOTFCPUCB 

PAGIO OR SWAPIO 

■>C8$W BIuCNT 

PCB$W DIOCNT 

PR$jPL 

PR$ SIRR 

PRll IOCOM 

PRI$"TICOM 

PRI$ TOCOM 

PRITflL 

QNXTSEG 

SCHSGL PCBVEC 

SCHlPOlTEF 

SCKiQAST 

SS$„ACCVIO 

SS$ ILLBLKNUM 

UCBlL.DEVCHAR 

UCB$L_MAXBLQCK 

UNLK 



*** IOPOST I/O completion posting 



I 1 
27-JUL-1984 




*oooi 

:a 

=oooooooc 

=00000001 
=00000002 
=00000006 
=00000009 
=00000004 
0000003C 
00000032 



mm 

00000008 
0000002A 



00000034 
00000040 
0000004C 




131.62 (8) 

'63 (3) 

.39.12 (5) 

>16 (3) 



117 (2) 
301.2? (4) 



000 



1060 (9) 



#-600,4 



,.m ill 

#-181 (!) 

#-301.52 (4) 

#-174 (3) 

#-701.18 (6) 

#-70U7 <6) 

#-831.5 (?) 

#-200 (3) 

#-261 (3) 

#-27*> (3) 

179 (3) 

180 (3) 
#-280 (3) 
#-192 (3) 
#-301.16 <4) 
#-190 (3) 
#-600.5 (5; 
#•191 (3) 
#-831, 14 (7) 
#-194 (3) 
#-831.8 (?) 

174 (3) 

261 (3) 

#-301.52 (4) 

831,5 (?) 

#-1039 (9) 

#-1045 (9) 

1028 <9) 

#-1036 (9) 

M042 (9) 

#-1048 (9) 

#-1038 (9) 

#-1044 (9) 

1048 (9) 

1061J (9) 



#-701. §8 (6) 




#-639.4 
#-600.43 (5) 

118 (2) 
121 (!) 

119 (2) 
#-284 (3) 



#-172,1 
#-2 




(3) 
.1 (3) 

j? (5) 

0.39 (5) 

0.29 (5) 
40 (9) 



27-JUL-19J 
1-APR-191 



Ffchi 
14 15:, 
10 10:, 



» 9 Frame 11 Sequence 1656 

!6:45 VAX-11 Macro V03-01 Page 25 

(1:03 DMA1:CSYSO.SYSMAINT3IOPOST.MAR;46 (9) 



#-632.7 (5) 
#-279 (3) 
#-831.35 (?) 



#-301.19 (4) 
#-301.24 (4) 
#-632.6 (5) 



#-181 (3) 
276 (3) 
701.17 (6) 



#-1035 (9) 
#-831.50 (?) 



831.50 (?) 

198.1 (3) 

#-831.10 (?) 



#-262 (3) 
#-639.6 (5) 

120 (2) 



831.38 (?) 



#-1046 (9) 



#-301.23 (4) 
#-600.21 (5) 
#-701.16 (6) 



#-600.24 (5) 



#-301.23 (4) #-301.36 (4) #-301.54 (4) 



192 
79 



5 



(3) 
(3) 



01.18 (6) 



#-831.51 (?) 



200 (3) 
831.35 (7) 



#-301.51 (4) #-600.19 (5) 



J 1 

ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 Mche 9 Framo Jl Seguence 1657 
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Cross reference 1-APR-1980 10:21:03 DMA1 :CSYS0.SYSMAINT]JOPOST.MAR;46 (9) 



UNLOCK 0000006A-R 197 (3; #-192 (3) #-301.38 (4) 

UNLOCK MORE 000Q0381-R 1030 (9) #-201 (3) 

VA$M_e7lE =000001FF #-701.24*6) #-701.44(6) #-831.67(8) 



UNIOCK_MORE 00000381-R 1030 (9) #-201 (3) 

A : -701.24 '6) #-701.44 (6) . 

VA$S_BYTE =00000009 #-1061 (9) #-198 (3) #-301.17 (4) #-301.26 (4) 



#-600.26 (5) 

VIRTUAL 0Q000QE3-R 301.14 (4) #-164 (3) 

WCBSB.ACCESS 00000006 632.8 (5) 

WCBSV_NOTFCP -00000002 #-632,8 (5) 



~±J. ._"i* (!• 



ZZ-ENSAA-7,0 

IOPOST 

Cross reference 



Cross reference 



MACRL 



SACBDEF 

SAQBDEF 

SCADEF 

SCCBOEF 

SCX8DEF 

*DEFINI 



S1PLDEF 
$1RPDEF 
SIRPEDEF 

SJ!BDEf 

SPCBDEF 

$PFNDEF 

SPHCDEF 

SPRDEF 

SPR1DEF 

SPTEDEF 

SPUSHADR 

$RSNDEF 

IUCBDEF 

SVADEF 

SVCBDEF 

SWCBDEf 

SWQHOEF 

ASSUMF 

BUG CHECK 

OSBTNT 

EN8INT 

ERRSUP S 

JFNOWRT 

MODNAM 

SOFTINT 



SIZE 

2 "~ 

2 

1 

1 

2 

1 



4 

2 

6 

4 

1 

3 

1 

1 

10 

1 

6 

3 

1 

1 

1 

1 

1 

1 
1 

i 

1 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass I 

Symbol table output 

Psect synopsis output 

Cross-reference output 



*** IOPUST I/O 



DEFINITION 



91 
92 
93 
94 
95 
91 



96 
97 
98 
99 
100 
101 
^2 
\ >3 
104 
105 
216.1 
106 
107 



(2) 
(2) 
(2) 
(2) 
(2) 



ft 



110 

111 

179 

639,5 

639.4 

639.6 

?16.1 

X01.2 

115.2 

600,43 



8 (i 



27-JUL-19I 

completion posting i 



I4 F iche 9 Frame K1 Seguence 1658 

7-JUL-1984 15:26:45 VAX-11 Macro V03-01 Page 27 

1-APR-1980 10:21:03 DMA1 :CSYS0.SYSMAJNT3lOPOST.MAR;46 (9) 



i Macros Cross Reference ! 



REFERENCES 



101 
106 
111 
95 



18 

91 
96 



(2> 


1 Q3 


(2) 


104 


(2) 


(2) 


108 




109 


(2) 


(h 


92 


93 


(2) 


<2> 


97 


(2) 


98 


(2) 



179 (3) 
639,5 (5) 



701.48 (6) 



180 (3) 



831.33 (7) 



831.71 (8) 



J Performance indicators ! 



Page faults CPU Time 



35 
148 
720 

,7? 

48 

7 

53 



00 



I 



0< 




Elapsed Time 



L 1 
ZZ-ENSAA-7,0 Cross reference 27-JUL-1984 Fiche 9 Frame Li Sequence 1659 

10P0ST *** IOPOST I/O completion posting 27-JUL-1984 1 5:26:45 VAX- 1 1 Macro V03-0? Page 28 

VAX-11 Macro Run Statistics 1-APR-1980 10:21:03 DMA1 :CSVSO,SYSMAINTJ10POST.MAR;A6 (9) 

Assembler run totals 1192 00:00:28*31 00:00:48*39 

The working set limiv was 1000 pages. 

80436 bytes (158 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 988 non-local and 44 local symbols. 

678 source lines were read in Pass 1* producing object records in Pass 2. 

124 pages of virtual memory were used to define 39 macros, 

+— ™™™«™.„™_«„ + 
! Macro library statistics ! 

Macro library name Macros defined 

DMA1:CSYS0.SYSMAINT]D3.MLB:218 * 3 

DMA1:[SYS0.SYSMAINTDD1AG.MLB:953 10 

SYS$SYSR00T:[SYSLIB3HB.MLB;1 14 

SYS$SYSR0QT:CSYSLIBl$fARLET.MLB;2 8 

TOTALS (all libraries) 35 

1482 GETS were required to define 35 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LJST=CDS.LJS]/CROSS/ENABLE= (DEBUG, TRACE) I0P0ST/UPDA-< IOPOST. UPD, J0P0ST. ENH)+SYS$L 1BRARY :LIB/LIBRARY+DMA1 jCSYSO.SYSMA 



ZZ-ENSAA-7.0 *** 

IOSNPG 

fable of contents 



105 



NPG services for QIO 

*** HSNPG services for 010 



M 1 
27-JUL-1984 Fichi 

27-JUL-1984 15?; 



■ 9 frame Ml 

7;M VAX-11 Macro 



Sequence 
V03-0J 



1660 
Page 







CANCEL 1/0 ON CHANNEL 

FILL DIAGNOSTIC BUFFER 

RELEASE 1/0 CHANNEL 

REQUEST 1/0 CHANNEL 

I/O REQUEST COMPLETION PROCESSING 

INITIATE I/O FUNCTION ON DEVICE 

RELEASE BUFFERED DATAPATH 

REQUEST BUk-ERED DATAPATH 

RELEASE UNIBUS MAP REGISTERS 

REQUEST UNIBUS MAP REGISTERS 

ALTER UBA MAP REGISTER BITMAP 

SEARCH MAP REGISTER BITMAP AND ALLOCATE MAP REGISTERS 

RETURN TO CALLER 

WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 

WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 

ALLOCATE SYSTEM PAGE TABLE 



ZZ-ENSAA-7.0 

10SNPG 
06-03 

02 
02 
-2 



*** IOSNl services for 010 

*** IOSNPG services for QJO 



N 1 

27-JUL-1984 



Fiche ? Frame N1 Seguence 1661 
27-JUL-1984 15i27:34 VAX-11 Macro V03-01 Page 1 



02 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 



0000 
0000 
0000 
0000 
0000 
0000 

0O00 

0000 

m 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

m 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

» 

0000 



.1 



6 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 

ie 

19 
20 
21 
22 
23 
24 
25 
26 
27 



30 
.1 



.4 
.5 
.6 
.7 
.8 
.9 
.10 
.11 
31 
32 

h 

35 
36 
37 
38 
39 
40 
41 

4$ 
44 

45 
46 



Frame N1 
VAX-11 
1-APA-1960 10:21 s16 DMA1 :CSYS0.SYSMAINTJIOSNPG.MAR;37 (1) 

*** IOSNPG sorvices for 010 



.TJTLE I0SNP6 
.JDENT /06-03/ 

COPYRIGHT (c) 1977, 19Id, 1979, 1980 

BY DIGITAL EOiMPMENT CORPORATION, MAYNARD, MASS. 



* 

* 

* 

* 
* 
* 
* 

* 

* 

D. N, CUTLER 13-JUN-76 

NONPAGED I/O RELATED SUBROUTINES 
MODIFICATION HISTORY: 

CHANGE PARAMETERS TO WAIT FOR INTERRUPTS. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THc ABOVE COPYRIGHT NOTICc. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAV NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWArtE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



01 
02 
03 

0206 

0205 
0204 

0203 



Dave Butenhof 13-may-1980, Version 5.4 

Modify VMS V2.Q sources for Supe. .isor environment 

Roger Riggs, 23-juiy-1980, Version 5.5 

Changed word offsets to Longword 

Dave Butenhof 24~nov~1980, Version 6.2 

Restore entry point IOCIALLOSPT to satisfy device drivers 

using it. It remains essentially "dummied out," since 

Supervisor I/O drivers do not require system space 

KDM0086 KATHLEEN D, MORSE 07-JAN-1980 

CHANGE UCB$W_DEVSTS TO UCB$W,STS, AND EMBSW DV DEVSTS TO 

EMB$WJ>V_$T$, 



RIr'0033 R. HUSTVEDT 
CHANGE PCBSW..BYTLM TC JIBSL.BYTLM. 



16-0CT-1W9 



NPK0002 N. KR0NEN8ERG 21-SEP-1979 
MODIFIED IOCSRELDATAP TO ZERO THE DATAPATH 
NUMBER IN THE CALLERS CR8. 

NPKCOMET N. KRONENBERG 11-FEB-1979 
MODIFIED lOCSREQDATAP AND IOCSRELDATAP TO HANDLE 
6 8JT DATAPATH NUMBERS, 



0202 LMK0001 



LEN KAWELL 



07-FE8-1979 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



*** IOSNPG services for QIO 

*** IOSNPG services for QJO 



0000 
0000 



47 ; 

48 ; 



B 2 
27-JUL-1984 Fuhe 9 Frame 82 Sequence 1662 

27-JUL-1984 15:27:34 VAX-11 Macro V03-01 Page 2 
1-APR-1980 10:21:16 DMA1 :[$YS0.SYS«AINT]IOSNPG.MAR;37 (1) 

ADDED I0CSALL0SPT ROUTINE THAT ALLOCATES SYSTEM 
PAGE TABLE ENTRIES* 



ZZ-ENSAA-7.Q 

iOSNPG 

06-03 



*** 10SNPG 



services for QIO 




*** 10SNPG 


services 


0000 


50 ; 


0000 


51 ; 


0000 


52 ; M 


0000 


53 ; 


0000 


54 


0000 


55 


0000 


56 


0000 


57 


0000 


58 


0000 


59 


0000 


60 


0000 


61 


9500 

0000 


62 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 



C 2 
27-JUL-1984 
for Q10 27-JUL-19I 

1-APR-19I 



MACRO LIBRARY CALLS 



$ADPDEF 

SCADEF 

SCR8DEF 

$DD8DEF 

SDDTDEF 

SEM8DEF 

$JD8DEF 

SIPLOEF 

SIRPDEF 

SJJBDEF 

$L0GDEF 

$PC8DEF 

$pnt>tr 

SUC8DEF 
SVECDEF 



Fiche 9 Frame C2 Sequence 1663 

14 15:2?:3A VAX-11 Macro V03-0T Page 3 
10 10:21-16 OMA1»CSYSO.SYS«AINT3IOSNPG.MAR;37 (1) 



ASSEMBLY PARAMETERS 



DEFINE ADP OFFSETS 

DEFINE CONDITIONAL 

DEFINE CRB OFFSETS 

DEFINE DDB OFFSETS 

DEFINE DDT OFFSETS 

DEFINE EMB OFFSETS 

DEFINE IDB OFFSETS 

DEFINE INTERRUPT PRIORITY LEVELS 

DEFINE IRP OFFSETS 

DEFINE JIB OFFSETS 

DEFINE LOGICAL NAME BLOCK OFFSETS 

DEFINE PCB OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE UCB OFFSETS 

DEFINE CRB VECTOR OFFSETS 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



CANCEL I/O ON CHANNEL 

*** IOSNPG services for QIO 
CANCEL I/O ON CHANNEL 
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01 

-1 



11 58 A5 08 

60 A4 OC A3 

OA 

28 A3 52 

04 

58 A5 08 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00000000 
0000 



E1 
D1 
12 
B1 
12 
A8 
05 



0000 
0005 
000A 
000C 
0010 
0012 
0016 



71 
72 
73 
74 
75 

76 
77 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
.1 
96 
97 
98 
99 
100 
101 
102 
103 



.SBTTL CANCEL I/O ON CHANNEL 

IOCSCANCELIO - CANCEL I/O ON CHANNEL 

THIS ROUTINE IS A DEVICE INDEPENDENT CANCEL I/O ROUTINE THAT CONDITIONALLY 
MARKS THE UCB SUCH THAT THE CURRENT I/O REQUEST WILL BE CANCELED IF CONDITIONS 
WARRANT SUCH A ACTION, 



INPUTS: 



R2 = NEGAUVE OF THE CHANNEL NUMBER, 
R3 = CURRENT 10 PACKET. 
R4 = PCS ADDRESS. 
R5 = UCB ADDRESS. 



OUTPUTS: 



IF THE DEVICE IS BUSY, THE REQUEST IS FOR THE CURRENT PROCESS, AND 
THE I/O WAS ISSUED FROM THE DESIGNATED CHANNEL, THEN THE CANCEL I/O 
BIT IS SET IN THE CORRESPONDING UCB. 

R2, R3, R4, AND R5 ARE PRESERVED ACROSS CALL. 



•PSECT 
IOCsCANCELIO:: 

BBC 
CMPL 
8NEQ 
CMPW 
BNEQ 
BISW 
10$: RS8 



SEP, SHR, EXE, WRT, LONG ; **** SUPERVISOR **** 

; CANCEL I/O ON CHANNEL 
#UCB$V BSY,UC8$W STS(R5) JOS ;IF CLR, DEVICE NOT BUSY 
IRP$L - PlD(R3),PCS$L_PID(R4) ;PROCESS ID MATCH? 
10$ ;IF NEQ NO 

R2,IRP$W. - CHAN(R3) ; CHANNEL NUMBER MATCH 
10$ :IF NEQ NO 

#UCB$M_CANCEL,UCB$W_STS<R5> ;SET CANCEL PENDING 



ZZ-ENSAA-7.G 

10SNPG 

06-03 



FJLL DIAGNOSTIC 



BUFFER 

*** IOSNPG services for 

FILL DIAGNOSTIC BUFFER 



27 



01 
01 
01 
-3 



53 4C A5 


00 


2A A3 0? 


E1 


50 44 B3 


DO 


50 08 


CO 


00000000 'EF 


70 


80 




80 70 A5 


3C 


52 24 A5 


00 


52 OC A2 


00 


51 10 A2 


00 


03 51 10 


EO 


51 52 


CO 


61 


16 




05 



0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
C017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0018 
0020 
0024 
0027 
002D 
002E 
0032 
0036 
003A 
003E 
0042 
0045 
0047 



175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 

188 

189 
190 
191 
192 
193 
194 
195 

196 
197 

198 
199 
200 

201 

202 

203 

.1 

.2 

.3 

207 

208 
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.S8TTL FILL DIAGNOSTIC BUFFER 



I0CSDIA68UFILL - FILL DIAGNOSTIC BUFFER 

THIS ROUTINE IS CALLED AT THE END OF AN I/O OPERATION, BUT BEFORE RELEASING 
THE I/O CHANNEL, TO FILL THE FINAL DEVICE PARAMETERS INTO AN INTERNAL DIAG- 
NOSTIC BUFFER IF ONE IS SPECIFIED. 



INPUTS: 



R4 = ADDRESS OF DEVICE CSR REGISTER, 
R5 - DEVICE UNIT UCB ADDRESS. 



OUTPUTS: 



If A DIAGNOSTIC BUFFER WAS SPECIFIED IN THE ORIGINAL REQUEST, THEN 
THE COMPLETION TIME, FINAL ERROR COUNTERS, AND DEVICE REGISTERS ARE 
FILLED INTO THE DIAGNOSTIC BUFFER. 



IOCSDIAGBUFILL: 
MOVL 
BBC 
MOVL 
ADDL 
MOVQ 

MOVZWL 

MOVL 

MOVL 

MOVL 

BBS 

ADDL 

5$: JSB 

10$: RSB 



;FILL 'DIAGNOSTIC BUFFER 
UC8$L IRP(R5),R3 ;GET .ADDRESS OF I/O PACKET 
#IRP$Vj)IAG8UF,IRP$W STSCR3) JOS ;IF CLR, NO DIAGNOSTIC BUFFER 



aiRP$LJ>IAGBUF(R3),R0 
#8,R0 
EXE$G<LSYSTIME,(RO) + 

UCB$B..ERTCNT(R5),(R0> + 

UCB$LJ)D8(R5), R2 

DDB$LJ)DT(R2),R2 

0DT$L.REGDUMP(R2),R1 

#16,RT,5$ 

R2.R1 

(R1) 



GET ADDRESS OF INTERNAL 
POINT PAST START TIME 
INSERT COMPLETION TIME 



BUFFER DATA AREA 



INSERT FINAL ERROR COUNTERS 

GET ADDRESS OF DDB 

GET ADDRESS OF DDT 

FETCH ADDRESS OF DUMP ROUTINE 

++♦ BRANCH If SUPERVISOR ABSOLUTE 

♦++ INCLUDE BASE ADDRESS 

CALL DEVICE SPECIFIC REGISTER DUMP ROUTINE 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



RELEASE I/O CHANNEL 

*** IOSNPG services for QIO 
RELEASE I/O CHANNEL 
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6 
(1) 



50 20 A5 

50 10 AO 

10 

50 20 A5 

50 10 AO 

02 

04 

50 20 A5 
25 OE AO 00 

51 1C AO 



04 A1 



52 



55 



53 10 
54 

04 A1 
OC 



55 
1B 
00 BO 
16 
38 

a! 

61 
55 

§5 
38 



04 A1 
OE AO 01 



DO 
DO 
11 

DO 
DO 

Is 

E1 
DO 
01 
12 
OF 
10 
BB 



00 
DO 
16 
BA 
05 
04 
8A 
05 



48 

0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
C048 
0048 
0048 
0048 
0048 
0048 
00*8 
0048 
0048 
0048 
0048 
0048 
0048 
0048 

0050 
0052 
0052 
0056 
005A 
i5C 
I5E 
.J62 

006B 
006F 
0071 
00?5 
0077 

B 8P 



)07C 
0080 
0083 

' '17 



A 
C 
D 

094 
095 



210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 

229 
230 
231 

234 
235 
236 
237 



•SBTTL RELEASE I/O CHANNEL 

IOCSRELCHAN - RELEASE ALL I/O CHANNELS 
IOCSRELSCHAN - RELEASE SECONDARY I/O CHANNEL 

THIS ROUTINE IS CALLED AT THE END OF AN I/O OPERATION TO RELEASE ALL 
CHANNELS THE I/O WAS BEING PERFORMED ON. 

INPUTS: 

R5 = UCB ADDRESS OF DEVICE UNIT. 



OUTPUTS: 



THE CHANNELS ARE RELEASED AND AN ATTEMPT IS MADE TO REMOVE THE NEXT 
WAITING DRIVER PROCESS FROM EACH CHANNEL QUEUE. IF A DRIVER PROCESS 
IS WAITING, THEN THE CHANNEL IS ASSIGNED TO THAT DRIVER PROCESS AND 
IT IS CALLED VIA A JSB TO ITS CHANNEL WAIT RETURN ADDRESS. WHEN THE 
CALLED DRIVER PROCESS RETURNS. A RETURN IS MADE TO THE DRIVER PROCESS 
THAT RELEASED THE CHANNEL. IF THERE IS NO DRIVER PROCESS WAITING FOR 
THE CHANNEL, THEN THE CHANNEL STATUS IS SET TO IDLE. 

R3 AND R4 APE PRESERVED ACROSS CALL. 



.ENA8L 
IOCSRELSCHAN:: 
MOVL 
MOVL 
BRB 
IQC$RELCHAN:: 
MOVL 
MOVL 
BEQL 
BSB8 
10$: MOVL 
20$: BBC 
MOVL 
CMPL 
PNEQ 
REMQUE 
BVS 
PUSHR 
MOVL 
MOVL 
MOVL 
MOVL 
JSB 
POPR 
30$: RSB 
40$: CLRL 
BJC8 
RSB 
.DSABL 



LSB 

UCB$L„CRB(R5),R0 
CRB$LJ.INK(R0),R0 

20$ " 

UCB$L,CR8(R5).R0 

CRB$LlLlNK<R0),R0 

10$ 

20$ 

UCB$L r ,CRB(R5),R0 f 

#CRB$? BS Y , CRB$B J1ASK ( R05 

CRB$L TNTD+VEC$LlIDB(R0) , 

R5,IDB$LJ)WNER<RT> 

30i 

aCRB$LJJQFL(R0),R2 

40$ 

# A M<R3,R4,R5> 

R2,R5 

UCB$LJR3(R5),R3 

IDB$L2CSR(RD X R4 

R5.I0BSL OWNER(R1) 

auCB$L FPCCR5) 

# A M<R3TR4,R5> 



RELEASE SECONDARY I/O CHANNEL 
GET ADDRESS OF PRIMARY CRB 
GET ADDRESS OF SECONARY CRB 

RELEASE I/O CHANNEL 

GET ADDRESS OF PRIMARY CRB 

GET ADDRESS OF SECONDARY CRB 

IF EQL NONE 

RELEASE SECONDARY CHANNEL 

GET ADDRESS OF PRIMARY CRB 

,30$ ;IF CLR, THEN CHANNEL NOT BUSY 

R1 ;GET ADDRESS OF IDB 

DRIVER PROCESS OWN CHANNEL? 

IF NEQ NO 

GET ADDRESS OF NEXT DRIVER FORK BLOCK 

IF VS NO DRIVER PROCESS WAITING 

SAVE CONTEXT OF CURRENT DRIVER PROCESS 

COPY ADDRESS OF DRIVER PROCESS FORK BLOCK 

LOAD WAITING DRIVER PROCESS CONTEXT 

SET ASSIGNED CHANNEL CSR ADDRESS 

SET ADDRESS OF OWNER PROCESS UCB 

CALL DRIVER AT CHANNEL WAIT RETURN ADDRESS 

RESTORE PREVIOUS DRIVER PROCESS CONTEXT 



IDBSL OWNER(Rl) -CLEAR OWNER UNIT UCB ADDRESS 
#CRB$MSY,CRB$B_MASK(RQ) ;CLEAR CHANNEL BUSY 



LSB 



ZZ-ENSAA-7,0 

IOSNPG 

06-03 



REQUEST I/O CHANNEL 

*** IOSNPG services for QIO 
REQUEST I/O CHANNEL 
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50 
50 



50 
50 



20 A5 

10 AO 

OE 

20 A5 

10 AO 

OD 



50 20 A5 
52 04 AO 

51 1C AO 



08 OE AO 

54 

04 A1 

10 A5 



DO 
DO 
11 

DO 
DO 
11 



50 20 A5 DO 

52 50 DO 

08 11 



DO 

B 

00 E2 

61 DO 

55 00 

05 

53 DO 

OC A5 8EO0 

62 65 OE 

04 A1 55 D1 

3E 13 

05 



0095 
0095 
0095 
0095 
0095 
0095 
0095 
0095 
0095 
0095 

SIS 

0095 

0095 

C095 

0095- 

0095 

0095 

U095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0095 

0099 

009D 

009F 

009F 

00A3 

Q0A7 

00A9 

00A9 

QQ A <> 
OOBO 

00B2 

00B2 

QQB6 

008A 

OOBE 

)0C6 
IOCA 
ICB 
ICF 
>D3 
ID6 
IDA 

JOC 

(ODD 



265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 

283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
198 
!99 

;oo 
;oi 



.SBTTL REQUEST I/O CHANNEL 



IOCSREQPCHANH 
IOC$REQSCHANH 
IOC$REQPC u ANL 
IOC$REQSCHANL 



REQUEST PRIMARY I/O CHANNEL HIGH PRIORITY 
REQUEST SECONDARY I/O CHANNEL HIGH PRIORITY 
REQUEST PRIMARY I/O CHANNEL LOW PRIORITY 
REQUEST SECONDARY I/O CHANNEL LOW PRIORITY 



THESE ROUTINES ARE CALLED TO REQUEST AN I/O CHANNEL TO PERFORM AN I/O 
OPERATION ON. 



INPUTS: 



R5 = UCB ADDRESS OF DEVICE UNIT. 

04(SP) s RETURN ADDRESS OF CALLER'S CALLER 



OUTPUTS: 



IF THE SPECIFIED I/O CHANNEL IS IDLE, THEN IT IS IMMEDIATELY 
ASSIGNED TO THE CURRENT DRIVER PROCESS. ELSE THE DRIVER PROCESS 
CONTEXT IS SAVED IN ITS FORK BLOCK, THE FORK BLOCK IS INSERTED 
IN THE CHANNEL WAIT QUEUE, AND A RETURN TO THE DRIVER PROCESS 1 
CALLER IS EXECUTED. 

WHEN THE CHANNEL IS ASSIGNED, THE CSR ADDRESS OF THE ASSIGNED 
CONTROLLER IS RETURNED TO THE CALLER IN REGISTER R4. 

R3 IS PRESERVED ACROSS CALL. 



.ENA8L 
IOCSREQSCHANH:; 

MOVL 

MOVL 

BRB 
IOCSREQSCHANL:: 

MOVL 

MOVL 

BRB 
IOCSREQPCHANH:: 

MOVL 
10$: MOVL 

BRB 
IOCSREQPCHANL:: 

MOVL 



LSB 

UCBSL CRB(R5),R0 

CRB$LlLINK(R0),R0 

10$ 

UCB$L„CRB(R5),R0 

CR8$LlLlNK(R0),RQ 

20* 

UfBSL CRB<R5),R0 



i 



$: 

$: 



40$: 



MO*<L 

MOVL 

BBSS 

MOVL 

MOVL 

RSB 

MOVL 

POPL 

INSQUE 

CMPL 

BEQL 

RSB 

.DSA8L 



UCB$L.CR8CR5) 

CRB 

CRB 

*CR 



SLJJQBLCROJjtt 
$L"lNTD+VEC$LJDB(RO), 

-win ,3sy x crb$b:mask(roJ 

1D8SL tSR(R1),R4 
r1,IDB$L_OWNER(R1> 




CB$L FR3CR5) 



. - - CR5) 

ucb$l:fqflcr5),crb$ljjqfl 
r5,idb$lj)wner(r1) ; 

RELEASE ; 

LSB 



REQUEST SECONDARY I/O CHANNEL HIGH PRIORITY 
GET ADDRESS OF PRIMARY CRB 
GET ADDRESS OF SECONDARY CRB 

REQUEST SECONDARY I/O CHANNEL LOW PRIORITY 
GET ADDRESS OF PRIMARY CRB 
GET ADDRESS OF SECONDARY CRB 

REQUEST PRIMARY I/O CHANNEL HIGH PRIORITY 

GET ADDRESS OF PRIMARY CRB 

SET ADDDRESS OF WAIT QUEUE LISTHEAD 

REQUEST PRIMARY I/O CHANNEL LOW PRIORITY 

GET ADDRESS OF PRIMARY CRB 

GET ADDRESS OF LAST ENTRY IN QUEUE 

Rl ;GET ADDRESS OF IDB 

,40$ {IF SET, THEN CHANNEL BUSY 

SET ASSIGNED CHANNEL CSR ADDRESS 

SET OWNER UCB ADDRESS 

SAVE R3 IN FORK BLOCK 

SAVE CHANNEL WAIT RETURN ADDRESS 

(R2) /INSERT DRIVER PROCESS IN CHANNEL WAIT 

CURRENT DRIVER PROCESS OWNER? 

IF EQL YES - RELEASE CHANNELS 



2Z-ENSAA-7.0 

iQSNPG 

06-03 



I/O REQUEST CGMPLFUON PROCESSING 

*** IOSNPG services for QIO 

I/O REQUEST COMPLETION PROCESSING 
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A? 
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A5 

A5 

A5 

50 
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58 
70 



0100 
58 



09 
8F 
A5 



OE 

12 

E5 
00 
BO 

B 

OF 

K 

AA 



FF35 31 



OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 

m 

E8 



.SBTTL I/O REQUEST COMPLETION PROCESSING 
> 

IOCSREQCOM - I/O REQUEST COMPLETE 

THIS ROUTINE IS ENTERED WHEN AN I/O OPERATION IS COMPLETED ON A 
DEVICE UNIT. THE FINAL I/O STATUS IS STORED IN THE ASSOCIATED I/O 
PACKET AND THE PACKET IS INSERTED IN THE I/O FINISH QUEUE FOR 
I/O POST PROCESSING. DEVKE UNIT BUSY IS CLEARED AND AN ATTEMPT 
IS MADE TO START ANOTHER I/O REQUEST ON THE DEVICE UNIT, 



INPUTS: 



RO = FIRST LONGWORD OF I/O STATUS. 
R1 = SECOND LONGWORD OF I/O STATUS, 
R5 - UCB ADDRESS OF DEVICE UNIT. 



OUTPUTS: 



THE I/O PACKET IS INSERTED IN THE I/O POST PROCESSING QUEUE 
AND DEVICE UNIT BUSY IS CLEARED, A SOFTWARE INTERRUPT IS 
REQUESTED TO INITIATE I/O POST PROCESSING. 



IOCSREQCOM:: 
MOVL 
MOVQ 
INCL 



UCB$L.IRP(R5),R3 
RO,IRP$L MEDIA <R3) 
UC8$LJ)PCNT(R5> 



I/O DONE PROCESSING 
GET ADDRESS OF I/O PACKET 
STORE FINAL I/O STATUS 
INCREMENT OPERATIONS COMPLETED 



INSQUE <R3),aL A I0C$GL_PSBL ; INSERT PACKET IN POST PROCESS QUEUE 



10$: 



20$: 



8NEQ 

SOFTINT 

B8CC 

MOVL 

MOVW 

MOVW 

MOVQ 

BSBW 

REMQUE 

BVC 

BiCW 



10$ ;l? NEQ NOT FIRST ENTRY IN QUEUE 

#IPL$ IOPOST -INITIATE SOFTWARE INTERRUPT 

#UCB$V w ERLOGIP,yCB$W,.STS(R5>,20$ ;IF CLR, ERROR LOG NOT IN PROGRESS 
UC8fLjMB(R55,R2 ;G£T ADDRESS OF ERROR MESSAGE BUFFER 
UCB$w:STS(R5).EM&$W M ST$(R2> INSERT FINAL DEVICE STATUS 
UCB$B.iRTCNT(R5).EMH$B.DV ERTCNT(R2) ;INSERT FINAL ERROR COUNTERS 
R0,EMBIq DYJ0SBCR2) ;TNSERT FINAL I/O STATUS 
ERlIRELEJSERB ;RELEASE ERROR MESSAGE BUFFER 
aUCB$L I0QFL<R5),R3 ;REMOVE I/O PACKET FROM DEVICE UNIT QUEUE 
IOCllNTTIATE m ;\i VC INITIATE NEXT FUNCTION 
#UCB$M w BSY,UCB$W - STS(R5) ;CLEAR UNIT BUSY 



RELEASE: 



6RW 



10C$RELCHAN 



♦•RELEASE ALL CHANNELS 



Z2-ENSAA-7.0 

iOSNPG 
06-03 



INITIATE I/O FUNCTION ON DEVICE 

*** IOSNPG services for GIO 
INITIATE I/O FUNCTION ON DEVICE 
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9 
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4C A5 53 DO 



-5 
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OB 
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A5 
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01 
01 
01 
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58 
2A A3 
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00000000* EF 
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24 
OC 
51 
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51 



50 

50 
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61 
10 
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7D 
AA 

E1 
DO 
7D 

DO 
Di 

Di 
E 
Ci 
17 



011D 
011D 
011D 
011D 
011D 
011D 
011D 
011D 
011D 
011D 
01 ID 
011D 
011D 
011D 
C11D 
011D 
011D 
011D 
Q11D 
01 ID 
011D 



374 
375 
376 
377 
378 

380 
381 
382 

183 
14 

J5 

186 
187 

188 
589 

;90 

191 

►92 

I93 

!94 

395 

401 

402 

403 

404 

405 
406 



407 10$: 
408 

J 



412 20$; 



♦SBTTL INITIATE I/O FUNCTION ON DEVICE 

IOCSJNITJATE - INITIATE NEXT FUNCTION ON DEVICE 

THIS ROUTINE IS CALLED TO INITIATE THE NEXT FUNCTION ON A DEVICE BY CLEARING 
STATUS BITS, SETTING THE OPERATION START TIME IF A DIAGNOSTIC BUFFER IS 
SPECIFIED, AND CALLING THE DRIVER AT ITS START I/O ENTRY POINT/ 



INPUTS: 



R3 = ADDRESS OF I/O REQUEST PACKET. 
R5 = DEVICE UNIT UCB ADDRESS. 



OUTPUTS: 



CANCEL I/O, POWERFAIL, AND TIME OUT STATUS BITS ARE CLEARED, THE 
CURRENT SYSTEM TIME IS KILLED IN T THE INTERNAL DIAGNOSTIC BUFFER 
IF ONE IS SPECIFIED, AND THE DRIVER IS CALLED AT ITS START I/O ENTRY 
POINT. 



IOC$INITIATE:: 

MOVL R3,UC8$LJRP(R5) 



/INITIATE I/O FUNCTION 
;SAVE I/O PACKET ADDRESS 



MOVQ IRP$L SVAPTE(R3),UCB$L SVAPTECR5) ;COPY TRANSFER PARAMETERS 

BICW #UCB$n_CANCEL!UCB$M_TlA0UT,UCB$W_STS<R5> ;CLEAR CANCEL AND TIME OUT 

BBC #IRP$VJ)IAGBUF<IRP$W STS(R3),10$ ;IF CLR, NO DIAGNOSTIC BUFFER 

MOVL aiRP$LJ>IAGBUF(R3) f R0 ;GET ADDRESS OF DIAGNOSTIC BUFFER DATA AREA 

MOVQ EXE$GQ_SYSTIME,(RO) ; INSERT I/O OPERATION START TIME 

MOVL UCB$L - .DDB(R5),RQ ;GET ADDRESS OF DEVICE DATA BLOCK 

MOVL DDB$L_DDT(RO),RO ;GET ADDRESS OF DRIVER DISPATCH TABLE 

MOVL DDT$L START(R0),R1 .-FETCH ADDRESS OF START ENTRY POINT 

BBS #16,RT,20$ ;♦+♦ BRANCH IF SUPERVISOR ABSOLUTE 

ADDL R0-R1 ;+♦♦ CHANGE OFFSET TO ABSOLUTE 

JMP <R1) ; START I/O OPERATION 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



RELEASE BUFFERED DATAPATH 

*** I0SNP6 services for GJO 
RELEASE BUFFERED DATAPATH 
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27-JUL-19 
1-APR-19 
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10 
(1; 



50 20 A5 

51 28 AO 

52 11 AO 

29 

00 00 

05 

27 AO 

00 

52 52 05 



50 



55 



14 B1 
19 
38 

50 



51 20 A5 



00 



53 



5; 

05 
27 A1 
10 A5 
OC B5 

38 



FA 24 A1 52 



DO 
DO 
98 
19 
FO 



EF 

OF 
1D 
B 

h 



?D 
16 
BA 
05 
E3 

05 



m 
m 

0150 
0150 
0150 
0150 

m 

0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0154 
0158 
015C 
015E 
0161 
0162 
0164 
0164 
0169 
016D 
01 6F 
0171 
0174 
0178 
0178 
01 7C 
01 7E 
0182 

187 
188 
18D 

019F 



414 

415 
416 
417 
418 
419 
420 
421 

424 
4?5 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
43V 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 



•S8TTL RELEASC BUFFERED DATAPATH 

IOCSRELDATAP - RELEASE BUFFERED DATAPATH 

THIS ROUTINE IS CALLED AT THE END OF AN I/O OPERATION TO RELEASE A UNIBUS 
ADAPTER BUFFERED DATAPATH, 

INPUTS? 

R5 = UCB ADDRESS OF DEVICE UNIT. 

OUTPUTS: 

IF THE BUFFERED DATAPATH IS PERMANENTLY ASSIGNED TO THE ASSOCIATED 
I/O CHANNEL, THEN CONTROL IS IMMEDIATELY RETURNED TO THE CALLER. 
ELSE THE BUFFERED DATAPATH IS RELEASED AND AN ATTEMPT IS MADE TO 
REMOVE THE NEXT WAITING DRIVER PROCESS FROM THE DATAPATH WAIT QUEUE, 
IF A DRIVER PROCESS IS WAITING, THEN THE BUFFERED DATAPATH IS 
ASSIGNED TO THE ASSOCIATED I/O CHANNEL AND THE DRIVER IS CALLED 
VIA A JSB TO ITS BUFFERED DATAPATH WAIT RETURN ADDRESS. 



IOC$RELDATAP: 
MOVL 
MOVL 
CVTBL 
BLSS 
INSV 



EXT2V 

REMQUE 

BVS 

PUSHR 

MOVL 

MOVL 

INSV 



/RELEASE BUFFERED DATAPATH 
UC6$L„CRB(R5) t R0 ;GET ADDRESS OF CRB 

CRB$LJNTD+VEC$LJ\DP<R0>,R1 ;GET ADDRESS OF ADP 
CRBSLJNTD+VEC$B„DATAPATH(RO) t R2 ;GET DATAPATH DESIGNATOR 
10$ ;lf LSS PERMANENT ASSIGNMENT 

*0,#VEC$V DATAPATH,- ;ZERO DATAPATH NUMBER 
#VE CIS DATAPATH. - 
CRB$LjrNTD+VEC$BJ>ATAPATH(RO) 



#VEC$V„DATAPATH, 

#VEC$S3)ATAPATH,R2 f R2 

aADP$LlDPQFL<R1),R0 

20$ 

# A M<R3,R4,R5> 

R0,R5 

UC8$L CRB(R5).R1 

R2 X #VEC$VJ>ATAPATN,- 

#VEC$SJ)ATAPATH,~ 



; EXTRACT DATAPATH NUMBER 



10$: 
20$: 



MOVO 
JSB 
POPR 
RS8 



;GET ADDRESS OF NEXT DRIVFR FORK BLOCK 
;IF VS NO DRIVER PROCESS WAITING 
;SAVE CONTEXT OF CURRENT DRIVER PROCESS 
;COPY ADDRESS OF DRIVER PROCESS FORK BLOCK 
;GET ADDRESS OF CRB 
; STORE ASSIGNED 
-,.v™„^,™~..,, ; DATAPATH NUMBER 
CRB$L JNTD+VEC$6 DATAPATHS ) 
UCB$L FK3(R5),R3 .-RESTORE DRIVER PROCESS CONTEXT 
auCBtt. FPC(R5) ;CALL DRIVER AT DATAPATH WAIT RETURN ADDRESS 
#*M<R3,R4,R5> ;REST0RE PREVIOUS DRIVER PROCESS CONTEXT 



BBCS R2,ADP$W DPB1TMAP(R1) ,10* ;SET DATAPATH BIT AND EXIT 
BUG,CHECK INCONSTATE ; INCONSISTENT STATE 

RSS 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



REQUEST BUFFERED DATAPATH 

*** IOSNPG services for QJO 
REQUEST BUFFERED DATAPATH 



K 2 

27-JUL-19I 



7-JUL-19 

1-APR-19 




9 Frame K2 
-11 
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11 
(1) 



28 



50 
I? 



AO 
10* 



20 

I 

28 



52 24 



00 
02 

01 
A5 
07 

8? 

A1 



00 



11 24 A1 

10 AS 

18 B1 

50 



27 
13 

I 

OC 



05 
AQ 
52 
8E 
53 
AS 
65 
7E 

0' 

E 



DD 
11 



DD 

DO 

E 

D 

EA 

FO 



E4 
9 
D 
8ED0 

0£ 
D5 
9A 
D5 
05 



01 AO 
01AO 
01A0 
01 AO 
01A0 
01 AO 
C1A0 
01A0 
01A0 
01 AO 

n 
n 

01AO 

01A0 

Q1AQ 

01A0 

01A0 

01A0 

01AU 

01A( 

QUI 

01A< 

01AI 

01AO 

01AO 

?A0 

1A< 
1A< 
1AI 

_1A(. 

01A2 
1A4 
1A4 
1A6 
1AA 
1AF 
183 

186 

189 

188 

018E 

01BF 

Q1C1 

01C6 

01C9 

Q1CD 

01D1 

01D5 

1D7 

1DA 

1DC 

1DD 



462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

49? 

498 

499 

500 



.S8TTL REQUEST BUFFERED DATAPATH 



IOCSREQDATAP - REQUEST BUFFERED DATAPATH (WAIT) 
IOC$REQDATAPNW - REQUEST BUFFERED DATAPATH (NO WAIT) 

THI, ROUTINE IS CALLED TO REQUEST A UNI8US ADAPTER BUFFERED DATAPATH TO 
PERrORM AN I/O OPERATION ON. 



INPUTS: 



R5 * UCB ADDRESS OF DEVICE UNIT, 

04(SP) « RETURN ADDRESS OF CALLER'S CALLErt. 



IT IS ASSUMED THAT THE CALLER OWNS THE I/O CHANNEL ON WHICH THE 
TRANSFER IS TO OCCUR. 



OUTPUTS: 



IF A BUFFERED DATAPATH HAS BEEN PERMANENTLY ASSIGNED TO THE ASSOCIATED 
I/O CHANNEL, THEN CONTROL IS IMMEDIATELY RETURNED TO THE CALLER. 
ELSE AN ATTEMPT IS MADE TO FIND A FREE BUFFERED DATAPATH. IF A hREE 
BUFFERED DATAPATH IS POUND, THEN ITS NUMBER IS STORED IN THE ASSO- 
CIATED CHANNEL REQUEST BLOCK AND CONTROL JS RETURNED TO THE CALLER. 
ELSE IF NO WAIT IS SPECIFIED, THEN A FAILURE INDICATION IS RETURNED 
TO THE CALLER. ELSE THE DRIVER PROCESS CONTEXT IS SAVED IN ITS FORK 
BLOCK, THE FORK BLOCK IS INSERTED IN THE BUFFERED DATAPATH WAIT QUEUE, 
AND A RETURN TO THE DRIVER PROCESS 1 CALLER IS EXECUTED. 



.ENA8L 
lOCSREQDATAPNW: 

PUSHL 

BR8 
IOCSREGDATAP;; 

PUSHL 
5$ j MOVL 

BBS 

MOVL 

FFS 

BEQL 
INSV 



BBSC 

BL8C 

MOVQ 

POPL 

INSQUE 

TSTL 

M0V2BL 

TSTL 

RS8 

•DSA8L 



LSB 

#0 
5S 

#1 



CRB(R5),R0 



.•REQUEST BUFFERED DATAPATH NO WAIT 

;SET NO WAIT INDICATOR 

• 

;REOUEST BUFFERED DATAPATH WAIT 
;SET WAIT INDICATOR 
GET ADDRESS OF CRB 



#VEC«J>Afi^ ;IF SET, PERMANENT 



crbsl jfntd+vec$l„adp<r6) ,r1 ;get~addresj 
#o,#aBp$c.numdatAp,adpJw.dpbitmap(ri ) ,r; 



OF ADP 

; SEARCH FOR 



FREE DATAPATH 




10$ ;IF EQL NONE FOUND 

R2-#VEC$V DATAPATH,- ; STORE ASSIGNED 

#V6C$S DATAPATH-- ; DATAPATH NUMBER 

CRB$L.TNTD+VEC$8 DATAPATH(RO) 

R2.ADP$W DPBITMAP(R1),20$ :CLEAR UATAPATH BIT AND EXIT 

CWO + JOS „ m ;IF LBC NO WAIT SPECIFIED 

R3 x yCB$L.Fft3(R5) ;SAVE DRIVER PROCESS CONTEXT 

UCB|L,FPC(R5) :SAVE DATAPATH WAIT RETURN ADDRESS 

UCB$LFQFL(R5),9ADP$LJ)PQBL<R1) .'INSERT DRIVER PROCESS IN DATAPATH 

-<SP) ;PUSH DUMMY INDICATOR ON STACK 

S A #SS$JJORMAL,RO ;SET SUCCESS INDICATOR 

<SP)+ ;REMOVE WAIT INDICATOR FROM STACK 

LSB 



ZZ-ENSAA-7,0 

IQSNPG 

06-03 



RELEASE UNIBUS MAP REGISTERS 

**« I0SNP6 services for QJO 
RELEASE UNIBUS MAP REGISTERS 



L 2 
27-JUL-19I 



7-JUM9 

1-APR-19 
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9 Frame L2 



12 
(1) 



30 



51 

24 

52 
54 



55 1C 



53 



1C 



0078 



1DD 

1DD 

1DD 

1D0 

1DD 

1DD 

1DD 

1DD 

01DD 

1DD 

1DD 

1DD 

1DD 

01DD 

C1DD 

01DD 

1DD 

1DD 

01DD 

01DD 

1DD 

1DD 

01DD 

1DD 

1DD 

01DD 

01 DD 

1DD 

1DD 

Q1DD 

01DD 

01DD 

01DD 

01DD 




540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
59 

160 
i1 



.SBTTL RELEASE UNIBUS MAP REGISTERS 

■ 

IOCSRELMAPREG - RELEASE UNIBUS MAP REGISTERS 

THIS ROUTINE IS CALLED TO RELEASE UNIBUS MAP REGISTERS THAT WERE PREVIOUSLY 
ASSIGNED FOR AN I/O TRANSFER. 

INPUTS: 

R5 = UCB ADDRESS OF DEVICE UNIT. 

IT IS ASSUMED THAT THE CALLER STILL OWNS THE I/O CHANNEL ON WHICH 
THE TRANSFER TOOK PLACE, 



OUTPUTS: 



JF THE MAPPING REGISTERS HAVE BEEN PERMANENTLY ASSIGNED TO THE ASSO- 
CIATED I/O CHANNEL, THEN CONTROL IS IMMEDIATELY RETURNED TO THE CALLER. 
ELSE THE MAPPING REGISTERS ARE RELEASED AND AN ATTEMPT IS MADE TO 
REMOVE THE NEXT DRIVER PROCESS FROM THE MAP REGISTER WAIT QUEUE. IF 
A DRIVER PROCESS IS WAITING. THEN IT IS REMOVED FROM THE MAP REGISTER 
WAIT QUEUE AND AN ATTEMPT IS MADE TO ASSIGN THE REQUESTED NUMBER OF 
CONTIGUOUS MAP REGISTERS TO THE TRANSFER. IF THE ALLOCATION IS SUCCESS- 
FUL, THEN THE DRIVER IS CALLED VIA A JSB TO ITS MAP REGISTER WAIT 
RETURN ADDRESS. WHEN THE DRIVER RETURNS ANOTHER ATTEMPT WILL BE MADE 
TO ALLOCATE MAP REGISTERS TO THE NEXT DRIVER PROCESS IN THE MAP REGISTEP 
WAIT QUEUE. THE PROCESS OF ATTEMPTING TO ALLOCATE REGISTERS TO WAIT- 
ING DRIVER PROCESSES IS CONTINUED UNTIL EITHER THERE ARE NO DRIVER 
PROCESSES WAITING OR AN ALLOCATION FAILURE OCCURS. IN THE CASE OF 
AN ALLOCATION FAILURE THE DRIVER PROCESS IS REINSERTED AT THE FRONT 
OF THE MAP REGISTER WAIT QUEUE, 



IOCSRELMAPREG:: 
MOVL 
BBS 
PUSHR 
MOVL 
MOVL 
MOVZWL 
MCOML 
BSBB 
REMQUE 
BVS 
BSBB 
BLBC 
MOVQ 
JSB 
BRB 
INSQUE 
POPR 
RSB 



RELEASE UNIBUS MAP REGISTERS 
UCBSL CRB(R5),R1 'GET ADDRESS OF CRB 

mC$VjMPLQCK,CRB$LJNTD+VEC$W MAPREG(R1>,40$ ;IF SET, PERMANENT 
#*M<R3:R4,R5,R6> ;SAVE REGISTERS 
CRB$lJnTD+VEC$L_ADP(R1),R2 -GET ADDRESS OF ADP 
R2,R6 ;SAVE ADDRESS OF ADP 

CR8$LJNTD+VEC$WJ1APREG<R1) # R4 iGET STARTING MAP REGISTER NUMBER 
#Q,R0 



10$: 




I0f$ALTU8AMAP 
8ADP$IJ1RQFL<R6>,R5 
30$ 

IQCfALOUBAMAP 
ROjOl , 
UCB$L FR3(R5),R3 
l$C_FPC(R5) 



SEf ALtER PATTERN 

ALTER MAP REGISTER BITMAP 

GET ADDRESS OF NEXT DRIVER FORK BLOCK 

IF VS NO DRIVER PROCESS WAITING 

SEARCH MAP REGISTER BITMAP AND ALLOCATE 

IF LBC ALLOCATION FAILURE 

RESTORE DRIVE PROCESS CONTEXT 

CALL DRIVER AT MAP REGISTER WAIT RETURN ADD 



UCB$LJ : QFL(R5) { ADP$L_MRQFL<R6> REINSERT DRIVER PROCESS AT FRONT OF 
#*M<R3,R4,R5,R6> " ;RESTOR§ REGISTERS 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



REQUEST UNIBUS MAP REGISTERS 

*** IOSNPG services for QIO 
REQUEST UNIBUS MAP REGISTERS 
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13 
(1) 



32 10 

OC 50 E8 

10 A5 53 7D 

OC A5 8ED0 

20 B2 65 OE 

05 



0217 
0217 

0217 

9i 17 
0217 

0217 

0217 

Q?. 17 
0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

0217 

217 

*17 
0217 
0217 
0219 
021 C 
0550 
0224 
0228 



i 



569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
5J2 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 



.SBTTL REQUEST UNIBUS MAP REGISTERS 

IOCSREQMAPREG - REQUEST UNIBUS MAP REGISTERS 

THIS ROUTINE IS CALLED TO REQUEST UNIBUS MAP REGISTERS TO PERFORM AN 
I/O TRANSFER. 



INPUTS." 



R5 » UCB ADDRESS OF DEVICE UNIT. 

04(SP) s RETURN ADDRESS OF CALLER'S CALLER. 



IT IS ASSUMED THAT THE CALLER OWNS THE I/O CHANNEL ON WHICH THE 
TRANSFER IS TO OCCUR ON. 



OUTPUTS: 



IF MAP REGISTERS HAVE BEEN PERMANENTLY ASSIGNED TO THE ASSOCIATED 
I/O CHANNEL. THEN CONTROL IS IMMEDIATELY RETURNED TO THE CALLER. 
ELSE AN ATTEMPT IS MADE TO ALLOCATE THE REQUESTED NUMBER OF MAP REG- 
ISTERS. IF SUFFICIENT CONTIGUOUS MAP REGISTERS ARE FOUND- THEN THEY 
ARE ASSIGNED TO THE ASSOCIATED I/O CHANtet AND CONTROL IS RETURNED 
TO THE CALLER. ELSE THE DRIVER PROCESS CONTEXT IS SAVED IN ITS FORK 
BLOCK, THE FORK BLOCK IS INSERTED IN THE MAP REGISTER WAIT QUEUE, 
AND A RETURN TO THE DRIVER PROCESS 1 CALLER IS EXECUTED. 



IOCSREQMAPREG: 
BSBB 
BLBS 
MOVQ 
POPL 
INSQUE 

10$: RS8 



;REQUEST UNIBUS MAP REGISTERS 
I0C$AL0U8AMAP ; ALLOCATE U8A MAP REGISTER 
ROJOI ;IF LBS SUCCESSFUL ALLOCATION 

R3JJC8$L„FR3<R5> ;SAVE DRIVER PROCESS CONTEXT 
UCB$L.FPC(R5) :SAVE MAP REGISTER WAIT RETURN ADDRESS 

UCB$L_FQFL<R5),aADP$L.MRQBL(R2) ;INSERT PROCESS IN MAP REGISTER WAIT 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



ALTER UBA MAP REGISTER BITMAP 

*** IOSNPG services for 010 
ALTER UBA MAP REGISTER BITMAP 



N 2 
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27-JUL-19I 
1-APR-19I 
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53 



20 



53 



26 A1 

53 20 

54 50 
26 A2 

54 20 

53 20 
ED 

54 50 
26 A2 



18 0230 
FO 0232 

0236 
CO 0238 
C2 023B 
11 023E 
FO 0240 

0244 
05 0246 



604 

605 

w 

608 
609 
610 
611 
612 
613 
614 
615 
616 
617 

618 

619 

620 

621 

622 

623 

624 

625 

6 

6 

628 

629 

630 

631 
632 
633 
634 

635 



.S8TTL ALTER UBA MAP REGISTER BITMAP 

I0CSALTU9AMAP - ALTER UBA MAP REGISTER BIT MAP 

THIS ROUTINE IS CALLED TO EITHER CLEAR OF SET A FILLD OF BITS IN THE UBA MAP 
REGISTER ALLOCATION BITMAP. 



INPUTS: 



RO = ALTERATION CI T MASK. 

R1 = ADDRESS OF CR8. 

R2 = ADDRESS OF ADP. 

R4 = STARTING MAP REGISTER NUMBER. 



OUTPUTS: 



THE SPECIFIED 8IT FIELD IN THE UBA MAP ALLOCATION BIT MAP IS EITHER SET 
OR CLEARED DEPENDING ON THE STATE OF THE ALTERATION MASK. 

R3 AND R4 ARE OESTROYEO. 



I0CSALTU8AMAP: 
M0VZ8L 

10* : CMPL 
BGEQ 
INSV 



;ALVER MAP REGISTER BIT MAP 
CRB$LJNTD+VEC$B_NUMREG(h?),R3 ;GET NUMBER Of BITS TO ALTER 
#32,R3 ;M0RE THAN LOfJGUORD LEFT? 

20$ ;IF OU NO 

RO,R4,#32,ADP$WJ1RBITMAP<R2> ;ALTER BITMAP WITH SUPPLIED PATTERN 



20$: 



ADDL 
SU8L 
8RB 
INSV 

RS8 



#32, R4 
#32,R3 
10$ 



;UPDATE STARTING BIT POSITION 
••REDUCE NUMBER OF BITS TO ALTER 



R0,R4,R3,ADP$W„MRBITMAP<62) ;ALTER BITMAP WITH SUPPLIED PATTERN 



ZZ-ENSAA-7,0 

IOSNPG 

06-03 



SEARCH MAP REGISTER BITMAP 

*** IOSNPG 
SEARCH MAP 



53 



38 

15 

38 

53 6E AS 

54 6C A5 
03FF C344 



53 



51 
52 
39 24 A1 



F7 8F 
53 

* 50 
20 A5 

28 A1 

OF 



26 


A1 


53 
54 


55 


54 


53 


01F0 


8F 


55 
2A 




20 


54 


54 


26 A2 






ED 


55 


54 


53 


24 


A1 


54 




20 


54 


54 


26 A2 




55 


54 
07 


FO 26 A2 


54 






D3 


54 


24 


A1 
50 






38 



8B 
11 

BB 
3C 
3C 
9E 
78 

D4 
00 
DO 

E 2 
90 

D4 

C1 

B1 

14 

EA 



8 



4? 

47 
0247 
0247 
0247 
0247 
0247 
0247 
0247 
0247 
0547 
0247 
0247 
0247 
C247 
0247 
0247 
0247 
0247 
0247 
0247 
0249 
024B 
0248 
024D 
0251 
0255 
0258 
025F 
0260 
0262 
0266 
026A 
026F 
0273 
0275 
0279 
027E 
0280 
0283 
0286 

88 




B 3 

AND ALLOCATE 27-JUL-19I 
services for QJO ; 

REGISTER BITMAP AND ALLOCATE 
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637 

638 

"9 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 

665 
666 
667 
668 
669 
670 
671 
672 
673 
674 

675 
676 

67 £ 

678 



.SBTTL SEARCH MAP REGISTER BITMAP AND ALLOCATE MAP REGISTERS 

I0C$AL0UBAMAP - ALLOCATE USA MP REGISTERS (CR6 DATABASE SPECIFIED) 
IOCSAL0U8AMAPN - ALLOCATE UBA MAP ROGISTERS (ARGUMENT SPECIFIED) 

THIS ROUTINE IS CALLED TO ALLOCATE UBA MAP PFGISTERS AND TO MARK THE ALLOCATION 
IN THE UBA MAP REGISTER ALLOCATION BITMAP. 

INPUTS: 

R3 * NUMBER OF MAP REGISTERS TO ALLOCATE (ARGUMENT SPECIFIED ENTRY). 
R5 - DEVICE UNIT UCB ADDRESS. 

OUTPUTS: 

RO = SUCCESS INDICATION. 



.ENA8L 
IOCSALOUBAMAPN: 
PUSHR 
BR8 
I0CSALGU8AMAP:: 
PUSHR 
MOVZWL 
MOV2WL 
MOVAB 
ASHL 



5$: 



10$: 



20$: 



679 
680 
681 
682 
683 30$: 

6§* 

685 40$: 

686 50$: 
687 

688 



CLRL 

MOVL 

MOVL 

BBS 

MOVB 

CLRL 

ADDL3 

CMPW 

BGTR 

FFS 

BEQL 
ADDL3 
MOVW 
FFC 

CMPL 

BGEQ 

BBS 

BR8 

MOVZWL 

BSBB 

INCL 

POPR 

RSB 

.DSA8L 



LSB 

# A M<R3,R4,R5> 
5$ 

#*M<R3,R4,R5> 
UCB$W w .BCNT(R5) # R3 
UCB$W BOFF(R5),R4 
*X3FFTR3)[R4LR3 
#-9,R3,R3 



RO 



UCBJL 

crb$l 



CRB(R5),R1 
INTD+VECSL ADPCR1) 



ALLOCATE UBA MAP REGISTERS ARGUMENT SPECIF I 
SAVE REGISTERS 

ALLOCATE UBA MAP REGISTERS CRB SPECIFIED 

SAVE REGISTERS 

GET TRANSFER BYTE COUNT 

GET BYTE OFFSET IN PAGE 

CALCULATE HIGHEST RELATIVE BYTE AND ROUND 

CALCULATE NUMBER OF MAP REGISTERS REQUIRED 



ASSUME ALLOCATION FAILURE 

GET ADDRESS OF CRB 
,n„, v „ l ^,u^. W rwn/ i ll2 ;GET ADDRESS OF ADP 
#VEC$? MAPLOCK,CRB$L JNTD+VEC$W.,MAPREG(R1>,40$ ;IF SET. PERMANENT 
R3,CRB$LJNTD+VEC$8 RUMREGCRD ;SET NUMBER OF MAP REGISTERS ALLOCATE 
R4 .-CLEAR STARTING BIT POSITION 

CALCULATE HIGHEST BIT IN REQUIRED SCAN 

BEYOND END OF ALLOCATION BITMAP? 

IF GTR YES 



R3,R4.R5 

R5.0496 

50i 



R4,#32,ADP$WJ1RBITMAP(R25,R4 ;FIND A SET BIT 

10$ ;IF EQL BIT NOT FOUND 

R3,R4,R5 a ^CALCULATE HIGH BIT FOR SUCCESSFUL ALLOCATIO 
R4,CRB$L INTD+VEC$W MAPREGCR1) ;SAVE STARTING BIT NUMBER 
R4^32,A5P$W.MRBITMAP(R2).R4 ;FIND A CLEAR BIT 

R4 X R5 ;EN0UGH SET BITS SCANNED OVER? 

30$ ;IF GCQ YES 

R4 X ADP$W S ,MRBITMAP(R2),20$ ;IF SET, CONTINUE SCAN 

10$ ; 

CRB$LJNTD+VEC$W_MAPREGCR1).R4 .-RETRIEVE STARTING MAP REGISTER 

IQC$ACTUBAMAP ;ALTER MAP REGISTER BITMAP 

RO , ;SET SUCCESS INDICATOR 

#*M<R3,R4,R5> ;RESTORE REGISTERS 

LSB 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



RETURN TO CALLER 



*** IOSNPG services for QIO 
RETURN TO CALLER 
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05 



02AD 
02AD 
02AD 
02AD 
02AD 
02AD 
02AD 
02A0 
02AD 
02AD 
02AD 
02AD 
02AD 
02AD 
C2AD 
02AD 
02A0 
02AD 



690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 



.S8TTL RETURN TO CALLER 

IOCSRETURN - RETURN TO CALLER 

THIS ROUTINE IS CALLED AS A RESULT OF A DDT DISPATCH TO A NULL ENTRY, ITS 
FUNCTION IS MERELY TO RETURN TO ITS CALLER. 

INPUTS: 

NONE. 
OUTPUTS: 

NONE. 



IOCSRETURN:: 
RS8 



.-RETURN TO CALLER 



ZZ-ENSAA-7.0 

10SNPG 

06-03 



WAITFOR INTERRUPT OR TIMEOUT AND KEEP CH 

*** IOSNPG services for Q10 
WAITFOR INTERRUPT OR TIMEOUT 



3 
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17 
(1) 



6E 02 CO 
10 A5 53 7D 
OC A5 8ED0 



02 
-1 



58 A5 03 

8E 

00000000 * U 

5C A5 

0040 8F 

58 A5 



A8 
CI 



AA 



05 



02AE 
02AE 

92 AE 
02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

C2AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02AE 

02B1 

0285 

0289 

028D 

028F 

02C4 

02C6 

02CA 

02CC 

02CF 



709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
72? 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
.1 



739 

740 
741 



.SBTTL WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 

IOC$WfIKPCH - WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 

THIS ROUTINE IS CALLED TO SOFTWARE ENABLE INTERRUPTS AND TIMEOUT ON 
A DEVICE UNIT AND TO KEEP THE CHANNEL. THIS ROUTINE CAN 8E CALLED AT 
EITHER FORK OR DEVICE INTERRUPT LEVEL. 

INPUTS: 

OO(SP) = RETURN ADDRESS OF CALLER. 

04(SP) * TIMEOUT VALUE IN SECONDS. 

03(SP) = IPL TO LOWER TO AFTER SETTING WAIT. 

12CSP) = RETURN ADDRESS OF CALLLR'S CALLER. 

R5 = UCB ADDRESS OF DEVICE UNIT. 
OUTPUTS: 

THE TIMEOUT VALUE IS COMPUTED AND STORED IH DUE TIME, REGISTERS R3 AND 
R4 ALONG WITH THE RETURN PC ARE SAVED IN THE FORK BLOCK, INTERRUPTS AND 
TIMEOUT ARE ENABLED, AND A RETURN TO THE CALLER'S CALLER IS EXECUTED. 



IOCSWFIKPCH:: 
ADDL 
MOVQ 
POPL 
BISW 
ADDL3 



8ICW 



WAITFOR INTERRUPT/TIMEOUT AND KEEP CHANNEL 
CALCULATE OFFSET TO NORMAL RETURN 
SAVE REGISTERS R3 AND R4 

. „. .SAVE INTERRUPT RETURN ADDRESS 

*UCB$fl INTJUCBSM TIM,UCB$W STSCR5) .-ENABLE INTERRUPT AND TIMEOUT 
<SP)+,EXE$GLJ\BSTlM,UCB$Lj5UETIM(R5) ;SET TIMEOUT TIME 



#2,(SP) 

R3,UC8$L FR3CR5) 
UCB$L FP(?(R5) 



ENBINT 
RSB 



#UCB$MJIM0UT,UC8$W„STS(R5) ;CLEAR UNIT TIMED OUT 

;ENABLE INTERRUPTS 



— .» 



ZZ-ENSAA-7.0 

IOSNPG 

06-03 



WAITFOR INTERRUPT OR TIMEOUT AND RELEASE 

*** 10SNPG services for QJO 
WAITFOR INTERRUPT OR TIMEOUT 
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18 



02 
-1 



6E 02 CO 

10 A5 53 7D 

OC A5 8ED0 

58 A5 03 A8 

8E C1 
00000000' EF 
5C A5 

0040 8F AA 
58 A5 

FD5E 31 



02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
C2D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D0 
02D3 
02D7 
02D8 
02DF 
02E1 
02E6 
02E8 
02EC 
02EE 
02F1 
02F4 
02F4 



743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
.1 



773 

774 
775 
776 
777 



•S8TTL WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 

IOCSWFIRLCH - WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 

THIS ROUTINE IS CALLED TO SOFTWARE ENABLE INTERRUPTS A.MD TIMEOUT ON A VEVICE 
UNIT AND TO RELEASE THE CHANNEL, THIS ROUTINE CAN ONLY BE CALLED AT FORK LEVEL. 



INPUTS: 



00 UP) 
04 (SP) 
08(SP) 
12CSP) 



RETURN ADDRESS OF CALLER. 
TIMEOUT VALUE IN SECONDS. 
IPL TO LOWER TO AFTER SETTING WAIT. 
RETURN ADDRESS OF CALLER*S CALLER. 



R5 = UCB ADDRESS OF DEVICE UNIT. 

OUTPUTS: 

THE TIMEOUT VALUE IS COMPUTED AND STORED IN DUE TIME, REGISTERS R3 AND 
R4 ALONG WITH THE RETURN PC ARE SAVED IN THE FORK BLOCK, INTERRUPTS AND 
TIMEOUT ARE ENABLE, THE CHANNEL IS RELEASED, AND A RETURN TO THE CALLER'S 
CALLER IS EXECUTED. 



IOCSWFIRLCH:: 
ADDL 
MOVQ 
POPL 
BISW 
ADDL3 



BICW 



WAITFOR INTERRUPT/TIMEOUT AND RELEASE CHANN 
CALCULATE OFFSET TO NORMAL RETURN 
SAVE REGISTERS R3 AND R4 

m ,SAVE INTERRUPT RETURN ADDRESS 

#UCB$N INT!UCB$M TIM,UCB$W STSCR5) .-ENABLE INTERRUPT AND TIMEOUT 
<SP)+,PXE$6L w ABSTlM,UCB$Lj5UETIM(R5) ;SET TIMEOUT TINE 



#2,(SP) 

R3,UCB$L FR3<R5> 
UCB$L FPf(R5) 



ENBINT 
BRW 



*UCB$M_TIMOUT,UC8$W_STS<R5) ; CLEAR UNIT TIMED OUT 
IOCSRELCHAN 



; ENABLE INTERRUPTS 

;RElSASE ALL CHANNELS AND RETURN TO CALLER 



.,_J 



ZZ-ENSAA-7,0 

IOSNPG 

06-03 



ALLOCATE SYSTEM PAGE TABLE 

*** IOSNPG servf 
ALLOCATE SYSTEM 



ces for QJO 
PAGE TABLE 
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03 

03 
-8 



00000000'EF 

53 

50 01 



DO 
DO 
05 



02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
C2F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02F4 
02FA 
02F8 
02FE 
02FE 
02FF 
02FF 



779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
.1 

.2 

811 
812 
813 
814 



.SBTTL ALLOCATE SYSTEM PAGE TABLE 
IOCSALLOSPT - ALLOCATE SYSTEM PAGE TABLE 
THIS ROUTINE ALLOCATES SYSTEM PAGE TABLE (SPT) ENTRIES. 
INPUTS: 

R1 = NUMBER OF SPT ENTRIES TO BE ALLOCATED 

BOOSGL^SPTFREL = LOWEST FREE VPN 
B00$GL_SPTFREH = HIGHEST FREE VPN 

IT IS ASSUMED THAT THE CALLER IS RUNNING AT IPLS.SYNCH- 
OUTPUTS: 

RO = SUCCESS INDICATION. 

R2 = STARTING PAGE NUMBER ALLOCATED (SVPN). 

R3 = ADDRESS OF BASE OF SYSTEM PAGE TABLE (MMGSGL SPTBASE). 



R1 IS PRESERVED ACROSS CALL. 



IOCSALLOSPT: 
MOVL 



10$: 



MOVL 

RS8 

.END 



L*MMG$GL_SPT8ASE,R3 
01, RO 



.-ALLOCATE SYSTEM PAGE TABLE 
; Get addr of base of SPT 

; Set success 



ZZ-ENSAA-7,0 
IOSNPG 
Symbol table 

ADPSB NUMBER 

ADPSBlPORT 

ADPSB~TYPE 

ADPSClDRADPLEN 

ADPSC MBAADPLEN 

ADPSClMPMADPlEN 

ADPSCJWMDATAP = 

ADP$CJJBAADPLEN 

ADPSK^DRADPLEN 

ADPSK MBAADPLEN 

ADPiKJtPMADPLEN 

ADPSKJJBAADPLEN 

ADP$L_CRB 

ADPSL^CSR 

ADP$LJ>PQBL 

ADP$LJ)PQFL 

ADP$L INTD 

ADP$LJ,INK 

ADP$LJ1RQBL 

ADPSL MRQFL 

ADPSL^PRQQBL 

ADPSL^PRQQFL 

ADPSL.SHB 

ADP$LJ/ECTOR 

ADP$W_ADPTYPE 

ADP$W DPBITMAP 

ADP$WJtRBITMAP 

ADP$W_SIZE 

ADPSW TR 

BUGSCflECK 

CRBSBJ1ASK 

CRBSB.TYPE 

CRBSClLENGTH 

CRB$K„LENGTH 

CRBSLllNTD 

CRBSLJNTD2 

CRBSLJ.INK 

CRBSL^WOBL 

CRBSL^WOFL 

CRB$M_BSY 

CRBSVJ3SY = 

CRBSW^REFC 

CRB$W_SIZE 

DDBSB ACPCLASS 

ODBSelTYPE 

DOBSCLENGTH 

DDB$K_IENGTH 

DDB$L_ACPD 

DDB$L_DDT 

DDBSLlLINK 

DOBSLlUCB 

DDB$rDRVNAME 

DDB$T,NAME 

DD8$W_S J ZE 

DDTSLJMTSTART 

DDTSLlCANCEL 

DDT$L FDT 



Symbol table 



OOOOOOOB 
00000020 
OOOOOOOA 
00000014 
00000014 
00000070 
00000010 
00000070 
OOOOOOH 
OOOOOOH 
00000070 
00000070 
00000010 
00000000 
00000018 
OOOOOOH 
0000Q064 
00000004 
00000020 
0000001 c 
00000018 
OOOOOOH 
OOOOOOU 
00000010 
OOOOOOOE 
00000024 
00000026 
00000008 

oooooooc 

******** 

OOOOOOOE 
OOOOOOOA 
00000038 
OOOOQGja 
OOOOOOH 
000J0038 
00000010 
00000004 
OOOOQOOO 
00000001 
00000000 

oooooooc 

I0Q08 
1001 3 
>0OOA 
I0034 
1000034 
00000010 

SB 

14 

14 

(14 

1000001 C 

oooooooc 

00000008 



*** IOSNPG services for QiO 
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D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 


D 
D 

( 

D 
D 
D 
D 
D 
D 
D 


D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 



02 



DDT$L RE6DUMP 
DDT$L"START 
DDTSLlUNITINIT 
DDT$L UNSOLINT 
DDT$WJ>JAGBUF 
DDTSWlERRORBUF 
EMBSB DV,ERTCNT= 
EMB$QJ>VJOSB = 
EM8$W DV STS = 
ERLSRELEJSEMB 
EXESGLjABSTIM 
EXEIGQ SYSTJME 
IDBSBJTYPE 
IDBSC.LENGTH 
I DB$K LENGTH 
IDBSllADP 

idbsl^csr 

iobil^owner 

iob$l;ucblst 

idbsw*si2e 

idb$w units 

iocsaClospt 

iocsalqubamap 

iocsaloubamapn 

jocsaltubamap 

iocscancelio 

iocsdiagbufju 

iocsgl psbl 

IOCSlNlTJATE 

IOCSRELCHAN 

IOCSRELDATAP 

I0C$REU1APREG 

IOCSRELSCHAN 

IOCSREQCOM 

I0CSREQDATAP 

IOCSREQDATAPNW 

IOCSREQMAPREG 

IOCJfAEQPCHANH 

IOC$REOPCHANL 

IOCSREQSCHANH 

IOCSREQSCHANL 

IOCSRETURN 

10CSWFIKPCH 

IOClVFJRLCH 

IPLt.IOPOST 

IRPSflCARCON 

IRPSB EFN 

JRP$B"PR1 

IRPSBIRMOD 

IRP$B~TYPE 

IRPSClLENGTH 

IRP$OENGTH 

IRP$L~AR8 

IRP$L~AST 

irp$l;astprm 
irp$l*diagbuf 

irp$l!extend 



00000010 
00000000 
00000018 
00000004 
OOOOOOH 
00000016 
00000010 
00000012 
OOOOOOU 
******** 

******** 
******** 

OOOOOOOA 

00000034 
00000010 
00000000 

«r 

0< 12! 



« 



******** 



02 

02 
02 



02 
02 
02 



no 

IO000OH 
00000044 
0000004C 



IRPSL IOQBL 

IRPtLHOQFL 

IRPSLJQSB 

IRPSLII0ST1 

IRPSLJ0ST2 

IRPSLlHEDJA 

IRPSLlPID 

IRP$L w SEGVBN 

IRPSLlSEQNUM 

IRPSLlSVAPTE 

IRPSL TT TERM 

IRPSLJJCB 

IRP$L^WIND 

IRP$CfNT PRVMSK 

iRPSVlDJ^GBUF : 

IRPSVCABCNT 

IRPSU'BCNT 

IRP$W_BOFF 

IRP$W CHAN 

IRPSWlFUNC 

IRPSW^OBCNT 

IRPIW^SIZE 
IRPSW^STS 
IRPSW TT PRMPT 
MMGIGC SPTBASE 
PCBIB^STACT 
PC8SB ASTEN 
PCBSB PRI 
PCBIBlPRIB 

pc8s8ztype 
pcbsbzwefc 
pcb$0.ength 
pcb$oength 

PCBSLlARB 

pcb$l_astqbl 
pcbslzastqfl 
pcbjiZefcIp 
pcbsliefc3p 

PCBtlJFCS 

PCBSLlEFCU 

PCBSLlEFWM 

PCBSLlJIB 

PCBSLlOWNER 

PCBIL^PHD 

PCBILZPHYPCB 

PCBk^PID 

pcbslZpob 

pcb$lZsqbl 

pcbslZsqfl 

pcbilIsts 

pcbslIuic 

pcbilZwsswp 

pcbslZwtime 

PCBSCfPRIV 
PCBtT^LNAME 

pcb$t~terminal 

pcbsvTaptcnt 



00000004 
10000000 
1000024 
>34 

oom& 

OOOOOOOC 
00000040 
00000048 
0000002C 
00000038 
OOOOOOU 

J3C 
1007 




IE 

O000O02A 
0000003C 

******** 



D 
D 
D 



D 
D 

D 
D 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
( 

D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 

D 
U 
D 
D 
D 

D 
D 
D 



02 



j 



ZZ-ENSAA-7.0 
iOSNPG 
Symbol table 

PCBSWJKTCNT 

PCBSWJIQCNT 

PCBSWlBIOLM 

PCBSW'DIOCNT 

PCBSW^DIOLM 

PC8SWJ3PGCNT 

PCBSW^GRP 

PCBSW MEM 

PCBSWJ1TXCNT 

PCBSW PPGCNT 

PCBSW PRCCNT 

PCBSW~SIZE 

PCBSWJTATE 

PCBSW~TMBU 

PRSjPL i 

PR$ SIRR = 

RELEASE 

SI2 : 

SSS NORMAL 

UCBlB„AMOD 

UCBSB..CEX 

UCBSB^CMI 

UCBSB^CM? 

ucb$bj>evclass 

ucbs8j)evtype 

ucbsbjhpl 

ucbsb^dx sctcnt 

ucbsbjrTcnt 

ucbs8jrtmax 

UCBS8~FEX 

UCBSB^FIPL 

UCB$8lL0CSRV 

UCBSBlOFFNDX 

UCBS8JDFFRTC 

UCBSBlREMSRV 

UCBSBISECTORS 

UCBIBlSLAVE 

ucbsb^spr 

ucb*8~state 

ucbssitracks 

ucbsb!tt_crfill 

ucbs8_ttj)ecrf 

UCBSelTOELFF 
UCBielTT.DESPEE 

uc8s8jtj)etype 
ucbsb^tO-Ffill 

UCBSBlTT SPEED 

ucbsbjyPe 
ucbs8~vertsz 
ucbsqength 
ucbsc^mb^length 

UCBSClTTlLENGTH 

UCBSOER6TH 

UCBSKlMB.LENGTH 

UCBSKlTT LENGTH 

UCB$L_AMg 

UCBSL.ASTQBL 



Symbol table 
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H 3 

27-JUL-19I 



14 Fich 

I7-JUL-1984 15: 
1-APR-1980 10; 



. 9 Frame H3 Sequence 1681 

>7;34 VAX-11 Macro V03-01 Page 21 

1:16 DMA1;CSYS0.SYSMAINV]IOSNP6.MAR;37 (1) 



s 



8 




00000038 
0000003A 
000003c 
0C0003E 
00000040 
00000034 
0000008A 
00000088 
0000000E 
00000036 
0Q0QQQ42 
O0000008 
0Q0Q02C 
.0000032 
00000012 
000000K 
0QQQ011A 
00000001 

******** 

00000053 
00000077 
0000004A 
KB 

00000039 
00000052 
000000A6 
00Q0Q070 
00000071 
00000076 
OOOOQQQB 
0000003C 
00000094 
00000095 
0000003D 
0000003C 
00000074 

looooosi 

3D 
9D 
|A1 
0A2 
QAO 
QA4 
09E 
00QQ009C 
OOOOOQOA 
00Q0003F 
0000074 

QQQQQ90 

OOOOOBC 

90 

00000054 
00000010 




D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
I 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



02 
02 



UCBSL, 
UCBSL, 
UCBSL, 
UCBSL 
UCBSL 
UCBSL, 
UCBSL, 
UCBSL. 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL 
UCBSL, 
UCBSL 
UCBSL 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL 
UCBSL, 
UCBSL. 
UCBSL, 
UCBSL, 
UCBSL. 
UCBSL, 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL 
UCBSL. 
UCBSL. 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSM 
UCBSM 
UC8SM 
UCBSM 
UCBSM 
UCBST, 
UCBSV, 
UCBSV, 
UCBSW, 
UCBSW 

UCBSW 
UCBSW 



ASTOFL 

CPID 

CRB 

DDB 

DEVCHAR 

DEVDEPEND 

DPC 

DUETJM 

DX.BFPNT 

DX..6UF 

DX RXDB 

EMB 

FIRST 

FPC 

FQBl 

FQFL 

FR3 

FR4 

I0QBL 

I0QFL 

IRP 

LINK 

LOGADR 

MAXBLOCK 

MB MBX 

>CPORT 
M8IRAST 

( «.SHB 
MBlWAST 

MBlWIOQBL 

.hCwioqfl 

MEBlA 

nt datssb 
;nt;intssb 

OPtNT 

OWNUIC 

PID 

R08L 

RQFL 

iSVAPTE 

SVPN 

TTJ)ECHAR 

TT'RDUE 

trRTIMOU 

ycfl 

8sy 

CANCEL » 
INT i 
TIM i 
'TIMOUT » 
PARTNER 
BSY 

ERLOGIP i 
BCNT 
f 8CR 

JBOFF 

.BUFQUO 




OOOOOOOC 
1000005 C 
!0 
!4 
I00034 
I0Q03C 
)QQQ80 
0000005C 
0000009C 
1098 

I0A0 
>078 

>0QQ14 

lOOOOC 



It! 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



UCBSW BYTESTOGO 

UC8SW*CHARGE 

UCBSW„CYLINDERS 

UCBSW^DA 

UCB$W~DC 

UCBSWlDEVBUFSIZ 

UCBSWlDEVSTS 

UCBSWlDIRSEQ 

UCBSW J)STADDR 

UCBSW J)X BCR 

UCBSW^ECT 

UCBSW^EC2 

ucbsw„errcnt 

ucbsw;func 

ucbsw>g seed 

ucbsw>sbcnt 

ucbswj1sgmax 

ucbsw>t chan 

ucbsw'offset 

ucbsw^refc 

ucbsw^size 

ucbsw.srcaddr 

ucbsw^sts 

ucbsw~tt desize 

UCBSW~UNlT 

UCBSW^VPROT 

VECSB^DATAPATH 

VECSBlNUMREG 

VECSClLENGTH 

VEC$K„LENGTH 

VECSL^ADP 

VECSL^IDB 

VECSLlJNITIAL 

VECSL^STWT 

VECSL^UNITDISC 

VECSLlUNITINIT 

VECSQ~DISPATCH 

VCCSS^DATAPATH i 

VECSV~DATAPATH i 

VECSOWLQCK « 

VECSV>ATHLOCK * 

VECSW'MAPRbG 



0000003E 
6655Q04A 
0000003E 
0000008C 
0000008E 
0000003A 
0000005A 
00000088 
00000018 
Q000QQA4 

00000092 
00000072 

wm 

00000016 



8& 



D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 

D 
D 

r 

D 
D 
D 
D 
D 
D 
D 

D 
D 
D 



^•*-«« >**! 4-« 



ZZ-ENSAA-7.0 Psect synopsis 

IOSNPG *** I0SNP6 services for QJO 

Psect synopsis 
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PSECT name 



. ABS 

SABS$ 

SEP 



Allocation 

00000000*"" ( 
000Q0QBC ( 
000002FF ( 



. ! Psect synopsis ! 

PSECT NO. Attributes 

0,) 00 7 0.) NOPIC USR 
188.) 01 ( 1.) NOPIC USR 
767.) 02 ( 2.) NOPIC USR 



CON ABS LCI NOSHR NOEXE NORD 
CON ABS LCL NOSHR EXE RD 
CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WAT NOVEC LONG 



J 



ZZ-ENSAA-7.0 

IOSNPG 

Cross reference 



Cross reference 



*** I0SNP6 services for QJO 



SYMBOL 



ADP$C_NUMDATAP 
ADP$L DPQBl 
ADPSL DPQFl 
ADPILJ1RQBL 
ADPSL MRQFL 
ADPSU DPBITMAP 
ADPSW MRBITMAP 
BUGSCRECK 
CRBSBJ1ASK 
CRB5LJNTD 



V^LUE 

aOOOOCwiO 

00000018 
OOOOOOK 
00000020 

OOOOOOK 

00000024 

00000026 

OOOOCOOO-XR 

OOOOOOOE 

OOOOOOK 



CRBSLJ.INK 

CRBIL3WQBL 

CRBSL^UQFL 

CRBSM^BSY 

CRBSV^BSY 

DDBSL^ODT 

ODTSL^REGDUMP 

DDTSL START 

EMB$BlDV_ERTCNT 

EMBSCTDVJOSB 

EMBSW'DVlSTS 

erl$rEle*semb 
exesgijvbstjm 
exesgq systime 

IDB$lJSR 

IDBSLlOWNER 

IOC$AElOSPT 

I0C$AL0U8AMAP 

IOC*ALOUBAMAPN 

IOCSALTUBAMAP 

IOCICANCELIO 

IOCWIAGBUFILI. 

IQCSGL PSBl 

IOCSlNlTIATE 

IOCSRELCHAN 

IQCSRELDATAP 

IOCSRELMAPREG 

JOCSRELSCHAN 

IOCSREOCOM 

IOClREQDATAP 

IOCIREQDATAPNW 

(OCfREGMAPREG 

lOCSREQPCHANH 

IOCIREQPCHANL 

10CSREQSCHANH 

IOCSREQSCHANL 

IOC$RETURN 



00000010 
000QQ004 
00000000 
=00000001 
=00000000 
OOQQOOOC 
00000010 
QQOQQOOO 

=0000001 o 

40000012 
=0000001 A 
OOOOOOOO-XR 




0000Q24B-R 
00000247-R 
1229-R 



100 




OQO-XR 

11D-R 
052-R 
150-R 
0010D-R 
O0Q48-R 
ODD-R 
1A4-R 




J 3 

27-JUL-1984 

27-JUL-19J 
1-APR-19I 



Fiche 9 Frame J3 Sequence 1683 
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DEFINITION 



000002AD-R 



! Symbol Cross Reference ! 



REFERENCES.. 



(1) 
(1) 
(1) 
(t) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(1) 

(1) 



#-261 

#-246 

#-203 

#-203. 

#-408. 

#-363 

#-364 

#-362 

^-365 

#-737. 

#-20 

#-25 

#-248 

#-560 

#-557 



1 



35 
#-36 
#-370 



.1 



(1) 
(1) 
(1) 



565 
500 
634 

#-261 
#-310 
498 
#-555 
#-677 
#-242 

317 

#-311 
#-408 



505 


(1) 










674 


n> 


678 


(1) 


681 


(1) 


311 


d) 










#-438 


d) 


#-439 


(1) 


443 


(1) 


#-499 


d) 


504 


ii) 


531 


(1) 


#-627 


(1> 


#-667 


(1) 


668 


<1) 


#-683 


d) 










#-297 


(D 


#-301 


(1) 








#-597 
#-684 

#-775 



(1) 
(1) 
(1) 
(1) 

(1) 

(1) 



(1) 



#-260 



(1) 



#-313 (1) #-318 (1) 



ZZ-ENSAA-7.0 

IOSNPG 

Cross reference 

10CSWFIKPCH 

iOCSWFlRLCH 

iPL$JOPOST 

IRP$Cj)lAGBUF 

IRPSL MEDIA 

I&P*Q>ID 

IRPSL'SVAPTE 

IPPSVlDIAGBUF 

IRPSILCHAN 

IRMlTSTS 

MMGSGC SPTBASE 

PCBSL PlD 

PR$jPL 

PR$~SIRR 

RELEASE 

SS$ NORMAL 

UCBlB ERTCNT 

ucb$l:crb 



Cross reference 



*** IOSNPG services for QIO 
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UCB$L„DDB 
UCB$LJ)UETIM 
UCB$L~EMB 
UCB$L"FPC 

UCB$L„FQFL 
UCBSLJR3 

UCB$L IQQFI. 

UCBSL^IRP 

UC8$L~0PCNT 

UCBSL^SVAPTE 

UCBSMlBSY 

UCBSM^CANCEL 

UCBSMJNT 

UCBSM TIM 

UCB$M~TIM0UT 

UCBIV^BSY 

UCBSV^ERLOGIP 

UCB$W"QCNT 

UCBSW BOFF 

UCBSWlSTS 



VECSB. 
VEC» 

VEC$L, 

VEC$L 

VEC$S. 

VECIV, 

VEC$V 

VECSV. 

VEC$W. 



.DATAPATH 

,NUMREG 

ADP 

IDB 

DATAPATH 

DATAPATH 

MAPLOCK 

PATHLOCK 

MAPREG 



0Q00Q2AE-R 
02D0-R 





733 

767 



<1) 
(1) 



>00< 

0000002C 

=00000007 

00000028 

0000002A 

oooooooo-xn 

00000060 

mi 

000001 1A-R 
OOOQQOQO-XR 
C0000070 
00000020 



369 



(1) 



00000024 
0000005C 
00000078 
OOOOCOOC 

00000000 
00000010 

00000040 
0000004C 
00000060 
00000068 

rOOflwnOO 
*00000008 
=00000002 
•■00000001 
=00000040 
•00000008 
=0000000? 
0000006E 

raw 



00000013 




5 

lOOOOOOF 
=00000007 
00000010 



#-359 

.#-198 

#-348 

#•98 

#-402 

#-197 

#-100 

197 
#-802.1 
#-98 
#-740 
#-359 
#-319 
#-511 
#-201 
#-237 
#-304 
#-550 
#-202 
#-737.1 
#-361 

257 
#-600 

317 
#-254 
#-599 

366 
#-196 
#-349 
#-402 
#-3< 
#-1 
#-737 
#-737 
#-405 
#-97 
#-360 
#-661 




#-405 

#-404 
404 



#-347 



#-403 
#-771 

#-739 



360 

#-739 
443 
#-669 
#-499 
#-310 
#-445 
#-444 
#-668 

#-555 



(1) 

<1> 
(1) 

(1) 



#-363 


(1) 














#-241 


(1) 


#-245 


(1) 


#-296 


(1) 


#-300 


(1; 


#-308 


(1) 


#-437 


(1) 


#-450 


(1) 


#-497 


(1) 


#-666 


(1) 














#-407 


(1) 














#-771.1 


(1) 














#-316 


(1) 


455 


(1) 


#-508 


<1> 


563 


<1> 


#-736 


(1) 


#-770 


(1) 










509 


(1) 


565 


(1) 


601 
#-507 


(1) 






#-315 


(1) 


#-454 


(1) 


(1) 


#-562 


(1) 


#-735 


(1) 


#-769 


n> 











(1) 



(1) 
(1) 
(1) 
(1) 



#-394 



(1) 



#-77? <1> 



CD 



#-362 

#-771 
453 

#-553 

#-452 
#-451 



668 



(1) 
(1) 
(1) 

(1) 

<1> 
(1) 



(1) 



498 

#-667 

#-503 
#-502 



(1) 
(1) 
(1) 

(1) 

O) 
(1) 



#-403 
97 
504 



(1) 
(1) 



#-677 (1) 



#-683 



(1) 



7Z-ENSAA-7.0 

10SNPG 

Cross reference 



MACRO 



SADPDEF 

KADEF 

$CRBDEF 

SDDBDEF 

SDOTDEF 

SDEFINI 



SEM8DEF 

SEMBDVDEF 

SEMBETDEF 

SEM8HD0EF 

SEMBTSOEF 

SIOBDEF 

S1PLDEF 

SIRPDEF 

SJIBDEF 

SLOGDEF 

SPCBDEF 

$PROEF 

SUCBDEF 

SVECDEF 

BUG CHECK 

ENBlNT 

SOFlINT 



Cross reference 



SIZE 

2 
1 
1 
1 
1 
1 



1 

2 

3 

1 

1 

1 

1 

4 

3 

1 

4 

4 

10 

2 

1 

1 

1 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table aort 

Pass 2 

Symbo. 

Psect 



table output 
synopsis output 
Cross-reference output 
Assembler run totals 



*** JOSNPG services for QJO 



i 3 

27-JUL-1?tf4 

27-JUL-19I 
1-APR-19I 



Fiche 9 Frame L3 Seguence 1685 
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*5 



! Macro? Cross Reference ! 



DEFINITION 



55 
56 
57 
58 
59 
55 



60 
60 
60 
60 
60 
61 
62 
63 
64 
65 
66 
67 

68 

69 

459 

740 

359 



REFERENCES... 



55 


(1) 


56 


(1) 


57 


(1) 


58 


<1> 


59 


(1) 


55 


(1) 


60 


(1) 


65 


i\) 


60 


(1) 


60 


CD 


60 


(1) 


60 


(1) 


60 


(1) 


61 


(1) 


62 


(1) 


63 


(1) 


64 


(1) 


65 


(1) 


66 


(1) 


67 


(1) 


68 


(1) 


69 


(1) 


459 


(1) 


740 


(1) 


359 


(1) 



56 


(1) 


61 


(1) 


66 


(1) 



57 


(1) 


62 


(1) 


67 


(1) 



(1) 
(1) 
(1) 



59 


(1) 


64 


(1) 


69 


(1) 



77<> 



! Performance indicators I 



(1) 



Page faults 




CPU Time 
00 



Elapsed Time 






The wo'king set limit was 1000 pages. 

61035 D/tes (120 pages) of virtual memory were used to buffer the intermediate 
There were 40 pages of symbol table space allocated to hold 712 non-local and 3 
739 source lines were read in Pass 1* producing object records in Pass 2, 
104 pages of virtual memory were used to define 31 macros. 



ode. 
local 



symbols. 



M 3 
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VAX-11 Macro Run Statistics 1-APR-1980 10:21:16 0MA1 :CSYSO,SYSMAINT3IOSNP6.MAR;37 (1) 

! Macro library statistics ! 

Macro Library name Macros defined 

DMA1:CSYS0.SYSMAINT]DS.MLB;218 1 

DMA1:CSYS0.SYSMAINT]D1A6,MLB;953 10 

SYS$SYSROOT:CSYSLIB3LI8.MLB;1 10 

SYSSSYSR00T:CSYSL1B3STARLET.MLB;2 6 

TOTALS (all libraries) 27 

11H GETS were required to define 27 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=CDS.LJS.l/CROSS/ENABLE-(DEaUG,TRACE) IOSNPG/UPDA=< IOSNPG. UPD, IOSNPG, ENH) +SYS$UBRARY:LIB/LIBRARY+DMA1 :CSYSO.SYSMA 



77-ENSAA-7.0 

10SPGD 

lable of contents 

148 
186 
III 
383 
409 



*** IOSPGD 



services for QIO 

*** IOSPGD services for QJO 



N 3 
27-JUL-19M Fie he 9 Frame N3 
27-JUL-1984 15:28:12 VAX-11 



Sequence 1687 
Macro V03-0T Page 







CONVERT DEVICE NAME AND UNIT 

FIND FREE I/O CHANNEL 

SEARCH FOR DEVICE 

UNLOCK I/O DATA BASE AND RETURN STATUS 

VERIFY I/O CHANNEL NUMBER 



ZZ-ENSAA-7.0 

IOSPGD 

05-02 

V54 
V'54 

\J% 
V54 
-2 



*** IOSPGD 



services for QIO 

*** IOSPGD services for QJO 



B 4 
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1 

(1) 



V54 
V54 
V54 
V54 
V54 



V54 
-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

mi 

0000 
0000 
0000 
0000 
0000 



.1 

.2 
,3 

.4 

3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
21 
28 
29 
30 
.1 
.2 
.3 
.4 
.5 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
.4 
46 
47 
48 
49 
50 



.TITLE IOSPGD *** IOSPGD services for QIO 

.IDENT /05-02/ 

.LIST MEB 

.NLIST CND 



**************************************************************************** 

* COPYRIGHT (c) 1977, 1978, 1979, 1980 * 

* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * 

* * 

* THIS SOFTUARE IS FURNI? JF h 'INDER A LICENSE AND MAY BE USED AND COPIED * 

* ONLY IN ACCORDANCE U' THE TERMS OF SUCH LICENSE AND WITH THE * 

* INCLUSION OF THE ABOVE lOhYRIGHT NOTICE. THIS SOFTWARE PR ANY OTHER * 

* COPIES THEREOF MAY NOT Be PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

* TRANSFERRED. * 

* * 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

* CORPORATION. * 

* * 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* * 

************************************************ **************************** 

D. N. CUTLER 13-JUN-76 

PAGED I/O RELATED SUBROUTINES 



ADAPTED TO DIAGNOSTIC SUPERVISOR ENVIRONMENT 

Dave Butenhof 14-may-1980. Version 5.4 
02 Modify VMS V2.0 source for Supervisor environment 
V04 LMK0001 LEN KAWELL 27-JUL-1979 

CHANGE INTERFACE TO IOCSCREATE UCB to ASSUME THAT THE 
I/O DATABASE IS LOCKED FOR WRITE ACCESS. 

V03 SPR23081 LEN KAWELL 28-MAR-1979 

CHANGE OVERFLOW CHECK IN IOC$SEARCHDEV SO THAT UNIT 
NUMBERS BETWEEN 32768 AND 65535 ARE VALID. 

^J02 SPR20488 LEN KAWELL 7-FEB-1979 

RESTORE PCS ADDRESS WHEN CHECKING FOR ALLSPOOL 
PRIVILEGE DURING GENERIC ALLOCATION OF A SPOOLED DEVICE 

MACRO LIBRARY CALLS 



SACBDEF 
SCCBDEF 
SCR8DEF 
SDD8DEF 
SDEVDEF 



DEFINE AST CONTROL BLOCK 

DEFINE CCB OFFSETS 

DEFINE CRB OFFSETS 

DEFINE ODB OFFSETS 

DEFINE DEVICE CHARACTERISTICS 



ZZ-ENSAA-7,0 

IOSPGD 

05-02 



*+* IOSPGD 



services for 010 

*** IOSPGD services for QIO 



V54 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000003A 0000 
00000000 



00000039 
00000041 
00000064 
0000005F 
00000030 



-1 



21 43 41 



21 
3A 



5F 
57 



00' 

55 

08 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0006 
0000 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
.1 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
78 



SIPLDEF 

SLOGDEF 

SPCBDEF 

$PRDEF 

SPRVDEF 

SPSLDEF 

$SSDEF 

SUCBDEF 
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DEFINE IPL LEVELS 

DEFINE LOG OFFSETS 

DEFINE PCB OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE PRIVILEGE BITS 

DEFINE PROCESSOR STATUS FIELDS 

DEFINE SYSTEM STATUS VALUES 

DEFINE UCB OFFSETS 



LOCAL SYMBOLS 
CHARACTER DEFINITIONS 



COLON=58 

.PSECT SEP, SHR, EXE, WRT, 
NINE=57 
UCA=65 
UCZ=100 
UNDERSCORE=95 
ZERO=48 



LOCAL DATA 



DEVCTL: .ASCIC /JACWW:/ 



LONG 



COLON 



;DIGN 
; UPPER 
; UPPER 
; UNDERSCORE 
; DIGIT 



9 

CASE A 
CASE Z 



;DEVICE NAME CONVERSION CONTROL STRING 



ZZ-ENSAA-7.0 

IOSPGO 

05-02 



CONVERT DEVICE 



NAME AND UNIT 
*** I0SP6D services for 
CONVERT DEVICE NAME AND 



51 



50 
50 



7E 50 

52 5E 

EE AF 

50 81 
7E 50 

51 5E 
24 A6 
14 AO 



48 



00000000 
51 
5E 



A6 
50 
62 
61 
61 
05 
GF 
6E 
10 



0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

C009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

0009 

7D 0009 

DO OOOC 

9E OOOF 

9A 0013 

7D 0016 

DO 0019 

DO 001 C 

9E 0020 

0024 

DD 0024 

DD 0027 

7? 0029 

3F 002B 

7F 002D 

FB 002F 

0031 

3C 0036 

CO 0039 

05 003C 



148 

149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 



182 
183 
184 



D 4 
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UNIT 1-APR-1980 10:21:26 DMA1 :CSYS0.SYSMAINTJIOSPGD.MAR;37 

.S8TTL CONVERT DEVICE NAME AND UNIT 



3 

CD 



IOC$CVT_DEVNAM - CONVERT DEVICE NAME AND UNIT 

THIS ROUTINE IS CALLED TO CONVERT A DEVICE NAME AND UNIT NUMBER TO A PHYSICAL 
DEVICE NAME STRING. 



INPUTS: 



RO = LENGTH OF OUTPUT BUFFER. 
R1 * ADDRESS OF OUTPUT BUFFER. 
R6 = ADDRESS OF DEVICE UCB. 



OUTPUTS: 



THE DEVICE NAME AND UNIT NUMBER ARE CONVERTED AND STORED IN THE SPECIFIED 
OUTPUT BUFFER. THE FOLLOWING REGISTER VALUES ARE RETURNED: 

RO = FINAL CONVERSION STATUS. 

R1 = LENGTH OF CONVERSION STRING. 



R3 IS PRESERVED ACROSS CALL. 



IOC$CVTJ)EVNAM:: 



MOVQ RO, -(SP) 

MOVL SP,R2 

MOVAB DEVCTL,R1 

M0VZ8L (R1)+,R0 

MOVQ RO,-(SP) 

MOVL SP,R1 

MOVL UCB$LJ)DB(R6),R0 

MOVAB DDBST NAME(RO),RO 

$FAQ_S (R1 ) ,7R1 ) , (R2) ,R0,UCB$W 

PUSHL ucb$wj;njt<r6> 



.♦CONVERT DEVICE NAME AND UNIT 

;SAVE OUTPUT BUFFER DESCRIPTOR 

;SET ADDRESS OF OUTPUT BUFFER DESCRIPTOR 

;GET ADDRESS OF CONVERSION CONTROL STMNG 

;GET LENGTH OF CONVERSION CONTROL STRING 

;SAVE CONVERSION CONTROL STRING DESCRIPTOR 

;SET ADDRESS OF CONTROL STRING DESCRIPTOR 

;GET ADDRESS OF DDB 

;GET ADDRESS OF DEVICE NAME 

UNIHR6) ;CONVERT DEVICE AND UNIT 



MOVZWL 

ADDL 

RSB 



PUSHL 

PUSHAQ 

PUSHAW 

PUSHAQ 

CALLS 

(SP>,R1 

#16, SP 



RO 

(R2) 

(R1) 

(R1) 

0$$T2,G A SYS$FAO 



GET LENGTH OF OUTPUT STRING 
REMOVE DESCRIPTORS FROM STACK 



ZZ-ENSAA-7.0 

IOSPGD 

05-02 



FIND FREE I/O 



CHANNEL 
*** IOSPGD services for 
FIND FREE I/O CHANNEL 



E 4 
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OOOOOOOO'EF 

50 09 

51 10 
00000000 *9F 

52 

6041 

OC 

51 10 

F5 52 

50 01B4 8F 

50 01 



003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

003D 

C1 003D 

0043 

CE 0045 

3C 0048 

004E 

95 004F 

13 0052 

C2 0054 

F5 0057 

3C 005A 

05 005F 

3C 0060 

05 0063 



186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

204 
205 
206 
207 
208 
209 
210 

211 
212 

213 
214 
215 
216 
217 
218 
219 
220 



.S8TTL FIND FREE 1/0 CHANNEL 

k 

IOCSFFCHAN - FIND FREE I/O CHANNEL 

THIS ROUTINE IS CALLED TO SEARCH THE I/O CHANNEL TABLE FOR A FREE CHANNEL. 

INPUTS: 

NONE. 
OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO FIND FREE I/O CHANNEL. 
RO = SSS.NOIOCHAN - NO I/O CHANNEL AVAILABLE. 

RO LOW BIT SET INDICATES SUCCESS WITH: 
R1 = AVAILABLE CHANNEL NUMBER. 

R3 IS PRESERVED ACROSS CALL. 



IOC$FFCHAN:: 
ADDL3 



;FIND FREE I/O CHANNEL 
CTL$GL_CCBBASE,*CCB$BJ\MOD,RO ;BASE AND OFFSET TO TEST ASSIGNMENT 



10$: 



20$: 



MNEGL 
MOVZWL 

TSTB 

BEQL 

SU8L 

SOBGTR 

MOVZWL 

RSB 

MOVZWL 

RSB 



#CCB$C LENGTH, R1 
a#CTL$3W_NMI0CH,R2 

(R0)CR13 

20$ 

#CCB$C_LENGTH,R1 

R2,10$ 

#SS$_NOIOCHAN,RO 

*SS$_NORMAL,RO 



SET STARTING CHANNEL INDEX 
GET NUMBER OF I/O CHANNELS 

CHANNEL ASSIGNED? 

IF EQL NO 

CALCULATE NEXT CHANNEL INDEX 

ANY MORE CCB'S TO EXAMINE? 

INDICATE FAILURE 

INDICATE SUCCESS 



ZZ-ENSAA-7.0 

I0SP6D 

05-02 



SEARCH FOR 



52 02 
03 



V54 
V54 
V54 
-7 



52 



55 
85 



52 

01F4 
40 
5E 
54 

04 
5F 



75 54 



01 A1 



50 
61 64 

61 41 



EF 



01 
8F 
8F 
52 
61 
69 
A1 
8F 
06 
54 
58 
10 
3A 
OA 
50 
06 
3A 
42 
54 
8F 
40 
8F 
05 
51 
50 



DO 
11 

00 
BB 
9A 
C2 
3C 
13 
DO 
91 

D? 
13 
11 

S 

D7 
13 
91 
13 
7D 
91 
1F 
91 
1A 
06 
F5 



8 



DEVICE 

*** IOSPGD 
SEARCH FOR 



064 
64 
4 
4 
064 
064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0067 
0069 
069 
06C 
070 
074 
077 
7A 
7C 
80 
0084 
6 
8 
A 
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222 
223 

226 
227 
228 
229 
230 
231 
232 
233 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

150 

!51 

!52 

(53 

(54 

255 



IOCSSEARCHDEV - SEARCH FOR PHYSICAL DEVICE 
IOCSSEARCHGEN - SEARCH FOR GENERIC DEVICE 

THIS ROUTINE IS CALLED TO SEARCH THE DEVICE DATA BASE FOR A SPECIFIED 
DEVICE. IT IS ASSUMED THAT THE DEVICE DATA BASE HAS BEEN LOCKED FOR 
READ ACCESS. 

INPUTS: 

R1 * ADDRESS OF LOGICAL NAME STRING DESCRIPTOR. 
R4 a CURRENT PROCESS PCB ADDRESS. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO FIND DEVICE. 

RO = SS$_IVDEVNAM - INVALID DEVICE NAME. 
RO = SS$lN0NLOCAL - NONLOCAL DEVICE- 
RO = SS$_NOSUCHDEV - NO SUCH DEVICE. 

RO LOW BIT SET INDICATES SUCCESS WITH: 

R1 » UCB ADDRESS OF DEVICE UNIT. 



.ENA8L 
IOC$SEARCHDEV:: 

MOVL 

8R8 
IOC$SEARCHGEN;: 

MOVL 



5$: 



7$; 



10$: 
20$; 



PUSHR 

M0VZ8L 

SUBL 

MOVZWL 

BEQL 

MOVL 

CMPB 

BNEQ 

DECL 

BEQL 

BRB 

LOCC 

BEQL 

DECL 

BEQL 

CMPB 

BEQL 

MOVQ 

CMPB 

BLSSU 

CMPB 

BGTRU 

JNCL 

SOSGTR 



LSD 

#2,R2 
5$ 

#1Jtt 

# A M<R2,R4,R5,R6,R7,R8> 

#L0G$CJIAMLENGTH,R2 

R2,SP 

<R1),R4 

70$ 

4<R1) X R5 

#UNDERSC0RE,(R5)+ 

7$ 

R4 

n 

#*A/:/,R4,-(R5) 

RO 

10$ 

# A A/;/,1(R1) 

50$ 

R4,R0 

? U|Z.CR1> 

#UCA,(R1) 

30$ 

R1 
R0,20$ 



SEARCH FOR PHYSICAL DEVICE 
INDICATE PHYSICAL DEVICE SEARCH 

SEARCH FCR GENERIC DEVICE 

INDICATE GENERIC DEVICE SEARCH 

SAVE REGISTERS 

SET MAXIMUM LENGTH OF RESULT STRING 

ALLOCATE SPACE FOR RESULT STRING 

GET LENGTH OF NAME STRING IN BYTES 

IF EQL INVALID DEVICE NAME 

GET ADDRESS OF NAME STRING 

DEVICE NAME START WITH UNDERSCORE? 

IF NEQ NO 

REDUCE LENGTH OF DEVICE NAME 

IF EQL INVALID DEVICE NAME 

SEARCH STRING FOR A COLON 

IF EQL COLON NOT FOUND 

POSSIBLY A NODE NAME? 

IF EQL NO 

NEXT CHARACTER A COLON? 

IF EQL YES 

COPY DEVICE NAME PARAMETERS 

POSSIBLY UPPER CASE ALPHABETIC? 

IF LSSU NO 

UPPER CASE ALPHABETIC? 

IF GTRU NO 

POINT TO NEXT CHARACTER 

ANY MORE CHARACTERS TO SCAN? 



ZZ-ENSAA-7.0 

10SPGD 

05-02 



SEARCH FOR 



54 



52 
52 

40 AE 
52 

52 

56 



56 
56 



DEVICE 

*** 10SPGD 
SEARCH FOR 



56 
50 



31 
81 
3A 
29 
02 
30 
19 
09 
14 
05 

OF 

5$ 
52 

D9 



50 



08F0 8F 
35 



50 0144 



8F 
2E 



-3 



5? 01 
OOOOOOOO'EF 
58 
2B 
09 
43 
50 



F3 



1B 
40 



15 



OOOOOOOO'EF 
58 



50 0908 

5E 40 

01F4 



D4 
C2 
13 
D7 
19 
9A 
91 
13 
C8 

91 
19 
A4 

1D 
AO 
CO 
11 



3C 
11 



3C 
11 



SSI 




>OBE 

ooci 

00C3 

OOCA 
00CC 
00CF 
00D1 
00D4 
00D4 
00D6 
00D9 
00DC 
OODE 
OODE 
OODE 
OODE 
OODE 
OODE 
00E3 
00E5 
00E5 
00E5 
00E5 
00E5 
00E5 

OOEC 
OOEC 
OOEC 

88* c 

OOEC 

OOF 5 
00F6 
OOF 8 
OQFA 
QQFC 
QOFF 
0103 
0105 
01 OB 
010C 

S!? 1 
SI! 

011A 

8 11 6 
0122 



services 
DEVICE 



for QJO 
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6 
(1) 




CLRL 

SUBL 

BEQL 

DECL 

BLSS 

M0V2BL 

CMPB 

BEQL 

BJSL 

SU8B 

BLSS 

CMPB 

BLSS 

MULW 

BVS 

ADDW 
ADDL 
BRB 



R0,R4 

70i 

RO 

80$ 

(RD + .R2 

#C0L0N,R2 

80S 

#2,L0G$C NAMLENGTH(SP) 

$RO.R 2 

#NINE-2ERQ,R2 

70$ 

#5,R6 

70$ 
R6,R6 
R?,R6 
40$ 



CLEAR UNIT NUMBER 

CALCULATE LENGTH OF DEVICE NAME 

IF EQL NO DEVICE NAME SPECIFIED 

ANY MORE CHARACTERS IN STRING? 

If LSS NO 

GET NEXT CHARACTER 

DEVICE NAME TERMINATOR? 

If EQL YES 

SET EXPLICIT UNIT NUMBER FLAG 

POSSIBLY A DECIMAL DIGIT? 

IF LSS NO 

DECIMAL DIGIT? 

IF LSS NO 

SCALE CURRENT UNIT NUMBER BY 10 

IN TWO STEPS, FOR OVERFLOW CHECK 
IF VS OVERFLOW - NUMBER TOO BIG 
SECONl* STEP OF SCALE BY 10 
ADD NEW DIGIT TO ACCUMULATION 



NONLOCAL DEVICE 



50$: MOVZWL #SS$„N0NL0CAL,R0 
60$: BRB 120$ 



INVALID DEVICE NAME 



70$: MOVZWL #SS$JVDEVNAM,R0 
BRB 120$ 



;SET NONLOCAL DEVICE 



;SET INVALID DEVICE NAME 



; SEARCH DEVICE DATA BASE FOR NAME/UNIT MATCH 



80$: 



90$: 
95$: 



100$: 



MOVL #1,R7 

MOVAL L A I0C$GLJ>EVLIST-DD8$L, 



110$: 
120$: 



8S88 
BNEQ 
8S8S 
BLBS 
8LBS 
CLRL 
MOVAL 

BS88 

BNEQ 

BSBB 

BLBS 

MOVZWL 

MOVAB 

POPR 

RS3 



{SET DEVICE NAME LENGTH ADJUSTMENT VALUE 
,INK,R8 ;GET ADDRESS OF I/O DATABASE LISTHEAD 

.♦SEARCH FOR DEVICE NAME MATCH 
;XF NEQ MATCH NOT FOUND 
;SEARCH FOR UNIT NUMBER MATCH 
;IF LBS UNIT NUMBER MATCH FOUND 
;IF LBS GENERIC DEVICE NAME SEARCH 
{CLEAR DEVICE NAME LENGTH ADJUSTMENT VALUE 
LM0CSGLJ>EVUST-DDB$L i .LlNK,R8 ;GET ADDRESS OF I/O DATABASE LISTHEAD 



SEARCHDEV 

SEARCHUNIT 

R0,120l 

LQG$C„.NAMLENGTH(SP),90$ 



SEARCHDEV 

110$ 

SEARCHUNIT 

R0,120$ 

#SS$ NOSUCHDEV,R0 

LOG$tNAMLENGTH(SP),SP 

# A M<R2,R4,R5,R6,R7,R8> 



SEARCH FOR DEVICE NAME MATCH 

IF NEQ MATCH NOT FOUND 

SEARCH FOR UNIT NUMBER MATCH 

IF LBS UNIT NUMBER MATCH FOUND 

SET NO SUCH DEVICE 

REMOVE DEVICE NAME STRING FROM STACK 

RESTORE REGISTERS 



ZZ-ENSAA-7.0 

tOSPGD 

05-02 



SEARCH FOR DEVICE 

*** I0SP6D services for QIO 
SEARCH FOR DEVICE 
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58 68 

n 

50 14 A8 

51 80 57 

54 



65 60 



51 
51 

08 44 AE 
48 A1 



V54 
-7 



51 
EE 
54 
E8 

58 



50 
D8 A8 
2C A1 
OF 
01 
56 
02 
ED 

50 



DO 
13 
DE 
83 
91 
12 
29 
12 
05 
D6 
05 



D4 
DE 
DO 
13 
E1 
B1 
13 
11 

D6 

05 



0133 
0135 
0139 
01 3B 
013C 

01 3E 

Q13F 
01 3F 
01 3F 
013F 
013F 
013F 
013F 
0141 
0145 
0149 
014S 
0150 
0154 
0156 
0158 
0158 
01 5A 



SUBROUTINE TO SEARCH FOR DEVICE NAME MATCH 



341 
342 
343 
344 
345 
346 

347 SEARCHDEV: 

348 10$: MOVL 

349 BEQL 

350 MOVAL 

351 SUB83 

352 CMPB 

353 BNEQ 

354 CMPC 

355 BNEQ 

356 RSB 

357 20$: INCL 

358 RSB 
359 

360 
361 

363 

J64 SEARCHUNI1": 
CLRL 
MOVAL 
MOVL 
BEQL 
8BC 
CMPW 
BEQL 
BRB 

INCL 
RSB 



.DSA8L LSB 



DDB$L,LINK<R8),R8 

20$ 

DDB$T NAME(R8),R0 

R7,(R0)+,R1 

R1,R4 

ioi 

R4,(R0),<R5) 

ioi 

R8 



SEARCH FOR DEVICE NAME 

GET ADDRESS OF NEXT DDB 

IF EQL END OF LIST 

GET ADDRESS OF GENERIC DEVICE NAME 

CALCULATE LENGTH OF STRING TO COMPARE 

LENGTH OF NAMES MATCH? 

If NEQ NO 

COMPARE DEVICE NAMES 

IF NEQ NAMES DO NOT MATCH 

INDICATE SEARCH FAILURE 




SUBROUTINE TO SEARCH FOR UNIT NUMBER MATCH 



.'SEARCH FOR UNIT NUMBER 
RO .-ASSUME SEARCH FAILURE 

DDB$L_UCBHJCB$L LINK(R8),R1 ;GET ADDRESS OF NEXT UCB ADDRESS 
UCB$LJ.INK(R1),R1 ;GET ADDRESS OF NEXT UCB 

40$ ;ir EQL END OF LIST 

#1,L06$C„NAMLEN6TH+4(SP>,20$ ;IF CLR, GENERIC SEARCH 
R6,UCB$WJJNIT<R1> ;UNIT NUMBER MATCH? 

10$ 



;IF EQL YES 



RO 



; INDICATE UNIT NUMBER MATCH 



ZZ-ENSAA-7.0 

iOSPGD 

05-02 



UNLOCK I/O DATA BASE AND RETURN STATUS 27- 

*** IOSPGD services for QIO 
UNLOCK I/O DATA BASE AND RETURN STATUS 



1 4 

JUL-191 



14 

I7-JUL-19 
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V54 
-5 



12 00 



DA 
04 



.SBTTL UNLOCK I/O DATA BASE AND RETURN STATUS 

I0CSUNLOCK - UNLOCK I/O DATA BASE AND RETURN STATUS 

THIS ROUTINE IS JUMPED TO AT THE END OF AN I/O RELATED SYSTEM SERVICE TO 
UNLOCK THE I/O DATA BASE, SET THE CURRENT PROCESSOR PHlOHlXy TO 2ER0, 
AND TO RETURN STATUS TO THE CHANGE MODE DISPATCHER. 

INPUTS: 

RO - FINAL SYSTEM SERVICE STATUS VALUE, 

OUTPUTS: 

THE I/O DATA BASE IS UNLOCKED, THE CURRENT PROCESSOR PRIORITY IS SET 
TO ZERO, AND A RETURN TO THE CHANGE MODE DISPATCHER IS EXECUTED. 



407 



IOCSUNLOCKj: 

SETIPL 

RET 



#0 
MTPR 



*0,S A *PRSJPL 



;UNL0CK I/O DATA BASE AND RETURN STATUS 
;ALL0W ALL INTERRUPTS 



ZZ-ENSAA-7.0 

10SPGD 

05-02 



VERIFY 1/0 CHANNEL NUMBER 

*** IOSPGD 
VERIFY I/O 



50 



OP 

28 

50 

00000000' 9f 

'IF 

52 50 

00000000VF42 

51 



53 02 



50 



09 
05 



50 
A1 

50 
013C 



53 
16 
55 
24 
53 
09 
00 
8F 



AA 
13 
R1 



015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
C15F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
0162 
016/* 
0166 
016B 




services for QIO 
CHANNEL NUMBER 
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409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 

4; 
4; 

430 
431 
432 
433 
434 



439 
440 
441 

442 

443 

444 
445 
446 
447 
448 
449 
450 
451 



.5BTTL VERIFY I/O CHANNEL NUMBER 

IOCSVERIFYCHAN - VERIFY I/O CHANNEL NUMBER 

THIS ROUTINE IS CALLED TO VERIFY AND TRANSLATE AN I/O CHANNEL NUMBER TO 
A CCB ADDRESS. THE CHANNEL IS CHECKED FOR ACCESSIBILITY BY THE PREVIOUS 
ACCESS MODE. 

INPUTS: 

RO = I/O CHANNEL NUMBER. 
OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO VERIFY. 

RO * SSSJVCHAN - INVALID CHANNEL NUMBER. 

RO * SS$ NOPRIV - NO PRIVILEGE TO ACCESS CHANNEL. 

R1 = ADDRESS OF CCB IF RO » SS$_NOPRIV 

RO LOW BIT SET INDICATES VERIFY SUCCESS WITH: 

R1 * ADDRESS OF CCB. 
R2 * CHANNEL INDEX. 



IOCSVERIFYCHAN:; 

B1CW #CCB$C,LENGTH«1,R0 

BEQL 10* 

CMPW R0,8*CTL$GW_CHINDX 



; VERIFY I/O CHANNEL NUMBER 

; CLEAR EXTRANEOUS LOW ORDER BITS 

;IF EQL INVALID CHANNEL 

; LEGAL CHANNEL NUMBER? 



10$: 
20 J: 



BGEQU 
MNEGL 
M0VA8 

MOVPSL 
EXT7V 

M0V2WL 

CM D ft 

BGEO 

sees 

MOVJWL 

Rse 

.END 



10$ ;IF GEQU NO 

R0.R2 .'CONVERT TO CHANNEL INDEX 

3CTL$GL^CC8BASECR23,R1 ;GET ADDR6SS OF CORRESPONDING CCB 

R3 /READ CURRENT PSL 

ffP$L$VJ>RVrtOD,#PSL$S w PRVMOD,R3,R3 .'EXTRACT PREVIOUS MODE HELD 



*SS* NOPRIV, RO 

R3,CtB$8_AM0D(R1) 

#0^0.20$ 
*S$$JVCHAN,R0 



ASSUME CALLER DOES NOT HAVE PRIVILEGE 
CALLER HAVE PRIVILEGE TO ACCESS CHANNEL? 
IF GEO NO 
INDICATE SUCCESS 
SET INVALID CHANNEL 



Z7.-ENSAA-7.0 
IOSPGD 
Symbol table 

$ST2 

ACBSB RMOD 

ACBSBlTYPE 

ACB$CJ.ENGTH 

ACBSKJ.ENGTH 

ACB$LJ*ST 

ACBSL^ASTPRM 

ACB$LJ\STQBL 

ACBSL^ASTQFL 

ACBSL.KAST 

ACBSLJMD 

ACB$W^.$IZE 

CCBS8>M0D 

CCBSB.STS 

CCB$CJ.ENGTH 

CCBIKJ.ENGTH 

CCBSL^DIRP 

CCBSLJJCB 

CCBSI^WIND 

CCBSWJOC 

COLON 

CRBSB^MASK 

CRBSB TYPE 

CRB$C W LENGTH 

CRBSK^LENGTH 

CRBSL^INTD 

CRB$LJNTD2 

CRBILJJNK 

CRBSLJJQBL 

CRBSLJJQFL 

CRB$W„REFC 

CRBSLfSIZE 

CTLSGC.CCBBASE 

CTL*GW CHINDX 

CTL$GW~NMIOCH 

DDB$8j*CPCLASS 

DD8$BJYPE 

OOB$ClLENGTH 

DDBIKJ.ENGTH 

DOBSL^ACPD 

ODBSL^DDT 

DDB$L~LINK 

DOBSL^UCB 

DDB$T„DRVNAME 

DDBST.NAME 

DDB$W„S1ZE 

IOCtCVT DEVNAM 

IOC$FFCflAN 

IOCSGL DEVLIST 

lOClSERRCHOEV 

IOCSSEARCHGEN 

IOCWJNLQCK 

IOC$VERIFYCHAN 

LOGSC NAMLENGTH 

NINE 

PC8*8_ASTACT 



Symbol table 
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00QQ0005 
00000008 
OOOQOOOA 
00000018 
00000018 
00000010 
00QQ0014 
00QQ0QQ4 
OOOQQOOO 
00000018 

oooooooc 

00QQC008 
00000009 
00000008 
00000010 
00000010 

oooooooc 

00000000 



OOOUI 



I004 
IOOA 
!3A 
IE 
)A 



x 



00U< 
Q00( 

00000014 
00000038 
00000010 
00000004 
00000000 

oooooooc 

00000008 

******v * 

******** 
******** 
00000013 
OOQOOOOA 
00000034 
00000034 
00000010 



D 

D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 

D 
D 
D 
D 

D 
D 
D 
D 
D 
D 





OOOOOOOC 



02 
02 
02 
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PCB$B,ASTEN 

PC8SB.PRI 

PC8$BlPRIB 

PC8SB.JYPE 

PC8SB WEFC 

PCBSCLENGTH 

PCBSICILENGTH 

PCB$L_ARB 

PCBSLlASTQBL 

PCB$L„ASTQFL 

PC8$L„EFC2^ 

PCBSLlEFCSi 

PC8$l~EFCS 

PCBSLlEFCU. 

PCBSLlEFWM 

PCBSL^JIB 

PCBIL^OWNER 

PC8$L„PHD 

PCBfL PHYPC3 

PCBSLlPID 

PCBIllPQB 

PC8$LlSQBL 
PCSSL^SQFL 

PC8$LlSTS 

PC8$L,UIC 

PC8SLZWSSWP 

PC8$LlWTIME 

PC8SQ.PRIV 

PC8$T^LNAME 

PCBST^TERMINAL 

PCBlWlAPTCNT 

PCB$W"ASTCNT 

PC8$WlBI0CNT 

PCBSWlBlOLM 

PCBSWlDIOCNT 

PC8$w;0I0LM 

PC8IWZGPGCMT 

PC8$W^GRP 

PC8$W>EH 

PCeiWlMTXCNT 

PCBRPPGCNT 

PC8$W~PRCCNT 

pceiw^size 

PC8$W^STATE 

PCBStTTMBU 

Pft$ lPL 

PSLl$„PRVMOD 

PSL$V~PRVMOD 

SEARCBDEV 

SEARCHUNIT 

SIZ... 

SSlJVCHAN 

SS$~IVDEVNAM 

SS$,N0I0CHAN 

SSOONLOCAL 

SSJINOPRIV 

SS$ NORMAL 



OOOOOOOD 
00000008 

!F 



C 
4 
1014 
1010 
I058 
I5C 
i50 
>54 
0000004 C 
00000078 
0000001 C 
)64 





00000028 
00O0007C 

°Q52Q968 

00000044 



02 

02 



ZZ-ENSAA-7.0 

IOSPGD 
Symbol table 

SS$ NOSUCHDEV 

SYSfFAQ 

UCA 

UCBSB^AMOD 

UCBSB^CEX 

UCB*BlCM1 

UCB$eICM2 

UCB$BJ>EVCLASS 

UCB$8J)EVTYPE 

UCB$B DIPL 

UCB$BlDX SCTCNT 

UCBSB^ERTCNT 

UCB$8lERTMAX 

UCBSBJEX 

UCBlBlFIPL 

UCBS8J.0CSRV 

UCB$B~OFFNDX 

UCRSB.OFFRTC 

UCBIB^REMSRV 

UCBS8.SE C TORS 

UCB$B_SLAVE 

UCBSB^SPR 

UCBIB^STATE 

UCB$B_TRACKS 

UC8$B_TTj:RFRL 

ucb$b:tt^decrf 

ucbsbItTdelff 

ucbsb^tt.despee 

ucb$8.jtj)etype 

ucb$b.j0.ffill 

UCBSBlTrSPEED 
UCB$8„TYPE 

ucbs8j/erts2 
ucb$Clength 
ucb$c„mbj.ength 

UCBSClTT^LENGTH 

UCBSKJ.ERGTH 

UCB$KJ1B_LENGTH 

UCBSKU LENGTH 

UCB$L>MB 

UCB$L~ASTQBL 

UC8$LJ\STQFL 

UCB$L,CPID 

UCBSLlCRB 

UC8$LJ)DB 

UCBSL^DEVCHAR 

UCBSLlOEVDEPFND 

UCBSL^DPC 

UCBSLlDUETIM 

UCBSLlDX BFPNT 

UCBSL DX.BUF 

UCB$L DX RXD8 

UCBSLlEMB 

UCBSL^FIRST 

UC8$L_FPC 

UCBSLlFQBL 

UCBSLlFOFL 



Symbol table 



*** T OSPGD services for QIO 



L 4 
27-JUL-1984 

27-JUL-19I 
1-APR-19I 
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00000908 

******** 

mm 

00000077 
0O0O0O4A 
0000004B 
00000038 
00000039 
00000052 
OO000OA6 
00000070 
00000071 
00000076 
00000008 
0000003C 
00000094 
00000095 
0000003D 

00000075 
00000052 
0000003D 
OQ0Q0Q9D 
O00000A1 
OO000OA2 
O0000OA0 



IH 



* 

!a 

I3C 

to 

:c 

00000078 

K, 

00000^04 

00000000 





D 
D 



D 
D 
D 
D 

D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 

D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 


D 



02 



UC8SL.FR3 

UC8$L„FR4 

UC8SLJ0QBL 

UC8SO0GFL 

UCB$LJRP 

UC8$L„LINK 

UCB$L_LOGADR 

UCBSLJtAXBLOCK 

UC8$L„MBJ16X 

UC8$L>B;P0RT 

ucb$l~mb;rast 

uc8$l.mb_shb 

ucbsl^mbjjast 

ucb$l;mb:wioqbl 
ucb$l~mb>ioqfl 
ucbilImePia 

UCBSLlNT DATSS8 

UCBSL^rjNTSSB 

UCBILlOPtNT 

UC8$L~0WNUJC 

UCBSL^PID 

UCBSLlRQBL 

UC8$L„RQFL 

UCBSL^SVAPTE 

UCBSLlSVPN 

ucbsl.tt.decmr 
ucb$OOdue 
ucbiljt rtimou 

UCBSLlVCB 

UC8ST~PARTNER 

UCBSW^BCNT 

UCBilOCR 

UCBSW'BOFF 

UCB$W"BUFQUO 

UCBSWZBYTESTOGO 

UCBSW^CHARGE 

UC8$W_CYLINDERS 

UCB$W~DA 

UCBSW^DC 

UCBSW^DEVBUFSIZ 

UCBSW^DEVSTS 

UCBfwlDIRSEQ 

uc8$w_d$taddr 
ucb$w„dx bcr 

UCBSWlECT 
UC8$WJC2 

ucbJwIerrcnt 

UCBSWlFUNC 
UC8$W~M8 SEED 
UCBWlMSeCNT 
UC8$W"MSGMAX 
UCeSW^NT CHAN 

ucb$w"offset 

ucbsw^refc 

ucbsw^size 

uc8$w~srcaddr 

ucbsvcsts 




00000010 
00000014 
>44 
J40 
0000004C 
OOOQQ02C 
00000064 
00000084 
0000007C 
0000008C 
00000078 
00000080 
00000074 
00QQ0Q88 
00000084 
0000008C 
00000074 
00000078 
00000060 

TO 

00000004 
00000000 
00000068 
064 

0000008C 
00000068 


C 

00000096 



8 




D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 

r 

) 
I 

D 
D 
D 



ZZ-ENSAA-7,0 
10SPGD 
Symbol table 

UCBSW^TT DE5IZE 

UCBSWJJNlT 

UCBSlTVPROT 

UC2 

UNDERSCORE 

ZERO 



Symbol table 



M 



*** IOSPGD services for QJO 



OO00OOA5 D 

00000048 D 

0000001 A D 

00000064 

0000005F 

00000030 D 
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PSECT name 



. ABS 

$ABS$ 
SEP 



Al location 

0000000™ 

OOOOOOBC 

00000192 



! Psect synopsis ! 

+«. .— «— ^* w «—*— + 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOP1C USR 
( 188.) 01 ( 1.) NOPJC USR 
( 402.) 02 ( 2.) NQPU USR 



CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
CON REL LCL SHR EXE RD WRT NOVEC LONG 



ZZ-ENSAA-7.0 

IOSPGD 

Cross reference 



Cross reference 



*** IOSPGD services for QJO 



SYMBOL 



$ST2 

CCBSBJWOD 

CCBSC.LENGTH 

COLON 

CTLSGL^CCBBASE 

CTL$GW.CHINDX 

CTLSGW NMIOCH 

DDBSLjlNK 

DDBSL.UCB 

D0B$T NAME 

DEVCTC 

iocscvt devnam 

iocsffcHan 

iocsgl devlist 

iocsseXrchdev 

iocssearchgen 

ioc$unlock 

IOClVERIFYCHAN 
LOG$C^NAMLENGTH 

NINE 

PR$ I PL 

PSL$S_PRVM0D 

PSL$V PRVM00 

SEARCfiOEV 

SEARCHUNIT 

SS$ IVCHAN 

SSSJVDEVNAM 

SS$.NOIOCHAN 

SS$ NONLOCAL 

SSS^NOPRIV 

SSS.NORMAL 

SS$ NOSUCKDEV 

SYSlFAO 

UCA 

UCB$L,DDB 

UC8$LJJNK 

UCBSWJINIT 

UCZ 

UNDERSCORE 

ZERO 



N 4 
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+ — -,— ™ — ™ — — -™+ 
I Symbol Cross Reference I 



VALUE 


DEFINITION 
181 (1) 


REFERENCES... 




00000005 


181 V 






00000009 






#-210 V 


I) #-445 


(1) 


00000010 






#-211 C 


I) #-215 


(1) #-436 (1) 


0000003A 


66 


(1) 


#-289 C 






00000000-XR 






#-210 V 


I) 441 


(1) 


00000000-XR 






#-438 C 






00000000-XR 






#-212 C 






000^ 3000 






322 C 


I) 332 


(1) #-348 (1) 


00000004 






366 C 






00000014 
00000000-R 






180 C 


I) 350 


(1) 


78 


(1) 


175 C 






00000009-R 


172 


(1) 








0000003D-R 


209 


(1) 








00000000-XR 






322 (1) 332 


(1) 


00000064-R 


250 


(1) 








00000069-R 


253 


(1) 








000001 5B-R 


401 


(1) 








000001 5F-R 


435 


(1) 








00000040 






#-256 r 
369 C 


I) #-291 


(1) #-330 (1) 


00000039 


67 


(1) 


#-294 C 






00000012 
00000002 






#-401.1 C 










#-443 C 






00000016 






#-443 C 






000001 23-R 


347 


(1) 


#-323 (* 


1 ) #-333 


(1) 


000001 3F-R 


364 


(1) 


#-328 C 


1 ) #-335 


(1) 


000001 3C 






#-448 C 






00000144 






#-314 C 






000001 B4 






#-217 C 






000008FO 






#-307 C 






00000024 






#-444 C 






00000001 






#-219 < 






00000908 






ft-357 (' 






00000000-XR 






181 r 






00000041 


68 


(1) 


#-279 (' 






00000024 






#-179 C 






0000002C 






366 V 


1) #-367 


(1) 


00000048 






#-181 (* 


1 ) #-370 


(1) 


000000<f i 


69 


(1) 


V-277 C 






0000005F 


70 


(1) 


#-2o5 ( 






00000030 


71 


(1) 


#-292 C 


I ) #-294 


(1) 



338 



0) 



ZZ-ENSAA-7.0 

IOSPGD 

Cross reference 



Cross reference 



MACRO 



SACBDEF 
SCCBDEF 
SCRBDEF 
SDDBDEF 
SDEFINI 



SDEVDEF 
SFAOS 

siplPef 

SLOGDEF 

SPCBDEF 

$PRDEF 

SPRVOEF 

SPSLDEF 

SPUSHADR 

$SSDEF 

SUCBDEF 

SETIPL 



*** IOSPGD services for QIO 



B 5 

27-JUL-1984 

27-JUL-19 

l-APR-19 
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! Macros Cross Reference ! 
+— — — - — — -+ 



SIZE 



DEFINITION 



REFERENCES.. 



2 


46 


(1) 


46 V 


















1 


47 


(1) 


47 C 


















1 


48 


(1) 


48 r 


















1 


49 


(1) 


49 C 


















1 


46 


(1) 


46 C 


) 47 


(1) 


48 


(1) 


49 


(1) 


50 


(1) 








51 C 


!) 52 


(1) 


53 


(1) 


54 


(1) 


55 


(1) 








56 (* 


) 57 


(1) 


58 


(1) 










1 


50 


(1) 


50 r 


















2 


181 


(1) 


181 (' 


















1 


51 


(1) 


51 C 


















1 


52 


(1) 


52 V 


















4 


53 


(1) 


53 <■ 


















4 


54 


(1) 


54 ( 


















4 


55 


(1) 


55 C 


















2 


56 


(1) 


56 C 


















1 


181 


(1) 


181 r 


















21 


57 


(1) 


57 ( 


















10 


58 


(1) 


58 C 


















1 


401.1 


(1) 


401.1 ( 



















+— .......... ....... .-..-+, 

! Performance indicators ! 
+ — .......... •,...„+ 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



33 
141 

781 


114 

29 

6 

V> 

1131 



00:00:00.12 
:00.79 
:14.58 
:01.51 
:02.78 
:00.22 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.03 
:00.23 
:20.28 



Elapsed Time 



00:00 

00: 

00: 

00: 

00: 

00:00 

00:0 





The working *et limit was 1000 pages. 

82323 bytes (161 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 996 non-local and 25 local symbols. 

380 source lines were read in Pass 1, producing object records in Pass 2. 

79 pages of virtual memory were used to define 25 macros. 



j 



C 5 
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VAX-11 Macro Run Statistics 1-APR-1980 10:21:26 DMA1 :[SYS0.$YSMAINTDIOSPGD.MAR;37 (1) 

+ ™-—™ ——,--«— —_—,-+ 
! Macro library statistics ! 

Macro Library name Macros defined 

0MA1 :CSYS0,SYSMA1NT]DS,MLB;218 

DMA1 :CSYS0.SYSMAINT]DIAG.MLB;953 8 

SYS$SYSR00T:CSYSL1B]LIB.MLB;1 2 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 11 

TOTALS (all libraries) 21 

1322 GETS were required to define 21 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LJST=CDS.LISJ/CROSS/ENABLE=(DEBUG,TRACE) I0SPGD/UPDA=U0SPGD.UPD, IOSPGD. ENH)+SYS$LIBRARY :LI8/LIBRARY+DMA1 :CSYS0.SYSMA 



ZZ-ENSAA-7.0 *** 

IOSRAM 

Table of contents 

48 
111 
149 
260 
310 



IOSRAM random access I/O service rou 

*** IOSRAM random access 1/0 



D 5 

27-JUL-1984 Ffche 9 Frame D5 
service rou 27*JUL-1984 15:28:44 VAX-11 Macro 



Sequence 
V03-0T 



1703 
Page 







APPLY ECC CORRECTION 

CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 

MAP VIRTUAL TO LOGICAL BLOCK 

UPDATE TRANSFER PARAME T FRS 

SENSE DISK'S SIZE FDT ROUTINE 



ZZ-ENSAA-7.0 

IOSRAM 

05-02 

V54 
V54 
V54 
V54 
-2 



*** IOSRAM random access I/O service rou 

*** IOSRAM random access I/O 



E 5 

27-JUL-1984 Fiche 9 Frame E5 Seguence 1704 

service rou 27-JUL-1984 15:28:44 VAX-11 Macro V03-01 Page 1 

1-APR-1980 10:21:32 DMA1 :CSYS0.SYSMAINT:iIOSRAM.MAR;24 (1) 



V54 
V54 
V54 
V54 
V54 
V54 
-3 



V54 
V54 



0000 


.1 




0000 


.2 




0000 


.3 




0000 


.4 




0000 


3 




0000 


4 , 




0000 


5 , 


* 


0000 


6 , 


* 


0000 


7 , 


* 


0000 


8 , 


* 


0000 


9 , 


"k 


0000 


10 


* 


0000 


11 , 


* 


0000 


12 , 


►* 


cooo 


13 , 


•* 


0000 


14 , 


»* 


0000 


15 , 


•* 


0000 


16 


* 


0000 


17 , 


• * 


0000 


18 


■* 


0000 


19 


' * 


0000 


20 


•* 


0000 


21 


•* 


0000 


22 


• * 


0000 


23 


• * 


0000 


24 


•* 


0000 


25 




0000 


26 




0000 


27 




0000 


.1 




0000 


.2 




0000 


.3 




0000 


.4 




0000 


.5 




0000 


.6 




0000 


31 




0000 


32 




0000 


33 




0000 


34 




0000 


35 




0000 


36 




0000 


.1 




0000 


.3 




0000 


37 




0000 


38 




0000 


39 




0000 


40 




88 


41 
42 




0000 


43 




0000 


44 




0000 


45 




0000 


46 





.TITLE IOSRAM *** IOSRAM random access I/O service routines 

.IDENT /05-02/ 

.LIST MEB 

.NLIST CND 

* 

* 

* 
* 

* 

* 

* 
* 

* 
* 



COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENi CORPORATION, MAYNARD, MASS, 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



ITS 



D. N. CUTLER 16-MAR-77 

MODIFIED BY T.L. SOUTTER 20-FE8-78 

ADAPTED TO DIAGNOSTIC SUPERVISOR ENVIRONMENT 



02 



Dave Butenhof K-may-1980, Version 5.4 

Modified VMS V2.0 source for Supervisor environment 



NONPAGED RANDOM ACCESS MASS STORAGE I/O RELATED ROUTINES 
MACRO LIBRARY CALLS 



SDEVDEF 

SDYNDEF 

SJPLDEF 

SIRPDEF 

SPRDEF 

SPTEDEF 

SRVTDEF 

SUCBDEF 

SVADEF 

SWC8DEF 



DEFINE DEVICE CHARACTERISTIC BITS 

DEFINE DATA STRUCTURE TYPE CODES 

DEFINE INTERRUPT PRIORITY LEVELS 

DEFINE IRP OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE PAGE TABLE ENTRY FIELDS 

DEFINE RVT OFFSETS 

DEFINE UCB OFFSETS 

DEFINE VIRTUAL ADDRESS FIELDS 

DEFINE WCB OFFSETS 



F 5 

7Z-ENSAA-7.0 *** 10SRAM random access I/O service rou 27-JUL-1984 Ffche 9 Frame F5 Sequence 1705 
IOSRAM *** IOSRAM random access I/O service rou 27-JUL-1984 15:28:44 VAX-11 Macro V03-01 Page 2 

05-02 1-APR-1980 10:21:32 DMA1 :CSYS0.SYSMAINT]IOSRAM.MAR;24 (1) 

V54 00000000 ,5 .PSECT SEP, SHR, EXE, WRT, LONG 

V54 0000 .6 



ZZ-ENSAA* 

IOSRAM 

05-02 



7.0 APPLY ECC 



CORRECTION 

*** IOSRAM random access 
APPLY ECC CORRECTION 



-1 



51 6C 

51 
51 f? 



G 5 

27-JUL-1984 Ffche 9 Frame G5 Seguence 1706 
I/O service rou 27-JUL-1984 15:28:44 VAX-11 Macro V03-OT Page 

1-APR-1980 10:21 :3? DMA1 :CSYS0.SYSMAINT]IOSRAM,MAR;24 



3 
<1) 



18 

52 0090 C5 

52 

52 F8 8F 

51 

52 Oi 

52 5i 

50 0092 C5 

50 50 51 
54 03 

6E A5 52 
47 
A5 
52 
8F 
51 

53 68 8541 

03 

FFC4 1 

64 A5 04 

51 

00 53 

15 

00O000Q0 l FF41 

51 51 07 
00 51 1F 



88 
3C 
D7 
88 

3C 
78 
DO 
61 
IE 
3C 
CO 
78 

DO 
19 

C5 

FO 



78 
£2 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



101 D 



?? ; 



3A 51 OA 



48 
49 
50 
51 

52 

53 

54 

55 

5 

5 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

6 § 
69 

70 

71 

72 

73 

74 

75 

77 

78 
79 

80 
81 



82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92. 
93 
94 
95 

96 

97 

98 

99 

100 



.SBTTL APPLY ECC CORRECTION 

I0C5APPLYECC - APPLY ECC CORRECTION 

THIS ROUTINE IS CALLED TO APPLY AN ECC CORRECTION TO DATA THAT HAS BEEN 
TRANSFERED INTO MEMORY FROM A DISK DEVICE. 



INPUTS: 



RO = NUMBER OF BYTES OF DATA THAT WERE TRANSFERED UP TO, BUT NOT 

INCLUDING, BLOCK TO BE CORRECTED (MUST BE A MULTIPLE OF 512 
BYTES) 

R5 * DEVICE UNIT UCB ADDRESS. 

UCBSU BCNTCR5) = LENGTH OF TRANSFER IN BYTES. 
UC8$W„EC1(R5) a STARTING BIT NUMBER OF ERROR BURST. 
UC8$WJC2(R5) = EXCLUSIVE OR CORRECTION PATTERN. 
UC8$L_*VAPTE(R5) « SYSTEM VIRTUAL ADDRESS OF PAGE TABLE THAT MAPS 
THE TRANSFER. 



OUTPUTS; 



THE CORRECTION PATTERN IS EXCLUSIVE OR*£D WITH THE DATA IN MEMORY 
PROVIDING THE NECESSARY CORRECTION. 



R3 IS PRESERVED ACROSS CALL. 



IOCSAPPLYECC:: 
PUSHR 

MOVZWL 

DECL 

BIC8J 



DiVL 

add:, 

MOV2'JL 

ASHL 

MOVL 

CMPW 

8GEQU 

MOVZWL 

ADDL 

ASHL 



10$; 



# A M<R3,R4> 
UlB$wJC1(R5),R2 
R2 
#«M6,R2, R1 

#8,A£ 
R0.R2 

UC8$VJC2(R5),R0 

ft1,R0TR0 

#3,R4 

R2-UCB$W„BCNT(R5) 

40i 

UCB$W_B0FF(R5),R1 

R2 R1 

#~VA$S BYTE,R1,R1 



APPLY ECC CORRECTION 

SAVE REGISTERS 

GET STARTING BIT NUMBER OF ERROR BURST 

CONVERT TO RELATIVE BIT NUMBER 

ISOLATE PATTERN SHIFT COUNT 

CALCULATE RELATIVE BYTE OFFSET IN BLOCK 

CALCULATE RELATIVE OFFSET IN BUFFER 

GET EXCLUSIVE OR CORRECTION PATTERN 

SHIFT PATTERN TO PROPER POSITION 

SET LOOP COUNT 

BYTE OFFSET WITHIN RANGE? 

IF GEQU NO 

GET BYTE OFFSET IN PAGE 

CALCULATE BYTE OFFSET OF TRANFER PTE 

CALCULATE LONGWORD OFFSET TO TRANSFER PTE 



20$; 



MOVL 
BLSS 

BSBW 
HULL3 

INSV 



SUCB$L^SVAPTE(R5)CR1],R3 ;GET TRANSFER PTE 



IF LSS VALID PTE 

CONVERT TO VALID PTE 

CALCULATE BYTE OFFSET TO SYSTEM PTE 



20$ 

IOCIPTETOPFN 

#4,UCB$L_SVPN(R5),R1 

R3,#PTE$V PFN,- ;MQVE TRANSFER PTE INTO SYSTEM PAGE TABLE 

#PTE$S..PFFUMMG$GL..SPTBASECR13 ; 



30$: 



ASHL *VA$S,BYTE-2,R1,R1 
BBSS *VA$VlSYSTEM,R1,30$ 
INVALID R1 

MTPR R1,S**PR$JBIS 



: CONVERT SVPN TO SYSTEM VIRTUAL ADDRESS 
;SET SYSTEM VIRTUAL ADDRESS BIT 
INVALIDATE TRANSLATION BUFFER 



ZZ-ENSAA-7.0 
IOSRAM 

05-02 



APPLY ECC CORRECTION 

*** IOSRAM random access 
APPLY ECC CORRECTION 



09 



52 6C A5 


C1 


0056 


101 


53 




005A 




00 53 
51 


FO 


881? 


102 


61 50 


8C 


0060 


103 


50 F8 8F 


78 


0063 


104 


50 




0067 




52 


06 


0068 


105 


B3 54 


F5 


006A 


106 


18 


BA 


006D 


107 


5A A5 01 


A8 


006F 


108 




05 


0073 


109 



40$: 



1/0 

ADDL3 

1NSV 

XORB 
ASHL 



INCL 

SOBGTR 
POPR 
BISW 
RS8 



H 5 
27-JUL-19I 
service rou I 
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UCB$W...80FF(R5),R2,R3 /CALCULATE BYTE OFFSET IN BLOCK 

R3,*VA$V_BYTE,*VA$S_BYTE,R1 /INSERT BYTE OFFSET IN BLOCK 



R0,(R1) 
#-8,R0,R0 



/CORRECT MEMORY BYTE 

/SHIFT NEXT CORRECTION BYTE INTO PLACE 



R2 /UPDATE OFFSET IN BUFFER 

R4,10$ /ANY MORE CORRECTIONS TO MAKE? 

# A M<R3,R4> -RESTORE REGISTERS 

#UCB$M..ECC,UCB$W_DEVSTS<R5> /SET ECC CORRECTION MADE 



ZZ-ENSAA-7.0 

IOSRAM 
05-02 



CONVERT LOGICAL 



BLOCK TO PHYSICAL ADDRES 
*** IOSRAM random access 
CONVERT LOGICAL BLOCK TO 



I 5 
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5 
(1) 



34 A3 

1D 5A A5 
52 



50 

02 

3C A5 

51 



50 50 52 



52 

50 50 

35 A3 

36 A3 



34 A3 

30 A5 
52 
51 
51 
50 



0074 
0074 

m 

oo ?<. 

0074 
00 74 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
DO 0074 
EO 0078 
9A 00 7D 

04 0081 
78 0083 

0087 
9A 0089 
78 0Q8D 

0091 
90 0092 
80 0096 

05 009A 



111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 

133 
139 
140 
141 
142 

143 
144 



.SBTTL CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 

IOCSCVTLOGPHY - CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 

THIS ROUTINE IS CALLED TO CONDITIONALLY CONVERT A LOGICAL BLOCK NUMBER 
TO A PHYSICAL DISK ADDRESS AND STORE THE RESULT IN THE I/O PACKET, 



INPUTS: 



RO = LOGICAL BLOCK NUMBER TO BE CONVERTED. 

R3 = I/O PACKET ADDRESS. 

R5 = DEVICE UNIT UCB ADDRESS, 



OUTPUTS: 



IF UCB$V NOCNVRT IS CLEAR IN UCB$W DEVSTS, THE LOGICAL BLOCK NUMBER 
IS CONVERTED TO A PHYSICAL DISK ADDRESS USING THE DISK GEOMETRY PARA- 
METERS IN THE UCB. THE RESULT IS STORED IN THE MEDIA ADDRESS LONGWORD 
OF THE I/O PACKET. 

IF UC8*V NOCNVRT IS SET, THE BLOCK NUMBER IS STORED IN THE MEDIA ADDRESS 
LONGWORD WITHOUT CONVERSION. 

R3 IS PRESERVED ACROSS CALL. 



IOCSCVTLOGPHY: 
MOVL 
BBS 
M0V.7BL 
CLRL 
EDIV 



145 
146 
147 10$: 



M0VZ3L 
EDIV 

MOVB 
MOVW 
RSB 



; CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 
RO,IRP$L MEDIACR3) -ASSUME NO CONVERSION 
#UCB$V N3CNVRT,UCB$W DEVSTS<R5>.10$ ;BYPASS CONVERSION IF SET 
UCR$LjEVDEPEND(R5),R2 ;GET NUMBER OF SECTORS PER TRACK 
R1 ; CLEAR HIGH PART OF DIVIDEND 

R2,R0.R0.IRPSLJ1EDIA<R3) .-CALCULATE SECTOR NUMBER AND STORE 

UCB$L.DEVDEPEND+1(R5).R2 ;GET NUMBER OF TRACKS PER CYLINDER 
R2.R0.R0.R1 .'CALCULATE TRACK AND CYLINDER 



R1,IRP$L^MEDIA+1(R3) 
RO.IRPIL MEDIA+2(R3) 



; STORE TRACK NUMBER 
.-STORE CYLINDER NUMBER 



ZZ-ENSAA-7.0 
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MAP VIRTUAL TO LOGICAL BLOCK 

*** IOSRAM random access I/O 
MAP VIRTUAL TO LOGICAL BLOCK 
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12 



OA A2 
7? 



7E 12 

12 OB A5 

1A 

53 16 A2 

18 

54 20 A2 
50 84 

13 34 A5 05 
OD 



51 
50 



F3 



84 

51 
OE 

53 
50 
',3 



91 
12 

DB 
DA 
86 

B 

EO 
1F 



3C 
C2 
1F 
D5 
F5 

11 



J 



098 
09B 
Q09B 
009B 
009B 
0098 
009B 
009B 
0098 
0098 
0098 
0098 
009B 
009B 
C09B 
0098 
0098 
0098 
009B 
009B 
0098 
009B 
0098 
009B 
0098 
009B 
0098 
0098 
0098 
0098 
0098 
009F 

K 

00A4 
00A8 

88tt 

0080 
0QB4 
0087 

oopc 

00BE 

OOBE 
00BE 
OOBE 
OOBE 
OOBE 
00C1 
0C4 

oca 

QOCO 

OOCf 

OOCF 



149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
W? 
178 
179 
180 
181 



.SBTTL MAP VIRTUAL TO LOGICAL BLOCK 

I0C$MAPV8LK - MAP VIRTUAL TO LOGICAL BLOCK 

THIS ROUTINE IS CALLED TO MAP A VIRTUAL BLOCK TO A LOGICAL BLOCK USING A 
MAPPING WINDOW. 

INPUTS: 

RO = VIRTUAL BLOCK NUMBER, 

R1 = NUMBER OF BYTES TO MAP. 

R2 = ADDRESS OF WINDOW MAPPING BLOCK. 

R5 = UCB ADDRESS OF DEVICE UNIT. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES A TOTAL MAPPING FAILURE. 

R2 = NUMBER OF UNMAPPED BYTES. 

RO LOW BIT SET INDICATES PARTIAL MAP WITH: 

ft1 * LOGICAt BLOCK NUMBER OF FIRST BLOCK. 

R2 = NUMBER OF UNMAPPED BYTES. 

R5 = UCB ADDRESS OF DEVICE UNIT (POSSIBLY MODIFIED). 

R3 IS PRESERVED ACROSS CALL. 



IOCSMAPVBLK:: 
CMPB 



:MAP VIRTUAL TO LOGICAL BLOCK 
WCB$BJYPE<R2),#DYN$C..WCB :SEE IF THIS IS REALLY A WINDOW 
BNEQ 110$ ;If NEQ NO 

10$: DSBINT UCB$B <W FIPL(R5) SYNCHRONIZE ACCESS TO SYSTEM DATABASE 

MFPR S A #PR$ IPL,-(SP) 
MTPR UCB$B JlPl (R5) ,S A #PR$ JPL 
PUSHR #*M<R1 ,R3,R4> ;SAVE REGISTERS 

M0V2WL WCB$W_NMAP(R2),R3 ;GET COUNT OF RETRIEVAL POINTERS 
BEQL 30$ .-BRANCH IF EMPTY WINDOW 

MOVAL WCB$L_STVBN(R2),R4 ;POINT TO STARTING VBN 
SUBL (R4)+,R0 SUBTRACT STARTING VBN FROM DESIRED 

BBS #DFV$V,.SQD,UCB$L..DEVCHAR(R5),40$ :IF SET, SEQUENTIAL DEVICE 
BLSSU 30$ ;BRANCH IF VBN PRECEDES WINDOW 

SCAN THE WINDOW, SUBTRACTING THt COUNT FIELD OF EACH POINTER FROM THE 
CURRENT RELATIVE BLOCK NUMBER. 



20$: 



30$: 



MOVZWL 

SUQL 

BLSSU 

TSTL 

SOBGTR 

CLRL 

BRB 



(R4)*-,R1 

R1.R0 

50i 

(R4)> 

R3,20$ 

RO 

100$ 



GET COUNT FIELD OF RETRIEVAL POINTER 
SUBTRACT rROM RELATIVE BLOCK NUMBER 
BRANCH IF V8N LOCATED IN THIS POINTER 
SKIP LBN FIELD OF POINTER 
LOOP THRU WINDOW 
VBN IS BEYOND WINDOW 
RETURN FAILURE 



ZZ-ENSAA-7.0 

10SRAM 
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MAP VIRTUAL TO LOGICAL BLOCK 

*** IOSPAM random access I/O 
MAP VIRTUAL TO LOGICAL BLOCK 
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55 



64 
35 



51 
50 



50 
84 
51 



53 
64 

6E 



53 
OB 
84 
51 
03 
53 



50 18 



50 08 



00 
51 
18 
50 
09 
52 1C A2 
55 40 A240 



6E 



6E 

6E 



00000000* 8F 
50 
1C 



DO 
11 



DD 
CO 
CO 



D7 
15 
3C 
D1 
12 
C2 



EF 

EF 

13 
DO 
DO 



BA 



OOCF 
OOCF 
OOCF 
OOCF 
OOCF 
00D2 
00D4 
00D4 
00D4 
00D4 
00D4 
00D4 
00D4 
00D4 
00D6 
00D9 
OOMC 
OODC 
OODC 
OODC 
OODC 
OODC 
OODC 
OODC 
OODC 
OODE 
OOEO 
00E3 
00E6 
00E8 
OOEB 
OOEB 
OOEB 
OOEB 
QQE8 
OOEB 
OOEB 
OOEF 
OOFO 
00F4 
F5 
?7 



241 

244 
245 
246 
^47 

!48 
149 
!50 
!51 
'52 
'53 
'54 



DEVICE IS A SEQUENTIAL DEVICE. FIRST MAPPING POINTER CONTAINS THE UCB ADDRESS 
OF THE CURRENT VOLUME THAT IS BEING PROCESSED, ALL BYTES ALWAYS MAP. 



40$: 



MOVL 
BRB 



<R4),R5 
80S 



;GET CURRENT VOLUME UCB ADDRESS 



FOUND THE RETRIEVAL POINTER CONTAINING THE STARTING VBN. RO NOW 
CONTAINS A NEGATIVE VALUE WHICH IS THE NUMBER OF BLOCKS BETWEEN 
THE STARTING VBN AND THE END OF THE POINTER. 



50$; 



PUSHL 

ADDL 

ADDL 



RO 

(R4)+,R1 

R1,R0 



;SAVE * BLOCKS MAPPED PAST START VBN 
;FIRST LBN BEYOND THIS POINTER 
; COMPUTE STARTING LBN 



; IF THE NEXT RETRIEVAL POINTER IS CONTIGUOUS WITH THE ONE FOUND, ADD 

; IN ITS COUNT TO HANDLE THE CASE WHERE A TRANSFER SPANS TWO POINTERS, 

; NOTE THAT THE GREATEST NUMBER OF CONTIGUOUS POINTERS A TRANSFER CAN 

; SPAN IS TWO. 



DECL 

BLEQ 

M0V2WL 

CMPL 

BNEQ 

SUBL 



R3 

60$ 

(R4)+,R3 

R1,(R4) 

60i 

R3,(SP) 



SEE IF THERE IS ANOTHER POINTER 

BRANCH IF NONE 

GET COUNT OF NEXT RETRIEVAL POINTER 

SEE IF THE NEXT POINTER IS CONTIGUOUS 

BRANCH IF NOT 

ADD TO # BLOCKS MAPPED (NEGATIVE) 



EXTRACT THE LBN AND RVN COMPONENTS OF THE STARTING M LBN M AND SWITCH 
TO THE RIGHT UCB IF THIS IS A MULTI-VOLUME SET. 



240 60$: EXUV #0,#24,R0,R1 



EXT2V #24,*8,R0,R0 



; EXTRACT LBN PART 
; EXTRACT RVN 



BEOL 70$ ;8RANCH IF NOT VOLUME SET 

MOVL WCB$LJW<R2),R2 ;GET RELATIVE VOLUME TABLE AODR 

MOVL RVT$L.UCBLST-4(R2)CR0],R5 ;GET THE RIGHT UCB ADDRESS 

SEE IF THE ENTIRE TRANSFER IS MAPPED CONTIGUOUSLY. 



70$: 



80$: 
90$: 



12 8E DA 



255 100$: 
256 



ASHL 
ADDL 
BGEQ 
CLRL 
MOVL 

POPR 
ENBINT 



#9.(SP),<SP) 
<§£)♦, <SP) 
90$ 
(SP) 

#SS$_NORMAL,R0 

# A M<R2,R3,R4> 

MTPR <SP) + ,S*#PR$JPL 



; CONVERT TO # BYTES MAPPED 
; SUBTRACT FROM BYTES DESIRED 
/BRANCH IF NOT TOTAL MAP 
;ZERO INDICATES COMPLETE MAP 
♦♦INDICATE SUCCESS 

;RESTORE REGISTERS 
; ALLOW INTERRUPTS 
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MAP VIRTUAL TO LOGICAL BLOCK 

*** IOSRAM random access I/O 
MAP VIRTUAL TO LOGICAL BLOCK 
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05 


0117 


257 




0118 


258 


OOOOOOPO'9F 16 


0118 




4F 4b 52 54 53 00' 


011E 




46 2C 42 43 57 54 


0124 




4C 41 54 41 


01 2A 




OF 


one 





RSB 

110$: BUG^CHECK STRNOTWCB, FATAL 
JSB MBUGSCHECK 
.ASCIC "STRNOTWCB, FATAL" 



/STRUCTURE IS NOT A WINDOW BLOCK 
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UPDATE TRANSFER 



6E A5 50 

50 F9 8F 

50 

68 A5 50 

50 04 

008C C5 50 



3C A5 

008C C5 

1E 

3C A5 

008C C5 

OOSD C5 

3D A5 

008D C5 

E6 

3D A5 

008D C5 

008E C5 

DA 



PARAMETERS 

*** IOSRAK random access I/O 

UPDATE TRANSFER PARAMETERS 
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9 
(1) 



A2 
78 

CO 
C6 
80 



91 

1A 
82 

96 
91 

1A 
82 

86 
11 
05 



01 2E 
01 2E 
012E 
012E 

012E 
012E 
0126 

012E 
01 2E 
012E 
012E 
012E 
012E 
012E 
C12E 
012E 
012E 
012E 
012E 
012E 
012E 
012E 
01 2E 
012E 
012E 
012E 
012E 
012E 
01 2E 
012E 
0132 
0136 
0137 
0138 
013E 
0143 
0143 
0143 
0143 
0143 
01 4 J 
0146 
0149 
0148 

01AE 

0151 
0155 
0158 
0158 
01 5D 
0160 
0163 
0167 
0169 



260 
261 

264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
c x 89 
200 

291 
292 
293 
294 
295 
296 
297 
298 
299 

300 

301 

302 
303 

304 

305 

306 
307 
308 



•SBTTL UPDATE TRANSFER PARAMETERS 

IOCSUPDATRANSP - UPDATE TRANSFER PARAMETERS 

THIS ROUTINE IS CALLED TO UPDATE THE TRANSFER PARAMETERS AFTER A DISK ERROR 
HAS BEEN DISCOVERED BUT GOOD DATA WAS TRANSFERED. 



INPUTS: 



RO = NUMBER OF BYTES OF DATA THAT WERE TRANSFERED (MUST BE A MULTIPLE 

OF 512 BYTES). 
R5 = DEVJCE UNIT UCB ADDRESS. 

UCB$W_BCNT(R5) = LENGTH OF TRANSFER IN BYTES. 
UCBSW DACR5) = CURRENT SECTOR AND TRACK ADDRESS. 
UCBSW DC (R5) = CURRENT CYLINDER ADDRESS. 

UCBSL SVAPTE(R5) = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE THAT MAPS 
" THE TRANSFER. 



OUTPUTS: 



THE NUMBER OF BYTES REMAINING TO BE TRANSFERED, THE SYSTEM VIRTUAL 
ADDRESS OF THE NEXT PTE, AND THE CURRENT DISK ADDRESS OF THE TRANSFER 
ARE UPDATED. 



R3 IS PRESERVED ACROSS CALL. 



IOCSUPDATRANSP:: 

SU8W R0,UCB$W BCNTCR5) 
ASHL *-7,R0,R0 

ADDL R0,UC8$L„SVAPTE(R5) 

DIVL #4,R0 

ADDB R0,UCBSW_DA(R5) 



;UPDATE TRANSFER PARAMETERS 
.•CALCULATE REMAINING BYTES TO TRANSFER 
.'CALCULATE PTE LONGWORDS TO SKIP OVER 

.'UPDATE SYSTEM VIRTUAL ADDRESS OF NEXT PTE 
.•CALCULATE NUMBER OF SECTORS TRANSFERED 
.-UPDATE SECTOR ADDRESS 



RIPPLE CARRY FROM SECTOR TO TRACK AND FROM TRACK TO CYLINDER 
10$: CMP8 UCB$LJ>EVDEPEND(A5),UCB$W 4 DA(R5> .'SECTOR OVERFLOW? 



20$: 



BGTRU 
SUB8 

INCB 
CMPB 

BGTRU 
SUB8 

INCW 

BR8 

RSB 



20$ ;IF GTRU NO 

UCBSL J>EVDEPEND<R5>,UCB$WJ>A(R5> .'SUBTRACT OUT A TRACK 

UC8SWJJA+KR5) INCREMENT TRACK ADDRESS 
UCB$LJ>EVDEPEND+1(R5),UCB$WJ>A*1(R5> ; TRACK OVERFLOW? 

10$ "IF GTRU NO 

UCBSL J>EVDEPEND*1<R5>,UC6$WJ>A+1(R5> .'SUBTRACT OUT A CYLINDER 



UCB$WJ)C(R5) 
10$ 



UPDATE CYLINDER ADDRESS 
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SENSE DISK'S SIZE FDT ROUTINE 

*** IOSRAM random 
SENSE DISK'S SIZE 



51 



0084 C5 
50 00' 
FE8B' 



DO 
3C 
31 



8 



01 6A 
01 6A 
16A 
16A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
C16A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
016A 
01 6A 
01 6A 
01 6A 
01 6A 
01 6A 
016F 
0172 
0175 
0175 



310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
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.SBTTL SENSE DISK'S SIZE FDT ROUTINE 

IOCSSENSEDISK - SENSE DISK'S SIZE FDT ROUTINE 

THIS ROUTINE IS THE STANDARD SENSEMODE/SENSECHAR FDT ROUTINE FOR 
DISK DEVICES, IT OBTAINS THE DISK'S SIZE, IN LOGICAL BLOCKS, FROM THE 
UCB (UCB*L MAXBLOCK) AND IMMEDIATELY COMPLETES THE I/O REQUEST WITH 
THE SECOND LONGWDRD OF THE FINAL I/O STATUS EQUAL TO THE DISK'S SIZE. 



10 
(1) 



INPUTS: 



RO = SCRATCH. 

R1 = SCRATCH. 

R2 = SCRATCH 

R3 a ADDRESS*OF I/O REQUEST PACKET. 

R4 * CURRENT PROCESS PCB ADDRESS. 

R5 = ASSIGNED DEVICE UCB ADDRESS. 

R6 = ADDRESS OF CCB. 

R7 = I/O FUNCTION LODE BIT NUMBER. 

R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 

R9 = SCRATCH. 

R10 = SCRATCH. 

R11 s SCRATCH 

AP - ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 



OUTPUTS: 



THE DISK'S SIZE, IN LOGICAL BLOCKS, IS OBTAINED FROM THE UCB 
AND THE I/O IS COMPLETED WITH THE SECOND I/O STATUS LONGWORD 
EQUAL T THE DISK'S Sm. 



IOC$SENSEDISK: 
MOVL 
MOVZWL 
8RW 

.END 



UCBSL MAXBLOCK(R5),R1 
S A #SS$ NORMAL, RO 
EXESFIRISHIO 



SENSE DISK'S SIZE 
GET DISK'S SIZE IN LOGICAL BLOCKS 
SET NORMAL COMPLETION STATUS 
FINISH I/O OPERATION 



ZZ-ENSAA-7.G 
10SRAM 
Symbol table 

BUGSCHECK 
DEV$V_SQD 

dynsc wcb 

exesfTnishio 

iocsapplyecc 

iocscvtlogphy 

iocsmapvblk 

iocsptetopfn 

iocssensed1sk 

iocsupdatransp 

irpsb_carc0n 

irpsb efn 

IRPSBlPRI 

WSBJWOD 

IRPSB_TYPE 

1RPSC..LENGTH 

IRP$KJ_ENGTH 

IRPSL.ARB 

IRP$L„AST 

1RPSLJVSTPRM 

IRPSL.DIAGBUF 

IRPSL^EXTEND 

IRPSLJOQBL 

IRPSLJOQFL 

IRPSlJOSB 

IRP$Lll0ST1 

IRPSLJQST2 

IRPSLJ4EDIA 

IRP$L„PID 

IRPSL„SEGVBN 

IRPSL.SEQNUM 

IRP$L_SVAPTE 

IRPSL^TT TERM 

irpsl.ucb 
irpsl.wind 
irpiq^nt prvmsk 
irpsw^abCnt 

1RP$W^BCNT 

IRP$W„BOFF 

JRPSW_CHAN 

IRPSW.FUNC 

IRPSW_OBCNT 

IRPSW.S1ZE 

1RPSW_STS 

irp$w rr pnwr 
mmgsgC sPtbase 

PR$ IPC 
PRS'TBIS 

ptejs.pfn 
ptesv_pfn 
rvt$l m ucblst 

SIZ... 

SSS NORMAL 

UCBlB^AMOD 

UC8SB.CEX 

UCBSB^CMI 

UCB$B_CM2 



Symbol table 
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******** 


X 


02 


UCB$B 


00000005 


D 




ucbsb 


0000001? 


D 




UC8$8 


******** 


X 


02 


UCBSB 


00000000 RG 


D 


02 


UCB$8 


00000074 RG 


D 


02 


UCBSB 


0000009B RG 


D 


02 


UCBSB 


******** 


X 


02 


UCBSB 


000001 6A RG 


D 


02 


UC8S8 


0QQOO12E RG 
00000038 



D 


02 


UCBSB 
UCBSB 


00000022 


D 




UCBSB 


00000023 
OOOOOOOB 


D 




UCBSB 


D 




UCBSB 


cooooooa 


D 




UCBSB 


00000Q5C 
0000005C 


D 




UCBSB 


D 




UCBSB 


00000050 


D 




UCBSB 


00000010 







UCBSB 


000000K 







UCBSB 


00000044 


D 




UCBSB 


0000004 C 


D 




UCBSB 


00001004 


D 




UCBSB 


0000 )000 


D 




UCBSB 


00OC0Q2< 


D 




UCBSB 


00000034 
00000038 


D 
D 




UCBSB 
UCBSC 


00000034 


D 




UCBSC 


OOOOOOOC 


D 




UCBSC 


00000040 


D 




UCBSK 


00000048 


D 




UCBSK 


0000002C 


D 




UCBSK 


0Q0Q0038 
0000001 C 


D 




UCBSl 


D 




UCBSL 


00000018 


D 




UCBSL 


0000003C 


D 




UCBSL 


0000003C 


D 




UCBSL 


00000032 


D 




UCBSL 


00000030 


D 




UCBSL 


00000028 







UCBSL 


00000020 


D 




UCBSL 


0000003E 


D 




UCBSL 


00000008 


D 




UCBSL 


0000002A 







UCBSL 


0000003C 







UCBSL 


******** 


X 


02 


UCBSL 


00000012 


D 




UCBSL 


0000003A 







UCBSL 


00000015 


D 




UCBSL 


00000044 


D 
D 




UCBSL 
UCBSL 


00000001 


D 




UCBSL 


******** 


X 


02 


UCBSL 


HB80 


D 
D 




UCBSL 
UCBSL 


0000004A 


D 




UCBSL 


00000048 


D 




UCBSL 



DEVCLASS 

DEVTYPE 

DIPL 

DX SCTCNT 

.ERTCNT 

ERTMAX 

t nx 

FIPL 
.LOCSRV 
OFFNDX 
OFFRTC 
REMSRV 
[SECTORS 
.SLAVE 
SPR 
[STATE 
TRACKS 

H CRFILL 
TTJ)ECRF 

tt~delff 

TrDESPEE 
TT OETYPE 
[TT^LFFJLL 
TT S©EED 
TYPE 
>ERTSZ 
LENGTH 
.M8.LENGTH 
.TT LENGTH 
LENGTH 
M8J.ENGTH 
TT~LENGTH 
AM8 
ASTQBL 
.ASTQFL 
CPID 
CRB 
DDB 

.DEVCHAR 
.DEVDEPEND 
DPC 

.DUE TIM 
DX.BFPNT 
DX.BUF 
DX RXDB 
EMS 
FIRST 
FPC 
FQBL 
FQFL 
FR3 
FR4 
J0Q8L 
JOQFL 
IRP 
[LINK 
LOGADR 



00000038 
00000039 
00000052 
000000A6 
00000070 
00000071 
00000076 
OOOOOOOB 
00QQ003C 

IK 

0000003D 
000QQ03C 
00000074 
00000075 




0000009E 
0000009C 

100090 



1001 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 




UCBSL MAXBLOC 

UCBSLJ18 MBX 

UCBSLlMBlPORT 

UCBSLlMBlRAST 

UCBSLJ1B..SHB 

UCBSLlMBlWAST 

UCBSLlMB WIOQBL 

UCBSL_MB WIOQFL 

UCBSL_MECjA 

UCBSL_NT_DAT$SB 

UCBSL.NT iNTSSB 

UC8SL_0PCnT 

UCBSl^OWNUIC 

UCBSLlPID 

UCBSLJttBL 

UCBSLlRQFL 

UCBSLlSVAPTE 

UCBSL^SVPN 

UCBSL^TT^DECHAR 

UCBSLlTTJ*DUE 

UCBSLlTrRTIMOU 

UCBSL^VCB 

UCBSMJCC 

UCBST PARTNER 

UCBSV^NOCNVRT 

UCBSW^BCNT 

UCBSW^BCR 

UCBSW.BOFF 

UCBSW^BUFQUO 

UCBSWlBYTESTOGO 

UCBSU CHARGE 

UCBSW^CYLINDERS 

UCBSW^OA 

UCBSlOC 

UCBSW~!>EVBUFSIZ 

UCBSWli 6VSTS 

UCC5W.DIRSEQ 

UCBSUfDSTADDR 

UCBSW^OX BCR 

UCBSfcCECT 

UCBSUfHC2 

UC8SWJRRCNT 

UCBSW^FUNC 

UCBSWiMB.SE ED 

UCBSWlMSGCNT 

UCBSW^MSGMAX 

UCBSW~NT CHAN 

UCBSUf OFFSET 

UCBSW_REFC 

UC8SW_SIZE 

UCBSW^SRCADDR 

UCB$W„STS 

UCBSWITT DESIZE 

ucbsw,untt 
ucbsw vprot 
vass Byte 
vasv byte 



00000084 
0000007C 
0000008C 
00000078 
00000080 
00000074 
00000088 
00000084 
0000008C 

MWt 

00000060 
0000001 C 
00000028 
00000004 
00000000 
00000068 
00000064 
0OOO0QA8 
0000Q08C 
OOOO0OB8 
00000030 
00000001 
OOOOOOOC 



= 0< 



0001 



)0i 



OOCI 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



ZZ-ENSAA-7.0 
IOSRAM 
Symbol table 

va$v system 

wcb$Bj\ccess 

wcb$b type 

WCBSClLENGTH 

WCBSC MAP 

WCB$K"LENGTH 

WCB$K_MAP 

WCBSL^FCB 

WCB$L_LBN 

WCB$L_ORGUCB 

WCBSL PI LBN 

WCBSLlP2"LBN 

WCBSL^PlC 

WCBSLlPREVLBN 

WCBSL RVT 

WCBSLlSTVBN 

WCBSL WLBL 

WCBSLJJLFL 

WCB$W_ACON 

WCBIW^COUNT 

WCB$W_NMAP 

WCB$W_P1 .COUNT 

WCBSUUP2 COUNT 

WCBSW^PREVCOUNT 

WCB$W REFCNT 

WCB$W_SIZE 



Symbol table 



0000001 F D 

O00OO00B D 

O00OO0OA D 

00000024 

00000024 D 

00000024 D 

00000024 D 

00000018 D 

00000002 D 

00000010 D 

00000026 D 

0000002C D 

OOOOOOOC D 

FFFFFFFC D 

0000001 C D 

00000020 

00000004 

00000000 D 

00000014 D 

00000000 D 

00000016 D 

00000024 D 

0000002A D 

FFFFFFFA 

OOOOOOOE 

00000008 D 



PSECT name 

. ABS • 

SABS$ 

SEP 
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Allocation 

00000000 ( 
FFFFFFFC ( 
00000175 ( 



! Psect synopsis ! 

+ — — — .^— .— ,— .— «+ 

PSECT No. Attributes 

OJ 00 ( 0.) N0P1C USR 

5.) 01 ( U N0P1C USR 

373.; 02 ( 2.) N0P1C USR 



CON ABS LCI NOSHR NOEXE NORD 
CON ABS LCL NOSHR EXE RO 
CON REL LCL SHft EXE RO 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 



ZZ-ENSAA-7,0 

IOSRAM 

Cross reference 



Cross reference 



SYMBOL 



BUG$CHECK 

DEVlV SQD 

DYN$C WCB 

EXESFTNISHIO 

IOC$APPLYECC 

10CSCVTL06PHY 

IOCSMAPVBLK 

IOCSPTETOPFN 

IOCSSENSEDISK 

IOC$UPDATRANSP 

IRPSL MEDIA 

MMG$GC SPTBASE 

PRSJPC 

PRS TBIS 

pteSs^pfn 

PTE$V PFN 

RVT$L~UCBLST 

SS$ NORMAL 

UCBlB.FIPL 

UCBSL.DEVCHAR 

UCBSL.DEVDEPEND 



UCBSL 

UCB$L. 

UC8$L. 

UCB$M. 

UCB$V. 

UCB$W. 

UCB$W, 

UCB$W. 



MAXBLOCK 

SVAPTE 

SVPN 

ECC 

'NOCNVRT 

,BCNT 

BOFF 

.DA 



UCB$WJ)C 
UCB$W_DEVSTS 
U^BSW EC1 
UCB$U EC2 
VASSjjYTE 
VA$V BYTE 
VA$V SYSTEM 
WCB$B TYPE 
WCBSLlRVT 
WCB$L_STVBN 
WCB$W_NMAP 



VALUE 

00000000-XR 

=00000005 

=00000012 
00000000-XR 
00000000-R 
00000074-R 
0000009B-R 
00000000-XR 
000001 6A-R 
000001 2E-R 
00000034 
00000000-XR 

=00000012 

=0000003A 

=00000015 

=00000000 

=00000044 
00000000-XR 
00000008 
00000034 
0000003C 

00000084 
00000068 
00000064 
=00000001 
=00000002 
0000006E 
0000006C 
0000008C 

0000008E 
0000005A 
00000090 
00000092 
=00000009 
=00000000 
=0000001 F 
0000000A 
0000001 C 
00000020 
00000016 



77 

137 
178 

342 
288 
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! Symbol Cross Reference ! 
+ — ™-^— — — — -— «. .+ 

REFERENCES... 

258 (1) 

#-187 (1) 

#-179 (1) 

#-345 (1) 



DEFINITION 



(1) 
(1) 
(1) 

(1) 
(1) 



#-94 



#-138 

97 
#-181 
#-100 
#-97 
#-96 
#-244 
#-254 
#-181 
187 
#-140 
#-305 
#-343 
#-291 
#-95 
#-108 
#-139 
#-289 
#-101 
#-293 
#-305 
#-306 
#-108 
#-79 
#-84 
#-102 
#-102 
#-99 
#-179 
#-243 
185 
#-183 



(1) 



#-142 


(1) 


#-256 


<1) 


#-344 


<1) 


#-143 


(1) 


#-92 


(1) 


#-87 
#-89 
#-299 


(1) 
(1) 
(1) 


139 


(1) 


#-91 


(1) 



#-145 



(1) 



#-146 



(1) 



#-299 



(1) 



#-301 



(1) 



#-303 



(1) 



#-301 



(1) 



#-302 



(1) #-303 



(1) 



#-98 



(1) 



ZZ-ENSAA-7.0 

IOSRAH 

Cross reference 



Cross reference 
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i Macros Cross Reference i 



MACRO 
SDEFINI 



SIZE 

r 



DEFINIT 



SDEVDEF 


1 


SDYNDEF 


2 


SIPLDEF 


1 


SIAPDEF 


4 


SPRDEF 


4 


SPTEDEF 


3 


SRVTDEF 


1 


SUCBDEF 


10 


SVADEF 


1 


SWCBDEF 


3 


BUG CHECK 


1 


DSBTNT 


1 


ENBINT 


1 


INVALID 


1 



37 

37 
38 

39 

40 

41 

42 

43 

44 

45 

46 

258 

181 

256 

100 



ON 



REFERENCES... 



1) 



37 


(1) 


42 


(1) 


37 


(1) 


38 


(1) 


39 


(1) 


40 


(1) 


41 


(1) 


42 


(1) 


43 


(1) 


44 


(1) 


45 


(1) 


46 


(1) 


258 


(1) 


181 


(1) 


256 


(1) 


100 


(1) 



38 
43 



(1) 
(1) 



39 
44 



<1) 



40 
45 



(1) 
(1) 



41 
46 



(1) 
(1) 



+ + 

! Performance Indicators ! 

+ m • + 



Phase 



Page faults 


CPU Time 


Elapsed T ime 


33 


00:00:00.13 


00:00:00.49 


134 


00:00:00.75 


00:00:02.01 


700 


00:00:11.81 


00:00:17.44 





00:00:00.72 


00:00:01.63 


92 
17 


00:00:02.12 
00:00:00.17 


00:00:02.90 
00:00:00.44 


6 


00:00:00.02 


00:00:00.02 
00:00:00.41 


22 


00:00:00.22 


1008 


00:00:15.95 


00:00:25.36 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

65201 bytes (128 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 583 non-local and 18 local symbols. 

362 source lines were read in Pass 1, producing object records in Pass 2. 

88 pages of virtual memory were used to define 23 macros. 
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VAX-11 Macro Run Statistics 1-APR-1980 10:21:32 DMA1 :CSYS0.SYSMAINT;3IOSRAM.MAR;24 (1) 

! Macro Library statistics ! 

Macro library name Macros defined 

DMA1 :CSYS0.SYSMAINT]DS,MLB;218 1 

DMA1 :CSYS0.SYSMA1MT]DIAG.MLB;953 6 

SYS$SYSROOT:CSYSLI83LIB.MLB;1 6 

SYSSSYSROOT:CSYSLIB]STARLET.ML8;2 6 

TOTALS (all Libraries) 19 

877 GETS were required to define 19 macros. 

There were no errors, warnings or information messages. 

MACRO/N0OBJECT/LIST=CDS.LJS3/CR0SS/ENABLE = (DE8UG, TRACE) I0SRAM/UPDA=< IOSRAM. UPD, IOSRAM, ENH)+SYS$LIBRARY:LIB/LI8RARY+DMA1 :CSYS0.SYSMA 



ZZ-ENSAA-7,0 * 


KERNEL 




Table of 


contents 


(1) 


450 


(1) 


496 


(1) 


561 


(1) 


580 


(1) 


712 


(5) 


733 


(5) 


805 


(5) 


1010 


(5) 


1311 


(6) 


H79 


(6) 


1605 


(6) 


1652 


(6) 


1806 


(6) 


1855 


(6) 


1910 


(6) 


1976 


(6) 


2056 


(8) 


2130 



KERNEL Main control routine 

*** KERNEL Main control routine 
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Sequence 
V03-0T 



1719 
Page 







Libraries and Macros 

Equated Symbols 

Data Psect Declarations 

Work Psect Declarations 

Data Psect Declarations 

SHELL OF STAND ALONE SUPERVISOR MEMORY . 

DIAGNOSTIC SUPERVISOR BOOTSTRAP ROUTINE, 

USEP KERNEL ROUTINE 

COMMON KERNEL REFRESH ENTRY POINT. 

INIT CONTEXT Initialize process context 

CONTROL-C AST HANDLER 

KEYBOARD CHECK ROUTINE 

DSXSCNTRLC Program enable for Control-C intercept 

DSVSEXIT, Process EXIT command 

EXITSHANDLR Process EXIT handler 

DSR$CheckJ1enuTest_0ff..Set Routine 

DSRSCheck AutoTest.Of f Set Routine 

DSXSGETTERM Get User Terminal Characteristics 



t*71 



ZZ-ENSAA-7.0 

KERNEL 

07-9? 



+** KERNEL Main 



control routine 
*** KERNEL Main 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



control routine 



•Title 
.Ident 
.NoShow 
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KERNEL *** KERNEL Main control routine 

/07-97/ 

Conditionals 



++ 



Copyright 
DIGITAL 



(c) 1977, 1983. 1984 
EQUIPMENT CORPORATION, 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO CHANGE WITHOUT NOTICE 
A COMMITMENT BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



25 
26 

V 
28 
29 

s 



34 
35 
36 
37 
38 
39 
40 
41 

4 2 

43 
44 
45 
46 
47 
48 
49 
50 



++ 
Facility: 

VAX Diagnostic Supervisor* 

Abstract: 

This module contains the main control routines for the VAX 
Diagnostic Supervisor. 

Environment; 

Not applicable. 
Author; 

Ken Chapman 
Date: 

26-0ct~77 
Version: 

Version OK 
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control routine 




*** KERNEL 


Ham ( 


:ontrol routin 


0000 


52 . 




0000 


53 , 


Modified By: 


0000 
0000 


54 , 


01 


55 , 




0000 


56 , 




0000 


57 , 


02 


0000 


58 , 




0000 


59 , 




0000 


60 , 


03 


0000 


61 , 




0000 


62 , 




0000 


63 , 


04 


0000 


64 , 




0000 


65 




0000 


66 , 


05 


0000 


67 , 




0000 


68 , 




0000 


69 , 


; 06 


0000 


70 , 




0000 


71 , 




0000 


71 , 


! 0? 


0000 


73 , 




0000 


74 




0000 


75 , 


; 08 


0000 


76 , 




0000 


77 , 




0000 


78 , 




0000 


79 


09 


0000 


80 , 


10 


0000 


81 


11 


0000 


82 




0000 


83 , 


! 12 


0000 


84 




0000 


85 




0000 


» 




0000 




0000 


88 


I 13 


0000 


89 


; 14 


0000 


90 




0000 


91 




0000 


92 




0000 


93 


! 15 


0000 


94 




0000 


95 




0000 


96 




0000 


97 


! 16 


0000 


98 




0000 


99 




0000 


100 


• 17 


0000 


101 
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- Nick Howgate, 15-nov-1977, Version 02. 
APT INTERFACE UPDATES. 

- Tom Soutter, 21-nov-1977, Version 03. 
0SPR #14 DEFAULT FLAG SETTING. 

- Ken Chapman, 06-dec-1977, Version 04. 
REMOVED MEMORY MAPS. 

- Ken Chapman, 06-dec-1977, Version 04. 
DSPR HI MODIFIED A C BREAK TO CLI. 

- Nick Howgate, 19-dec-1977, Version 05. 

MADE AX..BUFF, USTKPTR, SSTKPTR, ESTKPTR GLOBAL FOR MEMMGT, 

- Nick Howgate, 19-dec-1977, Version 05. 
MADE ALL STACKS 2 PAGES. 

- Nick Howgate, 30-Dec-1977, Version 06 (ESSAA-3.06). 
DELETE SYMBOL DS$GLJ>ASSES 

- Nick Howgate, 06-Feb-1978, Version 07 (ESSAA-4,00). 
INCLUDE QIO SUPPORT 

• Tom Soutter, Q3-Mar-1978 

ADDED SOFTWARE PCB FOR AST HANDLING 

FIXED SOME BUGS IN PCB SETUP CODE 

DEFINED DIAGNOSTIC PID, SET UP SAME IN SOFTWARE PCB 

- Ken Chapman- 23-Mar-1978, Version 08 (ESSAA-4.01). 
ADDED BUFFER INIT CODE. 

REMOVED MOVC5 AND LDPCTX INSTRUCTIONS. 

- Tom Soutter, 30-Mar-1978 

ADDED CODE TO INITIALIZE THE SYSTEM TIMER 
REMOVED STACK BUFFER PAGES, REDUCED USER STACK TO ONE 
PAGE AND OVER-MAPPED THE SUPERVISOR & EXECUTIVE STACKS 
ONTO THE USER STACK 

- Nick Howgate, 18-May-1978, Version 09 (ESSAA-4.02). 
PLACE IPL LEVEL AT 1F AT SYSTEM START UP 

LOWER IPL LEVEL ONLY AFTER SOFTWARE INITIALIZATION 

- Nick Howgate, 09~Jun-1978, Version 10 (ESSAA-4.03). 
FIX APT *C PROBLEM 

- Nick Howgate- H-Jun-1978 

CLEAR EVENTS FLAGS AT SUPERVISOR START 
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control routine 
*** KERNEL Main 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ooco 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



control routine 



18 
19 

20 

21 

22 

23 

24 

25 
26 
27 

2B 
29 

30 
31 

32 



27- 
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- Roger Riggs, 10-Aug-1978 

Revised basic progrsm loop 

Fix for changed position of year in DS$GT_NFWYEAR 

Added separate allocations for USER, EXEC, and SUPER stacks 

Added call to INISPTABLE to initialize P-table list at 

supervisor start. 

Added code to Auto configure/ATTACH the default load device 

when loaded with DIAGBOOT, 

Added process exit handler to execute use cleanup and 

deallocate device allocated by select. 



- Roger Riggs, 31-Aug-1979 

Added initial VDT breakpoint and saved VMB boot fl 



ags 



- Roger Riggs, 21-Jan-1980, Version 5.2 

Addea code to always prompt APT on start, also copy 
processor type code to EXfc$GB_CPUTYPE 

- David R. Butenhof, 06-feb-1980 

Routine INJT^CONTEXT should force AST delivery enable, 

- John Ciukaj, 25-Jan-1980, Version 5.2 

Added location BOOTSL.DEVTYP to be loaded from RPBSB.DEVTYP. 

- Roger Riggs, 12-Mar-1980 

Clear DS$G8JW„ENB on START 10000, as well as memory managment 

- Roger Riggs, 24-Mar-1980 

Added code to verify that system identification register 

agrees with current supervisor. 

Added code to type message and exit if SYSSINPUT is not 

a terminal or a mailbox. Fix for SPR#1 1-28511 - 

Later fix will use RMS for SYSSINPUT I/O in user/node. 

- Dave Butenhof, -Mar-1980 

Add RMS setup in usermode, to allow supervisor execution 

via VMS command file/batch. 

Fix CTLSGL CCBBASE label define to point to a pointer 

longword. And fix order of arguments to PRINT on SID 

mis-match. 

- Roger Riggs, 21-May-1980, Version 5.4 

Changed order of stacks to allow for memory protection 
when MM is on 
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- Roger Riggs, 19-Jun-1980, Version 6.0 

*GL_PS 
Added JIB 



Moved I0C$6L PSFL/BL to Entry 



- Dave Butenhof, 28-aug-1980, Version 6,0 

Add call to RMSSINIT in standalone initialization to 
clear RMS file table, 

- Roger Riggs, 08-SepM980, Version 6.0 

Added code to set and restore on exit the default directory 
and disk. 

Move translation of load device name to DEF$Q,DEV on 
usemode entry 
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- Roger Riggs, 17-Oct-1980 

Made reference to EXESGG.SYSTIME L* offset. 
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- Dave Butenhof, 17-oct-1980, version 6,1 

Add new argument to DSXSCNTRLC; DISABL — if low 

disables control C handling, if clear, enables 

KB_CHECK ignores control C flag if handling is 

Also, if user control C routine return failure 

Supervisor will proceed to handle the control C 

itself. 

Add label BEGIN 8LISS (same as BEGIN) for BLISS routines 

use after INIT_cONTEXT, since BEGIN is reserved word. 



bit is set, 
it. Also 
disabled, 
code, the 
normally 



to 
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- Dave Butenhof, 18- feb-1981 , version 6.3 
Delete use of SEP psect. 

- Dave Butenhof, 16-mar-1981 f version 6.3 

Fix A C handling; move flag clears to make user status=0 
return work under APT. 

- Dave Butenhof, 23-mar-l981, version 6.3 
Expand Exec/Supervisor stack to 3 pages each. 
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- Jack Stansburv, 21-0ct-1981, Version 6.5 
Added calls to QASMAJN for the QA enhancement. 
Also added .LIBRARY statements for $DS and SDIAG. 
Also changed one of the error messages to lower case. 
Also fixed some truncation errors, 

- Jack Stansbury, 10-Nov-1981, Version 6.5 
Changed ALL W A to L\ 

* Dave Butenhof, 12*N0V*1981 , version 6.5 
Add OSSGB^TYPECODE for f SET BINARY 1 function. 

- Dave Butenhof, 13-Nov»1981 , version 6.5 
Implement EXIT command (DSVSEXIT), it will do an 
SEXIT in user mode* or a HALT in standalone; after 
doing program cleanup, etc. 

- Jack Stansbury, 21*Nov*1981, Version 6.5 

Commented out several calls to QA.MAIN because it appears as 
though they will not be needed for the 6.5 DS version. 
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- Dave Butenhof, H-Dec-1981, version 6.6 

Modify startup to use SGETSYI call in usermode, to get 
the actual processor SID into DSA$GL_SID. 

- Dave Butenhof, 29~Dec~1981, version 6.6 

Add locations to store error counts for HARD, SOFT, DEVICE, 
SYSTEM, and SOFTWARE (ERR3UP) errors. 



- Jack Stansbury, 10-Feb-1982, Version 6.6X 
Added another Control-C handler for the DS to use. 



This is for 



QA to trap control-c's, but 
DS-integrated facility. See 



can be used by any other 

the KB_Check routine for the code. 



- Dave Butenhof, 09~Mar-1982, version 6.6 
Add support for rooted systems. When booted from DIAGBOOT, 
startup code will do * SET LOAD* command on the filespec in the 
RPBSTjlLE field. 
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- Dave Butenhof, 26-Mar~1982, version 6.7 
fix rooted system directory support.. .redefine SYSSDISK when 
translating SYSSSYSROOT. SYS$SYSR00T:[SYS0 f SYSMAiNT3 don't 
Added SYS$LIBRARY;LIB. 

Marlon Baggett, 31-Mar-1982, Version 6.7 
Added SYS$tlBRARY:LIB 

Marion Baggett, 2~Apr-1982, Version 6.7 

Added DS$6L„PREPERR_C0UNT field to count device preparation errors. 

Marion Baggett, 5-Apr-1982, Version 6.7 
Changed $DS_PRINT to SPRINT macros. 

Marion Baggett, 7-Apr-1982, Version 6.7 
Added $DS_TYPEDEF to define type codes. 

Dave Butenhof, 08-Apr-1982, version 6.7 
Fix truncation error. 

Jack Stansbury, 9-Apr-1982, Version 6.7 

Added $CRD Library statement. Added support for the 

Customer Runnable Diagnostic package. 

Dave Butenhof, 13-Apr-1982, version 6.7 

Add setup of DSSGBJNHIBIT NAMING, to enable/disable 

generic name enforcement* (Set in APT mode). 
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Dave Butenhof, 17-Msy-1982, version 6.8 

Fix size of Kernel stack (make it larqer to minimize trouble). 

Dave Butenhof, 21~May-1982 f version 6.8 
Automatically attach console device at startup, to make 
RMS and DIRECTORY a bit simpler (no special case for device 
without Ptable). 

Jack Stansbury, 7-June-1982, Version 6.8 
Added code in DSVSExit routine that will not allow the user 
to Continue (console command) once a HALT instruction has been 
executed - only if CRD-AutoTest bits are set in the R5 passed 
to the DS. 



Jack Stansbury, 9-Jun~1982, Version 6.8 
Added code in the DSVSExit routine that will allow output 
pertinent CRD variables when a CRD-Internal error occurs, 
is indicated by CRD changing the byte in its own dispatch 
area (D$$GA_CRD_Starting_Ad3ress +1) to be one more than 
value of its dispatch vectors + 2 byte. That is, CRD will 
the "positive version number" in its dispatch vector area 
it detects a internal 



of 

This 

vector 

the absolu 

increment 

by one whe 



it detects a internal error. CRD will then put the values of a 
select number of pertinent variables into its own dispatch vector 
area. DSVSExit will print these out when the user types a console 
Continue command. 

Marion Baggett, 9-June-1982, Version 6,8 

Increase the size of the interupt stack to 4 pages so the 

Vax Architecture exerciser will run. 

Richard Brown, 15-June-82, Version 6.8 

Addition of IMAGE_HEADER, which is a buffer to hold the 

image header of a diagnostic file, if the file was linked 

with a header. The header is used by the debugger. 



Jack Stansbury, 28-June-1982, Version 6.8 

Disabled A C's in stand-alone initialization code so that CRD will 
have a chance to set up a A C handler. This takes care of the 
problem of *C's being typed while DIAGBOOT is running, and then 
having the DS see the *C before CRD is loaded in (thus causing the 
DS> prompt to appear without the DS_Start message being printed). 
*C*s are re-enabled in the Begin_0 code. 
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Richard Brown, 16-July**82, Version 6.9 

Addition of code in JNIT_C0NTEXT to see if the T-bit is set 
in the PSL and if so to set it in the new PSL. This is so 
that if the debugger has set the T-bit, it will not be cleared 
out when the context is initialized. 

Jack Stansbury, 24-guly-1982, Version 6.9 

Added two new routine that return a 1 in R0 iff the correct bits are 

set in BootSL R5 for CRD_AutoTest and for CRD_MenuTest. Used thes6 
routines in the BeginO part. 

Jack Stansbury, 27-July-1982, Version 6,9 

Added another *C handler for the VDS. This allows CRD Menu Test to 
let the User handle a A C if the user has established a handler 
routine; but at the same time, if this user routine returns failure 
meaning they did not want to handle it, let the "third" handler (VDS 
second handler) have it. Leave DS$Cli as the last chance handler. 

Jack Stansbury, 8-September-K82, Version 6.9 

Made some changes to the DSVSExit routine for CRD Menu Test. Also 
made a few changes to the routines mentioned in 69 above - they were 
looking at the wrong bits. 



Jack Stansbury, 15~September-1982, Version 6.9 
Cleared out the three A C handler addresses in the 
initialization code. 



VDS stand-alone 



Jack Stansbury, September 15, 1982, Version 6.9 

Made the DS$L„UserCntrlc longword global, for use by the CLI routine 

Jack Stansbury, September 23, 1982, Version 6.9 

Added a print statement to be printed if the CRD initialization fail 

Jack Stansbury, September 24, 1982, Version 6.9 

Added code to check to see if both CRD bits were set in the R5 passe 

to the VDS from Diagboot* If so, print an error message and exit. 

Jack Stansbury, September 28, 1982, Version 6.9 
Added code to take care of the following: Start up the VDS. Type CRD 
Hit A P while CRD is running - get back to "W console prompt. Type 
S 10000 - get a DS> prompt. Type CRD again, but the CRD image is 
already loaded. This was causing a halt at PC * 00000001. So, the 
solution is to call the Unload^CRD routine when the bits are set in 
the DSA flags longword when the Supervisor is being inited (it is 
normally imted without any of the CRD bits being set). 

Bob Bergazzi 7-0ct-82 Version 6.9 

Changed the way system service vectors are handled; after we copy 
the VMS system service vectors to 10200 (in order to get the 
correct word mask), modify each entry point to immediately JMP 
to the corresponding entry point in the real system service vector 
tabl$ at 80000xxx. This solves the problem of code in the system 
service vectors which branches around outside of the three pages 
which we were copying before. 



Bob Bergazzi 24-Nov-82 



Version 6.10 
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Added a call to load the PCS on startup (DS$_LOADPCS_S> 

Jack Stansbury, 4~Mar-83, Version 6.11 

Changed the code in the DSRSCheck routines (for CRD) - they must 

check the DSA bits while online, not the 8oot$L_R5 longword. 

John Ciukaj, 2-Apr.-1983 Version 6.11 

- Changed code that referenced CRD bits in DSA Flags. 
The Bits were redefined to distinguish between 
online and offline. 

- Changed name of DSR$Check_. .. routines to distinguish 
between Online and Offline. 

Bob Bergazzi 8-Apr-1983 Version 6.11 

Made on-line mode start up with terminal width set to 80, 

Bob Bergazzi 25-Apri 1-1983 Version 6.11 

During boot of ESSAA, we must determine if this is 780 or a 

785, and if it is a 785, then we need to change 

the clock overhead factor (DSSGKJJSOVR) in the WAITUS routine. 

This is done by referencing the symbol DSXSWAITUS.U^OVR which 

addresses the beginning of the instruction which iir.es the 

overhead factor, and modifying the instruction. This is done 

in order to avoid adding more instructions to the DSXSWAITUS 

routine which would change the value of the DSSGK^USOVR for 

existing processors. 



Bob Bergazzi 
Increased SC8 
SCB module. 



25-Apri 1-1983 
size to 4 pages 



Version 6.11 
for XXX. Related 



changes in 



John Ciukaj 29-Apr-83 version 6.11 

13-May-83 
DSRSCheck.. routines: check bot-h DSA Flags and RPB 
regardless of Standalone or Online. 

Bob Bergazzi May 16,1983 Version 6.11 
Changed the order of the .LIB statements. 

M.Baggett May 16, 1983 Version 6.11 
Get RPB$L^B00TR2 field from RPB. 

Richard Brown June 22, 1983 Version 6.12 
Added code to fetch user terminal characteristics 
and store them in SDSGL^TERMCHAR so the new service 
SDS^GETTERM can pass them to a diagnostic. 

Added new system service SDSJSEUERM^ which returns 
the characteristics of the user terminal. 

Bob Bergazzi Sep 22. 1983 Version 6.13 

Added a SCANTIM if a *C is typed to cancel a SSETIMR 

which may have been done at program start for the 

/TIME switch. 

Commented out for version 6.13 and 6.14, and 7.0 

Bob Bergazzi 11-11-83 Version 6.14 
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Clear the DS$M„CTRLC and DS$M_CTRLO flags before we call 
a control-c handler. This fixes the problem of terminal 
output in a A C handler being suppressed in S/A. 

Bob Bergazzi 12-28-83 Version 6.14 
The definition of JIB$L_ARB in the JIB was removed from VMS V4, 
so define it to its old offset value (the space in the JIB is 
still there). 

Bob Bergazzi 2-14-84 Version 6.14 

Moved the code which builds ptables for the console load device 

and the boot device into the CONFIG module, called by 

JSB INISL0AD..DEVICE. This was done so that SET MEM could call it. 

Richard Brown May 14, 1984 Version 7.0 
Added display of legal statement on startup. 

M. Baggett May-17-1984 Version 7.0 
Allow word length unit to be save in RPB. 

Bob Bergazzi May 18, 1984 Version 7.0 

Made legal display not print out when running under APT. 

Bob Bergazzi June 19, 1984 Version 7,0 

Also, do not display legal message when CRD is running. 

R.E. Muse July 13, 1984 Version 7.0 
Search order bit mask added to STRNL0G system service, 
SYSSDISK is now search for in the system logical name 
table exclusively. 

R.E. Muse 19 July 1984 version 7.0 

logical translation for SYSSSYSROQT added and SYS$0ISK 

removed. Now default directory is "CsysO.sysmaintJ. 
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.SubtitL* 

INCLUDE FILES: 

.Library 
.Library 
.Library 
.Library 

WEAK EXTERNALS 



Libraries and Macros 



/SYS$LIBRARY:LI8/ 

/SCRD/ 

/IDS/ 

/SDIAG/ 



CRD-specific definitions 



[54] 
[593 
[44] 
[44] 



.WEAK XDELBPT,XDELTBIT 



EQUATED SYMBOLS: 



SS$ NORMALS 

$DS DSDEF 
IOC$KJ>lAGPlD « DS$K.SUBSYSai6 

$DSJ>SADEF 

$DS HP0DEF 

SCCBDEF 

SARBDEF 

SPHDDEF 

$DIBDEF 

SDEVDEF 

SPCBDEF 

SJIBDEF 



SPRDEF 

SPSLDEF 

SSHRDEF 

SSYIDEF 

$DS SCBDEF 

CLlPEF 

CMKDEF 

DSFDEF 

ENVDEF 

SRPBDEF 

DSQA 

SDS TYPEDEF 

SCRDLiterals 



JIB5L.ARB = 



SUCCESS 

SHOULD PRECEDE M IOC$K DIAGPID" 

i- 1 AGNOSTIC PROCESS 1.5. 

P-table offsets 



; Define device type codes 



; This was removed from VMS v4.0 



; Define shareable status codes 
; Define SYI codes 

; Define CLI data base offsets 



Define offsets in RPB 
QA routine name constants 
Define type codes 
Define the CRD literals 



[903 

[49] 
[523 



[443 
[573 
[593 
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KERNEL 
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Equated Symbols 



*** KERNEL Main 
Equated Symbols 



0000000F 



00000000 



00003000 

00000200 
OOOOF800 

OOOOOOOD 
0000000A 



00000098 
00000018 
0000002C 
00000020 
00000050 
00000010 
00000050 
00000030 
00000030 

00000040 



0000263C 
00000800 

naps 

00000800 
00006 



8 



00005E3C 



OOOOOOOF 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0,000 

c:oo 

0000 
0000 
0000 
0000 
0000 

w 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
50? 
508 
509 
510 

51 1 

512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 

525 
526 
52? 

528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
54? 
548 
549 
550 
551 
552 



control routine 
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.Subtitle 
RPB$V_AutoTest = 15 

RPBSVJIenuTest = 



Equated Symbols 



; The AutoTest bit in R5 - take this outC59I) 

; when the bit gets defined in SRPBDEF L'593 

; in Lfb.Mlb* C593 

; The MenuTest bit in R5 - tkae this outC693 

; when (and if) the bit gets defined in C69] 

; SRpbDef in Lib.MLb. C693 



DSASM.DFLTFL6S « DSA$M_0PER i DSASM.PROMPT 



DS$A PRG8GN 
DS$KlPR6SI2 

CR 
LF 



== A X200 

== A X?A00 - DS$A_PRGBGN 

= 13 
= 10 



INITIAL FREE-CORE REQUEST SIZE 



UCBSSIZE 
DDBSSIZE 
CRBSSIZE 
IDB$SIZE 
IRPSSIZE 
CCBSSIZE 
VCBSSIZE 
WCBSSIZE 
FCBSSIZE 

SGNICJRPCNT 

SGNSC.NPAGEDYN 



A X98 
A X18 
A X2C 
A X20 
A X50 
A X10 
A X50 
A X30 
A X30 



OB.SIZ 
DL^SIZ 
DMlSIZ 
DR.SIZ 
TM.SiZ 
XF^SIZ 




*X1000 



64 

<UCB$SIZE*24> 

+<DD8$SIZE*5> 

+<CRB$SIZE*3> 

♦<IDB$SIZE*5> 

+<IRP$SIZE*SGN$CJRPCNT>- 

+<CCB$SIZE*16> 

+<VCB$SIZE*2> 

+<WCB$SIZE*2> 

+<FCB$SIZE*2> 

Si2e of 
Size of 
Si2e of 
Size of 
Size of 
Size of 



24 UCB'S 
5 DDB'S 
3 CRB'S 
5 IDB'S 
IRP'S 
16 CCB'S 
2 VCB'S 
2 WCB'S 
2 FCB'S 
DBDRIVER 
DLDRIVER 
DMDRIVER 
DRDRIVER 
TMORIVER 
XFDRIVER 



QIO$MINCORE==SGN$CJIPAGEDYN + <DB_SIZ+DL_SIZ+DM..SIZ+DR..SIZ+TM_SIZ+XF_SIZ> 

♦ 

; ALLOCATION GRANULARITY MASK 



MASK 



= *XF 



STARLET VECTOR LOCAL DEFINITION OVERRIDES DS STARLET SERVICE VECTOR, 



ZZ-ENSAA-7.0 

KERNEL 

07-97 



ed Symbols 








»** 


KERNEL 


da in 


control routine 


Equated Symbols 






0000 


553 


• 




0000 


551 




800000C8 


0000 


555 


SYSSCRETVA 


800000F0 


0000 


556 


SYSSDXIEXH 


80000110 


0000 


55? 


SYSSDELTVA 


80000208 


0000 


558 


SYSSSETEXV 


80000230 


0000 


559 


SYSSSETPRT 
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*X800000C8 
A X800000FO 
*X80000110 
A X8000C208 
A X80000230 
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KERNEL 

07-9? 



Data Psect Declarations 

*** KERNEL Main control routine 
Data Psect Declarations 
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44 49 20 6D 65 74 73 79 53 
79 74 20 72 65 74 73 69 67 
78 65 20 2C 42 55 21 20 3D 
2F 21 42 55 21 20 64 65 74 



4E 49 20 52 4F 52 52 45 20 

52 43 20 47 4E 49 54 52 41 

43 45 52 52 4F 43 4E 49 20 

2F 21 54 45 53 20 53 54 49 



58 41 56 5F 21 5F 21 2? 21 

20 43 49 54 53 4F 4E 47 41 

45 52 41 57 54 

50 4F 52 50 5F 21 5F 21 5F 

46 4F 20 59 

49 44 20 20 20 20 20 20 5F 

4D 50 49 55 51 45 20 4C 41 

54 41 52 4F 50 5? 4F 43 20 



2A 2A 
41 49 
49 52 

75 41 

6C 6E 
74 20 
69 52 
4C 20 



20 20 
54 4E 
50 4 C 

20 65 
4F 20 
74 6E 
20 64 
65 73 
2F 21 



20 20 
45 44 
52 50 
2A 2A 
73 55 
64 65 
61 75 
69 6C 
55 2D 
2? 21 



5F 21 2f 
49 46 4E 
20 44 4E 
2A 59 52 
2F 21 21 
7A o9 12 
73 12 75 
61 56 20 
6F 74 2D 
65 73 6E 



07 07 
65 12 
20 65 
63 65 



3F 3F 
54 53 
2D 20 
42 20 



2F 21 

49 44 
46 4F 
21 2? 
54 52 
21 2? 
54 49 
54 4E 
4E 4F 
21 2f 
4F 43 
41 20 
41 54 
21 2F 
6F 68 

50 20 
61 20 
74 68 
65 63 



0000 

00000000 

0000 

0000 

0000 

0000 

0000 

00 • 0000 

20 000C 

70 0018 

70 0024 

2F 0000 

0030 

0030 

00* 0030 

20 003C 

44 0048 
54 0054 
2F 0030 

0060 

0060 

00' 0060 

20 006C 
53 0078 

21 0080 

45 008C 
21 0093 
47 009F 
45 OOAB 
49 O0B7 
21 OOBA 
2A 00C6 
4C 00D2 
45 OODE 
21 00E6 
74 OOF 2 
79 OOFE 
6F 010A 
67 0116 
69 0122 
CB 0060 



.Subtitle Data Psect Declarations 
.PSECT DATA, SHR, NOEXE, NCWRT, BYTE 



561 
562 
563 
564 
565 
566 

567 T WRONGCPU: 

568 .ASCJC <7><7> M System ID register type = JUB, expected !UB!/ M 



Read only data 



C44D 



569 

570 T^Both.CRD.Bits^Set: 

571 .Ascic M ?? ERROR IN STARTING CRD - INCORRECT BITS SET!/" 



572 

573 DS$6T LEGAL: 

574 .ASCJC "l/l/lj VAX DIAGNOSTIC SOFTWARE" - 



C75] 
C75D 



575 

576 

577 
578 



C92D 
C92] 



T92] 
C92D 



"I'LL ! .PROPERTY OF" - 

"!/!_ DIGITAL EQUIPMENT CORPORATION' 1 - 

"!/!/!_ ^^CONFIDENTIAL AND PROPRIETARY***' 1 - 



"!/!/i/Use Authorized Only Pursuant to a Valid Right-to-Use License! 
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Work Psect Declarations 

*** KERNEL 
Work Psect 

012C 
00000000 
0000 
0000 
0000 
0050 
0050 
0050 
0094 
0094 
0094 
00E4 
C0E4 
00E4 
0128 
0128 
0128 

OOOCOOOO 0128 
012C 
012C 

00000000 012C 
0130 
0130 

00000000 0130 
0134 
0134 

00000000 0134 
00000A64' 0138 

00000001 01 3C 
00000144 1 0140 
00000000 0144 
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0000014C 
00000174 
000001 9C 
0000039C 



0148 
0148 
014C 
014C 
0174 
0174 
019C 
019C 
039C 



.Subtitle Work Psect Declarations 
.PSECT WORK, NOSHR, NOEXE, WRT, LONG 



580 
581 
582 

583 DSSFABJNPUT:: 

584 $FAB 
585 

586 DS$RA8 INPUT:: 

587 " $RA8 
588 

589 DSSFA8.0UTPUT:: 

590 $FAB 
591 

592 DS$RABJ)UTPUT:i 

593 $RA8 
594 
595 

596 DS$GA_DS_Ctrl C First:: 

597 .Long "0 
598 

599 DS$GAJ)S^Ctrl^C_Second:: 

600 .Long 
601 

602 DS$L_UserCntrlC:: 

603 .Long 
604 

605 EXJTSDES8LK: 

606 .LONG 

607 .ADDRESS 

608 .LONG 1 

609 .ADDRESS 

610 10$: .LONG 
611 

612 SAVEFP: .BLKL 
613 

614 DS$AT_DD1R: 
615 

616 DSSAT.DDEV: 
617 
618 IMAGE.KEADER:: 



FAC=GET, FNA=SYS$IN?HJT+1, FNS=9 
F/B=DS$FABJNPUT, ROP-CVT 
FAC=PUT, FNA=SYS$0U.TUT+1, FNS=10, FOP=CIF 
FAB=DS$FA8_0UTPUT, ROP=CCO 



1 

.BLKW 
.BLKW 



619 IMAGE.HEADER.END:: 



.BLKB 



EXITSHANDLR 
10$ 

20 
20 



Address of 1st DS Control-C Handler 
No handler by default. 

Address of 2nd DS Control-C handler 
No handler by default. 

Address of user Control-C handler 

DESCRIPTOR OF EXIT HANDLER 

FORWARD LINK 

ADDRESS OF EXIT HANDLER 

ONE PARAMETER 

ADDRESS TO STORE EXIT REASON 

INITIAL CONTENTS OF FP 

Saved default directory 

Saved default device 

Storage for diagnostic's image header 
End or buffer. 



C70] 
C51] 

C703 
[703 

C73] 



ZZ-ENSAA-7.0 

KERNEL 

07-97 



Work Psect 



QO00OO4O 
0000079C 
0000079C • 

0O0QO2E4' 



Declarations 

*** KERNEL 
Work Psect 



039C 
039C 
039C 
039C 
039C 
039C 
039C 
039C 
079C 
079C 
079C 
07A0 
07AO 
07A0 
07A0 
07A4 
07A4 
07A4 
07A4 
07A4 
07A4 
07A4 
07A4 
07A8 
07A8 
07A8 
07AC 
07B4 
078C 
07C4 
07CC 
07D4 
07D4 
07D8 
07DC 
0?E A 
07E4 
07E8 
07EC 
07EC 
07EC 
07F0 
07F4 



0O0007A4 1 



QQ0QQ7A4 ' 
000007AC , 000007AC 
00000784' 000007B4' 
00000780*00000780 f 
000007C4 , 000007C4 I 
000007CC , 000007CC i 

00000708 
000007DC 
OO00O7E0 
000007E4 
OO00O7E8 
CO00O7EC 



000007FO 

000007F4 

. 000007F8 



Main control 
Declarations 



routine 



N 7 

27-JUL-1984 



7-JUL-1984 
3-JUL-1984 



Mche 9 Frame N7 



15: 
16: 



19:11 

!3:20 



_ _ . Sequence 1739 
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621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 

648 
649 
650 
651 
652 
653 
654 
655 
656 
o57 
658 
659 
660 
661 
662 
663 



; PERMANENT CCB DATA BASE 

6s$K_CCB == 64 

CTL$GL_CCB:: 

,BLKB DS$K_CCB * CCB$C_LENGTH 



; NUMBER OF CCB'S 



CTL$GL_CC88ASE:: 
.ADDRESS 



CTL$GL_CCBBASE 



SCHSGL CURPCB:: ; And Incidentally the current PC8 address 
DSSGL^PCBVEC:: ; List of PCB's (indexed) (DS has only 1) 
.ADDRESS DS$AX_S0FTPC8 ; Address of software PC8 



FORK QUEUE LJSTHEADS 



•ALIGN 
SWI$GL,FQFL:: 
A: .LONG 

SWISGL FOBL:: 
.LONG 



2$ 

3$ 
4$ 
5$ 
6$ 



.LONG 
.LONG 
.LONG 
.LONG 
.LONG 



BOOT^L.ADP: 
BOOT$L„CSR: 
BOOTSL UNIT 

B00T$LJ*2:: 
BootSLJo:: 

BOOTSLlDEVTYP:- 

DSSGQJFL: 
DSSGL.EFCO 
DS$GL„EFC1 
DS$GA l.ASTADR: 



QUAD 
A 



A 

2$,2S 
3$, 3$ 

4$.4$ 
5$, 5$ 
6$, 6$ 

.8LKL 
.BLKL 
.BLKL 
.BLKL 
.BLKL 
.BLKL 



.BLKL 
.BLKL 
.BLKL 



FORWARD LINK 
JPL-6 I.ISTHEAD 

BACKWARD LINK 

IPL-7 LISTHEAD 
IPL-8 LISTHEAD 
IPL-9 LISTHEAD 
IPL-10 LISTHEAD 
IPL-11 LJSTHEAD 

Address of BOOT adapter [91] 

Address of BOOT device csr C91] 

Unit number of Boot device [913 

CI port station to boot from [863C91] 

R5 with switches from VMB/DIAGBOOT [71] 

device type of BOOT media: [91] 

0=massbus,1=RK06/07,2=-U01/02 

EVENT FLAGS, LOGICAL. 

EVENT FLAG CLUSTER 0. 

EVENT FLAG CLUSTER 1. 

LAST ADDRESS USED BY SUPERVISOR. 
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Work Psect Declarations 

*** KERNEL Main control routine 
Work Psect Declarations 



O0O00Q0F 

00000200 
00000080 

000007FC 
000007FE 
00000800 
00000804 

00000808 

0000080C 

00000810 

00000814 

00000818 

0000081 C 
00000820 
00000824 
00000828 
0000082C 
00000830 
00000834 
00000838 
0000Q83C 
00000840 
00000844 
00000848 

000O084C 
00000850 
00000851 
00000852 

00000853 
00000862 
00000A62 
00000AE2 
00000AEA 



07F8 
07F8 
07F8 
07F8 
07F8 
07F8 
07F8 
07F8 
07F8 
07FC 
07FE 
0800 
0804 
0804 
C808 
0808 
080C 
080 C 
0810 
0810 
0814 
0814 
0818 
0818 
081 C 
0820 
0824 
0828 



665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 

6 §fc 
687 

690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 

V>1 
7Qj 

704 

705 

706 

707 

708 

709 

710 
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DYNAMIC EXECUTIVE STORAGE. 



DS$KJ\SCIBUF 

DS$K_BUFSI2 

DSSK^STRBUF 



« 15 

=* 512 
=* 128 



DS^GL^FLAGS:: .BUI 
OSSGW TTIN;: .BLKW 
DS$GW_TTOUT;; .BLKW 
DSSGL ERRCNT:: .BLKL 
DSSGL^HARDERR. COUNT:: 

.BLKL 
DSSGL PREPERR„COUNT:: 

•BLKL 
DSSGLJOFTERR^COUNTi: 

.BLKL 
DS$GL OEVERR COUNT:: 

* .BLKL 
DS$GL_SYSERR„COUNT:: 

-BLKL 
DS$GL_ERRSUP„COUNT:: 

.BLKL 
DS$GL,NUMTEST:: .BLKL 
DSSGL^FSTTEST:: .BLKL 
DSSGL^LSTTEST: : .BLKL 
DSIGL^SUBTEST:: .BLKL 
DSSGA CHKLPPC*; .BLKL 
DS$GA_LOOPADR:: .BLKL 
DSIGL..RUNTIM:: .BLKL 
DSSGL^TIMESEC:: .BLKL 
DS$GL_WAITIM:: .BLKL 
DS$6LJ*ADJX:: .BLKL 
DSSGLlSIZE:: .BLKL 

DSSGQ BUFQWD:: 
DSIGu^BUFLEN:: .BLKL 
DSIGA^BUFPTR:: ,3LKL 
DS$G8:BYTE8UF:: .BLK8 
DS$GB,JYPECODE::.BLKB 
DSSGBJNHI8ITJIAMING:: 

BlkB 
OSSGf.ASCJBUF:: '.BLKB 
DSSGT^BUFFER:.* .BLKB 
DSSGT.STRBUF:: .BLKB 
DS$GL_T£RMCHAR::.BLKQ 



1 

DS$K, 

DS$K. 

DS$K, 

1 



; SUPERVISOR INTERNAL rLAGS 

RUNNING ERROR COUNT. 

Summary of Hard Errors 

Summary of Device Peparation Errors 

Summary of Soft Errors 

Summary of Device Errors 

Summary of System Errors 

Summary of ErrSup Errors 
NUMBER OF TESTS IN PROGRAM, 
FIRST TEST TO EXECUTE 
LAST TEST TO EXLCUTE 
SUBTEST NUMBER FOR LOOPING. 
ADDR OF CURRENT 'CHKLOOP' CALL 
ADDRESS OF CURRENT SUBTEST 
LOCATION TO HOLD ELAPSED RUN TIME 
CONVERTED RUN TIME IN SECONDS 
NUMBER OF MICROSECONDS TO DELAY 
DEFAULT RADIX. 
UEFAULT DATA SIZE. 
BUFFER QUADWORD DESCRIPTOR. 
LENGTH OF CURRENT BUFFER CONTENTS. 
POINTS TO CURRENT POSITION 
ONE BYTE BUFFER FOR CHK K.B. 
Type code for •SET BINARY* output 

; Flag byte for ATTACH 

♦ 

.ASCJBUF ; 15 BYTES FOR NUMERICAL ASCII 
.BUFSIZ ,- INPUT-OUTPUT BUFFe'R 
.STRBUf ; COUNTED ASCII SIRING BUFFER 
; Characteristics of user terminal 



[50] 
[50] 
[55] 
C553 
C50D 
C50D 
[50] 
[50] 
[50] 
[50] 
[50] 
[50] 



[46] 

60] 

.oO] 



[87] 
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Data Psect 



Declarations 

*** KERNEL 

Data Psect 



Main control 
Declarations 



routine 



C 8 

27-JUL-1984 



7-JUL-1984 
'3-JUL-1984 



F f che 9 Frame C8 



15:29:11 
16:23:20 



Sequence 1741 
VAX-11 Macro V03-0T Page 22 
DMA1jCSYS0.SYSMAINT3KERNEL.MAR;262<1) 



OAEA 
000001 2C 
012C 
012C 
0133 
00000000*00000000' 0133 

013B 
01 3B 
01 48 



712 
713 
714 
715 
716 
717 
718 
719 
720 



.Subtitle Data Psect Declarations 
.PSECT DATA, SHR, NOEXE, NCWRT, BYTE 



MODNAM KERNEL 
SYSVEC: .LONG DS$AQ_SVSSRV. DSSAQ.SSEND 
SSPROT; SCRETVA INADR=SYSVEC 



SYSTEM SERVICE VECTORS. 
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01 48 722 SYSS1NPUT: 



E 8 
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54 55 50 4E 49 24 53 59 53 00' 014B 724 .ASCJC "SYSSINPUT" 

09 014B 

0155 725 SYSSOUTPUT: 

54 55 50 54 55 4F 24 53 59 53 00* 0155 726 .ASCJC "SYSSOUTPUT" 

0A 0155 

0160 111 

0000FE00 0000FE00 0160 728 SUP8UF; .LONG DSASAL APTMAIL,DSA$AL APTMAJL ; APT MAILBOX AREA 



F 8 
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0168 730 
0000F9FF 00000200 0168 731 PRGBUF: .LONG DS$A_PRGBGN,DS$A..PRCBGN+DS$KJ>RGSIZ-1 ; PROGRAM OVERLAY AREA 
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G 8 
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0170 

00000000 

0000 

0000 

00000000 0000 

0000 

0000 

0000 

0000 

00000000 0000 

00000078 0000 

00000200 0000 

0000 

0000 

cooo 

0000 

0000 

00000200 0000 

0000026C 0000 

oooo 

0000 

oooo 
oooo 
oooo 

000002E4 0000 

oooo 
oooo 
oooo 
oooo 
oooo 

00000400 oooo 

oooo 
oooo 
oooo 
oooo 
oooo 

00000400 oooo 

ooooocoo oooo 
ooooocoo oooo 

00001400 oooo 

oooo 
oooo 
oooo 
oooc 

00" 
00 



00001400 
00001600 

0O002A0O 
00002A00 



733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
/49 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 

772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 



.SBTTL SHELL OF STAND ALONE SUPERVISOR MEMORY. 
.PSECT .LAST, PAGE 

AX.BUFF:: 

$$$ = . 

; PROCESS CONTROL BLOCK (HARDWARE PCB). 



PHD BASE == $S$ 
PCB.8ASE == $$$+PHD$L_PCB 
$$$ = $$$ + 512 



; 1 Page for PHD 



; Job Information Block and Access Rights Block 



DS$AX.JI6 
DS$AXJ\R8 



== $$$ 

== $$$ + JIBSC LENGTH 



PROCESS CONTROL BLOCK (SOFTWARE PCB). 
DS$AX_S0FTPC8 == $$$ + JJB$C_LENGTH ♦ ARB$C_LENGTN 
; PROCESS CONTROL BLOCK (SOFTWARE PCB), 

$$$ = $$$ + 512 ; 1 Page for JIB, ARB. and PCB 

SYSTEM CONTROL BLOCK (SCB). 



SCB„BASE s= $S$ 

$$$ = $$$ + <4*512> 

SCB.UNKINT==:$$$ 

$$$ = $$$ + <4*512> 



STACK AREAS. 



; MAX 4 pages for SCB 

; MAX 4 pages for unexpected handlers 



C833 



Stacks are ordered so that when a mode overflows it's stack 
it will get an access violation because the stack below it 
is protected by memory management. The Interrupt stack is 
above the kernel stack so that kernel stack overflows will not 
fall into the interrupt stack. The pages below the kernel stack 
are NO ACCESS. See MEMMGT for setup. 



STACK BASE == $$$ 

$$$ r $$$ + <1*512> 

$$$ = %%% + <10*512> 
KSTKPTR == $$$ 



; 1 pages for no-access 
; 10 pages for KERNEL stack 



C613 
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0000 


790 


00003200 


0000 
0000 


791 $$$ = $$$ + <4*512> 


00003200 


792 ISTKPTR ~ $$$ 




0000 


793 


00003800 


0000 


794 $$$ = $$$ + <3*512> 


00003800 


0000 


795 ESTKPTR == $$$ 




0000 


796 


00OO3E0O 


0000 


797 $$$ = f%% + <3*512> 


000O3E0O 


0000 


798 SSTKPTR =* $$$ 




0000 


799 


00004400 


0000 


800 $$$ = $$$ + <3*512> 


00004400 


0000 


801 USTKPTR == $$$ 




0000 


802 


00004400 


0000 


803 P0PT.8ASE == $$$ 



4 pages for INTERRUPT stack 

3 pages for EXECUTIVE stack 

3 pages for SUPERVISOR stack 

3 pages for USER stack 



£653 
£433 

C43D 
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DIAGNOSTIC SUPERVISOR BOOTSTRAP ROUTINE. 

*** KERNEL Main control routine 
DIAGNOSTIC SUPERVISOR BOOTSTRAP 



0000 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 

838 
839 
840 
841 



.S8TTL 
.PSECT 



«► + 
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DIAGNOSTIC SUPERVISOR BOOTSTRAP ROUTINE. 
CODE, EXE, NOWRT, SHR, LONG 



FUNCTIONAL DESCRIPTION: 

INITIAL SETUP ROUTINE FOR STAND ALONE VERSIONS OF THE DIAGNOSTIC 
SUPERVISOR. 

CALLING SEQUENCE: 

NONE 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

Plenty! 
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DIAGNOSTIC SUPERVISOR BOOTSTRAP ROUTINE. 

*** KERNEL Main control routine 
DIAGNOSTIC SUPERVISOR BOOTSTRAP 



J 8 
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0000 


843 ; + 












0000 


844 ; Normal Diaqn 










0000 


845 ;- 












0000 


846 












0000 


847 BOOT:: 








12 1F 


DA 


0000 


848 


MTPR 


5E 


00003200 '8F 


DO 


0003 


849 


MOVL 






52 50 


DO 


000A 


850 


MOVL 




50 


01 06 


78 


000D 


851 


ASHL 


51 


OOOOFEOO'EF 


DE 


0011 


852 


MOVAL 






81 


7C 


0018 


853 10$: 


CLRQ 






FB 50 


F5 


001A 


854 


SOBGTR 


OOOOFEOO'EF 


00003000 8F 


C8 


001 D 


855 


BISL2 










0028 


856 






000007DA I EF 


D5 


0028 


857 


TSTL 






67 


12 


002E 


858 


BNEQ 






50 3E 


DB 


0030 


859 


MFPR 






52 50 


D1 


0033 


860 


CMPL 






5F 


12 


0036 


861 


BNEQ 


O00007D4'EF 


5C AB 


DO 


0038 


862 


MOVL 


000007D8'EF 


54 AB 


DO 


0040 


863 


MOVL 


000007DCEF 


64 AB 


3C 


0048 


864 


MOVZWL 


000007EO , EF 


24 AF; 


DO 


0050 


US 


MOVL 


O00007E4'EF 


30 AB 


DO 


0058 


866 


MOVL 


000007E8 , EF 


66 AB 


9A 


0060 


867 


MOVZBL 










0068 


868 






5A 


68 AB 


9E 


0068 


869 


MovAB 






59 8A 


9A 


006C 
006F 


870 


MovZBL 






26 


13 


871 


BEql 






50 6A 


9A 


0071 


872 


MovZBL 






50 02 


80 


0074 


873 


AddB2 




6A 


59 50 


3A 


0077 


874 


LocC 






1A 


13 


0078 


875 


BEql 




50 


51 5A 


C3 


007D 


876 


SubL3 






50 


D6 


0081 


877 


IncL 






51 5A 


DO 


0083 


878 


MovL 


52 


00000000' EF 


DE 


0086 


879 


MovAl 




08 


A2 50 


7D 


008D 


880 


MovQ 




00000000' EF 


16 


0091 


881 


Jsb 










0097 


8S2 30$: 





Diagnostic Supervisor (in stand-alone mode) entry from START 10000 



*31,*PR$ IPL 

#istkptr7 sp 

R0,R2 

#9-3, #1, RO 

DSASAL APTMAIL, R1 

(R1) + 

RO, 10$ 

#DSA$MJ)FLTFLGS, DSA$GL_FLAGS 

BOOT$L_ADP 

30$ 

#PR$ SID,R0 

R0,R2 

30$ 

RPB$LJ\DPPHY (R1 1 ) , L A BOOT$L ADP 

RPB$L_CSRPHY(R11),L A B00T$L CSR 

RPB$W.UNIT(R11),L A BOOT$L URN 

RPB*L_B00TR2(R11),L A B00T$LJ*2 

RPB$L_B00TR5(R11) ,L A B00T$L R5 

RPB$8 DEVTYP(R11), - 

L A BOOT$L^DEVTYP 

RPB$T„FiTe<R11), R10 

(R10)+, R9 

30$ 

(R10), RO 

#2, RO 

RO. R9, (R10) 

30$ 

RIO, R1, RO 

RO 

RIO R1 

L A Ds$GL CliBase, R2 

RO, ClifCLFile(R2> 

L A Dsv$SetCoad 



RAISE IPL TO 1F 

INITIALIZE INTERRUPT STACK 

Save Flag 

PAGE OF QUADWORDS COUNT. 

START OF APT MAILBOX, ETC. 

CLEAR IT. 

UNTIL END. 

SET DEFAULT FLAGS. 

Check one-shot flag 
Branch if shot 
Get SID register 
Entered from DIAGBOOT? 
Branch if not 
Save adapter address 
Save device csr address 
Save boot unit number 
Save CJ port number 
Save flags from boot 

Save device type from boot 
point to ASCIC file name 
get length/address in R9/R10 
Don't bother if nothing ther 
Get first character of name 
Make 3 or > for end of dir. 
Search for end of directory 
Exit if not found 
Compute length of the 
.. file name string 
Get address of string 
Point to CLI data base 
Set it up for SET LOAD 
And do the SET LOAD command 



re 



[933 
C863 



[523 
[523 
[523 
[5*3 
[523 
C52D 
[523 
C523 
[523 
[523 
[523 
[523 
[583 
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30 



12 1F DA 

5E 0000320O'8F DO 

5D D4 

OOOOFEH'EF 3E DB 

OOOOOOOO'EF 0000FE17 v EF 90 

000007F8 , EF 00000082 8F DO 

00000840' EF 10 DO 

11 00000000' 8F DA 

10 00000078* 8F DA 



50 OOOOOOOO'EF DE 

80 7C 

00004400'8F 50 D1 

F5 19 



50 00000000'8F 


DO 


1E 


13 


51 OOOOOOOO'EF 


DE 


28 A1 60 


DE 


2C A1 OOOOOOOO'EF 


9E 


03 000007E4'EF 02 


E1 


00F2 


30 



00000128'EF D4 
0000012CEF D4 
00000130'EF D4 



50 


50 00'8F 

0000FE17'EF 

15 



0097 
0097 
0097 
0097 
0097 
009A 
009A 
00A1 
00A3 
OOAA 
0OB5 
00B5 
OOCO 
OOCO 
00C7 
OOCE 
00D5 
00D5 
00D5 
00D5 
OODC 
OODE 
00E5 
00E7 
00E7 
00E7 
00E7 
00E7 
OOEE 
OOFO 
OOF 7 
OOFB 
0103 
01 OB 
010E 
010E 
01 OE 
010E 
010E 
010E 
01 OE 
010E 
0119 
0119 
011F 
0125 
01 2B 
01 2B 




0138 
0138 
014D 
014D 



884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 

930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 



; APT ENTRY POINT FROM START 10004 

APT:: 

MTPR #31,#PR$JPL 

MOVL #ISTKPTR,SP 

CLRL FP 

MFPR #PR$ SID,DSA$GL_SID 

MOVB DSAS5L_SIDt3, - 

EXE$GB CPUTYPE 
MOVL *DS$M tMDFLG ! DS$M_LODFLG, 

L A D5$GL FLAGS 
MOVL #16, L A DSlGL RADIX 
MTPR #SCB IMAGE, *PR$ SCBB 

MTPR fPCBlBASE, #PR$.PCB8 

* 

; CLEAR ALL BUFFER AREAS. 

MOVAL AX BUFF, RO 

10$: CLRQ (RD)4 

CMPL RO, *P0PT„BASE 

BLSS 10$ 



SYSTEM CONTROL BLOCK INITIALIZATION. 

MOVL #XDELTBIT,RO 

BEQL 20$ 

MOVAL SCB IMAGE, R1 

MOVAL (R07,SCB$LTBIT(R1> 

MOVAB XDELBPT,SCB$L^BREAK(R1) 

BBC #RPB$V INIBPT ,800T$L.R5 , 20$ 

BSBW INISBRR 
20$: 



RAISE IPL TO HOLD OFF 

ANY INTERRUPTS 

SET INTERRUPT STACK 

NO PREVIOUS STACK FRAME 

SID SAVED IN FULL 

Load processor type for BOOTDRIVR 
SET COMMAND AND LOAD MODE FLAGS. 

SET UP DEFAULT RADIX. 
SYSTEM CONTROL BLOCK BASE. 
PROCESS CONTROL BLOCK BASE. 



START OF BUFFERS. 
CLEAR IT, 
CHECK FOR ENOUGH. 
LOOP TIL DONE. 



Get address of Tbit handler 

Branch if no XDELTA linked 

Point to SCBB 

Set tbit vector 

Set breakpoint vector 

Branch if no initial breakpoint 

Initial XDELTA breakpoint 



Disable recognition of A C's for the duration of this stand-alone 
initialization. Note that the KB.Check routine MUST NOT be called before 
this is executed!!!! ! 



$DS - .CntrlC,S Disable 



Set Disable flag 



C66D 
[663 
C663 



C663 



ClrL 
Ctrl 
ClrL 



L A DS$GAJ)S„Ctrl CJMrst 
L A DS$GA J)S„Ctrl C ..Second 
L A DS$L.OserCntrTC 



Clear the 
Clear the 
Clear the 



VDS's 1st 
VDS's 2nd 
User's A C 



A C 

A C 



routineC72: 

routineC723 

handler C72] 



Check correct processor type for this supervisor 



M0VZ8L #<DS$GK SIDa-24>,R0 
CMP8 DSA$GLjlD+3,R0 
BEQL 30$ 

$PRJNTI_$ T WRQNGCPU, - 
DSA$GL^SlD+3,R0 

Do CPU specific stuff 



; Get expected value for type 

; Same as current? 

; Branch if so 

; No, inform the operator 
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01 0000FE17*EF 91 

OF 12 

07 OOOOFEH'EF 17 E1 

00000009 I EF 3F DO 



OOOOOOOO'EF 16 

OOOOOOOO'EF 6E FA 

00000000' EF 7C 

00000008'EF 7C 

38 00 DA 

OOOOOOOO'EF 94 



00000007 ■ E F OOOOOOOF ' E F DO 

OOOOOOOO'EF 0000'8F 3C 
00000004 'EF OOOOOOOO'EF DE 



OOOOOOOO'EF 



00000000' E c 
OOOOOOOO'EF 
OOOOOOOO'EF 



OOOOOOOO'EF 
0000073B f EF 
OOOOOOOO'EF 



7D 
16 
16 



16 
16 
16 



OOOOOOOO'EF 00 F0 



OHO 
OHD 

0154 
0154 
0158 
015D 
0165 
016C 
01 6C 
0173 
0173 
0173 
0173 
0173 
0173 
0179 
0179 
0180 
0186 
01 8C 
01 8F 
0195 
0195 
0195 
0195 
0195 
0195 
0195 
0195 
0195 
0195 
01A0 
01A0 
01A9 
0184 
0184 
01C7 
01D2 
01D8 
01DE 
01DE 
01DE 
01DE 
01DE 
01E4 
01E4 
01EA 
01EA 
O1F0 
01F0 
01F0 
O1F0 
01F0 
01F7 
01F7 
01F7 
01F7 



941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 

968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 



• 

•50$; $DS„LOADrcS_S 



Load PCS if COMET has a PCS C7Q3 



CMP8 DSASGL SID+3, 01 ; Is it STAR or SUPERSTAR? £821 

BNEQ 33$ ; No C823 

BBC #23, DSA$GL_SID, 33$ ; Yes, If STAR, branch C823 

MOVL # A X0000003F, DSX$WAITUS_US0VR+9 ; SUPERSTAR, change DS$K_USOVR in WA 



33$: SDSJNITSCBJj 

; MEMORY MANAGEMENT INITIALIZATION. 

« 

J SB L'MAPMEM 

CALLG (SP),QIO$INITIALIZE 

CLRQ L A DS$oL^BUFCNT 

CLRQ L A DS$GL BUFCNT+8 

MTPR #0, #PRI MAPEN 

CLRB DS$G8.MMIEN8 

; INITIALIZE PROCESS CONTROL BLOCK. 



Initialize SCB 



; Map physical memory 

; SETUP QIO DATABASE 

; INIT BUFFER COUNTS, PO + 

; SYS AND (UNUSED). 

Memory' management not enabled 



P1 



INITIALIZE EXESGQ^SYSTIME (SYSTEM DATE/TIME QUADWORD) 
MOVL 



L A DS$GQ DAYTIM+15, - 

L A DS$5T NEWYEAR+7 
MOVZWL #DS$K NYSlZ, L A DS$GQ CURYEAR 
MOVAL L A DS$GT NEWYEAR, - 

L A DS$BO CURYEAR+4 
$BINTIM_S L A DS$GO PJRYEAR, L A DS$GQ CURYEAR 
MOVQ L A DS$GQ D'^EAR, EXE$6Q_SYSTlME ; PRIME 



GET YEAR FROM LINK DATE 
BUILD A STRING DESCRIPTOR 



JSB L A CLK$RE INIT 

JSB L A DSR$SETlMRJNI 

PUSHL #0 

CALLS #1,L A DSX$CNTRLC 

JS8 L A INI$PTABLE 

JS8 L A INIT.CONTEXT 

JSB L A INI$LOAD.DEVICE 

Si2e the console terminal. 

CALLS #0,SIZE.JERM 



SYSTIME WITH THIS YEAR 
INIT INTERVAL TIMER AND CLOCK 
INIT THE TIMER QUEUE'S 

CLEAR CONTROL-C HANDLER 



[663 
C663 



; Clear P-table pointers 

; Initialize Context.... 

; Make ptables for console and [913 
; boot devices [91] 

C87] 

[87] 



; Initialize RMS file control block pointer table (RMSSFILEJABLE) 
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DIAGNOSTIC SUPERVISOR BOOTSTRAP ROUTINE. 

*** KERNEL Main control routine 
DIAGNOSTIC SUPERVISOR BOOTSTRAP 



QQOOOOOO'EF 
03DC 



00000000' 8F 
02 
F4 



16 
31 



03 
05 

D5 
13 
10 
02 



01F7 
01FD 
0200 
0200 
0200 
0201 
020? 

0*02 
0208 
020A 
020C 



998 JS8 


L A RMS$INIT 


999 BRW 


BEGINO 


1000 




1001 INISBRK:: 




1002 BPT 




1003 RSB 




1004 DS$S0FTJPL5:: 




1005 TSTL 


#XDELBPT 


1006 BEQL 


10$ 


1007 BSBB 


INISBRK 


1008 10$: RE! 
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; Call initialization routine 



; Known XDELTA breakpoint 

; Return 

; XDELTA present? 

; Branch if not 

; Take XDELTA breakpoint 

; Return from IPL 5 
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USEP KERNEL ROUTINE 

*** KERNEL Main control routine 
USEP KERNEL ROUTINE 
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020D 


1010 


0000020D 


1011 


020D 


1012 


020D 


1013 


020D 


1014 


0200 


1C15 


020D 


1016 


020D 


1017 


020D 


1018 


020D 


1019 


020D 


1020 


020D 


1021 


020D 


1022 


020D 


1023 


C20D 


1024 


020D 


1025 


020D 


1026 


020D 


1027 


020D 


1028 


020D 


1029 


020D 


1030 


020D 


1031 


020D 


1032 


020D 


1033 



.SBTTL USEP KERNEL ROUTINE 
.PSEQT CODE, SHR. EXli. N0WR7, BYTE 
++ 

FUNCTIONAL DESCRIPTION: 

Entry from command mode, perform usermode only initialization. 
CALLING SEQUENCE: 

CALLS *0,DS$USERMODE 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 



ZZ-ENSAA-7.0 
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USEP KERNEL ROUTINE 

*** KERNEL Main control 
USEP KERNEL ROUTINE 



routine 
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OFFC 
000007F8 , EF DA 



6D 00000000'EF DE 



SOOOOOOO'EF 0000 ( 8F 28 
00000000'EF 



FFEA 51 



50 80000002 8F 

51 00000000'EF 

02 A1 9F17 8F 
04 A1 50 

50 OE 

10 A1 9F17 8F 

12 A1 50 



51 1A 

50 01 

61 9F1? Zy 

02 A1 50 

50 08 

00000000 *8F 



08 
50 



OOOOOHB'EF 
02C7 

06 50 
00000353 I EF 



000007FCEF 



;? 



51 
71 
71 
OC 
6E 



5E 50 

IF 

48 52 OE 

42 50 

32 50 
22 50 

\2 50 

00000?F8^F 16 



DO 
DE 

BO 
DO 

CO 
BO 
DO 

CO 
CO 
BO 
DO 
CO 
F1 

9E 
30 
E8 
17 

BO 
D5 
7? 

DD 
7B 

E9 
BA 
E1 

E9 

E9 

E9 

E9 
E3 



020D 
020F 
0215 
0226 
0237 
024A 
0251 
025C 
0267 
0274 
027D 
0282 
0282 
0282 
0282 
C282 
0282 
0282 
0289 
0290 
0290 
0296 
029A 
029A 
029D 
02A3 
02A7 
02A7 
02AA 
02AD 
02B2 
02B6 
02B9 
02C3 
02C3 
02CA 
02CD 
02D0 
02D6 
02D6 
02DD 
02DF 

02E1 
02E3 
02E6 
02F8 
02F8 
02FD 
0301 
030E 
0311 
031E 
0321 
032E 
0331 
033E 
0341 



1035 
1036 
1037 
1038 
1039 
1C40 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 

1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 

1084 
1085 
1086 
1087 

1088 
1089 
1090 
1091 



, ENTRY 



DS$USERM0DE, A M<R2,R3,R4,A5,R6 
CLRL DS$UL FLAGS 
$CRETVA_S L A 5UP8UF 
$CRETVA~S L A PRGBUF 
$SETEXV_S #1,C0ND DEBUG 
MOVAL L A COND„.HAF]DLR, <FP) 
$DELTVA G L A SSPR0T 
SCAETVAlG L A SSPR0T 
SDCLEXH..S EXITSDESBLK 
M0VC3 #DS$K SSS12Z, - 

A X80000000, L A DS$AQ 



,R7,R8 f R9,R10,R11> 

Clear flags initially 

GET ACCESS TO APT MAILBOX AREA 

GET ACCESS TO PROGRAM OVERLAY AREA 

SET UP EXCEPTION HANDLER FOR DEBUG 

SET UP SUPERVISORS EXCEPTION HANDLER 

UNPROTECT SYSTEM SERVICE VECTORS, 

RECAPTURE SPACE. 

Declare image exit handler 

COPY STARLET SYSTEM SERVICE VECTORS. 

.SYSSRV ; IN ORDER TO GET THE CORRECT 
; WORD MASK FOR CALLx 



SET UP THE COPIED STARLET SYSTEM SERVICE VECTORS TO JMP TO 80000xxx 

SO WE DON'T HAVc TO WORRY THAT THE SYSTEM SERVICE VECTOR CODE REMAINS IN 

3 PAGES (WHICH IS ALL WE HAVE ROOM FOR IN ENTRY) 



2$: 



100$: 



MOVL # A X80000002,R0 

MOVAL DS$AQ_SYSSRV,R1 

MOVW # A X9F17,2(RD 

MOVL R0,4(R1) 

ADDL2 # A XE,RO 

MOVW # A X9F17, A X10<R1> 

MOVL RQ, A X12(R1> 

ADDL2 # A X1A,R1 

ADDL2 # A XA,RO 

MOVW * A X9F17,(R1> 

MOVL R0,2(R1) 

ADDL2 #8,R0 

ACBL #DS$AQ_SSEND,*8,R1 ,2$ 

MOVAB L A SYS$INPUT,R0 

dSBW TRAN ASSIGN 

BLBS ROJDOS 

JMP 10$ 

MOVW R1,L A DS$GW_TTIN 

TSTL -CSP) 

PUSHAQ -(SP) 

PUSHL #12 

MOVAQ (SP),RO 

$GETCHN_S R1,(R0),(R0) 

BLBC R0,17$ 

POPR # A M<R0,R1,R2,R3,R4> 

BBC S A #DEV$V FOD, R2, 5$ 

$OPEN DS$FAB iRPUT 

BLBC RO, 105 

$CONNECT DS$RAB INPUT 

BLBC RO, 10$ 

$CREATE DS$FA§ OUTPUT 

BLBC RO, 105 

$CONNECT DS$RAB_OUTPUT 

BLBC RO, 10$ 

8BCS S A 0DS$V_8ATCH, - 



BEGINNING OF SYSTEM SERVICE VECTOR 

10200 

QIOW 

JMP OPCODE, SKIPPING WORD MASK 

ABSOLUTE ADDRESS 80000002 

CALL HANDL 

80000010 

10210 

80000010 

THE REST CAN BE LOOPED 

START AT 1021A 

JUMPING TO 8000001A 

SET UP THE JMP 

SET UP THE ADDRESS TO JMP TO 

NEXT... 

DONE ? 

ADDRESS OF LOGICAL NAME 
TRANSLATE AND ASSIGN 
Branch if success 
Jump if failure 

SAVE INPUT CHANNEL NUMBER 

Allocate space for characteristics 

Allocate 8 more bytes and push addr 

Length of Device characteristics buf 

Point to DIB descriptor 

Get characteristics of SYS$1NPUT: 

Branch if fails 

RO~len, R!=adr R2,R3,R4=DEVchar 

Branch if not command file 

Open command file 

Exit if error 

Connect record block 

Exit if error 

Open output file 

Exit if error 

Connect record block 

Exit if error 



C773 
1771 
1771 

1771 
1771 
1771 
1771 
1771 
1771 
[773 
1771 
1771 
[773 
1771 
1771 
1771 
[773 
1771 
1771 



[873 
C87] 
[873 



C873 



7Z-ENSAA-7.0 USEP KERNEL ROUTINE 
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KERNEL 


*** 


KERNEL 


Main control 


routine 


35 


07-97 


USEP 


KERNEL 


ROUTINE 
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6E 




0348 


1092 






L A DS$6L.FLA6S, 20$ 


• Set 'RMS 1 mode bit 8 skip 








0349 


1093 5$: 














0349 


1094 












50 00000155'EF 


9E 


0349 


1095 




M0VA8 


L*SYS$OUTPUT,R0 


ADDRESS OF LOGICAL NAME FOR OUTPUT 




0241' 


30 


0350 


1096 




BSBW 


TRAN.ASSIGN 


• TRANSLATE AND ASSIGN 








0353 


1C97 10$: 










08 50 


E8 


0353 


1098 




BLBS 


R0,15$ 
DSSUSERMODE.X 


Branch if no error 




0202 


31 


0356 


1099 




BRW 


* Exit w/ error 








0359 


1100 












5E 14 


CO 


0359 


1101 17$: 


ADDL 


#20, SP 


• Fix stack after $GETCHN error 


[873 


F5 


11 


035C 
035E 


1102 
1103 1 


5$: 


BR8 


10$ 


and leave. 


[873 


0Q0007FE'EF 51 


BO 


035E 
0365 


1104 
1105 




MOVW 


R1 ,L*DS$GW_TTOUT 


• SAVE OUTPUT CHANNEL NUMBER 




7E 


D5 


C365 


1106 




TSTL 


-(SP) 


Allocate space for characteristics 


[873 


7E 


7F 


0367 


1107 




PUSHAQ 


-(SP) 


• Allocate 8 more bytes and push addr 


[873 


OC 


DD 


0369 


1108 




PUSHL 


#12 


Length of Device characteristics buf 


C87] 


50 6E 


7E 


036B 


1109 




MOVAQ 


(SP),R0 


» Point to DIB descriptor 


[873 






036E 


1110 




SGETCHN 


„S R1,(R0),(R0) 
R0,17$ 


• Get characteristics of SYS$OUTPUT: 


C873 


D6 50 


E9 


0380 


1111 




BL8C 


• Branch if fails 


[87: 


1F 


BA 


0383 


1112 




POPR 


#*M<R0,R1,R2,R3,R4> 


• R0=len, R1=adr R2,R3,R4=DEVchar 


[87J 


00000AE2 , EF 53 


70 


0385 
038C 


1113 
1114 




MOVQ 


R3,DS$GL_TERMCHAR 


* Save terminal characteristics (R3,R4) 


[873 


50 7^ 


7E 


038C 


1115 




MOVAQ 


-<SP),R0 


■ Address of auad status block 








038F 


1116 




SQJOVLS 


,L A DS$GW.JTIN,#I0$_SETM0DEiIO$M_CTRLCAST,<R0>,,,L A RCTRLC 




50 8E 


70 


0384 


1117 




MOVQ 


(SP)+,R0 


> Get status 








03B7 


1118 20$: 














0387 


1119 




SCRETVA 


W S L A SUP8UF 


■ GET ACCESS TO APT MAILBOX AREA 








03C8 
03D9 
03D9 


1120 
1121 
1122 , 




SCRETVA 


IS L A PRGBUF 


• GET ACCESS TO PROGRAM OVERLAY AREA 






















03D9 


1123 , 




Translate the current sysSdisk and save it 








03D9 


1124 , 




also set default directory and save the current vulue 








03D9 


1125 , 
















03D9 


1126 « 




This code supports rooted system 
CSYSx.SYSMAINT]. If SYSSSYSROOT 


directories of the form 








03D9 


1127 t 




translates (recursively) to 








03D9 


1128 , 




somethi 


ng of the form "_J>RA0:iSYS0.3 # the root directory name 








03D9 


1129 ( 




will be 


merged into the new default, and SYSSDISK will be 








03D9 
03D9 
03D9 


1130 , 

1131 , 
1132 




re-defined to exclude the directory portion. 




52 000001 74' EF 


9E 




MOVAB 


L A DS$AT_DDEV, R2 


Address of save area for sys$d1sk 




02 A2 


9F 


03E0 


1133 




PUSHA8 


2(R2) 


• Address of area to save sys$disk 




26 


DD 


03E3 


1134 




PUSHL 


#38 


Length of area 




06 


DD 


03E5 


1135 




PUSHL 


#6 


logical name table search mask C96] 
• null parameters 




7E 


DA 


03E7 


1136 
1137 




CLRL 


-(SP) 




7E 


DA 


03E9 




CLRL 


-(SP) 


• Null parameter 




OC AE 


7? 


03E8 


1138 




PUSHAQ 


12(SP) 


Address of buffer to get translation 
• Address to save length of translation 




62 


3F 


03EE 


1139 




PUSHAW 


(R2) 


[523 


00000000* Ef 


7f 


03F0 


1140 




PUSHAQ 


SYSSSYSROOT 


• Address of desciptor of M SYS$ROOT M C973 


00000000* EF 06 


F8 


03F6 


1141 




CALLS 


#6,SYSSTRNL0G 
(R2), RO 
2(R25, R1 


• Translate and save current disk 




50 62 


3E 


03FD 


114? 




MovAW 


• Address of length 

• Address of string 

• Clean up translated string 

• Address of saved default device desc 
» Set length of string 


[523 
[523 


51 02 A2 


9E 


0400 


1143 




MovAB 


0155 
56 00000000' EF 


30 


0404 


1144 




BsbU 


Clean Translation , 


9E 


0407 


1145 




M0VA8 


DEF$QJ>EV f R6 




66 62 


3C 


040E 


1146 




MOVZWL 


(R2) # (R6i 




04 B6 02 A2 66 


28 


0411 


1147 




M0VC3 


(R6), 2W2), 34(R6) 


• Copy device name for show device 




52 5F 


3C 


0417 


1148 




MOVZWL 


#63, R2 


• Max number of iterations 





ZZ-ENSAA-7.0 

KERNEL 

07-97 



USEP KERNEL ROUTINE 

*** KERNEL Main control routine 
USEP KERNEL ROUTINE 



50 66 
04 B640 



01 
09 
3A 
02 
66 



6A 



5A 
59 



6A 59 



66 
59 
50 
50 
59 



04 

59 66 

04 B6 

5B 8F 

OA 



6A 



2E 



3C 
40 
02 
D7 
50 
50 
6A 
02 
50 
2A 
FF A1 
24 
5A 



59 51 

6A 56 8F 

57 OOOOOOOO'EF 

58 59 01 

04 B748 04 B7 67 

04 B7 6A 59 

67 59 

67 

04 

04 B6 

14 

?E 

7E 

OC AE 

66 

66 

06 

01 

66 

04 B6 

00B8 

01 

08 AE 

OA 50 

50 

03 

8A 52 

01 
3A 
09 
50 
3A 



00000000' EF 



51 



5E 



50 



0000'8F 



50 66 
04 B640 



04 B640 



041A 

C3 041A 

15 041E 

91 0420 

12 0425 

D7 0427 

0429 

BB 0429 

3C 042B 

9E 042E 

3A 0432 

12 0437 
3A 0439 

13 043D 
11 043F 

11 0441 
A2 0443 
7D 0446 
9A 0449 
CO 044C 
3A 044F 
13 0453 
91 0455 

12 0459 
C3 045B 

90 045f 
7E 0463 
C3 046A 
28 046E 
28 0475 
AO 04 7A 
B7 047D 
BA 047F 
9F 0481 
OD 0484 
7C 0486 
D4 0488 
?F 048A 
3F 048D 
7f 048F 
FB 0491 
BB 0498 
3E 049A 
9E 049D 
30 04A1 
BA 04A4 
9E 04A6 
E9 04AA 
B1 04AD 

13 04B2 
F5 04B4 

04B7 

C3 04B7 

91 04BB 
13 Q4C0 
D6 04C2 
90 04C4 



1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1204 
1205 



30$: 



40$: 



41$: 
43$: 



48$: 



50$: 



SUBL3 

BLEQ 

CMPB 

BNEQ 

DECL 

PushR 

MovZWL 

MovAB 

LocC 

BNeq 

LocC 

BEql 

Brb 

Brb 

SubW2 

MovQ 

MovZBL 

AddL2 

LocC 

BEql 

CmpB 

BNeq 

SubL3 

MovB 

MovAQ 

SubL3 

MovC3 

MovC3 

AddW2 

DecW 

PopR 

PUSHAB 

PUSHL 

CLRQ 

CLRL 

PUSHAQ 

PUSHAW 

PUSHAQ 

CALLS 

PushR 

MovAW 

MovAB 

BsbW 

PopR 

MOVAB 

BLBC 

CMPW 

BEQL 

S0B6TR 

SU8L3 

CMPB 

BEQL 

INCL 

MOVB 
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*1, <R6>, RO 

40$ 

* A A':', 34(R6KR03 

40$ 

(R6) 



# A MR2 

(R6>, R9 

S4(R6), R10 

#*A"C M , R9, 

43$ 

# A A ,, < , », R9, 

48$ 

43$ 

30$ 

RO, 

RO, 



(R10) 
(R10) 



(R6) 

R9 
(RIO). RO 
#2, RO 

RO- R9, (R10) 
48$ 

B A -1(R1), tf A A'V* 
48$ 

RIO- R1, R9 
fNTC". (R10) 
Def$Q Dir, R7 
#1 R9 Ro 

toft. S)4(R7), a4(R7)CR8J 
R9, (RIO), 94(R7) 
R9, (R7) 
(R7) 
# A MR2 
94 (R6) 

m 

-(SP) 

»(SP) 

12CSP) 

(R6) 

(R6) 

#6,SYS$TRNLOG 

# A MR0 

(R6), RO 

34<R6), R1 

Clean Translation 

# A MR0 

8(SPK SP 

R0,50i 

RO. 0SS$JJOTRAN 



Si 
R2, 



41$ 



#1, <R6>, RO 
#*A'V\ 34(R6)CRC] 



60$ 

RO 

#*A"i 



Length of string 
Branch if one or 
Trailing colon? 
Branch Tf not 
Reduce length 



less characters 



Save precious R2 (loop counter) 

Get length of current name string 

•. and address 

Is there a •[' in the string? 

Yep, do something about it 

Otherwise, is there a •<'? 

Nope — no directory 

Do the stuffs 

Extend the SOBGTR below ('way below) 

Reduce device length by directory 

Now R9/R10 describe directory part 

Get directory open character (L or <) 

Calculate corresponding close char. 

Find it in the string 

Bomb out if it's not there 

Is previous character a •.'? 

Ignore directory if not 

Calculate length just to '.' 

Make sure it starts with '[\ not *<• 

Get descriptor address of directory 

Amount to move name up 

; Move it up 
Pre-pend new stuff to it 
Calculate new length 

(first C was overwritten) 
Restore register R2 
Address of buffer 
Max length of translation 
Null parameters 
Null parameter 

Address of desc of buffer for trans 
Store result length here 
Address of input logical name 
Translate 
Save status code 
Address of length 
Address of string 
Remove esc sequence and '__■ 
restore status code 
Remove descriptor 
Exit if error 
Translated? 

Branch if no translation 
Branch in case of recursion 



[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[523 
[52] 
[523 
[523 
C523 
C523 
C523 
[523 
C523 
C523 
[523 
C523 



C523 
[523 
[523 
[523 
[523 



[523 



1 1 



34(R6)[R03 



Length of 
Trailing 
Branch Tf 
Update length 
Insert m j" 



current 
ii.ii 

so 



device string 



ZZ-ENSAA-7.0 

KERNEL 

07-97 



USEP KERNEL ROUTINE 

*** KERNEL Main control 
USEP KERNEL ROUTINE 



66 

7E 
00000000' EF 
00000000'EF 

02 
00000000* EF 04 

0000014E'EF 

26 

6E 

OOOOOHC'EF 

00000000'EF 

00000000'EF 03 



OOOOFEH'EF 
OOOOFEOO'EF 



7E 

OOOOFEH'EF 

7E 1001 8F 

7E 04 

50 6E 

5E 10 
OB 50 

00000000' 8F 

10003000 8F 



00000000'EF 

FAB6' 

00000840' EF 10 

00000148'EF 5D 

0081 



D6 04C9 

04CB 

D4 04CB 

7F 04CD 

7? 04D3 

DD 04D9 

FB 04DB 

04E2 

9F 04E2 

OD 04E8 

7f 04EA 

3F 04EC 

7F 04F2 

FB 04F8 

04FF 

04FF 

04FF 

04FF 

04FF 

04FF 

04FF 

04FF 

7C 04FF 

9F 0501 

BO 0507 

BO 050C 

9E 050F 

0512 

CO 0525 

E8 0528 

DO 052B 

0536 

C8 0536 

0541 

0541 

16 0541 

0547 

30 0547 
054A 

DO 054A 
DO 0551 

31 0558 
055B 
055B 

04 055B 



1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 



60$: 



routine 



INCL 

ClrL 

PushAQ 

PushAQ 

PushL 

Calls 

PUSHAB 

PUSHL 

PUSHAQ 

PUSHAW 

PUSHAQ 

CALLS 
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(R6) 

-CSp) 

Def$Q Dev 

SYS$DTSK 

#2 

#4, Sys$CreLog 

L A DS$AT DDJR+2 

#38 

(SP) 

L A DS$AT DDIR 

DEF$Q DlR 

#3,SY5$SETDDIR 



Set new length 

Access mode 

point to descriptor of new name 
Address of descriptor of loaical name 
In process logical name table 
Create logical name 

Address of area to save directory 

Length of area 

Address of buffer for old 

Address for length of buffer 

Address of descriptor of current dir 

Set new default directory 



[533 
[53: 

C53: 
[53: 



; Use the (all-new for V3.0 VMS) SGETSYI service to find the processor type 

; we are actually running on, and use this for the DSA$GL_SID longword. If 

; the service fails for any reason, do the same thing we always did before, 

; use the DS$GK_SID value, rather than fail the startup. 



and 



70$: 



clrq 

pushab 

movw 

movw 

movab 

Sgetsyi 

a3dl2 

bibs 

movl 

BISL2 



Jsb 

BSBW 

MOVL 
MOVL 
BRW 



~(sp) 

L A dsa$gl sid 
#syi$ sid, -(sp) 
#4, *7sp) 
(sp), rO 

,s itmlst=(rO) 
#4*4, sp 
rO, fo% 
#ds$gk„sid,dsa$gl..sid 

#DSA$M DFLTFLGS ! DSASM. 

L A DSA$GL_FLAGS 

L A MEMP00L$INIT 

INI$PTABLE 

#16,L A DS$GL_RADIX 

FP,L A SAVEFP 

BEGINO 



DS$USERMODE X: 
RET 



Terminate argument list 
Address of internal SID location 
Push item code for full SID 
And length of buffer (longword) 
Remember where we are 
Get the information 
Clear off argument list 
Continue if successful 
Set pseudo SID value 

USER, - 

'; SET DEFAULT CONTROL FLAGS 

; SETUP MEMORY POOL 

; Clear P-table pointers 

; DEFAULT FOR EXAM/DEP FUNCTIONS 
; PRESERVE CLEAN STACK POINTER 
; AND START FRESH 



; RETURN 



LA91 
C49J 
[49: 
[49: 
[49: 
[49: 

[49: 
[49: 
[49: 



C52: 



[52: 



2Z-ENSAA-7.G 

KERNEL 
07-97 



USER KERNEL ROUTINE 

*** KERNEL Main control routine 
USEP KERNEL ROUTINE 
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5F 
5F 8F 



61 









055C 


1252 








055C 


1253 








055C 


1254 








055C 


1255 








055C 


1256 




3F 


BB 


055C 


1257 


50 00 


BE 


3C 


055E 


1258 


51 04 


BE 


9E 


0562 


1259 




53 


D4 


0566 


1260 


IB 


61 


91 


0568 


1261 




03 


12 


056B 


1262 


53 


04 


CO 


056D 


1263 


8F 6143 


91 


0570 


1264 




OA 


12 


0575 


1265 


01 A143 


91 


0577 


1266 




02 


12 


057D 


1267 




53 


D6 


057F 


1268 




53 


D5 


0581 


1269 




OC 


13 


0583 


1270 


50 


53 


C2 


0585 


1271 


00 BE 


50 


BO 


0588 


1272 


6143 


50 


28 


058C 


1273 




3F 


BA 


0591 


1274 






05 


0593 
0594 
0594 
0594 
0594 
0594 
0594 


1275 
1276 
1277 
1278 
1279 
1280 
1281 


5E 


28 


C2 


0594 


1282 




6E 


9F 


0597 


1283 




28 


DD 


0599 
059B 


1284 
1285 


01 


AO 


9F 


0598 


1286 


7E 


60 


9A 


059E 


1287 




7E 


D4 


05A1 


1288 




7£ 


7C 


05A3 


1289 


14 


AE 


7F 


05A5 


1290 


18 


AE 


OF 


05A8 


1291 


14 


AE 


7F 


05AB 


1292 


QO'EF 


08 


FB 


05AE 


1293 


20 


50 


E9 


05B5 
0588 
0588 


1294 

1295 


18 08 AE 


91 


1296 




07 


12 


05BC 


1297 


6E 


04 


C2 


05BE 


1298 


04 AE 


04 


CO 


05C1 
05C5 


1299 
1300 




7E 


D4 


05C5 


1301 




7E 


7C 


05C7 


1302 


08 


AE 


DF 


05C9 


1303 


10 


AE 


7F 


05CC 


1304 


OO'EF 


04 


FB 


05CF 


1305 




02 


BA 


05D6 
05D8 


1306 
1307 


5E 


30 


CO 


05D8 


1308 



Clean up translated string by 
sequence (if any) and one of 



removing the leading 
two • ' characters if 



4 byte escape 
there are any 



Clean.Translati 
PushR 
MovZWL 
MovAB 
CLrL 
CmpB 
BNeq 
AddL2 

10$: CmpB 
BNeq 
CmpB 
BNeq 
IncL 

20$: TstL 
BEql 
SubL2 
MovW 
MovC3 

30$: PopR 
Rsb 



on: 

#*M<R0,R1,R2,R3,R4,R5> 

a<Sp) P RO 

34<Sp), R1 

R3 

CR1), # A X1B 

10$ 

#4, R3 

(R1)[R3], #*A M J' 

20$ 

KR1HR3J, 0*A ,, J' 

20$ 

R3 

R3 

30$ 

R3, RO 

RO, 3(Sp) 

RO, (R1KR3], (R1) 

#*M<R0,R1,R2,R3,R4,R5> 



; TRANSLATE AND 
; INPUT: RO 
; OUTPUT: RO 
R1 
TRAN J\SS J GN: 
SUBL 
PUSHAB 
PUSHL 

PUSHAB 

MOVZBL 

CLRL 

CLRQ 

PUSHAQ 

PUSHAL 

PUSHAQ 

CALLS 

BLBC 



CMP8 
BNEQ 
SUBL 
ADDL 

CLRL 

CLRQ 

PUSHAL 

PUSHAQ 

CALLS 

POPR 



110$: 



Save some registers 

Get length of translation 

.. and address 

Length to move it down 

is it an <ESC>? 

Branch if not 

Move down 4 bytes 

Is device preceeded by '..'? 



Branch if not 

Move down one byte (more) 

Do we move any 

Clear out if nothing to move 

Number of bytes to move 

Set new length of equivalence string 

Move 'em out 

Restore registers 



[52] 
C52] 
C52D 
[52] 
£521 
£521 
[52] 
£521 
£521 
£521 
£521 
£521 
£521 
1521 
[52] 
[52] 
[52] 
[52] 
[52] 
[52] 



120$: 



ASSIGN CHANNEL 
ADDR OF ASCIC LOGICAL 
SUCCESS/FAILURE 
CHANNEL NUMBER 

#40,SP 

(SP) 

#40 

KR0) 

(R0), -(SP) 

-(SP) 

-(SP) 

20(SP) 

24(SP) 

20(SP) 

#8,SYS$TRNL0G 

R0,120$ 

8<SP),**X1B 

110$ 

#4,(SP) 

#4,4(SP) 

-(SP) 

-(SP) 

8(SP) 

16CSP) 

#4,SYS$ASSIGN 

# A MR1 



NAME 



ADDL #48, SP 



MAKE DESCRIPTOR OF OUTPUT BUFFER 

LENGTH 

++++ STACK CLEANED TO HERE AFTER CALL 

INPUT DESCRIPTOR 

LENGTH 

DUMMY ARG 

2 DUMMY ARGS 

ADDRESS OF OUTPUT DESCRIPTOR 

ADDRESS OF OUTPUT LENGTH 

ADDRESS OF INPUT DESCRIPTOR 

TRANSLATE THE NAME 

BRANCH IF FAILED 

EfCAPE? 

NO 

SHORTEN STRING 

UPDATE ADDRESS 

SPACE FOR CHANNEL NUMBER 

2 DUMMY ARGS 

ADDRESS TO RETURN CHANNEL NUMBER 

ADDRESS OF DESCRIPTOR 

ASSIGN THE CHANNEL 

GET CHANNEL ASSIGNED 

; CLEANUP STACK 



G 9 
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07-97 USEP KERNEL ROUTINE 23-JUL-1984 16:23:20 DMA1 :CSYS0.SYSMAINTJKERNEL.MAR;262<5) 

05 05D8 1309 RS8 ; RETURN 



ZZ-ENSAA-7.0 

KERNEL 

07-97 



COMMON KERNEL REFRESH ENTRY POINT, 

*** KERNEL Main control routine 
COMMON KERNEL REFRESH ENTRY POINT. 



H 9 

27-JUL-1984 Fiche 9 Frame H9 

27-JUL-1984 15:29:11 VAX-11 



Sequence 1759 



27-JUL-1984 15:29:11 VAX-11 Macro V03-0T Page 40 
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05DC 


1311 


05DC 


1312 


OSDC 


1313 


05DC 


1314 


05DC 


1315 


05DC 


1316 


05DC 


1317 


05DC 


1318 


05DC 


1319 


05DC 


1320 


05DC 


1321 


05DC 


1322 


05DC 


1323 


05DC 


1324 


C5DC 


1325 


05DC 


1326 


05DC 


1327 


05DC 


1328 


05DC 


1329 


05DC 


1330 


05DC 


1331 


05DC 


1332 


05DC 


1333 


05DC 


1334 


05DC 


1335 


05DC 


1336 


05DC 


1337 


05DC 


1338 



.S8TTL COMMON KERNEL REFRESH ENTRY POINT, 

FUNCTIONAL DESCRIPTION: 

This routine is the basic loop of the supervisor. 

At begin it refreshes the image context and calls DSSCLJ. 

The chagonostic is entered from the command processor. 

CALLING SEQUENCE: 

ENTERED FROM •BOOT". 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: 

Cleans stacks, registers, and ends up in Kernel mode. 

Call the CRD Image^Loading routine and CRD Initialization if 

either of the CRD bits have been set in the DSA flags. 
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00000000 *EF 00 



04FE 
29 50 

04D4 
19 50 



00000A37'EF 



05DC 
FB 05DC 
05E3 
05E3 
05E3 
05E3 
05EB 
05F3 
05FB 
0603 
0603 
0603 
0603 
0603 
0603 
0603 
0603 
0603 
30 0603 
E9 0606 
0609 
30 0609 
E9 060C 
060F 
060F 
060F 
060F 
060F 
060F 
060F 
060F 
060F 
0622 
17 0622 
0628 



1340 BEGINO: 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 ■ 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 



; OnLy 
Calls #0, L A DSR$Restore_CRD_Vectors 



come here once ... 
; Restore the CRD vectors 
were originally set up i*n 
DSVECS module. 



that 
the 



Clear^CRDJlenuTestJ)ff 
Clear\.CRD MenuTest On 
Clear_CRD AutoTest^Off 
Clear,CRD.Jrace 



Clear 
Clear 
Clear 
Clear 



the 
the 
the 
the 



bit 
bit 
bit 
CRD 



now 
now 
first 
trace 



bit first 



If the AutoTest and the DIAG bits are both set in the R5 passed from 
DiagBoot, set the CRD_AutoTest bit in the DSA flags and Load CRD and 
initialize it. If the MenuTest and the DJAG bits are both set in the 
R5 passed from DiagBoot. set the CRD MenuTest bit in the DSA flags 
and Load CRD and initialize it. 



[593 
[763 
[763 
[763 

[803 
[803 
C803 
[763 

[693 
[693 
[693 
[693 
[693 
[693 
C693 



Bsbw DSR$CheckJ\utoTest_Off Set ; Check to see if Auto bits set 

Blbc R0, 10$ ; If low bft clear, not AutoTest C693 

Bsbw D$R$Check_MenuTest_Off_Set ; Check to see if Menu bits set also 

Blbc R0, 9$ ; If only Auto set, branch [753 



Both CRD 
and exit 



bits are 
the VD$. 



set - this is a bad error. Print an error message 



SPrint 0DSSK Type GeneraLError, - ; Print an error message 
#DSJK„PnntF, - ; ... use PrintF 
L^T^Both^CRD.Bits.Set ; . . . the format string 

Jmp L A DSV$Exit ; Sail out - exit to console 



[753 
C753 



[753 
[753 
[753 

[753 
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OE 

04A8 
5A 50 



00000000 »EF 00 



00000000 1 FF 



00 
00 
00 
00 
04 

39 50 



OO00OA37'EF 



0628 
0628 
0628 
0628 
0628 
0628 
0628 
11 0630 
0632 
30 0632 
E9 0635 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0640 
0640 
0640 
0640 
0640 
0640 
F8 0640 
0647 
0647 
0647 
0647 
0647 
0647 
0647 
0647 
DD 0647 
DD 0649 
DD 064B 
DD 064D 
FB 064F 
0656 
E8 0656 
0659 
0659 
0659 
0659 
0659 
0659 
0661 
0669 
0671 
0679 
0679 
0679 
0679 
068C 
16 068C 



1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 



14; 

Hi 
14, 
14, 

k; 

14; 



!4 
»5 
l 6 
7 

>8 
>9 



1430 
1431 
1432 



9$: 



10$: 



The AutoTest bit is set. This indicates that CRD-AutoTest 
Off-line should be run. 



Set_CRD,AutoTest..Off 
Brb 30$ 



Set the CRD bit in the DSA flags 
Go load in the CRD image 



L751 



1801 



[803 
C693 



Bsbw DSRSCheck MenuTestJ)ff_Set 
Blbc RO, 100$ 



; See if the correct bits are set 
If low bit clear, not MenuTest . . . C693 
. • . and not AutoTest. Go print the £69] 
VDS header line. [693 



The MenuTest bit is set. This indicates that CRD-MenuTest 
Offline should be run. 



; Set the CRD bit in the DSA flags 



[803 



[803 



Set_CRD..MenuTestJ)ff 

+ [693 

Load the CFi)~Loadable image file. This is done regardless of whether C693 
it is CRD Menu Test or CRD Auto Test. [693 

[693 

[593 



30$: Calls #0, L*DSR$Load_CRD 



; Load the CRD image file 



Call the main CRD routine and have it initialize itself. This routine 
will return failure when its initialization fails for some reason. It 
will return success otherwise. If it fails, the DS image will exit. 
If it succeeds, the DS will continue normally, 

PushL #0 ; Push as param-4 

PushL #0 ; Push as param-3 

PushL #CRD$K_CRD Initialization ; Push Initialization as param-2 

PushL #CRD$K Hook Point ; Push Hook Point as param-1 

CallS #4, - ' ; Call indirectly the ... 

aL*DS$GA_CRDJ)S,Jnterface ; ... CRD$DS^Interface routine. 

BlbS R0, 100$ ; If routine returns success, branch 



[593 
C59D 
C59] 
C593 
[593 
[593 
C593 



The init routine failed - print an error message and exit the VDS E743 



Clear Binary 

Clear CRDJienuTestJJff 

Clear CRDJ1enuTestJ)n 

Clear^CRD^AutoTest.Off 



ClMr the BINARY flag 

Clear MenuTest flag 

Clear MenuTest flag 

Clear AutoTest flag 



$Print fl)S$K_ Type General_Error, - 
#DSl. 1 ' PrTntF, - ; . 
L*G\ tienu.Error ; . 



; Print an error message 

use PrintF 

the format string 



JSb 



DSVSExit 



Exit if routine failed 



[743 
C80] 
£803 
[803 

KM 

C743' 

[74 
[59: 
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0692 


1433 


52 00000000'EF 


DE 


0692 


1434 


1C A2 50 8F 


9A 


0699 


1435 


00000000'EF 


16 


069E 


1436 


FEOO'EF 80010800 8F 


D3 


06A4 


1437 






06AF 


1438 






06AF 


1439 


13 


12 


06AF 


1440 






06B1 


1441 






06B1 


1442 






06B1 


1443 






06C4 


1444 






06C4 


1445 






06C4 


1446 






06C4 


1447 






06C4 


1448 






06i>9 


1449 


00000000' EF 


16 


06D9 


1450 


52 


D4 


06DF 


1451 






06E1 


1452 






06E1 


1453 


F3 52 3F 


F3 


06EA 


1454 






06EE 


1455 






06EE 


1456 






06F9 


1457 






06F9 


1458 


QOOOFEOO'EF 01 1F 


EF 


06F9 


1459 


50 




0701 


1460 


00000852'EF 50 


90 


0702 


1461 






0709 


1462 






0709 


1463 






0709 


1464 






0711 


1465 



100$: MovAL L A DS$GL CLIBASE, R2 
MovZBL #80, CLT$LJ)ATA(R2) 
JSb VRSETWJDTH 
BITL #DSA$M CRD AUTOT^ST OFF! 

DSA$M CRD JlENUTESTjjFF! - 

DSA$M~APT,L A D$A$GL_FLAGS 
BNEQ 150$ 
$PRINT #DS$K TYPE DS.START, - ; 

#DS$K PRINTF,- 

DS$GrLEGAL 

150$: $Print #DS$K TYPE DS START,- ; 

#DSlK PRTNTF,- 
L A DS$5T_START,~ 
#0 

JSB SCRIPTSJNIT 
CLRL R2 

200$: fcCLREF S R2 

AOBLEQ #63, R2, 200$ 

$DS_CntrlC_S Disabl^O 



ExTZV #Dsa$V Apt, #1 , - 

L A DS*$GL_FLags, RO 

MovB RO, - 

L*DS$GBJnhibit,Naming; 

Br If Not.APT Begin 
SPRJNTI^S DS$GT - PROMPT 



Set terminal width to 80 
Set the argument 

-; Don't display legal statement if 
; CRD MENU or AUTO or if APT 



Display statement from legal dept. 

... use PRINTF 

... format statement 

Print startup message 
... use PrintF 
... the format string 
... the current time 

Init script flags and pointers 
START AT EFN ZERO 

CLEAR THE EVENT FLAG 
CLEAR ALL 64 FLAGS 

Re-enable catchinq of A C*s - clear 
... the Disable flag. 

Extract the APT mode bit 

.. into RO 

.. and copy byte into flag 



C813 
C813 

C813 
C95D 
L951 
L951 
C953 
C92D 
C923 
C92: 

E56D 



C44D 



Branch around if not in APT-mode 
Type prompt on APT start 



C66D 
C66J 

C60D 
[603 
C603 
C60] 

C593 



ZZ-ENSAA-7.0 

KERNEL 

07-97 



L 9 
COMMON KERNEL REFRESH ENTRY POINT. 27-JUL-1984 Fiche 9 Frame L9 Seguence 1763 

*** KERNEL Main control routine 27-JUL-1984 15:29:11 VAX-11 Macro V03-0T Page 44 
COMMON KERNEL REFRESH ENTRY POINT. 23-JUL-1984 16:23:20 DMA1 :CSYS0.SY$MAINT3KERNEL.MAR;262<6) 







071E 


1467 






071E 


1468 


1B 


10 


071E 


1469 


7E 


DC 


0720 


1470 


71 00000739 , EF 


9E 


0722 


1471 


7FFF 8F 


BB 


0729 


1472 


00000000' EF 6E 


FA 


072D 


1473 


7FFF 8F 


BA 


0734 


1474 




02 


0738 


1475 






0739 


1476 


E3 


11 


0739 


1477 



BEGIN:: 

BEGIN.BLISS:: 
BSBB 
MO VPS L 
M0VA8 
PUSHR 
CALLG 
POPR 
REI 



20$: 



BRB 



INJT CONTEXT 

-<SP7 

20$,-(SP) 

# A X7FFF 

(SP),DS$CLI 



BEGIN 



REINITIALIZE IMAGE CONTEXT 

CURRENT PSL 

CURRENT PC 

SAVE R0-R14 

ENTER COMMAND INTERPRETER 

RESTORE R0-R14 

NOTE: USES PC/PSl. SAVED/MODIFIED ABOVE 

; IF DSSCLI EVER RETURNS DO IT AGAIN 
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0738 


1479 


073B 


1480 


073B 


1481 


0738 


1482 


0738 


1483 


073B 


1484 


073B 


1485 


0738 


1486 


073B 


1487 


073B 


1488 


0738 


1489 


0738 


1490 


0738 


1491 


073e 


1492 


C73B 


1493 


073B 


1494 


073B 


1495 


073B 


1496 


073B 


1497 


0738 


1498 


0738 


1499 


0738 


1500 


0738 


1501 


0738 


1502 


0738 


1503 


073B 


1504 


0738 


1505 


0738 


1506 


073B 


1507 


073B 


1508 


073B 


1509 


0738 


1510 


073B 


1511 


073B 


1512 


0738 


1513 



++ 



.SBTTL INIT.CONTEXT Initialize process context 



FUNCTIONAL DESCRIPTION: 

This routine is called to reinitialize the entire process context. 
It initializes the contents of the registers and resets the stack 
pointers. In stand alone it also resets the SYSTEM, P0,,and P1 base 
and length registers, as well as all the stack pointers in all modes. 
It doec not effect the mapping or availablity of memory or the current 
state of memory management. 

CALLING SEQUENCE: 

BSBW INIT.C0NTEXT 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 

Initial contents of system, PQ, and PI base registers, stack pointers 
etc. 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 



NONE 



The stack and frame pointer are reset it initial values, all registers 
are modified. 

COMPLETION CODES? NONE 

SIDE EFFECTS: 

The entire process context is refreshed. 



ZZ-ENSAA-7.0 INIT CONTEXT Initialize process 


context 




N 9 

27-JUL-1984 Fie he 


9 Frame N9 Sequence 1765 


KERNEL 




*** 


KERNEL 


Main 


control 


routine 


27-JUL-1984 15:2< 


9:11 


VAX-11 Macro V03-0T Page 46 


07-97 




INIT 


^CONTEXT Initialize 


process 


context 23-JUL-1984 16:23:20 


DMA1:CSYS0,SYSMAINTJKERNEL.MAR;262(6) 








073B 


1515 


INJT_CONTEXT:: 














073B 


1516 




Q A MAIN 


Kernel Init Context 




C443 


OOOOFEOO'EF 1C 


E1 


0744 


1517 




BBC 


#DSA$VlUSERT l a dsa$gl_flags - 






03 




074B 


1518 






, 10$ 


BRANCH If STAND ALONE- 




00F6 


31 


074C 


1519 




BRW 


IN1T_USERM0DE 


DO USER MODE STUFF 








074F 


1520 


















074F 


1521 


10$: 










50 


000002E4'EF 


9E 


074F 


1522 




MOVAB 


DS$A)' SOFTPCB, RO 




; GET BASE ADDRESS. 


60 AO 


00660000 8F 


DO 


0756 


1523 




MOVL 


#IOC$R DIAGPID, PCB$L PID(RO) 
PCB$L_ASTQFL(RO), PCBlL^ASTOFL 


; SET UP DIAG PID. 




10 AO 10 AO 


DE 


075E 


1524 




MOVAL 


(RO) ; INIT AST DELIVERY QUEUE. 




14 AO 10 AO 


OE 


0763 


1525 




MOVAL 


PCB$L ASTQFL(RO), PCB$L ASTQBL(RO) ; 




OC AO 


94 


0768 
076B 


1526 
1527 


» 


CLRB 


PCB$BlASTACT(RO) 




*; Clear AST actives 








076B 


1528 


; Initialize JIB and ARB 












C76B 


1529 


§ 










53 


00000200' EF 


9E 


076B 


1530 




MOVAB 


DS$AX JJB,R3 


Point to JIB 




78 AO 53 


00 


0772 


1531 




MOVL 


R3.PCB$L JIB"?0) 


Make 


PCB point to JIB 


52 


0000026C I EF 


9E 


0776 


1532 




MOVAB 


DS$AX ARB,R2 


Point to ARB 




0084 CO 52 


DO 


077D 


1533 




MOVL 


R2,PCB$L_ARB(R0) 


Make PCS point to ARB 




63 52 


DO 


0782 


1534 




MOVL 


R2,JI8$L_AR8(R3) 


Make JIB point to ARB 








0785 


1535 












50 


C. OOOOOO f EF 


DE 


0785 


^536 




MOVAL 


PHD BASE, RO 




; GET BASE POINTER. 




OOCO CO 


8ED0 


078C 


1537 




POPL 


PHDlL PC(RO) 




; SAVE RETURN PC. 




0000084V EF 


DC 


0791 
0797 


1538 
1539 




MOVPSL 
CMK 


PSL SSVE 
REFRESH 




; GET CURRENT PSL IN R4 [683 


04 


00003200' 8F 


DA 


07A6 


1540 




MTPR 


#ISTKPTR, *PR$JSP 




; RESET INTERRUPT STACK. 


5E 


OOOOSAOO'EF 


DE 


07AD 


1541 




MOVAL 


KSTKPTR. SP 
SP, *PR$J<SP 




; RESET KERNEL STACK POINTER. 




00 5E 


DA 


0784 


1542 




MTPR 




; INITIALIZE KERNEL STACK 




78 AO 00 


DB 


0787 


1543 




MFPR 


*PR$ K5P, PHD$L KSP(RO) 




; KERNEL STACK POINTER. 


01 


00003800 '8F 


DA 


07BB 


1544 




MTPR 


#*STRPTR, *PR$ JSP 




; INITIALIZE EXECUTIVE STACK 




7C AO 01 


DB 


07C2 


1545 




MFPR 


"PR$ ESP, PHD$C ESP(RO) 




; EXECUTIVE STACK POINTER. 


02 


00003EOO'8F 


DA 


07C6 


1546 




MTPR 


#SSTRPTR, *PR$ 5SP 




; INITIALIZE SUPERVISOR STACK 




0080 CO 02 


DB 


07CD 


1547 




MFPR 


#PR$ SSP, PHD$r SSP(RO) 




; SUPERVISOR STACK POINTER. 


03 


00004400 ^ 


DA 


07D2 


1548 




MTPR 


#USTRPTR, *PR$ OSP 




; INITIALIZE USER STACK 




0084 CO 03 


DB 


07D9 
07DE 


1549 
1550 




MFPR 


*PR$JJSP, PHD$C^USP(RO) 




; USER STACK POINTER. 




5D 


D4 


07DE 
07EG 


1551 
1552 




CLRL 


FP 




; NO PREVIOUS STACK FRAME 




51 0088 CO 


DE 


07EC 


1553 




MOVAL 


PHrtl R12(R0),R1 




; POINT TO REGISTER AREA FOR R12 


61 


CCCCCCCC 8F 


DO 


07ES 


1554 




MOVL 


# A XCCTCCCCC,(R1> 




; STORE INITIAL AP 


71 61 


11111111 8F 


C3 


07EC 


1555 


20$; 


SUBL3 


# A X11111111,(R1),-<R1) 




; STORE NEXT LOWER REGISTER 




F6 


12 


07F4 


1556 




BNEQ 


20$ 




; CONTINUE UNTIL RO STORED 




00C4 CO 


DC 


07F6 


1557 




MOVPSL 


PHD$L PSL(RO) 




; PROCESSOR STATUS LONGWORD. 




00C8 CO 08 


DB 


07FA 


1558 




MFPR 


#PR$ POBR, PHD$L PQBR(RO) 




; PO BASE REGISTER. 
; PO LENGTH REGISTER. 




OOCC CO 09 


DB 


07FF 


1559 




MFPR 


#PR$~POlR, PHD$LJ>OLRASTL(RO) 




13 04 


DA 


0804 


1560 




MTPR 


#4,*PR$ ASTLVL 


Set 


ASTLVL 




OOCF CO 04 


90 


0807 


1561 




MOVB 


#4, PHDlB.ASTLVL(RO) 




; SET NO PENDING AST. 




OODO CO OA 


DB 


080C 


1562 




MFPR 


#PR$ P1BR, PHD$L P1BRCR0) 




; P1 BASE REGISTER. 




0OD4 CO 03 


DB 


0811 


1563 




MFPR 


#PR$"P1LR, PHD$L"P1LR(R0) 




; P1 LENGTH REGISTER. 


0088 CO 


12345678 8F 


DO 


0816 


1564 




MOVL 


# A X12345678, PHDlL RO(RO) 




; A X12345678 INTO RO IMAGE. 




12 00 


DA 


081F 
0822 
0822 


1565 
1566 
156? 




MTPR 


#0,*PR$JPL 




; NOW LOWER I PL 




50 OOCO CO 


DO 




MOVL 


PHD$L PC(RO),RO 




; GET RETURN ADDRESS 




29 


11 


0827 


1568 




BRB 


INITjOMMON 




; DO COMMON INITIALIZATION 








0829 


1569 


CMKSRE FRESH:: 










12 1F 


DA 


0S29 


1570 




MTPR 


#31 # #PR$^IPL 


Set 


IPL to 31 RE I doesn't fault 


04 AE 


001F0000 8F 


DO 


082C 


1571 




MOVL 


*PSL$MJPL,4(SP) 




; SET TO KERNEL MODE & 1PL=31 



ZZ-ENSAA-7.0 

KERNEL 
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INIT^CONTEXT Initialize process context 

*** KERNEL Main control 
INIT CONTEXT Initialize 



04 0000080' EF 
04 AE 



04 


El 


0834 


1572 


10 


C8 


083C 


1573 






0840 


1574 




02 


0840 


1575 






0841 


1576 


000( 


)000 


0841 


1577 



10$: 



routine 

process 

BBC 
BJSL 
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REJ 



PSL SAVE: 



#PSL$V TBIT,PSL SAVE,10$ 
0laPSL5V_TBIT,47SP) 



.LONG 



If T-BIT SET IN OLD PSLC68J 
THEN SET IT IN NEW PSL [683 
ELSE DON'T. [683 



;TEMP. STORAGF FOR PSL C68J 
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IN1T_ CONTEXT Initialize process context 

*** KERNEL Main control routine 
INIT_CONTEXT Initialize process 
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50 8ED0 

50 00000148'EF DO 

5E 5D DO 



0000085V EF 94 

01 BB 

01 BA 

0000086F'EF 00 F8 

FEAF 31 



7E 



6D 

7E 
6E 



50 



0000 

50 DP 

00000000' EF 9E 



CCCCCCCC 
11111111 

1FFF 
12345678 



8F 
8F 
F6 
8F 
8F 



DO 
C3 
12 
BA 
DO 

05 



0845 
0845 
0848 
084F 
0852 
0852 
085? 
0852 
0858 
085A 
0863 
0865 
086C 
086F 
C86F 
0871 
0873 
087A 
087A 
0881 
0889 
088B 
088F 
0896 
0896 



1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 



INIT 



USERMQDE: 
POPL 
MOVL 
MOVL 



RO 

L A SAVEFP,FP 

FP,SP 



GET RETURN ADDRESS 
RESET FRAME POINTER 
DITTO FOR STACK POINTER 



INIT„C0MM0N: 



clrb L A ds$gb typecode 
PUSHR # A MR0 
$$ETAST_S #1 
POPR # A MR0 
CALLS #0,10$ 
BRW BEGIN 



code 



10$: 



20$: 



.WORD 
PUSHL 
MOVAB 

MOVL 

SUBL3 

BNEQ 

POPR 

MOVL 

RS8 





RO 

L A COND HANDLR, (FP) 



; Clear the SET BINARY 

; Save return address 

; Enable AST delivery 

; Restore return address 

; SETUP DUMMY CALL FRAME 

; IN THE UNLIKELY EVENT IT RETURN 

; SAVE NO REGISTERS 

; PUT RETURN ADDRESS BACK 

; STACK BASED CONDITION HANDLER 



[46;] 



# A XCCCCCCCC,-($P) ; SET INITIAL AP 

# A Xl1111in,(SP),-(SP) ; NEXT LOWER REGISTER 

20$ ; UNTIL RO 

* A M<R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R1O,R11,AP> 
# A X12345678,R0 ; INITIAL RO 

; RETURN ALL REFRESHED 
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C0NTR0L-C AST HANDLER 

*** KERNEL Main control routine 
CONTROL-C AST HANDLER 
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5E 









0897 


1605 








0897 


1606 








0897 


1607 








0897 


1608 








0897 


1609 








0897 


1610 








0897 


1611 








0897 


1612 








0897 


1613 








0897 


1614 








0897 


1615 








0897 


1616 








0897 


1617 








0897 


1618 








C897 


1619 








C897 


1620 








0897 


1621 








0897 


1622 








0897 


1623 








0897 


1624 








0897 


1625 








0897 


1626 








0897 


1627 








0897 


1628 








0897 


1629 








0897 


1630 






0000 


0897 


1631 


00000074 


8F 


C2 


0899 


1632 




6E 


9F 


08A0 


1633 


00000074 


8F 


DD 


08A2 


1634 


50 


5E 


DO 


08A8 
08AB 


1635 
1636 


5E 


08 


CO 


08C1 


1637 


11 


50 


E8 


08C4 
08C7 


1638 
1639 


30 6E 


14 


E1 


08D8 
08DC 


1640 
1641 


08 


AE 


B7 


08DC 


1642 




2B 


19 


08DF 
08E1 


1643 
1644 




DO 


11 


090A 
090C 
090C 


1645 
1646 
1647 


7F8'EF 


01 


C8 


092E 
0935 


1648 
1649 






04 


0935 


1650 



,SBTTL CONTROL-C AST HANDLER 



++ 

FUNCTIONAL DESCRIPTION: 

This is the user/node CONTROL-C handler. It sets 
DS$V„CTRLC in DSSGL..FLAGS and renables the *C AST. 

CALLING SEQUENCE: 

CALLS #0,RCTRLC 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 
SIDE EFFECTS: 

SETS DS$V„CTRLC IN DS$GL_FLA6S 



.ENTRY 



10$: 
20$: 



30$: 



RCTRLC, 

SUBL 

PUSHAB 

PUSHL 

MOVL 

$GETCHN 

ADDL 

BL8S 

ERRSUP„ 

BBC 

DECW 
BLSS 
$QIOW.S 
BRB 

$QIOW_S 
BISL2 

RET 



A M<> 

#DIB$K # .LENGTH,SP 
(SP) 

WIBSK.LENGTH 
SP RO 
_S L A DS$GW_TTIN,(R0),(R0); 
*8,SP 
R0,10$ 

#DEV$V M8X, - 

DIB$LJ5EVCHAR(SP),30$ ; 

DIB$LJ)EVDEPEND(SP) 

30$ : 

A*DS$GW,TTIN,*IO$ READVBL 

$0$ 



Space for device characteristics 

Make descriptor of DIB 

Set length 

Save address of data area 

Get characteristics 

Remove descriptor 

Branch if ok 



Branch if not mailbox 
Decrement count of messaged 
Finish 

K!I0$MJ4OW,,,,L*DS$GT_BUFFER,#8O 
Try again 



A A DS$GWTTIN f *I0SSETM0DE!I0$M..CTRLCAST, ...RCTRLC 
#DS$M_CTRLC,L a DS$GC_FLA6S ; SET CONTROL-C FLAG 

; RETURN 
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KEYBOARD CHECK ROUTINE 

*** KERNEL Main control routine 
KEYBOARD CHECK ROUTINE 
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0936 
0936 
0936 
0936 
0936 
09/J6 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
C936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 
0936 



1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 



.SBTTL KEYBOARD CHECK ROUTINE 
++ 

FUNCTIONAL DESCRIPTION: 

This routine is called to check for A C, if it has been typed 
control is passes to command mode by calling DS$n I. 
If Any ASTS are active (S/A only) the call is ignored 

CALLING SEQUENCE: 

BSBW KB.CHECK 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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KEYBOARD CHECK ROUTINE 

*** KERNEL Main control routine 
KEYBOARD CHECK ROUTINE 



0000FE48'EF D6 



OOOOFEOO'EF 



1C 
11 

000002F0'EF 

03 

OOBC 



000007F8 , EF 



000007F8 , EF 



00 

03 

OOAB 

18 
03 



OOAO 
OOOOOOOO'EF 



EO 

95 
13 
31 



OOOOOOOO'EF 16 



EO 
31 
E1 



31 
16 



0936 
0936 
093C 
093C 
0943 
0944 
094A 
094C 
094F 
094F 
0955 
0955 
095C 
095D 
0960 
0960 
0967 
0968 
0968 
096B 
096B 



1689 KB CHECK:: 

INCL 
KB.CHECK APT:: 
BBS 



1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 5$: 

1699 

1700 10$: 

1701 

1702 

1703 

1704 12$: 

1705 

1706 

1707 

1708 

1709 13$: 



TSTB 
BEQL 
BRW 

JSB 

BBS 

BRW 

BBC 



Brw 
JSB 
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L A DSA$GL„EVENT 



INCREMENT EVENT COUNTER 
CHECK FOR USER ENVIRONMENT. 



*DSA$V USER, - 

L A D$A$GL FLAGS, 10$ 
DS$AX_SOFTPCB+PCB$B„ASTACT ; Any ASTS active? 



5$ 
KB.CHECK.X 

L A KBJ>0LL 

#DS$V CTRLC, - 

L A D3$GL FLAGS, 12$ 
KB.CHECKJ 

#DS$V DISABLCC, - 
DS$SL_FLAGS, - 
13$ 

KB_CheckJ( 

SCRIPT$STOP 



Continue if not 

Exit immediately if so 

Poll console 

CHECK CONTROL-C FLAG 
If set, continue on 
If clear, exit routine 

Continue if A C enabled 



Exit if A C is disabled 

Stop script input 



[513 
[513 



[51 J 

[513 

[703 
[513 

[703 
[703 

[443 
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KEYBOARD CHECK 



000001 28'EF 

1F 

7E 000001 28* EF 

00000128'EF 

00010001 8F 

000007F8 I EF 

9E 6E 

01 50 



7£ 
000007F8'EF 



00000130'EF 
1F 

00000130'EF 
00000130'EF 
00010001 8F 

9E 6E 
01 50 



0000012CEF 

1F 

7E 0000012CEF 

0000012CEF 

00010001 8F 

000007F8'EF 

9E 6E 

B3 50 



ROUTINE 
*** KERNEL Main control 
KEYBOARD CHECK ROUTINE 



routine 



0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

0971 

D5 0971 

13 0977 

DO 0979 

0980 

D4 0980 

CA 0986 

098C 

FA 0991 

E9 0994 

05 0997 

0998 

D5 0998 

13 099E 

DO 09A0 

DA 09A7 

CA 09AD 

09B8 

FA 09B8 

E9 09B8 

05 09BE 

09BF 

D5 09BF 

13 09C5 

DO 09C7 

09CE 

DA 09CE 

CA 09D4 

09DA 

FA 09DF 

E9 09E2 

05 09E5 

09E6 



1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 



15$: 



20$: 
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Algorithm: 
1. - " 
2. 
3. 



4. 
5. 
6. 



7. 
8. 
9. 



Check the 1st DS A C handler. 

If there is not one, go to 4. 

If there is one, do the following: 

a. Call the 1st DS handler. 

b. If it returns failure, go to 

c. If it returns success, clear 
Check the user A C handler. 

If there is not one, go to 7, 

If there is one, do the following: 

a. Call the user 

b. If it returns 

c. If it returns 
Check the 2nd DS A C 
If there is not one. 



handier, 
failure, 
success, 
handler, 
lo to 10. 



go to 
clear 



4. 
the 



7. 
the 



X flag and return. 



X flag and return. 



If there is one, do the following: 

a. Call the 2nd DS handler. 

b. If it returns failure, go to 10. 

c. If it returns success, clear the 

10. Set up the stack in preparation for doing an REI. 

11. Call DS$Cli for VD$ command mode, 

12. REI. 



C flag and return. 



TSTL 

BEQL 
M0VI 

CLRL 
BICL2 

CALLG 

BLBC 

RSB 

TSTL 
BEQL 
K0VL 
CLRL 
8ICL2 

CALLG 

BLBC 

RSB 

TstL 
Beql 
MovL 

ClrL 
BicL2 

CallG 

BlbC 

Rsb 



L A DS$GA DS Ctrl_C_First 
15$ 

L A DS$GAJ)S_CtrLC.First, 

-(SP) 
L A DS$GA DS Ctrl C First 
#DS$M CTRL0!DS$nJ:TRLC,- 
L A D5$GL FLAGS 

(sp>, a(sP)+ 

R0, 15$ 



L A DS$LJJserCntrlC 
20$ 

L A DS$LJJserCntrlC,-(SP) 
L A DS$L,UserCntrlC 
#DS$M FTRLOIDSSM.CTRLC, 
L A DS$BL FLAGS 

(SP),a(SP)+ 

RO, $0$ 



L A DS$GA_DS_CtrLC_Second 

50$ 

L A DS$GA_DS_CtrLC.Second 

L A DS$GA DS Ctrl C Second 
#DS$M CTrlOiDSSRJtKC,- 
L A D3$GL Flags 

(sp>, acsP)+ 

R0, 15$ 



Check the 1st DS Control-C Handler? 

If not one, branch 

•; Move the 1st handler address 

. . . to the stack 

Clear out the 1st handler address 

Clear the A C and A bits 

Enter the first DS handLer 

If 1st handler 'failed', check user's 

• . . and return to the caller. 



i 



£701 
C70] 
£703 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 
£701 

£701 
£701 
£701 
£701 
£701 
[89] 
C89] 
[70] 
[70] 
C703 



ANY USER HANDLER? [70] 

NO, go check DS's second handLer [70] 

GET ADDRESS OF USER CONTROL-C ROUTINE [70] 

CLEAR HANDLER ADDRESS [70] 

C89] 

CLEAR CONTROL-C PENDING [89] 
ENTER HANDLER 

If handler 'failed', let DS handle 
RETURN 

Is there a 2nd DS Control-C Handler? [70] 

If not, call DS$Cli. [70] 

-; Move the 2nd handler address [70] 

. . . to the stack [70] 

Clear out the 2nd handler r.ddress [70] 

Otherwise, clear the A C and *0 bits [89] 

- - . [893 

Enter the second DS handler [703 

If 2nd handler 'failed', call DSSCU [703 

. . . and return to the caller. [703 
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KEYBOARD CHECK 



ROUTINE 

*** KERNEL Main control 
KEYBOARD CHECK ROUTINE 



50$: 







09E6 


1768 






09E6 


1769 






09E6 


1770 






09E6 


1771 






09E6 


1772 






09E6 


1773 






09E6 


1774 


7E 6E 


DO 


09E6 


1775 


04 AE 


DC 


09E9 


1776 


08 AE 


9F 


09EC 


1777 


3FFF 8F 


BB 


09EF 


1778 


00000000'EF 6E 


FA 


09F3 


1779 






09FA 


1780 






09FA 


1781 






09FA 


1782 






09FA 


1783 






09FA 


1784 






09FA 


1785 






09FA 


1786 






09FA 


1787 






09FA 


1788 






09FA 


1789 






09FA 


1790 






09FA 


1791 






09FA 


1792 






09FA 


1793 






09FA 


1794 






09FA 


1795 






09FA 


1796 


50 38 AE 


DO 


09FA 


1797 


70 3C AE 


7D 


09FE 


1798 


38 AE 50 


DO 


0A02 


1799 


7FFF 8F 


BA 


0A06 


1800 




02 


OAOA 


1801 






OAOB 


1802 






0A08 


1803 




05 


OAOB 


1804 



routine 



MOVQ 
BEQL 
SGETTIM. 
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L A BIN.TIME,L A BIN_TIME 

60$ 

S TIMADR=CTRLC_TIME 



$CANTIM_S REGIDT=*-2 



§0$: 
60$: 



MOVL 

MOVPSL 

PUSHA8 

PUSHR 

CALL6 

MOVQ 
BEQL 
SUBL2 

SBWC 

ADDL2 

ADWC 

$SETIMR. 



70$: 

MOVL 
MOVQ 
MOVL 
POPR 
REI 

KB.CHECK X: 
RS8 



(SP),-(SP) 
4(SP) 

8(SP) 

# A X3FFF 

(SP),L A DS$Cli 

L A BIN_TIME,L A BIN_TIME 
70$ 

L^EGIN^TIME, - 
L A CTRLC_TIME 
L A BEGIN_TIME+4, - 
L A CTRLC_TIME+4 
L A CTRLC TIME. - 
L A BIN TIME 
L A CTR[C TIME+4, - 
L A BIN.TlME+4 
,S EFN=#0, - 
DAYTIM-8IN TIME, - 
ASTADR=DSI$TIME AST, • 
REQIDT=*-2 



14*4(SP),R0 
15*4(SP),-(R0) 
R0,14*4(SP) 
# A X7FFF 



Was a /TIME value given? (test for 0) 

Branch if not 

Current time, so CONTINUE /TIME can 

be calculated. 

Cancel time on /TIME switch. 



COPY RETURN ADDRESS 

SAVE CURRENT PSL 

TRUE STACK POINTER AT ENTRY 

STACK REGISTERS 

ENTER COMMAND DECODER 



[88: 
[88] 
[88] 
£881 
[88] 



Branch if /TIME 
has expired. 
Calculate remaining 



not given or /TIME 
time for /TIME 



This is how to subtract 2 quads 
Result is time we actually used. 
Now, calculate how much more to 
let it run 
This adds 2 quads 

DS uses efn 
address of quad with time 
Where to go when done 
id for /TIME 



GET NEW STACK POINTER 

PUT NEW PC/PSL THERE 

PUT UPDATED NEW STACK POINTER BACK 

RESTORE REGISTERS, CHANGES SP 

USE NEW PC/PSL 



; RETURN 



[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
[88] 
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1839 
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1841 




0000 
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1842 






OAOE 


1843 


000001 30' EF 04 AC 


DO 


OAOE 


1844 


50 


D4 


0A16 


1845 


02 6C 


91 


0A18 


1846 


16 


IF 


0A18 


1847 


51 000007F8 , EF 


9E 


0A1D 


1848 


50 61 01 18 


Ef 


0A24 


1849 


1 01 18 08 AC 


F0 


0A29 


1850 


50 50 03 


78 


0A2F 


1851 


50 01 


88 


0A33 


1852 




04 


0A36 


1853 



.SBTTL DSXSCNTRLC 
FUNCTIONAL DESCRIPTION: 



Program enable for Control-C intercept 



This routine enables the diagnostic to intercept the next 

Control-C typed by the operator. 

If a routine has been specified when the next Control-C is 

typed, the enable is cleared and the routine called. 

The enable is effective until a Control-C is typed 

or canceled by calling with a zero routine.address. 

The routine also allows enabling or disabling control C handling, 
the DISABL argument has low bit SET, A C handling is DISABLED. 

CALLING SEQUENCE: 

DS$CNTRLC(routine_address) 

INPUT PARAMETERS: 

4(AP) Address of routine to call on Control-C 
8(AP) DISABL flag (LBS to disable, LBC to enable) 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: 

DSSLJJSERCNTRLC is set to value of routine^address 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



If 



.ENTRY DSXSCNTRLC, A M<> 



10$: 



MOVL 

CLRL 

CMP8 

BLSSU 

MOVAB 

EXT2V 

INSV 

ASHL 

BIS8 

RET 



4(AP),L A DS$L USERCNTRLC 

RO 

(AP),*2 

10$ 

L*DS$GL FLAGS, R1 

#DS$VJ)TSABLCC,#1,(R1) 



SET USER CONTROL-C ADDRESS 



; Is DISABL included? 

; No: don't use it 

; Point to internal flags 

-^.^i-nuuvv^.^modO; Extract current value of disable bit 

8CAP),#DS$V.„DISABLCC,#1,<R1); Insert new value 

#3,R0,R0 ; Make old value into a 

#1,R0 ; WASSET or WASCLR return code 
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0A37 
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0A37 
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0A37 



1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 



.Sbttl DSV$EXIT, Process EXIT command 



++ 



Functional Description: 

This routine is called from CLI when an EXIT command is 
typed- It will call DS CLEANUP, INIT_CONTEXT; then if 
in standalone, it will HALT; if on-line, it will do a 
SEXIT call. If the bits in the R5 that was passed from 
BOOT routines are setup for CRD-AutoTest, then do some 
special things. 

Inputs: 

None 
Outputs: 

None 



the 
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1888 
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F8 
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1894 
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1895 




0A4E 


1896 
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1897 
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1898 




0A56 


1899 


00 


0A56 


1900 


31 


0A57 


1901 




0A5A 


1902 




0A5A 


1903 




0A5A 


1904 




0A5A 


1905 




0A5A 


1906 




0A5A 


1907 


05 


0A63 


1908 



DSVSEXIT:: 

Br If Not.LodFlg 

Bsbw Ds_Cleanup 

10$: Bsbw Inlt.Context 



60$: 



10$ 



Branch if no program Loaded 
Conditionally call program cleanup 

Clean up after ourselves 



Call the Unload CRD routine - this routine will check to see if CRD 
been running. If it hasn't, it will return. If CRD has been running, 
t*e routine will deallocate all the memory that was allocated for 
che CRD image. In this case* it will not return to here! It goes to 
either the BeginJUiss label, or it does a Halt. 



P,ishL 
Calls 

+ 



#0 



If the CRD image is in memory, then 
. . . don't return to here, 
'Unload* the CRD image from memory 



#1, DSR$Unload„CRD 
If it comes to here, then the CRD image was not in memory, 



[47] 
[63] 
[47] 

[47] 



[71] 
[71] 
[71] 

C713 

[71] 



[76] 
[76] 
[76] 



[76] 



Br_If_User 

Begin 



60$ 



; If in User-Mode, don't try to halt [63] 



Halt 
BrW 



; Halt processor in standalone 

; Restart the VDS if console Continue 



We are in User-Mode. Do a system service exit. 



SExit.S 
Rsb 



Exit with success code 
(just in case) 



[63] 
[71] 



C63] 



C63] 
[47] 
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.SBTTL EXITSHANDLR 



Process EXIT handler 



++ 



FUNCTIONAL DESCRIPTION: 



This routine is called from the command interpreter 

when the image is forced to exit. It's sole purpose is 

to execute the diagnostic program cleanup code. 

DS_CLEANUP is called only if a program is loaded. 

In addition any devices allocated By select are deallocated. 

CALLING SEQUENCE: 

F'UTSHANDLRO 
INPUT PARAMETERS: 
IMPLICIT INPUTS: 

DSSGL.FLAGS 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
COMPLETION CODES: 



NONE 

DSSVJ)ONFLG, DSSV.LODFLG. DS$V^STRFLG 

NONE 

NONE 

NONE 



EXITSHANDLR: 
.WORD 
BBC 
BSBW 



A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 

#DSSV LODFLG,L A DSSGL_FLAGS JOS,;. Branch if not program loaded 



10$: 



20$: 



MOVAL 
MOVAL 
MOVL 



ds_clEanup 

ds$ga_ptable,r5 
dssga selects, r3 

(R5),R4 



MOVL (R5)CR4],R2 

BEQL 30S 

BBC #HP$V ALLOC, - 

hpsb Flags (R2),30S 

BBC #HPSV WASALL. - 

HPSB FLAGS <R2),30S 
SDALLOC.S HPlQJ)EVICE(R2) 
30$: SOBGTR R4,20S 

; Restore sysSdisk and default directory 

MOVAB L A DSSATJ)DEV,RO 

PUSHAB 2(R0) 

MOVZWL (R0>,-(SP> 

CLRL ~(SP) 

PUSHAQ 4(SP) 

PUSHAQ SYSSSYSROOT 

pushl n 

CALLS *4,SYSSCREL0G 
MOVAB L*DS$AT_DDiR,R0 



Conditionally execute program cleanup 

Point to P-table list 
Point to select bits 
Get max count of units 

Get address of P-table 
Branch if no P-table 

Branch if should not be deallocated 

Branch if is not allocated 
Deallocate device 
Count and branch 



Address of new logical name 

Length of new logical name 

Access mode 

point to descriptor of new name 

Address of descriptor of logical name 

In process logical name table 

Create logical name 

Address of old directory 
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04 AE 02 A0 


9E 


0AC8 


1967 


MOVAB 


6E 60 


3C 


OACD 


1968 


MOV2WL 


7E 


7C 


OADO 


1969 


CLRQ 


08 AE 


7f 


0AD2 


1970 


PUSHAG 


OOOOOQOO'EF 03 


FB 


0AD5 


1971 


CALLS 


5E 08 


CO 


OADC 
OADF 


1972 
1973 


ADDL 




04 


OADF 


1974 


RET 



2(RO),4(SP) 

(R0),(SP) 

-(SP) 

8(SP) 

#3,SYS$SETDDIR 

08, SP 



Fill in descriptor 

Fill in length 

Null parameters 

Address of descriptor 

Set default directory back 

Remove extra stuff 
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1984 
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.SubTitle 



++ 



DSRSCheck_MenuTest_Off - Set Routine 



FUNCTIONAL DESCRIPTION: 

This routine checks to see if CRD MenuTest Offline is active. 
It checks the BootSL 85 LoiV'ord and DSA Flags* 
The value in BootSL R5 is thv. value that 
is passes to the VDs from DiagBoot (in R5). 

CALLING SEQUENCE: 

Jsb/Ssbw/Bsbb DSR$CheckJ!enuTestJ)f f„Set 

INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

BootSL^R5 
DSASGLJlags 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

RO bit set: 

CRD MENU active. 
RO bit 1 -)et: 

Tie correct bits are set in BootSL R5. 

This indicates that CRD MENU 

was invoked from 'T/M 1 console command. RO bit 

1 clear indicates that CRD MENU was invoked by VDS 

'CRD' command. 
RO = 0; C1D MENU not active. 



DSR$Check_M*nuTest..Of f.Set: : 



ClrL 

Bbc 

BISL2 



RO 



Assume they are not set 



JDSASV CRD_"enuTest_Off, - ; If the CRDJIenuTest Of f 

' "DSASGLJ vags, - ; ...bit is not set in the DSA flags 

; ... branch to 50$ 



;os 

#1, R0 



CRD MENU active; set the Hag 



If the DiAG and the MenuTest bits are both set in the R5 passed from 
DiagBoot, set the low bit in RO and return. 



C803 
C69] 

[84] 

[84] 

[69] 
[711 
[69] 
[69] 
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000007E4'EF 



04 
OE 



E1 



U00007E4 , EF 



00 
06 



E1 



50 01 
50 02 



C8 
C8 



05 



OAED 2033 50$; 

0AF4 2034 

OAF 5 2035 

OAF 5 2036 

OAF 5 2037 

OAF 5 2C38 

OAF 5 2039 

0AF5 2040 

OAF 5 2041 

OAFC 2042 

OAFD 2043 

OAFD 2044 

OAFD 2045 

OAFD 2046 

OAFD 2047 

OAFD 2048 

OAFD 2049 

OAFD 2050 75$: 

0800 2051 

0803 2052 

0803 2053 

0803 2054 100$: 



Bbc 



#Rpb$V Diag, - 
[ A 8oot$LJ*5, - 
100$ 



The DJAG bit is set, 



Bbc WpbSVJItnuTm, - 

l A 8oot$L.. f > , 3, - 

100$ 



Fiche 9 Frame B11 Seguence 1779 
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If the DIAG bit is clear ... £79] 
... in the R5 passed f roni DiagBoot, [69] 
. ., branch to 100$. £691 

[69] 
C71] 
[69] 

If the MenuTest bit is clear ... [69] 
... in the R5 passed from DiagBoot, [69] 
... branch to 100$. [69] 



The MenuTest bit is aUo set. This indicates that CRD-MenuTest 
should be run. 



[69] 
[69] 
[84] 
[69] 



BISL2 *\, RO 
BISL2 #2. RO 



Rsb 



CRD MENU active [84] 

CRD MENU invoked by *T/M* cosole command 

[84] 



; Return to caller 



[69] 
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DSR$Check_AutoTest_Off_Set Routine 



C 11 

27-JUL-1984 



7-JUL-19M 

'3-JUL-198A 



Fich 
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0804 
0804 
0B0A 
0804 
0B04 
0804 
0804 
0804 




,SubTitle 



+ <v 



DSR$Check_AutoTest_Off_Set Routine 



FUNCTIONAL DESCRIPTION: 

This routine checks to see if CRD AutoTest Offline is active, 
Jt checks the BootSL R5 lonaword or DSA Flags. 
The value in BootSL R5 is the value that 
is passes to the VDS from DiagBoot (in R5). 
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0BO4 2065 

0BO4 2066 

OBOA 2067 

0804 2068 



CALLING SEQUENCE: 

Jsb/Bsbw/Bsbb DSRSChecMutoTest^Off.Set 
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DSR$Check_AutoTest_Off Set Rout ._ 

*** KERNEL Main control routine 
DSR$CheckJUitoTest_Off_Set Routine 



E 11 

Routine 27-JUL-1984 ...... 

27-JUL-1984 15:29:11 



Fiche 9 Frame E11 



23-JUL-1984 16:23^20 



_ Sequence 1782 
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50 DA 



OOOOFEOO'EF 



OB 
02 



E1 



10 11 



000007t:VEF 



04 
OA 



E1 



000007E4'EF 



OF 
02 



E1 



50 D6 



0B04 
0B04 
0B04 
0B04 
0B04 
0B04 
0804 
0B04 
0B04 
0B04 
0B04 
0804 
0B04 
0B04 
CB04 
0B04 
0B04 
0B04 
0B04 
0804 
0804 
0B04 
0804 
0B04 
0B04 
0804 
0B06 
0806 
OBOD 
OBOE 
OBOE 
OBOE 
0810 
0810 
0810 
0810 
0810 
0810 
0810 
0817 
0B18 
OBI 8 
0B18 
0B18 
0B18 
0818 
0818 
0B1F 
0B20 
0B20 
0820 
0820 
C820 
0820 
0B20 
0820 
0822 



2070 

2071 

2072 

2073 

2074 

2C75 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 



INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

Boot$L_R5 
DSA$GL_Flags 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

RO = 1: CRD AUTO active 

RO = 0: CRD AUTO not active 

DSR$CheckJ\utoTest_Of f_Set: : 



ClrL 

Bbc 



RO 



; Assume they are not set 



#DSA$V CRD_AutoTest_Off, - ; If the CRD_AutoTestJ)f f 

L A DSA$GL„Flags, - ; ... bit is not set in the DSA flags 
50$ ; ... branch to 50$. 



Brb 

+ 



75$ 



; The bit is set; set the flag 



If the AutoTest and the DIA6 bits are both set in the R5 passed from 
DiagBoot, set the low bit in RO and return. 



50$: 



Bbc #Rpb$VJ)iag, - 

L A Boot$L„R5, 
100$ 



The DIAG bit is set. 



Bbc #Rpb$V_AutoTest, - 
L A Boot$L„R5, - 
100$ 



If the DIAG bit is clear ... 

... in the R5 passed from DiagBoot, 

... branch to 100$. 



If the AutoTest bit is clear ... 
... in the R5 passed from DiagBoot, 
... branch to 100$. 



The AutoTest bit is also set. This indicates that CRD-AutoTest 
should be run. Return a 1 in R0. 



75$: 



IncL 



RO 



; CRD AutoTest is running. 



[80] 
[69] 

[84: 

[79] 

[69] 
[69] 
[69] 
[69] 

C79] 
[69] 
[69] 

[69] 
[69] 
[69] 

[69] 
C69] 
[69] 

[69] 
[69] 
[69] 
[69] 

[79]| 
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05 



0822 
0823 



2127 
2128 



100$: Rsb 



Return to caller 



C693 
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6 11 

Get User Terminal Character 27-JUL-1984 Fiche 9 Frame G11 Sequence 1784 

*** KERNEL Main control routine 27-JUL-1984 15:29:11 VAX-11 Macro V03-0T Page 65 
DSXSGETTERM Get User Terminal Character 23-JUL-1984 16:23:20 DMA1 :[SYS0.SYSMAINT]KERNEL.MAR;262<8) 



04 BC 



0B23 2130 

0B23 2131 

0B23 2132 

0B23 2133 

0B23 2134 

0B23 2135 

0B23 2136 

0B23 2137 

0B23 2138 

0B23 2139 

0B23 2140 

0B23 2141 

0823 2142 

0B23 2143 

0B23 2144 

0B23 2145 

0B23 2146 

0B23 2147 

0B23 2148 

0B23 2149 

0B23 2150 

0B23 2151 

0B23 2152 

0823 2153 

0B23 2154 

0B23 2155 

0B23 2156 

0B23 2157 

0B23 2158 

0B23 2159 

0B23 2160 

0B23 2161 

0B23 2162 

0823 2163 

0B23 2164 

0B23 2165 

0B23 2166 

0B23 2167 

0823 2168 

0B23 2169 

0B23 2170 

0823 2171 

0000 0B23 2172 

0B25 2173 

00000AE2 , EF 7D 0B25 2174 

50 01 DO 0B2D 2175 

04 0B30 2176 

0831 2177 

0831 2178 



.sbttl DSXSGETTERM Get User Terminal Characteristics 



++ 
FUNCTIONAL DESCRIPTION: 



C87J 

L871 
[87] 
[87] 

This routine simply passes the user terminal's characteristics C87] 
to the caller. The characteristics are stored in bits through£873 
23., They are defined by the STTDEF macro of VMS. The charac- L871 
teristics are determined at startup time and stored in 1871 
DSSGL TERMCHAR. [87] 

Z871 
CALLING SEQUENCE: [87] 

[87] 
PUSHAL addr [87] 

CALLS *1, DSXSGETTERM [87] 

[87] 
INPUT PARAMETERS: [87] 

£871 
4(AP) Address of longword in which to load characteristics [87] 

C87] 

C87] 

[87] 

Longword containing terminal characteristics C87] 

[87] 
[87] 
C87] 
[87] 
[87] 
[87] 
1871 
C87] 
[87] 
[87] 
[87] 

SSSJYORMAL - Service successfully completed, [87] 

[87] 
SIDE EFFECTS: C87] 

[87] 
NONE [87] 

[87] 



IMPLICIT INPUTS: 

DSSGL.TERMCHAR 

OUTPUT PARAMETERS: 
NONE 

INPLICJT OUTPUTS: 
NONE 

COMPLETION CODES: 



.ENTRY DSXSGETTERM, A M<> 



M0VQ 
MOVL 
RET 

.END 



DSSGL TERMCHAR, 34 (AP) 
#SSSJ30RMAL,R0 



Load term, characteristics 
Indicate successful return. 
Done. 



[87] 

C87] 
[87] 
[87] 
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23-JUL-1984 
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CSYS0.SYSMAINT]KERNEL.MAR;262(8) 


SSS 


= 00004400 


R 


D 


04 


CLI$V_BYTE 


= OOOOOOOD 


D 


SS.TAB 


= 000000E4 


R 


D 


03 


CLJSV^CLEAR 


= 00000002 


D 


$$.T ABEND 


= 00000128 


R 


D 


03 


CLJSV^DEC 


= 00000010 


D 


SS.TMP 


= 80000000 




D 




CLISV^DEFAULT 


= OOOOOOOC 


D 


SS.TMP1 


= 00000001 




D 




CLI$V_DEP0SIT 


= 00000019 


D 


$$.TMP2 


= OOOOOOCF 








CLJSV.EVENT 


= 00000008 


D 


SSARGS 


= 00000003 




D 




CLISV.EXAM 


= 00000005 


D 


S$N 


= 00000001 




D 




CLISV.FLAGS 


* 00000009 


D 


$$T1 


= 00000001 




D 




CLISV^HEX 


= 00000012 


D 


$ER 


= 00000002 




D 




CLJSV^KERNEL 


= 00000017 


D 


SMODULE 


000001 2C 


R 


D 


02 


CLI$V_LOAD 


= 00000006 


D 


A 


000007A4 


R 


D 


03 


CLISV.LONG 


= OOOOOOOF 


D 


APT 


00000097 


RG 


D 


05 


CLISV^NOTNUF 


= 00000001 


D 


ARB$C LENGTH 


= 00000078 




D 




CLI$V„OCT 


= 00000011 


D 


AX BUFF 


00000000 


RG 


D 


04 


CLISV^PREG 


= 0000001 A 


D 


beSin 


0000071 E 


RG 


D 


05 


CLI$V,QA 


= 00000007 


D 


BEGINO 


000005DC 


R 


D 


05 


CLISVJJACKLOOPLOOPS 


= 0000001 C 


D 


BEGIN_BLISS 


0000071 E 


RG 


D 


05 


CLISVJJAERRORPRINTS 


= 0000001 B 


D 


BIT... 


= 00000003 




D 




CLI$V,QAMULTIPLEPASS 


= 0000001 F 


D 


BOOT 


00000000 


RG 


D 


05 


CLISV..QASU8TESTL00PS 


= 0000001 E 


D 


BOOTSL.ADP 


000007D4 


RG 


D 


03 


CLISV^QATESTLOOPS 


= 0000001 D 


D 


BOOTSL.CSR 


000007D8 


RG 


D 


03 


CLJ$V„REG 


= 00000014 


D 


BOOrSL DEVTYP 


000007E8 


RG 


D 


03 


CLJ$V,REQUIRED 


= 00000000 


D 


BOOTSL.R2 


000007EO 


RG 


D 


03 


CLJ$V„RUN 


= 00000015 


D 


B00T$L_R5 


000007E4 


RG 


D 


03 


CLJSV.SET 


= 00000003 


D 


BOOT$L UNIT 


000Q07DC 
00000009 


RG 


D 


03 


CLJIV.SHOW 


= 00000004 


•> f 


CCB$B_SMOD 




D 




CLI$V,VALSEC 


= 00000016 


D 


CCB$B_STS 


00000008 




D 




CLISV WORD 


s OOOOOOOE 


D 


CCB$CJ_ENGTH 


00000010 




D 




CLKSRE INIT 


******** 


X 05 


CCB$K_LENGTH 


00000010 




D 




CMKSREFRESH 


00000829 RG D 05 


CCBSLJMRP 


oooooooc 




D 




CMK$_ 


= 00000004 


D 


CCBSLJJCB 


00000000 




D 




CMKS.ASTEXIT 


= 00000000 


D 


CCB$L WIND 


00000004 




D 




CMK$_CANTIM 


= OOOOOOOB 


D 


CCBSSlZE 


= 00000010 




D 




CMKS.HIBER 


= 00000007 


D 


CCBSWJOC 


0000000A 




D 




CMKSJNITSCB 


* 00000008 


D 


CLEAN^TRANSLATION 


0000055C 


R 


D 


05 


CMK$_LAST 


= OOOOOOOE 


D 


CLI$K BUFSIZ 


= 00000100 




D 




CMKS_MMENABLE 


= 00000003 


D 


CLI$K_SIZE 


00000444 




b 




CMK$ RCONSOLE 


= 00000001 


D 


CLI$L„ADDRESS 


00000018 




D 




cmk$;refresh 


= 00000005 


D 


CLI$L COMMAND 


00000004 




D 




CMK*_SCHDWK 


= 00000006 


D 


CLI$L_DATA 


0000001 c 




D 




CMK$ISETIMR 


= oooooooc 


D 


CLI$L_FLAGS 


00000000 




D 




CMK$ SETIPL 


= 00000009 


D 


CLISLJ.AST 


00000024 




D 




CMK$„ScTPRT 


= OOOOOOOD 


D 


CLI$LJJEXT 


00000030 




D 




cmkOgipr 


= OOOOOOOA 


D 


CLI$LJ>ASS 


0000002C 




D 




CMKSJCONSOLE 


= 00000002 


D 


CLI$L_SUBT 


00000028 




D 




COND.DEBUG 


******** 


X 05 


CLI$L_TEST 


00000020 




D 




C0ND_HANDLR 


******** 


X 05 


CLI$Q BUFQWD 


00000034 




D 




CR 


= OOOOOOOD 


D 


CLISCfFILE 


00000008 




D 




CRBSSIZE 


= 00000000 


D 


CLISQ^SECTiON 


00000010 




D 




CRD$K^CRD INITIALIZATION 


G D 


CLISCLTIME 


0000043C 




D 




CRD$K DSjONTROL_C 


= 00000001 
= 00000000 


G D 


CLI$T_BUFFER 


0000003C 




D 




CRD$K_DS FLAGS 


G D 


CLI$V_ADAPTER 


= 00000018 




D 




CRDIK.JATLURE 


= 00000000 


D 


CLISV.ADR 


= OOOOOOOB 




D 




CRD$O00K„P0INT 


= 00000000 
= 00000002 


G D 


CLI$V_ASCII 


= 00000013 




D 




CRD$K,LAST ACCESS CODE 


G D 


CLI$V^BREAK 


= OOOOOOOA 




D 




CRDSK^LAST^DS VARIABLE 


= 00000002 


G D 


CLISV BRIEF 


= 0000001B 




D 




CRDSKlLASTlFURCTION 


= 00000002 


G D 
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CRDSKJ-AST^HOOK.POINT 

CRDSK READ 

CRD$K_SUCCESS 

CRDSKJYPECQDE 

CRD$K WRITE 

CRETVAS ACMODE 

CRETVA$IlNADR 

CRETVA$ NARGS 

CRETVAS'RETADR 

CTLSGL.CCB 

CTL$GL_CCBBASE 

DBSIZ 

DDBSSIZE 

DEF$QJ)EV 

DEF$QJ)IR 

DEV$V_F0D 

DFVSVJ1BX 

DIBSKJ.ENGTH 

DIB$LJ)EVCHAR 

DIBSL DEVDEPEND 

DL.SlZ 

DM SIZ 

DR~SIZ 

DS$AQ_SSEND 

DS$AQ SYSSRV 

DS$ATJ)DEV 

DS$ATJ>DIR 

DS$AXJ\RB 

DS$AX_JIB 

DS$AX SOFTPCB 

DS$A PRGBGN 

DS$CCl 

DSSCNTRLC 

DSSFAB INPUT 

DSSFAB OUTPUT 

DS$GA_BUFPTR 

DS$GA w CHKLPPC 

ds$ga_crd ds interface 
dssgaj^CtrC^first 

dssga.ds ctrl c_second 

dssgaj.a5tadr 

DS$GA w LOOPADR 

DS$GA_PTABLE 

DS$GA_SELECTS 

DS$GB_BYTEBUF 

DSSGBJNHIBIT.NAMING 

DSSGBJ1M ENB 

DSSGB.JYPECODE 

DSSGK..SID 

DS$GL_BUFCNT 

DSSGL..BUFLEN 

DS$GL_CLIBASE 

DS$GL_D£VERR_COUNT 

OSSGLJFCO 

DS$GL_EFC1 

DSSGL.ERRCNT 

DSSGLJRRSUP COUNT 



00000001 


G D 




00000000 


G D 




00C00001 


D 




00000001 


G D 




00000001 


G D 




oooooooc 


D 




00000004 


D 




00000003 


D 




00000008 


D 




0000039C 


RG D 


03 


0000079C 


RG D 


03 


00000800 


D 




00000018 


D 




******** 


X 


05 


******** 


X 


05 


OOOOOOOE 


D 




00000014 


D 




00000074 







00000000 


D 




00000008 


D 




00000800 


D 




0O00OAO0 


D 




00000800 


D 




******** 


X 


02 


******** 


X 


02 


00000174 


R D 


03 


0000014C 


R D 


03 


0000026C 


RG D 


04 


00000200 RG D 


04 


000002E4 


RG D 


04 


00000200 


G D 




******** 


X 


05 


******** 


X 


05 


00000000 


RG D 


03 


00000094 


RG D 


03 


0000084C 


RG D 


03 


0000082C 


RG D 


03 


******** 


X 


05 


00000128 


RG D 


03 


000001 2C 


RG D 


03 


000007F4 
00000830 


RG D 


03 


RG D 


03 


******** 


X 


05 


******** 


X 


05 


00000850 


RG D 


03 


00000852 


RG D 


03 


******** 


X 


05 


00000851 


RG D 


03 


********* 


X 


05 


******** 


X 


05 


00000848 RG D 


03 


******** 


X 


05 


00000810 


RG D 


03 


000007EC 


RG D 


03 


000007F0 RG D 


03 


00000800 RG D 


03 


00000818 RG D 


03 



DSSGL.FLAGS 

DSSGL..FSTTEST 

DSSGL..HARDERR COUNT 

DS$GL,LSTTEST" 

OSSGL^NUMTEST 

DS$GL PCBVEC 

DS$GL_PREPERR_COUNT 

DSSGL..RADIX 

DS$GL„RUNTIM 

DSSGL.SIZE 

DS$GL_SOFTERR_COUNT 

DSSGL^SUBTEST 

D$$GL„SYSERR COUNT 

DS$GL_TERMCH*R 

DSSGL^TIMESEC 

DSSGLJJAITIM 

DS$GQ_BUFQWD 

DS$GQ^CURYEAR 

DSSGQ^DAYTIM 

DS$G(TEFL 

DS$GTJ\SCIBUF 

DSSGOUFFER 

DSSGT^LEGAL 

DSSGT_NEWYEAR 

DSSGT^PROMPT 

DSSGT^START 

DSSGT.STRBUF 

DSSGW.TTIN 

DS$GW TTOUT 

DSSINlTSCB 

DS$K ASCIBUF 

DSSK.BUFSIZ 

DSSK.CCB 

DS$K ERROR 

DSSK.NORMAL 

DSSKJJYSIZ 

DSSK.PRGSIZ 

DS$KJ>RINTB 

DS$KJ>RINTF 

DSSK.PRINTI 

DS$KJ>RINTX 

OSSK.SEVERc 

DSSK^SSSIZE 

DSSK^STRBUF 

DSSKJUBSYS 

DS$KJYPE_AB0RTJ>R0GRAM 

DS$K_TYPE.ABORT TEST 

DS$KJYPE_COMMAflD ERR 

DS$KJYPE_COMMAND~OUT 

DSSK.TYPElCRD AUTOTEST 

DS$K TYPE DS PROMPT 

ds$k_type;;ds"start 

DSSK.TYPElERRDEV 
D$$KJYPE.„ERRHARD 
DSSKlTYPElERROR^BODY 
DS$KJYPE_ERROR END 
DS$K.TYPE_ERRPREP 



000007F8 
00000820 
00000804 
00000824 
0000081 C 
000007AO 
00000808 
00000840 
00000834 
00000844 
0000080C 
00000828 
00000814 
0OO00AE2 
00000838 
0000083C 

00000848 

******** 

******** 
000007EC 
00000853 
00000862 
00000060 
******** 

******** 
******** 

0O000A62 
000007FC 

000007FE 

******** 

0O00000F 
00000200 
00000040 
00000002 

00000001 

******** 

0OO0F8OO 
00000002 
00000001 
00000000 
00000003 
00000004 
******** 

00000080 
00000066 
00000014 
00000013 



= 00 



016 
001 A 
QQ01 

001 D 
00000008 
00000006 
00000009 
OOOOOOOA 
0000001B 



RG D 

RG D 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

RG 

X 

X 

RG D 

RG D 

RG D 

R D 

X 

X 

X 

RG D 

RG D 

RG D 

X 

G D 

G D 

G D 

D 

D 

X 

G D 

D 

D 

D 

D 

D 

X 

G D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
05 
05 
03 
03 
03 
02 
05 
05 
05 
03 
03 
03 
05 



05 



05 
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DSSK„TYPE_ERRSOFT 
DSSK TYPE ERRSUP 
DSSK~TYPE~ERRSYS 
0S$OYPE**ERR HALT 
DSSK_TYPE_EXCPPTION 
0S$K TYPE EXCEPTION HEAD 
DSSK~TYPE~FIRST PASS 
DSSK~TYPE~GENERSL 

dssoypejseneral error 
dssk type no tests 
dssOype>aRam ERROR 

DSSK w TYPEJ>ROGR*M END 
DSSK_TYPEJ>ROGRAM,INFO 
DSSK.TYPE.PROGRAM STAR1 
DSSK_TYPE_QIO„INVJDP 
DSSK^TYPEJUO^NODRIVER 
DSSK TYPE QIO WRONGVER 
DSSK'TYPE SCRIPT ECHO 
DS$OYPElSCRIPrPNF 
DSSK TYPE SCRIPT PROMPT 

DS$OYPE.SCRIPT"SKIP 
DSSK_TYPE_SEQUbNCE ERROR 

DSSK TYPE START ERR 

DSSK~TYPE~$TARrLIST 

DSSK.JYPE_SUMMARY 

DSSK TYPE USER PROMPT 

DSSK~WARN*NG " 

DSSL5ADPCS 

DSSL USERCNTRLC 

DSSM ABRTFLG 

DSSM^BADTIME 

DSSM^BATCH 

DSSM_BRKCLR 

0SSM_BRKPT 

DSSM CHARFLG 

DSSM.CMDFLG 

DSSM CTRLC 

DSSMjCTRLO 

DSSMJ)EVFLG 

DSSM DISABLCC 

DSSM DONFLG 

DSSM~ERRFLG 

DSSM~EXCEPT 

DSSM^EXETST 

DSSM_HLTFLO 

DSSMJ.ODFLG 

DSSMJ1EMMGT 

DSSM OUTPUT 

DSSM~RU8FLG 

DSSMlSCRIPT 

DSSM.SETIMR 

DSSM STRFLG 

DSSM^SUBT 

DSSM SYSFLG 

DSSM TIMRON 

DSSR&B INPUT 

DSSRABOUTPUT 



00000007 


D 


00000004 


D 


00000005 


D 


0000000D 


D 


0000000C 


D 


0000000B 


D 


0000001 1 


D 


00000000 


D 


00000003 


D 


00000012 


D 


0000001 c 


D 


00000010 


D 


00000017 


D 


OOOOOOOF 


D 


00000024 


D 


00000022 


D 


00000023 


D 


00000021 


D 


0000001 E 


D 


00000020 


D 


0000001 F 


D 


00000019 


D 


00000018 


D 


00000025 


D 


0000000E 


D 


00000002 


D 


00000000 


D 


******** 


X 05 


00000130 


RG D 03 


00000040 


D 


00100000 


D 


00400000 


D 


00001000 


D 


00000800 


D 


00000100 


D 


00000080 


D 


00000001 


D 


00010000 


D 


00000200 


D 


01000000 


D 


00002000 


D 


00000010 


D 


00080000 


D 


00040000 


D 


00000008 


D 


00000002 


D 


00008000 


D 


00800000 


D 


00000020 
00200000 


D 
D 


02000000 
00000004 


D 


D 


00004000 
00000400 


D 


D 


00020000 


D 


00000050 


RG D 03 


O0OOOOE4 


RG D 03 



DSSSOFTIPL5 

DSSUSERMODE 

DSSUSERMCDE X 

DSSV.ABRTFL5 

DSSV^BADTIME 

DSSV.BATCH 

DSSV BRKCLR 

DSSV.BRKPT 

DSSV..CHARFLG 

DSSV.CMDFLG 

DSSV.CTRLC 

DSSV CTRLO 

DSSVlDEVFLG 

DSSVJHSABLCC 

DSSV_DONFLG 

DSSV^ERRFLG 

DSSV_EXCEPT 

DSSV.EXETST 

DS$V,HLTFLG 

DSSV_LODFLG 

[>S$y MEMMGT 

DSSV OUTPUT 

DSSVlRUBFLG 

DSSV.SCRIPT 

DSSV..SETIMR 

DSSV^STRFLG 

DSSV.SUBT 

DSSV SYSFLG 

DSSV TIMRON 

DSSJSRITH 

DSSlASBE 

OSS^BADLINK 

DSS^BADTYPE 

DSSlBIIC 

DSS^CHME 

DSS^CHMK 

DSSJ)EVNAME 

DSS..ERROR 

DSSJHWE 

DSS~FRAGBUF 

DSS ICBUSY 

DSS ICERR 

DSS IHWE 

DSSJLLCHAR 

DSSJUPAGCNT 

DSSJLLUNIT 

DSS^INSFMEM 

DSSJPL2HI 

DSSJVADDR 

DSS^IVVECT 

DSSJCRNLSTK 

DSSJ.OGIC 

DSS^MCHK 
DSS MMOFF 
DS$„NEEDUNIT 
DSS^NODE 
DSS NOPCS 



00000202 
0000020D 
0000O55B 
00000006 
00000014 
00000016 
000OO00C 
OOOOOOOB 
00000008 
00000007 
00000000 
00000010 
00000009 
00000018 
OOOOOOOD 
0000C004 
00000013 
00000012 
00000003 
00000001 
OOOOOOOF 
00000017 
00000005 
00000015 
00000019 
00000002 
OOOOOOOE 
OOOOOOOA 
00000011 
006600D0 
00660118 
006600F0 
006600E8 
00660120 
006600A8 
006600E0 
00660108 
00660002 
00660068 
00660080 
006600C8 
006600C0 
00660060 
00660018 
00660078 
00660100 
0Q660Q50 
00660068 
00660040 
00660038 
0066Q09Q 
00660070 
00660088 
00660058 
006600F8 
00660128 
00660110 



RG 
RG 
R 



05 
05 
05 
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DSS..N0RMAL 

DSSJJ0SUPP0RT 

DSS NOTDON 

DS$ N0T1MP 

DSS~NULLSTti 

DSS OVERFLOW 

DSS.POWER 

DSS PROGERR 

DSS.SEVERE 

DSS TRANSL 

DSS..TRUNCATE 

DSSJJNEXPINT 

DSSJ/ASFULL 

DSS WARNING 

DSAJAL APTMAIL 

DSASATlAPTTXT 

DSASGL.APTCOM 

DSASGL J)EVLEN 

DSASGL ERRNO 

DSASGLJVENT 

DSASGL FLAGS 

DSA$GL"MSGTYP 

DSASGL^PASSES 

DSASGL,PASSNO 

DSASGL.SECTNO 

DSASGL.SID 

DSASGL_SUBTNO 

DSASGL..TESTNO 

DSASGL JJNITS 

DSASGQ MSGPTR 

DSASGT DEVNAM 

DSASM XPT 

DSASMj:RDJVUTOTEST_OFF 

DSASM^CRD MENUTEST,OFF 

DSASM J)FLlFLGS 

DSASM JDPER 

DSASM PROMPT 

DSASM.USER 

DSASV..APT 

DSASV BINARY 

DSA$V_CRD_AUTOTESTJ)FF 

DSASV_CRD_MENUTESTJ)FF 

DSASV_CRD_MENUTEST_ON 

DSASV_CRD TRACE 

DSASV USER 

DSQASK DISPAT AFTER INIT 

DSQA$K,DISPAT^BEFORE,INIT 

DSQASK DISPAT^CALLTEST 

DSQASOlSPATJ)0NE TESTS 

DSQASK DISPATJ>SXSENDPASS_BGN 

DSQASK..DISPATJ)SXSENDPASS..END 

DSQA$OlSPATJ)5XSENDPAS$">1ID 

DSQASK DI SPATES CLEANUPJ3GN 

DSQASK DISPAT DS CLEANUPJND 

DSQA$K~DUMMY T " 

DSQASK~ERROR~ERROR_BGN 

D$QASKlERRORJRROR_END 



00660001 
006600B1 
00660030 
006600B0 
00660010 
00660008 
00660098 
00660020 
00660004 
006600A0 
00660028 
006600D8 
00660048 
00660000 
0O00FE00 
0000FA00 
0000FE04 
0000FE58 
0000FE44 
0OOOFE48 
000QFE00 
0000FE40 
0000FE08 
0000FE54 
0000FE10 
0000FE14 
0000FE4C 
0000FE50 
0000FE0C 
0000FE68 
0000FE5C 
80000000 
00000800 
00010000 
00003000 
00001000 
00002000 
10000000 
0000001 F 
00000001 
00000008 
00000010 
00000012 
00000011 
0000001 c 
00000014 
00000013 
00000015 
00000018 
00000001 
00000002 

cooooooo 

00000003 
00000004 
00000007 
00000006 
00000005 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



DSQASK.KERNEL INI T CONTEXT 

DSQASK_L00P_D5XSBGRSUB 

D5QASK_LO0PJ)SXSCKLO0P 

DSQASK.LOOP DSXSENDSUB 

DSQASK.PARAR DSXSGETADDRESS 

DSQASK_PARAM,DSXSGETDATA 

DSQASK.PARAM.DSXSGETLOGICAL 

DSQASK.PARAM DSXSGETSTRING 

DSQASK_PARAM~DSXSGETVIELD 

DSQASK.QA DSXSBRANCH 

DSQASK.,START_BEF0RE HEADER 

DSQASK^START.VRRESTjRT 

DSQASK START VRSTART 

DSRSCHECK^AUTOTEST.OFF SET 

DSRSCHECK HENUTESTJ)FF_SET 

DSRSLOAD CRD 

DSRSREST0RE CRD.VECTORS 

DSRSSETIMRjNI 

DSR$UNLOAD_CRD 

DSVSEXIT 

DSVSSETLOAD 

DSXSCNTRLC 

DSXSGETTERM 

DSXSPRINT 

DSXSPRINTI 

DSXSWAITUSJJSOVR 

DS.CLEANUP 

DS ERRSUP 

ESTKPTR 

EXESGB..CPUTYPE 

EXESGQ SYSTIME 

EXJTSDPSBLK 

EXITSHANDLR 

FABSC BID 

FABSC^BLN 

FABSOEQ 

FABSC.VAR 

FABSL^ALQ 

FA8SL.F0P 

FABSV.CHAN.MODE 

FABSV^CIF 

FABSVIFILE..MODE 

FABSVlGET 

FAB$V_LNMJ10DE 

FABSVlPUT 

FABSW^GBC 

FALSE 

FCBSSI2E 

GT MENU ERROR 

HPSA DEPENDENT 

HPSA DEVICE 

HPSA'DVA 

HPSA ..LINK 

HP$B DRIVE 

HPSBIFLAGS 

HPSQ^DEVICE 

HP$T_DEVJCE 



00000008 
00000009 
0000000B 
0000000A 
0000000E 
0000000C 
0000000F 
00000010 
0000000D 
0000001 1 
00000017 
00000012 
00000016 
00000B04 
00000AE0 
******** 
******** 
******** 
******** 

00000A37 

******** 

00000A0C 
00000923 

******** 

******** 
******** 
******** 

******** 

00003800 

******** 

******** 

000001 34 
00000A64 
00000003 

OQQ8Q9.50 

00000000 
00000002 
00000010 
00000004 
00000002 
00000019 
00000004 
00000001 
00000000 

00000048 
00000000 

00000030 

******** 

00000032 

"B88 

>0QQ00 

I000OC 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

RG D 05 

RG D 05 

X 

X 

X 

X 

RG D 05 

X 05 

RG D 05 

RG D 05 

X 05 




05 
05 
05 
05 



05 
05 
05 
05 



RG D 04 

X 05 

X 05 

R D 03 

R D 05 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



05 
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HPST TYPE 

MP$V~ALL0C 

HP$V UASALL 

HPSVTSIZE 

HP$U VECTOR 

IDB$5lZE 

IMAGE^HEADER 

IMAGE HEADER END 

IN1SBRK 

INISLOAD DEVICE 

INISPTABCE 

INIT.COMMON 

IN1T CONTEXT 

INlOJSERMODE 

IO$M_CTRLCAST 

IOSM NOW 

I01J5EADVBLK 

10$ SETMODE 

IOCfK DIAGPID 

IRPSSTZE 

ISTKPTR 

JIB$C_LENGTH 

JIB$L ARB 

KB CHECK 

KB_CHECK_APT 

KB„CHECK_X 

KB POLL 

KSTKPTR 

LF 

MAPMEM 

MASK 

MEMPO0LSIN1T 

OFF 

ON 

POPT BASE 

PCB$Bj\STACT 

PCB$B.ASTEN 

PCBSB.PRI 

PCBSB^PRIB 

PCBS8 TYPE 

PC8$BlWEFC 

PCB$CJ.ENGTH 

PCB$KJ.ENGTH 

PC8SL..ARB 

PCB$L_ASTQBL 

PCB$LJ\STQFL 

PCB$L_EFC2P 

PCBSL.EFC3P 

PCBSL.EFCS 

PCB$L„EFCU 

PCBSL.EFWM 

PCBSLJIB 

PCBSL.OWNER 

PCB$L PHD 

PCBSLlPHYPCB 

PCBSlJMD 

PCB$L_PQB 
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0000C026 


D 




= 00000000 


D 




= 00000001 


D 




00000008 


D 




00000024 


D 




= 00000020 


D 




000001 9C 


RG D 


03 


0000039C 


RG D 


03 


00000200 RG D 


05 


******** 


X 


05 


******** 


X 


05 


00000852 


R D 


05 


0000073B 


RG D 


05 


00000845 


R D 


05 


******** 


X 


05 


******** 


X 


05 


******** 


X 


05 


******** 


X 


05 


= 00660000 


G D 




= 00000050 


D 




= 00003200 


RG D 


04 


= 0000006C 


D 




= 00000000 


D 




00000936 RG D 


05 


0000093C 


RG D 


05 


OOOOOAOB 


R D 


05 


******** 


X 


05 


= U0002A00 


RG D 


04 


= OOOOOOOA 


D 




******** 


X 


05 


= 00OO00OF 


D 




******** 


X 


05 


= 00000000 


D 




= 00000001 


D 




s 00004400 


RG D 


04 


oooooooc 


D 




0000000D 


D 




0000000B 


D 




0000002F 


D 




OOOOOOOA 


D 




0000002E 


D 




0000008C 


D 




0000008C 







00000084 


D 




00000014 


D 




00000010 







00000058 


D 




0000005C 







00000050 


D 




00000054 


D 




0060604 C 

00000078 


D 
D 




0000601C 


D 




00000064 


D 




00000018 


D 




00000060 







0000004C 


D 





PCB$L„SGBL 

PCBSL SQFL 

PCBSL.STS 

PC8SL.UIC 

PCBSL..WSSUP 

PC8$L„WTIME 

PC8$Q_PR1V 

PC8*T,LNAME 

PCB$T TERMINAL 

PC8$W APTCNT 

PCBSW ASTCNT 

PCB$U_BIGCNT 

PCBSW^BIOLM 

PCB$W,DIOCNT 

PC8$W_DIOLM 

PCB$W„GPGCNT 

PC8$W„GRP 

PC8SVCMEM 

PC8SW MTXCNT 

PC8$W„.PPGCNT 

PCBSW^PRCCNT 

PCBSU SIZE 

PCB*W STATE 

PC8$W TMBU 

PCB BASE 

PHDlB^ASTLVL 

PHDSLJSP 

PHD$L„KSP 

PHD$LlPOBR 

PHD$L_POLRASrL 

PHD$L P1BR 

PHDSL.P1LR 

PHDSl^PC 

PHDSL.PC8 

PHD$L„PSL 

PHDSL..R0 

PHD$LJU2 

PHDSL^SSP 

PHDSL USP 

PHD.BflSE 

PR$_ASTLVL 

PR$.ESP 

PRSJPL 

PRSJSP 

PRS^KSP 

PR$„MAPEN 

PRS^PQBR 

PR$~p6lR 

PR$J>1BR 

PR$IP1LR 

PRSlPCBB 

PR$,SCBB 

PR* SID 

pr$;ssp 

PR$ USP 
PRGBUF 
PSL$M IPL 



00000004 
00000000 
00000024 
00000088 
00000020 
00000028 
0000007C 
00000066 
00000044 
00000030 
00000038 
0000003A 
0000003C 
0000003E 
00000040 
00000034 
0000008A 
00000088 
OOOOOOOE 
00000036 
00000042 
00000008 
0000002C 
00000032 
00000078 
0OO0OOCF 
0000007C 
00000078 
0OO000C8 
000000C C 
000000D0 
000000D4 
OOOOOOCO 
00000078 
000000C4 

00000080 

00000084 

fOOOOOOO 




4 



0000168 
01 F 6000 



04 



D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 
RG D 

D 

D 

D 

D 

D 

D 



D 





D 

D 



D 
RG D 04 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 



R 



02 



ZZ-ENSAA-7,0 
KERNEL 
Symbol table 

PSLSV^IS 

PSLSV TBIT 

PSL SSVE 

GASflAIN 

QIOSINITIALIZE 

QIOSMINCORE 

RABSB RAC 

RABSC^BID 

RABSC.BLN 

RABSC SEQ 

RAB$L CTX 

RAB$L~R0P 

RABSVlCCO 

RABSV CVT 

RCTRLC 

RMSSINIT 

RP8S8..800TNDT 

RPB$B_CONFREG 

RPBSB DEVTYP 

RPB$B_HDRPGCNT 

RPB$B_R0DEVTYP 

RPBSB_SLAVE 

RPBSBJJAIT 

RPBSC.LENGTH 

RPB$K LENGTH 

RPB$L~ADPPHY 

RPBSLlADPVIR 

RPB$L_BA$E 

RPBSL BOOTRO 

RPB$LlBOOTR1 

RPB$L„BOOTR2 

RPB$L w BOOTR3 

RPBSL B00TR4 

RPB$LlBOOTR5 

RPB$L_BUGCHK 

RP8$L CHKSUM 

RPBSL^CSRPHY 

RPBSLlCSRVIR 

RPBSLJILLBN 

RPB$L_FILSIZ 

RPBSL.HALTCODE 

RPBSL.HALTPC 

RPB$L_HALTPSL 

RPBSLJOVEC 

RPBSLJOVECSZ 

RPB$L ISP 

RPBSLlMEMDSC 

RPBfL^PCBB 

RPBSL P^NCNT 

RPBSLlRESTART 

RPB$L RSTRTFLG 

RPB$LlSBR 

RPBSL..SCB6 

RPBSL_SISR 

RPB$L_SLR 

RPB$L SVASPT 

RPB$Q~PFNMAP 
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*5 0000001 A 


D 


= 00000004 


D 


00000841 


R D 05 


******** 


X 05 


******** 


X 05 


= 00005E3C 


G D 


= 0000001 E 


D 


= 00000001 


D 


= 00000044 


D 


= 00000000 


D 


= 00000018 


D 


= 00000004 


D 


= 0000001 F 


D 


= 0000001A 


D 


00000897 


RG 05 


******** 


X 05 


000000A1 


D 


00000090 


D 


00000066 


D 


OOOOOOAO 


D 


0000001 c 


D 


00000067 


D 


00000100 


D 


00000104 


D 


00000104 


D 


0000005C 





00000060 





00000000 


D 


0000001 c 


D 


00000020 


D 


00000024 


D 


00000028 


D 


0000002C 


D 


00000030 


D 


O00O00FC 


D 


00000008 


D 


00000054 


D 


00000058 


D 


0000003C 


D 


00000040 


D 


00000018 


D 


00000010 


D 


00000014 


3 


00000034 
00000038 


D 


D 


O0OOOOA4 


D 


000000BC 


D 


000O00A8 


D 


0000004 C 
00000004 


D 


D 


oooooooc 


D 


OOOQQQAC 
00000080 


D 
D 


OOOOO0B4 


D 


00Q000B8 
00000050 


D 





00000044 


D 



RP8ST FILE 

RPBSVlAUTOTEST 

RPBSV.DIAG 

RP8SVJNIBPT 

RPBSV.MENUTEST 

RPBS^LROUBVEC 

RP8SW UNIT 

SAVEFP 

SC8SL.ACCESS 

SCBSL.ARITH 

SC8$L BREAK 

SCBSL_CHME 

SCBSL.CHMK 

SCBSL CHMS 

SCBSL^CHMU 

SC8$l_COMPAT 

sc8sl„knlstk 

scb$l,machchk 

scbsl^opccus 

sc8sl.opcdec 

scbsl..power 

scbsl radrmod 

scb$l,roprand 

scbsl_rxdb 

scbsl.sftlvl1 

sc8$l,sftlvl10 

sc8sl_sftlvl11 

scbsl.sftlvl12 

scbsl.sftlvl13 

scbsl sftlvl14 

sc8sl_sftlvl15 

scbsl_sftlv.2 

scbsl^sftlvh 

sc8sl„sftlvl4 

scbsl sftlvl5 

sc8$l_sftlvl6 

scbslisftlvl7 

scbslIsftlvls 

sc8sl_sftlvl9 

sc8sl.tbit 

scbsl_timer 

scbsl.jransl 

SCBSLJXDB 

SCBSL~ZERO 

SCB_B*SE 

SCBJMAGE 

SCB UNKINT 

SCHJGL CURPCB 

SCRIPT$INIT 

SCRIPTSSTOP 

SGNSC IRPCNT 

SGNSClNPAGEOYN 

SIZ... 

SIZE TERM 

SSSjlORMAL 

SSS NOTRAN 

SSPROT 



00000068 
OOOOOOOF 
00000004 

0000001 E 
00000064 
00000148 
00000020 
00000034 
0000002C 
00000044 
00000040 
00000048 
0000004 C 
00000030 
00000008 
00000004 
00000014 
00000010 
OOOOOOOC 
0000001 C 
00000018 
O000O0F8 
00000084 
O00OO0A8 
OOOOOOAC 
OOOOOOBO 
O0QOQQB4 
00000088 
OOOOOOBC 
QQQ00Q88 
0000008C 
0Q0Q0Q90 
OOQQ0094 

0Q3QQQ98 
O000OQ9C 
)A0 
IQA4 
)028 
OOOOOOCO 




00000024 

000 



008 

400 



******** 

ooooocoo 

000007A0 

******** 

******** 
)040 

oooodooi 

******** 

00000001 
******** 

000001 3B 




R 




D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


D 
D 
D 
D 
D 
D 
D 

D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 


D 
D 
D 
D 
D 
D 
D 
RG D 

X 

RG 

RG 

X 

X 

G 

G D 

D 



R D 



03 



04 
05 
04 
03 
05 
OS 



05 

05 
02 
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SSTKPTR 

STACK BASE 

SUPBUF 

SWISGLJQBL 

SUIS6L FQFL 

SYIS STD 

SYSSSSSIGN 

SYSSBINT1M 

SYSSCLREF 

SYSSCONNECT 

SYSSCREATE 

SYSSCRELOG 

SYSSCRETVA 

SYSSOALLOC 

SYS$DCLEXH 

SYSSDELTVA 

SYS5DISK 

SYSSDXLEXH 

SYSSEXIT 

SYSSGETCHN 

SYSSGETSY] 

SYSS1NPUT 

SYSSOPEN 

SYSSOUTPUT 

SYSSQIOW 

SYSSSETAST 

SYSSSETDDIR 

SYSSSETEXV 

SYS*SETPRT 

SYSSSYSROOT 

SYS$TRNLOG 

SYSVEC 

TH SIZ 

trSn^assign 

TRUE 

T BOTH CRD,BITS,SET 

T WRON5CPU 

UCBSSIZE 

USTK7TR 

VCBSSIZE 

VRSETWIDTH 

V ENV 

V LVL 
WC8SSI2E 
XDELBPT 
XDELTBIT 
XF.SIZ 
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OO0O3EO0 
OOOOHOO 
00000160 
000007A8 
000007A4 

00001001 

******** 

******** 
******** 

******** 

******** 
******** 

800000C8 
******** 
******* * 

80000110 
**** **** 

800000FO 
******** 

******** 

******** 

OOOOOKB 

**'r***** 

00000155 
******** 
******** 
******** 
80000208 

80000230 
******** 

******** 

00000133 
00001000 
00000594 
00000001 
00000030 
00000000 
00000098 
00004400 

00000050 
******** 

00000001 
00000000 
00000030 

********y GX 
********y qx 
00000600 I 



RG D 04 

RG D 04 

R D 02 

RG D 03 

RG D 03 
D 



X 
6X 
GX 
GX 
GX 

X 
G D 
GX 
GX 
G D 

X 

D 

GX 

GX 

GX 

R D 

GX 

ft D 

GX 

GX 

X 
G D 
D 

X 

X 
R D 



05 
05 
05 
05 
05 
05 

05 
05 

05 

05 
05 
05 
02 
05 
02 
05 
05 
05 



05 
05 
02 

05 

02 
02 



RG D 04 
D 
05 



00 
00 
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Psect synopsis 



*** KERNEL Main control routine 



B 12 
27-JUL-1984 



7-JUL-1984 

'3-JUL-1984 



Ffche 9 Frame B12 Seguence 1792 

i 15:29:11 VAX-11 Macro V03-0T Page 73 

16:?3.*20 DMA1i[SYS0.SYSMAINT3K£RNEUMAR;262<8> 



PSECT name 

ABS . 
SABSS 
DATA 
WORK 

LAST 
TODE 



Allocation 



+ ♦ 

! Psect synopsis ! 

PSECT No, Attributes 



00000000 ( 0) 00 ( 

0000FE70 (65136.) 01 ( 1 

00000170 ( 368.) 02 < 

00000AEA ( 2794.) 03 ( 

00000000 ( Q.> <K < 



00000831 ( 286 



!:! 



05 ( 5 






) 


NOPIC 


USR 


CON 


ABS 


LCL 


NOSMR 


NOEXE 


NORD 


NOWRT NOVEC BYTE 


1 


J 


NOPIC 


USR 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC BYTE 


? 


) 


NOPIC 


USR 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


NOWRV NOVEC BYTE 


3 


) 


NOPIC 


USR 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RO 


WRT NOVEC LONG 


A 


.) 


NOPIC 


USR 


CON 


REL 


LCL 


NOSHR 


EXF 


RO 


WRT NOVEC PAGE 


5 


,) 


NOPIC 


USR 


CON 


REL 


LCL 


sm 


EXE 


RD 


NOWRT NOVEC LONG 



J 













C 12 
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23-JUL-1984 16j23*20 DMAt 
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! Symbol Cross Reference ! 


SYMBOL 


VALUE 


DEFINITION 


REFERENCES., 


• 












%%% 


=Q0004400-R 


800 


(5) 


742 


(5) 


743 


(5) 


744 


(5) 


750 


(5) 










751 


(5) 


757 


(5) 


763 


(5) 


769 


(5) 










770 


(5) 


771 


(5) 


772 


(5) 


785 


(5) 










786 


(5) 


788 


(5) 


789 


(5) 


791 


(5) 










792 


(5) 


794 


(5) 


795 


(5) 


797 


<5) 










798 


(5) 


800 


(5) 


801 


(5) 


803 


(5) 


$$.TAB 


=000000E4-R 


593 


(1) 


584 


(1) 


587 


(1) 


590 


(1) 


593 


(1) 


$$.T ABEND 


=000001 28-R 


593 


(1) 


584 


(1) 


587 


(1) 


590 


(1) 


593 


(1) 


$$.TMP 


=80000000 


593 


(1) 


584 


(1) 


587 


(1) 


590 


(1) 


593 


<1> 


SS.TMP1 


=00000001 


1089 


(5) 


1083 


(5) 


1085 


(5) 


1087 


(5) 


1089 


(5) 


$$.TMP2 


=OOO0OOCF 


1089 


(5) 


1083 


(5) 


1085 


(5) 


1087 


(5) 


1089 


(5) 


$$ARGS 


=00000003 


719 


(1) 


719 


(1) 














SSN 


-00000001 


1465 


(6) 


#-1371 
#-1465 


(5) 

(6) 


#-1430 
938 


(6) 
(S) 


#-1443 


(6) 


1448 


(6) 


$$T1 


=00000001 


1647 


(6) 


1039 
1647 


(5) 
(6) 


1116 
719 


(1) 


1233 


(5) 


1644 


(6) 


$ER 


=00000002 


1639 


(6) 


#-1639 


(6) 














SMODULE 


0000012OR 


715 




1639 


(6) 














A 


000007A4-R 


643 




643 


(1) 


646 


(1) 










APT 


00000097-R 


887 




















ARBSC LENGTH 


=00000078 






757 


<5> 














AX BUFF 


OOOOOQOO-R 
0000071E-R 


736 




903 


<5> 














BEGIN 


1467 


(6) 


A-K64 


(6) 


#-1477 


(6) 


#-1591 


(6) 


#-1901 


(6) 


BEGINO 


000005DC-R 


1340 




#-1247 


(5) 


#-999 


(5) 










BEGIN^BLJSS 


0000071E-R 
=00000003 


1468 




















BIT.., 


494 




470 


(1) 


488 


(1) 


489 


(1) 


492 


<1> 










493 


(1) 


494 


(1) 










BOOT 


00000000-R 


847 




















80OT$L ADP 


000007D4-R 


653 




#-857 


(5) 


#-862 


(5) 










BOOTSL CSR 


000007D8-R 


654 




#-863 


(5) 














BOOTSLlDEVTYP 


G00007E8-R 


658 




#-868 


(5) 














BOOT$L.R2 


000007EO-R 


656 




#-865 


(5) 














BOOT$L_R5 


000007E4-R 


657 




2034 
#-866 


(6) 

(5) 


2042 
916 


(6) 
(5) 


2109 


(8) 


2117 


(8) 


BOOT$L UNIT 


000007DC-R 


655 




#-864 


(5) 














CCB$C CENGTH 


00000010 






628 


<1) 














CCBSSTZE 


=00000010 
0000055C-R 


521 




532 


(1) 














CLEAN TRANSLATION 


1256 




#-1144 


(5) 


#-1193 


<5) 










CLISK'BUFSJZ 


=00000100 


487 




487 


(1) 














CU$K_SIZE 


00000444 
00000018 


487 




















CLI$L ADDRESS 


487 




















CLI$L"COMMAND 


00000004 
0000001 C 


487 




















CLISL.DATA 


487 




#-1435 


(6) 














CLISL.FLAGS 


00000000 
00000024 


487 




















CLISL.LAST 


487 




















CLISL.NEXT 


00000030 
0000002C 


487 




















CLISL.PASS 


487 




















CLI$L_SUBT 


00000028 
00000020 


487 




















CLlSLlTEST 


487 




















CLI$Q_BUFGWD 


00000034 


487 





















ZZ-ENSAA-7.0 

KERNEL 

Cross reference 



Cross reference 



*** KERNEL Main control routine 



CLISQJILE 

CLISQ SECTION 

CLISQJTIME 

CLIST.BUFFER 

CL1SV.ADAPTER 

CLISV.ADR 

CLISV^ASCI I 

CLISV..BREAK 

CLISV.BRIEF 

CLISV.BYTE 

CLISV..CLEAR 

CLI*VJ>EC 

CLISV.DEFAULT 

CLISV DEPOSIT 

CLISVIEVENT 

CLISV.EXAM 

CLISV.FLAGS 

CLISV..HEX 

CLISVJCERNEL 

CLISVJ.OAD 

CLISV.LONG 

CLISVJJOTNUF 

CLISV^OCT 

CLISV,PREG 

CLISV_QA 

cllsv_qacklooploops 
clisv qaerrorprints 
clisvIqamultiplepass 
clisvj3asubtestloops 
clisvj3atestl00ps 

CLISV..REG 

CLI$V„REQUIRED 

CLISVJUJN 

CLISV_SET 

CLISV.SHOW 

CLISVJ/ALSEC 

CLISV WORD 

CLKSRE INIT 

CMKSREFRESH 

CMK$_ 

CMK$J\STEXIT 

CMKS CANTIM 

CMKS HIBER 

CMKS INITSCB 

CMKS"LAST 

CMKS^MMENABLE 

CMKS RCONSOLE 

CMK$lREFRESH 

CMKS SCHDWK 

CMKS^SETIMR 

CMKS_SETIPL 

CMKS SETPRT 

CMKS~SGIPR 

CMKS^TCONSOLE 

COND.DEBUG 

COND_HANDLR 

CR 



000C0008 
00000010 
0000043C 
0000003C 
=00000018 
=0000000B 
=0000001 3 
=0000000A 
=0000001 B 
:0000000D 
=00000002 
=00000010 
=0000000C 
'00000019 
=00000008 
=00000005 
=00000009 
=00000012 
=00000017 
=00000006 

=oooqooof 

=00000001 

=00000011 

=0000001 A 

=00000007 

:0000001C 

=0000001 B 

=0000001 F 

=0000001 E 

=00000010 

=00000014 

=00000000 

=00000015 

=00000003 

=00000004 

=00000016 

=O00OO0OE 

00000000-XR 

00000829-R 

=00000004 

=00000000 

=00000008 

=00000007 

=00000008 

=0000000E 

=00000003 

=00000001 

=00000005 

=00000006 

=0000000C 

=00000009 

=0000000D 

=oooqoooa 

=00000002 
00000000-XR 
00000000-XR 
:0OOOO00D 



487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 
487 

1569 

488 

488 

488 

488 

488 

488 

488 

488 

488 

488 

488 

488 

488 

488 

488 



511 



#-880 



D 12 
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(5) 



978 
#-1539 



(5) 
(6) 



#-1539 (6) 



(1) 



1039 
1040 



(5) 
(5) 



1595 (6) 













E 12 








ZZ-ENSAA-7,0 Cross ref 


erence 






27' 


-JUL-1984 


Flch 


e 9 Frame E12 Seguence 1795 

29:11 VAX-11 Macro V03-OT Page 76 


KERNEL 


*** KERNEL Main control 


routine 




27-JUL-1984 15: 


Cross reference 












23-JUL-1984 16: 


23:20 DMA1 :CSYS0.SYSMAINT3KERNEL.MAR;262(8) 


CRBSSIZE 


=0000002C 


518 




529 


(1) 








CRD$K_CRD INITIALIZATION 


=00000000 


494 




#-1413 


(6) 








crosk ds Control c 


=00000001 


494 














CRD$K~DS~FLAGS " 


=00000000 


494 














crdskIfaTlure 


=00000000 


494 














crd$k_hookj>oint 


=00000000 


494 




#-1414 


(6) 








CRD$K LAST ACCESS CODE 


=00000002 


494 














crdsiClasOs VARIABLE 


=00000002 


494 














crd$kj_astjuHction 


=00000002 


494 














CRD$K LAST HOOK POINT 


=00000001 


494 














CRD$K~READ~ 


=00000000 


494 














CRDSK^SUCCESS 


=00000001 


494 














CRD$K TYPECODE 


=00000001 


494 














CRDSK'WRITE 


=00000001 


494 














CRETVA$_ACMODE 


=ooooococ 


719 














CRETVAS INADR 


=00000004 


719 














CRETVAS'NARGS 


=00000003 


719 














CRETVA$""RETADR 


=00000008 


719 














CTLSGLjCB 


0000039C-R 


627 














CTLSGL CCBBASE 


0000079C-R 


630 




631 


(1) 








DB SIZ 


=00000800 


536 




543 


(1) 








DOBSSIZE 


=00000018 


517 




528 


(1) 








DEF$Q DEV 


00000000-XR 






1145 


(5) 


1209 


(5) 




DEF$Q~DIR 


00000000-XR 






1175 


(5) 


1218 


(5) 




DEVSVJOD 


=0000000E 






#-1082 


(5) 








DEV$V HBX 


=00000014 






#-1640 


(6) 








OIBSK'LENGTH 


=00000074 






#-1632 


(6) 


#-1634 


(6) 




DIB$LJ)EVCHAR 


=00000000 






1641 


(6) 








DIB$L DEVDEPEND 


=00000008 






#-1642 


(6) 








DL_Sl7 


=00000800 


537 


(1) 


543 


(1) 








DM SIZ 


=0O0OOA0O 


538 


(1) 


543 


(1) 








DR SIZ 


=00000800 


539 


(1) 


543 


(1) 








DS$AQ SSEND 


00000000-XR 






#-1067 


(5) 


717 


(1) 




DS$AQ~SYSSRV 


00000000-XR 






1045 


(5) 


1053 


(5) 


717 (1) 


DS$ATJ>DEV 


000001 74-R 


616 


(1) 


1132 


(5) 


1957 


(6) 




DSSAT.DDIR 


0000014C-R 


614 


(1) 


1214 


(5) 


1217 


(5) 


1960 (6) 


DS$AXJ\RB 


=0000026C-R 


751 


(5) 


1532 


(6) 








DS$AX JIB 


=00000200-R 


750 


(5) 


1530 


(6) 








DS$AX SOFTPCB 


=000002E4-R 


757 


(5) 


1522 


(6) 


#-1694 


(6) 


635 (1) 


DS$A PRGBGN 


=00000200 


508 


(1) 


509 


(1) 


731 


(5) 




DSSCCl 


00000000-XR 






1473 


(6) 


1779 


(6) 




DSSCNTRLC 


00000000-XR 






1456 


(6) 


925 


(5) 




DS$FABJNPUT 


00000000-R 


583 


(1) 


1083 


(5) 


587 


(1) 




DSSFAB OUTPUT 


00000094-R 


589 


(1) 


1087 


(5) 


593 


(1) 




DS$GAjUFPTR 


0000084C-R 


702 


(1) 












DS$GA CHKLPPC 


0000082C-R 


693 


(1) 












DSSGA'CRDDS INTERFACE 


00000000-XR 






1416 


(6) 








DS$GA w DSjTRC_C.FIRST 


000001 28-R 


596 


(1) 


#-1736 


(6) 


#-1738 


(6) 


#-1740 (6) #-927 (5) 


DSSGA DS CTRL_L_SECOND 


000001 2C-R 


599 


(1) 


#-1757 


(6) 


#-1759 


(6) 


#-1761 (6) #-928 (5) 


DS$GA„LA?TADR 


000007F4-R 


663 


(1) 












DSSGA.LOOPADR 


00000830-R 


694 


(1) 












DS$GA_PTABLE 


00000000-XR 






1942 


(6) 








DSSGA^SELECTS 


00000000-XR 






1943 


(6) 








DSSGB BYTEBUF 


00000850-R 


703 


(1) 












DSSGBJNHIBI TEAMING 


00000852-R 


705 


(1) 


#-1462 


(6) 








DS$GB MM ENB 


00000000-XR 






#-961 


(5) 








DSSGB THPECOOE 


00000851 -R 


704 


(1) 


#-1586 


(6) 









ZZ-ENSAA-7,0 Cross 


reference 






F 12 
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KERNEL 


*** KERNEL Main cor 


trol 


routine 




27-JUL-1984 15:29:11 VAX- 


Cross reference 












23-JUL-1984 16:23:20 DMA1 


:CSYS0.SYSMAINTJKERNEL*MAR;262(8) 


DSSGK.SID 


00000000-XR 






#-1236 


(5) 


#-934 


(5) 




DS$GL BUFCNT 


00000000-XR 






#-958 


(5) 


#-959 


(5) 




DSSGL^BUFLEN 


00000848-R 


701 


(1) 












OSSGL.CLIBASE 


00000000-XR 






1434 


(6) 


879 


(5) 




DS$GLJ)EVERR COUNT 


0000081 G-R 


683 


(1) 












DSSGL^EFCO " 


000007EC-R 


661 


(1) 












DSSGLJFC1 


000007F0-R 


662 


(1) 












DSSGLJRRCNT 


000008Q0-R 


676 


(1) 












DS$GL_ERRSUP_COUNT 


0000081 8-R 


687 


(1) 












DSSGLJLAGS 


000007F8-R 


673 


(1) 


#-1036 


<5) 


1092 


(5) #-1648 


(6) 1701 (6) 










1705 


(6) 


#-1742 


(6) #-1752 


(6) #-1763 (6) 










1848 


(6) 


1877 


(6) 1939 


(6) #-896 (5) 


DSSGLJSTTEST 


00000820-R 


690 


(1) 












DSSGL.HARDERR COUNT 


00000804-R 


677 


(1) 












DSSGLJ.STTEST" 


00000824-R 


691 


(1) 












DSSGLJJUMTEST 


0000081 C-R 


689 


(1) 












DS$GLJ>CBVEC 


000007A0-R 


634 


(1) 












DSSGL PREPERR.COUNT 


00000808-R 


679 


(1) 












DS$GL RADIX 


00000840-R 


698 


(1) 


#-1245 


(5) 


#-897 


(5) 




DSSGLJUJNTIM 


00000834-R 


695 


(1) 












DS$GL_SIZE 


00000844-R 


699 


(1) 












DSSGL^SOFTERR COUNT 


0000080C-R 


681 


(1) 












DS$GL_SUBTEST~ 


00000828-R 


692 


(1) 












DSSGL SYSERR COUNT 


000008H-R 


685 


(1) 












ds$gl_termchSr 


00000AE2-R 


710 


(1) 


#-1113 


(5) 


#-2174 


(8) 




DSSGLJUMESEC 


00000838-R 


696 


(1) 












DSSGLJMITIM 


0000083C-R 


697 


(1) 












DSSGQ BUFQWD 


00000848-R 


700 


(1) 












DSSGCLCURYEAR 


00000000-XR 






#-973 


(5) 


#-975 


(5) 976 


(5) #-977 (5) 


OS$GQ DAYTIM 


00000000-XR 






#-971 


(5) 








DSSGQlEFL 


000007EC-R 


660 


(1) 












DS$GT„ASCIBUF 


00000853-R 


707 


(1) 












DS$GT_BUFFER 


00000862-R 


708 


(1) 


1644 


(6) 








DSSGTJ.EGAL 


00000060-R 


573 


(1) 


1443 


(6) 








DSSGTJIEWYEAR 


00000000-XR 






#-972 


(5) 


974 


(5) 




DS$GTJ>ROMPT 


00000000-XR 






1465 


(6) 








OSSGT^START 


00000000-XR 






1448 


(6) 








DSSGT^STRBUF 


00000A62-R 


709 


(1) 












DS$GW_TT1N 


000007FC-R 


674 


(1) 


#-1074 
#-1647 


(5) 
(6) 


#-1116 


(5) #-1636 


(6) #-1644 (6) 


DSSGW TTOUT 


000007FE-R 


675 


(1) 


#-1104 


(5) 








DSSINlTSCB 


00000000-XR 






949 


(5) 








DSSK.ASCIBUF 


=0000000F 


669 


(1) 


707 


(1) 








DS$K_BUFSIZ 


=00000200 


670 


(1) 


708 


(1) 








DS$K CCB 


=00000040 


625 


(1) 


628 


(1) 








DS$K_ERROR 


=00000002 


470 


(1) 












DSSKJIORMAL 


=00000001 


470 


(1) 












DSSKJJYSIZ 


00000000-XR 






#-973 


(5) 








DS$K_PRGSIZ 


=0000F800 


509 


(1) 


731 


(5) 








DS$K_PRINTB 


=00000002 


493 


(1) 












DS$KJ>RINTF 


=00000001 


493 


(1) 


#-1371 


(5) 


#-1430 


(6) #-1443 


(6) #-1448 (6) 


DS$K PRINTI 


=00000000 


493 


(1) 












DS$K_PRINTX 


=00000003 


493 


(1) 












DS$K_SEVERE 


=00000004 


470 


(1) 












DS$K SSSIZE 


00000000-XR 






#-1044 


(5) 








DS$K STRBUF 


=00000080 


671 


(1) 


709 


(1) 








DS$OUBSYS 


=00000066 


470 


(1) 


470 


(1) 


471 


(1) 





ZZ-ENSAA-7.0 

KERNEL 

Cross reference 



Cross reference 



*** KERNEL Main control routine 



G 12 

27-JUL-1984 



Fiche 9 Frame G12 



DSSK..TYPE_ABORTJ 3 ROGRAM 
DSSK_TYPE_ABORT TEST 
DSSKJYPE COMMAflDJRR 

dsskj-ype.command out 
dssk.type.crd autotest 
dsskjtype ds prompt 
dssk_type~ds~start 
dssk type errdev 
ds$k^type,errhard 
dssk,type_err0r body 
dssk,type error end 
dssk.type errprep 
dssk_type~errsoft 
dssk.jype"errsup 
dssk_type~errsys 
ds$k type'err halt 
dsskItype^excEptjon 
ds$kj"ype.,excepti0n head 
dssk_type first pass 
ds$k_type,gener»l 
ds$k type general error 

DSSk"TYPE~NO TESTS 
DSSK^TYPEIPARAM ERROR 

ds$k type program end 
dssk^typelprogramjnfo 
ds$k type^program start 
ds$k type qio invsdp 
dssk~type~qio~nodriver 
ds$k!type;qio"wrongver 
ds$kjtype,.scrlpt_echo 
ds$k type script pnf 
ds$k"typelscript"fro«pt 
dssk type script skip 
ds$oype~sequente error 
dssk type'start err 
dssk_type_start list 
dssk.jype summary 
dssk typf user prompt 

DSSKlWARNlNG " 

dsslcadpcs 
dssljjsercntrlc 



DSSM 
DSSM 

dssm; 

DSSM. 
DSSM 

dssm; 

DSSM. 
DSSM 

dssm; 

DSSM. 
DSSM 

dssm; 

DSSM. 
DSSM. 
DSSM. 



ABRTFLG 

BADTIME 

BATCH 

BRKCLR 

BRKPT 

CHARFLG 

CMDFLG 

CTRLC 

;ctrlo 

DEVFLG 

'DISABLCC 

DONFLG 

ERRFLG 

EXCEPT 

EXETST 



27-JUL-1984 15:29:11 
23-JUL-1984 16:23:20 



Sequence 1797 
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=00000014 
=00000013 
=00000015 
=00000016 
=0000001 A 
=00000001 
=00000010 
=00000008 
=00000006 
=00000009 
=0000000A 
=0000001 B 
=00000007 
=00000004 
=00000005 
=00000000 
=0O0000OC 
=00000008 
=00000011 
=00000000 
=00000003 
=00000012 
=0000001 c 
=00000010 
=00000017 
=00O00OOF 
=00000024 
=00000022 
=00000023 
=00000021 
=0000001 E 
=00000020 
=0000001 F 
=00000019 
=00000018 
=00000025 
=OOOO0OOE 
=00000002 
=00000000 
00000000- 
00000130- 

=00000040 
=00100000 
=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 
=00000200 
=01000000 
=00002000 
=00000010 
=00080000 
=00040000 



•XR 

•R 



493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
470 

602 

489 
489 
489 
489 
489 
489 
489 
489 
489 
489 
489 
489 
489 
489 
489 



#-1443 (6) 



#-1448 (6) 



#-1371 (5) 



#-1430 (6) 



942 
#-1747 
#-929 



(5) 
(6) 
(5) 



#-1749 (6) #-1750 (6) #-1844 (6) 



#-895 


(5) 










#-1648 


(6) 


#-1741 


(6) 


#-1751 


(6) 


#-1741 


(6) 


#-1751 


(6) 


#-1762 


(6) 



#-1762 (6) 



ZZ-ENSAA-7.0 

KERNEL 

Cross reference 

DSSM.HLTFLG 
DSSMJ.0DFIG 
DSSMJ1EMMGT 
DSSM OUTPUT 

DSSMJUJBFLG 

DSSM.SCRIPT 

DSSM.SETIMR 

DSSM^STRFLG 

DSSM.SUBT 

DSSM„SYSFLG 

DSSM TIMRON 

DSSRJBJNPUT 

DSSRAB OUTPUT 

DSSSOFTIPL5 

DSSUSERMODE 

DSSUSERMODE X 

DS$V ABRTFLS 

DSSVlBADTIME 

DSSV_BATCH 

DS$V_BRKCLR 

DSSV.BRKPT 

DSSV^CHARFLG 

DSSV_CMDFLG 

OS$V CTRLC 

DSSV_CTRLO 

DSSV DEVFLG 

DSSVJHSABLCC 

DSSVJXWLG 

DSSV^ERRFLG 

DSSV_EXCEPT 

DSSV.EXETST 

DS$V_HLTFLG 

DSSV_LODFLG 

DSSVJ1EMMGT 

DSSV^OUTPUT 

DSSVJHJBFLG 

DSSV SCRIPT 

DSSV_SETIMR 

DSSV STRFLG 

DS$V_SUBT 

DS$V_SYSFLG 

DSSV TIMRON 

DSSjtalTH 

DSS.ASBE 

DSS BADLINK 

DSS'BADTYPE 

DSS^BIIC 

DSS_CHME 

DSS CHMK 

DSS DEVNAME 

DSS ERROR 

DSS"FHWE 

DSS FRAGBUF 

DSS^ICBUSY 

DSS KERR 

DSSIIHWE 

DSS ILLCHAR 



Cross reference 



*** KERNEL Main control routine 
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=00000008 489 

=00000002 489 

=00008000 489 

=00800000 489 

=00000020 489 

=00200000 489 

=02000000 489 

=00000004 489 

=00004000 489 

=00000400 489 

=00020000 489 

00000050-R 586 

O000O0E4-R 592 

00000202-R 1004 

0000020D-R 1035 

00000558-R 1249 

=00000006 489 

=00000014 489 

=00000016 489 

=O0OOOOOC 489 

=O000OOOB 489 

=00000008 489 

=00000007 489 

=00000000 489 

=0000001 n 489 

=00000009 489 

^0000001 8 489 

=O00OOOOD 489 

=00000004 489 

=00000013 489 

=00000012 489 

=00000003 489 

=00000001 489 

=OO0OOOOF 489 

=00000017 489 

=00000005 489 
=00000015 . 489 

=00000019 489 

=00000002 489 

=0000000E 489 

=0000000A 489 

=00000011 489 

=00660000 470 

*006601 18 470 

=006600FO 470 

=006600E8 470 

=00660120 470 

=006600A8 470 

=006600E0 470 

=00660108 470 

=00660002 470 

=00660068 470 

=00660080 470 

=006600C8 470 

=006600C0 470 

=00660060 470 

=00660018 470 



#•895 



(5) 



1085 
1089 



#-1099 
#-1091 



(5) 
(5) 



(5) 
(5) 



#-1700 (6) 



#-1704 (6) #-1849 (6) #-1850 (6) 



#-1877 (6) #-1939 (6) 



ZZ-ENSAA-7.0 Cross reference 

KERNEL 

Cross reference 

DS$_ILLPAGCNT 

DSSJLLUNiT 

DSS 1NSFMEM 

DSS IPL2HI : 

DSS IVADDR 

DSSJWECT 

DSSJCRNLSTK 

DSS.LOGIC 

DSS MCHK 

DSS MMOFF 

DSS~NEEDUNIT = 

DSS'NODE 

DSS NOPCS 

DS$~NORMAL 

DSS~NOSUPPORT 

DSS NOTDON 

DSS,NOTIMP 

DSS NULLSTR 

DSS OVERFLOW . 

DSS POWER 

DS$"PR06ERR 

DSS.SEVERE 

DSS TRANSL 

DSS TRUNCATE 

DSS~UNEXPINT 

DSS^VASFULL 

DSS WARNING 

DSA$ALJ\PTMAIL 

DSASGL_EVENT 

DSASGL FLAGS 



dsasgl.sid 

dsasm.apt 

dsasm crd autotest off 

d$a$mIcrp"»enutest;off 

dsasm_dflTflgs 

dsa$m_oper 

dsa$m„prompt 

dsasm user 

DSA$VJ\PT 

DSASV..BINARY 

DSASV.CRD AUTOTEST_OFF 

DSASV^CRDJIENUTEST^OFF 

DSASV^CRD^MENUTEST.ON 

DSASV.CRD TRACE 

DSASV USER 

DSQASRjHSPAT AFTER INI T 

DSQASKJMSPAr BEFORE INIT 

DSQA$K,DISPAT_CALLTE$r 

DSQA$K.DISPATJ)ONE TESTS 

DSQASK DISPATJ)SX$ENDPASS BGN 

DSQA$lCDISPATJ>SXSENDPASS~'END 
DSQASK DISPAT DSXSENDPASS MID 
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=00660078 
=00660100 
=00660050 
=006600B8 
=00660040 
=00660038 
=00660090 
=00660070 
=00660088 
=00660058 
=U06600F8 
=00660128 
=00660110 
=00660001 
=006600B1 
=00660030 
=00660080 
=00660010 
=00660008 
=00660098 
=00660020 
=00660004 
=006600A0 
=00660028 
=006600D8 
=00660048 
=00660000 
0000FE00 
0000FE48 
0000FE00 



0000FE14 

=80000000 
=00000800 
^00010000 
=00003000 
=00001000 
=00002000 
=10000000 
=0000001 F 
=00000001 
=0000000B 
=00000010 
=00000012 
=00000011 
=0000001 C 
=00000014 
=00000013 
=00000015 
=00000018 
=00000001 
=00000002 
=00000000 



470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 
470 



506 



492 
492 
492 
492 
492 
492 
492 



(1) 



470 



(1) 



470 


(1) 














728 


(3) 


852 


(5) 










#-1690 


(6) 














#-1239 


(5) 


1345 


(5) 


1346 


(5) 


1347 


(5) 


1348 


(5) 


1382 


(6) 


1395 


(6) 


1423 


(6) 


1424 


(6) 


1425 


(6) 


1426 


(6) 


#-1439 


(6) 


1460 


(6) 


1464 


(6) 


1517 


(6) 


1693 


(6) 


1898 


(6) 


2023 


(6) 


2098 


(8) 


#-855 


(5) 


1229 


(5) 


#-1236 


(5) 


#-892 


(5) 


#-893 


(5) 


#-935 


(5) 


#-938 


(5) 


#-944 


(5) 


946 


(5) 


#-1439 


(6) 














#-1437 


(6) 














#-1438 


(6) 














#-1238 


(5) 


#-855 


(5) 










506 


(1) 














506 


(1) 














#-1238 


(5) 














#-1459 


(6) 


#-1464 


(6) 










#-1423 


(6) 














#-1347 


(5) 


#-1382 


(6) 


#-1426 


(6) 


#-2097 


(8) 


#-1345 


(5) 


#-1395 


(6) 


#-1424 


(6) 


#-2022 


(6) 


#-1346 


(5) 


#-1425 


(6) 










#-1348 


(5) 














#-1517 


(6) 


#-1692 


(6) 


#-1898 


(6) 







ZZ-ENSAA-7.0 Cross reference 
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KERNEL 


*** KERNEL Main control 


routine 
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23-JUL-1984 16:23:20 0MA1 :CSYS0.SYSMAINT3KERNEL.MAR;262<8) 


DSQA$KJ)ISPATJ)S_CLEANUP BGN 


=00000003 


492 












DSQASKJJISPAT DS_CLEANUP~END 


=00000004 


492 












DSQA$KJ)UMMY,T 


=00000007 


492 












DSQA$K ERR0R,ERR0R BGN 


=00000006 


492 












DSGA$K_ERRORERRORJND 


=00000005 


492 












OSQAU KERNEC INIT CONTEXT 


=00000008 


492 




#-1516 


(6) 






DSQASK^LOOP D5X$8GHSUB 


=00000009 


492 












DSQA$K.LOOPlDSX$CKL0OP 


=00000008 


492 












DSGA$K,LOOP DSXSENDSUB 


=O0OOO0OA 


492 












DSQA$KJ>ARARj>SX$GETADDR£S$ 


=0000000E 


492 












DSQA$KJ>ARAM_DSX$GETDATA 


=O0OOO0OC 


492 












DSQA$KJ>ARAM_DSX$GETLOGICAL 


=0000000F 


492 












DSQA$KJ>ARAMJ)SX$GETSTRING 


=00000010 


492 












DSQA$KJ>ARAM DSXSGETVIELD 


=0000000D 


492 












DSQASK^QA DSXSBRANCH 


=00000011 


492 












DSQA$K_ST»RT BEFORE HEADER 


=00000017 


492 












DSQASK START VRRESTART 


=00000012 


492 












DSQASK. STARrVRSTART 


=00000016 


492 












dsrschEckjwTotest offset 


00000B04-R 


2093 


(8) 


#-1358 


(5) 






DSR5CHECK MENUTESTJ)FF SET 


OOOOOAEO-R 


2018 


(6) 


#-1361 


(5) 


#-1385 


(6) 


DSRSLOAO CRD 


00000000-XR 






1402 


(6) 






DSRSRESTORE CRDJ/ECTORS 


00000000-XR 






1341 


(5) 






DSRSSETIMR TNI 


00000000-XR 






979 


(5) 






DSR$UNLOAD_CRD 


00000000-XR 






1892 


(6) 






DSVSEXIT 


00000A37-R 


1876 


(6) 


1373 


(5) 


1432 


(6) 


DSVSSETLOAD 


00000000-XR 






881 


(5) 






DSXSCNTRLC 


00000A0C-R 


1842 


(6) 










DSXSGETTERM 


00000B23-R 


2172 


(8) 










DSXSPRINT 


00000000-XR 






1371 


(5) 


1430 


(6) 1443 (6) 1448 <6) 


DSXSPR1NTI 


00000000-XR 






1465 


(6) 


938 


(5) 


DSX$WAITUS_USOVR 


00000000-XR 






#-947 


(5) 






DS CLEANUP 


00000000-XR 






#-1878 


(6) 


#-1940 


(6) 


OS ERRSUP 


00000000-XR 






1639 


(6) 






ESTKPTR 


=00003800-R 


795 


(5) 


#-1544 


(6) 






EXESGB^CPUTYPE 


00000000-XR 






#-894 


(5) 






EXESGQ SYSTIME 


00000000-XR 






#-977 


(5) 






EXITSDESBLK 


000001 34-R 


605 


(1) 


1043 


(5) 






EXIT$HANDLR 


00000A64-R 


1937 


(6) 


607 


(1) 






FABSC_8ID 


=00000003 






584 


(1) 


590 


(1) 


FAB$C BLN 


=00000050 






584 


(1) 


590 


(1) 


FAB$C_SE<? 


=00000000 






584 


(1) 


590 


(1) 


FABSC.VAR 


=00000002 






584 


(1) 


590 


(1) 


FAB$L_ALQ 


=00000010 






584 


(1) 


5V0 


(1) 


FAB$L_FOP 


=00000004 






584 


(1) 


590 


(1) 


FAD$V CHANJIODE 


=00000002 






584 


(1) 


590 


(1) 


FAB$V~Cir 


=00000019 






590 


(1) 






FABSV..FILEJ1GOE 


=00000004 






584 


(1) 


590 


(1) 


FAB$V_GET 


=00000001 






584 


(1) 






FAB$V_LNM_MODE 


=00000000 






584 


(1) 


590 


(1) 


FA8$V_PUT 


=00000000 






590 


(1) 






FABSW.GBC 


=00000048 






584 


(1) 


590 


(1) 


FALSE 


=00000000 


494 


(1) 










FCBSSIZE 


=00000030 
00000000-XR 


524 


(1) 


535 


(1) 






GT MENU ERROR 






1430 


(6) 






HPlB_FL*GS 


0000000A 






1949 


(6) 


1951 


(6) 


HPSQ^DEVICE 


00000000 






1952 


(6) 






HP$V_ALLQC 


=00000000 






#-1948 


(6) 
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ZZ-ENSAA-7.0 Cross 


reference 
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KERNEL 


*** KERNEL Main control 


routine 




27-JUL-1934 15:29:11 VAX-11 Macro V03-O1 Page 82 
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HP$V WASALL 


=00000001 






0-1950 


(6) 






IDBSSlZE 


=00000020 


519 


(1) 


530 


(1) 






IMAGE^HEADER 


000001 9C-R 


618 


(1) 










IMAGE HEADER END 


0Q00039C-R 


619 


(1) 










INISBRK 


00000200-R 


1001 


(5) 


#-1007 


(5) 


#-917 


(5) 


INISLOAD DEVICE 


00000000-XR 






988 


(5) 






INISPTABCE 


00000000-XR 






#-1243 


(5) 


984 


(5) 


INIT^COMMON 


00000852-R 


1584 


(6) 


#-1568 


(6) 






INIT^CONTEXT 


0000073B-R 


1515 


(6) 


#-1469 


(6) 


#-1 880 


(6) 986 (5) 


INITJJSERMODE 


00000845-R 


1579 


(6) 


#-1519 


(6) 






IO$M„CTRLCAST 


00000000-XR 






#-1116 


(5) 


#-1647 


(6) 


IO$M NOW 


00000000-XR 






#-1644 


(6) 






IOSjfEADVBLK 


00000000-XR 






#-1644 


(6) 






10$ SETMODE 


00000000-XR 






#-1116 


(5) 


#-1647 


(6) 


lOClK DIAGPID 


=00660000 


471 


(1) 


#-1523 


(6) 






IRPSSlZE 


=00000050 


520 


(1) 


531 


(1) 






ISTKPTR 


=00003200-R 


792 


(5) 


#-1540 


(6) 


#-849 


(5) #-890 (5) 


J1BSCJ.ENGTH 


=0000006C 






751 


(5) 


757 


(5) 


JIB$L ARB 


=00000000 


481 


(1) 


#-1534 


(6) 






KB CHECK 


00000936-R 


1689 


(6) 










KB^CHECK APT 


0000093C-R 


1691 


(6) 










KB CHECK X 


00000A0B-R 


1803 


(6) 


#-1696 


(6) 


#•1702 


(6) #-1707 (6) 


KB POLL 


00000000-XR 






1698 


(6) 






KSTKPTR 


=00002AOO-R 


789 


(5) 


1541 


(6) 






LF 


=O0OO00OA 


512 


(1) 










MAPMEM 


00000000-XR 






955 


(5) 






MASK 


=O0OOO0OF 


549 


(1) 










MEMPOOLSINIT 


00000000-XR 






1241 


(5) 






OFF 


=00000000 


494 


(1) 










ON 


=00000001 


494 


(1) 










POPT BASE 


=00004400-R 


803 


(5) 


#-905 


(5) 






PCBSB.ASTACT 


0000000C 






#-1526 


(6) 


#-1694 


(6) 


PCBSL^ARB 


00000084 






#-1533 


(6) 






PCBSL^ASTQBL 


00000014 






#-1525 


(6) 






PCBSL^ASTQFL 


00000010 






1524 


(6) 


1525 


(6) 


PCB$L_JIB 


00000078 






#-1531 


(6) 






PCB$L PID 


00000060 






#-1523 


(6) 






PCB BSSE 


=00000078-R 


743 


(5) 


#-899 


(5) 






PHDlB.ASTLVL 


=OOOOO0CF 






#-1561 


(6) 






PHDSL..ESP 


=0000007C 






#-1545 


(6) 






PHD$L KSP 


=00000078 
=000000C8 






#-1543 


(6) 






PHD$LlP0BR 






#-1558 


(6) 






PHDSL.POLRASTL 


=000000CC 






#-1559 


(6) 






PHDSL..P1BR 


=000000D0 






#-1562 


(6) 






PHD$L_P1LR 


=00000004 






#-1563 


(6) 






PHDSL.PC 


-ooooooco 






#-1537 


(6) 


#-1567 


(6) 


PHD$L_PCB 


=00000078 






743 


(5) 






PHD$L PSL 


=000000C4 






#-1557 


(6) 






PHDSL^RO 


=00000088 






#-1564 


(6) 






PHD$L R12 


=00000088 






1553 


(6) 






PHDSLlSSP 


=00000080 
=00000084 
=00000000-R 






#-1547 


(6) 






PHDSL USP 






#-1549 


(6) 






PHD_B*SE 


742 


(5) 


1536 


(6) 






PR$_ASTLVL 


=00000013 
=00000001 






#-1560 


(6) 






PR$_ESP 






#-1544 


(6) 


#-1545 


(6) 


PRSJPL 


=00000012 






#-1565 


(6) 


#-1570 


(6) #-848 (5) #-888 (5) 


PRSJSP 


=00000004 






#-1540 


(6) 







ZZ-ENSAA-7.C 

KERNEL 

Cross reference 

PR$ KSP 

PR$~MAPEN 

PR* POBR 

PR$~P0LR 

PR$~P1BR 

PRS>1LR 

PRtfPCBB 

PR$_SCBB 

PR$ SID 

PR$~SSP 

PR$ USP 

PRGRUF 

PSLSMJPL 

PSLSVJS 

PSLSV TBIT 

PSL SSVE 

QA$flAIN 

Q10SINITIALI2E 

QIOSMINCORE 

RABVB..RAC 

RAB$C BID 

RABSC BLN 

RABSClSEQ 

RAB$L^CTX 

RA8$L„R0P 

RAB$V_CCO 

RAB$V CVT 

RCTRLC 

RMSSINIT 

RPB$BJ>EVTYP 

RPB$L ADPPHY 

RPB$LlBOOTR2 

RPB$L,BOOTR5 

RPB$L CSRPHY 

RPB$T„FILE 

RPBtVlAUTOTEST 

RPB$V_DIAG 

RPBSVJNIBPT 

RPR$V_MENUTEST 

RPB$W UNIT 

r AVE fP 

SC8$L_BREAK 

SC8SL TBIT 

SCB B&SE 

SCB IMAGE 

SCB JNKINT 

SCKlGL CURPCB 

SCRIPTllNIT 

scrjptsstop 

sgnscjrpcnt 

sgnsOipagedyn 

siz... 

size term 

ss$„rormal 

ss$ notran 

SSPffOT 
SSTKPTR 



Cross reference 
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1631 (6) 



=00000000 

=00000038 

=00000008 

=00000009 

=0000000A 

:00000008 

=00000010 

=00000011 

=0000003E 

=00000002 

=00000003 

000001 68-R 731 (5) 

=001FOOOO 

=0000001 A 488 (1) 

=00000004 

00000841-R 1577 (6) 

00000000-XR 

00000000-XR 

=00005E3C 543 (1) 

=0000001 E 

=00000001 
=00000044 

=00000000 

=00000018 

=00000004 

=0000001 F 

=0000001 A 

00000897-R 

00000000-XR 

00000066 

O0O0OO5C 

00000024 

00000030 

00000054 

00000068 

-00OO000F 498 (1) 
=00000004 
=00000002 

=00000000 502 (1) 
00000064 

000001 48-R 612 (1) 
0000002C 
00000028 

=OOOOQ400-R 769 (5) 
00000000-XR 

=00O00CO0-R 771 (5) 
000Q07AQ-R 633 (1) 
00000000-X^ 
00QQQQ0Q-XR 

=00000040 526 (1) 
=0000263C 535 (1) 
=00000001 489 (1) 
QQOQQQ00-XR 

=00000001 469 (1) 
00000000-XR 

000001 3B-R 719 (1) 
=00003EOO-R 798 (5) 



#-1542 
#-960 
#-1558 
#•1559 
#-1562 
#-1563 
#-899 
#-898 
#-859 
#-1546 
#-1548 
1038 
#-1571 
#-1539 
#-1572 
#-1538 
1516 
957 

587 
58? 
587 
587 
587 
587 
593 
587 
1116 
998 
#-867 
#-862 
#-865 
#-866 
#-863 
869 
#-2116 
#-2033 
#-916 
#-2041 
#-864 
#-1246 
#-915 
#-914 

#-898 



1450 
1709 
531 
543 
489 
993 
#-2175 
#-1197 
1041 
#-1546 



(6) 
(5) 
(6) 
(6) 
(o) 
(6) 
(5) 
(5) 
(5) 
(6) 
(6) 
(5) 
(6) 
(6) 
(6) 
(6) 
(6) 
(5) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(8) 
(6) 
(5) 
(6) 
(5) 
(5) 
(5) 
(5) 

(5) 



(6) 
(6) 
(1) 
(1) 
(1) 
(5) 
(8) 
(5) 
(5) 
(6) 



#-1543 (6) 



#-892 
#-1547 
#-1549 
1120 



#-1573 
1572 



593 
593 
593 
593 
593 
593 



(5) 

(6) 
(6) 
(5) 



(6) 
(6) 



(1) 
(1) 
(1) 
(1) 
<1> 
(1) 



1647 (6) 



#-2108 (8) 

#-1581 (6) 

913 (5) 



1042 (5) 



ZZ-ENSAA-7.0 Cross 


reference 






27-JUL*»98« 
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KERNEL 


*** KERNEL Main control 


routine 




27-JUL-1984 15:29: 


Cross reference 












23-JUM984 16:23; 


20 DMA1iCSYS0.SYSMAINT3KERNEL.MAR;262<8) 


STACK BASE 


=00001400-R 


785 


(5) 












S'JPBUF 


000001 60-R 


728 


(3) 


1037 


(5) 


1119 


(5) 




SMSGL^FQBL 


000007A8-R 


645 


(1) 












SWiZCL FQFL 


Q00007A4-R 


642 


(1) 












SYIS SlD 


-00001001 






#-1230 


(5) 








SYStXSSlGN 


00000000-XR 






1305 


(5) 








SYSSB1NTIM 


00000000-XR 






976 


(5) 








SYSSCLREF 


oooooqoo-xr 

C0000Q00-XR 
00000000-XR 






1453 


(6) 








SYSSCONNECT 






1085 


(5) 


1089 


(5) 




SYSICREATE 






1087 


(5) 








SYSSCRELOG 


00000000-XR 






1212 


(5) 


1964 


(6) 




SYSSCRETVA 


=8000C0C8 


555 


(1) 


1037 
1120 


(5) 
(5) 


1038 


(5) 


1042 (5) 1119 <5> 


SYSSDALLOC 


00000000-XR 






1952 


(6) 








SYSSDCLEXH 


00000000-XR 






1043 


(5) 








SYSSDELTVA 


=80000110 


557 


(1) 


1041 


(5) 








SYSSDISK 


00000000-XR 






1210 


(5) 








SYSSDXLEXH 


=800000F0 


556 


(1) 












SYS$EXIT 


00000000-XR 






1907 


(6) 








SYSSGETCHN 


00000000-XR 






1079 


(5) 


1110 


(5) 


1636 (6) 


SYSSGETSYI 


00000000-XR 






1233 


(5) 








SYSSINPUT 


000001 49-R 


111 


(2) 


1069 


(5) 


584 


(1) 




SYSSOPEN 


00000000-XR 






1083 


(5) 








SYSSOUTPUT 


000001 55-R 


725 


(3) 


1095 


(5) 


590 


(1) 




SYSSQIOW 


oooqoooo-xr 

00000000-XR 






1116 


(5) 


1644 


(6) 


1647 (6) 


SYSSSETAST 






1588 


(6) 








SYSSSETDDIR 


00000000-XR 






1219 


(5) 


1971 


(6) 




SYSSSETEXV 


=80000208 


558 


(1) 


1039 


(5) 








SYSSSETPRT 


=80000230 


559 


(1) 












SYS5SYSR001 


00000000-XR 






1140 


(5) 


1962 


(6) 




SYSSTRNLOG 


OOOOOOOQ-XR 






1141 


(5) 


1189 


(5) 


1293 (5) 


SYSVEC 


000001 33-R 
=00001000 


717 


(1) 


719 


(1) 








TM SIZ 


540 


(1) 


543 


(1) 








TRSN„ASSIGN 


00000594-R 


1281 


(5) 


#-1070 


(5) 


#-1096 


(5) 




TRUE 


=00000001 


494 


(1) 












T.BOTH CRD_8ITS_SET 


00000030-R 


570 


(1) 


1371 


(5) 








T WRONBCPU 


00000000-R 


56? 


(1) 


938 


(5) 








uCbssize 


=00000098 


516 


(1) 


527 


(1) 








USTKPTR 


=00004400-R 


801 


(5) 


#-1548 


(6) 








VCB$SIZE 


=00000050 


522 


(1) 


533 


(1) 








VRSETWIDTH 


00000000-XR 






1436 


(6) 








V.ENV 


=00000001 


490 


(1) 












V LVL 


=00000000 


490 


(1) 












wCb$size 


=00000030 


523 


(1) 


534 


(1) 








XDELBPT 


00000000-XR 






#-1005 


(5) 


463 


(1) 


915 (5) 


XDRTBIT 


00000000-XR 






463 


(1) 


#-911 


(5) 




XF_S1Z 


=00000600 


541 


(1) 


543 


(1) 









ZZ-ENSAA-7.0 

KERNEL 

Cross reference 



Cross reference 



*** KERNEL Main control routine 



H 12 
27-JUL-1984 Fiche 9 Frame N12 Seguence 1804 

27-JUL-1984 15:29:11 VAX-11 Macro V03-0T Page 85 

23-JUL-1984 16:23:20 0MA1 :CSYS0.SYSMAINTJKERNEL.MAR;262<8) 



! Macros Cross Reference ! 



MACRO 

SSRJABlNiT 
S$R VBFSET 
SARBDEF 
SBINTIM^S 
SCCBDEF 

SCLREF S 
SCONNECT 
SCRD LITERALS 
SCREJTE 
SCRETVA 
SCRETVADEF 
SCRETVA G 
SCRETVA S 
$D1_PRIRt^S 

SDALLQC.S 
SDCLEXH.S 
$DEF 
SDEFINI 



SDELTVA G 
SDEVDEF" 
SDIBDEF 
SDS_fNTRLC_S 
$DS DSADEF 
SDSlDSDEF 
$DS HPOOEF 
SDSJNITSCB^G 
SOS LOADPCS S 
SDS SCBDEF 
$DS TYPEDEF 
SEQO 

SEOUL S1 

SEOUL ST 

SEXIT.S 

SFAB 

SFABDEF 

SGBLINI 

SGETCHN S 

SGETSYI^S 

SJIBDEF 

SOFFDEF 

SOPEN 



SIZE 



DEFINITION 



584 

584 

475 

976 

474 

1453 

1085 

494 

1087 

719 

719 

1042 

1037 

938 

1952 
1043 
494 
472 



1041 

478 

477 

925 

47? 

470 

473 

949 

942 

436 

493 

494 

494 

470 

1907 
584 
584 
470 

1079 

1233 

480 

719 

1083 



(1) 
(1) 
(1) 
(5) 
(1) 
(6) 
(5) 
(1) 
(5) 
(1) 
(1) 
(5) 
(5) 
(5) 

(6) 

(5) 
(1) 
(1) 



REFERENCES... 



584 

584 

475 

976 

474 

1453 

1085 

494 

1087 

719 

719 

1042 

1037 

1371 

1465 

1952 

1043 

472 

476 

480 

485 

587 

1041 

478 

477 

1456 

472 

470 

473 

949 

942 

486 

493 

470 

494 

470 

494 

470 

494 

1907 

584 

584 

470 

493 

1079 

1233 

480 

719 

1083 



587 
587 



(1) 
(1) 



590 
590 



(1) 
(1) 



593 
593 



(1) 
CI) 



1089 (5) 



1038 
1430 
938 



473 

482 
486 



925 



(5) 
(6) 
(5> 



(1) 
(1) 
(1) 
(1) 



<5> 



1119 
1443 



474 
478 
483 
491 



(5) 
(6) 



(1) 

(1) 
(1) 
(1) 



1120 
1448 



475 
479 
484 
584 



(5) 
(6) 



(1) 
(1) 
(1) 
(1) 



488 


(1) 


492 


(1) 


488 


n> 


492 


(1) 


488 


d) 


492 


(1) 


590 
590 
488 
494 
1110 


id 
d) 
d) 

(D 

(5) 


489 
1636 


(1) 

(6) 



493 


(1) 


493 


(1) 


493 


(1) 



492 



(1) 



J 



ZZ-ENSAA-7.0 

KERNEL 

cross reference 

SPCBOEF 

SPHDDEF 

SPRDEF 

$PRINT 

SPRINT! S 

SPSLDEF" 

SPUSHADR 



$PUSHTWO 
$QIOPUSH 

SQIOW S 

$RAB " 

SRABDEF 

SRMSCALL 

SRPBDEF 

$SETAST_S 

SSETEXV S 

SSHRDEf 

SSYIDEF 

SVIELD 

SVIELD1 

br if not apt 
br"*1f"n0t"lcdflg 
br ifjjseR 

ClpAR BINARY 

clear,crd_autotest_off 
clear^crdjienutest off 
clear crd menutest on 

ClEAfTCRD'TRACE 
CLJDET 

CMK 

CMKDEF 

DSFDFF 

DSQA 

ENVOEF 

ERRSUP.S 

MODNAM 

QA MAIN 

SET CRD AUTOTEST OFF 

5ET3CRDl«ENUTE5T m OFF 



Cross reference 



*** KERNEL Main control routine 



8 



479 
476 

482 

1369 

937 

483 

925 



1116 
1039 

1116 

587 

587 

1083 

491 

1588 

1039 

484 

485 

494 

1464 

1877 

1898 

1423 

1347 

1345 

134§ 

1348 

487 

1539 

488 

489 

492 

490 

1639 

715 

1516 

1382 

1395 



) 
} 

) 
) 
) 
) 
) 

(6) 
) 
) 



) 



(1) 
(6) 
(6) 
(6) 
(6) 



) 
) 
) 
) 
) 
(6) 
) 
) 
(1) 
(1) 
(6) 
(1) 
(6) 
(6) 
(6) 



27' 



8 13 
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479 

476 

482 

1369 

1465 

483 

1037 

1079 

1120 

1639 

925 

1116 

1039 

1647 

1116 

587 

537 

1083 

491 

1588 

1039 

484 

485 

489 

489 

1464 

1877 

1898 

1423 

1347 

1345 

1346 

1348 

487 

1539 

488 

489 

492 

490 

1639 

715 

1516 

1382 

1395 



! Performance indicators ! 



Phase 

initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 



Page faults CPU Time 



33 
139 

1922 

964 
3 



00:0 
00:0 



■:00.13 



Q;00:33l5^ 



00:00:01 

00:00:00.51 



*02. 
17. 



Elapsed Time 

oolio" 

oo.«j.?J:3 

00:00:01.23 




14 rich. 

7-JUL-1984 15: 
I3-JUL-1984 16*, 



(1) 

(1) 
(1) 
(5) 
(6) 
(1) 
(5) 
(5) 
(5) 
<6) 

(5) 
(5) 
(5) 
(6) 
(5) 
(1) 
(1) 
(5) 
<1) 
(6) 

(!) 

d) 
(1) 

(i) 
d) 

(6) 
(6) 
(6) 
(6) 
(5) 
(5) 
(5) 

CSi 

(1) 
(6) 
(1) 
(1) 
(1) 
(1) 
(6) 
(1) 
(6) 
(6) 
(6) 



14, 
931 



!8 



1038 

1110 

1233 

1644 

976 

16*4 

1116 

1644 
593 
593 
1085 



1426 
1424 
1425 
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(6) 

(5) 

(5) 
(5) 
(5) 
(6) 
(5) 
(6) 
(5) 

(6) 
(1) 
(1) 
(5) 



1441 (6) 



1445 (6) 



1039 
1116 
1456 
1647 



>47 

•33 



(5) 
(5) 
(6) 
(6) 

(6) 
(5) 



1043 
1119 
1636 
1952 



(5) 
<5> 
(6) 
(6) 



1647 (6) 



1087 (5) 



1644 (6) 



1089 (5) 



(6) 
(6) 
(6) 
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VAX-11 Macro Run Statistics 23-JUL-1984 16:23:20 DMAl:[SYS0.$YSMAINT3KeRNEL,MAR;262<8) 

Psect synopsis output 5 00:00:00.03 00:00:00.03 

Cross-reference output 223 00:00:02.96 00:00:11.85 
Assembler run totals 3307 00:00:48.30 00:01:18.01 

The working set limit was 1000 pages. 

181816 bytes (556 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1853 non-local and 81 local symbols, 

2178 source lines were read in Pass 1, producing object records in Pass 2. 

219 pages of virtual memory were used to define 81 macros. 

! Macro library statistics ! 
+™-.™,™- .- — mm „- ™-™+ 

Macro library name Macros defined 

DRB1 :[DS.W0RK3D1AG.MLB;955 12 

DRB1:CDS.WORK3DS.MLB;218 21 

DRB1:tDS.WORK3CRD,MLB;12 2 

SYS$SYSR00T:[SYSLIB3LIB.MLB;1 3 

DMA1:[SYS0.SYSMAINT3DS.MLB;218 

DMA1:CSYS0.SYSMAINT]DIAG.MLB:953 

SYSSSYSR00T:CSYSLJB3LIB.MLB;1 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 39 

TOTALS (all libraries) 77 

2320 GETS were required to define 77 macros. 

There were no errors, warnings or information messages, 

MACR0/N00BJECT/LJST=[DS.LJSJ/CR0SS/ENABLE= (DEBUG, TRACE) KERNEL/UPDA^KERNEL, UPD, KERNEL. ENH) +SYSSLIBRARY :LIB/LIBRARY+0MA1 : [SYSO.SYSMA 



ZZ-ENSAA-7,0 *** 

LOAD 

labte of contents 



113 
137 
160 
178 
245 
279 
327 



LOAD Set/Show load 

*** LOAD Set/Show Load 



D 13 

27-JUL-1984 Fiche 9 Frame D13 

27-JUL-1984 15:30:30 VAX-11 Macro 



Sequence 
V03-0T 



ISO? 
Page 







Libraries, Equated Symbols 

Work Psect Declarations 

Data Psect Declarations 

DSVSSETLOAD SET THE DEFAULT LOAD DEVICE/DIRECTORY 

DSV$SH0WLOAD Display default load device 

DSRS1FL0ADDEV Is it the load device? 

DSVSLOAD PROGRAM IMAGE LOAD SUBROUTINE 



ZZ-ENSAA-7.0 

LOAD 

07-21 



*** LOAD Set/Show Load 

*** LOAD Set/Show Load 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.Title 
.Ident 
.NoShow 
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LOAD *** LOAD Set/Show Load 

/07-21/ 

Conditionals 



1 
(1) 



COPYRIGHT (C) 1977, 1980, 1982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO CHANGE WITHOUT NOTICE 
A COMMITMENT BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 

++ 

FACILITY: 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 



VAX DIAGNOSTIC SUPERVISOR 



ITS 



ABSTRACT: 

This routine is designed to read diagonostic 
programs into memory. It removes ALL breakpoints from 
the previous program and opens the file specified by 
the LOAD command and reads it starting at memory address 
DSSGA.PRGBGN ( A X200). 

ENVIRONMENT; 

Loads programs in user mode 
and Loads from floppy and RMS disks in stand-alone 



AUTHOR: 
MODIFIED BY: 
01 

02 

03 

04 

05 

06 
07 
08 



TOM SOUTTER 



10-NOV-77 



VERSION 01 



TOM SOUTTER 21-NOV-77 VERSION 02 

SPR #16 "N.Y.I." MESSAGES FOR STAND-ALONE 'RUN 1 OR 'LOAD 1 . 

TOM SOUTTER 24-MAR-78 VERSION 03 (ESSAA-4.01) 
FIX TO LOAD ALGORITHM TO READ FILE BLOCKS "IN USE" ONLY 

Roger Riggs 06~Jul-78 Version 04 (ESSAA-4.03) 
Modify load sequence to use SREAD and to read whole 
file in one operation, verification is equivalent 

Eliminate message for successful program load. /TLS 

Roger Riggs 26-0ct-78 Version 05 (ESSAA-5.01) 

Add DSX$LOAD to allow diagnostic to read files into memory 

Include facility for stand alone Load from 0DS-1/0DS-2 structures 

Add floppy support in stand alone 

Add SET LOAD and SHOW LOAD commands 

Add DSRSIFLOADDEV to let attach(select) know if it is 

dealing with the load device. 



ZZ-ENSAA-7.0 

LOAD 

07-21 



*** LOAD Set/Show load 

*** LOAD Set/Show Load 



0000 


58 , 


09 


0000 


59 . 




0000 


60 . 




0000 


61 . 


10 


0000 


62 , 




0000 


63 , 




0000 


64 , 




0000 


65 , 


11 


0000 


66 , 




0000 


67 , 




0000 


68 , 




0000 


69 . 


12 


0000 


70 . 




0000 


71 < 




0000 


72 t 




0000 


73 , 




0000 


74 ( 


13 


0000 


75 , 




0000 


76 , 




0000 


77 , 




0000 


78 , 


14 


0000 


79 , 




0000 


80 , 




0000 


81 , 




0000 


82 . 


15 


0000 


83 , 




0000 


84 , 




0000 


85 , 


16 


0000 


86 ( 




0000 


87 , 




0000 


88 , 




0000 


89 . 


17 


0000 


90 , 




0000 


91 , 




0000 


92 ( 


18 


0000 


93 , 




0000 


94 , 




0000 


95 , 


19 


0000 


96 . 




0000 


97 , 




0000 


98 t 


; 20 


0000 


99 , 




0000 


100 , 




0000 


101 , 




0000 


102 ( 




0000 


103 , 




0000 


104 , 


! 21 


0000 


105 




0000 


106 




0000 


107 




0000 


108 


! 22 


0000 


109 , 




0000 


110 , 




0000 


111 < 


. — 
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REMOVE W* from calls to DSP$XX,READ 

JOHN C1UKAJ NOV-79 

Modify DSXSLOAD for loadable drivers. BO0$QI0 is used for 
resident driver. Pseudo restart parameter block is developed 
for use in B00$QJ0. 

John Ciukaj 2-15-80 

Change RPB block building in L0ADFILE SA to reflect new 

structure of B00TDRIVER module. 

Roger Riggs 29-FE8-80 

Added code to support 7th argument to DSSLOAD allowing 

the program to read sections of the file, the LOADS LBN 

argument supplies the starting logical block number~of the 

first block to be read from the file. 

Roger Riggs, 5-June-1980, Version 5.4 

Moved code to reset stacks and mode to before DS CLEANUP is 

called. 

Dave Butenhof, 27-aug-1980 

Define DEF$Q_DIR to be global, so it is accessible to 

new standalone RMS routines. 

Also deleted DSXSL0AD routine it has been moved to DSLOAD. 

Roger Riggs , 17-Sep-1980, Version 6.0 

Deleted Reference to L$A LASTADR in DSVSL0AD, MAPFREE 

now checks the loaded bit and L$A„LASTADR 

- Jdck Stansbury, 26-Oct-1981, Version 6.- 
Added .LIBRARY statements for $DS and $DIAG. 
Also fixed truncation errors. 

Marion Bagaett, 31-Mar-1982, Version 6.7 
Added sys$library:lib . 

Marion Baggett, 7-Apr-1982, Version 6,7 
Added $DS„TYPEDEF to define type def codes. 

Jack Stansbury, 13-April-1982, Version 6.7 
Fixed truncation error. 

Richard Brown, 15~June**82, Version 6.8 

Clear image header storage buffer before loading diag. 

Then save the name of the file being loaded, so the debugger 

can use it later. 

Also, clear debugger-resident flag before loading diag. 

Richard Brown. 8-Mar-84, Version 6.15 

Add code to clear all event flags before a new program 

is loaded. 

RE MUSE 15-MAY-84 VERSION 7.0 
added support for longfile names 



2 

(1) 
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LOAD 
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Libraries, Equated Symbols 

*** LOAD Set/Show Load 
Libraries, Equated Symbols 
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3 

(1) 



0000 


113 


0000 


114 


0000 


115 


0000 


116 


0000 


117 


0000 


118 


0000 


119 


0000 


120 


0000 


121 


0000 


122 


0000 


123 


0000 


124 


0000 


125 


0000 


126 


0000 


127 


0000 


128 


0000 


129 


0000 


130 


0000 


131 


0000 


132 


0000 


133 


0000 


134 


0000 


135 



.SBTTL Libraries, Equated Symbols 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 
.LIBRARY 



EQUATED SYMBOLS: 



$DS HDRDEF 

CLlBEF 

DSFDEF 

$DSJ)SADEF 

$DS_TYPEDEF 

;6lobal References 



/SYS$LIBRARY:LIB/ 

/$DS/ 

/SDIAG/ 



[17] 
C163 

[16] 



.GLOBAL IMAGE HEADER 
.GL08AL IMAGElHEADER.END 



PROGRAM HEADER BLOCK SYMBOLS 
CLI COMMAND BLOCK OFFSETS 
CONTROL FLAG DEFINITIONS 
CONTROL FLAG DEFINITIONS 
DEFINE TYPE CODES 



; IMAGE HEADER STORAGE BUFFER 



[18] 



[203 

C20J 
[203 



ZZ-ENSAA-7,0 

LOAD 

07-21 



Work Psect Declarations 

*** LOAD Set/Show load 
Work Psect Declarations 
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59 53 24 53 59 53 



49 44 24 53 59 53 



00000055 



OOOOOOSD'OIOEOOOO' 
54 4F 4F 52 53 

00000070'OIOEOOOO' 
4B 53 

00000080*00000000 
0000009E 



0000 
0000 
0000 
0000 
0000 
00000000 
0000 



41 4D 53 59 53 58 



O00OO0A6 
5D 



010EQ000 
54 4E 49 
000001 1F 



0000 
0055 
0055 
0055 
0055 
0063 
0068 
C068 
0076 
0078 
0078 
0080 
009E 
009E 
OOAC 
0080 
011F 
011F 



137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 



.Subtitle 



Work Psect Declarations 



OWN STORAGE: 



.PSECT WORK, NOSHR, NOEXE, WRT, LONG 



DIA6^F1LE.NAME::»BLKB 39+39+5+2 



SYSSSYSROOT:: 
.ASCID 



149 SYSSDISK:: 

150 .ASCID 

151 DEFSQ J)EV:: 

152 .LONG 

153 10$: .8LK8 

154 DEF$QJ>JR:: 

155 .ASCID 



156 
157 
158 



.8LK8 
•ALIGN 



M SYS$SYSROOT M 

"SYSSDISK" 

0,10$ 
36 

M CSYSMAINT3 M 

<39*3>+4-10 

LONG 



PLACE TO SAVE FILENAME OF LASTC22J 
DIAGNOSTIC LOADED C203 



; Device name to equate 

; default Device name to equate 

; Null default device 

; Storage for default device 

; Default load device 

; Extra space for load device spec C223 

; VMS REQUIREMENT 



4 
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Data Psect Declarations 

*** LOAD Set/Show toad 
Data Psect Declarations 



30 3B 45 58 45 2E 00000008 



5D 54 4E 49 41 4D 53 59 



2F 21 53 41 21 53 



61 6C 20 6F 6F 

6D 20 2C 4C 58 

2F 21 4C 



6C 63 20 72 6F 
74 6E 65 76 65 



74 20 65 6C 
21 20 3D 20 
58 21 20 3D 



72 72 45 20 
20 67 6E 69 
2E 73 67 61 



0120 

0120 

00000000 

0000 

0000 

010E0000' 0000 

00OE 

00 ' 00OE 

00 OOOE 

00OF 

53 5B 00 • 00OF 

OA OOOF 

001A 

41 21 00' 001A 

08 C01A 

0023 

69 46 00' 0023 

65 67 72 002F 

20 78 61 003B 

21 0023 

0045 

3F 3F 00 ' 0045 

72 61 65 0051 

6C 66 20 005D 

1E 0045 

0064 



160 
161 
162 
163 

164 DEF.EXE: 

165 .ASCJD 

166 FILSGT..DDDEV:: 

167 .ASCJC 



I 13 
27-JUL-1984 Fiche 9 Frame 113 Seguence 1812 

27-JUL-1984 15;30:30 VAX-11 Macro V03-0T Page 

23-JUL-1984 16:23:30 DMA1:CSYSO,$YSMAINT;JLOAD.MAR;194 

.Subtitle Data Psect Declarations 

.PSECT DATA, SHR, NOEXE, NOWRT, BYTE 



5 
(1) 



\.EXE;0\ 



Default for loaded files 
NO DEFAULT DEVICE 



168 FIL$GT„DDSTRING:: 

169 .ASCJC \CSYSMAINTJ\ 



170 T^SHOWLOAD: 

171 .ASCJC 

172 T ..TRUNCATED: 

173 .ASCJC 



; DEFAULT DIRECTORY IN STAND ALONE 
"lASJAS!/" 
File too large = !XL, max = JXL!/ H 



I 4 



174 CLREF_ERROR TEXT; 

175 .ASCJC '*?? Er 



ror clearing event flags. 



L2M 
C213 



176 



ZZ-ENSAA-7.0 

LOAD 

07-21 



DSVSSETLOAD SET THE DEFAULT LOAD DEVICE/ 

*** LOAD Set/Show load 
DSVSSETLOAD SET THE DEFAULT 



J 13 
27-JUL-1984 Fiche 9 Frame J13 Seguence 1813 

27-JUL-1984 15:30:30 VAX-11 Macro V03-OT Page 6 

LOAD DEVICE/ 23-JUL-1984 16:23:30 DMA1 :CSYS0.SYSMAINT]LOAD.MAR;194 (1) 



0064 


178 


oooooooo 


179 


0000 


180 


0000 


181 


0000 


182 


0000 


183 


0000 


184 


0000 


185 


0000 


186 


0000 


187 


0000 


188 


0000 


189 


0000 


190 


0000 


191 


0000 


192 


0000 


193 


0000 


194 


0000 


195 


0000 


196 


oooo 


197 


0000 


198 


oooo 


199 


0000 


200 


oooo 


201 


oooo 


202 


oooo 


203 


oooo 


204 


oooo 


205 



++ 



.SBTTL DSVSSETLOAD SET THE DEFAULT LOAD DEVICE/DIRECTORY 
.PSECT CODE, SHR, EXE, NOWPJ, BYTE 



c UNCTIONAL DESCRIPTION: 

This routine is called form CLI to process a "SET LOAD <filespec>' 
command. It saves the sitring pointed to by CLISQ FILE(R2) in 
DEF$QJ>IR. 

CALLING SEQUCENCE: 

BSBW DSVSSETLOAD 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 



R2 

+ 



Base of CLI DATA BASE 
CLI DATA BASE 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 



NONE 



DEF$Q DIR gets descriptor of spec typed. 
*'ter spec is copied to local st 



torage 



COMPLETION CODES: 



N/A 



ZZ-ENSAA-7.0 

LOAD 

07-21 



K 13 
27-JUL-1984 



DSVSSETLOAD SET THE DEFAULT LOAD DEVICE/ 

*** LOAD Set/Show load 
DSVSSETLOAD SET THE DEFAULT LOAD DEVICE/ 



'7-JUL-1984 
►3-JUL-1984 



Fiche 9 Frame K13 



Seguence 1814 
15:30:30 VAX-11 Macro V03-01 Page 

16:23:30 DMA1 :CSYSO.SVSMAINT]LOAD.MAR;19A 



7 
(1) 



3C 
SO 05 

7E 
FB 50 

6E 

7E 08 A2 

OOOOOOOO'EF 03 

50 8E 

10 

00000078'EF 50 

54 00000078' E F 

4C 

50 8E 

10 

0000009E , EF 50 

54 0000009E , EF 

37 



7E 

0000009E'EF 

OOOOOOOO'EF 03 



5E 



18 
3C 



85 81 
FA 50 



B8 
DO 

7C 
F5 

7F 
7D 
FB 

7D 
13 
DO 
7D 
10 

7D 
13 
DO 
7D 
10 



7C 

9F 
FB 

CO 
BA 
05 

90 
F4 
05 



0000 
0000 
0002 

0005 
0005 
0007 
OOOA 
OOOA 
OOOC 
0010 
0017 
0017 
001A 
001 C 
0023 
002A 
002C 
002C 
002F 
0031 
0038 
003F 
0041 
0041 
0049 
0049 
0060 
0062 
0068 
006F 

m 

0074 
0075 
0075 
0078 
007B 



207 
208 
209 

210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
221 
224 
225 
226 
22? 
228 
229 
230 
231 
232 
233 
234 
235 
236 
§37 
238 
239 
240 
241 
242 
243 



DSVSSETLOAD:.- 
PUSHR 
MOVL 



10$: 



20$: 



CLRQ 
S08GTR 

PUSHAQ 

MOVQ 

CALLS 

MOVQ 
BEQL 
MOVL 
MOVQ 
BS8B 

MOVQ 
BEQL 
MOVL 
MOVQ 
8SBB 



# A M<R2,R3,R4,R5> 
#5, RO 

-<SP) 
RO, 10$ 

(SP) 

CLISQ FILECR2), -(SP) 

*Z, BREAKUP_FILE 

(SP)+,RO 
20$ 

RO.OEFSQ DEV 
DEF$Q_DE9,R4 
90$ 

(SP)*, RO 
30$ 

RO,DEF$0 DIR 
DEF$QJ)lR,R4 
90$ 



30$: 



Br_If_Not_User 70$ 

$CRELOG_S #2,SYS$DISK,DEF$GJ)EV 
CLRQ -<SP) 
PUSHAB DEF$Q DIR 
CALLS #3,SYS$SETDDIR 



70$: 



80$: 
90$: 



ADDL 
POPR 
RS8 

M0V8 

SOBGEQ 

RSB 



#3*8- SP 

0*M<R2,R3,R4,R5> 



(RD + . <R5) + 
R0,80$ 



Save 

Setup to clear 5 quadwords 

Clear a quadword 

Count and Branch if more 

Address of descriptors 
length, address of new default 
Merge in new fields 

Get length/address of new device 
Branch if none 

Set length of new device name 
Length/Address to save device 
Copy the device name 



Length/addr of 
Branch if none 
Set new length 
Length/Address 
Copy directory 



directory 

of default directory 
to save directory 
name in 



Branch if not running in user-mode. C183 

Set new SYS$DISK 
Last two parameters null 
Address of new default directory 
Set new default directory 

Remove rest of parameters 
Restore 



Copy a character 
Count and copy if more 



ZZ-ENSAA-7.0 

LOAD 

07-21 



0SV$SHOWLOA0 Display default load device 

*** LOAD Set/Show load 
DSV$SH0WL0AD Display default 



L 13 

27-JUL-1984 Fiche 9 Frame Li 3 Sequence 1815 

27-JUL-1984 15:30:30 VAX- 11 Macro V03-0T Page 

load device 23-JUL-1984 16:23:30 DMA1 :[SYS0-SYS«AiNTlL0AD.MAR;l94 



8 
(1) 







007C 


2^5 






007C 


246 






007C 


247 






007C 


248 






007C 


249 






007C 


250 






007C 


251 






007C 


252 






007C 


253 






007C 


254 






007C 


255 






007C 


256 






007C 


257 






007C 


258 






C07C 


259 






007C 


260 






007C 


261 






007C 


262 






007C 


263 






007C 


264 






007C 


265 






007C 


266 






007C 


267 






007C 


268 






007C 


?69 






007C 


270 


0000009E 'EF 


9F 


007C 


271 


00000078' EF 


7? 


0082 


272 


OOOOOOIA'EF 


9F 


0088 


273 


7E 01 


9A 


008E 


274 


7E 16 


98 


0091 


275 


00000000'EF 05 


F8 


0094 


276 




05 


0098 


211 



.S8TTL DSVSSHOWLOAD Display default load device 
++ 

FUNCTIONAL DESCRIPTION: 

This routine is called from CLI to display the current defaults 
for device and directory. 

CALLING SEQUENCE: 

BS8W DSVSSHOWLOAD 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 



R2 

+ 



Address of CLI data base 
contents of CLI$Q_FILE 



OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: N/A 



DSVSSHOWLOAD:: 

PUSHA8 L A DEF$Q_DIR 

PUSHAQ L A DEF$Q DEV 

PUSHA8 L A T SHOQLOAD 

movzbl #DS$K,PRINTF,-(sp) 

cvtbl #DSSK TYPE ^COMMANDJ)UT.-(sp) 

CALLS *5,DS5?$PRlRT 

RS8 



[16] 
[16] 
C16D 
[17] 
[17] 
[17] 



ZZ-ENSAA-7.0 

LOAD 

07-21 



OSRSIFLOADDEV 



Is it the load device? 
*** lOAD Set/Show toad 
DSRS1FLOADDEV Is it the 



++ 



toad 



M 13 

27-JUL-1984 Fiche 9 Frame 

27-JUL-1984 15:30:30 
device? 23-JUL-1984 16:23:30 



M13 Seguence 1816 

VAX-11 Macro V03-01 Page 

DMA1:CSYS0.sySMAJNT3L0AD.MAR;19A 



9 
(1) 



54 







009C 


279 






009C 


280 






009C 


281 






009C 


282 






009C 


283 






009C 


284 






009C 


285 






009C 


286 






009C 


287 






009C 


288 






009C 


289 






009C 


290 






009C 


291 






009C 


292 






C09C 


293 






009C 


294 






009C 


295 






009C 


296 






009C 


297 






009C 


298 






009C 


299 






009C 


300 






009C 


301 






C09C 


302 






009C 


303 






009C 


304 






009C 


305 






009C 


306 






009C 


j07 






009C 


308 


3F 


B8 


009C 


309 


00000078'EF 


7D 


009E 


310 


OOOOOOOO'EF 


16 


O0A5 


311 


OC 


3A 


00A8 


312 


12 


13 


OOAD 


313 


52 50 


G1 


OOAF 


314 


QD 


12 


0082 


315 






00B4 


316 


83 81 


91 


0084 


317 


08 


12 


0087 


318 


F8 52 


F5 


0089 


319 


50 01 


DO 


008 C 


320 


02 


11 


OOBF 


321 


50 


04 


00C1 
0OC3 


322 






3*3 


3C 


BA 


00C3 


324 




05 


00C5 


325 



.S3TTL DSRS1FLOADDEV Is it the toad device? 



FUNCTIONAL DESCRIPTION: 

This routine is catled to determine if the device described 
is the toad device or not. 

CALLING SEQUENCE: 

BSBW DSR5IFL0ADDEV 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 



RO 
R1 



Length of device name 
Address of device name 



OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: 



DSRSIFLOADDEV:: 



if device was not load device 
If device was the toad device 



20$: 



40$: 
50$: 



PUSHR 


* A M<R0,R1,R2,R3,R4,R5> ; 


MOVQ 


L A DEF$Q DEV,R4 


Jsb 


L\SCAN$BEVICE 


POPR 


# A M<R2,R3> 


BEQL 


40$ 


CMPW 


R0,R2 


BNEQ 


40$ 


CMPB 


(R1)+,(R3)+ 


BNEQ 


40$ 


S08GTR 


R2,20$ 
#1,R0 


MOVL 


BR8 


50i 


CLRL 


RO 



POPR 
RS8 



* A M<R2,R3,R4,R5> 



Save descriptor and regs 
Point to toad device 
Extract device name 
Restore desciptor desired 
Branch if no device present 
length match? 
Branch if not 

Character match? 

Branch if not 

Branch if more to compare 

Success 

Restore regs and exit 

Not toad Jevice 

Restore rest of registers 



CI 63 
C183 



ZZ-ENSAA-7,0 

LOAD 

07-21 
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00C6 


327 


O000OOC6 


328 


00C6 


329 


00C6 


330 


00C6 


331 


00C6 


332 


00C6 


333 


00C6 


334 


00C6 


3;.5 


00C6 


3.'J6 


00C6 


357 


00C6 


338 


00C6 


339 


00C6 


340 


C0C6 


341 


00C6 


342 


00C6 


343 


00C6 


344 


00C6 


345 


00C6 


346 


00C6 


347 


00C6 


348 


00C6 


349 


00C6 


350 


00C6 


351 


00C6 


352 


00C6 


353 


00C6 


354 


00C6 


355 


00C6 


356 


00C6 


357 


00C6 


358 


00C6 


359 



+ + 



.SBTTL DSVSLOAD PROGRAM IMAGE LOAD SUBROUTINE 
.PSECT CODE, SHR, EXE, NOWRT, BYTE 



FUNCTIONAL DESCRIPTION: 

READS AN PROGRAM IMAGE FILE C .EXE/-HD*) FROM A DISK 
INTO A MEMORY OVERLAY AREA DEFINED BY f DS$A PRGBGN* AND 
•DSSK^PRGSIZ' 



CALLING SEQUENCE: 



BS8W 
BSBW 



DSVSRUN 
DSVSLOAD 



TO LOAD THEN START 



NONE 



INPUT PARAMETERS: 
IMPLICIT INPUTS: 

CLISQ^FILE = FILE SPEC (QUADWORD STRING DESCRIPTOR) 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: KiONE 
COMPLETION CODES: 

RO SS$_NORMAL or failure from DSXSLOAD 

SIDE EFFECTS: 

PROGRAM AREA IS CLEARED BEFORE OVERLAY 

(BREAKPOINT TABLE MUST ALSO BE CLEARED) 



ZZ-ENSAA-7,0 

LOAD 

07-21 



8 14 
27-JUL-1984 



DSVSLQAD PROGRAM IMAGE LOAD SUBROUTINE 

*** LOAD Set/Show load 
DSVILOAD PROGRAM IMAGE LOAD SUBROUTINE 



7-JUL-1984 

3-JUL-1984 



16:23:30 



Seguence 1818 
V03-0T Page 

DMA1:CSYS0.SYSMAIMTDtOAD.MAR;1W 



Fiche 9 Frame B14 
15:30:30 VAX-11 Macro 



11 
(1) 



54 



01 



00000000' EF 16 

00000000'EF 16 

00000000'EF 01 E5 
06 

00000000'EF 16 



00000000'EF 6C FA 



52 00000000'EF 9E 

53 OOOQOQOO'EF 9E 

53 52 D1 

04 1: 

82 DA 

n 11 

j? 00000000'EF DE 

?E OOOO'BF 3C 

7E 000C8F 3C 





38 


BB 


53 08 A2 


DE 


OOOQOOOO'EF 


DE 


64 


63 


90 


53 


04 


CO 


53 


63 


DO 


55 


84 


90 


84 


83 
55 


90 
97 




F9 


14 




38 


8A 


04000000 $F 


CA 



oc 



OOOOFEOO'EF 



08 

53 01 

U 

OOOOFEOO'EF 





18 


S3 
07 




IF 


53 
53 


00000000 'Ef 


01 




OS 


50 


DC 


53 


3F 
OS 



R 

El 

D1 
19 
01 
i4 
11 
DD 
F8 
E9 
F3 
BA 



m 

00C7 
OOCD 
OOCD 
0003 
OODA 
00D8 
00E1 
00E1 
00E9 
OOFO 
COFO 
OOFO 
OOF 7 
OOFE 
0101 
0103 
0105 
0107 
0107 
010E 
0113 
0118 
0118 
011A 
011E 
0125 
0128 
0128 

0131 
0131 
0134 
0136 
0138 
01 3A 
OHO 
0145 
0145 
0145 
0145 
0H7 
OKA 
014C 
0152 
0155 
0157 
01 5A 
015f 
015E 
0160 
0167 
016A 
016E 



161 
162 
I63 
(64 
365 
366 
36? 
368 
369 
370 
371 
37? 
373 
374 
375 
376 
37? 

3?8 
379 
380 
381 

382 

3§4 
385 
386 
387 
388 
389 
390 
391 

394 
395 
396 
39? 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 



DS7$RUN:: 

NOP 

DSVSLOAD:: 
Jsb 

Jsb 
B8CC 

Jsb 



SCRIPTSFLUSH 

LMNIT CONTEXT 
*DS$V JODFLG, - 
l.*DSSBL FLAGS,5S 

l*ds_clEanup 



5$: 
10$: 

100$: 

200$: 



Br If User 10$ 
CACLG <AP),MAPFR£E 



300$: 



MOVAB 

MOVAB 

CMPL 

BEOL 

CLRL 

BR8 

MOVAL 

M0V2WL 
MOVZWL 

PUSHR 

MOVAL 

MOVAL 

M0V8 

ADDL2 

MOVL 

M0V8 

M0V8 
DEC8 
BGTR 
POPR 
BICL 



MAGE HEADER, R2 
IMAGE. HEADERJND,R3 




L A DS$GL.CLJBASE, R2 

*OS$A_PRGBGN,-(SP) 
#D*$K.PRG$IZ,~<SP) 

# A M<R3,R4,R5> 
CLJ$Q FILE(R2),R3 

DIAGjllEJYAME.M 

(R3)T(R4) 

#4.R3 

<rS),R3 

<R4)+,R5 

<R3)*.<R4)+ 

R5 

300$ 

#*M<R3,R4,R5> 

#1IDSA$V 6EBUG,- 

DSA$GL.F[AGS 

; Now clear all ©vent flags. 

PUSHR #*M<R3> 

MOVL #1 f R3 

400$: 88C #DSA$V USER,- 

DSA$GLlFLAGS,410$ 

CMPL R3, *ll 

BLSS 416$ 

CMPL R3. #31 

BGTR 416$ 

BR8 420$ 

410$: PUSHL R3 

CALLS #1, SYS$CLREF 

B18C RO, 425$ 

420$: A08LFQ #63, R3, 400$ 

POPR #*M<R3> 



; 1 Inst so DSVSLOAD NEQ DSVSRUN 

; Flush scripts if console command 

; Reinit stacks, PCB...etc 

; INDICATF NO IMAGE LOADED 

; Cleanup if nec^.sary 

; Branch 1f in user-mode 

; Re-map free memory 



[183 

C183 

[163 
[18] 

[18] 



GET IMAGE HEADER STORAGE AREA ADDR.C203 

END OF AREA 

WHILE NOT END OF BUFFER 

DC 

CLEAR THE BUFFER 

CHECK FOR DONE 



m 



GET 
GET 
GET 
GET 
SET 



Reset R2 to point to 
Address to load file 
Length of to#d area 
NOW SAVE DIAG. FILENAME 
SAVE SOME REGISTERS 
GET FILENAME DESCRIPTOR 

STORAGE AREA 

CHAR, COUNT 

STRING POINTER 

STRING 

UP COUNTER OF CHARS 
REPEAT 

MOVE A CHAR, TO SAVE 
COUNT A CHARACTER 
UNTIL ENTIRE STRING COPIED 
RESTORE SOME REGISTERS 
CLEAR THE DEBUGGER-RESIDENT 
FLAG 



Use R3 to hold EF Number 
Start with EFN 1; VDS uses 
IF user mode 
THEN 

IF EFN >- 24 

AND EFN <« 31 

THEN 

Skip this ETN 

Put EFN on stack 
Call service 
Branch on error 
Next EFN 
Restore R3 



o: 

03 

o; 
o: 

03 
03 



cli databare 



[163 



DEBUGGERE203 
[203 




[213 

















C H 





ZZ-ENSAA-' 


7.0 DSVSLOAO PROGRAM IMAGE LOAD 


SUBROUTINE 




27-JUL-1984 Ffche 9 Frame C1A Sequence 
27-JUL-198A 15:30:30 VAX-11 Macro V03-0T 
ROUTINE 23-JUL-198A 16:23:30 DMA1 :CSYSO.SYSMA1NTUOAD 


1819 


LOAD 




*** 


LOAD Set/Show toad 




Page 
.MAR; 194 


07-21 




DSVSLOAD PROGRAM 


IMAGE 


LOAD SUB 




17 


11 


0170 
0172 


A18 
A19 




BR8 


A30S ; Continue 


C213 








0172 


A2U 425$: 




; Come here on SCLREF error 


CP1D 

[21] 




08 


BA 


0172 


A21 




POPR 


* A M<R3> ; Restore R3 




000000A5*EF 


9F 


01 7A 


A22 




PUSHA8 


CLREF^ERROR TEXT ; Put address of msg. on stack 


£21] 




7E 01 


9A 


01 7A 


A23 




movzbi 


*DS$K PRlNTF,-(sp) 


£21] 




7E 16 


98 


01 7D 


A2A 




cvtbl 


*DS$K. TYPE COMMAND OUT,-(sp); 


£21] 




OOOOOOOO'EF 03 


F8 


0180 


A25 




CALLS 


#3,DSX$PRjRTF " ; Print error message 


C21] 




A? 


11 


0187 


A26 
A27 




BR8 


DSVSLOAD.X ; And leave. 


£21] 








0189 
















0189 


A28 A30$: 






C21J 




00000000' EF 


7F 


0189 


A29 




PUSHAQ 


L A DEFJXE ; Address of defaults for file 






08 A2 


7F 


01 8F 


A30 




PUSHAQ 


CLI*Q FJLE(R2> ; Address of file descriptor 






OOOOOOOO'EF OA 


F8 


0192 


A31 




CALLS 


#4 L A BSX$L0AD ; Load the file specified 






OOOOOOOO'EF 


16 


C199 

019F 


A32 
A33 




Jsb 


DSRSCOMPLETIQN ; Type error text if necessary 






2E 50 


E9 


019F 


A3A 


30$: 


BL8C 


RO, DSVSLOAD X ; Branch if it failed 










01A2 


A35 




Set J.odFlo : Indicate an imaae is loaded 






53 0200' 8F 


3C 


01AA 


A36 
A37 




MOV2WL 


#DS$K PRGSIZ*512,R3 ; Save max lUa 






51 0000021A*EF 


00 


01AF 




MOVL 


L$A L*STADR,R1 ; Get last address 






51 53 


01 


01B6 


A38 




CMPL 


R3,R1 ; Compare max to current 






15 


1E 


01B9 


A39 




BGEQU 


DSVSLOAD X ; Small enough, continue 
# A M<R1,R3> ; Push Max size then current $< 






OA 


B6 


01BB 


AAO 




PUSHR 


ie 




00000023'EF 


9F 


01BD 


AA1 




PUSHA8 


T TRUNCATED ; Text of message 






7E 01 


9A 


01C3 


AA2 




movzbl 


#BS$K.PRINTF,-<sp) 






7E 16 


98 


01C6 


AA3 




cvtbl 


#DS$K TYPE C0MMAND_0UT,~(sp) / 






00000000' EF 05 


FB 


01C9 
01D0 


AAA 
AA5 




CALLS 


*5,DSH*PRlFlT ; Tell the operator 










01D0 


AA6 


DSVSLOAD X: 








00000000' EF 


9F 


01D0 


AA7 




PUSr*B 


L A BEGIN ; Fake JSB for VRSTART or error 






OD 50 


E9 


01D6 


AA8 




8L8C 


ROJOS ; If load failed, go back to BEGIN 




000000C6'8F OA A2 


D1 


01D9 
01F1 


AA9 
A50 




CMPL 


CL1$LC0MMAND(R2), - 

*D5V$RUN ; Was It run command? 






03 


12 


on i 


A51 




8NEQ 


10$ ; Branch If not run command 






FEU' 


31 


01E3 


A52 




BRW 


VRSTART ; Now issue START command 








05 


01E6 
01E7 
01E7 


A53 
A5A 
A55 


10$: 


RS8 
.END 


; Return to BEGIN 
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£16] 

£16] 
£1S] 



£18] 



£17] 
£17] 
£17] 



£18] 



2Z-ENSAA-7.0 

LOAD 

Symbol table 



Symbol table 



*** LOAD Set/Show load 



D H 

27-JUL-1984 



Flche 9 Frame DK 



27-JUL-1984 15:30:30 
23-JUL-1984 16:23:30 



S$T1 

BEGIN 

BIT,.. 

BREAKUP FILE 

CLISK^BOFSIZ 

CLISK^SIZE 

CLISL,ADDRESS 

CL1SL_C0MMAND 

CL1SL.DATA 

CLISLJlAGS 

CLISLJ.AST 

CLISLJJEXT 

CLISL^PASS 

CLISL SUBT 

CLISLJTEST 

CLISQ BUFQWD 

CLISQlFILE 

CLISQ SECTION 

CLISQ^TIME 

CLIST.BUFFER 

CLISVJ\DAPTER 

CLISV ADR 

CLISV^ASCII 

CLISV BREAK 

CLISVIBRIEF 

CLISV BYTE 

CLISV^CLEAR 

CLISV^DEC 

CLISVJ)EFAULT 

CLISVJ)EPOSIT 

CLISVJVENT 

CLISV EXAM 

CLISV^FLAGS 

CLISV^HEX 

CLISVJCERNEL 

CLISV.LOAD 

CLISV.LONG 

CLISVJVOTNUF 

CLISVJXT 

CLISV.PREG 

CLISV^QA 

CLISV QACKLOOPLOOPS 

CLISVlQAERRORPRINTS 

CLISV QAHULTIPLEMSS 

CLISV QASUBTESTLOOPS 

CLlSv'QATESTLOOPS 

CLISV REG 

CLlSV_REOUIRED 

CLISV RUN 

CLISVlSET 

CLISV,SHOW 

CLISV^VALSEC 

CLISV. WORD 

CLREF ERROR.TEXT 

DEFSG~DEV 

DEF$Q~DIR 

DEF_E5!E 



= 00000000 

it****** 

- 00000004 
**** **** 

= 000C0100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

0000003C 

= 00000018 

= 0000000B 

= 00000013 

= 0000000A 

= 00000018 

= OOOOOOOD 

-- 00000002 

= 00000010 

= oooooooc 

= 00000019 
= 00000008 
= 00000005 
= 00000009 
= 00000012 
= 00000017 
= 00000006 
= OOOOOOOF 
= 00000001 
= 00000011 
= 0000001A 
= 00000007 
= 0000001 C 
= 0000001B 
= 0000001 F 
= 0O00Q01 E 
= 0000001 D 
= 00000014 
= 00000000 
= 00000015 
= 00000003 
= 00000004 
= 00000016 
= OOOOOOOE 
00000045 
00000078 
0000009E 
00000000 



R 



04 
04 



Sequence 1820 
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03 



RG D 02 
RG D 02 
R D 03 



DIAGJILE NAME 

DSSA PRGBGN 

DSSGC,CLIBASE 

DSSGL FLAGS 

DSSKjRGSIZ 

DSSKlPRINTB 

DSSK.PRINTF 

DSSK.PRINTI 

DSSK PRINTX 

DSSK_TYPEJ\BORTJ>ROGRAM 

DSSK_TYPE_ABORT TEST 

DS$K_nPE COMMAflDJRR 

D$SK_TYPE„COMMAND OUT 

DSSK.TYPE.CRD AUTOTEST 

DSSK_TYPE DSjSROMPT 

DS$K_TYPEJ>S.START 

DSSK_TYPE_ERRDEV 

dssk type errhard 
dssk^type^error^body 
dssk^typejrror end 
d$%k type errprep 
dssk^type'errsoft 
dssk type errsup 
dssk_typejrrsys 
ds$k_type.,err halt 
dssk^type^exception 
dssk_type_exceptjon head 
dssk.jype..first pass 
dssk_type.gener*l 
dssk..type.general error 
ds$k_type no tests 
dssk_type..paHam error 

DS$K w TYPE„PR0GRAM END 

DSSKlTYPElPROGRAM INFO 

DSSK TYPE PROGRAM START 

DSSKlTYPElGIOJNVSDP 

DS$K_TYPE_GIO„NODRiyER 

DSSK TYPEJ1I0 WRONGVER 

DS$K_TYPE_SCRlPTJCHO 

DSSK TYPE SCRIPT PNF 

DSSK.TYPE..SCRIPT PROMPT 

DSSK TYPE SCRIPT SKIP 

DSSOYPE SEQUENCE ERROR 

DSSK.JYPE..START..ERR 

DSSKlTYPElSTART"LJST 

DSSK TYPE SUMMARY 

DSSK.TYPE USER PROMPT 

DSSM_ABRTFLG 

DSSM.8ADTIME 

DSSM BATCH 

DSSM^BRKCLR 

DSSM^BRKPT 

DSSM^CHARFLG 

DSSM^CMDFLG 

DSSM^CTRLC 

DSSM CTRLO 

DSSMlDEVFLG 



00000000 

******** 
******** 
******** 
******** 

= 00000002 
= 00000001 

* 00000000 
= 00000003 
= 00000014 

* 00000013 
= 00000015 
= 00000016 
= 0000001 A 

* OQ000001 
= 0000001 D 
= 00000008 
= 00000006 

: mm 

= 0000001B 
= 00000007 
= 00000004 
« 00000005 

: row 

= 0000000B 
= 00000011 
= 00000000 

* 00000003 

H2 

.n c 

. t*aw 

' OOOOOOOF 
= 00000024 
» 00000022 
= 0000002? 
= 00000021 
= 0000001 E 
r 00000020 
= 0000001 F 

* 00000019 
r 00000018 

iro 5 

io; 




04 
04 
04 



: m 

= 00Q0020I 



RG D 02 
X 04 
X 
X 
X 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



ZZ-ENSAA-7.0 

LOAD 

Symbol table 

DS$M DISABLCC 

DS$M 0ONFL6 

DS$M~ERRFLG 

DStMlEXCEPT 

DSSMJXETST 

DS$M HLTFLG 

DS$M~LODFLG 

DS$M~MEMMGT 

DSSMlOUTPUT 

DS$M RUBFLG 

DSSMISCR1PT 

DS$M SETIMR 

DSSMlSTRFLG 

DSSM^SUBT 

DS$M^SYSFLG 

DS$M TIMRON 

DSSV.ABRTFLG 

DS$V BADTIME 

DS$V"BATCH 

DS$V BRKCLR 

DS$V BRKPT 

DS$V CHARFLG 

DS$V CMDFLG 

OSSV^CTRLC 

DS$V,CTRLO 

DS$VJ)EVFIG 

DS$V DISABLCC 

DS$V~DONFLG 

DS$V ERRFLG 

DS$V_EXCEPf 

DSSV..EXETST 

DS$V HLTFLG 

OS$V"LODFLG 

DS$V~MEMMGT 

DSSVlOUTPUT 

DS$V_RUBFLG 

DSSV.SCRIPT 

DSSV.SETIMR 

OS$V STRFLG 

DS$V_SUBT 

DS$V SYSFLG 

DS$V TIMRON 

DSA$*L APTMAIL 

DSA$AT"APTTXT 

DSA$GLJ\PTCOM 

DSA$GL_DEVLEN 

DSASGL ERRNO 

OSA$GL EVENT 

OSA$GLlFLAGS 

OSASGL MSGTYP 

OSASGLlPASSES 

OSASGL.PASSNO 

DSA$GL SECTNO 

OSASGLlSIO 

DSASGL.SUBTNO 

DSASGL TESTNO 

DSA$GL~UNITS 



Symbol table 



*** LOAD Set/Show load 
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01000000 


D 


00002000 


D 


00000010 


D 


00080000 


D 


00040000 


D 


00000008 





00000002 


D 


00008000 


D 


00800000 


D 


00000020 


D 


00200000 


D 


02000000 


D 


00000004 


D 


00004000 


D 


00000400 


D 


00020000 


D 


00000006 


D 


00000014 





00000016 


D 


OOOOOOOC 


D 


00OO00OB 


D 


00000008 


D 


00000007 





oooooooo 


D 


00000010 


D 


00000009 


D 


00000018 


D 


oooooooo 


D 


00000004 


D 


00000013 


D 


00000012 


D 


00000003 


D 


ooooooo*: 


D 


00OO00OF 


D 


00000017 


D 


00000005 


D 


00000015 


D 


00000019 


D 


00000002 


D 


OOOOOOOE 


D 


OOOOOOOA 


D 


0000001 1 


D 


OOOOFEOO 


D 


OOOOFAOO 


D 


OOOOFE04 





00OOFE58 


D 


00OOFE44 


D 


000OFE48 


D 


OOOOFEOO 


D 


00OOFE4O 


D 


00OOFE08 


D 


00OOFE54 





000OFE1O 


D 


0OOOFE14 


D 


00OOFE4C 


D 


00OOFE5O 


D 


OOOOFEOC 


D 



DSASGQ.MSGPTR 

DSA$GT DEVNAM 

DSASV.PEBUG 

DSASV USER 

DSR$C0MPLETION 

DSRSIFLOADDEV 

DSVSLOAD 

DSV$LOAD_X 

DSVSRUN 

DSVSSETLOAD 

DSVSSHOWLOAD 

DSXSLOAD 

DSXSPRINT 

DSXSPRINTF 

DS CLEANUP 

FlU$GTJ)DDEV 

FILSGT DDSTRING 

IMAGE JEADER 

IMAGE HEADER END 

INIT CONTEXT 

LSAjCP 

LSA^DEVP 

L$A„DREG 

L$A_DTP 

LSAJCP 

L$A^LASTADR 

L$A NAME 

L$AJ?E PP 

L$A„SECNAM 

L$A S1ATAB 

LSA^TSTCNT 

LSL.ENVIRON 

L$L ERRTYP 

L$L~HEADLENGTH 

LSL.REV 

L$L UNIT 

LSL^UNUSED 

L$L UPDATE 

MAPFREE 

SCANSDEVICE 

SCRIPTSFLUSH 

SIZ... 

SYSSCLREF 
SYSSCRELOG 
SYSSDISK 
SYSSSETDDIR 
SYSSSYSROOT 
T SHOWLOAD 
T TRUNCATED 
VRSTART 



0000FE68 


D 




0000FE5C 


D 




0000001 A 


D 




0000001 C 


D 




******** 


X 


04 


0000009C 


RG D 


04 


OO0000C7 


RG 


04 


000001 DO 


R D 


04 


OO000OC6 


RG D 


04 


OOOOOOOO 


RG D 


04 


0000007C 


RG D 


04 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


OOOOOOOE 


RG D 


03 


OOOOOOOF 


RG D 


03 


******** 


GX 


00 


******** 


GX 


00 


******** 


X 


04 


00000240 


D 




0000021 C 


D 




00000224 


D 




00000218 


D 




0000023C 


D 




00000214 


D 




00000208 


D 




00000244 


D 




00000250 


D 




00000248 


D 




00000254 


D 




00000204 


D 




0000024C 


D 




00000200 


D 




0000020C 


D 




00000220 
00000228 


D 






00000210 


D 




******** 


X 


04 


******** 


X 


04 


******** 


X 


04 


00000001 


D 




******** 


X 


04 


******** 


GX 


04 


00000068 


RG D 


02 


******** 


X 


04 


00000055 


RG D 


02 


0000001A 
00000023 


R D 


03 


R D 


03 


******** 


X 


04 
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LOAD 

Psect synopsis 



Psect synopsis 



*** LOAD Set/Show load 
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PSECT name 

ABS . 
$ABS$ 
WORK 
DATA 
CODE 



Allocation 

00000000* 
O0OOFE7O 
00000 1 20 
00000064 
000001 E7 



! Psect synopsis ! 

+™.. — „..«. — mm — + 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

65136.) 01 ( 1.) NOPIC USR 

288.) 02 ( 2.) NOPIC USR 

100.) 03 ( 3.) NOPIC USR 

487.) 04 ( 4.) NOPIC USR 



CON 


A8S 


LCL 


NOSHR 


NOEXE 


NORD 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 

NOWRT NOVEC BYTE 



ZZ-ENSAA-7.0 

LOAD 

Cross reference 



Cross reference 



*** LOAD Set/Show load 



SYMBOL 



$$T1 

BEGIN 

BIT... 

BREAKUP FILE 

CLISK BOFSIZ 

CLI$K~SIZE 

CLISL.ADDRESS 

CL1$L_C0MMAND 

CLI$L_DATA 

CLISL^FLAGS 

CLI$L LAST 

CLISL NEXT 

CLISLlPASS 

CLI$L^SUBT 

CLISL^TEST 

CLISQ^BUFQWD 

CLISQ^FILE 

CLISQ.SECTION 

CLISQ.TIME 

CLIST^BUFFER 

CLI$V. ADAPTER 

CLISV^ADR 

CLISV.ASCII 

CLISV^BREAK 

CLI$V„BRIEF 

CLI$V,BYTE 

CLI$V_CLEAR 

CLI$VJ)EC 

CLISV DEFAULT 

CLISV.DEPOSIT 

CLI$V_EVENT 

CLI$V„EXAM 

CLI$V_FLAGS 

CLISV..HEX 

CLI*VJCERNEL 

CLI$V^LOAD 

CLISVJ.QNG 

CLI$V NOTNUF 

CLISVJXT 

CUSVJWG 
CLI$V„QA 

CLI$VJ3ACKLOOPLOOPS 
CLISVJ3AERRORPRINTS 
CLl$V OAMULTIPLEPASS 

clisv.qasubtestloops 
clisv qatestloops 
cli$v;reg 
clisv required 
clisv^run 

CLI$V_SET 
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! Symbol 


Cross Reference ! 


VALUE 


DEFINITION REFERENCES... 


00000000 


232 (1 


) 232 (1) 


00000000-XR 




447 (1) 


00000004 


129 (1 


) 127 (1) 


00000000-XR 




216 (1) 


00000100 


126 (1 


) 126 (1) 


00000444 


126 (1 




00000018 


126 (1 




00000004 


126 (1 


) #-449 (1) 


0000001 C 


126 (1 




00000000 


126 (1 




00000024 


126 (1 




00000030 


126 (1 




0000002C 


126 (1 




00000028 


126 (1 




00000020 


126 (1 




00000034 


126 (1 




00000008 


126 (1 


) #-215 (1) 


00000010 


126 (1 




000O043C 


126 (1 




000O003C 


126 (1 




00000018 


126 (1 




00000008 


126 (1 




00000013 


126 (1 




000O000A 


126 (1 




0000001B 


126 (1 




0000000D 


126 (1 




00000002 


126 (1 




00000010 


126 (1 




oooooooc 


126 (1 




00000019 


126 (1 




00000008 


126 (1 




00000005 


126 (1 




00000009 


126 (1 




00000012 
00000017 


126 (1 




126 (1 




00000006 


126 (1 




OOOQOOOF 
00000001 


126 (1 




126 (1 




00000011 


126 (1 




0000001 A 


126 (1 




00000007 
0000001 c 


126 (1 




126 (1 




00000018 


126 (1 




0000001 E 


126 (1 
126 (1 




0000001 D 


126 (1 




00000014 


126 (1 




00000000 


126 (1 




00000015 


126 (1 




00000003 


126 (1 





129 



(1) 



388 



(1) 



430 (1) 



Cross reference 



ZZ-ENSAA-7.0 

LOAO 

Cross reference 

CLISV SHOW 

CLISVJ/ALSEC 

CL1$VJ40RD 

CLREFJRROR.TEXT 

DEF$Q_DEV 



DEF$Q DIR 

DEF EXE 

DIASjllE NAME 

DS$A PRGB5N 

DSSGC CLIBASE 

DS*GL FLAGS 

DS$Kj>RGSiZ 

DS$K„PRINTB 

DS$KJ>RINTF 

DS$K„PRINTI 

DSSK PRINTX 

DS$K TYPEJ\BORT PROGRAM 

DS$OYPEJ\80RT~TEST 

DSSKJYPE^CDMMAflCLERR 

ds$k type.command out 
oss^type^crd autotest 
dsskjypej>s Prompt 
ds$k„typej)s;;start 

DS$K TYPE,ERRDEV 
DS$K_TYPEJRRHARD 
DS$K_TYPE fcRROR BODY 
DSSK.TYPEJRROR END 
DS$K TYPE ERRPREP 
DS$OYPEJRRS0FT 
DS$K„TYPE ERRSUP 
DS$K TYPEJRRSYS 
DS$K~TYPEJRR HALT 
DS$K TYPEJXCtPTION 

ds$k_type exception head 
ds$k,type,first pass 
dssk.type.generxl 
ds$k_typej3eneral error 
ds$k.jype,no tests 
ds$k_type„param error 
ds$k w type w progr35mjnd 
ds$k typej>rogramjnfo 

ds$Oype..program"start 

dssk^type^qio^invAdp 

dssk.type^qiojjodriver 

ds$k_typ£j3io wrongver 

ds*k_type„scrtpt w echo 

dssk.jype..scriptjw 

DSSK^TYPElSCRIPrpROMPT 

ds$k type script skip 
ds$k„type, sequence error 
ds$k type„start_err 
dssk'type.start list 
ds$k type^summaRy 
ds$k type user prompt 
dssm^abrtFlg " 
ds$m_badtime 



*** LOAD Set/Show Load 



=00000004 

=00000016 

=O0OOO00E 

00000045-R 

00000078-R 



0000009E- 
00000000- 
00000000- 
00000000- 
00000000- 
00000000- 
00000000- 
=00000002 
=00000001 
=00000000 
=00000003 
=00000014 
=00000013 
=00000015 
=00000016 
=0000001 A 
=00000001 
=0000001 D 
=00000008 
=00000006 
=00000009 
=000O000A 
=00000018 
=00000007 
=00000004 
=00000005 
=00000000 
=00000000 
=00000008 
=00000011 
=00000000 
=00000003 
=00000012 
=00000010 
=00000010 
=0000001 ? 
=O0OOO00F 
=00000024 
=00000022 
=00000023 
=00000021 
=0000001 E 
=00000020 
=0000001 F 
=00000019 

=00000019 
=00000025 

■mm 

=00000040 
=00100000 



-R 

-R 

•R 

■XR 

•XR 

•XR 

XR 



126 
126 
126 
174 
151 

154 
164 
144 



129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
129 
127 
127 
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(1) 
(1) 
(1) 
(1) 
(1) 

(1) 
(1) 
(1) 



422 

#-220 

#-310 

#-226 

429 

389 

#-384 

383 

369 

#-385 

#-274 



#-221 


(1) 


232 


(1) 


272 


(1) 


ft-227 


(1) 


234 


(1) 


271 


(1) 


435 

#-436 


(1) 
(1) 











(1) 



#-423 



(1) 



#-442 



(1) 



#-275 



(1) 



#-424 



(1) 



#-443 



(1) 



ZZ-ENSAA-7.0 

LOAD 

Cross reference 

DSSM^BATCH 

DSSM.BRKCLR 

DSSM.BRKPT 

DSSMJHARFL6 

DS$M_CMDFLG 

DSSM^CTRLC 

DSSMJITRLO 

DS$MJ>EVFLG 

DSSMJHSABLCC 

DS$M DONFLG 

DSSMJRRFLG 

DS$M,EXCEPT 

DSSMJXETST 

OSSM.HLTFLG 

DS*MJ_ODFLG 

DSSM MEMMGT 

DSSM^OUTPUT 

DSSMJUBFLG 

DS$M.SCRIPT 

DS$M„SETIMR 

DS$M.STRFLG 

OSSM^SUBT 

DS$M,SYSFLG 

DS$MJIMR0N 

DSSVJ\BRTFLG 

DS$V BADTIME 

DS$V BATCH 

DS$V„BRKCLR 

OSSV^BRKPT 

DS$V„CHARFLG 

DS$V„CMDFLG 

OSSV^CTRLC 

DS$V„CTRLO 

DS$VJ)EVFLG 

DSSV.DISABLCC 

DSSV.DONFLG 

DS$VJRRFLG 

OSSV.EXCEPT 

DSSVJXETST 

DSSV^HLTFLG 

DSSV^LODFLG 

DS$V MEMMGT 

DSSV.OUTPUT 

DSSV.RUBFLG 
DSSV.SCRIPT 
DS$V SETIMR 
DSSV STRFLG 
DS$V W SU8T 
DSSVlSYSFLG 
DS$V TIMRQN 
DSASBL FLAGS 
DSA$V DEBUG 
0SA$V USER 

osrscOmpletion 
dsrsifloaddev 

OSV$LOAD 
DSV$LOAD„.X 



Cross reference 



*** LCAD Set/Show Load 



=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 
=00000200 
=01000000 
=00002000 
=00000010 
=00080000 
=00040000 
=00000008 
=00000002 
^00008000 
=00800000 
=00000020 
=00200000 
=02000000 
=00000004 
=00004000 
=00000400 
=00020000 
=00000006 
=00000014 
=00000016 
=0000000C 
=00000008 
=00000008 
=0000000? 
=00000000 
=00000010 
=00000009 




0004 
0013 
=00000012 
=00000003 
=00000001 
=0000000F 
=0000001? 
=00000005 
=00000015 
=00000019 
=00000002 

a 0QS2QQ0E 

=0000000A 

=00000011 

OOOQfEOO 

=0000001 A 

=0550001 c 

00000000' 
0000009C' 
000000C7- 
000001 D0« 



127 
127 
127 
127 
127 
127 
12? 
127 
127 
127 
127 
127 
127 
127 
12? 
127 
12? 
12? 
127 
127 

12? 
12? 
127 
127 
12? 
127 
12? 
127 
127 
12? 
12? 
127 
127 
127 
12? 
127 
12? 
12? 
127 
127 
127 
127 
127 
127 
12? 
127 
12? 
12? 
127 
127 



*XR 

•R 308 

>R 364 

>R 446 
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#-368 



(1) 



#-435 



(1) 



(1) 
(1) 

(1) 



#-399 

#-230 

432 



#-426 



(1) 
(1) 
(1) 
(1) 



(1) 



372 (1) #-400 (1) 
#-372 (1) #-406 (1) 

#-434 (1) #-439 (1) 



407 



(1) 



7Z-ENSAA-7.0 

LOAD 

Cross reference 

DSVSRUN 

DSV$SETLOAD 

DSVSSHOWLOAD 

DSX$LOAD 

DSX$PR1NT 

DSXSPRINTF 

DS CLEANUP 

FlC$GT_DDDEV 

filsgt ddstring 
image .Reader 
image header_end 
1nit pontext 
lsa castadr 

MAPFREE 

SCANSDEVICE 

SCRIPTSFLUSH 

SIZ... 

SYSSCLREF 

SYSSCRELOG 

SYSSDISK 

SYSSSETDDIR 

SYSSSYSROOT 

T SHOWLOAD 

T'TRUNCATED 

VRSTART 



Cross reference 



*** LOAD Set/Show Load 
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Q0OOQ0C6-R 
00000000-R 


361 


(1) 


0-450 (13 






207 


(1) 








O0QQQQ7C-R 
00000000-XR 


270 


(1) 












431 (1) 






00000000-XR 






276 (1) 


444 


<1> 


00000000-XR 






425 (13 






00000000-XR 






370 <1) 






00OOO00E-R 


166 


(1) 








00OOO00F-R 


168 


(1) 








00000000-XR 






133 (13 


376 


(1) 


00000000-XR 






134 (13 


17? 


(1) 


00000000-XR 






367 (13 






00000214 






#-437 (13 






00000000-XR 






373 (13 






00000000-XR 






311 (13 






00000000-XR 






365 (13 






00000001 


127 


(1) 


127 (13 






00000000-XR 






414 (13 






00000000-XR 






232 (13 






00000068-R 


149 


(1) 


232 (13 






00000000-XR 






235 (13 






00000055-R 


147 


(1) 








0000001 A-R 


170 


(1) 


273 (13 






00000023 -R 


172 


(1) 


441 (13 






00000000-XR 






0-452 (13 







ZZ-ENSAA-7.0 

LOAD 

Cross reference 



Cross reference 



MACRO 



SIZE 



$ASNPUSH 

$CREL0G_S 

SDEF 

SDEF1NI 

$DS„DSADEF 

$DS_HDRDEF 

SDS TYPEDEF 

$EQ0 

SEQUL51 

SEQULST 

SGBLINI 

5PUSHADR 

SVIELD 

SVIELD1 

BRJF .NOT USER 

BR IF USER 

CLTDEF 

DSFDEF 

SET LODFLG 



Phase 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



*** LOAD Set/Show load 



K 14 

27-JUL-1984 



7-JUL-1984 
•3-JUL-1984 




9 frame KH Sequence 1827 

:30 VAX- 11 Macro V03-01 Page 20 

:30 OMA1:CSYSO.SYSHAINT3LOAD.MAR;194 (1) 



DEFINITION 



232 
232 
129 
125 
128 
125 
129 
129 
129 
129 

232 
127 
129 
230 
372 
126 
127 
435 



Page faults 
...... 

139 

399 



116 

26 

7 

40 

766 



! Macros Cross Reference ! 
*™—™ — • — — -- — — + 

REFERENCES... 

232 "" 
232 

125 (1) 128 

128 

125 

129 

129 

129 

129 

127 (1) 129 

232 

127 

127 

230 

372 

126 

127 

435 



! Performance indicators ! 

CPU Time Elapsed Time 

00:00:00.11 00: 00:00 • 51"" 

00:00:00.78 °9 : 99 ; 2£"£ 7 

00:00:00.37 00:00:00. 5A 

00:00:01.37 00:00:01.64 

00:00:00.19 00:00:00.44 

00:00:00.03 00:00:00.03 

00:00:00.71 00:00:00.71 

00:00:10.25 00:00:15.97 



(1) 



(1) 



The working set limit was 1000 pages. 

32196 bytes (63 pages) of virtual memory were used to buffer the intermediate 
There were 20 pages of symbol table space allocated to hold 272 non-local and 
455 source tines were read in Pass 1, producing object records in Pass 2, 
47 pages of virtual memory were used to define 21 macros. 



>de. 
I local 



symbols. 



ZZ-ENSAA-7.0 Cross reference 

LOAD 

vAX-11 Macro Run Statistics 



*** LOAD Set/Show Load 



, L 14 
27-JUL-1984 Fiche 9 Frame LH 

27-JUL-1984 15:30:30 
23-JUL-1984 16:23:30 DMA1 :[$YSO.SYSMAINT;]LOAD.MAR;194 



Sequence 1828 
VAX-11 Macro V03-0T Page 



21 
(1) 



! Macro library statistics ! 

Macro library name Macros defined 

DRB1:[DS.WORK3DIAG,MLB;955 3 

DRB1:CDS,WORK3DS.MLB;218 5 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 

DMA1:CSYS0.SYSMA1NT]DS,MLB;218 

DMA1 :CSYS0.SYSMAINT]DIAG.MLB-953 

SYS$SYSR00T:[SYSLIB]L1B.MLB;1 

SYS$SYSR00T:CSYSLIB]STARLET,MLB;2 8 

TOTALS (all libraries) 16 

341 GETS were required to define 16 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=CD3,LIS3/CROSS/ENABLE=<DEBUG, TRACE) L0AD/UP0A=<L0AD.UPD # L0AD.ENH)+SYS$LIBRARY:LIB/LJBRARY+DMA1 tCSYSO.SYSMAINT]DI 



L. 
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ZZ-ENSAA-7.0 *** LODMAP Load adapter map registers 27-JUL-1984 Fiche 9 Frame M14 Seguence 1829 
LODMAP *** LODMAP Load adapter map registers 27-JUL-1984 15:30:48 VAX-11 Macro V03-01 Page 

TabLe of contents 

LOAD MASSBUS ADAPTER MAP REGISTERS 
LOAD UNIBUS ADAPTER MAP REGISTERS 
GET PFN FROM INVALID PTE 



(1) 


54 


(1) 


100 


(1) 


177 



ZZ-ENSAA-7.0 

LODMAP 
05-02 



N 14 

*** LODMAP load adapter map registers 2?-JUL-19l 

*** LODMAP load adapter map registers ; 



t4 M 
'7-JUL-1984 1 
1-APR-1980 10:21:51 



ne 9 Frame 
;30:48 VAX 



N14 Seguence 1830 
11 Macro V03-OT Page 1 
DMA1:CSYS0.SYSMAINT3LODMAP.MAR;19 (1) 



-2 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.1 

.2 
.3 

.4 

3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
27 
28 
29 
30 
31 
.1 
.2 
.3 
.4 
.5 
.6 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



.TITLE LODMAP *** LODMAP load adapter map registers 

.IDENT /05-02/ 

.LIST ME8 

.NLiST CND 



**************************************************************************** 



COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVH COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 



* THE INFORMATION IH THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

* CORPORATION. * 

* * 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

* SOFTWARE ON EQUIPMENT WHICH !S NOT SUPPLIED BY DIGITAL. * 

* * 

************************************************** ************v*** ********** 

D. N. CUTLER 1-N0V-77 

LOAD MBA MAP REGISTERS 

MODIFIED BY: 

ADAPTED TO DIAGNOSTIC SUPERVISOR ENVIRONMENT 

LOAD MBA AND UBA MAP REGISTERS 

Dave Butenhof 15-may-1980, Version 5.4 

Modify VMS V2.0 source to Supervisor Environment 



02 
V04 

V03 
V02 



RLR-TS04 Robert L. Rappaport 7-DEC-1979 
Added an alternate entrypolnt to IOCSLOADUBAMAP to 
support byte aligned UNIBUS DMA devices 

NPKCOMET N. KRONENBERG 11-JUN-1979 
RETURNED I0CSL0ADU3AMAP TO MODULE LOADMPEG. 

NPKCOMET N, KRONENBERG 1-FEB-1979 
REMOVED IOCSLOADUBAMAP TO MODULE LIOSUB. 



ZZ-ENSAA-7,0 

LODMAP 
05-02 



B 15 
*** 10DMAP load adapter map registers 27-JUL-1984 Flchf 9 Fr*mt 815 Stguence 1831 

*** LODMAP Load adapter map registers 27-JUL-1984 1 5 :30: A8 VAX-11 Micro V03-0? Pagt ? 

l-APR-19dQ 10:21 :51 DMA1 :[SYS0,SY$MAINT:1lODMAP,MAR;19 <1> 

MACRO LIBRARY CALLS 



0000 


43 


0000 


44 


0000 


45 


0000 


46 


0000 


.1 


0000 


.5 


0000 


4? 


» 


il 


0000 
0000 


50 
51 


0000 


5? 



SCR8DEF 

$M8ADEF 
SPTEDEF 
$U8AD EF 
SUC8DEF 
SVECDEF 



DEFINE CRB OFFSETS 

DEFJNE M8A REGISTER OFFSET DEFINITIONS 

DEFINE PAGE TABLE ENTRY FIELDS . . 

DEFINE UCB OFFSETS 

DEFINE UCB OFFSETS 

DEFINE CRB TRANSFER VECTOR OFFSETS 



ZZ-ENSAA-7.0 

10DMAP 

05-02 



-1 



*** LODMAP load 



-1 



52 

10 
51 
OC 
OC 



A4 
i 

A4 
A4 



6E 
6C 



52 01FF 



52 f 7 



53 
A5 
52 
A5 
51 
51 
C241 



51 



50 



0800 
68 
81 



F8 



53 



8F 
52 
CA 
A5 
80 
09 
52 
61 



53 



FC AO 

009E 

80000000 8F 

FC A1 53 

E5 



adapter map re 
*** LODMAP loa 



isters 
adapter 



00000000 
0000 

m 

0000 
0000 
• 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 

ocoo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

DO 0000 

3C 0002 

CE 0006 

3C 000A 

DO OQOE 

DO 0012 

9E 0016 

78 001 C 

0020 

DE 0021 

DO 0026 

DO 002A 



« 



0020 
002F 



04 0052 

C9 003F 
004 5 

11 0048 



.> 

; 6 

54 

55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

73 
74 
75 
76 
78 
79 
80 
81 
82 
83 

85 
86 

87 
88 
89 
90 
91 

92 
93 
94 
95 
96 
97 

98 



map 



C 15 
27-JUL-19I 
registers i 



[4 Fi 

•7-JUL-1984 1 
1-APR-1980 10:21:51 



h* 9 Frame CI 5 
:30:A8 VAX-11 Macro 



Segusnce 1832 
V03-01 Page 3 

DMA1:C$VS0.SY$MAJNT]L0DMAP.MAR;19 (1) 



.PSECT SEP, SHR, EXE, WRT, LONG 

.S8TTL ?.OAD MASS8US ADAPTER MAP REGISTERS 

I0CSL0ADM8AMAP - LOAD MASSBUS ADAPTER MAP REGISTERS 

THIS ROUTINE IS CALLED TO LOAD THE MASSBUS ADAPTER MAP REGISTERS, THE 
BYTE COUNT REGISTER, AND THE VIRTUAL ADDRESS REGISTER. 



INPUTS: 



R4 = ADDRESS OF MBA 
R5 = UCB ADDRESS OF 



CONFIGURATION 
UNIT TRANSFER 



STATUS REGISTER, 
IS TO OCCUR ON, 



OUTPUTS: 



THE TRANSFER BYTE COUNT, STARTING PAGE OFFSET, AND ADDRESS OF THE 
PAGE TABLE ENTIRES THAT DESCRIBE THE TRANSFER AKE RETRIEVED FROM 
THE SPECIFED UCB AND USED TO LOAD THE MBA BYTE COUNT, VIRTUAL ADDRESS, 
AND MAP REGISTERS. ONE ADDITIONAL MAP REGISTER IS LOADED AS INVALID 
TO STOP THE TRANSFER IF A HARDWARE FAILURE SHOULD OCCUR. 



R3 IS PRESERVED ACROSS CALL, 



lOCSLOADMBAMAP:: 

PUSHL R3 

MOVJWL 

MNEGL 

M0V2WL 

MOVL 

MOVL 

M0VA8 

ASHL 



UCB$W BCNT(R5).R2 

R2,MB«L W BCK<R4) 

UCB$W B0PF(R5) f R1 

R1,WX|LVAR(R{) 

Rl f M8A$L VAR(RA) 

*X1K(R2TCR1],R2 

*-9,R?,R2 

MOVAL M8A$L MAP(R4),R1 

MOVL UCB$L~SVAPTE(R5),RQ 

10$: MOVL <R0)+:(R1)+ 

BGEO 30$ 

20$: SOBGTR R2,10$ 

CLRL (R1> 

MOVL <SP)+,R3 

RSQ 

30$: MOVL -A(R0) 1 R5 

6S8W IOCSPTETOPFN 

BISL3 # A X8Q000000,R3,-4(R1) 

BR8 20$ 



LOAD MASSBUS ADAPTER MAP REGISTERS 

SAVE REGISTERS 

GET TRANSFER BYTE COUNT 

LOAD BYTE COUNT REGISTER 

GET BYTE OFFSET IN PAGE 

LOAD STARTING VIRTUAL ADDRESS 

*****TEMP UNTIL MBA ECO ****** 

CALCULATE HIGHEST RELATIVE BYTE AND ROUND 

CALCULATE NUMBER OF MAP REGISTERS TO LOAD 

GET ADDRESS OF M8A MAP REGISTERS 
GET ADDRESS OF PAGE TABLE 
LOAD MAP REGISTER 
If GEO PTE INVALID 
ANY MORE TO LOAD? 
LOAD INVALID MAP ENTRY 
RESTORE REGISTER 

GET THE PTE <NOT FROM MAP REGISTER!) 
GET PFN FROM INVALID PTE 
AND LOAD THE MAP REGISTER 



j 



ZZ-ENSAA-7.0 


LOAD UN1BUS 


ADAPTER 


HAP REGISTERS 


D 15 
27-JUL-1984 Fiche 9 Frame D15 Seguence 1833 
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LODMAP 








*** 


LODMAP 


load i 


idanter 


05-02 








LOAD UNIBUS ADAPTER" MAP REGISTERS 1-APR-1980 10:21:51 DMA1 :CSYS0,SYSMAINT;JL0DMAP.MAR;19 (1) 












004A 


100 




•S8TTL LOAD UNIBUS ADAPTER MAP REGISTERS 












004A 


101 ( 


+ 














Q04A 
004A 


1 0£ . 


10CSL0ADUBAMAP - LOAD UNIBUS ADAPTER MAP REGISTERS 












105 ( 


I0CSL0ADU8AMAPA - LOAD UNIBUS ADAPTER MAP REGISTERS ALTERNATE ENTRY FOR 












004A 


104 ( 




BYTE ALIGNED UNIBUS DMA DEVICES WHICH NEVER WISH TO SET THE BYTE 












004A 


105 ( 




OFFSET BIT IN MAP REGISTERS. IN ALL OTHER RESPECTS THESE TWO 












004A 


106 , 




ENTRYPOINTS PRODUCE IDENTICAL RESULTS. 












004A 


107 ( 
















004A 


108 ( 


THIS 


ROUTINE IS CALLED TO LOAD THE UNIBUS ADAPTER MAP REGISTERS, 












004A 


109 t 
















004A 


110 , 


INPUTS: 












004A 


111 , 
















004A 


112 ( 




R5 r uCB ADDRESS OF UNIT TRANSFER IS TO OCCUR ON. 












004A 


113 . 
















C04A 


114 t 




IT IS ASSUMED THAT THE DATAPATH AND MAP REGISTERS HAVE BEEN PREVIOUSLY 












004A 
004A 


115 , 

116 , 




ASSIGNED, 












004A 


117 , 


OUTPUTS: 












004A 


118 < 
















004A 


119 , 




EACH MAP REGISTER IS LOADED WITH THE APPROPRIATE PAGE FRAMt NUMBER 












004A 


120 , 




MERGED WITH THE DATAPATH DESIGNATOR AND BYTE OFFSET BIT. ONE ADDITIONAL 












004A 


121 , 




MAP REGISTER IS LOADED AS INVALID TO STOP THE TRANSFER If A HARDWARE 












004A 


122 , 




FAILURE SHOULD OCCUR. 












004A 


123 , 
















004A 


124 ( 




R3 IS PRESERVED ACROSS CALL. 












004A 


125 , 


- 














004A 


126 
















004A 


127 




.ENA8L LSB 












004A 


128 


[OCSLOADUBAMAPA:: ;LOAD UNIBUS ADAPTER MAP REGISTERS - ALTERNATE 












004A 


129 




; HERE WE DUPLICATE THE CODE IN THE OTHER ENTRY 












004A 


130 




; EXCEPT THAT WE DO NOT CHECK WHETHER THE BYTE 












004A 


131 




; OFFSET IS ODD. INSTEAD WE BRANCH DIRECTLY 












004A 


132 




; PAST THE SETTING OF THE BYTE OFFSET BIT. 






?6 


53 


7D 


004A 


133 




MOVQ R3,-(SPJ ;SAVE REGISTERS 




51 


6C 


A5 


3C 


004D 


134 




MOVZWL UCB$W ii .BOFF(R5),R1 ;GET BYTE OFFSET IN PAGE 




52 


6E 


A5 


3C 


0051 


135 




MOVZWL UCB$W„BCNT(R5),R2 ;GET TRANSFER BYTE COUNT 
MOVL UCBSL CRB(R5).R3 ;GET ADDRESS OF CRB 
EXTZV *VEC$V_DATAPATH,- ;GET DATAPATH 




53 


20 


A5 


DO 


0055 


136 
137 










00 


Ef 


0059 










05 




0058 


138 




#VEC$S DATAPATH.- ; NUMBER 
CRB$LJNTD+VEC$BJ)ATAPATH(r!),R4 




54 


27 


A3 




005C 


139 










1B 


11 


005F 


140 




BRB 10$ ; BRANCH AROUND TO JOIN COMMON CODE 












ks: 


141 


(0C$L0ADU8AMAP:: ;LOAD UNIBUS ADAPTER MAP REGISTERS 






7E 


53 


7D 


142 




MOVO R3,~(SP) ;SAVE REGISTERS 




51 


6C 


A5 


3C 


0Q6« 
0068 


143 




MOVZWL UCB$W„80FF(R5),R1 ;GET BYTE OFFSET IN PAGE 




52 


6E 


A5 


3C 


144 




MOVZWL UCB$W_BCMT(R5) X R2 ;GET TRANSFER BYTE COUNT 
MOVL UCBSL CR8<R5),R3 ;GET ADDRESS OF CRB 
EXTZV #VECi¥„DATAPATH,« ;GET DATAPATH 




53 


20 


A5 


DO 


006C 


145 










00 


EF 


0070 


146 










05 




0072 


147 




#VEC$S DATAPATH.- ; NUMBER 
CRBSLjNTD + VEC$BJ>ATAPATH(R3) i R4 




54 


27 


A3 




0073 


148 








03 


51 


E9 


0076 


149 




BLBC R1,1Ql ;IF LBC WORD ALIGNED TRANSFER 






54 


10 


88 


m 


150 




BiSe * A X10.R4 ;SET BYTE wFFSET BIT 

BISW # A X400,R4 ;MERGE VALID WITH BYTE OFFSET AND DATAPATH 




54 


0400 


8F 


A8 


151 * 


10$: 








05 


E1 


0081 


152 




BBC #VEC$V LWAE,- ;BRANCH J 


IF LONGWORD ACCESS NOT ENABLED 




03 27 A3 




0083 


153 




CRBSL lNTD+VEC$B^DATAPATH(R3)J5: 
BIS8 # A X207R4 ;ELSE SE1 


i 






54 


20 


88 


0086 


154 




r LWAE FOR MAP REG 




5? OtFF C241 


9E 


0089 


155 


15$: 


MOVAB A X1FF(R2)CR1J,R2 ;CALCULA1 


FE HIGHEST RELATIVE BYTE AND ROUND 




52 


n 


8F 


78 


008F 


156 




ASHL #-9,R2,R2 /CALCULATE NUMBER OF MAP REGISTERS TO LOAD 



ZZ-ENSAA-7<0 

LODMAP 

05-02 



LOAD UNIBUS ADAPTER MAP REGISTERS 

*** LODMAP load adapter 
LOAD UNIBUS ADAPTER MAP 



51 



52 




0093 




26 A3 52 


91 


0094 


157 


2C 


1F 


0098 


158 


51 28 83 


DO 


009A 


159 


00 


EF 


009E 


160 


OF 




OOAO 


161 


50 24 A3 




00A1 


162 


0800 C140 


DE 


00A4 


163 


50 68 A5 


DO 


OOAA 


164 


53 80 


DO 


OOAE 


165 


02 


19 


00B1 


166 
16? 


28 


10 


0083 


OB 15 54 


FO 


00B5 


168 


53 




0089 




81 53 


DO 


COB A 


16« 


EE 52 


F5 


008D 


170 


61 


D4 


OOCO 


171 


53 8E 


7D 


00C2 


172 




05 


00C5 


173 






00C6 


174 


00000000 '9F 


16 


00C6 




50 41 4D 42 55 


00' 


OOCC 




2C 44 45 43 58 


45 


00D2 




4C 41 54 41 


46 


00D8 






10 


OOCC 








OODD 


175 



20$: 



30$: 



40$: 



map rei 
REGJSTI 



CMP8 
BGEQU 
MOVL 
EXT2V 



MOVAL 

MOVL 

MOVL 

BLSS 

8S8B 

INSV 



E 15 
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listers 27-JUL-1984 15:30:48 VAX-11 Macro VO3-0T Page 5 

[RS 1-APR-1980 10:21:51 DMAl :CSYS0.$Y$MAINTJL0DMAP.MAR;19 (1) 

R2,CR8$L INTD+VECJB NUMREG<R3) ;ENOUGH MAP REGISTERS ASSIGNED? 

40$ ' :IF GEOU NO 

SCRB$L.INTD+VEC$L,ADP(R3).R1 ;GET ADDRESS OF CONFIGURATION REGISTER 

#VECSV.MAPREG,- ;GET STARTING REGISTER 

#V[C$S,MAPREG,- 

CRB$L INTD+VECSW MAPREG<R3),R0 



UBA$LJiAP(R1)[R03,Rl 

UCB$L_SVAPTE(R5>,R0 

<R0)+,R3 

30$ 

IOC$PTETOPFN 

RA # #21 # #11 # R3 



R3,(R1)+ 
R2.20$ 
<R1) 
<SP)*,R3 



MOVL 

SOCGTR 

CLRL 

MOVQ 

RSB 

BUG,CHECK UBMAPEXCED, FATAL 

JS8 9*BUG$CHECK 

•ASCJC "UBMAPEXCED, FATAL" 



•DSABL LSB 



GET ADDRESS OF FIRST MAP REGISTER TO LOAD 

GET ADDRESS OF PAGE TABLE 

GET NEXT PAGE TABLE ENTRY 

IF LSS VALID PAGE TABLE ENTRY 

GFT PfN FROM INVALID PTE 

INSERT VALID, BYTE OFFSET, AND DATAPATH 

LOAD U8A MAP REGISTER 
ANY MORE TO LOAD? 
LOAD INVALID MAP ENTRY 
RESTORE REGISTERS 

UNJBUS MAP REGISTER ALLOCATION EXCEEDED 



ZZ-ENSAA-7.0 

LODMAP 

05-02 



GET PFN FROM INVALID PTE 

*** LODMAP Load adapter map 
GET PFN FROM INVALID PTE 



F 15 
27-JUL-1984 Fiche 9 Fran* F15 Seguence 1835 
registers 27-JUL-198A 15:30:48 VAX-11 Macro V03-01 Page 6 
1-APRH980 10:21:51 DMA1 :CSYSO.SYSMAINT3LODMAP.MAR;19 (1) 



-3 



-1 



FQ800000 



8F 
53 



01 53 1A 



00000000' 9F 



54 

46 



50 

2C 



56 
54 

4C 



4E 
4D 

41 



49 
46 

54 



CA 



EO 
05 

16 
00 
45 
41 
OF 



OODD 
OODD 
QQDD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
CODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
OODD 
00E3 
00E4 
00E4 
00E8 
00E9 
00E9 
OOEF 
OOF 5 
00F8 
OOEF 
OOFF 
OOFF 
OOFF 



M? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
200 
201 

202 
203 
205 
206 



,S8TTL GET PFN FROM INVALID PTE 

iOCSPTETOPFN - GET PFN FROM INVALID PTE 

THIS ROUTINE IS CALLED TO RETURN THE PAGE FRAME NUMBER FROM A 

PAGE TABLE ENTRY WHICH HAS ALREADY BEEN DETERMINED TO BE NOT VALID, 

INPUTS: 

R3 = PAGE TABLE ENTRY 

OUTPUTS: 

R3 * PAGE FRAME NUMBER AND MAY INCLUDE THE FOLLOWING FIELDS 
VALID BIT, MODIFY BIT, PROTECTION FIELD, OWNER FIELD 

ALL OTHER REGISTERS PRESERVED 



.ENABL 
IOCSPTETOPFN:: 
8JCL 



LSB 

/TC<PTE$M_TYP1 ! PTESM^TYPO •- .PTE TYPE BITS 



10$: 
20$: 



BBS 

RS8 



PTESM GP1X>,R3 
*PTE$9_TYP1,R3,20$ 



207 
208 

209 



BUG CHECK INVPTEFMT, FATAL 
JSB a#BUG$CK£CK 
•ASCJC "INVPTEFMT, FATAL" 



,DSA8L LSB 
♦ END 



;AND GPTX/PFN 

;8RANCH IF BAD PTE FOR I/O 

; INVALID PAGE TABLE ENTRY FORMAT 



ZZ-ENSAA-7.0 
LODMAP 
Symbol table 

BUGSCHECK 
CRBSB MASK 
CRBSB'TYPE 
CRBSC'LENGTH 
CRBSK LENGTH 
CRBSL INTD 
CRB$L"iNTD2 

crbsl^link 

crbsl,wqbl 

crbsl.wqfl 

crbsw refc 

crbsw size 

iocslOadmbamap 

jocsl0adu8amap 

iqcsloadubamapa 

10csptet0pfn 

mbasl bcr 

mbasl^map 

M8ASL VAR = 

PTESM.GPTX = 

PTESM TYPO 

PTESM TYP1 : 

PTESV~TYP1 = 

S12..T 

UBASL.MAP 

UCBSB..AMOD 

UCBtB^CEX 

UCBSB^CMI 

UCB$B W CM2 

UCBSBJ)EVCLASS 

UCBSBJ)EVTYPE 

UCBSB.DIPL 

UCBSB..DX SCTCNT 

UC8S8~ERTCNT 

UCBS8..ERTMAX 

UCBS8JEX 

UCBSBJIPL 

UCBSB.LOCSRV 

UCBS8 OFFNDX 

UCBSBlOFFRTC 

UCBSBlREMSRV 

UCBS6 SECTORS 

UC8SB SLAVE 

UCBS8.SPR 

ucbss^state 

uc8s8.jracks 

ucb$b;tt_crfill 

ucbsb_tt_decrf 

ucbsb^tOelff 

ucbsb^tt.despee 

ucbsb tt detype 

ucb$bItt_lffill 

ucesein speed 

ucbsb tyPe 

ucbsbIvertsz 

ucbscIlength 

ucbsc^mb.length 



Symbol table 



******** 
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02 



OOOOOOOE D 

OO00QO0A 

00000038 D 

00000038 D 

00000014 

00000038 D 

00000010 

00000004 D 

00000000 D 

OOOOOOOC D 

O000CO08 D 

00000000 RG D 02 
00000061 R6 02 
0000004A RG D 02 
OOOOOODD RG D 02 
00000010 D 
00000800 D 
OOOOOOOC D 
003FFFFF 

00400000 D 

04000000 D 

0000001 A D 

00000001 D 
00000800 D 
00000053 D 
00000077 D 
0000004A D 
0000004B D 

00000038 D 

00000039 D 
00000052 D 
OO00QOA6 D 

00000070 

00000071 D 
00000076 
OOOOOOOB 
0000003C D 

00000094 D 

00000095 D 
00000030 D 
0000003C D 

00000074 D 

00000075 D 

turn i 

0000009D 

QQ00QQA1 D 

000000A2 

OOOOOOAO D 

QQ00QQA4 D 

0000Q09E D 

OO000Q9C D 

OOOOOOQA D 

0000003F D 

00000074 

00000090 D 



UC8SC, 
UCBSK. 
UCBSK 

ucbsk; 

UCBSL 

UC8$L 

UCBSL 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL 

UCBSL 

UCBSL 

UCBSL, 

UCBSL 

UC8SL, 

UCBSL 

UCBSL 

UCBSL. 

UC8SL 

UCBSL 

UCBSL, 

UCBSL. 

UC8SL, 

UCBSL 

UCBSL. 

UCBSL, 

UCBSL 

UC8ST, 

UCBSW 

UCBSW 

UC8SV, 

UCBSW 

UCBSW. 



JT LENGTH 

LENGTH 

MB.LENGTH 

TT"LENGTH 

AMB 

'ASTQBL 

ASTQFL 

CPID 

CRB 

,DDB 

DEVCHAR 

;devdepend 

DPC 

duetim 

DX.BFPNT 

.DX.BUF 

DX RXDB 

EMB 

.FIRST 

FPC 

FQ8L 

FQFL 

FR3 

FR4 

;ioqbl 

.IOQFL 
IRP 
[LINK 
LOGADR 
MAX8L0CK 
,M8„M8X 
MBlPORT 
,MB_RAST 
MB.SH8 
MBlWAST 
,MB„WI0QBL 
MB WIOGFL 
MEDIA 
NT_DATSS8 
,NT INTSS8 
OPCNT 
OWNUIC 
PID 
RQBL 
RQFL 
.SVAPTE 
>VPN 
TT.DECHAR 
JTJWUE 
TT RTJMOU 

vcfi 

PARTNER 

>8CNT 

BCR 

,BOFF 

.8UFQU0 

8YTESTQG0 



OOOOOOBC 
>0074 




00000098 
OOOOOOAI 




>4C 
0000002C 

sttjj 

0000008C 

1078 

)080 

I0Q74 

,„J0088 

ffl 



UC8SW. 

UCBSW. 

UCBSW. 

UC8SW. 

UCBSW 

UCBSW 

UCBSW. 

UCBSW, 

UCBSW. 

UCBSW, 

UCBSW. 

UCBSW 

UCBSW, 

UCBSW, 

UCBSW 

UCBSW 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW. 

UCBSW, 

UCBSW 

UCBSW. 

UCBSW, 

UCBSW, 

VECSB, 

VECSB. 

VECSC. 

VECSK 

VECSL, 

VECSL 

VECSL 

VECSL, 

VECSL. 

VECSL, 

VECSQ 

VECSS 

VECSS 

VECSV 

VECSV 

VECSV 

VECSW 



CHARGE 

.CYLINDERS 

.OA 

DC 

DEVBUFSIZ 

.DEVSTS 

OIRSEQ 

;dsta^dr 

,DX BCR 

( ECT 

EC2 

ERRCNT 

.FUNC 

M8 SEED 

MSSCNT 

MSGMAX 

NT CHAN 

OFFSET 

REFC 

SIZE 

SRCADDR 

STS 

JT DESIZE 

,UNTT 

VPROT 

DATAPATH 

NUMREG 

.LENGTH 

LENGTH 

ADP 

IDB 

INITIAL 

START 

UNITDISC 

.UNITIK'T 

DISPATCH 

DATAPATH i 

MAPREG 

DATAPATH » 

.LWAE 

MAPREG 

MAPREG 



0000004A 
0000003E 




00000090 
00000092 
00000072 
0000007E 
00000000 
00000016 
OOOOOOH 
0000QC7C 




0001 
0001 
0001 

00000048 
0000001 A 

00000012 




ZZ-ENSAA-7.0 

10DMAP 

Psect synopsis 



Psect synopsis 



*** 
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PSECT name 

ABS . 
$ABS$ 
SEP 



Allocation 

oooooooo" ( 

000O00BC ( 
000000FF ( 



4" -t 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 C 0.) NOPIC USR 
188.) 01 ( 1.) NOPIC USR 
255.) 02 ( 2.) NOPIC USR 



CON 


ABS 


LCL NOSHR 


NOEXE 


NORO 


NOUR1 


NOVEC 


BYTE 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL SHR 


EXE 


RO 


WRT 


NOVEC 


LONG 



ZZ-ENSAA-7.0 

LODMAP 

Cross reference 



Cross reference 



*** LODMAP load adapter map 



SYMBOL 



BUGSCHECK 
CRBSLJNTD 

!OC$LOADMBAMAP 

IOCSLOADUBAMAP 

IOCSLOADUBAMAPA 

IOCSPTETOPFN 

MBA$L_BCR 

MBASL MAP 

MBA*L„VAR 

PTE$M,GPTX 

PTESM TYPO 

PTESM TYP1 

PTE$V~TYP1 

UBASllMAP 

UC9$L„CRB 

ucbsl^svapte 
ucbsw.bcnt 
ucbsw boff 
vecs8~datapath 
vecibInumreg 

VEC$LJ\DP 

VECSS DATAPATH 

VEC$SlMAPREG 

VECSV "DATAPATH 

VECSV,LWAE 

VECSV.MAPREG 

VEC$W,MAPREG 



VALUE 

00000000-XR 
00000014 

G00Q00Q0-R 
00000061 -R 
0000004A-R 
O00O00DD-R 

=00000010 

=00000800 

=OO0O00OC 

■003FFFFF 

=00400000 

=04000000 

=0000001 A 

=00000800 
00000020 
00000068 
0000006E 
0000006C 
00000013 
00000012 

=00000005 
=O000000F 
-00000000 
=00000005 
=00000000 
00000010 



DEFINITION 



78 
HI 

128 
200 



(1) 
(1) 

(1) 
(1) 
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! Symbol Cross Reference ! 


REFERENCES,.. 


206 




174 


(1) 


(1) 


139 


(1) 


148 


(1) 


162 


(1) 






#-167 




#-96 


(1) 


#-81 








87 








#-83 




#-84 


(1) 


#-202 








#-201 








#-201 








#-203 








163 








#-136 




#-145 


(1) 


#-164 




#-88 


(1) 


#-135 




#-H4 


(1) 


#-134 




#-143 


(1) 


139 




H8 


(1) 


#-157 








#-159 








#-138 




#-147 


(1) 


#-161 








#-137 




#-146 


(1) 


#-152 








#-160 








162 









153 



(1) 



#-157 



(1) 



#-159 



(1) 



#-80 
#-82 

153 



(1) 
(1) 

(1) 
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LODMAP 

Cross reference 



Cross reference 



*** LODMAP Load adapter map 
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10 
<1> 



! Macros Cross Reference ! 

+.. — — -«.—..+ 



MACRO 



SCR9DEF 
SDEF1N1 

SMBADEF 
SPTEOEF 
SUBADEF 
SUCBDEF 
SVECDEF 
BUG^CHECK 



SIZE 

1 
1 

5 

3 

6 

10 

2 

1 



DEFINITION 


47 


(1) 


47 


(1) 


48 


(1) 


49 


(1) 


50 


(1) 


51 


(1) 


52 


(1) 


174 


(1) 



REFERENCES.,. 



47 


(1) 


47 


(1) 


52 


(1) 


48 


(1) 


49 


(1) 


50 


(1) 


51 


(1) 


52 


(1) 


174 


(1) 



48 



(1) 



49 



(1) 



50 



(1) 



51 



(1) 



206 



(1) 



! Performance indicators ! 



Phase 



Page faults CPU Time 



Elapsed Time 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



32 00:00:00.12 00:00:00.31 

140 00:00:00.76 00:00:01.49 

510 00:00:08.42 00:00:11.66 

00:00:00.68 00:00:00.80 

90 00:00:01.51 00:00:02.33 

13 00:00:00.10 00:00:00.10 

4 00:00:00.02 00:00:00.02 

15 00:00:00.17 00:00:00.24 

807 00:00:11.79 00:00:16.95 



The working set limit was 1000 pages, 

40432 bytes (79 pages) of virtual memory were used to buffer the Intermediate code. 

There were 30 pages of symbol table space allocated to hold 481 non-local and 10 local symbols. 

222 source lines were read in Pass 1 # producing object records in Pass 2. 

41 pages of virtual memory were used to define 16 macros. 



+-„.„„._ — _„„ — «. + 

! Macro library statistics I 



Macro library n*..»e 

DMA1:CSYS0.SYSMAINT]DS.ML8;218 
DMA1:CSYS0.SYSMAINT]DIAG.ML8;953 
SYS$SYSR00T:CSYSLIBJLIB.ML8;1 
SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

1 
3 
3 
5 
12 



709 GETS were required to define 12 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=CDS,LIS]/CROSS/ENABLE=(DE8UG, TRACE) 100MAP/UPDA= (L0DMAP.UPD, LODMAP. ENH) +SYS$LIBRARY;LIB/LIBRARY+DMA1 :[SYSQ.SYSM*J 



ZZ-ENSAA-7.0 

LOOP 

fable of contents 



*** LOOP Loop 



control 

*** LOOP 



Loop control 



K 15 
27-JUL-1984 Ff 

27-JUL-1984 1 



• 9 Frame K15 
11:06 VAX-11 Macro 



Seguence 
V03-OT 



1840 
Page 



(1) 
(1) 
(1) 
(2) 
(2) 
(3) 



106 

192 
298 
488 
549 



Declarations 
OSXSEscape Routine 
DSXSBgnSub Routine 
DSXSEndSub Routine 
DSXSCkLoop Routine 
DSX$InLoop Routine 



ZZ-ENSAA-7.0 

LOOP 

07-19 



*** LOOP Loop control 

*** LOOP Loop control 



0000 
0000 
0000 
0C00 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 

22 

21 

2* 

25 

h 

27 
28 
29 
30 
31 
32 
33 
34 



L 15 
27-JUL-1984 Fich 
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9 Frame L15 
-11 



Sequence 1841 
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ie 



1 
(1) 



.Title 
.Jdent 
.NoShow 



LOOP 

/07-19/ 

Conditionals 



*** LOOP Loop control 



Copyright 
OJGITA 



P 



<c> 1977, 1981, 1982 
EQUIPMENT CORPORATION, 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN \n DEC, 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY: 

VAX DIAGNOSTIC SUPERVISOR. 

A8S TRACT: 

ENVIRONMENT: 



AUTHOR: 

KEN CHAPMAN 



10-N0V-77 



VERSION 01. 
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LOOP 
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0000 


36 , 


MODIFICATIONS: 


0000 


37 ( 




8888 


a ' 


01 


0000 


40 ; 


02 


0000 


41 , 




0000 


42 ( 




0000 


43 ( 


03 


0000 


44 ( 




0000 


45 t 


04 


0000 


46 , 




0000 


4? , 




0000 


48 ( 


05 


0000 


49 ( 




cooo 


50 t 




0000 


51 , 




0000 


52 t 


06 


0000 


53 . 




0000 


54 , 




0000 


55 , 


; 07 


0000 


56 « 




0000 


57 ( 




0000 


58 ( 


; 08 


ooco 


59 « 




0000 


60 




0000 


61 




0000 


62 




0000 


63 


• 09 


0000 


64 




0000 


65 




0000 


66 


10 


0000 


6? 




0000 


68 




0000 


69 




0000 


70 


I 11 


0000 


71 




0000 


72 




0000 


71 


! u 


0000 


74 




0000 


75 




0000 


76 




0000 


77 




0000 


78 




0000 


79 


\ n 


0000 


80 




0000 


81 




0000 


82 




0000 


83 


? 14 


0000 


84 




0000 


85 




0000 


86 




0000 


87 




0000 


88 


! 15 


0000 


89 




0000 


90 




0000 


91 


: 16 


0000 


92 





Iff 



9-Mar-1978 Roger R1< 

Fixed DSSINLOOP and DSSCfcCOOP 

Fixed BGNSUB and ENDSUB to use .entry and .vector 

also changed names to DSX$... 

12-Jun-1979 Roger Riggs 

Turn off *0 before typing final loop pass message 

Dave Butenhof, 1-Mar-1980 

Changed all references to APT mailbox to use longword 

offsets. 

Roger Riogs, 18-Mar-1980 

Changed loop on subtest to execute the subtest the 

specified number of times instead of the previous +1. 

also made post loop on subtest processing call DS.CLEANUP 

- Dave Butenhof, 22-Jun-198t, version 6.5 

Fix edit 5: delete explicit setting of DSSV.DONFLG, which 
prevented DS. CLEANUP from actually executing the diagnostic's 
cleanup code. 

Fix /subtest to work right with /test:n:m. It will only Loop 
on the last test selected. 

- Jack Stansbury, 21-Oct-1981, Version 6.- 
Added calls to QASMAIN for the QA enhancement. 
Also added .LIBRARY statements for $DS and $DIAG. 
Also changed the case of some of the error messages. 

- Dave Butenhof, 02~Nov-1981, version 6.- 
Fix truncation orrors throughout. 

- Jack Stansbury, 21«Nov~1981, Version 6.5 

Commented out a call to QA^MAIN because it appears that it 
will not be needed for the 6.5 DS version, 

- Jack Stansbury, 13-Jan-1982, Version 6.6 

Added comments galore to make things easier to understand. 

- Jack Stansbury, 14-Jan-1982, Version 6.6 

Added a call to the Summary Code routine in the Endbub routine. 
The diagnostic's summary code will now be executed when 
the requested number of loops on subtest have been done. 
This is nor© consistent with the EndPass routine. 

- Jack Stansbury, 15-Jan-1982, Version 6.6 

Changed the FMTL00PD0N messaae to make it more like the 
EndPass message. Also added r, Test x.y" to the message. 

- Jack Stansbury, 20-Jan-1982, Version 6,6 

Changed the code in the EndSub routine to not print the 
header line when the Loop_0n_Subtest QA check routine is 
executing. This is for QA, 

- J*ck Stansbury, 29-Mar-1982, Version 6.? 
Added some typecoding. 

Marion &agqett t 30-mar-1982, Version 6.7 

Changed all $DS_PRINT statements to the new form SPRINT, 
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3 
(!) 



0000 


93 t 




0000 


94 , 


17 


0000 


95 t 




0000 


96 t 




0000 


97 « 


18 


0000 


98 , 




0000 


99 , 




0000 


100 ( 


19 


0000 


101 , 




0000 


102 , 




0000 


103 t 




0000 


104 , 


» ■»«» 



Dave Butenhof, 08-Apr-1982, version 6.7 
Fix truncation error. 

Jack Stansbury. 13-April-1982, Version 6.7 
Fix two truncation errors. 

Peter Green, 18-JUL-1983, Version 6.12 
Chanaed $DS JNLOOP to return correct status 
returns, (D3$JRR0R or DS$_N0RMAL) 



77-ENSAA-7.0 
LOOP 



Declarations 



••• LOOP LOOP 
Declarations 



00000003 



B 16 
27-JUL-1984 

control 27' 



m 

108 
109 

110 
111 

11 ? 
113 

1H 

115 

116 

m 

118 
119 
120 
121 
122 
123 

125 

'?* 

MB 

129 
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-JUL-1984 15:31:06 VAx-11 Macro V03-0T Page 

•HAY-19M Itr^ttiU? DMA*I:C$YS0.SYSMAINULQ0P.MAR;63 



4 
(1) 



.S8TTL Declarations 



INCLUDE FILES' 

.L;e«APY 

.LIBRARY 
.LIBRARY 



MACROS? 



EQUATED SYMBOLS? 

BPTC0D5 * 03 
SDS DSADEF 
SDS^DSDEF 
SDS HDRDEF 
APTDEF 
DSFDEF 
DSQA 

DS.QADEFS 
$D5 TypeDet 



/SYSSLIBRARViLIB/ 

/IDS/ 

/SOiAG/ 



ri63 

C08J 
[083 



BREAKPOINT OPCODE 



DSQASK constant definitions 
Othffr qa$k constant definitions 
Define the TypeCode* 



C083 
£153 



ZZ-ENSAA-<\Q 
LOOP 

07-19 



Declarations 



*** LOOP Loop control 
Declarations 



C 16 
27-JUL-1984 

27-JUL-19I 
23-MAY-19I 



Ffchf 9 frame C16 Seguence 1845 

14 15:31:06 VAX-11 Macro V03-01 Paoe 

[4 14:14:0? — «'—* — - • — - — — '* 



DMA1:CSYS0.SYS«AINT3LOOP.MAR;63 



5 
(1) 



6E 65 75 71 65 53 20 3F 3F 2f 21 

20 2E 72 6F 72 72 65 20 6? 6E 69 
6E 69 20 65 62 20 64 6C 75 6F 68 
55 21 2E 57 55 21 20 74 73 65 74 
74 20 64 65 68 63 61 65 12 20 2C 

21 57 55 21 2E 57 55 21 20 74 73 

?F 



66 6F 20 64 6E 45 20 21 21 2* 21 

72 65 20 57 55 21 20 2C 6E 75 72 

63 65 74 65 64 20 53 25 21 72 6F 

6F 6F 6C 20 4C 55 21 20 2C 64 65 

2C 53 25 21 

55 21 2E 4C 55 21 20 74 73 65 74 

2P 21 2C 

21 20 73 69 20 65 6D 69 74 20 20 

2F 21 44 



00000000 

0002 

QQ00 
0000 
0000 
0000 
0000 
0005 
0005 
00 ■ 0005 
63 0011 

53 001D 

20 0029 
57 0035 
65 C041 

21 004D 
49 0005 

004 F 

00 ' 004F 

J 88! 

74 0073 

70 007F 

20 0084 

4C 0090 

20 0094 

25 00A0 

54 004F 



131 

134 
135 
136 
137 
138 
139 
140 



♦PSECT Data, Shr, No£xe, NoWrt, Byte 



OWN STORAGE: 



MODNAM LOOP 

FMTSEQERR: 

.ASCJC "!/?? Sequencing error. Should be 1n test !UW. )UW, M « 



COfiJ 



141 " reached test :UW.!UW.!/" 

142 FMTLOOPOON: 

143 .ASCJC "!/.. End of run, »UW orror.'SS detected, JUL Loop!%S,"» ; 



144 
H5 



test :UL.!UL,!/ M - 
time 1s JXD!/" 



C08] 
C13J 

C13] 
CIS] 



ZZ-ENSAA-7.0 

LOOP 

07-19 



DSXSEscape Routine 

*** LOOP Loop control 
DSXSEscape Routine 



D 16 
27-JUL-1984 

27-JUL-19J 
23-MAY-19I 



Ffche 9 p jme D16 Sequence 1846 

14 15:31 5 ^ VAX-11 Macro V03-0T Page 6 

I* 14:1'. 0? D«Al:CSYS0.SYSMAINT3t.OOP.HAR;63 (1) 



00A4 


147 


.S8TTL DSXSEscape Routine 


00000000 


148 


.PSECT Code, Shr, Exe, NoWrt, Byte 


0000 
0000 


149 , 


♦ 4 


150 , 


FUNCTIONAL DESCRIPTION: 


0000 


151 , 




0000 


1 *i . 




0000 


153 , 


CALLING SEQUENCE: 


0000 


154 , 




0000 


155 , 


SESCAPE ARG 


0000 


156 , 




0000 


157 ( 


INPUT PARAMETERS: 


0000 


1 58 , 




0000 


159 ( 


AP = Address of where to escape 


0000 


160 , 




cooo 


161 , 


IMPLICIT INPUTS: 


0000 


16? . 




0000 


163 ( 


DSSGL FlAGS <DS$V ERRFLG> 


0000 


164 , 


^ wm 


0000 


165 , 


-OUTPUT PARAMETERS: 


0000 


166 , 




0000 


167 


NONE 


0000 


168 , 




0000 


169 ( 


• IMPLICIT OUTPUTS? 


0000 


170 , 




0000 


171 ( 


NONE 


0000 


172 t 




0000 


173 , 


• COMPLETION CODES: 


0000 


174 , 




0000 


175 t 


NONE 


0000 


176 , 




0000 


177 , 


• SIDE EFFECTS: 


0000 


178 , 




0000 


179 , 


NONE 


0000 


180 . 




0000 


181 « 


.«.«. 



ZZ-ENSAA-7,0 

LOOP 

07-19 



DSX$Escape Routine 

*** LOOP Lood control 
DSXSEscape Routine 



0000 

OOOOOOOO'EF 16 

10 AD 5C DO 



88! 

000J 

0010 
0014 
0014 
Q4 0014 



E 16 
27-JUL-1984 Fiche 9 Frame E16 Seguence 1847 

27-JUL-1984 1 5 2 31 : 06 VAX-11 Macro V03-0T Page 7 

23-MAY-1984 14:14:07 P«A1;CSVSO.SYSMAINT3LOOP.MAR;63 (1) 



, ENTRY DSX$ESCAPE, A MO 



Jsb L A K8 CHECK 

Br Jy.NotE "' 

moVl aP, 



ErrFlg REscapeX 
16(FP> 



RESCAPEX: 

RET 



A C check. 

Exit if no error has occurred 

Replace return PC with ESCAPE 

Return to diagnostic 



[183 

C183 

address CUD 



Z7-ENSAA-7.0 

LOOP 

17-19 



DSXSBgnSub Routine 

*** LOOP Loop control 
DSXSBgnSub Routine 




5 
001 s 

0015 
0015 
0015 
0015 
0015 
0015 
C015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 

$5 15 
0015 

0015 

0015 

0015 

0015 

0015 

0015 

0C15 

0015 

0015 

0015 

0015 



iV 



» 



+ + 



f 16 

27-JUL-1984 

27-JUI-191 
23-MAY-19I 

.SBTTL DSXSBgnSub Routine 



:31:Q6 
UtUtO? 



15 



Frame F16 Sequence 1848 
VAX- 11 Macro VO3-0T Page 8 
DMA1iCSYS0.SYSMAINULOOP.MAR;63 (1) 



FUNCTIONAL DESCRIPTION: 

This routine insures that tht diagnostic program is sequencing 
through its subtests in numerical o.'der. If an error is detected 
the operator Is notified and tht command mode 1s entertd as if 
"Halt On Error" was selected. This mtan* that the operator may 
examine the general purpose registers and continue at the next 
Instruction of the program, -if desired. 

CALLING SEQUENCE: 



SBGNSUB 

CALLG 

INPUT PARAMETERS: 



$$$, WDSS8GNSUB 



4<AP> 
8fAP) 

IMPLICIT INPUTS: 



CURRENT TEST NUMBER (PROGRAM) 
NEW SUBTEST NUMBER (PROGRAM) 



DSASGL TESTNO = CURRENT 

DSSGL.FLAGS <DSSV^SU8T> = SUBTEST 

OUTPUT PARAMETERS: 



TEST NUMBER 
FLAG. 



(SUPERVISOR) 



NONE 

IMPLICIT OUTPUTS: 

DSAIGLSUBTNO * SUBTEST NUMBER, 

DS$GAjOOPADR = LOOP ADDRESS. 

DSSGL. FLAGS <DSSV_ERRFLG> = ERROR FLAG. 
DSSGLJLAGS <DS$V W SUBT> = SUBTEST FLAG, 

COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.Q 

LOOP 
07-19 



DSXSBgnSub Routine 

*** LOOP Loop control 
DSXSBgnSub Routine 



6 16 
27-JUL-1984 



7-JUL-1984 15:31:0 



i? 



frm9 616 

VAX-11 Macro V03-OT 



OOOOOOOO'EF 



OE 
1A 



0000 



E2 



00000000'EF 10 AD DO 



04 AC OOOOFESO'EF D1 

62 13 



Fich 
3-MAY-1984 H:U:07 DMA1 :[SYS0.$Y$MA1NT3lOOP.MAR;6 



Sequence 1849 

Page 



.ENTRY DSX$8GN$UB, A M<> 
GA.MAJN Loop_DSX$8gnSub 



BBSS 
Clear^ErrFlg 



*DS$V SUBT, - 

L A D5$GLJLAGS, 20$ 



Call GASMain 

Set subtest flag. If it was already 
set, print sequence error. 

Clear the error flag. 



Save the PC that is stored in the call frame. This PC is for the 
first instruction after the $DS BgnSub routine. Save it in 
DSSGA.LoopAdr so that the EndSub routine can branch back to this 
address if it needs to (because of looping on subtest, etc). 



9 
(1) 



[083 

[113 

[113 

E183 



[11] 
C113 
[113 
[113 



MOVL 



CMPL 
BE0L 



16 (fP) t - 

t A DS$GAj.OOPADR 



L A DSA$6L H 
50$ 



TESTNO, 4 (AP) 



Save return address of this subtest. [113 

LoopAdr is the address of where to [113 

loop back to from the EndSub routine. [113 

Compact DS*s TestNo with the progs. [113 

branch if they are the same (okay). [113 



ZZ-ENSAA-7.0 

LOOO 

07-* 9 



DSXSBgnSub Routine 

*** LOOP Loop control 
DSXSBgnSub Routine 

0042 

0042 
G0'«2 
00 4 2 

0042 
004 2 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0067 
C067 
E3 006F 
0076 
0077 

0088 
DE 0088 
90 0090 
90 0098 

009C 
DO 009C 



H 16 
27-JUL-19I 



14 Fiche 9 

7-JUL-1984 15:31 : 
, 3-MAY-1984 14,-KjO 



Frame H16 Sequence 1850 

VAX-11 Macro V03-OT Page 10 

DMA1:CSYS0.SVSMAJNT3L00P.MAR;63 (1) 



00000000 'EF 



00000000' EF 

OOOOOOOO'EF 
10 



BD 



10 

10 



07 
11 



BD 
BD 
03 



OOOOFESO'EF 04 AC 



Sequencing error. The Supervisor's TestNo does not agree with the [11] 

test number that the diagnostic passed to this routine (i.e., 16(AP)) C1 1 D 

OR else the SubT flag was not set (indicating that two BgnSubs C1 1 J 

occurred without an intervening EndSubt C1 1 3 



$PMnt #DS$K_rype,Sequence <s ,Error # - 
#DS$K PrlnTF, - 
L A FMTSEGERR, - 
L A DCA$GLJE$TNO,- 
L A DSA$GL SUBTN0,- 
4<AP>, 8TAP) 



; There is a sequence error 
uss printf 
the format string 
rest of parameters 



Set Halt 
B8CS 

ERRSUP.S 

MOVAL 
M0V8 

Move 

MOVL 



#DSSV CMDFLG, - 
L A D5$GL. FLAGS, 



40$ 



Set the HALT fla 
Set the command 
branch (okay). 
The command flag 



?to halt on error, 
lag. If not set, 

was already set. 



316(FP), L*DS$AA_BPTADDR; 
S16(FP>, L*DS$AB BPTINST; 
0BPTCODE, al6(FPT 

4 CAP), DSASGL.fESTrtO ; 



C153 
[15] 
C15] 
[153 



C18J 
[11.1 
[09] 
[09] 



Save return PC [09] 

Save the opcode located there. [09] 

Store a breakpoint instruction at the [11] 

return location. [11] 

Reset the test number. [11] 



2Z-ENSAA' 

LOOP 

07-19 



7*0 DSXSBgnSub 



Routine 

*** LOOP Loop control 
DSXSBgnSub Routine 



0000FE4CEF 08 AC 
00000000'EF 



DO 
16 



04 



00A4 
0QA4 
00A4 
00A4 
00A4 
00A4 
OOAC 
0082 
0082 
00B2 



287 

290 
291 
292 
293 
294 
295 
296 



, I 1 6 

27-JUL-19 



84 Fiche 9 
27-JUL-1984 15:31:06 
23-MAY-1984 14:14:07 



Seguence 1851 
Macro V03-0T Pa\ 
DMA1:CSYS0.SYSMAIMT3L0OP,MAR;6. 



Frame 116 
VAX-11 



Fall through to here ff there was a sequencing error, or branch to 
here if there was not a sequence error. 



50$: MOVL 
Jsb 

R8GNSU8X: 

RET 



8 (AP), DSASGL.SUBTNO 
L A KB_CNECK 



; Reset the subtest nunmber. 
; Check for TTY input. 

; Return to next subtest. 



11 
(1) 



en] 

C113 



C1 1 J 

C18] 



[113 



ZZ-ENSAA-7,0 

LOOP 

07-19 



DSXSEndSub Routine 

*** LOOP Loop control 
DSXSEndSub Routine 



0083 
00B3 
00B3 
O0B3 
00B3 
00B3 
0083 
O0B3 
0083 
O0B3 
O0B3 
00B3 
00B3 
0083 
C0B3 
O0B3 
00B3 
0083 
0083 
0083 
0083 
0083 
O0B3 
O0B3 
0083 
0083 
0093 
0083 
0083 
0083 
0083 
0083 
0083 
0083 
0083 
0083 
0083 
00B3 
0083 
0083 
0083 
0083 
0083 
0083 



?98 
299 
300 
301 
302 
^03 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3H 
315 
316 
317 

318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 

339 
340 
3*1 



J 16 
27-JUL-1984 Fiche 9 Frame J16 Sequence 1852 

27-JUL-1984 15:31:06 VAX-11 Macro V03-01 Page 
23-MAY-I984 H:H:07 DMA1 :CSYSO.SYSMAINT:JLOOP.MAR;63 

.SBTTL DSXSEndSub Routine 



(2) 



FUNCTIONAL DESCRIPTION: 

The end of subtest routine checks both test and subtest numbers 
to assure that the program sequence is correct. 

CALLING SEQUENCE: 

SENDSUB 



CALLG 
INPUT PARAMETERS: 



$$$, a*DS$ENDSUB 



4<AP) = CURRENT TEST NUMBER (PROGRAM). 
8(AP) = CURRENT SUBTEST NUMBER (PROGRAM) . 

IMPLICIT INPUTS: 

DSASGL TESTNO = TEST NUMBER (SUPERVISOR). 

DSA$GLlSUBTNO * SUBTEST NUMBER (SUPERVISOR). 

DSASGL. FLAGS <DSA$V.LOOP> = LOOP FLAG. 

DSSGLjUBTEST - SUBTEST NUM8ER FOR LOOPING* 

DSSGA^LOOPADR * LOOP ADDRESS. 

DSSGL.FLAGS <DS*V_SUBT> = SUBTEST FLAG. 

DSSGL.FLAGS <DS$V_ERRFLG> = ERROR FLAG. 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

DS$GL_FLAGS<DS$V..SUBT> = SUBTEST FLAG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

LOOP 

07-19 



OSXSEndSub Routine 

*** LOOP Loop control 
OSXSEndSub Routine 



K 16 

27-JUL-1984 



Fiche 9 Frame K16 



Sequence 1853 



0000 



OOOOOOOO'EF 16 



04 AC 

08 AC 



0000FE50'EF D1 

OA 12 

0000FE4C # EF 01 

03 13 

OODE 31 



00000000 'EF 
OOOOFEOO'EF 



CE 
50 
02 
08 



F5 

El 



0083 
0085 
00B5 
OOBE 
00C4 
00C4 
OOCA 
00C4 
0QC4 
00C4 
00C4 
00C4 

oocc 

00CE 
00D6 
00D8 
0OD8 
00D8 
OODB 
OODB 
00D8 
OODB 
OODB 
0QP8 
00E2 
00E3 
OOEA 
OOEB 



343 
344 
345 
346 
347 
348 
349 
350 
251 
352 
35? 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 



3$; 



27-JUL-1984 15:31:06 VAX-11 Macro V03-0T Paae 
23-MAY-1984 14:14:07 DMA1 ;C$YS0,SYSMAINTDL00P*MAR;6 



.ENTRY DSX$ENDSUB,*M<> 

QA MAIN Loop^DSXSEndSub 
JsB L A KB_CHECK 



CaLL GASMain 

Check for TTY input. 



Compare the Supervisor's test and subtest numbers with those of 
the diagnostics (i.e., those that are passed). If they are not the 
same, it is a Sequence Error. 



CMPL L*DSA$GL TESTNO, 4(AP) 

BNEQ 3$ 

CMPL L*DSA$Gl_SUBTNO, 8<AP) 

BEQL 4$ 



BRW 



30$ 



Compare DS's TestNo with the progs. 
Branch if they are not equal. 
Compare DS's SubtNo with the progs. 
Branch if no error 

Branch if error in test or subtest 



4$: 



Check various flags. 



BQCC *DS$V SU8T, - 

L A D5$GL FLAGS, 17$ 
BBC #DSA$V LOOP, - 

L A DSfi$GL FLAGS, 5$ 
BrJtJrrUg 10l 



TestNo and SubtNo are both okay 
Branch if there was no BgnSub. 

if Loop on Error flag not set, 

branch. 

If error occurred, branch. 



13 
(2) 



[083 
[183 



[113 
[113 
[113 



C11] 
[11] 
[113 
[113 



[11] 



[113 

[113 
[093 
[113 
[113 
[183 



ZZ-ENSAA-7.0 

LOOP 
07-19 



DSX$EndSub Routine 

*** LOOP Loop control 
DSXSEndSub Routine 



L 16 
27-JUL-1984 Ffche 9 Frame L16 Seguence 1854 
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0C 







00F3 


372 






00F3 


373 






Q0F3 
0OF3 


374 






375 






00F3 


376 


00000' EF 08 AC 


D1 


00F3 


377 


35 


12 


00F8 


378 


00000'EF 04 AC 


D1 


OOFD 


379 


2B 


12 


0105 


380 






0107 


381 






0107 


382 






0107 


383 






0107 


384 






0107 


385 






0107 


386 






0107 


387 


50 0000FE54'EF 


DE 


0107 


388 


60 OOOOFEOS'EF 


F3 


010E 


389 






0116 


390 






0116 


391 






0H6 


392 






0116 


393 






0116 


304 






0116 


395 


0000FE08'EF 


D5 


0116 


396 


OA 


13 


011C 


397 


60 


07 


011E 


398 


14 


11 


0120 


399 



Come to here 



if the Loop en Er-or flag is not set OR 
if no errors have occurred. 



5$: CMPL 8 (AP), L A DS$GL SUBTEST 

BNEQ 15$ 

CMPL 4 (AP), L A 0S$GL,LSTT6ST 

BNEQ 15$ 



Is this the subtest to loop on? 
Jf not, branch. 
Are we on the correct test? 
If not on correct test, exit. 



[113 
C1 13 



[113 
[113 
[093 
[073 



Add one to the PassNo count. Thus, keep track of 
this subtest has been executed. Execute ft only 
/PASStx. 



the number of times [113 
times, where x fs C1 1 3 

C113 



'x' 



MOVAL L A DSA$GL PASSNO, RO ; Point to pas? number. 

A08LEQ L A DSA$GL^PASSES, (RO), 10$ ; Count and branch if not done. 



Ar i all done the requested number of passes. However, if the pass 
request is 0, keep chugging forever. 



[113 
[113 



TSTL L*DSA$Gt .PASSES 

BEQL 10$ 

DECL (RO) 

BR8 20$ 



If pass count 
Continue forever 
Make true count of passes 
Branch to done code 



B 
C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

I 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 




E 

F 
G 
H 

I 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



B 5 
C 5 



UNLOCK 

Symbol 

Symbol 

Symbol 

Symbol 

Psect 

Cross 

Cross 

Cross 

Cross 

Cross 

*** IOSNPG 

*** IOSNPG 

*** IOSNPG 

*** IOSNPG 

CANCEL I/O 



AREAS IN IRPE'S 
table 
table 
table 
table 
synopsis 
reference 
reference 
reference 
reference 
reference 

services for QIO 
services for QIO 
services for QIO 
services for QIO 
ON CHANNEL 
FILL DIAGNOSTIC BUFFER 
RELEASE I/O CHANNEL 
REQUEST I/O CHANNEL 
I/O REQUEST COMPLETION PROCESS 
INITIATE I/O FUNCTION ON DEVIC 
RELEASE BUFFERED DATAPATH 
REQUEST BUFFERED DATAPATH 
RELEASE UNIBUS MAP REGISTERS 
REQUEST UNIBUS MAP REGISTERS 
ALTER UBA MAP REGISTER BITMAP 
SEARCH MAP REGISTER BITMAP AND 
RETURN TO CALLER 
WAITFOR INTERRUPT OR TIMEOUT A 
WAITFOR INTERRUPT OR TIMEOUT A 
ALLOCATE SYSTEM PAGE TABLE 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 
*** I0SPGD services for QIO 
*** I0SPGD services for QIO 
*** I0SPGD services for QIO 
CONVERT DEVICE NAME AND UNIT 
FIND FREE I/O CHANNEL 
SEARCH FOR DEVICE 
DEVICE 
DEVICE 

DATA BASE AND RETUR 
CHANNEL NUMBER 



J 
K 
L 
M 



SEARCH 
SEARCH 
UNLOCK 
VERIFY 
Symbol 
Symbol 
Symbol 
Cross 



FOR 
FOR 
I/O 
I/O 
table 
table 
table 
reference 



Cross reference 

Cross reference 

*** IOSRAM random access I/O s 

*** JOSRAM random access I/O s 

*** IOSRAM random access I/O s 

APPLY ECC CORRECTION 

APPLY ECC CORRfCTION 

CONVERT LOGICAL BLOCK TO PHYSI 



N 5 
B 6 



C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 

7 

7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 

C 8 

D 8 

E 8 

F 8 

G 8 

H 8 

I 8 

J 8 

K 8 

L 8 

M 8 

N 8 

B 9 



c 


9 


D 





E 


9 


F 


9 


G 


9 


H 


9 


I 


9 


J 


9 


K 


9 


L 


9 


M 


9 


N 


9 



MAP VIRTUAL TO LOGICAL BLOCK 
MAP VIRTUAL TO LOGICAL BLOCK 
MAP VIRTUAL TO LOGICAL BLOCK 
UPDATE TRANSFER PARAMETERS 
SENSE DISK'S SIZE FDT ROUTINE 
Symbol table 
Symbol table 
Cross referer.ee 
Cross reference 
Cross reference 

*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
*** KERNEL Main control routin 
Libraries and Macros 
Equated Symbols 
Equated Symbols 
Data Psect Declarations 
Work Psect Declarations 
Work Psect Declarations 
Work Psect Declarations 
Data Psect Declarations 
Data Psect Declarations 
Data Psect Declarations 
Data Psect Declarations 
SHELL OF STAND ALONE SUPERVISO 
SHELL OF STAND ALONE SUPERVISO 



DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
DIAGNOSTIC 
USEP KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 



USEP 

USEP 

USEP 

USEP 

USEP 

USEP 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 



KERNEL 
KERNEL 
KERNEL 



SUPERVISOR 
SUPERVISOR 
SUPERVISOR 
SUPERVISOR 
SUPERVISOR 
ROUTINE 
POUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
REFRESH 
REFRESH 
REFRESH 
REFRESH 



BOOTSTRA 
BOOTS TRA 
BOOTSTRA 
BOOTSTRA 
BOOTSTRA 



ENTRV 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



"0 
PO 
PO 
PO 
PO 



B 10 
C 10 

D 10 



REFRESH 

INIT..CONTEXT Initialize proces 

INIT^CONTEXT Initialize proces 

INIT^CONTEXT Initialize proces 

INJT CONTEXT Initialize proces 
CONTROL-C AST HANDLER 



E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
K 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

12 
1? 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
13 
13 
13 
1^ 
13 
13 
13 
13 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
1A 



KEYBOARD CHECK ROUTINE 

KEYBOARD CHECK ROUTINE 

KEYBOARD CHECK ROUTINE 

KEYBOARD CHECK ROUTINE 

DSX$CNTRLC Program enable for 

DSVSEXIT, Process EXIT command 

DSVSEXIT, Process EXIT command 

EXI TSHANDLR Process EXIT handl 

EXITSHANDLR Process EXIT handl 

DSR$Check_MenuTest_Off^Set Rou 

DSR$Check MenuTest^Of f^Set Rou 

DSR$ChecklAutoTestJ3ff_Set Rou 

DSR$Check - AutoTest.Off 11 .Set Rou 

DSRICheck^AutoTest^OfLSet Rou 

DSRlCheck AutoTest Off Set Rou 

DSXSgETTERM Get User Terminal 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

CrObS reference 

Cross reference 

r ross reference 

l oss reference 

Cro, s reference 

Cro? . reference 

Crc ,s reference 

Cr ss reference 

Cross reference 

Cross reference 

Cross reference 

*** LOAD Set/Show load 

*** LOAD Set/Show load 

*** LOAD Set/Show load 

Libraries, Equated Symbols 

Work Psect Declarations 

Data Psect Declarations 

DSVSSETLOAD SET THE DEFAULT LO 

DSVSSETLOAD SET THE DEFAULT LO 

DSVSSHOWLOAD Display default I 

DSRUFLOADDEV Is 1t the load d 

DSV$LOAD PROGRAM IMAGE LOAD SU 

DSVSLQAD PROGRAM IMAGE LOAD SU 

DSVILOAD PROGRAM IMAGE LOAD SU 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 



M 14 *** LODMAP load adapter map re 

N H *** LODMAP toad adapter map re 

B 15 *** LODMAP load adapter map re 

C 15 *** LODMAP load adapter map re 

D 15 LOAD UN1BUS ADAPTER MAP REGIST 

E 15 LOAD UNIBUS ADAPTER MAP REGIST 

F 15 GET PFN FROM INVALID PTE 

G 15 Symbol table 

H 15 Psect synoosis 

I 15 Cross reference 

J 15 Cross reference 

K 15 *+* LOOP Loop control 

L 15 *** l.OOP Loop control 

rt 15 *>* LOOP Looo control 

N 15 *** LOOP Lo'.p control 

B 16 Declarations 

C 16 Declarations 

D 16 DSXSEscape Routine 

E 16 DSXSEscape Routine 

F 16 DSXSBgnSub Routine 

G *6 DSXSBgnSub Routine 

H 16 DSXSBgnSub Routine 

I 16 DSXSBgnSub Routine 

J 16 DSXSEndSub Routine 

K 16 DSXSEndSub Routine 

L 16 DSXSEndSub Routine 



r 



ZZ-ENSAA-7,0 

LOOP 

07-19 



DSX$EndSub Routine 

*** LOOP Loop control 
DSXSEndSub Routine 



B 1 
27-JUL-1984 



Fiche 10 Frame B1 



Sequence 1855 



10 mD OOOCOOOO'EF DO 



04 



0083 31 



0122 


401 


0122 


402 


0122 


403 


0122 


404 


0122 


405 


0122 


406 


0122 


407 


0122 


408 


0122 


409 


012A 


410 


0132 


411 


0132 


412 


0133 


413 


0133 


414 



10$: 



15$: 
17$: 



27-JUL-1984 15:31:06 VAX-11 Macro V03-0T Rape 
23-MAY-1984 K;H;07 DMA1 :[SYS0.SYSMAINT3L00P.MAR;6. 

Come to here (If the Loop on Error flag is not set AND 
if an Error has occurred* , , 

OR (if the pass count has not reached its limit). t 
Cause the loop to occur, That is, loop back to the instruction 
following the CALL ;'0 BgnSub. 

MOVL L*DS$GA L00PADR, 16 (FP); Set PC to the saved loopAdr. 
Set SubT " ; Set the SubT flag. 



RET 
BRW 



30$ 



Return with changed PC. 
Branch on 



15 
(2) 



[113 
[113 
[113 
[113 
[113 



[093 
[183 

[113 

[093 






ZZ-ENSAA-7,0 

LOOP 
07-19 



OSXSEndSub Routine 

*** LOOP Loop control 
DSX$EndSub Routine 



C 1 

27-JUL-1984 



Fiche 10 Frame CI 



7-JUM984 15:31:06 

3-MAY-1984 14:14:07 



Sequence 1856 



VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINTJLOOP.MAR;65 



SO 00000000'EF DE 
60 01 07 01 FO 

6l' 01 10 00 FO 



03 E1 



02 00000000* EF 
2D 



00000000'Ef 
00000000' EF 



11 



16 
16 



OOOOFF^O'EF OA DO 



FEAD* 31 



00000000'EF 16 



0136 

0H6 

0136 

0136 

0136 

0136 

01 3D 

0142 

0142 

0147 

0147 

0147 

014F 

0151 

C151 

0157 

0159 

0159 

0159 

0159 

0159 

0159 

0159 

0159 

0159 

0186 

0186 

018C 

0193 

0199 

0199 

01A1 

01A1 

01A8 

01A8 

0180 

0183 

0183 

0183 



416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 



20$: 



23$: 



24$! 



Loop on subtest w/pass count exhausted. This should mirror the 
DSX$EndPass routine. 



MOVAL L A DS$GL FLAGS, RO 

INSV 01, *DS$V_CMDl LG, #1, - 

(RO) 
INSV ttO. *DS$V_CTRLO, *1 , - 

(RO) 

BrlfJJot QA 23$ 

BBX #5a$KLOOP..ON SUBTEST, 

L A QS$A08„CHECK.,STATE, 
23$ 
24$ 



BR8 
SPRINT 



#DS$K TYPE PROGRAM.END, 
#DS$K PRTNTF,- 
L a FMT[QQPDQN, - 
l A DS$OL ERRCNT, - 
L*DSA$GEj 3 ASSN0, - 
L A DSA$GL„TESTNO, - 
L A DSA$GL„SU8TN0, - 
#0 



Jsb L A INIT_CONTEXT 

$DS SUMMARY S 

Jsb" L A DS_CLEANUP 

Clear^CtrlO 

MOVL #APM$ DONE, - 

L A DSA$GL MSGTYP 
Br lT,Not QA 25S 
BRD VRRESTART 



25$: 



Jsb 



l*Begin 



Point to flags. 
Set Command mode. 

Clear Cntrl-0 flag. 

If not running under QA, branch 

If not running Loop on Subtest check, 

branch. 

Otherwise, do not print ending line. 

: PRINT "End of run ...". 

Use printf. 

Current number of errors. 
Number of loops done. 
The test looped on. 
The subtest looped on. 
Print current time. 



16 
(2) 



C113 
C11] 



C09] 
C06D 

cm 

C063 

cm 

CI 83 

C143 
C14] 
C14] 
C14] 

C163 
C163 
C14] 
C09] 

cm 

C13] 
C133 

cm 



Reset stacks and processor mode. C17] 
Exexcute the diagnostics summary code.C123 
Execute users cleanup code. 



Clear the Control-0 flag. This makes 
... sure it is off after the summary 



Tell APT we're all done. 



branch. 
the START 



If not running under QA, 
If running QA, branch to 
routine. This should only happen on 
the Loop.On^Subtest check routine. 
Clean up the world. Go back to CLI. 



C183 
C183 

cm 

cm 

C183 

cm 
cm 
cm 
cm 



ZZ-ENSAA-7,0 

LOOP 
07-19 



DSXSEndSub Routine 

*** LOOP Loop control 
uSXSEndSub Routine 



00000000' EF 



07 
11 



E3 



00000000' EF 10 BD 
00000000' EF 10 BD 

10 BD 03 
0000FE50'EF 04 AC 
GO00FE4CEF 08 AC 



DE 

90 

90 
DO 
DO 
04 



01B9 
01 B9 
01B9 
01B9 
01B9 
01B9 
0189 
01B9 
01B9 
0189 
01DE 
01DE 
01E6 
01ED 
C1EE 
01FF 
01FF 
01FF 
01FF 
01FF 
01FF 
01FF 
01FF 
01FF 
0207 
0207 
020F 
020F 
0213 
0218 
0223 



456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 



27-JUL-1984 Fiche 10 Frame D1 Sequence 1857 

27-JUL-1984 15:31:06 VAX-11 Macro V03-0T a Page 17 
23-MAY-1984 14:14:07 DMA1 ;[SYSO.SYSMAINT3LOOP.MAR;63 (2) 

Got here because not in subtest OR test or subtest numbers did not match. 



30$: SPRINT #DS$K TYPE SEQUENCE.ERROR," 



tfDSSK PRlNTF,- 
L a FMT5EQERR,- 
L A DSA$GL_TESTNO,- 
L A DSA$GL SUBTN0,- 
4<AP), 8TAP) 

Set Halt 

BBC5 0DS$V CMDFLG, - 

L A D5$GL, FLAGS, 45$ 
ERRSUP S 



PRINT "Sequencing error..." 



Use printf. 

... the format string. 

Current test number. 

Current subtest number. 

User's test and subtest number. 

Set the Halt flag. 
Set command flag. 

Supervisor error: command flag set. 



Save the return PC in BptAddr. Save the 
PC location. Store a BPT instruction at 
test and subtest numbers. Return to the 
breakpoint instruction, causing the Cli 



opcode located at the return 
that location. Reset the 
diagnostic, and execute the 
to take over. 



45$: 



MOVAL 

M0V8 

M0V8 
MOVL 
MOVL 
RET 



316 <FP>, - 

L A DS$AA 8PTADDR 

316 <FP) # "- 

L A DS$AB,BPTINST 

0BPTCQDE, 316 (FP) 

4 (AP), L A DSA$GLJESTNO 

8 (AP), L A DSA$GL_SUBTNO 



Save return PC. 

Save the opcode located there. 

Set a breakpoint at the return PC. 
Set TestNo to the user's test number. 
Set SubtNo to the user's subtest no. 
Return to the diagnostic. 



[16] 
[163 
[183 
[113 
[11] 
[113 

[183 
[113 

C093 
[113 



[113 
[113 
[113 
C113 



[09] 
[113 
[093 
[113 
[113 
[113 
[113 
[113 



ZZ-ENSAA-7.0 

LOOP 



0SX$CkLoop Routine 

*** LOOP Loop control 
OSXSCkLoop Routine 



0224 


488 


0224 


489 


0??4 


^90 


0224 


491 


0224 


492 


0224 


493 


0224 


494 


0224 


495 


0224 


496 


0224 


497 


0224 


498 


0224 


499 


0224 


500 


0224 


501 


C224 


502 


0224 


503 


0224 


504 


0224 


505 


0224 


506 


0224 


507 


0224 


508 


0224 


509 


0224 


510 


0224 


511 


0224 


512 


0224 


513 


0224 


514 


0224 


515 


0224 


516 


0224 


517 


0224 


518 


0224 


519 


0224 


520 


0224 


521 


0224 


522 


0224 


523 


0224 


524 


0224 


525 


0224 


526 


0224 


527 



27-JUL-1984 Fiche 10 
27-JUL-1984 15:31:06 
23-MAY-1984 14:14:07 

•SBTTL DSX$CkLoop Routine 



Frame E1 Seguence 1858 
VAX-11 Macro V03-0T Page 18 
DHA1:CSYSO.SYSMAINT3LOOP.MAR;63 (2) 



FUNCTIONAL DESCRIPTION: 

Check for loop flag AND an error flag, and loop if both m 
conditions are met. Also keep track of previous loop conditions 
and modify the loop if a new error occurs. 

CALLING SEQUENCE: 

SCKL00P ADR 

CALL6 ADR, S)#DS$CKL00P 

INPUT PARAMETERS: 

AP = LOOP ADDRESS 

IMPLICIT INPUTS: 

DS$GA CHKLPPC = CHECK LOOP PC. 

DSA$GE FLAGS <DSA$V L00P> = LOOP FLAG. 
DS$GLjLAGS <DS$V_ERRFLG> = ERROR FLAG. 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

LOOP 



DSXSCkLoop Routine 

*** LOOP Loop control 
DSX$CkLoop Routine 





0000 


0224 
0226 
0226 
022F 


00000000'EF 


16 


022F 


OOOOFEOO'EF 02 


E1 


0235 


26 




023C 
023D 


00000000' EF 


D5 


0245 
024B 
024B 


OA 


13 


10 AD 00000000'EF 


D1 


024D 


OC 


12 


0255 
0257 


00000000'EF 10 AD 


DO 


Q257 


10 AD 5C 


DO 


025F 
0263 
0263 




OA 


0263 



F 1 

27-JUL-1984 Fiche 10 Frame F1 Seguence 1859 

27-JUL-1984 15:31:06 VAX-11 Macro V03-01 Paj 

23-MAY-1984 14:14:07 DMA1 :[SYS0.SYSMAINT]L00P.MAR;6, 



Jsb 
BBC 



529 

530 
531 
532 
533 
534 
535 
536 
537 
538 
539 

540 

541 

542 

543 10$; 

544 

545 

546 RCKLOOPX: 

547 RET 



.ENTRY DSXSCKLOOP, A M<> 
QA^MAJN Loop.DSXSCkLoop 



L A KB CHECK 
#DSA$V LOOP, - 

DSAS5L FLAGS, RCKLOOPX 



Br If Not ErrFlg RCkLoopX 
TSTL L*DS$GA_CHKLPPC 



BEQL 
CMPL 
BNEQ 

MOVL 

MOVL 



10$ 

L A DS$6A CHKLPPC, 16(FP) 

RCKLOOP5? 

16(FP), L A DS$GA CHKLPPC 
AP, 16(FP) 



Call QaMain. 

Check for TTY input. 

If not looping on error, branch. 

If no errors, branch. 

Is this the first CHKLOOP after an 

ERROR call? 
Branch if it is. 
Is this the correct CHKLOOP. 
Exit if not right call. 

Save PC of this CHKLOOP. 

Replace return PC with loop address. 



Return to the diagnostic. 



19 
(2) 



[08] 

C09] 
C11D 

[18] 
[09] 

C1 1 3 

[09] 
C113 

[09] 
[11] 



[113 



ZZ-ENSAA-7,0 

LOOP 



DSXSInLoop Routine 

*** LOOP Loop control 
0SX$InLoop Routine 



6 1 
27-JUL-1984 



Fiche 10 Frame 61 



27-JUL-1984 15:31:06 
23-MAY-1984 14:14:07 



Sequence 1860 



VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAJNT3l00P.MAR;63 



20 
(3) 



0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0?64 
0264 
0264 
0264 
0264 
0264 
C264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 
0264 



549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 



.S8TTL DSXSInLoop Routine 



++ 

FUNCTIONAL DESCRIPTION: 

This routine returns successfully if the diagnostic has 
encountered an error AND the loop flag is set. 

CALLING SEQUENCE: 

DSSINLOOPO 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: 

DS$V ERR in DSSGL FLAGS 
DSA$7_L00P in DSA$GL_FLAGS 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: 

R0=1 if looping and error else 

SIDE EFFECTS: NONE 



ZZ-ENSAA-7,0 

LOOP 

1*7-19 



DSXSInLoop Routine 

*** LOOP Loop control 
DSXSInLoop Routine 



H 1 . «* 

27-JUL-1984 Ffche 10 

27-JUL-1984 15:31:06 
23-MAY-1984 14:14:07 



Frame H1 Sequence 1861 

VAX-11 Macro V03-01 Pa< 

DMA1 :CSYSO.SYSMA1NT;)LOOP.MAR;6< 







0000 


0264 
0266 


578 
579 


00000000 


»EF 


16 


0266 


580 


50 00660002 


8F 


DO 


026C 
0273 
0273 


581 
582 
583 


OOOOFEOO'EF 


02 


E1 


0278 


584 




07 




0282 


585 


!>0 00660001 


8F 


00 


0283 
028A 
028A 


5b* 
58. 
588 






04 


028A 
0288 
0288 


589 
590 
591 



.ENTRY DSX$INLOOP, A M<> 



10$ 



Jsb L'KB.CHECK 

MOVL #DS$_ERR0R,R0 

CLRL RO 

Br If Not ErrFlg 

B8C rf(5SA$V LOOP, - 

L A DSS$6L FLAGS, 10$ 
MOVL *DS$_NORMAC,R0 
1NCL RO 

10$: RET 

.END 



; Check for TTY input. 

; CORRECT ERROR STATUS CODE 

; Assume failure. 

; If error flag not set, branch. 

; If not looping on error, branch 

; CORRECT NORMAL STATUS CODE 

; Error and LOOP on error set. 

; Return to diagnostic. 



21 
(3) 



C19J 
C11] 

ri8] 

C1 13 

[19] 
[113 

C11] 



ZZ-ENSAA-7.0 

LOOP 

Symbol table 

UN 

$ER 

MODULE 

AK$„ ABORT 

APCS CONTINUE 

APC$„DUMP 

APC$„N0P 

APC$ START 

APCS"ZERO 

APM$ AbTDOM 

APM$""DEVERk 

APM$_D0NE 

APMS EXCEPT 

APM$~HARDERR 

APM$"'M0RE 

APM$~NOMES 

APM$ PREPERR 

APM$*PRGERR 

APMS"SOFTERR 

APH$ SPOOL 

APMS"SYSERR 

BEGlR 

BIT.,. 

BPTCODE 

DS$AA BPTADDR 

DSSABlBPTINST 

DS$GA„CHKLPPC 

DSSGA LOOPADR 

DS$GL~ERRCNT 

DS$GL_FLAGS 
DSSGL^LSTTEST 

DSfcGL.SUBTEST 

DSSKjBC 

DS$K„BBCC 

DS$K BBCCI 

DS$K BBCS 

OSSK^BBS 

DS$K_BBSC 

DS$K_BBSS 

DS$K BBSSi 

OSSOCC.M 

ds$k~bcs m 
ds$k_begCu_b 

0S$K.BE0LU M 
0S$<"BEQLj 
DS$K_BEQL M 
DS$K„BfcRROR 
OSSK^BGEQU.B 
DSSK^BGEQU M 

DS$<^BGEQj 
DS$K„8GSQ M 
DSSKlBGTRD.B 
0S$K BGTRU M 
OSSKjBGTRj 
DS$r BGTR M 

d:*Olbc 

DS$K_BIBS 



Symbol table 



*** LOOP Lcop control 



1 1 

27-JUL-198A Ffche 10 
27-JUL-1984 15:31:06 
23-MAY-198A 1A:1A:07 



Frame 11 Sequence 1862 
VAX-11 Macro V03-0T Page 22 
DMA1:CSYSO.SYSMAINTJLOOP.MAR;63 (3) 



00000005 
00000003 
00000000 
00000006 
00000009 
00000003 
00000000 
00000005 
00000004 
00000006 
00000002 
OOOOOOOA 
O000O00B 
00000003 
OOOOC008 
00000000 

oooooooc 

000C0005 
OOOOOOOA 
00000009 

00000001 

******** 

OOOOOOOA 
00000003 

******** 

******** 
***** *** 
******** 
******** 

******** 
* ** ***** 

******** 

0000001D 

00000021 

00000023 

0000001 F 

0000001 c 

00000020 

0000001 E 

00000022 

0000001B 

0000001 A 

00000005 

00000011 

OOOOOOOA 

00000010 

00000026 

00000007 

0000QQ13 

00000006 

00000012 

00000009 

0000C008 
OOOOOOH 
00000025 
0000002A 



R 



D 
D 
D 
D 
D 
D 

D 
D 
D 
D 

D 
D 
D 

D 
D 


D 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 





D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 

D 



D 



02 



03 



03 
03 
03 
03 
03 
03 
03 
03 



DSSK.BLEQU^B 
DS$K„BLEQU M 
DS$K BLEQ.B 
DS$K„BLEQJ1 
DSSK.BLSSD.B 
DS$K BLSSU M 
D3$KJ3LSSj3 
D$$K„BL$S M 
OSSK BNEQD.B 
DS$ONEQUM 
DSSK.BNEQJS 
DSSK.BNEQ M 
DSSK.BNERROR 
DSSK^BVC.M 
DS$K_BVS M 

ds$kj>$ 5tartingj.0cati0n 
dssk.error 

dsskjiormai 

ds$k printb 

dssorintf 

ds$k print! 

ds$k_printx 

dssk.severe 

dsskjubsys 

ds$k type abort.program 

ds$k type>b0rt test 

ds$k type command jrr 

ds$<ltype„command out 

ds$kjype w crd autstest 

ds$k typeZds Prompt 

DSSKlTYPE DS^START 

ds$kjypejrrdev 
ds$k type errhard 
dsskjypejrror^body 
dssk.type~error.end 

dssk type!errprep 
dssk'type'errsoft 

ossk type errsup 

dssk;type;errsys 

dsskjypejrr halt 

ossk^typejxception 

DSSKlTYPElEXCEPTION HEAD 
DSSK TYPE.FIRST PASS 
DS$OYPE„GeNERRL 

dsskltype^general error 
dssOypeIno tests 
ds$k type param error 
dssk:type~progrXm..end 
dssOype"programjnfo 
dssk type program start 

DSSOyPEIQIOJNVADP 

ds$Oype:qio:nodriver 
dssk typf qio wrongver 
ds$Oype:scrtptjcho 

DS$OyPE„$CRJPTJW 
DS$K TYPE SCRIPT PROMPT 
DS$K"TYPE"SCRIPT SKIP 



00000003 

OOOOOOOF 

00000002 

OOOOOOOE 

00000001 

OOOOOOOD 

00000000 

OOOOOOOC 

OOOOOOOB 

00000017 

OOOOOOOA 

00000016 

00000027 

00000019 

00000018 

00010000 

00000002 

00000001 

U0OQQQ02 

00000001 

00000000 

00000003 

OOOOOOOA 

00000066 

OOOOOOH 

00000013 

00000015 

00000016 

QQ00001A 

00000001 

0000001 D 

§«! 

5550009 
ogogooA 

000001B 
0000007 
0000C04 

% 

,. M t 

00000011 
OOOOOOQO 
« 00000003 
x 00000012 
= 0000001 c 
- 00000010 

* 0008000F 




D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
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J 1 
27-JUL-1984 F H h t. 1 B, 
27-JUL-1984 15:31:06 
23-MAY-1984 14:14:07 



Frame J1 Sequence 1863 
VAX-11 Macro V03-0T Page 23 
DMA1 :CSYS0.SYSMAINT]LOOP.MAR;63 (3) 



dssk type sequence. error 
dssk~type stakt err 
ds$Oype;;starij_is7 

DSSICTYPE.SUMMARy 
0SSK"TYPE USER PROMPT 

dssiTwarnTng 

dssm~abrtflg 

dssm^badtime 

dssm.batch 

dssm brkclr 

dssm_brkpt 

dssm charflg 

DS$MlCMDFLG 

DSSM_CTRLC 

DSSM„CTRLO 

DSSM DEVFLG 

DSSM DISABLCC 

DSSM DONFLG 

DSSMJRRFLG 

DSSMlEXCEPT 

DSSM.EXETST 

DSSM_HLTFLG 

DSSM^LODFLG 

DSSM MEMMGT 

DSSMlOUTPUT 

DSSMJ?UBFLG 

DSSM_$CRIPT 

DSSM SETIMR 

DSSM„STRFLG 

DSSM^SUBF 

DSSM.SYSFLH 

DSSM TIMRON 

DSSSDMMARY 

DSSVJ\BRTFLG 

DSSV„BADTJME 

OSSV.BATCH 

DSSV RRKCLR . 

DSSV„8RKPT 

DSSV CHARFLG 

DSSV CMDFLG 

DSSV'CTRLC 

DSSV~CTRLO 

DSSV^DEVFLG 

DSSVJHSABLCC 

DSSVJONFLG 

DSSVJRRFLG 

DSSVJXCEPT 

DSSVJXETST 

DSSV.HLTFLG 

DSSVlLODFLG 

DSSV MEMMGT 

DS$VlOUTPUT 

DSSV..RUBFIG 

DSSVJCRIPT 

DSSVISETJMR 

DSSV~STRFLG 

DSSV.SUBT 



00000019 


D 


00000018 


D 


00000025 


D 


OOOOOOOE 
00000002 


D 


D 


00000000 


D 


00000040 


D 


00100000 


D 


00400000 


D 


00001000 


D 


OOOC0800 


D 


00000100 


D 


00000080 


D 


00000001 


D 


0001 cooo 


D 


00000200 


D 


01000000 


D 


00002000 


D 


00000010 


D 


00080000 


D 


00040000 


D 


00000008 


D 


00000002 


D 


00008000 


D 


00800000 


D 


00000020 


D 


00200000 


D 


02000000 


D 


00000004 


D 


00004000 


D 


00000400 


D 


00020000 


D 


******** 


X 


00000006 


D 


000000H 


D 


00000016 
OOOOOOOC 


D 


D 


OOOOOOOB 


r 


00000008 


D 


0000000? 


D 


00000000 


D 


00000010 


D 


00000009 


D 


00000018 


D 


OOOOOOOD 


D 


00000004 


D 


00000013 


D 


00000012 


D 


00000003 


D 


00000001 


D 


mm 


D 
D 


00000005 
00000015 


D 
D 


Q000Q019 
C0000002 
OOOOOOOE 


D 


D 
D 



03 



DSSV SYSFLG 

DSSV TIMRON 

DSS 5R1TH 

DS$"ASBE 

DSS_BADLINK 

DSS^BADTYPE 

DSS^BIIC 

DSS„CHME 

DSS^CHMK 

DSS DEVNAME 

DSS'ERROR 

DSS FHWE 

DSS FRAGBUF 

DSSJCBUSY 

DSS ICERR 

DSSJHWE 

DSSJLLCHAR 

DSS 1LLPAGCNT 

DSSJLLUNJT 

DSS^INSFMEM 

DSS JPL2H1 

DSSJVADDR 

DSSJVVECT 

DSSjtRNLSTK 

DSS LOGIC 

DSS MCHK 

DSS"MMOFF 

DSS.NEEDUNJT 

DSS NODE 

DSSJJOPCS 

DSS NORMAL 

DSS^NOSUPPORT 

DSS NO TOON 

DSS^NOTIMP 

DSSJJULLSTR 

DSS ^OVERFLOW 

DSS^POWER 

DSS>ROGERR 

DSS.SEVERE 

DSSJRANSL 

DSS"TRUNCATE 

DSSJJNEXPINT 

DSS W VASFULL 

DSS'WARNING 

DSA$ALJ\PTMAIL 

DSASAT APTTXT 

DSASGLlAPTCOM 

DSASGL^DEVLEN 

PSASGL ERRNO 

USASGL^EVENT 

DSASGLlFLAGS 

DSASGLJISGTYP 

DSASGLlPASSES 

DSASGL PASSNO 

DSASGL^SECTNO 

DSASGL^SID 

DSASGL SUBTNO 



OCOOOOOA 
00000011 
006600DO 
00660118 
006600FO 
006600E8 
00660120 
006600A8 
006600EO 
00660108 
00660002 
00660068 
00660080 
006600C8 
006600CO 
00660060 
00660018 
00660078 
00660100 
00660050 
006600B8 
00660040 
00660038 
00660090 
00660070 
00660088 
00660058 
006600F8 
00660128 
00660110 
00660001 
00660081 
00660030 
00660QBQ 
00660010 
00660008 
00660098 
00660020 
00660SM 
006601 
0066< 
")661 




D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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*** LOOP Loop control 
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DMA1 JCSYSO.SYSMAINTJLOOP, MAR/63 (3) 



DSA$GL TESTNO 

DSASGLlUNITS 

DSA$GQ MSGPTR 

DSA$GT~DEVNAM 

DSASV HALT 

DSA$V LOOP 

DSA$V QA 

OSQASl? DISPATJtfTER 1NIT 

dsqa$k~di spat j3eforf ini t 
dsqaskIdispat^callteSt 
dsqa$kd1spat_d0ne tests 
dsqa$k oispat dsx$endpass.8gn 
dsqa$k"dispat dsx$endpass_end 
dsqa$0>i$paOsx$endpass mid 

OSQA$KlDISPAT.DS^CLEANUPjGN 
DSQA$K OISPAT DS„CLEANUPJ. ,f > 
DSQASK DUMMY T 

osqa$k;error ERROR.BGN 
DSQA$K„ERRQRJRRORJND 
DSQAICKERNEC JNIT CONTEXT 

dsqask loop dsx$bgrsub 
0sqa$k loop_dsx$ckl0op 
dsqa$k loop dsxsendsub 
osqask"parar dsxsgetaddress 
dsqa$k3param,dsx$ge toata 
dsqask param dsx*gftlqgkal 
osqa$k>aram dsx$getstring 
dsqa$k param dsxsgetvield 
dsqask qa dsksbranch 
0sqa$k stsrt before header 

DSQA$K"START VRRESTfaT 

DSGA$K~START VRSTART 

DSXSBGRSUB 

DSXSCKLOOP 

DSXSENDSUB 

DSXSESCAPE 

DSXS1NLOOP 

DSXSPR1NT 

DS CLEANUP 

DS"ERRSUP 

FACSE 

FMTLOOPDON 

FMTSEQERR 

INIT CONTEXT 

KB CHECK 

LS^CCP 

L$A w DEVP 

L$A DREG 

LSA^DTP 

L$AJCP 

L$A LASTADR 

L$A NAME 

L$A~R£PP 

LSA^SECNAM 

L$A STATAB 
L$A"*TSTCNT 

lUlENVJRON 



:S 



0000FE50 
00O0FE0C 
0CO0FE68 
0OOOFE5C 
00000000 
00C00002 
0000000F 
0OOO0OH 
00000013 
00000015 
00000018 
00000001 
00000002 
00000000 
00000003 
00000001 
0000000? 
00000006 
Q0Q0Q005 
00000008 
00000009 
00000008 
OOOOOOOA 
OOOOOOOE 

■90000c 

OOOOOf 
00000010 
OOOOOOOD 
00000011 
00000017 
00000012 
00000016 
00000015 
00000224 
0OO000B3 
00000000 
00000264 

******** 
******** 
******** 

oooocooo 

0000004F 

00C00005 
******** 

******** 

C0Q0024G 
0000021 C 
00000224 
00000218 
0000023C 
20000214 
00000208 
00000244 
00000250 
00000248 
00000254 
00000204 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 03 
RG D 03 
RG D 03 
RG D 03 
RG D 03 



X 

X 

X 
D 
R D 
R 1 

X 

X 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 
03 
03 

02 
02 
03 
03 



LSLJRRTYP 
LSL.HEADLENGTH 

L$L„REV 

LSLlUNIT 

L$L.UNUSED 

L$L„UPDATE 

OFF 

ON 

GASAOB CHECK STATE 

QA$K„ABORT NOW 

QA$K APT PRASE ONE 

QASKlAPTlPHASE^TWO 

QA$K BAD ADDRESS 

QA$K CONTROL CCONT 

QASKlDEALLOCSTlON 

QASK.ERROR.PHASE^ONE 

QA$K ERROR_PHASEJHREfc 

QASK^ERROR PHASE.TWO 

QASK.FAILURE 

QA$K FIRST_BRANCH„CODE 

QA$OlRST TIME 

QASKllNlTjONTEXT DONE 

QA$KJ.AST_BRANCH fODE 

QA$K LO0P„0N..SUBTEST 

QASK^LOOPlON^TEST 

QA$K:LOOP"TE3T DONE 

QA$K MEMORY^MARAGE 

GA$K~MULTJPLEJ>ASS 

GA$K„NODEF 

QASOORMAL START 

QASKJJO HEADER 

QA$KlNUWBER_OF_CHECKS 

QA$K NUMBER QA FLAGS 

QA$K"NUMB RDUTlNE^STATES 

QA$K QA„DEBUG 

QASKlQA DONE 

QA$K„RUR BACKWARDS 

QASKlSECTlON 

QA$K SUCCESS 

QASMJIN 

QA$V w CHECK_DONE 

QA$V DOING^CLEANUP 

QASVlERROR FOUND 

QA$V~INITjONE 

rbgnSubx 
rckloopx 
rescapex 

SJZ... 

TRUE 

VRRESTART 



0000024C D 

00000200 D 

0000020C D 

00000220 D 

00000228 D 

00000210 D 

r 00000000 D 

= 00000001 D 

******** x 03 

= 00000007 D 

= OOOOOOOB D 

= OOOOOOOC D 

= 00000009 D 

= OOOOOOOA D 

= OOOOOOOE D 

= 00000005 D 

= 00000007 D 

= 00000006 D 

= OOOOOOOO D 

* OOOOOOOO D 
= 00000005 D 
= 00000003 D 
= 00000025 D 
= 00000003 D 

* 00000002 D 

* 00000004 D 
r OOOOOOOD D 
= 00000001 D 

s Q29QOOOO d 

r OOOOOOOO D 

= 00000006 D 

* ooqqooof d 

= 00000008 D 

= 00000004 D 

s 0000QQ01 D 

= 00000002 D 

x 00000004 D 

* 00000008 D 
= 00000001 D 

******** x 03 



HBP 

00000001 
")0Q 
>B2 
I0000263 
JOOOH 
00000001 
00000001 




03 
03 
03 



03 
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PSECT name 



. ABS 
SABSS 
DATA 
CODE 



Allocation 

00000000 
0000FE70 
000000A4 
0000028B 



! Psect synopsis ! 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 164.) 02 ( 2.) NOPIC USR 

( 651.) 03 ( 3.) NOPIC USR 



CON 


A8S 


LCL 


NOSHR NOEXE 


NORD 


NOWRT NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR EXE 


RD 


WRT NOVEC 


BYTb 


CON 


REL 


LCL 


SHR NOEXE 


RD 


NOWRT NOVEC 


BYTE 


CON 


REL 


LCL 


SHR EXE 


RD 


NOWRT NOVEC 


BYTE 



2Z-ENSAA-7.0 

LOOP 
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M 1 
27-JUL-1984 riche 10 

27-JUL-1984 15:31:06 
23-MAY-1984 Hi 14s 07 



Frame M1 Sequence 1866 

VAX-11 Macro V03-01 Page 26 

0«A1:CSYS0.SYSMAINT3LOOP.WAR;63 (3) 



+ ...... ^„ k .^^-«--.«-+ 

! Symbol Cross Reference ! 
+ + 



SYMBOL 

SMODULE 

APCS ABORT 

APCS.CONTINUE 

APCS DUMP 

APCS'NOP 

APCS START 

APC$_ZEP0 

APMS ABTDON 

APMS~DEVERR 

APMS"DONE 

APMS EXCEPT 

APMS'HARDERR 

APMS~MORE 

APMS~NOMES 

APMS"PREPERR 

APMS'PRGERR 

APM$~SOFTERR 

APM$"SPOOL 

APMS SYSERR 

BEGIN 

BIT.., 

BPTCODE 
OSSAA BPTADOR 
OSSABlBPTINST 

OfSGA^CHKLPPC 
OSSGA LOOPADR 

ossglIerrcnt 
ossgl. flags 



OSSGL LSTTEST 

OSSGL"SUBTEST 

DSSK P8C 

OSSK^BBCC 

DStt.SDCCl 

DSSK BBCS 

OSSKlBBS 

DSSK_BBSC 

DSS^BBSS 

DSSKlBBSSI 

DSSK^BCC^M 

DSSOCS M 

dss^beqcu^b 
dssOeqlu m 
dssk^beolJ 
ds$k.beql m 
dssk berror 



VALUE 

=00000005 
=00000003 

00000000-R 
=00000006 
=00000009 
=00000003 
=00000000 
=00000005 
=00000004 
=00000006 
=00000002 
=0000000A 
=00000009 
=00000003 
=00000008 
=00000000 
=00CQ000C 
=000o0005 
=00000004 
=00000009 
=00000001 

0000000C-XR 
=0000000* 

= 10000003 
J0Q00000-XR 
00000000-XR 
00000000-XR 
00000000 ^XR 
00000000-XR 
00000000-XR 



00000000-XR 
00000000-XR 
=0000001 D 
=00000021 
=0000002^ 
=0000001 f 
=0000001 c 
=10000020 
=0000001 E 
=00000022 
=00000018 
=0000001A 
=00000005 
=00000011 
=00000004 
=00000010 
=00000026 



DEF JNITJON 



465 

470 
137 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 
125 

129 

121 



<2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(1) 

(1) 



128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


'!) 


128 


(i) 


128 


(1) 


128 


(1) 


128 


(1) 



REFERENCES. 



274 

4-279 

279 



#-448 



454 

125 

129 

0-283 

#-281 

#-282 

#-537 

#-256 

#-440 

186 

367 

446 

#-379 

#-377 



(1) 
(1) 
(1) 



(2) 



(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(2) 
(1) 
(2) 
(2) 
(2) 
(2) 



440 

#-470 

470 



(2) 
(2) 
(2) 



465 



(2) 



126 

#-483 
#-480 
#-482 
#-540 
#-409 

244 
370 
469 



(1) 

(2) 
(2) 
(2) 
(2) 
(2) 

(1) 
(2) 
(2) 



127 



#-543 



246 

410 
536 



(1) 



(2) 



(1) 

(2) 
<2> 



128 



(1) 



278 
421 
583 



(1) 
(2) 
(3) 



L. 



|?Z-ENSAA-7,0 
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*** 



LOOP Loop control 



M 1 i 

27-/UL-1984 Fiche 10 Frame N1 Seguence 1867 ^ , 

27-JUL-I984 15:31:06 VAX-11 Macro V03-0T Page 27 \ 

23-MAY-1984 14:14:07 0MA1 :CSYS0.SYSMAINT3LO0P.MAR;6l (3)1 



D$$K w BGEQU..B 
DSU BGEQU M 
DSS^BGEQj 
OSSKlBGEQM 

dssk bgtro^b 
dssk bgtru m 
ossk;bgtrJ3 
dssk bgtr_m 
ossk blbc 
dssOlbs 
dssx.blequj* 

DSSK^BLEQU M 

OSSK^BLEQ.5 

DSCK..BLEQ M 

OSS.- BLSS0„B 

OSSK..BLSSU M 

DSSK_BLSSj5 

DSSK BLSS M 

DS$K BNEOO.B 

DSSK.BNEQU M 

OS*Kj3NEOj 

DS*K„BNECM 

DSSK B TERROR 

DSSKlr.VC M 

DS$KJ3VS M 

OSS* OS 5iARTINGj.OCAT10N 

cs$k~er&jr 

DSU_N0<MAL 
DSSK. P'AWB 
DSiK""RINTF 

OSSr'PRINU 
oy< PRINTV 
OS$K^SEVERE 
DSlK SUASYS 

ossk'type ahort program 
0s$k"*type>bort"test 
dssk'type commaRd err 
ds$k""type"ccmmand"out 
ds$k"type"cro autOtest 
ds$k~type"ds Prompt 
osskItypeIds"start 
ds$k type errdev 

D^Sk^TYPE'EP^HARD 

DSl*"TYPE~ERHOR„BOOt' 
rSSK" TYPE ERROR ENO 
DS$fTTYPE"ERRPREP 
OS$K"*TYPElERRSOFT 

DS$K TYPEJRRSUP 
D5$K*"TYPE ERRSYS 
OStK""TYPE"ERR HALT 
OStK^fYPElEXCEPTION 
DS$K~TYPE EXCEPTION HEAD 

1 ->s$k"type"first PASS 

OS$iTTYPE"GENERXI. 
r;S*K~TYPE~GFNERAL ERROR 
rS$K"TYPE"WO TEST? 
OS$<"TYPE"PARAM error 



=00000007 

=00000013 

=00000006 

=00000012 

=00000009 

=00000015 

=00000008 

=00000014 

=00000025 

=00000024 

=00000003 

=OO00OO0F 

=00000002 

=O000OO0E 

=00000001 

=00000000 

=00000000 

=O0OOO00C 

=00000008 

=00000017 

=0000000A 

=00000016 

=00000027 

=00000019 

=00000018 

=00010000 

=00000002 

=00000001 

=00000002 

=00000001 

=00000000 

=00000003 

=00000004 

=00000066 

=00000014 

=00000013 

=00000015 

=00000016 

=0000001A 

^00000001 

=00000010 

=00000008 

=00000006 

=00000009 

=O00OO00A 

=00000018 
=00000007 
=00000004 
=00000005 
=00000000 

=0000000: 

=00000008 
=00000011 
=00000000 
=00000003 
=00000012 
=0000001 c 



128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


12P 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


128 


(1) 


V.3 


(1) 


23 


(1) 


123 


n> 


129 


(i) 


129 


(D 


129 


(i> 


129 


(i) 


123 


d) 


123 


(D 


129 


n: 


129 


d) 


129 


C) 


129 


d) 


129 


(i) 


129 


(D 


129 


d) 


129 


(i) 


129 


d) 


129 


d) 


129 


d) 


129 


M) 


1?9 


(1) 


129 


(1) 


129 


(1) 


129 


(1) 


129 


(1) 


129 


(1) 


129 


(1) 


129 


(1) 


129 


i1) 


129 


(1) 


129 


(1) 



128 



(1) 



128 (1) 



#-274 (1) #-440 (2) #-465 (2) 



123 (1) 
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LOOP Loop control 



dssk type program end 

dssOype""program~info 

dssk~type~program~start 

DSSOYPE*"GI0 iNvRDP 

dssk~type~qio;nodriver 
dssoype qio wrongver 

DSSK^TYPElSCRlPT^ECMO 
DSSK~TYPE SCRIPT PNF 
DSSK~TYPE~SCRIPT PROMPT 

DS$lTTYPE"SCRlPT"SKIP 

os$k""type"sequenCe.error 
dssk~type start err 
ossk^t vpelstart l i st 
ds$k"type summary 
dss>f type~user prompt 
dssk'warnTng 
dssm~"abrtflg 
dssm~badtime 
ossm batch 

OSSM^BRKCLR 

OSSM BRKPT 

OS$M"CHARFLG 

OSSM~CMDFlG 

DSSM~CTRLC 

DSSM CTRLO 

DSSM^DEVFLG 

DS$M w DlSA9LCC 

DS$M DONFLG 

DS$M~ERRFLG 

DSSM~EXCEPT 

OSIMlEXETST 

OSSM HLTFLG 

OSSM^LODFLG 

OSSM MEMMGT 

DSSM~OUTPUT 

OSSM RUBFLG 

DSSM~SCRIPT 

OSSM^SETIMR 

OSSM STRFLG 

DSSM~SUBT 

OSSM SYSFLG 

DSSM'TiMRON 

OSSSOMMARY 

OSSV ABRTFLG 

DSSV BADTIME 

OSSV^BATCH 

OSSVlBRKCLR 

OSSV BRKPT 

OSSV"CHARFLG 

DSSV~CMDFLG 

DSSV_CTRLC 

DSSVICTRLO 

DSSV„OEVFLG 

DSSV DISABLCC 

DSSv DONFLG 

DSSV'ERRFLG 



=00000010 
=00000017 
=0O00000F 
-00000024 
=00000022 
=00000023 
=00000021 
=0000001 E 
=00000020 
^0000001 F 
=00000019 
=00000018 
=00000025 
=OO00OO0E 
=00000002 
=00000000 
=00000040 
=00100000 
=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 
=00000200 
=01000000 
=00002000 
=00000010 
=00080000 
=00040000 
=00000008 
=00000002 
=00008000 
=00800000 
=00000020 
=00200000 
=02000000 
=00000004 
=00004000 
=00000400 
=00020000 
00000000 
=00000006 
=00000014 
=00000016 
=0000000c 
=00000006 
=00000008 
=00000007 
=00000000 
=00000010 
=00000009 
=00000018 
=0000000D 
=00000004 



-XR 



B 2 

27-JUL-1984 H:he 10 Frame B2 Sequence 1868 

27-JUL-1984 15:31:06 VAX-11 Macro V03-01 Page 

23-MAY-1984 14:14:07 DMA1 j[SYS0,SYSHAINT3LOOP.MAR;63 



(3) 



129 


(1) 


#-440 


(2) 






129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 


*-27k 


(1) 


#-465 


(2) 


129 


(1) 










129 


(1) 










129 


(1) 










129 


(1) 










123 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


C) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 


443 


(2) 






126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


(1) 










126 


c;> 










126 


(i) 


*-?.?? 


(1) 


#-422 


(2) 


126 


(i) 










126 


d) 


#-424 


(2) 


#-446 


(2) 


126 


(i) 










126 


d) 










126 


en 










126 


(1) 


#-186 
#-583 


(3) 


#-246 


(1) 



#-468 



(2) 



#-370 



(2) 



#-536 



(2) 



ZZ-EN$AA-7,0 

LOOP 

Cross reference 

DSSV EXCEPT 
DS$V"EXETST 

DSSV HLTFLG 

DSSV~LODFLG 

DSSV MEMMGT 

DSSV~OUTPUT 

DSSV*"RUBFLG 

DSSV~SCRIPT 

DSSV_SETIMR 

DS$V„STRFLG 

OSSV^SUBT 

DSSV.SYSFLG 

OSSV TIMRON 

OSS SRITH 

OSSlASBE 

DSS„BADLINK 

OSS BADTYPE 

DSSIB1IC 

DSS..CHME 

OSS^CHMK 

DSSJ)EVNAME 

OSS ERROR 

DSS FHWE 

OSS'FRAGBUF 

DSSIKBUSY 

OSS ICERR 

OSS IHWE 

OSSJLLCHAR 

OSS ILLPAGCNT 

DSSJLIUNIT 

OSS INSFMEM 

0SS.1PL2HI 

OSS IVAOOR 

OSS IVVECT 

DSS.KRNLSTK 

DSSJOGIC 

OSS^MCHK 

OSS MMOFF 

DSS^NEEOUNJT 

OSS'NOOE 

DSS^NOPCS 

OSS NORMAL 

OSS NOSUPPORT 

DSS~NOTDON 

OSSlNOTIMP 

DSSJWLLSTR 

DSS_OVERFLOW 

OSS^POWER 

DSS PROGERR 

DSS'SEVERE 

OSS^TRANSL 

DSS TRUNCATF 

DSS UNEXPINT 

OSS VASFULL 

DSS~WARNING 

OSAlGL. FLAGS 



Cross reference 



*** LOOP Loop control 



=00000013 126 (1) 

=00000012 126 (1) 

=00000003 126 (1) 

=00000001 126 (1) 

=OOOOO00F 126 (1) 

=00000017 126 (1) 

=00000005 126 (1) 

=00000015 126 (1) 

=00000019 126 (1) 

=00000002 126 (1) 

=OO0OO00E 126 (1) 

=000OO00A 126 (1) 

=00000011 126 (1) 

=006600DO 123 (1) 

=00660118 123 (1) 

=006600f0 123 (1) 

=00660058 123 (1) 

=00660120 123 (1) 

=006600A8 123 (1) 

=006600EO 123 (1) 

=00660108 1<tf (1) 

=00660002 123 (1) 

=00660068 123 (1) 

=00660080 123 (1) 

=006600C8 123 (1) 

=006600CO 123 (1. 

=00660060 123 (1) 

=00660018 123 (1) 

=00660078 123 (1) 

=00660100 123 (1) 

=00660050 123 (1) 

=006600B8 123 (1) 

=00660040 123 (1) 

=00660038 123 (1) 

=00660090 123 (1) 

=00660070 123 (1) 

=00660088 123 (1> 

=00660058 123 (1) 

=006600F8 123 (1) 

=00660128 123 (1) 

=00660110 123 (1) 

=00660001 123 (1) 

=00660081 123 (1) 

=00660030 123 (1) 

=006600BO 123 (1) 

=00660010 123 (1) 

=00660008 123 (1) 

=00660098 123 (1) 

=00660020 123 (1) 

=00660004 123 (1) 

=006600AO 123 (1) 

=00660028 123 (1) 

=00660008 123 CD 

=00660048 123 (1) 

=00660000 123 (1) 
OOOOFEOO 
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29 i 
(3)1 



#-243 (1) #-366 (2) #-410 



(2) 



#-581 (3) 



#-586 (3) 
123 (1) 



123 
276 
467 



(1) 
M) 

(2) 



369 

535 



(2) 
(2) 



427 
585 



(2) 
(3) 



450 



(2) 



ZZ-ENSAA-7,0 Cross reference 

LOOP 

iross reference 

OSASGL MSGTYP 
DSA$GL"PASSES 
DSA$GL~PASSNO 
DSASGLlSUBTNO 

DSASGL.TESTNO 

DSASV^HALT 

DSASV LOOP 

0SA$V"QA 

DSQA$R DISPAT_AFTER INIT 

DSQASK^DISPAT BEFORE INIT 

DSQASK'DlSPAT^CALLTb'ST 

osqa$k"dispat done. tests 
dsqa$k~dispaO$x$Endpass_bgn 
dsqa$k"*d1spat dsx$endpass_end 
dsqa$k~dispat dsx$endpass mid 
dsqa$k~dispat ds cleanupjjgn 
dsqasltd i spat'ds^c le anup.end 
dsqa$k"dummy t 

DSQA$ORR0RlERR0R..8GN 

dsqask error errorjnd 
osqa$k"kernec init context 
dsqa$k~loop_d5x$bgRsub 
dsqa$k~loop_dsx$ckloop 
dsqa$k~loop dsxsenosub 

DSQA$lTPARARj>SX$GETADDRESS 
DSQA$lTPARAM -< DSX$GE TDAT A 
DSQA$K~*PARAM DSXSGETLOGICAL 
DSQASlTPARAM DSXSGETSTRJNG 
DSQASK PARAM DSXSGETVIELD 
OSQA$K"QA DSSSBRANCH 
DSQA$K~START BEFORE HEADER 
DSQA$K"START"VRREST7(RT 
DSQA$K~START~VRSTART 

DSXSBGRSUB 
DSXICKLOOP 
OSXSENDSUB 
DSXSESCAPE 
OSX$INLOOP 
DSXSPRINT 

DS^CLEANUP 

DS ERRSUP 

FACSE 

FMTLOOPDON 

FMTSEQERR 

INIT CONTEXT 

KB^CHECK 

OFF 
ON 

qa$aob check state 
qa$k abort now 
ga$k"apt ppase„one 
qa$k~apt~phase two 
qa$k"bad~aodre3s 

QA$K~CONT r OL CCQNT 
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30 
(3) 



0000FE40 






#-449 


(2) 












00OOFE08 






#-389 


(2) 


#-396 


(2) 








0000FE54 






388 


(2) 


#-440 


(2) 








0000FE4C 






#-274 
#-465 


(1) 
(2) 


#-292 
#-485 


(1) 
(2) 


#-356 


(2) 


#-440 (2) 


0000FE50 






#-259 


(1) 


#-274 


(1) 


#-285 


(1) 


#-354 (2) 








#-440 


(2) 


#-465 


(2) 


#-484 


(2) 




=00000000 






#-276 


(1) 


#-467 


(2) 








=00000002 






#-368 


(2) 


#-534 


(2) 


#•584 


(3) 




=00OO000F 






#-427 


(2) 


#-450 


(2) 








=00000014 


127 


(1) 
















=00000013 


127 


(1) 
















=00000015 


127 


(1) 
















=00000018 


127 


(1) 
















=00000001 


127 


(1) 
















=00000002 


127 


(1) 
















=00000000 


127 


(1) 
















=00000003 


127 


(1) 
















=00000004 


127 


(1) 
















=00000007 


127 


(1) 
















=00000006 


127 


(1) 
















=00000005 


127 


(1) 
















=00000008 


127 


(1) 
















=00000009 


127 


(1) 


#-241 


(1) 












=00000006 


127 


(1) 


#-531 


(2) 












=00OO00OA 


127 


(1) 


#-345 


(2) 












=0000000E 


127 


(1) 
















=00O0000C 


127 


(1) 
















=0000000F 


127 


(1) 
















=00000010 


127 


(1) 
















=0OOO00OD 


127 


(1) 
















=00000011 


127 


(1) 
















=00000017 


127 


(1) 
















=00000012 


127 


(1) 
















=00000016 


127 


(1) 
















0000001 5-R 


239 


(1) 
















00000224-R 


529 


(2) 
















0OOOOOB3-R 


343 


(2) 
















00000000-R 


183 


(1) 
















00000264-R 


578 


(3) 
















00000000-XR 






274 


(1) 


440 


(2) 


465 


(2) 




00000000-XR 






444 


(2) 












00000000-XR 






279 


(1) 


470 


(2) 








=00000000 


128 


(1) 
















00O0004F-R 


^^2 


(1) 


440 


(2) 












00000005-R 


139 


(1) 


274 


(1) 


465 


(2) 








00000000-XR 






442 


(2) 












00000000-XR 






185 
580 


(1) 
(3) 


293 


(1) 


346 


(2) 


533 (2: 


=00000000 


128 


(1) 
















=00000001 


128 


(1) 
















00000000-XR 






429 


(2) 












=00000007 


128 


(1) 
















=00000008 


128 


(1) 
















=0OO00OOC 


128 


(1) 
















^00000009 


128 


(1) 
















=OOO00OOA 


128 


(1) 

















ZZ-ENSAA-7.0 

LOOP 

Cross reference 



Cross 



QA$KJ)EA110CAU0N 

QA$K ERROR PHASEJM 

QA$K"*ERRORlPHASE, THREE 

QA$K~ERRQR PHASEJWO 

QASKJAILURE 

QA$K FIRST^BRANCH.CODE 

QASlTFiRST TIME 

qa$k in1t context done 
qask""last^branch code 
qask^loop.on.subTest 
qa$k"\oop on test 
qa$k~loop test done 
qa$k~memory manage 
qa$k**multipCe^pass 
qa$k"nodef 
qa$k*" normal, start 
qask^no header 

QA$K NUflBER OF CHECKS 

qa$k~number~qa flags 
qa$k"numb routine. states 
qa$k"ga_dEbug 
qa$k~qa done 
qa$k~ruf) backwards 

QA$K"SECTlON 

QA$KlSUCCESS 

QASMSlN 

QA$V CHECKJ)ONE 

QASVlDOING^CLEANUP 

QA$V ERROR FOUND 

QASV~INIT_I50NE 

RBGN5UBX 

RCKLOOPX 

RESCAPEX 

SI z 

TRUE 
VRRESTART 



reference 




2(* 


•JUL- 
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=0000000E 


128 (1 






=00000005 


128 (1 






=00000007 


128 (1 






=00000006 


128 (1 






=00000000 


128 (1 






=00000000 


128 (1 






=00000005 


128 (1 






=00000003 


128 (1 






=00000025 


128 (1 






=00000003 


128 (1 


) #-428 


(2) 


=00000002 


128 (1 






=00000004 


128 (1 






=00000000 


128 c 






=00000001 


128 r 






=00000000 


128 C 






=00000000 


128 C 






=00000006 


128 r 






=0000000F 


128 (' 






=00000008 


128 (' 






ES =00000004 


128 r 






=00000001 


128 C 






=00000002 


128 C 






=00000004 


128 ( 






=00000008 


128 < 






=00000001 


128 ( 






00000000-XR 




241 


(1) 


=00000003 


128 ( 






=00000002 


128 ( 






=00000001 


128 ( 






=00000000 


128 ( 






00000082-R 


295 ( 






00000263-R 


546 ( 


2) #-535 


(2) 


00000014-R 


189 ( 


1) #-186 


(1) 


=00000001 


126 ( 


1) 126 


(1) 


=00000001 


128 ( 






00000000-XR 




#-451 


(2) 
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345 



(2) 



531 



(2) 



#-536 



(2) 



#-541 



(2) 



Z2-ENSAA-7.0 

LOOP 

cross reference 



Cross reference 



*** LOOP Loop control 
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27-JUL-1984 Fiche 10 
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+—_..»— . — —™— + 

! Macros Cross Reference ! 
+ + 



MACRO 

$D1 PRINT.S 

SDEF 
SDEF INI 

SDS DSADEF 

SOSlDSDEF 

SDS HDROEF 

SDSlQADEF 

SDS SUMMARY S 

SDSlTYPEDEF" 

SEQU 

SEQULS1 

SEQULST 

SGBLINJ 

SPRINT 

SPUSHADR 

SVIELD 

SVIELD1 

APTDEF 

BR IF ERRFLG 

BR~IF~NOT ERRFlG 

br"if"not"qa 
clEar^ctrCo 
clear errflg 

DSFDEF 
DSQA 

ds qadefs 
erRsup.s 

MODNAM 
QA MAIN 
SET HALT 
SETlSUBT 



SIZE 

1 

1 
1 
5 
2 
2 
2 
1 
4 
1 
1 
1 
2 

2 

1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
2 
6 
1 
1 
1 
1 
1 



DEFINITION 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



274 
129 
122 
122 
123 
124 
128 
443 
129 
129 
129 
123 



269 
279 

129 
125 
370 
186 
427 
446 
246 
126 
127 
128 
279 
137 
241 
276 
410 



(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 

(1) 

(1) 
(2) 
(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 



REFERENCES.. 



274 

122 
122 
123 
124 
128 
443 
129 
123 
123 
123 
123 
129 
269 
279 
126 
126 
125 
370 
186 
427 
446 
246 
126 
127 
128 
279 
137 
241 
276 
410 



! Performance indicators ! 

+ ™+ 



Page faults CPU Time 

---- 00I00I00.12 

140 00:00:00-77 

?00 00:00:11,60 

3 00:00:00.50 

163 00:00:02.25 

41 00:00:00.24 

8 00:00:00.04 

68 00:00:01.29 

1161 00:00:16,83 



Elapsed Time 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.26 
:01.84 
:25,96 
:00.69 
:06.28 
:00,68 
:00,04 
:03.28 
:39.04 



(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 



440 
124 



127 
'i 27 
127 
126 

433 
470 



536 
450 



470 

345 
467 



(2) 
(1) 



(1) 
(1) 
(1) 

(1) 

(2) 
(2) 



(2) 
(2) 



(2) 

(2) 
(2) 



465 



(2) 



128 


(1) 


129 


(1) 


128 


(1) 


129 


(1) 


128 


(1) 


129 


(1) 


127 


(1) 


128 


(1) 



460 



(2) 



583 



(3) 



531 



(2) 



The working set limit was 1000 pages 
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VAX-11 Macro Run Statistics 23-MAY-1984 14:14:07 DMA1 :CSYS0.SYSMAINT:iLOOP.MAR;63 (3) 

58268 bytes (114 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 385 non-local and 22 local symbols. 

591 source lines were read in Pass 1, producing object records in Pass 2. 

99 pages of virtual memory were used to define 31 macros. 

+•—••—— —.-.——+ 

! Macro library statistics ! 

Macro library name Macros defined 

0RB1:CDS,WORK3DIAG.ML8;955 7 

0RB1 :CDS.W0RK]DS.ML8;218 15 

SYS$SYSR00T:[SYSLIB]LIB.ML8;1 

DMA1:CSYS0.SYSMAINT]DS,MLB;218 

DMA1 jCSYS0,SYSMAJNT]DImo,MLB;953 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 

SYS$SYSROOT:CSYSHB3STARLET.MLB;2 6 

TOTALS (all libraries) 28 

577 GETS were required to define 28 macros. 

There were no errors, warnings or information messages. 

MACRQ/N00BJECT/LJST=CD$.LJS3/CR0SS/ENABLE= (DEBUG, TRACE) L00P/UPDA= (LOOP. UPD, LOOP. ENH)+SY$$LJBRARYjLIB/L JBRARY+DMA1 : CSYSO-S YSMAINT3DI 
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able of contents 

(1) 63 MASSBUS ADAPTER INTERRUPT DISPATCHER 
(1) H9 MASSBUS ADAPTER INITIALIZATION 



ZZ-ENSAA-7.0 
MBA1NT 

01 



MASSBUS ADAPTER INTERRUPT DISPATCHER 

- MASSBUS ADAPTER INTERRUPT 



I 2 

27-JUL-1984 Fiche 10 

DISPATCHER 27-JUL-1984 15:31:46 
3-MAR-1981 10; 31:30 
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VAX-11 Macro V03-0T Page 1 
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0UC0 
0000 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

00OC 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



1 

2 
3 
4 

5 
6 
7 
8 
9 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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.TITLE MBAINT - MASSBUS ADAPTER INTERRUPT DISPATCHER 

JDENT /01/ 

.PSECT SEP, SHR, WRT, EXE, LONG 



♦ it****************************************************************'********** 

* 



COPYRIGHT <c> 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 



INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS 
TRANSFERRED. 



OTHER 
TO ANY 
HEREBY 



THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



* it ******* ******* ****** it ****** It ********* ***** + + + * it***************** ********* 



D. N. CUTLER 30-JAN-77 

MASSBUS ADAPTER INTERRUPT DISPATCHER 
R. S. RIGGS 14-Jun~1980 Minor mods to 



accomodate SUPERVISOR 



MASSBUS ADAPTER INTERRUPT DISPATCHER 
MODIFIED BY; 

V03 RLR0001 . Robert L. Rappapcrt # 



15-N0V-1979 

allow 



Changed attention summary bit clearing logic to alii 

support of TM78 Tape Controller. Specifically, for 

all MASSBUS multi-device controllers (currently TM03 

and TM78)< the responsibility for clearing the attention 

summary bit for the device has been removed from this 

module and placed in the individual Device Drivers. 

For MASSBUS single device controllers (DISKS) the 

logic remains as it was. That is the attention summary 

bit is cleared here before dispatching to the specific Driver, 



V02 



NPK0001 
ADDED CHECK 



N, KRONENBERG 
Fun CBHUNG ON MBA 



INTERRUPT 



4-NOV-1979 



ZZ-ENSAA-7,0 

MBA INT 
01 



J 2 
MASSBUS ADAPTER INTERRUPT DISPATCHER 27-JUL-1984 „ Fjghe J° F . r .S!5 e J 2 « uA7 S n? uenCe 187 iL rto 
- MASSBUS ADAPTER INTERRUPT DISPATCHER 27-JUL-1984 15:31:46, VA^II^cro^O^O^^^^^age 



2 
(1) 



0000 


5? 


0000 


53 


0000 


54 


0000 


55 


0000 


56 


0000 


57 


0000 


58 


0000 


59 


0000 


60 


0000 


61 



MACRO LIBRARY CALLS 



SADPDEF 
SDDBDEF 
SDDTDEF 
SMBADEF 
SJD8DEF 
SUC8DEF 



DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 



ADP 
DDB 
DDT 
MBA 
IDB 
UCB 



OFFSETS 
OFFSETS 

OFFSETS 
REGISTER 
OFFSETS 
OFFSETS 



OFFSETS 



ZZ-ENSAA-7.0 

MBAINT 
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MASSBUS ADAPTED INTERRUPT DISPATCHER 3-MAR-1981 10:31:30 
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3 

(1) 



08 A4 



52 



0410 







0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






oooo 






cooo 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


53 00 BE 


DO 


0000 


54 63 


DO 


0004 


00800000 8F 


D3 


0007 


6D 


12 


OOOF 


55 04 A3 


DO 


0011 


09 


13 


0015 


52 74 A5 


9A 


0017 


1 58 A5 01 


EO 


0018 


53 00 BE 


DO 


0020 


54 63 


DO 


0024 
00?7 


08 A4 00 


D2 


52 0410 C4 


DO 


00?8 


52 08 00 
OA 


M 


81? 


5E 04 


CO 


0037 


52 8E 


70 


003A 


54 8E 


70 


003D 




0? 


0040 


55 14 A342 


00 


0041 


2F 55 


E8 


0046 
0049 


C4 01 52 


78 


0049 


55 


05 


0Q4F 
0051 


CD 


13 


9 58 A5 01 


E5 


0053 


53 10 A5 


70 


0058 



63 
64 
65 
66 
67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
97 

98 
99 
100 
101 
102 
103 
1 04 
105 

!$ 

108 
109 
110 
111 
112 
113 
114 
115 
116 
117 

118 
119 



.SBTTL MASSBUS ADAPTER INTERRUPT DISPATCHER 
MBASINT - MASSBUS ADAPTER INTERRUPT DISPATCHER 



THIS 
ON A 



ROUTINE 
MASSBUS 

OO(SP) 

04(SP) 
08(SP) 
12(SP) 
16(SP) 
20(SP) 
24 (SP) 



IS ENTERED VIA A JSB INSTRUCTION WHEN AN 
ADAPTER. THE STATE OF THE STACK ON ENTRY 



INTERRUPT 
IS: 



OCCURS 



ADDRESS OF 
SAVED R2. 
SAVED R3. 
SAVED R4. 
SAVED R5. 
INTERRUPT 
INTERRUPT 



IDB ADDRESS. 



PC. 
PSL. 



INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 

IF THE INTERRUPTING ADAPTER IS CURRENTLY OWNED AND THE OWNER UNIT 
IS EXPECTING AN INTERRUPT, THEN THAT UNIT IS DISPATCHED FIRST. ALL 
OTHER UNITS ARE DISPATCHED BY READING THE ATTENTION SUMMARY REG- 
ISTER AND SCANNING FOR UNITS THAT HAVE ATTENTION SET. AS EACH UNIT 
IS FOUND, ITS ATTENTION SUMMARY BIT IS CLEARED AND THEN A TEST IS 
MADF TO DETERMINE IF AN INTERRUPT IS EXPECTED ON THE UNIT, IF YES, 
THEN THE DRIVER IS CALLED AT ITS INTERRUPT RETURN ADDRESS, ELSE 
THE DRIVER IS CALLED AT ITS UNSOLICITED INTERRUPT ADDRESS. AS EACH 
CALL TO THE DRIVER RETURNS, THE ATTENTION SUMMARY REGISTER IS RE- 
READ AND AN ATTEMPT IS MADE TO FIND ANOTHER UNIT TO DISPATCH. WHEN 
NO UNITS REQUESTING ATTENTION REMAIN, THE INTERRUPT IS DISMISSED. 



MBASINTj: 

MOVL 

MOVL 

BITL 

BNEQ 

MOVL 

BEQL 

M0V78L 

BBS 

10$: MOVL 
MOVL 
MCOML 
MOVL 
FFS 
BNEQ 
ADDL 
MOVQ 
MOVQ 
REI 

20$: MOVL 
BLBS 

ASHL 
TSTL 

BEQL 
B8CC 
MOVQ 



/MASSBUS ADAPTER INTERRUPT DISPATCHER 
a(SP),R3 ;GET ADDRESS OF IDB 

IDB$L CSR(R3),R4 ;GET ADDRESS OF CONFIGURATION STATUS REG1STE 
*MBA$M SR CBHUNG,MBA$L_SR(R4) ; CHECK FOR M8A HUNG 



50$ 

IDB$L_OWNER(R3>,R5 

10$ 

UC8$B SLAVE <R5), R2 

#UCB$tf INT,UCB$W.STS(R5) 

a(SP),R3 

IDB$L CSR(R3),R4 
#0,MBA$L SR(R4) 
MBA$LJ\STR4),R2 
#0,*8,R2,R2 

#4,SP 

<SP)*,R2 

(SP)+,R4 

IDB$L UCBLST(R3)[R2],R5 
R5,40$ 

R2,#1,MBA$L AS(R4) 

R5 

10$ 

*UC3$V INT,UCB$W_STS(R5) 

UCB$L FR3(R5),R3 



.BRANCH IF HUNG 
GET OWNER UNIT UCB ADDRESS 
IF EQL NO OWNER 

GET OWNER SLAVE CONTROLLER NUMBER 
20$ ;IF SET, INTERRUPT EXPECTED 
RETRIEVE ADDRESS OF IDB 

RETRIEVE MBA CONFIGURATION REGISTER ADDRESS 
CLEAR ALL MBA STATUS BITS 
READ ATTENTION SUMMARY REGISTER 
FIND FIRST UNIT REQUESTING ATTENTION 
IF NEQ UNIT FOUND 
REMOVE IDB ADDRESS FROM STACK 
RESTORE REGISTERS 



GET ADDRESS OF UCB OR INTERRUPT DISPATCHER 
IF LBS INTERRUPT DISPATCHER FOR MULTI- 
DEVICE CONTROLLER 
CLEAR ATTENTION SUMMARY BIT 
SEE IF UCB DEFINED 



IF EQL NONE DEFINED 
30$ :IF CLR, INTERRUPT 
RESTORE DRIVER CONTEXT 



NOT EXPECTED 



ZZ-ENSAA-7,0 


MASSBUS ADAPTEI 


MBAINT 




01 






OC B5 




BF 




53 24 A5 




53 OC A3 




52 04 A3 




03 52 10 




52 53 




62 




A8 




n 




75 




A2 



55 04 A3 

50 08 A4 

51 64 

52 14 A4 

53 10 A3 
53 OC A3 



L 2 

INTERRUPT DISPATCHER 27-JUL-1984 ^ Fjche 10 

- MASSBUS ADAPTER INTERRUPT DISPATCHER 27-JUL-198A 15:3 :46 
MASSBUS ADAPTER INTERRUPT DISPATCHER 3-MAR-1981 1Q:31:30 
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4 
(1) 



16 005C 

11 005F 

DO 0061 

DO 0065 

DO 0069 

EO 006D 

CO 0071 

16 0074 

11 0076 

DC 0078 

16 007A 

11 007C 

007E 

007E 

C07E 

007E 

007E 

007E 

007E 

007E 

DO 007E 

DO 0082 

DO 0086 

DO 0089 

DO 008D 

3C 0091 

0095 

0095 



120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

14! 

144 

145 

146 

147 



JSB aUCBSL FPC(R5) 

BRB 10$ 

30$; MOVL UCB$L_DDB(R5),R3 

MOVL DDB$LlDDT(R3).R3 

MOVL DDT$L UNS0LINT(R3) ,R2 

BBS *16,R2,35$ 

ADDL R3,R2 

35$: JSB <R2) 

BRB 10$ 

40$; MOVPSL »(SP) 

JSB -(R5) 

BRB 10$ 



IN CASE OF CBHUNG SAVE MBA INFORMATII 
BUGCHECK. CBHUNG IS IMPLEMENTED ONLY 
IT MEANS THAT AN ACCESS TO A REGISTER 
FAILED TO COMPLETE IN 1,5 USEC. 



50$: MOVL IDBSL ,0WNER(R3) ,R5 

MOVL MBA$L^SR(R4) f R0 

MOVL MBA$L_cSR(R4),Rl 

MOVL MBA$L_DR(R4),R2 

MOVL IDB$LJ\DP(R3),R3 

MOVZWL ADP$WlTR(R3>,R3 

BUG.CHECK MBACBHUNG, FATAL 



CALL DRIVER AT INTERRUPT RETURN ADDRESS 



GET ADDRESS OF DDB 

GET ADDRESS OF DDT 

CALCULATE ADDRESS OF UNSOLICITED INTERRUPT 

t*+> BRANCH IF SUPERVISOR ADDR 

+♦++ MAKE ABSOLUTE ADDRESS 

CALL UNSOLICITED INTERRUPT ROUTINE 

READ CURRENT PSL 

CALL SLAVE CONTROLLER INTERRUPT DISPATCHER 



ON FOR BUGCHECK LOG AND 
ON THE VAX 11/750 CPU, 
OF AN EXISTENT CONTROLLER 



SAVE OWNER UCB IF ANY 
SAVE MBA STATUS REGISTER, 

CONFIGURATION REGISTER, 

DIAGNOSTIC REGISTER, 
GET ADP ADDRESS 
SAVE NEXUS NUMBER TO IDENTIFY 

OFFENDING MBA 
FATAL ERROR 



ZZ-ENSAA-7,0 

MBAINT 

L>1 



M 2 

MASSBUS ADAPTER INITIALIZATION m ?Jr J Wt" 19 §t , <««>/ J£ h fi 1 9* 

- MASSBUS ADAPTER INTERRUPT DISPATCHER 27-JUL-1984 15:31:46 
MASSBUS ADAPTER INITIALIZATION 3-MAR-1981 10:31:30 
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04 A4 
04 A4 



01 
04 



OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
JOAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
COAB 
OOAB 
OOAB 
OOAB 
OOAB 
OOAB 
DO OOAB 
DO OOAF 
05 00B3 
00B4 
00B4 



149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 

160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
VO 
i71 
172 
173 



.S8TTL MASSBUS ADAPTER INITIALIZATION 

MBASINITIAL - MASSBUS ADAPTER INITIALIZATION 

THIS ROUTINE IS CALLED VIA A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
A POWER RECOVERY RESTART TO ALLOW INITIALIZATION OF MASSBUS ADAPTERS. 

INPUTS: 

R4 = CSR ADDRESS OF MASSBUS ADAPTER. 
R5 = ADDRESS OF ADAPTER IDB. 

ALL INTERRUPTS ARE LOCKED OUT. 

OUTPUTS: 

THE MASSBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED, 



MBASINJTIAL:: 
MOVL 
MOVL 
RS8 

.END 



;MASSBUS ADAPTER INITIALIZATION 
#MBA$M CR INIT,MBA$L CR(R4) .-INITIALIZE MASSBUS ADAPTER 
#MBA$M"CR"IE,MBA$L <- CR(R4) ;ENABLE INTERRUPTS 



ZZ-ENSAA-7,0 
MBAINT 
Symbol table 

ADPSQ NUMBER 

Af>PSB""PORT 

ADP$B~TYPE 

ADP^ClDRAOPLEN 

ADPSC.MBAADPLEN 

ADPSC MPMADPLEN 

ADPSC*"UBAADPLEN 

ADP$K"DRAOPLEN 

ADPSK MBAADPIEN 

ADPSk~MPMADPlEN 

ADPSK~UBAADPLEN 

ADPSL.CRB 

ADPSLjCSR 

ADPSL.DPQBL 

ADPSL.DPQFL 

ADPSL.1NTD 

ADPSL LINK 

ADPSL MRQBL 

ADPSL^MRQFL 

ADP$L PRQQBL 

AOPtL PRQQFL 

ADP$LlSH6 

ADPSL VECTOR 

ADPSvf ADPTYPE 

ADPSW^DPBITMAP 

AOP$W"MRBITMAP 

ADPSWIS I 2E 

ADPSW TR 

Bl'GUflECK 

DDBSB.AC&UASS 

DDB$B TYPE 

DDBSC^LENGTH 

DDBSK.LEMGTH 

DDBfcL.AC^D 

ddbsl,ddt 

ddbsl.link 

ddbsl.ucb 

oobst drvname 

ddbst~name 

ddbsw^size 

0dt$l altstart 

ddtsl^cancel 

ddtsl.fdt 

ddtsl.regdump 

0ot$l start 

ddtslIunitjnijt 

ddtsl unsolint 

ddtsw.diag8uf 

ddtsw errorbuf 

1dbsb.type 

idbsc^length 

IDBS^LENGTH 

JDBSL.ADP 

IDB$L„C$R 

IDBSL.OWNER 

IDBSL^UCBLST 

IDBSW.SIZE 



Symbol table 



00000006 D 

00000020 D 

OOOOOOOA D 

OOOOOOK D 

00000014 D 

00000070 D 

00000070 D 

OOOOOOH D 

OOOOOOH D 

00000070 D 

00000070 D 

00000010 

00000000 D 

00000018 D 

OOOOOOH D 

00000064 D 

OOOOOOOA D 

00000020 

OOOOOOK D 

00000018 D 

OOOOOOH D 

OOOOOOK D 

00000010 D 

OOOOOOOE D 

00000024 V 

00000026 D 

00000008 D 

OOOOOOOC D 

******** X 

00000013 D 

OOOOOOOA D 

00000034 D 

00000034 D 

00000010 D 

OOOOOOOC 

00000000 D 

00000004 D 

00000O24 D 

OOOOOOH D 

00000008 D 

OOOOOOK 

OOOOOOOC D 

00000008 D 

Q0000Q10 D 

00000000 

000000(8 D 

00000004 

OOOOOOH D 

00000016 D 

OOOOOOOA 

00000034 

00000034 D 

00000010 D 

00000000 D 

00000004 D 

OOOOOOH D 

00000008 D 



- MASSBUS ADAPTER INTERRUPT 



N 2 . 

27-JUL-1984 Fiche 10 

DISPATCHER 27-JUL-1984 15:31:46 

3-MAR-1981 10:31:30 
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01 



IDB$U UNITS 

MBASlRlTJAL 

MBASINT 

M8ASL.AS = 

MBASL.CR - 

MBASL.CSR = 

MBASL JH = 

M8ASL.SR * 

MBASM CR IE = 

MBASM^CRllNIT = 

MBASM SR CBHUNG= 

SIZ — = 

UC8S8 AMOD 

UCBS8"CEX 

UCBSB.CM1 

UCBSB.CM2 

U r 8S8.DEVCLASS 

UCBSB.DBVTYPE 

UC8S8 DIPL 

UC8S8 DX SCTCNT 

UC8$B"ERTCNT 

UCBSB ERTMAX 

UCBSBlFEX 

UCBSB FIPL 

UCBSB.LOCSRV 

UC8S8.0FFNDX 

UC8SB.0FFRK 

UCBSB.REMSRV 

UC8SB.SECT0RS 

UC8SB.SLAVE 

UC8SB SPR 

UCBSBlSTATE 

UCBS8JRACKS 

UC8$BlTT w CRFRL 

UCBSB.TT.DECRF 

UCB$B.TTJ)ELFF 

UC8$B„.TTJ>ESPcE 

UC8SB_TT_DETYPE 

UCBSB TT^LFFILL 

UCB$8„TT SPEED 

UC8SB.TYPE 

UCBSBlVERTSZ 

UC8SC. LENGTH 

UC8SC.M8.LENGTH 

UCBSC.TT LENGTH 

UC8SK.LEflGTH 

UCBSiTMB^LENGTH 

UCBSOOENGTH 

UCBSL.AMS 

UCBSL^ASTQBL 

uceSL^AsrofL 

UCBSL CPID 

UC8SL„CR8 

UC8SL.DD8 

ucbsl^dev:har 
ucbsl oevoepend 

UCB$L~DPC 



OOOOOOOC 

OOOOOOAB 

OOOOOOCO 

00000410 

00000004 

00000000 

00000014 

00000008 

00000004 

00000001 

00800000 

00000002 

00000053 

00000077 

0000004A 

0000004B 

00000038 

00000039 

00000052 

00000OA6 

00000070 

00000071 

00000076 

OOOOOOOB 

0000003C 

00000094 

00000095 

0000003D 

0000003C 

00000074 

00000075 

00000052 

0000003D 

0000009D 

QQQQ00A1 

000000A2 

OOOOOOAO 

000000A4 

0000009E 

0000009C 

OOOOOOOA 

0000003F 

00000074 

00000090 

OOOOOOBC 

00000074 

00000090 
OOOOOOBC 
00000054 
00000010 
OOOOOOOC 
0000005C 
00000020 
00000024 
0000CC34 
0000003C 
00000080 



RG 
RG 



D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

") 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



01 
01 



UCBSL. 
'JCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UCBSL. 
UC8$L_ 
UCML 



UCBSL. 
UCBSL. 
UCBSL, 
UCGSL, 
UCBSL, 
UCBSL. 
UCBSL. 
UC8SL. 
UCBSL. 
UCBSL. 
UCBSL, 
UCBSL. 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL, 
UL3SL, 
UCBSL, 
UCBSL, 
UCBSL, 
UCBSL 
UCBST 
UCBSV 

ucesw 

UCBSW 
UC8SW 
U03SW 
UCBSW 
UCBSW 

ucasw 

UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 



DUETIM 

DX.BFPNT 

DX.8UF 

DX RXD8 

EMB 

FIRST 

FPC 

FQBL 

FQFL 

FR3 

FR4 

I0QBL 

I00FL 

IRP 

LINK 

LOGADR 

MAXBLOCK 

M8.MBX 

'MB PORT 

;mb.rast 

M8.SHB 

MB WAST 
M8.WI0QBL 
MB W J OOF I 
MEBIA 

nt.datssb 
nt jntssb 
'opUnt 

"OWNUIC 

PID 

.RQBl 

k RQFL 

SVAPTR 

;svpn 

TT DECHAR 
'TrRDUE 
TT RTIMOU 

;vc^ 

PAhTNER 

;int 

,£CNT 

SCR 

BOFF 
,BUFQUO 

BYTES '"0 

CHAMJt 
.CVUN'«it*< 
-DA 
JC 

.DEVBu ..i 
.DEVST * 
IDIRSEQ 
.DSTADDH 
J)X BCR 
^ECT 

:ec2 

ERRCNT 



0000005C 
0000009C 
00000098 
OOOOOOAO 
00000078 
OOOOOOH 
OOOOOOOC 
00000004 
00000000 
00000010 
OOOOOOH 
00000044 
00000040 
0000004 C 
0U00002C 
00000064 
00000084 
0000007C 
0000008C 
00000078 
00000080 
00000074 

00000088 
0000008A 
0000008C 
00000074 
00000078 
00000060 
OGuOOOK 
00000028 
00000004 
00000000 
00000068 
00000064 
000000A8 
000Q008C 
00000QB8 
00000030 
OOOOOOOC 
00000001 
0000006E 
00000096 
000Q0Q6C 
00000018 
000OQ03E 
0000004A 

090Q995 E 

0000008C 

mm 

0000005A 
00000088 
O0QQQ018 
000O0OA4 
00000090 
00000092 
00000072 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 



77-ENSAA-7.0 
MBAINT 

Symbol table 



UCBSW. 

UCBSW. 

UC8SW 

UCBSW. 

UCBSW 

UC8SW 

UC8SW. 

UCBSW 

UCBSW 

UCBSW. 

UCBSW 

uCBSw 

UCBSW. 



FUNC 
'MB SEED 
MSGCNT 
MSGMAX 
NT CHAN 

;oftset 

REFC 
SIZE 
SRCADOR 

;sts 

tt desize 

\jnTt 

VPROT 



Symbol table 



0000007E D 

00000000 D 

00000016 D 

0000Q0K D 

0000007C D 

0000008A 

00000050 D 

00000008 D 

0000001 A D 

00000058 D 

000000A5 D 

00000048 d 

0000001 A D 



- MASS8US ADAPTER INTERRUPT 
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PSECT name 

. ABS . 
SEP 

SABSS 



Allocation 

00000000 ( 
00000084 ( 

0000008C < 



! Psect synopsis 1 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 
180.) 01 ( U NOPIC USR 
188.) 02 ( 2J NOPIC USR 



CON 


ABS 


LCL NOSHR 


NOEXE 


NORD 


NOWRT 


rtQVEC 


BYTE 


rON 


REL 


LCL SHR 


E^E 


RD 


WRT 


NOVEC 


LONG 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 



7Z-ENSAA-7.0 
MBAINT 
ross reference 



Cross reference 



- MASSBUS ADAPTER INTERRUPT 



C 3 
27-JUL-1984 Fiche 10 

DISPATCHER 27-JUL-1984 15:31:46 
3-MAR-1981 10:31:30 



Frame C3 Seguence 1882 

VAX-11 Macro V03-0T Page 8 

DMA1 :CSYS0.SYSMAINT]M8AINT,MAR;9 (1 ) 



Symbo 



SYMBOL 
ADP$W TR 

bugscReck 

DDB$L„DDT 

DDTSL UNSOLINT 

IDBSLlADP 

IDB$L„CSR 

IDB$L ..OWNER 

IDB$LJJCBLST 

MBA$INITIAL 

MBASINT 

MBA$L_AS 

MBA$L„CR 

MBASL CSR 

MBASL^DR 

MBASL SR 

MBA$M CR IE 

MBA$M~CRllNIT 

mbasm sr cbhung 
ucbsb^slKve 

UCB$L„DDB 
UfBSL.FPC 
UCB$L,FR3 
UCB$V INT 

UCB$W"STS 



VALUE 

OOOOOOOC 
00000000-XR 

oooooooc 

00000004 

00000010 

00000000 

00000004 

0000GQ14 

OOOOOOAB-R 

00000000-R 

=00000410 

=00000004 

=00000000 

=00000014 

=00000008 

=00000004 

=00000001 

=00800000 

00000074 

00000024 

oooooooc 

00000010 

=00000001 
00000058 



DEFINITION 



163 
93 



(1) 



REFEREN 



#-145 
147 
#-123 
#-124 
#-144 
#-103 
#-140 
#-112 



#-105 

#-169 

#-142 

#-143 

#-104 

#-170 

#-169 

#-96 

#-100 

#-122 

120 
#-119 
#-101 

101 



Cross Reference ! 



ES... 



#-95 
#-98 



#-115 

#-170 



#-141 



(1) 
(1) 



(1) 

(1) 



(1) 



#-96 



(1) 



#-118 
118 



(1) 
(1) 
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Cross reference 



- MASSBUS ADAPTER INTERRUPT 



D 3 . 

27-JUL-1984 Fiche 10 

DISPATCHER 27-JUL-1984 15:31:46 

3-MAR-1981 10:31:30 



1 



Frame D3 Sequence 1883 
VAX-11 Macro V03-01 Page 9 
OMA1:CSYSO,SYSMAINT3MBAINT.MAR;9 (1) 



+ — — — + 

! Macros Cross Reference ! 
+ ..... .———..+ 

MACRO SIZE DEFINITION REFERENCES... 

SAOPDEF 2 56 (1) 56 (1) 

tDDBDEF 1 5? (1) 57 (1) 

ffiRK I H ili | j]j 57 (1) 58 (1) 59 (1) 60 (1) 

SIDBDEF 1 60 (1) 60 (1) 

SMBADEF 5 59 (1) 59 (1) 

SUCBDEF 10 61 (1) 61 (1) 

BUG.CHECK 1 147 (1) H7 (1) 

+_— — ----- + 

! Performance indicators ! 
+ + 

Phase Page faults CPU Time Elapsed Time 

Initialization 31 00:00:00,10 00:00:00.33 

Command processing 139 00:00:00.81 00:00:01.61 

Pass 1 326 00:00:06.25 00:00:07.69 

SymboL table sort 00:00:00.42 00:00:00.43 

Pass 2 62 00:00:00.90 00:00:01.22 

Symbol table output 8 00:00:00.11 00:00:00.15 

Psect synopsis output 7 00:00:00.03 °2 : 29 : 89-9? 

Cross-reference output 13 00:00:00.13 00:00:00.14 

Assembler run totals 590 00:00:08.76 00:00:11.60 

The working set limit was 1000 pages. 

25474 bytes (50 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 328 non-local and 6 local symbols. 

173 source lines were read in Pass 1, producing object records in Pass 2. 

41 pages of virtual memory were used to define 16 macros. 

+ _..*. — + 

! Macro library statistics ! 
4 — — - — + 

Macro library name Macros defined 

DMA1:CSYS0.SYSMAINT]DS.MLB;218 1 

DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 5 

SYS$SYSR00T:CSYSLI8]LIB.MLB;1 1 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 5 

TOTALS (all libraries) 12 

590 GETS were required to define 12 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LIST=CDS,LIS]/CR0SS/ENABLE= (DEBUG , TRACE) MBAINT/UPDA=(MBAINT.UPD,MBAINT.ENH)+SYS$UBRARY:IIB/LIBRARY*DMA1 uSYSO.SYSMi 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



*** MCHK730 machine check formatter 
*** MCHK730 machine check formatter 



27-Jul-1984 Fiche 10 Frame E3 Sequence 1884 
27-JuM984 16:03:44 VAX-11 Bliss-32 V4.0-7« A ^ Page 
26-Jul-1984 09:40:42 DMA1 :CSYS0.SYCMAINT]MCHK730.832;62 



i 



1 
(1) 



%ti tie '*** MCHK730 machine check formatter' 

module mchk730 ( ! Machine check formatter for NEBULA 

ident = ■ 06-07 ■ 

) = 

COPYRIGHT (c) 1979, 1981, 1983 __ Aii , rj 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SH*' L AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

+ + 
FACILITY: 

DIAGNOSTIC SUPERVISOR 

ABSTRACT: 

Provide for the formatting of NEBULA Machine check Logout, 

AUTHOR: 

Roger Riggs, CREATION DATE: 20-AUG-1979 



MODIFIED BY: 
02 



03 

04 
05 
06 

07 



- Roqer Ri 



20-Jun-1980 



- Roger Riggs, ^u-Jun-iyou 
Modified CHRSMCHK parameters from EXCEPT and updated 

to reflect change in the machine check logout for NEBULA, 

- Dave Butenhof, 19-Nov-1980, version 6.2 

Correct signal vector offsets to skip signal vector length 
and exception code (DSS.MCHK) instead of printing them 
as part of logout. 

- Dave Butenhof, 28-Apr-1981 , version 6.4 

Change messages to mixed case, correct spelling errors. 

- Dave Butenhof, Q2-Jun-1981, version 6.4 
Change library specification for flexibility 

- Jack Stansbury, 24-Mar-1982, Version 6.? 

Added Library statements for Lib and $DS. Also added typecoding. 

Bob Bergazzi May 17, 1983 Version 6.11 
Changed the order of searching libraries. 
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0058 

0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 



*** MCHK730 machine check formatter 
*** MCHK730 machine check formatter 
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begin 

TABLE OF CONTENTS: 



linkage 

quick = jsb; 

forward routine 

chrlmchk : novalue; 

forward routine 

dsr$fauLt.c lear : quick novalue; 



INCLUDE FILES: 
Library 'SDiag'; 

Library »$DS'; 

Library • Sys$Library:Lib' ; 



! FORMATTER FOR MACHINE LOGOUT 



! RESET MACHINE CHECK 



C07D 
1.07] 
C073 



MACROS 



$DS_TypeDef; 



EXTERNAL REFERENCES: 



! Define typecodes 



C06D 



external 
Apslmne 
Modelst 
DS$G8 TypeCode 



PSECT DEFINITIONS: 



Addressing Mode (Long. Relative) , 

Addressing^Mode (Long.Relative) , 

Byte AddressinglMode (Long. Relative); 



PSL MNEMONICS 

PROCESSOR MODE DECODE LIST 

The typecode number byte 



L06D 



psect 

plit = data ( share, addressingjnode ( long.relat we)) ; 

psect 

code = code ( read, execute, share); 
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; 0109 


1 


; 0110 


1 


; 0111 


1 


; 0112 


1 


; 0113 


1 


; 01 H 


1 


0115 


1 


; 0116 


1 


0117 


1 


; 0118 


1 


; 0119 


1 


; 0120 


1 


; 0121 


1 


; 0122 


1 


; 0123 


1 


; 0124 


1 


; 0125 


1 


; 0126 


1 


0127 


1 


; 0128 


1 


; 0129 


1 


; 0130 


1 


; 0131 


1 


; 0132 


1 


; 0133 


1 


; 0134 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 0138 


1 


0139 


1 


; OHO 


1 


0141 


1 


; 0142 


1 


; 0143 


1 


0144 


1 


0145 


1 


; 0146 


1 


0147 


1 


0H8 


1 


; 01.9 


1 
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*** MCHK730 machine check formatter 

CHKSMCHK 



T~3 l 

27-JuL-1984 Fiche 10 Frame 63 Sequence 1886 

27-JuM984 16:03:44 VAX-11 Bliss-32 V4, 0-742 ; Page 3 

26-Jul-1984 09:40:42 DMA1 :CSYS0.SYSMAINTJMCHK730.B32;62 (2) 



%sbttl "CHKSMCHK 1 

global routine chr$mchk (signal, hdrprint, txtprint) 



novalue = 



+ + 



FUNCTIONAL DESCRIPTION: 



Using the Machine logout information on the stack 

and the type code format each longword of the lopjut area. 

FORMAL PRAMETERS: 

SIGNAL: Address of signal array for machine check 
HDRPRINT: Address of print routine to print hdr's 
TXTPRINT: Address of print routine to print text 

Signal array is 

CONDITION Value DS$ MCHK 

COUNT Bytes pushed by machine check 

type Type code of machine check 

P1 1st parameter 

P2 2nd parameter 

PC PC of machine check 

PSL PSL at time of machine check 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

N/A (No value is returned) 
SIDE EFFECTS: 

The machine check error status is cleared 
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; 0150 


2 


; 0151 


2 


; 0152 


2 


; 0153 


2 


; 0154 


2 


; 0155 


2 


; 0156 


2 


; 0157 


2 


; 0158 


2 


; 0159 


2 


; 0160 


2 


; 0161 


2 


; 0162 


2 


; 0163 


2 


; 0164 


2 


; 0165 


2 


0166 


2 


; 0167 


2 


; 0168 


2 


; 0169 


2 


; 0170 


2 


; 0171 


2 


; 0172 


2 


; 0173 


2 


; 01 74 


2 


0175 


2 


; 0176 


2 


; 0177 


2 


; 0178 


2 


; 01 79 


2 


; 0180 


2 


; 0181 


2 


; 0182 


2 


; 0183 


2 


01 84 


2 


; 0185 


2 


; 0186 


2 


; 0187 


2 


; 0188 


2 


; 0189 


2 


; 0190 


2 


0191 


2 


; 0192 


2 


; 0193 


2 


0194 


2 


0195 


2 


; 0196 


2 


0197 


2 


; 0198 


2 


0199 


2 


; 0200 


2 


; 0201 


2 


; 0202 


2 


; 0203 


2 


; 0204 


2 


; 0205 


2 


; 0206 


2 
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check formatter 



H 3 

27-JuM984 
27-Jul-1984 
26-Jul-1984 



Fiche 10 Frame H3 



Sequence 1837 
16:03:44' " 'VAX-11 Bliss-32 V4.0-7« A „ , n Pagi 4 
09:40:42 DMA 1 , :[SYS0.SYSMAINT]MCHK730.B32;62 (3) 



begin 



bind 



t mchk = Sascic 
t"count = Sascic 
t"type = Sascic. 
t'va = Sascic ( 
t~phy = Sascic 
t~tb = Sascic (' 
t_pte = Sascic ( 
tjncsr = Sascic 
t""int = Sascic ( 
tj)1 = Sascic (' 
02 = Sascic (' 
t„sub = Sascic ( 
t,ecc = Sascic ( 
Oow = Sascic ( 
t~unknown = Sasc 
list. type = upli 



('!/!/?? Machine check exception through vector: 04(X)!/'>, 
('count:!.! ' !XL(X)!/'), % ! 

('Machine checE type: > !XL<X> !_; !AC!/'>, ! 
•Virtual address: !.!XL<50 !/') , 
(•Physical address: IJXL (X) !/") , 



TB entry:! JJXKX)?/') f 
•PTE address:!. !.!XL(X)!/ 
(•Memory CSR: !_! 'XL(X) ! /' ) , 
'Interrupt identTf ier: ! 'XL(X) !/ 
Error parameter 1 : !.!XLTX) !/') , 
Error parameter 2: ! !XL (X) !/ ' ) , 
•Subtype:!^!, ! 'XL(K)!/'), 
'PFN/Syndrome:? ! iXL(X)!/') f 
•FPA row number! TJXL(X)!/*), 
ic ('Unknown machine check type*). 



t long( 
SascicCmicro 



code should not be here') 



SascicCtranslation buffer parity errur*) 
Sascic ('undefined interrupt. identifier*). 



Sascic ('illegal memory 
icicCfast interrupt 



Sasi 
SascicCFH-A 



oarity error') 



C$R'>, 
without 



support'), 



Sascic ('error on SPTE read 1 ), ! 
SascicCuncorrectable ECC error 1 ) 



Sascic ( 'reference 
SascicCunaligned 



to 
or 



non-existant memory';, : 

non-longword ref to J/0 space')* 

Sascic (ML Legal I/O space address'), ! 

SascicCillegal UNJBUS reference 1 ), ■ 



ega 

t^unknown, 

t^unknown, 

t unknown, 

•Tl legal UNIBUS 

t. unknown, 

t~unknown, 

t~unknown f 

t~unknown) 



reference' , 



vector [, long], 
list p1 = uplit long(t^sub, t_va, t.int, t^va, 

t.pr,t row,t„,phy,t.,ecc, 
tj>hy,t.phy,t T phy,tj>hy, 
t_p1 * t_row, t^phy, t_ecc, 
t.phy, t.phy, t phy, t phy, 
t.pl, t d1, t oT, t DlT : vector 
List.p? = uplit long(tj>2, tJEb, tj>2# tjncsr, 

t.p2, t„p2, tjncsr, tp2, 
t_p2,t p2,t_p2,t w p2, 
t_p2, t.p2, t.mcsr, t_p2, ^ 
t.p2, tj>2, t_p2 c t.p2, tj>2, 
t„p2, t.p2, t_p2) : vector [, long]; 



r 
t $ 



long], 



local 

index, 
buffer 

map 



vector [128, byte]; 



[04J 
C04] 
[04] 
[04] 
LQ4] 
[04] 
[04] 
C04J 
[04.1 
[04] 
C04] 
[04.1 
[04] 
[04] 
[04] 

[04] 
[04] 
[04] 
[04] 
[04] 
TOO 
C04] 
[04] 
[04] 
[041 
[04] 
[04] 



[04] 
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0207 
0208 
0209 
0210 
0211 
0212 
0213 
021A 
0215 
0216 
0217 
0218 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 
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CHKSMCHK 

signal : ret vector C, Long]; 



I 3 
27-Jul-1984 
27-Jul-198A 
26-Jul-198A 



Fiche 10 Frame 13 Sequence 1888 
16:03:AA VAX-11 Bliss-32 V4.0-7A2_ _ _ 
09:A0:A2 DMA1 :CSYS0.SYSMAINTDMCHK730.B32;62 



Page 



5 
(3) 



exception header message 
exception text messages 



DS$6B TypeCode = DS$K JypeJxception. - Head; ! Print the 

(.hdrprint) (t mchk); 

DS$GB TypeCode"= DS$K,Type^Exceotion; ! Print the 

(.txtprint) (t„count, .signal [2D); , 

index * (if .signal [3D gtr 13 then 2 else .signal [3D); 

(.txtprint) (t type, .signal [3D, .list, type C.indexD); 

(.txtprint) (.list p1 [.indexD, .signal CAD); 

(.txtprint) (.list„p2 [.indexD, .signal C5D); 

DSSGB.TypeCode = 0; ! Clear out the typecode byte 

end; 



f06D 
fu6D 



L06D 



65 6E 69 68 63 61 AD 

6F 69 74 70 65 63 78 

20 68 

2F 21 29 58 28 34 30 

58 21 5F 21 5F 21 5F 

20 6B 63 65 68 63 20 

5F 21 29 58 28 AC 58 



73 65 

65 72 

21 5F 

5F 21 

21 5F 

6E 65 

29 58 

65 7A 

2f 

65 7A 

2F 

5F 21 

21 3A 

72 65 

6E 69 

6F 68 

65 72 

75 62 

72 72 



72 6A 6A 
2^ 21 

6A 6A 61 

2F 21 29 

21 5F 21 

3A 73 73 

21 3A 52 

6A 69 20 

28 AC 58 

65 60 61 

21 29 58 

65 6D 61 

21 29 58 

5F 21 5F 

65 6D 6F 

2^ 

62 6D 75 

2f 21 

68 63 61 

65 70 

73 20 65 
65 68 20 
20 6E 6F 
65 20 79 



61 20 

29 58 

20 6C 
58 28 
3A 79 

65 72 

2F 21 

53 A3 

2F 

7A 70 

21 5F 

72 61 

28 AC 

72 61 

28 AC 
21 3A 

72 6A 

21 29 

6E 20 

29 58 
6D 20 
79 7A 
6A 6F 
65 62 
69 7 A 

7A 69 



20 3F 

65 20 

67 75 

20 3A 

21 3A 

65 6E 

21 5F 

2F 

6C 61 

28 AC 
61 63 
AC 58 
72 7A 

2F 

6A 6A 

29 58 

20 79 

21 29 
75 72 
21 3A 

70 20 

58 21 

70 20 

58 21 

65 70 

2f 21 

6E 79 

58 28 

77 6F 

28 AC 

6E 77 

20 68 

63 20 

20 7A 

61 6C 

72 61 



3F 2r 

6B 63 

6F 7? 

72 6F 

7A 6E 

2F 21 

69 68 

21 3A 

21 A3 

75 7A 

58 21 

69 73 
21 5F 
6E 65 
21 29 
61 20 

28 AC 
72 6F 
58 28 
72 65 
72 65 

72 6F 

5F 21 

72 6F 

5F 21 

79 7A 

29 58 
53 2F 
AC 58 

72 20 
58 21 
6F 6E 
63 65 
6F 72 
6F 6E 

73 6E 

70 20 



21 


2F 


21 


36 


65 


68 


63 


20 


68 


74 


20 


6E 


74 


63 


65 


76 


75 


6F 


63 


14 


29 


58 


28 


4C 


63 


61 


4t> 


24 


65 


70 


79 


74 


41 


21 


20 


3B 


72 


69 


56 


1A 


5F 


21 


3A 


73 


79 


68 


50 


1B 


21 


3A 


73 


71 


20 


42 


54 


15 


58 


28 


4C 


58 


45 


54 


50 


18 


58 


21 


5F 


21 


6D 


65 


4D 


17 


4C 


58 


21 


5F 


74 


6E 


49 


1F 


69 


66 


69 


74 






2F 


21 


72 


72 


4b 


1C 


3A 


31 


20 


72 


72 


72 


45 


1C 


3A 


32 


20 


72 


62 


75 


53 


16 


28 


4C 


58 


21 


4E 


46 


50 


19 


21 


5F 


21 


5F 


41 


50 


46 


1A 


5F 


21 


5F 


21 


6B 


6E 


55 


1A 


68 


63 


20 


65 


63 


69 


6D 


1D 


20 


64 


6C 


75 


61 


72 


74 


1F 


72 


65 


66 


66 



00000 

0000F 

0001E 

00028 

00037 

000A6 

000AC 

0005B 

0006A 

00071 

00080 

0008C 

0009B 

00QA8 

000B7 

O00BE 

000CD 

000P7 

000E6 

000EF 

000FE 

001QD 

0Q10F 

0011E 

0012C 

QQ13B 

00149 

00158 

00160 

0Q16F 

0017A 

00189 

00195 

001AA 

001B0 

001BF 

001CE 

001D0 



.TITLE MCHK730 *** MCHK730 machine check formatter 

.IDENT \06-07\ 

.PSECT DATA,N0WRT,N0EXE, SHR,2 

P. AAA? .ASCII \6!/!/?? Machine check exception through \ 

.ASCII \vector: 0A(X)!/\ 

P.AAB: .ASCII <20>\count: !„! JJXLCX) !A 

P.AAC: .ASCII \$Machine check type:!. !XL(X)!„,; !AC!A 

P.AAD: .ASCII <26>\Virtual address: iJXL(X) !/\ 

P.AAE: .ASCII <27>\Physical address: !JXL(X) !/\ 

P.AAF: .ASCII <21>\TB entry: !JJXL(X) !/\ 

P.AAG: .ASCII <24>\PTE address: !J_!XKX) !/\ 

P.AAH: .ASCII <23>\Memory CSR: IJJXLCX) :/\ 

P.AAJ: .ASCII <31>\Interrupt Identifier: !_!XL(X) !A 

P.AAJ: .ASCII <28>\Error parameter 1:!JXL(X)!A 

P.AAK: .ASCII <28>\Error parameter 2: JJXLCX) !A 

P.AAL: .ASCII <22>\Subtype :!_!.!_! XL (X) I A 

P.AAM: .ASCII <25>\PFN/Syndromo: IJJXL (X) !A 

P.AAN: .ASCII <26>\FPA row number »_<_! XL (X) !A 

P.AAO.' .ASCII <26>\Unknown machine ** :k type\ 

P.AAQ: .ASCII <29>\mkro code should not be here\ 

P.AAR: .ASCii <31>\translation butter parity error\ 



21- 


ENSAA-7. 





CHKSMCHK 


















MCHK730 






* ** 


MCHK730 


machine 


che 


ck formatter 






06- 


07 






CHKSHCHK 












































72 


6F 


65 


7k 


6E 


69 


20 


64 


65 


6E 


69 


66 


65 


64 


6E 


75 


1E 


65 


69 


66 


69 


74 


6E 


65 


64 


69 


20 


?'« 


70 


75 


72 


72 
72 
12 


79 


72 


6F 


6D 


65 


6D 


20 


6C 


61 


67 


65 


6C 


6C 


69 
























52 


53 


43 


20 


74 


70 


75 


72 


72 


65 


74 


6E 


69 


20 


74 


73 


61 


66 


1E 


72 


6F 


70 


70 


75 


73 


20 


74 


75 


6F 


68 


74 


69 


77 


20 
74 
10 
6F 
12 


72 


72 


65 


20 


79 


74 


69 


72 


61 


70 


20 


41 


50 


46 
72 
65 


20 


45 


54 


50 


53 


20 


6E 


6F 


20 


72 


6F 


72 


72 
























64 


61 


65 


72 


20 


65 


6C 


62 


61 


74 


63 


65 


72 


72 


6F 


63 


6E 


75 


17 














72 


6F 


72 


71 


65 


20 


43 


43 


45 


6E 


20 


6* 


74 


20 


65 


63 


6E 


65 


72 


65 


66 


65 


72 


20 


6D 


65 


6D 


20 


74 


6E 


61 


74 


73 


69 


78 


65 


2D 
79 


6E 
72 


6F 
6F 


6E 


20 


72 


6F 


20 


64 


65 


6E 


67 


69 


6C 


61 


6E 


75 


2A 


66 


65 


72 


20 


64 


72 


6F 


77 


67 


6E 


6F 


6C 


2D 


6E 


6F 












70 


73 


20 


4F 


2F 


49 


20 


6F 

65 


74 
63 


20 
61 


70 


73 


20 


4F 


2F 


49 


20 


6C 


61 


67 


65 


6C 


6C 


69 


19 










73 


73 


65 


72 


64 


64 


61 


20 


65 


63 


61 


53 


55 


42 


49 


4E 


55 


20 


6C 


61 


67 


65 


6C 


6C 


69 


18 












65 


63 


6E 


65 


72 


65 


66 


65 


72 


20 



27-Jul-1984 Fiche 10 Frame J3 ^ Sequ^c; 1889 
27-Jul-1984 16:03:44 VAX-11 Bliss-32 V4.0-742_ yo Page 
26-Jul-1984 09:40:42 DMA1 :C$YS0.$YSMAINT]MCHK73O,BJ,*;62 



'"1 

.■ 

! 

6^ 

(3) i 



00000000* 00000000* 00000000* 00000000' 00000000 ' 00000000' 

00000000' 00000000' 00000000' 00000000' 00000000' oooooooo ; 

00000000' 00000000' 00000000' 

20 53 55 42 49 4E 55 20 6C 61 67 65 6C 6C 69 

65 63 6E 65 72 65 66 65 72 

00000000' 00000000' 00000000 1 OOOOOOOO' 



OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO ' 
OOOOOOOO* 
OOOOOOOO' 



OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 



OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 



OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 



OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO 1 
OOOOOOOO' 
OOOOOOOO* 
OOOOOOOO' 



OOOOOOOO* 
OOOOOOOO * 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 
OOOOOOOO' 



001EC 

001EE P.AAS: 

001FD 

0020C 

0020D P.AAT: 

0021 C 

00220 P.AAU: 

0022F 

0023E 

0023F P. AAV: 

0024E 

00250 P.AAW: 

0025F 

00263 P.AAX: 

00272 

0027B P.AAY: 

0028A 

00299 

0029C P.AAZ: 

002AB 

002BA 

002C4 

002C7 P. ABA: 

*02D6 

,02E1 P. ABB: 

002F0 

002FA 

002FC P.AAP: 

00314 

0032C 

00338 

00347 

00350 

00360 P. ABC: 

00378 

00390 

003A8 

003C0 P.ABD: 

003D8 



003F0 
00408 



.ASCII <20>\undefined interrupt i'dentif'er\ 

.ASCII <18>\Ulegal memory CSP\ 

.ASCII <30>\fast interrupt without supp^rtV 

.ASCII <16>\FPA parity error\ 

.ASCII <18>\error on SPTE read\ 

.ASCII <?3>\uncorrectable ECC error\ 

.ASCII \ reference to non-existaot memory \ 

.ASCII \*unaLigned or non-longword ref to'J.'O sp\ 

.ASCII \ace\ 

.ASCII <25>\U legal I/O space addressV 

.ASCII <24>\illegal UNIBUS reference\ 

.8LKB 2 

.ADDRESS P.AAQ, P.AAR, P.AAS, P.AAT, P.AAU, - 

P.AAV, P.AAW, P.AAX, P.AAY, W.AAZ, P. ABA, - 
P. ABB, T UNKNOWN, T^UNKNOWN, ^UNKNOWN 

.ASCII \UlegaruNIBUS reference\ 

.ADDRESS T UNKNOWN, TJJNKNOWN, TJJNKNOWN, - 
T DNKNOWN 

.ADDRESS T SUB, T VA, TJNT, TJ/A, T P1 , T^ROW, - 

Tj*HY, T ECC, TPHY, T PHY, T PHY, T PHY, - 
TIP1, T ROW, T PHY, TjCC, T PHY, T PHY, - 
T PHY, Tj>HY, T P1, T P1, T P1 X T PT 

.ADDRESS T P2, T T8, T P2, T RCSR, T P2, T P2, - 
T^CSR, T P2, T P2, Tj>2, T,P2, T_P2, - 
TlP2, TJ>2, TJtfSR, T P2, T P2, T P2, - 
TlP2, T.P2, T,P2, TJ>2, T_P2, T.P2 

T MCHK= P. AAA 

T COUNT* P.AAB 

T~TYPE= P.AAC 

T~VA= P.AAD 

T"PHY= P.AAE 

T'TBs P.AAF 

T"PTE= P.AA6 

T~MCSR= P.AAH 

ONT= P.AAI 

T"P1= P.AAJ 

T"P2= P.AAK 

t~sub= p.aal 

t *ecc= p.aam 

Trow- p.aan 



Z2-ENSAA-7.0 

MCHK730 

06-07 



CHKSMCHK 
*** MCHK73Q 
CHK$MCHK 



machine check formatter 



08 



0C 



OC 
OC 
OC 



55 OOOOOOOOG 

54 00000000 • 
5E 80 
65 



BC 
65 
53 



BC 
OD 

52 

52 



BC 
BC 
BC 



04 

08 
37 

OC 



OC 

OSfC 

OC 

AC 

10 
0360 

14 

03C0 



003C 

t'F 9E 

EF 9E 

AE 9E 

06 90 

54 DD 

01 FB 
OC 90 
AC DO 
A3 DD 
A4 9F 

02 F8 
A3 D1 
05 15 

02 DO 
04 11 
A3 DO 

C442 DD 

A3 DD 

A4 9F 

03 FB 
A3 DD 

C442 DD 

02 F8 

A3 DD 

C442 DD 

0? FB 

65 94 

04 



K 3 
27-Jul-1984 
27-Jul-1984 
26-Jul~1984 



Fiche 10 Frame K3 



Sequence 1890 
16:03:44 ' VAX-11 Btiss-32 V4, 0-742 Page 7 

09:40:42 DMA1 *CSYS0.SYSMAINfJMCHK730.B32;62 (3) 



T UNKNOWN= 

LlSTJYPE = 

LIST_P1= 

LISTJtf* 

.EXTRN 
.EXTRN 



00000 
00002 
00009 
00010 
00014 
00017 
00019 
0001D 
00020 
00024 
00027 
0002A 
0002E 
00032 
00034 
00037 
00039 
0003D 
00042 
00045 
00048 
0004C 
0004 F 
00054 
00058 

0005B 
0006O 
00064 
00066 



1$: 
2$: 



P.AAO 

P.AAP 

P.ABC 

P.ABD 
APSLMNE, MODELST 
DSS6B TYPECODE 



.PSECT CODE,NOWRT, SHR,2 



.ENTRY 

MOVAB 

MOVAB 

MOVAB 

MOVB 

PUSHL 

lALLS 

MOVB 

MOVL 

PUSHL 

PUSHA8 

CALLS 

CMPL 

8LE0 

MOVL 

BRB 

MOVL 

PUSHL 

PUSHL 

PUSHAB 

CALLS 

PUSHL 

PUSHL 

CALLS 

PUSHL 

PUSHL 

CALLS 

CLRB 

RET 



CHRSMCHK, Save R2,R3,R4,R5 

DSSG8 TYPECODE, R5 

T MCHR, R4 

-T28<SP>, SP 

#11, DSSGB.TYPECODE 

R4 

*1- 3HDRPRINT 

#12, DS$GB„TYPECODE 

SIGNAL, R3 

8(R3) 

T COUNT 

#t. 9TXTPRINT 

12(R3), #13 

1$ 

#2, INDEX 



?$ 



12(R3), INDEX 
LIST TYPECINDEX;] 

120*3) 
T TYPE 
#3, 3TXTPR1NT 

16(R3) 

LIST P1 [INDEX] 

#2, 5TXTPRINT 

20(R3) 

LIST P2CINDEX3 

#2- 5TXTPRINT 

DS$Gfi_TYPECODF. 



0111 



0209 
0210 

0211 
0212 



0213 

0214 

0215 

0216 



0217 
0218 



Routine Si^e: 103 bytes, Routine Base: CODE + 0000 



0219 1 



ZZ~ENSAA-?,0 

MCHK730 

06-07 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

022? 

0228 

0229 

023G 

0231 

02^ 

0233 

0234 

0235 

0236 

0237 

0238 
0239 
0240 
0241 
0242 
0245 
0244 
0245 
0246 
0247 
0248 
0249 



DSRSFAULT CLEAR 

*** MCHK730 machine check formatter 

DSRSFAULLCLEAR 

Xsbttl 'DSRSFAULT. CLEAR 1 

global routine dsr$fault_c tear : quick novalue = 

FUNCTIONAL DESCRIPTION: 

This routine is called to clear the processor dependent 
error status. 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

NONc 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

Machine check status is cleared 



27-Jul-1984 Fiche 10 Frame L3 Sequence 1891 
27-Jul-1984 16:03:44 VAX-11 BUss-32 V4. 0-/42 ^ _ Page 8 
26-JuM984 09:40:42 DMA1 :CSYS0.SYSMAINT]MCHK730.B32;62 (4) 



ZZ-ENSAA- 


7,0 


MCHK730 




t'6-07 




; 0250 


1 


; 0251 


2 


; 0252 


2 


; 0253 


2 


; 0254 


? 


; 0255 


2 


; 0256 


2 


; 0257 


2 


; 0258 


2 


; 0259 


2 


; 0260 


1 



DSRSFAULT CLEAR 

*** MCKK730 machine check formatter 

DSRSFAULT^CLEAR 



begin 

literal 

pr$jncesr = Xx'26'; 

built in 
mtpr; 

mtpr i%ref (0) , pr$_mcesr); 
end; 



M 3 
27-Jul-1984 Fiche 10 Frame M3 Sequence 1892 

?7-JuM984 16:03:4A VAX-11 BUss-32 V4. 0-742^ Page 

26-Jul-1984 09:40:42 DMA! :CSYS0.SYSMAJNT3«CHK73O*B32;62 



9 
(5) 



26 



00 DA 00000 DSRSFAULT CLEAR:; 

MTPR #0, #38 
05 00003 RSB 



; 0259 
; 0260 



; Routine Size; 4 bytes. Routine Base; CODE + 0067 



0261 


1 




0262 


1 


end 


0263 


1 




026A 





eludom 



PSECT SUMMARY 



Name 



8ytes 



DAM 
CODE 



1056 NOVECNOWRT, 
107 N0VECN0WRT, 



Attributes 

RD ,N0EXE, SHR, 
RD , EXE, SHR, 



LCI, 
LCL, 



REL, 
REL, 



C0N,N0PIC,ALIGN(2> 
C0N,N0PJC,AL1GN(2> 



L fbrary Statistics 



File 

DRB1:CDS.WORKJDIAG.l32;265 
DRB1;CDS,WORK3DS.i 32; 1 59 

SVS$SYSR00T:[SVSLJB]IIB.L32;7 



Total 

784 

653 

1801 ^ 



Symbols 
Loaded 

2 


4 



Percent 



Pages 
Mapped 

85 
42 

975 



Processing 
Time 

00:00.1 
00:00,2 

00:04.8 



ZZ-ENSAA-7.0 

MCHK730 

06-07 



DSRSFAULT CLEAR 

*** MCHK730 machine check formatter 

DSRSFAULT CLEAR 



27-Jul-1984 Fiche 10 Frame N3 Sequence 1893 
27-Jut-1984 16:03:44 VAX-11 Bliss-32 V4. 0-742^ Page 10 
26-JuL-1984 09:40:42 DMA1 :£SYS0.SYSMAINT]MCHK730.B32;62 (5) 



COMMAND QUALIFIERS 
Bl I SS/NOOBjECT/lISTsCOS.L I SD/OPT IMIZE* (LEVEL: 3, SPACE )/Dt BUG/TRACE MCHK730 



S^e: 107 code ♦ 
R^n T ^e: 00:12.6 
E'apsed T*n»e: 00:27.1 
L ; nes/CPu Mir: 1254 
.exemes/CP'J-Min: 18579 
Memory j^ed: 97 pages 
Come 1 ' I at i on Complete 



1056 data bytes 



ZZ-ENSAA-7.0 


MEMALC 




•able of 


contents 


'2> 


'35 


<2» 


252 


i2> 


310 


(?) 


348 


(?i 


398 


(?) 


4K 


(?) 


A56 



*** MEMALC dynamic memory allocation 27-JUL-1984 F jche 10 Frame M Sequence 1894 

*** MEMALC dynamic memory allocation 27-JUL-1984 1 5 :33: 12 VAX-11 Macro V03-01 Page 

ALLOCATE MEMORY AND CONDITIONALLY WAIT 

ALLOCATE NONPAGED DYNAMIC MEMORY 

GtNERAL ALLOCATE MEMORY SUBROUTINE 

DEALLOCATE NONPAGED DYNAMIC MEMORY 

CHECK BLOCK PARAMETERS SUBROUTINE 

GENERAL DEALLOCATION SUBROUTINE , ., , Ti _ 

MEMPOOLSINIT ;USER MODE MEMORY I ALJZATJON 



L 



ZZ-ENSAA-7.0 

MEMALC 
17-06 



*** 



C 4 
MEMALC dynamic memory allocation 27-JUL-1984 F jche 10 

+** MEMALC dynamic memory allocation 27-JUL-1984 15:33:12 

1-AUG-1983 11:17:46 



Frame C4 Seguence 1895 
VAX-11 Macro V03-0T Page 1 
DMA1:[SYS0.SYSMAINTJMEMALC.MAR;31 (1) 



-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 
cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



1 

2 
3 

4 

5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4^ 
42 
43 
44 

.1 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.TITLE 
.IDENT 
.NLJST 



MEMALC 

/07-06/ 

CND 



*** MEMALC dynamic memory allocation 



* * 

* Copyright (c) 1977, 1982 * 

* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * 

* * 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

* OTHER PERSON. NO TITLE JO AND OWNERSHIP OP THE SOFTWARE IS HEREBY * 

* TRANSFERRED. * 

* * 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

* CORPORATION. * 

* * 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* * 
** ************** *******-******************************************%********** 

D. N. CUTLER 3-AUG-76 _ -#% ^ 

V0206 LMK0003 LEN KAWELL 02-NOV-1979 

ADD RESOURCE REPORTING TO SHARED MEMORY DEALLOCATION. 



01 
02 

03 
04 

05 
06 

VO205 



N. HOWGATE 20-FEB-78 VERSION 02 (ESSAA-4.00) . 

DIAGNOSTIC SUPERVISOR INTEGRATION 

Roger Riggs 05-Jul-78 (ESSAA-4,03) 

Removed RtMQUE/INSQUE instructions and made 

corresponding DSBINT/ENBINT macros execute only *f in S/A 

in EXE$ALONONPAGED/EXE$DEANONPAGED 

Roger Riggs 20-NOV-1979 

Removed L* from REF to DSSGLJ1EMSIZE 

Dave Butenhof 1b-may-1980, Version 5,4 

Create .UPD file to modify VMS V2.0 source to supervisor 

environment. 

- Jack Stansbury, 10-Nov-1981, Version 6.- 

Fixed truncation errors by replacing all W A with L A . 
Added .LIBRARY statements for $D1AG and $DS. 

- Dave Butenhof, 05-Feb-1982, version 6.6 

Make EXESGL SPLITADR global for access by SHOW MEKOkY, 
and add DS$GL_L00KASIDE to remember start of lookaside 
list (if any)7 

RIH0031 RICHARD I. HUSTVEDT 08-AUG-1979 

ADD ALLOCATE ROUTINE FOR JIB AND CHANGE USE OF LOOKASIDE 

LIST TO SATISFY IRP-SIZE AND SMALLER REQUESTS. 



ZZ-ENSAA-7.0 

MEMALC 

07-06 



D 4 

*** MEMALC dynamic memory allocation 27-JUL-1984 Fiche 10 Frame M IA „ s £9 uence 189 £ ? 

... Klrfc dyna.ic .e.ory allocation 27-JUL-1984 15:33:12 g|, ^crogl^^a.e (?) 

V0204 KDM0034 KATHLEEN D. MORSE 22-MAY-1979 
ADD ASSUMPTIONS FOR COMMON EVENT BLOCK SIZES. 

V0203 LMK0002 LEN KAWELL 18-MAY-1979 

ADDED DEALLOCATION OF "SPECIAL 11 TYPES OF NON-PAGED 
POOL BLOCKS. 



0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


6/ 


0000 


68 



V0202 
DYNAMIC MEMORY ALLOCATION 



LMK0001 LEN KAWELL 25-FEB-1979 

ADDED SHARED MEMORY POOL ALLOCATION/DEALLOCATION 



ZZ-ENSAA-7.0 

MEMALC 

07-06 



*** MEMALC dynamic memory allocation 

*** MEMALC dynamic memory 



E 4 

27-JUL-1984 Fiche 10 

allocation 27-JUL-1984 15:33:12 

1-AUG-1983 11:17:46 



Frame E4 Sequence 1897 
VAX-11 Macro V03-0T Page 3 
DMA1 :CSYS0.SYSMAINTJMEMALC.MAR;31 (2) 



0000 70 

0000 71 

0000 72 

0000 73 

0000 74 

0000 75 

0000 76 

0000 77 

0000 78 

0000 79 

0000 80 

0000 81 

0000 82 

0000 83 

C000 84 

0000 85 

0000 86 

0000 87 

0000 88 

0000 89 

0000 90 

0000 91 

0000 92 

0000 93 

0000 94 

0000 95 

0000 96 

0000 97 

0000 98 

0000 99 

0000 100 

0000 101 

0O0OOOOF 0000 102 

0000 103 

00000000 104 

0000 105 

0000 106 

0000 107 

0000 108 

0000 109 

0000 110 

0000 1 11 

0004 112 

0008 113 

OOOC 114 

0O0C 115 

OOOC 116 

0010 117 

0010 118 

0014 119 

0014 120 

0014 121 

0014 122 

0014 123 

00H 124 

0014 125 

0014 126 



0000000B 
00000000 
00000000 



00000000 
00000000 



; LIBRARYS 



.Library 
.LIBRARY 
.LIBRARY 



MACRO LIBRARY CALLS 



SDS DSADEF 

SCEBDEF 

SDYNDEF 

SIPLDEF 

SIRPDEF 

SJIBDEF 

SPCBDEF 

SPQBDEF 

SPRDEF 

SRSNDEF 

SSHBDEF 

SSHDDEF 

SSSDEF 

$TQEDEF 



/Sys$Library:Lib/ 

/$DS/ 

/$DIA6/ 



£052 
[05] 



;DEFINE BITS IN DSASGLJLAGS 
DEFINE COMMON EVENT BLOCKS 
DEFINE DATA STRUCTURE TYPE CODES 
DEFINE INTERRUPT PRIORITY LEVELS 
DEFINE IRP OFFSETS 
DEFINE JIB OFFSETS 
DEFINE PCB OFFSETS 
DEFINE PQB OFFSETS 
DEFINE PROCESSOR REGISTERS 
DEFINE RESOURCE WAIT NUMBERS 
DEFINE SHARED MEM CONTROL BLOCK 
DEFINE SHARED MEM DATAPAGE 
DEFINE SYSTEM STATUS VALUbS 
DEFINE TQE OFFSETS 



LOCAL SYMBOLS 

ALLOCATION GRANULARITY MASK 

MASK= A XF ;16 BYTE ALLOCATION GRANULARITY 

.PSECT WORK, NOSHR, NOEXE, WRT, LONG 
OWN 3T0RAGE 



00000014 '00000014' 



.ALIGN LONG 
EXE$GL_NONPAGED: 

.LONG 11 
.LONG 
.LONG 

EXESGLJPLITADR:: 

. L ONG 

DS$GL LOOKASIDE:: 

" .LONG 



I/O PACKET LOOK ASIDE LISTHEAD 



IOCSGLJRPFL:: 

.LONG IOCSGLJRPFL, IOCSGLJRPFL 



;DISABLE FORK I PL 

;ADDRESS OF FIRST FREE BLOCK 

;N0 BYTES IN BLOCK 

LOOKASIDE I/O PACKET LIST SPLIT ADDRESS 
ADDRESS OF LOWEST IRP 
Address of lookaside start 



^BACKWARD LINK 



ZZ-ENSAA-7,0 

MEMALC 
07-06 



F 4 

*** MEMALC dynamic memory allocation 27-JUL-1984 Fiche 10 Frame F 4 Seguence 1898 

.5. Wc dyn«ic .emery allocation 27-JUL-19J4 15:33:12 VAXHI^acro^O^^^^Page^ 



4 
(2) 





00000018 001 C 


127 




001 C 


128 




001 C 


129 




oooooooo 


130 




0000 


131 




0007 


132 


4F 4E 


4E 41 43 00' 0007 


135 


?0 54 


45 47 20 54 OOOD 




43 20 


45 45 52 46 0013 

45 52 4F 0019 

14 0007 





10C$GLJRP8L=10C$GLJRPFL+4 



TCGF 



.PSECT 
MODNAM 



DATA, SHR, 
MEMALC 



NOEXE, NOWRT, BYTE 



.ASCJC .CANNOT GET FREE CORE. 



ZZ-ENSAA-7,0 

MEMALC 

07-06 



6 4 

ALLOCATE MEMORY AND CONDITIONALLY WAIT 27-JUL-1984 *\l h %™ F C^ e 1 ^ MArro unx^™ * 189 PA fl . 

*** MEMALC dynamic memory allocation 27-JUL-1984 15:33:12 VAX-11 Macro V03-01 J.29f„ 
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.S8TTL ALLOCATE MEMORY AND CONDITIONALLY WAIT 
CODE SHR, EXE, NOWRT, BYTE 



EXESALLOCBUF - ALLOCATE BUFFERED I/O BUFFER AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE A BUFFERED I/O BUFFER. IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY 
ENTERED DEPENDING ON THE CURRENT PROCESS' RESOURCE WAIT MODE. 

EXESALLOCCEB - ALLOCATE COMMON EVENT BLOCK AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE A COMMON EVENT BLOCK. IF SUFFICIENT 
MEMORY IS DOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY 
ENTERED DEPENDING ON THE CURRENT PROCESS 1 RESOURCE WAIT MODE. 

EXESALLOCJJB - ALLOCATE JOB INFORMATION BLOCK AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE A JOB INFORMATION BLOCK, IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY ENTERED 
DEPENDING ON THE CURRENT PROCESS 1 RESOURCE WAIT MODE. 

EXESALLOCIRP - ALLOCATE I/O REQUEST PACKET AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE AN I/O PACKET. IF SUFFICIENT MEMORY 
IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY ENTERED 
DEPENDING ON THE CURRENT PROCESS 1 RESOURCE WAIT MODE, 

EXESALLOCPCB - ALLOCATE PROCESS CONTROL BLOCK AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE A PROCESS CONTROL BLOCK WHEN 
CREATIN6 A NEW PROCESS. IF SUFFICIENT MEMORY IS NOT AVAILABLE, THEN 
A RESOURCE WAIT STATE IS CONDITIONALLY ENTERED DEPENDING ON THE CURRENT 
PROCESS' RESOURCE WAIT MODE. 

EXESALLOCPQB - ALLOCATE PROCESS QUOTA BLOCK AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE A PROCESS QUOTA BLOCK WHEN CREATING 
A NEW PROCESS. IF SUFFICIENT MEMORY IS NOT AVAILABLE, THEN A RESOURCE 
WAIT STATE IS ENTERED DEPENDING ON THE CURRENT PROCESS' RESOURCE WAIT 
MODE, 

EXESALLOCTQE - ALLOCATE TIME QUEUE ENTRY AND CONDITIONALLY WAIT 

THIS ROUTINE IS CALLED TO ALLOCATE A TIME QUEUE ENTRY, IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY 
ENTERED DEPENDING ON THE CURRENT PROCESS* RESOURCE WAIT MODE. 

INPUTS: 

R4 - NORMALLY CURRENT PROCESS PCB ADDRESS, BUT NOT REQUIRED. 
IF ENTRY AT EXESALLOCBUF, THEN 

R1 = SIZE OF REQUESTED BUFFER IN BYTES. 
OUTPUTS: 



ZZ-ENSAA-7.0 

MEMALC 

07-06 



ALLOCATE MEMORY AND CONDITIONALLY WAIT 27-JUL-1984 ino/ F ]S h l T 1 ? n 

*** MEMALC dynamic memory allocation 27-JUL-1984 15:33:12 
ALLOCATE MEMORY AND CONDITIONALLY WAIT 1-AUG-1983 11:17:46 



Frame H4 Seguence 1900 
VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINTJMEMALC.MAR;31 



6 
(2) 



13 
28 



51 



51 



51 



2F 

006C 8F 

1B 

OA 
13 

OC 

8C 8f 

OF 

OD 

08C8 8F 

06 



OF 
51 60 8F 
?i 
51 
2E 
OA 

OC 50 

08 A2 51 

OA A2 OA AE 



50 



8E 
0124 8F 



DD 
11 



04 DD 



20 11 



DD 
3C 
11 

DD 
11 

DD 
9A 
11 

DD 
3C 
11 

DD 
9A 
DC 
DD 
10 
BA 
E9 
BO 
98 

D5 
05 
3C 

00 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0002 

0004 

0004 

0006 

0006 

0006 

0008 

0008 

OOOA 

OOOF 

0011 

0011 

0013 

0015 

0015 

0017 

001 B 

001 D 

001 D 

001F 

0024 

0026 

0026 

0028 

002C 

002E 

0030 

0032 

0034 

0037 

0038 

0040 

0040 

0042 

0043 

0048 

005D 



192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

2 28 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 



ro = low bit clear if allocation failure with calling i pl preserved. 

ro = ss$ insfmem = insufficient memory available to allocate 
Buffer. 

ro = low bit set if successful allocation with: 

R1 = SIZE OF REQUESTED BUFFER IN BYTES. 

R2 * ADDRESS OF ALLOCATED BUFFER WITH SIZE AND TYPE FIELDS 
FILLED IN. 

AND IPL SET TO AST DELIVERY LEVEL. 

R4 = ORIGINAL R4 OR CURRENT PCB IF A WAIT OCCURRED. 



.ENABL 

EXE$ALLOCBUF:: 
PUSHL 
BRB 

EXESALLOCCEB:: 
PUSHL 
ASSUME 
ASSUME 
BRB 

EXE$ALL0CJI8:: 
PUSHL 
MOVZWL 
BRB 

EXESALLOCIRP:: 
PUSHL 
BRB 

EXE$ALLOCPCB:: 
PUSHL 
M0VZ8L 
BRB 

EXE$ALLOCPQB:: 
PUSHL 
MOVZWL 
BRB 

EXESALLOCTQE:: 
PUSHL 



10$: 
20$: 



M0VZ8L 

MOVPSL 

PUSHL 

BSBB 

POPR 

BL8C 

MOVW 

MOVZBW 



LSB 

*DYN$CBUFIO 
20$ 

#DYN$C CEB 

CEBSCjENGTH LE IRP$C 
CEB$C„SLAVLNG LE IRP$C 
10$ 

#DYN$C.JIB 
#JIB$C_ LENGTH, R1 
20$ 

#DYN$CJRP 
10$ 

#DYN$C_PCB 
*PCB$C LENGTH, R1 
20$ 

#DYN$C w PQB 

*PQB$C_LENGTH,R1 

20$ 

*DYN$C TOE 

#<IRP$f LENGTH*MASK>&< 

-<SP) 

R1 

EXE$ALONONPAGED 

**M<R1,R3> 

R0,40$ 

R1,IRP$W SIZE<R2) 

4(SP),JRP$B„.TYPE(R2) 



40$: 



TSTL 

RSB 

MOVZWL 

ERRSUP.S 

HALT 



<SP>* 

#SS$ INSFMEM, RO 

MSGADR=T_CGF 



ALLOCATE BUFFERED I/O BUFFER 
SET DATA STRUCTURE TYPE 

ALLOCATE COMMON EVENT BLOCK 
,SET DATA STRUCTURE TYPE 
LENGTH ;IRP SIZE PACKETS ARE ALLOCATED 
.LENGTH ;FGR CEB'S TO LIMIT FRAGMENTATION 

ALLOCATE JOB INFORMATION BLOCK - COND WAIT 

SET STRUCTURE TYPE 

AND LENGTH OF BLOCK 

MERGE WITH COMMON ALLOCATE CODE 

ALLOCATE I/O PACKET - CONDITIONAL WAIT 

SET DATA STRUCTURE TYPE 

ALLOCATE PROCESS CONTROL BLOCK 
SET DATA STRUCTURE TYPE 
AND STRUCTURE SIZE 

ALLOCATE PROCESS QUOTA BLOCK 
SET DATA STRUCTURE TYPE 
AND STRUCTURE SIZE 

ALLOCATE TIME QUEUE ENTRY 
.SET DATA STRUCTURE TYPE 
A C<MASK»,R1 ;SET SIZE OF BUFFER REQUIRED 
READ CURRENT PSL 
SAVE REQUEST SIZE 
ATTEMPT TO ALLOCATE PACKET 
RETRIEVE REQUEST SIZE AND PREVIOUS IPL 
IF LBC NO PACKET ALLOCATED 
INSERT SIZE OF ALLOCATED BLOCK 
INSERT DATA STRUCTURE TYPE 
AND CLEAR MISCELLANEOUS BYTE 
Remove Type from stack 

SET INSUFFICIENT MEMORY 
CANNOT GET FREE CORE 
HALT FOR NOW 
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E3 11 005E 249 BR8 40$ /Prevent CONTINUE 

0060 250 .DSA8L LSB 



ZZ-5NSAA-7.0 

MEMALC 

U7-06 



ALLOCATE NONPAGED DYNAMIC MEMORY 

*** MEMALC dynamic memory 
ALLOCATE NONAGED DYNAMIC 



27-JUL-1984 Fiche 10 

allocation 27-JUL-1984 15:33:12 

MEMORY 1-AUG-1983 11:17:46 
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08 
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53 
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0060 
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0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
C060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
CO 0060 
CA 0063 
13 0066 
EO 0068 
006A 
006F 
0070 
0076 
81 0076 
1F 0078 
007D 
007D 
007D 
DE 007D 
0083 
D1 0084 
13 0088 
DO 008A 
DO 008E 
DO 0091 
DO 0096 
1 1 0099 
9E 009B 
00A1 
D5 00A2 
10 00A4 
0QA6 
60 00A6 
00A8 
OOAD 
OOAE 
0081 
05 0081 
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260 
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294 
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.S8TTL ALLOCATE NONPAGED DYNAMIC MEMORY 

EXE$ALONONPAGED - ALLOCATE NONPAGED DYNAMIC MEMORY 

THIS ROUTINE IS CALLED TO ALLOCATE A BLOCK OF MEMORY FROM TIE NONPAGED POOL. 
IF THE BLOCK IS THE SAME SIZE AS AN I/O PACKET, AN ATTEMPT IS MADE TO ALLO- 
CATE IT FROM THE LOOKASIDE LIST. 

INPUTS: 

R1 = SIZE OF BLOCK REQUIRED IN BYTES. 

OUTPUTS: 

RO = LOW BIT CLEAR IF MEMORY IS NOT AVAILABLE. 

RO = LOW BIT SET IF MEMORY ALLOCATED WITH? 

R1 = SIZE OF ALLOCATED BLOCK. 
R2 = ADDRESS OF ALLOCATED BLOCK. 



.ENA8L LSB 
EXE$ALONONHAGED 



15$? 



ADDL 0MASK,R1 

BICL 0MASK.R1 

BEQL 20$ 

BBS #DSA$V^USER, - 

DSA$GLJLAGS,15$ 
* A X1F 



.• + 



USBINT 

CMPW 
BLS5U 

Replaced 



ALLOCATE NONPAGED MEMORY 
ROUND SIZE UP TO NEXT BOUNDRY 
TRUNCATE SIZE BACK TO MULTIPLE 
IF EQL BAD ALLOCATION REQUEST 



;SKJP DSBINT If IN USER MODE 



#<1RP$C LENGTH<MASK>&< A C<MASK»,R1 ; S I Z E EQUAL TO I/O PACKET? 
10$ m MF NEQ NO 

REMQUE 3L A iOC$GLJRPFL, f\2 



MOVAL 3L A I0C$GLJRPFL,R2 



10$: 



40$: 



50$: 



CMPL 

BEQi 

MOVL 

MOVL 

MOVL 

MOVL 

BR8 

MOVAB 

1 STL 

BSBB 

BBS 



EN8INT 
RS6 



R2,4(R2> 

ioi 

<R2),d4(R2) 

(R2),R0 

4<R2),4(R0) 

#SS$ NORMAL, RO 

40$ 

L*EXE$GL_N0NPAGED,R3 

<R3> + 

EXE$ALLOCATE 

ADSA$V_USER, - 
DSA$GLJLAGS,50$ 



;FIRST ENTRY IN QUEUE 

;QUEUE EMPTY? 

'YES 

♦COPY PREDECESSOR LINK 

;COPY LINK TO SUCCESSOR 

;COPY PREDECESOR LINK 

;SET SUCCESSFUL COMPLETION 

; ENABLE AND EXIT 

;GET ADDRESS OF NONPAGED MEMORY LISTHEAD 

;Sk1p I PL for List 
.•ALLOCATE BLOCK 



;SKIP ENBINT IF IN USER MODE 



.___ . i 
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*** MEMALC dynamic memory 
ALLOCATE NONPAGED DYNAMIC 
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00B2 305 20$: BUG CHECK BADALORQSZ 

50 D4 OOCA 306 CI RT RO 

05 00C6 30? RSB 

0OC7 308 .DSABL LSB 



BAD ALLOCATION REQUEST SIZE 
INDICATE NO BLOCK ALLOCATED 
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MEMAIC 
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GEMERAL ALLOCATE MEMORY SUBROUTINE 27-JUL-1984 1M/ F J| h |J? 3 

*** MEMALC dynamic memory allocation 27-JUL-1984 15:33:12 
GENERAL ALLOCATE MEMORY SUBROUTINE 1-AUG-1983 11:17:46 
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10 
(2) 



50 
52 
50 

04 AO 



53 

63 



51 
83 
60 
70 
62 
52 



53 
50 
62 
1C 
51 
F2 
OE 
50 
80 
51 
73 
60 
80 



DO 
DO 
DO 
13 

D1 
1A 
13 
CI 
DO 
C3 
DE 
DO 
9F 

05 



00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

C0C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

00C7 

OOCA 

OOCD 

OODO 

00D2 

00D6 

00D8 

OODA 

OODE 

00E1 

00E5 

00E8 

OOEB 

OOEE 



310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 
339 

340 
341 
342 
343 
344 
345 
346 



.S8TTL GENERAL ALLOCATE MEMORY SUBROUTINE 
EXESALLOCATE - ALLOCATE MEMORY SUBROUTINE 

THIS ROUTINE IS CALLED TO ALLOCATE A BLOCK OF MEMORY FROM A POOL WHOSE ENTRIES 
ARE MAINTAINED IN A MEMORY ORDER SORTED LIST. 

INPUTS: 

R1 = SIZE OF BLOCK REQUIRED IN BYTES. 

R3 = ADDRESS OF ALLOCATION REGION LISTHEAD, 

OUTPUTS: 

RO a LOW BIT CLEAR IF MEMORY IS NOT AVAILABLE. 

RO = LOW BIT SET IF MEMORY ALLOCATED WITH: 

R1 = S12Z OF ALLOCATED BLOCK. 
R2 » ADDRESS OF ALLOCATED BLOCK, 



EXESALLOCATE:: 
MOVL 



10$: 



20$ j 
30$: 



MOVL 

MOVL 

BEOL 

CMPL 

BGTRU 

BEQL 

ADDL3 

MOVL 

SU8L3 

MOVAL 

MOVL 

MOVAB 

RSB 



R3,R0 

R0,R2 

<R2),R0 

30$ 

R1,4(R0) 

10$ 

20$ 

R0,R1,R3 

(R0)+ t <R3>+ 

R1,(R0),<R3) 

~(R3),-(R0) 

(R0),(R2) 

<R0>+, H2 



ALLOCATE MEMORY 

COPY ADDRESS OF FIRST FREE BLOCK ADDRESS 

SAVE ADDRESS OF PREVIOUS FREE BLOCK 

GET ADDRESS OF NEXT FREE BLOCK 

IF EQL NO MEMORY AVAILABLE 

FREE BLOCK BIG ENOUGH? 

IF GTRU NO 

IF EQL FREE BLOCK IS EXACT SIZE 

CALCULATE ADDRESS OF NEW FREE BLOCK 

COPY LINK TO NEXT FREE BLOCK 

CALCULATE SIZE OF NEW FREE BLOCK 

SET LINK TO NEW FREE BLOCK 

COPY LINK TO NEW FREE BLOCK 

SET ADR OF ALLOCATED BLOCK, INDICATE SUCCES 



ZZ-ENSAA-7.0 

MEMALC 

07-06 
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DEALLOCATE NONPAGED DYNAMIC MEMORY 27-JUL-1984 1O0/ F ^he 10 

*** M[i^ALC dynamic memory allocation 27-JUL-1984 1 5 :33 : 12 

DEALLOCATE NONPAGED DYNAMIC MEMORY 1-AUG-1983 1 1 :1 7:46 
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11 
(2) 



06 



48 

OOQOOOQO'EF 

53 

83 

H 

OOOOFEOO'EF 



50 
OOOOOOOC'EF 

1A 



0000001 8* FF 

53 

60 

04 AO 

63 



03 



63 
63 
60 
60 

00000018'EF 

02 

35 

50 03 

U 

OOOOFEOO'EF 



10 
9E 

D5 
EO 



D1 
1F 



DE 

DO 
DE 
DE 
DE 

11 
10 
3C 
EO 



05 



OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
COEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
00F1 
OOF 7 

00F8 

OOFA 

OOFC 

0102 

0108 

0108 

010A 

010F 

0111 

0111 

0111 

0111 

011/ 

0118 

0118 

011F 

0122 

0124 

0129 

0128 

012D 

0130 

0132 

0138 

0138 

013C 



348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 



.S8TTL DEALLOCATE NONPAGFD DYNAMIC MEMORY 

EXE5DEAN0NPAGED - DEALLOCATE NONPAGED DYNAMIC MEMORY 

THIS ROUTINE IS CALLED TO DEALLOCATE A BLOCK OF MEMORY TO A NONPAGED POOL 
IF THE BLOCK IS A SHARED MEMORY BLOCK TYPE, THE BLOCK IS DEALLOCATED TO 
THE SHARED MEMORY POOL. OTHERWISE, THE BLOCK'S ADDRESS IS CHECK > TO SEE 
IF IT WAS ALLOCATED FROM THE I/O PACKET LOOKASIDE LIST AND If SO, 
IT IS RETURNED TO THAT LIST. OTHERWISE IT IS MERGED INTO THE NORMAL 
NONPAGED POOL. 

INPUTS: 

RO = ADDRESS OF BLOCK TO BE DEALLOCATED. 

IRP$W SIZE(RO) = SIZE OF BLOCK TO BE DEALLOCATED. 

IRP$BlTYPE(RO) = TYPE OF BLOCK TO BE DEALLOCATED. 

OUTPUTS: 

THE SPECIFIED BLOCK IS RETURNED TO THE APPROPRIATE POOL. 



.ENABL LSB 
EXQSDEANONPAGED:: 

BSB8 CHECK8L0CK 

M0VA8 l A EXE$GL.N0NPAGED,R3 



374 

375 

376 

377 

378 7$: 

379 



380 
381 
382 
383 
384 

385 
386 
387 
388 

389 
390 
391 
392 
393 
394 
395 
396 



TSTL (R3): 

B8S *DSA$V USFR - 

,DSA$Gt..FLAGS, 7$ 

/TX1F 



; DEALLOCATE NONPAGED DYNAMIC MEMORY 

; CHECK DEALLOCATION PARAMETERS 

;GET ADDRESS OF NONPAGED MEMORY LJSTHEAD 

;Skip IPL for list 
.-DISABLE ONLY IF IN S/A 



DS8INT 

CMPL 

BLSSU 

Replaced INSQUE (R0),ai.MOC$GLJRPBL 

MOVAL aL A I0C$GLJRPBL,R3 ; WHERE TO INSERT IT 



RO,L A EXE$GL„SPLITADR 
10$ 



;I/0 PACKET? 
;IF LSSU NO 



10$: 
20$: 



30$: 



MOVL 
MOVAL 
MOVAL 
MOVAL 

BR8 
BS68 
MOVZWL 
BBS 

EN8JNT 

RS8 

.DSA8L 



(R3MR0) 
(R3),4(R0) 
<R0),(R3) 
(RO),LMOC$GLJRPBL 

20$ 
EXESDEALLOCATE 

#RSN$ NPDYNMEM,R0 
#DSA$y USER - 
,DSA$Gr_FLAGS, 30$ 



LSB 



;DEALL0Cm1E BLOCK 

;SET NONPAGED DYNAMIC MEMORY RESOURCE NUMBER 

;ENBINT IF IN S/A 
;ENABLE INTERRUPTS 
; RE TURN 
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50 

51 08 

51 

51 



OF 
OC 
AO 
OF 
OF 
H 

8E 





013C 




013C 




013C 




01 3C 




013C 




013C 


D3 


01 3C 


12 


013F 


3C 


0141 


CO 


0145 


CA 


0148 


1? 


014B 




014D 


D5 


015F 


05 


C161 



398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 



.S8TTL CHECK BLOCK PARAMETERS SUBROUTINE 
CHECKBLOCK - CHECK BLOCK PARAMETERS SUBROUTINE 



CHECK8L0CK: 

BITL W1ASK.R0 

8NEQ 10$ 

MOVZWL IRP$W_SIZE(RO),Ri 

ADDL #MASK,R1 

BJCL *MASK,R1 

3NEQ 20$ 
10$: BUG CHECK BADDALRQSZ 

TSTC (SP)+ 
20$: RS8 



CHECK BLOCK PARAMETERS 

BLOCK ALIGNED ON BOUNDRY? 

IF NEQ NO - BAD DEALLOCATION 

GET SIZE OF BLOCK IN BYTES 

ROUND SIZE UP TO NEXT BOUNDRY 

TRUNCATE SIZE BACK TO MULTIPLE 

IF NEQ OKAY 

BAD DEALLOCATION REQUEST SIZE OR ADDRESS 

REMOVE RETURN FROM STACK 



?Z-ENSAA-7,0 

MEMAlC 
•,•7-06 



85 . 

GENERAL DEALLOCATION SUBROUTINE , 27-JUL-1984 F Uhe 10 

*** MEMALC dynamic memory allocation 27-JUL-1984 15:33:13 

GENERAL DEALLOCATION SUBROUTINE 1-AUG-1983 11:17:46 
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7E 



04 



52 
53 

53 



60 
51 
8E 

60 

51 

8? 
6E 

8E 

51 
7 2 
50 
AO 



53 
62 
07 
50 
F3 
2D 
53 
50 
53 
06 
83 
63 
52 
50 
62 
50 
09 
62 
60 
52 
51 



E6 





0162 




0162 




0162 




0162 




0162 




0162 




0*162 




0162 




0162 




0162 




0162 




0162 




0162 




0162 




C162 




0162 


DO 


0162 


DO 


0165 


13 


0168 


D1 


01 6A 


1A 


016D 


13 


016F 


DO 


0171 


M 


0174 


D1 


0178 


12 


0178 


DO 


017D 


CO 


0180 


DD 


0183 


DO 


0185 


CO 


0188 


01 


01 88 


12 


018E 


CO 


0190 


DO 


0193 


DO 


0196 


DO 


0199 


05 


01 9D 




019E 


CO 


0185 


n 


0186 



414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

44 1 

442 

443 

444 

445 

446 

44? 

448 

449 

450 

451 

452 

453 

454 



. S8TTL GENERAL DEALLOCATION SUBROUTINE 
EXESDEALLOCATE - DEALLOCATION SUBROUTINE 



INPUTS: 



RO - ADDRESS OF BLOCK TO BE DEALLOCATED. 
R1 = SIZE OF BLOCK IN BYTES m _ 

R3 - ADDRESS OF ALLOCATION REGION LISTHEAD. 



OUTPUTS: 



NONE 



EXESDEALLOCATE: 
10$: MOVL 

MOVL 

BEQL 

CMPL 

BGTRU 

BEQLU 
20S: MOVL 

ADDL3 

CMPL 

BNEO 

MOVL 

ADDL 
30$: PUSHL 

MOVL 

ADDL 

CMPL 

BNEQ 

ADDL 

MOVL 

MOVL 
40$: MOVL 

RSB 
50$: BUG. CHECK 

HALT 

BR8 50$ 



R3,R2 

<R2),R3 

20$ 

R0,R3 

10$ 

50$ 

R3,(R0) 

R0,R1,-(SP) 

R3,(SP)+ 

30$ 

(R3)+,(R0) 

(R3),R1 

R2 

R0,(R2)+ 

(R2),(SP) 

R0,(SP>+ 

40$ 

(R2>,R1 

(R0),-(R2) 

R2,R0 

R1,4<R0) 



D0U8LDEAL0, FATAL 



DEALLOCATE BLOCK 

SAVE ADDRESS OF PREVIOUS FREE BLOCK 

GET ADDRESS OF NEXT FREE BLOCK 

IF EQL END OF LIST 

BLOCK LOGICALLY GO HERE? 

IF GTRU NO 

IF EQLU DOUBLE DEALLOCATION 

ASSUME NO AGGLOMERATION 

CALCULATE ADDRESS OF END OF BLOCK 

END OF BLOCK EQUAL TO NEXT IN LIST? 

IF NEQ DO NOT AGGLOMERATE 

MOVE LINK TO BLOCK BEING RELEASED 

ACCUMULATE LENGTH OF NEW 

CALCULATE ENDING ADDRESS 

ASSUME NO AGGLOMERATION 

ADD LENGTH TO BLOCK BASE ADDRESS 

END ADDRESS EQUAL TO BLOCK BEING RELEASED? 

IF NEQ DO NOT AGGLOMERATE BLOCKS 

ACCUMULATE SIZE OF NEW FREE BLOCK 

MOVE LINK TO PREVIOUS FREE BLOCK 

SET ADDRESS OF NEW FREE BLOCK 

SET SIZE OF FREE BLOCK 



FREE BLOCK 

OF PREVIOUS BLOCK 



DOUBLE DEALLOCATION 
HALT FOR NOW 



OF MEMORY BLOCK 



7Z-ENSAA-7.G 

MEMAlC 

17-06 



MEMPOOLSINIT 



;USER MODE MEMORY INITIAL 27-JUL-1984 F ]£he 10 Frame C 5 in Seauence 1908 
*** MEMALC dynamic memory allocation 27-JUL-1984 15:33:12 VAX-11 Macro V03-01 . T^S, 
MEMP00L$JNIT ;USER MODE MEMORY INITIAL 1-AUG-1983 11:17:46 DMA1 :CSYS0.SYSMAINT]MEMALC.MAR;31 



OC 

00000000' 8f 

50 

oooooooo'sf 

50 
51 50 OA 

50 51 
51 50 05 

1C 

OOOOFEOO'EF 

OF 

00000000' EF 

00000000' EF 

51 

51 OA 



51 
50 



00 50 



50 51 

01FF 8F 

50 

K 

OOOOFEOO'EF 

OD 



00000000' EF 

51 
50 6041 



14 
(2) 



01B8 
000001B8 
0168 
01B8 
01B8 
01B8 
0168 
01B8 
01B8 
0188 
01B8 
01B8 
01B8 
0188 
C1B8 
01 88 
C188 
01B8 
0188 
0188 
01B8 
0188 
0188 
0188 
0188 
0188 
0188 
0188 
01B8 
018A 
O1C0 
01C1 
0U7 
01C8 
OKC 
OKF 
01D3 
01D5 
01DA 
01 D8 
01 D8 
01E1 
01E6 
Q1E7 
01EA 
01EA 
01EE 
01F0 
01F3 
01F8 
01FA 
01FC 
0201 
0202 
0202 
0203 
0209 



BB 
DO 

CO 

a 

CO 
C5 
EO 



C3 
C6 

F1 

0003 
DO 
A8 
D6 
EO 

DO 
9E 



+ ■► 



456 

457 .PSECT 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 



.SBTTL 
CODE, 



MEMPOOLSINIT 
SHR, EXE, 



NOWRT, BYTE 



;USER MODE MEMORY INITIALIZATION 



FUNCTIONAL DESCRIPTION: 

This routine allocates how must scratch memory is required and 
expands the program region to get it. This memory is optionally 
split between IRP*s and other Tree memory 

CALLING SEQUENCING: 

BS8W USERSMEMINIT 

INPUT PARAMETERS: 

IMPLICIT INPUTS: 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



482 

483 MEMPOOLSINIT; 



484 
485 

486 

487 
488 
489 
490 

491 
492 
493 

494 

495 

496 10$: 

497 

498 

499 20$: 

500 

501 

502 
503 
504 

505 



PUSHR 
MOVL 



# A M<R2,R3> 
*SCRIPT$MINCORE,RO 



ADDL2 #QIO$MINCORE,RO 



DIVL3 
ADDL2 
MULL3 
B8S 



SUBL3 

DIVL2 

ACBL 

MOVL 
BISW2 
INCL 
BBS 

MOVL 

M0VA8 



Save working registers 
SPACE NEEDED FOR SCRIPTS 

PLUS QIO SPACE 

PLUS 1GX 

IN USER MODE USE 5 TIMES MINIMUM 



#10,R0,R1 
R1,R0 
#5 RO R1 
#DSA$V..USER,DSA$GL_FLAGS" - 

, 10S ;SKIP CALCULATION IN USER MODE 

DS$GA_LASTADR,DS$GLJ1EMSIZE - 



< V 
#10, R1 

RO,#0,R1,20$ 



;ROOM ABOVE SUPERVISOR 
;10X OF THAT 



R1,R0 

* A X1FF,R0 

RO 

#DSA$V USER,DSA$GL_FLAGS - 



;MAX (M1N NECESSARY, AVAILABLE) 
;PAGE ALIGN 



, 30$ 

DS$GA_LA$TADR,R1 

(R0)CR1],R0 



USER ALLOCATIONS ARE DIFFERENT 
SAVE START ADDRESS OF SPACE 
HIGHEST-*-! ADDRESS OF SPACE 



ZZ-ENSAA-7.0 

MEMALC 

07-06 



MEMP00LS1NIT 



;USER MODE MEMORY INITIAL 27-JUL-1984 _ F ]£ h f J9^ Fr ? me «? 5 ^ wn7 S £9 uence 190 E 
'*** MEMALC dynamic memory allocation 27-JUL-198A 15:33:12 VAX-1 Macro V03-0T Page 
MEMPOOLSINIT ;USER MODE MEMORY INITIAL 1-AUG-1983 11:17:46 DMA1 :CSYS0.SYSMAINTJMEMALC.MAR;31 



15 
(2) 



23 11 



51 7E 

50 F7 8F 

50 

02 

O0U001FF 8F 

50 8E 

50 



51 
0000001 O'EF 

50 
00000000' EF 

51 
00000004* EF 

61 

0000001VEF 

52 

62 52 

04 A2 52 

00000000'8F 

53 50 



53 
60 

04 AO 
62 

04 A3 



62 
53 
52 
50 
50 



53 

FFFFFFAO 8F 

FFE5 50 



50 51 

04 A1 

53 

OOOOOOOC'EF 



OC 



020D 
020F 
7^ 020F 
78 0212 
0216 
0217 
BA 0226 
C9 0228 
022E 



D6 



DO 

00 

DO 

D4 

9E 

DO 
DO 
C3 



11 11 



DO 
DO 
DO 
DO 
DO 

F1 



C3 
DO 



8A 
05 



0230 

0232 

0232 

0232 

0232 

C232 

0232 

0234 

0239 

023B 

0240 

0242 

0247 

0249 

0249 

024F 

0250 

0253 

0257 

025D 

025F 

025F 

0261 

0261 

0261 

0261 

0261 

0264 

0267 

0:6B 

0i6E 

0272 

0272 

0274 

0279 

027C 

027C 

027C 

027F 

0281 
0283 
0288 
0288 
028A 
028B 



506 

507 30$: 

508 

509 

510 
511 
512 

513 

514 40$: 

515 

516 

517 

518 

519 

520 

521 

522 
523 
524 

525 
526 
527 

528 

529 

530 50$: 

531 

532 

533 

534 

535 

536 

537 

538 

539 60$: 

540 



541 
542 
543 

544 

545 
546 
547 
548 



BR8 

MOVAQ 
ASHL 



40$ 

-(SPKR1 

#-9,RO,R0 



SEXPREG S R0,(R1) 
POPR ""'" 
BISL3 



INCL 

RO 
R1 

MovL 

MovL 

MOVL 

CLRL 
MOVAB 

MOVL 

MOVL 
SU8L3 

BR8 

Replaced 

MOVL 
MOVL 
MOVL 
MOVL 
MOVL 



# A MR1 
* A X1FF,(SP)+,R0 

RO 



;JOIN COMMON CODE 

;WHERE VMS WILL RETURN THE ADDRESSES 
;MAKE PAGE COUNT 

;ALLOCATE THE SPACE 
;GET START ADDRESS 
;GET END ADDRESS 

;+i 



Highest address allocated + 1 
Lowest address allocated 



R1, L A Ds$GL_LookAside 
RO, L A DS$GA_LASTADR 
R1,EXE$GL_N0NPAGED+4 
(R1) 
L A 10C$GLJRPFL,R2 

R2,(R2) 

R2,4(R2) 



Store start of look-aside 

PUT BACK NEW AVAILABLE ADDR 

SET ADDRESS OF CHUNK 

THIS IS FIRST AND LAST CHUNK 

ADDR OF LIST HEAD 

INIT LISTHEAD 
AND TAIL 



[06] 



#<SGN$CJRPCNT*<IRP$C_LENGTH+15>&-16>,RQ - 



, R3 
60$ 



;ADDR OF FIRST IRP, LOW LIMIT 
;COUNT FIRST 



INSQUE (R0),(R2) 



(R2),R3 

R3,(R0) 

R2,4(R0) 

R0,(R2) 

R0,4(R3) 



;Address of next 

;Make f L ink of new point to next 

;Make blink of new point to current 

;Make flink of curr point to new 

;Make blink of old point to new 



AC8L R3,tf-«1RP$C.LENGTH+15>&-16>,RQ - 



SU8L3 
MOVL 



POPR 
RS8 

,END 



,50$ 
R1,R0,4(R1) 

R3,EXE$GL_SPLITADR 

<TM<R2,R3> 



DECREMENT ADDR BY LENGTH AND MAKE ONE 
SET LENGTH OF REMAINING CHUNK 
SET ADDRESS OF LOWEST IRP 



; Restore registers 
;RETURN 



ZZ-ENSAA-7.0 
MEMALC 
Symbol table 

SST1 

$ER 

$M0DULE 
BUGSCHECK 
CEBSC.LENGTh 
CEBSC SLAVING 

checkBlock 
dssga lastadr 

DSSGL^LOOKASlDt 

ds$gl"memsi2e 

dsasac aptma1l 

dsasat>pttxt 

dsa$gl aptcom 

osa$gl"devlen 

dsasgl'errno 

dsa$gl~event 

dsa$gl_flags 

dsasgi.jisgtyp 

dsa$gl_passes 

dsasgl..passno 

dsasgl..sectno 

dsa$gl_sid 

dsa$gl_subtno 

dsa$gl„testno 

dsasgljjnits 

dsa$gq msgptr 

dsa$gt~devnam 

dsasv user 

ds errsup 

dyRsc bufio 

DYN$CCEB 

DYNSCJRP 

DYN$C_JIB 

DYN$C,PCB 

DYNSC PQB 

DYNSC'TQE 

EXESACLOCATE 

EXESALLOCBUf 

EXEtALLOCCEB 

EXESALLOCIRP 

EXESALLOCJIB 

EXESALL0CPC3 

EXESALLOCPQB 

EXE$ALLOCTQE 

EXEiALONONPAGEO 

EXESDEALLOCATE 

EXE$DEANONPAGED 

EXESGLJIONPAGED 

EXESGL SPLJTADR 

IOCSGLJRPBL 

JOC$GL IRPfL 

JRPSB.rARCON 

IRP$B„EFN 

IRPSB^PRI 

IRP$B RMOD 

IRP$B"TYPE 

IPPSClLENGTH 



Symbol table 



*** MEMALC dynamic memory 



00000000 


D 




00000002 


D 




00000000 


R 


03 


******** 


X 


04 


00000038 


D 




00000044 


D 




0000013C 


R D 


04 


******** 


X 


04 


00000010 


RG D 


02 


******** 


X 


04 


O000FE00 







OOOOFAOO 


D 




0OO0FE04 


D 




0000FE58 


D 




O000FE44 


D 




0000FE48 


D 




OOOOFEOO 


D 




OO00FE4O 


D 




OOOOFE08 


D 




0000FE54 


D 




0000FE10 


D 




OOOOF EH 


D 




O000FE4C 


D 




O00OFE5O 


D 




OO0OFE0C 


D 




OOOOF E 68 


D 




0000FE5C 


D 




0000001 C 


D 




******** 


X 


04 


00000013 


D 




00000004 


D 




OOOOOOOA 


D 




0000002F 


D 




oooooooc 


D 




0000000D 


D 




OOOOOOOF 


D 




O000OOC7 


RG D 


04 


00000000 


RG D 


04 


00000004 


RG 


04 


00000011 


RG D 


04 


00000008 


RG D 


04 


00000015 


RG 


04 


0000001 D 


RG D 


04 


00000026 


RG D 


04 


00000060 


RG D 


04 


00000162 


RG 


04 


OOOOOOEF 


RG D 


04 


00000000 R D 


02 


OOOOOOOC 


RG D 


02 


00000018 


R D 


02 


00000014 


RG D 


02 


00000038 


D 




00000022 







00000023 


D 




00000008 


D 




OOOOOOOA 


D 




0000005C 


D 





E 5 

27-JUL-1984 Fiche 10 
allocation 27-JUL-1984 1 5:33:12 

1-AUG-1983 11:17:46 



IRP$K LENGTH 

irp$l;arb 

IRP$L,AST 

IRPSLlASTPRM 

IRPSL.D1AGBUF 

IRP$L„EXTEND 

IRP$L IOQBL 

IRPSLlIOQFL 

IRPSL IOSB 
IRP$L.I0ST1 

IRP$L I0ST2 

IRP$L~MEDIA 

IRP$L~PID 

IRPSLlSEGVBN 

IRP$L_SEQNUM 

IRP$L_SVAPTE 

IRP$L_TT TERM 

IRP$L UCB 

1RPSL WIND 

1RP$Q NT PRVMSK 

IRPStfABCNT 

IRPSW.BCNT 

IRP$W BOFF 

IRPSW'CHAN 

IRP$W FUNC 

IRP$WlOBCNT 

IRP$W SIZE 

IRPSULSTS 

IRP$W_TTPRMPT 

JIB$C_LERGTH 

MASK 

MEMPOOLSINIT 

PCB$B ASTACT 

PC8$B ASTEN 

PC8$B"PRI 

PCB$B_PRIB 

PC8$B_TYPE 

PCB$B_WEFC 

PCB$C_LENGTH 

PC8$K_LENGTH 

PC8$L_ARB 

PCB$L_ASTQBL 

PC8SL ASTQFL 

PC8$L EFC2P 

PC8$LlEFC3P 

PCB$L„EFCS 

PC8$L_EFCU 

PC8$LJFWM 

PCBSLJIB 

PCB$L_0WNt:R 

PC8$L^PHD 

PCB$L PHYPCB 

PCBSLlPID 

PC8$L PQB 

PCBSL_SQBL 

PCB$L_SQFL 

PCB$L STS 
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0000005C 


D 


00000050 


D 


00000010 


D 


00000014 


D 


00000044 


D 


0000004 C 


D 


00000004 


D 


00000000 


D 


00000024 


D 


00000034 


D 


00000038 


D 


00000034 


D 


OOOOOOOC 


D 


00000040 


D 


00000048 


D 


0000002C 


D 


00000038 


D 


0000001 C 


D 


00000018 


D 


00OOO03C 


D 


0000003C 


D 


00000032 


D 


00000030 


D 


00000028 


D 


00000020 


D 


0000003E 


D 


00000008 


D 


0000002A 


D 


0000003C 


D 


0000006C 


D 


OOOOOOOF 


D 


000001B8 


RG D 


OOOOOOOC 





OOOOOOOD 


D 


OOOOOOOB 


D 


00OO002F 


D 


OOOOOOOA 


D 


0000002E 


D 


0000008C 


D 


0000008C 


D 


00000084 


D 


00000014 
00000010 


D 


D 


00000058 


D 


0000005 C 





00000050 


D 


00000054 


D 


0000004 C 


D 


00000078 





0000001 c 


D 


00000064 


D 


00000018 


D 


00000060 


D 


0000004 C 


D 


00000004 
00000000 


D 
D 


00000024 


D 



04 



ZZ-ENSAA-7.0 
MEMAlC 
Symbol table 

PCBSL UK 

PCBlLJJSSWP 

PCBSL WTIME 

PCBSQ'PRIV 

PCBST'LNAME 

PCBST'TERMINAl 

PCBSW'APUNT 

PCBSW"ASrCNT 

PCBSW"B10CNT 

PCBSWlBlOLM 

PC8$W DIOCNT 

PCB$W~DIOLM 

PCB$W~GPGCNT 

PCBSVfGRP 

PCB$W""MEM 

PCBSW MTXCNT 

PCBtW'PPGCNT 

PCBSW'PRCCNT 

PCB$W~SIZE 

PCBSWSTATE 

PCB$W"TMBU 

PQBSClLENGTH 

pr$ iPl 
oioJmincore 
rsn$ npdymmem 
scriptsmincore 
sgnscjrpcnt 

SIZ... 
SSSJNSFMEM 
SS$ NORMAL 
SYS5EXPREG 

T_CGF 



Symbol table 



f'SECT name 

. ABS , 
$ABS$ 
WORK 
DATA 

CODE 



*** MEMALC dynamic memory 



27-JUL-1984 Fiche 1() 
allocation 27-JUL-1984 1 5 :33: 12 

1-AUG-1983 11:17:46 
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00000088 


D 




00000020 


D 




00000028 


D 




0000007C 


D 




00000068 


D 




00000044 


D 




00000030 


D 




00000038 


D 




0000003A 


D 




0000003C 


D 




0000003E 


D 




00000040 


D 




00000034 


D 




0000008A 


D 




00OOC088 


D 




000O000E 


D 




00000036 


D 




00000042 


D 




00000008 


D 




0000002C 


D 




00000032 


D 




000008C8 


D 




00000012 


D 




******** 


X 


04 


00000003 


D 




******** 


X 


04 


******* * 


X 


04 


00000001 


D 




00000124 


D 




00000001 


D 




******** 


GX 


04 


00000007 R 


D 


03 



Allocation 

00000000 
0000FE70 
0000001 C 
0000001 C 
00000288 



+ — «.-. + 

J Psect synopsis ! 
+ — *—*———*+ 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 28.) 02 ( 2.) NOPIC USR 

( 28.) 03 ( 3.) NOPIC USR 

( 651.) 04 ( 4.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 

CON ABS LCL NOSHR EXE RD 

CON REL LCL NOSHR NOEXE RD 

CON REL LCL SHR NOEXE RD 

CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 

NOWRT NOVEC BYTE 



:Z-ENSAA-7.0 

MEMALC 

Cross reference 



Cross reference 



*** MEMALC dynamic memory 



G 5 

27-JUL-1984 Fiche 10 

allocation 27-JUL-1984 15:33:12 

1-AUG-1983 11:17:46 
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SYMBOL 



$$T1 
SER 

SMODUL E 
BUG$CHfcCK 

cebsc^length 

cebsc slavlng 

checkBlock 

ds$ga_las t adr 

dssgl lookaside 

dssgl^memsize 

dsa$gc^flags 

dsasvjjser 

ds errsup 
dyRsc^bufio 

DYN$C CEB 

DYNSC IRP 

OYNSClJIb 

DYN$C PCB 

OYNSC PQB 

DYNSClTQE 

EXESALlOCATE 

EXE$ALLOCBUF 

EXESALL0CCE8 

EXESALLOCIRP 

EXESALL0CJ1B 

EXE5ALL0CPCB 

EXESALLOCPQB 

EXE$ALLOCTQE 

EXESALONONPAGED 

EXESDEALLOCATE 

EX5SDEAN0NPAGED 

EXESGL NONPAGED 

EXE$GL"SPL1TADR 

IOC$GL IRPBL 

iocsgl jrpfl 
irp$b Type 

IRPSClLENGTH 

JRP$W SIZE 
JI8$OENGfH 

MASK 

MEMPOOLSINIT 
PCB$C LENGTH 
FG8$C"LENGTH 

PR$ jPL 
QIOlMlNCORE 
RSN$ NPDYNMEM 



VALUE 

=00000000 

=00000002 
00000000-R 
00000000-XR 

=00000038 

=00000044 
000001 3C-R 
00000C00-XR 
0000001 0-R 
00000000-XR 
0000FE00 

=0000001 c 

00000000-XR 

=00000013 

=00000004 

=000OO0OA 

=0000002F 

=0000000C 

=O0OOO00D 

=0000000F 
000000C7-R 
00000000-R 
00000004-R 
0000001 1-R 
00000008-R 
0000001 5-R 
0000001 D-R 
00000026-R 
00000060-R 
00000162-R 
OOOOOOEF-R 
00000000-R 
0000000C-R 

=0000001 8-R 
0000001 4-R 
OOOOOOQA 
0000005C 

00000008 
=0000006C 
=0OOO0OOF 

00000188-R 

0000008C 

=000O08C8 

=00000012 

00000000-XR 

=00000003 



+ — — .-....— -™— + 

! Symbol Cross Reference ! 
+ * 1 



DEFINITION 

510""" "(2) 
247 (2) 
131 (2) 



403 
117 



332 
210 
213 
222 
218 
225 
229 
233 
275 
429 
371 
110 
115 
127 
125 



102 
483 



r 

(2) 



(2) 
(?) 
(2, 
<2> 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
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*** MEMALC dynamic m( 


iross reference 






SCRIPTSM1NC0RE 




00000000-XR 


SGNtC IRPCNT 




00000000-XR 


SSSjflSFMEM 




=000001 24 


SSS NORMAL 




=00000001 


SYS5EXPREG 




00000000-XR 


T_CGF 




00000007-R 132 
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#-485 (2) 

#-527 (2) 

#-246 (2) 

#-294 (2) 

510 (2) 

(2) 247 (2) 
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MEMALC 

Cross reference 



Cross reference 



*** 



MEMALC dynamic memory 



15 , 

27-JUL-1984 Fiche 10 
allocation 27-JUL-1984 1 5 :33 j 12 

1-AU6-1983 11:17:46 



Frame 15 Sequence 1914 
VAX-11 Macro V03-01 Page 20 
DMA1;CSYS0.SYSMAINT3MEMALC.MAR;31 (2) 



MACRO 

SASNPUSH 

SCEBDEF 

SDEFIN1 



$0S DSAOEF 

sdyRdef 

sexpreg.s 

SIPLDEF 
SIRPDEF 

SJIBDEF 
SPCBDEF 

SPQBDEF 

SPRDEF 

SPUSHADR 

SRSNDEF 

SSHBDEF 

SSHODEF 

SSSDEF 

STQEDEF 

ASSUME 

BUG CHECK 

DSBlNT 

ENBINT 

ERRSUP S 

MODNAM" 



SIZE 

1 

2 

1 



5 

2 

1 

1 

4 

3 

4 

3 

4 

1 

1 

1 

3 

21 

2 

1 

1 

1 

1 

1 

1 
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! Macros 


Cross Reference ! 




DEFIN] 


REFERENCES... 
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82 
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81 
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81 
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82 
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81 
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81 
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83 
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510 
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84 


(2) 


84 
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85 
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86 
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86 
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87 


(2) 


87 
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88 


(2) 


88 
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89 
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89 
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24? 


(2) 


247 


(2) 


510 


(2) 


90 


(2) 


90 


(2) 






91 


(2) 


91 


(2> 






92 


(2) 


92 


(2) 






93 


(2) 


93 


(2) 






94 


(2) 


94 


(2) 






215 


(2) 


215 


(2) 


216 


(2) 


305 


(2) 


305 


(2) 


410 


(2) 


281 


(2) 


281 


(2) 


377 


(2) 


302 


(2) 


302 


(2) 


394 


(2) 


247 


(2) 


247 


(2) 






131 


(2) 
CPl 


131 


(2) 








! Performance indicators ! 




Pac,e faults 


) Time 


Elapsed Time 




33 


00: 


00:00.10 


00:00:00, 


26 




140 


00. 


00:00.76 


00:00:01 


91 




878 


00. 


00:15.60 


00:00:20 


33 







00: 


00:01.55 


00:00:01 


73 




169 


00' 


00:02.72 


00:00:05 


52 




19 


00 


00:00.15 


00:00:00 
00:00:00 


.15 




6 


00 


00:00.03 


.03 




34 


00. 


00:00.29 


00:00:00 


.41 




1283 


00 


00:21.21 


00:00:30 


.35 





83 


(2) 


88 


(?) 


93 


(2) 



84 
89 
94 



(2) 
(2) 
(2) 



85 
90 



(2) 
(2) 



452 (2) 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. .... 

84638 bytes (166 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1039 non-local and 28 local symbols, 

548 source lines were read in Pass 1, producing object records in Pass 2, 

113 pages of virtual memory were used to define 33 macros. 
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77-FNSAA-7 Cross reference 27-JUL-1984 Fiche 10 Frame J5 Sequence 1915 

?B«1«;! » U n ZZL •" "™ LC d '" Mi * "-" aUom, °" fSW* 1?!»:B E^lAi%SBffl> DM u J a»i 8, 

! Macro Library statistics ! 
+•_-..— —-— - — + 

Macro library name Macros defined 

DRB1jCDS.WORK3DIAG.MLB;955 5 

0R81 :CDS.WORK]DS.MLB;218 3 

SYS$SYSR00T:CSYSLIB]L18.MLB;1 9 

0MA1:CSYS0.SYSMAINT]DS.MLB;218 

DMA1 iCSYS0,SYSMAINTDD1AG.MLB;953 

SYSSSYSR00T:CSYSLIB]LIB.ML8;1 

SYS$SYSR00T:[SYSLIB]STARLET.MLB;2 11 

TOTALS (all libraries) 28 

12M GETS were required to define 28 macros, 

There were no errors, warnings or information messages. 

MACRO/N0OBJECT/LJST=tDS,LlSJ/CROSS/ENABLE=(DEBUGJRACE) MEMALC/UPOA=(MEMALC.UPD # MEMALC.ENH) fSYS$UBRARY:LIB/UBRARY*DMA1 iCSYSO.SYSMA 



ZZ-ENSAA- 


7,0 


MEMMGT 




table of 


contents 


(1) 


155 


(1) 


210 


(1) 


245 


(1) 


254 


(1) 


460 


(3) 


519 


(4) 


569 


(5) 


625 


(7) 


717 


(10) 


86? 


(15) 


1005 


(14) 


1054 


(15) 


1106 


(16) 


1H7 


(19) 


1307 


(21) 


1391 


(22) 


1432 


(23) 


1462 


(24) 


1487 
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<** MEMMGT Memory management setup/contr 27-JUL-1984 1o0/ F j^SJ?, F C2v e ii 5 M a rm vnx-n? uenCe 191 p;mp 

*** MEflMGT Memory management setup/contr 27-JUL-1984 15:33:44 VAX-11 Macro V03-01 Page U 

Libraries, Macros, and External Symbols 

Own Storage 

Data Storage 

MapMem Routine - Map all of memory 

MAPMEMSIOSPACE Setup page tables for I/O space 

ACCESSABLE check a page for accessabihty 

STACKPR0T 

MAP FREE MEMORY PROCEDURE • 

GET A BLOCK OF VIRTUAL MEMORY. 

RELEASE A BLOCK OF VIRTUAL MEMORY. 

TURN MEMORY MANAGEMENT ON. 

TURN MEMORY MANAGEMENT OFF. 

DSRSMMENABLE Enable to disable memory management 

SET PROTECTION ON PAGES. 

CALCULATE PTE ADDRESS SUBROUTINE .„,.,. „ r . ,-«-. 

DSX$MAPDBGBLOCK - MAP A BLOCK OF MEMORY FOR THE DEBUGGER C23] 

DSXSFREEDBGSYM - FREE MEMORY MAPPED TO DEBUGGER SYMTABS „_ 

MAP DEBUGGER - MAP THE DEBUGGER'S MEMORY SPACE C23] 

UNMSP DEBUGGER - UNMAP THE DEBUGGER'S MEMORY SPACE C23D 
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11 

12 

13 
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19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

3? 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
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.TITLE MEMMGT *** MEMMGT Memory management setup/control 
. I DENT /06-29/ 
.NoShow Conditionals 
.DSABL GBL 

COPYRIGHT (C) 1977, 1981, 1983 a __ A ^ c/ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



♦ + 
FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: 

MODIFIED BY: 

01 



02 
03 



VAX DIAGNOSTIC SUPERVISOR. 



KEN CHAPMAN 



10-NOV-77 



VERSION 01. 



04 



05 

06 
07 



08 
09 
10 

11 



KEN CHAPMAN 30-NOV-77 VERSION 02 

DSPR #63 - FIXED $DS_GETBUF_L OVERLAYING HARDWARE P-TABLES, 

NICK HOWGATE 09-JAN-78 VERSION 03 (ESSAA-3.06) 
DSPR #41 - TURN ON MEMORY MANAGEMENT FIX, 
ADDED SSETPRT ROUTINE. 

KEN CHAPMAN 26-JAN-78 VERSION 04 (ESSAA-3.07) 
MORE FIXES TO MEMORY MANAGEMENT PAGE TABLES. 

KEN CHAPMAN 06-APR-78 VERSION 05 (ESSAA-4.01) 
ADDED P1 AND SYSTEM BUFFER ALLOCATION CAPABILITY. 
Roger Riggs 12-Jun-78 Version 06 (ESSAA-4,03) 
Fixed Release of P1 or SYS space conflict of PTE's 
MAPMEM cleanup and set DS$GL_MEMSIZE to bytes of physical 

N? m H0^GATE 14-NOV-78 VERSION 07 (ESSAA-5.01) 

CLEAR MACHINE CHECKS CORRECTLY 

FIX BUG IN $DS„SETPRT 

Removed dependence of MAPFREE on L$L„UNITS 

Added processor dependent I/O space mapping 
Roger Riggs 



6-Sept-1979 



ZZ-ENSAA-7,0 

MEMMGT 

06-29 



H 5 
*** MEMMGT Memory management setup/contr 27-JUL-1984 < no , F J£ h f J9/ 
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93 
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12 
12 



13 
14 



15 



16 



17 



18 
19 



20 
21 

22 



Added I0$GQ PHYSICAL, used to determine where to map 

I/O space in P1 space. 

Roger Riggs, 24-Jan-1980, Version 5.2 

Re-arranged system page table to allow system space addresses 

to map 1 for 1 P0 addresses in the range 2X10000 to the 

top of the P0 page tables. References to this range will 

reference the same addresses with or without memory management 

enabled. 

Roger Riggs, 5-Mar-1980, Version 5,3 

Made paae at APT$AT_APTTXT valid, affects APT when 

Memory Management is on. 

Roger Riggs, 12~Mar-1980, Version 5.3 

Added byte to save state of memory manaqment, allows 

Memory manaqment to be enabled or disabled after cleanup 

to restore it to what the operator indicated. 

Also if the operator enabled memory managment then the program 

is not allowed to turn it off. DSSGB MM_ENB is set 

by CLI command SET MM ON and SET MM OFF. 

Also added routines and support for XDELTA 

Roger Riggs, 21-May-1?80, version 5.4 

Removed upper limit on amount of memory checked 

Fix DSSEXPREG to set the protection of pages allocated to UW, 

In DSSMMON AND DS$MM0FF return the previous state of MM as 

SS$ WASSET OR SS$ WASCLR and return DS$„WARNING from 

DSSHMOFF if operator set MMON and program is disallowed from 

turning it off. Add code to flush the translation buffer 

before* turning MM ON, Set protections on stacks so 

underflows will can be caught by MM. 

Dave Butenhof 17-jul-1980 

Call MAPFREE from MAPMEM to free up memory; to allow 
GETBUF from Supervisor before program is loaded. 
Specifically, for HELP utility. 



Roger 
Changed 
how much 



Riqqs 



qgs, 17-Sep-1980, Version 6.0 
flAPFREF to check program loaded 
of low memory 



program 
to map. 



flag to determine 



Dave Butenhof, 23-feb-1981 f version 6,3 

Change a word-relative to longword-relative. 

Fix two bugs: in EXESSETPRT, correct return address array 

start address--8ICL3 first two operands were reversed. 

in EXESCNTREG, Comparison of P0 and P1/SYS PTE resulted in 

ERRSUP if M bit was altered, and ignored V and PFN; fix the 

compare mask. 

- Dave Butenhof, 08-Jun-1981, version 6.4 

Fix SETPRT some more. Do a CHMK to force cpu 
to KERNEL mode, so we can use MFPR. 

- dave butenhof, 3~sep~1981, version 6*5 
alter to use DS with new XDELTA 

Jack Stansbury, Version 6,8, May 28, I982 

Add an entry point to the ExpReg routine for use by CRD. 

In stand-alone, ExpReg was allocating space beqinning at 200< 

which is a no-no! Fix it to expand above the Supervisor (as it 
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*** MEMMGT Memory management 
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IS 
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24 


0000 


122 . 
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0000 


153 
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does on-line). 
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Richard Brown, Version 6.8, 25-June-82 
Addition of routines which map a block 
of memory for the debugger to use. 

Richard Brown, Version 6.9, 4-August-82 

Addition of routine to deallocate memory assigned 

to the debugger's symbol tables. 

Bob Bergazzi 5-Aug-82 Version 6.9 
Changed MAPFREE to call DSRSCheckLoad (SHOUMEM) 
to see if a proqram is loaded - fixes 'SET MM ON, 
ATTACH, Translation not valid fault" bug. 

Jack Stansbury 25~Auq-1982 Version 6.9 

Added two other vaiables: DS$GL_Actual JlemSize and 

DSSGL Set MemSize. The former is the actual size of the memory 

of the machine. The latter is the size that the operator wishes 

to set the memory. Also added .Library statements, and changed 

the PSect from SEP to what they should be. Also changed the 

insufficient memory message from a PrintF to a Print. 

Jack Stansbury 25-Aug-198? Version 6.9 
Fixed several truncation errors. 

Bob Bergazzi 2-Nov~1982 Version 6.9 
Changed the ACCESSABLE routine so that it only copies the 
first quadword of a page rather than every quadword on the 
page. This results in considerable savings of startup time, 
especially for NEBULA systems with large amounts of memory 
(areater than 3 Mea took longer than 10 



greater than 3 Meg took longer than 1 
^PT to consider the supervisor hung). 



seconds, causing 



Bob Bergazzi 29-Aug~1983 Version 6.13 

Changed the value of the minimum memory size required from 

256K to 512K bytes. 
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*** MEMMGT Memory management setup/contr 27-JUL-198A 15:33:44 
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0000 155 

0000 156 

0000 157 

0000 158 

0000 159 

0000 160 

0000 161 

0000 162 

0000 163 

0000 164 

0000 165 

0000 166 

0000 167 

0000 168 

CO00 169 

0000 170 

C000 171 

0000 172 

0000 173 

0000 174 

0000 175 

0000 176 

0000 177 

0000 1^8 

0000 1 79 

0000 180 

0000 181 

0000 182 

0000 183 

0000 184 

0000 185 

0000 186 

0000 187 

0000 188 

0000 189 

0000 190 

0000 191 

0000 192 

0000 193 

0000 194 

0000 195 

0000 1 96 

00000076 0000 1 97 

0000 198 

0000 199 

0000 200 

0000 201 

0000 202 

0000 203 

0000 204 

0000 205 

0000 206 

0000 207 

0000 208 



.SubTitle 



INCLUDE FILES: 



Libraries, Macros, and External Symbols 



.1 ibrary 
.Library 
.Library 



EQUATED SYMBOLS: 



/Sys$Library;Lib/ 

/$DS/ 

/SDiag/ 



;C26 
;C26 
;C26 



CMKDEF 
DSFDEF 

SCNTRFGDEF 

$DSJ3ITDEF 
SDS^CFDEF 
SDS DSADEF 
$DS DSDEF 
$DS ENVDEF 
$DS~GETBUF_DEF 
$DS~GETMEM„DEF 
IDS HDRDEF 
$DS~RELBUF_DEF 
$DS,RELMEM..DEF 
$DS„SCBDEF 
$DS„TypeDef 

SEXPREGDEF 

SIRPDEF 

SPHDDEF 

SPRDEF 

SPRTDEF 

SPSLDEF 

SPTEDEF 

SVJELD PTE,<29-9>,«I0,,M» 
ISETPPTDEF 
SSSDEF 



The typecodes 



C263 



197 K_P1PAGES=126 

.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
♦EXTRN 



Number ot PI pages to create 



MEMPOOLSINIT 
DS$GA LASTADR 
DSRISFTJMRJNI 
DSXSPrint 



POPT BASE, MAPSIOSPACE, 

MMGSBL SPT8ASE, DS$AQ_SYSSRV, 

SYSSUNOJND, DS$GL BUFCNT, 

DSIGQ..PHYADR, DSJRRSUP, 

IOSGQ PHYSICAL _ , _ 

see uRkint.stack BASE,ISTKPTR,KSTKPTR,ESTKPTR,SSTKPTR,USUPTR 

DSS* PRGSIi, 5S$A PRGBGN, DSSGL.FlAGS 

DEBUG LO, DEBUG^HI 
SYMTAB HI 
OSRSCheckLoad 



;C26; 



C2S 
C24 

C25i 
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Own Storage 



*** MEMMGT Memory 
Own Storage 



C 6 ... 
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management setup/contr 27-JUL-1984 15:33:44 

23-JUL-1984 16:23:38 
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00000004 
O0C00OO8 
OOOO0O0C 
00000010 
00000014 



00000018 



00000000 
0000001 D 



00000000 
00000004 
00000008 

oooooooc 

00000000 
00000000 
00000010 
00000000 
00000000 
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00000000 
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0000 
0000 
0000 
0000 
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0008 

oooc 
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0014 
00K 
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0018 
0018 
0018 
001 c 
001 c 
001 D 
001 D 
001D 
001D 
001D 
001 D 
001 D 
001D 
001 D 
001 D 
001D 
001D 
001 D 
001D 



210 

211 
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213 

214 
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216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 



.Subtitle 
.PSect 



Own Storage 

Work, NoShr, NoExe, Wrt, Long 



;C26 



OWN STORAGE: 



L POLEN: .BLKL 

A"P1BUFPTE: .BLKL 

A*"P1BUFVA: .BLKL 

A~SPTEND: .BLKL 

DSSGL.MEMSIZE:: .BLKL 

OSSGL Actual MemSize:; 

• BlkL 

DS$GL_Set_MemSize:: 

.Long 

DS$G8_MMJN8:: .BLKB 



PO (PHYSICAL MEMORY) IENGTH. 
PO ADDRESS OF P1 BUFFER PTE'S. 
PI BUFFER VIRTUAL ADDRESS. 
SYS PAGE TABLE END. 
BYTES OF PHYSICAL MEMORY 

The actual sue of memory 



The 'SET* memory size 
Initialized to zero 

if MM OFF, 1 if ON 



[261; 

[263 : 

1261. 
[263; 



; Symbols used to give initial values to X6 thru XD. 



PFNSAW SWPV8N 

PFNSALlPTE 

PFNSAL BAK 

PFN$AW"REFCNT 

PFN$AWlFLINK 

PFN$AW_BLlNK 

PF N$AB STATE 

PFN$AB"TYPE 

XDSSINlT 



L POLEN 

A"P1BUFPTE 

A'PIBUFVA 

A~$PTEND 

0" 



DSJGL.MEMSIZE 







X6 
X7 

X8 

X9 

XA 

XB 

XC Bytes physical memory 

XD 

Address of command string NOP 



[213 



[213, 
[21] 

[213; 



77-FNSAA-7 Data Storaae 27-JUL-1984 Fiehe 10 Frame D6 Seguence 192? 

M MMGT * 9 *** MEMMGT Memory management setup/contr 27-JUL-198A 15:33:44 VAX-1 Macro V03^T -ft^M) 

L »6-?9 Datastorage 23-JUI-1984 16:23: 38 DMA1 :[SYbO.SYSMAMTJMtMMGT.MAR;254< I) s 

001D 245 .Subtitle Data Storage i 

00000000 246 .PSect Data, Shr, NoExe, NoWrt, Long I 

0000 247 ; 

0000 248 MODNAM MEMMGT | 

0007 249 

0007 250 TJNSFMEM: „ #rpQ ! 

4C 55 21 20 79 6C 6E 4F 20 3F 3F 00' 0007 251 .ASCJC M ?? Only !UL pages memory present, 1024 are reqmreu.!/ ;C29; 
72 6F 6D 65 6D 20 73 65 67 61 70 20 0013 

31 20 2C 74 6E 65 73 65 12 70 20 79 001F I 

75 71 65 11 20 65 12 61 20 34 32 30 002B 
2F 21 2E 64 65 72 69 0037 

36 0007 

003E 252 



ZZ-ENSAA-7.0 

MEMMGT 

U6-29 



E 6 

MapMem Routine - Map all of memory 27-JUL-1984 ino , F ]£ h *7 1 ?, 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
MapMem Routine - Map all of memory 23-JUL-1984 16:23:38 



Frame E6 Seguence 1923 
VAX-11 Macro V03-0T Page 7 
D«A1:CSYS0.SYSMAINTJMEMMCT.MAR;254(1) 



003E 


254 


00000000 


255 


0000 


256 


0000 


257 


0000 


258 


0000 


259 


0000 


260 


0000 


261 


0000 


262 


0000 


263 


0000 


264 


0000 


265 


0000 


266 


0000 


267 


cooo 


268 


0000 


269 


0000 


270 


0000 


271 


0000 


272 


0000 


273 


0000 


274 


0000 


275 


0000 


276 


0000 


277 


0000 


278 


0000 


279 


0000 


280 


0000 


281 


0000 


282 


0000 


283 


0000 


284 


0000 


285 


0000 


286 


0000 


287 


0000 


288 


0000 


289 


0000 


290 


0000 


291 


0000 


292 


0000 


293 


0000 


294 



.SBTTL MapMem Routine - Map all of memory 
.PSect Code, Shr, Exe, NoWrt, Long 



+ + 



FUNCTIONAL DESCRIPTION: 

MAPS AVAILABLE MEMORY AND SETS UP MEMORY MANAGEMENT PAGE TABLES. 



Note: 



Note: 



ESKA2 (memory management testing) expects the length register 
for each addressing space to exclude 1 valid PTE. As $ a result 
there is a more valid PTE just beyond the length register. 



This allows a value to be inserted in the longword DS$GL_Set_MemSize 
that will be used as the memory size, rather than the actual memory 
size. This way, the operator can, for example, set up the memory for 
a 256K machine in a machine that actually has 2M (or whatever). Note 
that this user-set memory size must fulfill the following two 
conditions: . 

1. Must be greater than 0. is the default. 

2. Must be less than or equal to the actual memory size, 

CALLING SEQUENCE: 

BSBW MAPMEM 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: 

Plenty! 






ZZ-ENSAA-7.0 

MEMMGT 
06-29 



F 6 . 

MapMem Routine - Map all of memory 27-JUL-1984 ^o/i^f*// 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
MapMem Routine - Map all of memory 23-JUL-1984 16:23:38 



Frame F6 Sequence 1924 
VAX-11 Macro V03-0T Page 8 
DMA1:[SYS0.SYSMAINT]MEMMGT.MAR;254(1) 



007C 8F BB 

55 OOOOOOOO'EF OE 

53 D4 

6543 6543 C2 

7E 53 09 78 

00000207'EF 01 FB 

10 50 E9 

6543 A1800000 E3 9E 

DD 53 000FFFFF 8F F2 



00000014'EF 
56 



53 09 78 



00000018'EF DO 

08 13 

53 56 D1 

03 14 



53 56 DO 



00000010'EF 53 
00000400 8F 



09 
53 
15 



65 78000000 8F 

50 53 01 

00000000'EF 50 

09 50 



53 



7F 8F 
OC 
6543 63 



78 
D1 
18 



CA 
C3 
DO 
DA 

93 
13 
9E 



10$: 



20$: 



0000 296 MAPMEM:: 

0000 297 

0000 298 

0000 299 

0000 300 

0000 301 

0000 302 

0000 303 

0004 304 

OOOB 305 

000D 306 

000D 307 

0012 308 

0016 309 

C01D 310 

0020 311 

0028 312 

0028 313 

0030 314 

0030 315 

0030 316 

0030 317 

0030 318 

0030 319 

0030 320 

0038 321 

0038 322 

003F 323 

0041 324 

0044 325 

0046 326 

0046 327 

0046 328 

0046 329 

0046 330 

0046 331 

0046 332 

0046 333 

0049 334 

0049 335 

0051 336 

0058 337 

005A 338 

005A 339 

005A 340 

005A 341 

005A 342 

005A 343 

006F 344 

006F 345 

0076 346 

007A 347 

0081 348 
0084 349 
0084 350 
0088 351 
008A 352 



Determine how much memory is present and create page table for ft. 

tside the length register and reserved for 



The last page/PTE is ou 
; ESKAZ. 

PUSHR * A M<R2,R3,R4,R5,R6> 
MOVAL P0PT_BASE,R5 
CLRL R3 

SUBL2 (R5)[R3],(R5)[R3J 

ASHL *9,R3,-(SP) 

CALLS *1,L A ACCESSABLE 

BLBC R0,20$ 

MOVAB PTE$M VALID ! PTE$M„0WN 

(R5)[R3] 

AOBLSS rf A XFFFFF,R3,10$ 



22%i 



25$: 



30$: 



Save all the registers that are used 
Base Page Table 
Start with PFN = 

CLEAR PTE 

MAKE ADDRESS OF FIRST LOC 

Can the page be read? 

Branch if Not accessable 

PTE$CJJU(R3), - 

Make page valid. 

Repeat until aligned 



C26D 



C27] 



R3 now equals the number of pages in memory (i.e., number of K Bytes 
equal to R3 / 2). 



AshL #9, R3, - 

DS$GL„Actual MemSize 
MovL DS$GL Set_MemSize, R6 
Beql 22$ 
CmpL R6, R3 
Bgtr 22$ 



Use the value in R3 ( A 9) as the 

... actual memory size 

Get the user-set memory size (pages) 

If - 0, then branch 

Compare user-set and actual 

If user-set > actual, use actual 



Now the user-set memory size (in R6) satisfies the following: 

< R6 <= R3 
Remember that both of these quanities are number of pages. 



MovL R6, R3 

ASHL *9,R3 i DS$GL„MEM$]ZE 

CMPL R3,#1024 

BGEQ 25$ 



Use the user-set - not the actual 

Set memory size 
512K memory present? 
Branch if enough memory 



$Pn'nt - ; Print an error message 

#DS$K Type General.Error, -; ... a.general error 
#DS$K"Prin?F, - ; ... use PnntF 
T InsTMem, - ; ... the error message 
r3 ; ... the number of pages 



C26D 
[26] 



[26] 
[26] 
[26] 
[26] 
[26] 
[26] 



[26] 
[26] 
[26] 



[26] 

[26] 
[26] 



[26] 
[26] 
[26] 
[26] 
[26] 



8JCL *PTE$M PR0T,(R5> 

SUBL3 #1,R3,R0 

MOVL R0,L P0LEN 

MTPR R0, &PR$_P0LR 

BIT8 # A X7F,R3 

BEOL 40$ 

M0VA8 PTE$C NA(R3),(R5)[R3] 



No access to page zero 
Reserve last 1 PTE'S for ESKAZ 
Length in longwords of P0PT 
SET UP P0 LENGTH RcGlSTER. 

Offset page aligned 
Branch if so 
Make invalid page 



2Z-ENSAA-7.0 

MEMMGT 
06-29 



G 6 
27-JUL-1984 



Sequence 1925 
^VrMEMMGT'Meinory'management setup/contr 27-JUL-1984 15:33:44 VAX- 11 Macro V03-01 _ ._ Page 9 



MapMem Routine - Map all of memory 27-JUL-19M - O0 / F i£ h Si 1 // F wfw e ii 6 i 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 VAX;11 /.-. - madt^mi 

MapMem Routine - Map all of memory 23-JUL-1984 16:23:38 DMA1 :[SYS0.SYSMAINT]MEMMGT.MAR;254<1) 

EE 53 QOOFFFFF 8F F2 008E 353 A08LSS # A XFFFFF ,R3,30$ ; Repeat until aligned 

0096 354 . 

55 6543 DE 0096 355 40$: MOVAL (R5)CR3],R5 ; Point to SPT base 



ZZ-ENSAA-7.0 

MEMMGT 
06-29 



H 6 

MapMem Routine - Map all of memory 27-JUL-1984 F Iche 10 Frame H6 v/n<-n? uenCe )92 p™<> 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 VAX-11 Macro V03-01 M a2?S^m> 

MapMem Routine - Map all of memory 23-JUL-1984 16:23:38 DMA1 :CSYS0.SYSMAINT;]MEMMGT,MAR;254(1 > 



10 



51 



OC 55 

00000000' EF 55 

53 

51 00'8F 

6543 81800000 E1 

51 
F2 53 04 

6543 
F5 53 00000080 8F 

00000010'EF F? 8F 
6543 F1800000 E3 

F4 53 51 
08 80000000' 8F 



009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

009A 

C09A 

009A 

009A 

009A 

009A 

009A 

DA 009A 

DO 009D 

D4 00A4 

9A 00A6 

OOAA 

9E OOAA 

00B2 

D6 00B2 

F2 0084 

00B8 

D4 00B8 

F2 0088 

00C3 

78 00C3 

9E OOCC 

00D4 

F2 00D4 

DA 00D8 

OODF 



357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 



Setup system page tables t . ,. fc 

Map the normal system service vectors to their supervisor counterparts 

but do not allow access to catch programming .errors. 

Map pages from 80000800 to 80010000 N/A and invalid, available for expreg 

in system space. 

Map pages from 80010000 

writeable. Makes system 

Map each page allocated 

Length registers. . ^^ 

Allocate 16 System PTEs for EXPREG to use in allocating SYSTEM space. 

Allocate 32 PTEs to map P1 page tables and set the P1 base and length 

registers. Also allocate 1 PTE for the space allocated by EXPREG in Pi space 

And reserve two PTEs, one inside the length register and one outside for 

ESKAZ. 



to 80000000+end of P0 
space map to physical 
to the P0 page tables 



Page table 
memory, 
and set the 



user read, kernel 
P0 Base and 



50$: 



MTPR R5, *PR$ SBR 

MOVL R5, MMGSSL.SPTBASE 

CLRL R3 

MOVZBL #DS$AQ_SYSSRV 3-9, R1 



SET SYSTEM BASE REGISTER. 
Save pointer to system page table 
Start with PFN in system space 
SYSTEM SERVICE PAGE NUMBER. 



60$: MOVAB PTE$M VALID ! PTESC.NA ! PTE$M_0WN(R1 ), - 



(R5)[R3D 
INCL R1 
AOBLSS *4,R3,60$ 

65$: CLRL (R5)[R3J 

AOBLSS #128,R3,65$ 

ASHL #-9<DS$GL MEMSIZE,R1 

70$: MOVAB PTE$M VALID ! PTESCJJRKW 

(R5)CR3J 
ACBLSS R1,R3,70$ 
MTPR #*X80000000 ! P0PT.BASE, 
#PR$_P0BR 



Set no access 
Next page 
Fill 4 pages 



to virtural 80000000 



Clear next PTE 
Fill rest of page 



with avail SPTE's 



♦ 1 



Get PFN of last page 
! PTESM OWN (R3), - 
Map 1 Tor 1 valid and user readable 
Map up to end of P0 PT 

Set P0 Base register 



ZZ-ENSAA-7.0 

MEMMGT 

06-29 



I 6 

MapMem Routine - Map all of memory 27-JUL-1984 « rt o/ F i£ h f* 1 /, 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
MapMem Routine - Map all of memory 23-JUL-1984 16:23:38 



Frame 16 Sequence 1927 

VAX-11 Macro V03-01 Pa 9£^!K 
DMA1:CSYS0.SYSMAINT]MEMMGT.MAR;254(1) 



54 



00000008' EF 









OODF 


397 








OODF 


398 








OODF 


399 








OODF 


400 








OODF 


401 




50 53 09 


78 


OODF 


402 


50 


80000000 8F 


C8 


00E3 
OOEA 


403 
404 


00000000 


'EF 15 09 


EF 


OOEA 
00F3 


405 
406 


54 


0000007F 8F 


C2 


00F3 


407 




OB 54 


DA 


OOFA 


408 




54 


D7 


OOFD 
OOFF 


409 
410 




51 54 04 


C5 


COFF 


411 




50 51 


C2 


0103 


412 




OA 50 


DA 


0106 
0109 


413 
414 


52 


01800000 8F 


DO 


0109 
0110 


415 
416 




6543 52 


DO 


0110 


417 




53 


D6 


0114 
0116 


418 
419 


50 


OOOOOOOO'EF 


7D 


0116 


420 




51 50 


C2 


011D 


421 


50 


51 OE 10 


EF 


0120 


422 




50 02 A340 


9E 


0125 
012A 


423 
424 




6543 52 


DO 


012A 


425 




F8 53 50 


F2 


012E 
0132 


426 
427 


OOOOOOOO'EF 6543 


DE 


0132 


428 




50 53 01 


C3 


01 3A 


429 




OD 50 


DA 


013E 
0141 


430 
431 




53 1\ 8F 


93 


0141 


432 




08 


13 


0145 


433 




6543 


D4 


0147 


434 


EF 53 


OOOFFFFF 8F 


F3 


014A 

0152 


435 
436 




55 6543 


DE 


0152 


437 




51 54 09 


78 


0156 


4 38 


'EF 51 


40000400 8^ 


C9 


015A 
0166 


439 
440 




51 54 


DO 


0166 


441 


52 


01800000 8F 


DO 


0169 


442 




50 7E ^ 


9A 


0170 
0174 


443 

444 




39 


10 


0174 


445 


51 


00000008'EF 


DO 


0176 


446 




00000685' EF 


16 


017D 


447 


00000004' EF 51 


DO 


0183 


448 




OOOOOOOO'EF 


16 


018A 


449 


00000000 'EF 55 


DO 


0190 


450 








0197 


451 




OOOOOOOO'EF 


16 


0197 
019D 


452 
453 



Setup PTE's to map P1 page tables 

ASHL #9,R3,R0 

BJSL # A X80000000,RO 



80$: 



90$; 



100$: 



SVA for this PFM 

Make SVA of first P1 PTE 



EXTZV #9,#21,J0$GQ_PHYSICAL,R4; Get PFN of lowest I/O space 



SUBL #1 21, R4 

MTPR R4,#PR$J>1LR 

DECL R4 

MULL3 *4,R4,R1 

SUBL R1,R0 

MTPR RO, #PR$_P18R ; 

MOVL #PTE$M_0WN,R2 

MOVL R2,(R5)CR33 

JNCL R3 

MOVQ IO$GQ_PHYSICAL,R0 

SUBL R0,R1 

EXTZV *16,*14,R1,R0 

M0VA8 2<R3)CR0],R0 

MOVL R2,(R5)CR3J 

AOBLSS R0,R3,80$ 

MOVAL (R5)CR3J, AJPTEND 

SUBL3 #1,R3,R0 

MTPR RO, *PR$_SLR 

BJT8 # A X7F,R3 

8EQL 100$ 

CLftL (R5)CR3] 

AOBLEQ #*XFFFFF,R3,90$ 

MOVAL <R5)[R3J,R5 

ASHL #9,R4-R1 

BISL3 # A X40000400,R1 ,A_P1BUFVA; 

MOVL R4,R1 

MOVL #PTE$M OWN ! PTE$C.NA,R2; 

M0VZ8L #K_P1PflGES,R0 

BSBB MAPMEM$IOSPACE 

MOVL A P1BUFVA,R1 

Jsb RPTEADR 

MOVL R1,AP1BUFPTE 

Jsb MAP$IOSPACE 

MOVL R5,DS$GA_LASTADR 

JSB MEMPOOLSiNIT 



PFN of scratch area 
Set length register 
Base is really 128 pages away 

Make byte offset 

byte address of P1 base 

Set P1 base register 

Initial PTE protection 

Free SPTE for P1 scratch 
Update free PTE pointer 

Get I/O space address range 
Length of I/O space 
Get SPTE's required 
Final PTE + 2 for ESKAZ 

Set PTE protection 

For each page of P1 page tables 

SAVE END OF TABLE ADDRESS. 
Decrease for base register 
SET SYSTEM LENGTH REGISTER 

End of page? 

Branch if so 

Invalid PTE and no access 

Increment and branch 

First free 
P1 address 
Vlrtural address of P1 scratch area 

P1 PFN to map for scratch area 
No access to these pages 
Map K.P1PAGES pages 

setup that page and the other 127 

Get P1 virtural address 

Get address of PTE^ 

Address of first P1 PTE 

Map I/O space 

Record last available 

Initialize memory pool 



C27]j 
C273! 



ZZ-ENSAA-7.0 

MEMMGT 

06-29 



MapMem Routine - Map all of memory 27-JUL-1984 F iche 10 ^^^6 wn ,S? W " P»a* 

*** MEMMGT Memory management setup/contr 27-JUL-198A J5:3|:44 VAX-11 Macro V03-0T M AP?S^m 

MapMem Routine -Map all of memory 23-JUL-1984 16:23:38 DMA1 jCSYS0.SYSMAJNTJMEMMGT.MAR;25A(1 ) 



12 



00000242*EF 
0Q0002AA*EF 00 

007C 8F 



16 


01 9D 


454 


Jsb 


STACKPR0T 


FB 


01A3 
01AA 


455 

456 


CALLS 


#0,MAPFREE 


RA 


01AA 


457 


P0PR 


#*M<R2,R3, 


05 


01AE 


458 


RS8 





Set protections on stack pages 
Free memory 

Restore the saved registers 



L271 
1261 



ZZ-ENSAA-7.0 

MEMMGT 
U6-29 



K 6 
MAPMEMSIOSPACE Setup page tables for I/O 27-JUL-1984 1o0/ F |ghe 10 Frame K6 

*** MEMnGT Memory manaqement setup/contr 27-JUL-1984 1 5 : 33:AA VAX- 1 1 Macro .._ ...^-^ r ,/^ 

MAPMEMSIOSPACE Setup page tables ?or J/0 23-JUL-1984 16:23:38 DMA1 :CSYS0.SYSMAINT3MEMMGT.MAR;254<1) 



Sequence 
V03-01 



1929 
Page 



13 



01AF 


460 


0W 


461 


01AF 


462 


01AF 


463 


01AF 


464 


01AF 


465 


01AF 


466 


01AF 


467 


01AF 


468 


01AF 


469 


01AF 


470 


01AF 


471 


01AF 


472 


01AF 


473 


C1AF 


474 


01AF 


475 


01AF 


476 


01AF 


477 


01AF 


478 


01AF 


479 


01AF 


480 


01AF 


481 


01AF 


482 


01AF 


483 


01AF 


484 


01AF 


485 


01AF 


486 


01AF 


487 


01AF 


488 



.SBTTL MAPMEMSIOSPACE Setup page tables for J/0 space 



+ + 



FUNCTIONAL DESCRIPTION: 



This routine is called by MAPSJOSPACE to setup .a PTE 

for an I/O space address. If necessary a page is allocated for the 

corresponding SPTE and filled with invalid no access PTE's. 

The particular address desired is then given the specified 

protection. 



CALLING SEQUENCE: 

BS8W MAPMEMSIOSPACE 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: 



R0 
R1 
R2 
R5 



Count of pages to setup 

PI PFN to map 

PTE format protection and valid bits (pte format) 

Address of free space pointer 

NONE 



OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 

R5 Possibly update free page pointer 



ZZ-ENSAA-7,0 

MEMMGT 
06-29 



L 6 . 

MAPMEM$10SPACE Setup page tables for 1/0 27-JUL-1984 < nQ J}$ h U*9, 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
MAPMEMSIOSPACE Setup page tables for I/O 23-JUL-1984 16:23:38 



Frame L6 Seguence 1930 
VAX-11 Macro V03-0T Page 14 
DMA1:CSYS0.SYSMAINT]MEMMGT. MAR; 254(2) 



54 



18 

53 OA 

53 6341 
53 15 09 

7E OC 

54 9E44 
23 64 1F 



50 
64 



85 



55 F7 

F 1800000 

51 7F 

50 7F 

01800000 

F5 51 



03 
8F 
EO 
8F 
A1 
E1 

50 
03 



7E 64 15 00 

53 17 09 8E 

63 F8000000 8F 

63 52 



A9 



18 

51 
50 



BB 
DB 
DE 
EF 
DB 
DE 
EO 

BB 
78 
9E 
8A 
9E 
9E 

F3 
BA 

EF 
FO 
CA 
C8 

BA 
D6 
F5 
05 



01 AF 

01AF 

01B1 

01B4 

01 B8 

01BD 

01C0 

01C4 

01 C8 

01C8 

01 CA 

01 CF 

01D6 

01 DA 

01 DE 

01E5 

01E5 

01E9 

01EB 

01 EB 

01F0 

01F5 

01FC 

01FF 

01FF 

0201 

0203 

0206 



490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 



MAPMEM$10SPACE: 
PUSHR 
MFPR 
MOVAL 
EXTZV 
MFPR 
MOVAL 
BBS 



PUSHR 

ASHL 

MOVAB 

BICB 

MOVAB 

MOVAB 



10$: 



20$: 



AOBLEQ 
POPR 

EXTZV 
INSV 
BJCL 
BJSL 

POPR 
INCL 
SOBGTR 
RSB 



# A M<R3,R4> 

#PR$ P1BR,R3 

(R3)TR1] A R3 

#9,#21,R3,R4 

*PR$ SBR,-(SP) 

a(SPT+CRA3,R4 

*31,(R4>,20$ 

# A M<R0,R1> 

*-9,R5,R0 

PTESM VALID ! PTE$C_URKW 

# a X7FTR1 

127CRD.R0 

PTE$M OWN ! PTE$C NA(RD 

<R5>+" 

R0,R1,10$ 

# A M<R0,R1> 

#0,#21,<R4),-(SP) 

<SP)+,*9,#23,R3 

*PTE$M PR0T!PTE$M_ VALID. 

R2,(R37 

# A M<R3,R4> 

R1 

R0,MAPMEM$JOSPACE 



Save 

P1 base register 

VA of PI PTE 

PFN of SVA 

Get system base register 

Physical address or SPTE 

Branch if already valid 



Save 2 

PFN of free page 
! PTE$M_0WN(R0),(R4) 
Lowest PFN this page 
Final PFN 



of PTE's 



Fill invalid no access 
Count and continue 
Restore 2 

Get Physical PFN of PI 
Now have Physical addr 
R3) ; Clear protection 
Set protection 



PTE's 



PTE 
of PTE 



Restore 
Update PFN 
Repeat until 



done all pages 



ZZ-ENSAA-7.0 

MEMMGT 



M 6 iA 

ACCESSABLE check a page for accessabilit 27-JUL-1984 in0 / F ]£ h l7 1 // 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15 :33:AA 
ACCESSABLE check a page for accessabilit 23-JUL-1984 16:23:38 



Frame M6 Seguence 1931 
VAX-11 Macro V03-0T Pa 9? 1* 
DMA1:CSYS0.SYSMAINTJMEMM6T.MAR;25A(3) 



51 04 AC 



6D ID'AF 
000001FF 8F 



04 AO 



t 1 

>0 



50 04 
00660088 

OC A1 r 4 



00000000 'EF 



61 
01 



AC 
8F 
OF 
AO 
7E 
02 



50 0918 8F 



0000 
9E 
C8 

7D 
DO 
04 

0000 
7D 
D1 
12 
DO 
7C 
F8 
04 

3C 
04 



0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

C207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0209 

0200 

0216 

0216 

0219 

021C 

021D 

021D 

021F 

0223 

0228 

022D 

0232 

0234 

0238 

023C 

023C 

0241 



519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 



.S8TTL ACCESSABLE 



check a page for accessabi h'ty 



FUNCTIONAL DESCRIPTION: 

This routine is used to determine if every word on a page 
can be read and written, specif icfaUy by writing each 
QUADWORD to itself. 

CALLING SEQUENCE: 

ACCESSABLE (address) 
INPUT PARAMETERS: NONE 

address Page address to check bits 0-8 are ignored 



IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 

SSS.NORMAL 
SSS.MCHK 



NONE 
NONE 
NONE 



if page ok 

if machine check occured during processing 



ACCESSABLE: 

.WORD 
M0VA8 
BICL3 

MOVQ 
MOVL 
RET 



30$: 



40$: 



.WORD 

MOVQ 

CMPL 

BNEQ 

MOVL 

CLRQ 

CALuS 

RET 

MOVZWL 
RET 



A M<> 

B*30$,(FP) 
# A X1FF,4(AP),R1 

(R1),(R1) 
S A *SS$_N0RMAL,R0 



A M<> 

4(AP),R0 

#DS$ MCHK,4(R0) 

40$ " 

4(R0),12(R1) 

-<SP) 

02,SYS$UNWIND 



#SS$_RESIGNAL,RO 



; Cave no registers 

; Set condition handler 

; Address to start 

; Copy quadword to self 

; Success 



Save no registers 

Signa'. and mechanism pointers 

Machine checK? 

Branch if not 

Change routine RO 

No args to unwind 

Unwind stack 

Return 

Let someone else have it 
Return 



[283 



ZZ-ENSAA-7.0 

MEMMGT 

06-29 



STACKPROT 



51 



6K0 

FO 50 



6140 
FO 50 

6H0 

FO 50 

6U0 

FO 50 

6H0 

FO 50 



OOOOOOOO'BF 
50 0000'8F 

78000000 8F 

ooooooocsf 

50 0000'8F 

6K0 00 
50 

70000000 8F 
00000000' 8F 

68000000 8F 
00000000'8F 

60000000 8F 
00000000* 8F 

20000000 8F 
00000000* 8F 



*** MEMMGT 
STACKPROT 

0242 

0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
C242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
0242 
DE 0242 
3C 0249 
024E 
CA 024E 
F2 0256 
025E 
3C 025E 
0263 
C8 C263 
D6 0267 
0269 
C8 0269 
f2 0271 
02/9 
C8 0279 
F2 0281 
0289 
C8 0289 
f2 0291 
0299 
(8 0299 
F? 02A1 
02A9 
05 02*9 



Memory management 



N 6 . , rt 

27-JUL-1984 Fiche 10 
setup/contr 27-JUL-1984 15:33:44 
23-JUL-1984 16:23:38 



Frame N6 Seguence 1932 

VAX-11 f<acro V03-0T Pa 9g .JA 
DMA1:CSyS0.SYSMAINTJMEMMGT.MAR;254(4) 



569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

M6 

017 

618 
619 
620 
621 
622 
623 



.S8TTL STACKPROT 



FUNCTIONAL DFiCRIPTJON: 

This routine is used to set the protections on stack pages so 
that underflows of each stack will cause access violations. 
The user stack underflows into the SUPER stack, the SUPER stack 
underflows into the EXEC stack, the EXEC stack underflows into t 
the 1NTERRUT stack (protected KW), the KERNEL stack underflows into 
SCB_UNKINT which is read only. 

CALLING SEQUENCE: 

BSBW STACKPROT 

INPUT PARAMETERS: NONt 
IMPLICIT INPUTS: 

The page tables and stack addresses 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SJDE EFFECTS; NONE 



STACKPROT: 

MOVAL 
MOVZWL 



10$: 



8ICL2 
A08LSS 



POPT BASE,R1 

#STAF*- ,BASEa-9,R0 

*PTE$M PROMRDCROJ 
#USTKPTRa-9,R0,10$ 



30$' 
40$: 
50$: 
60$: 



MOV?WL #STACK..BASEa-9,R0 

BISL *PTE$C NA, (RDCR03 

INCL RO 

BliL *PTE$C URKW, (RDCROD 

A08LSS #ISTKPTRa-9,R0,30$ 

BISL #PTE$C UREW, (RDCROD 

AOBLSS 0ESTKPTRS-9,RO,4O$ 

BISL #PTE$C URSW, (RDCRO] 

AOBLSS 0SSTKPTRa-9,RO,5O$ 

BISL *PTE$C UW, iRDCRO] 

AOBLSS *USTKPTR8)-9,rtO,60$ 

RS8 



Base PO page table 

PFN of read only section 

Clear protections in all pte's 
Branch if more to clear 

PFN of read only section 

Set protection to no access 

1 page protects bottom of stack 

Set protection to KERNEL Write 
Protect KW thru INTERRUPT stack 

Set protection to EXEC write 
Protect EW thru EXEC stack 

Set protection to SUPER write 
Protect SW thru SUPER stack 

Set protection to USER write 

Protect UW thru USER stack 

Return 



ZMNSAA-7.0 

MEMMGT 
?6-29 



B 7 
MAP FREE MEMORY PROCEDURE. 27-JUL-198A fi'che 10 Frame B? Seguence 1933 

map tKtt ntnuNY ™uicuu«t. managem ent setup/contr 27-JUL-1984 15:33:44 VAX-11 Macro V03-0T **?%tAL 

MAP FREE MEMORY PROCEDURE. 23-JUL-1984 16:23:36 DMA1 :[SYS0.SYSMAINT]MEMMGT.MAR;254<5> 



02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

C2AA 

C2AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 

02AA 



625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

63? 

638 

639 

640 

641 

642 

643 

644 

645 

646 

64 7 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 



+ + 



.S8TTL MAP FREE MEMORY PROCEDURE. 
FUNCTIONAL DESCRIPTION: 

MAPS ALL FREE MEMORY BEFORE STARTING A PROGRAM. 
CALLING SEQUENCE: 

PROCEDURE CALL. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 



L$L_HPTL 

l$a lastadr 
dsaSgi. units 

L POLL-fl 



- LENGTH OF EACH HARDWARE PARAMETER TABLE 

- LAST ADDRESS OF USER PROGRAM. 

- NUMBER OF UNITS CURRENTLY SELECTED. 

- LENGTH OF PO PAGE TABLE. 



OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

EFFECTIVE $DS_REL8UF^L OF ALL USER BUFFER SPACE, 
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MEMMGT 
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C 7 

MAP FREE MEMORY PROCEDURE, P7-JUM9M F jche 10 Frame C7 Sequence 1934 

*** MEMMGT Memory manaqement setup/contr 27-JUL-1984 1 5 : 33 : ^A VAX- 1 1 Macro VOS-Ul ./f a 9£-, 9s 

MAP FREE MEMORY ^ROCEDORE. 23-JUL-1984 16:23:38 DMA1 : CSYS0.SYSMAINT3MEMMGT.MAR;254<6> 



54 



54 



00000000'EF 

00000000'EF 

11 50 



00000214 f EF 

52 



53 
54 



00OOFA0O 8F 
00000000'EF 

O0000000'fcF43 



GC0u0000'EF43 
C5 53 



53 



MFD 53 



05 



04 

50 



53 
09 
52 
20 
52 
09 
52 
OE 
81800000 8F 



OC 
81800000 8F 



003C 

9E 
16 
E9 



DO 

DA 

78 

D1 
19 

D1 
19 

D1 
19 
CA 

11 
C8 



00000000* EF F2 



52 7 l SF 
00000004' EF 

83 
F8 52 



OOOOOOOO'EF 

63 02 17 

02 
63 

OOOOOOOC'EF 
OOOOOOOO'EF 

80 
80 

FEFD CF 



9A 
DO 

DA 
F5 



DO 

ED 
13 
DA 

F1 
7E 
7C 
?( 

'6 
04 



02AA 

02AC 

02AC 

0283 

0289 

028C 

028C 

02C6 

02CD 

02CD 

02CF 

02D3 

02D6 

02D8 

C2DF 

02E1 

02E8 

02EA 

02F6 

02F6 

02F8 

0304 

0304 

0304 

030C 

030C 

030C 

030C 

030C 

030C 

0310 

0317 

0317 

0319 

031C 

031C 

031C 

031C 

031C 

031C 

0323 

0323 

0328 

032A 

032C 

032C 

0336 

033D 

033F 

0341 

0341 

0345 



664 .ENTRY MAPFREE , A M<R2,R3,R4,R5> 
665 

M0VA8 

JS8 

BLBC 



ENTRY POINT 



666 

667 

668 

669 

670 

671 

672 5$: 

673 

67A 10$: 

675 

676 

677 

678 

679 

680 

681 20$: 

682 

683 

68A 30$: 

685 

686 

687 40$: 

688 

689 



DS$K PRGSIZ+DS$A PRGBGN,RA ; Assume no program loaded 
... - pj n( j out ^ c heck program hdr 

Branch if no program loaded 



DSR$theckLoad 
RO, 5$ 



JFNORD 
MOVL 

CLRL 
ASHL 
CMPL 
BLSS 
CMPL 
BLSS 
CMPL 
BLSS 
BICL2 

BR8 
BISL2 



#4,L$A LASTADR,5$ 
LSAJ.A5TADR, R4 

R3 

*9,R3,R2 

R2, R4 

30$ 

R2, *DSA$AT APTTXT 

20i 

R2 f L*DS$GA_LASTADR 

30i 



#PTE$M VALID ♦ PTE$M_OWN, - 

P0PT"BASECR33 
40$ 
#PTE$M_ VALID ♦ PTE$M_0WN, - 

POPT BASECR3D 



Branch if can't read it 
Use size of program instead 

CLEAR R3. 

MAKE VJRTURAL ADDRESS THIS PAGE 

CHECK FOR END OF USER CODE. 

Bottom of APT text area? 

Check for start of buffers 

; INVALIDATE PAGE. 



690 

691 

692 

693 

694 

695 

696 50$: 

697 

698 
699 



A08LSS L A L_P0LEN, R3, 10$ 
INIT P1 SPACE BUFFER. 



VALIDATE PAGE, 
CHECK FOR ALL DONE. 



M0VZ8L *K PIPAGES, R2 

MOVL A_P1BUFPTE, R3 

CLRL <R3>* 

S08GTR R2,50$ 



P1 PTE's to clear 

; PAGE TABLE ENTRY POINTER. 

; FREE PAGE. 



700 

701 

702 

703 

704 

705 60$: 

706 

707 

708 

709 70$: 

710 

711 

712 

713 

714 

715 



INK SYSTEM SPACE BUFFER. 

MOVL MMG$GL_SPTBASE,R3 



1252 
£25] 



C273 



CMPZV 

BEQL 

CLRL 

AC8L 
MOVAQ 
CLRQ 
CLRQ 

Jsb 
RET 



#PTE$V OWN, *PTE$S OWN, <R3>, *3 

70$ " 

(R3) 

A 5PTEND, #4, R3, 60$ 
D5$GL_BUFCNT.R0 
(R0) + 
(R0) + 



System page table pointer. 

; SUPERVISOR PAGE? 

FREE PAGE. 

LOOP TO END. 

Address of buffer counts 
Reset PO, P1 buffer counts 
RESET SYS AND SUP BUFFER CNTS, 



STACKPROT 



Re-protect stacks 



1271 



77-FNSAA-7.0 

.U»-<?9 



& 7 

GET A BLOCK OF VIRTUAL MEMORY. 2 7 : JUL : 19 §4 mi 1floy F j C c h ** 1 ?A 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:A4 
GET A BLOCK OF VIRTUAL MEMORY. 23-JUL-1984 16:23:38 



Frame D7 Seguence 1935 
VAX-11 Macro V03-01 Page 19 
DMA1:CSYS0.SYSMAINTJMEMMGT.MAR;25A(7) 



0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

03' 6 

0346 

0346 

0346 

0346 

C346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 



717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

74? 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 



.SBTTL GET A BLOCK OF VIRTUAL MEMORY. 



+ + 



FUNCTIONAL DESCRIPTION: 

THIS PROCEDURE EMULATES THE STARLET SYSTEM SERVICE 
EXPAND PROGRAM REGION, 

CALLING SEQUENCE: 

STARLET PROCEDURE CALL. 
INPUT PARAMETERS: 

EXPREG$_PAGCNT(AP) = 

EXPREGS.RETADR(AP) = 



'EXPREG' 



EXPREGS ACMODE = 
EXPREGSIREGION(AP) = 



NUMBER OF PAGES TO ADD TO THE END OF Th'P PROGRAM 

REGION. 

ADDRESS Oh A 2-LONGWORD ARRAY IN WHICH TO RETURN 

THE VIRTUAL ADDRESSES OF THE STARTING PAGE AND 

ENDING PAGE OF THE EXPANTION AREA. 

ACCESS MODE. NOT USED. 

REGION CODE: 

= PROGRAM (PO) REGION. 

1 = CONTROL (P1> REGION. 

2 = SYSTEM REGION. 



2-LONGWORD ARRAY CONTAINING THE STARTING AND 
ENDING ADDRESSES OF THE EXPANDED REGION, 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

S)EXPREGS.RETADR(AP) = 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

SS$ NORMAL = SERVICE SUCESSFULLY COMPLETED. 
SS$"JLLPAGCNT = PAGE COUNT < 1. 
SSSlVASFULL - VIRTUAL ADDRESS SPACE FULL. 

SIDE EFFECTS: 

NONE 

REGISTER USAGE: 

RO = RETURN STATUS. 

R1 = BEGINNING PO PTE POINTFR. 

R2 - PO PTE POINTER LIMIT. 

R3 = COUNT / 'REGION 1 PTE POINTER. 

R4 = COUNT / 'REGION' PTE LIMIT. 

R5 = VIRTUAL ADDRESS. 

R6 = PTE DATA. 



ZZ-ENSAA-7.0 

MEMMGT 
06-29 



GET A BLOCK OF VIRTUAL MEMORY. 27-JUL-1984 F iche 10 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
GET A BLOCK OF VIRTUAL MEMORY. 23-JUL-1984 16:23:38 



Frame E7 Sequence 1936 

VAX-11 Macro V03-01 Page 20 
DMA1:[SYS0.SYSMAINT3MEMMGT.MAR;254<8) 



52 OOOOOOOO'EF F7 8F 

54 00000000' EF 52 

52 00000000^42 

10 



52 OOOOOOOO'EF 
54 OOOOOOOO'EF 



007C 

78 
C3 
OE 
11 

007C 

DE 
DO 





51 52 


DO 




53 04 AC 


DO 




08 


14 




50 OOFC 8F 


3C 




00E2 


31 




07 54 


F5 




50 0244 8F 


3C 




OA 


11 




82 


D5 




C1 


15 




EF jS 


F5 




50 01 


DO 




55 61 09 


78 


OOOOOOOO'EF 55 


DO 




7E 


7C 


03 


00 10 AC 


CF 
OOOD' 
0012' 
0027* 
OOOD' 




50 


D4 




OOAF 


31 




53 51 


7D 




3D 


11 


53 


00000004'EF 


DO 




54 01F8 C3 


DE 


55 


00000008'EF 


DO 




12 


11 


53 


OOOOOOOO'EF 


DO 


54 


OOOOOOOC'EF 


DO 




55 01 1F 


78 



0346 

0348 

0348 

0351 

0359 

0361 

0363 

0363 

0365 

0365 

036C 

0373 

0373 

0373 

C373 

0376 

037A 

037C 

0381 

0384 

0387 

038C 

038E 

0390 

0392 

0395 

0398 

039C 

03A3 

03A5 

03AA 

03AC 

03AE 

03B0 

03B2 

03B2 

03B4 

03B7 

03B7 

03BA 

038C 

038C 

03C3 

03C8 

03CF 

03D1 

03D1 

03D8 

03DF 



775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 
823 



.Entry Crd$ExpReg, A M<R2,R3,R4,R5,R6> 

AshL #-9, L*DS$GA_LastAdr, R2 
SubL3 R2, L A L_POLen, R4^ 
MovAL POPT Base [R2J, R2 



CRD entry point 



[223 



Brb 



ExpReg_Common 



Calculate PFN of LastAdr [223 
Get remaining length of table [223 
Get new starting address [223 
Skip to the common stuff [223 



.ENTRY EXE$EXPREG, A M<R2,R3,R4,R5,R6> 



ENTRY POINT 



MOVAL 
MOVL 

ExpReg.Common: 



10$: 



20$: 



30$: 



40$: 



50$: 



60$: 



70$: 



80$: 



MOVL 

MOVL 

BGTR 

MOVZWL 

t3RW 

S08GTR 

MOVZWL 

BRB 

TSTL 

BLEQ 

SOBGTR 

MOVL 

ASHL 

MOVL 

CLRQ 

CASEL 

.WORD 

.WORD 

.WORD 

.WORD 

CLRL 
BRW 

MOVQ 
BR8 

MOVL 
MOVAL 
MOVL 
BR8 

MOVL 

MOVL 
ASHL 



POPT BASE, R2 
LU.POIEN, R4 



R2, R1 

EXPREG$ PAGCNT(AP), R3 

#SS$ ILLPAGCNT, RO 

EXE$EXPREG.X 

R4, 30$ 

#SS$_VASFULL, RO 

40$ 

(R2) + 

10$ 

R3, 20$ 

*SS$ NORMAL. RO 

#9, 7RD, R5 

R5, DS$GQ PHYADR 

-(SP) 

EXPREG$ REGION(AP), #0, #3 

60$ - 50$ 

70$ - 50$ 

80$ - 50$ 

60$ - 50$ 

RO 
EXE$EXPREGJ< 

R1> R3 
110$ 

A P1BUFPTE, R3 
lTP1PAGES*4(R3>, R4 
A~P1BUFVA, R5 
100$ 

MMG$GL SPT8ASE,R3 
A SPTERD, R4 
#31, *1, R5 



START OF PO PAGE TABLES, 
PO PAGE TABLE LENGTH. 

Common point 

SAVE PAGE NUMBER IN CASE FREE. 

GET PAGE LIMIT. 

BR IF > 1. 

ILLEGAL PAGE COUNT. 

COUNT PAGES. 
OUT OF MEMORY. 

LOOK FOR EXISTS BUT NOT VALID. 

BR ON NO GOOD. 

LOOP TILL ENOUGH PAGES. 

NORMAL RETURN. 

GET PO VIRTUAL ADDRESS. 

SAVE THE PHYSICAL ADR. 

SPACE FOR VIRTUAL ADRS. 

SET UP FOR REGION. 

PO 

P1 

SYS 

SUPERVISOR. 

RETURN ERROR STATUS, 



COPY PO PAGE TABLE POINTERS, 
BR TO COMMON CODE, 

P1 PAGE TABLE POINTER. 
End of P1 page table 
P1 BUFFER VIRTUAL ADDRESS, 
BR TO COMMON CODE. 

System page table pointer 
END OF SYS PAGE TABLE. 
SYSTEM VIRTUAL ADDRESS. 



[273 

[223 
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*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
GET A BLOCK OF VIRTUAL MEMORY. 23-JUL-1984 16:23:38 



55 
FFEF 



56 02 

56 

61 

55 



00000200 
53 04 
6E 



6E 
56 01 
17 10 



63 
12 
8F 
54 
55 
36 

55 
IF 
AC 



78000000 8F 
61 56 
8! 81 

00000200 8F 
52 51 



54 



OE 
53 
04 
63 
DE 



04 AE 
00000004* EF 
00000004 , EF 



04 AE 



10 



55 
71 

01FF 
08 

01FF 
AC 

51 



01 
09 
8F 
AC 
17 
8F 

01 
07 

8E 
51 
52 



D5 
18 
CO 
F1 
DO 
11 

DO 
78 
FO 



20000000 8F C8 



CA 
C8 
DO 
CO 
D1 
18 
D1 
18 
D5 
18 



50 0244 8F 3C 



C3 
78 
A8 
D5 
13 
A8 
D1 
12 
7D 
DD 
DD 



08 BC 8E 7D 

04 



03E3 

03E5 

03E7 

03EE 

03F4 

03F7 

03F9 

03F9 

03FC 

0400 

0406 

0406 

040D 

040D 

C414 

0417 

041A 

0421 

0424 

0426 

0429 

0428 

042D 

042F 

042F 

0434 

0434 

0439 

0441 

044A 

044D 

044F 

0455 

0459 

0458 

045E 

0460 

0462 

0462 

0466 

0466 



825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 



100$: 



110$; 



120$: 



TSTL 
BGEQ 
ADDL 
AC8L 
MOVL 
8RB 

MOVL 
ASHL 
INSV 

BJSL2 

BJCL2 

BJSL2 

MOVL 

ADDL 

CMPL 

BGEQ 

CMPL 

BGEQ 

TSTL 

BGEQ 



<R3) 

110$ 

#512, R5 

R4, #4, R3, 100$ 

R5, (SP) 

130$ 

R5 (SP) 

#PTE$V VALID, #1, R6 

EXPREGJ REGION(AP), - 

#PTE$? OWN, #PTE$S_OWN, R6 
#PTE$C„uQ, R6 



#PTE$M PROT, 

R6, (RT) 

(R1)t, <R3)+ 

#512, R5 

R1, R2 

146$ 

R3. R4 

136$ 

(R3) 

120$ 



<R1) 



130$: MOVZWL #SS$_VASFULL, RO 

140$: SU8L3 #1, R5, 4(SP) 

ASHL #9, -(R1), DS$GQ PHYADR+4 

BISW2 # A X1FF, DS$GQ PH7ADR+4 

TSTL EXPREG$ RETADR(AP) 

BEQL EXE$EXPREG X 

BISW2 #*X1FF, 4(3P) 

CMPL #1,EXPREG$ REGJON(AP) 

BNEQ 150$ 

MOVQ (SP)+,R1 

PUSHL R1 

PUSHL R2 

150$: MOVQ (SP> + , SlEXPREG$_RETADR(AP) 
EXE$EXPREG X: 
RET 
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LOOK FOR VALID BIT. 
BR IF NOT VALID. 
NEXT VIRTUAL PAGE. 
LOOP TO END OF PT. 
SAVE FIRST ADR. 



SAVE FIRST ADR. 
GET VALID BIT. 
INSERT REGION CODE 

INTO OWN FIELD. 
User wn'teabte 

Clear old protection 
Set valid, prot, and 



COPY TO 'REGION' PTE. 



region code 



NEXT PHYSICAL 
CHECK FOR END 



PAGE. 

OF BUFFER. 



CHECK FOR END OF REGION. 
ERROR EXIT. 

CHECK NEXT PAGE FOR FREE. 
LOOP TIL ENOUGH. 

VIRTUAL ADDRESS SPACE FULL, 

STORE END ADDRESS. 

SAVE END PHYSICAL ADR. 

SET TO LAST BYTE ON PAGE 

CHECK IF RETURN ADR REQUESED 

SKIP IF NOT. 

SET TO HIGHEST BYTE ADDR 

P1 space? 

Branch if not 

Get low, high 

put lov, in first 

put high in second 

STORE VIRTUAL ADDRESSES. 

RETURN. 
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*** MEMMGT Memory management setup/contr 27-JUL-1 984 j 5:33:44 
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0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

C467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

0467 

046? 
0467 
0467 
0467 
0467 
0467 
0467 
0467 
0467 
0467 
0467 
0467 
046^ 
0467 
0467 



867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 



.SBTTL RELEASE A BLOCK OF VIRTUAL MEMORY. 



+ + 



FUNCTIONAL DESCRIPTION: 

THIS PROCEDURE EMULATES THE STARLET SYSTEM SERVICE 
CONTRACT PROGRAM REGION. 

CALLING SEQUENCE: 

STARLET PROCEDURE CALL. 
INPUT PARAMETERS: 

CNTREGS.PAGCNT(AP) = 

CNTREG$_RETADR(AP) = 



'CNTREG' 



CNTREG$„ACMODE(AP) = 
CNTREGS.REGION(AP) = 



NUMBER OF PAGES TO REMOVE FROM THE END OF THE 

PROGRAM REGION. 

ADDRESS OF A 2-LONGWORD ARRAY IN WHICH TO RETURN 

THE VIRTUAL ADDRESSES OF THE STARTING PAGE AND 

ENDING PAGE OF THE REMOVED AREA. 

ACCESS MODE. IGNORED. 

REGION CODE: 

= PROGRAM (PO) REGION. 

1 = CONTROL (PD REGION. 

2 = SYSTEM REGION. 



2-L0NGW0RD ARRAY CONTAINING THE STARTING AND 
ENDING ADDRESSES OF THE REMOVEDED REGION. 



IMPLICJ 1 INPUTS: 

NONE 
OUTPUT PARAMETERS: 

aCNTREG$_RETADR(AP> = 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

SS$ NORMAL = SERVICE SUCESSFULLY COMPLETED. 

SS$"ILLPAGCNT = PAGE COUNT < 1, 

SS$>AGOWNVIO = PAGE OWNED BY MORE PRIVILAGED ACCESS MODE, 

SIDE EFFECTS: 

NONE 

REGISTER USAGE: 

RO = RETURN STATUS CODE. 

R1 s 'REGION' END PTE. 

R2 = 'REGION' BEGINNING PTE. 

R3 = VIRTUAL ADDRESS. 

R4 = PAGE COUNTER. 

R5 = POPT POINTER. 
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53 



RELEASE A BLOCK OF VIRTUAL MEMORY. 27-JUL-1984 Fjche 

*** MEMMGT Memory management setup/contr 27-JUL-1984 ]5;33:44 
RELEASE A BLOCK OF VIRTUAL MEMORY. 23-JUL-1984 16:23:38 

.ENTRY EXE$CNTREG, A M<R2,R3,R4,R5> 

MOVL #SS$ NORMAL, RO 

CASEL CNTREGS..REGION<AP), 00, ftl 

10$: .WORD 20$ - 10$ 

.WORD 30$ - 10$ 

.WORD 40$ - 10$ 

.WORD 20$ - 10$ 

BLBS CNTREG$_REGION(AP), 30$ 

20$; MOVL L^OLEN, R1 

ASHL #9. R1, R3 

MOVAL POP r BASE, R2 

MOVAL (R2)rR1D, R1 

BRB 50$ 

30$: MOVL A_P1BUFPTE, R2 

MOVAL K P1PAGES*4(R2), R1 

ADDL3 #Z P1PAGES39,A P1BUFVA,R3 

BRB 50$ 

40$: MOVL L*A SPTEND, R1 

MOVL MMGlGL SPTBASE, R2 

ASHL #31, #T, R3 

SUBL3 R2, R1, -(SP) 

INSV (SP)+* #9-2, #20+2, R3 







003C 


0467 
0469 


924 
925 




50 01 


DO 


0469 


926 


03 


00 10 AC 


CF 


046C 
0471 


927 
928 






000C 


0471 


929 






0024' 


0473 


930 






003E' 


0475 


931 






OOOC 


0477 
0479 


932 
933 




18 10 AC 


E8 


0479 
047D 


934 
935 


51 


00000000 'EF 


DO 


047D 


936 




53 51 09 


78 


0484 


937 


52 


00000000' EF 


DE 


C488 


938 




51 6241 


DE 


048F 


939 




35 


11 


0493 
0495 


940 
941 


52 


00000004'EF 


DO 


0495 


942 




51 01F8 C2 


DE 


049C 


943 


00000008'EF 


OOOOFCOO 8F 


C1 


04A1 


944 




1B 


11 


04AD 
04AF 


945 
946 


51 


OOOOOOOC'EF 


DO 


04AF 


947 


52 


OOOOOOOO'EF 


DO 


04B6 


948 




53 01 IF 


78 


04BD 


949 




7E 51 52 


C3 


04C1 


950 


53 


16 07 8E 


FO 


04C5 


951 
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ENTRY POINT 

START ASSUMING THE BEST! 
DISPATCH ON REGION CODE. 

PO 
P1 

sxs 

SUPERVISOR. 

REGION INDICATOR. 

PO PAGE COUNT. 

END VIRTUAL ADDRESS. 

POINTER TO TOP OF PAGE TABLE. 

POINTER TO END OF PAGE TABLE. 

BR TO COMMON CODE. 

START OF P1 PTE. 
End of P1 page table 
LAST VIRTURAL ADDRESS 
BR TO COMMON CODE. 

END OF SYS PAGE TABLE. C27] 

Start of SYS page table 

START OF SYS VIRTUAL ADR. 

SPT LENGTH. 

COMPUTE LAST VIRTUAL ADDRESS. 



J 
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RELEASE A BLOCK OF VIRTUAL MEMORY. 27-JUL-1984 F uhe 10 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 

RELEASE A BLOCK OF VIRTUAL MEMORY. 23-JUL-1984 16:23:38 

953 50$: DECL R3 

954 CLRL R4 
955 

956 60$: TSTL -CRD 

957 BGEQ 100$ 
958 

959 CMPZV 
960 

961 BNEQ 
962 

963 BJCL3 

964 MOVAL 

965 CMPL 

966 BEQL 

967 X0RL3 

968 BITL 
969 
970 
971 

972 BEQL 

973 ERRSUP.S 

974 BR8 
975 

976 70$: CLRL 
977 

978 80$: BJCL2 

979 TSTL 

980 BNEQ 

981 PUSHL 
982 

983 90$: AOBLSS 

984 BRB 
985 

986 100$: TSTL 

987 BEQL 

988 MOVL 
989 

990 110$: SUBL 

991 CMPL 

992 BGTRU 
993 

994 120$: 
995 

996 130$: TSTL 

997 BEQL 

998 BJCW2 

999 PUSHL 
1000 MOVQ 
1001 

1002 EXE$CNTREG X: 

1003 RET 





53 


D7 


04CA 




54 


D4 


04CC 
04CE 




71 


D5 


04CE 




53 


18 


04D0 
04D2 


10 AC 


61 02 17 


ED 


04D2 
04D8 




4B 


12 


04D8 
04DA 


55 61 


FFFOOOOO 8F 


CB 


04DA 


55 


00000000 , EF45 


DE 


04E2 




55 51 


D1 


04EA 




22 


13 


04ED 




71 65 61 


CD 


C4EF 


8E 


827FFFFF 8F 


D3 


04F3 
04FA 
04FA 
04FA 




13 


13 


04FA 
04FC 




2D 


11 


050D 
050F 




61 


D4 


050F 
0511 


65 


81800000 8F 


CA 


0511 




54 


D5 


0518 




02 


12 


051A 




53 


DD 


051C 
051E 




OD 54 04 AC 


n 


051E 




1E 


11 


0523 
0525 




54 


D5 


0525 




0? 


13 


0527 


50 


00660080 8F 


DO 


0529 
0530 
0530 


53 


U0000200 8F 


C2 




52 51 


D1 


0537 




92 


1A 


053A 
053C 


50 


000001EC 8f 


DO 


053C 
0543 




08 AC 


D5 


0543 




Ofi 


13 


0546 




53 01FF 8F 


AA 


0548 




53 


DD 


054D 




08 BC 8E 


7D 
04 


054F 
0553 
0553 
0553 



#PTE$V OWN, #PTE$S OWN, (R1), - 

CNTREG$ REGION(AP) 
100$ 

**CPTE$M PFN! A X10Q000, (R1), R5 

PORT BASECR5D, R5 

R1, R5 

80$ 

(R1MR5), -(SP) 

# A C<PTE$M_MODIFY 

PTE$M_PROT ! 

PTE$M QWN>, 

(SP) + 
70$ 

120$ 

(R1) 

fPTESM VALID ! PTE$M_OWN, (R5) 

R4 

90$ 

R3 

CNTREG$_PAGCNT<AP), R4, 110$ 
130$ 

R4 

110$ 

#DS$..FRAGBUF, RO 

#512, R3 
R1, R2 
60$ 



MOVL #SS$_PAGOWNVIO, RO 



CNTREG$ RETADR(AP) 
EXE$CNTREG_X 
* A X1FF, R3 

(SP) + , 5)CNTREG$.RETADR(AP) 
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END OF PREVIOUS PAGE. 
INN PAGE COUNTER. 

LOOK FOR VALID BIT. 
BR IF NOT VALID. 

CHECK 'OWN 1 CODE 

FOR REGION. 
WRONG OWNER. 

ISOLATE PFN 

GET PO PTE, SAME PAGE. 
CHECK FOR PO REGION. 
BR I F PO 

GET DIFFERENCE BETWEEN PTE'S 
Ignore MODIFY, C19] 

PROT, C193 

and OWN fields [19] 

Do any useful fields differ? 
NO, RELEASE IT 
BUM PAGE TABLES. 



RELEASE •REGION 1 PAGE. 

RELEASE PO PAGE. 

FIRST PAGE? 

BR OF NOT. 

SAVE VIRTUAL ADDR. 

COUNT PAGES. 
SUCCESS EXIT. 

FIRST PAGE? 
SKIP IF SO. 
WARN CALLER. 

ADJUST VITRUAL ADR. 

CHECK FOR OUT OF PAGE TABLE. 

BR IF MORE, 

RAN OUT OF PAGES. 

CHECK FOR RETURN REQUESTED, 
EXIT IF NOT. 
BEGINNING OF PAGE, 
SAVE FIRST VIRTUAL ADR. 
RETURN VIRTUAL ADDRESSES, 



; RETURN. 
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*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
TURN MEMORY MANAGEMENT ON. 23-JUL-1984 16:23:38 
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50 



50 
50 



01 
21 
03 
50 



0000 

DO 
10 
78 
D6 

04 



0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

C554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0554 

0556 

0556 

0559 

0558 

055F 

0561 

0561 



1005 

1006 

1007 

1008 

1009 

1C10 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 



.SBTTL TURN MEMORY MANAGEMENT ON. 



+ + 



FUNCTIONAL DESCRIPTION: 

This routine can be called by the program to enable memory management 
All memory mapping, page tables and base and length registers 
must be setup prior to calling this routine. 

CALLING SEQUENCE: 

NONE 

CALLS #0,DS$MM0N 

INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 



SS$ WASSET 
SS$IWASCLR 



If was enabled before 
If was not enabled 



SIDE EFFECTS: 

Memory management is enabled 

.ENTRY DSX$MMON, A M<> 



MOVL 


#1,R0 


BS8B 


DSR$MMENABLE 


ASHL 


*3,R0,R0 


INCL 


RO 


DSX$MMON X: 




RET 





; ENTRY POINT 

; Enable memory managment 

; Do it . . , 

; Position old enabled bit to bit 3 

; Make it success return code 
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TURN MEMORY MANAGEMENT OFF. 

*** MEMMGT Memory management 
TURN MEMORY MANAGEMENT OFF. 



K 7 

27-JUL-1984 Fiche 10 

setup/contr 27-JUL-1984 1 5:33:A4 
23-JUL-1984 16:23:38 
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50 00660000 8F 

0000001 C'EF 

08 



50 50 



07 
03 
50 



0562 1054 

0562 1055 

0562 1056 

0562 1057 

0562 1058 

0562 1C59 

0562 1060 

0562 1061 

0562 1062 

0562 1063 

0562 1064 

0562 1065 

0562 1066 

0562 1067 

C562 1068 

0562 1069 

0562 1070 

0562 1071 

0562 1072 

0562 1073 

0562 1074 

0562 1075 

0562 1076 

0562 1077 

0562 1078 

0562 1079 

0562 1080 

0562 1081 

0562 1082 

0562 1083 

0562 1084 

0562 1085 

0562 1086 

0562 1087 

0562 1088 

0562 1089 

0562 1090 

0562 1091 

0562 1092 

0562 1093 

0562 1094 

0000 0562 1095 

0564 1096 

DO 0564 1097 

95 056B 1098 

12 0571 1099 

10 0573 1100 

78 0575 1101 

D6 0579 1102 

0578 1103 

04 0578 1104 



.S8TTL TURN MEMORY MANAGEMENT OFF. 



FUNCTIONAL DESCRIPTION: 

This routine can be called to disable memory managment 
However, if the operator enabled memory management with the 
SET MM ON command, it will not disable memory management. 

CALLING SEQUENCE: 

CALLS #0,DS$MM0FF 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 



SS$_WASSET 
SSSJJASCLR 
DS$ WARNING 



If was enabled before 

If was not enabled 

If was set by operator and you can't disable it 



SIDE EFFECTS: 
NONE 



Memory management is disabled unless the operator explicitly 
enabled it. 



.ENTRY DSX$MMOFF, A M<> 



MOVL 
TST8 
BNEQ 
BS88 
ASHL 
INCL 
DSXSMMOFF X; 

RET 



#DS$ WARNING, RO 

DS$GB MM ENB 

DSXSMWQFF X 

DSRSMMENABLE 

#3,R0,R0 

RO 



ENTRY POINT 

Prepare for can't disable return 

Was MM enabled by operator? 

Yes, Do not disable it 

and do it 

Position old enable bit to bit 3 

Make it success return code 



_J 
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27-JUL-1984 Fiche 10 
MEMMGT Memory management setup/contr 27-JUL-198A 15:33:44 
DSRSMMENABLE Enable to disable memory ma 23-JUL-1984 16:23:38 



DSRSMMENABLE Enable to disable memory ma 



*** 
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50 50 



39 
7E 
01 
38 



00 
38 
00 
5C 
01 



05 



DA 
DB 

DA 
BA 
02 



057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

C57C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

0!>7C 

057C 

057C 

057C 

057C 

057C 

057C 

057C 

058B 

058C 

058C 

058C 

058F 

0592 

0597 

059A 

059C 



1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

112>0 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 



+ + 



.SBTTL DSRSMMENABLE Enable to disable memory management 
FUNCTION DESCRIPTION: 

This routine is called to enable or disable memory managment 
CALLING SEQUENCE: 

BSBW DSRSMMENABLE 
INPUT PARAMETERS: 

R0 value to be written in to PRS.MAPEN 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: 

R0 Previous contents of PRS.MAPEN 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: 

Memory management is enabled or disabled. 



DSRSMMENABLE:; 
CMK 
RS8 

CMK$MMENABLE:: 
MTPR 
MFPR 
EXTZV 
MTPR 
POPR 
RE I 



MMENABLE 



#0,#PR* TBJA 
*PRS MAPFN,-(SP) 
#0,*T,R0,R0 
RO,*PR$_MAPEN 
# A MR0 



; Change to Kernel mode 
; Return to caller 



Invalidate the TB before enabling MM 

Get current state of memory managment 

Only 1 bit 

Set new desired state 

Get old state 

Return to previous mode 



ZZ-ENSAA-7.0 

MEMMGT 
06-29 



SET PROTECTION ON PAGES* 

*** MEMMGT 
SET PROTECTION 



Memory 
ON 



manai 
PAGE: 



N 7 

27-JUL-1984 Flche 10 

lement setup/contr 27-JUL-1984 15 :33:4^ 
;. 23-JUL-1984 16:23:38 



Frame M7 Seguence 1944 
VAX- 11 Macro V03-01 Pa 9? 28 
DMA1:CSYS0.SYSMAINT3MEMMGT.MAR;25(16) 



059D 

0^9D 

059D 

05QD 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

C59D 

059D 

059D 

0590 

059l> 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 

059D 



1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 



.SBTTL SET PROTECTION ON PAGES. 
+ + 
FUNCTIONAL DESCRIPTION: 
SET THE ACCESS PROTECTION' ON A VIRTUAL PAGE 

CALLING SEQUENCE: 

PROCEDURE CALL. 

INPUT PARAMETERS: 



SETPRTS, 
SETPRTS 
SETPRTS 
SETPRTS 
SETPRTS" 



INADR(AP) s 
'RETADR(AP) 
'ACMODE(AP) 
'PROT(AP) = 
'PRVPRT(AP) 



ARAY ADDRESS (INPUT) 

ARAY ADDRESS (OUTPUT) 

ACCESS MODE (OPTIONAL) 

NEW PROTECTION (BITS <3:0>) 

ADDRESS TO STORE PREVIOUS PROTECTION 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = COMPLETION CODE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

DS$ NORMAL = SERVICE SUCCESSFULLY COMPLETED 
SS$"*ACCVIO = ACCESS VIOLATION 
SSSlLENVIO = LENGTH VIOLATION 

SIDE EFFECTS: 
NONE 



ZZ-ENSAA-7.0 
HEMMGT 

06-29 



SET PROTECTION ON PAGES. 

*** MEMMGT 
SET PROTECTION 



Memory 
ON 



mana< 
PAGE 



N 7 
27-JUL-198A Fiche 10 

jement setup/contr 27-JUL-1984 1 5:33:A4 

23-JUL-1904 16:23:38 



Frame N7 Sequence 1945 
VAX-11 Macro V03-0T Page 29 
DMA1:[SYS0.SYSMAINT]MEMMGT.MAR;25(17) 



50 



08 AC 

06 

80 00 

60 00 



50 04 AC 

53 80 F7 8F 

54 60 F7 8F 
55 54 53 

OA 

50 006600^0 8F 

0031 



56 53 



08 AC 
55 

02 15 

F3*AF 



007C 
04 



DO 
13 
D2 
D2 

DO 
78 
78 
C3 
18 
DO 
31 

DO 
D6 

EF 
9F 



14 

E4 

08 

08 Bf. 04 BC 000001 FF 



50 
53 
55 
AC 
CA 
8F 



E9 
D6 
F5 
D5 

i? 
CB 



02 



059D 

059F 

059F 

05AE 

05AF 

05AF 

05AF 

05B3 

05B5 

05B8 

058B 

05BB 

05BF 

05C4 

C5C9 

05CD 

05CF 

05D6 

05D9 

05D9 

05DD 

05DF 

05DF 

05E4 

05E7 

05E7 

05F3 

05F3 

05F6 

05F8 

05F8 

05FE 

0600 

060A 

060A 

060A 



1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 



.ENTRY EXE$SETPRT, A M<R2,R3,R4,R5,R6> 



ENTRY POINT 



CMK 
RET 

CMK$SETPRT:: 
MOVL 
BEQL 
MCOML 
MCOML 



5$: 



10$: 
20$: 



30$: 



MOVL 

ASHL 

ASHL 

SUBL3 

BGEQ 

MOVL 

BRW 

MOVL 
INCL 

EXTZV 

°USHAB 
CASE 



BLBC 

INCL 

SOBGTR 

TSTL 

BEQL 

BJCL3 



SETPRT 



Do set protection 
Return home 



[20] 
[20] 



SETPRT$ RETADR(AP), RO 

5$ 

*0,<R0)+ 

#0,(R0) 

SETPRT$ INADR(AP), RO 

#-9,(R07+,R3 

#-9,(R0),R4 

R3,R4,R5 

10$ 

*DS$ PROGERR,RO 

SETPRT.XIT 

SETPRT$ RETADR(AP), R4 
R5 



I NIT THE RETURN ARAY 
IF THERE JS ONE 



INPUT ARAY 
STARTING VA PFN 
ENDING VA PFN 
PAGES MINUS 1 
BETTER BE ONE 
INVALID ARGUMENT 
RETURN 

RETURN ADDRESS ARAY 
NUMBER OF PAGES 



#21,#2,R3,R6 
B A 30$ 

R6,LIMIT=#0,TYPE:=L, - 
DISPLIST=<PZERO, PONE, SYSTEM, RESERVD> 



ADDRESS SPACE INDEX 
Setup return address 



SETPRT XJT: 
REJ 



RO,SETPRT_XIT 

R3 

R5,20$ 

SET?RT$ RETADR(AP) 
SETPRT 5? J T 

* A X1FF7 a$ETPRT$ JNADR(AP), - 
aSETPRT$ RETADR(AP) 



IF ERROR EXIT 

INCREMENT THE PFN 

DO THE NEXT PAGE 

IS THERE A RETURN ADDRESS ? 

NO - 

YES-INDICATE THE STARTING 

VIRTUAL ADDRESS 



Return from exception 



[19] 
[20] 



Z7-ENSAA-7.0 

MEMMGT 



SET PROTECTION ON PAGES. 

*** MEMMGT 
SET PROTECTION 



Memory 
ON 



manaj 
PAbEi 



B 8 
27-JUL-1984 Fiche 10 

lement setup/contr 27-JUL-1984 15:33:<A 

23-JUL-1984 16:23:38 



Frame B8 Seguence 1946 

VAX-11 Macro V03-0T Page 30 

D«A1?CSYS0.bVSMAINT3MEMMGT.MAR;25(18) 



51 



53 
50 



15 
50 

51 

018C 



00 
09 
50 
06 
8F 

31 



51 53 



15 
50 
51 



50 018C 



00 
OB 
50 
06 
8F 

18 



51 53 



'5 

50 
51 



50 018C 



00 
OD 
50 
06 
8F 

05 



50 OC 



EF 

D8 
D1 
14 

3C 
05 
10 
05 



EF 
D8 

D1 
15 

3C 
05 
10 
05 



EF 
D8 
D1 
14 
3C 
05 
10 
05 



DO 
05 



060B 

0606 

060B 

060B 

060B 

060B 

060B 

0610 

0613 

0616 

0618 

061D 

061E 

0620 

C621 

0621 

0621 

0621 

0621 

0621 

0621 

0621 

0626 

0629 

062C 

062E 

0633 

0634 

0636 

0637 

0637 

0637 

0637 

0637 

0637 

0637 

0637 

063C 

063F 

0642 

0644 

0649 

064A 

064 C 

064D 

064D 

064D 

064D 

064D 

064D 

0640 

0640 

064D 

0650 

0651 

0651 

0651 



1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

12-1 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

^11 

1273 

1274 
1275 
1276 
1277 

12?8 
1279 
1280 
1281 



» 

* 



SET 

R3 

R4 



PROTECTION FOR PO ADDRESS SPACE <3FFFFFFF :000000Q0> 
= VIRTUAL PAGE FRAME NUMBER 
- ENDING RETURN VIRTUAL ADDRESS 



PZERO 



10$: 



EXTZV 

MF PR 

CMPL 

BGTR 

MOVZWL 

RS8 

BS8B 

RS8 



#0,*21,R3,R1 

*PR$ P0LR,RQ 

R0,RT 

10$ 

*SS$_LENVIO,RO 

SET 



PFN <?9:9> 

PO LENGTH REGISTER 

VA<29:9> GEO POLR ? 

NO - LENGTH WITHIN RANGE 

YES- LENGTH FAULT 

RETURN 

SET THE PROTECTION 

RETURN 



SET PROTECTION FOR P1 ADDRESS SPACE <7FFFFFFF :40000000> 

R3 = VIRTUAL PAGE FRAME NUMBER 

R4 = RETURN ENDING VIRTUAL ADDRESS 



PONE 



10$: 



EXTZV 

MFPR 

CMPL 

BLEQ 

MOVZWL 

RS8 

BS8B 

RS8 



#0,#21,R3,R1 
*PR$ P1LR,R0 
RO,RT 

ic$ 
#ss$_lenvio,r0 

SET 



PFN <29:9> 

P1 LENGTH REGISTER 

VA<29:9> LSS P1LR 

NO - LENGTH WITHIN RANGE 

YES- LENGTH VIOLATION 

RETURN 

SET PROTECTION 

RETURN 



SET PROTECTION TOR SYSTEM ADDRESS SPACE <BFFFFFI F :80000000> 

R3 = VIRTUAL PAGE FRAME NUMBER 

R4 - RETURN ENDING VIRTUAL ADDRESS 



SYSTEM: 



10$: 



EXTZV 

MFPR 

CMPL 

BGTR 

MOVZWL 

RSB 

BS88 

RSB 



#0,#21,R3,R1 
#PR$ SLR,RO 
RO,RT 

ioi 

#SS$_LENVIO,R0 
SET 



PFN <30:9> 

SYSTEM LENGTH REGISTER 

VA<30:9> GTR SLR 

NO - LENGTH WITHIN RANGE 

YES- LENGTH VIOLATION 

RETURN 

SET PROTECTION 

RETURN 



SET PROTECTION FOR RESERVED ADDRESS SPACE <TFFFFFFF :C0000000> 

THIS FUNCTION IS ILLEGAL 

R3 = VIRTUAL PAGE FRAME NUMBER 

R4 = RETURN ENDING VIRTUAL ADDRESS 



fiESERVD: 



M(WL 
RS8 



*SS$_ACCViO,R0 



INDICATE 
RETURN 



ACCESS VIOLATION 



SUBROUTINE TO SET PAGE PROTECTION 



7Z-ENSAA-7.0 

MEMMGT 

l'6-29 



SET PROTECTION ON PAGES. 

*** MEMMGT 
SET PROTECTION 



Memory 
ON 



51 53 



09 

2E 

14 AC 



61 



04 AO 



09 

50 61 04 IB 

H BC 50 



04 1B 10 AC 
51 53 09 

3A 51 
50 08 AC 

09 

51 000001 FF 8F 
50 01 



0651 
0651 
0651 
0651 
78 0651 
10 0655 
D5 0657 
065A 
13 065A 
EF 065C 
90 0661 
0665 
0665 
0665 
FO C665 
78 066B 
DA 066F 
DO 067? 
13 0676 
C9 0678 
0681 
DO 0681 
05 0684 
0685 



128? 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 



mana< 
PAGE! 

R3 = 
R4 = 



SET: 



10$: 



20$: 



C 8 . «* 

27-JUL-1984 Fiche 10 

lement setup/contr 27-JUL-1984 15:33:44 
!. 23-JUL-1984 16:23:38 

VIRTUAL PAGE FRAME NUMBER 
RETURN ENDING VIRTUAL ADDRESS 



ASHL #9,R3,R1 

BS88 R^TEADR 

TSTL SETPRT$„PRVPRT(AP) 

BEQL 10$ 

EXTZV nil , #4, <R1) # RO 

MOVB RO, aSETPRT$_PRVPRT(AP) 



JNSV SETPRTS PROT(AP) ,#27,*4,<R1) 

ASHL *9 t R3,~R1 

MTPR R1, #PR$ TBJS 

MOVL SETPRTS RETADR(AP) ,R0 

BEQL 20$ 

8ISL3 # A X1FF,R1,4(R0) 

MOVL #SS$ NORMAL, RO 
RS8 



Frame C8 Sequence 1947 
VAX-11 Macro V03-01 Page 31 
DMA1:CSYS0.SYSMAINT]MEMMGT.MAR; 25(18) 



MAKE ADDRESS OF PAGE FROM PFN 

GET ADDRESS OF PTE 

IS THERE A PREVIOUS 

PROTECTION ADDRESS? 

NO - 

Get old protection L203 

Store ft L20J 

YES- PASS TO CALLER 

AS PREVIOUS PROTECTION 

INSERT NEW PROTECTION 

FORM ADDRESS 

FLUSH TRANSLATION BUF . 

IS THERE A RETURN ADDRESS ? 

NO - 

RETURN HIGHEST ADDRESS OF PAGE 



INDICATE 
RETURN 



SUCCESS 



ZZ-ENSAA-7.0 

MEMMGT 

^6-29 



CALCULATE PTE 



51 

7B 

51 



51 
51 

51 

61 
51 



0? 51 

05 51 
7E 

7E 
15 
51 
51 
09 

15 

51 
51 



51 



51 
51 



7E 
15 

51 
51 



ADDRESS SUBROUTINE 

*** MEMMGT Memory mana< 
CALCULATE PTE ADDRESS : 



IF 

2C 

1E 

08 

03 

OA 

09 

02 

8C 

00 

OD 

00 

09 

8E 



OC 
09 
02 
8E 



D 8 . 

27-JUL-1984 Fiche 10 

jement setup/contr 27-JUL-1984 15:33:44 

luBROUTJNE 23-JUL-1984 16:23:38 



Frame D8 Seguence 1948 

VAX-11 Macro V03-0T Page 32 

DHA1:CSYS0.SYSMAIMT3MEMMGT.MAR;25<19) 



E1 
11 
EO 
DB 
11 
DB 

78 
CO 
EF 
10 
EF 
78 
CO 
05 



DB 

78 
CO 
05 



0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

0685 

C685 

0685 

0685 

0685 

0689 

068B 

068F 

0692 

0694 

0697 

069C 

O6A0 

06A3 

06A8 

06AA 

06AF 

06B3 

06B6 

06B7 

06B7 

06B7 

06B7 

06B7 

06B? 

06BA 

06BF 

06C3 

06C6 



1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 



.S8TTL CALCULATE PTE ADDRESS SUBROUTINE 



RPTEADR - CALCULATE PTE ADDRESS SUBROUTINE 

THIS SUBROUTINE IS CALLED TO CALCULATE THE ADDRESS OF A PAGE TABLE 
ENTRY, GIVEN A VJRTUAL ADDRESS 

INPUTS: 

R1 = VIRTUAL ADDRESS 
OUTPUTS: 

R1 = PTE ADDRESS 



RPTEADR:: 

BBC 



10$: 



20$- 
30$: 



BRB 

BBS 

MFPR 

BRB 

MFPR 

EXTZV 

ASHL 

ADDL2 

BSB8 

EXTZV 

ASHL 

ADDL2 

RS8 



#31.1*1,10$ 

100$ 
rtO.N1. 20$ 

#PR$ P0BR,-(SP) 

30$ " 

#PR$ P18R,-<SP> 

#9,#21,R1,R1 

#2,R1,R1 

<SP)+,R1 

#0,*9,R1,-(SP> 

100$ 

#0,#21,(R1),R1 
*9,R1,R1 
(SP)+,R1 



CALCULATE SPTE PHYSICAL ADDRESS 



100$: 



MFPR 

EXTZV 

ASHL 

ADDL2 

RS8 



*PR$ SBR,-(SP) 
*9,*2l,R1,R1 

#2,m,Ri 

(SP)+,R1 



IF C, PO OR P1 ADDRESS 
ELSE, CALCULATE SPTE ADDRESS 
IF S, P1 ADDRESS 
ELSE, GET POPT SVA BASE 

AND PROCEED 
GET P1PT SVA BASE 
PVA PfH 

SPT'PxPT OFFSET 
SVA 

SAVE PxPT OFFSET 
CALCULATE SPTE ADDRESS 
PHYSICAL PxPT ADDRESS 
SHIFT TO PFN POSITION 
PxPTE ADDRESS 
RETURN 



SPT BASE 
SVA PFN 
SPT OFFSET 
SPTE ADDRESS 
RETURN 



ZZ-ENSAA-7,0 

MEMMGT 
06-29 



E 8 

CALCULATE PTE ADDRESS SUBROUTINE 27-JUL-1984 in0 /j£ h !« 1 9/ 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
CALCULATE PTE ADDRESS SUBROUTINE 23-JUL-1984 16:23:38 



Frame E8 Seguence 1949 
VAX-11 Macro V03-0T Page 33 
DMA1:[SYS0.SYSMAINT]MEMMGT.MAR;25(20) 



51 50 

B8 AF 
00 51 1F 



50 01 



DO 
16 
E2 



DO 

05 



06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
C6C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 

06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06C7 
06CA 
06CD 
06D1 
06D1 
06D1 
06D4 



1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 



+ + 



FUNCTIONAL DESCRIPTION: 



These entry points are here only to satify unneeded 
functionality. 



MMGSIOLOCK 
MMGSUNLOCK 
INISRDONLY 
1NISWRITEABLE 



Routine to lock page(s) in memory, returns PTE addr 
Routine to unlock page(s) 

Routine to make read only parts of DS readonly 
Routine to make DS writeable 



CALLING SEQUENCE: 

BS8W ??? 
INPUT PARAMETERS: 

Varied but all unused 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: 

MMG$I0L0CK 
IMPLICIT OUTPUTS: 
SIDE EFFECTS: 
COMPLETION CODES: 



R1 - Address of PTE for address in R0 on entry 

NONE 

NONE 

SS$_NORMAL - Always 



MMGSJOLOCK:: 
M0VL 
Jsb 
BBSS 

MMGSUNL0CK:.' 
MOVL 
RSB 



R0,R1 

RPTEADR 
*31,R1,MMG$UNL0CK 



0SS$_NORMAL,RO 



; Copy starting virtural address 

; Get address of First PTE C27] 

; Make it a system virtural address also 



Set success 



_ J 



ZZ-ENSAA-7,0 

MEMMGT 

U6-29 



F 8 

DSXSMAPDBGBLOCK - MAP A BLOCK OF MEMORY 27-JUL-1984 , no/ F ^he 10 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
0SX$MAPDB6BL0CK - MAP A BLOCK OF MEMORY 23-JUL-1984 16:23:38 



Frame F8 Sequence 1950 
VAX-11 Macro V03-01 Page 34 
DMA1:[SYS0.SYSMAINT3MEMMGT.MAR;25(21) 



52 



1C 

A3 OOOOFEOO'EF 
52 04 AC 
52 000001 FF 8F 
OE 
8F 
8F 
52 



52 
52 



000001 FF 

00000200 

00000000' EF 

55 OOOOOOOO'EF 

52 

00000?8D'EF 

52 

OB 50 

00000000' EF 52 

08 BC 52 



OOOC 

EO 

DO 
D3 
13 
CA 
CO 
C3 
DO 
DP 
16 
8ED0 
E9 
DO 
DO 
04 



06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

C6D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D5 

06D7 

06D7 

06D9 

06DF 

06E3 

06EA 

06EC 

06F3 

06FA 

0702 

0709 

0708 

0711 

071A 

0717 

071E 

0722 

0723 



1391 

1392 

1393 

139A 

1395 

1396 

1397 

1398 

1399 

1A00 

1A01 

1402 

1A03 

1A0A 

1405 

1A06 

1A07 

1A08 

1A09 

1A10 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 



.SBTTL DSXSMAPDBGBLOCK - MAP A BLOCK OF MEMORY FOR THE DEBUGGER 

FUNCTIONAL DESCRIPTION . J . . . 

This routine will map a section of memory space and add the 
space to the debugger's total memory allocation. The new space is t 
allocated just below that which has already been allocated, resulting 
in contiguous downward growth of memory space assigned to the debug- 
ger. This routine is for standalone use only. 



INPUTS: 

4(AP) 
8<AP) 



size of requested memory block 

address of location to return starting address o 

new buffer space. 



OUTPUTS: 

S)8(AP) - starting addr. of new buffer space 
RO - 1 if memory space allocated 

if insufficient free memory to allow allocation 



.ENTRY DSXSMAPDBGBLOCK, *M<R2,R3>; 

BBS #DSA$V USER,- 

DSASGL FLAGS, 1000$ 

MOVL 4(AP),R2 

BITL # A X1FF,R2 

BEQL 10$ 

BICL # A X1FF,R2 

ADDL2 # A X200,R2 

10$: SUBL3 R2,DE8UG.LO,R2 

MOVL DEBUG^L0,R3 

PUSHL R2 

Jsb MAP BLK 

POPL R2 " 

BLBC R0,1000$ 

MOVL R2, DEBUG LO 

MOVL R2,S8(APT 
1000$: RET 



IF USER MODE 

THEN JUST RETURN 

GET REQUESTED SIZE 

IF NOT A PAGE BOUNDARY 

THEN 

CLEAR PAGE OFFSET 
MAKE IT ONE PAGE BIGGER 
CALC. NEW LOW BUFFER LIMIT 
SET TOP OF NEW AREA 
SAVE R2 FOR LATER 
CALL ROUTINE TO DO THE MAP 
RESTORE LOW BUFFER LIMIT 
IF NO ERROR FROM MAP BLK 
THEN SET NEW LOW LIMIT 
PASS IT TO CALLER ALSO 
RETURN (RO EITHER SET OR CLE 



[23] 

[23] 
[233 
C23J 
[23] 
[23] 
[23] 
[23] 
[23] 
[23J 
[23] 
[23] 
[23] 
[23] 
[23] 
C23] 
[23] 
[233 



[23] 

[233 
[23] 
[233 
[23] 
[23] 
[233 
[233 
[23] 
[23] 
[23] 
[27] 
[23] 
[23] 
[233 
[233 
ARED)[233 



ZZ-ENSAA-7.0 

MEMMGT 
06-29 



DSXSFREEDBGSYM - FREE MEMORY MAPPED TO D 

*** MEMMGT Memory management 
DSXSFREEDBGSYM - FREE MEMORY 



C 8 
27-JUL-1984 Fiche 10 
setup/contr 27-JUL-1984 15:33:44 
MAPPED TO D 23-JUL-1984 16:23:38 



Frame G8 Seguence 1951 
VAX-11 Macro V03-01 Page 35 
DMA1:CSYS0.SYSMAIMTJMEMMGT.MAR;25(22) 



52 
53 

00000000 'tF 



1C 
IF OOOOFEOO'EF 
00000000'EF 
00000000' EF 
000007E5'EF 
00000000 ! EF 



0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
0723 
C723 
0723 
0723 
0723 
0723 
OOOC 0723 
0725 
EO 0725 



DO 
DO 
16 
DO 
04 



0727 
072D 
0734 
0738 
0741 
074C 
074D 



1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 



♦SBTTL DSXSFREEDBGSYM - FREE MEMORY MAPPED TO DEBUGGER SYMTABS 



+■ + 



FUNCTIONAL DESCRIPTION t , , ( 

This routine will deallocate the memory which has been 
assigned to the debugger's symbol tables. 

INPUTS 

none 

OUTPUTS 

none 

IMPLICIT INPUTS 

DEBUG^LO - Bottom of debugger's memory allocation, i . e. 

bottom of symbol table 
SYMTAB_HI- Top of symbol table 



.ENTRY DSXSFREEDBGSYM, *M<R2,R3> 



1000$; 



88$ 

MOVL 

MOVL 
Jsb 
MOVL 
RET 



#DSA$V..USER,- 
DSASGL FLAGS, 1000$ 
DEBUG CO, R2 
SYMTAB HI,R3 
UNMAP 8LK 
SYMTAB_HJ,DEBUG_LO 



IF USER MODE 

THEN JUST RETURN 

GET BOTTOM OF TABLES 

GET TOP OF TABLES 

DEALLOCATE THE AREA 

ADJUST DEBUGGER LOW ADDRESS 

THAT'S ALL 



[24] 
C24J 
C24] 
[24] 
[243 
[24] 
[24] 
[24] 
[24] 
[24] 
[24] 
[24] 
[24] 
[24] 
[24] 

[24] 

[24] 
[24] 
[24] 
[24] 
1271 
[243 
[24] 



ZZ-ENSAA-7,0 

MEMMGT 

l»6-29 



H 8 
MAP DEBUGGER - MAP THE DEBUGGER'S MEMORY 27-JUL-1984 F iche 10 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
MAP DEBUGGER - MAP THE DEBUGGER'S MEMORY 23-JUL-1984 16:23:38 



Frame H8 Seguence 1952 
VAX-11 Macro V03-07 Page 36 
DMA1:[SYS0.SYSMAINT]MEMMGT.MAR;25(23) 



OC 

52 00000000' EF 

53 00000000'EF 
0000078D 'EF 

OC 



074D 

074D 

074D 

074D 

074D 

074D 

074D 

074D 

074D 

074D 

074D 

074D 

0?4D 

074D 

C74D 

074D 

074D 

074D 

BB 074D 

DO 074F 

DO 0756 

16 075D 

BA 0763 

05 0765 



1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1464 

1485 



,SBTTL MAP.DEBUGGER - MAP THE DEBUGGER'S MEMORY SPACE 



7 allocated to the debugger 
both for the debugger's 



FUNCTIONAL DESCRIPTION 

This routine will map all memor 

This includes memory space allocated ._. . . _ 

executable code and for the buffer space assigned for symbol table 
construction, 

INPUTS 



NONE 

OUTPUTS 

RO = 1 
= 



MAP^DEBUGGER:: 
PUSHR 
MOVL 
MOVL 
Jsb 
POPR 
RS8 



if 
if 



space 
space 



mapped successfully 
already mapped (this 



may 



not be an error) 



# A M<R2,R3> 
DEBUG.L0.R2 
DEBUG HI, R3 
MAP BCK 
jTM<R2,R3> 



SAVE REGISTERS 

GET LOW LIMIT OF ALLOCATION 

GET HIGH LIMIT OF ALLOCATION 

HO THE MAP 

RESTORE REGISTERS 

RETURN 



[23] 

C23] 
C23] 
[23] 
[23] 
C23] 
[23] 
[23J 
[23] 
[23J 
[23] 
[23] 
[23] 
[23] 



[23] 
[23] 
[23] 
[23] 
1271 
[23] 
[23] 



ZZ-ENSAA-7.0 

MEMMGT 

1*6-29 



I 8 

UNMAP DEBUGGER - UNMAP THE DEBUGGER'S ME 27-JUL-1984 « rtft , F jche 10 

*** MEMMGT Memory management setup/contr 27-JUL-198A 15:33:44 
UNMAP DEBUGGER - UNMAP THE DEBUGGER'S ME 23-JUL-1984 16:23:38 



Frame 18 Seguence 1953 
VAX-11 Macro V03-07 Page 37 
DMA1:[SYS0.SYSMAINT3MEMMGT.MAR;25<24) 



OC 
52 00000000'EF 

52 000001 FF 8F 

53 00000000'EF 
53 000001FF 8F 

000007E5*EF 
OC 



0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

0766 

C766 

BB 0766 

DO 0768 

CA 076F 

DO 0776 

CA 077D 

16 0784 

BA 078A 

05 078C 

078D 



1487 .SBTTL UNMAP DEBUGGER - UNMAP THE DEBUGGER'S MEMORY SPACE 
1488 

1489 ;*+ 

1490 ; FUNCTIONAL DESCRIPTION 

1491 ; This routine will unmap the pages of memory previously 

1492 ; allocated to the debugger, 

1493 , 

1494 ; INPUTS 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 



NONE 

OUTPUTS 

NONE 



UNMAP.DE8UGGER: 
PUSHR 
MOVL 
BICL2 
MOVL 
BICL2 
Jsb 
POPR 
RS8 



# A M<R2,R3> 
DEBUG LO,R2 
#*X1FF,R2 
DEBUG HI, R3 
# A X1FF,R3 
UNMAP BLK 
# A M<R2,R3> 



C23D 

C23] 
[23] 
[23] 
[23] 
[23] 
[233 
[23] 
[23] 
[23J 
[23] 
[23] 



[23] 

SAVE REGISTERS C233 

GET LOW LIMIT OF ALLOCATION [23] 

MAKE SURE IT'S A PAGE BOUNDARY [23] 

GET HIGH LIMIT OF ALLOCATION [23] 

MAKE SURE IT'S A PAGE BOUNDARY [23] 

DO THE MAP [273 

RESTORE REGISTERS [23] 

RETURN [23] 



ZZ-ENSAA-7.0 

MEMMGT 
06-29 



J 8 

UNMAPJ)EBUGGER - UNMAP THE DEBUGGER'S ME 27-JUL-1984 1o0 FJghe 10 

*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 
UNMAP DEBUGGER - UNMAP THE DEBUGGER'S ME 23-JUL-1984 16:23:38 



Frame JS Seguence 1954 

VAX-11 Macro V03-01 Page 38 
DMA1:[SYSO.SYSMAINT3MEMMGT.MAR;25<25> 



52 



54 



51 

FEEC 
43 61 
00000200 
53 



54 
52 



52 
CF 
1F 
8F 
52 
E9 



54 



5; 

61 
52 



51 

FED2 
54 01 
02 17 
20000000 
78000000 

61 
00000200 
53 

50 



50 



52 
CF 
1F 
00 
8F 
8F 
54 
8F 
52 
D3 
01 
54 

00 
F7 



DD 
DO 



DO 
16 
EO 
CO 

D1 
19 



52 54 DO 



DO 
16 
78 
FO 
C8 
CA 
C8 
CO 
D1 
19 
DO 
8ED0 
05 
00 
11 



078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

078D 

C78F 

0792 

0792 

0792 

0792 

0792 

0/95 

0799 

079D 

07A4 

07A7 

07A9 

07A9 

07AC 

07AC 

07AF 

07B3 

0787 

07BC 

07C3 

07CA 

07CD 

07D4 

07D7 

07D9 

07DC 

07DF 

07E0 

07E3 

07E5 

0?E5 

07E5 

07E5 

07E5 

07E5 

07E5 

07E5 

07E5 

07E5 

07E5 

0?E5 

07E5 

07E5 



1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 



ROUTINE TO MAP A SPECIFIED BLOCK OF MEMORY 
BEEN MAPPED, INDICATE ERROR RETURN. 



IF THE BLOCK HAS ALREADY 



INPUTS 



R2 = BOTTOM ADDR. 
R3 = TOP ADDR. OF 



OF NEW BUFFER 
NEW BUFFER 



OUTPUTS 

RO = 
= 1 



IF SPACE MAPPED SUCCESSFULLY 
IF SPACE ALREADY ALLOCATED 



1211 
[233 
[233 
[233 
[233 
[233 
[233 
[23] 
C23] 
C23] 
[233 



MAP.BLK: 



100$: 



PUSHL 
MOVL 



MOVL 

Jsb 

BBS 

ADDL2 

CMPL 

BLSS 



R4 

R2,R4 



R2,R1 

RPTEADR 

*PTE$V VALID, <R1) ,1000$ 

#512,R2 

R2,R3 

100$ 



200$: 



900$: 
1000$: 



MOVL R4,R2 

MOVL R2,R1 

Jsb RPTEADR 

ASHL #PTE$V VALID, *1,R4 

INSV *0,*PTE$V„OWN,*PTE$S_OWN 

BJSL2 #PTE$C_UW,R4 

BICL2 #PTE$M PR0T,(R1) 

BISL2 R4,(R1T 

ADDL2 #512,R2 

CMPL R2.R3 

BUS 200$ 

MOVL #1,R0 

POPL R4 

RSB 

MOVL #0,R0 

BRB 900$ 



SAVE A REGISTER C233 

SAVE IT FOR LATER [233 

NOW TEST REQUESTED BUFFER AREA C23J 

TO MAKE SURE IT HASN'T ALREADY [233 

BEEN ALLOCATED TO SOMEONE ELSE C23D 

REPEAT [233 

GET NEXT PAGE 121} 

GET PTE OF PAGE 1271 

IF PAGE ALLOCATED, LEAVE [233 

ADDR. OF NEXT PAGE [233 

SEE IF TOP OF NEW BUFFER AREAC233 

UNTIL ENTIRE NEW BUFFER CHECKED[233 

IT'S OK TO ALLOCATE THE SPACE C233 



GET BOTTOM OF BUFFER 

REPEAT 

GET NEXT PAGE 
GET PTE OF PAGE 
CREATE BIT MASK - 

R4;SET OWNER BITS TO 
SET USER-WRITABLE 
CLEAR PROTECTION 
SET BITS IN PTE 



[233 

[233 

[233 

C273 

SET VALID [233 

ZERO [233 

IN MASK [233 

IN PTE [233 

C233 



ADDR. OF NEXT PAGE [233 
SEE IF TOP OF NEW BUFFER AREAE233 

UNTIL ENTIRE NEW BUFFER MAPPED [233 

SET SUCCESS [233 

RESTORE A REGISTER [233 

RETURN C233 

SET ERROR £233 

RETURN [233 



ROUTINE TO UNMAP A SPECIFIED BLOCK OF MEMORY. 

INPUTS: 

R2 = BOTTOM ADDR. OF AREA TO UNMAP 
R3 = TOP ADDR. OF AREA TO UNMAP 

OUTPUTS: 

NONE 



UNMAP QlK: 
100$T 



; REPEAT 



C233 
[233 
[233 
[233 
[233 
[233 
[233 
[233 
[233 

[233 
[233 



ZZ-ENSAA-7.0 

MEMMGT 

U6-29 



K 8 

UNMAP DEBUGGER - UNMAP THE DEBUGGER'S ME 27-JUL-198* « FJt h S 10 

*** MEMMGT Memory management setup/contr 27-JUL-1984 1 5:3i:A4 
UNMAP DEBUGGER - UNMAP THE DEBUGGER'S ME 23-JUL-1984 16:23:38 



Frame K8 Sequence 1955 
VAX-11 Macro V03-0T Page,. 39 
DMA1:CSYS0.SYSMAINT]MEMMGT.MAR;25(25> 



61 
52 



51 

FE99 
81800000 
00000200 

53 



52 
CF 
8F 
8F 
52 
E6 



DO 
16 
CA 
CO 
D1 
19 
05 



05 



07E5 
07E8 
07EC 
07F3 
07FA 
07FD 
07FF 
0800 
0800 
0800 
0800 
0800 
0800 
0801 
C801 



1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 



MOVL R2,R1 ; GET A PAGE 

Jsb RPTEADR ; GET ADDR. OF PTE 

BICL2 *PTE$M VALID+PTESM OWN, (R1 ) ;MAKF PAGE INVALID 

ADDL2 #512,R? " ; GET NEXT PAGE 

CMPL R2,R$ ; SEE IF TOP OF AREA YET 

BLSS 100$ ;UNTIL TOP OF AREA REACHED 

RS8 ; RE TURN 



C23J 
1271 
1211 
1211 
C23] 
[23] 
[23] 



; Referenced by XDELTA 

INISRDONLY:: 
INISWRJ TABLE:: 
RSB 

.END 



ZZ-ENSAA-7.0 
MEMMGT 
Symbol table 

SSARGS 

%%H 

S$T1 

SER 

MODULE 

ACCESSABLE 

A P1BUFPTE 

A'PIBUFVA 

A'SPTEND 

BTT.,. 

BITO 

BIT1 

BIT10 

B!T11 

B1T12 

B1T13 

B1T14 

BIT15 

B1T16 

BIT17 

BIT18 
BIT19 

BIT2 

BIT20 

BIT21 

BIT22 

BIT23 

BT24 

BIT25 

BIT26 

BIT27 

BIT28 

BIT29 

BIT3 

BIT30 

BIT31 

bit/; 

BIT5 
BIT6 

BIT7 

BIT8 

BIT9 

CEP FUNCTIONAL 

CEP~REPA1R 

CF$C AP 

CFSLlFP 

CF$L ONCOND 

CF$L PC 

CFSLlREG 

CFSW MASK 

CF$W~PSW 

CMK$RMENABLE 

CMKSSETPRT 

CMK$_ 

CMK$ ASTEXIT 

CMK$~CANTIM 

CMK$"HJBER 



Symbol table 



*** 



MEMMGT Memory management 



L 8 
27-JUL-1984 Fiche 10 
setup/contr 27-JUL-1984 15;33:4A 
23-JUL-1984 16:23:38 



Frame L8 Seguence 1956 
VAX-11 Macro V03-07 Pa 9? ^0 
DMA1:CSYS0.SYSMAINT3MEMMGT.MAR;25(25) 



00000005 

00000002 

00000018 

00000002 

00000000 

00000207 

00000004 

00000008 

OOOOOOOC 

00000015 

000U0001 

0^000002 

00000400 

00000800 

00001000 

00002000 

00004000 

00008000 

00010000 

00020000 

00040000 

00080000 

00000004 

00100000 

00200000 

00400000 

00800000 

01000000 

02000000 

04000000 

08000000 

10000000 

20000000 

00000008 

40000000 

80000000 

00000010 

00000020 

00000040 

00000080 

00000100 

00000200 

00000000 

00000001 

00000008 

OOOOOOOC 

00000000 

00000010 

00000014 

00000006 

00000004 

0000058C 

Q00005AF 

00000004 

00000000 

0000000B 

: 00000007 



D 
D 
D 
D 

D 03 
04 
D 02 



02 
02 



RG 
RG 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

P 

D 

D 

D 

D 

D 



D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 



D 

D 04 

D 04 

D 

D 

D 

D 



CMK$ INITSCB 

CMK$lLAST 

CMK$ MMENABLE 

CMK$ RCONSOLE 

CMK$IREFRESH 

CMK$ SCHDWK 

CMK$~SETIMR 

CMK$ SETIPL 

CMK$ SETPRT 

CMKS'SGIPR 

CMK$'TCONSOLE 

CNTREG$_ACMODE 

CNTREGS NARGS 

CNTREGSlPAGCNT 

CNTREGS REGION 

CNTREGS RETADR 

CRDSEXPREG 

DEBUG^HI 

DE8UG..L0 

DSSAQ SYSSRV 

DS$A PRGBGN 

DS$GS LASTADR 

DS$GB~MM ENB 

DSSGL"ACTUAL..MEMSIZE 

DS$GL BUFCNT 

DS$GL_FLAGS 

DS$GL„MEMSIZE 

DSSGL SET MEMSIZE 

DS$GQ PHYSDR 

DSSKjRROR 

DSSK.NORMAL 

DSSK.PRGSIZ 

DS$K PRINT 1 ] 

DSSKlPRINiF 

DS$K PRINTI 
DS$K"PRINTX 
DS$CSEVERE 
DS$K SUBSYS 
DS$K TYPE AB0RT_PR0GRAM 

ds$k~typej\bort test 
ds$k~type commafld err 
ds$k"typelcommand"out 
ds$k~type..crd autotest 
ds$k~typej)s prompt 
ds$k type ds start 
ds$k"type;errdev 
ds$k"type.errhard 
ds$k"type error„body 

DSSOYPElERROR END 
DSSOYPE ERRPRPP 
DS$k"TYPE~ERRSOFT 
DS$K"TYPE"ERRSUP 
DS$K~TYPE ERRSYS 
DSSK'TYPElERR HALT 
DSSK'TYPE EXCEPTION 
DS$K"TYPE"EXCEPTION HEAD 
DSSK'TYPElFIRST PASS 



00000008 


D 




OOOOOOOE 


D 




00000003 


D 




00000001 


D 




00000005 


D 




00000006 


D 




OOOOOOOC 


D 




00000009 


D 




OOOOOOOD 


D 




OOOOOOOA 


D 




00000002 


D 




OOOOOOOC 


D 




00000004 


D 




00000004 


D 




00000010 


D 




00000008 


D 




00000346 RG D 


04 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


0000001 C 


RG D 


02 


00000014 


RG D 


02 


******** 


X 


00 


******** 


X 


00 


00000010 RG 


02 


00000018 


RG D 


02 


******** 


X 


00 


00000002 


D 




00000001 


D 




******** 


X 


00 


00000002 


D 




00000001 


D 




00000000 


D 




00000003 


D 




00000004 


D 




00000066 


D 




00000014 


D 




00000013 


D 




00000015 


D 




00000016 


D 




0000001 A 


D 




00000001 


D 




0000001 D 


D 




00000008 


D 




00000006 


D 




00000009 


D 




OOOOOOOA 


D 




0000001B 


D 




00000007 
00000004 


D 
D 




0OQ0Q0O5 
OOOOOOOD 


D 
D 




OOOOOOOC 


D 




OOOOOOOB 


D 




00000011 


D 





ZZ-ENSAA-7.0 
MEMMGT 
Symbol table 



Symbol table 



M 8 
27-JUI-1984 Fiehe 10 

*** MEMMGT Memory management setup/contr 27-JUL-198A 15:33:44 



Frame M8 Seguence 195/ 

VAX-11 Macro V03-OT Page 41 

0MA1:CSYS0.SYSMAINT:MEMM6T t MAR;25(25) 



DSSK TYPE GENERAL 
DSSK'TYPElGENERAL ERROR 
DSSK~TYPE NO TESTS 
DSSOYPE PARAM ERROR 
DS$OYPE""PR0GRSM END 
DSSK~Tv?t"PROGRAM"lNFO 
DS$K" T YPE~PROGRAM"START 
D33K"TYPE"QIO INV&DP 
DSSK~TYPE~Q10~N0DRIVER 
DS$K"TYPE"QIO"WRONGVER 
DSSICTYPE'SCRTPI ECHO 
DS$K~TYPE"SCRIPrPNF 

ds$k"type~script.,prompt 
ds$k"type"script skip 
dssiTtypeIsequenCe error 
dssiTtype startjrR 
dssk~type~start list 
ds$k"*type"summary 
dssk"type~user prompt 

DSSK"WARNlNG 

DSSM~ABRTFLG 

DSSM*"BADTIME 

DSSM~BATCH 

DSSM'BRKCLR 

DS$M"BRKPT 

DSSM'CHARFLG 

DSSM'CMDFLG 

DS$M"CTRLC 

DSSM CTRLO 

OSSMlOEVFLG 

DS$M D1SABLCC 

DSSM"DONFLG 

DSSM'ERRFLG 

DSSM~EXCEPT 

DSSM EXETST 

0S$M"HLTFLG 

DSSMlLODFLG 

DSSM MEMMGT 

DS$M"OUTPUT 

DSSM~RUBFLG 

DSSM~SCRJPT 

DSSM'SFTIMR 

DS*M~STRFLG 

DSSM SUBT 

DSSM SYSFLG 

DSSM~TIMRON 

DSSV~ABRTFLG 

DSSV"BADTIME 

DSSV BATCH 

DSSVlBRKCLR 

DSSV BRKPT 

DSSV~CHARFLG 

DSSV'CMDFLG 

DSSVlCTRLC 

DSSV CTRLO 

DSSV~DEVFLG 

DSSVlDISABLCC 



= 00000000 


D 


DSSV DONFLG 


= 00000003 


D 


DSSV^ERRFLG 


= 00000012 


D 


DSSV EXCEPT 


= 0000001 C 


D 


DSSV'EXETST 


= 00000010 


D 


DSSV^HLTFLG 


* 00000017 


D 


DSSV.LODFLG 


= OOOOOO0F 


D 


DSSV MEMMGT 


= 00000024 


D 


DSSV'OUTPUT 


= 00000022 


D 


DSSVlRUBFLG 


= 00000023 


D 


DSSV.SCR1PT 


= 00000021 


D 


DSSV_SETJMR 


= 0000001 E 


D 


DSSV..STRFLG 


= 00000020 


D 


DSSV SUBT 


- 0000001 F 


D 


DSSV^SYSFLG 


= 0000C019 


D 


DS$V T1MR0N 


= 00000018 


D 


DSS ARITH 


= 00000025 


D 


DSS'ASBE 


= 0000000E 


D 


DSS BADLINK 


= C0000002 


D 


DS$"BADTYPE 


= 00000000 


D 


DSS'BIIC 


= 00000040 


D 


DSSlCHME 


= 00100000 


D 


DSS CHMK 


= 00400000 


D 


DSS~DEVNAME 


= 00001000 


D 


DSS ERROR 


= 00000800 


D 


DSS FHWE 


= 000U0100 


D 


DSS'FRAGBUF 


= 00000080 


D 


DSS'ICBUSY 


= 00000001 


D 


DSSJCERR 


= 00010000 


D 


DSS IHWE 


= 00000200 


D 


DSS~ILLCHAR 


= 01000000 


D 


DSS^ILLPAGCNT 


= 00002000 


D 


DSS ILLUNIT 


= 00000010 


D 


DSS~INSFMEM 


= 00080000 


D 


DSSIJPL2HI 


« 00040000 


D 


DSS IVADDR 


= 00000008 


D 


DSS~1VVECT 


= 00000002 


D 


DSS~KRNLSTK 


= 00008000 


D 


DSSlLOGIC 


= 00800000 


D 


DSS MCHK 


= 00000020 


D 


DS$"MMOFF 


= 00200000 


D 


DSS"NEEDUN1T 


= 02000000 


D 


DSS"NODE 


= 00000004 


D 


DSS NOPCS 


= 00004000 


D 


DSS^NORMAL 


= 00000400 


D 


DSS NOSUPPORT 


= 00020000 


D 


DSS NOTDON 


- 00000006 


D 


DSS~NOTIMP 


= 00000014 


D 


DSSJIULLSTR 


= 00000016 


D 


DSS OVERFLOW 


= oooooooc 


D 


DSS'POWER 


= 0000000B 


D 


DSS PROGERR 


= 00000008 


D 


DSSISEVERE 


* 00000007 


D 


DSS TRANSL 


= 00000000 


D 


DSSITRUNCATE 


= 00000010 


D 


DSS^UNEXPINT 


= 00000009 


D 


DSS VASFULL 


= 00000018 


D 


DSS~WARNING 



0000000D 


D 


00000004 


D 


00000013 


D 


00000012 


D 


00000003 


D 


00000001 


D 


0000000F 


D 


00000017 


D 


00000005 


D 


00000015 


D 


00000019 


D 


00000002 


D 


OOOOOOOE 


D 


OOOOOOOA 


D 


00000011 


D 


006600D0 


D 


00660118 


D 


006600F0 


D 


006600E8 


D 


00660120 


D 


006600A8 


D 


006600E0 


D 


00660108 


D 


00660002 


D 


00660068 


D 


00660080 


D 


006600C8 


D 


006600C0 


D 


00660060 


D 


00660018 


D 


00660078 


D 


00660100 


D 


00660050 


D 


006600B8 


D 


00660040 


D 


00660038 


D 


00660090 


D 


00660070 


D 


00660088 


D 


00660058 


D 


006600F8 


D 


00660128 


D 


00660110 


D 


00660001 


D 


006600B1 


D 


00660030 


D 


006600B0 


D 


Q0660Q10 
00660008 
00660098 


D 


D 


D 


00660020 


D 


00660004 


D 


006600A0 


D 


00660028 
006600D8 


D 


D 


00660048 


D 


00660000 


D 



ZZ-ENSAA-7.0 
MEMMGT 
Symbol table 

DSA$AL APTMAIL 

OSASAT APTTXT 

DSASGLlAPTCOM 

DSA$GLJ)EVLEN 

DSASGt_ERRNO 

DSASGLJVENT 

DSASGL FLAGS 

DSA$GL~MSGTYP 

DSASGLlPASSES 

DSASGL PASSNO 

DSASGL.SECTNO 

DSASGL SID 

DSASGL^SUBTNO 

DSASGLJESTNO 

DSASGL_UNITS 

DSASGQ MSGPTR 

DSASGT DEVNAM 

DSASV OSER 

DSRSCflECKLOAD 

DSRSMMifNABLE 

dsrssetimr ini 
dsxsfreedbSsym 
dsxsmapdbgblock 
dsxsmmoff 
dsxsmmoff x 
dsxsmmon " 
dsxsmmon x 
dsxsprin? 
ds errsup 
envsm domain 
envsm^level 
envsm_super 
envss_domain 

ENV$S„LEVEl 
ENVSS SUPER 
ENVSV~DOMAIN 
ENVSV_LEVEL 
ENVSV SUPER 
ENV$ CPU 
ENVS~FUNCT10NAL 
ENV$"REPAIR 

ENV$~SUPER 
ENVS'SYSTEM 

estkPtr 

EXE$CNTREG 

EXESCNTREG_X 

EXESEXPREG 

EXESEXPREG.X 

E'<E$SETPRT 

F PREGS ACMODE 

E ^EGS~NAn'GS 

E> rtEGS PAGCNT 

ex 3 reg$"region 
expregs'retadr 
expreg Common 

GETBUFf NAR5S 
GETBUf$"PAGCNT 



Symbol table 
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Frame N8 Seguence 1958 

VAX-11 Macro V03-OT Pa 98 ** 
DMA1:CSYS0.SYSMAINT]MEMMGT.MAR;25(25) 



OOO0FE00 
OO00FA00 
0000FE04 
0000FE58 
0000FE44 
0000FE48 
0000FE00 
0000FE40 
OO00FE08 
0000FE54 
OOOOFE10 
OOOOFEH 
0000FE4C 
OOO0FE5O 
OOOOFEOC 
0000FE68 
OOOOFE5C 
0000001 C 
******** 

0000057C 
******** 

00000723 
000006D5 
00000562 
00000578 
00000554 
00000561 
*fr ****** 
******** 

00000002 
00000001 
000003FC 
00000001 
00000001 
00000008 
00000001 
00000000 
0^000002 
C 000000 
00000000 

0:000001 

00000001 

00000001 

******** 

00000467 

00000553 

OC000363 

00000466 

0000059D 

OOOOOOOC 

00000004 

00000004 

00000010 

' 00000008 

00000373 

: 00000004 

: 00000004 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

P 

D 

D 

X 00 

RG D 04 

X 00 

RG D 04 

RG D 04 

RG D 04 

R D 04 

RG D 04 

R D 04 

X 

X 

D 

D 

D 



D 



D 

D 

D 

D 

D 

D 

D 

D 
X 00 
RG D 04 
R D 04 
RC D 04 
R D 04 
RG D 04 

D 

D 

D 

D 

D 
R D 04 

D 

D 



00 
00 



GETBUF$ PHYADR 

GETBUFS^REGION 

GETBUF$ RETADR 

GETMEMS~NARGS 

GETMEMS'PAGCNT 

GETMEMS_PHYADR 

G6TMEMS VRTADR 

INISRDORLY 

INISWRITABLE 

IO$GQ PHYSICAL 

IRP$B"CARCON 

IRP$B~EFN 

irpsb'pri 

irp$b rmod 

;rp$b;type 

irpsc.length 

irpsk length 

irpsl..arb 

irpsl ast 

irp$l"astprm 

irp$l~diagbuf 

irpsl'extend 

irpsljoqbl 

irpsl. ioqfl 

irpsl.iosb 

IRPSLJ0ST1 

IRPSL.I0ST2 

IRPSL^MEDIA 

IRPSL.PID 

IRP$L_SEGVBN 

IRPSL SEQNUM 

IRP$L"SVAPTE 

IRPSLlTT TERM 

IRPSL.UCB 

IRPSL.WIND 

IRPSQ NT PRVMSK 

IRPSW"ABCNT 

IRP$l*fBCNT 

IRPSW BOFF 

iRPSVfCHAN 

IRPSW FUNC 

IRP$W"OBCNT 

IRP$W"SIZE 

IRPSW'STS 

IRPSW'TT PRMPT 

ISTKPTR " 

K C .TKPTR 

K PIPAGES 

LfA.CCP 

LSA DEVP 

LSA^DREG 

LSA DTP 

LSAlKP 

LSA LASTADR 

LSA"NAME 

L$A"REPP 

LSA'SECNAM 



OOOOOOOC 
0OOOOO10 
00000008 
00000003 
00000004 
00000008 
OOOOOOOC 
00000800 

00000800 
******** 

00000038 

00000022 

00000023 

OOOOOOOB 

OOOOOOOA 

0000005C 

0000005C 

00000050 

00000010 

00000014 

00000044 

0000004 C 

00000004 

00000000 

00000024 

00000034 

00000038 

00000034 

OOOOOOOC 

00000040 

00000048 

0000002C 

00000038 

0000001 C 

00000018 

0000003 C 

0000003C 

00000032 

00000030 

00000028 

00000020 

0000003E 

00000008 

0000002A 

0000003C 

******** 

********* 
0000007E 
00000240 
0000021C 
00000224 
00000218 
0000023C 
00000214 
00000208 
00000244 
00000250 



D 

D 

D 

D 

D 

D 

D 
RG D 04 
RG D 04 
X 00 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

n 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



00 
00 



Z7-ENSAA-7.0 

NF.MMGT 
Symbol table 

ISA STATAB 
!.$A"TSTCNT 
L$L~ENVlRON 

l$l~errtyp 
lSlIhbadlength 

Lll.REV 
L$L UNIT 

l$l"unused 

l$l~update 

L POLEN 

mJpsiospace 
mapfree 

MAPMEM 

MAPMEMSIOSPACE 

MAP BLK 

MAP'DEBUCGER 

MEMPOOL$IM Y 

MMGSGL SPTBASE 

MMGSIOLOCK 

MMGSUNLOCK 

POPT BASE 

PFNSSB STATE 

PFNSAB'TYPE 

PFN$AL"BAK 

PFN$AL~PTE 

PFN$AW"BLIN< 

PFN$AW'FL!NK 

PFN$AW"REFCNT 

PFN$AW"SWPVBN 

PONE 

PR$ MAPEN 

PR$"P0BR 

PRS"POLR 

PR*"P1BR 

P^i^PlLR 

PR$"SBr» 

PR$~SlR 

PR$ITBIA 

PR$ TBIS 

PSL$V IS 

PTESC NA 

PTE$C"URtW 

PTE$C"URKW 

PTESC^URSW 

PTESC.UW 

PTESH 10 

ptesm'modify 
ptesm^own 
pte$m"pfn 
pte$m~ prot 

PTESM'vAUD 
PTESS'OWN 
PTE$V"I0 
PTE$V"0WN 

pte$v"val id 

PZERO" 

RElBUF$ nargs 
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00000248 
00000254 

00000204 
0000024 C 
00000200 
0000020C 
00000220 
00000228 
00000210 
00000000 
******** 

000002AA 
00000000 
000001AF 
OOO0C78D 
0000074D 
******** 
******** 

000006(7 

000006D1 

******** 

00000010 
00000000 
00000008 
00000004 
00000000 
00000000 

oooooooc 

00000000 
00000621 
00000038 
00000008 
00000009 
O0000OOA 
00000008 

oooooooc 

OO00OO0D 
00000039 
0000003A 
0000001A 
00000000 
68000000 
70000000 
60000000 
20000000 
00100000 
04000000 
01800000 
001FFFFF 
78000000 
80000000 
0000000? 
00000014 
00000017 
000000 1F 
0000060B 
OOOOOOOC 



D 
D 
D 
D 
D 
D 
D 
D 

R D 

X 
RG D 
RG D 
RG D 
R I) 
Ro D 
X 
X 
RG D 
RG D 

X 

RG D 

G D 

RG D 

RG D 

G D 

G D 

RG D 

RG D 

R D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



02 
00 
04 
04 
04 
04 
04 
00 
00 
04 
04 
00 
02 

02 
02 



02 
02 
04 



R 



04 



RELBUF$_PAGCNT 

RELBUFS REGION 

RELBUFS^RETADR 

RELMEMS NARGS 

RELMEMSlPAGCNT 

RELMEMS PHYADR 

RELMEM$IVRTADR 

RESERVD 

RPTEADR 

SC8SL.ACCESS 

SC8$L AR1TH 

SCB$l_lBREAK 

SCBSL.CHME 

SC8SL.CHMK 

SC8SL CHMS 

5C9$LlCHMU 

SC8$L_COMPAT 

SC8SL..KNLSTK 

SC8$L MACHCHK 

SC8$L"0PCCUS 

SCB$L_QPCDEC 

SC8$L..P0WER 

SC8$L RAORMOD 

SC8$L~R0PRAND 

SCBSLlRXDB 

SC8$L,SFTLVL1 

SC8$L„SFTIVL10 

5C8SL.SFTLVL11 

SC8SL.SFTLVL12 

SC8$L SFTLVL13 

SC8$L~SFTLVL14 

SCB$L~SFTLVL15 

SC8$L"SFTLVL2 

SC8SL.SFTLVL3 

SC8$L_SFTLVL4 

SC8$l„SFTLVL5 

SC8$L_SFTLVL6 

SC8SL..SFTLVL7 

SC8$L_SFTLVL8 

SC8$L„SFTLVL9 

SCBSLlTBIT 

SC8$LlTIMER 

SC8$L TRANSL 

SC8$LlTXD8 

SC8SL ZERO 

SCB URKINT 

SEP"FUNCTIONAL 

SEP"REPAIR 

SET" 

setprts acmode 

setprts^inadr 

setprt$;nargs 

SETPRT$ PROT 
SETPRT$"PRVPRT 
SETPRT$~RETADR 
SETPRT KIT 
SJZ..,' 



00000004 


D 


OOOOOOOC 


D 


00000008 


D 


00000003 


D 


00000004 


D 


00000008 


D 


OOOOOOOC 


D 


0000064D R 


D 04 


00000685 RG 


D 04 


00000020 


D 


00000034 


D 


0000002C 


D 


00000044 


D 


00000040 


D 


00000048 


D 


0000004C 


D 


00000030 


D 


00000008 


D 


00000004 


D 


00000014 


D 


00000010 





oooooooc 


D 


0000001 c 


D 


00000018 


D 


OOO00OF8 


D 


00000084 


D 


000000A8 


D 


OOOOOOAC 


D 


00000080 


D 


0OO00OB4 


D 


00000088 


D 


OOOOOOBC 


D 


00000088 





0000008C 


D 


00000090 


D 


00000094 


D 


00000098 


D 


0000009C 


D 


OOOOOOAO 


D 


000000A4 


D 


00000028 


D 


OOOOOOCO 


D 


00000024 


D 


OOOOOOFC 


D 


00000000 


D 


******** 


X 00 


00000002 


D 


00000003 





00000651 R 


D 04 


OOOOOOOC 


D 


00000004 


D 


00000005 


D 


00000010 


D 


00000014 


D 


00000008 


D 


0000060A R 


D 04 


00000001 


D 



ZZ-ENSAA-7,0 

MEMMGT 

Symbol table 

SSS^ACCVIO 

SSS 1LIPAGCNT 

SSSJ.ENVIO 

SS$„NORMAL 

SSS.PAGOWNVIO 

SS$_RESIGNAL 

sss vasfull 
sstRptr 
5tackprot 
stack base 
symtab hi 

SYSSUNVllND 
SYSTEM 

t insfmem 
uRmap blk 
unmap~debugger 

USTKPTR 
XDS$INIT 



Symbol table 



*** 



PSECT name 

. A8S . 
$ABS$ 

WORK 
DATA 
CODE 
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VAX-11 Macro V03-01 Page^ 44 
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00O000OC 
000000FC 
000001 8C 
00000001 
000001EC 
00000918 
00000244 
******** 



00 

00000242 R D 04 
00 
00 
00 
04 
03 



******** 

******** 
******** 

00000637 
00000007 
0OOOC7E5 

00000766 

******** 

= 00000000 



X 

X 

X 
R D 
R D 
R 04 

RG D 04 
X 
G D 



Al locat ion 

00000000 
00OOFE70 
0000001D 
0000003E 
00000801 



00 



+ .„-™-™« — --+ 
! Psect synopsis ! 

PSECT No. Attributes 

( OJ 00 ( 0.) NOPJC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 29.) 02 ( 2J NOPIC USR 

( 62.) 03 ( 3.) NOPIC USR 

( 2049.) 04 ( 4.) NOPIC USR 



CON 
CON 
CON 
CON 
CON 



ABS 
ABS 
REL 
REL 
REL 



LCL 
LCL 
LCL 
LCL 
LCL 



NOSHR 

NOSHR 

NOSHR 

SHR 

SHR 



NOEXE 

EXE 

NOEXE 

NOEXE 

EXE 



NORD 
RD 
RD 
RD 
RD 



NOWRT 

WRT 

WRT 

NOWRT 

NOWRT 



NOVEC 
NOVEC 
NOVEC 
NOVEC 
NOVEC 



BYTE 
BYTE 

LONG 
LONG 
LONG 
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MEMMGT 
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Frame D9 Sequence 1961 

VAX-11 Macro V03-01 Page 45 

DMA1:CSYS0.SYSMAINT3MEMMGT.MAR;25<25) 



+ -— *— — .— — + 

! Symbol Cross Reference ! 
+ + 



SYMBOL 

SSARGS 

$$N 
SST1 

SER 

SMODULE 
ACCESSABLE 
A.P1BUFPTE 

A_P1BUFVA 

A_SPTEND 

BIT... 

BITO 

BIT1 

BIT10 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

BIT16 

BIT17 

BIT18 

BIT19 

BIT? 

B1T20 

BIT21 

BIT22 

BIT23 

BIT24 

BIT25 

B1T26 

BIT27 

B1T28 

BIT29 

BIT3 

BIT30 

BIT31 

BIT4 

BIT5 

8IT6 

BIT? 

BIT8 

BIT9 

CEP FUNCTIONAL 

CEP-REPAIR 



VALUE 

=00000005 

=00000002 
=00000018 

=00000002 
00000000-R 
00000207-R 
00000004-R 

00000008-R 

0000000C-R 

=00000015 

=00000001 

=00000002 

=00000400 

=00000800 

=00001000 

=00002000 

=00004000 

=00008000 

=00010000 

=00020000 

=00040000 

=00080000 

=00000004 

=00100000 

=00200000 

=00400000 

=00800000 

=01000000 

=02000000 

=04000000 

=08000000 

=10000000 

=20000000 

=00000008 

=40000000 

=80000000 

=00000010 

=00000020 

=00000040 

=00000080 

=00000100 

=00000200 

=00000000 

=00000001 



DEFIN 


ITION 
(1) 


REFERENCES... 


178 


(1) 


179 


(1) 


181 




194 


172 (1) 


(1) 






182 (D 


186 


(1) 


194 


(1) 






343 


(1) 


343 (D 














194 


(1) 


172 (1) 


178 


(1) 


179 


(1) 


181 


(1) 






182 n> 


186 


(1) 


194 


(1) 






973 


(12) 


#-973 (12) 














248 


(1) 


973 (12) 














548 


(3) 


309 'D 














218 


(1) 


236 (D 
#-942 (1D 


#-448 


(D 


#-694 


(6) 


#-816 


(8) 


219 


(1) 


237 (1) 
#-944 (11) 


#-439 


(1) 


#-446 


(1) 


#-818 


(8) 


220 


(1) 


238 (1) 
#-947 (11) 


#-428 


(1) 


#-709 


(6) 


#-822 


(8) 


193 


(1) 


169 (1) 
184 (1) 


170 
193 


(1) 

(1) 


176 


(1) 


177 


(1) 


173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


CD 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















173 


(1) 
















177 


(1) 
















177 


CD 
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CMKSMMENABLE 
CMKSSETPRT 

CMKS 

CMK$"ASTEXIT 

CMK$~CANTIM 

CMK$"MIBER 

CMKSllNITSCB 

CMK$ LAST 

CMKS'MMENABLE 

CMK$~RC0NS0LE 

CMK$~REFRESH 

CMK$~SCHDWK 

CMK$~SETIMR 

CMKSlSETIPL 

CMK$ SETPRT 

CMK$"SGIPR 

CMK$~TC0NS0LE 

CNTRFG$,ACMODE 

CNTREGS^NARGS 

CNTREGS.PAGCNT 

CNTREG$_REGION 

CNTREGS RETADR 

CRDSEXPREG 

DEBUG„HI 

OEBUG LO 



DS$AQ SYSSRV 
DS$A PRGBGN 
DS$GX LASTAOR 

DS$GB~MM ENB 
DS$GL"ACTUAL MEMSIZE 
DSSGL^BUFCNT" 
OS$GL"*FLAGS 
DSSGlTMEMSIZE 

ds$gl set memsize 

ds$gq"physor 

ds$k Error 

ds$k"normal 

ds$k~prgs1z 

ds$k~printb 

ps$k~printf 

DS$K>RINT1 
DS$K PRINTX 
OS$CSEVERE 
DS$K SUBSYS 
DS$K~TYPE ABORT PROGRAM 

DSSlf type~aborOest 

DS$K~TYPE~COMMAND„ERR 
DS$K"TYPElCOMMAND,OUT 
DS$K~TYPE CRD AUTDTEST 
05$K"TYPE"DS PROMPT 
DS$K"TYPElOS"START 

ds$k"type w erRdev 
dsiiTtype errhard 
ds$< - type"*^rror body 

D : $<~ TYPElERROR"END 
D.>$K"TYPE ERRPREP 
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Frame E9 Sequence 1962 

VAX-11 Macro V03-01 Pa 9§ *6 

DMA1:CSYS0.SYSMAINTJMEMMGT.MAR;25(25) 



#-1136 (15) 



#-1190 (17) 



0000058C-R 1139 (15) #-1136 (15) 

000005AF-R 1193 (17) #-1190 (17) 

=00000004 169 (1) 

=00000000 169 (1) 

=O0O0OO0B 169 (1) 

=00000007 169 (1) 

=00000008 169 (1) 

=0000OO0E 169 (1) 

=00000003 169 (1) 

=00000001 169 (1) 

=00000005 169 (1) 

=00000006 169 (1) 

=0000000C 169 (1) 

=00000009 169 (1) 

=00000C0D 169 (1) 

=0000000A 169 (1) 

=00000002 169 (1) 

=0000000C 172 (1) 

=00000004 172 (D 

=00000004 172 (1) #-983 (12) 

=00000010 172 (1) #-927 (11) 

=00000008 172 (1) #-1000 (12) 

00000346-R 775 (8) 

00000000-XR #-1482 (23) 

00000000-XR #-1421 (21) 

#-1458 (22) 

00000000-XR 200 (1) 

00000000-XR 205 (1) 

00000000-XR 200 (1) 

0000001C-R 229 (1) #-1098 (14) 

00000014-R 223 (1) #-321 (1) 

00000000-XR 201 (1) 

00000000-XR 205 (1) 

00000010-R 221 (1) 241 (1) 

00000018-R 226 (1) #-322 (1) 
00000000-XR 202 (1) 

=00000002 176 (1) 

=00000001 176 (1) 
00000000-XR 205 (1) 

=00000002 184 (1) 

=00000001 184 (1) #-343 (1) 

=00000000 184 (1) 

=00000003 184 (1) 

=00000004 176 (1) 

=00000066 176 (1) 176 (1) 

O00000H 184 (1) 

=00000013 184 (1) 

=00000015 184 (1) 

=00000016 184 (1) 

=0000001 A 184 (1) 

=00000001 184 (1) 

=0000001 D 184 (1) 

=00000008 184 (1) 

=00000006 184 (1) 

=00000009 184 (1) 

=0000000A 184 (1) 

=00000018 184 (1) 



#-934 
#-996 

#-1505 
#-1422 
#-1481 
#-380 
666 
#-450 



710 
#-335 

#-802 

666 



(11) 
(12) 

(24) 
(21) 

(23) 
(1) 
(6) 
(1) 



(6) 
(1) 
(8) 

(6) 



#-960 



206 
#-1427 
#-1503 



#-679 



(12) 



(1) 
(21) 

(24) 



(6) 



#-1455 
206 



ft-7?7 



(22) 
(1) 



(8) 



#-390 (1) 

#-852 (9) #-853 



(9) 



ZZ-ENSAA-7.0 

MEMMGT 

Cross reference 



Cross reference 



*** MEMMGT 



dssk type errsoft 
dssk'type errsup 
dssk'type^errsys 
ds$k"type..err halt 
ds$k"type„exception 
dssk type_except10n head 
dssk'type first pass 
ds$k"type;gener*l 
ds$k"type general error 
dsskftypejjo tests 
ds$k" type param error 
ds$k~type program end 
ds$k~type~programl]nfo 
ds$k~type~program start 
ds$k"type"qio invrdp 
dssk"type"q10"n0driver 
ds$k~type~gio~wrongver 
ds$k"type"scrtpt echo 
dssk~type""scriprpnf 
ds$k"type""scr1pt"pr0mpt 

DSSK^TYPElSCRIPTlSKIP 
DS$K~TYPE SEQUENCE ERROR 
DS$lTTYPE~START ERR 
DS$K"TYPE~START"LIST 
DS$K~TYPE~SUMMARy 

dssk"typeluser.prompt 

ds$k~warntng 

ds$m"abrtflg 

ds$m~8adtime 

dssm'batch 

ds$m"brkclr 

dssm'brkpt 

ds$m"charflg 

ds$m~cmdflg 

ds$m ctrlc 

ds$m"ctrlo 

ds*m~devflg 

ds$m"disablcc 

ds$m~donflg 

dssm'errflg 

ds$m^except 

dssmjxetst 

ds$m hltflg 

ds$m"lodflg 

dssm'memmgt 

ds$m"output 

ds$m rubflg 

ds$m"script 

ds$m"setimr 

ds$m~strflg 

0S$M"SUBT 

DS$M SYSFLG 

DS$M~TIMRON 

DS$V"ABRTFLG 

DSSV'BADTIME 

DS$V"BATCH 

DS$V"BRKCtR 



=00000007 

=00000004 

=00000005 

=0000000D 

=0000000C 

=00000008 

=00000011 

=00000000 

=00000003 

=00000012 

=0000001 C 

=00000010 

=00000017 

=OOOOO00F 

=00000024 

=00000022 

=00000023 

=00000021 

=0000001 E 

=00000020 

=0000001 F 

=00000019 

=00000018 

=00000025 

=0000000E 

=00000002 

=00000000 

-00000040 

=00100000 

=00400000 

=00001000 

=00000800 

=00000100 

=00000080 

=00000001 

=00010000 

=00000200 

=01000000 

=00002000 

=00000010 

=00080000 

=00040000 

=00000008 

=00000002 

=00008000 

=00800000 

=00000020 

=00200000 

=02000000 

=00000004 

=00004000 

=00000400 

=00020000 

=00000006 

=00000014 

=00000016 

=0000000C 



mory 


management 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) tt 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


184 


(1) 


176 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(]) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 


170 


(1) 
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27-JUL-1984 Fiche 10 
setup/contr 27-JUL-1984 15:33:44 
23-JUL-1984 16:23:38 



Frame F9 Sequence 1963 
VAX-11 Macro V03-01 Page^.^47 
DMA1:CSYS0.SYSMAINTJMEMMGT.MAR;25<25) 



#-343 



(1) 



ZZ-ENSAA-7.0 

MEMMGT 

Cross reference 

DSSV BRKPT 
DSSV^CHARFLG 
DSSV^CMDFLG 
DSSV CTRLC 
DSSV CTRLO 
DSSV DEVFLG 
DSSVJHSABLCC 
DSSV_DONFLG 
DSSVJRRFLG 
DSSV.EXCEPT 
DSSV EXETST 
DSSV HLTFLG 
DSSVJ.ODFLG 
DSSVJ4EMMGT 
DSSV OUTPUT 
DSSV RUBFLG 
DSSV SCRIPT 
DSSV SETIMR 
DSSV STRFLG 
DSSV SUBT 
DSSV^SYSFLG 
DSSV T1MRON 
DSS SRITH 
DSSlASBE 
DSS BADLINK 

DSS"BADTYPE 

DSS BIIC 

DSS'CHME 

DSS'CHMK 

DSS'DEVNAME 

DSS ERROR 

OSS~rHWE 

DSS'FRAGBUF 

DSS'ICBUSY 

DSS^ICERR 

DSS IhWE 

DSSllLLCHAR 

DSSJLLPAGCNT 

DSSJLLUNIT 

DSS INSFMEM 

DSS~IPL2HI 

DSSJVADDR 

DSS IVVECT 

DSS~KRNLSTK 

DSSlLOGIC 

DSS„MCHK 

DSS MMOFF 

DSS^NEEDUNIT 

DSS^NODE 

DSS.NOPCS 

DSS NORMAL 

dss;nosupport 
dss notdon 

DSSlNOTIMP 
DSS„NULLSTR 
DSS OVERFLOW 
DSSlPOWER 



Cross 



re 


ference 








*** MEMMGT 


Memory n 


manage 




=00000008 


170 


(1) 




=00000008 


170 


(1) 




=00000007 


170 


(1) 




=00000000 


170 


(1) 




=00000010 


170 


(1) 




=00000009 


170 


(1) 




=00000018 


170 


(1) 




=0000000D 


170 


(1) 




=00000004 


170 


(1) 




=00000013 


170 


(1) 




=00000012 


170 


(1) 




=00000003 


170 


(1) 




=00000001 


170 


(1) 




=0000000F 


170 


(1) 




=00000017 


170 


(1) 




=00000005 


170 


(1) 




=00000015 


170 


(1) 




=00000019 


170 


(1) 




=00000002 


170 


(1) 




=0000000E 


170 


(1) 




=0000000A 


170 


(1) 




=0000001 1 


170 


(1) 




=006600D0 


176 


(1) 




=00660118 


176 


(1) 




=006600F0 


176 


(1) 




=006600E8 


176 


(1) 




=00660120 


176 


(1) 




=006600A8 


176 


(1) 




=006600E0 


176 


(1) 




=00660108 


176 


(1) 




=00660002 


176 


(1) 




=00660068 


176 


(1) 




=00660080 


176 


(1) 




=006600C8 


176 


(1) 




=006600C0 


176 


(1) 




=00660060 


176 


(1) 




=00660018 


176 


(1) 




=00660078 


176 


(1) 




=00660100 


176 


(1) 




=00660050 


176 


(1) 




=006600B8 


176 


(1) 




=00660040 


176 


(1) 




=00660038 


176 


(1) 




=00660090 


176 


(1) 




=00660070 


176 


(1) 




=00660088 


176 


CD 




=00660058 


176 


(1) 




=006600F8 


176 


(1) 




=00660128 


176 


(1) 




=00660110 


176 


(1) 




=00660001 
=00660081 


176 


(1) 




176 


(1) 




=00660030 


176 


(1) 




=00660080 


176 


(1) 




=00o60010 


176 


(1) 




=00660008 


176 


(1) 




=00660098 


176 


(1) 
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Frame G9 Sequence 1964 

VAX-11 Macro V03-OT Page 48 

DMA1:[SYS0.SYSMAINT]MEMMGT.MAR;25(25) 



#-988 



(12) 



#-559 



(3) 



176 



(1) 



ZZ-ENSAA-7.0 

MEMMGT 

Cross reference 

DSS PROGERR 

CSS'SEVERE 

DSS TRANSL 

DSS"*TRUNCATE 

DSS'UNEXPINT 

DSSJ/ASFULL 

DSS WARNING 

DSA$AT APTTX1 

DSASGL~FLAGS 

DSASV OSER 

DSRSCRECKLOAD 

DSRSMMENABLE 

DSRSSETIMR INI 

DSX$FREEDB5SYM 

DSXSMAPDBGBLOCK 

DSXSMMOFF 

DSXSMMOFF.X 

DSXSMMON 

DSXSMMON X 

DSXSPRINT 

DS ERRSUP 

ENtfSM DOMAIN 

ENVSM~LEVEL 

ENV$M~ SUPER 

ENVSS~DOMAIN 

ENV$S"LEVEL 

ENVSSlSUPER 

ENVSV.DOMA1N 

ENVSV LEVEL 

ENVSV SUPER 

ENVSjPU 

ENV$ FUNCTIONAL 

ENV$"REPAIR 

ENVS"SUPER 

ENVS.SYSTEM 

ESTKPTR 

EXESCNTREG 

EXESCNTREG_X 

EXESEXPREG 

EXE$EXPREG_X 

EXESSETPRT 

EXPREGS ACMODE 

EXPREGS~NARGS 

EXPREGS'PAGCNT 

EXPREGS REGION 

EXPREGS~RETADR 

EXPREG COMMON 

GETBUFljIARGS 

GETBUFS PAGCNT 

GETBUF$~PHYADR 

GETBUFSlREGION 

GETBUFS RETADR 

GETMEMS~NARGS 

GETMEMSlPAGCNT 

GETMEMS PHYADR 

GETMEMS"VRTADR 

INISRDORLY 



Cross reference 



*** MEMMGT Memory management 
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27-JUL-198A Fiche 10 
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Frame H9 Seguence 1965 
VAX-11 Macro V03-01 Page 49 
DMA1:CSYS0tSYSMAINT3MEMMGT.MAR;25(25) 



=00660020 
=00660004 
=006600A0 
=00660028 
=006600D8 
=00660048 
=00660000 
OOOOFAOO 
0000FE00 
=0000001 C 
00000000-XR 
0000057C-R 
00000000-XR 
00000723-R 
000006D5-R 
00000562-R 
0000057B-R 
00000554-R 
00000561 -R 
00000000-XR 
00000000-XR 
=00000002 
=00000001 
=000003FC 
=00000001 
=00000001 
=00000008 
=00000001 
=00000000 
=00000002 
=00000000 
=00000000 
=00000001 
=00000001 
=00000001 
00000000-XR 
00000467-R 
00000553-R 
00000363-R 
00000466-R 
0000059D-R 
=0OO00OOC 
=00000004 
=00000004 
=00000010 
=00000008 
00000373-R 
=00000004 
=00000004 
=0000000C 
=00000010 
=00000008 
=00000003 
=00000004 
=00000008 
=0000000C 
00000800-R 



176 
176 
176 
176 
176 
176 
176 



1451 

1412 
1095 
1103 
1045 
1051 



177 
177 
177 
177 
177 
177 
}77 
177 
177 
177 
177 
177 
177 
177 

924 

1002 

782 

864 

1188 

1&6 

186 

186 

186 

186 

787 

178 

178 

178 

178 

178 

179 

179 

179 

179 

1579 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



1135 (15) 



(22) 
(21) 
(14) 

(14) 
(13) 
(13) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(11) 

(12) 

(8) 

(9) 

(17) 

(1) 

(1) 

(1) 

(1) 

(1) 

(8) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(25) 



#-1204 (17) 



#-1097 
#-677 

1415 
#-1414 

208 
#-1048 

201 



202 
202 



177 
177 

177 
\1< 
177 

177 
204 

#-997 

#-793 



#-790 
#-804 
#-854 
#-780 



(14) 

(6) 

(21) 

(21) 

(1) 

(13) 

(1) 



#-1099 (14) 



(1) 
(1) 



(1) 

(1) 

(1) 

(1) 
(1) 

(1) 
(1) 

(12) 

(8) 



(8) 
(8) 
(9) 
(8) 



176 (D 



1454 
#-1453 

667 
#-1100 



(22) 
(22) 
(6) 
(14) 



343 
973 



(1) 
(12) 



#-615 
#-811 



#-834 
#-863 



(4) 
(8) 



(9) 
(9) 



#-855 



#-857 



(9) 



(9) 



ZZ-ENSAA-7.0 

MEMMGT 

Cross reference 

IN1SWRITA6LE 

I0SGQ PHYSICAL 
ISTKPTR 
KSTKPTR 
K.P1PAGES 

l$a lastadr 
l.pOlen 

MAPSIOSPACE 

MAPFREE 

MAPMEM 

MAPMEMSIOSPACE 

MAP BLK 

MAP~DEBUGGER 

MEMPOOLSINIT 

MMG$GL_SPTBASE 

MMG$10LOCK 
MMG$UNLOCK 
POPT BASE 



PFN$AB STATE 

PFN$AB"TYPE 

PFN$AL~BAK 

PFN$AL"PTE 

PFNSAW"*BLINK 

PFN$AU~FUNK 

PFN$AW~REFCNT 

PFN$AW~SWPVBN 

PONE 

PR$ MAPEN 

PR$>OBR 

PRS^POLR 

PR$ P1BR 

PR$~P1LR 

PRSlSBR 

PR$ SLR 

PR$"TBiA 

PR$~TBIS 

PSL5V IS 

PTE$C_NA 

PTEtC UREW 

PT£$C~URKW 

PTESClURSW 

PTESCJJW 

PTE$M 10 

PTE$M~M0DIFY 

PTE$M~OWN 



PTE$M PFN 
PTESM^PROT 

PTE$M_ VALID 



Cross reference 
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*** MEMMGT Memory management setup/contr 27-JUL-1984 15:33:44 

23-JUL-1984 16:23:38 



Frame 19 Seguence 1966 

VAX-11 Macro V03-01 Page 50 

DMA1:CSYS0.SYSMA1NTDMEMMGT.MAR;25(25) 



00000800-R 

00000000-XR 

00000000-XR 

00000000-XR 

=0000007E 

00000214 
00000000-R 

00000000-XR 

000002AA-R 

00000000-R 

000001AF-R 

0000078D-R 

0000074D-R 

00000000-XR 

00000000-XR 

000006C7-R 
000006D1-R 
00000000-XR 



=0000001 0-R 
=00000000 
=00000008-R 
=00000004-R 
=00000000 
=00000000 
=0000000C-R 
=00000000-R 
00000621 -R 
=00000038 
=00000008 
=00000009 
=0000000A 
=00000008 
=0000000C 
=00000000 
=00000039 
=0000003A 
=0000001A 
=00000000 

=68000000 
=70000000 
=60000000 
=20000000 
=00100000 
=04000000 
=01800000 



=78000000 
=80000000 



1580 (25) 



197 



217 



664 

296 

490 

1524 

1479 



1382 
1387 



241 
242 
237 
236 
240 
239 
238 
235 
1245 



169 



193 



(1) 



(1) 



(6) 

(1) 

(2) 

(25) 

(23) 



(20) 
(20) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(18) 



(1) 



(1) 



203 

204 

204 

#-443 

#-944 

670 

235 

#-785 

199 

455 

#-445 
1424 

199 

200 

#-948 

#-1385 
199 

#-682 
938 



1213 
#-1141 
#-1327 
#-1232 
#-1329 
#-1247 
#-1344 
#-1262 
#-1140 
#-1298 
#-1136 

352 
#-608 
#-614 

391 
#-617 
#-1544 

#-968 

#-1571 

#-415 

#-681 

#-963 

#-1545 

#-838 

#-1571 



(1) 

(1) 

(1) 

(1) 

(11) 

(6) 

(1) 

(8) 

(1) 

(1) 

(1) 
(21) 

(1) 
(1) 
(11) 

(20) 
(1) 
(6) 
(11) 



(17) 

(15) 

(19) 

(18) 

(19) 

(18) 

(19) 

(18) 

(15) 

(18) 

(15) 

(1) 

(4) 

(4) 

(1) 

(4) 

(25) 

(12) 

(25) 
(1) 
(6) 
(12) 

(25) 

(9) 

(25) 



405 
#-612 

#-693 

#-671 

#-347 

#-936 

449 



#-516 
1483 

452 
#-378 



304 

#-685 

964 



#-1143 

#-395 

#-348 

#-413 

#-408 

#-377 

#-430 



#-1190 
382 



501 
311 



311 
#-442 
#-684 

#-345 
#-969 

311 



(1) 
(4) 

(6) 

(6) 
(1) 
(11) 
(1) 



(2) 
(23) 

(1) 

(1) 



(1) 
(6) 
(12) 



(15) 
(1) 
(1) 
(1) 

(D 
(D 



(17) 
(1) 



(2) 
(1) 



(1) 
(1) 
(6) 

(1) 

(12) 
(1) 



#-420 

817 

#-687 



#-703 



#-394 
779 



#-492 
#-495 

#-442 

#-611 

#-620 

382 

501 

#-970 

#-511 

382 



(1) 

(8) 
(6) 



(2) 
(2) 

CD 

(4) 
(4) 

(1) 
(2) 
(12) 

(2) 

(1) 



943 
#-778 



(11) 

(8) 



(6) #-821 



(1) 600 

(8) 784 



(8) 



(4) 
(8) 



504 



#-836 

391 

504 

#-978 

#-603 

391 



(2) 



(9) 

(1) 
(2) 
(12) 

(4) 

(1) 



Z2-ENSAA-7.0 

MEMMGT 

Cross reference 



PTE$S OWN 

PTESV~IO 

PTESV OWN 

PTESVJ/AUD 

PZERO 

RELBUFS NARGS 

RELBUF$~PAGCNT 

RELBUFSlREGION 

RELBUFS RETADR 

RELMEMS'NARGS 

RELMEMS~PAGCNT 

RELMEMS~PHYADR 

RELMEMS"*VRTADR 

RESERVD" 

RPTEADR 



Cross reference 



*** MEMMGT Memory management 



J 9 . 

27-JUL-1984 Fiche 10 

setup/contr 27-JUL-1984 15:33:44 

23-JUL-1984 16:23:38 



Frame J9 Seguence 1967 
VAX-11 Macro V03-0T Page^ >1 
DMA1jCSYS0.SYSMAINTDMHMMGT.MAR;25(25) 



SCBJJNKI 

SEP FUNC 

SEP~REPA 

SET" 

SETPRTS 

SETPRTS" 

SETPRTS"* 

SETPRTS" 

SETPRTS" 

SFTPRTS" 



NT 

TIONAL 
IR 

ACMODE 

INADR 

NARGS 

PROT 

PRVPRT 

RETADR 



SETPRT XIT 

SIZ..." 

SSS_ACCVIO 
SSSJLLPAGCNT 

SSS LENVIO 
SSSlNORMAL 

SSS PAGOWNV10 

SSS"RESIGNAL 

SSS VASFULL 

SSTRPTR 

STACKPROT 

STACK BASE 

SYMTAB HI 

SYSSUNDIND 

SYSTEM 

T INSFMEM 

ijRMAP BLK 

UNMAP~DEBUGGER 

(JSTKPTR 

XOSSINIT 



=00000002 

=00000014 

=00000017 

=0000001 F 
0000060B-R 

=00000003 

=00000004 

=0000000C 

=00000008 

=00000003 

=00000004 

=00000008 

=00000C0C 
0000064D-R 
00000685-R 

00000000-XR 
=00000002 
=00000003 

00000651-R 
=00OO0O0C 
=00000004 
=00000005 
=00000010 
=00000014 
=00000008 

0000060A-R 
=00000001 
=0000000C 
=000000FC 
=000001 8C 
=00000001 

=000001 EC 

=00000918 

=00000244 
00000000-XR 
00000242-R 
00000000-XR 
00000000-XR 
00000000-XR 
00000637-R 
00000007-R 
000007E5-R 
00000766-R 
00000000-XR 

=00000000 



193 



1230 

181 

181 

181 

181 

182 

182 

182 

182 

1276 

1323 



177 
17? 
1285 

194 
194 
194 
194 
194 
194 

1222 
193 



599 



1260 
250 
1567 
1501 

243 



(1) 



(18) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(18) 

(19) 



(1) 
(1) 
(18) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 

(17) 
(1) 



(4) 



(18) 

(1) 

(25) 

(24) 

(1) 



501 
#-978 
#-1543 

#-1543 

#-1533 

1213 



1213 
#-1287 
1570 
204 



#-12i7 

#•1199 

#-1296 
#-1288 
#-1194 
#-1299 
#-1205 
170 
#-1277 

#-792 
#-1235 
#-1303 
#-926 
#-994 
#-566 
#-795 
204 
454 
204 
#-1456 
201 
1213 
343 
1457 

204 



(2) 

(12) 

(25) 

(25) 
(25) 
(17) 



(17) 
(18) 
(25) 
(1) 



(18) 

(17) 

(18) 

(18) 

(17) 

(18) 

(17) 

(1) 

(18) 

(8) 

(18) 

(18) 

(11) 

(12) 

(3) 

(8) 

(1) 

(1) 

(1) 

(22) 

(1) 

(17) 

(1) 

(22) 

(1) 



#-511 

#-705 

#-705 
#-1542 



1384 
447 



#-1252 

#-1220 



#-1292 
#-1207 

#-1215 
177 



#-1250 
#-1388 



#-849 
#-618 

714 
#-601 
#-1458 

563 



1507 
#-604 



(2) 

(6) 

(6) 
(25) 



(20) 
(1) 



(18) 
(17) 



(18) 
(17) 

(17) 
(1) 



(18) 
(20) 



(9) 

(4) 

(6) 

(4) 

(22) 

(3) 



(24) 
(4) 



#-681 

#-835 

#-835 
#-833 



#-1219 
193 



#-1265 
#-554 



#-606 
207 



#-621 



(6) 

(9) 

(9) 
(9) 



#-684 
#-959 
#-959 



(6) 

(12) 

(12) 



1532 (25) 



#-1267 (18) 



1541 (25) 



#-1218 (17) #-1221 (17) 



(17) 
(1) 



(18) 

(3) #-800 



(8) 



(4) 
(1) 



(4) 






ZZ-ENSAA-7.0 

MEMMGT 

I ross reference 



Cross reference 



K 9 
27-JUL-1984 Fiche 10 
*** MEMMGT Memory management setup/contr 27-JUL-198A 15:33:44 

23-JUL-1984 16:23:38 



Frame K9 Seguence 1968 

VAX-11 Macro V03-0T Page 52 

DMAI.'CSYSO.SYSMAINTJMEMMGT, MAR; 25(25) 



MACRO SIZE 

SCNTREGDFF 1 

$D1 PRINTS 1 

SDEF 1 

SDEFIN1 1 



$DS_BITDEF 2 

SDS CFOEF 1 

SDS'DSADEF 5 

SDS~DSDEF 2 

SDS""ENVDEF 2 

SDSlGETBUF_DEF 1 
SDS„GETMEM_DEF 1 

SDS HDROEF 2 
SDS RELBUF DEF 1 
$DS"RELMEMlDEF 1 

SDSlSCBDEF 3 

SDS TYPEDEF A 

$EOD 1 

SEQULS1 1 

SEQULST 1 

SEXPREGDEF 1 

SGBLINI 2 

$IRPDEF 4 

SOFFDEF 1 

SPHDDEF 6 

SPRDEF 4 

SPRINT 2 

SPRTDEF 1 

SPSLDEF 2 

SPTEDEF 3 

SPUSHADR 

SSETPRTOFF 

SSSDEF 21 

SVIELD 

SVIELD1 

CASE 

CMK 

CMKDEF 

DSFDEF 

ERRSUP.S 

IFNORD 

MODNAM 



+ + 

! Macros Cross Reference ! 
+ + 

DEFINITION REFERENCES... 

U2 (1) 172 (1) 

343 (1) 343 (1) 

184 (1) 

174 (1) 174 (1) 17? 

188 (1) 189 

195 (1) 

173 (1) 173 (D 

174 (1) 174 (1) 

175 (1) 175 (1) 

176 (1) 176 (D 

177 (1) 177 (1) 

178 (D 178 (1) 

179 (1) 179 (1) 

180 (1) 180 (D 

181 (1) 181 (1) 

182 (1) 182 (1) 

183 (1) 183 (1) 

184 (1) 184 (1) 

184 (1) 169 (1) 173 

184 (1) 169 (D 176 

169 (1) 169 (1) 176 

186 (1) 186 (D 

169 (1) 169 (1) 170 

184 (1) 

187 (1) 187 (1) 

17? (1) 172 (1) 178 

186 (1) 194 

188 (1) 188 (D 

189 (1) 189 (1) 
340 (D 340 (1) 

190 (D 190 (D 

191 (1) 191 (1) 

192 (1) 192 (D 
973 (12) 973 (12) 

194 <1> 194 (1) 

195 (1) 195 (1) 

170 (D 170 (D 177 
184 (1) 170 (1) 177 
1212 (17) 1212 (17) 

1136 (15) 1136 (15) 1190 

169 (1) 169 (1) 

170 (1) 170 (1) 
973 (1?) 973 (12) 
6 7 (6) 670 (6) 
248 (1) 248 (D 



(1) 


180 


(1) 


183 


(1) 


187 


(1) 


(1) 


190 


(1) 


191 


(1) 


192 


(1) 



(1) 
(1) 
(1) 


176 
177 
177 


(1) 
(1) 

(1) 


177 
184 
184 


(1) 
(1) 
(1) 


184 


(1) 


(1) 


173 


(1) 


176 


(1) 


177 


(1) 


(1) 
(1) 


179 


(1) 


181 


(1) 


182 


(1) 



(1) 
(1) 

(17) 



193 
193 



(1) 
(1) 



ZZ-ENSAA-7.0 
MEMMGT 
VAX-11 Macro 



Cross reference 
Run Statistics 



*** 



L 9 

27-JUL-1984 Fiche 10 Frame. L9 
MEMMGT Memory management setup/contr 27-JUL-1984 ]5:33:44 



Sequence 1969 



27-JUL-1984 15:33:44 VAX-11 Macro V03-01 Page 53 
2S-JUI-1984 16:23:38 DMA1 :CSYS0,$YSMAINT]MEMMGT.MAR;25(^5) 



+ ....-...—— — -- .+ 

! Performance indicators ! 
+ + 



Phase 



Page faults CPU Time 



Elapsed Time 



Initialisation 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



34 


00:00:00.13 


137 


00:00:00.79 


1202 


00:00:21.83 


8 


00:00:02.06 


492 


00:00:05.01 


59 


00:00:00.40 


7 


00:00:00.03 


115 


00:00:01.62 


2060 


00:00:31.89 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.29 
:01.73 
:40.26 
:03.20 
:10.36 
:01 -01 
:00.09 
:02.33 
:59.30 



The working set limit was 1000 pages. 

116759 bytes (229 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1240 non-local and 84 local symbols 

1583 source lines were read in Pass 1, producing object records in Pass 2. 

140 pages of virtual memory were used to define 35 macros. 



Macro library name 

DRB1 :CDS.WORK]DIAG.MLB;955 

DRB1:CDS.WORK]DS.MLB;218 

SYS$SYSR00T:CSYSLIBUIB.MLB;1 

0MAl:C e .YS0.SYSMAINTD0S.MLB;218 

DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 

SYS$SYSR00T:CSYSLIB]LIB,MLB;1 
SYSSSYSROOT:CSYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



+• ™— -+ 

! Macro library statistics ! 

+ — ——»——. —,-* — — .- -- + 

Macros defined 



14 
6 
4 




14 

38 



1369 GETS were required to define 38 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LJST=(;DS.LISJ/CR0SS/ENABLE = (DE8UG,rRACE) MEMMGT/UPDA=(MEMMGT. UPD, MEMMGT. ENH)+SYS$UBRARY :LIB/UBRARY+DMA1 :CSYS0.SYSMA 



ZZ-ENSAA-7.0 

MUBTDR1VR 

lable of contents 



- TU81 LOAD 



DRIVER 

• TU81 



LOAD DRIVER 



M 9 
27-JUL-1984 Fiche 10 

27-JUL-1984 15:3A:A7 



Frame M9 
VAX-11 Macro 



Sequence 
V03-0T 



1970 
Page 







(2) 
(3) 
(A) 



44 

100 
222 



DECLARATIONS 
TU81 load device 
TU81 load driver 



initialization 
QiO 



ZZ-ENSAA-7.0 
MU3TDR1VR 

06-9 



-2 



TU81 LOAD DRIVER 

- TU81 LOAD DRIVER 



-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 
cooo 
cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ocoo 

0000 



.1 

,c 

3 
4 
5 
6 

.1 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

?0 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

.10 

.11 

.12 

:j 

.14 
.15 
.16 



N 9 

27-JUL-1984 Fiche 10 Frame N9 Seguence 1971 

27-JUL-1984 15. '34. -47 VAX-11 Macro V03-01 Page 

7-DEC-1 982 15:15:18 DMA1 : LSYSO. SYSMAINT]MUBTDRIVR.MAR; (1 ) 

.TJTLE MUBTDRJVR - TU81 LOAD DRIVER 
J DENT , 06-9' 
.DISABLE 6BL 

***********************^** ************************************** ************ 



* 
* 

* 

* 

* 
* 

• 
ft 



COPYRIGHT (c) 1978, 1980, 1982, 1983, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY RE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. :*i TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



* 

* 
*■ 

* 

* 
* 

* 



**fr***ft*****^******* ******************************************** ************ 

+ + 
FACILITY: VDS 

ABSTRACT: 

This module contains the load driver for the 
TU81 magtape. 

ENVIRONMENT: kernel mode 

AUTHOR: Marion Baggett 

MODIFIED BY: 



01 
02 
03 

04 

05 



M. Baggett VDS 6.10 

Change error reporting for command execution failure, 

M. Baggett VDS 6.10 

Change ID field in message buffer to tape value. 

M. Baggett VDS 6.11 .... ,,,..., 
Interchanged the of fsets names m the skip record and skip file 
sections Tor marks to skip. 

M. Baggett VDS 6.11 Jan-2 1983 

Change the skip file section to return a normal code on 

detection of tape marks. 



M. Baggett 



'/DS 6.11 Feb-23-1983 



ZZ-ENSA 

MUBTDRN 



7.0 - TU81 LOAD DRIVER 

- TU81 



LOAD DRIVER 



B 10 
27-JUL-1984 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 



.17 
.18 
.19 
.20 
.21 
.22 
.23 
.24 
.25 
.26 
.27 
.28 
.29 
.30 
.31 
42 



06 
07 

08 

09 



Fiche 10 Frame B10 Seguence 1972 
fc . v Jl-1984 1 5:3A:A7 VAX- "M Macro V03-0T Page 2 
7-DEC-1982 15:15:18 DMA1 :[;YS0.SYSMAIMT3HUBTDRIVR.HAR; (1) 

Changed symbol BTD$K_TU to BTD$K_MU for TU81. 

M. Baggett VDS 6.11 June-29-1983 

Added GET UNIT STATUS to supply values for ONLINE command. 

BOB 8ERGAZZI 6.12 July 18, 1983 

Changed b A VALlD to W A VALID to resolve truncation errors. 

M. Baggett VDS 6.13 Oct 24, 1983 

Correct displacement error in ONLINE command packet. 

Set CLEAR SERIOUS EXCEPTION bit in several commands. 

M. BAGGETT VDS 6.H Jan 5, 1984 

Definition of the internal processors registers are temporarily 

defined in this module. 



ZZ-ENSAA-7.0 

MUBTDRIVR 
U6-9 



DECLARATIONS 



- TU81 LOAD DRIVER 
DECLARATIONS 



C 10 
27-JUL-1984 Fiche 10 

27-JUL-1984 15:3A:A7 
7-DEC-1982 15:15:18 



Frame CIO Sequence 1973 

VAX-11 Macro V03-01 Page 3 

DMA1:CSYS0.SYSMAINTJMUBTDRIVR.MAR;(2) 



-1 



-1 





0000 


44 




.SBTTL DECLARATION? 






0000 


45 ; 












0000 


46 , 


INCLUDE FILES: 








0000 


47 , 












0000 


48 












0000 


49 




SBTDDEF 








0000 


50 




SIODEF 








0000 


51 




SMSCPDEF 








0000 


53 




SPTEDEF 








0000 


54 




SRPBDFF 








0000 


55 




SSSDEF 








0000 


56 




SUBADEF 








0000 


57 




SUBIDEF 








0000 


58 




SVADEF 








cooo 


59 












0000 


60 












0000 


61 


; EQUATED SYMBOLS: 








0000 


62 










000000B1 


0000 


63 




BTDSK tm 


= 177 


; TEMP 


000000B2 


0000 


64 




BTDSK'TS 


= 178 


; TEMP 


000000B3 


0000 


65 




BTDSK TF 


= 179 


; TEMP 


000000B4 


0000 
0000 


.1 

67 




BTDSKlMU 


= 180 


; TEMP 


00000000 


0000 


68 




TUJP = 






00000002 


0000 


69 




TUSA = 2 






00000001 


0000 


70 




GO = 1 






00008000 


0000 


71 




OWN = 1315 






0000000B 


0000 


72 




$1 = 11 






0OO0000E 


0000 


73 




S4 = 14 






000001 EE 


0000 


74 




UMR =494 




; Last-1 




0000 


.1 




.MACRO SPRDEF, 


SGBL 






0000 


.2 












0000 


.3 




SDEFINI PR,SGBL 








0000 


.4 












0000 


.5 












0000 


.6 


$EQU 


PRS KSP 








0000 


.7 


SEQU 


PRS~ESP 1 








0000 


.8 


$EQU 


PR$_SSP 2 








0000 


.9 


SEQU 


PRS USP 3 








0000 


.10 


SEQU 


PRS ISP 4 








0000 


.11 


SEQU 


PRS'POBR 


8 






0000 


.12 


SEQU 


PRS'POLR 


9 






0000 


.13 


SEQU 


PRS~P1BR 


10 






0000 


.14 


SEQU 


PR$~P1LR 


11 






0000 


.15 


SEQU 


PRS'SBR 12 








0000 


.16 


SEQU 


PRS'SLR 13 








0000 


.17 


SEQU 


PRS"PCBB 


16 






0000 


.18 


SEQU 


PRS~SCBB 


17 






0000 


.19 


SEQU 


PRS"*IPL 18 








0000 


.20 


SEQU 


PRS'ASTLVL 


19 






0000 


.21 


SEQU 


PRS""SIRR 


20 






0000 


.22 


SEQU 


PRS SISR 


21 






0000 


.23 


SEQU 


PRS"ICCS 


24 






0000 


.24 


SEQU 


PRS NICR 


25 






0000 


.25 


SEQU 


PRS'ICR 26 








ocoo 


.26 


SEQU 


PR$~TODR 


27 






0000 


.27 


SEQU 


PRS'RXCS 


32 





Boot device types 
I/O function codes 
MSCP definitions 
Page table entries 
RPB offsets 
Status codes 
UBA definitions 
11/750 UBA definitions 
Virtual addresses 



[053 



UNIBUS Mapping Register 



ZZ-ENSAA-7.0 DECLARATIONS 






MUBTORIVR 


- TU81 LOAD 


DRIVER 


l»6-9 


DECLARATIONS 






0000 


.28 


$EQU 




0000 


.29 


$EQU 




0000 


.30 


$EQU 




0000 


.31 


SEQU 




0000 


.32 


SEQU 




0000 


.33 


$EQU 




0000 


.34 


SEQU 




0000 


.35 


SEQU 




0000 


.36 


SEQU 




0000 


.37 


SEQU 




0000 


.38 


SEQU 




0000 


.39 


SEQU 




0000 


.40 


SEQU 




0000 


.41 


SEQU 




cooo 


.42 


SEQU 




0000 


.43 


SEQU 




0000 


.44 


SEQU 




0000 


.45 


SEQU 




0000 


.46 


SEQU 




0000 


.47 


SEQU 




0000 


.48 


SEQU 




0000 


.49 


SEQU 




0000 


.50 


SEQU 




0000 


.51 


SEQU 




0000 


.52 


SEQU 




0000 


.53 


SEQU 




0000 


.54 


SEQU 




0000 


.55 


SEQU 




0000 


.56 


SEQU 




0000 


.57 


SEQU 




0000 


.58 


SEQU 




0000 


.59 


SEQU 




0000 


.60 


SEQU 




0000 


.61 


SEQU 




0000 


.62 


SEQU 




0000 


.63 


SEQU 




0000 


.64 


SEQU 




0000 


.65 


SEQU 




0000 


.66 


SEQU 




0000 


.67 


SEQU 




0000 


.68 


SEQU 




oooo 


.69 


SEQU 




0000 


.70 


SEQU 




0000 


.71 


SEQU 




0000 


.72 


SEQU 




0000 


.73 


SEQU 




0000 


.74 


SEQU 




0000 


.75 


SEQU 




0000 


.76 


SEQU 




0000 


.77 


SEQU 




0000 


.78 


SEQU 




0000 


.79 


SEQU 




0000 


.80 


SEQU 




0000 


.81 


SEQU 




0000 


.82 


SEQU 




0000 


.83 






0000 


.84 





D 10 ... 

27-JUL-1984 Fiche 1(> 

27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame D10 Sequence 1974 
VAX-11 Macro V03-01 Page 4 
DMA1 tCSVSO.SYSMAINTDMUBTDRIVR.MAR; (2) 



PRS RXDB 

PRS~TXCS 

PRS~TXDB 

PRS'ACCS 

PRS'ACCR 

PRS~MAPEN 

PRS^TBIA 

PRS TBIS 

PRS~PME 61 

PRS'SID 62 

PRS~TBCHK 

PRStf SID SN 

PRSS'SID SN 

PRSV~SID"PL 

PRSS'SID'PL 

PRSV.SID.ECO 

PRSS SID.ECO 

PRSV'SIDJTYPE 

PRSS'SID TYPE 

PRS 510 TYP780 

PRS~SID TYP750 

PR$"SIDlTYP730 

PRS'SID TYP7VV 

PRS~$!D"TYPMAX 

PRS~WCSS 

PRS'WCSD 

PRS"SBIFS 

PRSJBIS 

PRS SBISC 

PRS'SBIMT 

PRS^SBIER 

PRS SBITA 

PRS'SBIGC 

PRS~CMIERR 

PRS'CSRS 

PRS~CSRD 

PRS'CSTS 

PRS~CSTD 

PRS'TBDR 

PRS'CADR 

PRSlMCESR 

PRS CAER 

PRS~UBRESET 

PRS~PAMACC 

PRS PAMLOC 

PRS"CSWP 

PRS~CRBT 

PRS"MCTL1 

PR$~MCTL2 

PRS'MGEN 

PRS'MTBER 

PRS'MEAR 

PRS"MDCR1 

PRS"MEDR 

PRS'MECCR 



33 

34 
35 
40 
41 
56 
57 
58 



63 



12 

12 

3 

15 

9 

24 

8 

1 

2 

3 

4 

4 

44 

45 

48 

49 

50 

51 

52 

53 

54 

23 

28 

29 

30 

31 

36 

37 

38 

39 

55 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 



SDEFEND PR,SGBL,DEF 



ZZ-ENSAA-7.0 

MUBTDR1VR 
06-9 



DECLARATIONS 



- TU81 LOAD DRIVER 
DECLARATIONS 



27-JUL-1984 Fiche 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame E10 Seguence 1975 
VAX-11 Macro V03-01 Page 5 
DMA1:[SYS0.SYSMAINT]MUBTDRIVR.MAR;(2) 



-1 



-1 



-1 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00000000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.85 
e 86 
.87 
75 
76 
17 
78 
79 
80 
81 
82 
83 
84 
85 
J 
87 
88 
89 
90 
.1 
92 
93 
94 
J 
96 
97 
98 



.ENDM SPRDEF 
SPRDEF 



Processor registers 



OWN STORAGE 



; Boot driver table entry 



Psect Bootdrivr_2, 
SBOOT DRIVER 



page 



Define psect allocation 



DEVTYPE = BTD$K MID- 
SIZE = TU DRVSI?,- 
ADDR = START, - 
ENTRY = TU DRIVER 
UNIT INIT = TU INIT,- 
DRIVRNAME = TUPDRVNAME,- 
AUXDRNAME = PRTDRVNAME 



Device type (TU81) 
Driver size 

Driver starting address 
Driver entry point 
Driver unit init entry 
Driver tape name 
Driver port name 



[05] 



START: 
TUPDRVNAME: 

.ASCIC /TUDRIVER.EXE/ 
PRTDRVNAME: 

.ASCIC /PTDRIVER.EXE/ 



; Tape class driver filename 
; Port driver filename 



ZZ-ENSAA-7.0 

MUBTDR1VR 
06-9 



-3 



TU81 load device initialization 

- TU81 LOAD DRIVER 



TU81 load device initialization 



27-JUL-1954 Fiche 10 Frame F10 Sequence 1976 

27-JUL-1984 15:34:47 VAX-11 Macro V03-01 Page 6 
7-DEC-1982 15:15:13 DMA1 :CSYS0.SYSMA1MTJMUBTDRIVR.MAR; (3) 



01FC 



50 38 DB 



0003DC00 8F 

56 

52 0200'CF 

52 82'AF 

51 

51 56 

02 A2 

02 A2 10' 



52 15 



09 
52 



53 
57 
52 



54 
52 



52 



54 A940 
0C 50 
50 B942 
FFE00000 8F 

52 
0FB8 C3 
00E8'CF 

84 

52 
00E8'CF 

64 



53 



58 02 

0200 % Cf 

50 08 

67 



DO 

9E 
CB 

C9 

CO 
EF 



5C A940 DO 



DO 
E9 
DO 
CA 

DE 
C9 

D6 
C9 



DO 
9E 
DO 
B4 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0002 

0002 

0002 

0002 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0008 

OOOC 

0011 

0015 

0016 

0019 

001B 

001F 

0023 

0024 

0024 

0029 

0029 

002E 

0031 

0036 

003C 

003D 

0042 

0047 

0048 

004A 

004F 

0050 

0050 

0050 

0050 

0050 

0053 

0058 

0058 



.SBTTL TU81 load device initialization 



++ 



Inputs: 
R9 

Outputs: 
RO 



— > RPB 



- status code 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 .Entry TU INN, A M<R2,R3,R4,R5,R6,R7,R8> 

115 

116 .ENABLE LSB 

117 

118 

119 

120 

121 

122 

123 

124 

125 



MFPR #PR$_MAPEN, RO 



Get the mapping status 
cover the 



Set up a UNIBUS mapping register(s) to cover the ring and buffers. 
To make things easy, we will grab the last two register (494 S 495). 
These registers are necessary since the ring area will be accessed by 
the controller which is a UNIBUS device that does not do any mapping. 



126 
127 

128 

129 
130 

131 
132 
133 
134 
135 
136 
137 

138 20$: 
.1 

.2 
.3 



MOVL *<UMR89>, R6 

M0VA8 WMNTTBL, R2 

BICL3 B A BYTE..0FF, R2, 

BISL3 R6, R1, 2(R2) 



R1 



ADDL 
EXTZV 

ASSUME 

MOVL 

ASSUME 

MOVL 

BLBC 

MOVL 

BICL 

MOVAL 
BISL3 

INCL 
BISL3 



Set up a constant 

Get the address of the ring 
Get the byte offset in page 

Set in the UNIBUS addr 

Make it the 



rinj 

Get the page 



address 

rame 



S A #<RING-INTTBL>,2(R2) ; 
#VA$V_VPN,tfVA$S_VPN,R2,R2 

RPBSL ADPVIR EQ RP8$L ADPPHY+4 

RPB$L""ADPPHY(R9)[R0D,R3 ; Get correct pointer to TU81 reg 

RPB$L~CSRVIR EQ RPBSL CSRPHY+4 

RPB$L"CSRPHY(R9)[R0J,R7 ; Get correct address of device CSR 

R0,205 ; If clr, then physical 

5)RPB$L SVASPT(R9)CR2],R2; Virtual, get physical 

# A C<PTE$M PFN>,R2 " ' ' "" 



UBA$L MAP+<UMR*4XR3),R4; 
W A VALlD,R2,(R4)+ 

R2 

W A VALID,R2,(R4> 



Now a physical PFN 

Get the last two UMR's 
Set as valid w/PFN 



Set 
Set 



next pai 
as valii 



ie just 
I w/PFN 



142 

143 

144 

145 

146 

147 RETRY: 

148 

149 



Now ^ thru the ridiculously complicated startup sequence, 
fugue in four parts. 



in case 



This is a 



[07] 



[073 



MOVL 
MOVAB 
MOVL 
CLRW 



#2,R8 
W A INT1BL, 
*S1, RO 
TUIP(R7) 



R3 



Make two tries at this 

Step flaci 

Poke the~controller's CSR 



ZZ-ENSAA-7.0 
MUBTDRIVR 

06-9 



TU81 load device initialization 

- TU81 LOAD DRIVER 

TU81 load device initialization 



G 10 . , A 

27-JUL-1984 Fiche 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame 610 Seguence 1977 
VAX-11 Macro V03-01 Page 7 
DMA1 :CSYSO.SYSMAINTDMUeTDRIVR.MAR; (3) 



52 



-1 



54 
17 



50 



52 

03E8 
02 

54 
51 
52 



D7 
0054 



02 
CF 



51 



51 



51 



51 



1B 
C2 
A7 
OE 
50 
1B 
51 
02 
EC 
58 
8F 



DB 
9E 
BO 
19 
EO 
DB 
D1 
1A 
11 
F5 
3C 
04 



FFFFFEOO 



A7 
50 



83 
OE 



0250'CF 
EC AF 
51 56 
0210'CF 
021CCF 
55 51 
DA AF 
51 56 
0214'CF 



85 01 

85 64 A9 

65 03 

0285 



021C 
85 
85 64 
20000009 



55 02Ml'Cf 
01 
A9 
8F 
85 

0000025E'EF 

02 A5 

85 

85 

85 

00000270* EF 



BO 
F3 



9E 
CA 
C9 

9E 
DO 
CA 
C9 



DO 
9A 
9A 
30 



9E 
DO 
9A 
DO 

93 

D5 

7C 
D4 
DO 



005D 

005D 

005D 

005D 

0060 

0065 

0069 

006B 

006F 

0072 

0075 

0077 

0079 

007C 

C081 

0082 

0082 

0086 

0086 

008A 

008E 

008E 

008E 

008E 

0093 

0097 

009A 

009D 

00A2 

00 A 5 

00A9 

OOAC 

OOAF 

OOAF 

OOAF 

OOAF 

OOAF 

00B2 

00B6 

00B9 

OOBC 

OOBC 

OOBC 

OOBC 

OOBC 

OOBC 

00C1 

00C4 

0OC8 

OOCE 

OOCF 

00D5 

00D7 

00D9 

00D9 

00D8 

OODD 



150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
.1 
.2 
.3 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 

174 
175 
176 
177 

.1 

.2 

.3 

,4 

.5 

.6 

.7 

.8 

.9 

.10 

178 

179 

180 

.1 
.2 
,3 
.4 

,5 

.6 
.? 
.8 
.9 
JO 



; Wait 100 microseconds. 
TIME: 



MFPR 
MOVAB 

LOOP: MOVW 
BLSS 
BBS 
MFPR 
CMPL 
BGTRU 
BRB 

ERROR: S0B6TR 
MOVZWL 
RET 

BYTE.OFF: 

.LONG 



30$: 



MOVW 
AOBLEQ 



#PR$ TODR, R2 

10007R2), R2 

TUSA(R7),R4 

ERROR 

R0,R4,30$ 

#PR$ TODR, R1 

R1,R2 

ERROR 

LOOP 

R8, RETRY 

#SS$_CTRLERR.RO 



A C< A X1FF> 

(R3)+,TUSA(R7) 
#S4,R0,TIME 



Initialization complete. Write 

MOVAB W A RSPPKT, R1 

BICL BYTE OFF, R1 

BISL3 R6, R1, W A RD 

MOVAB W A CMDPKT, R1 

MOVL R1,R5 

BJCL BYTE OFF, R1 

BISL3 R6, R1,W A CD 



Current time 

Set for 10 seconds later 

Check the status register 

Bit 15 set is the error indicator 

Done with this step? 

No, pick up time 

Are we past due time? 

Yep, error 

No, try again 

Try once again 

Set failure status 



; Mask for byte offset in page 

; Send the controller the next step 
; Set for next step 

the packet address in the ring. 

; Get the address of response packet 

; Set byte offset in ring desc 

; Get the address of command packet 
; Save pointer 

; Set byte offset in ring desc 



Get unit characteristics 

MOVL #1,<R5)+ 

MOVZBL RPB$W UNI T (R9) , (R5)+ 

MOVZBL tfMSCPSK OP^GTUNT, (R5) 

BS8W EXECUTE 



Now bring the device on-line 



Set command ref number 
Put unit number in cmd packet 
Set opcode to get unit status 
Send it out 



field 



[06] 
[063 
[063 
[06] 



M0VA8 W*CMDPKT, R5 ; Get the address of command packet 

MOVL #1,(R5)+ ; Set command ref number 

MOVZBL RPB$W UNI T(R9) , (R5)+ ; Put unit number in cmd packet field 

MOVL 0<MSCP$M MD CLSEXS)16>!MSCP$K_0P_0NLIN, (R5)+ ; opcode online 



MOVZBW RSPPKT+MSCP$WJJNTJLGS,2(R5) 



[06]| 

[08]j 
[08} 



TSTL (R5)+ 

CLRQ (R5)+ 

CLRL (R5)+ 

MOVL RSPPKT+MSCPSW FORMAT ,- 



Increment register [061 

Set characteristics [06] 
C lear reserved area 

Set default device dependent parameter[Q63j 



ZZ-ENSAA-7.0 

MUBTDR1VR 
06-9 



-5 
-3 



TU81 Load device initialization 

- TU81 LOAD DRIVER 

TU81 Load device initialization 



65 
025A 



30 
04 



OOO000E8 
80000000 



-1 



-1 



8000 

00000000 

0001 

0000 0000 
0000 
0000 

00000000 
00000000 

0030 

0101 

0001 

0000024C 

00000250 
00000280 



00E3 


.11 


00E4 


186 


O0F7 


187 


00E8 


188 


00E8 


192 


00E8 


193 


00E8 


194 


O0E8 


195 


O0EC 


196 


O0EC 


197 


OOEC 


198 


OOEC 


199 


OOEC 


201 


0200 


202 


C200 


203 


0202 


204 


0206 


205 


0208 


206 


0208 


207 


020C 


208 


020E 


209 


0210 


210 


0210 


211 


0214 


212 


0218 


213 


0218 


214 


021A 


.1 


021 C 


216 


021E 


217 


024C 


218 


024C 


219 


0250 


220 



BSBW 
RET 



H 10 
27-JUL-1984 

27-JUL 
7-DEC' 



EXECUTE 



Fiche 10 Frame H10 Sequence 1978 
1984 15:34:47 VAX-11 Macro V03-01 Page 8 
1982 15:15:18 DMA1 jCSYS0.SYSMAIMTJMUBTDR1VR.MAR; (3) 



(R5) ; Set format and speed fields 
; Send it out 



C06] 



VALID: 
RINGS 



INTTBL: 



CMDINT: 

RSPINT: 

RING: 

RD: 

CD: 



CMDPKT: 



RSPPKT: 



.DISABLE LSB 

,=<.+1>&-2 

.LONG A X80000000 



; Sign bit set 



.Align Page 



.WORD 
.LONG 
.WORD 

.WORD 

.WORD 
.WORD 

.LONG 
.LONG 

.WORD 
.WORD 
.WORD 

.BLKW 

.8LKW 
.BLKW 



OWN 



GO 

0,0 








48 

A X101 
1 
23 

2 
24 



Step 1 
Step 2 



attern 
3 pattern 



Reserved 

Command status word 

Response status word 

UNIBUS address of response ring 
UNIBUS address of command ring 

Length of message 
Tape ID = 1 

Full envelope 



[02] 



ZZ-ENSAA-7.0 

MUBTDR1VR 

06-9 



Tu81 load driver QIO 

- TU81 LOAD DRIVER 
TU81 load driver QIO 



00000004 
00000008 
0000000C 
00000010 
00000014 



00000025 
00000001 
00000010 
00000010 
00000003 
00000080 



0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

C280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 



222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
271 
27k 
275 
276 
277 
.1 



I 10 . 

27-JUL-1984 Fiche 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 

.S8TTL TU81 Load driver 010 



Frame 110 Sequence 1979 
VAX-11 Macro V03-01 Paqe 9 
DMA1:[SYSQ.SYSMAINTJMUBTDRIVR.MAR;<4) 



+ + 



Inputs: 



R3 
R5 
R6 
R7 
R8 
R9 
R10 

R11 



- base address of adapter's register space 

- Ibn for current piece of transfer 

- contains 

- address of the device's CSR 

- size of transfer in bytes 

- address of the RPB £± . x . 

- starting address of transfer (byte offset in first 
page ORed with starting map register number) 

- LBN at start of transfer 



FUNC(AP)- I/O operation (IOS.READLBLK or IOS.WRITELBLK only) 
SIZE(AP)- Size of transfer in bytes 

MQDE(AP)- Address interpretation mode (0 = physical, 1 - vir 
BUF(AP) - Address of buffer 



tual) 



Implicit inputs: 

RP8$w_UNIT 
Outputs: 

R0 - status code 



- RPB field containing boot device unit number 



ss$ normal 

ss$"ctrlerr 

sss~tapep0sl0st 

ss$~data0verun 

ss$~illi0func 

ss$ictrlerr 

ss$ endoffile 

ss$;devoffune 

R3 - must be preserved 



successful transfer 
fatal controller error 
tape position lost 
record too long 
illegal 1/0 function 
control Ler error 
tape mark was read 
device is offline 



BUF 
SIZE 
LBN 
FUNC 

MODE 



4 

8 

12 

16 

20 



TEMPORARY ASSIGNMENT VALUE FOR TAPE CONTR0LLERUM0T IN LIBRARY YET) 



MSCPSK 

mscpsm; 

MSCPSZ. 
MSCPSK 

mscpsm; 

MSCPSM 



OP REP0S 
MD~RWND 
BUFFER 
ST RDTRN 
MDIREVRS 
"MD DLEOT 



37 

1 

16 

16 

3 

A X80 



ZZ-ENSAA-7.0 

MUBTDR1VR 

06-9 



TU81 load driver 010 

- TU81 LOAD DRIVER 
TU81 load driver QJO 



J 10 
27-JUL-1984 Fjfhe 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame J10 Sequence 1980 
VAX-11 Macro V03-01 Paqe 10 
DMA1:CSYS0.SYSMAINT]MUBTDRIVR.MAR;<4) 



-5 



-5 



-2 



000OOOOC 
00000010 
OOOOOOOE 
0000000D 
0000001 1 
00000012 
00000020 



21 
24 
25 
26 

04 



04 AE 
10 AC 

3B 
10 AC 

21 
10 AC 

52 
10 AC 

C3 

007A 

10 AC 

07 



-5 



04 
50 FA 8F 



-2 



ff6F 

2001 
FF6A 
FF68 



25 
CF 
8F 
CF 
CF 



007E 



-1 



FF5B 
2000 
FF56 

FF53 CF 

FF52 CF 



21 
CF 
8F 
CF 
58 
5A 



D4 
D1 
13 
D1 
13 
D1 
13 
D1 
12 
31 
D1 
12 



FD57 CF 00 F8 



11 
9A 

05 



90 

BO 

7C 
30 
05 



90 

BO 

DO 
00 



0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

C280 

0280 

0283 

0287 

0289 

028D 

028F 

0293 

0295 

0299 

0298 

029E 

02A2 

02A4 

02A4 

02A4 

02A4 

02A9 

02A9 

02AB 

02AF 

02AF 

02B0 

02B0 

0280 

0280 

02B0 

0282 

0285 

0289 

028C 

02C0 

02C3 

02C4 

02C4 

02C4 

02C4 

02C4 

02C6 

02C9 

02CD 

02D0 

02D5 



12 
16 
14 
13 
17 
18 
32 



Translate the I/O function code into a device-dependent function 
code for this tape. 



CLRL 

CmpL 

BEql 

CmpL 

BEql 

CmpL 

BEql 

CmpL 

BNEQ 

BRW 

CmpL 

Bneq 



4(SP) 

Func(AP) , 010$ ReadLBU 

E.Read 

Func(AP), 0IO$_Rewind 

E_ Rewind 

Func(AP), #IO$_SkipFile 

E.SkipFile 



Func(AP), 0IO$_SkipRecord; Skip records? 



.2 MSCPSL RECCNT = 

.3 MSCPSL'TMGPCNT = 

.4 MSCP$lT$T_TSPEM = 

.5 MSCPSK ST 80T = 

,6 MSCPSKlST^PLOST = 

.7 MSCPSK.ST LED = 

.8 MSCP$W_FORMAT a 
283 
284 

285 TU DRIVER: 
286 

.1 
292 
293 
294 

.1 

.2 
297 
298 
299 
300 
301 
302 

.1 

,2 

.3 10$: 

.4 

!6 ; Start out by initing the TU81 

!8 ' CallS 00, TUJnit 

.9 ; 
.10 Brb Return 

.11 20$: MovZ8L #SS$J I UOFunc , RO 

308 Return: 

309 RS8 

311 ; Rewind slave drive, wait for completion 

312 ;- 

313 E REWIND: 
314 
315 

.1 

,2 

,3 
*18 
319 
320 
321 
322 

323 E.READ: 

324 M0V8 *MSCP$K OP READ,- 

CMDPKT+nsCPSB OPCODE 



TU81 device driver. 



10$ 

E SkipRecord 

Func(AP), 0IO$_DrvClr 

20$ 



Clear retries count ******** 

Read logical block? 

Execute read function 

Rewind? 

Do a rewind 

Skip past eof 

Do it 



[06: 



Branch to check next function 

Do it 

Is this drive clear? 

Yes, all done, exit 



Call init code 

Exit 

illegal I/O function 



C08D 
[08] 



M0V8 

MOVW 

CLRQ 
BS8W 
RS8 



Return to call 



#MSCP$K OP REPOS,- ; Set function reposition 

CMDPKT+flSCP$B OPCODE 

#MSCP$M MD CL5EX!MSCP$M MD.RWND,- ; Set to rewind/clear serious exce 

CMDPKT+WSCPSWJIODIFIER "; 

Clear records/tape marks to avoid errors. 

Execute function. 

Exit. 



CMDPKT+MSCP$LlREC_CNT 
EXECUTE 



Read block of data 



* w 



Set function to read 



325 
.1 MOVW #MSCP$MJW - CL5EX,CMDPKT+MSCP$W_MQDIFIER ; Clear serious except C083J 



327 

328 



MOVL R8 £ CMDPKT+MSCP$L BYTE CNT ; Set byte count, 
MOVL R10,CMDPKT+MSCP$7 BUFFER ; Set buffer address. 



ZZ-ENSAA-7.0 

MUBTDRIVR 

1*6-9 



TU81 load driver QIO 

- TU81 LOAD DRIVER 
TU81 load driver QJO 



K 10 ^ . «« 

27-JUL-1984 Fiche 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame K10 Sequence 1981 
VAX-11 Macro V03-0T Paae 11 
DMA1:[SYS0.SYSMAINT3MUBTDRIVR.MAR;(4) 



51 
51 



0064 
FF7B CF 
58 51 



-5 



-1 



50 



FF24 



-1 



-4 



FF38 

2080 

FF33 

04 

50 

2083 

FF23 

CF 

FF1C 

0E 

50 



50 



FEEF 



25 
CF 
8F 
CF 
AC 
OA 
50 
8F 
CF 
50 
CF 
0032 
51 
03 
01 



no? 

2080 

FFO? 

04 

50 

2083 

nf2 

CF 

FEEF 



25 
CF 
8F 
CF 
AC 
OA 
50 
8F 

50 
CF 



0001 



54 02 
8000 

8000 



A7 
77 

CF 
8F 



30 
DO 
C3 
05 



90 

BO 

DO 
14 
CE 
BO 

DO 
D4 
30 
D1 
12 
9A 
05 



90 

BO 

DO 
14 
CE 
BO 

DO 
D4 
30 
05 



BO 
12 
A8 

A8 



02DA 

02DD 

02E2 

02E6 

02E7 

02E7 

02E7 

02E7 

02E7 

02E7 

02E7 

02E7 

02E9 

02EC 

C2F0 

02F3 

02F7 

02F9 

02FC 

0300 

0303 

0308 

030C 

030F 

0312 

0314 

0317 

0318 

0318 

0318 

0318 

0318 

0318 

0318 

031A 

031D 

0321 

0324 

0328 

032A 

032D 

0331 

0334 

0339 

033D 

0340 

0341 

0341 

0341 

0341 

0341 

0341 

0341 

0345 

0347 

034B 

034E 



329 
330 
331 
.1 
337 
338 
339 
340 
341 
342 
343 
344 
345 
.1 
.2 
347 
348 
349 
.1 
.2 
.3 
.4 
.5 
.6 
.7 
.8 
.9 
355 
356 
357 
358 
359 
360 
361 
362 
.1 
.2 
364 
365 
366 
J 
.2 
.3 
,4 
.5 
371 
372 
373 
374 
375 
376 
377 
378 
.1 
.2 

• 3 



BSBW 
MOVL 
SUBL3 
RSB 



EXECUTE 

RSPPKT+MSCPSL BYTE_CNT,R1 

R1, R8, R1 



Execute function. 

; Bytes residual byte count. 

From desired length is transferred 

EXIT 



Skip to end of 
P1 is negative 

E SKiPFILE: 
M0V8 

MOVW 

MOVL 
BGTR 
MNEGL 
MOVW 



file 

if backwards 



else forwards 



Set function to reposition. 



*MSCP$K OP REPOS,- 

CMDPKT+flSCP$B OPCODE „ , 

*MSCP$M MD DLEOT!MSCP$M MD CLSEX,- ; Detect LEOT and 

" " CMDPKT+flSCP$W MODIFIER ; Clear serious except 



BUF(AP),R0 

10$ 

R0,R0 



tfMSCPSM MD DLEOT!MSCP$M_MD REVRSJMSCPSM^MD^CLSEX,-; Detect LEOT 



10$: 



30$: 



MOVL 

CLRL 

BSBW 

CMPL 

BNEQ 

M0VZ8L 

RSB 



CMDPKT+flSCP$W MODIFIER , 

RO,CMDPKT+MSCP$L TMGP.CNT 

CMDPKT+M$CP$L_REiLCNT 

EXECUTE 

R1, #MSCP$K ST TAPEM 

30$ " " 

#SS$_NORMAL, RO 



Count of MARKS to skip. 
Branch if positive. 
Make count positive. 



Reverse/clear~serious except 
; Set MARKS to skip. 
Clear to prevent errors. 
Execute function. 
Was tape mark detected 
No. Keep status code. 
Change to normal it EOF 
Exit, 



cos: 

[083 



[083 
[083 
C033 
C083 

[043 
[043 
[043 



Skip to end of 
P1 is negative 

E SKIPRECORD: 

Move 



record 

if backward 



else forwards 



Set function to reposition. 



10$: 



*MSCP$K OP RFPOS,- 
CMDPKT+WSCPSB OPCODE 

MOVW *MSCP$M MD_DLEOT!MSCP$M MD CLSEX,- ; Detect LEOT < 

CMDFKT+BSCP$WJ10DIFIER ; Clear serious except 
MOVL BUF(AP),R0 ; Count of RECORDS fo skip. 

BGTR 10$ ; Branch if positive. 

MNEGL R0,R0 ; Make count positive. 

MOVW #M$CP$M MD DLEOT!MSCP$M MD„REVRS!MSCP$MJ1D_CLSEX,-; Detect LEOT 

CMDPKT+RSCP$W MODIFIER ~; Reverse/clear serious except 
MOVL RO,CMDPKT+MSCP$L REC CNT ; Set RECORD to skip, 
CLRL CMDPKT+MSCP$L_TMBP_CRT ; Clear to prevent errors 
BSBW EXECUTE ; Execute function. 

RSB ; Exit. 



[083 
[083 



[083 
[083 
[033 
[083 



; Execute all functions. 

Execute? _ , 
movw tusa(r7),r4 

BNEQ 50$ 

BISW tfOWN, CD+2 

BJSW 0OWN, RD+2 



Controller offline? 

Yep, error out 

Set controller ownership 

Ditto 



ZZ-ENSAA-7,0 
MUBTDR1VR 

06-9 



TU81 load driver Q10 

- TU81 LOAD DRIVER 
TU81 load driver QJO 



-8 



-1 



-1 



54 



FEBD 
54 
02 



54 02 

FEAA 



CF 
67 
A7 
60 
A7 
5A 
CF 
F4 



51 
50 



50 



-2 



00 
CF 
8F 
51 
4A 
8F 
51 
40 
51 
38 
01 
51 
33 
51 
2E 
51 
29 

00000838 Sf 1 
50 
51 
1D 

00000224 8F 
50 
51 
11 
50 0838 8F 
51 
07 

00000054 8F 
50 



05 

FEEA 
0084 
03 

0870 
OE 

12 

50 
00 

04 
OD 



10 



11 

0838 

10 



BO 
BO 
12 
BO 
12 
B5 
19 



EF 

3C 

D1 

13 

3C 

D1 

13 

D1 

13 

DO 

D1 

13 

D1 

13 

D1 

13 

DO 

D1 
13 
DO 

D1 
13 
3C 
D1 
13 
DO 

05 



000003C6 



0352 

0355 

0358 

035C 

035E 

0362 

0364 

0368 

036A 

036A 

036A 

036A 

036A 

036D 

C371 

0376 

0379 

037B 

0380 

0383 

0385 

0388 

038A 

038D 

0390 

0392 

0395 

0397 

039A 

039C 

03A2 

03A3 

03A6 

03A8 

03AE 

03AF 

03B2 

03B4 

03B9 

03BC 

03BE 

03C4 

03C5 

03C6 

03C6 

03C6 

03C6 



.4 

.5 

.6 

.7 30$: 

.8 
387 
388 
389 
390 
391 
392 ; 

.1 40$: 



KOVW 
MOVW 
BNEQ 
MovW 
BNeq 
TSTW 
BLSS 



Return with 
EXTZV 

394 MovZWL 

395 CmpL 

396 BEql 

397 MovZWL 

398 CmpL 

399 BEql 
.1 CmpL 
.2 BEQL 

400 MovL 

401 CmpL 

402 BEql 
.1 Cmpl 
,2 Beql 
.3 CmpL 

404 BEql 

405 MOVL 

406 CmpL 

407 BEql 

408 MOVL 

.1 CmpL 

.2 BEql 

.3 MOVZWL 

.4 CMPL 

.5 BEql 
.6 50$: MovL 

Rsb 



27-JUL-1984 Fiche 10 
27-JUL-1984 15:34.-47 
7-DEC-1982 15:15:18 



Frame L10 Sequence 1982 
VAX-11 Macro V03-01 Paae 12 
DMA1:[SYS0.SYSMAINT]MUBTDRIVR.MAR;U) 



TUIP(R7),R4 

TUSA(R7),R4 

50$ 

TUSa(R7), R4 

50$ 

RD + 2 

30$ 



Tell controller to go. 

Any problems? 

Yes 

Any problems? 

Yes 

Any response back? 

No, spin until there is 



status code. 
#0, #5, RSPPKT+MSCP$W_STATUS,R1 ; Get return status. 



[04] 



#SS$ DevOffLine, RO 

R1, »MSCP$K^ST_OFFLN 

60$ 

#SS$ EndOfFile, RO 

R1, *MSCP$K.ST_TAPEM 

60$ 

R1, #MSCP$K..$T_LE[> 

60$ 

*SS$ Normal, RO 

ftl, »MSCP$K_ST_SUCC 

60$ 

R1,0MSCP$K ST AVLBL 

60$ " " 

R1, *MSCP$K..$TJ}OT 

60$ 

0SS$„DataoveRun, rtO 

R1, 0MSCP$K„ST..RDTRN 

60$ 
#SS$.TAPEPOSLOST, RO 

R1, *MSCP$K.ST_PLOST 

60$ 

*SS$ DATAOVERUN, RO 

R1, *MSCP$K..ST_RDTRN 

60$ 

#SS$ CtrlErr, RO 



411 60$: 
412 

413 TU DRVSIZ=. -START 

414 ' 

415 .END 



Assume offline 
Off line 

Assume end of file 
Tape mark 

LEOT Detected 

Assume OK 
Success 

Unit available 

At BOT 

Assume record too large 

Data truncation 

Assume tape position lost. 

Tape position lost 



Other codes are failure 
; Return 



[08] 
[08] 



[08] 
[08] 



[08] 
[08] 
[08] 
[08] 
[08] 



ZZ-ENSAA-7>0 
MUBTORIVR 
Symbol table 

STABLE 
BTDSK MU 
BTD$K~TF 
BTOSK TM 

BTDSOS 

BUF 

BYTE OFF 

CD 

CMDINT 

CMDPKT 

ERROR 

EXECUTE 

E READ 

E'REWIND 

E~SKIPFILE 

E~SKlPREC0RD 

FUNC 

GO 

IN1TBL 

IO$J)RVCLR 

10$ READLBLK 

I0$IREWIND 

IO$„SKIPFILE 

10$ SKIPRECORD 

LBN" 

LOOP 

MODE 

MSCPSB OPCODE 

MSCP$K*"OP GTUNT 

MSCPSfTOPlONLlN 

MSCPSK OP READ 

MSCP$K"OP REPOS 

MSCPSlTsTAVLBL 

MSCP$K"ST BOT 

MSCP$K~ST~LED 

mscp$k!st OFFLN 

MSCP$K ST PLOST 

MSCP$K~ST~RDTRN 

MSCPSlTsOUCC 

MSCP$K"ST TAPEM 

MSCP$LlBYTE CUT 

MSCPSL REC CNT 

MSCP$L"TMGP CNT 

MSCP$M"MD_CCSEX 

MSCP$M"MD.DLEOT 

MSCP$M~MD.REVRS 

MSCP$M MD RWND 

MSCP$W~F0RMAT 

MSCP$W"MODJFJER 

MSCP$W*"STA1US 

MSCPSW'UNT FLGS 

MSCP$Z"BUFFER 

OWN 

PR$ MAPEN 

PR$"TODR 

PTE?M PFN 

RD 



Symbol table 



- TU81 LOAD DRIVER 



M 10 
27-JUL-1984 Fiche 10 
27-JUL-1984 1 5:3A:47 
7-DEC-1982 15:15:18 



Frame M10 Sequence 1983 
VAX-11 Macro V03-01 Paqe 13 
DMA1:CSYS0.SYSMAINT3HUBTDRIVR,MAR;(A) 



00000000 
000000B4 
000000B3 
O00OOOB1 
000000B2 
00000004 
00000082 
00000214 
0000020C 
0000021 C 
00000079 
00000341 
000002C4 
000002BO 
OO0OC2E7 
00000318 
00000010 
00000001 
C0000200 
00000004 
00000021 
00000024 
00000025 
00000026 
O00O000C 
00000065 
00000014 
00000008 
00000003 
00000009 
00000021 
00000025 
00000004 
O00O00OD 
00000012 
00000003 
00000011 
00000010 
00000000 
0000000E 
0000000C 
OOOOOOOC 
00000010 
00002000 
00000080 
00000003 
00000001 
00000020 
0000000A 
OOOOOOOA 
OOOOOOOE 
: 00000010 
00008000 
: 00000038 
: 0000001 B 
: 001FFFFF 
00000210 



R 



D 03 

D 

D 

D 

D 

D 

D 02 

D 02 

D 02 

D 02 

D 02 

D 02 

D 02 

D 02 

D 02 

D 02 

D 

D 

D 02 

D 

D 

D 

D 

D 

D 

D 02 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 02 



RETRY 

RETURN 

RING 

RP8SL ADPPHY 

RPB$L"ADPVIR 

RPB$L"CSRPHY 

RP8$L"CSRVIR 

RPB$L SVASPT 

RPB$W"UNIT 

RSPINT 

RSPPKT 

S1 

S4 

SIZE 

SS$ CTRLERR 

SS$"DATAOVERUN 

SS$"DEVOFFLJNE 

SS$**ENDOFFILE 

SS$ ILLIOFUNC 

SSS'NORMAL 

SS$ TAPEPOSLOST 

START 

TIME 

TUJP 

TUSA 

TU DRIVER 

TUlDRVSIZ 

TUINIT 

U8fl$L MAP 

UMR " 

VA$S VPN 

VA5>V~VPN 

VALJC 



00000053 R 

000002AF R 

00000210 R 

0000005C 

00000060 

00000054 

00000058 

00000050 

00000064 

0000020E R 

00000250 R 

00000008 

OOOOOOOE 

00000008 

00000054 

00000838 

00000084 

00000870 

000000F4 

00000001 

00000224 

00000000 R 

0000005D R 

00000000 

00000002 

00000280 R 

000003C6 

00000000 RG 

00000800 

000001 EE 

00000015 

00000009 

O000OOE8 R 



D 


0? 


D 


02 


D 


02 


D 




D 




D 




D 




D 




D 




D 


02 


D 


02 


D 




D 




D 




D 




D 




D 




D 




D 




D 




D 




D 


02 


D 


02 


D 




D 




D 


02 


D 




D 


02 


D 




D 




D 




D 




D 


02 



ZZ-ENSAA-7,0 
MUBTORiVR 
Psect synopsis 



Psect synopsis 



- TU81 LOAD DRIVER 



N 10 . « A 

27-JUL-1984 Fiche 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame N10 Seguence 1984 
VAX-11 Macro V03-01 Paae 14 
DMA1:CSYS0.SYSMAINT]MUBTDRIVR.MAR;(4) 



PSECT name 



. ABS . 
$ABS$ 

BOOTDR1VR 2 
BOOTDRIVRI4 



Allocation 

00000000 ( 

00000000 ( 

000003C6 ( 

00000018 ( 



! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0J NOP1C USR 

0.) 01 ( 1.) NOPIC USR 

966.) 02 ( 2.) NOPIC USR 

24.) 03 ( 3.) NOP'C USR 



CON 
CON 
CON 

CON 



ABS 
ABS 
REL 
REL 



LCL NOSHR 
LCL NOSHR 
LCL NOSHR 
LCL NOSHR 



NOEXE 
EXE 
EXE 
EXE 



NORD 
RD 

RD 
RD 



NOWRT 
WRT 
WRT 
WRT 



NOVEC BYTE 
NOVEC BYTE 
NOVEC PAGE 
NOVEC 8YTE 



ZZ-ENSAA-7.0 

MuB T DRlVR 

[ ross reference 



Cross reference 



- TU81 LOAD DRIVER 



SYMBOL 



STABLE 
BTDSK MU 

BTDStTTF 
BTDSK"T« 

btd$k~ts 

BUF 

BYTE OFF 
CD 

CMD1NT 
CMDPKT 



ERROR 
EXECUTE 

E READ 
E^REWIND 
E SKIPFILE 
E"SK1PREC0RD 

FUNC 

GO 

inttbl 

IO$.DRVClR 

10% READLBLK 

IO$~REWlND 

lOS^SKlPF ILF 

10$ SKIPRECORD 

LBN" 

LOOP 

MODE 

mscpsb opcode 
mscp$k~op„gtunt 

mscp$k"op onlin 

mscp$k~op~read 

mscp*k~0p~rep0s 

mscp$k;st"avlbl 

mscpsk st_80t 

mscpsk^st^led 

mscp$k„st,0ffln 

m5cp$k st plost 

mscp$k"st rdtrn 

mscp$k"st~succ 

MSrP$<"ST TAPEM 

mscpslIbyTecnt 
mscp$l ..recent 
mscpsl tmgp cnt 
mscp$m"md ccsex 



B 11 
27-JUL-1984 Fiche 10 

27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame 81 1 Seguence 1985 

VAX-11 Macro V03-01 Paqe 15 

DMA1 :tSYS0.SYSHAINT3MUBTDRIVR.MAR; (4) 



VALUE 

=OOOOOQ0O-R 
;000000B4 
:00000083 
=00000081 
:00000082 
:OO0OOO0A 
00000082-R 
00000214-R 
00Q0020C-R 
0000021 OR 



00000079-R 
00000341-R 

000002C4-R 
00000280-R 
000002E7-R 
00000318-R 
=00000010 

=00000001 
00000200-R 
=00000004 
=00000021 
=00000024 
=00000025 
=00000026 
=0000000C 
00000065-R 
=00000014 
=00000008 
=00000003 
=00000009 
=00000021 
=00000025 
=00000004 
=00000000 
=00000012 
=00000003 
=00000011 
=00000010 
=00000000 
=0000000E 

•--oooooooc 

=0000000C 
=00000010 
=00002000 



+ — •_.... ...... —.•..—... „-...- .- — ♦ 

! Symbol Cross Reference I 



DEFINITION 



89 

65.1 

65 

63 

64 

264 

163 

212 

208 

216 



161. 
377 

323 
3 1 3 
343 

360 
267 

70 
203 



273 

277.5 
277J 

277.6 

276 



277.2 
277.3 



(2) 
(2) 
(2) 
(2) 
(2) 
(4) 
(3) 
(3) 
(3) 
(3) 



(3) 
(4) 

(4) 
(4) 

(4) 
(4) 
(4) 

(2) 
(3) 



266 (4) 
155 (3) 

268 (4) 



(4) 

(4) 
(4) 

(4) 
(4) 



277.4 (4) 



(4) 
(4) 



REFERENCES... 



89 
89 



#-347 

#-127 
#-177 

174 
#-315. 
#-328 
#-349. 
#-366. 
#-156 
#-177. 
#-349. 
#-297 
#-299 
#-301 
#-302. 
#-294. 
#-302. 
205 
126 
#-302. 
#-294. 
#-298 
#-300 
#-302 

#-161 

#-315 

#-177. 

#-180. 

#-324 

#-314 

#-402. 

#-402. 

#-399. 

#-395 

#-408. 

#-406 

#-401 

#-349. 

#-327 

#-315, 

#-349. 

#-180. 



(2) 
(2) 



(4) 
(3) 
(3) 

(3) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 

(3) 

(4) 
(3) 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
U) 
(3) 



#-36^ 
#-172 
#-378,2 

180.1 

#-325 

#-345 

#-349.4 

#-366.3 

#-160 

#-186 

#-366.5 



#-325 



#-344 



#-398 

#-330 

#-349.4 

#-366.4 

#-315.1 



(4) 
(3) 
(4) 

(3) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(4) 



#-298 (4) 
#-129 (3) 



(4) 



(4) 



#-408.4 (4) 



(4) 
(4) 
(4) 
(4) 
(4) 



#-176 



#-315 

#-325.1 

#-345.2 

#-362 

#-366.4 

#-318 



(3) 



#-345 



#-361 



(4) 


#-315.2 


(4) 


(4) 


#-327 


(4) 


(4) 


#-349.2 


(4) 


(4) 


#-362.2 


(4) 


(4) 






(4) 


#-329 


(4) 



#-300 (4) 
147 (3) 



#-302 



(4) 



(4) 



(4) 



#-362 



(4) 



#-366,3 (4) 
#-325.1 (4) 



#-345.1 (4) 



ZZ-ENSAA-7.0 

MuBTDRIVR 
Cross reference 



Cross reference 



- TU81 LOAD DRIVER 



mscpsm md dleot 
mscpsm"md"revrs 
mscp$m~md~rwnd 
mscp$w~foRmat 

MSCPSWlMODIFIER 

MSCPSW.STATUS 

MSCPSWJJNT FLGb 

MSCPS2 BUFFER 

OWN 

PRSJ1APEN 

PR$ TODR 

PTE5M pfn 

RO 

RETRY 

RETURN 

RING 

rpbsl adpphy 
rpb$l"adpv1r 
rpb$l"csrphy 
rpbslIcsrvir 
rpbsl svaspt 
rpb$w"unit 

RSPINT 
RSPPKT 

SI 

S4 

SIZE 

SS$ CTRtERR 

SSS"DATAOVERUN 

SS$~DEVOFFLINE 

SS$"ENDOFFRE 

SS$"ILLI0FUNC 

SS$"NORMAL 

SSS"TAPEPOSLOST 

START 
TIME 

TUIP 
TUSA 

TO DRIVER 
TU~DRVSIZ 
TU'INIT 

ub3$l map 

UMR 

VA$S VPN 
VA$V"VPN 
VALID 



=00000080 
=00000003 
=00000001 
=00000020 
=OOOOO0OA 

=0000000A 
=OOO00OOE 
=00000010 
=00008000 
=00000038 
=00000016 
=001FFFFF 
0000021 0-R 
00000053-R 
000002AF-R 
0000021 0-R 
=0000005C 
=00000060 
=00000054 
=00000058 
=00000050 
=00000064 
0000020E-R 
00000250-R 

=00000008 
=OOO0O0OE 
=00000008 
=00000054 
=00000838 
=00000084 
=00000870 
=OO000OF4 
=00000001 
=00000224 
00000000-R 
0000005D-R 
=00000000 
=00000002 

00000280-R 
=000003C6 

00000000-R 
-00000800 
=000001EE 
=00000015 
=00000009 

0O000OE8-R 



277.1 
277 
274 
277,8 



275 
71 



211 
147 
308 
210 



209 
220 

72 
73 
265 



94 
153 
68 
69 

285 
413 
114 

7U 



195 



(4) 
(4) 
(A) 
(4) 



(4) 
(2) 



(3) 

<3> 

(4) 
(3) 



(3) 
(3) 

(2) 
(2) 
(4) 



(2) 
(3) 
(2) 
(2) 

(4) 
(4) 
(3) 

(2) 



(3) 



C 11 
27-JUL-1984 Fiche 10 
27-JUL-1984 15:34?47 
7-DEC-1982 15:15:18 



1 

1 

1 

1 

10 

2 

2 

1 

5 



#-349. 
#-345, 
#-349. 
#-315. 
#-180. 
#-315. 
#-362. 
392. 
#-180. 
#-328 
203 
#-118 
#-153 
#-137 
#-173 
#-161, 
#-302. 
#-129 
131 
131 
133 
133 
#-136 
#-177, 



171 

392.1 
#-148 
#-167 



1 
10 



#-161. 

#-405 

#-394 

#-397 

#-302. 

#-349, 

#-408 

413 
#-167 
#-149 
#-155 
#-378. 

89 

89 

302. 

138 
#-125 
#-130 
#-130 
#-138. 



2 



11 
8 



8 



Frame C11 Sequence 1986 

VAX-11 Macro V03-01 Paqe^ 16 

DMA1 :CSY$0.SYSMAINT]MUBTDR1VR.MAR; (4) 



(4) 
(4) 
(4) 
(4) 
(3) 
(4) 
(4) 
(4) 
(3) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 

(3) 
(4) 
(3) 
(3) 

(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(3) 
(4) 
(2) 
(2) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 



#-362.1 (4) 
#-349.1 (4) 
#-366.1 (4) 



#-325.1 
#-366.2 



#-132 
#-134 



#-400 
89 



(4) 
(4) 



#-378.2 (4) 
#-158 (3) 
#-378.3 (4) 



(3) 
(3) 



#-180.3 (3) 
#-180.10 (3) 



#-408.6 (4) 
#-408.3 (4) 



(4) 
(2) 



#-378.4 (4) 
#-166 (3) 



138 (3) 
#-138.3 (3) 



#-366.1 (4) 
#-362.1 (4) 



#-345.2 (4) 

#-378.3 (4) 
#-387 (4) 



#-366.1 (4) 
#-349.2 (4) 



#-180.5 (3) 



#-330 (4) 



#-378 (4) #-378,5 (4) 



ZZ-ENSAA-7.0 
MuBTDRlVR 
cross reference 



Cross reference 



- TU81 LOAD DRIVER 



D 11 
27-JUL-1984 Fiche 10 
27-JUL-1984 15:34:47 
7-DEC-1982 15:15:18 



Frame D11 Sequence 1987 
VAX-11 Macro V03-01 Page 17 
DMA1:CSYS0.SYSMAINTDMUBTDRIVR.HAR;(A) 



MACRO 



SIZE 



SBOOT DRIVER 


1 


SBTDDfF 


1 


SDEFIN1 


1 


SIODEF 


17 


SMSCPDEF 


18 


SPRDEF 


4 


SPTEDEF 


3 


SRPBDEF 


b 


SSSDEF 


21 


SUBADEF 


6 


SUBIDEF 


2 


SVADEF 


1 


ASSUME 


t 





DEFINITION 


+ 

i 

+ 


Ma 


cros 


Cross Reference ! 








REFERENCES... 








85.1 


(2) 






85.1 


(2) 








49 


(?) 






49 


(2) 








49 


(2) 






49 
55 
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Phase 

Initial izat ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

79780 bytes (156 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1573 non-local and 11 local symbols 

563 source lines were read in Pass 1, producing object records in Pass 2. 

56 pages of virtual memory were used to define 18 macros. 

+ . + 

! Macro library statistics ! 
+ .. ..... + 



Macro I ibrary name 

DMA1 :CSYS0.SYSMAINT]DS.MLB;218 
DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 
SYS$SYSR00T:CSYSLIBJLIB.MLB;1 
SYS$SYSR00T:CSYSLIB1STARLET.MLB;2 
TOTALS (all libraries) 

1577 GETS were required to define 14 macros 



Macros defined 

1 

7 

6 
14 
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There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LIST=[DS.LIS3/CROSS/ENABLE = (DE8U6 / TRACE) MUBTDRJVR/UPDA=(MUBTDRIVR.UPD.MUBTDRIVR.ENH) + SYS$LIBRARY:LIB/L 1BRARY+DMA1 :CS 
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*** ODS Disk RMS 
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routines 
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Xtitle **** ODS 
module ODS ( 



Disk RMS routines 



ident 
) = 



= '01-04' 



RMS$OPEN, RMSSGET, RMSSREAD, RMSSCLOSE services 



Copyright (c) 1980, 1982 _„„ 

DIGITAL EQUIPMENT CORPORATION. MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES 
SOFTWARE ON 



NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



+ + 



FACILITY: Diagnostic Supervisor 
ABSTRACT: 

This module supports RMS functions on ODS media. 



AUTHOR: 

Dave Butenhof, 



19-aug-1980 



MODIFIED BY: 

1 
2 

03 
04 



Dave Butenhof, 08-oct-1980, version 6.1 

Specify "long relative" access to BOOSQIO routine 

Dave ButenhofT 6-feb-1981, version 6.3 

Fix so full record length if returned in RAB$L„STV on 

RMS$ RTB errors. 

- Dave Butenhof, 02-Jun-1981 , version 6.4 
Alter library spec for flexibility 

- Dave Butenhof, 13-Jan-1982, version 6.6 

Make some minor fixes like variable attributes. Also, 
support 0DS-1 by taking RSIZE field of file neader if 
MAXREC is (as it is tor ODS-1 fixed length). 
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declarations 

*** ODS Disk RMS routines 

declarations 

%sbtt L 'declarations' 
begin 

include files: 



library 'Sdiag'; 

library 'Sds 1 ; 

library 'sysSlibrary: lib. 132' ; 

local declarations 
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C03: 
C03] 



10 jsb.ods = Jsb (register = 0) : global (block = 6, vbn = 7, offset = 8, cblock = 9, rab = 10); 



Advance RFA 

Access a VBN 

RMSS0PEN emulator— open file 

RMSSGET emulator— deblock record 

RMS$READ emulator— read file block(s) 



table of contents: 

forward routine 

odsSadvance : jsb_ods novalue, 
odsSaccess : isb_ods, 
odsSopen : call_rms, 
odsSget : call rms, 
odsSread : call^rms; 

Local definitions 

External references 

external routine t t t 

rms$alloc cache : jsb cblock, ! Allocate cache blocks 

fUSopenfTle, " ! 'Open' a, file 

fil$readvbn, . Read a virtual block 

booSqio : addressing mode (long relative), ! standalone 'level-3' QI0 , 

exeSalononpaged : jsE.alloc address ingjnode ( long. relative); ! Allocate static buffer space 

psect definitions; 

psect 

plit = data ( share, addressing_mode ( long, relative)); 

psect 

own = work ( read, write); 

psect 

global = work ( read, write); 



2Z-ENSAA-7.0 

ODS 



declarations 
+** ODS Disk 
declarations 



RMS routines 
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010? 

0108 
0109 



psect 
code 



= code (share); 



ZZ-ENSAA-" 


f.O 


ODS 




01 -04 




; 0110 


1 


; 0111 


1 


0112 


1 


; 0113 


1 


0114 


1 


; 0115 


1 


; 0116 


1 


0117 


1 


; 0118 


1 


; 0119 


1 


; 0120 


1 


; 0121 


1 


; 0122 


1 


; 0123 


1 


; 0124 


1 


; 0125 


1 


; 0126 


1 


; 0127 


1 


; 0128 


1 


; 0129 


1 


; 0130 


1 


; 0131 


1 


0132 


1 


; 0133 


1 


; 0134 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 0138 


1 


0139 


1 


0140 


2 


0141 


2 


; 0142 


2 


; 0143 


2 


0144 


2 


0145 


2 


0146 


2 


0147 


2 


; 0148 


2 


0H9 


2 


; 0150 


2 


0151 


3 


; 0152 


1 



Advance RFA 

*** ODS Disk RMS routines 

Advance RFA 

Xsbttl 'Advance RFA' 

routine odsSadvance (Len) : jsb.ods novalue = 

Functional description: 

Increment the internal 'RFA 1 (offset and vbn parts) by the 
specified number of bytes, considering round-oft and block 
overlap. 
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Inputs: 

len 

Implicit inputs: 
H7 
R8 

Outputs: 

none 

Implicit outputs: 
R7 
R8 

Side effects: 
none 

Return codes: 

none 



begin 

external register 

vbn = 7 . 
offset » 8; 

local 

bite; 

bite - (.offset + ,len + 1) and not 1; 
offset = .bite and 511; 
vbn - .vbn + (.bite/512) 
end; 



number of bytes to increment by 



vbn 

offset in vbn 



new vbn 

new byte offset in vbn 



! Virtual block number 
! Byte offset in VBN 



Add length and round up 
Truncate to offset in page 
Calculate new page 
of odsSadvance 



.TITLE ODS *** ODS Disk RMS routines 

.IDENT \01-04\ 

.EXTRN RMSSALLOC CACHE 

.EXTRN FILSOPENFTLE, F1LSREADVBN 

.EXTRN B00SG10, EXE$AL0N0NPAGED 

•PSECT CODE,N0WRT, SHR,2 



50 
50 



01 A048 9E 00000 ODSSADVANCE: 

M0VA8 
01 8A 00005 BICB2 



1(LEN)[0FFSET], R0 
#1, BITE 



; 0149 



ZZ-ENSAA-7.0 

ODS 

l>1-04 



Advance 
*** ODS 

Advance 



58 



RFA 

Disk 

RFA 

50 



RMS routines 



09 00 

50 00000200 8F 
57 50 
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EF 00008 
C6 OOOOD 
CO 00014 
05 00017 



EXTZV 
DIVL2 
ADDL2 
RSB 



#0, #9, BITE, OFFSET 
#512, RO 
RO, VBN 



5 
(3) 

0150 
0151 

0152 



Routine Si2e: 24 bytes. Routine 8ase: CODE + 0000 
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ODS 




01 -04 




; 0153 


1 


; 0154 


1 


0155 


1 


; 0156 


1 


; 0157 


1 


; 0158 


1 


; 0159 


1 


; 0160 


1 


; 0161 


1 


; 0162 


1 


; 0163 


1 


; 0164 


1 


; 0165 


1 


; 0166 


1 


; 0167 


1 


; 0168 


1 


; 0169 


1 


; 0170 


1 


0171 


1 


; 0172 


1 


; 0173 


1 


; 01 74 


1 


0175 


1 


; 0176 


1 


0177 


1 


; 0178 


1 


0179 


1 


; 0180 


1 


; 0181 


1 


; 0182 


1 


; 0183 


1 


0184 


1 


0185 


2 


; 0186 


2 


; 0187 


2 


; 0188 


2 


0189 


2 


0190 


2 


0191 


2 


; 0192 


2 


; 0193 


2 


0194 


2 


; 0195 


2 


; 0196 


2 


0197 


2 


; 0198 


2 


; 0199 


2 


; 0200 


2 


; 0201 


2 


; 0202 


3 


; 0203 


3 


; 0204 


2 


; 0205 


2 


; 0206 


2 


; 0207 


2 


; 0208 


2 


; 0209 


2 



Access file block 

*** ODS Disk RMS routines 

Access file block 

%sbt t L 'Access fi le block 1 
routine odsSaccess : jsb_ods = 



tt 
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Functional description: t 

If the desired V8N is not currently cached, update cache to 
contain it. 



Inputs: 

none 

Implicit inputs: 
R7 
R9 
R10 

Outputs: 

none 

Implicit outputs: 
R6 



VBN to cache/access 

pointer to C8L0CK control structure 

pointer to RAB 



pointer to 'memory image* of file block 



Side effects: 

may alter cache control structure of CBLOCK 



Return codes: 

RMS$ NORMAL 
RMS$~RFA 
RMSS'EOF 
RMS$~RFR 



begin 



OK 

random RFA is i llegal 
V8N is past end of file 
File read error 



external register 
block » 6, 
vbn = 7 , 

cblock = 9 : re' bblock, 
rab = 10 : ref bblock; 



I oca 



read_blocks; 



! Blocks to EOF 



bind 



cache = cblock Cct l$l_cache1] : vector; ! Map for convenience 
read_blocks = .cblock [ct l$l_eofvbn] - .vbn; 



if .read blocks Iss 

or (Tread blocks eql 

and .cblock [ctlSw^of f byteJ eql 0) 
then 

return 



If no more blocks 
or at EOF block 
and no bytes there 



if .rab [rab$b„rac] eql rab$c^rfa then rmsl^rfa else rms$_eof; 
if wbn iss .cblock [ct l$l_lvbn] ! If VBN isn't 



! Check for illegal vbn 



ZZ-ENJSAA-' 


? ,0 


ous 




lM-04 




; 0210 


2 


; 0211 


2 


; 0212 


3 


; 0213 


3 


; 0214 




; 0215 


3 


; 0216 


4 


; 0217 


4 


; 0218 


4 


; 0219 


4 


; 0220 


4 


; 0221 


4 


; 0222 


*i 


; 0223 


4 


; 0224 


4 


; 0225 


4 


; 0226 


3 


; 0227 


3 


; 0228 


3 


; 0229 


3 


; 0230 


3 


; 0231 


3 


; 0232 


3 


; 0233 


S 


; 0234 


4 


; 0235 


4 


; 0236 


4 


; 0237 


4 


; 0238 


4 


; 0239 


5 


0240 


5 


; 0241 


5 


; 0242 


5 


; 0243 


4 


0244 


4 


; 0245 


4 


; 0246 


4 


; C24 7 


5 


0248 


5 


; 0249 


5 


; 0250 


5 


; 0251 


5 


; 0252 


3 


; 0253 


3 


; 0254 


3 


; 0255 


3 


; 0256 


2 


; 0257 


2 


; 0258 


2 


; 0259 


2 


; 0260 


1 



Access tile block 

*** ODS Disk RMS routines 

Access file block 



then 



or .vbn geq .cblock CctlSl_hvbn] 
begin 

it .cblock CctlSw.cache.s^e] eql 
then 

begin 

local 
stat; 

star = rmsSalloc^cache (1); 

if not .stat 
then 

return rms$_dme 
end; 

cblock Cc t LSI lvbn3 = 0; 
cblock CctlSThvbn] - 0; 
read blocks = min (2, 
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cached now 
then cache it 
If no cache allocated 



7 

(4) 



! Allocate cache 



! Error if can't 

! Clear start vbn 
! Clear high vbn 
! 3 blocks or to EOF 



7.read_bIocks*5l2 + .cblock Cc t ISw^of fbyte] * 51D/512 - 1); 

incr i from to .read.blocks do ! read cache buffers 
begin 

local 
stat; 

stat = (if .cblock CctlSl^startlbn] neq ! If contiguous 

then booSqio (.cache C.U, 512, ! do direct QIO ... 

.vbn + .cblock Cc t LSI startlbn] + . i - 1 , loS.readlblk, 0, .cblock CctlSl.rpbJ) else 
filSreadvbn (.cblock CctlSl rpb], .vbn + .1, ! Translate V8N to 

.cache C.iJ, .cblock CctlSl.f i LhdrJ)); ! L8N and read 



if not .stat 
then 

beqin 



beg . 

rab [rab$l stvD = .stat; 

return rms$_rer 

end 



! If it failed 
! Load QIO return 



end; 



cblock Cc t L S L Ivbn] = .vbn; . ... 

cblock CctlSrhvbn] = .vbn + .read^blocks + 1 
end; 



! Set new low vbn 

! Set new high vbn 



block = .cache [.vbn - .cblock Cc t LSl M Lvbn]]: ! Get buffer pointer 
i ! Return success 



end; 



of odsSaccess 



1C B8 00000 ODSSACCESS: 



ZZ'ENSAA-7.0 


M 11 
Access file block 27-Jul* 


1984 Fiche 10 Frame M11 Sequence 1996 


- ■ — i 
i 


00 s 
l»l-04 


**< ODS Disk RMS routines ??~ Ju [~ 
Access file block 26-Jul- 


1984 16:04:17 VAX-11 Bliss-32 V4. 0-742 ^ Fn Page o 
1984 09:40:59 DMA1 :CSYS0.SYSMAINT]0DS.832;50 (A) 






PUSHR A M<R2,R3,P4> 


0154 

rt< A J 




54 2C A9 9E 00002 


MOVAB 44CCBLOCK), R4 


019' 




53 44 A9 57 C3 00006 


SUBL3 VBN, 68(CBL0CK), READ.BLOCKS 


0199, 




07 19 0000B 


BLSS 1$ 


0201 




1D 12 0000D 


BNEQ 3$ 


020? 




42 A9 B5 OOOOF 


TSTW 66(CBL0CK) 


0203 




18 12 00012 


BNEQ 3$ 


«-v *\/\*i 




02 1E AA 91 00014 1$: 


CMP8 30(RAB), #2 


0207 




09 12 00018 


BNEQ 2$ 






50 0001865C 8F DO 0001A 


MOVL 099932, RO 






2D 11 00021 


BRB 5$ 






50 0001827A 8F DO 00023 2$: 


MOVL 098938, RO 






24 11 0002A 


BRB 5$ 


t\ *■% 4\f> 




28 A9 57 D1 0002C 3$: 


CMPL VBN, 40(C8LOCK) 


0209 




09 19 00030 


BLSS 4$ 


/\ *b 4 /\ 




24 A9 57 D1 00032 


CMPL VBN, 36(CBL0CK) 


0210 




03 18 00036 


BGEQ 4$ ; 






009D 31 00038 


BRW 13$ : 


a ^ ^ j 




OA A9 B5 0003B 4$; 


TSTW 10(CBLOCK) ; 


0214 




12 12 0003E 


BNEQ 6$ 


rt *i *i *t 




50 01 DO 00040 


MOVL 01, RO 


0221 




00006 30 00043 


BSBW RMS$ALLOC_CACHE 


^ ^ •'l T 




09 50 E8 00046 


BLBS STAT, 6$ 


0223 




50 000184D4 8F DO 00049 


MOVL 099540, RO 


0225 




76 11 00050 5$: 


BRB 11$ 


Fk *% *S J*S 




24 A9 7C 00052 6$: 


CLRQ 36<CBL0CK) 


0229 

A 0\ Ti 4k 




50 53 09 78 00055 


ASHL 09, READ BLOCKS, RO 


0231 




51 42 A9 3C 00059 


MOVZWL 66(CBL0CiO, R1 
MOVAB 51KRWR03, RO 






50 01FF C140 9E 0005D 






50 00000200 8F C6 00063 


DIVL2 0512, RO 






50 D7 0006A 


DECL RO 


rt «■> ""» f\ 




02 50 D1 0006C 


CMPL RO, 02 


• 0230 




03 15 0006F 


BLEQ 7$ 






50 02 DO 00071 


MOVL 02, RO 






53 50 DO 00074 7$: 


MOVL RO, READ.BLOCKS 






52 01 CE 00077 


MNEGL 01, I 
BRB 1 2$ 


; 0241 




^E 11 0007A 


; 




51 52 02 78 0007C 8$: 


ASHL 02, I, R1 


; 0240 

*s *\ ^i ^S 




50 A9 D5 00080 


TSTL 80(C8L0CK) 


; 0239i 




22 13 00083 


BEQL 9$ 


; 




38 A9 DD 00085 


PUSHL 56CCBL0CK) 


; 0241 




71 21 7D 00088 


MOVQ 033, -(SP) 


; 0240| 




50 57 50 A9 C1 0008B 


ADDL3 80(CBL0CK), VBN, RO 


; 0241 




Ff A240 9F 00090 


PUSHAB -KDCRO] 


• i 




7E 0200 8F 3C 00094 


MOVZWL 0512. -(SP) 


; 0240| 




6144 9F 00099 


PUSHAB (RDLR4] 


• t 




9E DD 0009C 


PUSH!. a(SP) + 


, 




OOOOOOOOG EF 06 F8 0009E 


CALLS 06, BOO$QIO 
BRB 1 0$ 






13 11 000A5 


. 




54 A9 DD 000A7 9S: 


PUSHL 84(CBL0CK) 


; 0243* 




6144 9F OOOAA 


PUSHAB (RDCR43 






9E DD OOOAD 


PUSHL 9(SP)+ 






6247 9F OOOAF 


PUSHAB (DCVBN] 


; 0242 




38 A9 DD 000B2 


PUSHL 56(CBL0CK) 






OOOOG CF 04 FB O00B5 


CALLS 04, FILSREADVBN 






OD 50 E8 OOOBA 10S: 


BLBS STAT, 12$ 


; 024 5i 




OC AA 50 DO OOOBD 


MOVL STAT, 12(RAB) 


; 0248) 

.... ) 



ZZ-ENSAA-7.0 

ODS 

01-04 



Access Hie block 

*** ODS Disk RMS routines 

Access file block 







50 


0001COFA 8F 


DO 000C1 


MOVL 








1A 


11 000C8 11$: 


BRE, 


AE 




52 


53 


F3 000CA 12$: 


AOBLEQ 




28 


A9 


57 


DO 000CE 


MOVL 




24 


A9 


01 A3*7 


9E 000D2 


M0VA8 


50 




57 


28 A9 


C3 000D8 13$: 


SU8L3 






56 


6440 


DO OOODD 


MOVL 






50 


01 


DU 000E1 


MOVL 








1C 


~A O00E4 14$: 
.'V0G0E6 


POPR 
RS8 



" N 11 „< 
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27-Jul-H34 16:04:17 VAX-11 Bliss-32 V4. 0-742 cn 

26-Jul-1984 09:40:59 DMA1 :[SYSO.SYSMAINT]ODS.832;50 

#114932, RO 

14$ 

READ_BLOCKS. J, 8$ 

VBN, 40(CBL0CK) 

KREAD BLOCKS) CV8NIJ, 36<CBL0CIO 

40(CBLuCk), VBN, RO 

(R4)[R0], BLOCK 

#1. RO 

A M<R2,R3,R4> 



1997 



Page 



9 

(4) 

0249 

0245 
0254 
0255 
0258 

0260 



Routine Size: 231 bytes. Routine Base: CODE + 0018 



— 



7Z-ENSAA-7.0 

ODS 

m -04 



0261 

0P62 

0263 

0264 

0265 

0266 

026? 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0?77 

02/8 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 



0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 



0310 
0311 



0298 2 



2 
2 
2 
2 
2 
2 
2 
3 
3 
3 



0309 3 



0312 3 



0315 

0314 3 

0315 3 

0316 3 

0317 2 



ODS OPEN service 

*** ODS Disk RMS routines 

ODS OPEN service 

Ssbttl 'ODS OPEN service* 

global routine odsSopen : caU.r/ns = 



B 12 
27-Jul-1984 Fiche 10 Frame Big A „ Sequence 1998 

27-juM984 16:04:17 VAX-11 Bliss-32 V4 . 0-742 Page 10 

26-JUI-1984 09:40:59 DMA1 s CSVSO.SYSMAINTDODS .83?; 50 (5) 



+ > 



Functional description: 

Access a file on ODS files-11 disk media. Return file parameters 
in the FAB and internal control block associated with the file 

Inputs: 

none 

Implicit inputs: 

R 1 1 points to the FAS t t t 

R9 points to the CBLOCK (internal RMS control block) 

Outputs: 

none 

Implicit outputs: , 

Several Melds in the FAB and in the statu file control block 
are altered to describe the file. Also, if an XAB (XABFHC is 
the only XAB currently supported) exists, it will be filled in. 



Return status 
RMS$,DME 
RMS$ FNF 
RMS$ FNM 
RMS$~RER 
RMS$_NORMAL 



insufficient memory for buffer allocation 

file not found 

Bad file name 

QI0 error on file access 

success 



begin 

local 



ndxhdr 
filhdr 
status 
stat; 



bblock [512], 
ref bblock, 
vector 121 § 



external register 

cblock = 9 : ref bblGck, 

rab = 10, 

fab - 11 j ref bblock; 

begin 

global register 
size = 1, 
addr = 2; 

size = 512; 



Buffer for index header 
Convenient pointer 
B00$QJ0 status return 



Pointer to control block 

Define the FAB 

Allocate file header spade 



! Si2e of file header 



if not exe$alononpaged () then return rms$_dme; 



filhdr = cblock [ctl$lj i Ihdr] = .addr 



Remember address 



t 



ZZ-ENSAA- 


?.Q 


00 S 




(.'1-04 




; 0318 


2 


; 0319 


2 


; C320 


2 


; 0321 


? 


; 0322 


2 


; 0323 


3 


; 0324 


3 


; 0325 


3 


; 0326 


3 


; 0327 


3 


; 0328 


4 


; 0329 


2 


; 0330 


2 


; 0331 


2 


; 0332 


2 


; 0333 


2 


; 0334 


2 


; 0335 


2 


; 0336 


2 


; 0337 


2 


; 0338 


3 


; 0339 


3 


; 0340 


3 


; 0341 


3 


; 0342 


3 


; 0343 


3 


; 0344 


3 


; 0345 


3 


; 0346 


3 


; 0347 


3 


; 0348 


3 


; 0349 


3 


; 0350 


3 


; 0351 


3 


; 0352 


3 


; 0353 


3 


; 0354 


3 


; 0355 


3 


; 0356 


3 


; 0357 


3 


; 0358 


3 


; 0359 


3 


; 0360 


2 


; 0361 


2 


; 0362 


1 



O0S OPEN service 

*** ODS Disk RMS routines 

ODS OPEN service 



C 12 
27-Jul-1984 
27-Jul-1984 16:04H7 
26-Jul-1984 09:40:59 



Fiche 10 Frame C12 



Sequence 1999 



VAX-11 Bliss-32 V4. 0-742 
DMA1:[SYSO.SYSMAINTJOOS,832;50 



Page 11 
(5) 



stat = filSopenfile (.cblock CctlSl rpb], cblock CctlSqJi lename], ndxhdr, .filhdr, status); 

! Access the file 

if not .stat i Error 

then 

return (selectone .stat of 

set 

CssS^nosuchfileJ : rms$ fnf; 

Css$ badfilename] : rmsS fnm; „ t 

[ss$"filestruct, ssS badTilehdr, ss$ badchksum] : (fab [fab$LstvJ s .stat; rmsS.acc); 

[otherwise] : (fab C7ab$LstvJ = .stat; rmsS^rer) 

tes); 



! If structure level 2 

! Then set flag bit 

! Set GET routine address 

! Set READ routine address 

! First L8N (if contiguous) 

! Load file attributes 



if .filhdr [fh2$b_struc lev] eql 2 
then 

cblock [ctl$v_ods2] = 1; 

cblock CctlSl get] = odsSget; 

cblock CctlSTread] = odsSread; 

cblock CctlSTstartlbn] = .status C0J; 
beg i n 

builtin 
rot; 

fUeatt - (if .cblock Cctl$v..ods2] then lilhdr [fh2$w_recattr] else filhdr Cfh1$w_recattr3) : bblock; 
fab [fab$b_rat] = .fileatt Cfat$b_rattr1M; 



[04] 



cblock CctlSl eofvbn] = 

rot (.fileatt [fatSl.efblk], 16); 



Copy record attributes 
Get EOF block, which is 
The EOF block VBN is 
stored sideways 
cblock CctlSw offbyte] = .fileatt CfatSwJ fbvte]; ! First free byte 
fab [fab$b org] = .fileatt CfatSv.f ileorg]; ] File organization 
fab [fab$b"rfm] = .fileatt [fatSv_rtype]; ! Record format 
fab Cfab$w~mrs3 = .fileatt [fatSwjnaxrecJ; ! Max. rec size 



If .Fab [Fab$W Mrs] Eql ! 

Then ~ . ! 

Fab [Fab$W MrcO = .FileArt [FatSw_ASize]; 



Jf no MAXREC 



! Get the record size 



C04] 
C043 
[04] 



fab [fab$b_fsz] = .fileatt CfatSb^vfcsizeJ ! Variable/fixed header size 

end; 

rmsS normal 

end;" ! of 0DSS0PEN 



5C FDF8 
51 0200 

OOOOOOOOG 
08 
50 0001 84D4 



01 FC 00000 
CE 9E 00002 
8F 3C 00007 
EF 16 0000C 
50 E8 00012 
8F 00 00015 
04 0001 C 



.ENTRY 0DSS0PEN, Save R2,R3,R4,R5,R6,R7,R8 



M0VAB 

M0VZWI 

JS8 

BIBS 

M0VL 

RET 



-520CSP), SP 
#512, SIZE 
EXESAL0NONPAGED 
RO, 1$ 
#99540, RO 



0263J 

0312! 
0314] 



ZZ-ENSAA-7.0 

ODS 

L'1-04 



ODS OPEN service 

*** ODS Disk RMS routines 

ODS OPEN service 

54 A9 



OOOOG CF 
55 



D 12 

27-Jul-1984 
27-JuL-1984 
26-Jul-1984 



16:04:17 
09:40:59 



Ffche 10 Frame 012 Sequence 2000 

VAX-11 Bliss-32 V4. 0-742 Page 

DMA1:CSYS0.SYSMAINT]ODS.832;50 



08 



00000910 

00000818 

00000808 

00000810 

000008C0 

OC 

OC 



01 
OC 
10 
50 

01 



44 



51 

51 



A9 
60 
60 



1E 
08 
42 

1D 

1F 
36 

36 

3F 



4004 
10 
48 
38 



8F 

50 00018292 

8F 

50 0001852C 

8F 

8F 

8F 



AB 
50 

A8 
50 

02 

A9 
A9 
A9 
A9 
A9 
52 
50 

50 
A8 
AO 
A9 
04 
A8 
04 
AB 
AB 

AB 
AB 
50 



0001 C002 

0001 C0F4 
07 



0000V 
0000V 



OE 
01 

OC 



10 



02 

OF 

00010001 



52 
8F 
AE 
A9 
A9 
05 
50 
50 
08 
8F 

50 
08 
8F 

50 
12 
50 
09 
50 
OC 
50 
8F 

50 
8F 

A2 

04 

04 

CF 

CF 

6E 

02 

14 

52 

04 

A2 

AO 

10 

AO 

04 

51 

00 

51 

AO 

05 

AO 

AO 

8F 



DO 

B8 

9F 

9F 

DD 

F8 

E8 

D1 

12 

DO 

04 

D1 

12 

DO 

04 

D1 

13 

D1 

13 

D1 

12 

DO 

DO 

04 

DO 

DO 

04 

91 

12 

88 

9E 

9E 

DO 

E1 

CO 

DO 

11 

9E 

90 

9C 

BO 

EF 

90 

90 
BO 
12 
BO 
90 
DO 
04 



0001 D 

00021 

00025 

00028 

00028 

00O2E 

00O33 

00036 

0003D 

0003F 

00046 

00047 

0004E 

00050 

00057 

00058 

0005F 

00061 

00068 

0006A 

00071 

00073 

00077 

0007E 

0007F 

00083 

0008A 

0008B 

0008F 

00091 

00095 

0009B 

000A1 

00OA5 

OOOAA 

OOOAD 

OOOBO 

000B2 

00OB6 

OOOBB 

000C1 

0OOC6 

OOOtB 
OOOCF 
000D4 
00OD8 
OOODD 
OOODF 
00OE4 
0OOE9 
OOOFO 



1$: 



2$: 



3$: 



4$: 



5$: 



6$: 



7$: 



8$: 
9$: 



10$: 



MOVL 

PUSHR 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

BLBS 

CMPL 

BNEQ 

MOVL 

RET 

CMPL 

BNEQ 

MOVL 

RET 

CMPL 

BEQL 

CMPL 

BEQL 

CMPL 

BNEQ 

MOVL 

MOVL 

RET 

MOVL 

MOVL 

RET 

CMP8 

BNEQ 

B1SB2 

M0VA8 

M0VA8 

MOVL 

BBC 

ADDL2 

MOVL 

BR8 

M0VA8 

MOVB 

ROTL 

MOVW 

EXTZV 

MOVB 

EXTZV 

MOVB 

MOVW 

BNEQ 

MOVW 

MOVB 

MOVL 

RET 



ADDR, 84(CBL0CJO 

# A M<R2,SP> 

NDXHDR 

72(CBLOCK) 

56<CBL0CK) 

#5. FJLSOPENFILE 

STAT, 6$ 

STAT, #2320 

2$ 

098962, RO 

STAT, 02072 
3$ 
#99628, RO 



12 
(5) 

0316 
0318 



STAT, 

4$ 

STAT, 

4$ 

STAT, 

5$ 

STAT, 



#2056 
#2064 
#2240 
12(FAB) 



0321 
0325 



0326 
0327 



#114690, RO 

STAT, 12(FAB) 
#114932, RO 

7<FILHDR), #2 

7$ 

#4, KCBLOCK) 

ODSSGET, 12(CBL0CK) 

ODSSREAD, 16(CBL0CK) 

STATUS, 80(CBLOCK) 

#2, KCBLOCK), 8$ 

#20, R2 

R2, RO 

9$ 

14(R2), RO 

KRO), 30(FAB) 

#16, 8<R0), 68(CBL0CK) 

12CR0), 66CCBL0CK) 

#4, 44, (RO), R1 

R1, 29(FAB) 

#0, #4, (RO), R1 

R1, 31 (FAB) 

16(R0), 54(FAB) 

10$ 

2(RC), 54(FAB) 

15(R0), 63(FAB) 

#65537, RO 



0328 

0323 
0331 

0333 
0335 
0336 
0337 
0344 



0346 
0349 
0350 
0351 

0352 

0353 
0355 
0357 
0359) 
0362 



Routine Size: 241 bytes. Routine Base: CODE + OOFF 



0363 1 



ZZ-ENSAA-7.0 


oos 




01-04 




; 0364 


1 


; 03b5 


1 


; 0366 


1 


; 0367 


1 


; 0368 


1 


; 0369 


1 


; 0370 


1 


; 0371 


1 


; 0372 


1 


; 0373 


1 


; 0374 


1 


; 0375 


1 


; 0376 


1 


; 0377 


1 


; 0378 


1 


; 0379 


1 


; 0380 


1 


; 0381 


1 


; 0382 


1 


; 0383 


1 


; 0384 


1 


; 0385 


1 


; 0386 


1 


; 0387 


1 


; 0388 


1 


; 0389 


1 


; 0390 


1 


; 0391 


1 


; 0392 


1 


; 0393 


1 


; 0394 


1 


; 0395 


1 


; 0396 


1 


; 0397 


1 


; 0398 


1 


; 0399 


1 


; 0400 


1 


; 0401 


1 


; 0402 


1 


; 0403 


1 


; 0404 


1 


; 0405 


2 


; 0406 


2 


; 0407 


2 


; 0408 


2 


; 0409 


2 


; 0410 


2 


0411 


2 


; 0412 


2 


; 0413 


2 


0414 


2 


0415 


2 


; 0416 


2 


; 0417 


2 


; 0418 


2 


0419 
; 0420 


2 

2 



ODSSGET routine 

*** ODS Disk RMS routines 

ODSSGET routine 

%sbttl 'ODSSGET routine' 

global routine ods$get ; call.rms = 

Functional description: 

De-block and return a record from an ODS file. 

Inputs: 

none 

Implicit inputs; 
R9 
R10 
R11 



E 12 
27-Jul-1984 Fiche 10 Frame E12 n Sequence 2001 

27-Jul-1984 16:04:17 VAX-11 Bliss-32 V4. 0-742 ^ ^ Page 13 

26-Jul-1984 09:40:59 DMA1 :CSYS0.SYSMAINTD0DS.832;50 (6) 



CBLOCK pointer 
RA8 pointer 
FAB pointer 



several fields in the above data structures 



Outputs: 

none 

Implicit outputs: 

RAB CrabSl stv] 
PAB CrabSTrbf] 
RAB [rab$w_rszJ 

Side effects: 

CBLOCK Cctl$w_rfaD 

CBLOCK 



Return codes: 

RMS$ NORMAL 

RMS$"RF.R 

RMSS"RFA 

RMS$"E0F 

RMS$"IRC 

RMS$""RTB 



Set to error status of failing system service 

Set to user buffer 

Size of record copied to user buffer 



advanced one record if access was not 

random-by-RFA 

cache control and cache buffers may be 

altered if part or all of the record is 

not within a block currently cached. 



if OK 

if system read error (QI0) 

if random RFA is beyond EOF 

if RFA is beyond end of file 

Illegal record 

Record is too big for user buffer (truncated) 



begin 

external register 

cblock • 9 : ref bblock, 
rab = 10 : ref bblock, 
fab = 11 : ref bblock; 

global register 

block = 6 : ref vector [, byte], 
vbn = 7, 
offset = 8; 

local 

f^size : word, 

size : word, 

lenlim : word, 



Pointer to CBLOCK 
Pointer to RAB 
Pointer to FAB 



Pointer to cache buffer 
Current VBN in file 
Current offset in VBN 



Full size of record 
Size of record 
Size of user buffer 



f043 
C043I 
[043 



2Z-ENSAA-7.0 ODSSGET routine . ^, U H^ ,* n , ,7 Meh 8*l ii F £f7S,^ v4 O^J 6 "^"" 2 °° 2 Paae U 

rns *** cms Disk RMS routines 27-Jul-1984 16:04:17 VAX-11 Bliss-^ V4.U-/%<^ rage i* 

01-04 ODSSGET routine r0UtineS . 26-Jul-1984 09:40:59 DMA1 :[SYS0.SYSMAINTJODS.B32;5Q (6) 

0421 2 ptr; ! Address in user buffer 

0423 2 vbn = .cbLock CctLSL vbnD; ! Extract ybn from next RFA 

0424 2 offset = .cblock CctlSw^byteD; ! Extract byte offset 

0425 2 

0A27 3 begin i Loop until find real record 

0429 3 if .rab [rabSb.racJ neq rab$c_rfa ! If not random access 

0431 3 odsladvance (.cblock CctlSw.rec.sizeD); ! Else advance to next 

0433 3 cblock CctlSl.vbn] = .vbn; ! Update CBLOCK vbn 

0434 3 cblock CctlSw^byteD = .offset; ! and it's offset 

0436 3 if .vbn gtr .cblock Cctl$l eofvbnJ or .vbn eql .cblock [ctl$l_eofvbn] and .offset geq .cblock C 

0437 3 ctlSw offbyteJ " ! If past file EOF 

0439 3 return rms$ eof; ! can't read past EOF 

0440 3 

0441 4 ( 

0442 4 

0443 4 local 

0444 4 stat; 

0445 4 

0446 4 stat = ods$access (>; ! Load the block in cache 

0447 3 if not .stat then return .stat); 

0448 3 cblock CctlSw rec size] = ! Set size of current record 

0449 4 (if .fab [fabJb r7mJ neq fabSc.fix ! If not fixed record format 

0450 4 then 

0451 5 begin , , . 

0452 5 size = .(block [.of fsetJKC, 16>; ! then fetch record size 

0453 5 ods$advance (2); ! Skip over the size 

0454 6 ( 

0455 6 

0456 6 local 

0457 6 stat; 

0459 6 stat = odslaccess (); ! and be sure (new) VBN is there 

0460 5 if not .stat then return .stat); 

0461 5 .size + 2 

0463 4 else size = -fab CfabSw.mrsJ) ! else get fixed size from FAB 

0465 3 until (if .size eql Xx'FFFF* ! Means non-spanned 'skip to next block' 

0466 3 then 

0467 4 begin 

0468 4 vbn = .vbn + 1; 

0469 4 cblock CctlSw rec_size] = offset = 0; 

0470 4 

0471 4 end 

0472 2 else 1); 

0474 2 if .fab TfabSb rfn>] eql fabSc.vfc ! If we have header record 

0475 2 then 

0476 3 begin 

0477 3 



ZZ-ENSAA-7.0 

ODS 

01-04 

0478 3 

0479 3 



0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 



4 

4 

3 

3 

3 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

4 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

4 

3 

3 

3 

2 

2 

2 



ODSSGET routine 

*** ODS Disk RMS routines 

ODSSGET routine 

if .size Iss .fab Cfab$b„fS2] 
then 

(rab [rab$l_stv] = .vbn; 

return rms$~irc 

); 



c 1 ? 
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27-Jul-1984 16:04:17 VAX-11 Bliss-32 V4. 0-742 _ Page 15 
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! Store VBN of illegal record 
! Illegal record 



! If there's a place to put it 



if .rab [rab$l_rhb] neq 

ch$move (.fab [fab$b_f sz], block [.offset], .rab [rab$LrhbJ>; 



copy it over 



size = .size - .fab [fab$b_fsz]; 
ods$advance (.fab Cfab$b_f S23) 
end; 

ptr = rab [rab$l_rbf] = .rab [rabSl.ubf J; 
lenlim = .rab CrabSw.uszJ; 
rab [rab$w_rsz] = 0; 
f.size = .size; 

while 1 do 
begin 



! Decrease record size by header length 
! and advance over it anyway 



! Point to user buffer 

! Size limit 

! Init output size 

! Store size, since SIZE moves 



! Copy over the record 



local 



length; 



( 



local 

stat; 



stat = odslaccess (); 

if not .stat then return .stat); 

length = min (.size, (512 - .offset), .lenlim); 

ptr = chlmove (.length, block C. offset], .ptr); 

rab [rab$w rsz] = .rab [rab$w_rsz] + .length; 



Be sure VBN is there 



0530 1 



size = .size - . length; 

it .size eql then return rms$. normal; 

lenlim = .lenlim - .length; 

if .lenlim eql 
then 

begin 

rab CrabSl stv] - •f.size; 

return rms$_rtb 

end; 

odsSadvance (.length) 
end; 

rms$_normal 
end;" 



Size to copy 

Copy (part of) record 

Update actual length so far 



Rest of record 
Return if done 
Buffer size left 
If no space left 

! Return true size 

! Skip on to next block 



ZZ-ENSAA-7.0 

ODS 

01 -04 



0DSS6ET 
*** ODS 

ODSSGET 



routine 
Disk RMS 
routine 



routines 



H 12 

27-JuL-1984 
27-Jul-1984 
26-Jul-1984 



16:04:17 
09:40:59 



Fiche 10 Frame H12 Sequence 2004 

VAX-11 Bliss-32 V4, 0-742 Page 16 
» DMA1:CSVSO.SYSHAINT30DS.832;50 <6> 



18 
1C 
44 



58 



42 A9 



1E 



0C 



2C BA 



5E 

57 18 

58 1C 
02 1E 

50 1E 

A9 
A9 
A9 



10 

50 0001827A 



15 
01 



6E 
50 



75 
50 
50 

50 
6E 
A9 
8F 



03 

50 
6E 



50 
6846 
50 
6E 
50 

50 



1F 



36 



1E 
1F 
3F 



AA 

50 0001857C 



2C 
3F 
3F 
3F 

24 



01 
10 
A9 
A9 
AA 
07 
A9 
FDF6 
57 
58 
57 
0A 
10 
00 
08 
8F 

FDE8 
50 
A8 
1A 

6846 
9E 
02 

FDBE 

FDD3 
50 
6E 
02 
07 
AB 
50 
50 
6E 
09 
37 
58 
A9 
92 
AB 
32 
AB 
50 
OC 
57 
8F 

AA 
OA 
AB 
50 
AB 
50 
AB 
FD5D 
AA 



FC 

C2 

DO 

3C 

91 

13 

3C 

30 

DO 

BO 

D1 

14 

12 

ED 

14 

DO 

04 

30 

E9 

91 

13 

9F 

BO 

DO 

30 

30 

E9 

3C 

CO 

11 

3C 

BO 

BO 

B1 

12 

D6 

D4 

B4 

11 

91 

12 

9A 

B1 

18 

DO 

DO 

04 

D5 

13 

9A 

28 

9A 

A2 

9A 

30 

DO 



00000 

00002 

00005 

00009 

OOOOD 

00011 

00013 

00017 

0001 A 

0001 E 

00022 

00026 

00028 

0002A 

00030 

00032 

00039 

€003A 

0003D 

00040 

00044 

00046 

00049 

0004C 

0004F 

00052 

00055 

00058 

0005B 

0005E 

00060 

00064 

00067 

0006B 

00070 

00072 

00074 

00076 

00079 

0007B 

0007F 

00081 

00085 

00088 

0008A 

0008E 

00095 

00096 

00099 

0009B 

0009F 

OO0A5 

000A9 

000AC 

OOOBO 

000B3 



1$: 



2$: 



3$: 
4$: 



5$: 



6$: 
7$: 



8$: 



9$: 



10$: 



11$: 



.ENTRY 

SUBL2 

MOVL 

MOVZWL 

CMPB 

Bt'QL 

MOVZWL 

BSBW 

MOVL 

MOVW 

CMPL 

B6TR 

BNEQ 

CMPZV 

B6TR 

MOVL 

RET 

BSBW 

BLBC 

CMPB 

BEQl 

PUSHAB 

MOVW 

MOVL 

BSBW 

BSBW 

BLBC 

MOVZWL 

ADDL2 

BRB 

MOVZWL 

MOVW 

MOVW 

CMPW 

BNEQ 

JNCL 

CLRL 

CLRW 

BRB 

CMPB 

BNEQ 

MOVZBL 

CMPW 

BLEQU 

MOVL 

MOVL 

RET 

TSTL 

BEQL 

MOVZBL 

M0VC3 

MOVZBL 

SUBW2 

MOVZBL 

BSBW 

MOVL 



VBN 
OFFSET 



RO 



ODSSGET, Save R2,R3,R4,R5,R6,R7,R8 

016, SP 

24CCBL0CK), 

28CC8L0CK), 

30<RAB), *2 

2$ 

30CCBL0CK), 

UDS$ADVANCE 

VBN, 24CCBLOCK) 

OFFSET, 28CCBL0CK) 

VBN, 68CCBL0CK) 

3$ 

4$ 

#0, #16, 66(C8L0CK), OFFfET 

4$ 

#98938, RO 

ODSSACCESS 

STAT, 5$ 

31 (FAB), #1 

6$ 

(OFFSET)CBLOCKD 

S(SP)+, SIZE 

#2, RO 

ODSSADVANCE 

ODSSACCESS 

STAT, 13$ 

SIZE, RO 

#2, RO 

7$ 

54(FAB), RO 

RO, SIZE 

RO, 30(CBLOCK) 

SIZE, #65535 

8$ 

VBN 

OFFSET 

30(CBL0CK) 

1$ 

31 (FAB), #3 

11* 

63(FAB), RO 

RO, SIZE 

9$ 

VBN, 12CRAB) 

#99708, RO 

44(RAB) 

10$ 

63(FAB), RO 

RO, (OFFSET)CBLOCK], 5)44(RAB) 

63(FAB), RO 

RO, SIZE 

63(FAB), RO 

ODS$ADVANCE 

36<RAB), RO 



0366 

0423 
0424 
0429 

0431 

0433 
0434 
0436 



0439 

0446 
0447 
0449 

0452 

0453 

0459 
0460 
0461 

0463 

0449 
0465 

0468 
0469 

0474 

0478 

0480 
0481 

0484 

0486, 

0488J 

048SJ 

0492I 



ZZ-ENSAA-7.0 

ODS 



CDSSGET 
*** ODS 

ODSSGET 



rout Tie 
Disk RMS 
routine 



routines 



28 
08 
OC 

51 00000200 



50 



08 AE 



63 



AA 
53 
AE 

AE 

58 
8F 
50 

51 

50 
10 



50 
AE 
6846 
22 AA 

6E 



04 



08 
OC 



AE 
AA 



50 



20 
22 



08 

04 
04 
04 

04 

OC 



50 0001 81A8 



04 



50 00010001 



50 
50 
AA 
AA 
6E 
FD5B 
50 
58 
6E 
50 
03 
51 
00 
04 
AE 
50 
AE 
AE 
AE 
1D 
AE 
OD 
AE 
8F 

AE 

FCF1 

A9 

8F 



DO 

DO 

BO 

B4 

BO 

30 

E9 

C3 

3C 

D1 

15 

DO 

ED 

18 

3C 

DO 

28 

AO 

A2 

13 

A2 

12 

3C 

DO 

04 

DO 

30 

11 

DO 

04 



I 12 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:04:17 
09:40:59 
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0O0B7 

OOOBB 

OOOBE 

0O0C3 

0O0C6 

OOOCA 

OOOCD 

OOODO 

0O0D8 

OOODB 

OOODE 

OOOEO 

000E3 

0O0E9 

OOOEB 

OOOEF 

0O0F3 

000F9 

OOOFE 

00102 

00104 

00109 

0010B 

00110 

00117 

00118 

0011C 

ooi ir 

00121 
00128 



12$: 
13$: 



14$: 



15$: 



16$: 



17$: 
18$: 



MOVL 

MOVL 

MOVW 

CLRW 

MOVW 

BSBW 

BLBC 

SUBL3 

MOVZWL 

CMPL 

BLEQ 

MOVL 

CMPZV 

BGEQ 

MOVZWL 

MOVL 

M0VC3 

ADDW2 

SUBW2 

BEQL 

SUBW2 

BNEQ 

MOVZWL 

MOVL 

RET 

MOVL 

BSBW 

BRB 

MOVL 

RET 



RO, 40(RAB) 
RC, PTR 

32CRAB), LENLIM 
34 CRAB) 
SIZE, F SIZE 
0DS$ACCESS 
STAT, 18$ 
OFFSET, #512, Rl 
SIZE, RO 
RO, R1 
14$ 

pi pQ 

#0', #16, LENLIM, RO 

15$ 

LENLIM; RO 

RO, LENGTH 

LENGTH, (OFFSET)CBLOCKD, (PTR) 

34CRAB) 

SIZE 



0493 
0494 
0495 
0508 
0509 
0510 



LENGTH, 

LENGTH, 

17$ 

LENGTH, 

16$ 

F SIZE, 

#98728, 



LENLIM 

12CRAB) 
RO 



LENGTH, RO 
0DS$ADVANCE 
12$ 
#65537, RO 



0511 
0512 
0513 
0515 
0517 
0519 
0522 
0523 

0526 



0530 



Routine size: 297 bytes. Routine Base: CODE + 01F0 



0531 1 



ZZ-ENSAA-7.0 


ODS 




01-04 




; 0532 


1 


; 0533 


1 


; 0534 


1 


; 0535 


1 


; 0536 


1 


; 0537 


1 


; 0538 


1 


; 0539 


1 


; 0540 


1 


; 0541 


1 


; 0542 


1 


; 0543 


1 


0544 


1 


0545 


1 


; 0546 


1 


; 0547 


1 


0548 


1 


; 0549 


1 


; 0550 


1 


; 0551 


1 


; 0552 


1 


; 0553 


1 


0554 


1 


0555 


1 


0556 


1 


; 0557 


1 


; 0558 


1 


; 0559 


1 


0560 


1 


; 056^ 


1 


; 0562 


1 


; 0563 


2 


; 0564 


2 


; 0565 


2 


; 0566 


2 


; 0567 


2 


; 0568 


2 


; 0569 


2 


0570 


2 


; 0571 


2 


; 0572 


2 


; 0573 


2 


; 0574 


2 


; 0575 


2 


; 0576 


2 


; 0577 


2 


; 0578 


2 


; 0579 


2 


; 0580 


2 


; 0581 


3 


; 0582 


3 


; 0583 


3 


; 0584 


3 


; 0585 


3 


; 0586 


3 


; 0587 


3 


; 0588 


3 



ODSSREAD routine 

*++ ODS Disk RMS routines 

ODSSREAD routine 

*sbttl 'ODSSREAD routine' 

globat routine odsSread : call.rms = 
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+ + 

Functional description: 

Read virtual blocks of file 

Inputs: 

none 

Implicit inputs: 

R9 CBLOCK pointer 

R10 RAB pointer 

various fields in the above-listed data structures 

Outputs: 

none 

Implicit outputs: 

RAB CrabU.rbU 
RAB [rab$w_rsz] 

Side Effects: 

CBLOCK r.ct ISl^nbpJ 

Return codes: 

rmss normal 
rms$:rer 



points to buffer 
size of buffer 



points to next VBN for sequential READ. 



OK 

Read error 



! Map the control block 
! Map the RAB 



begin 

external register 

cblock = 9 : ref bblock, 
rab = 10 : ref bblock; 

local 

size, 
next; 

next = .cblock CctlSL nbpJ; ! Block to start, at 

size = rab [rab$w rszl = min (.rab Crab$w_usz3, ! Determine actual size to 
(.cblock Cctlll eofvbn] - ,next)*512 + ! read— either given size 
.cblock [ctl$wj5ffbyte3>: ,! or to end. of file if less 

cblock Cctl$Lnbp3 = .next + (.size + 31U/512; ! Point to next full block 

it .cblock CctlSl.startlbnJ neq ! If file is contiguous 
then 

begin 

local 
stat; 

stat = booSqio (rab Oab$l rbf] - .rab [rabU.ubf], .size, .cblock Cct lll.startlbn] ♦ .next 
io$_readlblk, 0, .cblock Cctl$l_rpb3); ! Read all at once 



- 1, 



2Z-ENSAA-7.0 

ODS 

01 -04 



0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

06C2 

0603 

06OA 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

06K 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 



3 

3 

A 

A 

3 

2 

3 

3 

3 

3 

3 

3 

3 

3 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

c 

2 
2 



ODSSREAD routine 

*** ODS Disk RMS routines 

ODSSREAD routine 



if not .stat 

(rab CrabSL stv3 = .stat; return rmsS.rer) 
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! If error, scram 



19 
(7) 



else 



end 

begin 

local 
ptr; 

ptr = rab Crab$l_rbfD = .rab Crab$l_ubfD; 

while .size gtr do 
begin 

global register 
block = 6, 
vbn = 7, 
offset = 8; 

local 
rs, 
stat; 

vbn = .next; . 

rs = min ( .size, 512) ; 

stat = odsSaccess O; 



! Non-contiguous, read it 
! block by block 



! Start ot user buffer 



! Registers for ACCESS 



! Next block to read 
! Read a block or less 
! Access next block 

! Scram if error 



if not .stat 

then 

(rab CrabSl.stv] = .stat; return rms$_rer); 



ptr = chSmove (.rs, .block, .ptr); 
next = .next ♦ 1; 
size = .size - .rs 
end 



! Copy to user buffer 
! Advance block number 
! Count size of read 



0630 1 



end; 

rms$_normal 
end;" 



Of odsSread 









09FC 00000 




5E 




04 C2 00002 






OA 


A9 DD 00005 


51 


AA A9 




6E C3 00008 


51 


51 




09 78 0000D 




50 


42 


A9 3C 00011 




51 




50 CO 00015 




50 


20 


AA 3C 00018 




51 




50 D1 0001 C 
03 15 0001 F 



.ENTRY ODSSREAD, Save R2,R3,R4,R5,R6,R7,R8,R11 

SUBL2 *4, SP 

PUSHL 4(CBL0CK) 

SUBL3 NEXT. 68CCBL0CK), R1 

ASHL #9, R1, R1 

M0VZWL 66CCBL0CK), R0 

ADDL2 R0, R1 

MOVZWL 32<RAB), R0 

CMPL RO, R1 

BLEQ 1$ 



053A| 

i 

0573J 

057? 

0576| 
0575J 



7Z-ENSAA-7.G 

ODS 



ODSSREAD routine 

*** ODS Disk RMS routines 

ODSSRF.AD routine 



22 



04 A9 



50 



50 



28 
000000006 



28 



00000200 
04 

oc 



63 



50 
AA 
5B 
50 
50 
50 



7E 
A9 



AA 
EF 
48 

50 
AA 
53 



57 
50 
8F 

50 
AE 



01FF 
00000200 

50 

38 

OC 
FF 

24 



24 



0200 



OC 
AA 
50 0001C0F4 

66 04 

58 04 

50 00010001 



51 
50 
50 
CB 
8F 
6E 
A9 
24 
A9 
21 
AE 
AO 
58 
AA 
6E 
06 
50 
2D 
AA 
50 
50 
5B 
3? 
6E 
58 
50 
05 
8F 
50 
FC70 
50 
50 
8F 

AE 
6E 
AE 
C5 
8? 



DO 
BO 
DO 
9E 
C6 

C1 

D5 

13 

DD 

7D 

C1 

9F 

DD 

DD 

DO 

F8 

E8 

11 

DO 

DO 

DO 

D5 

15 

DO 

DO 

?! 

3C 
DO 
30 
E8 
DO 
DO 
04 
28 
D6 
C2 
11 
DO 
04 



Routine Size: 179 bytes, Routine Base: CODE + 0319 



0631 


1 




0632 


1 


end 


0653 


1 




0634 





eludom 



L 12 
27-Jul-1984 
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26-Jul-1984 



16:04:17 
09:40:59 
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00021 MOVL R1, RO 

00024 1$: MOVW RC, 34(RAB) 

00028 MOVL RO, SIZE 

00028 MOVAB 511 (R11), RO 

00030 DJVL2 #512, RO 

00037 ADDL3 NEXT, RO, 4(CBL0CK) 

0003C TSTL 80(CBL0CK) 

0003F BEOL 2$ 

00041 PUSHL 56(CBLOCK) 

00044 MOVQ #33, -<SP) 

00047 ADDL3 NEXT, 80(CBLOCK), RO 

0004D PUSHAB -KRO) 

00050 PUSHL SIZE 

00052 PUSHL 36CRAB) 

00055 MOVL (SP), 40(RAB) 

00059 CALLS #6, BOOSQJO 

00060 BL8S STAT, 7$ 
00063 BR3 5$ 

00065 2$: MOVL 36(RAB), RO 

00069 MOVL RO, 40(RAB) 
0006D MOVL RO, PTR 

00070 3$: TSTL SIZE 
00072 BLEQ 7$ 
00074 MOVL NEXT, VBN 
00077 MOVL SIZE, RO 
0007A CMPL RO, #512 
00081 BLEQ 4$ 
00083 MOVZWL #512, RO 
00088 4$: MOVL RO, RS 
0008C BSBW ODSSACCESS 
0008F BLBS STAT, 6$ 
00092 5$: MOVL STAT. 12CRAB) 
00096 MOVL #114932, RO 
0009D RET 

0009E 6$: M0VC3 RS, (BLOCK), (PTR) 

000A3 INCL NEXT 

000A5 SUBL2 RS, SIZE 

000A9 BRB 3$„_ ^ 

OOOAB 7$: MOVL #65537, RO 

000B2 RET 



0574 
0577 

0579 

0587 

0586 



0589 
0591 
0600 



0602 

0614 
0615 



0616 
0618 
0620 



0622 
0623 
0624 

0630 



PSECT SUMMARV 



Name 



Bytes 



Attributes 



ZZ-ENSAA-7.0 

ODS 

1*1-04 



ODSSREAD routine 

*** ODS Disk RMS routines 

ODSSREAD routine 



M 12 
27-Jul-1984 
27-J(jL-198< 
26-JuL-1984 



1 6 : OA : 1 7 
09:A0:59 
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i DMA1jCSYS0.SYSMAINTJODS.832;50 (7) 



coot 



972 NOVECNOWRT, RD , EXE, SHR, LCL, REl, C0N,N0PJC,ALIGN<2) 



Library Statistics 



File 

DRB1 :CDS.W0RK3D1AG.L32;265 

DRB1:CDS.J0RKDDS.L32;159 

SYS$SYSR00T:CSYSLIB]LIB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 


21 
A3 



Percent 



Pages 
Mapped 

85 

42 

975 



Processing 
Time 

00:00.1 
00:00.2 
00:04.7 



COMMAND QUALIFIERS 
BL I SS/NOOBJRIT/L I ST=[DS.L I S J/OPT 1MI 2E= < LEVEL: 3, SPACE) /DEBUG/TRACE ODS 



Size: 972 code + 
Run Time: 00:22.2 
Elapsed Time: 00:27,7 
Lines/CPU Min: 1716 
Lexemes/CPU-Min: 13481 
Memory Used: 151 pages 
Compilation Complete 



data bytes 



ZZ-ENSAA- 


7.0 


ONLY730 




i able of 


contents 


(1) 


74 


(2) 


136 


(5) 


251 


(7) 


303 


(8) 


348 


(10) 


391 


(11) 


U9 


(12) 


468 


(13) 


495 


(K) 


51? 


(15) 


528 


(15) 


580 
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Macro invocations 



OSPSCONflG ADP 
MAPSIOSPACE 
FETCH LONG 
PURGE'DATAPATH 
UBASiNITIAL 
IOSTESTCFR.x 
I0GENSC0NN VEC 
QI0CLEAN CPU 
ONLY SC8 
SCBVFCTOR xxx 
ONLY CLOCRjNI 



Build P-table for adapter 

Validate mapping for adapters 

Retreive longword from possibly bad address 

UNIBlS ADAPTER INI T J AL 1 2 AT I ON 

Test CSR for existence 



CPU specific SC8 setup 

Otherwise undefined SCB vectors 

Perform cpu-specific T0DR initialization 



77-ENS4A-7.0 

ONLV730 
1*7-12 



<«<* 0NI.Y730 NEBULA specific routines 

*** ONLY730 N13BULA specific 



B 13 

27-JUL-1984 Fiche 10 
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Frame B13 Sequence 2011 
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0000 


1 


0000 


2 


0000 


3 


0000 


4 


0000 


5 


0000 


6 


0000 


7 


0000 


8 


0000 


9 


0000 


10 


0000 


11 


0000 


12 


0000 


13 


0000 


u 


cooo 


15 


0000 


16 


0000 


17 


0000 


18 


0000 


19 


oouo 


20 


0000 


21 


0000 


22 


0000 


23 


0000 


24 


0000 


25 


0000 


26 


0000 


27 


0000 


28 


0000 


29 


cooo 


30 


0000 


31 


O000 


32 


0000 


33 


0000 


34 


0000 


35 


0000 


36 


0000 


37 


0000 


38 


0000 


39 


0000 


40 


0000 


41 


0000 


42 


0000 


43 


0000 


44 


0000 


45 


0000 


46 


0000 


47 


0000 


48 


0000 


49 


0000 


50 


0000 


51 


0000 


52 


0000 


53 


0000 


54 


0000 


55 


0000 


56 


0000 


57 



.TITLE 

JDENT 

.LIST 

.NLIST 

.DSA8L 



ONLY730 
/07-12/ 
MEB 
CND 
GBL 



*** 0NLY730 NEBULA specific routines 



Copyright (c) 1979, 1983, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 



ITS 



FACILITY: 
A8STRACT: 
ENVIRONMENT: 
AUTHOR: 
MODIFIED BY: 

02 



03 

04 
05 

06 



VAX DIAGNOSTIC SUPERVISOR, 



Roger Riggs 



20-FEB-79 



VERSION 01. 



07 
08 

09 



Roger Riggs, 24-Jan-1989, Version 5,2 

Added definition of value DSSGKJJSOVR, for 

WA1TUS clock overhead, ,. ^ 

Roger Riggs, 15-Feb-1980, Version 5,2 

Fixed OIOCLEAN CPU to correctly restore the SCB 

Dave Butenhof , "07-May-1981 , version 6.4 

Fix PURGDATAP routine to set correct address for UBA map. 

ATTACH DW730, not DW750. 

- Dave Butenhof, 23~Nov~1981 , version 6,5 

Add .LIBRARY declarations, change SEP Psect to Code and 
Work, 

- Ddve Butenhof, 09~Mar-1982, version 6,6 
Fix Truncation errors. 

Bob Bergazzi April 26, 1983 Version 6.11 

Added ONLY^SCB routine for 11/xxx, Does nothing for NEBULA, 

Bob Bergazei May 16, 1983 Version 6.11 
Changed the order of the .LIB statements. 



Z7-ENSAA-7.0 

ONLY730 
L'7-12 



C 13 
*** nwi y7^0 mfruia snerific routines 27-JUL-1984 Fiche 10 Frame C13 Seguence 20*12 

•"»""» aBu."««ni« «*<«. gvjj^jjj ii=ii;|i B8;!l I »3jaS8? Ml , n ,.Sa;«.f) 

Bob Bergazzi 11-16-83 Version 6.14 
Changed MODNAM from 0NLY750 to ONY730. 

Bob Bergazzi Jan. 25, 1 98A Version 6.14 
Added ONLY CLOCK INI T routine, which reads the TODR. 
We no longer want to MFPR the TODR in CLKSRE INIT 
because not all cpus read the TODR with an M'PR. 
Also, TODR is now defined by SPR730DEF as PR730$_TODR. 

Bob Bergazzi May 9, 1984 Version 7.0 
Added UoJNTSZ in order to remove code from QJO. 



0000 


58 , 




0000 


59 . 


10 


0000 


60 , 




0000 


61 , 




0000 


62 , 


11 


0000 


63 , 




0000 


64 , 




0000 


65 




0000 


66 




0000 


6? 




0000 


68 


; 12 


0000 


69 




0000 


70 


■ — 


0000 


71 




cooo 


72 





ZZ-ENSAA-7,0 
ONLY730 



Macro invocations 

*** ONLY730 NEBULA 
Macro invocations 



27-JUL-1984 Fiche 10 Frame D13 Sequence 2013 
specific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-01 „, rt P*\ 
P 23-JUL-1984 16:23:43 DMA1 : CS YSO. SYSMAIMT30NL Y730.MAI 



0000 74 

0000 75 

0000 76 

0000 77 

0000 78 

0000 79 

0000 80 

0000 81 

0000 82 

0000 83 

0000 84 

0000 85 

0000 86 

0000 87 

C000 88 

0000 89 

0000 90 

0000 91 

0000 92 

0000 93 

0000 94 

0000 95 

0000 96 

00000001 0000 97 

00000001 0000 98 

0000 99 

0000 100 

0000 101 

0000 102 

00000200 0000 103 

0000 104 

0000 105 

0000 106 

0000 107 

40000000 0000 108 

03000000 0000 109 

0000 110 

0000 111 

0000 112 

0000 113 

0000 114 

0000 115 

0000 116 

0000 117 

0000 118 

0000 119 

0000 120 

0000 121 

0000 122 

0000 123 

0000 124 

0000 125 

00000000 126 

0000 127 

0000 128 

00000000 0000 129 

0004 130 



.subtitle Macro invocations 

.library /sys$ library: lib/ 
.library /$D$/ 
.library /$0JA6/ 

.NLIST ME,MEB 

SUC8DEF 

SCR8DEF 

SADPDEF 

$VECDEF 

$DYNDEF 

SPSLDEF 

SPTEDEF 

SVIELD PTE,<29-9>,«I0,,M» 

SPRTDEF 

SPRDEF 

$PR730DEF 

$DS HPODEF 

$DSlDW730,DEF 

$DS DSDEF 

$U8lDEF 

SS$ NORMAL*! 
IS=T 



; Clock overhead factor 
DSS6K.US0VR " A X200 
; I/O SPACE DEFINITION 

I0CSKJ0SPACE == *X40000000 



ie 3 

t;45(1) 



[09] 
C093 
L091 



; TODR now here for VMS v4 



[11] 
[05] 



Overflow factor for 11/730 



DS$GK.SID 



3324 ; Pseudo SID for 11/730 

CMKSRC0NS0LE, CMKSTC0NS0LE , DSSWAITUS 



.EXTRN BUGSCHECK, 

.EXTRN DS ERRSUP 

.EXTRN EXE UNEXPINT 

.EXTRN EXElALONONPAGED, EXESDEANONPAGED, 

.EXTRN INSSPTABLE, IOC$GL_ADPLIST 

.EXTRN MAPMEMSIOSPACE 

.EXTRN QIOSDEALLOCATE 

.EXTRN SCB_BASE, SCBJMAGE 

.EXTRN SSS CONTINUE, SS$_C0NTR0LC, 

.EXTRN SS$"RESIGNAL 

.EXTRN SYS$SETPRT, SYS$UNWIND 

.EXTRN TSTSMCHK 

.EXTRN UBINT DJSP 

.EXTRN SCBJJRKJNT 



FETCH.STORE 



SSS.CTRLERR, SS$J)ATACHECK 



.Psect Work, Noshr, Noexe, Wrt, Long 





LOCAL STORE: 

m .LONG 



ZZ-ENSAA-7.0 Macro invocations ,, A _ A .,. 27-JUL-1984 10fi/ F U*f c]S 7 F C25 e 1 f 1 M a rm wn-8? Uence 2 ° 1 p aa « 4 

St?| M rUcVftSK.SRft* SPeClfK r ° UtineS is^ikiJK IJiJilS D V ^"s^:?yS^lS}jONLY730.^5(^) 

00000000 131 .Psect Data, Shr, Noexe, Nowrt, Long 

0000 "32 M0DNAM ONLY730 

0008 133 J0$GQ PHYSICAL:: 

01000000 00F00000 0008 134 " .LONG A XFOOOOO, A X1000000 






ZZ-ENSAA-7.0 
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DSPSCONFIG.ADP Build P-table for adapter 27-JUL-1984 1QQ/ F j C c h *c 1 9 7 ? H$ e *VL rrn vn^n? UenCe 201 L,p 5 

*** ONLY730 NEBULA specific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-01 E2S e / C /^ 
DSPSC0NFI6.ADP Build P-table for adapter 23-JUL-1984 16:23:43 DMA1 :[SYS0.SYSMAINTJ0NLY730.MAR;45(2) 



0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

C010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

FFFC 

FFF8 

FFF4 

FFF4 

0010 

0010 



136 

137 

138 

139 

HO 

H1 

K2 

H3 

144 

145 

H6 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 



183 
184 



.SBTTL 0SPSC0NFJG.ADP Build P-table for adapter 
FUNCTIONAL DESCRIPTION: 

This routine builds and inserts a P-table for 
the channel/adapter addressed. 

CALLING SEQUENCE: 

DSP$CONFIG_ADP(Adapter_address,PT_address,type_address) 

INPUT PARAMETERS: 

4(AP) Address of configuration status register of adapter 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: 

8 CAP) Address to store address of P-table created 
12(AP) Address to store type of adapter, 0=MBA, 1=UBA 

IMPLICIT OUTPUTS: 

P-table for Adapter 

COMPLETION CODES: 

SS$ NORMAL 
DS$lMACHCK 

SIDE EFFECTS: 

The adapter specified is pinged to determine 
interrupt level and interrupt vector. 



REGISTER USAGE: 



R4 
R5 



Address of current PT 
Address of channel 



t VECTOR: 
L"IPL: 
L~C0NFIG: 
L"L0CAL: 



.NLIST ME,MEB 

S0FFSET 0, NEGATIVE, < - 
<L„VECT0R,4>, - 
<LJPL,4>, - 
<L_C0NF1G,4>, - 
<L LOCAL, 0» 



.LIST MEB 



ZZ-ENSAA-7.0 
0NLY730 



r 1 3 

n^PirnMFiG AfiP Rt j -i Id P-tahle for adaoter 27-JUL-1984 Fiche 10 Frame G13 Seguence 2016 

DSPKONFIG.ADP B ^i ; d NL Y730 NEBULA spec i f i c routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-0f n ^ Page 6 

DSP$CONFI6.ADP Build P-table for adapter 23-JUL-1984 16:23:43 DMA1 :[SYSO.SYSMAiNnONLY730.MA&;45<3> 



001 C 



00000000 
0000 
0000 
0002 



5E FA 
00000000'EF 

FC 
F8 



54 04 AC 



40000000 
F4 AD 



50 50 



50 
05 



AD 
5D 
AD 
AD 

8F 
54 
64 
03 



9E 
DO 
D4 
D4 

C9 
DO 
DO 
EF 



00' 05 50 AF 



OOOOOOOO'EF 
00 



OOOOOOOO'EF 
50 00660002 



01 
03 
8F 



oc 



BC 
51 



01 

32 

FFAF 

04 50 

5E 08 



K A2 



OC 
28 



A2 

26 
A2 

24 



40FCO0O0 
08 A2 

3057445F 
A2 4405 

30333757 
A2 0200 



62 
04 A2 OC 



8F 
51 

8F 
8F 
8F 
8F 

04 
A2 



0018' 



DF 
DD 
DD 
FB 
DO 
04 

DO 
DO 
30 
E8 
CO 
04 

DO 
BO 
DO 
BO 
DO 
BO 

DO 
9E 



18 A2 54 DO 



08 BC 
OOOOOOOO'EF 



20 



OD 



A2 
52 
62 
50 



50 



50 



52 
FF5D' 
00660002 8F 



D4 
DO 
FA 
E8 



DO 
30 
DO 

04 



0002 

0002 

0006 

OOOD 

0010 

0013 

0013 

001 C 

0020 

0023 

C028 

0028 

002C 

002C 

002E 

002E 

002E 

0034 

0036 

0038 

003F 

0046 

0047 

0047 

0048 

004E 

0051 

0054 

0057 

0058 

0058 

0060 

0064 

006C 

0072 

007A 

0080 

0080 

0083 

0088 

0088 

008C 

008C 

008F 

0093 

009A 

009D 

009D 

009D 

OOAO 

00A3 

OOAA 

OOAA 



186 
187 
188 
1S9 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 



201 



.Psect Code, Shr, Exe, Nowrt, Long 
.ENTRY DSP$C0NFIG_ADP, A M<R2,R3,R4> 



30000$: 
30001$: 



M0VA8 

M0VA8 

MOVL 

CLRL 

CLRL 

BJSL3 

MOVL 

MOVL 

EXTZV 

CASE 

CASEW 



W A HANDLR,(FP) 
L LOCAL (FP), SP 
FP,L A LOCAL STORE 
L VECTOR(FP) 
L~IPL(FP) 



#IOC$K IOSPACE,4(AP),R4 

R4,L CONFJG(FP) 

(R4)TR0 

03 #5 RO RO 

RO!lIMIT=*5,DISPLIST=<40$>; UBIonly 

R0,45,S A tf«$0001$-30000$>/2>-1 



Exception handler 

Allocate space for local storage 

And save address for interrupts 

Clear vector 

Clear JPL 



C07] 



Base adapter 

Store Configuration register addr 

Get Configuration register 

Get adaoter type 



.SIGNED..WORD 40$-30000$ 



202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

22? 

22B 

229 

230 

231 

232 

233 

234 



ERRSUP.S 



40$: 



50$: 
60$: 



MOVL 
RET 

MOVL 
MOVL 
BSBW 
BLBS 
ADDL 
RET 

MOVL 
MOVW 
MOVL 
MOVW 
MOVL 
MOVW 

MOVL 
MOVAB 

MOVL 

CIRL 
MOVL 
CALLG 
BLBS 



CONFJG RELEASE 
" MOVL 
BSBW 
MOVL 

CONFJG EXIT; 
RET 



PUSHAL $MODULE 

PUSHL #0 

PUSHL #$ER 

CALLS ^3 # DS ERRSUP 

#DS$ ERROR, RO 



#1,ai2(AP) 

*DW730$K LEN,R1 

EXE$ALONuNPAGfc*D 

R0,60$ 

#8,SP 



; Unknown adapter type 



Error 



Set adapter type to UBA 
Set length of PT 
Allocate space fcr PT 
Branch if successful 
Reset stack 
Return on error 



C05] 



# A X40FC0000,HP$A DVA(R2); Set device virtual address 
R1,HP$W SIZE(R2r ; Set length of PT 
# A A" DWD M ,HP$T DEVICE (R2); Set device name |4 , r ^ 
* A X4505,HP$T T?PE(R2> : Set length and *JD' of "DW750' 
A A , V/73O" f HPjT TYPE+2(R2); Set rest of "W730" 
# A X200,HP$W VECT0R(R2) ; Set SCB base for UBIO 



[053 



70$: 



#4,HP$Q DEVICE(R2) 
HP$T DEVlCE(R2), - 
HP$Q DEV1CE+4(R2) 
R4,hP$A_DEVICE(R2> 

HP$A L1NK(R2) 

R2,S8(AP) 

(R2) ,INS$PTABLE 

R0,C0NFJG..EXIT 



R2,R0 

EXE$DEANONPAGED 
#DS$ ERROR, RO 



Set length of device name 

Set address of device name 
Set address of device 



Clear address of link PT 
Store address of PT just 
Insert this in the table 
Exit complete 



Copy address ot buffer 
Deallocate buffer 
Flag error 



made 
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DSPSCONFIG ADP Build P-table for adapter 27-JUL- 1984 Fi'che 10 Frame Hi 3 Sequence 2017 

DbHKUNrWjun- a a NEBULA specific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-01 ^ Page 

DSPSC0NFI6.ADP Build Stable for adapter 23-JUL-1984 16:23:A3 0MA1 ;[SYS0.SYSMAINT]ONLY73O.MAfi; 



52 00000000' EF 

51 04 BC 

50 0000* 8F 

04 A1 006600D8 8F 

14 

FC A2 08 A1 

F8 A2 12 

50 K A2 

50 00000000' 8F 



0004 
DO 
DE 
3C 

D1 
12 
DO 
DB 
DO 
DO 

04 



OOAB 
OOAD 
00B4 
00B8 
OOBD 
008D 
00C5 
00C7 
OOCC 
OODO 
00D4 
OODB 
00D8 
OODC 



236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 

248 
249 



HANDLR; 



.WORD 
MOVL 
MOVAL 
MOVZWL 


A M<R2> 

L'LOCAL STORE, R2 

34(AP),R1 

#SS$_RES1GNAL,R0 


* 
* 

• 
* 


CMPL 
BNEO 
MOVL 
MFPR 
MOVL 
MOVL 


#DS$ UNEXPJNT,4(R1) 
10S " 

8(RD,L VECT0RCR2) 
#PR$ IPCL JPL(R2) 
L COF1fIG<R2>,R0 
#SSS CONTINUE, RO 





Unexpected exception routine 
Base stack 

Point to signal arguments 
Assume not ours 

Unexpected interrupt? 

Branch if not 

Store interrupt vector 

Save current IPL 

Get Configuration register address 

Continue from exception 



7 

45(4) 



C07D 



10$: 



RET 



ZZ-ENSAA-7.0 

ONLY730 
07-12 
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MAPSIOSPACE Validate mapping for adapter 27-JUL-1984 Fiche 10 Frame 113 Sequence 2018 
iw»iu&™.c vau ^l e ON ^ 30 y NE8ULA s ^cific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-0T ^8 e /c/c , 

MAPSIOSPACE Validate mapping for adapter 23-JUL-1984 16:23:43 DMA1 :[SYS0.SYSMAINTJONLY730.MAft;45<5> 

,S8TTL MAPSIOSPACE Validate mapping for adapters 

FUNCTIONAL DESCRIPTION: 

This is routine is called from MAPMfM (MEMMGT) to 
validate those P1 space address that map thru to physical 
I/O space. . . bit 29=1 
For each slot, 16 pages are mapped. 

CALLING SEQUENCE: 

BS8W MAPSIOSPACE 
INPUT PARAMETERS: NONE 

R5 Address of P1 page tables 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 

Updates P1 page tables 
SIDE EFFECTS: NONE 



OODC 


251 


OODC 


252 


OODC 


253 


OODC 


254 


OODC 


255 


OODC 


256 


OODC 


257 


OODC 


258 


OODC 


259 


OODC 


260 


OODC 


261 


OODC 


262 


OODC 


263 


OODC 


264 


CODC 


265 


OODC 


266 


OODC 


267 


OODC 


268 


OODC 


269 


OODC 


270 


OODC 


271 


OODC 


272 


OODC 


27$ 


OODC 


27U 


OODC 


275 


OODC 


276 


OODC 


277 



ZZ-ENSAA-7,0 
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J 13 
MAPSIOSPACE Validate mapping for adapter 27-JUL-1984 inQ/ F ]i h ? c 1 ?7 

*** 0NLY730 NEBULA specific routines 27-JUL-198A 1 5 = 35:27 
MAPSIOSPACE Validate mapping for adapter 23-JUL-1984 16;23:43 



Frame J13 Seguence 2019 
VAX-1i Macro V03-01 Pa 9 e , r ,?x 
DMAl:CSyS0.SYSMAINT30NLY730.MAR;45(6) 



54 OOF 00000 



0000012A f EF 



12 



18 
8F 
7E 
10 
02 
08 
50 



51 54 f-7 8F 
52 A0OO0OO0 8F 
50 10 
FEF9' 

54 00002000 8F 00F7FFFF 8F 



51 7FF0 8F 
52 A0O00000 8F 
50 10 
FED9 1 

18 



BB 
00 
DF 
BB 
F8 
BA 
E9 

78 
DO 
DO 
30 

F1 
FFDO 

3C 
DO 
DO 
30 

BA 
05 



OODC 

OODC 

OODE 

00E5 

00E7 

00E9 

OOFO 

00F2 

OOF 5 

OOF 5 

OOFA 

0101 

0104 

0107 

C107 

0113 

0115 

0115 

011A 

0121 

0124 

0127 

0127 

0129 



279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 

294 
295 
296 
297 
298 
299 

300 
301 



MAPSIOSPACE:: 
PUSHR 
MOVL 

10$; PUSHAL 
PUSHR 
CALLS 
POPR 
BL8C 

ASHL 
MOVL 
MOVL 
BSBW 



# A M<R3,R4> 

* A XF00000,R4 

-(SP) 

# A MR4 

«,FETChJ.ONG 

# A MR3 

R0,50$ 

*-9,R4,R1 

*PTE$M VALJD!PTE$C_UW,R2 

#16,R0~ 

MAPMEMSJOSPACE 



50$: ACBL # A XF7FFFF,4 A X200Q,R4,10$ 



Save 

Lowest slot address 

Address to store longword 

Address to fetch 

Check it out 

Get contents 

Branch if nothing there 

PFN of slot 
PROTECTION 
Map 16 pages 
Call to setup PTE's 

Do each slot 0-63 



MOVZWL 
MOVL 
MOVL 
BSBW 

POPR 
RS8 



tf A XFFE000a-9,R1 ; PFN of unibus A 0760000 
#PTE$M VAL I D!PTE$CJJW,R2; PROTECT ION 
#16, RO" ; Map 16 pages 

MAPMEM$IOSPACE ; Call to setup PTE's 

# A M<R3,R4> 



ZZ-ENSAA-7.0 
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K 13 . 

FETCH LONG Retreive longword from possib 27-JUL-1984 ino/ F ] c c h ? c '5 7 

*** 0NLY730 NEBULA specific routines . 27-JUL-1984 15:35:27 
FETCH^LONG Retreive Longword from possib 23-JUL-1984 16:23:45 



Frame K13 Sequence 2020 

VAX-11 Macro V03-01 _ Pa i*,,\%, 
DMA1:CSYSO.SYSMAINTJONLY730.«AR;45(7) 



04 







012A 


303 






01 2A 


304 






012A 


305 






01 2A 


306 






012A 


307 






01 2A 


308 






012A 


309 






01 2A 


310 






012A 


311 






012A 


312 






012A 


313 






012A 


314 






012A 


315 






012A 


316 






C12A 


317 






01 2A 


318 






012A 


319 






012A 


320 






01 2A 


321 






01 2A 


322 






012A 


323 






012A 


324 






01 2A 


325 






01 2A 


326 






012A 


327 




0000 


01 2A 


328 






012C 


329 


60 39'AF 


9E 


012C 


330 


08 BC 04 BC 


DO 


0130 


331 


50 01 


00 


0135 


332 




04 


0138 


333 






0139 


334 




0000 


0139 


335 


50 04 AC 


7D 


0138 


336 


A0 00660088 8F 


01 


01 3F 


337 


OF 


12 


0147 


338 


CC A1 04 AO 


00 


0149 


339 


7E 


7C 


014E 


340 


OOOOQOOO'EF 02 


FB 


0150 


341 




04 


0157 


342 






0158 


343 


50 0000' 8F 


3C 


0158 


344 




04 


0150 


345 






015E 


346 



++ 



.SBTTL FETCH.LONG Retreive longword from possibly bad address 



FUNCTIONAL DESCRIPTION: 

This routine is used to fetch a longword from the designated location 
It handles machine checks if they occur and return the indicated status 

CALLING SEQUENCE: 

FETCH_LONG( ADDRESS, RESULT) 

INPUT PARAMETERS; 

ADDRESS Address of Longword to fetch 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: 

RESULT Address to store the fetched longword 
IMPLICIT OUTPUTS: NONE 



, ENTRY FETCH„LONG, A M<> 



20$: 



30$: 



M0VA8 
MOVL 
MOVL 
RET 

.WORD 

MOVO 

CMPL 

BNEQ 

MOVL 

CLRQ 

CALLS 

RET 

MOVZWL 
RET 



B*20$,(FP) 
34<AP),a8(AP) 

S A #SS$_NORMAL,R0 



A M<> 

4(AP),R0 

*DS$ MCHK,4(R0> 

30$ - 

4(R0) J2(R1> 

-(SP) 

#2,SYS$UNWIND 



*SS$_RESJGNAL,RO 



Set exception handler 

Fetch 

Success 



Save no registers 

Get signal and mechanism pointers 

Machine check? 

Branch *f not 

Change return code 

Null aras to unwind 

Unwind the stack 

And return 

Let someone else have it 
Return 



ZZ-ENSAA-7.0 
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PURGE DATAPATH 



*** ONLY730 NEBULA specific 
PURGE DATAPATH 



L 13 . «„ 

27-JUL-1984 Fiche 10 

routines 27-JUL-1984 15:35:27 

23-JUL-1984 16:23:43 



Frame Li 3 Sequence 2021 

VAX-11 Macro V03-01 Page 11 

D«A1jCSYS0.SYSMAINTJONLY730.MAR;45<8) 



53 20 A5 

52 28 B3 

52 00000800 8F 

50 01 



DO 
DO 
CO 
7D 
05 



015E 

01 5E 

01 5E 

01 5E 

01 5E 

01 5E 

01 5E 

015E 

01 5E 

015E 

01 5E 

015E 

015E 

01 5E 

C15E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

015E 

01 5E 

015E 

015E 

0162 

0166 

016D 

0170 



348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 



.SBTTL PURGE DATAPATH 

I0CSPURGDATAP - PURGE DATAPATH 

THIS ROUTINE PURGES THE CALLER'S 
DATAPATH ERRORS. IF THERE WAS A 
RETURNED TO THE CALLER, 



BUFFERED DATAPATH. AND CLEARS 
DATAPATH ERROR, THIS FACT JS 



ANY 



INPUTS : 



R5 = UCB ADDRESS 



OUTPUTS: 



R0-R3 ALTERED 

OTHER REGISTERS PRESERVED 

RO LOW BIT CLEAR/SET IF TRANSMISSION ERROR/SUCCESS 

R1 = DPR CONTENTS AFTER PURGE (FOR REGISTER DUMP BY 

R2 = ADDRESS OF START OF ADAPTER MAP REGISTERS (FOR 

R3 = CRB ADDRESS 



CALLER) 
REG DUMP 



BY CALLER) 



JOCSPURGDATAP: 
MOVL 
MOVL 
ADDL2 
MOVQ 
RS8 



UCBSL CRB(R5),R3 ;CRB ADDRESS 

aCRBSC INTD+VEC$L_ADP(R3),R2 ;GET START OF ADAPTER 



* A X80Q, R2 
*1,R0 



Offset address to MAP regs. 
R0=1, R1= 
RETURN 



C043 



ZZ-ENSAA-7.0 

0NLY730 



PURGE DATAPATH 



*** ONLY730 NEBULA specific 
PURGE DATAPATH 



M 13 
27-JUL-1984 Fiche 10 Frame M13 Sequence 2022 

routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-01 ^ A %*2 e ,AL 

23-JUL-1984 16:23:43 DMA1 :[SYS0.SYSMAINT:]QNLY73O,MAR;45(9) 



00000200'EF 

10 A? 

2U A2 0E 



DE 

BO 
05 



00000084 



0171 

0171 
0171 
0171 
0171 
0171 
0177 
0179 
017D 
017E 
017E 



379 
380 
381 
382 
383 
384 
385 

386 
387 

388 

389 



11/750 SPECIFIC UBI INITIALIZATION 
AND ADAPTER BLOCK BUILD 



U8ADP„CPU:: 

MOVAL 

MOVW 
RSB 

U8INTSZ — A X84 



L*SCB BASE+*X?00,- 

ADP$L"VECTOR(R2) 

A XE,ADP$W_DP8ITMAP(R2) 



UBO 

VECTOR SPACE 

MARK DATAPATHS 1-3 AVAILABLE 

RETURN TO COMMON CODE 

Used by QIO 



C06J 



[12] 



ZZ-ENSAA-7.0 
ONLY730 

07-12 
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UBAS1N1T1AL UN1BUS ADAPTER INI TIALJ ZATIO 27-JUL-1984 F jche ]0 Frame N13 Seauence 2023 

*** QNLY730 NEBULA specific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-01 E?8°//ia\ 

UBASINITIAL UNIBUS ADAPTER INI T IALIZATIO 23-JUL-1984 16:23:43 DMA! :CSYSO.SYSMAINT]ONLY730.MAft;4<1O) 



05 



02 



017E 

017E 

017E 

017E 

01 7E 

017E 

017E 

017E 

017E 

017E 

017E 

0176 

017E 

017E 

C17E 

017E 

017E 

017E 

017E 

017E 

017F 

017F 

01 7F 

017F 

017F 

0180 

0180 



391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 



.S8TTL UBASINITIAL 



UNIBUS ADAPTER INITIALIZATION 



UBASINITIAL - UNIBUS ADAPTER INITIALIZATION 

THIS ROUTINE IS CALLED VIA A JS8 INSTRUCTION AT SYSTEM STARTUP AND AFTER 
A POWER RECOVERY RESTART TO ALLOW INITIALIZATION OF UNIBUS ADAPTERS. 

INPUTS: 

R4 = ADDRESS OF UNIBUS ADAPTER CONFIGURATION STATUS REGISTER. 

ALL INTERRUPTS ARE LOCKED OUT, 
OUTPUTS: 

THE UNIBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 



UBASINITIAL:: 
RS8 

IGNORE UNEXPECTED UNJ8US INTERRUPTS 



.ALIGN LONG 

UBASUNEXINT;? 

REI 



;UNIBUS ADAPTER INITIALIZATION 



UNEXPECTED INTERRUPT CODE 
AND RETURN 



7Z-ENSAW.G 

ONLY730 

07-12 



B 14 
iOSTESTCSR.x Test CSR for existence 27-JUL-198A , Flehe 10 

*** ONLY730 NEBULA specific routines 27-JUL-1984 15:35:27 
IOSTESTCSR x Test CSR for existence 23-JUL-1984 16:23:43 



Frame B14 Seguence 2024 
VAX- 11 Macro V03-0T _ A p «S e ,, 1$. 
DMA1:[SYS0.SYSMAINTJONLY730. MAR; 4(11) 



5^ 
61 



02 

00000004 , EF 

61 
GOOOOOOO'EF 

60 



50 



8b 
DE 
DD 
DE 
05 
61 8ED0 
50 DC 
50 D2 
02 BA 
05 



51 
61 



02 
00000004' [F 

61 

00000000'EF 
60 



50 



B8 
DE 
DD 
DE 
B5 
61 8ED0 
50 DC 
50 D2 
02 BA 
05 



0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

018 i 

0181 

0181 

0181 

C181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0183 

018A 

018C 

0193 

0195 

019P 

019A 

019D 

019F 

01A0 
01A0 
01A0 
01A2 
01A9 
01A8 
01B2 
01B4 
0187 
0189 
CISC 
018E 



419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

/.5'i 

4 5? 

45J 

4S4 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 



+ + 



.S8TTL iO$TESTCSR_x Test CSR for existence 



IOSTESTCSR L - TEST A LONGWORD FOR EXISTENCE 
IO$TESTCSRlW - TEST A WORD FOR EXISTENCE IN I/O SPACE 

THIS TEST IS CPU DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 

11/780 - TEST CSR AND CHECK RESULT IN THE U8A STATUS REGISTER 
11/750 - NOM-EXISTENT CSR IS REPORTED VIA MACHINE CHECK AS A 
6 11/730 NON-EXISTENT MEMORY REFERENCE. CONNECT A TEMPORARY 

MACHINE CHECK HANDLER, TEST THE CSR, AND RtSTORE THE 

ORIGINAL MACHINE CHECK HANDLER. 



INPUTS: 

RO 
R6 

OUTPUTS: 

RO 



CSR ADDRESS 

ADAPTER CONFIGURATION REGISTER 



LOW BIT SET/CLEAR FOR EXISTENT/NONEX CSR 
OTHER REGISTERS ARE PRESERVED, 



IOSTESTCSR L:: 

puShr 

MOVAL 

PUSHL 

MOVAL 

TSTL 

POPL 

MOVPSL 

KCOML 

POPR 

RS8 

IOSTESTCSR W:: 

puShr 

MOVAL 

PUSHL 

MOVAL 

TSTW 

POPL 

MOVPSL 

MCOML 

PCPR 

RS8 



**M<R1> 

SC8 8ASE+4,R1 

(R1T 

TST$MCHK,(RD 

(RO) 

(R1) 

RO 

RO,RO 

A M<R1> 



* A M<R1> 

SCB BASE+4,R1 

<R1T 

TST$MCHK,(R1) 

(RO) 

(R1) 

RO 

RO,RO 

#*M<R1> 



Save a register 

Base SCB 

Save previous machine check handLer 

Set machine check handler 

Test for existence 

Restore previous MCHK handier 

Obit set indicates MCHK 

Obit clear indicates ok 

Restore 

Return 



Save a register 

Base SCB 

Save previous machine check handLer 

Set machine check handler 

Test for existence 

Restore previous MCHK handler 

Obit set indicates MCHK 

Obit clear indicates ok 

Restore 

Return 



ZZ-ENSAA-7.0 

0NLY730 

l'7-l? 



lOGENSCONN^VEC 
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27-JUL-1984 Fiche 10 Frame C14 Sequence 2025 

*** ONLY730 NE8ULA specific routines P7-JUL-1984 15:35:27 VAX-11 Macro V03-01 Page 15 

I0GENSC0NN.VEC 23-JUL-1984 16*23:43 0HA1 :CSYS0,SYSMAINTJONLY730.MAft;^(12) 



64 





01BF 


468 




01BF 


469 




01BF 


47^ 




01BF 


4/1 




01BF 


472 




018F 


473 




01BF 


474 




01BF 


475 




01BF 


476 




01BF 


477 




01BF 


478 




01BF 


479 




01BF 


480 




01BF 


481 




C1BF 


482 




018F 


483 




018F 


484 




018F 


485 




018F 


486 




018F 


487 




01BF 


488 




018F 


489 




01BF 


490 


OOOOOOOO'EF BO 


018F 


491 


60 64 ^E 


0U6 


492 


05 


01C9 


493 



t + 



♦S8TTL JOGEN$CONN_VEC 



IOGEN$CONN_VEC - CONNECT A UNI8US INTERRUPT DISPATCHER TO A VECTOR 

THJS SUBROUTINE IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED; 

11/780 - CONNECT VECSQ DISPATCH+2 (JS6 3#) TO VECTOR 
11/750 - CONNECT VEC$(TDISPATCH (PUSHR) TO VECTOR 

FOR ALL CPU'S, PUSHR # A M<R2,R3,R4,R5> IN THE INTERRUPT DISPATCH BLOCK 
IS CHANGED TO PUSHR A M<RO,R1 ,R2,R3,R4,R5>. 

INPUTS: 

RO = ADDRESS OF VECTOR TO CONNECT 

R4 = ADDRESS OF INTERRUPT DISPATCH BLOCK IN CRB 

OUTPUTS: 

ALL REGISTERS PRESERVED 



IOGENSCONN VEC:: 

M05W UBINT DISP,VECS>Q DISPATCH(R4) 

M0VA8 VEC$<rDJSPATCH(RS),(RO> 

RS8 



CHANGE PUSHR TO PUSH R0-R5 
CONNECT PUSHR TO VECTOR 
RETURN 



r 

ZZ-ENSAA-<\U 

ONLY?!,0 



GIQCtEAN.CPU 



33 

50 0080 8F 

65^0 00000000^40 

EF 50 00000180 8F 

53 0000' CF 



50 



63 



»" 0NLY730 NE8ULA 
Q10CLEAN.CPU 



D 14 

27-JUL-1984 Ffche 10 Frame D14 Sequence 2026 

specific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-0T Page 

P 23-JUL-1984 16.-23:43 DMA1 :CSYS0.SYSMAJNT3ONLY73O.MAR;4( 



16 
13) 



63 

09 

04 AO 

FEOD' 

F2 

33 



BB 
3C 
DE 
F2 
DE 

DO 
13 

DO 
30 
11 

BA 
05 



OKA 
OKA 
01CA 
01CA 
OKA 
OKA 
OKA 
OKA 
01CC 
01D1 
01 DA 
01E2 
01E7 
01E7 
C1EA 
01EC 
01F0 
01F3 
01F5 
01F5 
01F7 



495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 



.S8TTL GIOCLEAN,CPU 

CPU SPECIFIC QIO CLEANUP 
R4 = SCBJMA6E 
R5 = SCB_BASE 



QIOCLEAN CPU:: 
PUSHR 
MOVZWL 

10$: MOVAL 
A08LSS 
MOVAL 



20$: 



30$: 



MOVL 
BEQL 
MOVL 
BS8W 
BR8 

POPR 
RS8 



rf A M<R0,R1,R4,R5> 

#<512/4>,R0 

SCB UNKIN)[R0],(R5)CR0J 

*3*<512/4>,R0,10$ 

W A I0C$GL_ADPLJST,R3 

(R3>,R0 

30$ 

ADP$L LINK(R0),<R3> 

QI0$DEALL0CATE 

20$ 

#*M<R0,R1,R4,R5> 



SAVE R0,R1,R4,R5 ^ 

Start with SCB page 2, offset A X200 
Re-fiLt SCB with pointer to UNKJNT 
Fill 2 SCB vector pages 
POINT TO THE ADAPTER HEADER 

POINT TO THE FIRST ADAPTER BLOCK 

FINISH IF EMPTY 

LINK TO THE NEXT 

RELEASE THE ADAPTER CONTROL BLOCK 

RELEASE THEM ALL 



; RESTORE 
; Return 



RO,R1,R4,R5 



ZZ-ENSAA-7.0 

ONLY730 
07-12 



EH , 

ONLY^SCB CPU specific SCB setup 27-JUL-1984 Fiche 10 

*** 0NLY730 NEBULA specific routines 27-JUL-1984 15:35:27 
ONLY SC8 CPU specific SC8 setup 23-JUL-1984 16:23:43 



Frame E14 Sequence 2027 
VAX-11 Macro V03-0T Paoe 17 
DMA1:CSYS0.SYSMAINTJ0NLY730.MAR;4(H) 



05 



01F8 517 

01F8 518 :++ 

01F8 519 

01F8 520 

01F8 521 

01F8 522 

01 f 8 523 

01F8 524 

01F8 525 0NLY_SC8:: 

01F8 526 RSB 



.SBTTL ONLY^SCB CPU specific SCB setup 
FUNCTIONAL DESCRIPTION: 

Does nothing for the case of NEBULA. 



[08] 



[08] 

[08] 
[08] 



ZZ-ENSAA-7.0 

ONLY730 
07-12 



F 14 

SCBVECTOR.xxx Otherwise undefined SCB ve 27-JUI-1984 10Q/ F | c c h fr 1 § 7 F C??! e ii 1 M a ™ unx S nT enCe 2 ° 2 L aP Ifi 

*** ONLY730 NEBULA specific routines 27-JUL-1984 15:35:27 VAX-11 Macro V03-01 \ t a >% e ,,l?y 

SCBVECTORlxxx Otherwise undefined SCB ve 23-JUL-1984 16:23:43 DMA1 :CSYS0.SYSMAINT]ONLY730.MAfi;4<15> 







01F9 


528 






01F9 


529 






01F9 


530 






01F9 


531 






01F9 


532 






01F9 


533 






01F9 


534 






01F9 


535 






01F9 


536 






01F9 


537 






01F9 


538 






01F9 


539 






01F9 


540 






01F9 


541 






C1F9 


542 






01F9 


543 






01F9 


544 






01F9 


545 






01F9 




7A 


10 


01FC 






0000 


01FE 








0200 


546 


76 


10 


0200 






0038 


0202 








0204 


547 


72 


10 


0204 






003C 


0206 








0208 


548 


6E 


10 


0208 






0050 


020A 








020C 


549 


6A 


10 


020C 






0054 


020E 








0210 


550 


66 


10 


0210 






0058 


0212 








0214 


551 


62 


10 


0214 






005C 


0216 








0213 


552 


5E 


10 


0218 






0060 


021A 








021C 


553 


5A 


10 


021C 






0064 


021E 








0220 


554 


56 


10 


0220 






0068 


0222 








0224 


555 


52 


10 


0224 






006C 


0226 








0228 


556 


4E 


10 


0228 






0070 


022A 








022C 


557 


4A 


10 


022C 





+ + 



.SBTTL SCBVECTOR.xxx Otherwise undefined SCB vectors 



FUNCTIONAL DESCRIPTION: 

These interrupt entry points declare unexpected exceptions 
for all unused SCB vectors. 



.LIST MEB,MC 



, MACRO 
.ALIGN 



SPAREVECTOR 
LONG 



540 SCBVECTOR '0FFSET'==.+JS 



B58B 

.WORD 

.ENDM 



COMMON, SCB 
A X'0FF3ET' 



000 



SPAREVECTOR 
.ALIGN L0N6 
BS8B COMMON.SCB 
.WORD A X000 
SPAREVECTOR 038 
BS88 COMMON.SCB 
.WORD A X038 
SPAREVECTOR 03C 
BSBB COMMON SCB 
.WORD A X03C " 
SPAREVECTOR 050 
BSBB COMMON.SCB 
.WORD A X050 
SPAREVECTOR 054 
BSBB COMMON.SCB 
.WORD A X054 
SPAREVECTOR 058 
BS88 COMMON.SCB 
.WORD A X058 
SPAREVECTOR 05C 
BSBB :OMMON.SCB 
.WORD -*X05C 
SPAREVECTOR 060 
BSBB COMMON.SCB 
.WORD A X060 
SPAREVECTOR 064 
BSBB COMMON.SCB 
.WORD A X064 
SPAREVECTOR 068 
BS8B COMMON.SCB 
.WORD A X068 
SPAREVECTOR 06C 
BSBB COMMON.SCB 
.WORD A X06C 
SPAREVECTOR 070 
BSBB COMMON.SCB 
.WORD A X070 
SPAREVECTOR 074 
BSBB COMMON.SCB 
.WORD A X074 



OFFSET 



Enter common handler 



Enter common handler 
Enter common handler 
Enter common handler 
Enter common handler 
Enter common handler 
Enter common handler 
Enter common handler 
Enter common handier 
Enter common handler 
Enter common handler 
Enter common handler 
Enter common handler 
Enter common handler 



ZZ-EN~AA-7.0 

ONLY?^0 
07-12 



G 14 
SC8VECT0R xxx Otherwise undefined SCB ve 27-JUI-1984 

*** ONLY730 NEBULA specific routines 27-JUL 
SCBVECTOR xxx Otherwise undefined SCB ve 23-JUL 



6E 





0230 


558 


SPAREVECTOR 078 


46 10 


0230 




BSB8 COMMON SCB 


0078 


0232 




♦WORD A X078 " 




0234 


559 


SPAREVECTOR 07C 


42 10 


0234 




BSB8 COMMON^SCB 


007C 


0236 




.WORD A X07C 




0238 


560 


SPAREVECTOR 080 


3E 10 


0238 




BSB8 COMMON SCB 


0080 


023A 




.WORD A X080 




023C 


561 


SPAREVECTOR 0C4 


3A 10 


023C 




BS88 COMMON.SCB 


00C4 


023E 




.WORD A X0C4 




0240 


562 


SPAREVECTOR 0C8 


36 10 


0240 




BSBB C0MM0N.SC8 


00C8 


C242 




.WORD A X0C8 




0244 


563 


SPAREVECTOR OCC 


32 10 


0244 




BSBB COMMON.SCB 


oocc 


0246 




.WORD A XOCC 




0248 


564 


SPAREVECTOR ODO 


2E 10 


0248 




BSB8 C0MM0N.SC8 


00D0 


024A 




.WORD A XODO 




024C 


565 


SPAREVECTOR 0D4 


2A 10 


024C 




BSB8 COMMON.SCB 


0004 


024E 




.WORD A X0D4 




0250 


566 


SPAREVECTOR 0D8 


26 10 


0250 




BS88 COMMON SCB 


00D8 


0252 




.WORD A X0D8 




0254 


567 


SPAREVECTOR ODC 


11 10 


0254 




BS88 COMMQN^SCB 


OODC 


0256 




.WORD A XODC 




0258 


568 


SPAREVECTOR OEO 


1E 10 


0258 




BSBB COMMON.SCB 


OOEO 


025A 




.WORD A X0E0 




025C 


569 


SPAREVECTOR 0E4 


1A 10 


025C 




BS88 C0MM0N..SC8 


00E4 


025E 




.WORD A X0E4 




0260 


570 


SPAREVECTOR 0E8 


16 10 


0260 




BS88 COMMON.SCB 


00E8 


0262 




.WORD A X0E8 




0264 


571 


SPAREVECTOR OE C 


12 10 


0264 




BSBB COMMON. SC8 


OOEC 


0266 




.WORD A XOEC 




0268 


572 


SPAREVECTOR OFO 


OE 10 


U268 




BSBB C0MM0N.SC8 


OOFO 


026A 




.WORD A X0F0 




026C 


573 


SPAREVECTOR 0F4 


OA 10 


026C 




BSBB COMMON SC8 


00F4 


026E 




.WORD A X0F4 




02/0 


574 


SPAREVECTOR 0F8 


06 10 


0270 




BSB8 COMMON. SCB 
.WORD A X0F8 


OOF 8 


0272 






0274 


575 


SPAREVECTOR OFC 


02 10 


0274 




BSB8 COMM0N„SC8 


OOFC 


0276 




.WORD A X0FC 




0278 


576 


COMMON SCB: 


00 BE 3C 


0278 


577 


MOVZWL a<SP>,<S?) 


FD8T 31 


027C 


578 


BRW EXE.UNEXPiNT 



Fiche 10 Frame G14 Sequence 2029 \ 

1984 15:35:27 VAX-11 Macro V03-01 _ Page 19 j 

>1984 16:23:43 DMA1 j[SYS0.SYSMAINTJONLY73O*MAR;4(15) 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter common handler 



Enter Lommon handler 



Ent.^r common handler 



Ei . er common handler 



iter common handler 



nter common handler 



Enter u-iim^ handler 



Enter common handler 



Enter common handler 



; Get vector offset 

; Generate unexpected interrupt 



ZZ-ENSAA-7,0 
0NLY730 
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ONLY CLOCK INI T Perform cDu-specifk TOD 27-JUL-1984 Fkhe 10 Frame H14 Sequence 2030 

UNLY^llulr.inii ^rrorm c^u s^ec c , f . routines 27-JUL-1984 15:35:27 VAX-11 Macro V05-0T ^ £*9 e ^^ 

0NLY.CL0CKJNIT Perform cpu-specifk TOD 23-JUL-1984 16:23:43 DMA1 :[SYS0.SYSMAINT]ONLY730.MAfi;4<15) 



027F 


580 


027F 


581 


0?7F 


382 


027F 


583 


027F 


584 


027F 


585 


027F 


586 


027F 


587 


027F 


588 


027F 


589 


027F 


590 


027F 


591 


027F 


592 


027F 


593 


C27F 


594 


027F 


595 


027F 


596 


027F 


597 


027F 


598 


027F 


599 


027F 


600 


027K 


601 


027F 


602 


027F 


603 


027F 


604 


027F 


605 


027F 


606 


027F 


607 


027F 


608 


027F 


609 


027F 


610 


027F 


611 


027F 


612 


027F 


613 


027f 


614 


027F 


615 


027F 


616 


027F 


617 



+ + 



.S8TTL ONLYJLOCKJNIT Perform cpu-specifk T0DR initialization 



begin C1 1 3 



FUNCTIONAL DESCRIPTION: 

This routine only reads the TODR with an MFPR. 
CALLING SEQUENCE: 

JS8 ONLY..CLOCKJNIT 
INPUT PARAMETERS: 

None 
IMPLICIT INPUTS: 

None 
OUTPUT PARAMETERS: 

RO = Contents of TODR 
IMPLICIT OUTPUTS: 

None 
COMPLETION CODES: 

None 
SIDE EFFECTS: 

None 
REGISTER USAGE: 

RO Contents of TODR 



ZZ-ENSAA-7.0 

ONLY730 

07-12 



I H 
ONLY.CLOCK.INIT Perform cpu-specifk TOD 27-JUL-1984 F iche 10 

*** 0NLY730 NEBULA specific routines 27-JUL-1984 1 5 : 35 :27 
ONLY CLOCK INI T Perform cpu-specific TOD 23-JUL-1984 16;23:43 



Frame JH Sequence 2031 

VAX-11 Macro V03-01 _ p ?9 e ,iL 
DMA1jCSYS0.SYSMAINTJONLY730.«AR;^(15) 



027F 619 ONLY CLOCK 1NIT;: 

50 1Q DB 027F 620 ~ MFPR #PR730$_TODR,R0 

05 0282 621 RS8 

0283 622 .END 



Fetch the TODR 



CI 1 3 

£113 
C113 



ZZ-ENSAA-7.0 
ONLY730 
Symbol table 

$ER = 

$ MODULE 

ADPSB NUMBER 

ADPSB~PORT 

ADPSB~TYPE 

ADPSC DRADPLEN 

ADPSC~MBAADPLEN 

ADPSC~MPMADPLEN 

ADP$C~UBAADPLEN 

AOP$KlORADPLEN 

ADPSK MBAADPLEN 

ADPSlTMPMADPLEN 

ADPSK UBAADPLEN 

ADr$L"CRB 

ADPSL""CSR 

ADP$L"DPQBl 

ADPSL'DPQFL 

adpsl"intd 
adpsl^link 

ADPSL MRQBl 

adpsl'mrqfl 
adpslIprqqbl 
adpsl prqqfl 

ADPSL~$H8 
ADPSLlVECTOR 
ADPSW ADPTYPE 
ADPSW DPBHMAP 
ADPSWJWBITMAP 
ADPSW_SIZE 
ADPSW TR 

en,,: 

BUGSCHECK 
CMKSRCONSOLE 
CMKSTCONSOIE 
COMMON SCB 
CONFIGlEXJT 

CONFIG RELEASE 
CRBSB MASK 
CRBSB~TYPE 
CRBSC^LENGTH 
CRBSK LENGTH 
CRBSLllNTD 
CRBSL INTD2 
CRBSL^LINK 
CRBSL.WQBL 
CRBSL WQFL 
CRBSW~REFC 
CRBSWlSIZE 

DIR.., 

DSSGK..SID 
DSSGK USOVR 
DSSKjRROR 
DSS* NORMAL 
DSSKlSEVERE 
OSSK.SUB5YS 
DSSK WARNING 
DSSWRITUS 



Symbol table 



00000002 

OOOOOOCO i 

OOOOOOOB 

00000020 

OOOOOOOA 

00000014 

OOOOOOH 

00000070 

00000070 

OOOOOOH 

OOOOOOH 

00000070 

00000070 

00000010 

00000000 

00000018 

OOOOOOH 

00000064 

00000004 

00000020 

0000001 C 

00000018 

OOOOOOH 

0000001 C 

00000010 

OOOOOOOE 

00000024 

00000026 

00000008 

OOOOOOOC 

00660130 

******** 
******** 
******** 

00000278 
OOOOOOAA 
0000009D 
OOOOOOOE 
OOOOOOOA 
00000038 
00000038 
OOOOOOH 
00000038 
00000010 
00000004 
00000000 
OOOOOOOC 
00000008 
FFFFFFFF 

03000000 
00000200 
00000002 
00000001 
00000004 
00000066 
: 00000000 
******* * 



D 

D 
D 
D 
D 
D 

D 
D 

D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
U 
D 
D 
D 
D 
D 
D 
X 
X 
X 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
G D 
G D 
D 
D 


D 
X 



*** 



03 



ONLY730 NEBULA specific 



J H 

27-JUL-1984 Fiche 10 

routines 27-JUL-1984 15:35:27 

23-JUL-1984 16:23:43 



Frame JH Sequence 2032 
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DMA1:CSYS0.SYSMAINT3ONLY730,MAR;4(15) 



00 
00 
00 
04 
04 
04 



00 



DSS ARJTH 

DSSIASBE 

DSS,BADLINK 

DSS.BADTYPE 

DS$_BJK 

DSS CHME 

DSS CHMK 

DSS~DEVNAME 

DSS"ERROR 

DS$"FHWE 

D$S~F<MG8UF 

DSSlKBUSY 

DSSJCERR 

DSS IHWE 

DSSJLLCHAR 

DSSllLLPAGCNT 

DSSJLLUNJT 

DSS JNSFMEM 

DSS~IPL2HI 

DSSJVADDR 

DSS JVVECT 

DSSJCRNLSTK 

DSS LOGIC 

DSS MCHK 

dss;mmoff 
dssjjeedunjt 

DSS NODE 
DSS NOPCS 
DSS^NORMAL 
DSS.NOSUPPORT 

DSS NOTDON 

DSS NOTJMP 

DSSlNULLSTR 

DSS OVERFLOW 

DSS^POWER 

DSS PROGERR 

DSS SEVERE 

DSS TftANSL 

DSSlTRUNCATE 

DSSJJNEXPJNT 

DSS VASFULL 

DSS WARNING 

DSPJCONFIG.ADP 

DS ERRSUP 

DW730SK LEN 

EXE SAL OflONPAGED 

EXESDEANONPAGED 

EXE UNEXPINT 

FE TtH_L0NG 

FETCH STORE 

HANDLR 

HPSA DEPENDENT 

HPSA"*DEVICE 

HPSA"DVA 

HPSA~LJNK 

HPSB~DRJVE 

HP$B"FLAGS 



006600DO 
00660118 
006600FO 
006600E8 
00660120 
006600A8 
006600EO 
00660108 
00660002 
00660068 
00660080 
006600C8 
006600CO 
00660060 
00660018 
00660078 
00660100 
00660050 
006600B8 
00660040 
00660038 
00660090 
00660070 
00660088 
00660058 
006600F8 
00660128 
00660110 
00660001 
00660081 
00660030 
006600B0 
0660010 
.0660008 
00660098 
00660020 
00660004 
006600A0 
00660028 
006600D8 
00660048 
00660000 

00000000 

* ******* 

00000032 

******** 

******** 
******** 

000001 2A 

******** 

OOOOOOAB 
00000032 

mi 

00000020 
00000008 
OOOOOOOA 



:| 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
RG D 04 
X 

D 
X 
X 
X 



R 



00 

00 
00 
00 



RG D 04 



00 
04 



HPSQ DEVICE 

HPSrDEVICE 

HPST TYPE 

HPSW~SIZE 

HP$W~VECTOR 

INSSPTABLE 

IOSGQ PHYSICAL 

I0STE5TCSR.L 

IOSTESTCSR^W 

IOCSGL ADPtlST 

IOCS* TOSPACE : 

IOCSPDRGDATAP 

I0GENSC0NN.VEC 

IS i 

LOCAL. STORE 

L„CONFjG 

L.IPL 

L, LOCAL 

L'VECTOR 

MflPSIOSPACE 

MAPMEMSIOSPACE 

ONlY_CLOCKJNIT 

ONLY SCB 

PRS TPL 

PR730S TODR 

PTESC^OW 

PTESMJO 

PTESM VALID 

PTESV JO 

QIOSDEALLOCATE 

QIOCLEAN^CPU 

SAVABS... 

SCBVECTOR 000 

SCBVECT0R„038 

SCBVECTOR 5Sc 

SCBVECTOR 550 

SCBVECTOR 654 

SCBVECT0R.058 

SCBVECTOR,05C 
SCBVECTOR 060 
SCBVECTOR J)64 
SCBVECT0ft:068 
SCBVECTOR J6C 
SCBVECT0RJ>70 = 
SCBVECTOR. 074 



SCBVECTOR 078 = 



8 



00000000 
OOOOOOOC 
00000026 
00000008 
00000024 
******** 

00000008 

00000181 

000001AO 
******** 

40000000 
000001 5E 
000001BF 
00000001 
00000000 
FFFFFFF4 
FFFFFFF8 
FFFFFFF4 
FFFFFFFC 
OOOOOODC 
******** 

0000027F 
000001F8 
00000012 
0000001 B 
20000000 
00100000 
80000000 
00000014 

******** 

000001 CA 
FFFFFFF4 
000001 FD 
00000201 

00000209 
0000020D 
0000021 1 
00000215 
00000219 
0000021 D 
00000221 

!»§ 

ioooo?; 



scbvector;o7c 

scbvector.q80 = 

scbvect0rjc4 = 

SCBVECTOR Jc8 = 

SCBVECTORIQCC * 

SCBVECTORZODO = 

SCBVECTOR JD4 = 

SCBVECTOR JD8 = 

SCBVECTOR 6dC = 

SCBVECTORIOEO = 

SCBVECT0R.0E4 = 




..JOl. 

OQOOOi 

)0000i 

)000( 

)000( 

)000l 

OOOOOi 



D 




D 




D 




D 




D 




X 


00 


RG D 


03 


RG D 


04 


RG D 


04 


X 


00 


G D 




RG D 


04 


RG D 


04 


D 




R D 


02 


D 




D 




D 




D 




RG D 


04 


X 


00 


RG D 


04 


RG D 


04 


D 




D 




D 




D 




D 




D 




X 


00 


RG D 


04 


D 




RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 


RG D 


04 



ZZ-ENSAA-7,0 
0NLY730 
Symbol table 

SCBVECT0RJ)E8 - 
SC8VECT0R OEC = 
SCBVECTOR,0F0 = 
SCBVECTORJ5F4 = 
SCBVECTOR,0F8 = 
SCBVECTOR OFC = 
SCB BASE 
SCB*'1MAGE 
SCB'UHKINT 
SI2T. • = 
SSS CONTINUE 
SSS~CONTROLC 
SSS CTRLERR 
SSS DATACHECK 
SSS~NORMAL = 
SSS~RE SIGNAL 
SYS5SETPRT 
SYSSUNWIND 
TSTSMCHK 

UBAS1NITIAL 

UBASUNEXINT 

UBADP CPU 

UB1NTS2 

UBINT^DISP 

UCBSB AMOO 

UCBSB~CEX 

UC8SB,CM1 

UCBS8,CM2 

UCBSB DEVCLASS 

UCBSB"OEVTYPE 

UCBSBlOIPL 

UCBBB DX SCTCNT 

UCBSBlERTCNT 

UCBSB ERTMAX 

UCBSBlFEX 

UCBSBJIPL 

UCBSB LOCSRV 

UCBSB^OFFNDX 

UCBSBJDFFRTC 

UCBSB REMSRV 

UCBSBlSECTORS 

UCBSB SLAVE 

UCBSB^SPR 

UC8SB„STATE 

UCBSB TRACKS 

UCBSB"TT w CRFILL 

UCBSB'TT OECRF 

UCBSB*"TT,DELFF 

UCBSB"TT_DESPEE 
UCBSB TTDETYPE 
UCBSBlTT^LFFRL 
UCBSB TT SPEED 
UCBSBlTYPE 
UCBSBlVERTSZ 
UCBSC,LENGTH 
UCBSC MB.tfMGTH 
UCB$C"TT,LENGTH 



Symbol table 



00000261 
00000265 
00000269 
00000260 
00000271 

00000275 

******** 

******** 
******** 

00000001 

******** 

** ****** 
******** 
******** 

0OO0OO01 

******** 

******** 
******** 

******** 

000001 7E 
00000180 
00000171 
000000B4 
** ****** 

00000053 

00000077 

0000004A 

0000004B 

00000038 

00000039 

00000052 

000000A6 

00000070 

00000071 

00000076 

00000008 

0000003C 

00000094 

00000095 

0000003D 

0000003C 

00000074 

00000075 

00000052 

0000003D 

0000009D 

000000A1 

000000A2 

0U0000A0 

000000A4 

0000009E 

0000009C 

OOOOOOOA 

0000003F 

00000074 

00000090 

OOOOOOBC 



RG 
RG 
RG D 
RG D 
RG 
RG D 

X 

X 

X 
D 

X 

X 

X 

X 
D 

X 

X 

X 

X 

RG D 

RG D 

RG D 

G D 

X 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 



*** 



04 
04 
04 
04 
04 
04 
00 
00 
00 

00 
00 
00 
00 

00 
00 
00 
00 
04 
04 
04 

00 
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UCBSK 
UCBSK 
UCBSK 

ucbsl; 

UCBSL, 

UCBSL., 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL^ 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL, 

UCBSL. 

UCBSL, 

UCBSL 

UC8SL. 

UCBSL, 

UCBSL, 

UCBSL 

UCBSL. 

UCBSL, 

UCBSL, 

UCBSL, 

UCBSL 

UCBSL, 

UCBSL. 

UCBSL, 

UCBSL, 

UCBSL 

UCBST 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 



LENGTH 
MB LENGTH 
TTlENGTH 
AMB 
ASTQ8L 
ASTQFL 
CPJD 
CftB 
DDB 

DEVCHAR 
DEVDEPEND 
'DPC 

.DUETJM 
DX BFPNT 
'DXlBUF 
DXRXDB 
'EMS 
FIRST 
.FPC 
FG8L 
FQFL 
'FR3 
FR4 
;i0Q8L 
IOQFL 
JRP 
[LINK 
LOGADR 
MAXBLOCK 
"MB,M8X 
MB PORT 
"MB~RAST 

;mb w shb 

MB,WAST 
IMB.WIOQBL 

MB WIOGFL 
IMEPJA 

NT DATSS8 
"NT-INTSSB 
"OPtNT 
^OWNUJC 
IPID 

RQ8L 
tt RQFL 

SVAPTE 
~SVPN 

TT DECHAR 
ItTRDUE 
^TrRTJMOU 
>C8 

PARTNER 
IBCNT 
„BCR 

BOFF 

BUFOUO 

BYTESTOGO 

CHARGE 



00000074 

00000090 

OOOOOOBC 
00000054 

00000010 

OOOOOOOC 

0000005C 

00000020 

00000024 

00000034 

0000003C 

00000080 

0000005C 

0000009C 

00000098 

OOOOOOAO 

00000078 

00000014 

OOOOOOOC 

00000004 

00000000 

00000010 

00000014 

00000044 

00000040 

0000004C 

0000002C 

00000064 

00000084 

0000007C 

0000008C 

00000078 

00000080 

00000074 

8S88888Z 

0000008C 
00000074 
00000078 
00000060 
0000001 C 
00000028 
O00Q0OO4 

OOOQOOOO 
00000068 
00000064 



lOOC 
J06B 
I0Q96 
. I006C 
00000018 
0000003E 
0000004A 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



UCBSW, 

UCBSW, 

UCBSW, 

UCBSW. 

UCBSW, 

UCBSW. 

UCBSW. 

UCBSW, 

UCBSW. 

UCBSW, 

UCBSW 

UCBSW, 

UCBSW 

UCBSW. 

UCBSW, 

UCBSW 

UCBSW, 

UCBSW, 

UC8SW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

VECSB 

VEC<8 

VECSC 

VECSK 

VECSL 

VECSL 

VECSL 

VECSL 

VECSL 

VECSL 

VECSQ 

VECSW 



CYLINDERS 

DA 

DC 

DEVBUFSI2 

DEVSTS 

DIRSEQ 

DSTADDR 

DX.BCR 

ECT 

EC2 

ERRCNT 

FUNC 

MB SEED 

MSBCNT 

MSGMAX 

NT CHAN 

;ofFset 

REFC 
SI2- 
'SRCADDR 

sts 

'tt desize 

UNIT 

;vprot 

DATAPATH 

;numreg 

.LENGTH 

LENGTH 

ADP 

IDB 

INITIAL 

START 
lUNJTDISC 
.UNITINIT 

DISPATCH 
"MAPREG 



0000003E 

0000008C 

0000008E 

0000003A 

0000005A 

00000088 

00000018 

0O0000A4 

00000090 

00000092 

00000072 

0000007E 

00000000 

00000016 

00000014 

0000007C 

0000008A 

00000050 

00000008 

OOOOOOU 

00000058 

000000A5 

00000048 

OOOOOOIA 

00000013 

00000012 

00000024 

00000024 

00000014 

00000008 

OOOOOOOC 

OOOOOOU 

00000020 

00000018 

00000000 

00000010 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



.„. „-. . i 



ZZ-ENSAA-7.0 

ONLY730 

Hsect synopsir. 



Psect synopsis 



*** 



L 14 
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24 



PSECT name 

ABS , 
SABS$ 

WORK 
DATA 
CODE 



Allocation 

00000000 
FFFFFFFC 
00000004 
O0000010 
00000283 



+ — -+ 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOP1C USR 

0.) 01 ( 1.) NOPIC USR 

4,) 02 ( 2.) NOPJC USR 

16.) 03 ( 3.) NOPJC USR 

643.) 04 ( A.) NOPIC USR 



fON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


CON 


REL 


LCL 


SHR 


EXE 


RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC LONG 

N0W3T NOVEC LONG 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.0 

ONLV730 

I ross reference 



Cross reference 



*** ONLY730 NEBULA specific 



M 14 
27-JUL-1984 Fiche 10 

routines 27-JUL-1984 15:35:27 

23-JUL-1984 16:23:43 



Frame M14 Sequence 2035 
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SYMBOL 


VALUE 


DEFINITION 


$ER 


=00000002 


201 (3) 


SMODULE 


00000000-R 


132 (1) 


ADPSL LINK 


00000004 




ADPSL VECTOR 


00000010 




ADPSUfDPBlTMAP 


00000024 




BIT..: 


=00660130 


94 (1) 


BUGKHECK 


00000000-XR 




CMKSRCONSOLE 


00000000-XR 




CMKSTCONSOLE 


00000000-XR 




COMMON^SCB 


00000278-R 


576 (15 



config exit 
config"release 

crbslJntd 

DIR... 
DS$GK SID 

dssgk~us0vr 
dssk Error 

DSSK~NORMAl 

dssOevere 
dssk subsys 
dssk warning 
dsswaitus 

DSS ARiTH 

DSS^ASBE 

DSS_BADLINK 

OSS^BADTYPE 

DSS BIIC 

DSS~CHME 

DS$_tHMK 

dss devname 
ds$;error 

DSS FHWE 

DSS~FRAGBUF 

DSS"ICBUSY 

DSS^ICERR 

DSSJHWE 

DSSJLLCHAR 

DSSIILLPAGCNT 

DSSJLLUNJT 

DSS INSFMEM 
DSSIIPL2HI 
DSS IVADDR 
DSSllVVECT 
DSS KRNLSTK 



+ —„„-,...—...—-— — -♦ 

! Symbol Cross Reference ! 
+--• .-- . — -- . — — —————+ 

REFERENCES... 

#-201 (3) 

201 (3) 

#-510 (13) 

#-385 (9) 

#-386 (9) 

88 (1> 94 (1) 

111 (1) 

111 (1) 

111 (1) 

#-545 (15) #-546 (15) 

#-550 (15) #-551 (15) 

#-555 (15) #-556 (15) 

#-560 (15) #-561 (15) 

#-565 (15) #-566 (15) 

#-570 (15) #-571 (15) 

#-575 (15) 



#-547 


(15) 


#-548 


(15) 


#-549 


(15) 


#-552 


(15) 


#-553 


(15) 


#-554 


(15) 


#-557 


(15) 


#-558 


(15) 


#-559 


(15) 


#-562 


(15) 


#-563 


(15) 


#-564 


(15) 


#-567 


(15) 


#-568 


(H) 


#-569 


(15) 


#-572 


(15) 


#-573 


(15) 


#-574 


(15) 



OOOOOOAA-R 


233 


(3) 


H-227 


(3) 


0000009D-R 


229 


(3) 






00000014 






#-374 


(8) 


zFfffntf 


182 


(2) 


182 


(2) 


=03000000 


109 


(1) 






=00000200 


103 


(1) 






=00000002 


94 


(1) 






=00000001 


94 


(1) 






-00000004 


94 


(1) 






=00000066 


94 


(1) 


94 


(1) 


=00000000 


94 


(1) 






OOOOOOOO-XR 






111 


(1) 


=00660000 


94 


(1) 






=00660118 


94 


(1) 






=006600F0 


94 


(1) 






-•006600E8 


94 


(1) 






=00660120 


94 


(1) 






=006600A8 


94 


(1) 






=006600EO 


94 


(1) 






=00660108 


94 


(1) 






=00660002 


94 


(1) 


#-202 


(3) 


=00660068 


94 


(1) 






=00660080 


94 


(D 






=006600C8 


94 


(1) 






=006600C0 


94 


(1) 






=00660060 


94 


(1) 






=00660018 


94 


(1) 






=00660078 


94 


(1) 






=00660100 


94 


M) 






=00660050 


94 


(1) 






=00660088 


94 


M) 






=00660040 


94 


(1) 






--00660038 


94 


(1) 






^00660090 


94 


(1) 







#-232 



(3) 



7Z-ENSAA-7.0 

ONLY730 

I ross reference 

OSS LOGIC * 

0SS~MCHK : 

0S$"MM0FF s 
0SS"*NEE0UNIT 

D$$""NODE = 
DSS.NOPCS 
DS$ NORMAL 
DS$~NOSUPPORT = 

DSS^NOTDON 

0S$"NOTiMP 

OSS"NULLSTR 

OSt"OVERFLOW 

DS$~POWER 

DS$ PROGERR 

DS$~SEVERE 

OS$~TRANSL 

DSS'TRUNCATE 

ns$"UNEXPlNT 

DSS^VASFULL 

OS$~WARNING 

DSPlCONFIG ADP 

OS F.RRSUP 

0W730SK LEN 

EXESALONiONPAGED 

EXESOEANONPAGED 

EXE UNEXPINT 

FETfN 



Cross reference 



*** ONLY730 NEBULA specific 



'STORE 



FFTCH 

manolR 
hp$a device 

HP$A""OVA 
HP$A~LIN', 

HP$cfDf;\/ice 

HPST'DEVICE 
H ST'TYPE 
HP%fS17E 
!iP$W VECTOR 
INSSPTABLE 

iosgq physical 

io$te3tcsr_l 
io$t6stcsr w 
!CC$Gl adpCist 

IOC$< TOSPACE 
IOCSPURGOATAP 

lOGENSCONN.VEC 

IS 



:00660070 
^00660088 
:00660058 
;006600F8 
=00660128 
■00660110 
=00660001 
=00660081 
=00660030 
=00660080 
=00660010 
=00660008 
=00660098 
=00660020 
=00660004 
=006600A0 
=00660028 
=00660008 
=00660048 
^00660000 
00000000- 
O0000000- 
C0000032 
00000000- 
00000000- 
00000000- 
000001 2A< 
00000000- 
O000OOA8- 
G0000018 
0000001 C 
VJ000020 
jOOOOOOO 
OO0OOO0C 
00000026 
00000008 
00000024 
00000000 
00000008 
00000181 
000001AO 
00000000 
=40000000 
000001 5E 
0000018F 
=00000001 



R 
XR 

•XR 

•XR 

•XR 

■R 

•XR 

■R 



-XR 

-R 

-R 

-R 

-XR 

-R 
-R 



LOCAi S T ORt 
L CONHo 

l"ipl 

l"iOCAL 

. "vector 



00000000-R 
f trtf FF4 

F'Ff f f F<. 

FFFFFFFC 



94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
94 
188 



328 
236 



444 
456 

108 
372 

490 
98 



128 
182 
182 
>8? 
1 82 



N 1* 
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DMA1:CSYS0.SYSMAINT]ONLY730.MAR;4(15) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1> 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(D 
(1) 
(1) 
(1) 
(3) 



(7) 
(4) 



<1> 

(11) 

(11) 

(1) 

(8) 

(12) 

(1) 



(D 
(2) 
'?> 
(2) 
(2) 



#-337 



94 



#-241 

94 

112 

#-206 
114 
114 
113 
284 
1 1 4 

tt~2?2 
#-212 
*-22 l 
#-21' 
#-2i4 
#-215 
#-215 
#-217 
115 



115 
#-196 



545 
550 
555 
560 
565 
570 
5^5 

#-192 
#-197 

#-194 

191 
#-193 



(7) 



(1) 



(4) 

x1) 

(1) 
(3) 
(1) 
(1) 
(1) 
(6) 
(1) 

(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
C) 
(1) 



(1) 
(3) 



(15) 

(15) 

(15) 

(1*5) 

(15) 

(15) 

(15) 

(3) 

(5) 

(3) 

v'3) 

(3) 



201 

#-207 
#-231 
H 578 



#-221 

220 

#-216 



226 



506 



546 
551 
556 
561 
566 
571 

#-237 
#-245 
#-244 

#-243 



(3) 

(3) 
(3) 
(15) 



(3) 
(3) 
(3) 



(3) 
(13) 



C 15 J 

(15) 
(15) 
(15) 
(15) 
(15) 

(4) 

(4) 
(4) 

(4) 



547 

552 
5<7 

562 
567 
572 



(15) 
(15) 
(15) 
(15) 

(15) 
(15) 



548 
^53 
558 
563 
568 
573 



(15; 
(15) 
(15) 
(15) 
(15) 
(15) 



549 
554 
559 
564 
569 
574 



2Z-ENSAA-7.0 

0NLY730 

tross reference 

MAPSIOSPACE 

MAPMEMS10SPACE 

ONLY CLOCK INI T 

ONLY^SCB 

PRS TPL 

PR730$ TODR 

PTESC DW 

PTESM'IO 

PTESM'VALID 

PTE$V**IO 

QIOSDfALLOCATE 

OIOCLEAN^CPU 

SAVA8S... 

SCBVECTOR.OQO 

SCBVECTOR_038 

5C8VECTOR..03C 

SCBVECTOR„050 

SCBVECTOR J)54 

SCBVECTORJ>58 

SCBVECTOR_05C 

SCBVECTOR„060 

SCBVECTOR 064 

SCBVECTOR^068 

SCBVECTOR_06C 

SCBVECTOR.070 

SCBVECTOR.074 

$CBVECT0R_078 

SCBVECTOR^07C 

SCBVECTOR 080 

SCBVECTORIOCA 

SCBVECTOR^OCS 

SCBVECTOR.OCC 

SCBVECTOR_ODO 

SCBVECTOR 0D4 

SCBVECTOR 008 

SCBVECTORIOOC 

SCBVECTOR OEO 

:>CBVECT0R'0E4 

SCBVECTOR 0E8 

SCBVECTOR^OEC 

SCBVECTOR^OFO 

SCBVECTOR.OK 

SCBVECTOR 0F8 

SCBVECTOR^OFC 

SCB.BASE 

SC8 IMAGE 

SCB,UNKINT 

SIZ — 

SSS CONTINUE 
SS$"CONTROLC 
SSSlCTRLERR 
SS$ DATACHECK 
SS$~NORMAl 

ss$;resignal 

SYSlSETPRT 
SYSSUNWIND 
TSTSMCHK 



Cross reference 



*M 



GNLY730 NEBULA specific 



OOOOOQDC- 
00000000- 
0000027F- 
000001 F 8- 
=00000012 
=0000001B 
=20000000 
=00100000 
=80000000 
=00000014 
OOOOOOOO-XR 
000001 CA-R 
=FFFFFFF4 
=OOOOOUD-R 
=00000201 ~R 
=00000205-R 
=00000209~R 
=0000020D-R 
=0000021 1-R 
-•0000021 5-R 
=0000021 9-R 
=0000021D-R 
=00000221 -R 
=00000225-R 
=00000229-R 
=0000022D-R 
=00000231 -R 
=OO0OO235-R 
=00000239-R 
=0000023D-R 
=00000241 -R 
=00000245-R 
=00000249~R 
=0000024D-R 
=00000251-R 
=00000255-R 
=O00O0259-R 
=0000025D-R 
=00000261 -R 
=O00O0265-R 
=00000269-R 
=0000026D-R 
=00000271 -R 
=00000275-R 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
=0000000! 
OOOOOOOO-XR 
OOOOOOOO-XR 
OCOOOOOO-xR 
OOOOOOOO-XR 

=00000001 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 



R 279 
XR 

R 619 

R 525 



88 

88 

501 

182 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

5?0 

571 

5?? 

573 

574 

575 



88 



97 



615 , 

27-JUL-1984 Fiche 10 

routines 27-JUL-1984 15:35:27 

23-JUL-1984 16:23:43 



Frame 81 5 Seguence 203/ 

VAX-11 Macro V03-0T Page 27 

DMA1:CSYS0.SYSMAlNnONLY730.MAR;4U5) 



(6) 

(15) 
(14) 



(1) 

(1) 

(13) 

(2) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

;15) 

(15) 
(15) 
(15) 
(15) 
(15) 
(15) 
(15) 
'15> 
(15) 
(15) 
(15) 
(15i 
(1S> 
(15) 
(15) 
(15) 
(15) 



U> 



m 



116 

#-244 
#-620 
#-289 

#-289 

117 



(1) 

(4) 

(15) 
(6) 

(6) 

(1) 



#-291 

#-296 
#-296 

#-511 



(6) 

(6) 
(6) 
(13) 



#-298 



(6) 



118 
118 
124 

88 

119 
1!9 

119 
119 

#-332 

120 

121 
121 
122 



384 


(9) 


446 


(11) 


504 


(13) 






#-246 


(4) 






#-239 


(4) 


#-344 


(?) 


341 
448 


t?) 
(11) 


460 


(11) 



458 



(11) 



M±^ 



Cross reference 



77-ENSAA-7.0 

0NLV730 

iross reference 

JBAS1NITIAL 

UBASUNEXINT 

UBAOP CPU 

UBINT5Z 

UB1NT OISP 

UCBSl.CRB 

vEC$L ADP 

VfiCSQ DISPATCH OOOOOOOO 



*** 0NLY730 NEBULA specific 



C 15 • 

27-JUL-1984 Fuhe 10 

routine? 27-JUL-198A 15:35:27 

23-JUL-1984 16:23:43 



Frame C15 Sequence 2038 

VAX-11 Macro V03-01 Page 28 

0«A1jCSYSO # SYSMAINT3ONLY730.MAR;A<15) 



0000017E-R 409 (10) 
00000180-R 416 (10) 

00000171-R 383 (9) 
=O00O0OB4 389 (9) 

00000000-XR 
00000020 
00000014 



123 
*-373 
*-374 
tf-491 



(1) 
(8) 
(8) 
(12) 



#-491 



492 



(12) 



(12) 






Z7-ENSAA-7.0 

ONLY 730 

Cross reference 



Cross reference 



MACRO 



SIZE 



SA0P0EF 




SCRBDEF 


1 


SDEF 


1 


SDEFINI 


1 


$DS DSDEF 


2 


$DSl.DW730 DEF 


1 


*DS HPODET 


2 


$DYF)DEF 


2 


1EQU 


1 


SEQULS1 


1 


SEQULST 


1 


SGBLINI 


2 


SOFFSET 


2 


$OFFST1 


1 


SPR730DEF 


1 


$PR0EF 


4 


SPRTDEF 


1 


SPSLDEF 


s 


SPTEDEF 


i 


$PUSHADR 


1 


SU8I0EF 


2 


SUCBDEF 


10 


SVECDEF 


2 


SVIELD 


1 


$VIELD1 


1 


CASE 


1 


ERRSUP S 


1 


MODNAM 


1 


SPAREVECTOR 


1 



*** 



0NLY730 NEBULA specific 



Phase 

initial Udt ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol nble output 



D 15 . 

27-JUL-1984 Fiche 1<> 

routines 27-JUL-198A 15:35:27 

23-JUL-1984 16:23:43 



Frame Dl 5 Sequence 2039 

VAX-11 Macro V03-01 _ Page 29 

DMA1;CSYS0,SYSMA1\TD0NLY730.MAR;A(15) 



DEFINITION 



83 
82 
94 
81 



94 
93 
92 
85 
94 
94 



178 

182 

91 

90 

89 

86 

87 

201 

95 

81 

84 

94 
200 

201 
132 
538 



(1) 
(1) 
(1) 
(1) 



(1) 
(1) 

(1) 
(1) 

(1) 
(1) 



(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(1) 
(1) 
(1) 

(1) 

(3) 
(3) 
(1) 
(15) 



4™— — ————--— — + 

! Macros Cross Reference ! 

+™. + 

REFERENCES,., 

83 (D 
82 (D 

51 (1) 82 (D 

86 (D 87 (1) 

92 (D 93 (1) 
94 (1) 

93 (1) 
92 (1) 

85 (1) 

94 (1) 
94 (1) 
94 (1) 

94 (1) 
178 (2) 
182 (2) 
91 (1) 
90 (1) 
89 (1) 

86 (1) 

87 (1) 
201 (3) 

95 (1) 
81 (1) 

84 (1) 

88 <1> 
88 (1) 

200 (3) 

201 (3) 
132 (D 

545 (15) 546 (15) 

550 (15) 551 (15) 

555 (15) 556 (15) 

560 (15) 561 (15) 

565 (15) 566 (15) 

570 (15) 571 (15) 

575 (15) 

+ * •..«,..... + 

! Performance indicators ! 



83 


(1) 


89 


(1) 


95 


(1) 



84 
90 



(1) 
(1) 



85 
91 



(1) 

(1) 



547 

552 
557 
562 
567 
572 



(15) 
(15) 
(15) 
(15) 
(15) 
(15) 



548 


(15) 


549 


(15) 


553 


(15) 


554 


(15) 


558 


(15) 


559 


(15) 


563 


(15) 


564 


(15) 


568 


(15) 


569 


(15) 


573 


(15) 


5?A 


(15) 



Page faults CPU Time 

ir 00T00T00.09 

136 00:00:00.70 

1080 00:00:13.92 

1 00:00:00.99 

2^7 00:00:02,60 

2B 00:00:00.18 



Elapsed Time 

00l00l00.56 
00:00:02.13 
00:00:39.14 
00:00:02.28 
00:00:11.63 
00:00:00.43 



77-FNHAA-7 Cross reference 27-JUL-19M Ffche 10 Frame F 1 5 Sequence 2040 

W£~ JZZL - 0NL,?3 ° NE8uu speci,it rou,inM saw* iiis:s ^ws&:?vKU,no.%«??> 

Psect synopsis output 10 00:00:00.02 00:00:00.09 

Cross-reference output 78 00:00:00.80 00:00:04,37 

Assembler run totals 1615 00:00:19,31 00:01:00.63 

The working set limit was 1000 pages. 

76715 bytes (150 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 693 non-local and 14 local symbols. 

622 source lines were read in Pass 1, producing object records in Pass 2. 

124 pages of virtual memory were used to define 31 macros. 

4— ——,•. ™ — * .- — --. +• 

! Macro library statistics ! 
+ . — — ~+ 

Macro library name Macros defined 

DRB1:C0S.WORKDDIAG.MLB;955 8 

DRB1:CDS.W0RK]DS.MLB;218 2 

SYSSSYSR00T:LSYSLIB]LIB.MLB:1 3 

DMA1:CSYS0.SYSMAINT3DS,MLB;218 

0MA1:CSY5O.SYSMAiNT3DIAG.MLB;953 

SYS$SYSR00T:CSYSLIB]LIB.MLB;1 

SYS$SYSR00T:CSYSLIB3STARIET.MLB;2 12 

TOTALS (all libraries) 25 

978 GETS were required to define 25 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LJST=[DS,USJ/CR0SS/ENA8Le=<DEBU6JRACE) ONLY730/UPDA=(ONLY730.UPP,ONLV730.ENH)+SYSSL1BRARY:L18/L JBRARY+DMA1 iCSYSO.SY 



Z2-ENSAA-7.0 

PARSE 

'able of contents 



ASCII STRING 



PARSE ROUTINE, 
ASCII STRING 



PARSE ROUTINE, 



F 1 * . 

27-JUL-1984 F i che 10 

27-JUL-1984 15;39;i>9 



Frame f'5 
VAX-1 1 Macro 



Sequence 
V03-01 



2041 
Page 







(1) 

(2) 

(?) 

(9) 

(11) 

(13) 

(IS) 

(16) 



1 00 
133 
486 
583 
646 
790 
86^ 
942 



DECLARATIONS 

ASCII STRING 

SCAN$SYM80L 

SCANSCOMPARE 

SCAN$NUMFRIC 

SCANSSEARCHLIST 

SCANSDEVICE 



PARSE ROUTINE, 
Scan symbol 
Compare strings 
Scan number 

Search list for unique string 
Scan a device name 



Breakup File name into parts 



ZZ-ENSAA-7,0 

PARSE 

17-14 



ASCII STRING PARSE ROUTINE. _ m 

ASCII STRING PARSE ROUTINE. 



G 15 
27-JUL-1984 



7-JUL-1984 
3-MAY-198^ 



F l che 10 
15:39:59 
14:15:13 



Frame 615 Seguence 204? 
VAX-11 Macro V03-01 Page 1 
DMA1:£SYS0.SYSfiAINT]PARSE.MAR;91 (1) 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

oooc 

0000 
0000 
0000 
0000 



1 

2 
3 

4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 
31 
32 
33 
34 
35 
36 
37 

38 
39 

40 
4^ 

42 
43 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.TITLE 
JDENT 
.NoShow 



PARSE 

/07-14/ 

Conditionals 



ASCJJ STRING PARSE ROUTINE. 



Copyright <c> 1977, 1982, 1983 _ Tr 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF 1HE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USG ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO CHANCE WITHOUT NOTICE 
A COMMITMENT BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: 

MODIFIED BY; 

01 
02 

03 

04 

05 

06 



07 



VAX DIAGNOSTIC SUPERVISOR. 



KEN CHAPMAN 



10-NOV-77 



VERSION 01. 



VERSION 02 (ESSAA-3.07). 



KEN CHAPMAN 02-FEB-78 

ADDED QUADWORD DATA CAPABILITY, 

ADDED STRING MATCH FUNCTIO. 

Roger Riggs 6-N0V-1978 

ADDED KEYWORD MATCH 'UNCTION AND MADE SOME SUBROUTINES 

USEFUL FROM OTHER PARTS OF THE SUPERVISOR. 

Modified keyword construct. 

Dave Butenhof. 13-feb-19e1, version 6.3 

Add parse table command code for SYMBOL type, so CLI can 

recognise $ and „ in section names. 



- Jack Stansbury, 28-Oct-1981 
Fixed a few truncation errors 
for $DS and SOJAG. 



Version 6.- 

Also added .LIBRARY 



statements 



08 



- Dave Butenhof, 10-Nov~1981, version 6.*- 

Add new PARSE codes, CLISK^COMMA and CLISKJ/ALSEP. The 
former traverses the sequence "<blank>,<blank> , while the 
latter traverses "<blank>{=! :}<blank> \ These will make 
CLI simpler. Added .LIBRARY for LIB, since I added CASE 
macro useage 

- Dave Bjtenhcf, 11*Nov-1981, version 6.- 

Add another PARSE code, CLI$K„EOL to check for end of 



77-ENSAA-7.0 

PARSE 

07-14 



ASCII STRING PARSE ROUTINE, 

ASCII STRING PARSE ROUTINE. 



OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 
cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



58 

59 

60 

61 

62 

63 

64 

65 

66 

6? 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 
89 
90 
91 
92 
93 
94 
95 
96 
97 

98 



09 



10 



11 



12 



13 
14 

15 



H 15 . «„ 

27-JUL-1984 Fiche 10 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 

line (considering comments). 

- Dave Butenhof, 11~Nov-1981, 
Again, make things easier for 
only) entry point for PARSE. 



Frame Hi 5 Sequence 2043 
VAX-11 Macro V03-01 Page 2 
DMA1:CSYS0.SYSMAINT3PARSE.MAR;91 (1) 



version 6.- 
CLJ by addini 

dsx$superpar: 



extra (internal 
E won't stop at 



physical end of 
told to stop. 



line; it'll keep parsing the null string until 



- Dave Butenhof, 13-Nov~1981 , version 6.5 

One more time... add CLISK.CALL and CUSKJ1ETURN functions 
for CLI convenience. The parse table is just too complex. 
Also, CU$K_PIFS to test subparse return code 

- Dave Butenhof, 03-Feb-1982, Version 6.6 

Add ScanSFile to allow wildcards C* and X) in file names. 
This is for DIRECTORY. . . CLJ will allow them in RUN, etc; 
but it won't work too well. Also, add a macro version of 
BREAKUP FILE (for merging default file specs) here. ..it's 
much more code efficient than the bliss version. 

Jack Stansbury, 15-Dec-1982, Version 6.10 
Fixed the code in TrvEol to fix a bug where a CLI$K_E0L was 
being done twice, and causing an error when a comment 
followed a DS command. The comment character was being 
skipped, but not the rest of the line after the '!'. Thus, 
the second time the TrvEol was called, R5 would point to the 
character after the ■ !'. Now I set R4 = (the number of 
characters remaining in the line) and set R5 to point to the 
real end of the line (the NEWLINE character). 

Bob Bergazzi May 16,1983 Version 6.11 
Changed the order of the .LIB statements. 

M. Baggett Nov 16,1983 Version 6.13 

Allow device name of the form ' nameSaaann' to be used as load 

devices. 

RE MUSE MAY 8J984 Version 7.0 

Allow device names of the form 'nodeSggan' to be used as load 

devices 






ZZ-ENSAA-7,0 
PARSE 



DECLARATIONS 



ASCII STRING 
DECLARATIONS 



PARSE ROUTINE. 



1 15 . 

27-JUL-1984 a Fl J h SjS„ 

27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



Frame 115 Seguence 2044 

VAX-11 Macro V03-01 Page 

DMA1:[SYS0.SYSMAINT]PARSE.MAR;91 



3 

(1) 



0000 100 

0000 101 

0000 10? 

0000 103 

0000 104 

0000 105 

0000 106 

0000 107 

0000 108 

0000 109 

0000 110 

0000 1 1 1 

0000 112 

0000 113 

C000 114 

0000 115 

0000 116 

0000 117 

0000 118 

00000002 0000 119 

00000001 0000 120 

0000 121 

0000 122 

0000 123 

0000 124 

00000000 125 

0000 126 

00000000 0000 127 

0004 128 

UOOOOOOO 0004 129 

0008 130 

00000000 1 31 



.S8TTL DECLARATIONS 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 
.LIBRARY 



/SYS$LI8RARY:LIB/ 

/$DS/ 

/SDIAG/ 



CIS] 

n3] 

[133 



MACROS; 



EQUATED SYMBOLS: 

Sds.cUdef 
$DS_DSDEF 
$DS PARSE OEF 
DSFPEF 
$DS HPODEF 

V BIT=2 

S?$_N0RMAL=1 



; OWN STORAGE: 

.Psect Work, Noshr, Noexe, Wrt, Long 

Save„caLl: 

.long 
Save^status: 

•long 

.PSECT Code, Shr, Exe, Nowrt, Byte 



Address for RETURN 
Status of CALLed subparse 



[10] 
[10] 

[10] 
[10] 
[10] 



ZZ-ENSAA-7,0 

PARSE 



ASCII STRING 



PARSE ROUTINE. 

ASCII STRING PARSE ROUTINE 
ASCII STRING PARSE ROUTINE 



J 15 . «a 

?7-jUL-1984 F iche 10 

?7-JUL-1984 15:39:59 
?3-MAY-1984 14:15:13 



Frame J15 Sequence 2045 i 
VAX-11 Macro V03-01 Page 4 
0MA1:CSYSO.SYSMAINT3PARSE.MAR;91 (?) 



0000 133 

0000 134 

0000 135 

0000 136 

0000 137 

0000 138 

0000 139 

0000 140 

0000 141 

0000 14? 

0000 143 

0000 144 

0000 145 

0000 146 

C000 147 

0000 148 

0000 149 

0000 150 

0000 151 

0000 15? 

0000 153 

0000 154 

0000 155 

0000 156 

0000 157 

0000 158 

0000 159 

0000 160 

0000 161 

0000 16? 

0000 163 

0000 164 

0000 165 

0000 166 

0000 167 

0000 168 

0000 169 

0000 170 

0000 171 

0000 17? 

0000 173 

0000 1 74 

0000 175 

0000 176 

0000 177 

0000 178 

0000 179 

0000 180 

0000 181 

0000 18? 



.S6TTL ASCII STRING PARSE ROUTINE. 



++ 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE TAKES AN ASCII STRING INPUT AND PARSES IT USING A 
CALLER SUPPLIED PARSE TREE. UPON A MATCH IN THE TREE, IT 
DISPATCHES TO A CALLER SUPPLIED ACTION ROUTINE. UPON A MISMATCH, 
IT BRANCHS TO ANOTHER POINT IN THE PARSE TREE, 

CALLING SEQUENCE: 

DIAGNOSTIC PROCEDURE CALL. 

INPUT PARAMETERS: 



PARSES BUFADR(AP) 

PARSE$~TREE(AP) 

PARSE$lACTION(AP) 



= INPUT COUNTED STRING ADDRESS. 

= PARSE TREE ENTRY POINT. 

= SUCCESS ACTION SUBROUTINE ADDRESS. 



IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

RESULTS OF CALLER'S ACTION SUBROUTINE. 
COMPLETION CODES: 



SSS.NORMAL 
DSSJRROR 

SIPr EFFECTS: 

NONE 
REGISTER USAGE? 



r STRING SUCCESSFULLY PARSED. 

= ERROR MATCH CODE ENCOUNTERED IN PARSE TREE. 



RO 
R1 

R3 
R4 

R5 

R7 



= SCRATCH AND COMPLETION CODES. 

= SCRATCH. 

s SCRATCH 

= RADIX AND BIT MASK POINTER 

= LENGTH OF REMAINING INPUT SPRING 

= ADDRESS OF REMAINING INPUT STRING 

= PARSE TREE POINTER. 



ZZ-ENSAA-7.0 

PARSE 

17-14 



ASCII STRING 



PARSE ROUTINE. 
ASCII STRING 
ASCII STRING 



K 15 

27-JUL-1984 Fiche 10 

PARSE ROUTINE. ll'l^'lffi 15 : ?? : 5? 

PARSE ROUTINE. 23-MAY-1984 14:15:13 



Frame K15 
VAX-11 Macro 



Sequence 2046 
V03-OT 



DMA1:[SYSO.SYSMAINT]PAnSE.MAR 



Pag 
R;9 



56 



OFFC 
DO 
11 

OFFC 
56 D4 



01 
04 



54 04 BC 

54 54 

00000000' EF 

57 08 AC 



04 



F6 



56 
54 
4? 
AF 



*5 



50 



67 
3D 
55 
54 
0085 



3C 
01 



7D 
3C 
D4 
DO 

E8 
D5 
13 
DF 



91 
1? 
D6 
D7 
31 



10 
DC 



0000 
0002 
0005 
0007 
0009 
0008 
0008 
OOOF 
0012 
0018 
001 c 

oou 

001 F 

0021 

C023 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0026 

0057 

0057 

0057 

0057 

0057 

005A 

005C 

005E 

0060 

0063 

0063 

0063 

0063 

0063 

0065 

0065 



184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

22? 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 



.entry dsx$superparse, A M<R2,R3,R4,R5, 
movl #1 , r6 
brb parse common 
DSX$PARSE, A M<R2,R3,R4,R5,R6,R7 

r6 



.ENTRY 

cLrl 

parse common: 
MOVQ 
MOVZWL 
Ctrl 
MOVL 

TRAVERSE: 

bibs 
TSTL 
BEQL 

10$: PUSHAL 
case 



R6,R7,R8,R9,R10,R11> 
; Don't exit on end of 
; Join common code 

,R8,R9,R10,R11> 

Exit on end of tine 



Line 



QPARSES 8UFADR(AP),R4 
R4, R4 " 
Save call 
PARSE$_TREE(AP), R7 



10$ 



r6, 

R4 

EXIT 

TRAVERSE 
src=(r7) 



>e=b, - 



I1m1t=#cli'$k„ error, - 

displist=< - 
trverr, - 
trvexit, - 
trvbr, - 
trvbif, - 
trvspace, - 
trvnum, - 
trvalpha, - 
trvalnum, - 
trvoct, - 
trvhex, - 
trvdec, - 
trvstring, - 
trvkeyword, - 
trvsymboL - 
trvcomma, - 
trvvalue, - 
trvstash, - 
trveol f - 

trvcalU - 
trvreturn, - 

trvbifs, - 

trvfile - 
> 



NOT A SPECIAL CODE. 



CMP8 
BN5Q 
INCl 
DECL 
BRW 



<R7),(R5) 

BRANCH 

R5 

R4 

DO ACTION 



NORMAL EXIT 
TRVEXIT: 
EXIT: 



CODE 



BS88 



ACTION 



GET LENGTH, ADDR OF INPUT STRING 

LENGTH. 

Clear saved call address 

TREE POINTER. 



Don't check for EOL if set 
ANY CHARACTERS LEFT IN INPUT 
BRANCH IF NOT 
FAKE A SUBROUTINE CALL. 
Case on the dispatch codes 

,, .dispatch list 

= Error. 

1 - Exit. 

2 = Branch, 

3 = Conditional branch. 

4 = Separator characters. 

5 = Number string. 

6 = Alpha string. 

7 = Alphanumeric string. 

8 = Octal number string. 

9 = Hex number string. 

10 = Decimal number string, 

11 = Unique string. 

12 = Keyword. 

13 = Symbol. 

14 = <blank>comma<blank>. 

15 = <.blank>C=!:}<btank>, 

16 = <blank>stash<blank>. 

17 = <blank>{!!<eol». 

18 = Call subtree parse. 

19 - Return from subtree, 

20 = Test subparse status. 

21 = Filename (incl. •%' and 



STREAM 



*') 



5 
(3) 

[09] 
[093 
C09] 

[09] 
[09] 



C10D 



[09] 



[09] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
C07D 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 

ton 

[07] 
[07] 
[07] 
[07] 
L083 
[10] 
[10] 
[10] 
[11] 
[073 



MOVL 0Sb$„NORMAL, RO 



TREE CHAR MATCH INPUT STRING? 

BRANCH IF NOT 

UPDATE ADDRESS 

COUNT THIS CHARACTER 

TO ACTION AND UPDATE TREE 



EXECUTE CALLER ACTION ROUTINE, 
SET NORMAL RETURN. 



77-ENSAA-7.0 
PARSE 



ASCII STRING 



PARSE ROUTINF. 

ASCII STRING PARSE ROUTINE, 
ASCII STRING PARSE ROUTINE, 

0068 2*1 DSXSPARSEJC: 
04 0068 242 R?T 



L 15 
27-JUL-1984 Mche 10 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



Frame L15 Seguence 2047 
VAX-11 Macro V03-0T Page 6 
DMA1 :CSYS0.SYSMAINTJPARSE.MAR;91 (3) 



; RETURN. 



ZZ-ENSAA-7.0 

PARSE 

L'7-14 



ASCII STRING 



PARSE ROUTINE. 

ASCII STRING PAKbb 
ASCII STRING PARSE 



36 
00000004 'EF 50 
^0 00000000 'EF 

09 
50 00660002 8F 

E4 

57 50 04 



00000004' EF 
OOOOOOOO'EK 



01 
57 



50 



02 A7 
57 50 



52 



5A 50 

58 55 

59 54 
50 01 A7 

00000000' EF 

0080 Bf 

OC BC 

0080 8F 

54 59 

55 58 



50 00660002 



D8 
8F 
96 



M 15 . « A 

27-JUI-1984 Fiche 10 

ROUTINE. 27-JUL-1984 15:39:59 

ROUTINE. 23-MAY-1984 14:15:13 



frame M15 Sequence 2048 
VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINT3PARSE.MAR;91 



7 
(4) 



0069 244 

0069 245 

0069 246 

0069 2U7 

0069 248 

10 0069 i-49 
00 006B 250 
DO 0072 251 
12 0079 252 
DO 0079 253 

11 0082 254 
CI 0084 255 
05 0088 256 

0089 257 

C089 258 

0089 259 

0089 260 

0089 261 

0089 262 

DO 0089 263 

DO 0090 264 

0097 265 

0097 266 

0097 267 

0097 268 

0097 269 

08 10 0097 270 

0099 271 

0099 272 

0099 273 

0099 274 

0099 275 

32 0099 276 

CO 009D 277 

05 OOAO 278 

00A1 279 

00A1 280 

00A1 281 

7D 00A1 282 

DO 00A4 283 

DO 00A7 284 

9A OOAA 285 

9E OOAE 286 

BB 0085 2B7 

16 0089 288 

BA 008C 289 

DO OOCO 290 

DO 0OC3 291 

05 00C6 292 

00C7 293 

00C7 294 

00C7 295 

00C7 296 

10 00C7 297 
DO 00C9 298 

11 OODO 299 
00D2 300 



; Return special code. Note: the PARSE call mechanism is not recursive; 
; only one level of subtree can be used. 



trvreturn: 

bsbb 
movl 
movl 
bneq 
movl 
brb 

10$: addl3 
rsb 



action 

rO, Save status 
Save call, rO 
10$ " 

#ds$_error, rO 
dsx$parse x 
#4, rO, r7 



Call special code. Note: this is not 
may be used. The action routine will 



trvcall: 



Movl #1, Save_status 
movl r7 4 Save„call 
brb trvbr 



BRANCH SPECIAL CODE. 
TRVBR: 



BS88 
BR8 



ACTION 
BRANCH 



Call action routine 

Save Call status for BIFS test 

Restore saved value 

Branch if saved address not 

If was 0, prror 

Exit 

Advance to next 

Do next 



recursive. Only one level of call 
be called before the subtree parse. 



Assume successful, if not specified 
Save address for return 
Fall through to TRVBR code 



EXECUTE CALLER ACTION ROUTINE, 
FALL INTO BRANCH 



[10] 
[10] 
[10J 
[10] 
C10] 
[10] 
[10] 
[10] 
[10] 



HERE TO TAKE BRANCH IN TREE 
BRANCH: 



CVTWL 
ADDL2 
RSB 



2(R7), RO 
RO, R7 



DISPATCH TO CALLER'S ACTION ROUTINE. 



ACTION: MOVQ 
MOVL 
MOVL 
MOVZBL 
MOVAB 
PUSHR 
JSB 
POPR 
MOVL 
MOVL 
RS8 



R0,R10 

R5,R8 

R4.R9 

KR7), RO 

L*DS$GL CUBASE, R2 

tf*M<R7>~ 

aPARSE$ ACTION(AP) 

# A M<R7> 

R9,R4 

R8,R5 



ERROR EXIT CODE, 
tRVERR: 



BS88 ACTION 

MOVL *DS$ ERROR, RO 

BR8 DSX$PARSE_X 



[10] 
[10] 
[10] 
C103 



GET DISPLACEMtNT. 
UPDATE TREE POINTER, 
CONTINUE TO TRAVERSE TREE 



COPY QUAD NUMBER TO R10-R11 

COPY ADDRESS OF REMAINING STRING 

COPY LENGTH OF REMAINING STRING 

GET ACTION CODE, 

BASE CLI DATA BASE 

SAVE OUR REGS 

GO TO ACTION ROUTINE. 

RESTORE OUR REGS 

PUT CHARACTER COUNT BACK 

PUT CHARACTER POINT BACK 



[06]' 



EXECUTE CALLER ACTION ROUTINE 
SET ERROR RETURN CODE, 
GO EXIT. 



77-ENSAA-7.0 

PARSE 

l'7-H 



ASCII STRING 



PARSE ROUTINE. 
. ASCII STRING PARSE 
ASCII STRING PARSE 



CD 
BE 00000004 *EF 

87 



N IS . 

27-JUL-1984 Fiche 10 

ROUTINE. 27-JUL-19M 15:39:59 

ROUTINE. 23-MAY-1984 H:15:13 



Frame N1 5 Sequence 2049 
VAX-11 Macro V03-01 Page 
DMA1:[SYS0.SYSMAINT]PARSE.MAR;91 



8 
(4) 



B6 



00D2 301 

0002 302 

00D2 303 

00D2 304 

00D2 305 

10 00D2 306 

E8 00D4 307 

D5 OODB 308 

05 OODD 309 

OODE 310 

OODE 311 

OODE 312 

OODE 313 

OODE 3K 

C1 10 CODE 315 

50 E3 COEO 316 

87 D5 00E3 317 

05 0OE5 318 



BIFS conditional branch code, This 
that it tests the saved return code 
of RO. 



TRVBJFS: 



Bsbb 
Bibs 
Tstl 

Rsb 



Action 

Save status. Branch 



is identical to BIF, except 
from a CALL subparse instead 



Call action routine 
Branch if OK 

Otherwise advance to next 
Continue to traverse tree 



[103 
[10] 
[103 
[10] 
[103 



; BIF CONDITIONAL BRANCH SPACIAL CODE, 
TRV8JF : 



BSBB 
BLBS 
TSTL 
RS8 



ACTION 
RO, BRANCH 
(R7) + 



EXECUTE CALLER ACTION ROUTINE, 
BRANCH If SATISFIED. 
UPDATE TREF POINTER. 
CONTINUE TO TRAVERSE TREE. 



77-ENSAW.O 

PARSE 
L'7-14 



ASCII STRING 



PARSE ROUTINE. 

ASCiJ STRING PARSE ROUTINE. 
ASCII STRING PARSE ROUTINE. 



B 16 
27-JUL-1984 



B7 
87 



53 
53 

53 



01?A 

F4 



08 
11 

10 

oc 

OA 
C7 



0193 



00D4 



OOF 1 



53 04 A7 



5, 



50 
57 



83 
0128 
37 
PF73 
87 
87 
50 



7-JUL-1984 
'3-MAY-1984 



ffche 10 
15:39:59 
Hi15:13 



Frame B16 Seguence 2050 

VAX-11 Macro V03-0T Page 

DMA1;[SYS0.SYSMAINT3PARSc.MAR;91 



9 ; 
(5)i 



B1 13 



10 
D5 
05 



30 
11 



DO 
11 

DO 
11 

DC 
11 



53 OOOOOOOC'EF DO 



30 

11 



30 

11 



30 
11 



9E 
9A 
30 
19 
30 
D5 
9A 
CO 
05 



00E6 
00E6 
00E8 
00E8 
OOEA 
OOEC 
OOED 
0)ED 
OOED 
OOED 
OOED 
OOFO 
OOF? 
OOF? 
C0F2 
00^2 
00^2 
00F5 
OOF 7 
OOF 7 
OOF A 
OOFC 
OOFC 
OOFF 

0101 

0101 

0108 

0108 

0108 

010D 

010D 

0100 

010D 

010D 

0110 

0112 

0112 

0112 

011? 

0112 

0115 

0117 

0117 

0117 

0117 

0117 

0117 

0118 

011E 

0121 

0123 

0126 

0123 

0128 

012E 



320 
321 
322 
323 
324 
325 
326 
327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 
349 

350 
351 

352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 

373 

374 



BRANCH IF NONE 
" BEGL 

DO ACTION: 

BS88 
T STL 
RS8 



BRANCH 

ACTION 
(R7) + 



SPACE SPECIAL CODE. 



TRVSPACE: 

BS8W 
8R8 



SCANSSPACE 
BRANCH J FJYONE 



NUMERIC VALUE CODE, 



TRVOCT 



TRVHEX; 



TRVDEC 



TRVNUM: 
TRVNUMA; 



MOVL 
BR8 

MOVL 
BR8 

MOVL 
BR8 



*8, R3 

TRVNUMA 

016, R3 
TRVNUMA 

#10, R3 
TRVNUMA 



MOVL L A DS$GL..RADIX, R3 



BS8W 
BR8 

; ALPHA CHECK. 

TRVALPHA; 

6S8W 
8R8 



SCAN$NUMERIC 
BRANCHJFJYONE 



SCANSALPHA 
BRANCHJF_NONE 



; ALPHANUMERIC CHECK. 
^RVALNUM: 



t?S8W SCANSALPHANUM 
BR8 BRANCHJFJYONE 

UNIQUE STRING MATCH. 



.enabt Ub 

TRVSTRING: 

M0VA8 

M0VZ8L 

BS8W 

BLSS 

BS8W 

TSTL 

M0VZ8L 

ADDL2 

RS8 



4<R7), R3 
(R3)S R2 
SCANSCOMPARE 
20$ 

ACTION 
<R7)* 
(R7j» f<0 
RO, R7 



; Branch if Length was ^ero 

; CALL ACTION ROUTINE 

; UPDATE TREE POINTER 

; CONTINUE TRAVERSE 



CHECK FOR SPACES 

TAKE BRANCH If NO SPACES OR TABS 



; SET RADIX TO OCTAL. 



; SET RADIX TO HEXIDECIMAL. 



; SET RADIX TO DECIMAL. 



; GET DEFAULT RADIX. 

; SCAN SOMETHING NUMERIC 

; TAKE BRANCH U NOTHING FOUND 



CHECK FOR ALPHA 

DO ACTION IF FOUND ELSE BRANCH 



SPAN ALPHA-NUMERIC 

DO ACTION IF FOUND ELSE BRANCH 



Allow access to BRW BRANCH 

GET POINTER TO ASCIC. 

GET ASCII COUNT. 

COMPARE 

TAKE BRANCH IF NO MATCH 

GO DO CALLER ACTION. 

UPDATE TREE POINTER. 

GET ASCIC COUNT, 

PAST THE ASCII, 

CONTINUE TO TRAVERSE TREE, 



C063 



[073i 



[073: 



[103 



C103 



l_ 



7Z-ENSAA-7.0 
PARSE 
.7-1 4 



ASCII STRING 



PARSE ROUTINE. 

ASCII STRING PARSE 
ASCII STRING PARSE 



C 16 
27-JUL-1984 Flche 10 

ROUTINE. 27-JUL-1984 15:39:59 

ROUTINE. 23-MAY-1984 Ui15:13 



Frame C16 Sequence 2051 

VAX-11 Macro V03-01 Page 

DMA1.*[SYS0.SYSMAINTJPARSE.MAR;91 



10 
(6) 



012F 376 

012F 37? 

01 2F 378 

012F 379 

OOAO 30 01 2F 380 

26 13 0132 381 

7E 50 DO 0134 382 

53 06 A7 32 0137 383 

53 57 CC 0138 384 
01F9 30 013E 385 

1A 14 OKI 386 

OF 19 0143 387 

04 A7 50 81 0145 388 

09 12 0149 389 

FF53 30 C148 390 

57 08 CO 014E 391 

8E D5 0151 392 

05 0153 393 

54 6E CO 0154 394 

55 8E C2 0157 395 
FF3C 31 015A 396 
FF05 31 015D 397 

0160 398 

0160 399 

0160 400 

0160 401 

0160 402 

70 10 0160 403 

82 11 0162 404 

0164 405 

0164 406 

0164 407 

0164 408 

00A1 30 0164 409 

F*7C 31 0167 410 

016A 411 

016A 412 

016A 413 

016A 414 

016A 415 

016A 416 

53 D4 016A 41? 

08 11 016C 418 

016k" 419 

016E 420 

016E 421 

016E 422 

016E 4?3 

016E 4?4 

016E 4"-S 

53 01 DO 016E 4,'6 

03 11 0171 42? 

0173 428 

017i 429 

0173 430 

0173 431 

01?3 432 



KEYWORD MATCH ROUTINE 



TRVKEYWORD: 
BS8W 
BEQL 
MOVL 
CVTWL 
ADDL 
BS8W 
BGTR 
8LSS 
CMPW 
BNEQ 
BS8W 
ADDL2 
TSTL 
RS8 
10$; ADDL 
SU8L 
20$: BRW 
30$; BRW 
.dsabl Isb 



SCAN$SYMBOL 

20$ 

RO,-<SP> 

6<R7),R3 

R7,R3 

SCAN$SEARCHLJST 

30$ 

10$ 

R0,4(R7) 

10$ 

ACTION 
*8,R7 
(SP) + 

(SP),R4 
(SP)+,R5 
BRANCH 
EXIT 



SCAN A SYMBOL 

If NO SYMBOL, TAKE BRANCH 

SAVE STRING LENGTH 

Get offset to keyword table 

Make absolute address of table 

LOCATE SYMBOL IN TABLE 

Exit if ambigious 

If NOT FOUND TAKE BRANCH 

CORREC r KEYWORD 

NO, TAKh BRANCH 

DO ACTION ROUTINE 

UPDATE TREE POINTER 

REMOVE SYMBOL LENGTH 

NEXT TREE JUNCTURE 

ADJUST INPUT STRING LENGTH BY SYMBOL 

ADJUST INPUT STRING ADDR BY SYMBOL 

TAKE FAILURE BRANCH 

TAKE EXIT IF AMBIGIOUS 



CIO] 



Symbol match routine 



TRVSYMQOL: 

BS88 
BR8 



SCAN$SYMBOL 
BRANCH IF .NONE 



Filename match routine 



TrvFHe: 



BsbW Scan$File 

BrW Branch If None 



Search for symbol 

Handle tree decision point 



Scan over f i lename 

Handle tree decision point 



ni3 

C113 

cm 



Traverse a string consisting of blanks and a comma. If the comma is not 
found, the input string is unaffected: if the comma is found, then the 
comma and all preceding and following blanks are skipped. 



trvcomma 



clrl r3 

brb trv^comma^value 



Set up V 

Use common 



code 
routine 



[07] 
C073 

[07]: 



Traverse a string consisting of blanks and a slash, If the slash is not 
found, the input string is unaffected: if the slash is found, then the 
slash and all preceding and following blanks are skipped 



trvslash: 

movl 
brb 



01, r3 
trv_comma_ value 



Set up '/' 

Use common 



code 
routine 



[07] 
COV] 

[07]: 



Traverse a string consisting of blanks and either an '=' or a ':'■ This 
is DM'marily for qualifier values* The code from TRV_COMMA_VALUE on is 
common between this function and the TRVCOMMA function, 



Z/-ENSAA-7.Q 

PARSE 
07-K 



ASCII STRING 



PARSE ROUTINE. 

ASCII STRING PARSE ROUTINE, 
ASCII STRING PARSE ROUTINE. 



38 
009F 
50 
54 
OE 
54 



?C 

?F 



3a 






FT 



AE 



1D 
85 
OE 
85 
09 
35 
06 
AS 
08 
74 
54 
50 
38 
50 
Ff 33 



21 



55 55 



30 
63 
54 
OC 
54 
85 
05 
30 
FED? 

54 
54 

03 

FF16 



D 16 
27-JUL-1984 Fiche 10 

27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



Frame P*v Sequence 2052 

VAX- i Macro V03-01 Page 

P'UI:[SYS0.SYSMAINT3PARS£,MAR;91 



5^ 02 DO 



BB 
30 
04 
D5 

15 
07 



11 
91 
11 
91 
11 
91 
13 
91 

10 
70 
06 
BA 
05 
31 



B8 
10 
05 
13 
07 
91 
13 
BA 

31 

CI 

D4 
8A 
31 



0173 

0173 

0173 

0176 

0176 

0176 

0178 

0178 

0170 

017F 

0181 

0183 

0183 

0183 

C183 

0183 

0183 

0180 

018F 

0192 

0194 

0197 

0199 

019C 

019E 

01A2 

01A4 

01A6 

01AA 

01AC 

01AE 

0180 

0183 

0183 

0183 

0183 

0183 

0183 

0183 

0185 

0187 

0189 

0188 

0180 

01C0 

OH? 

0H4 

QIC? 

01C7 

01CB 

QUO 
OHF 



433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 
459 
460 
461 
46? 
46* 
464 
465 
466 
467 

468 
469 
4 70 
471 
47? 
473 

475 
476 
477 
478 
479 

480 
481 
482 
483 
484 



trvvalue: 

movl 



try comma_value 
pushr 

bsbw 
cUt 
tstt 
bleq 
dec I 
case 



10$: 

20$. 
30$: 



40$: 
50$: 



60$: 



brb 

cmpb 

brb 

cmpb 

brb 

cmpb 

beql 

cmpb 

bneq 

bsbb 

movq 

inc I 

popr 

tstl 

brw 



#2, r3 



# A M<r3,r4.r5> 

scan$space 

rO 

r4 

10$ 

r4 

src=(sp), type=b, - 

limit=#0, displist=< 
10$, - 
20$, - 
30$ - 
> 

60$ 

<r5)+, #*A , \ ,, 
40$ 

(r5> + , 0*A , y M 
40$ 

<r5) + , MV 1 
50$ 

-1<r5), **A M :" 
60$ 

scan$space 
r4, 4(sp) 
rO 

# A M<r3,r4,r5> 
rO 
branch_if_none 



Set up ' = ' code 

Save current descriptor 
Skip hi\y spaces we might find 
Assume didn't find anything 
Any characters remaining? 
I f not, can* t be either 
Anticipate finding it 
Case on type code 



is 

1 is 

2 is 



i i 

, 



or 



• , * 



i « 

* 



'/• ? 

out 



No go 

Compare next character to 

Check it out 

Is it a 

Check it 

Is is an ■*•? 

Yep, OK 

Otherwise, is it 

Jf not, failure 

Skip trailing spaces. 

Replace the saved descriptor 

We found something 

Restore registers 

Check if we found anything 

And finish up command 



an 



i . • ? 



too 



11 
(6) 



[07] 



L071 
[07] 
[07] 
[07] 
[07] 
[073 
[07] 
[07] 
[07] 
[073 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 
[07] 



i i • 



TRVEOL 

Skip spaces and tabs: if next character is an 

moro characters, then success; else failure (take 



or if there are 
MISS branch). 



no 



TrvEol: pushr * A M<r4,r5> 

bsbb scan$space 

tstl r4 

beql 10$ 

dec I r4 

cmDb <r5>*, A A"!* 

beql 10$ 

popr # A M<r4,r5> 

brw branch 

10$: AddL3 R4,R5,R5 

Ctrl R4 

popr A M<rO<r1> 

brw do.action 



descriptor 
any are there 
length 



• i 



Save the input 

Skip spaces if 

Check remaining 

Branch to check 

Oowncount for 

Otherwise, check for comment 

OK, do action routine 

Restore registers 

Take MISS branch 

Point R5 to the <CR> character 
No more characters in the line 
Remove saved registers from stack 
Oo the action routine 



[083 

C08] 

C083 1 

[083s 

[08] 

C083i 

[0831 

C083I 

C083! 

i 

[12]j 
[12] 
[08] 

[08] 



2Z-ENSAA-7.0 

PARSE 

07-14 



SCANSSYMBOL Scan symbol . m 

ASCII STRING PARSE ROUTINE. 
SCANSSYMBOL Scan symbol 



E 16 
27-JUL-1984 Fiche 10 
27-JUL-1984 15:39:59 
23-MAY-1984 H: 15:13 



Frame E16 Sequence 2053 
VAX-11 Macro V03-01 Page 12 
DMA1;[SYS0.SYSMAINTDPARSE«MAR;91 (7) 



01D2 

01D2 

01D2 

01D2 

0102 

0102 

01D2 

01D2 

01D2 

0102 

01D2 

01D2 

01D2 

01D2 

C1D2 

01D2 

0102 

01D2 

01D2 

0102 

01D2 

0102 

0102 

0102 

01D2 

01D2 

01D2 

01D2 

01D2 

01D2 

01D2 

01D2 

01D2 

01D2 

01D2 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 



486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 
529 
530 
531 
532 
533 
534 
535 
536 
537 

538 



.S8TTL SCANSSYM80L 



Scan symbol 



♦ + 



FUNCTIONAL DESCRIPTION: 

SCANSSYMBOL Skips 

SCAMSSPACE Skips 

SCANSALPHA Skips 

SCANSALPHANUM Skips 

SCANSSPANC Skips 

CALLIN6 SEQUENCE: 

BS8W SCANSSYMBOL 

8S8W SCANSALPHA 

BSBW SCANSALPHANUM 

BS8W SCANSSPACE 

BS8W SCANSSPANC 

INPUT PARAMETERS: 



characters 
spaces and 
c laracters 
characters 
characters 



of the set <A-Z, a-z, 0-9, $, J 

tabs. 

of the set (A-Z, a-z). 

of the set (A-z, a-z, 0-9). 

of the set specified by R3 



R3 
R4 
R5 



Address of bit mask for 
Length cf input string 
Address of input string 



valid characters (SCANSSPANC only) 



IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 



N0NF 



R0 
R1 
R3 
R4 
R5 



Length of symbol 

Address of symbol 

Address of the bit mask used for validity 

Updated length of input string 

Updated address of 'input string 



IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: N/A 
SI0E EFFECTS: NONE 



REGISTER USAGE 

R0 
R1 
R3 
R4 
R5 



length of symbol 

Address of symbol 

Address of bit mask used for validity. 

Current remaining length of input string 

Current address of input string 



CONDITION CODES: 



Z-bit 

N-bU 



Set if 
Zero 



length of symbol=0, else set 



7Z-ENSAA-7.0 

PARSE 

1*7-14 



SCANSSYMBOL Scan symbol . m 

ASCII STRING PARSE ROUTINE. 
SCANSSYMBOL Scan symbol 



58 10 
7 FFFFFE 87FFFFFE 03FF0010 00000000 

46 10 
07FFFFFE 07FFFFFE 00000000 00000000 

34 10 
07FFFFFE 07FFPFFF 03FFO00O 00000000 

22 10 
0?FFFFFE O/FFFFFE 05FF042O 00000000 

10 10 
00000000 OO00OOOC 00000001 00000300 

08 BA 



54 54 

51 55 

09 

50 65 

05 63 

55 

'4 54 

54 

50 55 51 



*C 

ro 
11 

9A 

El 
D6 

F4 
P6 
(I 
05 



01D2 
01D2 

01D2 

0104 

01D4 

01E4 

01E4 

01E4 

01E6 

01E6 

01F6 

01F6 

01F6 

01F8 

C1F8 

0208 

0208 

0208 

020A 

020A 

021A 

021A 

021A 

0?1A 

021 C 

0?1C 

022C 

022C 

022E 

022E 

022E 

022E 

022E 

0231 

0234 

0236 

0239 

0250 

023F 

0242 
0244 
0248 



540 .ENABL 

541 >CAN$SYM80L:: 

542 8S88 

543 DSSGT V5YMB0L:: 



544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

5 70 

571 

572 

573 

574 

575 

576 

577 

578 

5 79 

580 

531 



.LONG 

SCANSALPHA: : 
BSBB 
DSSGT VALPHA:: 
" .LONG 

SCANSALPHANUM: : 

BS8B 
DSSGT VALPHANUM 
" .LONG 

ScanSF He: : 
BsbS 

Ds$GT_VFile:: 
.Long 

SCANSSPACES:: 
SCANSSPACE:: 
BS88 
DSSGT VSPACE:: 
' .LONG 



10$: 



POPR 
.DSABL 



SCANSSPANC:: 

MOVZWL 

MOVL 

BRB 

MOVZBL 

BBC 

j :i 

S08GEO 
INCL 
SU8L3 
RS8 



10$; 



20%', 
30$: 

40$: 



27-JUL-1984 Fiche 10 Frame F16 Seguence 2054 

27-JUL-1984 15:39:59 VAX-11 Macro V03-01 Page 
23-MAY-1984 14:15:13 DMA1 :CSYS0.SYSMAINT]PARSE.MAR;91 

LSB 

10$ ; Address Mask and branch to common 

A X00O000OO, A XO3FF0010, A X87FFFFFE, A X07FFFFFE 

105- ; Address Mask and branch to common 

A XOOOOO0QO, A XOO00OOOO, A XO7FFFFFE, A XO7FFFFFE 

10$ ; Address Ma"k and branch to common 

,A X00O000OO/XO3FFOOO0, A XO7FFFFFE, A XO'/ T FFFFFE 

10$ ; Address Mask and branch to common 

A XOOOO000O, A XO3FF0420, A X07FFFFFE, A X07FFFFFE 



10$ ; Address Mask and branch to common 

A XOOO0O20O, A XO0OQ0OQ1, A X000OO000, A X0O00O00O 

# a m<r3> 

LSB 



13 
(8) 



Get address of mask to R3 
Fait into SCANSSPANC 



R4,R4 

R5,R1 

20$ 

(R5),R0 

R0,(R3),30$ 

R5 

R4,10$ 

R4 

R1,R5,RQ 



Trim to just length 

Copy start of string 

Start with count of byte 

Fetch a character 

Branch if not valid 

Update address 

Decrement count and branch if more 

Fix count of characters remaining 

Calculate the length just scanned 

Return 



Z7-ENSAA-/.0 

PARSE 
7-14 



SCANSCQMPARE 



Compare strings 
ASCII STRING 
SCANSCOMPARE 



PARSE ROUTINE. 
Compare strings 



G 16 
27-JUL-1984 Fiche 1() 
27-JUL-198A 15:39:59 
23-MAY-1984 H:15:13 



Frame G16 Seguence 2055 
VAX-11 Macro V03-01 Page 14 ; 
DMA1 :[SYS0.SYSMAINT]PARSE.MAR;91 (9) , 



0249 


583 


0249 


584 


0249 


585 


02^9 


586 


0249 


587 


0249 


588 


0249 


589 


0249 


590 


0249 


591 


0249 


592 


0249 


593 


0249 


594 


0249 


595 


0249 


596 


C249 


597 


0249 


598 


0249 


599 


0249 


600 


0249 


601 


0249 


602 


0249 


603 


0249 


604 


0249 


605 


0249 


606 


0249 


607 


0249 


608 


0249 


609 


0249 


610 


0249 


611 


0249 


612 


0249 


613 


0249 


614 


0249 


615 


0249 


616 


0249 


617 


0249 


618 


0249 


619 


0249 


620 


0249 


621 


0249 


622 


0249 


623 


0249 


624 



.S8TTL SCANSCOMPARE Compare strings 

FUNCTIONAL DESCRIPTION: 

This routine performs the same function as the CMPC3 
machine instruction but does not use the instructions, 

CALLING SEQUENCE: 

BSQW SCANSCOMPARE 
INPUT PARAMETERS: 



R2 
R3 
R4 
R5 



Length of string 1 
Address of stringl 
Length of string 2 
Address of string 2 



IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 



NONE 



RO 
R1 
R? 
R3 
R4 
R5 



Length of matching section 
Address of start of stringl 
Length of uncompared string 1 
Address of Uncompared byte in string 
Length of Uncompared string? 
Address of uncompared byte in string 



IMPLICIT 0UTPU1S: NONE 

SIDE EFFECTS: NONE 

COMPLETION CODES: N/A 

CONDITION CODES: 

Z-b<t Set if Exact match, either stringl or string exhausted 

N-bit Set if NO characters matched 

C-bit unpredictable 

V-bit unpredictable 



ZZ-CMS4A-7.0 


SCANKOMPARE Compare 


Strings 
I STRING 


PARSE 






ASC! 


S7-\<< 






SCANSCOMPARE 










0249 




54 


54 


3C 


0249 






50 


D4 


024C 






5? 


D5 


024E 






15 


13 


0250 






54 


D5 


0252 






11 


13 


0254 




65 


63 


91 


0256 






OC 


12 


0259 






5C 


D6 


0258 






53 


D6 


025D 






55 


D6 


025F 
0261 






54 


07 


0261 






52 


D7 


C263 






E8 


14 


0265 

0267 




01 


50 


D1 
05 


0267 
026A 



PARSE ROUTINE. 
Compare strings 



H 16 

27-JUL-1984 Fiche 10 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



Frame H16 Seguence 2056 
VAX-11 Macro V03-0T Page 15 
0MA1:CSYS0.SYSMAINTJPARSE.MAR;91 (10) 



626 SCANSCOMPARE:: 




627 


MOVZWL 


R4,R4 


628 


CLRL 


RO 


629 


TSTL 


R2 


630 


BEQL 


20$ 


631 10$: 


TSTL 


R4 


632 


BEQL 


20$ 


633 


CMP8 


<R3>, 


634 


BNEQ 


20$ 


635 


JNCL 


RO 


636 


INCL 


R3 


637 


J.NCL 


R5 


638 






639 


DECL 


R4 


640 


DECL 


R2 


641 


BGTR 


10$ 


642 20$: 






643 


CMPL 


R0,/M 


644 


RSB 





(R5) 



Trim length 

Clear length of matched string 

Any in string!? 

Branch if none 

Any in string2? 

Branch if string2 exhausted 

Compare a byte 

Branch if no match 

Count character in match 

Update stringl address 

Update string2 address 

Count down characters in string2 
Count down characters in stringl 
Branch if stringl NOT exhausted 

Set condition codes froffl match length 



J7-ENSAA-7.0 

PARSE 
17-H 



SCANSNUMER1C 



Scan number 
ASCII STRING 
SCANSNUMERIC 



PARSE ROUTINE. 
Scan number 



27-JUL-1984 Fiche 10 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



2057 



frame 116 A Seguence w ._ 
VAX-11 Macro V03-01 Page 16 
DMA1:CSYS0.SYSMAIMTJPARSE.MAR;91 (11) 



00OOOO7E 0000007E 03FF0000 00000000 



08 0A 0? 00 78 6F 



64 62 58 4F 44 A3 

10 08 QA 02 10 



026B 

0268 

0266 

026B 

0268 

0268 

0268 

0268 

0268 

0268 

026B 

0268 

0268 

0268 

C26B 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

026B 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

026B 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

0268 

026B 

0268 

0268 

0268 

0268 

0278 

0278 

0287 



646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 



, S8TTL SCANSNUMERJC Scan number 



+ + 



FUNCTIONAL DESCRIPTION: 

This routine can be called to scan and convert a ascii 
number to a signed, quadword value: , m ....... 

The input form is: [+!-] IX 8! b!D!d!0!o!X!x3 [+!-3<digit-list> 

If the radix override is not present then the input radix is used for 

conversion. 

CALLING SEQUENCE: 

BS8W SCAN$NUMERIC 

INPUT PARAMETERS: 



R3 
R4 
R5 



Radix for conversion 
Length of input string 
Address of input string 



IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 



NONE 



R0/R1 Signed ouadword value, both zero if no conversion 

R3 Updated conversion radix 

R4 Updated length of string 

R5 Updated address of string 



CONDITION CODES: 

Z-bit Set it No digits scanned 

N«8it Unpredictable 

C-bit Unpredictable 

V-bit Unpredictable 

IMPuiCiT OUTPUTS: NONE 

COMPLETION CODES: N/A 

SIDE EFFECTS: NONE 

REGISTER USAGE: 

R0/R1 Signed quadword value 

R2 Current character 

R3 Radix for conversion 

R4 length remaining ir string 

R5 Address of next avail character 



DS$GT_VHEX:: 

.LONG 0, A X03FF0000, A X7E,*X7F 
BASE LIST: 

.ASCI I ,, BD0Xbdox M <0><2><10><8><16><2><10><8><16> 

















J 16 


ZZ-ENSAA-7.0 


SCANSNUMERK 


! Scan number 






27-JUL-1984 


PARSE 






ASCI, 


[ STRING PARSE ROUTINE. 


27-JUL-1*; 


l'7-H 






SCANSNUMERIC Scan number 


23-MAY-H 










028C 


702 SCANSDECIMAL:: 






53 


OA 


DO 


028C 


703 


MOVL 


#10, R3 






OD 


11 


028F 
0291 


704 
705 


BR8 


SCANSNUMERIC 










0291 


706 SCANSOCTAL:: 






53 


08 


DO 


0291 


707 


MOVL 


08, R3 






08 


11 


0294 
0296 


708 
709 


BR8 


SCANSNUMERIC 










0296 


710 SCANSBINARY;,' 






53 


02 


DO 


0296 


711 


MOVL 


02, R3 






03 


11 


0299 
029B 


712 
713 


BR8 


SCANSNUMERIC 










029B 


714 SCANSHEX:: 






53 


10 


DO 


0298 
C29E 


715 
716 


MOVL 


#16, R3 










029E 


717 SCANSNUMERIC:: 






54 


54 


3C 


029E 


718 


MOVZWL 


R4,R4 






30 


BB 


02A1 
02A3 


719 
720 


PUSHR 


A M<R4,R5> 






5D 


10 


02A3 


721 


BS88 


CHECK.SIGN 






50 


DD 


02A5 


122 


PUSHL 


RO 






70 


10 


02A7 


121 


esse 


CHECK RADIX 






57 


10 


02A9 


12k 


BS88 


CHECK SIGN 




6E 


50 


C3 


02A8 
02AE 
02AE 


725 
726 
121 CHECK. 


BJSL 
DIGIT: 


RO,(SP) 






55 


DD 


02AE 


728 


PUSHL 


R5 






50 


7C 


0280 


12* 


CLRQ 


RO 






2D 


11 


0282 


730 


BR8 


70$ 




5? 


65 


9A 


0284 


731 40$: 


M0VZ8L 


(R5),R2 




28 BO AF 


52 


El 


0287 


732 


88 C 


R2,DS$GT VHEX,80$ 




03 5? 


06 


E1 


028C 


733 


BBC 


46,R2,505 




5? 


09 


CO 


02C0 


734 


ADDL 


*9,R2 




52 FO 


8F 


8A 


02C3 


735 50$: 


BIC8 


# A C15,R2 




53 


52 


D1 


02C7 


736 


CMPL 


R2,R3 
80S 






18 


18 


02CA 


737 


BGEQ 






55 


D6 


02Cr 


738 


INCL 


R5 




n 51 


53 


C5 


02CE 


739 


MULL3 


R3,R1,-<SP> 






50 


D5 


02D2 


740 


rSTL 


RO 






03 


18 


02D4 


741 


BGEO 


60$ 




6E 


53 


CO 


02D6 


742 


ADDL 


R3,(SP) 




50 52 50 


53 


7A 


02D9 


743 60S: 


EMUL 


R3,R0,R2,R0 




51 


8E 


CO 


02DE 


744 


ADDL 


(SP)+,R1 
R4,40$ 




DC 


I 54 


F4 


02E1 


745 70$: 


S08GEQ 






54 


D6 


02E4 


746 80$: 


INCL 


R4 






04 


BA 


02E6 


747 


POPR 


* A MR2 




08 8E 


E9 


02E8 


748 


BLBC 


(SP)+,90$ 




50 


50 


D2 


02E8 


749 


MCOflL 


RO,RO 




51 


51 


D2 


02EE 


750 


NCOML 


R1.R1 






50 


D6 


02F1 


751 


INCL 


RO 




51 


00 


D8 


02F3 


752 


ADWC 


#0,R1 




5P 


08 


CO 0?F6 


753 90$: 


ADDL 


#8,SP 




55 


52 


D1 


02F9 


754 


CMPL 


R2,R5 








05 


02FC 


755 


RS8 












02FD 


756 INVALID: 








50 


7C 


02FD 


757 


CLRQ 


RO 






30 


8A 


02FF 


758 


POPR 


tf A M<R4,R5> 



Fiche 10 Frame J16 Sequence 2058 

. 15:39:59 VAX-11 Macro V03-01 Page 17 

, 14:15:13 DMA1 :[SYS0.SYSMAINT]PARSE.MAR;91 (12) 



Set radix 



Set radix 



Set radix 



Set radix 



Trim 

Save 



length 
in case 



have to backup 



Check for sign value 

Save sign, O*pos i tive,1=negative 

Set R3 from possible radix change 

Check for sign value again 

Set negative if sign encountered 



Save current position 

Clear accumulator 

Start by counting characters 

Get the character 

Finish if not valid digit 

Branch if not A-F 

Offset "A" to XXA 

Clear extra bits 

Compare with radix 

Assume end of number 

Update string address 

Radix * high order 

I f low order sign bit set 

Brancn if not 

Compinsate for unsiged arith 

Radix * old number + new digit 

Include extra high part 

Branch if another character present 

Restore count 

Get position when started digits 

Branch if No sign or 'V sign 

Complement Low order 

Complement High order 

Inc Low order = Negated 

Inc High order with Carry from low 

Remove R4/R5 from stack 

Set Z-bit from number of digits 

Return to caller 

Clear R0/R1 < clear V-bit 
Restore registers 



ZZ-ENSAA-7.0 

PARSE 

07-14 



SCANSNUMERIC 



65 
65 



52 



01 



02 
65 

FF54 

A5 



S.S 08 

54 



Scan number 
ASCII STRING 
SCANSNUMERIC 



50 
54 
10 
2B 
07 
20 
06 
50 

55 
54 



54 
1B 
25 
16 
CF 
82 

FA 
09 
A2 
02 
85 



PARSE ROUTINE, 
Scan number 



05 



04 
05 
15 
91 
13 
91 
12 
D7 

D6 
D7 

05 



D1 
19 
91 
12 
9E 
91 
1F 

12 
9A 
C2 
B5 
05 



0301 759 RS8 

0302 760 

0302 761 CHECK.SJGN: 

0302 762 CIRL 

0304 763 TSTL 

0306 764 BLEQ 

0308 765 CMP8 

0308 766 BEQL 

030D 767 CMPB 

0310 768 BNEQ 

0312 769 DECL 

0314 770 30$: 

0314 771 INCL 

0316 111 DECL 

C318 773 40$; 

0318 774 RS8 

0319 775 

0319 776 CHECK.RADIX: 

0319 111 CMPL 

031C 778 BLSS 

031 E 779 CMP8 

0321 780 BNEQ 

0323 781 M0VA8 

0328 782 10$ ; CMP8 

032C 783 BtSSU 

032E 784 BNEQ 

0330 785 20$: M0VZ8L 

0534 786 SU8L2 

0337 787 TSTW 

0339 788 30$: RSb 



27-JUL-1984 Fiche 10 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 
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RO 

R4 

40$ 

* A A'V,(R5) 

30$ 

rA M - M ,(R5> 

40$ 

RO 

R5 
R4 



R4,A2 

30i 

#*A M X M ,<R5) 

30$ 

BASE.UST.R2 

(R2) + ,KR5) 

10$ 

30$ 

8(R2),R3 

*2,R4 

(R5) + 



Return to caller 



Assume positive 

Check for sign character 

Branch if no sign, therefore no digits 

Positive? 

Yes, use and skip 

Negative? 

No, Not sign 

Mark negative 



Remove 
Remove 

Return 



character 
character 



Enough chars for radix mod? 

No, skip check 

Start of radix modifier? 

No, Finish and exit 

Address of valid base list 

match? 

Continue unless end of table 

Return invalid if no match here 

Fetch modified base 

Decrement by characters used 

Pass over characters used 

Return 
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ASCII STRING PARSE ROUTINE. 
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for 



L 16 
27-JUL-1984 Fiche 10 

27-JUL-1984 15:39:59 
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033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

C33A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

0^3A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 

033A 



790 
791 
792 
793 
794 
795 
796 
797 

798 
799 
800 
801 
802 
803 
804 
805 

806 
807 

808 
809 
810 
811 
812 
813 
8U 
815 

816 
817 

818 
819 
820 
821 
822 
823 
SM 
825 
826 
B2? 
828 



.SBTTL SCANSSEARCHLJST Search list for unique string 
+ * 
FUNCTIONAL DESCRIPTION: 

This routine can be used to validate a keyword in a list of the form: 

.WORD count, offset-iteml ,of fset-item2 

The offsets are self relative, i.e. ITEM-. 

CALLING SEQUENCE: 

BSBW SCANSSEARCHLJST 

INPUT PARAMETERS: 



R0 
R1 
R3 



Length of string to be searched for 
Address of string to be search for 
Address of Keyword table 



IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 



NONE 



R0 Index of first string that matched 
R1 Address of ASCIC string that matched 
R2-R5 Preserved across call 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: N/A 

CONDITION CODES: 



Z-8it 

N-bit 
V-bit 
C-bit 

SIDE EFFECTS: 



Set if exactly 1 match 
Set if no matchs 
zero 
zero 

NONE 



B 1 

i 1 

I 1 

E 1 

F 1 

G 1 

H 1 



K 

I 

M 

N 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

B 

C 

D 



G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 

F 
G 



I 1 

J 1 



1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 



fc 3 
F 3 



H 4 
1 4 



J A 

K 4 

L A 

M 4 

N A 

B 5 



E 5 

F 5 



DSX$EndSub Routine 
DSXSEndSub Routine 
DSXSEndSub Routine 
DSXSCkLoop Routine 
DSXSCkLoop Routine 
DSXSlnLoop Routine 
OSXSlnLoop Routine 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
reterence 
reference 
reference 
reference 
reference 
reference 
reference 
reference 
ADAPTER 
ADAPTER 



Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 

- MASSBUS 

- MASSBUS 



- MASSBUS ADAPTER 
MASSBUS ADAPTER 
MASSBUS ADAPTER 
MASSBUS ADAPTER 
Symbol table 
Symbol table 
Cross reference 
Cross reference 
*** MCHK730 machine 
*** MCHK730 machine 
CHK$MCHK 
CHKSMCHK 
CHKSMCHK 
CHKSMCHK 
CHK$MCHK 
DSR$FAULT CLEAR 
DSR$FAULT"CLEAR 
DSR$FAULT*"CLEAR 
*** MEMAtC dynamic 
*** MEMALC 
*** MEMALC 
*** MEMALC 
MEMALC 



INTERRUPT Dl 

INTERRUPT DI 

INTERRUPT Dl 

INTERRUPT DISP 

INTERRUPT DISP 

INITIALIZATION 



check 
check 



form 
form 



memory 
memory 
memory 
memory 
memory 



alio 

alio 
alio 
alio 
alio 



dynamic 

dynamic 

dynamic 

dynamic 
MEMORf AND CONDIUONA 
MEMORY AND CONDI TIONA 
MEMORY AND CONDI TIONA 
NONPAGED DYNAMIC MEMO 
NONPAGED DYNAMIC MEMO 
ALLOCATE MEMORY SU8RCJ 



I 5 



ALLOCATE 
ALLOCATE 
ALLOCATE 
ALLOCATE 

ALLOCATE 

GENERAL _ . . 

DEALLOCATE NONPAGED DYNAMIC ME 
CHECK BLOCK PARAMETERS SUBROUT 
GENERAL DEALLOCATION SUBROUUN 
MEMPOOLSINIT ;USER MODE MEMO 
MEMPOOLS1NIT ;USER MODE MEMO 
Symbol table 
Symbol table 
Cross reference 
Cross reference 
Cross reference 



M 5 



N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

I 

M 

N / 

B 8 

C 8 

D 8 

E 8 



5 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 



H 8 



N 9 
B 10 

C 10 
D 10 



Cross reference 

*** MEMMGT Memory management s 
Memory management s 
Memory management s 
Memory management s 
Macros, and Externa 



*** MEMMGT 
*** MEMMGT 
*** MEMMGT 
Libraries, 
Own Storage 
Data Storage 
MapMem Routine 



MapMcm 
MapMem 
MapMem 
MapMem 
MapMem 



Routine 
Routine 
Routine 
Routine 
Routine 



MAPMEMSIOSPACE 
MAPMEMSIOSPACE 



- Map 

- Map 

- Map 

- Map 

- Map 

- Map 
Setup 
Setup 



all 

all 

all 

all 

all 

all 

page tabl 

page tabl 



of 
of 
of 
of 
of 
of 



me 
me 
me 
me 
me 
me 



ACCESSABLE check a page tor ac 
STACKPROT 

MAP FREE MEMORY PROCEDURE. 
MAP FREE MEMORY PROCEDURE, 
GET A BLOCK OF VIRTUAL MEMORY. 
GET A BLOCK OF VIRTUAL MEMORY. 
GET A BLOCK OF VIRTUAL MEMORY. 
RELEASE A BLOCK OF VIRTUAL MEM 
RELEASE A BLOCK OF VIRTUAL MEM 
RELEASE A BlOCK OF VIRTUAL MEM 
TURN MEMORY MANAGEMENT ON, 
TURN MEMORY MANAGEMENT OFF. 
DSRSMMENABLE Enable to disable 
SET PROTECTION ON PAGES. 
SET PROTECTION ON PAGES. 
SET PROTECTION ON PAGES. 
SET PROTECTION ON PAGES, 
CALCULATE PTE ADDRESS SUBROUTI 
CALCULATE PTE ADDRESS SUBROUTI 
DSXSMAPDBGBLOCK - MAP A BLOCK 
DSX«FREEDBGSYM - FREE MEMORY M 
MAP DEBUGGER - MAP THE DEBUGGE 
UNMAP DEBUGGER - UNMAP THE DEB 
UNMAP"DEBUGGER - UNMAP THE DEB 
UNMAP~DE8UGGER - UNMAP THE DEB 
Symbol table 



M 


8 


Symbol table 


N 


8 


Symbol table 


B 


9 


Symbol table 


C 


9 


Symbol table 





9 


Cross reference 


E 


9 


Cross reference 


F 


9 


Cross reference 


G 


9 


Cross reference 


H 


9 


Cross reference 


I 


9 


Cross reference 


J 


9 


Cross reference 


K 


9 


Cross reference 


L 


9 


Cross reference 


M 


9 


- TU81 LOAD DRIVER 



- TU81 LOAD DRIVER 

- TU81 LOAD DRIVER 
DECLARATIONS 
DECLARATIONS 



E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

i . 

I 

J 

K 

M 

c 

D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 

I 
J 
K 

L 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

12 
12 
12 
12 
12 
12 
12 
12 

12 
12 
1 2 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
H 
14 

H 

U 
14 
14 
14 
14 
14 
14 



initializatio 

initializatio 

initializatio 

0IO 

QIO 

QIO 

QIO 



routines 



DECLARATIONS 

TU81 load device 

TU81 load device 

TU81 load device 

TU81 load driver 

TU81 load driver 

TU81 load driver 

TU81 load driver 

Symbol fable 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

*** ODS Disk RMS 

declarations 

declarations 

Advance RFA 

Advance RFA 

Access file block 

Access file block 

Access file block 

Access file block 

ODS OPEN service 

ODS OPEN service 

ODS OPEN service 

0DSSGET routine 

0DS$GET routine 

0DSSGET routine 

0DSSGET routine 

0DSSGET routine 

0DSSREAD routine 

ODStREAD routine 

0DSSREAD routine 

0DSSREAD routine 

*** 0NLY730 NEBULA 

*** ONLY730 NEBULA 

*** ONLY730 NEBULA 

Macro invocations 

Macro invocations 

DSPSCONFJG ADP Build P-table 

DSP$C0NFIG"ADP Build P-table 

DSP$CONF]G"ADP Build P-table 

MAPSI0SPACE Validate mapping 

MAPSI0SPACE Validate mapping 

FETCH LONG Retreive longword 

PURGE DATAPATH 

PURGE DATAPATH 

UBASINI1 IAL UNIBUS ADAPTER INI 

IOSTESTCSR x lest CSR for exis 

IOGENSCONN VEC 

QIOCLEAN^CPU 

ONLY SCB CPU specific SCB setu 

SCBVtCT0R„xxx Otherwise undefi 

SCBVECTQR xxx Otherwise undefi 

ONLY CLOCK INIT Perform cpu-sp 

ONLYlCLOCKlINIT Perform cpu-sp 

Symbol table 

Symbol table 

Psect synopsis 



specific ro 
specific ro 
specific ro 



M H Cross reference 

N K Cross reference 

b 15 Cross reference 

C 15 Cross reference 

D 15 Cross reference 

F 15 Cross reference 

P 15 ASCII STRING PARSE ROUTINE, 

G 15 ASCII STRING PARSE ROUTINE 

H 15 ASCII STRING PARSE ROUTINE, 

I 15 DECLARATIONS 

. 15 ASCII STRING PARSE ROUTINE, 

K 15 ASCII STRING PARSE ROUTINE. 

L 15 ASCII STRING PARSE ROUTINE, 

M 15 ASCII STRING PARSE ROUTINE, 

N 15 ASCII STRING PARSE ROUTINE. 

B 16 ASCII STRING PARSE ROUTINE. 

C 16 A CI I STRING PARSE ROUTINE. 

D 16 ASCII STRING PARSE ROUTINE. 

E 16 SCANSSYMBOL Scan symbol 

F 16 SCAN$SYMBOL Scan symbol 

G 16 SCANSCOMPARE Compare strings 

H 16 SCAN$COMPARE Compare strings 

I 16 SCANSNUMERIC Scan number 

J 16 SCANSNUMERIC Scan number 

K 16 SCANSNUMERIC Scan number 

L 16 SCANSSEARCHLIST Search list fo 
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SCANSSEARCHLIST Search list for unique s 

ASCII STRING PARSE ROUTINE. 
SCANSSEARCHLIST Search list 



for 



B 1 
27-JUL-1984 Fiche 11 

27-JUL-1984 15:39:59 
unique s 23-MAY-1984 14:15:13 
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08 AE 









033A 


830 


SCANSSEARCHLIST 


* » 


50 


50 


3C 


033A 


831 




MOVZWL 


'ro,ro 




3F 


BB 


Q33D 
033F 


832 




PUSHR 


# A M<R0,R1,R2,R3,R4,R5> 




7E 


7C 


833 




CLRQ 


-<SP> 




7E 


D4 


0341 
0343 


834 
835 




CLRL 


-<SP> 


52 


83 


3C 


0343 


836 




MOVZWL 


(R3)+,R2 


53 6342 


3E 


0346 


837 




MOVAW 


(R3)CR2J,R3 




2!: 


11 


034A 
034C 


838 
839 


10$: 


BRB 


60$ 


55 


73 


32 


034C 


840 




CVTWL 


-(R3),R5 




29 


13 


034F 


841 




BEQL 


60$ 


55 


53 


CO 


0351 


842 




ADDL 


R3,R5 
(R5)+,R4 


54 


85 


9A 


0354 


843 




MOVZ8L 




21 


13 


0357 
0359 


844 
845 


20$: 


BEQL 


60$ 


OC 


AE 


7D 


0359 


846 




MOVQ 


12(SP),R0 


54 


50 


D1 


035D 


847 




CMPL 


R0,R4 
60i 




18 


14 


0360 


848 




BGTR 




05 


11 


0362 


849 




BR8 


40$ 








0364 


850 30$: 






85 


81 


91 


0364 


851 




CMF'3 


(R1)+,(R5)+ 




11 


12 


0367 


852 




BNEQ 


60$ 


F8 


50 


FA 


0369 


853 40$: 


S08GEQ 


R0,30$ 




6E 


D6 


036C 


854 




INCL 


(SP) 


4 AE 


52 


DO 


036E 


855 




MOVL 


R2,4(SP) 

(R3) £ R5 

R3,R5,8(SP) 


55 


63 


32 


0372 


856 




CVTWL 


55 


53 


CI 


0375 


857 




ADDL3 








037A 


858 60$: 






CF 


52 


F4 


037A 
037D 


859 

860 




SOBGEQ 


R2,10$ 


50 


8E 


DO 


037D 


861 




MOVL 


(SP)+,R0 


6E 


8E 


7D 


0380 


862 




MOVQ 


<SP>+,<SP) 


01 


50 


D1 


0383 


863 




CMPL 


R0,*1 




3F 


BA 


0386 


864 




POPR 


rf A M<R0,R1,R2,R3,R4,R5> 






05 


0388 


865 




RS8 





Trim length 
Save registers 
Space for Index 0(SP), 
Count of matches 



Address 4(SP) 



Get count of strings to match 
Point past last word 
Start by counting 

Get offset to ASCIC string 

Skip it if offsets 

Make it absolute 

Fetch length of ASCIC string 

Branch if null string, try next 

Restore original len,addr 

compare 

Branch if input longer than string 

Start by counting character 

Compare a byte 

Mismatch, try next string 

Branch if more characters in input 

Count this match 

Save index of string match 

Get offset to ASCIC 

Save address of match entry 

If not last string, do next 

Get count of matches 

Remove saved R0/R1 

set condition codes from # of matchs 

index, address, restore R2,R3,R4,R5 

Return 
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0389 


G67 


0389 


868 


0389 


869 


0389 


870 


0389 


871 


0389 


8?2 


0389 


873 


0389 


874 


0389 


875 


0389 


876 


0389 


877 


0389 


878 


0389 


879 


0389 


880 


C389 


881 


0389 


882 


0389 


883 


0389 


884 


0389 


885 


0389 


886 


0389 


887 


0389 


888 


0389 


889 


0389 


890 


0389 


891 


0389 


892 


0389 


893 


0389 


894 


0389 


895 


0389 


896 


0389 


897 


0389 


898 


0389 


899 


0389 


900 


0389 


901 


0389 


902 


0389 


903 


0389 


904 



.SBTTL SCANSDEVICE 



Scan a device name 



++ 



FUNCTIONAL DESCRIPTION: 



This routine can be used to scan a device name of the form: 
gganC:] , gq is generic device name a is single Letter A-z, 
and n is a decimal number in the range 0-255, 

CALLING SEQUENCE: 

BSBW SCAN$DEVICE 

INPUT PARAMETERS: 

R4 Length of input string to scan 

R5 Address of input string to be scanned 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: 



R0 
R1 
R4 
R5 



<0,16> length of name scanned, <16J6> unit number 
Address of device name 
Updated Input string length 
Updated input string address 



COMPLETION CODES: 
CONDITION CODES: 

2-bit Set if no device present 
IMPLICIT OUTPUTS: NONE 
SIDE EFFECTS: NONE 
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07- 14 



SCANSDEVI CE Scan a device name 

ASCJI STRING PARSE 
SCANSDEVICE Scan a 



ROUTINE, 
device name 



6E 



54 54 

30 

30 

FE63 

24 65 
08 
55 
54 
8E 
02 

30 

FE3F 

23 

FEE2 

03 

50 01 

55 04 AE 

02 AE 50 

54 

07 

3A 85 

04 

55 

54 

03 

50 



50 
30 



0389 

3C 0389 

BB 038C 

BB 038E 

30 0390 

91 0393 

12 0396 
D6 0398 
07 039A 
7C 039C 

11 039E 
03A0 

BA 03A0 

03A2 

30 03A2 

13 03A5 
30 03A7 

12 03AA 
CE 03AC 
C3 03AF 
BO 03B4 
D7 03B8 
19 03BA 
91 03BC 

13 038F 
D7 03C1 
D6 03C3 
BA 03C5 
B5 03C7 
05 03C9 

03CA 

7C 03CA 

BA 03CC 

05 03CE 

03CF 



906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 



SCANSDEVICE:: 
MOVZWL 
PUSHR 
PUSHR 
BSBW 
CMPB 
BNEO 
INCL 
DECL 
CLRQ 
BR8 



5$: 
7$: 



10$; 



20$: 
30$: 



40$: 



BSBW 

BEOL 

BS8W 

BNEQ 

MNEGL 

SUBL3 

MOVW 

DECL 

BLSS 

CMPB 

BEQL 

DECL 

INCL 

POPR 

TSTW 

RSB 

CLRQ 
POPR 
RS8 
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R4,R4 

# A M<R4,R5> 

# A M<R4,R5> 

SCANSALPHANUM 

(R5),/TA"$ M 

5$ 

R5 

(SP) + 
7$ 



POPR A M<R4,R5> 



SCANSALPHA 
40$ 

SCANSDECIMAL 
10$ 

n,M 

4(SP),R5,(SP) 

R0,2(SP) 

R4 

20$ 

(R5) + ,**A"! M 

30$ 

R5 

R4 

# A M<R0,R1> 

RO 



RO 
# A M<R4,R5> 



C15J 
C15] 
[15] 
[15] 
[15] 
[15] 
[15J 
[15] 
[15] 
[15] 



Trim length 

Save input pointers 

Save input pointers 

check name 

is this a long device name 

if not then continue 

else skip '$' 

skip character 

reset stack 

go check generic 

restore original registers 

Get an alpha field 

Branch if not present 

Scan a decimal number 

Branch if number scanned 

Force sign bit on 

Length of name is new position- old 

Save unit number in top of length 

Subtract for length of ":" 

Branch if no character there 

Check for optional ":" 

Branch if present 

Fix address 

Fix length 

Get length, address of device name 

Set condition codes, from length 

Return to caller 

; Clear length, address 
; restore pointers 
; Return 
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Breakup File 



52 54 

53 

6647 

55 51 

54 50 



54 

55 
56 
65 54 



50 
5B 8F 

3C 



65 



65 



50 
54 



57 

54 
55 



name into parts 
ASCII STRING 
Breakup File 



PARSE ROUTINE, 
name into parts 



Inputs; 

04 (Ap) 
08 (Ap) 
12(Ap) 



03CF 942 .Subtitle 

03CF 943 

03CF 944 

03CF 945 

03CF 946 

03CF 947 

03CF 948 

03CF 949 

03CF 950 

03CF 951 

03CF 952 

03CF 953 

03CF 954 

03CF 955 

C3CF 956 

03CF 957 

03CF 958 

03CF 959 

03CF 960 

03CF 961 

03CF 962 

03CF 963 

03CF 964 OverLay: 

50 C3 03CF 965 SubL3 

52 D6 03D3 966 IncL 

55 DO 03D5 967 MovL 

52 7D 03D8 968 MovQ 

fl CI 03DC 969 AddL3 

<)1 C3 03E0 970 Subl3 

05 03E4 971 Rsb 

03E5 972 

00FC 03E5 973 

04 AC DO 03E7 974 MovL 

12 15 03EB 975 BLeq 

08 AC DO 03ED 976 MovL 

OC AC DO 03F1 977 MovL 

3A 3A 03F5 978 LocC 

04 13 03F9 979 BEql 
57 D4 03FB 980 Clrl 
DO 10 03FD 981 BsbB 
54 D5 Q3FF 982 10$; TstL 
74 15 0401 983 BLeq 
65 9A 0403 984 MovZBL 
50 91 0406 985 CmpB 

05 13 040A 986 BEql 
50 91 040C 987 CmpB 
10 12 040F 988 BNeq 
02 80 0411 989 20$; AddB2 

50 3A 0414 990 LocC 
02 12 0418 991 BNeq 
5B 11 041A 992 Brb 
01 DO 041C 993 30$; MovL 
AE 10 041F 994 BsbB 
2E 3A 0421 995 40$; LocC 

51 D1 0425 996 CmpL 
24 13 0428 997 BEql 
50 D5 042A 998 TstL 



E 1 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 

Breakup File name into parts 
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Function: 

Break up fields of a filename spec 
repeated calls to this routine. If 
present, the descriptor for that fi 
appropriate field of the output fil 



so that they can be merged by 
any of the filespec fields are 
eld is overlayed over the 
e block 



Length of filename string 
Address of filename string 
Address of file block: 
(00) 



(08) 
(16) 
(24) 
(32) 



Descriptor 
Descriptor 
Descriptor 
Descriptor 
Descriptor 



R0, 
R2 
R5, 
R2, 

#1. 



R4, R2 

R3 

(R6)[R7] 
R1, R5 
R0, R4 



of device part (incl. •:') 

of directory part (incl. 'C & 'D') 

of filename part 

of file type part (incl. '.'> 

of version part (incl. ';•) 



Utility routine 
Calculate length of field 
♦. include terminator 
Field starts at 'pivot* 
Move to correct descriptor 
Update string pointer 
.. and length 
And return 



.Entry BreakUp_File, *M<R2, R3, R4, R5, R6, R7> 



04 (Ap), 
10$ 

08<Ap), 
12<Ap), 



R4 

R5 
R6 
R4, 



#*A 

10$ 

R7 

Overlay 

R4 

BreakUp„File_X 

(R5), R0 

RQ, rA"C" 



(R5) 



20$ 
R0, 
40$ 



rA'v 



R0 
R4, 



(R5) 



BreakUp.File.X 

#1, R7 

OverLay 

# rt A'V', 

R1, R5 

60i 

R0 



R4, (R5) 



Breakup.^ He routine 

Get length of filespec 

Skip ahead (exit) 

Get address 

Get address of file block 

Scan for device part 

Branch if none 

Index 

Update pointers/etc. 

More String? 

If not* all done 

Get next character 

If it's a directory start 

•• character, then 

.. use it 

Form closing character 

Is there a corresponding 

., closing char W or •>•)? 

If not. exit 

Setup index 

If it's OK, use it 

Is there a file type? 

If yes, and no name, go 

Was it found at all? 



ZZ-ENSAA-7.0 

PARSE 

07-14 



Breakup F'ile 



name into parts 
ASCII STRING 
Breakup File 



PARSE ROUTINE, 
name into parts 



65 54 
55 



52 51 

53 

10 A6 

54 



65 



65 
65 
5? 
53 



54 
54 
51 

55 

18 A6 
54 

20 A6 

50 



09 
3B 
51 
38 

55 
55 
52 
50 
54 
2E 
2E 
21 

54 
25 
55 
3B 
04 

55 
52 
01 
52 
50 
54 
04 
54 

01 



12 042C 
3A 042E 
D1 0432 

13 0435 
0437 

C3 0437 
DO 0<*3B 
70 043E 
7D 0442 
05 0445 
15 0447 
91 0449 
12 044C 

044E 
07 044E 
19 0450 
D6 0452 
3A 0454 
12 0458 
3A 04 5A 

045E 
C3 045E 
D6 0462 
C3 0464 
7D 0468 
7D 046C 
D5 046F 
15 0471 
7D 0473 

0477 
DO 0477 
04 047A 

04 78 

047B 



999 
1000 
1001 
1002 
1003 
1C04 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 

1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 



50$: 



60$: 



70$: 



BNeg 
LocC 
CmpL 
BEql 

SubL3 

MovL 

MovQ 

MovQ 

TstL 

BUg 

CmpB 

BNeq 

DecL 
BLss 
IncL 
LocC 
BNeg 
LocC 



SubL3 

IncL 

SubL3 

MovQ 

MovQ 

80$: TstL 
BLeq 
MovQ 

Breakup File X: 
MovL 
Ret 

• END 



F 1 

27-JUL-1984 Fiche 11 

27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 

50$ 

#*A M ; M , R4, (R5) 

R1- R5 

80$ 

R5, R1, R2 
R5, R3 
R2, 16CR6) 
R0, R4 
R4 

BreakUp.File.X 
# A A'V', (R5> 
80$ 

R4 

BreakUp^FHe.X 

R5 

#*A M ; M , R4, (R5) 

70$ 

^A".", R4, (R5) 

R5, R1, R2 

R2 

#1, R5, R3 

R2, 24(R6) 

R0, R4 

R4 

Breakup File X 

R4, 32(R6) 

01, R0 
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If so, get file name 

Was there a version? 

If it's right here, 

. . use it as filename term. 

R1 points past end of name 

Get name length 

Address of start of name 

Move to output 

Skip to terminator 

Any file left? 

If not, exit now 

Is there a type? 

If not, check version 

Next character is • .'; type 

Skip past * .' to check for 

Exit if no more 

.. '.• or •; ' for version 

Is there a version? 

Yep, go off 

Alternate syntax for version 

R0 f R1 at version or end 

Calculate length of 

.. the file type string 

And it's address 

And move it to output 

Update to terminator/end 

Is there more file? 

If not, exit 

Use rest of string as version 

Exit routine 

Set up status return 

And then return, of course 



24 
(16) 



ZZ-ENSAA-7.0 
PARSE 
Symbol table 



Symbol table 



ASCII STRING PARSE ROUTINE. 



G 1 

27-JUL-1984 

27-JUL-19I 
23-MAY-19I 



Fiche 11 
14 15:39:59 
14 14:15:13 
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$*ARGS 

$$T1 = 

ACTION 

BASE LIST 

BRANCH 

BRANCH IF NONE 

BREAKUP.FlLE 

BREAKUP FILEX 

CHECK^DlGIT 

CHECKJIADIX 

CHECK^SIGN 

ClUMLNUM = 

CLI$K„ALPHA = 

CLISK^BIF 

CLISK.B1FS = 

CLI$K_BR 

CLI$K,CALL 

CLI$K_COMMA * 

CL1$KJ>EC 

CLISOOL = 

CLISK ERROR * 

CLISKJXIT * 

CLISK^FILE * 

CUSK.HEX 

CLI$K KEYWORD = 

CLI$K NUM 

CLI$K„OCT 

CLI$K w RETURN * 

CLISK^SLASH = 

CLI$C„SPACE = 

CLISK^STRING = 

CLI$K„SYMBOL = 

CLIiK,. VALUE * 

DO ACTION 

DS$GL_CLI8ASE 

DSSGL..RADIX 

DS$GTJ/ALPHA 

DS$GT„VALPHANUM 

DSSGOFILE 

DS$GT_VHEX 

D5$GT_VSPACE 
DSiGT VS/MBOL 
DSlKjRROR 
DS$K NORMAL = 
DSS^SEVERE = 
DS$K~SUBSYS * 
DSlKJJARNING - 
DSSM^ABRTFLG * 
DSSM^BADTIME = 
DSSM^BATCH * 

DS$M~BRKCLR 
DS$M"BRKPT 
DSSM CHARFLG = 
DSSM CMDFLG * 
DS$M CULC - 

DSSM^CTRLO = 

DS$M"DEVFt.G 



00000004 
0003 jOH 

vm 

00000099 
000000E6 
000003E5 
00000^77 
000002AE 
00000319 
00000302 
00000087 
000000ft6 
00000083 
00000094 
00000082 
00000092 
0000008E 
0000008A 
00000091 
00000080 
00000081 
00000095 
00VQ0Q89 
0000008C 
00000085 
00000088 
00000093 
00000090 

mm 

00000080 
0000008F 
000000E8 

******** 
******** 

0QQQQ1E6 
000001 F8 
00 
00 




10000001 
0001 000 
0000020 



03 
03 



03 



RG D 03 
R D 03 
R D 03 
R D 03 
R D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
R D 03 
X 03 
X 03 
RG D 03 
RG D 03 
RG D 03 
RG D 03 
RG D 03 
RG D 03 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



DS$M DISABLCC 

DSSM.DONFLG 

DSSM^ERRFLG 

DSSMIEXCEPT 

DSSMlEXETST 

DSSMlHLTFLG 

DSSM LODFLG 

DSSM'MEMMGT 

DSSM^OUTPUT 

DSSMJHJBFLG 

DSSMISCRIPT 

DSSM^SETIMR 

DSSMlSTRFLG 

DS$M_SUBT 

DS$M SYSFLG 

DSSMJIMRON 

DS$VJ\BRTFLG 

DSSV„8ADTIME 

DSSVlBATCH 

DSSV^BRKCLR 

DSSVlBRKPT 

DSSV^CHAAFLG 

DSSV CMDFLG 

DSSV.CTRLC 

DSSV_CTRLO 

DSSV_DEVFLG 

DSSVJUSABLCC 

DSSVJ>0NFLG 

DS$V_ERRFLG 

DSSVJXCEPT 

DSSVlEXETST 

DSSV_HLTFLG 

DSSV.LODFLG 

DSSVJ1EW1GT 

DSSV^OUTPUT 

DSSVlRUBFLG 

DSSVJCRJPT 

DSSVlSETIMR 

DSSV„STRFLG 

DSSV..SU8T 

DS$V^SYSFLG 

DSSV~TIMRON 

DSSjiRJTH 

DSSJ\S8E 
DSS~8ADLJNK 
DS$lBADTYPE 
OSMIIC 

DSS~CHME 

DSS_CHMK 

DS$_DEVNAME 

DSSJAROR 

DSSlFHWE 

DSSJRAGBUF 

OSS! 'BUSY 

DSSliCERR 

DSSJHWE 

DS$I*LLCHAR 



= 01000000 

= 5QQ52000 

= 00000010 
= 00080000 
s 00040000 
= 00000008 
= 00000002 

* 00008000 
a 00800000 

* 00000004 

■ QQ0Q4000 

* 0000OAOO 

* 00020000 

■ 00000006 
= 00000014 

* 00000006 
= ^0000008 
= 00000007 

: mm 

. 00000009 
= 00000018 
0000O00D 
104 
H3 
H2 
00000003 
00000001 
I000000F 
1001 7 




I6( 

)6600Ci 
0066QQC0 

: ni 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

b 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

h 

D 

D 

D 

D 

D 



DSSJLLPAGCNT 

DSSJLLUNJT 

DSS'INSFMEM 

DS$;jPL2HI 

DSSJVADDR 

DSSJVVECT 

DSS KRNLSTK 

DSS^LOGJC 

DS$ MCHK 

DSS MMOFF 

DS$lNEEDUNJT 

DSS_N0DE 

DSSJJOPCS 

DSS^NORMAL 

DSSlNOSUPPORT 

DSS_NOTDON 

DSSINOTIMP 

DSS^NULLSTR 

DSS.OVERFLOW 

DSSJ>OWER 

DS$_PROGERR 

DS$„SEVERE 

DSS.TRANSL 

DSS^TRUNCATE 

DS$ UNEXPINT 

DSI.VASFULL 

DSS WARNING 

DSXlPARSE 

DSXSPARSE X 

DSXISUPERPARSE 

EXIT 

HPIA.DEPENDENT 

HPSA^DEVICE 

HPIA^DVA 

HPSA^UNK 

HPIBlDRIVE 

HPIBZFLAGS 

HPSQIDEVICE 

HPSTlDEVICE 

HPSTlTYPc 

HPSWlSIZE 

HP$W"VECTOR 

INVACID 

OVERLAY 

PARSEMCTION 

PARSEI'BUFADR 

PARSEIIFLAG 

PARSES NARGS 

PARSE$"TREE 

HARSEjOMMON 

SAVEjALL 

SAVE^STATUS 

SCANlALPHA 

SCANSALPHANUM 

SCANIBINARY 

SCANSCOMPARE 

SCANSDECIMAL 



= 00660078 
= 00660100 
= 00660050 
= 006600B8 
= 00660040 
= 00660038 
» 00660090 
« 00660070 
= 00660088 

* 00660058 
= 006600F8 
= 00660128 
a 00660110 
« 00660001 
= 006600B1 
^ 00660030 
» 006600B0 
s 00660010 

: «m 

s 00660020 
= 00660004 

* 006600A0 
« 00660028 
= 006600D8 

* 00660048 
= 00660000 

00000007 
-0006 



D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

[) 

D 

D 

D 

D 

D 

D 

D 
RG D 03 
R D 03 
RG D 03 
R D 03 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



R 
R 



03 
D 03 

D 
D 
D 

D 
D 
D 



rg d o: 

RG D 03 

RG D 03 

RG D 03 

RG D 03 



ZZ-ENSAA-7.0 


Symbol table 






PARSE 






AS( 


Symbol table 








SCANSDEVICE 


00000389 RG 


D 


03 


SCANtFILE 


00000208 RG D 


03 


SCANSHEX 


0000029B RG D 


03 


SCANSNUMERIC 


0000029E RG 


D 


03 


SCANlOCTAL 


00000291 RG 


D 


03 


SCANSSEARCHUST 


0000033A RG D 


03 


SCANSSPACE 


0000021 A RG D 


03 


SCAN$SPACES 


0000021A RG 


D 


03 


SCAN$SPANC 


0000022E RG 


D 


03 


SCAN*SYMBOL 


000001 D2 RG 


D 


03 


SIZ... 


: 00000C01 


D 




SS$ NORMAL = 
TRAVERSE 


" 0000001 C R 


D 



03 


TRVALNUM 


00000112 R 
000001 OD R 
OOOOOODE R 


D 


03 


TRVALPHA 


D 


03 


TRVBIF 


D 


03 


TRVBIFS 


O0OOOOD2 R 


D 


03 


TRVBR 


00000097 R 


D 


03 


TRVCALL 


00000089 R 


D 


22 


1RVCOMMA 


000001 6A R 


D 


03 


TRVDEC 


OOOOOOFC R 


D 


03 


TRVEOL 


00000183 R 


D 


03 


TRVERR 


000000C7 R 


D 


03 


TRVEXIT 


00000063 R 


D 


03 


TRVFRE 


000001 6A R 
000000F7 R 


D 


05 


TRVHEX 


D 


03 


TRVKEYWCRD 


000001 2F R 


D 


03 


TRVNUM 


00Q0Q101 R 

00000108 R 
0O00OOF2 R 


D 


03 


TRVNUMA 


D 


03 


TRVOCT 


D 


03 


TRVRETURN 


00000069 R 


D 


03 


TRVSLASH 


000001 6E R 


D 


03 


TRVSPACE 


OOOOOOED R 


D 


03 


TRVSTRING 


00000117 R 


D 


03 


TKVSYMBQL 


00000160 R 


D 


03 


TRVVALUE 


00000173 R 


D 


03 


TRV COMMA. VALUE 


00000176 R 


D 


03 


V.BlT 


= ooooouoa 


D 





PSECT name 

, ABS , 

$ABS$ 

WORK 

CODE 



ASCII STRING PARSE ROUTINE. 



H 1 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 
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Allocation 

00000000*"" ( 
00000032 ( 
00000008 ( 
00000478 ( 



! Psect synopsis ! 

PSECT No, Attributes 

0.) 00 7 OJ NOPIC USR 

50.) 01 ( 1.) NOPIC USR 

8.) 02 ( 2.) NOPIC USR 

1H7J 03 ( 3.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 

CON ABS LCL NOSHR EXE RD 

CON REL LCL NOSHR NOEXE RD 

CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
URT NOVEC LONG 

NOWRT NOVEC BYTE 



ZZ-ENSAA-7.0 

PARSE 

Cross reference 



Cross reference 



ASCII STRING PARSE ROUTINE. 



SYMBOL 



SSARGS 

S$T1 

ACTION 

BASEJ.IST 

BIT.,, 

BRANCH 



VALUE 

=00000004 
=00000014 
OO00OOA1-R 

0000027B-R 
=00000003 
00000099-R 



BREAKUPJILE 

BREAKUP FILE.X 

CHECK.DTGIT 

CHECK„RAD1X 

CHECK^SIGN 

CLI$*J\LNUM 

CLISK^ALPHA 

CLISK^BIF 

CLISK.BIFS 

CLIiK.BR 

CLISK^CALL 

CLI$K„COMMA 

CU$K_DEC 

CLISK.EOL 

CLI$KJRROR 

CLIIKJXIT 

CLISKJILE 

CLI$K_HFX 

CLISK^KEYWORD 

CLISKJWM 

CLI$KJ)CT 

CLI$METURN 

CLI$K_SLASH 

CLISK SPACE 

CLISK^STRING 

CLI$OYMB0L 
CLISK VALUE 

00 ACTION 

DS$GL_CLIBASE 

DS$GL_RADIX 

DS$GT_VALPHA 

DS$GT„VALPHANUM 

DSSGLVFILE 

DS$G\VHEX 

OS$Gi,VSPACE 

DSIGT YSYK80L 

DS$<jRR0R 

DS$K NORMAL 

DSSK^SEVERE 

0S$K SUBSYS 



000003E5-R 
0QQQQ477-R 
OOQQ02AE-R 
0000031 9-R 
00000302-R 
=00000087 
=00000086 
00000083 
0094 
0082 
=00000092 
*O000QO8E 
=0000008* 
=00000091 
=00000080 
^00000081 
=00000095 
=00000089 
=0000008C 
^00000085 
=00000088 
=00000093 
=00000090 
=00000084 



w 



I 1 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 
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DEFINITION 



116 
116 
282 

699 
117 
275 



8D 
00008F 
E8-R 
OQ-XR 
00-XR 
1E6-R 
1F8-R 
OA-R 
6B-R 
1C-R 
01D4-R 

ffi? 

=00000004 
=00000066 




973 

1028 

727 

776 

761 

114 

114 

114 

114 

114 

114 

114 

114 

114 

114 

114 

114 

1H 

114 

114 

114 

114 

114 

114 

114 

114 

114 

322 



548 
553 
558 
697 

5*', 
543 

115 
115 
115 
115 



(1) 
(1) 
(4) 

(11) 

(1) 

(4) 



BRANCHJFJIONE O0000OE6-R 320 (5) 



(16) 

(16) 

(12) 

(12) 

(12) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(D 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(5) 



! Symbol Cross Reference ! 




REFERENCES... 








116 


(1) 








116 


(1) 








#-238 


(3) 


#-249 


(4) 


#-270 


#-315 


(4) 


#-323 


(5) 


#-370 


781 


(12) 








114 


(1) 


115 


(1) 


117 


#-230 


(3) 


#-307 


(4) 


#-316 


#-479 


(6) 








#-331 


(5) 


#-348 


(5) 


#-354 


#-410 


(6) 


#-464 


(6) 




#-1009 


(16) 


#-1014 


(16) 


#-102 


#-723 


(12) 








#-721 


(12) 


#-724 


(12) 





#-224 



#-233 

286 

#-345 



(4) 
(5) 

(1) 
(4) 

(5) 



#-297 
#-390 



#-321 
#-360 



(4) 
(6) 



(5) 
(5) 



#-306 

#-396 
#-404 



(16) #-983 (16) #-992 



(4) 

(6) 
(6) 

(16) 



(3) 



(3) 
(4) 
(5) 



#-484 



(6) 



732 (12) 



115 (1) 



ZZ-ENSAA-7.G 

PARSE 

Cross reference 

DS$KJJARN1NG 

OSSM^ABRTFLG 

DSSM_BADTIME 

DSiM^BATCH 

DS$M„BRKC!_R 

DSSM^BRKPT 

DSSM CHARFLG 

DSSM^CMDFLG 

DSSMlCTRLC 

DSSMlCTRLO 

DS$M_i/EVFLG 

DSSMJJISABLCC 

DSSM DONFLG 

DSSM^ERRFLG 

DS$MJXCEPT 

DSSMlEXETST 

DStM.HLTFLG 

DSSM.LODFLG 

DSSMJItMMGT 

DSSMlOUTPUT 

DS$M_RU3FLG 

DSSM^SCRIPT 

OSSMlSETIM^ 

DSIM^STRFLG 

DS$M„S\/BT 

DS$M_SYSFLG 

DSSM T1MRON 

DS$V„ABRTFLG 

DS$V„9ADTIME 

DS$V BATCH 

DS$V_BRKCIR 

DS$V W BRKPT 

DS*V_CHARFLG 

DS$V„CMDFLG 

DS$V„CTRlC 

0S$V_CTRLO 

DS$V w OEVFLG 

OSSVlDISABLCC 

0SSV,0ONFLG 

DSSVJRRFLG 

DSSVJXCEPT 

DS$V„EXETST 

DS$V_HLTFLG 

DSIV..LOD; LG 

DS$V>EMMGT 

DS$VJ3UfPUT 

DS$V W RU8FLG 
DS$OCR!PT 
DSSV^SETIMR 
DS$V STRFLG 
OSI^SUBT 
DSSVlSYSFLG 
DS»\/ TIMRON 
DS$ XRITH 
DSS'ASBE 
DS$ BAD* INK 
DS$>U YPE 



Cross reference 



ASCII STRING PARSE ROUTINE. 




J 1 
27-JUL-1984 Fiche 11 

27-JUL-1984 15:39:59 
23-MAY-1984 



Frame J1 
VAX-11 Macro 



e 



Pag 
H:15:i3 DMA1 :CSYS0.SYSMAINT]PARSE.MAR;91 



Sequence 2069 
V03-0T 



28 
(16) 



=00000000 115 <1> 

=00000040 117 (1) 

=00100000 117 (D 

=00400000 117 (1) 

=00001000 117 (1) 

=00000800 117 (1) 

*0000C1 00 117 (1) 

=00000080 117 (1) 

=00000001 117 (1) 

=00010000 117 (1) 

=00000200 117 (1) 

=01000000 117 (1) 

=00002000 117 (1) 

=00000010 117 (1) 

=000*0000 117 (1) 

=00040000 117 (1) 

=00000008 117 (1) 

=00000002 117 (1) 

=00008000 117 (1) 

=00800000 117 (1) 

=00000020 117 (1) 

=00200000 117 (1) 

=02000000 117 (1) 

=00000004 117 (1) 

s00004000 117 (1) 

=00000400 117 <1) 

=00020000 117 (1) 

=00000006 117 (1) 

=00000014 117 (1) 

=00000016 117 (1) 

=0000000C 117 (1) 

=00000008 117 (1) 

-00000008 117 (1) 

=00000007 117 (1) 

=00000000 117 (1) 

=00000010 117 (1) 

=00000009 117 (1) 

=00000018 117 (1) 

=00000000 117 (1) 

=00000004 117 (1) 

=00000013 117 (1) 

=00000012 117 (1) 

=00000003 117 (1) 

=00000001 117 (1) 

=000QQ0QF 117 (1) 

=00000017 117 (1) 

«ffii IK ill 

H9 117 (1) 

>02 117 (1) 

)0E 117 (1) 

)0A 117 (1) 

>Q00QQ11 117 (1) 

<Q06600DO 115 (1) 

=00660118 115 (1) 

=0Q660QF0 115 (i) 

=006600E8 115 (1) 



ZZ-ENSAA-7.0 

PARSE 

Cr^ss reference 

DSS..B1IC 

DSS^CHME 

DSS CHMK 

DSS^DEVNAME 

DSS ERROR 

DSS,FHWE 

DSSJRAGBUF 

DSS^ICBUSY 

DSSJCCRR 

DSSJHWt 

DSS ILLCHAR 

DSS^ILLPAGCNT 

DSSJLLUN1T 

DSSllMSFMEM 

DSSJPL2M 

DSSJVADDR 

DSS^IVVECT 

DSS KRNLSTK 

DSS„LOGIC 

DSS'MCHK 

DSS MMOFF 

O^NEEDUNIT 

l^oSlNODE 

OSS NOPCS 

DSSJNORMAL 

DSSJJOSUPPORT 

DSS^NOTDON 

DSS.NOTIMP 

DSSJWLLSTR 

DSSJ3VERFLOW 

DSS^POWER 

DSS w PROGERR 

DSS^SEVERE 

OSS TRANS! 

DSSJRUNCmTE 

DSS UNEXPINT 

DSS^VASFULL 

DSS~WARNING 

DSXlPARSE 

DSXSPARSE X 

DSXSSUPERPARSE 

EXIT 

INVALID 

OVERLAY 

PARSESJ\CTI0N 

PARSES^BUFADR 

PARSES^FLAG 

PARSES NARGS 

PARSES'TREE 

PARSE^OMMON 

SAVE_CALL 

SAVE.STATUS 

SCANlALPHA 

SCANSALPHANUM 

SCANSBINARY 

SCANSCOMPARE 

SCANSDECIMAL 



Cross reference 



ASCII STRING PARSE ROUTINE. 



K 1 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



Frame K1 Sequence 2070 
VAX-11 Macro V03-OT Page 29 v 
DMA1 :CSYS0.SYSMAINT3PARSE*MAR;91 (16) 



=00660120 

=006600A8 

=006600EO 

=00660108 

'660002 

■660068 

=00660080 

=006600C8 

=00660000 

=00660060 

=00660018 

=00660078 

=00660100 

=00660050 

=006600B8 

=00660040 

=00660038 

=00660090 

=00660070 

=00660088 

=00660058 

=006600F8 

=00660128 

=00660110 

=00660001 

=006600B1 

=00660030 

=00660080 

=0C 560010 

=00660008 

=00660098 

=00o60020 

=00660004 

=0066G0A0 

=00660028 

=00660008 

=00660048 

=00660000 

00000007-R 

00000068-R 

OOOOOOOQ-R 

00000065-R 

000002FD-R 

J00OQ3CF-R 

=00000000 

=00000004 

10 

04 

8 

R 




115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

115 

187 

241 

184 

239 

756 

964 

116 

116 

116 

116 

116 

189 

126 

128 

546 

551 

710 

626 

702 



(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

H) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(3) 

(3) 

(3) 

(3) 

(12) 

(16) 

(1) 

(1) 

(1) 

(1) 

(1) 

(3) 

(1) 

(1) 

(8) 

(8) 

(12) 

(10) 

(12) 



#-253 



115 



115 

#-254 

#-197 

#-981 

288 

#-190 



#-193 
#-186 
#-192 
#-250 
#-353 
#-359 

#-368 
#-922 



(4) 



#-298 (4) 



(1) 



(1) 

(4) 

(3) 

(16) 

(4) 

(3) 



(3) 
(3) 
(4) 
(5) 
(5) 

(5) 
(16) 



#-299 
#-397 
#-994 



(4) 
(6) 
(16) 




(4) 
(4) 
(16) 
(16) 



#-264 
#-307 



(4) 
(4) 



ZZ-ENSAA-7.0 

PARSE 

Cross reference 

SCANSDEVICE 

SCANSFILE 

SCANSHEX 

SCANSNUMERIC 

SCANSOCTAL 

SCANSSEARCHL1ST 

SCANSSPACE 

SCANSSPACES 

SCANSSPANC 

SCAN$ SYMBOL 

SIZ.*. 

SS$ NORMAL 

TRAVERSE 

TRVALNUM 

TRVALPHA 

TRVBIF 

TRVBIFS 

TRVDR 

TRVCALL 

TRVCOMMA 

TRVDEt 

TRVEOL 

TRVERR 

TRVEXIT 

TRVFILE 

TRVHEX 

TRVKEVWORD 

TRVNUM 

TRVNUMA 

TRVOCT 

TRVRETURN 

TRVSLASH 

TRVSPACE 

TRVSTRIN6 

TRVSYMBOL 

TRVVALUE 

TRV COMMA.VALUE 

VBTT 



Cross reference 



ASCII STRING PARSE ROUTINE. 



L 1 
27-JUL-1984 Fiche 11 
27-JUL-1984 15:39:59 
23-MAY-1984 14:15:13 



Frame L1 Seguence 2071 
VAX-11 Macro V03-0T Page 30 
DMA1 :CSYS0.SYSMAINTJPARSE-MAR;91 (16) 



00000389-R 906 (16) 

00000208-R 556 (8) #-409 (6) 

0000029B-R 714 (12) 

0000029E-R 717 (12) #-347 (5) 

00000291 -R 706 (12) 

0000033A-R 830 (14) #-385 (6) 

O00O021A-R 562 (8) #-330 (5) 

O000021A-R 561 (8) 

0000022E-R 571 (8) 

000001D2-R 541 (8) #-380 (6) 

=00000001 117 (1) 117 (1) 

=00000001 120 (1) #-240 (3) 

0000001C-R 194 (3) 198 (3) 

000001 12-R 358 (5) 224 (3) 

0000010D-R 352 (5) 224 (3) 

O00000DE-R 3V (4) 224 (3) 

OO000OD2-R 305 (4) 224 (3) 

00000097-R 269 (4) 224 (3) 

00000089-R 262 (4) 224 (3) 

O000016A-R 416 (6) 224 (3) 

OOOOOOFC-R 341 (5) 224 (3) 

00000163-R 471 (6) 224 (3) 

O00OOOC7-R 296 (4) 224 (3) 

00000063-R 237 (3) 224 (3) 

00000164-R 408 (6) 224 (3) 

O00O0OF7-R 338 (5) 224 (3) 

0000012F-R 379 (6) 224 (3) 

00000101-R 344 (5) 224 (3) 

00000108-R 346 (5) #-337 (5) 

O00O00F2-R 335 (5) 224 (3) 

00000069-R 248 (4) 224 (3) 

0000016E-R 425 (6) 224 (3) 

OOOOOOED-R 329 (5) 224 (3) 

00000117-R Z6 r (5) 224 (3) 

0QQQQ16Q-R 402 (6) 224 (3) 

00000173-R 434 (6) 224 (3) 

00000176-R 437 (6) #-418 (6) 

=00000002 119 (1) 



#-704 (12) #-708 



#-439 (6) #-459 



(12) #-712 (12) 
(6) #-472 (6) 



#-403 (6) 



#-340 (5) #-343 



(5) 



#-427 (6) 



ZZ-ENSAA-7.0 

PARSE 

Cross reference 



C'oss reference 



ASCII STRING PARSE ROUTINE . 



M 1 
27-JUL-1984 Fiche 11 

27-JUL-1984 15:39:59 
23-MAY-1984 Hi 15: 13 



Frame M1 Seguence 2072 

VAX-11 Macro V03-0T Pag 

DMA1:[$Y$0.SYSMAINnPAfiSE,MAR;91 



31 
(16) 



! Macros Cross Reference ! 



MACRO 



SDEF 

SDEFINI 

*DS„CLIDEF 

$DS DSDEF 

SDS^HPODEF 

$D3 PARSE.OEF 

SEQO 

SEQULS1 

SEQULST 

SGBLINI 

$OFFDEF 

$VIELD 

SVIELD1 

CASE 

DSFOEF 



SIZE 

1 
1 
1 
2 
2 
1 
1 
1 
1 
2 
1 
1 
1 
1 
3 



DEFINITION 




REFEF 


FENCES... 




117 ( 










118 ( 






118 


(1) 




114 I 






114 


(1) 




115 < 






115 


(1) 




118 I 






118 


(1) 




116 i 






116 


(1) 




117 i 






114 


(1) 


115 


115 I 






114 


(1) 


115 


114 I 






114 


(1) 


115 


114 






114 


(1) 


V5 


116 






116 


(1) 




117 I 






117 


(1) 




117 < 






117 


(1) 




199 


(3> 




199 


(3) 


444 


117 


(1) 

CPt 




117 


(1) 






! Performance indicators 


Page faults 


) Time 




Eiapser 1 


rime 


34 


00: 


00:00 


.12 


00:00:00. 
00:00:02, 


31 


134 


00:00:00 


.82 


12 


483 


00:00:07.21 


00:00:11. 


,76 





00: 


00:00.35 


00:00:00. 
00:00:03 


,44 


255 


00: 


00:02 


.40 


•32 


19 


00: 


00:00 


.15 


00:00:00 


,17 


6 


00 


00:00.03 


00:00:00 
00:00:00 


,03 


34 


00. 


00:00 


.75 


.84 


969 


00 


00:11 


.84 


00:00:19.00 



(1) 
(1) 
<1> 
(1) 



(6) 



117 



(1) 



+ 
i 

+ 

PrVse 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Fsect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 page*J. 

36818 bytes (72 pages) of virtual memory were used to buffer the intermediate 
There were 20 pages of symbol table space allocated to hold 216 non-local and 
1032 source lines were read in Pass 1, producing object records in Pass 2. 
45 pages of virtual memory were used to define T4 macros. 



code. 
53 local 



symbols. 



N 1 ™,, 

ZZ-ENSAA-7.0 Cross reference 27-JUL-1984 _ Fjche 11 Frame N1 Sequence 2073 

PARSE ASCII STRING PARS* ROUTINE. 27-JUL-1984 15:^59: 59 VAX-11 Macro V03-C . Page 32 

VAX-11 Macro Run Statistics 23-MAY-1984 14:15:13 DMA1:CSYS0.oYSMA1NTJPARSE.MAR;91 (16) 

! Macro library statistics ! 

Macro library name Macros (!ef1ned 

DRBItCDS.wOKKDDlA^.MLB^SS 4 

DRB1:CjS.WORK]DS.MLB;218 1 

SYSSSYSR00T:[SYSLIB3LIB,MLB;1 1 

DMA1:CSVS0,SYSMAINT3DS,MLB;218 

DMA1tCSYSO.SYSMAlNT]DIAG.MLB;953 

SYS$SYSROOT:r.SYSLIB]LIB.MLB;1 

SYSSSYSROOT:t£YSLIBDSTARLET.MLB;2 6 

TOTALS (all libraries) 12 

23? GETS were required to define 12 macros. 

There were no errors* warnings or information messages. 

MACRO/NOOBJECT/LIST=CDS.LISJ/CPOSS/cNABLE= (DEBUG , TRACE) PARSE/UPDA=(PARSE.UPD,PARSE.ENH)+SYS$LIBRARY;LIB/LIBRARY+DMA1 :CSYSO,SYSMAINT 



ZZ-ENSAA-7.0 PCSLOAD Module 

PCSLOAD Module 



0001 

0002 

C003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 





























B 2 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame 82 Sequence 2074 
16:05:32 VAX-11 BLiss-32 V4, 0-742 _ , Page 
09:41:15 DMA1 :[SYS0.SYSMAINT3PCSL0AD.B32;3 (1) 



XT1TLE 'PCSLOAD Module' 

MODULE PCSLOAD ( 

JDENT = 
) = 



06-03 ' 



! Dummy module 
! that have no 



for supervisors 
patch control store 



COPYRIGHT (c) 1980, 1981, 1983, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ZZ-ENSAA-7.0 

PCSLOAD 

06-03 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



PCSLOAD Module 
PCSLOAD Module 



Facility: 



C 2 

27-Jul-1984 Fiche 11 Frame C2 Sequence 2075 
27-Jul-1984 16:05:32 VAX-11 Bliss-32 V4. 0-742 Page 2 

26-Jul-1984 09:41:15 DMA1 :[SYS0.SYSMAINTJPCSLOAD.832;3 (2) 



Diagnostic Supervisor 
Abstract: 

This module is used by those diagnostic supervisors that have 

no patch control store, namely, tSSAA, and ENSAA. 

The routines in this module do nothing except return status. 

Author: 

Bob Bergazzi 
Creation Date: 

22-Nov-1982 
Version: 

6.10 
Modified By: 

01 



02 
03 



Bob Bergazzi May 17, 1983 Version 6.11 
Changed the order of searching libraries. 

Bob Bergazzi Oct. 21, 1983 Version 6.13 
Added INITPCS command routine, DSV$JNJTPCS. 

Bob Bergazzi Mar. 1, 1984 Version 7,0 
Moved ECSAA functionality to PCSLOAD750. 



ZZ-ENSAA- 


7.0 


Libraries 


=>CSLOAD 




PCSLOAD 


Module 


06-03 




Libraries 


; 0058 





XS8TTL 


'Libraries 1 


; 0059 


1 


BEGIN 




; 0060 


1 






; 0061 


1 


LIBRARY 




; 0062 


1 




•$Diag'; 


; 0063 


1 






; 0064 


1 


Library 




; 0065 


1 




■$DS'; 


; 0066 


1 






; 0067 


1 


LIBRARY 




; 0068 


1 




•SCRD 1 ; 


; 0069 


1 






; 0070 


1 


LIBRARY 




; 0071 


1 




*Sys$Librar 



D 2 

27-Jul-1984 Fiche 11 Frame D2 Sequence 2076 

27-JuM984 16:05:32 VAX-11 Bliss-32 V4. 0-712 ^ ^ Page 3 

26-Jul-1984 09:41:15 DMA1:CSYS0.SYSMAINTJPCSL0AD.B32;3 (3) 

Begin the Module_Name module 

Use Diag.L32 first 

Use Ds.L32 second 



Use CRD.L32 third 



Use Lib as last resort 



ZZ-ENSAA-7.0 

PCSLOAD 

06-03 

0072 1 

0073 1 

0074 1 

0075 1 

0076 1 



Table of Contents 
PCSLOAD Module 
Table of Contents 

XSBTTL 'Table of Content? 1 



E 2 

27-Jul-1984 
27-JuM984 
26-Jul-198A 



forward routine 
dsx$loadpcs, 
dsvSinitpcs 



16:05:32 
09:41:15 



Fiche 11 Frame 12 



Sequence 2077 
VAX-11 Bh*ss-32 V<<.Q-7i<2 Page A 

DMA1:CSVS0.SYSMAINTDPCSL0AD.832;3 (4) 



novalue; 



Interface to calling routine 
Init the PCS 



C02] 



ZZ-ENSAA-7.0 Psect Definitions 



PCS1.0AD 
06-03 



0077 1 

0078 1 

0079 1 

0080 1 

0081 1 

0082 1 

0083 1 

0084 1 

0085 1 

0086 1 

0087 1 

0088 1 

0089 1 



PCSLOAD Module 
Psect Definitions 

XSBTTL 'Psect Definitions 1 

PSECT 



F 2 
27-Jul-1984 Fiche 11 Frame F2 Sequence 2078 

27-JuL-1984 16:05:32 VAX-11 Bliss-32 V4. 0-742 ^ ^ Page 5 

26-Jul-1984 09:41:15 DMA1 :[SYS0.SYSMAINT]PCSLOAD.B32;3 (5) 



PLIT = Data (NOEXECUTE, SHARE, N0WRJTE, ADDRESS1NG.M0DE (LONG_RELATIVE)) 

PSECT 

CODE " Code ( EXECUTE, SHARE, NOWRJTE, ADDRESSING.MODE (WORD..RELATIVE)) 

= Work (NOEXECUTE, NOSHARE, WRITE, ADDRESSINGJ10DE (LONG.RELATIVE)) 



PSECT 
OWN 



PSECT 



GLOBAL = Work (NOEXECUTE, NOSHARE, WRJTE, ADDRESS I NG.MODE (LONG^RELATIVE)) 



ZZ-ENSAA-7.Q 

PCSLOAD 

06-03 



0090 
0091 

0092 



PCSLOAD-Static Storage 
PCSLOAD Module 
PCSLOAD-Static Storage 

XSBTTL *F % SLOAD-Static Storage* 

ModNam ('PCSLOAD 1 ); 



G 2 

27-JuM984 Ffche 11 Frame G2 Sequence 2079 

27-Jul-1984 16:05:32 VAX-11 Bh'ss-32 V4. 0-742 ^ „ Page 6 

26-Jul-1984 09:41:' 5 OMA1:CSYSO,SYSMAINTJPCSLOAD.B32;3 (6) 



Module name for ErrSup macro 



ZZ-ENSAA- 


7.0 


PCSLOAD 




06-03 




; 0093 


1 


; 0094 


1 


; 0095 


1 


; 0096 


1 


; 0097 


1 


; 0098 


1 


; 0099 


1 


; 0100 


1 


; 0101 


1 


; 0102 


1 


; 0103 


1 


; 01 04 


1 


; 0105 


1 


; 0106 


1 


; 0107 


1 


; 0108 


1 


; 0109 


1 


; 0110 


1 


; cm 


1 


; 0112 


1 


; 0113 


1 


; 01H 


1 


0115 


1 


; 0116 


1 


; 0117 


1 



DSXSLOADPCS Routine 
PCSLOAD Module 
DSXSLOADPCS Routine 

%SBTTL 'DSXSlOADPCS Routine* 

global routine dsx$loadpcs = 

++ 

Functional Description: 

This routine does nothing but return status. 
Formal Input Parameters: 

None 
Formal Output Parameters: 

None 
Side Effects: 

None 
Completion Codes: 

ds$_nopcs - PCS not available on this cpu. 



H 2 
27-Jul-1984 Ffche 11 Frame H2 Sequence 2080 

27-Jul-1984 16:05:32 VAX-11 Bliss-32 V4. 0-742 _ , Page 7 

26-JuM984 09:41:15 DMA1:CSYS0.SYSMAINT]PCSL0AD.B32;3 (7) 



ZZ-ENSAA-7.Q 

PCSLOAD 

06-03 

0118 2 

0119 2 

0120 1 



DSXSLOADPCS Routine 
PCSLOAD Module 
DSXSLOADPCS Routine 

begin 

return ds$_nopcs; 

end; 



I 2 
2iVlul-t984 Fiche 11 Frame 12 ^ Sequence 2081 

27-Jui-1984 16:05:32 VAX-11 BUss-32 VA.0-742 _ , Page 8 

26-Jul-1984 09:41:15 0MA1:CSYS0.SYSMAINT3PCSLOAD.B32;3 (8) 



! routine dsxSloadpcs 
I routine dsxSloadpcs 



.TITLE PCSLOAO PCSLOAD Module 

•IDENT \06-03\ 

.PSECT DATA,N0WRT,N0EXE, SHR,2 

44 41 4F 4C 53 43 50 07 00000 P. AAA: .ASCII <7>\PCSLOAD\ 

$M0DULE= P. AAA 



50 00660110 



0000 00000 

8F DO 00002 

04 00009 



.PSECT C0DE,N0WRT, SHR,2 

.ENTRY DSXSLOADPCS, Save nothing 

MOVL #6684944, R0 

RET 



0095 
0119 
0120 



Routine Siee: 10 bytes. Routine Base: CODE + 0000 



ZZ-ENSAA- 


7.0 


3 CSL0AD 




06-03 




; 0121 


1 


; 0122 


1 


; 0123 


1 


; 01 24 


1 


; 0125 


1 


; 0126 


1 


; 0127 


1 


; 0128 


1 


; 0129 


1 


; 0130 


1 


; 0131 


1 


; 0132 


1 


; 0133 


1 


; 0134 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 01 38 


1 


; 0139 


1 


; OHO 


1 


; 0H1 


1 


; 0142 


1 


; 0143 


1 


0144 


1 


; 0145 


1 


; 0146 


1 



DSVS1NITPCS Routine 
PCSLOAD Module 
DSVS1N1TPCS Routine 

XSBTTL 'DSVSINJTPCS Routine* 

global routine dsv$initpcs ; novalue = 

++ 



J 2 
27-Jul-1984 Fiche 11 Frame J2 Sequence 2082 

27-Jul-1984 16:05:32 VAX-11 Bliss-32 V4. 0-742 _ m Page 9 

26-JuM984 09:41:15 0MA1:CSYSO.SYSMAINT]PCSLOA0.B32;3 (9) 

! begin C02D 



Functional Description: 

This routine is called by CLI in response to an IMITPCS command. The command is not valid for 
supervisors which use this module. 

Formal Input Parameters: 

None 
Formal Output Parameters: 

None 
Side Effects: 

None 
Completion Codes; 

None 



ZZ-ENSAA-7.0 

PCSLOAO 

06-03 

0147 2 

0148 2 

0149 1 
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PCSLOAD Module 
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16:05:32 VAX-11 Bliss-32 V4, 0-742 
09:41:15 WA1iCSY50.5YSHAINT3PCSLOAD.B32;3 
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begin ! routine dsvSinitpcs 

Sprinti (Sascic (Xstring (*?? Command not valid for this supervisor!/ 1 ))); 

end; ! routine dsvSinitpcs 



74 6F 6E 20 64 6E 61 60 6D 6F 43 20 3F 3F 2A 00008 P.AAB: 

73 69 68 74 20 72 6F 66 20 64 69 6C 61 76 20 00017 

6F 73 69 76 72 65 70 75 73 20 00026 

2f 21 72 00030 



0000 00000 
00000000' EF 9F 00002 



; Routine Size: 16 bytes. 



000000006 9F 01 

Routine Base: CODE + 000A 



FB 00008 
04 0000F 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII \*?? Command not valid for this superviso\ 

.ASCII \r!/\ 

♦EXTRN DSXSPRINTI 

.PSECT CODE,NOWRT, SHR, 2 

.ENTRY DSVSINITPCS, Save nothing 

PUSHAB P.AAB 

CALLS #1, aWSXSPRJNTI 

RET 



0123 
0148 

0149 



0150 1 




0151 1 


end 


0152 


eludom 



! end of pcsload module 



PSECT SUMMARY 



Name 



Bytes 



Attributes 



DATA 
CODE 



51 NOVECNOWRT, RD ,N0EXE, SHR, LCL, REL, C0N,N0PIC,ALIGN(2) 
26 NOVECNOWRT, RD , EXE, SHR, LCL, REL, C0N,N0PIC,ALIGN<2> 



Library Statistics 



File 

DRB1:CDS.WORKJDIAG,L32;265 
DRB^CDS.WORK3DS,L32;159 
DRB1:LDS.WORK]CRD.L32;265 
SYSSSYSROOT:CSYSLIB3LIB,L32;7 



Total 

784 

653 

483 

18017 



Symbols 
Loaded 



Percent 




» 



Pages 

Mapped 

85 
42 



Processing 

Time 



975 







.1 
.2 



05.J 
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DSVSINITPCS Routine 
PCSLOAD Module 
DSVSINITPCS Routine 
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27-Jui-1984 
27-Jul-1984 
26-Jul-19M 



Fiche 11 Frame 12 Sequence 2084 

16:05:32 VAX-11 Bliss-32 V4, 0-742 m , Pa 9 e ,J 
09:41:15 0MA1 :[SYS0.SYSMAINTJPCSL0AD.B32;3 (10) 



COMMAND QUALIFIERS 
BLlSS/NOOBJECT/LIST=CDS.L I S]/0PTIMIZE=(LEVEL:3, SPACE) /DEBUG/TRACE PCSLOAD 



Size: 26 
Run Time: 
Elapsed Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
Memory Used: 43 



•ry 

iil 



Compilation Complete 



code + 51 

00:08.4 

00:28,5 

1085 

2092 
pages 



data bytes 



ZZ-ENSAA-7.0 

PRINT 

Table of contents 

124 
147 
175 
193 
249 
295 
532 
608 
7/3 



*** PRINT 



Formatted 



P 



H 2 « 

rint routines 27-JUL-1984 Fiche 11 

RIM Formatted print routines 27-JUL-1984 15:40:22 



Frame M2 
VAX-1 1 Macro 



Seguence 
V03-0T 



2085 
Page 







Libraries, Macros, and Equated Symbols 

Work Psect Declarations 

Data Psect Declarations 

DSVSSetPage Routine - Set terminal page size 

DSVSShowPage Routine - Show terminal page size 

DSXSType Out Routine - Do actual print 

DSXSPrinf Routine - Load type code byte 

DSXSPrintX Routines - Extended print routines , 

DSXSCvtReg Routine - Mnemonic register conversion routine 



ZZ-ENSAA-7.0 

PRINT 
07-19 



N 2 

*** print Formatted print routines 27-JUL-1984 Fiche 11 Frame N2 Seguence 2086 

*** PRINT .'ormatted print routines 27-JUL-1984 15:40:22 VAX-11 Macro V03-OT Page 

23-JUL-1984 16:23:48 DMA1 :CSYS0.SYb«AJNT3PRINT.MAR;75 

•TITLE PRINT *** PRINT Formatted print routines 

.JDENT /07-19/ 

.NoShow Conditionals ; 

Copyright (c) 1977, 1983 __ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPITS THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT fOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS* TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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PRINT 

07-19 



*** PRINT Formatted print routines 

*** PRINT Formatted print 
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23-JUL-1984 16:23:48 DMA1 :CSYS0.SYSMAINT:JPRINT.MAR;?5 
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FACILITY: 
ABSTRACT: 
ENVIRONMENT: 
AUTHOR: 
MODIFICATIONS: 
01 



VAX DIAGNOSTIC SUPERVISOR 



TOM SOUTTER 



10-NOV-77 



VERSION 01 



02 
03 
04 



05 
06 

07 

08 
09 



10 



Roger Riggs 12-Jun-78 

Added DSXSPRINTI similar to DSXSPRINTF but always prints even 

in APT mode. Changed prefix on print routines to DSXSPRINTx 

Roger Riggs 12-Jun-78 

Added usermode cancel and setmode 



Roger 

Changed 



Riggs 



1-0CT-1979 
to i A on DSA$GL_FLAGS references 



Roger Riggs, 14-Jan~1979, Version 5.2 

Added code to DSXSCVTREG to allow the user 

to specify a code for the mnemonic string instead o 

the string itself codes are used for transportabile 

diagnostics and represent a generic type of data, 

i.e. UNIBUS map register. 



f 



Dave Butenhof 29~apr~80 

Use RMS for output if DS$V BATCH 

under VMS batch/command file). 



flag is set (running 



Dave Butenhof, 16-oct-1980, version 6.1 

Set flag DSSVJHJTPUT on PRINT call. 

Also have print use stack buffer for FAO output to avoid 

conflict with SCRIPT prompt formatting. 

- Jack Stansbury, 28-0ct~1981, Version 6.- 

Added .LIBRAR V statements for $DS and SDIAG. Fixed 

truncation errors. 



- Dave Butenhof, 02»Nov-1981 
Fix truncation error. 



version 6.- 



11 



- Dave Butenhof, 16-Nov-1981 , version 6.5 

Enhance to provide capability of outputting a binary 'type 
code 1 byte preceding each and every message output by the 
Supervisor. This is controlled by the SET [CLEAR] BINARY 
command. 

- Jack Stansbury, 23~Mar-1982, Version 6.? 

Took out the RTypeMsg routine because it is now obselete 
with typeroding and with the Print routine. Also added a 
■'!/" to the message output by the print routine when 
Debug^The^Sucker has been set to one. 

Jack Stansbury, 8-Apr-1982, Version 6.7 



2Z-ENSAA-7.0 

PRINT 
07-19 



*** PRINT Formatted print routines 

PRINT Formatted print routines 



*** 
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12 
13 

14 

15 
16 

17 

18 
19 



Added code to the DSXSTvpeOut routine to call the CRD 
routine. Also added a .Library statement for /$CRD/, 
the new CRD library. Also changed some statements to 
the new DS macros (8r_If_ ...). 

Marion Baggett, 9-Apr-1982, Version 6.7 
Ordered .library statements. 



Jack Stansbury, 12-Apr-1982, Version 6.7 

Changed the code in DSXSTypeOut a bit so that the CRD routine 

called. 



Lnmiyeu trie? lvuc in i/oa* i /fjc/uw a uiw su mai 

is not called if the TypeCode is CRD AutoTest. This 
Print's to go through without the CRD routine being 



Jack Stansbury, 6-May-1982, Version 6.8 

Added code in DSXSTypeOut to supress outputting the binary 
typecode when CRD-AutoTest is running (which, in itself, implies 
that the BINARY flag has been set onJ. 



Jack Stansbury, 24-Julv-1982, Version 6.9 
Added support for the Menu Test of CRD. 



Bob Bergazzi 30-March-1983 
Added guts of SET PAGE command: 
in DSXSTYPE OUT. 



Version 6.11 
DSVSSHOWPAGE, 



DSVSSETPAGE, and 



John Ciukaj, 2-Apr.-1983, Version 6.11 

- Changed references to CRD bits in DSA Flags since 

they were redefined to distinguish between online 

and offline. 

Peter Green 18-JUL-1983 Version 6.12 
Changed print macros to test R0 for status such that 
on error an immediate exit occurs instead of attempting 
to print the message. 

Richard Brown 7-June-1984 Version 7.0 
Added null arguments to SYSSQI0 call in DSX$TYPE_OUT. 
Changed channel number from TUN to TT0UT in two $QIO 
calls in DSXSTYPE. OUT, prompting for user response 
to display next page of terminal output. 
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PRINT 

07-19 
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*** PRINT Formatted print routines 27-JUL-1984 15:A0:22 
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125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 



.Subtitle 

INCLUDE FILES: 

.Library 
.Library 
.Library 
.Library 

EQUATED SYMBOLS: 



$SSDEF 
$DSJ)SDEF 
$DSJ)SADEF 
$DS CVTDEF 
DSFDEF 
SRABDEF 
$DS TypeDef 
$CRB Literals 
CLIDEF 



Libraries, Macros, and Equated Symbols 



/Sys$Library:Lib/ 

/$CRD/ 

/$DS/ 

/$Diag/ 



The CRD library 



1121 

[11] 



DIAGNOSTIC SUPERVISOR ERROR CODES 
CONTROL FLAG DEFINITIONS 
Define CVTREG code values 



Define RAB 
Define the 
Define the 
Define CLI 



C183 



offsets 




TypeCode literals 


Lisa 


CRD literals 


cm 


offsets 


C16D 



Z2-ENSAA-7.0 

PRINT 

07-19 



Work Psect Declarations 27-JUL-1984 Fiche 11 Frame E3 ..._, 

*** PRINT Formatted print routines 27-JUL-1984 15:40:22 VAX-11 Macro V03-0T Page 
Work Psect Declarations 



,Seguence 2090 
tff-JUL-ivo* \o invite VrtA-r i macro vui-Ot Pays 
23-JUL-1984 16:23:48 DMA1 :CSYS0.SYSMAINTJPRINT.MAR;75 
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6D 20 65 7A 69 73 20 65 

74 61 65 72 67 20 65 62 

2F 21 30 20 6E 61 68 



61 70 20 6C 61 6E 69 6D 
21 20 73 69 20 65 7A 69 
2F 21 53 25 21 65 6E 69 



55 54 45 52 20 73 73 65 

2C 65 72 6F 6D 20 72 6F 

74 20 43 2D 6C 6F 72 74 

2E 2E 2E 74 69 



0000 

00000000 

0000 

0000 

0000 

0000 

0000 

0000 0000 • 0000 

00000000' 0004 



00 

00000000 

00000000 

67 61 50 00' 
20 74 73 75 
74 20 72 65 
22 

72 65 54 00' 

73 20 65 67 
6C 20 42 5A 

23 
0OOO00OD 
0000000A 
72 50 OA OD 
66 20 4E 52 
6E 6F 43 20 
78 65 20 6F 



00 



0008 
0008 
0009 
0009 
000D 
COOD 
0011 
0011 
001D 
0029 
0011 
0034 
0034 
0040 
004 C 
0034 
0058 
0058 
0058 
0064 
0070 
007C 
0085 
0085 
0085 
0085 
0085 



147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 



.SubTitle Work Psect Declarations 
.Psect Work, Noshr, Noexe, Wrt, Long 



OWN STORAGE: 



QBUFF: .WORD 
.LONG 



DS$K BUFSIZ,0 
DS$GT_fiUFFER 



QUADWORD BUFFER DESCRIPTOR 



.byte 



169 
170 
171 
172 
173 



Width_Too_ Large: 
Line.Count:: .long 

.long 

'Page size must be greater than 0!/ 



DS$GL_Pace:: 
T Page: 

.ASCIC 



Bit is set if the last line was 
longer than the terminal width 
current number of lines output since 
last PAGE 
SET PAGE is default 



164 T Show Page: 

165 ' " .ASCIC 



166 CR=13 

167 LF=10 

168 Page.String; 



"Terminal page size is !ZB linelSSi/" 



£16] 
[16] 
C163 
C16D 
C16D 
C16D 
[16] 



[16] 

[16] 



.ascii <CRXLF> - 



/Press RETURN for more, Control-C to exit.../ 



DS$GB_VDS_Debug: : 

Debug The Sucker: 

.Byte 



Make more contemporary. 
Print typecode number if 
Initial 



= 1 



[16] 



[16] 

[15*J 
[15] 
[15] 



j 
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PRINT 
07-19 
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00000000' 0000 
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00000000' 0004 


189 


00000000' 0008 


190 


00000000' oooc 


191 



.SubTitle 
•Psect DATA, 



Data Psect Declarations 
SHR, NOEXE, NCWRT, BYTE 



This 
Each 



address 

address 

CVT$T_ 



10$: 



list is indexed by (-C0DE-1) passed to DSSCVTREG as MNEADR 
points to data in ONLY??? lists of the form: 



.ADDRESS 

.LONG 

.ASCIC 



10$ Address of 
Parameters 



VI,... V6 

"mnemonic string' 



ASCIC string 
V1-V6, only if 



required 



CVT$A.CODELIST: 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 



CVT$T_UBADPR 
CVT$T UBAMAP 
CVTST^MBASR 
CVT$T_MBAMAP 



Args 
Arqs 
Args 
Args 



for 
for 
: ?r 
for 



UNIBUS datapath CVTREG 
UNIBUS MAP CVTREG 
MASSBUS Status CVTREG 
MASSBUS MAP CVTREG 



ZZ-ENSAA-7.0 

PRINT 

07-19 



DSVSSetPage Routine - Set terminal page 

*** PRINT Formatted print 
DSVSSetPage Routine - Set 
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.Subtitle DSVSSetPage Routine - Set terminal page size 
.Psect Code, Shr, Exe, Nowrt, Byte 

Functional Description: 

This is a CLI command routine. It loads the global DS$GLJ>AGE with 
a value specified to CLI, If the page size is out of range, an error 
message is typed and it returns a failure status code (though CLI 
does not currently recognize return status). 

Calling sequence: 

JS8 DSVSSETPAGE 
Input Parameters: 

none 
Output Parameters: 

none 
Implicit Inputs: 

R2 points to CLI data table 
Implicit Outputs: 

none 
Side effects: 

Changes the value of DS$GL_PAGE variable 
Status returns: 



failure (value out of range) 
success 



7 
(1) 



16J 
16J 
163 
16D 
163 
163 
16] 
16] 
16] 
16] 
16] 
16] 

:i6] 
:i6] 
:i62 
:i6] 
:i6] 
:i6] 
;i6] 
:i6] 
:i6] 
;i63 
;i6] 
:i6] 
:i6] 
:i6] 
:i6] 
:i6] 
:i6] 
;i63 
:i6] 
:i6] 
:i63 
:i6] 
:i6] 
:i6] 
:i6i 
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PRINT 

07-19 
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50 

OOOOOOOD'EF 
50 



1C A2 
OB 

50 

01 



DO 
19 

DO 

DO 
05 



50 



D4 
05 



0000 
0000 
0004 
0006 
0006 
000D 
OOOD 
0010 
0011 
0011 
0011 
0011 
0011 
0024 
0026 



233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 



DSVSSetPage: 

MOVL 
BLSS 

MOVL 

MOVL 
RSB 



CLI$L„DATA(R2), RO 
10$ 

RO, DSSGL.PAGE 

#1, RO 



10$: 



$Print - 



CLRL 
RS8 



#DSSK Type Command_Err, 
#DS$KlPrin?F, - 
T Page 
RO 



Get the page size 
Too small? 

No, store the value 

Success 



Page size out of range 
; typecode 

the message 
Failure 
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(1) 

[163 
C163 
[163 

C163 

C163 
[163 

[163 
[163 
[163 
[163 
[163 
[163 
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PRINT 
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.Subtitle DSVSShowPage Routine - Show terminal page size 
Functional Description: 

This is a CLI command routine. It prints the current DSSGL..PAGE. 
Calling sequence: 

JSB DSVSSHOWPAGE 
Input Parameters: 

none 
Output Parameters: 

none 
Implicit Inputs: 

none 
Implicit Outputs: 

none 
Side effects: 

none 
Status returns: 

1 success 



9 
(1) 



[163 
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ri6J 

[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
C163 

C163 
[163 
[163 
[163 
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50 OOOOOOOD'EF 



50 01 



0027 

9A 0027 

002E 

002E 

002E 

002E 

002E 

DO 0043 

05 0046 

0047 



284 
285 
286 
287 
288 
289 
290 
291 
292 
293 



DSV$ShowPage:: 
M0VZBI 
SPrint 



MOVL 

rsb 



L A DS$GL_Page, R0 

#DS$K TypeCommand Out , 

#DS$K_PrinfF, - 

T Show Page, - 

R0 

#1, R0 



Get the current page size 
Print with typecode 

; typecode 
the type of PRINT routine 
the message 
the page size 
Success 



10 
(1) 

[16] 
£16] 
[163 
[16] 

ri6] 

i.16] 
[16] 
[16] 
C163 



ZZ-ENSAA-7.0 

PRINT 

07-19 



DSX$T/peJ)ut Routine - Do actual print 

*** PRINT Formatted print 
DSXSType.Out Routine - Do 



K 3 
27-JUL-1984 Fiche 11 
routines 27-JUL-1984 15:40:22 
actual print 23-JUL-1984 16:23:48 



Frame K3 Sequence 2096 
VAX-11 Macro V03-01 Page 
DMA1:[SYS0.SYSMAINT]PRINT.MAR;75 



11 
(1) 



0047 
00000047 
0047 
0047 
0D47 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
C047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 



295 
296 
297 
298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

325 

52 
32 
328 
329 

sso 

331 
332 
333 
334 
335 
336 
337 



++ 



.Subtitle DSXSType Out Routine - Do actual print 
.Psect Code, Shr, Exe, Rowrt, Byte 



Functional Description: 

This routine does the actual work of outputting. If the flag 
DSASV.BATCH is set, then it will use RMS to output to a file 
(presumably) otherwise it will use QIO. This routine also does 
the work for SET PAGE online and standalone by traipsing through 
the ouput buffer and comparing the number of linefeeds to the value 
specified by the most recent SET PAGE command. The routine also must 
predict where the VDS and VMS will insert a CklF due to the line being 
too long for the current terminal width.; 



£163 
[163 
[163 
[163 
[163 



Length of string to output 
Address of string 



terminal 
terminal 



width 
page size 



Input Parameters: 

4(ap) 
8(ap) 

Output Parameters: 

none 

Implicit Inputs: 

DS$GB..WIDTH 
DS$GL„PAGE 

Implicit Outputs: 

none 

Side effects: 

If either the CRDJ\utoTest bit or the CRDJIenuTest bit is set (in the 

DSA flags), this routine will call a CRD routine to aetermine if the 

output should actually be printed. If the CRD routine returns success, 
do NOT print. 

Status returns: 

Any code from QI0W or PUT 



C153 
[153 
C15D 
C15] 



ZZ-ENSAA-7.G 

PRINT 

07-19 



OSXSType Out Routine - Do actual print, 

*** PRINT Formatted print 
DSX$Type_Out Routine - Do 



L 3 

27-JUL-1984 Fiche 11 
routines 27-JUL-1984 15:40:22 
actual print 23-JUL-1984 16:23:48 



Frame L3 
VAX-11 Macro 



Sequence 2097 
V03-OT Pa< 



.,„ - . age 

DHA1:CSYS0-SYSMAINTJPRINT.MAR;?5 



00000000* EF 



00FC 
1A 91 
2D 13 

1B 11 



08 AC 

7E 04 AC 

7E OOOOOOOO'EF 

01 

00000000' FF 04 

01 50 



50 00000000'EF 

51 04 AC 

52 08 AC 



22 AO 
28 AO 



b1 

52 

51 
52 



03 



00000000'EF 
0386 

7E 
7E 



DD 
3C 
9A 
DD 
FB 

E9 
04 



9E 
3C 
DO 



04 11 



D7 
D6 

BO 
DO 

04 



E9 
30 

7C 
7C 



51 04 AC 3C 



0047 


339 


0049 


340 


0049 


341 


0050 


342 


0050 


343 


0052 


344 


0052 


345 


0052 


346 


005A 


347 


0062 


348 


0064 


349 


0064 


350 


0067 


351 


006B 


352 


0072 


353 


0074 


354 


007B 


355 


00 7B 


356 


007E 


357 


007F 


358 


007F 


359 


0087 


360 


0087 


361 


0087 


362 


0087 


363 


0087 


364 


0087 


365 


0087 


366 


0087 


367 


0087 


368 


008E 


369 


0092 


370 


0096 


371 


0096 


372 


009E 


373 


00A6 


374 


00A8 


375 


00A8 


376 


OOAA 


377 


OOAC 


378 


OOAC 


379 


00B0 


3 


30 


00B4 


3 


31 


OQBD 
OOBE 


3 


32 


3 


33 


OOBE 


3 


34 


OOBE 


3 


)5 


OOBE 


386 
38? 


OOBE 


OOBE 


388 


OOBE 


389 


OOCS 


390 


00C8 


391 


00C8 


392 


OOCA 


393 


QQCC 

OOCC 


7 

5 


94 
95 



.Entry DSXSType.Out, *M<R2,R3,R4,R5,R6,R7> 
CmpB 
Beql 



10$: 



50$: 



60$: 



70$: 



100$: 



200$: 



#DS$K Type CRD AutoTest, - ; Compare the current typecode to 

L A D5$GB TyoeCode ; ... to CRD_AutoTest. The same 
50$ " ; If same, branch to print ft. 

; If not same, continue ... 



BrJf_CRD_AutoTest„Off 10$ 
Br If. CRD MenuTest.Off 10$ 
BrE 50$ 



If under Auto Test, then braiicn 
If under Menu Test, then branch 
Else, not under either one. 



PushL 

MovZWL 
MovZBL 
PushL 
CallS 

BlbC 
Ret 



8(AP) 

4(AP), -(SP) 

L A DS$GB TypeCode, -(SP) 



Push 
Push 
Push 



#CRD$K TypeCode ; Push 

#4, 8L*DS$GA,CRD..DSJnterface 

RO, 50$ 



Address as param-4 
Length as param-3 
TypeCode as param-2 
type of call as param-1 



Br Jf Not Batch 100$ 



. Call indirectly the 
... CRD$DS Interface routine. 
Print if the routine returns failure 
Return if routine returns success 

Branch if use QIO for output 



We are running in Batch mode. That is, we are using RMS to output 
everything. Test to see if either CRD Auto Test or Menu Test is 
jxecuting. If so, assume the BINARY flag has been set and remove the 
binary typecode from the start of the string. 



MovAB L*DS$Rab Output, 
MovZWL 4(AP), RT 
MovL 8(AP). R2 



RO 



Br J f_CRD_AutoTest_Of f 60$ 
Br I f_ CRD MenuTest.Off 60$ 
BrE 70$ 



DecL 
IncL 

MovW 
MovL 
$Put 
Ret 



R1 
R2 

R1, B A Rab$W_Rsz(RO) 
R2, B*Rab$LJ*bf(RO> 
Rab=(R0) 



Point to RAB 
Length to R1 
Address to R2 

If running under Auto Test, branch 
If running under Menu Test, branch 
Not either one, so skip over it 

Length = Length - 1 

Address = Address + 1 (byte) 

Get record length 
Get record address 
Output string 
Go to caller. 



We are not running in Batch mode - we are using QIO to output 
everything. Perform the same check as the above performs for CRD, 



blbc L*ds$gb_qioact 

bsbw reset.input 

clrq -(sp) 

clrq -(sp) 

MovZWL 4(AP), R1 



200$ 



; Branch if QIO not active 

; Reset input channel if active 



p5/p6 zero 
p3/p4 zero 

Move length to R1 



12 
(1) 

[163 

[133 
[133 
[133 
[133 

[173 
[173 

C15J 

CI 53 
[113 

cn: 

[113 
[113 
[113 
C113 
[113 

[113 



[143 
[153 
[153 
[153 



[093 
[143 
[143 

[173 
[173 
[153 

[153 
[143 

[143 
[143 
[093 
[093 



[143 
[143 



[093 
[093 

[093 

[09; 



ZZ-ENSAA-7.0 

PRINT 
07-19 



OSXSType Out Routine - Do actual print 

*** PRINT Formatted print 
DSX$Type_Out Routine - Do 



M 3 

27-JUL-1984 Fiche 11 
routines 27-JUL-1984 15:40:22 
actual print 23-JUL-1984 16:2J:48 



Frame M3 Seguence 2098 
VAX-11 Macro V03-0T Page 
DMA1:[SY$0.SYSMAINT]PRINT.MAR;75 



52 08 AC DO 



04 11 



51 
52 



55 



56 
57 

OOOOOOOD'EF 
73 



51 
54 
55 
52 



OOOOOOOD'EF 



53 



OOOU0009 , EF 

03 

0087 

00000000' E? 
00000008'EF 



62 
82 

FF A2 

54 

DB 54 
54 

62 
00000008' EF 



55 
4C 

OA 
37 

OD 
04 
54 
EE 

09 
09 
54 
07 
T9 
54 
53 

53 
12 

OD 
C9 
01 



A3 00000009«EF 



52 

54 

OOOOOOOD'EF 



D7 
D6 

DO 
D4 
DO 
DO 
D5 
13 

D1 
19 
31 

9A 
94 

D7 
19 

91 
13 

91 
12 
D4 
11 

91 
12 
D6 
93 
12 
D7 
F2 

C2 
12 

91 
13 
88 



02 11 



55 52 



54 
57 



D6 
D4 

n 

D4 
C3 



OODO 

0OD4 

00D4 

OODC 

00E4 

00E6 

0OE6 

00E8 

OOEA 

OOEA 

OOED 

OOEF 

OOF 2 

OOF 5 

OOFB 

OOFD 

OOFD 

0108 

01 OA 

01 OD 

01 OD 

0114 

011A 

011A 

011C 

01 IE 

011E 

0121 

0123 

0123 

0126 

0128 

01 2A 

012C 

012C 

0130 

0132 

0134 

0137 

0139 

01 3B 

013F 

0147 

014A 

014C 

OKC 

014F 
0151 
0158 
0158 
015A 
01 5A 
015C 
015E 
01 6A 
016A 
016C 



396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 



250$: 



300$: 
310$: 



320$: 



330$: 



331$: 
333$: 



335$: 



337$: 



340$: 
350$: 
353$: 

355$: 



MovL 8(AP>, R2 

BrJf_CRD..AutoTestJ)ff 
Br If_CRD MenuTest.Off 
BrE 300$ 



250$ 
250$ 



DecL R1 

JncL R2 

MovL R1, R5 

ClrL R4 

Movl R5, R6 

Movl R2, R7 

TstL DS$6L,Page 

BEql 370$ 

CmpL Line Count, DS$GL_Page 

BLss 320$ 

BrW 380$ 

MovZBL DS$GB_Wid<"h, R3 

ClrB Width.Too.Large 

DecL R5 

BLss 355$ 

CmpB # A X0A, (R2) 

BEql 340$ 

CmpB # A X0D, (R2) + 

BNEq 331$ 

ClrL R4 

Br8 330$ 

CmpB * A X09, -KR2) 

BNEq 335$ 

IncL R4 

BiTB *7, R4 

BNEq 333$ 

DecL R4 

AOBLss R3, R4, 



Br IfJYot User 
SuBL2 R3. R4 
BNEq 35$$ 



330$ 
337$ 



(R2) 



CmpB # A X0D, 

BEql 330$ 

BiSB n, U'idth_Too_Large 

Br8 350$ 

IncL R2 

ClrL R4 

A08Lss DS$GL_Page, Line^Count, 

ClrL R4 

SubL3 R7, R2, R5 



Move address to R2 

If running under Auto Test, branch 
If running under Menu Test, branch 
Not either one, so skip over it 

Length a Length - 1 

Address = Address + 1 (byte) 

35 gets length 

Number of characters in current line 

Save original length of string 

Save original address of string 

SET PAGE ? 

Yes, go right to QIOW 

Are we at page limit? 

No 

Yes, prompt user 

Get terminal width 

Clear flag indicating line too long 



Any characters left? 
No, we have less than 



a page of chai 



L* ? 

Yes 



CR 



No, 

No 

Yes, 2ero width count 

Continue with next character 

No, TAB ? 

No 

Yes, add 1 to width 

Are we at TAB boundary? 

No, count another 

Yes, we added one to many so subtract 

Width gets larger by 1 

S/A doesn't pad next line if TAB 

How far over the edge of width? 

Too far, don't do extra CRLF, save R4 

We are at the edge of the width. 

If CR is next, line is not too t 

so print CRLF also 

No CRLF there, we need to do an extra 

CRLF if we are also at the page limit 

Count another line 



.ong. 



Point to next character 
width count 
; Enough for a page? 



j 2 a ,ar 



Clear width count 

R5 gets length of this string 



13 
(1) 

[14] 

[17] 
[17J 
C15] 

[15] 
[14] 

[16D 
[16] 
[16] 
[16] 
[16] 
[16] 

[16] 
[16] 
[16] 

[16] 
[16] 

[16] 

[16] 

C16] 
[16] 

[16] 
[16] 
[16] 
[16] 

[16] 
[16] 
[16] 
[16] 
[16] 
[16] 
T16] 
[16] 
[16] 
[16] 
[16] 
[16] 
[163 
[16] 
[16] 
C163 

[16] 
[16] 
[163 

[16] 
[16] 



ZZ-ENSAA-7.0 

PRINT 

07-19 



Sequence 209V 



N 3 

DSX$Type_0ut Routine - Do actual print, t 27-JUL-1984 Fjghe 11 Frame N3 „ n --«- 

*** PRINT Formatted print routines 27-JUL-1984 15:40:22 VAX-11 flacro V03-0T Page 
DSXSType Out Routine - Do actual print 23-JUL-1984 16:23:48 DMA1 :ESYS0.SYSMAINT3PRINT.MAR;75 









0170 


453 








0170 


454 




7E 


7C 


0170 


455 




7E 


7C 


0172 


456 




55 


DD 


0174 


457 




57 


DD 


0176 
0178 


458 
459 




7E 


7C 


0178 


460 




7E 


D4 


01 7A 


461 




00' 


DD 


01 7C 


462 


OOOOOOOO'EF 


DD 


017E 


463 




7E 


D4 


01C4 


464 


00000000' Gr 


OC 


FB 


0186 
018D 


465 
466 


55 56 


55 


C3 


C18D 


467 




01 


14 


0191 


468 






04 


0193 
0194 


469 

470 


00000008'EF 


01 


93 


0194 


471 




29 


13 


01 9B 
019D 
01 9D 
019D 
019D 
01 9D 


472 
473 
474 
475 
476 
477 


OOOQ0008'EF 


94 


01C0 


478 








01C6 


479 








01C6 


480 








01C6 


481 








01C6 


482 








01C6 


483 








01C6 


484 




n 


94 


01EB 


485 


57 


6E 


DE 


01ED 
01F0 


486 
487 


OOOOOOOO'EF 


01 


88 


0U8 
01FF 
01FF 
01FF 
01FF 
OlFF 
01FF 
01FF 
01FF 
01FF 


488 
489 
490 
491 
492 
493 
494 
495 
496 
497 




21 


11 


0220 
0222 
0222 
0222 
0222 
0222 


498 
499 
500 
501 

503 


OD 


6E 


91 


0243 


504 




OF 


13 


0246 


505 




8F 


95 


0248 


506 


OOOOOOOO'EF 


16 


024A 


507 




7E 


94 


0250 


508 


57 


6E 


DE 


0252 


509 



370$: 



380$: 



387$: 



388$: 



389$: 



CLRQ -<SP) 

CLRG -(SP) 

PushL R5 

PushL R7 

cLrq -(sp) 

clrl -(sp) 

pusht S A #io$_writevblk 

pushl L A ds$cw ttout 

Ctrl -(sp) 

calls #12, G A s>*s$qiow 

SubL? R5, R6, R5 
BGtr 380$ 
Ret 

BiTB #1, WidtMoo_Large 

BEqL 38$$ 

$0?0W.S , - 

L A DS$GW TTOUT, - 
S A *I0$„QRITEVBLK, - 
PI = Page^String, - 
P2 = *2 

ClrB Width.Too^Large 



Two null arguments [19] 
Two null arguments [193 
Push length of string 
Push address of string 

astadr/astprm ,.ero 

iosb zero 

function 

channel 

event flag 

do the qio 

R1 gets number of characters left 
There f s more, prompt user 
None left 



the last line too long? 

CRLF before prompt 



385$: $QJ0W_S 



L A DS$GW TTOUT, - 
#IO$JJRlTEVBLK, - 
PI = Page String, 
P2 = #45 
LlrB -(SP) 
MovAL (SP), R7 
BrJf_Not User 388$ 
BisB #T, DS$G8_QI0ACT 



$QJ0W.S 



BrB 
$QJ0W 



L A DS$GW TTIN, - , 

#I0$_REXDVBLKM0$M 

P1 = (R7) - 

P2 = #1 

389$ 



Was 

No 

Yes, do an extra 

Channel number 

Function 

Output buffor address 

Output buffer size 

Reset width flag 

Prompt for more output 
Channel number 
Function code 
Output buffer address 
Output buffer size 
Space for input buffer 
Input buffer on stack 

Set input QIO active 

In user mode, 

suppress echo of termination 

because VMS sometimes echoes 

sometimes doesn't. 
. Read the user's response 
Channel number 
.TRMN0ECHO, - ; Function 

Input buffer address 

Input buffer size 



14 
(1) 



char 
it and 



C163C193 



•» u * 



L A DS$GW TTIN, - . 

#I0$_RPADVBl.K!I0iM 

P1 = (R7), - 

Pc = #0 
CmpB (SP),# A X0D 
BEql 390$ 
TstB (SP)+ 
JSb L A KB Check 
ClrB -(SP7 
MovAL (SP), R7 



f Read the user's response 
Channel number [163C193 

.TRMN0ECH0, - ; Function 

Input buffer address 

S/A buffer works differently 

CR ? 

Yes 

No, pop the input buffer in cass A C 

Did we get A C ? 

If we come back from KB.Check, then 

it was not a A C, so try again 



[163 
C163 

[143 
[093 
[093 
[093 
[093 
[093 

[163 

[163 
[163 

[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 

[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
[163 
C163 
[163 
[163 
[163 
[163 

[163 

[163 

[163 

[163 

[163 

I 

[163 

[163 

[163 

[163 

[163 

C163 

[163 

[163 

[163 



ZZ-ENSAA-7.Q 

PRINT 
07-19 



DSXSType Out Routine - Do actual print 

*** PRINT Formatted print 
DSX$Type_0ut Routine - Do 



B 4 

27-JUL-1984 Fiehe 11 
routines 27-JUL-1984 15:40:22 
actual print 23-JUL-1984 16:23:48 



Frame B4 Seguence 2100 
VAX-11 Macro V03-01 Page 
DMA1:[SYS0.SYSMAINT]PRINT.MAR;?5 



99 
8E 



00000000' EF 

00000009* EF 

7E 

7E 

FE35 



11 0255 

95 0257 

0259 

0261 

0261 

0261 

0261 

0261 

0284 

0284 

0284 

0284 

0284 

02A7 

94 C2A7 

D4 02AD 

7C 0283 

7C 0285 

31 02B7 

04 02BA 

0288 



510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 



Br8 387$ 
390$: TstB (SP) + 
Br IfJJot^User 
$QT0W S 



395$: 



393$ 



393$: $QIOW_S 



L A DS$GW TTOUT, - 
S**I0$ QRITEVBLK, 
P1 = Page_String, 
P2 = #2 



■ 


L A DS$GW TTOUT, - 




S A #I0$ QRITEVBLK, 




P1 = Page_String, 




P2 = #2 


Clr8 


DS$6B QI0ACT 


CLrL 


Line Eount 


ClrQ 


~(SP7 


ClrQ 


-(SP) 


BrW 


310$ 


ret 





Pop the i " buffer 

Do an extra CRLF after prompt 

Channel number 

Function 

Output buffer address 

Output buffer size 

Do an extra CRLF after prompt 

Channel number 

Function 

Output buffer address 

Output buffer si*2e 

Clear QIO active 

Reset line counter 

P5/P6 zero 

P4/P3 zero 

Do another page 

Return 



15 
(1) 

[16] 
[16] 
[16] 
[16] 
C16] 
[16] 
[16] 
[16J 
[16] 
[16D 
C163 
[16] 
£16] 

[163 
[163 
[16] 
[16] 
[16] 
[093 



ZZ-ENSAA-7.0 

PRINT 

07-19 



Fiche 11 Frame C4 



Sequence 2101 



C 4 

DSXSPnnt Routine - Load type code byte 27-JUL-1984 ■ .*..*.. ■ ■-■■«-*- ,. rt ,,"x^ -- - -« 

*** PRINT Formatted print routines 27-JUL-1984 15:40:22 VAX-11 Macro V03-0T Page 
DSXSPrint Routine - Load type code byte 23-JUL-1984 16:23:48 DMA1 :CSYSO.SYSMAINT3PRINT.MAR;?5 



16 
(1) 



02BB 


532 


028B 


533 


028B 


534 


02BB 


535 


02BB 


536 


02BB 


537 


028B 


538 


02BB 


539 


02BB 


540 


02BB 


541 


02BB 


542 


02BB 


543 


02BB 


544 


02BB 


545 


C2BB 


546 


02BB 


547 


02BB 


548 


02BB 


549 


02BB 


550 


02BB 


551 


028B 


552 


02BB 


553 


02BB 


554 


02BB 


555 


02BB 


556 


02BB 


557 


02BB 


558 


02BB 


559 


02BB 


560 


02BB 


561 


0288 


562 


02BB 


563 


02BB 


564 


02BB 


565 


02BB 


566 


02BB 


567 


02BB 


568 


02BB 


569 


02BB 


570 


028B 


571 


02BB 


572 



.Subtitle 



DSXSPrint Routine - Load type code byte 



++ 



Functional Description: 

This routine is the control point for Supervisor type coding. 
it sets the typecode byte to the prober value, and calls the 
desired PRINT routine. Any print which does not go through 
this routine, and which does not set DS$GB TYPECODE explicitly 
will have the default (current) type code [.normally 03. 



Input Parameters 

4(ap) 

8(ap) 

12(ap) 

16(ap) 



Type code value (negative of typecode indicates 

that code is •sticky; 1 , and will not be cleared. 

Which PRINTx is desired 

Address of ASCIC format string 

First FAO argument (as in DSXSPRINTx routines) 



Output Parameters: 

none 
Implicit Inputs: 

none 
Implicit Outputs: 

DS$GL_ TYPECODE set to input value. 
Side effects: 

none 
Status returns: 

none 



ZZ-ENSAA-7,0 

PRINT 

07-19 
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50 



0000 
00 DD 



04 AC 

50 

05 

50 50 

6E 



03 AC 6C 02 

60 08 AC 

06 8E 

OOOOOOOO'EF 



DO 
D5 
18 
CE 
D6 



UO00OQOO k EF 50 90 



50 50'AF 9E 

10 11 

50 33'AF 9E 

OA 11 

50 23'AF 9E 

04 11 

50 16'AF 9E 



C3 
FA 
E8 
94 

04 



02B8 

02BD 

02BF 

02C3 

02C5 

02C7 

02CA 

02CC 

02CC 

02D3 

0203 

02U3 

02D3 

02D3 

C2D3 

02E0 

02E0 

02E4 

02C6 

02E6 

02EA 

02EC 

02EC 

02F0 

02F2 

02F2 

02F6 

02F6 

02FB 

02FF 

0302 

0308 

0308 



574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

60: 

604 

605 

606 



.Entry dsx$print, A M<> 

push I #0 

movl 4(ap), rO 

tstl rO 

bgeq 10$ 

mnegl rO, rO 

incl (sp) 

10$: movb rO, L A ds$gb_typecode 

case src=8(ap),type=b,limit=0O, 
displist=<- 
20$, - 
30$, - 
40$, - 
50$> 

20$: movab B A dsx$printi, rO 
brb 60$ 

30$: movab B A dsx$printf, rO 
brb 60$ 

40$: movab B A dsx$printb, rO 
brb 60$ 

50$: movab B A dsx$printx, rO 



60$: 



70$ i 



subl3 
callg 
bibs 
clrb 

ret 



#2, Cap), 8(ap) 
8(ap), (rO) 
(sp)+, 70$ 
L A ds$gb_typecode 



Frame D4 Sequence 2102 
VAX-11 Macro V03-01 Page 
DMA1:[SYS0.SYSMAINT]PRINT.MAR;75 



Allocate a zero longword 

Copy type code 

Check typecode 

Branch if not sticky 

If sticky, then negate and 

. .. mark as sticky 

Store the thing 

Case on the dispatch code 

PRINTI 
PRINTF 
PRINTS 
PRINTX 

Address for PRINTI 



Address for PRINTF 



Address for PRINTS 



Address for PRINTX 

Shorten arg list 
Call the routine 
Return if sticky type 
Otherwise clear it 

Return 
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(1) 

[09] 
C09] 
[09] 
[09] 
C09] 
[09] 
[09] 

[09] 
[09] 
[09] 
[09] 
[09] 
[09] 
[09] 

[09] 
[09] 

[09] 
[09] 

[09] 
[09] 

[09] 

[09] 
C09] 
E09] 
[09] 

[09] 



ZZ-ENSAA-7,0 

PRINT 

07-19 
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Frame E4 Sequence 2103 
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0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
C309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 
0309 



608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 



•Subtitle 



++ 



DSXSPrintX Routines - Extended print routines 



Functional Description: 



DSX$PRINTS 
DSXSPRINTX 
OSXSPRINTB 
DSXSPRINTF 
DSXSPRINTI 



ROUTINE TO PRINT SUMMARY MESSAGES 

ROUTINE TO PRINT EXTENDED MESSAGES 

ROUTINE TO PRINT BASIC MESSAGES 

ROUTINE TO PRINT FORCED MESSAGES 

ROUTINE TO PRINT EVEN IN APT MODE 



Calling Sequence: 

Procedure Call Thru Vectors In Entry 
Input Parameters: 



(AP) 
4(AP) 
8 CAP) 

(AP)[(Apn 

Implicit Inputs: 

NONE 
Output Parameters: 

NONE 
Implicit Outputs: 

NONE 
Completion Codes: 

NONE 
Side Effects: 

NONE 



= NUMBER OF PARAMETERS + 1 

= ADDRESS OF COUNTED ASCII FORMAT STRING 

= FIRST PARAMETER 

= LAST PARAMETER 



ZZ-ENSAA-7.0 
PRlNl 

07-19 
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.ENABL LSB 

.ENTRY DSX$PRINTS, A M<> 

Br IfJIot IES 30$ 

BBC #BSA$V IES,L A DSA$GL_FLAGS,30$ 

BRW PRINTj 

.ENTRY DSX$PRINTX, A M<> 

Br IfJJot IE3 10$ 

BBt #CSA$V IE3,L A DSA$GL_FLAGS,10$ 

BRW PRINTJ 

.ENTRY DSX$PRINTB, A M<> 

10$: Br IfJIot IE2 20$ 
; 1 0S : BBl #BSA$V IE2,L A DSA$GLJ : LAGS,20$ 

BRW PRINT J? 

20$ j Br Ifjfot IE1 30$ 
;20$: BBt #DSA$V JE1 ,L A DSA$GL_FLAGS,30$ 

BRW PRINT J 

.ENTRY DSX$PRINTF,*M<> 

30$: BrJf„Not„Apt 40$ 

Br " 

;30$: BBC 

; BBC 

« 

BRW 







0309 


651 






0309 


652 




0000 


0309 


653 






030B 


654 






030B 


655 






0313 


656 


0131 


31 


0313 


657 






0316 


658 




0000 


0316 


659 






0318 


660 






0318 


661 






0320 


662 


0124 


31 


0320 


663 






0323 


664 




0000 


C323 


665 






0325 


666 






0325 


667 






032D 


668 


0117 


31 


032D 


669 






0330 


670 






0330 


671 






0338 


672 


010C 


31 


0338 


673 






033B 


674 






033B 


675 




0000 


0338 


6?o 






033D 


677 






033D 


678 






0345 


679 






034D 


680 






034D 


681 






034D 


682 






034D 


683 


00F7 


31 


034D 


684 






0350 


685 






0350 


686 




0000 


0350 


687 






035? 


688 


SO OOOOFEOO'EF 


DE 


0352 


689 


5E 0001'CE 


9E 


0359 


690 


0oO0O004'EF 01 AE 


9E 


035E 


691 


7E 60 F7FFFFFF 8F 


CB 


0366 


692 


60 6E 


CA 


036E 


693 






0371 
0379 


694 






695 


7fc 04 AC 01 


C1 


0379 


696 


7E 04 BC 


9A 


037E 


697 


08 AC 


OF 


0382 


698 


00000000'EF 


7F 


0385 


699 


00000000' EF 


3F 


038B 


700 


OC AE 


7F 


0391 


701 


00000000' 9F 06 


F8 


0394 


702 






039B 


703 


01 50 


D1 


039B 


704 


03 


13 


039E 


705 


00A4 


31 


03A0 


706 
707 






03A3 



Br IfJJot NoRpt 40$ 
" • #BSA$V APT, - 

L A DSA$BL FLAGS, 40$ 
#DSA$V NORPT, - 
L A DSA$5L,FLAGS,40$ 
PRINT J< 



.ENTRY DSX$PRINTI, A M<> 



40$; 



45$: 



MOVAL L A DSA$GL FLAGS, RO 

MOVAB -DS$K..BUFSIZ+1<SP),SP 

MOVAB KSP), L A QBUFF+4 

BICL3 # A CDSA$M NORPT, (R0),-(SP> 

BJCL2 (SP),(R07 

Set.Output 

ADDL3 *1,4(AP),~(SP) 

M0VZ8L S4(AP),-(SP) 

PUSHAL 8(AP) 

PUSHAQ L A QBUFF 

PUSHAW L A DS$6L_BUFLEN 

PUSHAQ 12(SP) 

CALLS #6,MSYS$FA0L 

CMPL R0,#SS$„N0RMAL 

BEQL 45$ 

BRW PRINT.X 



Frame F4 Seguence 2104 
VAX-11 Macro V03-01 Page 
DMA1:CSYSO.SYSMAINT3PRJNT.MAR;?5 



; ENTRY MASK 

; If summary not inhibited, go 

; If summary not inhibited go 

; SUMMARY INHIBITED 



Inhibit Level-3 flag 
INHIBIT LEVEL-3 FLAG 
LEVEL-3 MESSAGFS INHIBITED 



Inhibit Level-2 flag 
INHIBIT LEVEL-2 FLAG 
LEVEL-2 INHIBITED 

Inhibit Level-1 flag 
INHIBIT LEVFL-1 FLAG 
LEVEL-1 INHIBITED... 
... => ALL INHIBITED 



If not in APT mode, proceed 
If not supressing output, go 
IF NOT IN APT MODE PROCEED 

APT MODE, IF NOT SUPPRESSING 
... OUTPUT, branch 
YES, IN APT MODE AND OUTPUT . 
... SUPPRESSED. 



19 
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C11 J 



[11] 



POINT TO FLAGS 
Allocate space 



LONGWORD 



SAVE STATE OF DSA$M„NORPT 
CLEAR NORPT FLAG 
Set OUTPUT flag 



COPY STRING ORIGIN 

COPY CONTROL STRING LENGTH 

ADDRESS OF INSERT LIST 

ADDRESS OF OUTPUT BUFFER DESCRIPTOR 

ADDRESS to RETURN STRING LENGTH 

ADDRESS OF CONTROL STRING DESCRIPTOR 

DO THE EDITING 

ARE PRINT MACROS OK, CORRECT PARAM. 

EXIT IF NOT CORRECT. 



C113 
C113 



[11] 
C11] 



C093 

C093 



C11D 



:073 

:o7] 



[18] 
[18] 

ci8: 



ZZ-ENSAA-7,0 

PRINT 
07-19 
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00000000' EF 
OOOOOOOA'EF 

SO OOOOOOOO'EF 
00000004 *FF 60 



f i0 

80 



0000FE68 , EF 

00000000 'EF 

00000004* EF 

60 61 



D6 
D7 
9E 
90 

7E 
3C 
DE 
DO 



■-f- 00000085'EF E9 



54 



1F 
6E 
12 



BB 
9E 
11 



5A 21 3D 70 74 



iw 



OOOQOSFB'OIOEOOOO 1 
2F 21 5D 42 



U>0O00O0'GF 

FC1A CF 
5E 



5E OA 

6E 

7E OA 

53 6E 

7E 00 B1 

00 B1 

63 

63 

D5 AF 

OA 



63 
02 
64 
IF 



C2 

9F 
9A 
9E 
9A 
94 
9F 
9F 
9F 
FB 
7P 
F8 
9E 
BA 



61 

'fc 00000000'EF 

FCO? CF 02 



DD 
3C 
FB 



OOOOFEOO'EF 8E C8 



OOOOOOOO'EF 



16 
04 



03A3 

03AB 

0381 

03B7 

03BE 

03C5 

03C5 

03CC 

03D3 

03DA 

03DD 

03DD 

03DD 

03DD 

C3DD 

03E4 

03EC 

03EE 

03F1 

03F3 

03F3 

0401 

0405 

0405 

0408 

04 OA 

040D 

0410 

0414 

0417 

0419 

0418 

041E 

0425 

0428 

042D 

0430 

0432 

0432 

0432 

0432 

0432 

0432 

0434 
04 3B 
0440 
0440 
0447 
0447 
0447 
044D 
044E 
Q44E 
044E 
Q44E 
044E 



708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 



BrJfJJot Binary 60$ 

incl L K ds$gl_buflen 

dec I L A qbuff+4 

movab 

movb 



L A ds$gb typecode, rO 
(rO), a[>qbuff+4 



60$: 



MOVAQ L A DSA$GQ MSGPTR,R0 

MOVZWL L A DS$GL BUFLEN, (R0) + 

moval L*Qbuff?4 f rl 

movl (r1), (rO) 



i^EBUG *** 



bLbc L A Debug the_sucker, 68$ 
BrJfJJot Binary 68$ 

pushr **M<rO,r1,r2,r3,r4> 
movab (sp), r4 
brb 62$ 



61$: 



62$: 



.ascid M [tp=!ZB]J/ 



1 1 



subL2 #10, sp 

pushab (sp) 

movzbl #10. -(sp) 

movab (sp), r3 

movzbl 9(r1), -(sp) 

clrb 3<r1) 

pushab <r3) 

pushab (r3) 

pushab 61$ 

calls #4, G*sys$fao 

movn (r3), -(sp) 

calls #2, dsx$type_out 

movab (r4), sp 

popr #*M<rO,r1,r2,r3,r4> 



68$: 



DEBUG *** 



pushl 

mov^wl 

calls 



(r1) 

L*ds$gl bufler, -(sp) 

#2, dsxJtype^ou* 



90$: BJSL2 
PRINT_X: 



(SP)*,L A DSA$GL_FUGS 
L*kb„check 
,DSA8L LSB 



j 



sb 
ET 



not binary 
final string 



Skip funny stuff if 

Increment length of 

Decrment address 

Get address of type code 

Set first byte of buffer = type code 



POINT TO TEST DESCRIPTOR 
STRING LENGTH TO MAILBOX 
Get address of Ubuff 
Suffer adr to mailbox 



Skip debug stuff if flag clear 
Only do debug if BINARY is set 
Make debug transparent 
Save current sp 
Skip format string 

Format string (with <CftXLF» 



Allocate space on stack 

Set it's address 

And it's length 

And remember it 

Final argument for FAO 

Clear it out to avoid tty problems 

Where to put length 

Address of result buffer 

Address of format string 

FAO it 

Push address of result string 

Print it 

Restore initial stack 

Restore registers 



20 
(1) 

[ 1 0J 
[09] 
[093 
[093 
[093 



[07] 
[093 
[093 



[99] 
[10] 
[99] 
[99] 
[99.1 

[10] 



Push address of buffer 
And length of same 
Do the actual output 

RESTORE STATE OF SUPPRESS FLAG 
Check for Control-C 



[99] 



COW 

C093 
093 



[083 



Cancel current input QIO operation and reset A C handler 



ZZ-ENSAA-7.0 
PRINT 

07-19 
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044E 
044E 
044E 
044E 
045C 
045C 
045C 
05 0481 



764 
765 

m 

768 

769 
770 
771 



RESETJNPUT; 

SCANCEL S CHAN*L A DSSGW TTIN ; Cancel J/0 on input channel 
SQI0W S~CHAN=L A DS$GW TTjN f - ; Reset A C handler 

" func=*io$ setmodeiiosm.ctrlcast, - 

P1=RCTRLC 
RS8 ; Return 
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con 
ton 



ZZ-CNSAA-7..0 DSXSCvtReg Routine - Mnemonic register c 

PRINT • * ' 

07-19 



I 4 

27-JUL-1984 



Fiche 11 Frame 14 



Sequence 2107 



ne - nnemomc register s c-jul-itoh r 'k"?^'I„ r, ? ^,0 ^^ , .. ..«,~'XJ W ' J " VV *■ L 

*** PRINT Formatted print routines 27-JUL-1984 15:40:22 VAX-11 Macro V03-01 „ . m Page 
DSX$CvtReg Routine - Mnemonic register c 23-JUL-1984 16:23:48 DMA1 :tSVS0.SVSMAINT]PRINT.MAR;?5 
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(1) 



0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

0482 

048; 

048; 

048; 

I4I 

I4i 

14: 

I4i 
04: 
Q4i 
04! 

04;. _ 

0482 



773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
7^.. 



?.'■' 
794 
795 
796 
797 
798 
799 

800 
801 
802 
803 
804 
805 
16 

808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
!0 
1 



.Subtitle 



IS! 



DSXSCvtReg Routine - Mnemonic register conversion routine 



FUNCTIONAL DESCRIPTION: 

ASSOCIATES REGISTER BITS AND/OR FIELDS WITH ASCII MNEMONICS 
GIVEN AN ASCII CONTROL STRING AND THE REGISTER CONTENTS 
Instead of the mnemonic address a code may specified directing 
CVTREG to use a predefined mnemonic string. This allows 
transportable diagnostics to format generic register values, 
i.e. UNIBUS adapter MAP registers. 

CALLING SEQUENCE: 

CALLG ARGLIST,cMfD$$CVTREG 
CALLS #11 # a*DS$CVTREG 



">UT PARAMETERS: 



4<AP) 

8(AP) 
12 CAP) 
16(AP) 
20(AP) 
24 (AP) 

IMPLICIT INPUTS: 



STARTING BIT POSITION (MSB) 

REGISTER CONTENTS 

COUNTED ASCII BIT MNEMONIC STRING ADDRESS OR CODE 

OUTPUT BUFFER ADDRESS 

OUTPUT BUFFER SIZE 

OPTIONAL ARGUMENTS FOR MNEMONIC STRING DIRECTIVES (UP TO 6) 



NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

DS$_N0RMAL 
DS$~PROGERR 

SIDE EFFECTS: 

R1 = LENGTH OF OUTPUT STRING + COUNT (NOT TRUNCATED) 

REGISTER USAGE: 



RO 
R1 

R3 
R4 
R5 

» 

R8 



CURRENT BIT POSITION 

CURRENT OUTPUT BUFFER LENGTH 

CURRENT OUTPUT BUFFER POINTER 

CURRENT MNEMONIC STRING POINTER 

MNEMONIC STRING TERMINATOR (LAST BYTE ADDRESS + 

FIELD SIZE 

EMUL OVERFLOW, EDIV QUOTIENT AND GENERAL USAGE 

EDIV DIVIDEND (HIGH ORDER) 

RADIX FOR EDIV 



1) 



ZZ-EN$AA-7«0 
PR. NT 
07-19 
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Fiche 11 Frame J4 



Sequence 2108 



27-JUL-1984 15:40:22 VAX-11 Macro V03-0T Pag 
c 23-JUL-1984 16:23:48 DMA1:£SYS0.SYSMAINTJPRINT.MAR;7 



0482 


830 ; 


R9 


LOOP CONTROL 


0482 


831 ; 


R10 


LOOP CONTROL 


0482 


832 ; 


R11 


OPTIONAL ARGUMENT 


0482 


833 ;-- 







POINTER 
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(1) 



ZZ-ENSAA-7.0 

PRINT 

07-19 
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27-JUL-1984 



Fiche 11 Frame K4 



Sequence 2109 



DSXSCvtReg Routine - Mnemonic register c 

*** PRINT Formatted or in, . . ... , _ 

DSX$CvtReg Routine - Mnemonic register c 23-JUL-19B4 16:23:48 DMA1 ;CSYS0.SYSMAINT3PRINT # MAR 
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6C 



20 



50 



OB 
03 
0199 

04 AC 
03 



OFFC 

D1 
13 
31 

D1 
1F 



0190 31 



52 



53 



53 



04 AC 

51 01 

01 10 AC 

5B 18 AC 

53 OC AC 

IB 

FFFFFFFC 8F 

DE 

53 53 

FFFFFFFCEF43 

5B 04 A3 

53 63 



54 
54 



01 
14 AC 
52 

82 

54 

2C 



83 

53 

06 
51 
OF 
51 
04 
10 AC 

2C 
51 

53 
46 
63 
41 



14 AC 51 

04 
10 AC 



52 



02 
3D 

54 



63 
83 
55 

53 

03 
011B 



DO 
DO 
CI 
DE 
DO 
18 
D1 
14 
CE 
DO 
DE 
DO 

9A 
CO 

BB 
D1 
13 
D1 
19 
DO 

90 
D6 

D1 
1E 
91 
13 

D1 
19 
DO 




5E 8F 63 91 



0482 
0484 
0484 
0487 
0489 
Q48C 
048C 
049C 
0492 
0492 
0495 
0495 
0499 
049C 
04A1 
04A5 
04A9 
04A9 
04B2 
04B^ 
04B7 
04BF 
04C3 
04C6 
04C6 
04C9 
04CC 
04CC 
04CE 
04D1 
04D3 
04D7 
04D9 
04DD 
04DD 
04E0 
04E2 
04E2 
04E5 
04E7 
04EA 
04EC 
04EC 
04F0 
04F2 
04F6 
4F6 
4F9 
4FB 
4FE 
0500 
0502 
0502 
0505 
0507 
050A 
050A 



835 

836 

837 

838 

839 

8<0 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

8*2 

8o3 

864 

865 



8J 



.ENTRY DSX$CVTREG, A M<R2,R3,R4,R5,R6,R7,Rf ,x ,R1C,R11> 



10$: 



20$: 
30$: 



40$: 



50$: 



60$: 



70$: 



80$: 



90$: 



CMPL 
BEQL 
BRW 

CMPL 
BLSSU 

BRW 

MOVL 

MOVL 

ADDL3 

MOVAL 

MOVL 

BGEQ 

CMPL 

BGTR 

MNEGL 

MOVL 

MOVAL 

MOVL 

M0VZ8L 
ADDL2 

*USHR 

CMPL 

BEOL 

CMPL 

BLSS 

MOVL 

M0V8 
INCL 

CMPL 
8GEQU 
CMPB 
BEQL 

CMPL 
BLSS 

MOVL 

MOVB 
INCL 
CMPB 
BNEQ 
CLRL 

CMPL 

BLSSU 

BRW 



#11, (AP) 

10$ 

330$ 

4(AP),*32 
30$ 

330$ 

4(AP),R0 

#1,R1 

16(AP),*1,R2 

24(AP),R11 

12(AP),R3 

40$ 

#CVTf_MAX,R3 

20$ 

R3,R3 

CVT$A^C0DELIST-4CR3],R3 

4<R3):R11 

(R3),R3 

(R3)+,R4 
R3,R4 

# A M<R1,R2> 

70i 

R1.20CAP) 
60i 
16(AP),R2 

# A A\',(R2) + 
R1 

R3,R4 

126$ 

(R3),**AV 

120$ 

R1,20(AP) 

80$ 

16(AP),R2 

(R3),(R2)+ 

R1 

<R3)+,# A A , =' 

if 



100$: CMPB 



R3,R4 

lit 

<R3),rA fA ' 



. CK ARGLIST VALIDITY 
OK, PROCEED 
SOMETHING WRONG ! 

CHECK MSB POSITION 
OK, PROCEED 

SOMETHING WRONG ! 

GET STARTING BIT POSITION 

SET UP OUTPUT LENGTH (COUNT BYTE) 

GET OUTPUT BUFFER ADDRESS 

Get address of optional args 

GET MNEMONIC STRING ADDRESS 

Branch if string address 

Last assigned code 

Unassigned code in R3 

Negate it making it positive 

Address of list, use one origin 

Address of AUX arglist 

Point to ASCIC mnemonic string 

GET MNEMONIC STRING LENGTH 
GET MNEMONIC STRING TERMINATOR 

CURRENT OUTPUT LENGTH & ADR 

LOOK AT OUTPUT LENGTH 

SKIP IF EMPTY 

OUTPUT BUFFER FULL ? 

NO, PROCEED 

YES, USE FIRST BYTE AS SCRATCH 

STICK IN A SEPARATOR 
BUMP OUTPUT LENGTH 

MNEMONIC STRING EXHAUSTED ? 
YES, GO CHECK LAST BIT 
END OF THIS MNEMONIC ? 
YES, GO CHECK THE BIT 

OUTPUT BUFFER FULL ? 

NO, PROCEED 

YES, USE FIRST BYTE AS SCRATCH 

COPY CHAR TO OUTPUT BUFFER 

BUMP OUTPUT LENGTH 

FIELD DIRECTIVE ? 

NO, LOOP FOR NEXT CHARACTER 

YES, INITIALIZE FIELD SIZE 

MNEMONIC STRING EXHAUSTED ? 

NO, PROCEED 

YES, BAD PLACE TO RUN OUT OF GAS 

NUMERIC DIRECTIVE ? 



ZZ-ENSAA-7,0 

PRINT 

07-19 



55 



56 
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140$ 

140$ 

(R3)+ t R6 

# A A , 0\R6 

110$ 

R6,#10 

116$ 

R5.*10,R6,R5 

90$ 

330$ 

R0,8(AP),130$ 

f A M<R1,R2> 

290$ 

280$ 

R0 

R5,R0 

R0,R5,8(AP),R6 

(R3M*A'a' 

170$ 

R3 

(R11)+,R7 

4(R7)CR63,R7 

(R7)+,R9 

R1,20<AP> 

160$ 
16(AP),R2 

(R7)+,(R2)+ 
R1 

R9,150$ 
270$ 

R3 

<R3),r*A'X' 

180$ 

#16, R8 

*1,R5,N9 

JT4-R9 

216$ 

190$ 

#10,R8 

R5,#3.R9 

210$ 

(R3),rA*0' 

200$ 
#8,R8 
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2A 


13 


050E 


40 8F 


63 


91 


0510 






24 


13 


0514 
0516 




56 


83 


9A 


0516 




56 


30 


C2 


0519 






OC 


19 


051C 




0A 


56 


D1 


051E 






07 


18 


0521 


56 


0A 


55 


7A 


0523 






D8 


11 


0528 
05 2A 






OOF 8 


31 


05 2A 
052D 


05 08 AC 


50 


EO 


052D 






06 


BA 


0532 






00B6 


31 


0534 
0537 






00B0 


31 


0537 
053A 






50 


D6 


053A 




50 


55 


C2 


053C 


08 AC 


55 


50 


EF 


053F 


40 


8F 


63 


91 


0545 






21 


12 


0549 






53 


D6 


054B 




57 


8B 


DO 


054D 


57 


04 


A746 


DO 


0550 




59 


87 


9A 


0555 
0558 


14 


AC 


51 


D1 


0558 






04 


19 


055C 


52 


10 AC 


DO 


055E 










0562 




82 


87 


90 


0562 






51 


D6 


0565 




EE 59 


F5 


0567 






74 


11 


056A 
056C 






53 


D6 


056C 


58 


8F 


63 


91 


056E 






OC 


12 


0572 




58 


10 


DO 


0574 


59 


55 


01 


C3 


0577 




59 


04 


C6 


057B 






2? 


11 


057E 










05I 


SO 


44 


8F 


63 


91 


05I 


30 






OC 


12 


05! 
05 


34 




58 


OA 


DO 


36 


59 


03 


55 


C5 


05 


B9 




59 


OA 


C6 


05 


3D 






15 


11 


0590 
0592 










4F 


8F 


63 


91 


0592 






OC 


1 2 


0596 




58 


08 


DO 


05 


98 



892 


BEQL 


893 


CMPB 


894 


BEQL 


895 




896 


MOVZBL 


897 


SU8L2 


898 


BLSS 


899 


CMPL 


900 


BGEQ 


901 


EMUL 


902 


BRB 


903 




904 110$: 


BRW 


905 




906 120$: 


BBS 


907 


POPR 


908 


BRW 


909 




910 130$: 


BRW 


911 




912 140$: 


INCL 


913 


SU8L2 


914 


EXTZV 


915 


CMPB 


916 


BNEQ 


917 


INCL 


918 


MOVL 


919 


MOVL 


920 


MOVZBL 


921 




922 150$: 


CMPL 


923 


BLSS 


924 


MOVL 


925 




926 160$: 
927 


MOVB 


INCL 


928 


SOB6TR 


929 


BRB 


930 




931 170$: 


INCL 


932 


CMPB 


933 


BNEQ 


934 


MOVL 


935 


SU8L3 


936 


DPL2 


937 


BRb 


938 




939 180$: 


CMPB 


940 


BNEQ 


941 


MOVL 


942 


MULL3 


943 


DIVL2 


944 


BRB 


945 




946 190$: 


CMPB 


947 


BNEQ 


948 


MOVL 



YES, 60 EXTRACT A FIELD 
INDIRECT DIRECTIVE ? 
YES, 60 EXTRACT A FIELD 

GET NEXT CHARACTER 
CONVERT TO BINARY NUMERIC 
NO GOOD, WENT NEGATIVE 
DECIMAL DIGIT ? 
NO, BAD CHARACTER 
EXTEND AND ADD IN DIGIT 
GO BACK FOR NEXT DIGIT 

SOMETHING WRONG J 

ASSOCIATED BIT SET ? 

NO, REMOVE CURRENT MNEMONIC 
AND GO CLEAN UP 

; ELSE PRESERVE OUTPUT AS IS 

ADJUST FOR POSITIONING 
POSITION TO RIGHTMOST BIT 
GET THE FIELD FROM THE REGISTER 
WAS IT AN INDIRECT DIRECTIVE ? 
NO, PROCEED WITH DIRECT CONVERSION 
SKIP OVER DIRECTIVE DELIMITER 
ADDRESS OF STRING LIST 
ADDRESS OF SELECTED STRING 
LENGTH OF SELECTED STRING 

OUTPUT BUFFER FULL ? 

NO, PROCEED 

YES, USE FIRST BYTE AS SCRATCH 

COPY CHAR TO OUTPUT BUFFER 
BUMP OUTPUT LENGTH 
LOOP TILL DONE 
THEN GO CLEAN UP 



SKIP OVER DIRECTIVE DELIMITER 

HEX CONVERSION ? 

NO, TRY DECIMAL 

SET UP RADIX 

ADJUST FIELD SIZE 

CONVERT TO HEX DIGIT COUNT -1 

AND SKIP 



DECIMAL CONVERSION 
NO, TRY OCTAL 
SET UP RADIX 
ADJUST FIELD SIZE 
CONVERT TO DECIMAL 
AND SKIP 

OCTAL CONVERSION ? 
NO, GIVE UP 
SET UP RADIX 



DIGIT COUNT -1 
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PRINT 


w 
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59 55 


01 


C3 


059B 


949 


SUBL3 


*1,R5,R9 ; 


ADJUST FIELD SIZE 




59 


03 


C6 


059F 


950 


DIVL2 


#3>R9 ; 
210$ ; 


CONVERT TO OCTAL DIGIT COUNT -1 






03 


11 


05A2 


951 


8RB 


AND SKIP 










05A4 


952 












007E 


31 


05A4 
05A7 
05A7 


953 200$: 

954 

955 210$: 


BRW 


330$ ; 


SOMETHING WRONG ! 




7E 


29 


90 


MOVB 


* A A')',-(SP) ; 


FOR CLARIFICATION, 




7E 


83 


90 


05AA 


956 


MOVB 


<R3)+,-(SP) 


RADIX DIRECTIVE IS 




7E 


28 


90 


05AD 


957 


MOVB 


# A A'(\-(SP) 


APPENDED TO NUMERIC DISPLAY 




5A 03 


59 


C1 


0580 
05B4 
05B4 


958 
959 
960 220$: 


ADDL3 


R9,*3,R10 


COPY ADJUSTED LOOP COUNT 






57 


D4 


CLRL 


R7 \ 


DON'T NEED HIGH ORDER 




57 56 56 


58 


78 


0586 


961 


EDIV 


R8,R6,R6,R7 

R7-#10 

236$ 


NEXT DIGIT TO R7 




OA 


57 


D1 


05BB 


962 


CMPL 


ALPHA DIGIT (I.E., HEX) ? 






05 


19 


05BE 


963 


BLSS 


NO, PROCEED 




57 


37 


CO 


05C0 


964 


ADDL2 


# A A'A'-10,R7 


YES, CONVERT TO •HEX 1 ASCII 






03 


11 


05C3 
05C5 
05C5 
05C8 
05C8 


965 

966 

967 230$: 

968 

969 240$: 


BRB 


240$ 


AND SKIP 




57 


30 


CO 


ADDL2 


^ A A , , ,R7 


CONVERT TO ASCII DIGIT 




7E 


57 


90 


M0V8 


R7,-(SP) 


STACK ASCII DIGIT 




E6 59 


F4 


05CB 


970 


S08GEQ 


R9,220$ 


• LOOP TILL DONE 










05CE 


971 










14 AC 


51 


D1 


05CE 


972 250$: 


CMPL 


R1,20(AP> I 
260$ 


• OUTPUT BUttER FULL ? 






04 


19 


05D2 


973 


BLSS 


NO, PROCEED 




52 10 AC 


DO 


05D4 


974 


MOVL 


16(AP),R2 


• YES, USE FIRST BYTE AS SCRATCH 










05D8 


975 










82 


8E 


90 


05D8 


976 260$: 


M0V8 


(SF)+,(R2/+ 


• STORE THE NEXT CHARACTER 






51 


D6 


05D8 


977 


INCL 


R1 


• BUMP OUTPUT LENGTH 




c 

L. 


E 5A 


F4 


05DD 
05E0 


978 
979 


SOBGEQ 


R10,250$ 


• LOOP TILL DONE 




54 


53 


D1 


05E0 


980 270$; 


CMPL 


R3,R4 
306$ 


: MNEMONICS EXHAUSTED ? 






16 


1E 


05E3 


981 


BGEGU 


• YES, JUST SKIP OUT QUIETLY 




2C 


63 


91 


05E5 


982 


CMPB 


(R3),# A AV 


; LOOKING AT A COMMA ? 






3B 


12 


05E8 
05EA 


983 
984 


BNEQ 


330$ 


♦ NO, THEN SOMETHING'S WRONG 




5E 


08 


CO 


05EA 
05ED 
05E0 


985 280$: 

986 

987 290$; 


A0DL2 


¥8,SP 


; PRESERVE OUTPUT AS IS 






53 


D6 


INCL 


R3 


; SKIP COMMA IN MNEMONICS 






50 


07 


05EF 


988 


DECL 


RO 


; SHIFT TO NEXT BIT POSITION 






08 


19 


05F1 


989 


BLSS 


300$ 


; DONE, GO FINISH UP 




54 


53 


D1 


05F3 


990 


CMPL 


R3,R4 


; PERHAPS MNEMONICS EXHAUSTED 






03 


1E 


05F6 


991 


BGEQU 


300$ 


; IT IS, JUST MEANS DONE 






FED1 


31 


05F8 
05FB 


992 
993 


BRW 


50$ 


; ELSE GO BACK TO DO SOME MORI: 




00000100 8F 


51 


D1 


05F8 


994 300$; 


CMPL 


R1 JMaB 

3l6$ 


; COUNTED FORMAT OVERFLOW ? 






08 


14 


0602 


995 


BGTR 


; YES, GO FIX IT 




14 AC 


51 


D1 


0604 


996 


CMPL 


R1,20(AP) 


; CALLER'S BUFFER OVERFLOW ? 






02 


14 


0608 


997 


BGTR 


316$ 


; YES, GO FIX IT 






25 


11 


060A 
060C 
060C 


998 
999 
1000 310$; 


BRB 


350$ 


; BOTH OK, DO NORMAL THING 




00000100 8F 14 AC 


D1 


CMPL 


20(AP),#138 


; FIND THE SMALLER ONE 






07 


19 


0614 


1001 


BLSS 


320$ 


; CALLER'S BUFFER IS .LSS, 256 




10 BC FF 8F 


90 


0616 


1002 


MOVB 


#<ia8>-1,316(AP) 


; STORE MAX COUNT, BUFFER IS BIG ENOUGH 






08 


11 


0618 
061 D 


1003 
1004 


BRB 


340$ 


; AND SKIP OUT 




10 8C 14 AC 


01 


83 


061D 


1005 320$; 


SUBB3 


ri,20(AP),al6(AP> 


; COPY CALLER'S MAX LENGTH 
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50 



03 

10 BC 

00660020 8F 
0C 



10 BC 51 01 
50 00660001 8F 



11 0623 
0625 

94 0625 
0628 

DO 0628 

11 062F 
0631 

83 0631 

DO 0636 
063D 
063D 

04 063D 
063E 
063E 



1006 
1007 
1008 
1009 
1010 
1C11 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 



BRB 
330$: CLRB 



340$: 



350$: 



MOVL 
BRB 

SUB83 
MOVL 



340$ 

S16(AP) 

#DS$ PR0GERR,R0 
RCVTREGX 

n,Ri,ai6<AP> 

0DS$_NORMAL,RO 



RCVTREGX: 

RET 

.END 



AND SKIP OUT 

INDICATE NO OUTPUT 

INDICATE A PROBLEM 
AND SKIP OUT 

STORE STRING LENGTH 
INDICATE SUCCESS 

RETURN TO CALLER 



i 



ZZ-ENSAA-7.0 
PRINT 
Symbol table 



Symbol table 



SS.TMP1 

SS.TMP2 

S$N 

SST1 

BIT... 

CLISK^BUFSIZ 

CLISK_SI2E 

CLISLJ\DDRESS 

CLISL COMMAND 

CLlSLlDATA 

CLISLJLAGS 

CLISL.LAST 

CLISLJJEXT 

CLISL^PASS 

CLISL SUBT 

CLISL_TEST 

CLISQ BUFQWD 

CLISCfFILE 

CLlSQ_SECTION 

CLISQ^TIME 

CLIST.BUFFER 

CLI$VJ\DAPTER 

CLISVJ\DR 

CLISV_ASCII 

CLISV^BREAK 

CLISV_BRIEF 

CLISV^BYTE 

CLISV.CLEAR 

CLISV J)EC 

CLISVJ)EFAULT 

CLISV^DEPOSIT 

CLISV_EVENT 

CLISV^EXAM 

CLISV FLAGS 

CLlSVl'HEX 

CLISV KERNEL 

CLISV'LOAD 

CLISV LONG 

CLISV NOTNUF 

CLISV~OCT 

CLISVJWG 

CLISV QA 

CLISV GACKLOOPLOOPS 

CLISV^QAERRORPRINTS 

CLISV QAMULTIPLEPASS 

CLISV'QASUBTESTLOOPS 

CLISV'QATESTLOOPS 

CLISV^REG 

CLISV REQUIRED 

CLISV~RUN 

CLlSVlSET 

CLISV SHOW 

CLISV VALSEC 

CLISV" WORD 

CR 

CRDSK CRD INITIALIZATION 

CRD$K"DS CONTROL. C 



** PRINT Formatted 


00000001 


D 


00000060 




00000002 


D 


00000001 


D 


00000003 


D 


00000100 


D 


00000444 


D 


00000018 


D 


00000004 


D 


0000001 C 


D 


00000000 


D 


00000024 


D 


00000030 


D 


0000002C 


D 


00000028 


D 


00000020 


D 


00000034 


D 


00000008 


D 


00000010 


D 


0000043C 


D 


0000003C 


D 


00000018 





OOOOOOOB 


D 


00000013 


D 


OOOOOOOA 


D 


0000001B 


D 


OOOOOOOD 


D 


00000002 


D 


00000010 


D 


OOOOOOOC 


D 


00000019 


D 


00000008 


D 


00000005 


D 


00000009 


D 


00000012 


D 


00000017 


D 


00000006 


D 


OOOOOOOF 


D 


00000001 


D 


00000011 


D 


0000001 A 


D 


00000007 





0000001 C 


D 


00000018 


D 


0000001 F 


D 


0000001 E 


D 


000000 1D 


D 


00000014 


D 


00000000 


D 


00000015 


D 


00000003 


D 


00000004 


D 


00000016 


D 


OOOOOOOE 


D 


OOOOOOOD 


D 


00000000 


G D 


00000001 


G D 
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CRDSK.DS FLAGS 

CRDSK.FATLURE 

CRDSK HOOK POINT 

CRDSKlLAST'ACCESS CODE 

CRDSK.LAST.DS VARIABLE 

CRDSK„LAST FACTION 

CRDSK LAST H00K.P0INT 

CRDSK READ 

CRDSK.SUCCESS 

CRDSK.TYPECODE 

CRDSK.WRITE 

CVTSA^CODELIST 

CVTST MBAMAP 

CVT$T„MBASR 

CVTST.UBADPR 

CVTST UBAMAP 

CVTSjlAX 

CVTS.MBAMAP 

CVTSJ1BASR 

CVTSJJBADPR 

CVTS UBAMAP 

DEBUS.THE.SUCKER 

DSSGA„CRD DSJNTERFACE 

DSSGB.QIOSCT 

DSSGB.TYPECODE 

DSSGB.VDS DEBUG 

DSSGBJJIDTH 

DSSGL_8UFLEN 

DSSGL„FLAGS 

DSSGL_PAGE 

DSSGT^BUFFER 

DSSGW_TTIN 

DSSGW TTOUT 

DSSKjUFSIZ 

DSSKJRROR 

DSSK.NORMAL 

DSSK.PRINTB 

DSSK_PRINTF 

DSSK„PRINTI 

DS$KJ>RINTX 

DSSK_SEVERE 

DSSK_SUBSYS 

DSSK TYPE ABORT PROGRAM 

DSSKlTYPElABOROEST 

dssk^type^commard^err 
dssk_type_command out 
dsskjype„crd autotest 
dssk typeIds Prompt 
dssk~typej>s start 
dsskItypejrRdev 
dssk type errhard 
dsskItypeIerror.body 
dssk typejrror end 
dssk type errprEp 
dssk~type"errsoft 
dssk"type~errsup 
dsskItypeIerrsys 



00000000 
00000000 
00000000 
00000002 
00000002 
00000002 
00000001 
00000000 
OOO0OO01 
00000001 
00000001 
00000000 

******** 
*******<. 
******** 
******** 

fffffffc 
fffffffc 

ffffffff 
fffffffe 

00000085 
******** 

******** 

******** 

00000085 
******** 

******** 

******** 

OOOOOOOD 

******** 

******** 
******** 
******** 

00000002 

00000001 

00000002 

00000001 

00000000 

00000003 

00000004 

00000066 

00000014 

00000013 

0000001 5 

0000001 o 

OOO0OO1A 

00000001 

0000001 D 

00000008 

OOOOQQO 

0000000 

OOOOOOOA 

0000001 B 

00000007 

00000004 

00000005 



G D 
D 
G D 
G D 
G D 
G D 
G D 
G D 
D 
G D 
G D 
R D 
X 
X 
X 
X 
D 
D 
D 
D 
D 
RG D 
X 
X 
X 
RG D 
X 
X 
X 
RG D 
X 
X 
X 
X 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



03 
03 
03 
03 
03 



02 
04 
04 
04 
02 
04 
04 
04 
02 
02 
04 
04 
02 
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DS$K TYPE ERR HALT 
DS$K~TYPElEXCEPTION 
DSSK'TYPE EXCEPTION HEAD 
DS$K"TYPE"FIRST PASS 
DS$OYPE~GENER*L 
DSSK~TYPE GENERAL ERROR 
DSSITTYPE'NO TESTS 
DS$K"TYPE"PARAM ERROR 
DS$K~TYPE~PR0GRXM END 
DSSK~TYPE"PROGRAM~INFO 
DS$K~TYPE PROGRAM START 
DS$iTTYPE~QIOJNVJDP 
DStK~TYPE~QIO NODRIVER 
DS$*f TYPE~QIO WRONGVER 
DSSK'TYPE'SCRTPT.ECHO 
DS$K~TYPE~SCRIPT pnf 
DS$K"TYPE"SCRIPT"PROMPT 
DSSK"TYPE"SCRIPT"SKIP 
DS$K"TYPE"SEQUENCE ERROR 
DS$K~TYPE~START ERR 
DS$K"TYPE"START3LIST 

ds$k~type~summaRy 

DSSK'TYPEJJSER.PROMPT 

dssk'warnTng 
ds$m~abrtflg 
ds$m~badtime 

DSSMlBATCH 

DS$M BRKCLR 

DS$M BRKPT 

DS$M~CHARFLG 

DS$M~CMDFLG 

DS$M~CTRLC 

DSSMlCTRLO 

DS$M DEVFLG 

DS$M DISABLCC 

DS$M~DONFLG 

DSSM..ERRFLG 

DSIM.EXCEPT 

DS$M EXETST 

DSSM^HLTFLG 

DS$M LODFLG 

DS$M~MEMMGT 

DSSM"OUTPUT 

DS$M~RUBFLG 

DS*M SCRIPT 

DSSMlSETIMR 

DS$M_STRFLG 

DS$M_SUBT 

DSSM^SYSFLG 

DS$M TIMRON 

DS$RaB OUTPUT 

DS$V ABRTFLG 

DSSVlBADTIME 

D$%V BATCH 

DSSVjBRKCLR 

DS$V "BRKPT 

DS$V~CHARFLG 



0000000D 

0OO0OOOC 

0OO0OOOB 

00000011 

00000000 

00000005 

00000012 

0000001 c 

00000010 

00000017 

0000000F 

00000024 

00000022 

00000023 

00000021 

0000001 E 

00000020 

0000001F 

00000019 

00000018 

00000025 

OOOOOOOE 

00000002 

00000000 

00000040 

00100000 

00400000 

00001000 

00000800 

00000100 

00000080 

00000001 

00010000 

00000200 

01000000 

00002000 

00000010 

00080000 

00040000 

00000008 

00000002 

00008000 

00800000 

00000020 

00200000 

02000000 

00000004 

00004000 

00000400 

00020000 
******** 

00000006 
00000014 
00000016 

oooooooc 

00000008 
00000008 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
X 
D 
D 
D 
D 
D 
D 



04 



DSSV.CMDFLG 

DS$V_CTRLC 

OS$V CTRLO 

DSSVlDEVFLG 

DS$V DISABLCC 

DS$VJ)ONFLG 

DSSV.ERRFLG 

DSSV.EXCEPT 

DS$V_EXETST 

DSSV HLTFLG 

DSSVlLODFLG 

DSSVJ1EMMGT 

DSSVJHJTPUT 

DS$V_RUBFLG 

DSSV.SCRIPT 

DSSV SETIMR 

DS$V_STRFLG 

DSSV.SUBT 

DS$V,SYSFLG 

DSSV TIMRON 

DSSjtelTH 

DS$ ASBE 

DS$_BADLINK 

DS$ BADTYPE 

DSS'BIIC 

DS$ CHME 

DS$~CHMK 

DSS'DEVNAME 

DSS.ERROR 

DS$ FHWE 

D5$~FRAGBUF 

DS$~ICBUSY 

DSS.ICERR 

DSS.IHWE 

DSS.ILLCHAR 

DS$ ILLPAGCNT 

DSS'ILLUNIT 

DS$ INSFMEM 

DSSJPL2HI 

DSSJVADDR 

DS$_IVVECT 

DS$ KRNLSTK 

DS$ LOGIC 

DS$"MCHK 

DSSJ1M0FF 

DS$ NEEDUNIT 

DS$_NODE 

DSS.NOPCS 

DSS^NORMAL 

DS$ NOSUPPORT 

DS$~NOTDON 

DS$~N0TIMP 

DS$lNULLSTR 

DS$ OVERFLOW 

DSS~POWER 

DS$"PROGERR 

DS$ISEVERE 



00000007 

00000000 

00000010 

00000009 

00000018 

OOOOOOOD 

00000004 

00000013 

00000012 

00000003 

00000001 

OOOOOOOF 

00000017 

00000005 

0000001 5 

00000019 

00000002 

OOOOOOOE 

OOOOOOOA 

00000011 

006600DO 

00660118 

006600F0 

006600E8 

00660120 

006600A8 

006600EO 

00660108 

00660002 

00660068 

00660080 

006600C8 

0O660OC0 

00660060 

00660018 

00660078 

00660100 

00660050 

006600B8 

00660040 

00660038 

00660090 

00660070 

00660088 

00660058 

006600F8 

00660128 

00660110 

00660001 

006600B1 

00660030 

006600BO 

00660010 

00660008 

00660098 

00660020 

00660004 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



ZZ-ENSAA-7.0 
PRINT 
Symbol table 



Symbol table 



*** PRINT Formatted print 



DSS TRANSL 

DS$~TRUNCATE 

DSS^UNEXPINT 

DSSJ/ASFULL 

DSS WARNING 

DSA$ALJ\PTMAIL 

DSASAT APTTXT 

DSA$GL~APTCOM 

DSASGLlDEVLEN 

DSA$GL_ERRNO 

DSA$GL_EVENT 

DSASGL FLAGS 

DSA$GL~MSGTYP 

0SA$GL PASSES 

0SA$GL>ASSN0 

OSASGL SECTNO 

DSASGLlSP 

DSA$GL_SUbTNO 

DSASGL TESTNO 

DSASGLlUNlTS 

OSASGQ MSGPTR 

DSA$GT~DEVNAM 

DSASH FlORPT 

dsasv'apt 
dsasv'binary 
dsasv'crd autotest off 
dsa$v~crd~menutest_off 

DSASVJEr 

DSASV IE? 

DSA$VllE3 

DSASV IES 

DSASV NORPT 

DSASV USER 

DSVSSETPAGE 

DSVSSHOWPAGE 

DSXSCVTREG 

DSXSPRINT 

DSXSPRINTB 

DSX5PRINTF 

DSXSPRINTI 

DSXSPRINTS 

DSXSPRINTX 

DSXSTYPE OUT 

FALSE " 

IO$M CTRLCAST 

IO$M~TRMNOECHO 

IOSjiEADVBLK 

IOS^SETMODE 

10$ WRITEVBLK 

KB^HECK 

LF 

LINE. COUNT 

OFF 

ON 

PAGE STRING 

PRINT^X 

QBUFF 



006600A0 

00660028 

006600D8 

00660048 

00660000 

OOOOFEOO 

OOOOFAOO 

OO00FE04 

0000FE58 

0000FE44 

0OO0FE48 

OOOOFEOO 

0000FE40 

OO00FE08 

OO00FE54 

OOO0FE1O 

OOO0FE14 

OOO0FE4C 

OO00FE50 

OOOOFEOC 

0000FE68 

OOO0FE5C 

08000000 

0000001 F 

OOOOOOOI 

00000008 

00000010 

00000004 

00000005 

00000006 

00000007 

00000018 

0000001 c 

00000000 

00000027 

00000482 

000002B8 

00000323 

0000033B 

00000350 

00000309 

00000316 

00000047 

00000000 
******** 

******** 

******** 

******** 

******** 

******** 

OOOOOOOA 
00000009 
00000000 
00000001 
00000058 
00000447 
00000000 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

RG 

RG D 

RG 

RG D 

RG D 

RG D 

RG D 

RG 

RG 

RG 



X 

X 

X 

X 

X 

X 
D 
RG D 
D 
D 

D 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 

02 



02 
04 
02 
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RABSL^RBF 

RABSW RSZ 

RCTRLC 

RCVTREGX 

RESET INPUT 

SIZ... 

SS$ NORMAL 

SYSJCANCEL 

SYSSFAO 

SYSSFAOL 

SYSSPUT 

SYSSQIOW 

TRUE 

T PAGE 

T SHOW PAGE 

WlDTHjTOOJ_ARGE 
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00000028 


D 




00000022 


D 




******** 


X 


04 


0000063D R D 


04 


0000044E 


R D 


04 


00000001 


D 




00000001 


D 




******** 


GX 


04 


******** 


X 


04 


******** 


X 


04 


******** 


GX 


04 


******** 


GX 


04 


0OO0O0O1 


D 




00000011 


R D 


02 


00000034 R 


02 


00000008 


R D 


02 



ZZ-ENSAA-7.0 

PRINT 

Psect synopsis 



Psect synopsis 
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Frame E5 Sequence 2116 

VAX-11 Macro V03-0T Page 31 v 
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PSECT name 

ABS , 
SABSS 
WORK 
DATA 
CODE 



Allocation 

00000000 
0000FE70 
00000086 
00000010 
0000063E 



! Psect synopsis ! 

PSECT No. Attributes 

( 0.) 00 ( 0J N0P1C USR 

(65136.) 01 ( 1.) N0PIC USR 

( 134.) 02 ( 2.) NOPIC USR 

( 16.) 03 ( 3.) NOPIC USR 

( 1598.) 04 ( 4J NOPIC USR 



con 


ABS 


LCI. 


NOSHR 


NOEXE 


NORD 


NOWRT NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


WRT NOVEC 


LONG 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


NOWRT NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT NOVEC 


BYTE 



ZZ-ENSAA-7.0 

PRINT 

Cross reference 



Cross reference 



*** PRINT Formatted print routines 



F 5 

27-JUL-1984 



Fiche 11 Frame F5 



Sequence 2117 



SYMBOL 



SS.TMP1 
$$,TMP2 
$$N 
S$T1 



BIT... 

CLISK. 

CLISK. 

CLISL 

CLISL. 

CLISL.. 

CLISL. 

CLISL. 

CLISL. 

CLISL 

CLISL. 

CLISL. 

CLISQ 

CLISQ. 

CLISQ. 

CLISQ. 

CLIST. 

CLISV. 

CLISV. 

CLISV. 

CLISV, 

CLISV. 

CLISV. 

CLISV 

CLISV. 

CLISV. 

CLISV. 

CLISV. 

CLISV. 

CLISV. 

CLISV, 

CLISV. 

CLISV, 

CLISV. 

CLISV. 

CLISV. 

CLISV. 

CLISV, 

CLISV, 

CLISV, 

CLISV, 

CLISV. 

CLISV, 

CLISV 



BUFSIZ 
SIZE 
ADDRESS 
COMMAND 
DATA 
FLAGS 
LAST 
NEXT 
PASS 
SUBT 
TEST 
BUFQWD 
FILE 
SECTION 
TIME 
.BUFFER 
ADAPTER 
>DR 
ASCII 
BREAK 
BRIEF 
BYTE 
CLEAR 
.DEC 

DEFAULT 
.DEPOSIT 
.EVENT 
.EXAM 
.FLAGS 
HEX 

.KERNEL 
.LOAD 
.LONG 
.NOTNUF 
.OCT 
,PREG 
QA 

QACKLOOPLOOPS 

QAERRORPRINTS 

"QAMULTIPLEPASS 

'QASUBTESTLOOPS 

.QATESTLOOPS 

REG 
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VALUE 

=00000001 
=00000060 
=00000002 
=00000001 

=00000003 

=00000100 

00000444 

00000018 

00000004 

0000001 C 

00000000 

00000024 

00000030 

0000002C 

00000028 

00000020 

00000034 

00000008 

00000010 

0000043C 

0000003C 

=00000018 

=0OO0OO0B 

=00000013 

=OOO0O0OA 

^00000018 

=OO00OOOD 

=00000002 

=00000010 

=OOO00OOC 

=0000001° 

sOOOQOOOg 

=00000005 

=00000009 

=•00000012 

=00000017 

=00000006 

=OOO0OO0F 

=00000001 

^00000011 

=0000001 A 

=00000007 

=0000001 c 

=00000018 

=0000001 F 

=0000001 E 

=00000010 

=00000014 



! Symbo 
+— — 



DEFJNIT 



381 
381 
290 
770 

144 

145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 
145 



Cross Reference ! 



ON 



REFERENCES... 



381 
381 
0-245 
477 
517 
138 
144 
145 



#-234 



290 
484 
522 
140 



(1) 
(1) 
(1) 
(1) 



497 
770 
141 



(1) 
(1) 
(1) 



503 
143 



(1) 
(1) 



(1) 



ZZ-ENSAA-7.0 

PRINT 

Cross reference 



Cross reference 
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Sequence 2118 
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33 
(1) 



CL1SV REQUIRED 

CLISV_RUN 

CL1SV.SET 

CLISV SHOW 

CLISV^VALSEC 

CLISV WORD 

CR 

CRDSK CRD INITIALIZATION 

CRDSKJ)Sj?ONTROL_C 

CRDSK DS FLAGS 

CRDSK FAILURE 

CRDSK.HOOKJ>OINT 

CRDSK LASTJVCCESS CODE 

crdskj.ast„ds VARIABLE 

CRDSK,LASTJURCTION 

CRDSK LAST_HOOK,POINT 

CRDSK READ 

CRDSKlSUCCESS 

CRDSK^TYPECODE 

CRDSK.WRITE 

CVTSA CODELIST 

CVTST M8AMAP 

CVTST^MBASR 

CVTST^UBADPR 

CVTST UBAMAP 

CVTSjfaX 

CVTS„MBAMAP 

CVTS MBASR 

CVTS„UBADPR 

CVTS UBAMAP 

DEBUC.THE.SUCKER 

DSSGA..CRD DSJNTERFACE 

DSSGB.QIOJCT 

DSSGB_TYPECODE 

DSSGB^VDS DEBUG 
DSSGBJJIDTH 
DSSGL_BUFLEN 
DSSGL. FLAGS 
DSSGL^PAGE 

DSSGT BUFFER 

DSSGtMTIN 

DSSGW_TT0UT 

DSSK„BUFSIZ 

DSSKlERROR 

DSSK„NORMAL 

DS$K~PRJNTB 

DSSKlPRINTF 

DSSK^PRINTI 

DSSK.PHINTX 

DSSK.SEVERE 

DSSK_SUBSYS 

DSSK TYPE ABORTJ>ROGRAM 

DSSrTYPEjABORT TEST 

DSSKlTYPE.COMMARD^ERR 



=00000000 
=00000015 
:00000003 
=00000004 
=00000016 
=O00O00OE 
mDOOOOOOD 
=00000000 

:00oooooi 

=00000000 
=000000(0 
=00000000 
=00000002 
=00000002 
=00000002 
=00000001 
=00000000 
=00000001 
=00000001 
:00000001 

ooooocoo- 

00000000' 
00000000- 
00000000- 



00000- 

FFFFFFC 
FFFFFFD 
FFFFFFF 
FFFFFFE 
00000085- 
00000000' 
00000000- 
00000000- 



000 
=F 

:F 

■f 

:F 
=F 



•R 

•XR 

•XR 

•XR 

•XR 



•R 
•XR 
•XR 
•XR 



00000085-R 

00000000-XR 

00000000-XR 

00000000-XR 

OO000O0D-R 

00000000-XR 
00000000-XR 
00000000-XR 

00000000-XR 
=00000002 
=00000001 
=00000u02 




=00000066 

:W C0U - 



=o< 



.0013 
00015 



145 
145 
145 
145 
145 
145 

166 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
187 



140 
140 
140 
140 
140 
172 



171 



161 



138 
138 
143 
143 
143 
143 
138 
138 
143 
143 
143 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 



(1) 



(1) 
(1) 

m 
(1) 
(1) 
(1) 
d) 
d) 
(1) 
(1) 
(1) 



168 



#-353 

#-855 
191 
190 
188 
189 

#-852 
140 



354 
#-389 
#-342 

711 

#-416 

700 

359 

#-237 

#-449 

155 

#-497 

#-463 

#-522 

154 



#-245 

138 
#-245 



<1) 



(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 

(1) 

(1) 



#-488 
#-352 



#-709 

694 

#-285 



#-503 
#-477 

690 



#-290 



(1) 
(1) 



(1) 
(1) 
(1) 



<1) 
(1) 

(1) 



(1) 



#-524 
#-582 



#-715 
#-409 



#-767 
#-484 



(1) 
(1) 



(1) 
(1) 



(1) 
(1) 



#-604 

#-751 
#-412 



#-770 
#-517 



(1) 

<1> 
(1) 



(1) 
<1> 



ZZ-ENSAA-7.0 

PRINT 

Cross reference 



Cross reference 



*** PRINT Formatted print routines 
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Fiche 11 Frame H5 



Sequence 2119 
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DSSK TYPEJttMMAND OUT 

dssk~type crd autotest 
dssk"type~ds prompt 
dssk"type~d$~start 
dssOype^erRdev 
dsskjypejrrhard 
dssk typejrror^body 
dssoypejrror end 

DSSKJTYPEJiRRPREP 
DSSK TYPE ERRSOFT 
DSSKlTYPElERRSUP 

dssk type errsys 
dssk type err halt 
dssk typejxception 
dssk.type.excepticn head 
dssk type first pass 
ds$k"typeIgenerAl 
dssoype..general error 
dsskjypejkxtests 
dssk_type„param error 

DSSK.TYPE.PROCRKMJiMD 
DSSk_TYPEJ>ROGRAMJNFO 
DSSK_TYPEJ>ROGRAM START 
DSSK TYPE JHO INV&DP 
DSSK TYPEJUO^NODRIVER 
DSSK TYPE QIOWNONGVER 
DS$KlTYPElSCRlPT_ECHO 
DSSK.TYPE SCRIPTJW 
DSSK TYPE SCRIPT PROMPT 
DSSKlTYPElSCRIPT SKIP 

dssk type sequence error 
dssk w type„start_err 
dssk type start list 
dsskItype^summaRy 
dssk type user prompt 

DSSKJMRNlNG " 

DSSM>BRTFLG 

DSSM_BADTIME 

DSSM_BATCH 

DSSM^BRKCLR 

DSSM^BRKPT 

DSSM CHARFLG 

DSSM_CMDFlG 

DSSM CTRLC 

DSSM.CTRLO 

DSSMJ)£VFLG 

DSSM DISABLCC 

DSSMJ)ONFLG 

DSSMJRRFLG 

DSSM^EXCEPT 

DSSMJXETST 

DSSM~HLTFLG 

DSSM_L0DFLG 

DSSMJ1EMMGT 

DSSM^OUTPUT 

DSSM..RUBFLG 

DSSM.SCRIPT 



=00000016 

=0000001 A 

=00000001 

=0000001 D 

=00000008 

=00000006 

=00000009 

=O0O00O0A 

=00000018 

=00000007 

=00000004 

=00000005 

=00000000 

=O0OO0OOC 

=0OOO00OB 

=-0000001 1 

=00000000 

=00000003 

«00000012 

=0000001 c 

=•00000010 

•00000017 

=000O00OF 

=00000024 

=00000022 

=00000023 

=00000021 

=0000001 E 

=00000020 

=0000001 F 

=00000019 

=00900018 
=00000025 
=00000008 
=00000002 
=00000000 
=00000040 
=00100000 
=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 

mm 

=00002000 
=0000001 
=0QQ80( 
=0004Q< 
=000001 
101 

■. % 

=00000020 
=00200000 




143 
143 

143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
I43 
143 
14^ 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
143 
138 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 
141 



(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



#-290 

#-341 



(1) 
(1) 



ZZ-ENSAA-7.0 

PRINT 

Cross reference 

DS$M SETIHR 

DSSMlSTRFLG 

DSSM.SUBT 

DS$M,SYSFLG 

DS*M T1MRON 

DS$R*B OUTPUT 

DS*V„ABRTFLG 

DSSV^BADTIME 

DS$V,BATCH 

OSSV.BRKCLR 

DSSV..BRKPT 

DS$V„CHARFLG 

DStV^CMDFLG 

DS$V,CTRLC 

DSSV.CTRLO 

DSSVJ)EVFLG 

d:sv 01SABLCC 

DS$VJ)ONFLG 

DSSV..ERRFLG 

DSSV.EXCEPT 

DSSVJXETST 

DS$V_HLTFL6 

DSSVJ.ODFLG 

DSSV^MEMMGT 

DSSV^OUTPUT 

DSSVJHJBFLG 

DS$V.SCRIPT 

DSSV^SETIMR 

DSSV.STRFLG 

DSSV.SUBT 

OSSV^SYSFLG 

DS$V T1MRON 

DS$J(RITH 

DS$J\SBE 

DS$J3ADLINK 

OSS^BADTYPE 

DS$_BIiC 

DS^CHME 

OSS CHMK 

DS$J)EVNAME 

DSSJRROR 

DS$_FHWE 

DSSJRAGBUF 

DSS ICBUSY 

DSSJCERR 

DSSJHWE 

DS$IILLCHAR 

DSSJLLPAGCNT 

DSSJLLUNIf 

DSlJNSFMEM 

DS$JPL2HI 

DSSJVADDR 

DSSJWECT 

DS$J<RNLSTK 

DSS^LOGIC 

DSS^MCHK 

DS$.MMOFF 



Cross reference 



*** PRINT Formatted print routinf/s 



I 5 
27-JUL-1984 



Fiche 11 



27-JUL-1984 15:40:22 
23-JUL-1984 16:23:48 



Frame 15 Seguence 2120 

VAX-11 Macro V03-01 Page 35 

DMA1:CSYS0.SYSMAINT:PRINT.MAR;75 (1) 



=02000000 
=00000004 
=00004000 
=00000400 
=00020000 

ooqooooo-xr 

=00000006 

=00000014 

=00000016 

=OO000O0C 

=00000008 

=00000008 

=00000007 

=00000000 

=00000010 

=00000009 

=00000018 

=O000OOOD 

=00000004 

=00000013 

=00000012 

=00000003 

=00000001 

=0000000F 

=00000017 

=00000005 

=00000015 

=00000019 

=00000002 

=000Q000E 

=0000000A 

=00000011 

=006600E>0 

=00660118 

=0Q66Q0FQ 

=006600E8 

=00660120 

=006600A8 

=006600E0 

=00660101 

=Q066000i 

=00661 

=00661 

=006600C8 

=Q0660QCQ 

=50660060 

=00660018 

=00660078 

=0066008! 
=00660041 

=006600^0 
=00660070 
=00660088 
=00660058 




141 
141 
141 
141 
141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

141 

138 

138 

138 
138 
138 
138 
138 
138 

13§ 
138 
138 
138 

13? 
138 

H8 
1 38 
138 
138 
138 
138 

138 

138 

138 
138 
138 



(1) 
(1) 
(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



368 
#-359 



(1) 
(1) 



#-694 



(1) 



ZZ-ENSAA-7.0 

PRINT 

Cross reference 

DSSJJEEDUNIT 

DSS NODE 

DSS NOPCS 

DSS NORMAL 

DSS„NOSUPPORT 

DSS_NOTDON 

DSSJJOTIMP 

DSS NULLSTR 

DSSJMRFLOW 

DSS_POWER 

DSSJ>ROGERR 

DSS_SEVERE 

DSSJRANSL 

DSSJRUNCATE 

DSS UNEXPINT 

DSSJ/ASFULL 

DSS WARNING 

DSAlGLFLAGS 



DSASGQ MSGPTR 

DSASMORPT 

DSASV.APT 

DSASVJ3INARY 

DSA$V..CRDj\UTOTEST..OFF 

DSASV CRD MENUTEST„OFF 

DSASVJE1 

DSASVJC2 

DSASVJF3 

DSASVJtS 

DSASV^NORPT 

DSA$\/ USER 

DSVSSETPAGE 

DSVSSHOWPAGE 

DSXSCVTREG 

DSXSPRINT 

DSXSPRINTB 

DSXSPRJ.NTF 

DSXSPRINTI 

DSXSPRINTS 

DSXSPR1NTX 

DSXSTYPEJ5UT 

FALSE 

IOSM_CTRLCAST 

IOSM TRMNOECHO 

IOSjEADVBLK 

IOS^SETMODE 

IOSlWRITEVBLK 

KB.CHECK 

LF 

LINE COUNT 

OFF 

ON 

PAGE.STRING 



Cross reference 



J 5 

27-JUL-1984 



Fiche 11 Frame J5 



*** PRINT Formatted print routines 27-JUL-1984 15:40:22 VAX-11 Macro V03-0T Page 



23-JUL-1984 16;23;48 



Seauence 2121 

ag< 
D«A1:CSYSO.SYSMAINT3PRINT,MAR;75 



36 
(1) 



=006600F8 
=00660128 
=00660110 
=00660001 
=00660081 
=00660030 
=006600B0 
=00660010 
=00660008 
=00660098 
=00660020 
=00660004 
=006600AO 
=00660028 
=006600D8 
=00660048 
=00660000 
0000FE00 



0000FE68 
=08000000 
=0000001 F 

=00000001 

=00000008 
=00000010 
=00000004 
=00000005 
=00000006 
=00000007 
=00000016 
=0000001 c 

oooooooo- 

00000027- 
00000482- 
000OQ28I 
00000; 

ooooo! 

000003' 
00000309- 
00000316' 
00000047- 
=00000000 

oooooooo- 

00000000- 



mm 



•R 

•R 
•R 
■R 
-R 
•R 
•R 
•R 
>R 
•R 

•XR 

•XR 

XR 

XR 

XR 




000-XR 
OA 
9-R 



? 



138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 
138 



?33 

284 

835 

574 

665 

676 

687 

653 

659 

339 
1//. 



8-R 



167 
159 
144 
144 
168 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
11) 



(1 
(1 
(1 
(1 
(1 



0-1014 
138 



138 

346 

398 

512 

671 

708 

714 

#-692 

0-678 

0-708 

0-346 

0-347 

0-671 

0-667 

0-661 

0-A55 
0~o7> 

0-437 



245 
596 
593 

590 

599 

741 



0-770 
0-497 
0-497 
0-770 
0-462 
0-5 

5 

168 
0-412 



477 



(1) 



0-1010 (1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1> 
<1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 

(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 



347 
399 
655 
678 
723 



0-723 
0-372 
0-373 



0-487 
290 



752 



0-503 
0-503 

0-477 



(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 



(1) 
(1) 



(1) 



(1) 
(1) 

(1) 



372 
437 
661 
679 
0-754 



0-398 
0-399 



(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 



373 
487 
667 
689 



(1) 
(1) 
(1) 
(1) 



0-512 



(1) 



0-484 (1) 



0-517 



(1) 



757 


(1) 










-449 


(1) 


#-525 


(1) 






484 


(1) 


517 


(1) 


522 


(1) 



iZ-ENSAA-7.0 

PRINT 

Cross reference 

PRINTJl 

QBUFF 

RABSL RBF 

RAB$W"RSZ 

RCTRLC 

RCVTREGX 

RESET INPUT 

SIZ..7 

SS$ NORMAL 

SYSlCANCEL 

SYSSFAO 

SYSSFAOL 

SYSSPUT 

SYStQIOW 

TRUE 
T PAGE 
TSHOW PAGE 
WIDTH TOOLARGE 



Cross reference 



*** PRINT Formatted print 



K 5 
27-JUL-1984 Fiche 11 
routines 27-JUL-1984 15:40:22 
23-JUL-1984 16:23:48 



Frame K5 Sequence 2122 
VAX-11 Macro V03-0T Pao. 
DMA1:CSYS0.SYSMAINT3PRINT.MAR;?5 



37 
(1) 



00000447-R 756 
00000000-R 154 

=00000028 
=00000022 

00000000-XR 

0000063D-R 1016 

0000044E-R 766 

=00000001 141 

=00000001 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

=00000001 144 

0000001 1-R 162 

00000034-R 164 

00000008-R 157 



(1) 
(1) 



(1) 
(1) 
(1) 



(1) 
(1) 

m 
(1) 



#-657 

#-684 

#-691 

716 

#-380 

#-379 

770 

#-1011 

#-390 

141 

#-704 

767 

739 

702 

381 

465 

503 

245 

290 

#-417 



#-663 

#-706 

699 



(1) 
(1) 
(1) 



#-669 
#-710 



(1) 
(1) 



#-673 
#-712 



(1) 
(1) 



477 
517 



(1) 
(1) 



484 
522 



(1) 
(1) 



497 
770 



(1) 
(1) 



#-443 (1) #-471 (1) #-478 (1) 



ZZ-ENSAA-7.0 

PRINT 

Cross reference 



Cross reference 



*** PRINT Formatted print routines 



L 5 
27-JUL-1984 



Fiche 11 Frame L5 



Sequence 2123 



MACRO 



SCANCEL S 

$CRD LITERALS 

$D1 PRINT_S 

SDEF 

SDEFINI 

SDS.CVTDEF 

$DSJ)SADEF 

$DS DSDEF 

$DS~TYPEDEF 

$EQ0 

SEQULS1 

SEQULST 

SGBLINI 

SPRINT 
SPUSHADR 

SPUSHTWO 

SPUT 
SQIOPUSH 

$QIOW_S 

SRABDEF 
SRMSCALL 
$SSDEF 
SVIELD 

5VIELD1 

br if^crd autotest^off 
br~if„crd~menutest_off 

BR'" IF NOT APT 
BR"IF"N0T"BATCH 
BR"IF~N0T„BINARY 
BRllF NOT IE1 

br ifjiotje2 
br;;ifjjotje3 
br ifjjotjcs 

BR" IF NOT NORPT 

BR"JF"NOruSER 

CASE 

CLIDEF 

DSFDEF 

SETJXJTPUT 



27-JUL-1984" 15:40:22 ' VAX-lT Macro V03-OT" Page 38 

23-JUL-1984 16:23:48 PMA1 :CSYS0.SYSMAINT3PRINT.MAR;75 <1> 



+_.—.— + 

! Macros Cross Reference ! 



SIZE 

1 
2 

1 
1 
1 
1 
5 
2 
4 
1 
1 
1 
2 

2 
1 



1 
1 

1 

6 
2 
21 



DEFINITION 



767 

144 
245 
144 
137 
140 
139 
138 
143 
144 
144 
138 



243 
477 

477 

381 
477 

473 

142 
381 
137 

144 
346 
347 
678 
359 
708 
671 
667 
661 
655 
679 
437 
583 
145 
141 
694 



REFERENCES 



767 
144 
245 

137 
140 
139 
138 
143 
138 
138 
138 
138 
144 
243 
477 
517 
477 
517 
381 
477 
517 
473 
513 
142 
381 
137 
141 
141 
346 
347 
678 
359 
708 
671 
667 
661 
655 
679 
437 
583 
145 
141 
694 



290 
139 



140 
140 
140 
140 

287 
484 
522 
484 
522 

484 
522 
480 
518 



372 
373 



723 



487 



(1) 
(1) 



(1) 
CD 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 

(1) 

(1) 
<1> 
(1) 



(1) 
(1) 



(1) 



(1) 



142 



143 
143 
143 
141 



497 
770 
497 
770 

497 
770 
493 
768 



398 
399 



512 



(1) 



(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 



(1) 
(1) 



144 
144 
144 
143 


(1) 
(1) 
CD 
CD 


503 


(1) 


503 


(1) 


503 


<1) 


499 


CD 



(1) 



ZZ-ENSAA-7,0 Cross reference 

PRINT 

VAX-11 Macro Run Statistics 



M 5 

27-JUL-1984 



Fiche 11 Frame M5 



Sequence 2124 



*** PRINT Formatted print routines """ 27-JUL-1984 15:40:22 VAX-11 Macro V03-0T Page 

23-JUL-1984 16:23:48 DMA1 :£SYS0.SYSMAINTJPRINT,MAR;?5 



39 
(1) 



Phase 





! Performance indicators 


Page faults 


CPU Time 


Elapsed Time 


34 


00:00:00.12 


00:00:00.28 


137 


00:00:00.84 


00:00:02.35 


1029 


00:00:16.19 


00:00:23.07 


21 


00:00:01.43 


00:00:01.58 


355 


00:00:03.56 


00:00:08.25 


44 


00:00.00.26 


00:00:00.27 


8 


00:00:00.03 


00:00:00.04 


154 


00:00:01.27 


00:00:01.84 


1786 


00:00:23.71 


00:00:37.69 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

90011 bytes (176 pages) of virtual memory were used buffer t Ke intsrmediate code. 

There were 50 pages of symbol table space allocated . hold 863 r.on-local and 84 local symbols. 

1019 source lines were read in Pass 1, producing object records in Pass 2. 

112 pages of virtual memory were used to define 39 macros. 

+ — ........... i 

I Macro library statistics ! 
+ , . — + 



Macro library name 

DRB1 :CDS.W0RK]DIAG.MLB;955 
DR01 :[DS.U0R»aD$.MLB;218 
DRB1:CDS.WORK3CRD.MLB;12 
SYS$SYSROOT:CSYSLIBDLIB MLB-1 
DMA1 :CSYS0.SYSMAJNT3DS.MLB;218 
DMA1:CSYS0.SYSMAINT]DIAG.MLB;953 
SYS$SYSR00T:CSYSLI8]LiB,MLB;1 
SYS$SYSR00T:CSYSLIBJSTARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 

V 

15 
1 
1 



14 
36 



1116 GETS were roquired to define 36 macros. 

There were no errors, warnings or information messages, 

MACRO/NOOBJECT/LIST=CDS. LI S]/CR0SS/ENABLE=(DE8UG, TRACE) PfUNT/UPDA=(PRINT. UPD, PRINT. ENM) +SYSSLIBRARY :L 1B/LIBRARY+DMA1 :[SYS0.SYSMAINT 



ZZ-ENSAA-7.0 


• 0001 


,• 0002 


; 0003 


; 0004 


; 0005 


; 0006 


; 0007 


; 0008 


; 0009 


; 00 1 


; 0011 


; 0012 


; 0013 


; 0014 


; 001 5 


; 0016 


; 0017 


; 0013 


; 0019 


; 0020 


; 0021 


; 0022 


; 0023 


; 0024 


; 0025 


; 0026 


; 0027 


; 0028 


; 0029 


; 0030 


; 0031 


; 0032 


; 0033 


; 0034 


; 0035 


; 0036 


; 0037 


; 0038 


; 0039 


; 0040 


; 0041 


; 0042 


; 0043 


; 0044 


; 0045 


; 0046 


; 0047 


; 0048 


; 0049 


; 0050 


; 005 1 


; 0052 


; 0053 1 


; 0054 1 


; 0055 1 


; 0056 1 


; 0057 1 



*** PROBE Check address accessibility 
*** PROBE Check address accessibility 



27-Jul-1984 Fiche 11 Frame b'j Sequence 2125 

27-;*jl-^4 16:07:08 VAX-11 Blisf-32 V4. 0-742 ^ mm Page 1 
26'Jul--^4 09:41 i19 DMA1 :[SYS0.'jYSMAINT;]PR0BE.332;35 (1) 



Xtitle '*** PROBE r.heck address accessibility 1 

module probe ( ! Routine to test accessibility of addresses 

ident = '01-Q5 1 

) = 

Copyright (c) 1979, 1981, 1983 n _ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01/54 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PcRSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERKS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT t CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED OY DEC. 

FACILITY: DIAGNOSTIC SUPERVISOR 
ABSTRACT? 

This routine tests the accessibility of an address. 



AUTHOR: 
MODIFIED BY: 



01 
02 



Roger Riggs, CREATION DATE: 10-November-1979 



- Dave Butenhof, 02-Jun-1981 , version 6.4 

Alter library spec, for flexibility (logical name) 



- Dave Butenhof, 23-Nov-1981 
Fix truncation error. 



verison 6.5 



03 
04 



05 



Bob Bergazzi May 17, 1983 Version 6,11 
Changed the order of searching libraries. 

Bob Bergazzi May 24, 1983 Version 6.12 
Removed the call to DSRSFAULT CLEAR from the Si...tCT statement 
in the ACCSHANDLER routine. TMs routine was being called 
twice, once at EXE..MCHK in EXCEPT and then here it the condition 
was machine check." 

Domenic Andella 7-Sep-83 Version 6.13 
Deleted External reference to DSRSFAULT.CLEAR routine 



begin 

TABLE OF CONTENTS: 



ZZ-ENSAA-7.0 

PROBE 

01-05 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 



*** PROBE Check address accessibility 
*+* PROBE Check address accessibility 



forward routine 
dsx$probe, 
accSnandler; 



INCLUDE FILES: 

library 'SDIAG 1 ; ! 

library 'SDS 1 ; ! 

library , SYS$LIBRARY :$TARLET.L32 I ; 

linkage 

quick = jsb; 

EXTERNAL REFERENCES: 



external 

ioSgq physical : vector [2, longJ 
aBdressingjnode (long.relative); 



PSECT DEFINITIONS: 



B 6 

27-Jul-1984 Fiche 11 Frame B6 Sequence 2126 

27-Jul~1984 16:07:08 VAX-11 Bliss-32 V4. 0-742 m Page 2 

26-Jul-1984 09:41:19 DMA1 :CSYSO*SYS«AINT3PR08E.832;35 (1) 



! Routine to test address 

I Exception handler routine for PROBE 



! Quad descriptor of 1/0 space 



psect . . ,, 

pi i t = data ( share, address ingjnode ( long_relative>); 

psec t 

code = sep ( read* write, share); 



ZZ-ENSAA-7,0 

PROBE 
01-05 



DSXSPPOBE 

*** PROBE Check address accessibility 

DSXSPROBE 



f 6 
27-JuM984 Fiche 11 Frame C6 Sequence 2127 
27-Jul-1984 16:07:08 VAX-11 Bliss-32 V4. 0-742 _ _ Page 3 
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0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 

2 



Xsbttl 'DSXSPROBE' 

global routine dsxSprobe (address, length, unit) - 

FUNCTIONAL DESCRIPTION: 

This routine checks that the address specified can be 
accessed using instructions that access data with the specified 
length. The Unit number reflects the device expected 
to respond to this address, (i.e. unibus adapter) 

FORMAL PRAMETERS: 

ADDRESS Address to be accessed 

LENGTH Length of reference, (1,2,4) 

UNIT Unit number of device responding to this address 

IMPLICIT INPUTS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: 

SIDE EFFECTS: 



! Storage for channel status 



! Set exception handler 



begin 

stacklocal 

ch_status : $ds_chs_dec I; 

local 
re, 
scratch; 

built in 

fp; 

.fp = accShandler; 

if .address<0, 30> gequ . io$gq_physical CO] 
then 

begin 

if not (re = $ds_channel (unit = .unit, tunc = chc$_clear)) then return .re; 

end; 

case .length from 1 to 4 of 
set 

m : 

scratch = . (.addressKO, 8>; 
121 : 



ZZ-ENSAA- 


7.0 


PROBE 




01-05 




; 0150 


2 


; 0151 


2 


; 0152 


2 


; 0153 


2 


; 0154 


2 


; 0155 


2 


; 0156 


2 


; 0157 


2 


; 0158 


2 


; 0159 


2 


; 0160 


2 


; 0161 


3 


; 0162 


3 


; 0163 


3 


0164 


3 


; 0165 


3 


; 0166 


3 


; 0167 


3 


; 0168 


3 


; 0169 


3 


; 0170 


2 


; 0171 


2 


; 01 72 


2 


; 0173 


1 
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62 



0016 



DSXSPROBE 

*** PROBE Check address accessibility 

DSXSPROBE 

scratch = . (.addressKO, 16>; 

[4] : 

scratch = . (.addressKO, 32>; 

[inrange, outrange] : 
return ds$_error; 
tes; 

if .address<0, 30> gequ . io$gq_physical CO] 
then 

begin 

Local 
re; 

it not (re = $ds_channel (unit = .unit, func = chc$_status, stsadr = ch.status)) then return .re; 

if .ch^status Cchs$v_errany] neq then return ds$,error; 

end; 

ss$_normal 
end? 

.TITLE PROBE *** PROBE Check address accessibility 
.JDENT \01-05\ 

.EXTRN IO$GQJ>HYSICAL, DSSCHANNEL 

.PSECT SEP, SHR,2 

DSXSPROBE, Save R2,R3 

9*DS$CHANNEL, R3 

IOSGQ PHYSICAL, R2 

#8, SP 

ACCSHANDLER, (FP) 

#0, #30, ADDRESS, IO$GQ.PHYSICAL 

1$ 

arxoooooooo 

-(SP) 

#6, -(SP) 

UNIT 

#5, DSSCHANNEL 

RC 9$ 

LENGTH, #1, #3 

3$-2$,- 

4S-2$,- 

7$-2$,- 

5$-2$ 

7S 

9ADDRESS, SCRATCH 

6$ 

3ADDRESS, SCRATCH 

6$ 

9ADDRESS, SCRATCH 









OOOC 


00000 




.ENTRY 




53 


OOOOOOOOG 


9F 


9E 


00002 




MOVAB 




52 


OOOOOOOOG 


EF 


9E 


00009 




MOVAB 




5E 




08 


C2 


00010 




SUBL2 




6D 


0000V 


CF 


9E 


00013 




MOVAB 


AC 


1E 




00 


ED 


00018 




CMPZV 








14 


1F 


0001E 




BLSSU 






00000000 


9F 


D4 


00020 




CLRL 








7E 


7C 


00026 




CLRQ 




7E 




06 


7D 


00028 




MOVQ 






OC 


AC 


DD 


0002B 




PUSHL 




63 




05 


FB 


0002E 




CALLS 




4E 




50 


E9 


00031 




BLBC 


03 


01 


08 


AC 


CF 


00034 


1$: 


CASEL 


003E 


0010 


OOOA 




00039 


2$: 


.WORD 








34 


11 


00041 




BRB 




50 


04 


BC 


9A 


00043 


3$: 


MOVZBL 








OA 


11 


00047 




BRB 




50 


04 


BC 


3C 


00049 4$: 


MOVZWL 








04 


11 


0004D 




BRB 




50 


04 


BC 


DO 


0004F 


5$: 


MOVL 



0095 



0133 
0135 

0139 



0143 



0156 
0147 

0150 

0153 



ZZ-ENSAA-7.0 

PROBE 

01-05 



DSXSPROBE 
*** PROBE 
DSXSPROBE 



Check address accessibility 



62 



04 AC 



1E 



7E 

63 
10 
OF 



00000000 
04 
OC 



50 00660002 
50 



00 ED 
24 IF 
9F D4 
7E D4 
AE 9F 

07 7D 
AC DD 
05 FB 
50 E9 
6E 93 

08 13 
8F DO 

04 

01 DO 
04 



E 6 
27-JuM984 

27-JuM984 
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00053 6$; 

00059 

0005B 

00061 

00063 

00066 

00069 

0006C 

0006F 

00072 

00075 

00077 7$: 

0007E 

0007F 8$: 

00082 9$: 



CMPZV 

BLSSU 

CLRL 

CLRL 

PUSHAB 

MOVQ 

PUSHL 

CALLS 

BLBC 

BITB 

BEQL 

MOVL 

RET 

MOVL 

RET 



#0, #30, ADDRESS, IO$GQ_PHYSICAL 
8$ 

a# A xoooooooo 

-(SP) 

CH STATUS 

#77 -CSP) 

UNIT 

#5, DSSCHANNEL 

RC 9$ 

CHlSTATUS, #15 

8$ 

#6684674, R0 

#1, RO 



5 
(2) 

0159 

0166 



0168 
0173 



Routine Size: 131 bytes. Routine Base: SEP + 0000 



0174 1 



ZZ-ENSAA- 


7.0 


PROBE 




01-05 




; 0175 


1 


; 0176 


1 


; 0177 


1 


; 0178 


1 


; 0179 


1 


0180 


1 


; 0181 


1 


; 0182 


1 


; 0183 


1 


; 01 84 


1 


; 0185 


1 


; 0186 


1 


; 0187 


1 


0188 


1 


; 0189 


1 


; 0190 


1 


; 0191 


1 


; 0192 


1 


; 0193 


1 


; 0194 


1 


; 0195 


1 


; 0196 


1 


; 0197 


1 


0198 


1 


; 0199 


1 


; 0200 


1 


; 0201 


1 


; 0202 


1 


; 0203 


1 


; 0204 


1 


; 0205 


2 


; 0206 


2 


02O7 


2 


; 0208 


2 


; 02O9 


2 


; 0210 


2 


; 0211 


2 


; 0212 


2 


; 0213 


2 


; 02 V. 


2 


; 0215 


3 


; 0216 


3 


; 0217 


4 


; 0218 


2 


; 0219 


2 


; 0220 


2 


; 0221 


2 


; 0222 


2 


; 0223 


2 


; 0224 


1 



ACCSHANDLER 

+** PROBE Check address accessibility 

ACCSHANDLER 

Xsbttl 'ACCSHANDLER 1 

global routine accShandler (signal, mechanism) = 

++ 
FUNCTIONAL DESCRIPTION: 

This condition handler routine can be used to field any exceptions 
that indicate memory is in accessable. 

It does an SYSSUNWIND to the level of the caller of the routine 
that generated the condition. The conditions trapped are 
DSSJ1CHK, SSS ACCVIO, and $SS_TRANSL. The value of the aborted 
routine will be one of these values. 
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FORMAL PARAMETERS: 

SIGNAL 
MECHANISM 

IMPLICIT INPUTS: 

IMPLICIT OUTPUTS: 

CONDITION CODES: 

SSS.RESJGNAL 
Otherwise 



begin 
map 



Address of standard signal array 
Address of mechanism array 

NONE 

NONE 



If condition not DSSJ1CHK, DSS.TRANSL, SSS.ACCVIQ 
The value is irrelevent. 



signal : ref block C, byte3, 
mechanism : ref block C, byte]; 

select .signal CchfSl_sig_nameJ of 
set 

tdsS mchk, ssS_accvio, dsS.transl] : 
Begin 

mechanism CchfSl^mch^savrOJ = .signal CchfSLsig.nameD; 
Sunwind () 
end; 

[otherwise] : 

ssS_resignal; 
tes 



end; 



50 



000C 00000 
04 AC DO 00002 



.EXTRN SYSSUNWIND 

.ENTRY ACCSHANDLER, Save R2,R3 
MOVL SIGNAL, R0 



; 0177 
; 0211 



ZZ-ENSAA-7.0 

PROBE 

01-05 



ACCSHANDLER 
*** probe Check 
ACCSHANDLER 



address accessibility 



00660088 
006600AO 



50 
52 
53 
OC 

8F 

8F 



50 
OC AO 

OOOOOOOOG 00 
51 
05 
50 



08 



0918 



0225 


1 




0226 


1 


end 


0227 


1 




0228 





eludom 



04 CO 

60 DO 

01 DO 
52 D1 
12 13 
52 D1 
09 13 

52 D1 
16 12 

53 D4 
AC DO 

52 DO 
7E 7C 

02 FB 
50 DO 

53 E9 
8F 3C 

04 



Routine Size: 69 bytes. Routine Base: SEP * 0083 
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00006 ADDL2 #4, RO 

00009 MOVL (RO), R2 

0000C MOVL #1, R3 

00OOF CMPL R2, #12 

00012 BEQL 1$ 

00014 CMPL R2, #6684808 

00018 BEQL 1$ 

0001 D CMPL R2, #6684832 

00024 BNEQ 2$ 

00026 1$; CLRL R3 

00028 MOVL MECHANISM. RO 

0002C MOVL R2, 12CR0) 

00030 CLRQ -(SP) 

00032 CALLS #2, SYSSUNWIND 

00039 MOVL RO, R1 

0003C 2$: BLBC R3, 3$ 

0003F MOVZWL #2328, RO 

00044 3$: RET 



0214 



0216 
0217 

0220 
0224 



Name 



SEP 



PSECT SUMMARY 
Bytes Attributes 

200 NOVEC, WRT, RD , EXE, SHR, LCL, REL, C0N,N0PK,AHGN(2) 



Library Statistics 



File 



DRB1 :CDS.WORK3DIAG.L32;265 
DRB1:CDS.W0RKJDS,L32;159 

SYS$SYSR00T:CSYSLIB]STARLET,L32;60 



Total 

784 

653 
9486 



Symbols — -™- 
Loaded Percent 



37 

7 



4 





Pages 
Mapped 

85 
42 

570 



Processing 
Time 



00 




COMMAND QUALIFIERS 



ZZ-ENSAA-7,0 

PROBE 

01-05 



ACCSHANDLER 
*** PROBE Check 
ACCSHANDLER 



address accessibility 



H 6 

27-Jul-1984 
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16:07:08 
09:41:19 
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BLISS/N00BJECT/LIST=CDS.LIS3/0PT1MJZE=(LEVEL:3,SPACE)/DEBUG/TRACE PROBE 



Size: 
Run Time: 
Elapsed Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
Memory Used: 61 



200 code + 

00:07,0 

00:23.5 

1965 

7120 

pages 



data bytes 



Compilation Complete 



ZZ-ENSAA-7.0 - UDA50 BOOT DRIVER 

PUBTDRIVR - UDA50 BOOT DRIVER 

Table of contents 



I 6 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:41:01 



Frame 16 
VAX-11 Macro 



Seguence 
V03-QT 



2133 
Page 



(2) 


45 


(3) 


96 


(A) 


232 



DECLARATIONS 

UDA50 Bootstrap device 

UDA50 Bootstrap driver 



initialization 
010 



ZZ-ENSAA-7,0 

PUBTDR1VR 

06-01 



-1 



UDA50 BOOT DRIVER 

- UDA50 BOOT DRIVER 



-1 



OOOO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



1 

■I 

4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 

.1 
.2 
.3 

.4 
• 5 
43 
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.TITLE PUBTDRIVR - UDA50 BOOT DRIVER 
.IDENT '06-01 * 
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VAX-11 Macro V03-0T Paae 1 
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COPYRIGHT (c) 1978, 1980, 1982 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
OK'LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



FACILITY: 



BOOTS 



ABSTRACT: f ... 

This module contains the bootstrap device driver for the 
UDA 50 disks. 

ENVIRONMENT: IPL 31, kernel mode, code must be PIC 

AUTHOR: Kerbey T, Altmann, CREATION DATE: 20-Nov-1981 

MODIFIED BY: 

[013 Dave Butenhof, 15-Apr-1982 

Modify to run under VDS. Partk, change $BOOTJ)RIVER macro 
to exclude fields not supported by VDS, and have I/O entry 
call init routine 3 each call (since diagnostics may be 
run, etc. between calls). 



ZZ-ENSAA-7.0 

PUBTDRIVR 

06-01 



DECLARATIONS 



- UDA50 BOOT DRIVER 
DECLARATIONS 
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0000 


45 




0000 


46 




0000 


.1 




0000 


.2 


t 


0000 


.3 




0000 


.4 




0000 


.5 




0000 


.6 




0000 


.7 




0000 


.8 




0000 


.9 


$EQU 


0000 


.10 


$EQU 


0000 


.11 


SEQU 


0000 


.12 


$EQU 


0000 


.13 


$EQU 


0000 


.14 


$EQU 


0000 


.15 


SEOU 


oooo 


.16 


$EQU 


oooo 


.17 


SEQU 


0000 


.18 


$EQU 


oooo 


.19 


SEQU 


oooo 


.20 


SEQU 


oooo 


.21 


SEQU 


oooo 


.22 


SEQU 


oooo 


.23 


SEQU 


oooo 


.24 


SEQU 


oooo 


.25 


SEQU 


oooo 


.26 


SEQU 


oooo 


.27 


SEQU 


oooo 


.28 


SEQU 


oooo 


.29 


SEQU 


oooo 


.30 


SEQU 


oooo 


.31 


SEQU 


oooo 


.32 


SEQU 


oooo 


.33 


SEQU 


oooo 


.34 


SEQU 


oooo 


.35 


SEQU 


oooo 


.36 


SEQU 


oooo 


.37 


SEQU 


oooo 


.38 


SEQU 


oooo 


.39 


SEQU 


oooo 


.40 


SEQU 


oooo 


.41 


SEQU 


oooo 


.42 


SEQU 


oooo 


.43 


SEQU 


oooo 


.44 


SEQU 


oooo 


.45 


SEQU 


oooo 


.46 


SEQU 


oooo 


.47 


SEQU 


oooo 


.48 


SEQU 


oooo 


.49 


SEQU 


oooo 


.50 


SEQU 


oooo 
oooo 


■IX 


SEQU 


.52 


SEQU 


oooo 


.53 


SEQU 


oooo 


.54 


SEQU 


oooo 


.55 


SEQU 



.SBTTL DECLARATIONS 
marcros 

.MACRO SPRDEF,$GBL 
SDEFINI PR,SGBL 



PRS JCSP 

PRSJSP 1 

PRS_SSP 2 

PRS USP 3 

PRSIISP 4 

PRS_POBR 

PRS.POLR 

PRS,P1 BR 

PRS.P1LR 

PRS.SBR 12 

PRS_SLR 13 

PRS.PCBB 

PRS.SCBB 

PRS. J PL 18 

PRS.ASTLVL 

PRS^SIRR 

PRS.SISR 

PR$J CCS 

PMJIICR 

PRSIICR 26 

PRS.TODR 

PRSJWCS 

PRS RXDB 

PRS TXCS 

PRS.TXDB 

PRS.ACCS 

PRSJVCCR 

PRSJ1APEN 

PRSlTBIA 

PRSlTBIS 

PRS PME 61 

PRSZSID 62 

PRS TBCHK 

PRSV_SID_SN 

PRSS..SIDJN 

PRSV.SIDlPL 

PRSS_S1DJ>L 

PR$V_SID_ECO 

PRSS^SIDJCO 

PRSZSID T\PE 

PRSS SID TYPE 

PR$JJDjYP780 

PR$:SID M TYP75Q 

PR$JID w fYP730 

PROIDITYP7VV 

PRS..SID TYPMAX 

PRSJJCSA 



8 
9 

10 
11 



16 
17 

19 
20 
21 

25 

21 
32 
33 
34 
35 
40 
41 
56 
57 
58 



63 



12 

12 

3 

15 

9 

24 

8 

1 



4 

44 
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DECLARATIONS 
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-1 



0000 .56 

0000 .57 

0000 .58 

0000 .59 

0000 .60 

0000 .61 

0000 .62 

0000 .63 

0000 .64 

0000 .65 

0000 .66 

0000 .67 

0000 .68 

0000 .69 

C000 .70 

0000 ,71 

0000 .72 

0000 .75 

0000 . 74 

0000 .75 

0000 .76 

0000 J7 

0000 .78 

0000 .79 

0000 .80 

0000 .81 

0000 .82 

0000 .83 

0000 .84 

0000 .85 

0000 .86 

0000 .87 

0000 .88 

0000 .89 

0000 .90 

0000 47 

0000 48 

0000 49 

0000 50 

0000 51 

0000 52 

0000 53 

0000 54 

0000 55 

0000 56 

0000 57 

0000 58 

0000 59 

0000 , 1 

0000 61 

0000 62 

0000 63 

0000 64 

0000 65 

00000000 0000 66 
00000002 0000 67 

00000001 0000 68 



$EQU 
$EQU 
$EQU 
SEQU 
$EQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 
SEQU 



PRS.WCSD 45 

PRS'SBIFS 48 

PRS^SBIS 49 

PRSlSBISC 50 

PRSZSBIMT 51 

PRSZSBIF.R 52 

PRS.SBITA 53 

PRS.SBIQC 54 

PRSICMIERR 23 

PRS..CSRS 28 

PRS CSRD 29 

PRS~CSTS 30 

PRSICSTD 31 

PRS TBDR 36 

PRSICADR 37 

PRS MCESR 38 

PRS_CAER 39 

PRS.UBRESET 55 

PRS_PAMACC 64 

PRS.PAMLOC 65 

PRS CSWP 66 

PRSlCRBT 67 

PRSJ1CTL1 68 

PRSJ1CTL2 69 

PRSJ1GEN 70 

PRSZMTBER 71 

PRS.MEAR 72 

PRS MDCR1 73 

PRS MEDR 74 

PRSJ1ECCR 75 

SDEFEND PR,SGBL,DEF 

.ENDM SPRDEF 



INCLUDE FILES: 



SBTDDEF 

SIODEF 

SMSCPDEF 

SPRDEF 

SPTEDEF 

SRPBDEF 

SSSDEF 

SUBADEF 

SUBIDEF 

SVADEF 



; EQUATED SYMBOLS: 



UDAIP = 
UDASA = 2 
GO = 1 



Boot device types 
I/O function codes 
MSCP definitions 
Processor registers 
Page table entries 
RPB offsets 
Status codes 
UBA definitions 
11/750 UBA definitions 
Virtual addresses 
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PUBTDR1VR 

06-01 



DECLARATIONS 



- UDA50 BOOT DRIVER 
DECLARATIONS 
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00008000 0000 69 

OO0OO00B 0000 70 

0000000E 0000 71 

000001 EE 0000 72 

0000 73 

0000 74 

0000 75 

0000 76 

0000 77 

0000 78 

0000 79 

0000 80 

0000 81 

00000000 .1 

0000 .2 

0000 82 

0000 83 

OOOi, 84 

0000 .1 

0000 .2 

0000 .3 

0000 .4 

0000 .5 

0000 .6 

0000 .7 

0000 .8 

0000 ,9 

0000 JO 



OWN 
S1 
S4 
UMR 



OWN STORAGE: 



= 1915 

= 11 
- 14 
= 494 



Last-1 UNI8US Mapping Register 



Boot driver table entry 



.Psect Bootdrivr.,2, 
$BOOT_DRIVER 



page 



Define psect allocation 



DEVTYPE = BTD$K UDA,- 
SIZE = UD DRVSI2,- 
ADDR = START,- 
ENTRY = UD DRIVER 
UNIT INN = UD INIT,- 
DRIVRNAME = DSRDRVNAME,- 
AUXDRNAME = PRTDRVNAME 



Device type <UDAf>0) 

Driver size 

Driver starting address 
Driver entry point 
Driwer unit init entry 
Driver disk name 
Driver port name 



START: 
DSKDRVNAME: 

.ASCIC 
PRTDRVNAME: 

.ASCIC 



/DUDRIVER.EXE/ 
/PUDRIVER.EXE/ 



; Disk class driver filename 
; Port driver filename 



22-ENSAA-7.0 

PUBTDR1VR 

06-01 



-1 



-6 



-8 



-1 



UDA50 Bootstrap device initi 

- UDA50 BOOT 
UDA50 Bootst 







0000 


96 






0000 


97 






0000 


98 ; 






0000 


99 ; 






0000 


100 ; 






0000 


101 ; 






0000 


102 ; 






0000 


104 ; 






0000 


105 ; 






0000 


106 ; 






0000 


107 ; 






0000 


108 ; 






0000 


109 ; 






0000 


110 


c 


)1FC 


cooo 


.1 . 






0002 


.2 






0002 


.3 






0002 


.4 


50 38 


DB 


0002 


.5 






0005 


.6 ; 






0005 


117 ; 






0005 


118 ; 






0005 


119 , 






0005 


-1 ; 






0005 


• 2 . 






0005 


.3 , 






0005 


.4 ( 






0005 


.5 , 






0005 


.6 , 






0005 


7 ( 






0005 


.8 4 






0005 


128 « 






0005 


129 , 






0005 


150 , 






0005 


.1 , 






0005 


132 , 






0005 


133 , 






0005 


134 






U005 


135 , 






0005 


136 






0005 


137 


0003DC00 8F 


DO 


0005 


138 


56 




OOOB 




52 0200'CF 


9E 


OOOC 


139 


52 77'AF 


CB 


C011 


140 


51 




0015 




51 56 


C9 


0016 


141 


02 A2 




0019 




02 A2 10* 


CO 


0018 


142 


52 15 09 


EF 


001F 


143 


52 




0023 








0024 


H4 


53 5C A940 


DO 


0024 


145 






0029 


146 


57 54 A940 


DO 


0029 


147 


OC 50 


E9 


002E 


148 


52 50 B942 


DO 


0031 


149 



N 6 

alization 27-JUL-1984 Fiche 11 Frame N6 Seguence 2138 

DRIVER 27-JUL-1984 15:41:01 VAX-11 Macro V03-07 Paae 5 

rap device initialization 10-MAR-1982 20:04:37 DMA1 :CSYSO.SYSMAINTJPUBTDRIVR.MAR; (3) 

.SBTTL UDA50 Bootstrap device initialization 
++ 
Inputs: 

R9 — > RPB 
Outputs: 

RO - status code 



.1 .Entry UDJNJT, A M<R2,R3,R4,R5,R6,R7,R8> 
.ENABLE LSB 



MFPR #PRS MAPEN, RO 
BLBS RO,10$ 

Set up the SYSTEMID for the local UDA, 

RPBSL I0VEC(R9),R1 



Get the mapping status 

If virtual, skip come set up 



MOVL RPBSL I0VEC(R9),R1 ; Point to iovec 

CLR8 B A <B00SG8 UMR DP-800SAL VECTORXR1) ; Set for Direct Data Path 

JNCL VMBSL FLACS(AP) "; Set a flag to load SCS code 

MOVL RPB$LlB00TR2(R9),- 

VMBSB SYSTEMID(AP) ; Low 32 bits is CSR of UDA 
MOVW RPBSLIB00TRKR9),- 

VMBSB SYSTEMID+4(AP) : Hi 16 bits is TR of UQA 
BBSS #47,VflB$B_SYSTEMID(AP),10$ ; Set bit 47 

Set up an interrupt vector. 

10$: MOVW #<127*4>,RPB$W_R0UBVEC(R9) ; Use the highest possible 

Set up a UNiBUS mapping reqister(s) to cover the ring and buffers. 
To make things easy, we will grab the I art, two register (494 & 495). 
These registers are necessary since the ring area will be accessed by 
the controller which is a UNIBUS device that does not do 



MOVL #<UMR99>, R6 

MOVAB W A 1NTTBL, R? 

BJCL3 B*BYTE_0FF, A2, R1 

BJSL3 R6, Rt, 2(R2) 



any mapping. 



Set up a constant 

Get the address of the ring 

Get the byte offset in page 

Set in the UNIBUS addr 



ADDL S a *<RIN(MNT:bl>,2(R2) : Make it the ring address 

tXTIV M$V_VPM,#VA$S_VPN.R2.R2 ; Get th* page frame 

ASSUME RPBSL ADPVIR EG RPBSL ADPPHY+4 

MOVL RPBCL ADPPHY(R9)[R0],R3 ; Get correct pointer to UBA reg 

ASSUME RPb$L"CSRVIR EO RPBSL. CSRPHY+4 

MOVL RPBSL CSRPHY(R9)[R0],R V ; Get correct address of device CSR 

BIBC R0,20$ ; If clr f then physical 

MOVL aRPB$L.SVASFT(R9)[R2],R2; Virtual, get physical 



ZZ-ENSAA-7*0 

PUBTDRIVR 
06-01 



-1 



-5 



UDA50 Bootstrap device initialization 

- U0A50 BOOT DRIVER 
UDA50 Bootstrap device initialization 



B 7 

27-JUL-1984 Fiche 11 Frame B7 Seguence 2139 

27-JUL-1984 15:41:01 VAX-11 Macro V03-0T Paae 6 
10-MAR-1982 20:0^:37 DMA1 :CSYS0.SYSMAINT3PU8T0RIVR.MAR; <3) 



FFE00000 8F 

52 

54 0FB8 C3 

52 CO'AF 

84 

52 

52 CO'AF 

64 



CA 

DE 
C9 

D6 
C9 



53 



58 02 

0200'CF 

50 OB 

67 



52 



54 
OE 



02 
D8 



51 



51 



51 



51 



52 

03E8 
02 

54 
51 
52 



1B 
C2 
A7 
4D 
50 
1B 
51 
41 
EC 



DO 
9E 
DO 
B4 



DB 
9E 
BO 
19 
EO 
DB 
D1 
1A 

11 



FFFFFEOO 



A7 
50 



83 

OE 



0250»CF 
EC AF 
51 56 
0210'CF 
021CCF 
55 51 
DA AF 
51 56 
0214'CF 



85 01 

85 64 A9 

85 09 

85 

65 

01F7 



BO 
F3 



9E 
CA 
C9 

9E 
DO 
CA 
C9 



DO 
9A 
9A 
7C 
7C 
30 
04 



0036 

003C 

003D 

0042 

0046 

0047 

0049 

004D 

004E 

004E 

004E 

004E 

004E 

0051 

C056 

0059 

005B 

0058 

005B 

0058 

005E 

0063 

0067 

0069 

006D 

0070 

0073 

0075 

0077 

0077 

0077 

00 7B 

0078 

007F 

0083 

0083 

0083 

0083 

0088 

008C 

008F 

0092 

0097 

009A 

009E 

00A1 

00A4 

00A4 

00A4 

00A4 

00A7 

00A8 

OOAE 

OOBO 

0082 

0085 

0086 



150 

151 
152 

153 
154 

155 
156 
157 
158 
159 

.1 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 

.1 

.2 
.3 
.4 

.5 

191 
192 
193 
194 
195 
196 
197 

198 
199 
200 

201 



BJCL * A C<PTE$M_PFN>,R2 



Now a physical PFN 



20$: 



MOVAL 
BISL3 

INCl 
BISL3 



UBASL MAP+<UMR*4XR3),R4; Get the last two UMR's 
B A VALlD,R2,(R4)+ ; Set as valid w/PFN 



R2 
B A VAL1D,R2,(R4) 



; Set next page just in case 
; Set as valid w/PFN 



Now go thru the ridiculously complicated startup sequence 
fugue in four parts. 



This is a 



MOVL #2,R8 

RETRY: MOVAB ITINTTBL, R3 

MOVL #S1, RO 

CLRW UDAIPCR7) 

Wait 100 microseconds. 

TIME: 



MFPR 
MOVA8 
LOOP: MOVW 
BLSS 
BBS 
MFPR 
CMPL 
BGTRU 
BR8 

BYTE J3FF : 



#PRS TODR, R2 

1000TR2K R2 

UDASA(R7),R4 

ERROR 

R0,R4,30$ 

#PR$ TODR, R1 

R1,R2 

ERROR 

LOOP 



.LONG A C< A X1FF> 

30$: MOVW <R3)*,UDASA(R7) 
AOBLEQ #S4,R0,TIME 



Make two tries at this 

Step flag 

Poke the controller's CSR 



Current time 

Set for 10 seconds later 

Check the status register 

Bit 15 set is the error indicator 

Done with this step? 

No, pick up time 

Are we past due time? 

Yep, error 

No, try again 



Mask for byte offset in page 

Send the controller the next step 
Set for next step 



Initialization complete. Write the pr ket address in the ring. 

; Get the address of response packet 
; Set byte offset in ring desc 



MOVAB 

BJCL 

BJSL3 



W A RSPPKT, R1 
BYTE OFF, R1 
R6, R1, W A RD 



MOVAB W A CMDPKT, R1 

MOVL R1,R5 

BICL BYTE OFF, R1 

BISL3 R6, R1,W A CD 



Now bring the device on-line 



MOVL 

MOVZBL 

M0VZ8L 

CLRQ 

CLRO 

BS6W 

RET 



#1,(R5)+ 

RPB$W UNIT(R9),(R5)+ 

0MSCP5K OP 0NLiN,(R5)+ 

(R5)+ ' 

(R5) 

10 



Get the address of command packet 
Save pointer 

Set byte offset 1n ring desc 



Set command ref number 
Put unit number in cmd packet field 
Set opcode to bring drive online 
Clear byte count, buff desc 
buff desc and LBN 
Send it out 



_ J 



ZZ-ENSAA-7.0 

PUBTDR1VR 
06-01 



UDA50 Bootstrap device initialization 

- UDA50 BOOT DRIVER 
UDA50 Bootstrap device 



50 



C 7 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:41:01 
initialization 10-MAR-1982 20:04:37 



Frame C7 Seguence 2140 

VAX-11 Macro V03-01 Paqe 7 
DMA1:CSYS0.SYSMAINT3PUBTDRIVR.MAR;(3) 



98 58 F5 


00B6 


202 


ERROR: 


SOBGTR 


R8. RETRY 


0054 8F 3C 


00B9 


203 




MOVZWL 


*SS$_CTRLERR,RO 


04 


OOBE 
OOBF 


204 
205 




RET 






OOBF 


206 




.DISABLE LSB 


OOOOOOCO 


OOBF 


207 




.=<.+1>&-2 


80000000 


OOCO 


208 


VALJO: 


.LONG 


A X80000000 




00C4 


.1 


Ds$Gb Uda50 Init:: 




00C4 


.2 


Init:" 






00 


00C4 
00C5 


.3 

209 




-Byte 







00C5 


210 


; RINGS 








00C5 


211 










00C5 


212 










C0C5 


.1 










00C5 


.2 


.Align 


Page 






0200 


,3 








8000 


0200 


213 


INTT8L: 


.WORD 


OWN 


00000000 


0202 


214 




.LONG 





0001 


0206 
0208 


215 
216 




.WORD 


GO 


0000 0000 


0203 


21? 




.WORD 


0,0 


0000 


02CC 


218 


CMDINT: 


.WORD 





0000 


020E 


219 


RSPINT: 


.WORD 







0210 


220 


RING: 






00000000 


0210 


221 


RD: 


.LONG 





00000000 


0214 


222 


fD: 


.LONG 







0218 


223 


• 






0030 


0218 


224 




.WORD 


48 


0001 


021A 


225 




.WORD 


1 


0001 


021 C 


226 


IMDPKT: 


.WORD 


1 


0000024C 


021E 


227 




.BLKW 


23 




024 C 


228 


* 






00000250 


024C 


229 




.BLKW 


2 




0250 


,1 


UDA Response: : 




00000280 


0250 


230 RSPPKT: 


.8LKW 


24 



Try once again 
Set failure status 



Sign bit set 
Global label 
convenient locaL labeL 
,. init flag 



Step 1 pattern 
Step 2 B 3 pattern 



; Reserved 

; Command status word 

; Response status word 

; UNIBUS address of response ring 

; UNIBUS address of command ring 

; Length of message 

; ID 

; Full envelope 



Global label for CONFIG 



ZZ-FNSAA-7.0 

PUBTDR1VR 

06-01 



U0A50 Bootstrap 



driver QIO 

- UDA50 BOOT DRIVER 

UDA50 Bootstrap driver 



QJO 



D 7 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:41:01 
10-MAR-1982 20:04:37 



Frame D7 Seguence 2141 
VAX-11 Macro V03-0T Paae 8 
DMA1:rSYS0.SYSMAJNTDPUBTDRIVR.MAR;(4) 



0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
C280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
00000010 0280 
00000014 0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0D FE40 CF E8 0280 



FD76 CF 00 

51 50 

FE32 CF 01 



FB 0285 
E9 028A 
90 028D 
0292 
0292 
0292 
0292 
0292 
0292 



232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

275 

.2 
.3 

.4 

.5 

,6 

.7 

.8 

.9 

.10 

275 

276 

277 

278 



.SBTTL UDA50 Bootstrap driver QIO 



+ + 
Inputs: 



R3 - base address of adapter's register space 

R5 - Ibn for current piece of transfer 

R6 - contains 

R7 - address of the device's CSR 

R8 - si2e of transfer in bytes 

R9 - address of the RP8 

R10 - starting address of transfer (byte offset in first 

page ORed with starting map register number) 

R11 - LBN at start of transfer 

FUNC(AP)- I/O operation (IO$J*EADLBLK or IOSJJRITELBLK only) 

SIZE(AP)- Size of transfer in bytes 

MODE(AP)- Address interpretation mode (0 = physical* 1 * virtual) 



Implicit inputs: 

RPB$W_UN1T 
Outputs: 

R0 - status code 



- RPB field containing boot device unit number 



SS$ NORMAL - successful transfer 
SS$ NOSUCHDEV - unsupported device 
SS$~CTRLERR - fatal controller error 



R3 - must be preserved 



FUNC 
MODE 



= 16 

= 20 



UD.DRIVER: 



UDA50 device driver. 



Start out by re-initing the UDA if it hasn't been inited yet, 
or if there was an error previously. 



BlbS W A Init, 10$ 

CallS #0, Ud Init 

BlbC R0, ErroM 

MovB #1, W A Init 



Branch if already set 
Call init code 
Exit if error 
Set init byte 



Translate the I/O function code into a device-dependent function 
code for this disk. 



ZZ-ENSAA-7.0 

PUBTDR1VR 

06-01 



-1 



UDA50 Bootstrap 



driver QIO 

- UDA50 BOOT DRIVER 

UDA50 Bootstrap driver 



8E AF 21 90 



-1 



-1 



20 10 AC 

04 

84 AF 22 

94 AF 55 

80 AF 58 

80 AF 5A 

54 02 A7 

2C 

8000 8F 

FF5D CF 

8000 8F 

FF52 CF 

54 67 

54 02 A7 

15 

54 02 A7 

OF 

FF3F CF 

F4 

82 AF 

04 



50 01 



D1 
12 
90 

DO 
DO 
DO 
BO 
12 
A8 

A8 

BO 
BO 
12 
BO 
12 
B5 
19 
85 
12 



3C 
05 



50 



FDE2 CF 
0054 8F 



94 
3C 
05 



000002E8 



0292 

0296 

0296 

029A 

029C 

02A0 

02A0 

02A4 

02A8 

02AC 

02B0 

02B2 

02B6 

02B9 

C2BD 

02C0 

02C3 

02C7 

02C9 

02CD 

02CF 

02D3 

02D5 

02D8 

02DA 

02DA 

02DA 

02DA 

02DA 

02DD 

02DE 

02DE 

02DE 

02DE 

02DE 

02DE 

02E2 

02E7 

02F.8 

02E8 

02E8 

02E8 



20$: 



10; 



.1 10$; 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 

291 

292 
293 
294 

J 30$: 

.2 

.3 
296 
297 
298 

• 1 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 

.1 
310 
311 
312 
313 
314 
315 



QIO 

MOVB 

CMPL 
BNEQ 
MOVB 

MOVL 
MOVL 
MOVL 
MOVW 
BNEQ 
81 SW 



E ? 

27-JUL-1984 Fiche 11 

27-JUL-1984 15:41:01 
10-MAR-1982 20:04:37 



Frame E7 Sequence 2142 

VAX-11 Macro V03-OT Paae 9 
DMA1:CSYS0.SYSMAINT3PUBTDRIVR.MAR;<4) 



#MSCP$K OP READ, - 

CMDPKT+flSCPSB OPCODE 

FUNC(AP),#IO$IWRITELBLK ; 

20$ 

#MSCP$K OP WRITE, - 

CMDPKT+flSCP$B OPCODE 

R5,CMDPKT+MSCP$L_LBN 

R8,CMDPKT+MSCP$L BYTE CNT 

R10,CMDPKT+MSCP$B BUFFER; 

UDASA(R7),R4 

ERR0R1 

#OWN, CD+2 



BISW #OWN, RD+2 

MOVW UDA1P(R7),R4 

MOVW UDASA(R7),R4 

BNEQ ERR0R1 

r-vW UdaSa(R7), R4 

BNeq Errorl 

TSTW RD+2 

BLSS 30$ 

TSTW RSPPKT+MSCP$W STATUS 

BNEQ ERR0R1 



Assume read 

Check for write function 

No, do read 

Set write function code 

Set the logical block number 

; Set the byte count 

Set the UN1BUS map register 

Controller offline? 

Yep, error out 

Set controller ownership 

Ditto 

Tell controller to read 

Any problems? 

Yes 

Any problems? 

Yes 

Any response back? 

No, spin until there is 

Any drive errors? 

Yes 



; Transfer is complete. Return with success status code. 



MOVZWL #SS$„NORMAL,R0 
RSB 



; SET COMPLETION CODE 
; AND RETURN 



; Error occured during transfer. Return and retry. 
ERR0R1 : 



ClrB WMnit 

MOVZWL #SS$ CTRLERR,RO 

RSB 



; Must re-init next time 
; Set failure status 
; Return to BOOTDRIVR 



UD_DRVSIZ=. -START 
.END 



ZZ-ENSAA-7.0 Symbol table 






PUBTDR1VR 


- UDA50 BOOT 


DRIVER 


Symbol table 






STABLE 


= 00000000 R 


D 03 


BTDSK UDA 


= 00000011 


D 


BYTE Off 


00000077 R 


D 02 


CO " 


00000214 R 


D 02 


CMDINT 


0000020C R 


D 02 


CHDPKT 


0000021 C R 


D 02 


DSSGBJJDA50JNIT 


0OO00OC4 RG 


D 02 


ERROR 


000000B6 R 


D 02 


ERROR! 


000002DE R 


D 02 


FUNC 


= 00000010 


D 


GO 


= 00000001 


D 


INIT 


000000C4 R 


D 02 


INTTBL 


00000200 R 


D 02 


10 


00O002AC R 


D 02 


10$ WRITELBLK 


= 00000020 


D 


LOOP 


00000063 R 


D 02 


MODE 


= 0000001 4 


D 


MSCPSB BUFFER 


= 00000010 


D 


MSCPSB^OPCODE 


= 00000008 


D 


MSCP$K OP ONLIN 


= 00000009 


D 


MSCP$K~OP~READ 


= 00000021 


D 


MSCP$K~0P~WR1TE 


= 00000022 


D 


mscp*l~byTe_cnt 


= oooooooc 


D 


MSCPSL'LBN 


= 0000001 c 


D 


MSCPSWSTATUS 


= OOOOOOOA 


D 


OWN 


= 00008000 


D 


PR$ MAPEN 


= 00000038 


D 


PR$~TODR 


= 0000001B 


D 


PTElM PFN 


= 001FFFFF 


D 


RD 


00000210 R 


D 02 


RETRY 


00000051 R 


D 02 


RING 


00000210 R 


D 02 


RPB$L ADPPHY 


= 0000005C 


D 


RPB$L>DPVIR 


- 00000060 


D 


RPBSL CSRPHY 


= 00000054 


D 


RPB$L*"CSRVIR 


= 00000058 


D 


RPB$L~SVASPT 


= 00000050 


D 


RPBSfcfUNIT 


= 00000064 


D 


RSPINT 


0000020E R 


02 


RSPPKT 


00000250 R 


D 02 


S1 


= OOOOOOOB 


D 


S4 


= OOOOOOOE 


D 


SSS^CTRLERR 


= 00000054 


D 


SS$ NORMAL 


= 00000001 


D 


START 
TIME 


OQQOOOQO R 
00000058 R 


D 02 

D 02 


UBA$L„MAP 


= 00000800 


D 


UDA IP 


= 00000000 


D 


UDASA 


= 00000002 


D 


UDA RESPONSE 


00000250 RG 


D 02 


UD DRIVER 


00QQQ28Q R 
= 000002E8 


D 02 


UDlDRVSIZ 


D 


UD INIT 


00000000 RG 


D 02 


UMR 


= 000001 e: 


D 


VA$S VPN 


- 00000015 


D 


VA$V \JPN , 


= 00000009 


D 


VALID 


OOOOOOCO R 


D 02 
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Frame f7 Sequence 2143 
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ZZ-ENSAA-7.0 
PUBTDRIVR 
Psect synopsis 



Psect synopsis 



- UDA50 BOOT DRIVER 



6 7 
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10-MAR-1982 20:04:37 



Frame G7 Seguence 2144 
VAX-11 Macro V03-01 Paae 11 
DMA1:CSYS0.SYSMAINTJPUBTDRIVR.MAR;(4) 



PSECT name 

ABS . 
IABSI 

BOOTDRIVRJ 
BOOTDRIVR 4 



! Psect synopsis ! 

Allocation PSECT No. Attributes 

00000000 ( 0.) 00 ( 0.) NOPIC USR 

00000000 < 0.) 01 ( 1.) NOPIC USR 

000002E8 ( 744.) 02 ( 2.) NOPIC USR 

00000018 ( 24.) 03 ( 3.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 

CON ABS LCL NOSHR EXE RD 

CON REL LCL NOSHR EXE RD 

CON REL LCL NOSHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

WRT NOVEC PAGE 

WRT NOVEC BYTE 



ZZ-ENSAA-7.0 
PUBTDR1VR 
Cross reference 



Cross reference 



- UDA50 BOOT DRIVER 



SYMBOL 



STABLF 
BTDtK UDA 
BYTE OFF 
CD 

CMDINT 
CMDPKT 

DSSGB UDA50 1NIT 

ERROR" 

ERROR1 

FUNC 

GO 

INIT 

INTTBL 

10 

10$ WRITELBLK 

LOOP 

MODE 

MSCP*B,B(JFFER 

MSCP$BJ3PC0DE 

MSCPtK„OPJ)NLIN 

MSCPSK^OP.READ 

MSCP$K_OP WRITE 

MSCPSL^BYTE^CNT 

MSCPSL LBN 

MSCP$W STATUS 

OWN 

PR$_MAPEN 

PR$ TODR 

PTElM PFN 

RD " 

RETRY 

RING 

RPB$LJ\DPPHY 

RPB$L ADPVIR 

RPBSL CSRPHY 

RPBSLlCSRVIR 

RPB$L_SVASPT 

RPB$W UNIT 

RSPINT 

RSPPKT 

S1 

S4 

SS$_CTRLERR 

SS$ NORMAL 

START 

TIME 

UBASL..MAP 

UDAIP 



H 7 

27-JUL-1984 Ffche 11 
27-JUL-1984 15:41:01 
10-MAR-1982 20:04:37 



Frame H7 
VAX-11 Macro 



Sequence 2145 
V03-01 



DMA1:CSYS0.SYSMAINTJPUBTDRIVR 



Pag 
R.M 



e 12 
AR;<4> 



VALUE 

=00000000-R 
=00000011 
00000077-R 
0000021 4-R 
0000020C-R 
0000021 C-R 

O0O0O0C4-R 
00000086-R 
000002DE-R 

=00000010 
=00000001 
O00O0OC4-R 
00000200-R 
000002AC-R 
=00000020 
00000063-R 
=00000014 
=00000010 
=00000008 
=00000009 
=00000021 
=00000022 
=0000000C 
=0000001 c 
=0OO0000A 
=00008000 
=00000038 
=00000018 
=001FFFFF 
00000210-R 
00000051 -R 

=00Q0005C 
=00000060 
=00000054 

mm 

=00000061 
0000020E-R 
00000250-R 

*0000000B 

"OOOOOOOO-R 
QQQ00Q5B-R 
=00000800 
=00000000 



+ + 

! Symbol Cross Reference ! 

+__...._ — ...... — ..___.+ 



DEFINITION 
84.1 (2) 



176 
222 
218 
226 

208.1 

202 

309 

269 

68 

208.2 

213 

288 

168 
270 



69 



221 

159.1 

220 



219 
230 
70 
71 



84.6 
166 



66 



(3) 
(3) 
(3) 
(3) 

(3) 
(3) 
</.) 

(4) 
(2) 
(3) 
(3) 
(4) 

(3) 
(4) 



(2) 



(3) 
(3) 
(3) 



(3) 

(3) 
(2) 
(2) 



(2) 
(3) 

(2) 



REFERENCES.., 










84.1 


(2) 




84,1 


<V 










#-140 


(3) 


#-185 


(3) 


#-185.4 


(3) 


#-185.5 


(3) 


#-290 


(4) 






185.2 


(3) 


#-280 


(4) 


#-284 


<4) #-285 (4) 


#-286 


(4) 


#-287 


(4) 






#-169 


(3) 


#-173 


(3) 






#-274.7 


(4) 


#-289 


(4) 


#-294 


(4) #-294.2 <4> 


#-298 


(4) 










#-281 
215 
#-274.5 


(4) 

(3) 
(4) 










#-274.8 


(4) 


#-309.1 


(4) 


139 


(3) 


#-142 


(3) 


159.1 


(3) 


#-199 


(3) 










#-281 


(4) 










#-174 


(3) 










#-287 


(4) 










#-280 


(4) 


#-284 


(4) 






#-196 
#-278.1 


(3) 










(4) 










#-283 


(4) 










*-l§6 


(4) 










#-285 


(4) 










#-297 


(4) 










213 


(3) 


#-290 


<4) 


#-291 


(4) 


#-110.5 


(3) 










#-166 


(3) 


#-171 


<3) 






#-150 


(3) 










#-185.1 


(3) 


#-291 


(4) 


#-294,3 


(4) 


#-202 


(3) 










#-142 


(3) 










144 


(3) 


#-145 


(3) 






144 


(3) 










146 


(3) 


#-14? 


(3) 






146 

#-149 


<i> 










(3) 










#-195 


(3) 










184 


(3) 


#-297 


<4> 






#-161 


(3) 










#-180 


<i> 












(3) 


#-310 


(4) 






#-5u3 


(4) 










313 


(4) 


84.1 


(2) 






#-180 


(3) 










151 


(3) 










#-162 


(3) 


#-292 


(4) 







ZZ-ENSAA-7.0 
PUBTDRIVR 
Cross reference 

UDASA 

UDA RESPONSE 
UD DRIVER 
UDJ)RVS1Z 
UD INiT 
UMR 

VA$S„VPN 
VA$V VPN 
VALlG 



Cross reference 



- UDA50 BOOT DRIVER 



I 7 

27-JUL-1984 Ft 
27-JUL-1984 1 
10-MAR-1982 



he 11 
:41:01 

20:04:37 



Frame 17 Seguence 2146 
VAX-11 Macro V03-0T^ Page 
DMA1 :CSyS0»SYSMAINT3PUBTDRIVR.ftAR; <4> 



13 



=00000002 67 (2) 

00000250-R 229.1 (3) 

00000280-R 272 (4) 

=000002E8 313 (4) 

00000000-R 110.1 (3) 

=000001EE 72 (2) 
=0000001 5 
=00000009 

OO000OCO-R 208 (3) 



#-168 
#•294.1 

84.1 

84.1 
274.6 

#-138 

#-143 

#-143 

#-152 



(3) 
(4) 

(2) 
(5) 
(4) 
(3) 
(3) 
(3) 
(3) 



#-179 



(3) 



#-288 



(4) 



#-293 (4) 



151 



#-154 



(3) 



(3) 



ZZ-ENSAA-7,0 
PUBTDRIVR 
Cross reference 



Cross reference 



- UDA50 BOOT DRIVER 



J 7 

27-JUL-1984 Fiche 11 
27-JUL-1984 15:41:01 
10-MAR-1982 20:04:37 



Frame J7 
VAX-11 Macro 



Seguence 2147 
V03-0T Pa< 



DMA1:CSYS0. SYSMAINT3PUBTDRIVR.fi 



14 
AR;(4) 



MACRO 



S12E 



$BOOT DRIVER 


1 


SBTDDEF 


1 


SDEFINI 


1 


SIODEF 


17 


SMSCPDEF 


18 


SPRDEF 


4 


SPTEDEF 


3 


SrtPBDEF 


5 


SSSDEF 


21 


SUBADEF 


6 


SUBIDEF 


2 


SVADEF 


1 


ASSUME 


1 



Phase 





[TJON 


! Macros 


Cross Reference ! 


DEF1NJ 


REFERENCES... 


82 


(2) 


82 


(2) 


50 


(2) 


50 


<2> 


50 


(2) 


50 


(2> 51 (2) 






55 


(2) 56 (2) 


51 


(2) 


51 


(2) 


52 


(2) 


52 


(2) 


46.4 


(2) 


53 


(2) 


54 


(2) 


54 


(2) 


55 


(2) 


55 


(2) 


56 


(2) 


56 


(2) 


57 


(2) 


57 


(2) 


58 


(2) 


58 


(2) 


59 


(2) 


59 


<y 


144 


(3) 


144 


(3) H6 (3) 




! Performance indicators ! 


Page faults 


CPL 


J Time 


Elapsed Time 


35 


00: 


00:00.10 


00:00:00.29 


147 


00: 


00:00.80 


00:00:01.92 


605 


00: 


00:17.05 


00:00:21.83 


3 


00: 


00:02.38 


00:00:02.64 


129 


00: 


00:03.47 


00:00:07.89 


9 


00:00:00.11 


00:00:00.13 


7 


00: 


00:00.03 


00:00:00.03 


23 


00: 


00:00.31 


00:00:00.70 


964 


00. 


00:24.25 


00:00:35.44 



52 

57 



(2) 
(2) 



53 
58 



(2) 
(2) 



54 
59 



(2) 
(2) 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

76858 bytes (151 pages) of virtual memory were used to buffer the intermediate 
There were 90 pages of symbol table space allocated to hold 1563 non-local and 
430 source Lines were read in Pass 1, producing object records in Pass 2. 
56 pages of virtual memory were used to define 18 macros. 

+.. ... .... ...- -, .—.. — -+ 

! Macro library statistics ! 
+.......... — ... .—.,.- — «-+ 

Macro library name Macros defined 

DMA1:[SYS0.SYSMAJNTJDS.MLB;218 1 

DMA1:CSYS0.SYSMAINT]DIA6.MLB;953 

SYS$SYSR00T:CSYSLI8]LIB.MLB;1 7 

SYS$SYSR00T;CSYSLIBJSTARLET.MLB;2 6 

TOTALS (all libraries) 14 

1577 GETS were required to define 14 macros. 



code. 
5 local 



symbols 



ZZ-ENSAA-7.0 Cross reference 

PUBTDRIVR 

VAX-11 Macro Run Statistics 



- UDA50 BOOT DRIVER 



27-JUL-1984 Fiche 11 Frame K7 Sequence 2148 

27-JUL-1984 15:41:01 VAX-11 Macro V03-OT Page 15 
10-MAR-1982 20:04:37 0MA1 :CSYS0,SYSMAINT3PUBTDRIVR.fiAR;<4> 



There were no errors, warnings or information messages. 

MACRO/N00BJECT/LIST=CDS.liS]/CROSS/ENABLE-(DEBUG, TRACE) PUBTDRIVR/UPDA= (PUBTDRIVR. UPD, PUBTDRI VR. ENH) +SYS$LIBRARY:IIB/LIBRARY+DMA1 :CS 



ZZ-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 C 

0054 



*** QA Check Routines 
*** UA Check Routines 



L 7 

27-Jul-1984 
27-JuL-1984 
26-Jul-1984 



16:07:41 
09:41:20 



Fiche 11 Frame 17 
VAX-11 Bliss-32 



Sequence 2149 
V4. 0-742 ... ._ Page 



DMA1:CSYS0.SYSMAINT]QACHECKS.832;67 



(1) 



XTITLE '*** QA Check Routines 1 
MODULE QACHECKS ( 

ADDRESSINGJiODE (EXTERNAL = L0NG_RELAT1VE) , 

IDENT = '6.5-03' 

) = 

COPYRIGHT (c) 1979, 1981, 1983 _„„, 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

+ + 
FACILITY: DIAGNOSTIC SUPERVISOR 

ABSTRACT: 

This module contains the check routines required to perform QA on diagnostic programs. 
AUTHOR: 

Jack Stansbury 
CREATION DATE: 



00 

MODIFIED: 

01 

.02 

03 



15-0ctober- 1 981, Version 6.5-00 

Put in code for all the support routines plus the following check routines: QASNormal^Start, 

QASMultiple.Pass, QA$Loop_On_Test, QA$Run_Backwards. 

14-December-1981, Jack Stansbury, Version 6.5-01 

Added remaining QA check routines. Separated the check routines (into QACHECKS. B32) and the 

support routines (QAMAIN.B32) because the QA.B32 module was getting too large! 

19-Jan-1983, jack Stansbury, Version 6.10 (?) 

Took c ( it the Error Phase One check because it doesn't work properly with 

issuing error messages from subroutines in the diagnostic program. 

Bob Bergazzi May 17, 1983 Version 6.11 
Changed the order of searching libraries. 



ZZ-ENSAA- 


7.0 


Table of Contents 


QACHECKS 




*** qa Check Routines 


6.5-05 




Table of Contents 


; 0055 





%SBTTL 'Table of Contents 1 


; 0056 


1 


BEGIN 


; 0057 


1 


i 


; 0058 


1 


! TABLE OF CONTENTS: 


; 0059 


1 


i 


; 0060 


1 




; 0061 


1 


FORWARD ROI'TINE 


: 0062 


1 


QAfcNorTial Start 


; 0063 


1 


QASMultipTe Pass 


; C064 


1 


QA$loop_0n_Test 


; 0065 


1 


QASLoop On Subtest 


; 0066 


1 


GASRun Backwards 



M 7 

27-Jul-1984 
27-JuL-1984 
26-Jul-1984 



Fiche 11 Frame M7 Sequence 2150 

16:07:41 VAX-11 BUss-32 v'«. 0-742 ^ ^ Page 2 

09:41:20 DMA1 :[$YS0.SYSMAIMT]GACHECKS.B32;67 (2) 



ADDRESSJNG.M0DE (L0NG.RELATIVE) , 

ADORESSJNGlMODE (L0NG,RELAT1VE) , 

ADDRESSJNG.MODE (LONG.RELATIVE) , 

AODRESSJNG.MODE (LONGJtfLATJVE) , 

ADDRESSINGIMOOE <LONG„RELATIVE); 



C01] 
C02D 



ZZ-ENSAA- 


7.0 


Libraries 


QACHECKS 




*** QA Check Routines 


6.5-03 




Libraries 


; 0067 


1 


XSBTTL ♦Libraries 1 


; 0068 


1 




; 0069 


1 


! LIBRARIES: 


; 0070 


1 




; 0071 


1 




; 0072 


1 


LIBRARY 


; 0073 


1 


•SDIAGV: 


; 0074 


1 




; 0075 


1 


LIBRARY 


; 0076 


1 


•SDS 1 ; 


; 0077 


1 




; 0078 


1 


HORARY 


; 0079 


1 


♦SYSSLIBRARY: 



N 7 
27-Jul-1984 

27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame N7 Sequence 2151 
16:07:41 VAX-11 8liss-32 V4. 0-742 m Page 3 
09:41:20 DHA1:CSYS0.SYSMAINT3QACHECKS.832;67 (3) 



i . 



[03D 
C03] 
C033 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0080 


1 


; 0081 


1 


; 0082 


1 


; 0083 


1 


; 0084 


1 


; 0085 


1 


; 0086 


1 


; 0087 


1 


; 0088 


1 



Included Macros and Literals 
*+* QA Check Routines 
Included Macros and Literals 

XSBTTL 'Included Macros and Literals' 

! 1NCLUDFD MACROS AND LITERALS 



$DS_QADEF; 
SDS DSADEF; 
DSGK; 
DS.QADErS; 



B 8 
27-JuM984 
27-JuM984 
26-JuM984 



16:07:41 
09:41:20 



Fiche 11 Frame B8 

VAX-11 Bliss-32 V4.0 



Sequence 
-742 



2152 



DMA1:CSYS0,$ySMAlNT3QACHECKS*B32;67 



Page 



4 
(A) 



Define 
Define 
Define 
Define 



the 
the 
the 
the 



branch codes. 

DSA flags. 

DSQA$K, constants for 

common QA definitions 



the routine 
like GA$K_. 



names. 



C1D 



ZZ-ENSAA- 


7.0 


QACHECKS 




6,5-03 




; 0089 


1 


; 0090 


1 


; 0091 


1 


; 0092 


1 


; 0093 


1 


; 0094 


1 


; 0095 


1 


; 0096 


1 


; 0097 


1 


0098 


1 


; 0099 


1 


; 0100 


1 



External Routines 
*** QA Check Routines 
External Routines 

XSBTTL 'External Routines' 

EXTERNAL ROUTINE REFERENCES: 



EXTERNAL ROUTINE 

QA$Find_User_Call./rame 
QA$Print_Forced_Errors 
QASAdd Forced Error 
QASAdd^QA^Error 

DSXSAbort; 



C 8 

27-Jul-1984 
?7-Jul-1984 
26-Jul-1984 



Fiche 11 Frame CB Sequence 2153 

16:07:41 VAX-11 Bliss-32 V4. 0-742 
09:41 ;20 0MA1 :CSYS0.SYSHAINT3QACHECKS.B32;67 



Page 



5 
(5) 



ADDAESSINGJ10DE (LONG.RELATIVE) , 

N0VALUE ADDRESSING MODE (LONGJtfLATl VE) , 

NOVALUE ADDRESSINCMODE (LONG.ftELATI VE) , 

NOVALUE ADDRESS1NG"M0DE (LONGJJELATIVE) , 



! Find the user's last frame. C01D 
i Print the Forced-Error table. C01J 
I Add a forced error. £01] 

! Add a QA error. C013 



ZZ-ENSAA-7.0 

QACHECKS 

6.5-03 



0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 



External Own Storage 
*** qa Check Routines 
External Own Storage 

XSBTTL •External Own Storage 1 

EXTERNAL OWN STORAGE 



D 8 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame D8 Sequence 2154 
16:07:41 VAX-11 BLiss-32 V4. 0-742 Page 6 

09:41:20 DMA1 :CSYS0.SYSMAINT]GACHECKS.B32;67 (6) 



EXTERNAL 



DS$GL_FSTTEST, 
DS$GL_LSTTEST, 
DS$GL_SUBTEST, 

DSSGL.CLIBASE, 

QA$W_TestLoops : WORD, 
QA$W SubtestLoops : WORD, 
QA$W~MultiplePass : WORD, 



i 



First test to execute 
Last test to execute 
The subtest to loop on 

Base of CLI data cable 



• These are defined in the QAFLAGS module. 

1 They contain the current settings of the 
i 



QA flags. 



! The following are defined in the QAMA1N.B32 module. 



QASAOB Routine State 

QA$AOBlCheck_State 

QA$AOB_Flags 

QA$W_Branch 
QA$W_Error Number 
QA$W Save Test 
QA$W Save Last 



BITVECT0R, 
BITVECTOR, 
BJTVECTOR, 

WORD, 
WORD, 

SIGNED WORD, 
SIGNED WORD; 



The saved starting test number 
The saved ending test number. 



L01D 



C02D 



CI] 
C13 

m 

C1] 

en 

CI] 

C1] 

C1] 
C1] 
C13 



ZZ-ENSAA- 


7.0 


QACHECKS 




6,5-03 




; 0129 


1 


; 0130 


1 


; 0131 


1 


; 0132 


1 


; 0133 


1 


; 01 34 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 0138 


1 


: 0139 


1 


; OHO 


1 


; 0141 


1 


; 0142 


1 


0143 


1 


; 0144 


1 


; 0145 


1 


; 0146 


1 


; 0147 


1 


; 0148 


1 



Psect Definitions 
*** QA Check Routines 
Psect Definitions 

XSBTTL 'Psect Definitions' 

PSECT DEFINITIONS: 



E 8 

27-Jul-1984 Fiche 11 Frame E8 Sequence 2155 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 ^ _ Page 7 

26-Jul-1984 09:41:20 DMA1 :CSYS0.SYSMAINTJQACHECKS.B32;67 (7) 



PSECT 



PSECT 



PSECT 



PSECT 



PLit = Data (NoExecute, Share, NoWrite, 

AddressingJIode (Long..Relative)); 

Code = Code (Execute, Share, NoWrite, 

AddressingJIode (longjtelative)); 



Own 



Work (NoExecute, NoShare, Write, 

Addressing_Mode (Longjtelative)); 



Global = Work (NoExecute, NoShare, Write, 

Address ing_Mode (Long_Relative)); 



ZZ-ENSAA- 


7,0 


QACHECKS 




6.5-03 




; 0149 


1 


; 0150 


1 


; 0151 


1 


; 0152 


1 


; 0153 


1 


; 0154 


1 


; 0155 


1 


; 0156 


1 


; 0157 


1 


; 0158 


1 


; 0159 


1 


; 0160 


1 


; 0161 


1 


0162 


1 


; 0163 


1 


; M 0164 


1 


; M 0165 


1 


; M 0166 


1 


; M 0167 


1 


; M 0168 


1 


; M 0169 


1 


; M 0170 


1 


; M 0171 


1 


; M 0172 


1 


; M 0173 


1 


0174 


1 


0175 


1 


; 0176 


1 


0177 


1 


; 0178 


1 


0179 


1 


; 0180 


1 


; 0181 


1 


; 0182 


1 


; 0183 


1 


01 84 


1 


; 0185 


1 


; M 0186 


1 


; M 0187 


1 


; M 0188 


1 


; M 0189 


1 


; M 0190 


1 


; M 0191 


1 


; M 0192 


1 


; 0193 


1 


; 0194 


1 



Local Macro Definitions 
*** QA Check Routines 
Local Macro Definitions 

KSBTTL 'Local Macro Definitions' 

LOCAL MACRO DEFINITIONS: 

MACRO 



F 8 
27-Jul-1984 Fiche 11 Frame F8 Sequence 2156 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4, 0-742 ,„ Page 8 

26-JUI-1984 09:41:20 DMA1 :CSYS0-SYSMAINTJQACHECKS.B32;67 (8) 



Usage: 



ASSERT ((.A GTR .8), 'A <= B # ); 



If the specified condition is not true, a call to the Logic_Error macro is made with the specified 
message string. ASSERT is turned on whenever the compilation is made with the /VARIANT:n qualifier, 
where n <> 0. 

ASSERT (Condition, Assert^String) = 
XIF XVARJANT 
XTHEN 

( 

IF (NOT (Condition)) THEN 

Logic Error (Assert_String) 



X; 



XELSE 
XfJ 



! No code put in. 



MACRO 



Usage: 



Logic^Error ('String to be printed out 1 ); 



This macro is used whenever a logic error is detected. It is called from ASSERT whenever the assertion 
is false. This can be called anywhere else where an error is known to exist and and expression does not 
have to be evaluated to determine whether or not an error exists. 



Logic Error (Error.String) - 
( 
BIND 

ES ~ SASCJC C!/**QA Internal Error: \ Error_Stnng, '!/•); 



m 



X; 



$DSJ>RINTF (ES); 

) 



ZZ-ENSAA- 


7.0 


QACMECKS 




6.5-03 




; 0195 


1 


; 0196 


1 


0197 


1 


; 0198 


1 


; 0199 


1 


; 0200 


1 


; 0201 


1 


; M 0202 


1 


; M 0203 


1 


; M 0204 


1 


; M 0205 


1 


; M 0206 


1 


; M 0207 


1 


; M 0208 


1 


: M 0209 


1 


; M 0210 


1 


; M 0211 


1 


; 0212 


1 


; 0213 


1 


; 0214 


1 


; 0215 


1 


; 0216 


1 


; 0217 


1 


; 0218 


1 


; 0219 


1 


; M 0220 


1 


; 0221 


1 



Local Macro Definitions 
*** QA Check Routines 
Local Macro Definitions 



27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame G8 Sequence 2157 
16:07:41 VAX-11 Bliss-32 V4. 0-742 Page 9 

09:41:20 DMA1:[SYS0,SYSMAINT3QACHECKS.B32;67 (9) 



MACRO 



Thii macro is used 
name of a routine, 
where n <> 0. 



only in the debugging stages. It's only parameter is a string aiving, e.g.* the 
DEBUG is turned on whenever the compilation is made with the /VARIANT:n qualifier. 



DEBUG (Debug Strinq) = 
*IF IVARIANT 
XTHEN 

( 



AOB.Flags [QA$K QA.Debug]) THEN 
$DS_PRINTF (SASClC <'i/\ Debug.Stri 



X; 



XELSE 
XFI 



IF (.QASAOB 

) 

! No code put in. 



ng, 'J/ 1 )) 



MACRO 



Define a macro that takes an expression as an argument. The value of th**j macro is either- 
one or zero. Alt bits but the least significant one are cleared. 

Boolean (Expression) = 

((Expression) AND 1) X; 



u* 


-ENSAA-7,0 


QAi 


;hfcks 




6.: 






0222 


1 




0223 


1 




0224 


1 




0225 


1 




0226 


1 




022? 


1 




0228 


1 



Module-Global Static Storage 
*** QA Check Routines 
Module-Global Static Storage 

XSBTTL 'Module-Global Static Storage 1 



MODULE-GLOBAL DECLARATIONS: 



H 8 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame HJ 



lequence 2158 



16:07:41 " VAX-11 B[iss-32 V4.Q~74 L 

09:41:20 DMA1:CSYS0.SYSMA1NT3QACHEC<S.B32;67 



Page 10 
(10) 



MODNAM CQACHECKS 1 ); 



Define module name 



en 



I 8 

ZZ-ENSAA-7.0 ASCIC Bindings 27-Jul-1984 Fiche 11 Frame 18 Sequence 2159 

QACHECKS V*; q A heck 9 Routines 27-JuL-19§4 16:07:41 VAX-11 BlJss-32 V4. 0-742 Page, 1 

6?5-03 ASCIC Bindings 26-Jul-1984 09:41:20 0MA1:CSYS0.SYSHAINT3OACHECKS.B32;67 (11) 

0229 1 XSBTTL 'ASCIC Bindings 1 

0230 1 

0231 1 ! + 

0232 1 ! These are the error messages output by the check routines when they find a QA error. 

0233 1 !- 

0235 1 GLOBAL BIND C01J 

0236 1 QA$T_Operator Request Message = ! t LOT J 

0237 1 SASCIt ( , i/**0A ERR0P** Program requested operator intervention.!/'); 



[013 



0238 1 

0239 1 BIND 

0240 1 CLeanup.Error Message * , , ,, t% 

0241 1 SASCIC ( , !/**QA ERROR** Error reported in cleanup code!/'), 

0242 1 

0243 1 Error Reported Message = 

0244 1 (ASCIC ( , !/**0A ERROR** Error reported!/ 1 ), 

0245 1 

0246 1 l + 

0247 1 : One of these messages in printed AFTER one of the above three is printed. C02] 

0248 1 !- 

0249 1 

0250 1 NormaLStart Message - __._ 

0251 1 SASClC C**QA ERROR** Normal start check failed!/ 1 ), ! C023 

0252 1 

0253 1 Multiple Pass Message = , ti iiiiv t ____ 

0254 1 JASCIC ( , **QA ERROR** Multiple pass check failed!/ 1 ), ! [023 

0255 1 

0256 1 Infinite Test Message - , ., iiJi4 , _..., 

0257 1 lASClC ( , **QA ERROR** Infinite loop-on-test check failed!/'), ! [023 

0258 1 , 

0259 1 infinite Subtest Message * t [013 

0260 1 JASCIC ( t **QA ERROR** Infinite loop-on-subtest check failed!/'), ! [023 

0261 1 

0262 1 Run Backwards Message = , ,.,,...,.„ * M * 

0263 1 SASCIC ( l **QA ERROR** Run individual tests in reverse order check failed!/*); ! C023 



ZZ-ENSAA- 


7,0 


QACHECKS 




6,5-03 




; 0264 


1 


; 0265 


1 


; 0266 


1 


; 0267 


1 


; 0268 


1 


; 0269 


1 


; 0270 


1 


; 0271 


1 


; 0272 


1 


; 0273 


1 


; 0274 


1 


; 0275 


1 


; 0276 


1 


; 0277 


1 



ASCIC Bindings 

*** QA Check Routines 

ASCIC Bindings 



J 8 
27-Jul-1984 Fiche 11 Frame J8 Sequence 2160 
27-JuM984 16:07:41 VAX-11 BMss-32 V4. 0-742,. n ^ Page 12 
26-JUL-1984 09:41:20 DMA1 :CSYS0.SYSMA1NT3QACHECKS.B32;67 (12) 



These are the header lines that each check routine will print in its own initialization code section. 
The first three are defined globally because QASDu/np uses them. 

GLOBAL BIND 

QA$T,Header 1 = _ ,-w , ,.v 

SAStJC ( , !*i/!/!25** QUALITY ASSURANCE !26**!/'), 

QA$T_Header 2 = , 

SAStJC C!10* !38<PR0GRAM: !AC!> REV: !UL.!UL!/'>, 

QA$T Header 3 = 

" SASriC (M23* IZOi/I/'); 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0278 


1 


; 0279 


1 


; 0280 


1 


; 0281 


1 


; 0282 


1 


; 0283 


1 


; 0284 


1 


; 0285 


1 


; 0286 


1 


; 0287 


1 


; 0288 


1 


; 0289 


1 


; 0290 


1 


; 0291 


1 


; 0292 


1 


; 0293 


1 



K 8 
ASCIC Bindings 27-Jul-1984 m Fiche 11 Frame K8 t ^ Sequence 2161 

*** QA Check Routines 27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 Pa 9 e /-l? 

ASCIC Bindings 26-Jul-1984 09:41:20 DMA1 :CSYS0.SYSMAINT]QACH£CKS.B32;67 (13) 



BIND 



Header NS = 

" SASCIC (M28* Normal Start!/!/'), 

Header J1P = 

SASCIC C'!28* Multiple Pass!/!/'),, 

Header LT = 

SASCIC C!24* Infinite Loop-On-Test !/!/') , 

Header LS = ' C01J 

" SASCIC <*!22* Infinite Loop-On-Subtest!/!/*), ! C013 

" SASCIC C!25* Run Tests Backwards!/!/ 1 ); ! C023 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0294 


1 


; 0295 


1 


; 0296 


1 


; 0297 


1 


; 0298 


1 


; 0299 


1 


; 0300 


1 


; 0301 


1 


; 0302 


1 


; 0303 


1 


; 0304 


1 


; 0305 


1 


; 0306 


1 


; 0307 


1 


; 0308 


1 


; 0309 


1 


; 0310 


1 


; 0311 


1 


; 0312 


1 


; 0313 


1 


; 0314 


1 


; 0315 


1 


; 0316 


1 


; 0317 


1 


; 0318 


1 


; 0319 


1 


; 0320 


1 


; 0321 


1 


; 0322 


1 


; 0323 


1 


; 0324 


1 


; 0325 


1 


; 0326 


1 


; 0327 


1 


; 0328 


1 


0329 


1 


; 0330 


1 



L 8 

27-Jul-1984 Fiche 11 Frame L8 Sequence 2162 

27-JuM984 16:07:41 VAX-11 Bliss-32 V4. 0-742 m Page 14 

26-Jul-1984 09:41:20 DMA1 :CSYS0.SYSMAINTJQACHECKS.B32;67 (14) 



QASNormal Start 

*** QA Check Routines 

QA$Normal_Start 

XSBTTL 'QASNormaLStart' 

GLOBAL ROUTINE QA$Normal_Start (Hook^Point) = 

FUNCTIONAL DESCRIPTION: 

This routine performs the Normal Start QA check. 
CALLER: 

QASMain 
FORMAL PARAMETERS: 

Hook Point : The point in the Supervisor from which this routine was called. This is a constant value. 
The constants are defined in the DSQA macro. 



IMPLICIT INPUTS: 



DSA$GL„FLAGS longword. 
QA$AOB_Check_State bitvector. 



IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 



- QA error detected; unsuccessful return 

1 - No QA errors; successful return 



SIDE EFFECTS: 
NONE 



ZZ-ENSAA- 


7,0 


QACHECKS 




6.5-03 




; 0331 


2 


; 0332 


2 


; 0333 


2 


; 0334 


2 


; 0335 


3 


; 0336 


3 


; 0337 


3 


; 0338 


3 


; 0339 


3 


; 0340 


3 


; 0341 


3 


; 0342 


4 


; 0343 


2 


; 0344 


2 


; 0345 


2 


; 0346 


3 


; 0347 


3 


; 0348 


4 


; 0349 


3 


; 0350 


3 


; 0351 




; 0352 


3 


; 0353 


3 


; 0354 


3 


; 0355 


3 


; 0356 


3 


; 0357 


3 


; 0358 


3 


; 0359 


2 


; 0360 


2 


; 0361 


2 


; 0362 


3 


; 0363 


3 


; 0364 


3 


; C365 


3 


; 0366 


3 


; 0367 


4 


; 0368 


4 


; 0369 


2 



QASNormal.Start 

*** QA Check Routines 

QASNormaLStart 



M 8 

27-Jul-1984 
27-Jul-1984 
26-JUI-1984 



Fiche 11 Frame M8 



. . . . . Sequence 2163 

16:07:41 VAX-11 Blfss-32 V4. 0-742 

09:41:20 0MA1 :CSYS0.SYSMAINT]QACHECKS.B32;67 



Page 1 5 
(15) 



BEGIN 



SELECTONE .Hook.Point OF 
SET 
[DSQASK Start.VRReStart] : 

BEGIN 

$DS PPINTF (QA$T Header J); 

$DS"PRINTF (QA$T_Header.,2, ,L$A,.NAME, .LSL.REV, .L$L_UPDATE); 

$DS~PRINTF (QAST Header.?, 0); ! is for the current time 

$DS~PRINTF (Header NS); 



QASAOB Routine_State [QA$V_Init_DoneJ = 

RETURN (QA$K,Success) 

END; 



True; ! Done init'ing 



CDSQASK Error Error.End]: 
"BEGIN" 
IF (.QAIAOB Routine.State CQASV.Domg^CleanupD) THEN 

$DS PRINTF (Cleanup_ErrorJiessage) 
ELSE 

SDS^PRINTF (Er ror.PeportedJIessage) ; 

$DS_PRINTF (Normal_5tartJtessage); ! 

QA$Add QA Error (QA$K NormaL^Start); 
QA$AOB~Routine State TQASV Error.Found] = True; 
! + 
! Return unsucessfully. 

END; 



[02] 



CDSQA$K Dispat.DSXSEndPass _Mid] : 
"BEGIN 
DSA$V TRACE 

QA$AOB_Check State CQAIKJIormaL Start] 
QA$AOB.Check_State CQA$K Multiple Pass] 
QASAOB Routine State [QA5V Check.DoneJ 
RETURN (QA$K_Success) 

END; 



Off; 
Off; 
On; 
True; 



Turn TRACE bit off. 
Stop Normal Start check. 
Start Multiple Pass check. 
Indicate end of this check. 



C013 

con 

[01] 
[01] 



ZZ-ENSAA- 


7,0 


QACHECKS 




6.5-03 




; 0370 


2 


; 0371 


2 


; 0372 


2 


; 0373 


2 


; 0374 


? 


; 037! 


2 


; 037( 


2 


; 037? 


2 


; 0378 


2 


; 0379 


2 


; 0380 


2 


; 0381 


2 


; 0382 


2 


; 0383 


2 


0384 


2 


; 0385 


2 


; 0386 


2 


; 0387 


2 


; 0388 


3 


; 0389 


4 


; 0390 


2 


; 0391 


2 


; 0392 


2 


; 0393 


3 


; 0394 


4 


0395 


2 


; 0396 


? 


; 0397 


2 


; 0398 


2 


; 0399 


2 


; 0400 


2 


; 0401 


2 


; 0402 


2 


; 0403 


3 



0404 1 



2A 2A 
73 65 



QASNormal Start 

*** QA Check Routines 

QASNormalStart 



N 8 
27-Jul-1984 Fiche 11 Frame N8 Sequence 2164 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 _ ,, Page, 16 

26-Jul-1984 09:41:20 0MA1 :[SYS0.SYSMAINT]QACHECKS.B32;67 (16) 



END; 



52 4F 52 
75 71 65 



6E 6F 69 74 6E 



2A 2A 
64 65 



2A 2A 

64 65 

4E 20 

65 68 



5c 4F 52 
74 72 6F 



52 4F 52 

74 72 6F 

2A 2A 52 

63 20 74 



The following are not used in this check. So, just return Success for them. 



[DSQASKJ>ispat..Before Imt, 
DSQASK J)i spat J\f termini t, 
D5QA$K^Dispat_CallTest, 
DSQASK Dispat,DSXSEndPass_Bgn, 
DSQASO>ispat,.DSXSEndPass..End, 
DSQASK^Di spat. Done. Tests, 



DSQASK,Error_Error..Bgn, 

DSQASK J_oop_DSXSBgnSub, 
DSQASK Loop DSXSEndSub, 
DSQASKlLooplDSXSCkLoop, 

DSQASK QA DSXSBranchJ: 
BEGIN 

RETURN (QASK.Success) 
END; 

[OTHERWISE]: 
BEGIN 



C01] 
.01] 

con 

C01] 



Logic.Error ('Normal Start, Illegal Hook^Point 1 ) 



TES; 



EN 



I) 



S3 

52 45 

72 20 

74 61 
65 76 

52 45 

70 65 

75 6E 

52 45 

70 65 

4F 52 

72 61 



Come to here only if a QA error was found. Return CiaSK v Failure to QASMain, which then takes 
appropriate action. 

RETURN (QA$K_Failure) 



.TITLE QACHECKS *** QA Check Poutines 

.IDENT \6.5-03\ 

.PSECT DATA,N0WRT,N0CXE, SHR,2 

.ASCII '8>\QACHECKS\ 

.ASCII \9i/**GA bRROR** Program requested operat\ 

♦ ASCII "\or intervention. !/\ 

.ASCII \/!/**QA ERROR** Error reported in claanu\ 



48 
20 
6D 
72 
72 

20 
72 
61 
2f 
20 
72 



43 
41 
M 



41 
20 
65 
21 
41 
20 



52 45 
74 73 



45 48 

51 2A 

72 67 

70 fcr 

74 6E 

51 2A 

72 6F 

6C 63 

65 64 

51 2A 

72 6F 

20 41 

20 6C 



43 41 

2A 2F 

6F 72 

20 64 

69 20 
2F 

2A 2F 

72 72 

20 6E 

6F 63 

2A 2F 

72 72 

51 2A 

61 6D 



51 08 

21 39 

50 20 

65 74 

72 6F 

21 2E 

21 2F 

45 20 

69 20 

20 70 

21 1F 
45 20 
2F 21 
2A 28 
72 6F 



00000 P. AAA: 

00009 P.AAB: 

00018 

00027 

00031 

00040 

00043 P.AAC: 

00052 

00061 

0006B 

00073 P.AAD: 

09082 

P009* 

C0<)93 P.AAE: 

000A2 



.ASCII \d rode!A 

.ASCII <51>\!/**QA ERROR** Error reported! A 



.ASCII \(**QA ERROR** Normal start check failed!\ 



22-1 


ENSAA-7. 





QA$Normal_Start 
















QACKECKS 




*** 


QA 


Check Routines 












6,5 


-03 






QA$Normal_Start 


























21 


64 


65 


6C 


69 


61 


66 


20 


68 


63 

2f 


AD 


20 


2A 


2A 


52 


4F 


S2 


52 


45 


20 


41 


51 


2A 


2A 


29 


68 


63 


20 


73 


73 


61 


70 


20 


65 


6C 


70 


69 


74 


6C 


75 












64 


65 


6C 


69 


61 


66 


20 


6B 


63 
2F 
2A 


65 
21 
31 


49 


20 


2A 


2A 


52 


4F 


52 


52 


45 


20 


41 


51 


2 £ 


6E 


6F 


2D 


70 


6F 


6F 


6C 


20 


65 


74 


69 


6E 


69 


66 


6E 












63 


65 


68 


63 


20 


74 


73 


65 


74 


2D 












2F 


21 


64 


65 


6C 


69 


61 


66 


20 


68 


49 


20 


2A 


2A 


52 


4F 


52 


52 


45 


20 


41 


51 


2A 


2A 


34 


6E 


6F 


2D 


70 


6F 


6F 


6C 


20 


65 


74 


69 


6E 


69 


66 


6E 












63 


20 


74 


73 


65 


74 


62 


75 


73 


2D 






2F 


21 


64 


65 


6C 


69 


61 


66 


20 


68 


63 


65 


68 


52 


20 


2A 


2A 


52 


4F 


52 


52 


45 


2C 


41 


51 


2A 


2A 


41 


74 


20 


6C 


61 


75 


64 


69 


76 


69 


64 


6E 


69 


20 


6E 


75 












65 


72 


20 


6E 


69 


20 


73 


74 


73 


65 


65 


68 


63 


20 


72 


65 


64 


72 


6F 


20 


65 


73 


72 


65 


76 










2* 


21 


64 


65 


6C 


69 


61 


66 


20 


68 


63 


55 


51 


20 


2A 


2A 


35 


32 


21 


2F 


21 


2^ 


21 


5E 


21 


25 


45 


43 


4E 


41 


52 


55 


53 


53 


41 


20 


59 


54 


49 


4C 


41 
















2F 


21 


2A 


2A 


36 


32 


21 


20 


52 


47 


4F 


52 


5C 


3C 


38 


33 


21 


20 


2A 


30 


31 


21 


26 


20 


3A 


56 


45 


52 


20 


3E 


21 


43 


41 


21 


20 


3A 


4D 


41 














2F 


21 


4C 


55 


21 


2E 


4C 


55 


21 






2F 


21 


2F 


21 


44 


25 


21 


20 


2A 


33 


32 


21 


OC 


74 


53 


20 


6C 


61 


6D 


72 


6F 


4E 
2f 


20 

21 


2A 
2F 


38 

21 


32 
74 


21 
72 


15 
61 


20 


65 


6C 


70 


69 


74 


6C 


75 


4D 


20 


2A 


38 


32 


21 


16 
















2F 


21 


2F 


21 


73 


73 


61 


50 


20 


65 


74 


69 


6E 


69 


66 


6E 


49 


20 


2A 


34 


32 


21 


1E 


21 


2F 


21 


7' 


73 


65 


54 


2D 


6E 


4F 


2D 


70 


6F 


6F 


4C 
2F 


20 


65 


74 


6<* 


6E 


69 


66 


6E 


49 


20 


2A 


32 


32 


21 


21 


74 


73 


65 


74 


62 


75 


53 


2D 


6E 


4F 


2D 


70 
2f 


6F 

21 


6F 
2F 


4C 
21 


73 


74 


73 


65 


54 


20 


6E 


75 


52 


20 


2A 


35 


32 


21 


1C 




2F 


21 


2F 


21 


73 


64 


72 


61 


77 


68 


63 


61 


42 


20 


61 


6E 


72 


65 


74 


6E 


49 


20 


41 


51 


2A 


2A 


2F 


21 


39 


6C 


61 


6D 


72 


6F 


4E 


20 


3A 


72 


6F 


72 


72 


45 


20 


6C 












6C 


49 


20 


2C 


74 


72 


61 


74 


53 


20 


6E 


69 


6r 


50 


5F 


68 


6F 


6F 


48 


20 


6C 


61 


67 

2^ 


65 

21 


6C 
74 



B 9 
27-Jul-1984 
27-Jul-1984 16:07 
26-Jul-1984 09:41 



00081 

000BB 

OOOBC 

OOOCB 

OOODA 

000E4 

000E6 

000F5 

00104 

0010E 

00118 

00127 

00136 

00140 

0014D 

0015C 

001 6B 

00175 

00184 

0018F 

0019E 

001AD 

001B5 

001C4 

001D3 

001DC 

001E9 

00.F8 

001 FF 

0020E 

00216 

00225 

00234 

00235 

00244 

00253 

00257 

00266 

00274 

00283 

00292 

0029C 

002AB 



P.AAF: 
P.AA6: 
P.AAH: 
P.AAI: 

P.AAJ: 

P.AAK: 

P.AAL: 
P.AAM: 

P.AAN: 

P.AAO: 



P.AAQ: 
P.AAR: 



.ASCII 
.ASCII 



.ASCII 
.ASCII 



.ASCII 
.ASCII 



.ASCII 
.ASCII 



.ASCII 
.ASCII 



Fiche 11 Frame B9 Sequence 2165 
41 VAX-11 BUss-32 V4. 0-742 ., Page 17 
20 DMA1 :CSYS0.$YSMAINTDQACHECKS.B32;67 (16) 



\)**QA ERROR** Multiple pass check failedN 



\1**GA ERROR** Infinite loop-on-test chec\ 



\k failediA 

\4*+QA ERROR** Infinite loop-on-subtest c\ 



\heck failediA 

\A**OA ERROR** Run individual tests in re\ 



\verse order check failediA 
\%! A !/!/!?5** QUALITY ASSURANCE !26**!A 



.ASCII \&!10* !38<PROGRAM: !AC!> REV: !UL.!UL!/\ 

.ASCII <12>M23* !JSD!/!A 

.ASCII <21>\!28* Normal Start!/!A 

.ASCII <22>\!28* Multiple Passl/IA 

.ASCII <30>\!24* Infinite Loop-On-Test !/!A 



P.AAP: .ASCII \i!22* Infinite Loop-On-Subtest !/!A 



.ASCII <28>\!25* Run Tests Backwards!/! A 

.ASCII \9!/**0A Internal Error: Normal Start, Il\ 

.ASCII \legal Hook_Point!A 



DSASAL 

DSASGL* 

DSASGL. 

DSASGL 

DSASGL. 

DSASGL, 

DSASGL, 

DSASGL. 

DSASGL 

DSASGL 

DSASGL 

DSASGL 

DSASGL 



APTMAIL: 
FLAGS= 
APTCOM* 
.PASSES* 

units* 

SECTN0= 
'SID* 
MSGTYP= 

;errno= 

EVENT* 
SUBTN0= 
TESTN0= 
PASSNO* 



65024 
65024 
65028 
65032 
65036 
65040 
65044 
65088 
65092 
65096 
65100 
65104 
65108 



ZZ-FNSAA-7.0 

QACHEUS 

6.5-03 



QASNormaLStart 

*** QA Check Routines 

QASNormaL.Start 



C 9 
27-Jul-1984 Fiche 11 Frame C9 Sequence 2166 

27-Jul-1984 16:07:41 VAX-11 Bliss«32 V4. 0-742 ^ ^ pa 9 e ,,l? 

26-Jul-1984 09:41:20 DMA1 :[SYS0.SYSMAINT3OACHECKS.B32;67 (16) 

DSASGL DEVLEN= 65112 

DSASGLJ)EVNAM= 65116 

DSASGL 1SGPTR=: 65128 

SM0DULE= P. AAA 

QAST OPERATOR REQUEST_MESSAGE== 

P.AAB 
CLEANUP ERROR MESSAGE= 

P AAC 
ERROR REPORTED MESSAGE= 

P.AAD 
NORMAL_STARTJ1ESSAGE= 

P.AAE 
MULTIPLE PASS MESSAGE= 

P.AAF 

INFINITE. TEST_MESSAGE= 

P.AAG 
INFINITE.SUBTEST_MESSAGE= 

P.AAH 
RUN_BACKWARDS. WESSAGE= 

P.AAI 





007C 00000 


56 000000006 


U 


9E 00002 


55 00000000G 


EF 


9E 00009 


54 00000000G 


9F 


9E 00010 


53 00000000 • 


EF 


9E 00017 


52 04 


AC 


DO 0001 E 


12 


52 


D1 00022 




28 


12 00025 




53 


DD 00027 


64 


01 


F8 00029 



QAST HEADER J == 

GASrHEADER„2— 

QAST'HEADER.3== 

HEADER JJS= 

HEADER MP= 

HEADERlLT* 

HEADER„LS= 

HEADER_RB= 

ES= 

.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
-EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
-EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 



P.AAJ 

P.AAK 

P.AAL 

P. A AM 

P. A AN 

P.AAO 

P.AAP 

P.AAQ 

P.AAR 
QASFIND USER CALL FRAME 
QASPRINT FORCED ERRORS 
QASADD FORCED ERROR 
QASADD'QA ERROR 
DSXSABORTT DSSGL FSTTEST 
DSSGL.LSTTEST, D3SGL SUBTEST 
DSSGL CLIBASE, QASWjTESI LOOPS 
QASU 5UBTESTLOOPS 
QASW MULTIPLEPASS 
QASAOB ROUTINE STATE 
QASAOB'CHECK. STATE 
QASA0B~F LAGS , QASW^BRANCH 
QASW^ERROR NUMBER 
QASW SAVE TEST, QASW_SAVE LAST 
DSSPRlNTF 



.PSECT C0DE,NOWRT, SHR,2 

.ENTRY QASNORMAL START, Save R2,R3,R4,R5,R6 

MOVAB QASAOB CHECK STATE, R6 

MOVAB QASAOB ROUTINE STATE, R5 

MOVAB a#DSSPR."NTF, R? 

MOVAB QAST_HE/DERJ, R3 

MOVL HOOK POINT, R2 

CMPL R2, 318 

BNEQ 1S 

PUSHL R3 

CALLS #1, DSSPRlNTF 



0296 



0332 
0334 

0336 



ZZ-ENSAA-7.0 

QACHECKS 

6.5-03 



QASNormal Start 

*** QA Check Routines 

QASNormal Start 



06 



000000006 



0000FE01 



7E 0000020C 
00000208 
26 



64 

64 

64 
65 

05 

65 



64 

64 

EF 
65 



9F 
66 
66 
65 



02 
06 
09 
08 
11 
13 
15 
18 
50 

64 



4D 
5A 



FE84 
FEE4 
FF04 



00E5 



9F 7D 

9F DD 

A3 9F 

04 FB 

7E D4 

A3 9F 

02 F8 

A3 9F 

01 F8 

01 88 
68 11 
52 D1 
26 12 

02 E1 
C3 9F 
04 11 
C3 9F 
01 F8 
C3 9F 
01 F8 
7E D4 

01 F8 

02 88 
4B 11 
52 D5 
12 12 

04 8A 

01 8A 

02 88 
08 88 
2A 11 

05 15 
52 D1 
23 15 
52 D1 
1E 13 
52 D1 
05 19 
52 D1 
14 15 
52 D1 
OF 13 
52 D1 
05 19 
52 D1 
05 15 
52 D1 
04 12 
01 DO 

04 

C3 9F 

01 F8 

50 D4 

04 



D 9 

27-JuL-1984 Fiche 11 Frame D9 Sequence 2167 

27-JuL-1984 16:07:41 VAX-11 BLiss-32 V4. 0-742 ^ Page 19 
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0002C 

00033 

00039 

0003C 

0003F 

00041 

00044 

00047 

0004A 

0004D 

00050 

00052 

00055 

00057 

0005B 

0005F 

00061 

00065 

00068 

0006C 

0006F 

00071 

00078 

0007B 

0007D 

0007F 

00081 

00088 

0008B 

0008E 

00091 

00093 

00095 

00098 

0009A 

0009D 

0009F 

000A2 

000A4 

000A7 

000A9 

000AC 

000AE 

000B1 

000B3 

000B6 

00088 

000BB 

0O0BD 

OOOCO 

000C1 

000C5 

000C8 

OOOCA 



1$; 



2$: 

3$: 



4$: 



5$: 



6$: 



7$: 



8$: 
9$: 
10$: 
11$: 



MOVQ 

PUSHL 

PUSHAB 

CALLS 

CLRL 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

BISB2 

BRB 

CMPL 

BNEQ 

BBC 

PUSHAB 

BRB 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

CLRL 

CALLS 

BISB2 

BRB 

TSTL 

BNEQ 

61C92 

BICB2 

BISB2 

BISB2 

BRB 

BLEQ 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BLSS 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BLSS 

CMPL 

BLEQ 

CMPL 

BNEQ 

MOVL 

RET 

PUSHAB 

CALLS 

CLRL 

RET 



a# A xooooo20c, -(SP) 

3# A X00000208 

QA$T HEADER 2 

#4, BSSPRINTF 

-(SP) 

OAST HEADER 3 

#2, BSSPRINTF 

HEADER NS 

#1, DSSPRINTF 

#1, OA$AOB_ROUTINE,STATE 

9$ 

R2. #5 

4$ 

#2, QASAOB ROUTINE STATE, 2$ 

CLEANUP.ERRORJIESSJGE 

3$ 

ERROR REP0RTEDJ1ESSAGE 

01, DSSPRINTF 

NORMAL START MESSAGE 

#1, DSSPRINTF 

-(SP) 

#1, QA$ADD QA ERROR 

#2, QASAOB'RODTINE STATE 

11$ 

R2 

5$ 

#4, a# A X0000FE01 

#1, QA$A0B CHECK^STATE 

#2, QA$A0B'CHECK STATE 

#8, QA$AOB'ROUTlRE^STATE 

9$ 

6$ 

R2, #2 

9$ 

R2, '6 

9$ 

R2, #9 



#11 



7$ 
R2, 

9$ 

R2, #17 

9$ 

R2, #19 



8$ 

5 2 ' 
9$ 

R2, #24 



#21 



10$ 
#1, 



RO 



ES 

#1, DS$PRINTF 

RO 



0337 



0338 



0339 

0341 
0342 
0345 

0347 
0348 

0350 

0352 

0354 

0355 
0332 
0361 

0363 
0364 
0365 
0366 
0367 
0374 



0389 

0394 

0A03 
0404 



Routine Size: 203 bytes. Routine Base: CODE + 0000 



ZZ-ENSAA-7,0 

QACHECKS 

6.5-03 



QASNormal^Start . 
**• QA Check Routines 
QASNormaL Start 



E 9 
27-JuL-1984 
27-JuM98A 
26-Jul-1984 



Ffche 11 Frame E9 



Sequence 2168 

16:07:41 VAX-1 1 Bh'ss-32 V4. 0-7^2 ^ Pa 9 e ,A9 

09:41:20 DMA1 :CSYS0.SYSMAINTJQACHECKS.B32;67 (16) 



0405 1 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0406 


1 


; 0^07 


1 


; 0408 


1 


; 0409 


1 


0410 


1 


; 0411 


1 


; 0412 


1 


; 0413 


1 


; 0414 


1 


; 0415 


1 


; 0416 


1 


0417 


1 


; 0418 


1 


; 0419 


1 


; 0420 


1 


; 0421 


1 


; 0422 


1 


; 0423 


1 


; 0424 


1 


; 0425 


1 


; 0426 


1 


; 0427 


1 


; 0428 


1 


0429 


1 


; 0430 


1 


; 0431 


1 


; 0432 


1 


; 0433 


1 


; 0434 


1 


; 0435 


1 


; 0436 


1 


; 0437 


1 


04 38 


1 


04 39 


1 


0440 


1 


; 0441 


1 



QASMultiple Pass 

*** QA Check Routines 

QA$Multiple_Pass 

XSBTTL , QA$MultipleJ>ass' 

GLOBAL ROUTINE QASMuLHple.Pass (Hook.Point) = 

++ 
FUNCTIONAL DESCRIPTION: 

This routine performs the QA Multiple Pass check, 
CALLER(S): 

QASMain 
FORMAL PARAMETERS: 

Hook^Point 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

- QA error detected; unsuccessful return 

1 - No QA errors; successful return 



F 9 

27-Jut-1984 Fiche 11 Frame F9 Sequence 2169 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 _ _ Page 2\ 

26-Jul-1984 09:41:20 DMA1 :CSYS0.SYSMAINT3QACHECKS.B32;67 (17) 



The point in the Supervisor from which this routine was called. This is a constant value. 
The constants are defined in the DSQA macro. 



SIDE EFFECTS: 
NONE 



ZZ-ENSAA-' 


7.0 


QACHECKS 




6.5-03 




; 0442 


2 


; 0443 


2 


0444 


2 


; 0445 


2 


0446 


3 


; 0447 


3 


; 0448 


3 


; 0449 


3 


; 0450 


3 


; 0451 


3 


; 0452 


3 


; 0453 


3 


; 0454 


3 


; 0455 


3 


; 0456 


3 


; 0457 


4 


; 0458 


2 


; 0459 


2 


; 0460 


2 


; 0461 


3 


; 0462 


3 


; 0463 


4 


; 0464 


3 


; 0465 


3 


; 0466 


3 


; 0467 


3 


; 0468 


3 


; 0469 


3 


; 0470 


3 


; 0471 


3 


; 0472 


3 


; 0473 


3 


; 0474 


2 


; 0475 


2 


; 0476 


2 


; 0477 


3 


; 0478 


3 


0479 


3 


; 0480 


3 


; 0481 


3 


; 0482 


3 


; 0483 


3 


; 0484 


3 


; 0485 


4 


; 0486 


2 



GASMultiple Pass 

*** QA Check Routines 

QA$MultipleJ 3 ass 



BEGIN 



SELECTONE .Hook.Point OF 
SET 
[DSQA$K_Start_VRReStart3: 

BEGIN 

MAP 



G 9 

27-Jul~1984 Fiche 11 Frame 69 Sequence 2170 

27-JuL-1984 16:07:41 VAX-11 BLiss-32 V4. 0-742 ^ Pa 9 e ,«£? 

26-Jul-1984 09:41:20 DMA1 :[SYS0.SYSMAINT]QACHECKS.B32;67 (18) 



C01] 

ton 
con 



DSSGL.CLIBASE : BLOCK [, BYTE3; ! Access the CLJ date vector, 

$DS_PRINTF <QA$T_HeaderJ); 

$DS PRINTF (QA$T_Header_2, .L$A NAME, .L$L_REV, .L$L_UPDATE); 

SDS~PRINTF (QA$T„Header_3, 0); 

$DS_PRINTF (Headers/IP); 

DSSGL CUBASE CCLJSL PASS] = .QASW MultiplePass; ! Set number of passes to requested amt.C013 
QAJA0B Routine_State"[QA$V Init Done] = True; i Done init'ing 
RETURN (QASK^Success) 
END; 



[DSQASK Error Error_End3: 
BEGIN 
IF (.QASAOBJtou tine State [QA$V,Doing_Cleanup3) THEN 

$DS PRINTF (Cleanup^Error Message) 
ELSE 

$DS_PRINTF (Error_Repor ted.Message) ; 

$DS_PRINTF (Multiple_Pass_Message); 

QA$Add_QA_Error (QA$K MultipleJ ^ ass); 
QA$A08 Routine_State LQA$\/ Error Found3 = True 
! + 
! Return unsucessfully. 

END; 

[DSQASK J)ispatJ>SX$EndPassJ1id3: ! 
BEGIN 
! + 

! All done the Multiple Pass check. Clean up. 

QA5A0B Check State CQASK Multiple Pass] = Off; 
QASAOBlChecklState LQA$K LoopJ)nJTest3 = On; 
QASA08 Routine State [QASV Check Done3 * True; 
RETURN (QASK^Success) 
END; 



C01] 
[01] 
[01] 
[01] 

[02] 



Stop Multiple Pass check. 
Start Loop on Test check. 
Indicate check is done. 



[01] 

[01] 
[01] 
[01] 

[01] 
[01] 
[01] 
[013 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0487 


2 


; 0488 


2 


; 0489 


2 


; 0490 


2 


; 0491 


2 


; 0492 


2 


; 0493 


2 


; 0494 


2 


; 0495 


2 


; 0496 


2 


0497 


2 


; 0498 


2 


; 0499 


2 


; 0500 


2 


; 0501 


2 


; 0502 


2 


; 0503 


2 


; 0504 


2 


; 0505 


3 


; 0506 


4 


; 0507 


2 


; 0508 


2 


; 0509 


2 


; 0510 


3 


; 0511 


4 


; 0512 


2 


; 0513 


2 


; 0514 


3 



QASMultiple Pass 

*** QA Check Routines 

QA$Multiple_Pass 



H 9 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame H9 Sequence 2171 

16:07:41 VAX-11 BMss-32 V4. 0-742 

09:41:20 DMA1:CSYS0.SYSMAINT3QACHECKS.B32;67 



Page 23 
(19) 



The following are not used in this check. 



CDSQASKJ)ispat_Before lnit, 
DSQA$KJ)ispat_After_Tnit, 
DSQA$KJ)ispat_CallTest, 
DSQA$K_Dispat_DSX$EndPass Bgn, 
DSQA$KJ)ispat_DSX$EndPass..End, 
DSQA$KJ>ispat_Done_Jests, 

DSQA$K_Error_Error_Bgn, 

DSQA$K..LoopJ)SX$BgnSub, 
DSQA$KJ.oopJ)SX$EndSub, 
DSQA$KJ.oop_DSX$CkLoop, 

DSQASK.QA DSXSBranchD : 
BEGIN 

RETURN <QA$K„Success) 
END; 

[OTHERWISE]: 
BEGIN 



C013 
COlJ 

con 

C01D 
£01 J 



0515 1 



END; 



TES; 
RETURN <QA$K_Failure) 



Logic Error (•Multiple Pass, Illegal Hook^Point*) 

END; " 



61 6E 72 65 74 6E 49 20 41 51 2A 2A 2F 21 3A 002AE P.AAS: 

70 69 74 6C 75 4D 20 3A 72 6F 72 72 45 20 6C 002BD 

49 20 2C 73 73 61 50 20 65 6C Q02CC 

69 6F 50 5F 68 6F 6F 48 20 6C 61 67 65 6C 6C 002D6 

2F 21 74 6E 002E5 

ES= 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII \:!/**QA Internal Error: Multiple Pass, I\ 

.ASCII Ulegal Hook_Point!A 

P.AAS 
.PSECT C0DE,N0WRT, SHR,2 



56 000000006 

55 000QQ000G 

54 00000000G 

53 00000000' 
52 04 
12 



64 

00000208 



9F 

EF 

AC 
52 

3$ 
53 

01 
9F 

9F 



007C 00000 
9E 00002 
9E 00009 
9E 00010 




.ENTRY 

MOVAB 

MOVAB 

MOVAB 

MOVAB 

MOVL 

CMPL 

BNEQ 

PUSHL 

CALLS 

MOVQ 

PUSHL 



QASMULTIPLE PASS, Save R2,R3,R4,R5,R6 
QASAOB CHECK STATE, R6 
QA$AOB~ROUTlRE STATE, R5 
a/TDSSPBlNTF, R? 
QA$T_H6ADERJ, R3 
HOOK" POINT, R$ 
R2, »18 

R3 

#1, DSSPR1NTF 

a/rXQOOQQ20C. -<SP> 




0408 



0443 
0445 

0450 

0451 



ZZ-ENSAA-7,0 

QACHECKS 

6.5-03 



QASMultiple Pass 

*** QA Check Routines 

QASMultiple.Pass 



I 9 

27-Jul-1984 
27-JuL-1984 
26-Jul-1984 



Ffche 11 Frame 19^ Sequence 2172 
16:07:41 VAX-11 Bliss-32 V4. 0-742 Pa 9* £^ 

09:41:20 DMA1:CSVS0,SYSMAINT3QACHECKS.B32;67 (19) 



000000006 



06 



000000006 



64 



64 



26 

4D 

70 
64 

EF 000000006 
65 

05 

65 

64 

64 

EF 
65 



66 
66 
65 



02 
06 
09 
08 
11 
13 
15 
18 
50 

64 



FE84 
FEE4 
FF20 



011F 



A3 

04 

7E 

A3 

02 

A3 

01 

EF 

01 

64 

52 

26 

02 

C3 

04 

C3 

01 

C3 

01 

01 

01 

02 

44 

52 

OB 

02 

04 

08 

2A 

05 

52 

23 

52 

1E 

52 

05 

52 

14 

52 

OF 

52 

05 

52 

05 

52 

04 

01 

C3 
01 
50 



9F 
FB 
D4 
9F 
FB 
9F 
FB 
3C 

!! 

D1 

12 

E1 

9F 

11 

9F 

F8 

9F 

FB 

DD 

FB 

88 

11 

D5 

12 

8A 

88 

88 

11 

15 

D1 

15 

D1 
13 
D1 
19 
D1 
15 
D1 
13 
D1 
19 
D1 
15 

B 

DO 
04 
9F 
FB 
t>4 
04 



00039 
00Q3C 
0003F 
00041 
00044 
00047 
0004A 
0004D 

m 

0005D 
00060 
00062 
00066 
0006A 
0006C 
00070 
00073 
00077 
0007A 
0007C 
00083 
00086 
00088 
0008A 
0008C 
0008F 
00092 

m 

00099 
0009C 
0Q09E 
000A1 
000A3 
0Q0A6 
Q00A8 
OOOAB 
OOOAD 
OOOBO 
0QQB2 
00QB5 
000B7 
OOBA 

ooec 

OQBF 
00C1 
00C4 
000C5 
C9 
CC 
CE 



Routine Siee: 207 bytes. Routine Base: CODE ♦ OOCB 



1$: 



2$: 
3$: 



4$: 



5$: 



6$: 



7$: 



8$: 
9$: 
10$: 
11$: 



PUSHAB 

CALLS 

CLRL 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

M0V2WL 

BISB2 

BRB 

CMPL 

BNEQ 

BBC 

PUSHAB 

BRB 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

PUSHL 

CALLS 

BIS82 

BRB 

TSTL 

BNEQ 

BICB2 

BIS62 

BJSB2 

BRB 

BLEQ 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BLSS 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BLSS 

CMPL 

BLEQ 

CMPL 

BNEQ 

MOVL 

RET 

PUSHAB 

CALLS 

CLRL 

RET 



QA$T HEADER 2 

#4, PS$PRINTF 

-(SP) 

QA$T HEADER 3 

#2, GS$PRINTF 

HEADER.MP 

#1. DSlPRINTF 

QA$W MULTIPLEPASS, DS$GL_CLIBASE+44 

#1, BA$AOB,R0UTINE.STATE 

9$ 

R2, #5 

4$ 

#2, QA5A0B ROUTINE STATE, 2$ 

CLEANUP.ERRORJIESSXGE 

3$ 

ERROR REPORTED_MESSAGE 

#1, D3$PRINTF 

MULTIPLE PASSJ1ESSAGE 

#1, DS$PRlNTF 

#1 

#1, QA$ADDQA ERROR 

#2, QA$AOBJ}O0TINE_STATE 

ni 

R2 

5$ 

#2, QA$AOB^CHECK^STATE 

#4, QA$AOB„CHECK STATE 

#8, GA$A08„R0UTlRE.,STATE 

9$ 



6$ 

R2, 

9$ 

8- 

?!• 

R2. 

9$ 

R2, 

9$ 

R2. #19 



#2 

#6 

#9 

#11 

#17 



8$ 

8- 

lb 

#1. 



#21 
#24 
RO 



ES 

#1, DS$PRINTF 

RO 



0452 

0453 

0455 
0456 
0457 
0460 

0462 
0463 

0465 

0467 

0469 

0470 

0476 

0482 
0483 
0484 
0485 
0491 



0506 

0511 

0514 
0515 



ZZ-ENSAA-7.0 

QACHECKS 

6.5-03 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 



QASLoop On.Test 

*** QA Check Routines 

0A$Loop_0n_Test 

XSBTTL 'QASLoop.OnJest 1 

GLOBAL ROUTINE QA$Loop_On_Test (Hook.Point) = 

FUNCTIONAL DESCRIPTION: 

This routine performs the QA Loop on Test check. 
CALLER(S): 

QASMain 
FORMAL PARAMETERS; 

Hook_Point 

IMPLICIT INPUTS; 

NONE 
IMPLICIT OUTPUTS; 

NONE 
COMPLETION CODES: 

- QA error detected; unsuccessful return 

1 - No QA errors; successful return 



j 9 
27-Jul-1984 Fiche 11 Frame J9 n t n Sequence 2173 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 p ** e ,JS 

26-JUI-1984 09:41:20 DMA1 :CSYS0.SY$MAINT3QACHECKS.832;67 (20) 



The point in the Supervisor from which this routine was called- This is a constant value. 
The constants are defined in the DSQA macro. 



SIDE EFFECTS: 
NONE 



ZZ-ENSAA- 


7.0 


GACHECKS 




6.5-03 




; 0552 


2 


; 0553 


2 


; 0S54 


2 


; 0555 


2 


; 0556 


2 


; 0557 


2 


; 0558 


2 


; 0559 


3 


; 0560 


3 


; 0561 


3 


; 0562 


3 


; 0563 


3 


; 0564 


3 


; 0565 


3 


; 0566 


3 


; 0567 


3 


; 0568 


3 


; 0569 


3 


0570 


3 


; 0571 


3 


; 0572 


3 


; 0573 


3 


; 0574 


3 


; 0575 


3 


0576 


3 


; 0577 


3 


; 0578 


4 


; 0579 


2 


; 0580 


2 


; 0581 


2 


; 0582 


3 


; 0583 


3 


; 0584 


4 


; 0585 


3 


; 0586 


3 


; 0587 


3 


; 0588 


3 


; 0589 


3 


; 0590 


3 


; 0591 
; 0592 


3 
2 



K 9 
QA$Loop On Test 27-Jul-1984 Fiche 11 Frame K9 Sequence 2174 

*** QA Check Routines 27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 Pa 9 e ,Jft 

QASLoop On Test 26-JuL-1984 09:41:20 DMA1:CSYS0,SYSMAINT]QACHECKS.B32;67 (21) 



BEGIN 

OWN 



Loop_Counter : WORD; 



SELECTONE .Hook.Point OF 
SET 
CDSQASK.StartJ/RReStart]: 

BEGIN rnin 

MAP ! C013 

DSSGL.CLIBASE : BLOCK C, BYTE]; ! Access the CLI data vector. C013 

! + 

! The initializations required for this check and that are specific to this 

! check must be done here. 

! + 

Loop Counter = 1; i Loop counter for each test. C013 

QA$AOB_Flags [QA$KJ.oop_TestJ)one] = True; 

$DS PRINTF (QAST HeaderJ); 

$DS PRINTF (QAST Header~2, .L$A NAME, .L$L„REV, .LSL.UPDATE) ; 

SDS'PRINTF (QA$T~Header_3, 0); 

SDSJWNTF (Header.LT); 

DSSGL CLIBASE CCLJSL PASS] = 1; ! Reset to one pass after the Multiple Pass check. [01 J 

QASAOB Routine State"CQA$VJnitJ)one] = True; ! Done imt'ing 
RETURN (QA$K,Success) 
END; 

[D5QA$K Error.Error^EndJ: 

BEGIN PA4 , 

IF (.QASAOB.Routine State CQASV Doing Cleanup]) THEN ! C01] 

SDSJWNTF TCleanup^Error.Message) ! C013 

ELSE ! CO ] 

$DSJ>RINTF (Error_ReportedJ1essage); ! C01] 

$DSJ>RINTF <Infinite_TestJ1essage); ! C02] 

QASAdd QA Error <QA$K Loop On.Test); 
QA$AOB~Routine State LQA$V Error Found] = True 
END; 



ZZ-ENSAA-7J 


QACHECKS 




6.5-03 




; 0593 


2 


; 059A 


3 


; 0595 


3 


; 0596 


3 


; 0597 


3 


; 0593 


3 


; 0599 


3 


; 0600 


3 


; 0601 


3 


; 0602 


3 


; 0603 


A 


; 060A 


2 


; 0605 


2 


; 0606 


2 


; 0607 


3 


; 0608 


3 


; 0609 


A 


; 0610 


A 


; 0611 


A 


; 0612 


A 


; 0613 


3 


; v6K 


A 


; 0615 


A 


; 0616 


A 


; 061 7 


3 


; 0618 


A 


; 0619 


2 



QASLoop On.Test 

*** QA Check Routines 

QASLoopJDn.Test 



L 9 
27-Jul-198A 
27-JuL-198A 
26-Jul-1984 



Fiche 11 Frame L9 



Sequence 2175 
16:07:41 VAX-11 Bliss-32 VA.0-7A2 
09:41:20 DMA1 :[SYS0.SYSMAINT]QACHECKS.B32;67 



[DSQA$K DispatJ)SX$EndPassJ1id]: ! 

"BEGIN 

+ 

All done the Loop on Test check. Clean up. 

QASA0B Check State [QA$KJ_oop_0n Test] = Off; 
QA$AOB_Check.State [QA$K Loop_On_Subtest] = On; 
QASAOBJtoutine State CQAlV Check_Done] = True; 
QA$AOB,Flags [SASKJMrst.TTme] = True; 

RETURN (QA$K Success) 
END; 

CDSQASK JMspat^CaltTestD: 

BEGIN 

IF (.Loop Counter EQL .QASW.TestLoops) THEN 

BEGIN 

Loop Counter = 1; 

QA$A0B Flags [QA$K_Loop_Test,Done] = True 

END 
ELSE 

BE UN 

Loop Counter = .Loop_Counter + 1; 

QA$A0B Flags CQA$K Loop Test.Done] = False 

END; 
RETURN (QASK.Success) 
END; 



Page 27 
(22) 

con 

[01] 



I For the next check (LS). 



[01] 



ZZ-ENSAA-7.0 


QACHECKS 




6.5-03 




; 0620 


2 


; 0621 


2 


; 0622 


2 


; 0623 


2 


; 0624 


2 


; 0625 


2 


; 0626 


2 


; 0627 


2 


; 0628 


2 


; 0629 


2 


; 0630 


2 


; 0631 


2 


; 0632 


2 


; 0633 


2 


; 0634 


2 


; 0635 


2 


; 0636 


2 


; 0637 


3 


; 0638 


4 


; 0639 


2 


; 0640 


2 


; 0641 


2 


; 0642 


3 


; 0643 


4 


0644 


2 


; 0645 


2 


; 0646 


3 



QASLoop On.Test 

*** QA Check Routines 

QA$Loop_On_Test 

! + 



M 9 
27-Jul-1984 Fiche 11 Frame IW t ^ Sequence 2176 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 Pa S e ,J? 

26-Jul-1984 09:41:20 DMA1 :CSYS0.SYSMAINT3QACHECKS.B32;67 (23) 



0647 1 



END; 



! The following are not used in this check, 
i - 

CDSQASK Dispatjefore Init, 

DSQA$KJ)ispat.AfterJnit, ! 

DSQA$K_DispatJ)SX$EndPass_Bgn, ! 

DSQA$K_DispatJ)SX$EndPass_End, ! 

DSQA$KJ)ispatJ)one_Tests, ! 

DSQA$K_Error_Error_Bgn, ! 

DSQA$K_Loop_DSX$BgnSub, 
DSQASK Loop_DSX$EndSub , 
DSQA$K_Loop_DSXSCkLoop, 

DSQASK QA DSXSBranchJ: 
BEGIN 

RETURN (QASK.Success) 
END; 

[OTHERWISE]: 

BEGIN 

Logic Error ('Loop on Test, Illegal Hook Point 1 ) 

END; 
TES; 
RETURN (QA$K_Failure) 



.PSECT W0RK,NOEXE,2 

00000 LOOP,COUNTER: 

.BLKB ? 



[01 J 
C01D 
C01D 
[013 

art : 



61 6E 72 65 74 6E 49 20 41 51 ?A 2A 2F 21 39 002E9 P.AAT: 

6F 20 70 6F 6F 4C 20 ?A 72 6F 72 72 45 20 6C 002F8 

6C 49 20 2C 74 73 65 54 20 6E 00307 

6E 69 6F 50 5F 6B 6F 6F 48 20 6C 61 67 65 6C 00311 



2F 21 74 00320 



ES= 



58 
57 
56 
55 
54 
53 
52 



0OOOO000G 
00000000' 
000000006 
00OO0000G 
OOOOOOOOG 
00000000' 
04 



01FC 00000 

EF 9E 00002 

EF 9E 00009 

EF 9E 00010 

EF 9E 00017 

9F 9E 0001 E 

EF 9E 00025 

AC DO 0002C 



.PSECT DATA,NOWRT,N0EXE, SHR,2 

.ASCII \9!/**QA Internal Error: Loop on Test, Il\ 

.ASCII \legal Hook.PointlA 

P.AAT 

.PSECT CODE,NOWRT, SHR,2 

.ENTRY OA$L00PJ)N TEST, Save R2,R3,R4,R5,R6,R7,R8 

MOVAB UASAOB CHECKJTATE, R8 

MOVAB LOOP COUNTER, R7 

MOVAB QASAOBJWUTINE STATE, R6 

MOVAB QASAQB FLAGS, R5 

MOVAB a*DS$PRlNTF, R4 

MOVAB OAST HEADER J, R3 

MOVL HOOlCPOINT, R2 



0518 



0556 



ZZ-ENSAA-7.0 

QACHECKS 
6.5-03 



QASLoop On.Test 

*** QA check Routines 

QA$loopJDn_Test 



N 9 
27-JuL-1984 

27-Jul-1984 
26-Jul-198A 



Fiche 11 Frame N? 



Sequence 2177 

16:07:41 VAX-11 Bliss-32 V4. 0-742 ^ Pa 9 e , J? 

09:41:20 DMA1:CSYS0.$YSMAINTJQACHECKS.B32;67 (23) 



06 



12 




52 


D) 00030 




CMPL 






39 


12 00033 




BNEQ 


67 




01 


BO 00035 




MOVW 


65 




10 


88 00038 




BISB2 






53 


DD 0003B 




PUSHL 


64 




01 


FB 0003D 




CALLS 


7E 


D000020C 


9F 


7D 00040 




MOVQ 




D0000208 


9F 


DD 00047 




PUSHL 




26 


A3 


9F 0004D 




PUSHAB 


64 




04 


FB 00050 




CALLS 






?E 


DA 00053 




CLRL 




4D 


A3 


9F 00055 




PUSHAB 


6' 




02 


FB 00058 




CALLS 




0087 


C3 


9F 0005B 




PUSHAB 


64 




01 


FB 0005F 




CALLS 


000000006 EF 




01 


DO 00062 




MOVL 


66 




01 


88 00069 




BISB2 






58 


11 0006C 




BRB 


05 




52 


D1 0006E 


1$: 


CMPL 






26 


12 00071 




BNEQ 


66 




02 


E1 00073 




BBC 




FEB4 


C3 


9F 00077 




PUSHAB 






04 


11 0007B 




BRB 




FEE4 


C3 


9F 0007D 


2S: 


PUSHAB 


64 




01 


FB 00081 


3$: 


CALLS 




FF57 


C3 


9F 00084 




PUSHAB 


64 




01 


FB 0008C 




CALLS 






02 


DD 0008B 




PUSHL 


00000000G EF 




01 


FB 0008D 




CALLS 


66 




02 


88 00094 




BJSB2 






66 


11 00097 




BRB 






52 


D5 00099 


4$: 


TSTL 






OE 


12 0009B 




BNEQ 


68 




04 


8A 0009D 




BICB2 


68 




08 


88 OOOAO 




BISB2 


66 




08 


88 000A3 




BISB2 


65 




20 


88 000A6 




BIS82 






49 


11 000A9 




BRB 


15 




52 


D1 OOOAB 


5$: 


CMPL 






18 


12 OOOAE 




BNEQ 


000000006 EF 




67 


B1 OOOBO 




CMPW 






08 


12 0Q0B7 
BO 000B9 




BNEQ 


67 




01 




MOVW 


65 




10 


88 OOOBC 




BISB2 






33 


11 OOOBF 




BRB 






67 


B6 000C1 


6$: 


INCW 


65 




10 


8A 000C3 
11 0Q0C6 




BICB2 






2C 


7S: 


BRB 






52 


D5 0QQC8 8$: 


TSTL 






05 


15 OOOCA 




BLEQ 


02 




52 


D1 OOOCC 




CMPL 






V 


15 O^OCF 




BLEQ 


06 




52 


D1 000D1 


9$: 


CMPL 






1E 


13 000D4 




BEQL 


09 




52 


D1 000D6 




CMPL 






05 


19 000D9 




BLSS 


08 




52 


D1 OOODB 




CMPL 



R2, #18 
1$ 

#1, LOOP COUNTER 

#16, QASAOBJLAGS 

R3 

#1, DSSPRINTF 

a# A xooooo20c, -<sp) 

a# A X00000208 

QAST HEADER 2 

#4, PSSPRINTF 

-<SP) 

QAST HEADER 3 

#2, CSSPRINTF 

HEADER LT 

#1, DS$PRINTF 

#1, DSSGL CLIBASE+44 

#1, QASAOB ROUTINE.STATE 

7$ 

R2, #5 

4$ 

#2, QASAOB ROUTINE STATE, 2$ 

CLEaNUP^ERROR^MESSSGE 

3$ 

ERROR REP0RTEDJ1ESSAGE 

#1, DSSPRINTF 

INFINITE TESTJ1ESSAGE 

#1, DSSPRINTF 

#2 

#1, QASADD.QA ERROR 

#? f ^ASAOBlRODTINE.STATE 

Hi 

R2 

5S 

M, QASAOB CHECK^STATE 

#8, QASAOBlCHECK STATE 

#8- QASA08 ROUTIRE.STATE 

#32, QASAOB_FLAGS 

12S 

R2, #21 

8S 

LOOP COUNTER, QASW^TESTLOOPS 

6S " 

#1. LOOP COUNTER 

#16, QASSOBJLAGS 

12S 

LOOP^COUNTER 

#16, QASAOB.FLAGS 

12S 

9S 

R2 X #2 
12i 
R2, #6 

i2i 

R2, #9 
10§ 
R2, #11 



\JJJO 



0568 
0569 
0571 

0572 



0573 

0574 

0576 
0577 
0578 
0581 

0583 
0584 

0586 

0588 

0590 

0591 

0593 

0599 
0600 
06vl 
0602 
0603 
0606 

0608 

0610 
0611 

0615 
0616 
06181 
0624 



ZZ-ENSAA-7,0 

QACHECKS 
6.5-03 











B H 


) 






QASLoop On_Test 








27-Jul- 


•1984 


Fiche 11 F 


*** QA Check Routines 








27-Jul- 


■1984 16:07 


:41 


VAX-11 


GA$Loop_Qn_Test 








26-Jul- 


•1984 09:41 


:20 


DMA1:CS 








14 


15 000DE 


BLEQ 


12$ 






11 




52 


D1 000E0 10$: 


CM°L 


R2, 


#17 








OF 


13 000E3 


BEuL 


12$ 






13 




52 


D1 000E5 


CMPL 


R2, 


#19 








05 


19 000E8 


BLSS 


11$ 






u 




52 


D1 000EA 


CMPL 


R2- 

12$ 


#20 








05 


15 OOOED 


BLEQ 






18 




52 


D1 OOOEF 11$: 


CMPL 


R2, 


#24 








04 


12 000F2 


BNEQ 


13$ 






50 




01 


DO 000F4 12$: 
04 000F7 


WJVL 
RET 


#1, 


RO 






01 5A 


C3 


9F 000F8 13$: 


PUSHAB 


ES 






64 




01 


FB OOOFC 


CALLS 


#1, 


DS$PR1NTF 








50 


D4 OOOFF 14$: 
04 00101 


CLRL 
RET 


RO 




258 bytes. Routine 


Base: 


CODE 


+ 01 9A 









Frame B10 Sequence 2178 

Bliss-32 V4. 0-742 m _ 

DMA1:CSYS0.SYSMAINT3QACHECKS.B32;67 



Page 30 
(23) 



0638 

0643 

0646 
0647 



ZZ-ENSAA- 

QACHECKS 

6.5-03 

0648 1 

06^9 1 

0650 1 

0651 1 

0652 1 

0653 1 

0654 1 

0655 1 

0656 1 

0657 1 

0658 1 

0659 1 

0660 1 

0661 1 

0662 1 

0663 1 

0664 1 

0665 1 

0666 1 

0667 1 

0668 1 

0669 1 

0670 1 

0671 1 

0672 1 

0673 1 

0674 1 

0675 1 

0676 1 

0677 1 

0678 1 

0679 1 

0680 1 

0681 1 

0682 1 

0683 1 



QASLoop 0n_ Subtest 
*** QA Check Routines 
QA$Loop_On_Subtest 

XSBTTL 'QASLoop.On^Subtest 1 

6LOBAL ROUTINE QA$Loop_On_Subtest (HookJ>oint) = 



C 10 
27-Jul-1984 Flche 11 Frame C10 Sequence 2179 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 Page 31 

26-Jul-1984 09:41:20 DMA1 :CSYS0.SYS«AINT3QACHECKS.832;67 (24) 



] 



Start of LI J 



++ 



FUNCTIONAL DESCRIPTION: 

This routine performs the QA Loop on Subtest check. 
CALLER(S): 



The point in the Supervisor from which this routine was called. This is a constant value. 
The constants are defined in the DSQA macro. 



QASMain 
FORMAL PARAMETERS: 
Hook^Point : 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION COOES: 



- QA error detected; unsuccessful return 

1 - No QA errors; successful return 



SIDE EFFECTS: 
NONE 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0684 


2 


; 0685 


2 


; 0686 


2 


; 0687 


2 


; 0688 


2 


; 0689 


2 


; 0690 


2 


; 0691 


3 


; 0692 


3 


; 0693 


3 


; 0694 


3 


; 0695 


3 


; 0696 


3 


; 0697 


3 


; 0698 


4 


; 0699 


A 


; 0700 


A 


; 0701 


A 


; 0702 


A 


; 0703 


A 


; 0704 


A 


; 0705 


A 


; 0706 


A 


; 0707 


A 


; 0708 


A 


; 0709 


A 


; 0710 


A 


; 071 1 


A 


; 0712 


A 


; 0713 


A 


0714 


A 


; 0715 


A 


; 0716 


A 



QASLoop On Subtest 
*** QA Check Routines 
QASLoopJDn Subtest 



D 10 

27-Jul-198A Fiche 11 Frame D10 Sequence 2180 
27-Jul-198A 16:07:41 VAX-11 Bliss-32 VA. 0-742 _ _ Page 32 



26-JUI-1984 09:41:20 DMA1 :[SYS0.SYSMAINT]QACHECKS.B32;67 



BEGIN 



MAP 



DSSGL.CLI8ASE : BLOCK [, BYTE]; 



Access the Cli data vector 



SELECTONE .Hook Point OF 
SET 

[DSQASK StartJ/RReStart]: ! 

"BEGIN 
! + 

! The initializations required for this check and that are specific to this check 
! must be done here. 
! + 

IF (.QA5A0B Flags [QA$K First Time]) THEN ! 
BEGIN 

$DS PRINTF (QASTJteaderJ); 

$DS~PRINTF (QA$T Header 2, .L$A_NAME, .L$L_REV, .L$L_UPDATE>; 
$DS~PRINTF (QA$rHeadeO, 0); 
$DS~PRINTF (Header LS); 



(25) 



[01] 



[01] 



EOT ] 



QA$A0B Routine State CQASV InitJJoneJ = True; 
QA$AOB"flags [SA$K First TTme] = False; 
QA$A0B~Flags [QA$Oo Header] = False; 



Done initializing 
No more first time 
Print the header 



Set up the subtest and pass numbers for looping on a subtest. 



DSSGL CUBASE [CLISL.JEST] 

DS$GL"CLIBASE [CLI$L LAST] 

DSSGL'CLIBASE [CL1$L_SUBT] 

ds$gl;clibase [CLISL.PASS] 
END « 



= .QASULSavcTest; ! 
= .QA$W Save Test; ! 

= 1; " ! 
= .QA$W_SubtestLoops;! 



Set the test to loop on 
Set the last test to loop on 
Set the subtest to loop on 
Set the no. of loops 



[01] 
[01] 



LOU 



[01] 
[01] 
[01] 
[01] 
[01] 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0717 


3 


; 0718 


4 


; 0719 


4 


; 0720 


4 


; 0721 


4 


; 0722 


4 


; 0723 


4 


; 0724 


4 


; 0725 


4 


; 0726 


4 


; 0727 


4 


; 0728 


4 


; 0729 


4 


; 0730 


4 


; 0731 


4 


; 0732 


4 


; 0733 


4 


; 0734 


4 


; 0735 


4 


; 0736 


4 


; 0737 


4 


; 0738 


4 


; 0739 


4 


; 0740 


4 


; 0741 


4 


; 0742 


4 


; 0745 


3 


; 0744 


4 


; 0745 


2 



QASLoop On_Subtest 
*** QA Check Routines 
QASLoop 0n_Subtest 



E 10 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



ELSE 



BEGIN 

+ 



Fiche 11 Frame E10 Sequence 2181 
16:07:41 VAX-11 Bliss-32 V4. 0-742 Page 33 

09:41 :20 DMA1 :CSYS0.SYSMAINT3QACHECKS.B32;67 (26) 

con 
con 

LOW 

con 
con 
con 
con 
cow 

LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 

con 
con 



This is the nth (n > 1) time we have gotten to the VRReStart label. Thus, we 
got there by a branch from the EndSub routine, executed when the required m 
number of loops on a subtest had been done. Thus, go onto the next subtest in 
the same test. This implies that if the subtest just completed was the last 
subtest in that test, then the increment below will cause the subtest to not 
be found in the next execution of that test. So, the test will return to the 
Dispatch routine, where the test number will be incremented and the subtest 
number will be reset to one. Thus, if x is the last subtest number in 
test a, and test b follows test a, the sequence will be as follows: 
Test a.x-1, VRReStart, Test a.x, VrReStart, Test a. Dispatch, Test b.1, 
VrReStart, Test b.2, etc. Note that the above gives only those subtest 
numbers (x-1, x, 1, etc.) that will be looped on. Note that all the subtests 
prior to that subtest number would be executed before looping on the nth 
subtest. I must also reset the Test, Last, and Pass areas in the Cli 
data vector because they get destroyed somewhere (Init_Context?). 



QASAOB.Flags CQA$KJJo_Header:i = True; 



Do not print header anymore LOW 



Do next subtest 

Reset first test number 

Reset last test number 



DSSGL CLIBASE CCLISL SUBTJ = .DS$GL_SUBTEST + 1;! 

DS$GL"CLI8ASE CCLISLlTEST] = .DSSGL.FSTTEST; ! 

DS$GL"CLJBASE CCLISL.LASTD = .DS$GL FSTTEST; ! 

DS$GL"CLJBASE CCLI$L PASS3 = ,QA$W_5ubtestLoops; » Reset pass number 

END; " " ! 

RETURN (QA$K_Success) 
END; 



C011 

con 
con 
con 
con 



ZZ-ENSAA- 


7.0 


QACHECKS 




6-5-03 




; 0746 


2 


; 0747 


3 


; 0748 


3 


; 0749 


4 


; 0750 


3 


; 0751 


3 


; 0752 


3 


; 0753 


3 


; 0754 


3 


; 0755 


3 


; 0756 


3 


; 0757 


2 


; 0758 


2 


; 0759 


2 


; 0760 


3 


; 0761 


3 


; 0762 


3 


; 0763 


3 


; 0764 


3 


; 0765 


3 


; 0766 


3 


; 0767 


3 


; 0768 


3 


; 0769 


3 


; 0770 


3 


0771 


3 


; 0772 


3 


; 0773 


4 


; 0774 


2 



QASLoop On_Subtest 
*** QA Check Routines 
QA$Loop_0n_$ubtest 



F 10 

27-Jul-1984 Fiche 11 Frame F10 m Sequence 2182 
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26-Jul-1984 09:41 :20 DMA1 :CSYS0.SYSMAINT]QACHECKS.B32;67 



CDSQASK Error Error_EndJ: 
'BEGIN 
IF C.QA$A0B Routine State [QA$VJ>oing_CleanupD> THEN 
$DS~PRINTF TCleanup_ErrorJ1essage) 

ELSE 

$DS_PRINTF (Error_Repor ted_Message) ; 

$DS_PRINTF (Infinite_SubtestJ1essage); ! 

QASAdd QA Error (QA$K Loop On Subtest); 
QA$A0B~Routine State rQA$\TError_Found] = True 
END; 

[DSQASK Dispat DSX$EndPass_Mid]: 
"BEGIN " 
!♦ 
! All done the Loop on Subtest check. Clean up. Restore the first and last test 

! numbers just in case.... 

t _ 

DSSGL CLIBASE [CLI$L TEST] = .QASW Save_Test; ! Restore the old first test # 
DSSGL^CLIBASE CCLISL^LASTD = .QASlTSave.Last; ! Restore the old last test ft 



(27) 



C01] 

con 
con 

con 

C02] 



QASA0B Check State [GASK.Loop On Subtest] = Off; 

QA$AOB~Check~State CQASK Run Backwards] = On; 

QASAOB Routine State CQA$V_CheckJ)one] = True; 

QA$AOB"Flags C&A$K.No_Header] = False; 
RETURN~(QA$K_Success) 
END; 



Print header again 



con 
con 



con 
con 



con 



ZZ-ENSAA-7.0 


QACHECKS 




6.5-03 




; 0775 


2 


; 0776 


2 


; 0777 


2 


; 0778 


2 


; 0779 


2 


; 0780 


2 


; 0781 


2 


; 0782 


2 


; 0783 


2 


; 0784 


2 


; 0785 


2 


; 0786 


2 


; 0787 


2 


; 0788 


2 


; 0789 


2 


; 0790 


2 


; 0791 


2 


; 0792 


2 


; 0793 


3 


; 0794 


4 


; 0795 


2 


; 0796 


2 


; 0797 


2 


; 0798 


3 


; 0799 


4 


; 0800 


2 


; 0801 


2 


; 0802 


3 



QASLoop On Subtest 
*** QA Check Routines 
QASLoopJDn^Subtest 



G 10 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame 610 Sequence 2183 
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09:41 :20 DMA! :[SYS0.SYSMAINT3QACHECKS.B32;67 (28) 



0803 1 



END; 



! The following are not used in this check. 

[DSQASK Dispat Before Init, 
DSQASK"Dispat~Af terJTni t, 
DSQASK~Dispat~CallTest, 
DSQASK J)ispat_DSXSEndPass_Bgn, 
DSQASK Dispat DSXSEndPass.End, 
DSQA$OispaOone..Tests, 

DSQASK_Error\,Error_Bgn, I 

DSQASK Loop.DSXSBgnSub, 
DSQA$O-00pJ>SXSEnd$ub, 
DSQASK„LoopJ)SX$CkLoop, 

DSQASK QA DSXSBranchD: 
BEGIN 

RETURN (GASK^Success) 
END; 

[OTHERWISES: 

BEGIN . . 

Logic Error ('Loop on Subtest, Illegal Hook.Point 1 ) 

END; " 
TES; 
RETURN <QA$K_Failure) 



con 
con 

C01J 

C013 

con 
con 



61 6E 12 65 74 6E 49 20 41 51 2A 2A 2F 21 3C 00323 P.AAU: 

6F 20 70 6F 6F 4C 20 3A 72 6F 72 72 45 20 6C 00332 

2C 74 73 65 74 62 75 53 20 6E 00341 

50 5F 6B 6F 6F 48 20 6C 61 67 65 6C 6C 49 20 0034B 

2F 21 74 6E 69 6F 0035A 

ES= 



07FC 00000 

006 EF 9E 00002 

00G EF 98 00009 

Q0QG EF 9E 00010 

0006 U 9E 00017 

6 EF 9E 0001 E 

G 9F 9E 00025 

Y EF 9E 0002C 

6 Ef 9B 00033 

AC DO 0003A 

52 D1 0003E 




.PSECT DATA,N0WRT,NOEXE, SHR,2 

.ASCII \<!/**QA Internal Error: Loop on Subtest, \ 

.ASCII \ Illegal Hook.PointIA 

P.AAU 



.PSECT C0DE,N0WRT, SHR,2 

.ENTRY QASLOOP ON_SUBTEST, Save R2,R3,R4,R5,R6,R7, 

R8 R9 RTq 

MOVAB QAiA06.CHECK STATE, R10 

MOVAB DSSGL FSTTEST- R9 

MQVAB QASW SAVE JEST, R8 

MOVAB QASAOB_FL*GS, R7 

MOVAB QASAOB~ROUTINE STATE, R6 

MOVAB i*DS*PRlNTF, R5 

MOVAB QAST HEADER 1, R4 

MOVAB DSSGC CLIBASE+32, R3 

MOVL HOOK POINT, R2 

CMPL R2, »18 



0650 



068E 
069C 



ZZ-ENSAA-7,0 

QACHECKS 
6,5-03 



QASLoop On^Subtest 
*** QA Check Routines 
QA$Loop,On_Subtest 



3B 



H 10 
27-JuM9M 
27-JuM984 
26-Jul-1984 



Fiche 11 Frame H10 Sequence 2184 
16:07:41 VAX-11 Bliss-32 V4. 0-742 m , Page 36 
09:41:20 0MA1 :[SYS0.SYSMAINTJQACHECKS.832;67 (28) 



04 
08 



08 A3 000000006 

04 
0C 



06 



000000006 



04 



67 

65 

7E 0000020C 

00000208 

26 



65 



65 

65 
66 

67 
63 

A3 
A3 



4D 
00A6 

60 
40 



67 
EF 
63 
A3 
A3 000000006 



FEB4 

FEE4 

89 



05 
66 

65 

65 

EF 
66 



63 

A3 000000006 

6A 

6A 

66 

67 40 



02 
06 
09 
08 
11 



00041 

00043 

00047 

00049 

Q004C 

00053 

00059 

0005C 

0005 V 

00061 

00064 

00067 

0006B 

0006E 

00071 

00075 

00078 

Q007C 

00080 

00082 

00086 

0008F 

00092 

00096 

0009E 

000A0 

000A3 

000A5 

000A9 

OQQAD 

000AF 

000B3 

m 

si 

000CA 



1$: 



2$: 
3$: 



4$: 
5$: 



6S: 



7$: 



8$: 



9$: 



6NE0 

BBC 

PUSHL 

CALLS 

MOVQ 

PUSHL 

PUSHAB 

CALLS 

CLRL 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

81SB2 

BICB2 

CVTWL 

CVTWL 

MOVL 

BR8 

BISB2 

ADDL3 

MOVL 

MOVL 

M0V2WL 

BRB 

CMPL 

BNEQ 

BBC 

PUSHAB 

BRB 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

PUSHL 

CALLS 

BISB2 

BRB 

TSTL 

BNEQ 

CVTWL 

CVTWl 

bicb; 
eise; 

bisb; 
bicb; 

BRB 

BLEQ 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BLSS 

CMPL 

BLEQ 

CMPL 



3$ 

#5, QA$AOB FLAGS, 1$ 

R4 

#1. DS$PRINTF 

9#*XQ00Q020C, -<SP) 

d# A X00000208 

QA$T HEADER 2 

#4, PSSPRINTF 

-<SP) 

QA$T HEADER 3 

#2, GSSPRINTF 

HEADER LS 

#1, DSlPRlNTF 

#1, QA$A08 ROUTINE_STATE 

#96, 0A$A0fi FLAGS 

QA$W SAVE TEST, DS$GL_CHBASE*32 

QA$U"S AVE TEST, DS$6L^CLIBASE*36 

#1, 5SSGLlCLIBASE*40 

2$ 

#64, QA$A06 FLAGS 

#1, DSSGL SUBTEST. DS$GL CLIBASE+40 

DS$GL_FSTTEST, DS$GL_CLI0ASE+32 

DS$GL FSTTEST, DS$GL CLIBASE+36 

QA$WjUBTESTLOOPS, D5$GL_CLJBASE+44 

11$ 

R2, #5 

6$ 

#2. QA$AOB ROUTINE STATE, 4$ 

CLEANUP ERR0R_MESS*GE 

5$ 

ERROR REPORTED.MESSAGE 

#1, D5$PRINTF 

INFINITE SU8TESTJ1ESSAGE 

#1, DSSPRJNTF 

#3 

#1, QASADD.QA ERROR 

#2. QA$AOB,RO0TINE^STATE 

13i 

R2 

7$ 

QA$W SAVE.JEST, DS$GL_CLIBASE*32 

QA$W~SAVE LAST. DS$6L CLIBASE+36 

#8, OASAOBCHECK STATE 

#16, QA$A0B CHECK STATE 

#8, 0A$A0B ROUTINE.STATE 

#64, QA$A08_FLAGS 

11$ 



8$ 

Hi 
??i 

§• 

R2. 
Hi 
R2, #17 



#2 
#6 
#9 

#11 



0697 
0699 

0700 



0701 



0702 

0704 
0706 
0712 
0713 
0714 
0697 
0737 
0739 
0740 
0741 
0715 
0744 
0746 

0748 
0749 

0751 

0753 

0755 

0756 

0759 

0766 

0767 

0769 

0770 

0771 

0772 

0773 

0779 



ZZ-ENSAA-7,0 

QACHECKS 

6.5-03 









I 1C 


) 




QA$Loop On^Subtest 






27-Jul- 


984 


Fiche 11 F 


*** QA Check Routines 






27-Jut- 


•1984 16:07 


:41 VAX-11 


QASLoop^On Subtest 






26-Jul- 


-1984 09:41 


?20 DMAIiCS 






OF 


13 00101 


BEQL 


11$ 




13 


52 


D1 00103 


CMPL 


R2, #19 






05 


19 00106 


BLSS 


10$ 




15 


52 


D1 00108 


CMPL 


R2, #21 
11$ 






05 


15 0010B 


BLEQ 




18 


52 


D1 0010D 10$: 


CMPL 


R2, #24 

i2i 






04 


12 00110 


BNEQ 




50 


01 


DO 00112 11$: 

04 00115 

9F 00116 12$: 


MOVL 
RET 


#1, RO 






0194 C4 


PUSHAB 


ES 




65 


01 


FB 0011A 


CALLS 


#1, DS$PRINTF 






50 


D4 0011D 13$: 
04 001 1F 


CLRL 
RET 


RO 



Frame HO Sequence 2185 

Bliss-32 V4. 0-742 

DMA1:CSYS0.SYSMAINT3QACHECKS.B32;67 
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0794 

0799 

0802 
0803 



Routine Size: 288 bytes, Routine Base: CODE + 029C 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0804 


1 


; 0805 


1 


; 0806 


1 


; 0807 


1 


; 0808 


1 


; 0809 


1 


; 0810 


1 


; 0811 


1 


; 081? 


1 


; 081 3 


1 


; 0814 


1 


; 0815 


1 


; 0816 


1 


; 0817 


1 


; 0818 


1 


; 0819 


1 


; 0820 


1 


; 0821 


1 


; 0822 


1 


; 0823 


1 


; 0824 


1 


0825 


1 


; 0826 


1 


; 0827 


1 


; 0828 


1 


; 0829 


1 


; 0830 


1 


; 0831 


1 


; 0832 


1 


; 0833 


1 


; 0834 


1 


; 0835 


1 


; 0836 


1 


; 0837 


1 


; 0838 


1 


; 0839 


1 


; 0840 


1 



QASRun Backwards 

*** QA Check Routines 

QA$Run_Backwards 

2SBTTL 'QASRun^Backwards' 

GLOBAL ROUTINE QA$Run_Backwards (Hook.Point) = 

f+ 
FUNCTIONAL DESCRIPTION: 

This routine performs the QA Run Backwards check. 
CALLER(S): 

QASMain 
FORMAL PARAMETERS; 

Hook_Point 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

- QA error detected; unsuccessful return 

1 - No QA errors; successful return 



J 10 
27-Jul-1984 Fiche 11 Frame J10 Sequence 2186 

27-Jul-1984 16:07:41 VAX-11 Bliss-32 V4. 0-742 ^ , Page, 38 

26-JUI-1984 09:41:20 DMA1:CSYS0.SYSMAINT3QACHECKS.832;67 (29) 



The point in the Supervisor from which this; routine 
was called. This is a constant value. The constants are 
defined in the DSQA macro. 



SIDE EFFECTS; 
NONE 



ZZ-ENSAA-7.0 


QACHECKS 




6,5-03 




; 0841 


2 


; 0842 


2 


; 0843 


2 


; 0844 


2 


; 0845 


3 


; 0846 


3 


; 0847 


3 


; 0848 


3 


; 0849 


3 


; 0850 


3 


; 0851 


3 


; 0852 


3 


; 0853 


3 


; 0854 


3 


; 0855 


3 


; 0856 


3 


; 0857 


4 


; 0858 


2 


; 0859 


2 


; 0860 


2 


; 0861 


3 


; 0862 


3 


; 0863 


4 


; 0864 


3 


; 0865 


3 


; 0866 


3 


; 0867 


3 


; 0868 


3 


; 0869 


3 


; 0870 


3 


; 0871 


2 


; 0872 


2 


; 0873 


2 


; 0874 


3 


; 0875 


3 


; 0876 


3 


; 0877 


3 


; 0878 


4 


; 0879 


2 


; 0880 


2 


; 0881 


2 


; 0882 


3 


; 0883 


3 


; 0884 


3 


; 0885 


4 


; 0886 


2 



OASRun.Backwards 

*** QA Check Routines 

QASRun_Bac kwards 



K 10 
27-JuM984 Fiche 11 Frame KlO ^ Sequence 2187 
27-JuM984 16:07:41 VAX-11 Bh'ss-32 V4. 0-742 _ Page 39 



26-Jul-1984 09:41:20 DMA1 :CSYS0.SYS«AINTJQACHECKS.B32;67 



BEGIN 



SELECTONE .Hook.Point OF 

[DSQASK_Start_VRReStart]: ! 

BEGIN 

i The initializations required for this check and that are specific to this check 
! must be done here. 
! + 

$DS PRINTF (QAST HeaderJ); 

$DS~PRINTF <QAST,Header_2, .LSA.NAME, .LSLJiEV, -LSLJJPDATE); 

SDS~PRINTF (QASTjHeadeO, 0); 

SDSlPRINTF (Header JW>; 

QASAOB Routine_State CQA$V.In1t_DoneJ = True; i Done init'ing 
RETURN~(QASK„Success) 

END; 

[DSQASK Error Error J=nd3: 

BEGIN 

IF (, QASAOB Routine State [QASV_Doing_CLeanup]) THEN ! 

$DS PRINTF ICleanup^ErrorJIessage) ! 

ELSE _, x ; 

SDS.PRINTF (Error.ReportedJlessage); ! 

SDS.PRINTF (RunJ3ackwards_Message) ; ! 

QA$Add QA Error (QA$K Run Backwards); 
QA$A0B"Routine_State LQASV_Error_Found] = True 
END; " 



[DSQASK Dispat DSXSEndPassJIid]: ! 
BEGIN " 

QASAOB Check State [QASK Run Backward?] 
QASA0B~Routirie State [QA$V Cfieck..Done] 
OASAOB"Flags [0ASK_Fir$t.jTme] 
RETURN (QASK Success) 
END; 



= Off; 
= True; 
= True; 



For the next check 



CDSQASK Dispat AfterJnitJ: 

BEGIN " 

DSASGL..TESTN0 = .PSSGL.LSTTEST; 

RETURN (QASK Success) 
END; 



Start at the Last requested test number (i.e., 
at V in /TEST:x:y), or else at LSA_TSTCNT. 



(30) 



[01] 



[01] 

[01] 
[01] 
[01] 

[02] 



[01] 



[01] 



[01] 
[01] 

[01] 
[01] 
[01] 



ZZ-ENSAA-7.0 


QACHECKS 




6,5-03 




; 0887 


2 


; 0888 


2 


; 0889 


2 


; 0890 


2 


; 0891 


2 


; 0892 


2 


; 0893 


2 


; 0894 


2 


; 0895 


2 


; 0896 


2 


; 0897 


2 


; 0898 


2 


; 0899 


2 


; 0900 


2 


; 0901 


2 


; 0902 


2 


; 0903 


2 


; 0904 


3 


; 0905 


4 


; 0906 


2 


; 0907 


2 


; 0908 


2 


; 0909 


3 


; 0910 


4 


; 091 1 


2 


; 0912 


2 


; 0913 


3 



3914 1 



QA$Run_Backwards 

*** QA Check Routines 

QA$RunJ3ackwards 

! + 



L 10 
27-Jul-1984 
27-JuM984 
26-Jul-1984 



Fiche 11 Frame L10 Sequence 2188 
16?07:41 VAX-11 Bliss-32 V4. 0-742 , ^ 
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Page 40 
(31) 



END; 



! The following are not used in this check. 
• 

[DSQA$K Dispat_Before_Init, 

DSQASK Dispat.Cal ITest, ! 

DSQASK Dispat_DSX$EndPass_Bgn, ! 

DSQA$K~Dispat.DSX$EndPass_End, ! 

DSQA$K_Dispat_Done_Tests, ! 

DSQA$K_Error_Error..Bgn, ! 

DSQA$K_Loop DSXSBgnSub, 
DSQA$K LoopJ)SX$EndSub, 
DSGA$OoopJ)$X$CkLoop, 

DSQA$K QA DSXSBranchJ: 
"BEGIN 
RETURN (GA$K Success) 
END; 

[OTHERWISE]: 

BEGIN , -% 

Logic Error ('Run Backwards, Illegal Hook^Point') 
END; " 

TBS; 
RETURN (QA$K Failure) 



[01] 
COt] 
[01] 
[01] 

[01] 



61 6E 72 65 
61 42 20 6E 

69 6F 50 5F 



74 6E 49 20 41 51 2A 2A 2f 21 3A 00360 P. AAV: 

75 52 20 3A 72 6F 72 72 45 20 6C 0036F 
49 20 2C 73 64 72 61 77 6B 63 0037E 

6B 6F 6F 48 20 6C 61 67 65 6C 6C 00388 

2F 21 74 6E 00397 

ES= 







003C 00000 


.ENTRY 


55 


000000006 


EF 


9E 00002 


MOVAB 


54 


000000006 


9F 


9E 00009 


MOVAB 


53 


00000000 • 


EF 


9E 00010 


MOVAB 


52 


04 


AC 


DO 0001 7 


MOVL 


12 




52 


Dt 0001 B 


CMPL 






2C 


12 0001 E 


BNEQ 






53 


DD 00020 


PUSHL 


64 




01 


FB 00022 


CALLS 


7E 


0000020C 


9F 


7D 00025 


MOVQ 




00000208 


9F 


DD 0002C 


PUSHL 




26 


A3 


9F 00032 


PUSHAB 


64 




04 


F8 00035 


CALLS 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII \:!/**QA Internal Error: Run Backwards, I\ 

.ASCII Ulegal Hook.Pointi/X 

P. AAV 

.PSECT C0DE,N0WRT, SHR,2 

QASRUN BACKWARDS. Save R2,R3,R4,R5 

QA$A0B"R0UTINE STATE, R5 

a#DS$PR!NTF, R5 

QA$T„HEADERJ. R3 

HOOK POINT, R2 

R2, 118 

1$ 

R3 

#1, DSSPRINTF 

arxooooo2oc -(sp) 

a**X00000208 
QA$T HEADER.2 

#4, BSSPRINTF 



0806 

0842 
0844 

0851 

0852 



ZZ-ENSAA-7.0 

QACHECKS 

6,5-03 



QASRun Backwards 

*** QA'Check Routines 

QA$Run_Backwards 



64 

64 

65 

05 
06 65 

64 

64 

000000006 EF 
65 



H 10 
27-JuM984 
27-Jul-1984 
26-JuM984 



Fiche 11 Frame M10 Sequence 2189 
16:07:41 VAX-11 BLiss-32 V4. 0-742 
09:41:20 0MA1:CSYS0.SYSMAINTJQACHECKS.B32;67 



000000006 
000000006 

0000FE50 



4D 
00C8 



FEQ4 

FEEA 

BE 



EF 
65 
EF 

14 

9F 000000006 

02 
06 
09 
OB 
11 
13 
15 
18 
50 



64 



01D1 



7E 

A3 

02 

C3 

01 

01 

7f 

52 

25 

02 

C3 

04 

C3 

01 

A3 

01 

04 

01 

02 

60 

52 

13 

10 

08 

20 

3E 

52 

OD 

EF 

zc 

52 

05 
52 
21 
52 
1E 
52 
05 
52 
14 
52 
OF 
52 
OA 
52 
05 
52 
04 
01 

C3 
01 
50 



D4 

9F 

FB 

9F 

F8 

88 

11 

D1 

12 

E1 

9F 

11 

9F 

FB 

9F 

FB 

DD 

FB 

88 

11 

D5 

12 

8A 

88 

88 

11 

D1 

12 

DO 

11 

D5 

15 

D1 

15 

D1 
13 
D1 
19 
D1 
15 
D1 
13 
D1 
13 
D1 
13 
D1 
12 
00 
04 
9F 
FB 
D4 
04 



00038 

0003A 

0003D 

00040 

00044 

00047 

0004A 

0004C 

0004F 

00051 

00055 

00059 

0005B 

0005F 

00062 

00065 

00068 

0006A 

00071 

00074 

00076 

00078 

0007A 

00081 

00084 

0008B 

0008D 

00090 

00092 

0009D 

0009F 

OO0A1 

000A3 

000A6 

000A8 

OOOAB 

OOOAD 

OOOBO 

000B2 

00085 

000B7 

OOOBA 

OOOBC 

OOOBF 

000C1 

OOOCA 

0O0C6 

000C9 

OOOCB 

OOOCE 

OOOCF 

000D3 

000D6 

000D8 



1$: 



2$: 
3$: 



4$: 



5$: 



6$: 



7$: 



8$: 



9$: 

10$: 
11$: 



CLRL 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

BISB2 

BRB 

CMPL 

BNEQ 

BBC 

PUSHAB 

BRB 

PUSHAB 

CALLS 

PUSHAB 

CALLS 

PUSHL 

CALLS 

BISB2 

BRB 

TSTL 

BNEQ 

BICB2 

BISB2 

BISB2 

BRB 

CMPL 

BNEQ 

MOVL 

BRB 

TSTL 

BLEQ 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BLSS 

CMPL 

BLEQ 

CMPL 

BEQL 

CMPL 

BEQL 

CMPL 

BEQL 

CMPL 

BNEQ 

MOVL 

RET 

PUSHAB 

CALLS 

CLRL 

RET 



QA$ADD QA ERROR 
QA$AOBlRO0TINE_STATE 



-<SP) 

QA$T HEADER 3 

#2, BSSPRINTF 

HEADER RB 

01, DSSPRINTF 

#1, QA$AOB_ROUTINE_STATE 

9$ 

R2, #5 

4$ 

#2, QA$AOB ROUTINE STATE, 2$ 

CLEANUP.ERROR MESSAGE 

3$ 

ERROR REPORTED MESSAGE 

#1, D5$PRINTF 

RUN BACKWARDS MESSAGE 

#1,~DS$PRINTF 

#4 

*!• 
#2, 

ni 

R2 

5$ 

#16, QA$AOB CHECK STATE 

#8, QASAOB ROUTINE.STATE 

#32, QA$A0B_FLA6S 

9$ 

R2, #20 

6$ 

DSSGL LSTTEST, 3# A X0000FE50 

9$ " 

R2 

7$ 

R2, #2 

9$ 

R2, #6 

9f> 

R2, #9 

8$ 

R2, #11 

9$ 

R2, #17 

9$ 

R2, #19 

9$ 

R2, #21 

9$ 

R2, #24 

10i 

#1, RO 

ES 

#1, DSSPRINTF 

RO 



Page 41 
(31) 

0853 



0854 

0856 
0857 
0860 

0862 
0863 

0865 

0867 

0869 

0870 

0873 

0875 
0876 
0877 
0878 
0881 

0883 
0885 
0891 



0905 

0910 

0913 
091 A 



Routine Size: 217 bytes, Routine Base: CODE + 038C 



N 10 

ZZ-ENSAA-7.0 QASRun^Backwards 27-JuL-1984 _ a ^ Fiche 11 Frame N10 Sequence 2190 

QACHECKS *** QA Check Routines 2?-JuL-1984 16:07:41 VAX-11 Btiss-32 V4.0-742 pa S e # ,f? 

6.5-03 QASRun Backwards 26-Jul-1984 09:41:20 DMA iCSYSO.SYSM, ^T]QACHECKS.832;67 (31) 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0915 


1 


; 0916 


1 


; 0917 


1 


: 0918 


1 


; 0919 


1 


; 0920 


1 


; 0921 


1 


; 0922 


1 


; 0923 


1 


; 0924 


1 


; 0925 


1 


; 0926 


1 


; 092? 


1 


; 0928 


1 


; 0929 


1 


; 0930 


1 


; 0931 


1 


; 0932 


1 


; 0933 


1 


; 0934 


1 


; 0935 


1 


; 0936 


1 


; 0937 


1 


; 0938 


1 


; 0939 


1 


0940 


1 


; 0941 


1 


; 0942 


1 


; 0943 


1 


0944 


1 


; 0945 


1 


; 0946 


1 


; 0947 


1 


; 0948 


1 


0949 


1 



QASRun Backwards 

*** QA~Check Routines 

GASRun Backwards 



B 11 
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XSBTTL 'GASError.Phase.One* 

GLOBAL ROUTINE GASError J>haseJ)ne (Hook.Point) = ! 

+ + 
FUNCTIONAL DESCRIPTION: 

This routine performs Phase One of the OA Error check. 
CALLER(S): 

QASMain 

FORMAL PARAMETERS: 

Hook Point : The point in the Supervisor from which this routine 

was called. This is a constant value. The constants are 
defined in the OSQA macro. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

- QA error detected; unsucces r ful return 

1 - No QA errors; successful return 

SIDE EFFECTS: 



Start of ill 



J 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 0950 


1 


; 0951 


1 


; 0952 


1 


0953 


1 


; 0954 


1 


; 0955 


1 


; 0956 


1 


; 0957 


1 


; 0958 


1 


; 0959 


1 


; 0960 


1 


; 0961 


1 


0962 


1 


; 0963 


1 


; 0964 


1 


; 0965 


1 


; 0966 


1 


; 096? 


1 


0968 


1 


; 0969 


1 


; 0970 


1 


; 0971 


1 


; 0972 


1 


; 0973 


1 


0974 


1 


; 0975 


1 


; 0976 


1 


; 0977 


1 


; 0978 


1 


; 0979 


1 


; 0980 


1 


; 0981 


1 


; 0982 


1 


; 0983 


1 


; 0984 


1 


; 0985 


1 


; 0986 


1 


; 0987 


1 


; 0988 


1 


; 0989 


1 


; 0990 


1 


; 0991 


1 


; 0992 


1 


; 0993 


1 


0994 


1 


; 0995 


1 
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Sequence 2192 



BEGIN 



OWN 



MAP 



LITERAL 



Abort Now : BYTE, 
LastJ3ranch_PC; 



DSS6L..CLIBASE : BLOCK [, BYTE3; 
QA$K_Bad_PC = XX'FFFFFFFF 1 ; 



i When 1, abort the diagnostic 

! The PC of the last branch macro executed 



! Used to set the Last Branch_PC so as to insure 
! that the PC is not found. 



SELECTONE .Hook_Point OF 
SET 

CDSQASK Start VRReStartJ: 
"BEGIN" 
IF (.QA$A08 Flags [OA$K First.Timel) THEN 
BEGIN 

$DS PRINTF (QA$T Header 1); 

$DS~PRINTF (QA$T~Header~2, .LSAJYAME, .L$L_REV, .L$L UPDATE); 
$DS~PRINTF (QA$T~Header~3, 0); i is for the current time 

SDSlPRJNTF CHeader_E1>; 



ELSE 



Last 8ranch_PC - 0; 

Abort Now = False; 

OASAOB Flags [QASKJirst.TimeJ = False; 

QASAOB^Flags [QA$K_No_Header3 = False; 

DS$GL_CLIBASE [CLI$LJ>ASS] = 1; 

DS$GL. CLIBASE CCLISL^SUBT] = 0; 

DSSGL CLIBASE CCLI$L TESTJ = ,QA$U_Save_Test; 

DSSGLlCLIBASE CCLISL.LASTJ = .QA$w_Save_Last; 

QASA0B Routine State CQASV.Init J)oneJ = True; 

END " 

BEGIN 

QA$A0B_F!ags [QASK.No.Header] = True; 



DSSGL CLIBASE [CLI$LJ>ASS] = 1; 

DSSGLlCLIBASE CCLI$L_SUBT] = 0; 

DSSGL CLIBASE [CL1$L,TESTJ = ♦DSA$GL_TestNo; 

DS$GL'CLI8ASE CCLi$L.LAST] = .QA$W_Save_Last; 

END; " 
RETURN (QASK.Success) 
END; 



! Zero means do next error call 
! Do not abort on next one 
i Not first time anymore 
! Print the header only once 

! One pass 

! No looping on subtests 
! First test number 
! Last test number 

! Done initializing 



! Print no more header till done 

! One pass 

! No looping on subtests 
! Set to same test number 
! Last test number 



ZZ-ENSAA- 
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; 0996 


1 


; 0997 


1 


; 0998 


1 


; 0999 


1 


; 1000 


1 


; 1001 


1 


; 1002 


1 


; 1003 


1 


1004 


1 


; 1005 


1 


; 1006 


1 


; 1007 


1 


; 1008 


1 


; 1009 


1 


1010 


1 


1011 


1 


; 1012 


1 


; 1013 


1 


1014 


1 


1015 


1 


; 1016 


1 


1017 


1 


1018 


1 


1019 


1 


; 1020 


1 


1021 


1 


; 1022 


1 


; 1023 


1 


; 1024 


1 


; 1025 


1 


; 1026 


1 


1027 


1 


; 1028 


1 


; 1029 


1 


; 1030 


1 


; 1031 


1 


; 1032 


1 


; 1033 


1 


; 1034 


1 


; 1035 


1 


; 1036 


1 


1037 


1 


1038 


1 


; 1039 


1 


; 1040 


1 


1041 


1 


; 1042 


1 


; 1043 


1 


1044 


1 
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CDSQASK Error Error EndJ: 
"BEGIN 
IF ((.Abort Now) AND (NOT .QASAOB Routine.State CQASV.Doing.CleanupJ)) THEN 

BE6IN 
MAP 

DSASGLJRRNO : WORD; 
+ 
This error call was forced. Add the error number to the forced error summary table 
and abort the diagnostic. This will cause the DSXSAbort routine to branch back to 
the VRReStart routine, and start over again. Note: use the error number that the 
RRepError routine stores in DSA$GL_ErrNo, rather than that passes to the Branch 
routine. The former number is more~accurate. 



In the DS, it is a word. 



! Add another forced error 
! Reset for next time 
! Abort the diagnostic 



ELSE 



QASAdd Forced.Error ( .DSA$6L_ERRN0); 
Abort Row = False; 
DSXSABort (); 

! + 

! The above Abort will not come back to here, 
i _ 

END 

BEGIN 
+ 
This error call was not forced. Therefore, it is a QA error. Print the 
appropriate error message and return Failure. 



IF f.QASAOB Routine State [QA$VJ)oingj:ieanup]) 
SDS'PRJNTF TCleanup Error Jlessage) 

ELSE 

$DS PRINTF (Error_Reported Message); 

QASAdd QA Error (QA$K Error PhaseOne); 

QASA0B Routine State LGA$V^fcrror_Found3 = True; 

END; 



THEN 



Return Failure. 



END; 

[DSGASK Dispat Done Tests}: 
"BEGIN " 

+ 

We have done all the tests. 
the initialization code are 

Abort Now = False; 
Last Branch PC = QA$K Bad.PC; 
RETURN (QA$R Success)" 
END; 



Set Abort,.Now to 
not done again. 



False so that the error macros in 



ZZ-ENSAA- 


7.0 


QACHECKS 
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; 1045 


1 


1046 


1 


; 1047 


1 


1048 


1 


; 1049 


1 


; 1050 


1 


1051 


1 


; 1052 


1 


; 1053 


1 


1054 


1 


; 1055 


1 


; 1056 


1 


; 1057 


1 


; 1058 


1 


; 1059 


1 


; 1060 


1 


; 1061 


1 


; 1062 


1 


; 1063 


1 


1064 


1 


; 1065 


1 


; 1066 


1 


; 1067 


1 


; 1068 


1 


; 1069 


1 


; 1070 


1 


1071 


1 


; 1072 


1 


1073 


1 


1074 


1 


1075 


1 


1076 


1 


1077 


1 


; 1078 


1 


; 1079 


1 


1080 


1 


; 1081 


1 


; 1082 


1 


; 1083 


1 


; 1084 


1 


; 1085 


1 


; 1086 


1 


; 1087 


1 


; 1088 


1 


; 1089 


1 
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[DSQASK Dispat DSX$EndPass_Mid]: 
"BEGIN " 
QA5A0B Check State [QASK.Error^Phase.OneJ = Off; 
QA$AOB*"Check~State CQASK Error,Phase,TwoJ = On; 
QA$ACBlFLags"[QA$Mo_Header3 = False; 

QA$Print_Forced_Errors (); 

QASAOB Routine State CQASV.Check.DoneJ = True; 

RETURN"(QA$K Success) 

END; 

CDSQASK QA DSX$Branch3: 
"BEGIN 
LOCAL 

Frame Start, 
Saved^PC; 

IF (NOT QASFind User Call Frame (Frame^Start)) THEN 
RETURN 7QA$Oailure); 



! Stop Phase One check. 
! Start Phase Two check, 
i Print headers again. 

I Print the table. 

! Indicate end of this check. 



BEGIN 



END; 



BIND 

CalLFrame = -Frame^Start : BLOCK [, BYTE3; 

Saved.PC = .Call_Frame CSFSL.SAVE^PCD 



IF (.Last Brancn PC EQL 0) THEN 

BEGIN 

Last_Branch_PC = .Saved.PC; 

Abort Now = True; 

QA$W Branch = Boolean (NOT .QA$W Branch); 

END " 
ELSE IF (.Last Branch_PC EQL .Saved_PC) THEN 

BEGIN " 

Last Branch PC = 0; 

END;" 

ELSE: 

I have not yet found the correct branch macro. Keep looking. 

RETURN (QA$K Success) 
END; 



ZZ-ENSAA- 
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; 1090 


1 


1091 


1 


; 1092 


1 


; 1093 


1 


1094 


1 


; 1095 


1 


; 1096 


1 


; 1097 


1 


; 1098 


1 


; 1099 


1 


; 1100 


1 


1101 


1 


; 1102 


1 


; 1103 


1 


1104 


1 


1105 


1 


; 1106 


1 


; 1107 


1 


; 1108 


1 


1109 


1 


; 1110 


1 


; 1111 


1 


; 1112 


1 


; 1 i 1 3 


1 


; 1114 


1 


1115 


1 


; 1116 


1 


; 1117 


1 


1118 


1 


1119 


1 


1120 


1 


1121 


1 


; 1122 


1 
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The following are not used in this check. So, just return Success for them. 



[DSQASK Dispat Before Init, 
DSQA$K"Dispat~After.Jnit, 
DSQA$K""DispcjtICallTest, 
DSQA$K~Dispat DSX$EndPass_Bgn, 
DSQA$OispatJ>SX$EndPass_End, 



END; 



DSQA$K_E r ror_Error_Bgn , ! 

DSQASK Loop DSXSBgnSub, 
DSQA$K"LooplDSX$EndSub, 
DSQASK Loop DSXSCkLoop]: 
"BEGlR 

RETURN (QASK.Success) 

END; 

[OTHERWISE!: 

BEGIN 

Logic Error ('Error Phase 0ne # Illegal Hook^Point*) 

END; 
TES; 

Come to here only i f a QA error was found. Return QA$K_Failure to QASMain, which then takes 
the appropriate action. 

RETURN (QA$K_Failure) 



LOU 

con 
con 



ZZ-ENSAA-7,0 

QACHECKS 

6.5-03 



1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 

mo 

1141 
1142 
1143 
1144 

1145 
1146 
1147 
1148 

1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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XSBTTL 1 QA$Error.Phase - Two l 

GLOBAL ROUTINE QA$ErrorJ>hase_Two (HookJ>oint) = 

++ 

FUNCTIONAL DESCRIPTION: 

This routine performs Phase Two of the QA Error check, 
CALIER(S): 

QASMain 
FORMAL PARAMETERS: 



The point in the Supervisor from which this routine 
was called. This is a constant value. The constants ^rQ 
defined in the DSQA macro. 



Hook^Point 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

- GA error detected; unsuccessful return 

1 - No QA errors; successful return 

SIDE EFFECTS: 



BEGIN 
END; 



RETURN (QASK.Failure) 



ZZ-ENSAA- 


7.0 


QACHECKS 




6.5-03 




; 1163 


1 


; 1164 


1 


; 1165 


1 


; 1166 


1 


; 1167 


1 


; 1168 


1 


; 1169 


1 


; 1170 


1 


; 1171 


1 


; 1172 


1 


; 1173 


1 


; 1174 


1 


; 1175 


1 


; 1176 


1 


; 1177 


1 


; 1178 


1 


; 1179 


1 


; 1180 


1 


; 1181 


1 


; 1182 


1 


; 1183 


1 


; 1184 


1 


; 1185 


1 


; 1186 


1 


1187 


1 


; 1188 


1 


; 1189 


1 


; 1190 


1 


1191 


1 


; 1192 


1 


; 1193 


1 


; 1194 


1 


; 1195 


1 


; 1196 


1 


; 1197 


1 


; 1198 


1 


1199 


1 


; 1200 


1 


; 1201 


1 


; 1202 


1 
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XSBTTL •QASError^Phase^TKree 1 

GLOBAL ROUTINE QA$Error_Phase_Three <Hook_Point) = 

FUNCTIONAL DESCRIPTION: 

This routine performs Phase Three of the QA Error check. 
CALLER(S): 

QASMain 
FORMAL PARAMETERS: 

Hook Point : The point in the Supervisor from which this routine 

was called. This is a constant value. The constants are 
defined in the DSQA macro. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

- QA error detected; unsuccessful return 

1 - No QA errors; successful return 

SIDE EFFECTS: 



BEGIN 
END; 



RETURN <QA$K_Failure) 



ZZ-'.NSAA-7.0 

QACHECKS 

6,5-03 

1203 1 

1204 1 

1205 



End of Module QACHECKS 
*** QA Check Routines 
End of Module QACHECKS 

XSBTTL 'End of Module QACHECKS 

END ELUDOM 



I 11 
27-JuM984 
27-JuM9M 
26-Jul-1984 



16:07:41 
09:41:20 



Fiche 11 Frame 111 
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PSECT SUMMARY 



Name 



Bytes 



DATA 
CODE 
WORK 



923 NOVECN0WRT, RD 

1173 NOVECNOWRT, RD 

2 NOVEC, WRT, RD 



Attributes 

,N0EXE, SHR, 
, EXE, SHR, 
,N0EXE,N0SHR, 



LCL, 
LCL. 
LCL, 



REL, 
REL, 
REL, 



C0N,N0PIC,ALIGN(2) 
C0N,N0PIC,ALIGN<2) 
CGN,N0PIC,ALIGN<2) 



L ibrary Statistics 



File 

DRB1:CDS.W0RK]D1AG.L32;265 

DRB1:CDS.WORK3DS.L32;159 

SYS$SYSR00T:CSYSLIB3LIR.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 

8 
7 
3 



Percent 



Pages 
Mapped 

85 

42 

975 



Processing 

Time 

00:00.2 
00:00.2 
00:04.8 



COMMAND QUALIFIERS 

BLlSS/NOOBJECT/LIST=[DS.LISJ/OPTIMIZE= (LEVEL :3,SPACE)/DEBUG/TRACE QACHECKS 

Size: 1173 code + 925 data bytes 

Run Time: 00:30.0 

Elapsed Time: 01 :56.7 

Lines/CPU Min: 2411 

Lexemes/CPU-Min: 22040 

Memory Used: 152 pages 

Compilation Complete 



ZZ-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 
U008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 



*** Setting and Showing QA Flags 
*** Setting and Showing QA Flags 

XTITLE ***+ Setting and Showing QA Flags* 
MODULE QAFLAGS ( 

IDENT = '6. 6-04* 

) = 



J 11 
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16:09:42 
09:41:21 
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Sequence 2199 
VAX-11 Bliss-32 V4. 0-742 ^ At Page 1 
DMA1:CSYS0.SYSMAINTJQAFLAGS.B32;14 <1> 



COPYRIGHT (c) 1979, 1981, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

FACILITY: DIAGNOSTIC SUPERVISOR 

ABSTRACT: 

This module contains the routines required to SET and SHOW the 
various QA flags. 

AUTHOR: 

Jack Stansbury 
CREATION DATE: 

25-0ctober-1981 
MODIFIED: 



01 
02 



03 

04 



Jack Stansbury, 21-Nov-1981, Version 6.5 

Added INITIAL attributes to the flag word storage. 

Jack Stansbury, 14-Jan-1982, Version 6.6 
Changed the lower limit on the QASUBTESTLOOPS DS flag from 
1 to 2. This makes the Loop_0n Subtest routine much easier. 
Also changed the Out of Range message to say greater than or 
equal to" rather than just "greater than". 

Jack Stansbury, 20-Jan-1983, Version 6.11 

Took out all references to CkLoopLoops and ErrorPrints. 

Bob Bergazzi May 17, 1983 Version 6.11 
Changed the order of searching libraries. 



ZZ-ENSAA-7.0 

QAFLAGS 
6.6-04 

0057 1 

0058 1 

0059 1 

0060 1 

0061 1 

0062 1 

0063 1 

0064 1 

0065 1 

0066 1 

0067 1 



*** Setting and Showing QA Flags 
*** Setting and Showing QA Flags 
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BEGIN 

XSBTTL 'Libraries' 

LIBRARIES: 



LIBRARY •SDIAG 1 ; 

LIBRARY 'SOS'; 

LIBRARY l SYS$LIBRARY:LIB ( ; 



[041 
C04] 



ZZ-ENSAA-7.Q 

OAFLAGS 

6.6-04 

0068 1 

0069 1 

0070 1 

0071 1 

0072 1 

0073 1 

0074 1 

0075 1 



Table of Contents 

*** Setting and Showing QA Flags 

Table of Contents 

XSBTTL 'Table of Contents 1 



L 11 

27-JuM984 
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Fiche 11 Frame Li 1 Sequence 2201 
16:09:42 VAX-11 Bliss-32 V4. 0-742 Page ,3 

09:41:21 DMA1 :[SYS0.SYSMAINT]QAFLAGS.B32;H (3) 



TABLE OF CONTENTS: 



FORWARD ROUTINE 
VRSetQA 
VRShowQA 



JSB.CLJ, 
JSB.CLJ; 



ZZ-ENSAA-7.Q 

QAFLA6S 

6.6-04 

0076 1 

0077 1 

0078 1 

0079 1 

0080 1 

0081 1 

0082 1 

0083 1 

0084 1 

0085 1 

0086 1 

0087 1 

0088 1 

0089 1 

0090 1 

0091 1 

0092 1 

0093 1 

0094 1 



Psect Definitions 

*+* Setting and Showing QA Flags 

Psect Definitions 

XSBTTt 'Psect Definitions' 

PSECT DEFINITIONS! 



M 11 
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PSECT 

PSECT 
PSECT 

PSECT 



PL it = Data (NoExecute, Share, NoWrite, 

Addressing.Mode (Long_Relative)) ; 



Code = Code (Execute, Share, NoWrite); 



Own = Work (NoExecute, NoShare, Write, t 

Addressing.Mode (Long^Relati ve)); 

Global = Work (NoExecute, NoShare, Write, 

Address ingjlode (Long_Relative)); 



ZZ-ENSAA- 
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QAFLAGS 
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; 0095 


1 


; 0096 


1 


; 0097 


1 


; 0098 


1 


; 0099 


1 


; 0100 


1 


; 0101 


1 


; 0102 


1 


; 0103 


1 


; 0104 


1 


; 0105 


1 


0106 


1 


; 0107 


1 


; 0108 


1 


0109 


1 


; 0110 


1 


; 0111 


1 


; 0112 


1 


; 01 1 3 


1 


; 0114 


1 


; 0115 


1 


; 0116 


1 


; 0117 


1 


; 0118 


1 


0119 


1 


; 0120 


1 


; 0121 


1 


; 0122 


1 


; 0123 


1 


; 0124 


1 



Literals 

*** Setting and Showing QA Flags 

Literals 

XSBTTL 'Literals 1 

MODULE-GLOBAL LITERALS: 

LITERAL 

QA$K TestLoops_Def 
QA$K_SubtestLoops Def 
QASK MuLtiplePassJ)ef 
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QA$K. Success 
QA$K_Failure 



= 100, 
= 100, 
= 10, 

= 1. 

= 0; 



! Defaults for the 5 QA flags 



! Routine Success or 
! Failure 



LITERAL 



Shorthand forms for the QA flags 

TL => TestLoops 
SI => SubtestLoops 
MP => MultiplePass 



QATL_Low 
QATLJ-Hgh 

QASL^Low 
GASL.High 

DAMP Low 
QAMP_High 



= 1 



= 3$767,i 



2, \ 
32767,! 



= 1 



= 3^767; ! 



Lower 
Upper 

Lower 
Upper 

Lower 
Upper 



limit 
limit 



of QATESTL0OPS 
of QATESTL00PS 



limit of QASUBTESTL00PS 
limit of QASUBTESTL00PS 

limit of QAMULTJPLEPASS 
Urn:* of QAMULTIPLEPASS 



[023 



ZZ-ENSAA- 


7.0 
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fc.6-04 




; 0125 


1 


; 0126 


1 


; 012? 


1 


; 0128 


1 


; 0129 


1 


; 0130 


1 


; 0131 


1 


; 0132 


1 


; 0133 


1 


; 01 34 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 



Statu Storage 

**» Setting and Showing QA Flags 

Static Storage 

XSBTTL •Static Storage 1 

MODULE -GLOBAL DECLARATIONS: 



B 12 

27-JuMW 
2?-Jul-1984 

26-Jul-1984 



16:09:42 
09:41:21 



Fiche 11 Frame B12 



Sequence 2204 
VAX-11 BUss-32 V4. 0-742 Page 6 

DMAl:£SYS0.SYSMAINT]QAFLAGS.B32;t4 (6) 



GLOBAL 



For storing the current values of tHe OA flags. 



QAVw.TestLoops 
QASU SubcestLoops 
QA$W_MultiplePass 



WORD INITIAL 
WORD INITIAL 
WORD INITIAL 



(QA$K_TestLoops_Def>, 
(QA$K SubtestLoops^Def), 
<QA$KJ1uttiplePassJ>et>; 



ZZ-ENSAA-7,0 

QAFLAGS 

t.6-04 



0138 
0139 
OHO 
0141 
0142 
0143 
0144 
0145 



Global Bindings 

*** Setting and Showing QA Flags 

Global Bindings 

XSBTTL •Global Bindings 1 

Module-Global Bindings 

BIND 

QAMP Out = SASCIC ( 'CAMUITIPLEPASS' ) , 

QATL'Out = SASCIC ( 'QATESTLOOPS') , 

QASL~0ut = SASCIC ( , QASU8TESTL00PS t ); 



C 12 
27-Jul-1984 
27-Jul-1984 

26-Jul-1984 



Fiche 11 Frame C12 



_ . _ Sequence 2205 

16:09:42 VAX-11 Bliss-32 V4. 0-742 Page 7 

09:41:21 DMA1 :CSYS0*SYSMA1NTJQAFLAGS.B32;14 (7) 



ZZ-ENSAA- 


7.0 


QAFLAGS 




6.6-04 




; 0146 


1 


0147 


1 


; 0148 


1 


; 0149 


1 


; 0150 


1 


; 0151 


1 


; 0152 


1 


; 0153 


1 


; 0154 


1 


; 0155 


1 


; 0156 


1 


; 01 57 


1 


; 0158 


1 


0159 


1 


; 0160 


1 


0161 


1 


; 0162 


1 


; 0163 


1 


; 0164 


1 


0165 


1 


; 0166 


1 


; 0167 


1 


; 0168 


1 


; 0169 


1 


; 0170 


1 


; 0171 


1 


; 0172 


1 


; 0173 


1 


01 74 


1 


0175 


1 


01 76 


1 


0177 


1 


; 01 78 


1 


0179 


1 


0180 


1 


; 0181 


1 


; 0182 


1 



VRSetQA 

*** Setting and Showing QA Flags 

VRSetQA 

XSBTTL 'VRSetQA' 

GLOBAL ROUTINE VRSetQA (Cli.Base) : JSB_CLI = 

FUNCTIONAL DESCRIPTION: 

This routine is called from the CLI module. It sets the specified 
QA flag to the requested value (within limits). 

CALLER(S): 

CLI 
FORMAL PARAMETERS: 

R2 - Points co the CLI data table base, 

IMPLICIT INPUTS: 

Cli Base [CLI$L FLAGSJ * Indicates which flag to change. 

ClilBase CCLI$Lj)ATA:i - Indicates the new desired value of the flag. 

IMPLICIT OUTPUTS: 

New value(s) for the QAx variables declared above. 

COMPLETION CODES: 

- Failure, value out of range. 

1 - Success. 

SIDE EFFECTS: 

Changes the value of the specifed flag, iff the value requested is 
within range. 



12 
27-Jul-1984 Fiche 11 Frame D12 Sequence 2206 

27-Jul-1984 16:09:42 VAX-11 Bliss-32 V4. 0-742 _ Page 8 

26-Jul-1984 09:41:21 0MA1 :CSYS0.SYSMAINTJQAFLAGS.B32;H (8) 



ZZ-ENSAA- 


7.0 


QAFLAGS 




6.6-04 




; 0183 


1 


; 0184 


2 


; 0185 


2 


; 0186 


2 


; 0187 


2 


; 0188 


2 


; 0189 


2 


; 0190 


2 


; 0191 


2 


; 0192 


2 


; 0193 


2 


0194 


2 


0195 


2 


; M 0196 


2 


; M 0197 


2 


; M 0198 


2 


; M 0199 


2 


; M 0200 


2 


; M 0201 


2 


; M 0202 


2 


; M 0203 


2 


; M 0204 


2 


; M 0205 


2 


; M 0206 


2 


; M 0207 


? 


; M 0208 


2 


; M 0209 


2 


; M 0210 


2 


; M 0211 


2 


; M 0212 


2 


; M 0213 


2 


; N 0214 


2 


; 0215 


2 



VRSetQA 

*** Setting and Showing QA Flags 

VRSetQA 



E 12 
27-Jul-1984 Fiche 11 Frame E12 Sequence 2207 

27-Jul-1984 16:09:42 VAX-11 Bliss-32 V4. 0-742 Page 9 

26-JuL-1984 09:41:21 DMA1 :ESYS0.SYSMA1NT]QAFLAGS.B32;14 (9) 



BEGIN 



MAP 

LOCAL 

BIND 

MACRO 



Cli Base : REF BLOCK [, BYTEJ; 



New_Value; 



0ut_0f_Range Message = t t , ........ 

SASClC (*!AC must be greater than or equal to iUW and less than or equal to JUW.!/') 



Check 



Case (Short Name* Data Name, Cli Name) = 
" C.Cli Base [*NAME ("ILISV \ cTi^Name)3:: 
" IF ( 

(.New Value LSS XNAME (ShortJJame, '.Low 1 )) 

OR 
(.New.Value GTR XNAME (Short.Name, '.High')) 
) 



THEN 



ELSE 



Z; 



BEGIN 

$DS PRINTF ( 

Out Of Range Message, 
XNAHE 7short_Name, '.Out'), 
XNAME (Short.name, '.Low*). 
XNAME (Short.Name, '.High') 

); 

RETURN (QA$K_Failure) 
END 

DataJYame = ,New_Value 



ZZ-EMSAA- 


7.0 


QAFLAGS 




6.6-04 




; 0216 


2 


; 0217 


2 


; 0218 


2 


; 0219 


2 


; 0220 


2 


; 0221 


2 


; 0222 


2 


; 0223 


2 


; 0224 


2 


; 0225 


2 


; 0226 


2 


; 0227 


2 


; 0228 


3 


; 0229 


3 


; 0230 


3 


; 0231 


3 


; 0232 


3 


; 0233 


2 


; 0234 


2 


; 0235 


3 



VRSetQA 

*** Setting and Showing QA Flags 

VRSetQA 



NewJ/alue = .Cli.Base [CLJSL.DATAIl; 



F 12 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 11 Frame F12 Sequence 2208 
16:09:42 VAX-11 Bliss-32 V4. 0-742 
09:41:21 DMA1:[SYS0.SYSMAINT]QAFLAGS.832;14 



Page 10 
(10) 



0236 1 



END; 



SELECTONE 1 OF 
SET 

Check Case (CATL, QA$W_TestLoops, QATestLoops); 

Check~Case (QASL, QASW SubtestLoops, QASubtestLoops); 

Check"Case (QAMP, QASVfMultiplePass, QAMultiplePass); 

C.ClTBase [CLJSV.DEFADLTJ3: 

Set all of them to their defaults: 

BEGIN 

QA$U TestLoops = QA$K TestLoops_Def ; 
QA$W~SubtestLoops = QA$K_SubtestLoops_Def; 
QASW~MultiplePass = QA$K MultiplePassJ)ef 

END m 
TES; 

RETURN (QASK^Success) 



.TITLE OAFLAGS +** Setting and Showing OA Flags 
.IDENT \6.6-04\ 

.PSECT U0RK,N0EXE,2 



0064 00000 QASUBTESTLOOPS:: 

.WORD 100 

0064 00002 QASW SUBTESTL00PS: : 

.WORD 100 

000A 00004 QASW.MULTIPLEPASS:: 

.WORD 10 



53 53 41 50 45 4C 50 49 54 AC 55 AD 41 51 0E 00000 P. AAA 

53 50 4F 4F 4C 54 53 45 54 41 51 08 O0O0F P.AAB 

53 50 4F 4F 4C 54 53 45 54 42 55 53 41 51 0E 0001B P.AAC 

72 67 20 65 62 20 74 73 75 6D 20 43 41 21 49 0002A P.AAD 

65 20 72 6F 20 6E 61 68 74 20 72 65 74 61 65 00039 

55 21 20 6F 74 20 6C 61 75 71 00048 

6E 61 68 74 20 73 73 65 6C 20 64 6E 61 20 57 00052 

55 21 20 6F 74 20 6C 61 75 71 65 20 72 6F 20 00061 

2F 21 2E 57 00070 



.PSECT DATA,N0WRT,NOEXE, SHR,2 

.ASCI I <14>\QAMULTIPLEPASS\ 

.ASCII <11>\QATESTLOOPS\ 

.ASCII <14>\QASUBTESTLOOPS\ 

.ASCII \I!AC must be greater than or equal to !U\ 



.ASCII \W and less than or equal to !UW,!/\ 



QAMP 0UT= P. AAA 

QATL 0UT= P.AAB 

QASL~0UT= P.AAC 

OUT OF RANGEJiESSAGE = 

P AAD 
.EXTRN DSSPRJNTF 



.PSECT C0DE,N0WRT, SHR,2 



53 DD 00000 VRSETQA:: 



ZZ-ENSAA-7.0 

QAFLAGS 
6.6-04 



VRSetQA 

*** Setting and Showing QA Flags 

VRSetQA 



23 



53 

62 



1C 



26 



0G007FFF 8F 

7E 7FFF 

00000000 • 

00000000' EF 

62 
02 

00007FFF 8F 

7E 7FFF 

00000000 • 

00000000 1 EF 



0000?TFF 



8F 
7E 



OOOOOOOOG 9F 
00000000' EF 



7FFF 

00000000 ' 
00000000 • 



12 



00000000' 

oooooooo 1 



62 

EF 00640064 

EF 

50 



A2 


DO 


1D 


E1 


09 


15 


53 


01 


OF 


15 


8F 


3C 


01 


DD 


EF 


9F 


51 


11 


53 


BO 


76 


11 


1E 


E1 


53 


D1 


09 


19 


53 


D1 


OF 


15 


8F 


3C 


02 


DD 


EF 


9F 


27 


11 


53 


BO 


AC 


11 


62 


D5 


32 


18 


53 


D5 


09 


15 


53 


D1 


1C 


15 


8F 


3C 


01 


DD 


EF 


9F 


EF 


9F 


04 


FB 


V* 


11 


53 


BO 


16 


11 


OC 


E1 


8F 


DO 


OA 


BO 


01 


DO 


02 


11 


50 


D4 


08 


BA 




05 



G 12 
27-Jul-1984 
27-Jul-1984 
26-JuM984 



Fiche 11 Frame 612 Sequence 2209 
16:09:42 VAX-11 Bh'ss-32 V4. 0-742 
09:41:21 DMA1 :CSYS0.SYSMAINT3GAFLAGS.B32;14 



00002 

00006 

OOOOA 

OOOOC 

00013 

00015 

0001A 

0001 C 

00022 

00024 

0002B 

0002D 

00031 

00034 

00036 

0003D 

0003F 

00044 

00046 

0004C 

0004E 

00055 

00057 

00059 

0005B 

0005D 

0005F 

00066 

00068 

0006D 

0006F 

00075 

0007B 

00082 

00084 

0008B 

0008D 

00091 

0009C 

000A3 

O0OA6 

000A8 

OOOAA 

OOOAC 



PUSHL R3 

MOVL 28(CLJ BASE), NEW VALUE 

BBC #29, (CUBASE), 3$ 

BLEQ 1$ 

CMPL NEW^VALUE, #32767 

BLEQ 2$ 

1$: MOVZWL #32767, -(SP) 

PUSHL #1 

PUSHAB QATLJHJT 

BRB 8$ 

2$: MOVW NEW, VALUE, QA$W_TESTL00PS 

BRB 1 1 $ 

3$: BBC #30, (CLi.BASE), 6$ 

CMPL NEW, VALUE, #2 

BLSS 4$ 

CMPL NEW VALUE, #32767 

BLEQ 5$ 

4$: MOVZWL #32767, -(SP) 

PUSHL #2 

PUSHAB QASL OUT 

BR8 8$ 

5$: MOVW NEW, VALUE, QA$W,SUBTESTLQOPS 

BRB 11$ 

6$: TSTL (CLI.BASE) 

BGEQ 10$ 

TSTL NEW VALUE 

BLEQ 7$ 

CMPL NEW.. VALUE, #32767 

BLEQ 9$ 

7$: MOVZWL #32767. -(SP) 

PUSHL #1 

PUSHAB QAMP OUT 

8$: PUSHAB OUT 5F RANGE MESSAGE 

CALLS #4. a#DS$PRlBTF 

BRB 12$ 

9$: MOVW NEW, VALUE, QA$W,MULTIPLEPASS 

BRB 11$ 

10$: BBC #12, (CLI.BASE), 11$ 

MOVL #6553700, QASW TESTLOOPS 

MOVW #10, QA$W_MULTlPLEPASS 

11$: MOVL #1, RO 

BRB 13$ 

12$: CLRL RO 

13$: POPR #*M<R3> 

RSB 



Page 11 
(10) 

0148 
0217 
0221 



0222 



0223 



0224 
0229 
0231 
0235 

0236 



Routine Size: 173 bytes, Routine Base: CODE + 0000 



0237 1 



ZZ-ENSAA- 


7.0 


QAFLAGS 




6.6-04 




; 0238 


1 


; 0239 


1 


; 0240 


1 


; 0241 


1 


; 0242 


1 


; 0243 


1 


; 0244 


1 


; 0245 


1 


; 0246 


1 


; 0247 


1 


; 0248 


1 


; 0249 


1 


; 0250 


1 


; 0251 


1 


; 0252 


1 


; 0253 


1 


; 0254 


1 


; 0255 


1 


; 0256 


1 


; 0257 


1 


; 0258 


1 


; 0259 


1 


; 0260 


1 


; 0261 


1 


; 0262 


1 


; 0263 


1 


0264 


1 


; 0265 


1 


; 0266 


1 


; 0267 


1 


; 0268 


1 


; 0269 


1 


; 0270 


1 


; 0271 


1 



VRShowQA 

*** Setting and Showing QA Flags 

VRShowQA 

XSBTTL 'VRShowQA 1 

GLOBAL ROUTINE VRShowQA (Cli_8ase) : JSB.CLI = 

FUNCTIONAL DESCRIPTION: 

This global routine is called from the CL1 module. It shows the 
current value of the specified QA flag, 

CALLER(S): 

CLI 
FORMAL PARAMETERS: 

R2 - Points to the CLI data-table base. 
IMPLICIT INPUTS: 

Cli^Base CCLISL.FLAGSJ - Indicates which flag to "SHOW 11 . 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

1 - Success. 
SIDE EFFECTS: 

NONE 



H 12 
27-Jul-1984 Fiche 11 Frame H12 Sequence 2210 

27-Jul-1984 16:09:42 VAX-11 Bliss-32 V4. 0-742 _ Pa 9 e ,J? 

26-Jul-1984 09:41:21 DMA1:CSYS0.SYSMAINT;)QAFLAGS.B32;14 (11) 



ZZ-ENSAA- 


7.0 


VRShowQA 


QAFLAGS 




*** Setting 


6.6-04 




VRShowQA 


; 0272 


1 




; 0273 


2 


BEGIN 


; 0274 


2 


MAP 


; 0275 


2 




; 0276 


2 




; 0277 


2 


BIND 


; 0278 


2 




; 0279 


2 




; 0280 


2 




; 0281 


2 




; 0282 


2 


MACR 


; M 0283 


2 




; M 0284 


2 




; M 0285 


2 




; M 0286 


2 




; M 0287 


2 




; 0288 


2 





and Showing QA Flags 



I 12 
27-Jul-1984 
27-Jul-1984 
26-Jul-1934 



16:09:42 
09:41:21 



Fiche 11 Frame 112 



Sequence 2211 
VAX-11 Bliss-32 V4. 0-742 Page 13 
DMA1:ESYS0.SYSMAINTDQAFLAGS.B32;14 (12) 



Cli.Base : NEF BLOCK [, BYTE3; 



Output String = SASCJC C!AC is set to WW,!/ 1 ), 
Default„String = SASCIC ('The default for !AC is JUW.i 



!/'); 



Check Case (Short Name. Data Name, CLi Name) = 
" C.Cli..Base CXNAME CZlltV' t CTi\Name)33: 
SDSJWNTF (Outpu? String, 

XNAME TShort.Name, '.Out'), 
.Data_Name) 



X; 



ZZ-ENSAA- 


7.0 


QAFLAGS 




6.6-04 




; 0289 


2 


; 0290 


2 


; 0291 


2 


; 0292 


2 


; 0293 


2 


; 0294 


2 


; 0295 


2 


; 0296 


3 


; P 029? 


3 


; 0298 


3 


; 0299 


3 


; P 0300 


3 


; 0301 


3 


; 0302 


3 


; P 0303 


3 


; 0304 


4 


; 0305 


2 


; 0306 


2 


; 0307 


2 


; 0308 


3 



VRShowQA 

*** Setting and Showing QA Flags 

VRShowQA 



OF 



J 12 
27-Jul-1984 
27-JuM984 
26-Jul-1984 



Fiche 11 Frame J12 Sequence 2212 

16:09:42 VAX-11 Btiss-32 V4. 0-742 
09:41:21 DMAhCSYS0.SYSMAINT3QAFLAGS^32;14 



Page 14 
(13) 



SELECTQNE 1 
SET 

Check^Case 
Check^Case 
Check Case 



(QATL, GA$W TestLoops, QATestLoops); 
(QASL, QASW^SubtestLoops, QASubtestLoops); 

„.,„_ (CAMP, QA$W MultiplePass, UAMuttiplePass); 

C.ClilBase [CLI$V^DEFADLT]:: 
BE6IN 

$DS PRINTF (Default String, QAMP Out, 
QA$K_MuTtipl»PassJ>eT>; 



TES; 



SDS.PRINTF (Default_String, QATL^Out, 
QA$K_TestLoops_Def ) ; 

$DS PRINTF (Default String, QASL Out, 

QA$K SuEtestLoopsJ)e?> 
END; 



0309 1 



END; 



RETURN (QA$K_Success) 



20 6F 74 20 74 65 73 20 73 69 20 43 41 21 14 00074 P.AAE: 

2^ 21 2E 57 55 21 00083 

6F 66 20 74 6C 75 61 66 65 64 20 65 68 54 1D 00089 P.AAF: 

2F 21 2E 57 55 21 20 73 69 20 43 41 21 20 12 00098 



.PSECT 
.ASCII 
.ASCII 



OUTPUT STRING^ 
DEFAULT_STRIN6= 



DATA,N0WRT,NOEXE, SHR,2 
<20>\!AC is set to !UW.!A 
<29>\The default for !AC is SUM.! A 



P.AAE 
P.AAF 



.PSECT C0DE,N0WRT, SHR,2 



OF 



OF 



62 

7E 00000000' 
00000000 • 

62 

7E 00000000' 
00000000 • 



7E 00000000 • 
00000000 ' 
00000000 • 



1D El 00000 



43 



62 



000000006 9F 



00000000* 
00000000 • 



EF 
EF 
24 
1E 
EF 
EF 
11 
62 
15 
EF 
EF 

^ 
40 
OC 
OA 
EF 

55 



3C 
9F 
11 
E1 
3C 
9F 
11 
05 
18 

9F 
11 
E1 
DD 
9F 
9F 
FB 



00004 
O00OB 
00011 
00013 
92017 
0001 E 
00024 
00026 
!8 
!A 

;i 

I7 
JO 
0003F 
00043 
00045 

m 



VRSHOWQA:: 
BBC 



•» 




1$: 



2$: 



3$: 
4$: 



MOVZWL 

PUSHAB 

BR8 

BBC 

MOVZWL 

PUSHAB 

BRB 

TSTL 

BGEQ 

MOVZWL 

PUSHAB 

PUSHAB 

BRB 

BBC 

PUSHL 

PUSHAB 

PUSHAB 

CALLS 



#29, (CLI BASE), 1$ 

QASW^TESTCOOPS, -<SP> 

OATLJHJT 

3$ 

#30, (CLI BASE), 2$ 

QA$W_SUBTESTtOOPS, «(SP> 

QASL^OUT 

(CLI..BASE) 

4$ 

QA$W MULTIPLEPASS, -<SP> 

OAMP^OUT 

QUTPOT.STRING 

#12, (CLI.BASE), 6$ 
#10 

QAMP OUT 
DEFAOLT STRING 
#3, a#DS$PR!NTF 



0292 
0293 
0294 



0295 
0298 



ZZ-ENSAA-7.0 
QAFLAGS 
6 ,6-0 A 



VRShowQA 

*** Setting and Showing QA Flags 

VRShowQA 



K 12 
27-JuM984 
27-Jut-1984 
26-Jul-1984 



Fiche 11 Frame K12 Sequence 2213 

16:09:42 VAX-11 Bliss-32 V4. 0-742 
09:41:21 DMA1:[SYS0.SYSMAINT3QAFLAGS.B32;14 



7E 64 8F 9A 00058 
00000000' EF 9F 0005C 



000000006 9F 
7E 



000000006 9F 
50 



00000000' EF 9F 00062 

03 F8 00068 

64 8F 9A 0006F 

00CO000O' EF 9F 00073 

00000000 • EF 9F 00079 

03 F8 0007F 5$: 

01 DO 00086 6$: 

05 00089 



MOVZBL #100, -<SP) 

PUSHAB QATL OUT 

PUSHAB OEFADLT STRING 

CALLS *Z t StfDSSPRJNTF 

MOVZBL #100, -(S?) 

PUSHAB OASL OUT 

PUSHAB DEFAOLT STRING 

CALLS #3, a#D5$PRINTF 

MOVL #1, RO 
RSB 



Page 15 
(13) 

0301 
0304 



0308 
O309 



Routine Size: 138 bytes. Routine Base: CODE + OOAD 



ZZ-ENSAA-7.0 

QAFLAGS 

6.6-04 



0310 
0311 
0312 



End of Module QAFLAGS 

*** Setting and Showing QA Flags 

End of Module QAFLAGS 

XSBTTL 'End of Module QAFLAGS 1 

END ELUDOM 



L 12 
27-Jul-1984 
27-JuM984 
26-Jul-1984 



Fiche 11 Frame L12 Sequence 2214 
16:09:42 VAX-11 Bliss-32 V4, 0-742 _ Pa 9 e ,J$ 
09:41:21 DMA1 :[SYS0.SYSMA1NT3QAFLAGS.B32;14 (14) 



PSECT SUMMARY 



Name 



Bytes 



WORK 
DATA 
CODE 



Attributes 



6 


NOVEC, WRT, 


RD 


,NOEXE,NDSHR, 


LCL, 


REL, 


167 


NOVECNOWRT, 


RD 


,N0EXE, SHR, 


LCL, 


REL, 


311 


NOVEC, NOWRT, 


RD 


, EXE, SHR, 


LCL, 


REL, 



C0N,N0PIC,AL1GN<2) 
C0N,N0PIC,ALIGN(2) 
C0N,N0PIC,ALIGN(2) 



Library Statistics 



File 

DRB1:CDS.WORK3DIAG.L32;265 
DRB1:CDS. WORLDS. L32;159 
SYSSSYSR00T:CSYSLIBDLIB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 

2 
6 





Percent 



Pages 
Mapped 

85 

42 

975 



Processing 
Time 

00:00.2 
00:00,2 
00:04,7 



COMMAND QUALIFIERS 
BLISS/N00BJECT/LIST=CDS.LIS3/OPTJMIZE=(LEVEL:3,SPACE)/DEBUG/TRACE QAFLAGS 



Size: 
Run Time: 
Elapsed Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
Memory Used: 84 



Compilation Complete 



311 code + 173 data bytes 
00:11.4 
00:33.5 
1649 
10007 
pages 



ZZ-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 



*** QA Routines 
*** QA Routines 



KTITLE '*** QA Routines' 

MODULE QAMAIN ( 

ADDRESSING J10DE 
IDENT = M-08' 
) = 



M 12 

27-JuM984 
27-JuM984 
26-JUI-1984 



16:10:19 
09:41:22 



Fiche 11 Frame M12 



Sequence 2215 
VAX-11 Bliss~32 V4. 0-742 Page 1 
DMA1:CSYS0.SYSMAINT]QAMAIN.B32;109 (1) 



(EXTERNAL = LONG.RELATIVE) , 



COPYRIGHT (c) 1979, 1981, 1983 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

++ 
FACILITY: 

DIAGNOSTIC SUPERVISOR 
ABSTRACT: 

This module contains the support routines required to perform QA on diagnostic programs. 
AUTHOR: 

Jack Stansbury 
CREATION DATE: 



00 



15~0ctober-1981, Version 6,5-00 

Put in code for all the support routines plus the following check routines: QASNormal, Start, 

QA$Multiple_Pass, QA$Loop_0n_Test, QASRunJSackwards. 



ZZ-ENbAA-7.0 
QAMAIN 
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*** QA 
*** QA 



Routines 
Routines 



MODIFIED: 
01 

02 
03 

04 

05 

06 
07 

08 



N 12 
?7-Jul-1984 
27-JuL-1984 
26-Jul-1984 



16:10:19 
09:41:22 
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Sequence 2216 
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two different modules: QAMAIN.B3? 

the support routines, the latter contains 



Jack Stansbury, 14-December-1981 , Version 6.6 
Added remaining QA check routines. Split QA.B32 into 
(this one) and QACHECKS.B32. While this one contains 
the actual check routines. 

Jack Stansbury, 5-Jan-1982, Version 6.6 .,-.._. 

Changed the code in QASDump to not print R0 an1 R1 in the register dump. There is no n&ed to 
print these since they are not saved by the CALLx instructions. 

Jack Stansbury, 1-Feb-1982, Version 6.6 

Released the three Supervisors to BSDE to find bugs. This includes all the check routine up to 
and including the Error Phase One check. 



Jack Stansbury, 1-Feb-1982, 
Changed the headings on the 



Version 6.6 

two table printouts 



to make the table name more distinctive. 



1Web-1982, Version 6.6X 
XSBranch routine so as to make it compatible with Sar, Ouncan! He wanted R0 s?ved 



Jack Stansbur 

Changed the DoA*Ofantn ruuiine >U d» IV ma ISC it cuniMai iu«.9 wix.ii oan vuuv.au. nc upmicu nv ary 

across the branch macro code expansion, so I made significant changes to both the branch mac 
(in D1AG.*) and to this branch routine. All of that just for Sam! 

Jack Stansbury, 27-July-1982, Version 6.9 

Changed the spelling of the VDS A C handler variable. 

Jack Stansbury, 19-Jan-1983, Version 6.10 (?) 

Took out all the refeiences to any of the checks above the Run Backwards check. This 
includes taking out the previously entered Error Phase One check. It doesn't work 
properly with subroutines in diagnostic programs. 

Bob Bergazzi May 17, 1983 Version 6.11 
Changed the order of searching libraries. 



ros 
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OAMAIN 
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1 


; 0079 


1 


; 0080 


1 


; 0081 


1 


; 0082 


1 


; 0083 


1 


; 0084 


1 


; 0085 


1 


; 0086 


1 


; 0087 


1 


; 0088 


1 


; 0089 


1 


; 0090 


1 



Linkage Definitions 
*** QA Routines 
Linkage Definitions 

SSBTTL 'Linkage Definitions' 
BEGIN 

! LINKAGE DEFINITIONS 



* 13 « 
27-Jul-1984 

27-Jul-1984 

26-Jul-1984 
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._..,__ Sequence 2217 

16:10:19 VAX-11 Bliss-32 V4.0-7A2 Page 

09:41:22 DMA1 :CSYS0.SYSMAINT3QAMAiN*832;109 



3 

(3) 



LINKAGE 



For the DSX$8ranch routine, the last three parameters are passed in the STANDARD manner. That is 
by an offset to the AP on the stack. The first parameter passed is general register R0. Also, 
register R1 should be preserved in the routine. DSX$8rancn is defined to be a VALUE routine also, 
that values can be returned in R0. This is not compatible with the VAX calling standard however. 

CaUJ>SX$8ranch = CALL (REGISTERS, STANDARD, STANDARD, STANDARD) : PRESERVE (1); ! 



so 



[053 
C053 

ro53 

[053 
[053 



i 
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; 0091 


1 


; 0092 


1 


; 0093 


1 


; 0094 


1 


; 0095 


1 


; 0096 


1 


; 0097 


1 


; 0098 


1 


; 0099 


1 


; 0100 


1 


; 0101 


1 


; 0102 


1 


; 0103 


1 


; 0104 


1 


; 0105 


1 


; 0106 


1 


; 0107 


1 



Table of Contents 
*** QA Routines 
Table of Contents 

XSBTTL 'Table of Contents 1 

TABLE OF CONTENTS: 



FORWARD ROUTINE 

DSXSBranch 

QA$AbortJ3A 

QASAdd Forced Error 

GASAdd~QA Error 

GA$Control_C_Handler 

QASDump 

QASFind User Call Frame 

CASInit" 

QA$Main 

QA$Print_Forced Errors 

0A$Printl0veralT_Errors 
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NOVALUE 
NOVALUE 
NOVALUE 

NOVALUE 

NOVALUE 
NOVALUE 
NOVALUE 
NOVALUE 



addressing 
addressing; 
addressing, 
addressing 
addressing" 
addressing; 
addressing, 
addressing, 
addressing 
addressing 
addressing; 



MODE (LONG RELATIVE) Call_DSX$8ranch 

MODE CLONGlRELATIVE), I 

'MODE (LONG RELATIVE), i 

MODE (LONG'RELATIVE), 

MODE (LONG RELATIVE). ! 

MODE (LONG RELATIVE). 

MODE (LONG„RELATIVE). 

MODE (LONG..RELATIVE), 

MODE (LONG RELATIVE). 

'MODE (LONG RELATIVE). 

'MODE (LONG.RELATIVE); ! 



[05] 
[02] 
[063 



[02] 
C02] 



ZZ-ENSAA- 


7.0 


Libraries 


QAMAIN 




*** QA Routines 


1-08 




Libraries 


; 0108 


1 


XSBTTL •Libraries 1 


; 0109 


1 




; 0110 


1 


! LIBRARIES: 


; 0111 


1 




; 0112 


1 




; 0113 


1 


LIBRARY 


; 01H 


1 


•*DIAG'; 


; 0115 


1 




; 0116 


1 


LIBRARY 


; 0117 


1 


'$DS'; 


: 0118 


1 




0119 


1 


LIBRARY 


; 0120 


1 


•SYSSLIBRAR 
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C08J 
£083 



i . 
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7.0 
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1 
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1 


; 0123 


1 


; 0124 


1 


; 0125 


1 
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1 


; 0127 


1 


0128 


1 


; 0129 


1 



Included Macros and Literals 

*** QA Routines 

Included Macros and Literals 

XSBTTL 'Included Macros and Literals* 

! INCLUDED MACROS AND LITERALS 



$DS QADEF; 
$DS"DSADEF; 
DSQS; 
DSJ3ADEFS; 
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Define the branch-codes. 

Define DSA flags 

The DSQASK constants for the routine/label names. 

Common OA 3efinitions like QA$K_. 
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1-08 
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1 


; 0131 


1 


; 0132 


1 


; 0133 


1 


; 0134 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 0138 


1 


; 0139 


1 


; OHO 


1 


; OKI 


1 


; 0142 


1 


0143 


1 


OKA 


1 


; 0145 


1 


; 0146 


1 


0147 


1 


; 0148 


1 


; 0149 


1 


; 0150 


1 


; 0151 


1 



External Routines 
*** QA Routines 
External Routines 

XSBTTL 'External Routines' 

! EXTERNAL ROUTINE REFERENCES: 



EXTERNAL ROUTINE 

QASNormal Start 
QASMultiple Pass 
QA$LoopJ)njest 
QASLoop On Subtest 
QA$RunJ3ackwards 

EXESAloNonPaged 
EXESDeaNonPaged 

DSVSS^owDevke 
DSVSShowSelect 
DSXSAbort, 

VRShowFlg 
VRShowEf 
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ADDRESSING MODE (L0NG_RELATIVE) , 
ADDRESSING'MODE (LONG.RELATIVE) , 
ADDRESSING^MODE (LONGJiELATIVE) , 
ADDRESSING~MODE (L0NGJ*ELATIVE) , 
ADDRESSINGIMODE (LONGJiELATIVE) , 

JSB ALLOC ADDRESSINGIMODE (LONG..RELATIVE) , 
JSBlDEALL ADDRESSINGIMODE (LONG.RELATIVE) , 

JSB CLI, i Pass parameter in R2 

JSB~CLI # \ Pass parameter in R2 

i Pass no parameters, 

! (take no prisoners) . 

JSB NONE, ! No parameters required 

JSBlNONE; ! No parameters required 



[01 D 



COU 
[01 D 



ZZ-ENSAA-7.0 
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1-08 
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0172 
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0174 
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1 
1 

1 
1 

1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



External Own Storage 
*** QA Routines 
External Own Storage 

XSBTTL 'External Own Storage* 

! EXTERNAL OWN STORAGE 
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EXTERNAL 



DSSGL.FSTTEST, 
DSSGLJ.STTEST, 



DSSGA^DS^Ctrt^CJMrst, 

DSSGL.CLIBASE, 

DSSGBJJIDTH, 

+ 



! First test to execute 

! Last test to execute 

\ DS address of 1st A C routine handler 

! Base of CLI data table 

! Width of the terminal 



C063 
C023 



These are defined in the QAFLAGS module. They contain 
the current settings of the QA flags. 



QASW.TestLoops : WORD, 
QASW^SubtestLoops : WORD, 
QA$W MultiplePass : WORD, 



QAST ^Header J , 
GA$T_Header_2, 
QAST_Header_3, 

QA$T_0perator^RequestJ1essage; 



I The three lines printed at the top 

! of a page. 

! The QA error message for requesting operator input 

! with no default value given. It is declared in the 

! QACNECKS module because all the error messages are 

! declared there! 



[01] 
£013 

con 

C023 
C023 
C023 
C023 
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; 0184 1 


; 0185 1 


; 0186 1 


; 0187 1 


; 0188 1 


; 0189 1 


; 0190 1 


; 0191 1 


; 019? 1 


; 0193 1 


; 0194 1 


; 0195 1 


; 0196 1 


0197 1 


; 0198 1 


0199 1 


; 0200 1 


; 0201 1 


; 0202 1 


; 0203 1 



Psect Definitions 
*** QA Routines 
Psect Definitions 

XSBTTt # Psect Definitions' 

PSECT DEFINITIONS: 
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PSECT 



PSECT 



PSECT 



PSECT 



PLit = Data (NoExecute, Share, NoWrite, 

Address ing_Mode (Long_Relative)); 



Code « Code (Execute, Share, NoWrite, 

Address ing_Mode (Long_Relative)); 



Own = Work (NoExecute. NoShare, Write, 

Address ingjlode (Long_Relative>); 



Global = Work (NoExecute, NoShare, Write, 

Address ingjlode (Long_Relative>); 



Z2-ENSAA-7.0 

QAMA1N 

1-08 
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Local Macro Definitions 

*** QA Routines 

Local Macro Definitions 

XSBTTL 'Local Macro Definitions 1 
i 

i LOCAL MACRO DEFINITIONS: 
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MACRO 



MACRO 



MACRO 



Usage: 



ASSERT <(,A GTR ,8), 'A <= B 1 ); 



If the specified condition is not true, a call to the Loqic„Error macro is made with the specified 
message string. ASSERT is turned on whenever the compilation is made with the /VARIANT:n qualifier, 
where n <> 0« 

ASSERT (Condition. Assert^String) = 
XIF XVARIANT 
XTHEN 

( 

JF (NOT (Condition)) THEN 

Logic„Error (Assert.String) 



X; 



XELSE 
XFi 



! No code put in. 



Usage: 



Logic^Error ('String to be printed out'); 



This macro is used whenever a logic error is detected. It is called from ASSERT whenever the 
assertion is false. It can also be called whenever an expression need not be evaluated before 
determining that something is wrong. 

Logic Error (Error String) = 
( 
BIND 

^S = SASCJC ('!/**0A Internal Error: \ Error.String, •!/•); ! 



C013 



X; 



$DSJ>RINTF (ES); 



Define a macro that will expand into the declaration for the Forced-Error records. 

Error Record = ! 

REF BLOCK C, LONG] FIELD (Forced.Error.Fields) ! 

X; ! 



C023 

C023 
C02] 
[02] 



I 
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; 0265 


1 
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Local Macro Definitions 

*** QA Routines 

Local Macro Definitions 
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MACRO 



Usage: 



This macro is used only in the debugging stages. It's only parameter is a string cjivwg, 
the name of a routine. DEBUG is turned on whenever the compilation is made with the 
/VARlANT:n qualifier, where n <> 0. 



e.g 



• • 



DEBUG (Debug String) a 
XIF XVARIANT 
XTHEN 

( 



IF (.QA$A0B 



X; 



XELSE 
XFI 



) 



AOB Flags [QASK QA Debug]) THEN 
SDSlPRINTF (SASClC ('!/\ Debug_Stri 



ng, •!/•)) 



! No code put in. 



MACRO 



i Define a macro that takes an expression as an argument. The value of this macro is either one or 
! zero. All bits but the least significant one are cleared. 

Boolean (Expression) = 

((Expression) AND 1) 
X; 



£021 
£021 
L021 
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C023 

C023 
C023 



7Z-ENSAA- 


7,0 


Q AMAIN 




1-08 




; 0288 


1 


; 0289 


1 


: 0290 


1 
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; 0295 


1 


; 0296 


1 
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Module-G'obal Literals 
*** QA Routines 
Module-Global Literals 

JSBTTL 'Module-Global Literals 1 

! + 

! MODULE-GLOBAL LITERALS 



LITERAL 



QA$K_NU = 0, 

QA$K_Forced_Error_Record_Si2e = 16, 
QA$K_Last_Check = QA$K_Run,Backwards; 
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[02] 
C023 
L021 

! [02] 

! Pascal NIL. Use address zero* since it is inacess"»ble.C023 

! The size of the record for the forced-error records. 1023 



! The last check currently implemented. This must 
! change as more check routines are added. 



[07] 
[07] 
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; 0307 1 
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; 0313 1 
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Field Definitions 
*** QA Routines 
Field Definitions 

XSBTTL •Field Definitions' 



MODULE-GLOBAL FIELD DEFINITIONS 
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FIELD 



Forced_Error Fields = 
SET 

QASVW Error Number 
QA$VW~Test Number 
QA$VL"ETor Count 
QA$VL"Subtest^Number 
Qa$VA Next Error 
TES; 



CO, 0, 16, 03, 

CO, 16, 16, 03, 

C1, 0, 32, 0], 

C2, 0, 32, OJ, 

C3, 0, 32, 03 



Page 13 
(13) 



C023 
C023 
C023 

C023 

C023 
C023 
C023 
C023 
C023 
C02D 
C023 
C023 
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; 0326 1 


; 0327 1 


; 0328 1 


; 0329 1 


; 0330 1 


; 0331 1 


; 0332 1 


; 0333 1 



Module-Global Static Storage 
*** QA Routines 
Module-Global Static Storage 

XSBTTL 'Module-Global Static Storage* 



MODULE-GLOBAL DECLARATIONS; 
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OWN 



MODNAM (' QAMAIN'); 



Define module name. 



QASAW Overall Error Table : VECTOR [QA$K_Number_Of Checks, WORD];; 

! A vector containing the number of 
! errors encountered in each of 
! the checks. 



QA$A_Error_List_Head, 
GA$A_Prev_Test_Tail; 



! Pointer to head of a linked list of Forced-Error 

! records. 

J Pointer to the previous test's last record in the 

! Forced-Error linked list. 



L071 
C07] 

C073 
C07] 



ZZ-ENSAA-7.0 
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0374 1 
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0377 1 

0378 1 

0379 1 

0380 1 
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0382 1 



Super nsor-Global Static Storage 
*** . Routines 
Supervisor-Global Static Storage 
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(15) 



XSBTTL 



'Supervisor-Global Static Storage 1 
! SUPERVISOR-GLOBAL DECLARATIONS: 
GLOBAL 



QA$W_Branch 


: WORD, 


QA$W_E r ror_Number 


: WORD, 


GA$W_Save_Test 


: SIGNED WORD, 


QA$W Save Last 


: SIGNED WORD, 



QASL.Saved.DSA.Flags, 



J Storage for passing the branch-code 

! from DSXSBRANCH to QASMAIN. 

! Storage for passing the error number 

■ from DSXSBRANCH to QASMAIN. 

! Save the x in /TEST:x:y from the command line. 

! Save the y in /TEST:x;y from the command line. 

i Save the DSA flags before starting QA 

! and restore and end of QA execution. 



QASAOB Routine State : BJTVECTOR [QA$K_Numb_Routine States], » 

! The Routine State vector. This vector keeps track 
! of the current state that a check routine is in. 

OASAOB Check State : BITVECTOR [QA$K_Number_Of, Checks], 

' The check state bitvector. It contains one and only 
one bit = 1 Implying that the check bound to that bit 
position is currently being performed. 



C01 ] 

con 

[01 1 

con 

[02] 

[02] 

[01] 
[01] 

[02] 
[02] 
[02] 



QAJiAOe.Flags 



BITVECTOR [QASK.Number.QA.Flags]; 

' OASAOBJLags [QA$K_NoDef] = 



1 => No default was given for ASK... 

=> A default was given for ASK... 

OASAOB^Flags [QA$K_QAJ)ebug] = 

1 => Debugging is turned on 

-> No debugging messages 

QA$A0B Flags [QA$K QA.Done] = 

1 => OA is finisRed 

=> QA is not finished 

GASAOBJlags [QA$K Init_Context_Done] = 

1 => Jnit„Contexr was done 

=> Init^Context has not been done 

QA$AOB_FLags [QA$K_Loop_Test Done] = 

1 ->~Finished looping on the current test 

=> Loop at least once more on the current test 
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XS8TTL 'DSXtBRANCH 1 

GLOBAL ROUTINE DSXSBranch (RegisterJ), Branch_Code, ErrorJYumber, Branch^Value) : Call_D$X$8ranch = 



t T 



FUNCTIONAL DESCRIPTION; 



This global routine is called by the SOS Branch macros. It decides if the branch should be taken. 
If the QA flag is set, it will call QASMiin, which calls the appropriate check routine. NOTE: 
This routine preserves R1 and attempts to preserve RO when not forcing an error. At most, the low 
bit of RO will be changed. 



FORMAL PARAMETERS; 
Regis trr_0 

Branch_Code 

Error^Number 

Branch_Value 
CALLERiS): 

The diagnostic program. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

See below. 
SIDE EFFECTS: 



The general register RO. 

A literal defining what type of branch is being executed by the diagnostic. 

A diagnostic error number. 

The value that will determine whether or not the branch should actually be taken. 



C05] 



If running OA and this branch should be reversed* the low bit of RO will be cleared- If not running QA, C05D 

the tow bit of R0 wi'. I be set or cleared as mandated by the type of branch and by the 8ranchJ/alue. C053 

unoer all other condirions, RO will be left as is. Note: Register^, the first parameter, is actually C053 
general register RO* 
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0429 2 BEGIN 

0430 2 LOCAL . rn „ 

0431 2 Save Register_0. ! t05D 

0432 2 Branch : BYTE; i T05D 

0434 2 Savf Register = .Register J); ! L05J 

0435 2 " 

0436 2 CASE .Branch Code 

0437 2 FROM QA$R First Branch^Code TO QASK Last^Branch^Code Of 

0438 2 SET " 

0439 2 ! + 

0440 2 1 These are the BLISS specific branch codes. 

0441 2 !- 

0442 2 [DS$K_8LSS..B3 : 

0443 2 Branch = ( .Branch_Value LSS 0); 



0444 2 

0445 2 CDS$K 8LSSU.83 : 

0446 2 " Branch = (.Branch Value LSSU 0); 

0447 2 

0448 2 [DS$K_8LEQ..8] : 

0449 2 Branch = ( .8ranch_Value LEQ 0); 

0450 2 

0451 2 CDS$K_BLEQU..B3 : 

0452 2 Branch = (.Branch Value LEQU 0); 

0453 2 

0454 2 [DS$K_8EQL_83 : 

0455 2 Branch = (.Branch Value EQL 0); 

0456 2 

0457 2 CDSSK.eEQLU.BJ : 

0458 ? Branch r ( .Branch_Value EQLU 0); 

0459 2 

0460 2 [DS$K_BGEQ„B3 : 

0461 2 Branch s (.Branch_Value GEQ 0); 

0462 2 

0463 2 CDSSKJiGEQU^B] : 

0464 2 Branch = (.Branch Value GEQU 0); 

0465 2 

0466 2 CDS$K QGTR BJ : 

0467 2 " Branch = ( ,8ranch_Value GTR 0); 

0468 2 

0469 2 CDSSK BGTRU_BJ : 

0470 2 ' Branch = (.Branch Value GTRU 0>; 

0471 2 

0472 2 [DS$K - BNEO..BJ : 

0473 2 Branch = (.Branch Value NEQ 0); 

0474 2 

04 75 2 CDSSK.BNEQU.BD : 

0476 2 Branch = (.Branch Value NEQU 0); 
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; 0477 


2 




; 0478 


2 




; 0479 


2 




; 0480 


2 




; 0481 


2 




; 0482 


2 




; 0483 


3 




; 0484 


3 




; 0485 


3 




; 0486 


3 




; 0487 


3 




; 0488 


2 




; 0489 


2 




; 0490 


2 




0491 


3 




; 0492 


3 




; 0493 


3 




0494 


3 




; 0495 


3 




; 0496 


2 




; 0497 


2 




; 0498 


2 




0499 


3 




; 0500 


3 




; 0501 


3 




; 0502 


3 




; 0503 


3 




; 0504 


3 




; 0505 


2 




0506 


2 




; 0507 


2 




; 0508 


3 




; 0509 


3 




; 0510 


3 




; 0511 


3 




; 0512 


3 




; 0513 


3 




0514 


2 




0515 


2 




; 0516 


2 




; 0517 


3 




; 0518 


3 




0519 


3 




; 0520 


3 




; 0521 


3 




; 0522 


2 
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'♦ 

! For these MACRO specific branch codes, the Branch Value is the PSL at the time 

: of the call. "To branch or not to branch'* is based on this PSL. 



CDS$K_BLSS JQ 
BEClN 
MAP 



Branch^Value : BLOCK C, BYTE3; 



Branch = .Branch Value CPSLSV NJ 
END; 



CDSSK^BLSSU M3 
BEGIN 
MAP 



Branch_Value : BLOCK C, BYTE3; 



Branch = .Branch Value CPSL$V_C3 
END; 



CDS$K_BLEQ M3 
BESlN 
MAP 



Branch_Value : BLOCK [. BYTE3; 



Branch = .Branch Value [PSLSVJI3 OR 

.BranchJ/alue [PSL$V_Z3 
END; 



CDS$K_8LEQU JQ 
BEGIN 
MAP 



Branch^Value : BLOCK [, BYTE3; 



Branch * .Branch Value [PSL$V_C3 OR 

•Branch~Valje [PSL$V^Z3 
END; 



CDSSK^BEQL M3 
BEGIN 
MAP 



Branch Value : BLOCK L BYTE3; 



Branch = .Branch Value CPSL$V 21 
END; 
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[DS$K BEQLU M3 
8EGIN 
MAP 



BranchJ/alue : BLOCK C, BYTEJ; 



Branch = .BranchJ/alue CPSLSV Z3 
END; 



CDSSK.BGEQ M3 

BEBlN 
HAP 



Branch_Value : BLOCK C, BYTEJ; 



Branch = NOT .BranchJ/alue [PSLSVJlJ 
END; 



[DS$K,BGEQU M3 
BEGIN 
MAP 



Branch Value : BLOCK C, BYTE3; 



Branch = NOT .BranchJ/alue CPSLSV.C3 
END; 



CDSSK^BGTR M] 

BECIN 
MAP 



Branch Value : BLOCK t, BYTE3; 



Branch = (NOT .Branch Value [PSL$V„NJ) OR 

(NOT .BranchlValue CPSL$V_Z3) 
END; 



CDS$K_BGTRU M3 
BEGIN 
MAP 



BranchJ/alue : BLOCK C, BYTF3; 



Branch = (NOT .Branch Value CPSLSV CJ) OR 

(NOT .Branch^Value CPSLSV^ZJ) 
END; 



[DS$K BNEQ MJ 
BEBlN 
MAP 



Branch.Value : BLOCK C, BYTE3; 



Branch = NOT .Branch Value [PSL$V_Z3 
END; 



F 14 

ZZ-ENSAA-7.0 DSXSBRANCM 27-Jul-1984 Fiche 11 Frame F14 Sequence 2234 

QAMAIN *** QA Routines 27-Jul-1984 16:10:19 VAX-11 BUss-32 V4. 0-742 _ a Page, 20 

1-08 DSXSBRANCH 26-JuM984 09:41:22 0MA1 :[SYS0.SYSMAINT]QAMAIN.B32;1Q9 <20) 

0572 2 [DS$K,BNEQU M] : 

0573 3 BEGIN 

0574 3 MAP r 

0575 3 Branch Value : BLOCK [, BYTE]; 

0576 3 .... 

0577 3 Branch = NOT .BranchJ/alue CPSLSV.Z] 

0578 2 END; 

0579 2 

0580 2 [DS$K_BVS JO : 

0581 3 BEGIN 

0582 3 MAP 

0583 3 Branch Value : BLOCK [, BYTE]; 

0584 3 "... 

0585 3 Branch = .Branch_Value [PSL*V_V] 

0586 2 END; 

0587 2 

0588 2 CDS$K.BVC JO : 

0589 6 BEGIN 

0590 3 MAP „ 

0591 3 Branch Value : BLOCK [, BYTE]; 

0592 3 _ ^ , 

0593 3 Branch - NOV .Branch Value EPSLSVJf] 

0594 2 END; 

0595 2 

0596 2 CDSSK.BCS JO : 

0597 3 BEGIN 

0598 3 MAP 

0599 3 Branch Value : BLOCK [, BYTE]; 

0600 3 " r » -. 

0601 3 Branch = .BranchJ/aLue CPSLSV.C] 

0602 2 END; 

0603 2 

0604 2 CDS$K_8CC M] : 

0605 3 BEGIN 

0606 3 MAP 

0607 3 Branch.Value : BLOCK [, BYTE]; 

0608 3 

0609 3 Branch = NOT .Branch^Value EPSLSV^C] 

0610 2 END; 

0611 2 

0612 2 CDSSK^BBS] : 

0613 2 Branch = .Branch Value <0, 1, 0>; 

0614 2 

0615 2 CDS$K_BBC] : 

0616 2 Branch = NOT .Branch Value <Q, 1, 0>; 
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! These are passed the value returned by the BUILTIN function for that branch (i.e., 
i 1ESTBITSS for BBSS, etc.). Thus, the branch is based upon the value of the low bi t . 



» + 



[DS$K_BBSS3 : 

Branch = ,Branch_Value <0, 1 # 0>; 

[DSSK_BBCS3 : .... 

Branch = ,Branch_Value <Q, 1, 0>; 

CDS$K_BBSC3 : 

Branch a .Branch.Value <0, 1, 0>; 

[DS$K_BBCt3 : 

Branch = .Branch^Value <0, 1, 0>; 

[DSSK_B8SSI3 : 

Branch s ,Branch_Value <0, 1, 0>; 

CDS$K BBCCI3 : 

Branch - .Branch. Value <0, 1, 0>; 

j + 

! These are passed the value of the data whose low bit is being checked. 

[DS$K_BLBS3 : 

Branch * .Branch^Value <Q, 1, 0>; 

[DS$K BL8C3 : 

Branch = NOT .Branch^Value <0, 1, 0>; 



i 

i 
» 
i 
i 



Treat the BERR0R branch macro the same as the BNERR0R branch macro. This means that the valut 
of R0 will remain the same for the two cases of QA not runnina and of QA running but not 
forcing errors. When QA is running and this branch macro should be reversed-sensed (yuch), 
then RO will return from a BERROR with the low bit complemented (as will happen with a 
BNERR0R). However, upon return from this routine, the branch macro for BERROR will do a BLBC 
instruction, as oposed to doing a BLBS (which is what the BNERR0R macro will do). So, these 
two branch macros will save the contents of R0 for the two cases above. They will also return 
the complemented low bit of R0 when forcing errors. 



[DS$K_8ERR0R3 : 

Branch - ,Branch_Value <0, 1, 0>; 

CDS$K_BNERR0R3 : 

Branch - .Branch Value <0, 1, 0>; 
TES; 



! These two should be the same. 



l053 
053 

CO!>j 
C053 
[053 
[053 
C053 



[053 
[053 

[053 
[053 
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END; 



If not running QA, simply return an indication ot whether or not to branch, 

IF (NOT .DSASV QA) THEN 
BEGIN " 

Save Register.O <0, 1 , 0> = .Branch <0, 1, 0>; 
RETURN ?.Save_Register_0) 

END; 

Make the Branch value a one or a zero by clearing out all the other bits. 

Branch = Boolean (.Branch); ! 

! + 

! Save the error number and branch value. Call QASMain with the appropriate branch code. 
i- 

GA$W_Branch * .Branch; 
QA$W_Error_Number * .Error^Number; 

QASMAIN (DSQASKJM.DSX$Branch); 

! Set the low bit of R0 to what was set up in the Error Phase One routine in the QA$W_Branch variable. 
! If I am forcing errors, the low bit of R0 can change. 



[053 
[053 
[053 
[053 



1021 



C02] 



Save Reg1ster_0 <0, 1 , 0> s ,0A$W_Branch <Q # 1, 0>; 
RETURN (.SaveJiegisterJ)) 



[053 
[053 



C053 
[053 



00000 
0001 E 
00020 
00022 
00024 



0002C 



!8 



.TITLE QAMAIN *** 0A Routines 
.IDENT \1-08\ 

.PSECT U0RK,N0EXE,2 

QAIAW^OVERALLJRROR.TABLE J 

.BLKB 30 
0ASW BRANCH:: 

.BLKB 2 
GASWJRROR^NUMBER:: 

.BCKB 2 
QASW..SAVE TEST:: 

.BLKB 2 
QAIW^SAVE LAST:: 

.BLKB 2 

.8LKB 2 
QASLJAVED DSAJLAGS:: 

.BCKB 4 
QA$A0B„R0UTINE_STATE:: 

.BLKB 1 

.BLKB 3 
QASAOB^CHECK.STATE:: 
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Sequence 2237 
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Page 



(2i 



.8LK8 2 

00032 .BUB 2 
00034 QASA08.FLA6S:: 

,BLKB 1 



.PSECT DATA,N0WRT,N0EXE, SHR,2 



4E 49 41 4D 41 51 06 00000 P. AAA: .ASCII <6>\QAMAIN\ 



0066 
0078 
0085 
00A0 
OOF 6 
OODE 
OOF 6 
0101 




00000000' 
04 



DSASAL.APTMAIl* 

DSASGLlFLAGS* 

LSA$GL_APTCOM« 

DSA$6L„PASSES* 

OSASGL^UNITS- 

DSA$GLlSECTNO= 

DSA$GL„SID» 

DSA$GLlMSGTYP* 

DSA$GLJRRNO« 

DSA$GL_EVENT» 

D$A$GL„$UeTNO« 

OSASGLlTESTNO- 

DSAfGl PASSNO" 

OSASGL^DEVLEN* 

DSA$Gl„DEVNAM« 

DSASGL MSGPTR* 

MODULE' 

.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
•EXTRN 
.EXTRN 




1S: 



•ENTRY 
MOVAB 
MOVL 
CASEL 
• WORD 



m 



65028 

65032 

65036 

65040 

65044 

65088 

65092 

65096 

65100 

65104 

65108 

65112 

65116 

65128 

P. AAA 
QASNORMAL„START 
QAWWlTIPtE PASS 

qa$ioop.,on„test 

0a|l00p"0n"su8test 

qasrun backwards 

exemlOnonpaged 

exesdean0npa6ed 

dsvtshowoevice, dsvjshowselect 

dsxiabort. vrshouflg 

vrshowef, dssgufsttest 

dsiglj.st test, bslga.os.ctrl.c.f irst 

DSfGl'CUBASE. DStGBlWlBTH 

QAWjESTLOOPS, QASW.SUBTESTLOOPS 

OA$u:mJLTIPLEPASS 

OA$TlHEADER_1 , QA$T_HEADER_2 

QA$T_HEADER_3, QA$TJ)PERATOR_REQUEST_MESSAGE 



.PSECT CODE,NOURT, SHR,2 



DSXS6RANCH, Say« R1,R2,R3,R4 

OASU.BRANCH, R4 

register JL SAVE.REGISTER.O 

BRANCH„cOD§. #0, #39 
1$-1*,- 

S$-1$.- 

>$-1$.- 
5|-1$,- 

5Vlf,~ 
6$-1$,- 
7S-1S,- 



0385 



04; 
04! 



(4 
16 
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0101 
0101 



0101 
OOF 6 



0101 
0101 



OC 



OC 
OC 
OC 



OC 



51 
AC 
61 
33 
51 
58 
51 
AC 
54 
26 
51 
AC 
?f 
1D 
51 
AC 
76 
14 
51 
10 
51 
AC 
69 
07 
51 



04 
D5 
18 
11 
D4 
11 
D4 
P5 
14 
11 
04 
05 
12 
11 
04 
05 
19 
11 
04 
11 
04 
D5 
15 
11 
04 
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27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



00051 
00059 



10061 
10063 

« 

m 





00073 

00025 

00077 

00079 

Q007C 

0007E 

)0 



2$: 



3$: 





00092 
00094 
00096 



5$: 



6$: 



7$: 
8S: 



9$: 
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8$-1$,- 

9$-!$,- 

9$-1$,- 

9$-1$ x - 

11$-1$ 

27$-1$ 

121-1 $ 

13$-1$ 

15$-1$ 

15$-1$ 

17$-1$ 

25$-1$ 

18$-1$ 

19$-1$ 

21$-1$ 

21S-1S 

>2$-1$ 

!4$-1$ 
7S-1S 
'5$-1$ 

J7I-1S 

251-1$ 

27$-1$ 

27$-1$ 

27$-1$ 

27$-1$ 

271-1$ 

27%-M 

27$«1$ 

25$-1$ 

27$-1$ 

27$-1$ 

CLRL R1 ; 0443 

TSTL BRANCH^VALUE 
B6EO 16$ 
BRB 10$ 

CiRL R1 ; 0446 

BRB 16$ 

CLRL R1 ; 0449 

TSTL BRANCH.VALUE 
BGTR 16$ 
BRB 10$ 

CLRL R1 ; 0452 

TSTL BRANCHJ/ALUE 
BNEQ 23$ 
BRB 10$ 

CLRL R1 ; 0461 

TSTL BRANCH.VALUE 
BLSS 23$ 
BRB 10$ 

CLRL R1 ; 0464 

BRB 10$ 

CLRL R1 ; 04671 

TSTL BRANCHJ/ALUE 
BLEQ 23$ 
BRB 10$ 

CLRL R1 ; 047d 



ZZ-ENSAA-7.0 

QAMA1N 
1-08 



DSXSBRANCH 

*** QA Routines 

DSXSBRANCH 



K 14 

27-Jul-1984 
27-JuL-1984 
26-Jut-1984 



Ffche 11 Frame KK 



. Sequence 2239 
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51 


OC 


AC 


51 


OC 


AC 


51 
53 


OC 
OC 


AC 
AC 
50 


51 


OC 


AC 


51 


OC 


AC 


51 


OC 


AC 


51 
53 


OC 
OC 


AC 
AC 


51 


OC 


AC 


51 


OC 


AC 


51 


OC 


AC 


51 


OC 


AC 



51 

52 
51 



OC AC 

01 
50 



52 



01 



01 
01 

01 
01 
51 

01 

01 

01 

01 
01 
53 
51 

01 

01 

01 

01 
50 

01 
50 

00 

01 

50 

64 

02 A4 

00000000V EF 
00 
50 



OC 



0OOOFEO1 



08 



AC 

7R 

51 

11 

03 

6F 

03 

06 

00 

02 

53 

58 

02 

4D 

03 

3A 

03 

06 

00 

02 

53 

53 

1E 

02 

16 

01 

19 

01 

06 

00 

51 

09 

00 

51 

9F 

07 

50 

1E 

00 

51 

50 

AC 

11 

01 

64 

52 



D5 
13 
D6 
11 
EF 
11 
EF 
11 
EF 
EF 
89 
11 
EF 
11 
EF 
11 
EF 
11 
EF 
EF 
D2 
CA 
11 
EF 
11 

11 
EF 
11 
11 
92 
11 
EF 
90 
95 
19 
FO 
11 
EF 
90 
98 
BO 
DD 
F8 
FO 
DO 
04 



00098 

0009B 

0009D 

0009F 

00QA1 

000A7 

000A9 

OOOAF 

000B1 

0OOB7 

OOOBD 

000C1 

O0OC3 

00OC9 

OOOCB 

000D1 

000D3 

000D9 

OQODB 

000E1 

000E7 

OOOEA 

OOOED 

OOOEF 

000F5 

000F7 

OOOFD 

OOOFF 

00105 

00107 

001 OD 

00110 

00112 

00118 

0011B 

00121 

00123 

00128 

001 2 A 

0012F 

00132 

00135 

001 3A 

001 3C 

00143 

00148 

0014B 



TSTL BRANCH„VALUE 

BEQL 28$ 

10$: INCL R1 

BRB 28$ 

11$: EXTZV *l. #1, BRANCH VALUE, R1 

BRB 28$ 

12$: EXTZV #3 f #1, BRANCH. VALUE, R1 

BRB 1 4* 

13$: EXTZV #0, *1, BRANCH.. VALUE , R1 

14$: EXTZV #2, *1 , BRANCH. VALUE, R3 

BISB3 R3- R1, BRANCH 

BRB 29$ 

15$: EXTZV #2- #1, BRANCH.. VALUE* R1 

16$: BRB 28$ 

17$: EXTZV #3, 01 , BRANCH. VALUE, R1 

BRB 26$ 

18$: EXTZV #3. *1 , BRANCH VALUE, R1 

BRB 20$ 

19$: EXTZV 00, #1, BRANCH VALUE, R1 

20$: EXTZV #2, #1, BRANCH, VALUE, R3 

MCOML R3, R3 

BJCL2 R3, R1 

BRB 26$ 

21$: EXTZV *2 t #1, BRANCH. VALUE, R1 

BRB 26$ 

22$: EXTZV #1, *1 , BRANCH. VALUE, R1 

23$: BRB 28S 

24$! EXTZV #1- #1, BRANCH,. VALUE, R1 

BRB 26$ 

25$: EXTZV *0, #1, BRANCH.VALUE , R1 

26$: MCOMB R1, BRANCH 

BRB 29$ 

21%: EXTZV #0, #1, BRANCH. VALUE, R1 

28$: MOVB R1 f BRANCH 

29$: TSTB a* x X0000FE01 

BLSS 30$ 

INSV BRANCH, 00, #1, SAVE.REGISTER.O 

BRB 31$ 

30$: EXTZV #0, #1, BRANCH, Rl 

MOVB R1 ( BRANCH 

MOVZBW BRANCH, QA$W_BRANCH 

MOVW ERROR NUMBER, OA$W_ERROR_NUMBER 

PUSHL #17 

CALLS #1- QA$MAIN 

INSV OA$W.BRANCH, #0, #1, SAVE.REGISTER.O 

31$: MOVL SAVE.REGISTERJ), RO 

RET 



0487 
0504 
0513 

0508 
0528 

0536 

0553 

0562 



0561 
0577 

0585 

0593 

0648 

0665 

0671 

0673 
0674 
0681 

0687 
0688 
0690 

0697 
0698 
0699 



Routine Size: 332 bytes, Routine Base: CODE + 0000 



ZZ-ENSAA-7.0 

QAMAIN 

1-08 

0700 1 

0701 1 

0702 1 

0703 1 

0704 1 

0705 1 

0706 1 

0707 1 

0708 1 

0709 1 

0710 1 

0711 1 

0712 1 

0713 1 
07K 1 

0715 1 

0716 1 

0717 1 

0718 1 

0719 1 

0720 1 

0721 1 

0722 1 

0723 1 

0724 1 

0725 1 

0726 1 

0727 1 

0728 1 

0729 1 

0730 1 

0731 1 

0732 1 

0733 1 

0734 1 

0735 1 

0736 1 

0737 1 
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QASAbort QA 
*** QA Routines 
QASAbortJJA 

XSBTTL 'QASAbort.QA' 

ROUTINE QASAbort.QA : N0VALUE = 

FUNCTIONAL DESCRIPTION: 

Dump out debugging information, print the overall error summary table, restore the DSA flags 
and abort the diagnostic (which will cause DS_CLEANUP to be executed, then branches to BEG™ 

CALLERS: 

QASMain 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 



This whole routine is 1021 



** The QA bit in the DSA flags. It is cleared to indicate QA is no longer running. 



DSA5V QA - The QA bit m tne USA nags, it is cleared to indicate ua is no longer rui 

QA$L Saved QA Flags - The saved DSA flags. The flag? are restored here to what they were before 

the START/QA (or RUN/QA) command started executing. 

IMPLICIT OUTPUTS: 

Debugging information. Overall Error Summary Table, and an abortion message. 

COMPLETION CODES: 

NONE - This routine does not return to its caller(s). It calls the DSXSAbort routine, which 
branches to BEGIN, which goes back to DSSCli. 

SIDE EFFECTS: 

The diagnostic is aborted. 



ZZ-ENSAA-7.0 

QAMA1N 

1-08 



0738 
0739 
0740 
0741 
0742 
0743 
0744 
0745 



QASAbort QA 
*** QA Routines 
QA$Abort„QA 



M 14 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Flche 11 Frame M14 Sequence 2241 
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BEGIN 



GA$Dump (); 

QA$Pr1nt Overa I I Errors ( ) ; 

DSASGLjCAGS = ,QA$L_SavedJ)SA..Flags; 

QASlnit (); 

DSASV OA = Off; 

DSXSABort () 



0746 1 



END; 



Dump out information for the user 

Print the summary table 

Restore DSA flags 

Initialize for next run 

Turn off QA 

Abort the diagnostic because of the error 

that was found. DSXSAbort will not return to here! 



Page 27 
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C023 
C02] 
[023 

C023 

i°V 

C023 
C023 
C023 



0000 00000 QA$AB0RT_QA: 











.WORD 


oooooooov 


EF 


00 


FB 00002 


CALLS 


oooooooov 


EF 


00 


FB 00009 


CALLS 


O00OFE00 


9F 00000000* 


EF 


DO 00010 


MOVL 


oooooooov 


EF 


00 


FB 0001B 


CALLS 


OO0OFEO1 


9F 80 


8F 


8A 00022 


BICB2 


000000006 


EF 


00 


FB 0002A 
04 00031 


CALLS 
RET 



Save nothing 

#0, QASDUMP 

#0 t QASPRINT OVERALL„ERRORS 

QA$L SAVED D3AJLAGS, a* A X0OOOFEOO 

*0, OASINIT 

#1$8, W A X0000FE01 

*0, DSXSABORT 



0702 
0739 
0740 
0741 
0742 
0743 
0744 
0746 



Routine Size: 50 bytes, Routine Base: CODE + 014C 



ZZ-ENSAA-7.0 


QAMAIN 




1-08 




; 0747 


1 


; 0748 


1 


; 0749 


1 


; 0750 


1 


; 0751 


1 


; 0752 


1 


; 0753 


1 


; 0754 


1 


; 0755 


1 


; 0756 


1 


; 0757 


1 


: 0758 


1 


; 0759 


1 


; 0760 


, 


; 0761 


1 


; 0762 


1 


; 0763 


1 


; 0764 


1 


; 0765 


1 


; 0766 


1 


; 0767 


1 


; 0768 


1 


; 0769 


1 


; 0770 


1 


; 0771 


1 


; 0772 


1 


; 0773 


1 


0774 


1 


; 0775 


1 


; 0776 


1 


; 0777 


1 


; 0778 


1 


; 0779 


1 


; 0780 


1 


; 0781 


1 


; 0782 


1 


; 0783 


1 


; 0784 


1 


; 0785 


1 


; 0786 


1 


; 0787 


1 


; 0788 


1 


; 0789 


1 


; 0790 


1 


0791 


1 


; 0792 


1 


; 0793 


1 


; 0794 


1 


; 0795 


1 



QASAdd Forced_Error 
*** QA""Routines 
QASAdd Forced Error 
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XSBTTL 'QASAddJorced^Error' 

GLOBAL ROUTINE QA$Add_Forced,.Error (ErrorJYuniber : WORD) J NOVALUE = 

+ + 
FUNCTIONAL DESCRIPTION: 

This routine adds an error to the Forced Error Summary Table. 
CALLER (S): 

The Error check routines. 
FORMAL PARAMETERS: 

Error_Number : The DS error number. 

IMPLICIT INPUTS: 

QA$A Error List H«ad - Pointer to the head of a linked list of Forced-Error data entries. 
QA$A"Frev,7e$OaU - Pointer to the previous test's last entry in the linked list. 

IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS* 

Adds a record to the linked list of forced-error records. 
FIGURES: 

The Forced-Error Record: 



I Error Number 

i T 



Test_Number 



Error^Count 



$ubtest_Number 



Next^Error 



Error Number 

Test„Number 

Error_Count 

Subtest^Number 

Next_Error 



The error number passed ro the SCS.ERRxxxx routine. 

The test that the error occurred in. 

The number of times that error has been forced. 

The subtest that the error occurred in. 

The pointer to the next Forced-Error record in the linked list, or nil 



ZZ-ENSAA-7.Q 

QAMAiN 
■-08 



New 

*** QA Routines 
New 
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0796 
0797 

0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 

0B06 
0807 

0808 

0809 

0810 

0811 

0812 

0813 

08K 

0815 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

08? 5 

0826 

0827 

0828 



1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 
2 
2 
2 
2 



XSBTTL •New 1 
BEGIN 



FUNCTIONAL DESCRIPTION: 

This routine returns a 16-byte vector for use by the QA$Add_£orced,Error routine. 
CALLER (S): 

QASK_Add_F ore ed_E rror 
FORMAL PARAMETERS: 

Record„Ptr - Contains the address of the 16-byte vector. 
IMPLICIT INPUTS; 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

Will Abort tht QA sequence it the returned size of the vector is not 16, or if the vector 
cannot be allocated. 



QAMA1N 
■-08 



0839 
0830 
0831 
0853 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 



2 

2 

2 

-> 
c 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



New 

**♦ QA Routines 

New 
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ROUTINE New (Record Ptr) : NQVAIUE = 
BEGIN 

LOCAL 

Returned.Size; 

IF (NOT EXESAloNonPaged <GA$k. Forced Error Record Sf*e; Returned_Size, .RecordJHr)) THEN 
BEGIN 

Logu ^rror ('Cannot allocate forced-error record 1 ); 
QAlAbort QA <>; 
FND; 

IF (.Returned Swe NEQ QA$K Forced Error Record Si2e) THEN 
BEGIN'" 



END; 



Logic Error ('Wrong size forced-error record allocated'); 

QAlAbort.GA (); 

ENP; 



ZZ-ENSAA-7.Q 

GAMAIN 

1-08 



084? 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



Mew 

+** QA Routines 

Mew 
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XSBTTL 'AddJrror^Record 1 

ROUTINE Add_ErrorJ*ecord (Recorder. Errorjiumber : WORD) : NOVALUE = 



FUNCTIONAL 



DESCRIPTION: 



This routine adds one record to the Linked list of forced-error records. It also fills in the 
fields of the new record. The Error Count is assumed to be one. The Test and Subtest numbers 
are taken from the DSA area. This assumes that the forced-error is being added as they occur 
(i.e., there is no change in the test/subtest numbers from the time the error is forced to the 
time it is added). 

CALLER (S): 

QASAdd Forced Error 



FORMAL PARAMETERS: 

Record Ptr 
Error_Flumber 

IMPLICIT INPUTS: 

DSA$GL„TESTNO 

DSASGL..SU8TNQ 

IMPLICIT OUTPUTS; 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



Contains the address of the record which will preceed this new record. 
The error number that will be stored in the new record* 



The DSA test number. 
The DSA subtest number. 



ZZ-ENSAA- 


7.0 New 




QAMA1N 


**♦ QA 


Routines 


1-08 


New 




; 0888 


2 






; 0889 


2 ! 




BEGIN 


; 0890 


2 ! 






; 0891 


2 






; 0892 


2 






; 0893 


2 






; 089A 


2 






; 0895 


2 






; 0896 


2 






; 0897 


2 






; 0898 


2 






I 0899 


2 






; 0900 


2 






; 0901 


2 






; 0902 


2 






; 0903 


2 






0904 


2 






; 0905 


2 






; 0906 


2 






; 0907 


2 






; 0908 


2 






; 0909 


2 






; 0910 


2 






; 091 1 


2 




END; 
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LOCAL 



MAP 



NewJtecord^Ptr; 



DSASGL.TESTNO : WORD, 
Record_Ptr r Error^Record; 



New (NewJtecordJHr); 

BEGIN 

MAP 

New Record Ptr 



Error_Record; 



END; 



New Record Ptr EQASVW Error NumberJ * .Error Number; 

New~Record~Ptr [QA$Vlf Test Humbert = .DSA$GC_TESTNO; 

New"*RecordlPtr C0A$VL_Subtes ^Number] = .DSA$GL.SUBTNO; 

New"*Record~Ptr [QASVL Error Count J * 1; 

NewJ*ecordJ>tr [0A$VA^Next^Frror3 = .Record.Ptr C0A$VA^Next_Error3 



Record_Ptr [QASVAJVext.ErrorJ = ,New_Record,Ptr; 



ZZ-ENSAA-7.0 
Q AHA IN 
1-08 



0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



New 

*** QA Routines 

New 



XS8TTL 'GASAdd.ForcedJrror' 

LOCAL 

Test : WORD, 

Subtest, 

Prev^Record^Ptr, 

Recorder; 
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I The DSA$GL_TESTNO. 

! The DSASGL.SUBTNO. 

! The pointer to the record before the Record_Ptr record. 

! The pointer used to sneak through the- linked list. 



Check to see if the Error List Head is nil. If so, this is the first record to be added. Add a new 
record that contains all zero Tields. Then, add another record after this one that will contain the 
correct information. The null record is used to make adding the first record easier. It also helps 
facilitate addina records before the first record. Set both of the global linked list pointers to 
point to this null record. 



IF UQASA Error List Head EQL QA$OjU) THEN 
BFGIN m 
LOCAL 

New_Record„Ptr; 

New (NewJtecordJHr); 

BEGIN 

MAP 

New_Record_Ptr 



Error Record; 



END; 



New Record Ptr CQASVW Error Number] = 0, 
New~Record~Ptr [0A$VW Test Rumber] = 0, 
New"Record"Ptr [0A$VL I Sub test ..Number] = 0, 
New~Record~Ptr [QASVL.Error Count] = 0, 
New~Record~Ptr [QASVAJJext Jrrorl = QASKJIil; 



Add.Error Record ( .New_Record„Ptr # .Error^Number); 

QA$A Prev Test Tail = .New_Record_Ptr; 
0A$A~Error Lis? Head = .New Record Ptr; 
RETURN 

END; 



ZZ-ENSAA-7.0 

QAMA1N 

1-08 



0956 

095? 

0958 

0959 

0960 

0961 

0962 

0963 

096*. 

0965 

0966 

096? 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0^80 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



New 

»** QA Routines 

New 
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Start looking at the current head of the linked list that has all the test and subtest numbers 
the same* T his list appears at the end of the forced-error linked list. 



BEGIN 



MAP 



QA$A_Prev_Test_Tail : Error_Record; 



END; 
BEGIN 



Prev Record Ptr = .QASA Prev Test Tail; 

Record J*tr " = .QASA^Prev.Test'Tail CQASVAJVext.ErroKl 



MAP 



Record^Ptr : Error^Record; 



END; 



Test = .Record Ptr [QASVW.Jest^NumberJ; 
Subtest = .Recorder [QA$Vl_SubtestJJumber3 



Check the start of the last link of like test/subtest numbers. See if this forced error happened 
in a new test and/or subtest. If so, add one record to the end of this list, 

IF ((.Test NEO .DSASGL TESTN0) OR (.Subtest NEQ ,DSA$GL^SU8TN0)> THEN 
BEGIN 
»♦ 

! Then we have forced an error call in a new test and/or subtest. Find the end of the linked list 
! of forced-errors and add a new record onto the end. Save a pointer to the previous end record. 

MAP 

Record_Ptr ; Error^Record; 

While (.Record Ptr CGA$VA.Next Error] NEO QA$K_Nil> DO 
Recorder = .Record.Ptr [QA$VA„Next..ErrorJ; 

0ASA_Prev.Jest.Tail * .Record„Ptr; 

Add Error Record ( .Record Ptr, .Error Number); 

RE TORN 

END; 



ZZ-ENSAA-7,0 
Q AHA IN 
1-08 



1000 

1001 

1002 

1003 

1004 

1005 

1006 

100? 

1008 

1009 

1010 

1011 

1012 

1013 

10K 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 



2 

2 
2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

2 



New 

*** QA Routines 

New 



H 15 „ #fl 
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!♦ 



Thus, at this point we do NOT have: 

1, A new list (i.e., no records), , _, , 

2. A new test and/or subtest number (i.e., the error number being added happened in the sam* 
test and subtest as the previously-added error number happened in. 

So, look along the error numbers in the linked list of records whose test/subtest numbers match for the 
correct place to insert this error number. 



BEGIN 



MAP 



LOCAL 



Record_Ptr : Errorjtecord; 
Curr_Error_Number; 



WHILE (1) DO 
BEGIN 
Curr^Error^Number * .Record^Ptr iQA$VW..Error_Numberj; 

IF (,Curr Error Number LSS .Error Number) THEN 
BEGIN " 

♦ 

If the next one is nil, add the new one at the end. If it is not nil, 
advance the pointer and continue looping. 

If (.Record Ptr [QASVA^Next Jrror] E0L QA$K_NU> THEN 

BEGIN 

Addjirror Record (.Record Ptr, .Error Number); 

RE TORN 

END 
ELSE 

BEGIN 

Prev_Record_Ptr - .Record^Ptr; 

Record Ptr * .Record Ptr CQASVA_Next Error!) 

END " 
END 
ELSE IF (.Curr Error Number EQL .Error Number) THEN 
BEGIN 
I* 

! This error number is already in the linked list. Add one to the total number 
! of times it has occurred. 

Record Ptr [QASVL Error Count] * .Record Ptr CQA$VlJrror w Count3 ♦ 1; 
RETURN 
END 
EL5E ! Curr Error Number GTR Error Number 

BEGIN 

This error number belongs just before the current record being looked at. 
Therefore, add a new record there. 



END; 



Add Error Record (.Prev Record_Ptr, .Error Number); 

RE TORN 

END; 

! WHILE ... 



ZZ-ENSAA-7.0 

Q AMAIN 
1-08 



1057 
1058 
1059 
:060 
1061 



New 

• *« QA Routines 

New 

! END; 
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! BEGIN ... 



1; 



END; 



0000 00000 
04 00002 



.ENTRY 
RET 



QA$ADD_F0RCED_ERR0R, Save nothing 



0749 
1061 



Routine Size: 3 bytes. Routine Base: CODE + 017E 



ZZ-ENSAA-7.0 


QAMAIN 




1-08 




; 1062 


1 


; 1063 


1 


; 1064 


1 


; 1065 


1 


; 1066 


1 


; 1067 


1 


; 1068 


1 


; 1069 


1 


; 1070 


1 


; 1071 


1 


; 1072 


1 


; 1073 


1 


; 1074 


1 


; 1075 


1 


; 1076 


1 


; 1077 


1 


; 1078 


1 


; 1079 


1 


; 1080 


1 


; 1081 


1 


; 1082 


1 


; 1083 


1 


; 1084 


1 


1085 


1 


; 1086 


1 


; 1087 


1 


; 1088 


1 


; 1089 


1 


; 1090 


1 


; 1091 


1 


; 1092 


1 


; 1093 


1 


; 1094 


1 


; 1095 


1 


; 1096 


1 


; 1097 


2 


; 1098 


2 


1099 


2 


; 1100 


1 



QASAdd.QA^Error 
*** QA Routines 
QA*Add_QA_Error 

XSBTTL •QAIAdcLQAJrror 1 

GLOBAL ROUTINE GASAdd.GAJrror <Routine_Constant> : NOVALUfc = 

FUNCTIONAL DESCRIPTION: 

This routine adds an error to the GA$AW_OveraU_Error_Table word vector, 
CALLER(S): 

The check routines. 
FORMAL PARAMETERS: 

Routine. Constant - One of the QASK^check-name constants. 
IMPLICIT INPUTS: 

QASAW^Overa I l_E rror_Table 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

Adds one to the Routine.Constant entry in the QASAW.Ouerall^Error^Tabte. 



J 15 
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BEGIN 



END; 



QA$AW_Overall Error.Jable [.Routine Constant] * 

,QA$AW_Overall_Error_Table L.Routine.ConstantD + 1 



0000 00000 

50 04 AC DO 00002 

00000000^40 B6 00006 

04 0000D 



.ENTRY OASADD QA ERROR, Save nothing 

MOVL ROUTINE CONSTANT, RO 

INCW QASAWjrtERALL.ERROR.TABLEERO:) 

RET 



1064 
109« 
1099 
1100 



Routine Size: 14 bytes. Routine Base: CODE ♦ 0181 



ZZ-ENSAA-7,0 


QAMAIN 




1-08 




; 1101 


1 


; 1102 


1 


; 1103 


1 


; 1104 


1 


; 1105 


1 


; 1106 


1 


; 1107 


1 


; 1108 


1 


: 1109 


1 


; 1110 


1 


; 1111 


1 


; 1112 


1 


; 1113 


1 


; 1114 


1 


; 1115 


1 


; 1116 


1 


; 1117 


1 


; 1118 


1 


1119 


1 


; 1120 


1 


; 1121 


1 


; 1122 


1 


; 1123 


1 


1124 


1 


; 1125 


1 


; 1126 


1 


; 1127 


1 


; 1128 


1 


; 1129 


1 


; 1130 


1 


; 1131 


1 


; 1132 


1 


; 1133 


1 


; 1134 


1 


; 1135 


1 


1136 


1 


; 1137 


1 


; 1138 


1 
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27-JuM984 
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QASControl C Handler 
*** QA Routines 
QA$Control„C_Handler 

XSBTTL •QASControLCHandler' 

ROUTINE QASControl.C^Handler = ! 

FUNCTIONAL DESCRIPTION: 

This routine is called by the Supervisor's Control-C (i.e.. *C) handler, KB.Check in the KERNEL. MAR 
module. It will abort QA. This routine is set up as a handler by QASMain. 

FORMAL PARAMETERS: 

NONE. 
CALLER(S): 

KB,CHECK in the KERNEL. MAR module. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

None, really. It is defined as a VALUE routine howver, because KB^CHECK looks at the return status 
by this routine (however, this routine does not return)! 

SIDE EFFECTS: 

Aborts the diagnostic and the QA sequence of checks. There are no completion codes because control does 
not return to here after the DSXSAbort routine call. Control will eventually get to DSSCli in the 
CLJ.NAA module. 



C063 

C063 
C063 
C063 
C063 
[063 
C063 
C063 
C063 
C06D 
C063 
C063 
[063 
C063 
[063 
[063 
C063 
[063 
[063 
C063 
[063 
C063 
[063 
C063 
[063 
[063 
[063 
C063 
C063 
[063 
C063 
[063 
C063 
C063 
C063 



ZZ-ENSAA-7,0 

QAMA1N 

1-08 



1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 



2 
2 
2 
2 
2 
2 
3 
3 
1 



QASCont ro I .C Handler 
*** QA Routines 
QA$Control_C.Handler 



L 15 

27-Jul-1984 
27-Jul-1984 
26-JUM984 



Fiche 11 Frame L15 



BEGIN 



IDS CNTRLC (DISABLED; 

DSAlGL FLAGS = .QA$L_SavedJ)SA_Flags; 

QASIni? (); 

DSASV QA = Off; 

DSXSABort (>; 

RETURN (1) 



END; 



, . . . _._ Sequence 2253 

16:10:19 VAX-11 Bliss-32 V4. 0-742 , ^ 
09:41:22 0MA1:CSYS0.SYSMAINT3QAHAIN.B32;109 



Disable Control-C's 
Restore OSA flags 
Initialize for next run 
Turn off QA 

Abort the diagnostic, return 
This will never be executed, 
above Abort. 



to CLI. 
because 



of the 



Page 39 
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T06] 
C06D 
C06D 
C063 
C063 
£063 
C063 
C063 
[063 









0000 00000 


QASCONTROL C 
♦ WDRB 








01 DD 00002 


PUSHL 








7E D4 00004 


CLRL 


000000006 


9F 




02 FB 00006 


CALLS 


O000FEOO 


9F 


00000000' 


EF DO 0000D 


MOVL 


oooooooov 


E^ 




00 FB 00018 


CALLS 


0000FEO1 


9F 


80 


8F 8A 0001 F 


BICB2 


00000000G 


EF 




00 FB 00027 


CALLS 




50 




01 DO 0002E 
04 00031 


MOVL 
RET 



.EXTRN DSSCNTRLC 



HANDLER: 

Save nothing 

#1 

-<SP) 

*2 t MDSSCNTRLC 

QASL SAVED DSA FLAGS, a# A XO000FEOO 

#0- QAS1NIT " 

#128, a#*X0000FE01 

#0, DSXSABORT 

#1, RO 



1103 
1140 



1141 
1142 
1143 
1144 
1145 
1147 



Routine Size: 50 bytes. Routine Base: CODE ♦ 018F 



ZZ-ENSAA-7.0 

QAMAIN 

1-08 



1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1153 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 



1 
1 
1 
1 
1 
1 
1 

I 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



QA$Dump 

*** QA Routines 

QASDump 

XSBTTL , QA$Dump* 

ROUTINE QASDump : NOVALUE = 

+ + 
FUNCTIONAL DESCRIPTION: 

This routine dumps pertinent information whenever a OA error is 
detected. If the users diagnostic has been aborted (i.e.* an 
INI T CONTEXT has been done;, this routine will fail because the 
user T s call frames are gone, 

CALLER: 

QASMain - This routine should be called when a QA error is 
detected. QASMain should be its only caller. 

FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

Various DSA and diagnostic header (i.e., L$x„) values and flags. 
IMPLICIT OUTPUTS: 

If possible, helpful debugging information is printed. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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7Z-ENSAA-7.G 

QAKA1N 

1-08 



1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

121? 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

2 

•^ 

c 

2 
2 
? 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



QASDump 

*** QA Routines 

QASDump 



BEGIN 



BUILTIN 



LITERAL 



LOCAL 



LOCAL 



BIND 



N 15 
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27-Jul-1984 
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FP, SP, AP, 
MOVPSL; 



Reg„Not_Saved 
Max^Regs^Saved 



Frame^Start, 



XX'OOOOOOOO 1 
12; 



! Special value to indicate that the register wasn't saved 
! Maximum that can be saved in a call frame. 

! Start of the user's call frame 



Stuff contained in a call frame: 



Diag PSW : WORD, 

Register Mask, 

Diag.AP, 

Diag FP, 

Diag~PC, 

Diag~SP, 



Number_0f_Regs; 



Fake^CU. Table 
Reg_Vector 



! Only get PSW - not PSL 
! Call frame register mask 



! Saved registers 

! Number of regs in the register save mask 



VECTOR C4, LONGD, ! Fake DSSGL_CLIBASE 

VECTOR [Max_Regs_Saved, LONG]; ! Store 12 registers 



Dump_Header_4 = SASCIC 

Dump Line_1 = SASCIC 

Dump~Line.2 = SASCIC 

Dump_Line_3 = SASCIC 

Dump_Line_4 = SASCIC 

Dump_Line..5 = SASCIC 

Dump Line 7 = SASCIC 

DumplLineI8 = SASCIC 

Dump Line 9 * SASCIC 

Dump_LineJO * SASCIC 



(»!25* QA ERROR 
('Test: !3UL!9* 



(' 
(' 



!8XL(X)!2* R3: 
!8XL(X)!2* R7: 
!8Xl(X)!2* R11 
!8XL(X)!2* PC; 

l/SHOW FLAGS:!/ 1 ). 

!/SH0W EVENT FLAGS:!/ 1 ), 



i*R2i 

CR6. 

CR10: 

CSP: 

(' 

(' 



DETECTED!/:/ 1 ). 
Subtest: J3ULJ6* Pass: 



XL(X)!2* 

_XL(X)!2* 

!8XL(X)!2* 

!8XL(X)J2* 



R4 
R8 
AP 
PSW: 



!3UL!9* Section: 
!8XL(X)!2* R5: 
!8XL(X)!2* R9: 
!8XL(X)!2* FP: 
!8XW(X)!/ 1 ). 



!AC!/!/'), 
!8XL(X)!/'), 
!8XL(X)!/'), 
!8XL<X>!/'>. 



J/SHOW DEVICE:!/'). 
J/SHOW SELECTED:!/ 5 ); 



C023 
C023 
[023 
C023 
C07] 
[07] 
C07] 
C07] 
C073 



QAMALN 

-08 



1226 

122? 

1223 

1229 

1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 
t> 

•> 

&. 

2 
2 
2 



QASOumo 

**« QA Routines 

QAIOu/np 



Picture o? * call frame 
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• 




PUSHx arguments for the CAilx 




J Number of arguments .' 


Saved RV 1 


Sawed R10 ! 


* 
♦ 


Saved RO 


Saved PC 


Saved FP 1 


Saved AP ■' 


SPA 


S ; 


'Register save mask <11:0>! PSW <15:5> 


: o : 


Condition Handler (Mtially Zero) 


Start of 'ailed routine** stack are4 i 



High Memory 
:(AP) 

♦n+4 



♦20 
♦16 
♦12 

♦8 
+4 

:(F?) 



- Low Memory; 



, i 



ZZ-ENSAA-7,0 

QAMALN 



1257 
1258 
1259 
1260 
1261 
126? 
126 j 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1271 
UK 
T?>5 
1276 
1277 

1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 



2 
2 
2 
2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
4 
i 

V 

2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
2 



QASOump 

*** OA Routines 

QASDump 



C 16 
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! Print the header lines for this routine* 

SOS PRINTF (QAST Header J >; ! 

SDS~PRINTF (QAirweacer ?. .l$A NAME* .L$LJ*EV. . I $L .UPDATE); ! 

SDS'PRiNTF (QAST~H*adtr~3« 0>; ! Specify to get system time. 

SOS'PMINTF <Dump>eaderJ>); 

I ♦ 

! Print the test number, subtest number, pass number, and section name. 



con 
con 
con 



8EGIN 



BIND 



SecJ4ame_Table = C(.L$A_SECNAW) ♦ 4) : VECTOR C* LONG); 



END; 



$DS PRINTF (Dump Lineal, .DSASGL TESTNG. 

.DSASCl^SUSTNO. .DSAlSt PASSNO. 
.5ecJVame_Table [♦DSASgC^SECTNOJ) 



it an Init Context has been done, then cannot follow stack frames back to the user's last 
call trameT Therefore, just print above lines and return, 

IF (.QASA08 Flags CQASk ]n>t Context_Done]> THEN 
BEGIN 

QA*A08 Flags CQA$K init Context Donej * False; ! Turn it back oft 
RETURN* " 
END; 



ZZ-ENSAA-7.Q 

Q AMAIN 
-08 



1289 

1290 

1291 

1292 

1295 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13H 

1315 

1316 



2 
2 
2 
2 

2 
2 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 



QASDump 

*** QA Routines 

QASDump 



16 
27-Jul-198A 
27-Jul-1984 

26-Jul-1984 



"l 



Ffche 11 Frame D1 



Jequence 2258 
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If cannot follow stack 
print an error message 



frames back to the user's program* the Find_User„CaU„Frame routine will 



IF (NOT QASFind User Call Frame (Frame_Start>) THEN 

RFGIN "* 



BEGIN 

RETURN 

END; 



Failure 



Frame Start now equals the start of the user's last call frame. Set Diag.FP equal to the start of 
the frame that was just found. This frame is the one from which I am extracting everything, so it 
makes sense to use the FP that points to this frame. This is done instead of using the fP that is 
contained ir the frame we are looking at (i.e., that points to the frame of the caller of the 
user's routine that bo/Kbed). 



BEGIN 



BIND 



Call.Frame = .Frame^Start : BLOCK E, BYTE!; 



END; 



D?acjJ>5W 

Registerjlask 

Diag.AP 

Diag_FP 

Diag.PC 




ZZ-ENSAA-7.0 

QAMAIN 
-08 



1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

)352 

1353 

1354 

1355 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

4 

4 

3 

2 



QAtDump 

*** QA Routines 

QASDump 



E 16 
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Get those registers that were saved. Assume Reg_Not_Saved for non-saved ones. This will only get 
those registers that were saved in the user's last call frame. That is, those registers saved by 
the Last called Supervisor routine, which through a series of CALL'S, BSBW's, etc. got to here. 
However, those Supervisor routines which, by virtue of their being called by the diagnostic, 
cause a QA error must have all the registers (i.e., R2 through R1T) saved in the entry mask for 
their routine. This allows the following code to access all these registers. 



C02] 
LQ21 
1022 



INCR Reg Number FROM TO (Max Regs Sawed - 1) DO 
Reg. .Vector [♦RegJ*'umber3 - Reg^Not^Saved; 



be one less than the actual number of registers that were 

index the Startjtegisters vector, which starts at zero, not onet 



Number^Of Jtegs will actually tnd up to 
saved. This is so that I can use it to 

Number^Of.Regs - -1; 

INCR Bit Number FROM TO (Max Regs Saved - 1) DO 

Begin 
bind 

• * 

Start registers is the start of a vector of saved registers in the call frame. This 
vector starts at offset 20 from the start of the frame. 



StartJ*egisters =? < (.Frame_Start> ♦ 20) : VECTOR C, LONG]; 



MAP 



Register Jiask : BJTVECT0R [32]; 



! Reference as a Bit Vector 



IF (. Register Jlask [.Bit, Number]) THEN 
BEGIN 



END; 



Reg Vector C.g? t Number ]""* 7Start_Registers C.Number^OfJtegs]; 
END; 



ZZ-ENSAA-7.0 

QAMALN 

1-08 



1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 



2 
2 
2 
? 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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Number_0f_Regs = .Number^Of.Regs * 1; 



i «. 



Number Of Regs now equals the actual number of registers that were saved ir\ the call frame, 
Compute tfie value of the Stack Pointer before the user's CALLx was executed. This is found 
by computing the size of the last call frame put on by the user. This size is the added to 
the starting address of the call frame and the stack pointer alignment is added in, 
producing the value of the SP> 



BEGIN 



BIND 



Calljrame = .Frame_Start : BLOCK [, BYTE]; 



Diag iP = »Frame Start ♦ 

T5 * 4) ♦ 



END; 



! Start of call frame 

! 5 longwords 

(.Number Of Regs * 4) ♦ ! Longword for each reg 

.Call .Frame CS*$V w STACKOFFS3; ! SPA 



! Print the registers and the PSW. Do not print R0 and R1 since th*v may not be correct. 



SOS PRINIF (Dump line 2, .Reg Vector [2], .Re^ Vector [33, .Reg Vector 

$DS~PRJNTF (Dump" line" ?, .Reg'vector [63- .Reg'Vector [7] 4 .Reg„Vector 

SDS'PRINTF (Dump^lint^, .Reg~Vector [1QJ, -Reg.Vector [11J, .DiagJW, 

SDSlPRINTF <Dump_nne m 5, .DiagJP, .DiagJ*C # • DiagJ > SW>; 



[43, .Reg_Vector 
[83* .Reg_Vector 
.Diag^FP); 



C53); 
[93 ) ; 



C023 



C023 
£023 
C023 
C023 



J 



ZZ-ENSAA-7.Q 
QAMAIN 



138C 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

H00 

1401 

1402 

1403 

H04 

1405 

1406 

1407 

1408 

1409 

1410 



2 

2 
2 

2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 



QASDump 

*** QA Routines 

QASDump 



6 16 
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26-Jul-1984 



16:10:19 
09:41:22 



Fiche 11 Frame 61 



Sequence 2261 
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Print the control flags, event flags* and selected devices* 



SDS PRINTF (Dump line_7); 
VRSRowFlg (); 

SDS PRINTF (Dump line^8); 
VRSRowEf O; 



! Show the control flags 



! Show the event flags 



Set up a fake CLi database table. This is needed because the following two routines access the 
CLISQ FILE quadword in this table in order to determine what device should be SHOU'n. All that 
is needed in this table is a null quadword at the CLISO.FILE offset. Zero out the entire table 
to play it safe though. Only 4 lonowords are allocated since the FILE quadword starts at the 
third longword in the real CLI table* 

1NCR I FROM TO 3 DO 

Fake CLI^Table C.13 = 0; 



END; 



IDS PRINTF (Dump line 9); 
DSVlShowDeviee (PakejLlJable); 

SDS PRINTF (Dump line 10); 
DSVJShowSelect (FakejLI Jable) 



! Show the devices 



i Show the selected devices 



20 52 4F 

20 2A 39 
36 21 4C 



32 21 29 
21 29 58 



32 21 

21 29 



f9 
18 



52 52 

2F 21 

21 4C 

55 33 



20 3A 6E 6F 69 



32 21 29 
21 29 58 



32 21 29 
21 29 58 



58 28 
28 4C 



21 20 20 3A 35 



58 28 
28 4C 



21 20 20 3A 39 



58 28 
28 4C 



21 20 20 3A 50 



58 2S 
28 AC 



45 20 
2f 21 
55 33 
21 20 
i3 21 
74 63 

4C 58 

58 38 

38 21 

52 20 

4C 58 

58 38 

38 21 

52 20 

4C 58 

58 38 

38 21 

46 20 

4C 58 

58 38 

38 21 




00007 P.AA8: 
00016 

2 P.AAC: 

11 

I0QA0 

I0Q4A 

>59 

00060 P.AAD: 

0006F 

0007E 



)9F P.AAE; 
>AE 



!» 



c 

D6 

DE P.AAF: 

ED 

FC 
106 
115 
1 1D P.AAG: 

0013B 



8 



•PSECT DATA,NQWRT.NOEXE. SHR.2 

.ASCII <26>\!25» OA ERROR DETECTED */ i /\ 

• ASCII \=Test: I3ULI9* Subtest: !3UL!6* Pas?,: !3\ 

.ASCII \UL!9* Section: !AC!/!A 

•ASCII \>R2: !8XL(X)!2* R3: !8xt(X>!2* RA: !8\ 

.ASCII \XL<X>!2« R5: !8XL(X>!/\ 

♦ASCII \>R6: *8Xl(X)l2* R7; [8XL(X>!2* R8: »8\ 

.ASCII \XL(X)!2* R9 , 8XL(X)!/\ 

.ASCII \>R10: !8XL(X !2% R11: !8XL(X)!2» AP: !8\ 

.ASCII \XL(X),'2» FP: !8XL(X)J/\ 

♦ASCII \.SP: !8XL<X>!2* PC: !8Xl(X)!2* PSW: !8\ 



ZZ-ENSAA-7.0 

QAMAIM 

'-08 



QASDump 

*** QA Routines 

OASDump 



21 
46 
3A 
45 



3A 

20 
45 
54 



53 
54 
43 
43 



47 
4E 
49 
45 



41 
45 
56 
4C 



4C 
56 
45 

45 



46 
45 
44 
53 



20 
20 
20 
20 



?F 
57 

57 
2F 
57 



21 
4F 

4F 

21 
4F 



51 00000250 



29 
48 

48 
3A 
48 



57 4F 48 



58 
53 

53 
53 

53 

53 

2F 



?8 


57 


58 


2F 


21 


or 

2F 


2F 


21 


15 


47 


41 


4C 


2F 


21 


10 




2F 


21 


2F 


21 


12 


21 


3A 


44 



58 0Q0Q0000' 
5A 00000000' 

59 00000000G 

OOOOOOOOG 
69 
7E OOOOO^OC 



69 



69 



69 

04 68 

68 



00000000V u 
01 

51 
58 



00000208 
000000006 



000000006 



69 
9F 
50 0000FE10 



0000FE54 

C23 FE4 £ 

000FE50 
18 



8 



04 



OFFC 

EF 9E 

EF 9E 

9F 9E 

AE 9E 

EF 9F 

01 FS 
9F 7D 
9F DD 
EF 9F 
04 F8 
7E 04 
IF 9F 

02 FB 
5A DD 
01 F8 

04 CI 
9F DO 

6140 DD 

9f DD 

9F DD 

9F DD 

AA 9F 

05 FB 

5 V 

8 8A 

04 

5E DD 

01 FB 

50 8 

6E DO 

A1 BO 



$ 
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00145 
OOHC P.AAH 

158 

15C P.AAI 

001?2 P.AAJ 
00181 

00183 P.AAK 
00192 

DUMP 
DUMP 
DUMP 
DUMP, 
DUMP, 
DUMP, 
DUMP 
DUMP, 
DUMP 
DUMP 



.ASCII \XW(X)!A 

♦ ASCII <<5>\!/SHOW FLAGS: !/\ 

.ASCII <21>\!/SHOW EVENT FLAGS:!A 

.ASCII <16>\i/SH0W DEVICE :!A 

.ASCII <18>\!/SH0W SELECTED; \/\ 



header_4= p.aab 

;linej» p.aac 

line 2- p.aad 

,LiNEj= P.AAE 

LINE 4« P.AAF 

LINE„5= P.AA6 

LINE 7* P.AAH 

;LINE;> P.AAI 

LINE 9* P.AAJ 

*LINE~10= P.AAK 

.EXTRN DSSPRINTF 

.PSECT CODE,N0WRT, SHR,2 



00000 QA$DUMP:.WORD 

00QQ2 M0VA8 

00009 M0VA8 

00010 MOVAB 
00017 MOVAB 
0001 B PUSHAB 
00021 CALLS 

!4 MOVQ 

J8 PUSHL 

000*1 PUSHAB 

Q0Q37 CALLS 

QQ03A CLRL 

00O3C PUSHAB 

QQ042 CALLS 

00045 PUSHL 

00047 CALLS 

Q0Q4A ADDL3 

00052 MOVL 

00059 PUSHL 

0005 C PUSHL 

00062 PUSHL 

)68 PUSHL 
PUSHAB 
CALLS 
BBC 
BICB2 

QQQ7B REY 

0QQ7C 1$: PUSHL 

0007E CALLS 

00085 BLBS 

Q0Q88 RET 

00089 2$: MOVL 

0008C MOVW 



W 



Save R2,R3,R4,R5.R6,R7,R8,R9.R10,R11 

QASA08 FLAGS, R11 

DUMP HEADER J , R10 

WDSlPRINTF , R9 

-68<SP), SP 

QA$T HEADER.! 

#i f UsIprinTf 

#»» - <sf -> 

QAST HEADER 2 

(¥4- &SSPR1NTF 

-(SP) 

QAST HEADER 3 

#2. BsJpRINTF 

R16 

#1, DSSPRINTF 

*XO0QQO250, R1 

.0QQFE10. RO 

(R1) 

a# A xi 
a#*xi 
a#*xi 

DUN* LlNE.1 

#5, BSSPRlNTF 

#3. QASAOB J LAGS. 1$ 

#8, QASAOB^FLAGS 

SP 

#1, QASFINDJJSER CALLJRAME 

RO, 2S 

FRAME START, R1 
4(R1), DIAG_PSU 




1150 

1261 
1262 

1263 

1264 

1272 
1276 



12861 
12$ 



130<3 
1311 



ZZ-ENSAA-7.0 

QAMAiN 
1-08 



54 



QASDump 
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QASOump 

06 AT 
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51 



07 



F8 

08 

FO 
A1 



F8 



56 
55 



50 
50 
53 

54 

04 AE42 

52 

50 
02 
52 



69 



69 



69 

7E 



69 
69 



69 



50 

69 
52 



69 
52 



00 

08 A1 
51 

10 A1 
50 

04 AE40 
OB 
01 

14 A1 

52 

52 

50 

6340 

OB 

50 

6140 

06 

14 A140 

18 AE 

18 AE 

18 AE 

18 AE 

59 AA 

05 

28 AE 

28 AE 

28 AE 

Ac 

CA 

05 

56 

57 

AE 

AE 

CA 

05 
58 
24 
CA 
04 
CA 
01 
EF 
CA 
01 
000000006 Ef 
50 
34 AE40 
03 
CA 
01 
AE 
EF 
CA 
01 
AE 



0091 



38 
00D7 



0116 

0145 

OOOOOOOQi 
0155 



0168 

34 

OOOOOOQOG 
017C 

34 



EF 00090 
DO 00096 
DO 0009A 
DO 0009D 
D4 000A1 
D4 000A3 3$: 
F3 000A7 
CE OOOAB 
9E OOOAE 
D4 000B2 
E1 000B4 4$: 
D6 000B8 
DO OOOBA 



F3 

D6 

DE 

EF 

9E 

DD 

Dt> 

DD 

DD 

9F 

F8 

DD 

DD 

DD 

DD 

9F 

FB 

DD 

DD 

DD 

DD 

9F 

FB 

3C 

86 

9F 

FB 

9F 

FB 

16 

9F 

FB 

16 

D4 

D4 

F3 

9F 

FB 

9E 

16 

9F 

FB 

9E 



OOOCO 
000C4 
000C6 
OOOCA 
OOODO 
000D5 
Q00D8 
OQODB 
OOODE 
000E1 
000E4 
000E7 
OOOEA 

88818 

000F3 
000F7 
OQOFA 
OOOFC 
OOOFE 

00104 
00108 
001 OB 
0010E 

001 K 
00114 
00117 
0C11B 
0011E 
00124 
00128 
001 28 
00131 

il 

H 

H 

11 



5$: 



H42 
(146 
H4C 
1150 
10153 



6$: 



EXT2V 

MOVL 

MOVL 

MOVL 

CLRL 

CLRL 

A08LEQ 

MNEGL 

MOVAB 

CLRL 

BBC 

INCL 

MOVL 

A08LEQ 

INCL 

MOVAL 

EXTZV 

M0VA8 

PUSHL 

PUSHL 

PUSHL 

PUSHL 

PUSHAB 

CALLS 

PUSHL 

PUSHL 

PUSHL 

PUSHL 

PUSHAB 

CALLS 

PUSHL 

PUSHL 

PUSHL 

PUSHL 

PUSHAB 

CALLS 

M0V2WL 

PUSHR 

PUSHAB 

CALLS 

PUSHAB 

I ALLS 

J 38 

PUSHAB 

CALLS 

J SB 

CLRL 

CLRL 

A08LEQ 

PUSHAB 

CALLS 

MOVAB 

J SB 

PUSHAB 

CALLS 

MOVAB 



#0, #12, 6(RD, REGISTER MASK 

8<R1), DIAG.AP 

R1, DIAG FP 

16<R1>. BlAGJ>C 

REGJWMBER 

REGJ/ECTORCREG NUMBER3 

#117 REG NUMBER. 3$ 

#1, numbSr_of.regs 

20(R1), R3 

Bl ^NUMBER 

BIT>UMBER, REGISTERJ1ASK, 5$ 

NUMBER OF JEGS 

<R3>LN0MBER WREGS3. REGJ/ECTOR" 

CBITJWMBERl 

#11, BIT NUMBER. 4$ 

NUMBER OF REGS 

<R1)CnOM8ER UFJ*EGS3, RO 

#6, #2, 7(RT). R1 

20<R1)CR03, DIAG.SP 

REGJ/ECTOR+20 

REGlVECTOR+16 

REG VECTOR+12 

REG VECTOR+8 

DUMP LINE 2 

MS. BSSPRlNTF 

REGJ/ECT0R+36 

REG_VECT0R*32 

REG_VECT0R+28 

REG VECTOR+24 

DUMP LINE 3 

#5. PSlPRlNTF 

DIAGJP 

DIAG AP 

REGjECTOR+44 

REG VECTOR+40 

DUMP LINE 4 

*5 t PSSPRlNTF 

DIAG PSU. -<SP) 

# A M<fl2 f R5> 

DUMP LINE 5 

#4. CSSPRlNTF 

DUMP LINE 7 

#1, 5S$PRlNTF 

VRSHOWFLG 

DUMP LINE B 

#1. 0S$PRlNTF 

VRSHOUEF 

FAKE CLI TABLECI3 
#3. L 6* 
DUMP LINE 9 
#1, BSSPRlNTF 

fake cli table, r2 
dsvJShowDevice 
dump .line jo 

#1, BsiPP.TNTF 
FAKE_CLIJABLE f R2 
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1312 
1313 
1314 
1315 
1326 
1327 

1334 
1344 

1349 
1352 
1353 

1336 
1356 
1371 
1373 
1372 
1380 



1381 



1382 



1383 



1388 

1389 
1391 

1392 
1402 
1403 

1405 

1406 

1408 

140S 



ZZ-ENSAA-7.Q 

QAMAIN 
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QASDump 
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000000006 EF 



16 00157 
04 001 5D 



J SB 
RET 



DSV$SHOWSELECT 
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H10 



Routine Size: 350 bytes. Routine Base: CODE + 01C1 



z;:-ensaa-7.o 


QAMAIN 




1-08 




; 1411 


1 


; 1412 


1 


1413 


1 


; 1414 


1 


; 1415 


1 


; 1416 


1 


; 1417 


1 


; 1418 


1 


1419 


1 


: 1420 


1 


; 1421 


1 


; 1422 


1 


; 1423 


1 


; 1424 


1 


; 1425 


1 


; 1426 


1 


; 1427 


1 


; 1428 


1 


; 1429 


1 


; H30 


1 


1431 


1 


; 1432 


1 


; 1433 


1 


; 1434 


1 


; 1435 


1 


; 1436 


1 


; 1437 


1 


; 1438 


1 


; 1439 


1 


1440 


1 


; 1441 


1 


1442 


1 


1443 


1 


; 1444 


1 


; 1445 


1 


1446 


1 


; 1447 


1 


1448 


1 


1449 


1 


; 1450 


1 


1451 


1 


1452 


1 


; 1453 


1 


; 1454 


1 



GASFind User„Cali_Frame 
**» QA Routines 



QA$Find_User^Call_ Frame 

XSBTTL , QA$FindJJse^..CaU..Frame , 

GLOBAL ROUTINE QA$F1ndJJser_CallJ r rame (Frame_Start) = 



K 16 
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FUNCTIONAL DESCRIPTION: 

Find the user's last call frame by following the linked list 
of call frames* Find the first call frame whose saved PC is 
less than the starting location of the Supervisor. This should 
insure that that call frame was put on the stack when the user 
called a Supervisor service routine. This called frame will 
contain the saved PC, AP f FP, PSW, perhaps some of the general 
registers, and (indirectly) the SP. 

CALLER: 

QASDump - to find the call frame so it can print the debugging 
information. 

FORMAL PARAMETERS: 

Frame Start - will contain the starting location of the 
found call frame, 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

Messages indicating that the call frame list cannot be followed, 

COMPLETION CODES: 

R0 EOL 1 => Success, Frame.Start contains the starting location 

of the call frame. 
R0 EQL 1 => Failure, Frame„Start contains crap. 

SIDE EFFECTS: 

Hopefully none. 



ZZ-ENSAA-7.0 


QAMA1N 




1-08 




; 1455 


2 


; 1456 


2 


; 1457 


2 


; 1458 


? 


; 1459 


2 


; H60 


2 


; 1461 


2 


; 1462 


2 


; 1463 


2 


1 464 


2 


; 1465 


2 


; 1466 


2 


; 1467 


2 



QASFind User Call_Frame 
*** QA Routines 
QA$FindJJser_Call_ Frame 
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BEGIN 



BIND 



BU1LTIN 



LITERAL 



LOCAL 



FP_Ptr = ,Frame_Start; 



FP, PROBEW; 



Max,Frames_Checked = 25; 



Last_PC, 
Number^Frames, Checked; 



J Maximum numbor of frames to check 



B 1 

C 1 

D 1 

E 1 

F 1 

G 1 

H 1 

I 1 



B 
C 
D 
E 

F 
G 
H 
I 
J 
K 
L 
M 



C 



E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 



M 1 

N 1 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



N 2 
B 3 



3 
3 
3 
< 

3 

3 
3 
3 
3 
3 
3 
3 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



B 5 

C 5 

D 5 

E 5 

F 5 

G 5 

H 5 

I 5 



SCANSSEARCHUST Search list to 

SCANSDEVICE Scan a device name 

SCANSDEVICE Scan a device name 

Breakup File name into parts 

Breakup File name into parts 

Symbol table 

Symbol table 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

PCSL^D Module 

PCSLOAD Module 

Libraries 

Table of Contents 

Psect Definitions 

PCSLOAD-Static Storage 

DSXSLOADPCS Routine 

DSXSLOADPCS Routine 

DSVSINITPCS Routine 

DSVSINITPCS Routine 

DSVSiNITPCS Routine 

*** PRINT Formatted print rout 

*** PRINT Formatted print rout 

*** PRINT Formatted print rout 

*** PRINT Formatted print rout 

Libraries, Macros, and Equated 

Work Psect Declarations 

Data Psect Declarations 

DSVSSetPage Routine - Set term 

DSVSSetPage Routine - Set term 

DSVSShowPage Routine 

Routine 

Routine 

Routine 

Routine 

Routine 



DSVSShowPage 
DSXSTypeJ)ut 
DSXSType Out 
DSXSType J)ut 
DSXSType J)ut 
DSXSType Out Routine 
DSXSPrint Routine - 
DSXSPrint Routine - 
DSXSPrintX Routines 
DSXSPrintX Routines 
DSXSPrintX Routines 
DSXSPrintX Routines 
DSXSCvtReg Routine 
DSXSCvtReg Routine 
DSXSCvtReg Routine 
DSXSCvtReg Routine 
DSXSCvtReg Routine 
DSXSCvtReg Routine 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 



- Do 

- Do 

- Do 

- Do 
Load 



Show te 

Show te 

Do actu 

act u 

actu 

actu 

actu 

type 



Load type 

- Extended 

- Extended 

- Extended 

- Extended 
Mnemonic 
Mnemonic 
Mnemonic 
Mnemon i c 
Mnemonic 
Mnemonic 



J 5 Cross reference 

K 5 Cross reference 

L 5 Cross reference 

M 5 Cross reference 

N 5 *** PROBE Check address access 

B 6 *** PROBE Check address access 

C 6 DSXSPR08E 

D 6 DSXSPR08E 

E 6 DSXSPROBE 

F 6 ACCSHANDLR 

G 6 ACCSHANDLER 

H 6 ACCSHANDLER 

I 6 - UDA50 BOOT DRIVER 

J 6 - UDA50 BOOT DRIVER 

K 6 DECLARATIONS 

L 6 DECLARATIONS 

M 6 DECLARATIONS 

N 6 UDASO Bootstrap device initial 

B 7 UDA50 Bootstrap device initial 

C 7 UDA5Q Bootstrap device initial 

D 7 UDA50 Bootstrap driver 010 

E 7 UDASO Bootstrap driver QIO 

F 7 Symbol table 

G 7 Psect synopsis 

H 7 Cross reference 

I 7 Cross reference 

J 7 Cross reference 

K 7 Cross reference 

L 7 *** QA Check Routines 

M 7 Table of Contents 

N 7 Libraries 

B 8 Included Macros and Literals 

C 8 External Routines 

D 8 External Own Storage 

E 8 Psect Definitions 

F 8 Local Macro Definitions 

G 8 Local Macro Definitions 

H 8 Module-Global Static Storage 

I 8 ASCIC Bindings 

J 8 ASCIC Bindings 

K 8 ASCIC Bindings 

L 8 QASNormaLStart 

M 8 QASNormaLStart 

N 8 QASNormaLStart 

B 9 QASNormaLStart 

C 9 QASNormal Start 

D 9 QASNormaLStart 

E 9 QASNormal Start 

F 9 QASMultipTe^Pass 

G 9 QASMultipl*_Pass 

H 9 GASMultiple^Pass 

I 9 QASMultiple Pass 

J 9 QASLoop bn Test 

K 9 QASLoop„,OnJest 

L 9 QASLoopJ)nJest 

M 9 QASLoop Onjest 

N ? OASLoop Onjest 

8 10 QASLoop^OnJest 

C 10 QASLoop On Subtest 

D 10 QASLoop^On.Subtest 



E 10 QASLoop On Subtest 

F 10 QASLoop On^Subtest 

G 10 QASLoop_On_Subtest 

H 10 QASLoop„On_Subtest 

I 10 QASLoop On Subtest 

J 10 QASRunJJackwards 

K 10 QASRunJ3ackwards 

L 10 QASRunJteckwards 

M 10 QASRun.Backwards 

N 10 QASRun.Backwards 

8 11 QASRunJJackwards 

C 11 QASRun.Backwards 

D 11 QASRun^Backwards 

E 11 QASRun^Backwards 

F 11 QASRunJ3ackwards 

G 11 QASRun^Backwards 

H 11 QASRun Backwards 

111 End of Module QACHECKS 

J 11 *** Setting and Showing 0A Fla 

K 11 *** Setting and Showing QA Fla 

L 11 Table of Contents 

M 11 Psect Definitions 

N 11 Literals 

B 12 Static Storage 

C 12 Global Bindings 

D 12 VRSetQA 

E 12 VRSetQA 

F 12 VRSetQA 

G 12 VRSetQA 

H 12 VRShowQA 

I 12 VRShowQA 

J 12 VRShowQA 

K 12 VRShowQA 

L 12 End of Module QAFLAGS 

M 12 *** QA Routines 

N 12 *** QA Routines 

B 13 Linkage Definitions 

C 13 Table of Contents 

D 13 Libraries 

E 13 Included Macros and Literals 

F 13 External Routines 

G 13 External Own Storage 

H 13 Psect Definitions 

I 13 Local Macro Definitions 

J 13 ' cal Macro Definitions 

K 13 Module* 'Uobal Literals 

L 13 Field Definitions 

M 13 Module-Glob&l Otatic Storage 

N 13 Supervisor-Global Static Stora 

B 1A DSXSBRANCH 

C 1A DSXSBRANCH 

D 1A DSXSBRANCH 

E 1A DSXSBRANCH 

F 1A DSXSBRANCH 

G 1A DSXSBRANCH 

H 1A DSXSBRANCH 

1 1A DSXSBRANCH 

J 1A DSXSBRANCH 

K 1A DSXSBRANCH 

L 1A QA$Abort_QA 



M U QASAbort QA 

N 14 QASAdd Forced Error 

B 15 New " 

C 15 New 

D 15 New 

E 15 New 

F 15 New 

G 15 New 

H 15 New 

1 15 New 

J 15 QASAdd QA Error 

K 15 QASControI C Handler 

L 15 QASControCc'Handler 

M 15 QASDump 

N 15 QASDump 

D 16 QASDump 

C 16 QASDump 

D 16 QASDump 

E 16 QASDump 

F 16 QASDump 

G 16 QASDump 

H 16 QASDump 

I 16 QASDump 

J 16 QASDump 

K 16 QASFindJJser_Call Frame 

L 16 QASFindJJser_Call..Frame 
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END; 



i Find the last call frame put on the stack by the user. Verify that the FP in the call frame 
* can be accessed. This partially insures that I am not following invalid call frames. 

! - 

FP Ptr = ,FP; I Start at the current FP 

Number^Frames^Checked = 0; 

WHILE 1 DO 

BEGIN 

IF (NOT PROBEW UREF (0), 3REF (3), .FP_Ptr>> THEN 
BEGIN 
BIND 

Invalid^Call.Frame = $ASCIC m ^ t x ,,.,., , „«. 

(■i/**QA Internal Irrorx Invalid call frame. FP * !XL<X>, !/!/'); ! C013 

$DS PRINTF (Invalid.CallJrame, .FP^Ptr); 

RETORN (QA$K Failure) 

END; 

IF ((Number Frames Checked = .Number Frames Checked + 1) GTR Max Fr ames^Checked) THEN 
BEGIN 
BIND 

Too Many Frames - SASCIC ........ •.«*«, 

('!/**QA Infernal Error: Cannot follow stack frames back to the diagnostic!/!/ 1 ); ! C01j 

$DS PRINTF (Too Many Fra.nes); 

RETORN (0A$KJa7lure7 

END; 

!♦ 

! The contents of FP Ptr is the starting address of the current frame being looked at. Pick out the 
! PC from the call frame, if this PC is less than the starting location of the Supervisor, then this 
: call frame must be the last call frame of the user. If not, backtrack to the next call frame. 

• -. 

last_PC s ,(.FPJ>tr + 16); ! PC is offset 16 from the start of the call frame, 

IF (.Last PC LSS DS$K„DS,Start ing^Locat in) TH*N 
BEGIN 

RETURN (OASK^Success) 
END; 

fP Ptr = AJP Ptr ♦ 12); ! FP is offset 12 from the start of the call frame. 

END 



.PSECT DATA,N0WRT,N0EXE, SHR,2 

.A5CIJ \;!/**QA Internal Errort Invalid call fra\ 

.ASCII \me. PP = !XL(X),!/!/\ 
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61 6E 72 65 74 6E 49 20 41 51 2A 2A 2F 21 

74 6F 6E 6E 61 43 20 3A 72 6F 72 72 45 20 

74 ?3 20 77 6F 6C 6C 6F 66 

6B 63 61 62 20 73 65 6D 61 72 66 20 68 63 

73 6f 6E 67 61 69 64 20 65 6o 74 20 6F 74 



1 4C 001D2 P.AAM? 

C 001E1 

001 FO 

1 001FA 
00209 



.ASCII \L!/**GA Internal Erron Cannot follow st\ 



.ASCII \ack frames back to the d1agnostic!/!/\ 
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DO 0004A 
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031F 





INVALID CALL FRAME* P.AAL 
TOO MAN? F RARE 3= P.AAM 



.PSECT CODE,NOWRT, SHR,2 

.ENTRY QASFIND USER CALL.FRAME, Save R2,R3,R4,R5 

MOVAB MDSSPRlNTF, R5 

MOVL FP, 8FRAME START 

CLRL NUMBER^FRAWES^CHECKED 

1$: MOVL SFRAME„START, R2 

PROBEW fl), #37 (R2) 

BNEQ 2$ 

PUSHL R2 

PUSHAB INVALID CALL FRAME 

CALLS n. DSSFRINTF 

BR8 3$ 

2$: INCL NUMBER FRAMES„CHECKED 

CMPL NUMBER FRAMES., CHECKED, #25 

BLEQ 4$ 

PUSHAB TOO JiANY FRAMES 

CALLS #1, D3SPRJNTF 

3$: CLRL RO 

RET 

4$; MOVL 16(R2), LAST PC 

CMPL LAST PC, #65336 

BGEQ 5$ 

MOVL #1, RO 

RET 

5$: MOVL 12<R2), SIFRAME^START 

BRB 1$ --. 
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ROUTINE QASInlt 



D 1 

>7~Jul-1984 
>7«Jul-1984 16: 
>6-Jul-1984 09:41:22 
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NOVALUE = 



FUNCTIONAL DESCRIPTION: 

This routine performs all the global initializations required 
for the QA routines. This routine must be called both when a 
START or RUN command 1s being processed and when a QA execution 
completes (to set up a subsequent execution). 

CALLER(S): 

QASMain 
FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

The QASAOB Check State bit vector. 

The QA$AW Overall Error, Table word vector. 

The QASAOB.Flags Bit vector. 

IMPLICIT OUTPUTS: 

The QA$A0B_Check State bit vector, 

r he QA$AW Overall Error_Table word vector. 

?he QASAOS.Flags Bit vector. 

COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

The QASA08 Check State bit vector is zeroed. 

The QASAW Overall Error.Table word vector is zeroed. 

The OA$AOS_Flags Bit vector is zeroed. 



BEGIN 



INCR Flag FROM TO <GA$K Number QA_F lags 
QASAOBJlags C.Flag] = OTf; 



END; 



1) DO 

INCR Bit Pos FROM TO <QA$K„Number Of ^Checks - 1) DO 
0A$AOB„Check_State C.Bit.PosJ = Off; 

INCR Error Entry FROM to <QA$K_Number_Of Checks - 1) DO 
QAlAW^Overall^Error^Table t.Error.tntry] = 0; 

QA$A Prevjest Tail * QA$K.Nil; 
QA$A Error LisT_Head = QASKJlH; 
DSSGJ.DS.CTrl^C.First = 0; ! Disable Supervisor catching of Control-C's, 



[061 
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00 
F8 

00 
F7 



F8 



FC 



52 00000000' Et 
50 
50 
07 
50 
50 
OE 
50 
CC A240 
OE 
O00OOOOOG EF 



62 
50 

A2 
50 



50 



0004 

9E 
D4 
E5 
F3 
D4 
E5 
F3 
D4 
84 
F3 
D4 
04 



00000 
00002 
00009 
OOOOB 
OOOOF 
00013 
00015 
0001 A 
0001 E 
00020 
00024 
00028 
0002E 



QA$IN1T:«W0RD 
MOVAB 



1$: 
2$: 

3$: 

4$: 

5$: 



CLRL 

BBCC 

AOBLEQ 

CLRL 

BBCC 

AOBLEQ 

CLRL 

CLRW 

AOBLEQ 

CLRL 

RET 



Save R2 

QASAOB FLAGS, R2 

FLAG 

FLAG, QASAOB.FLAGS, 2$ 

»7 L FLAG, 1$ 

BJT^POS 

BIT POS, QASAOB CHECK.STATE, 4$ 

#147 BIT POS, 3$ 

ERROR ENTRY 

QA$AW OVERALL ERROR TABLE CERROR.ENTRY] 

#14, ERROR ENTRY, 5$ 

DSSGA.DS CTRL.C.F1RST 



1517 
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1562 
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1571 



Routine Size: 47 bytes. Routine Base: CODE + 0370 
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GLOBAL ROUTINE QASMain (Hook_Point) 
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NOVALUE = 



FUNCTIONAL DESCRIPTION: 

This global routine is called from different points in the Supervisor and from the DSXSBranch 
routine. It decides, based on the QASAOB.Check.State bit vector, which check is currently being 
executed. If a check routine returns with an unsuccessful return, this will call the QASDump 
routine and then halt. If the diagnostic was not run with the /QA qualifier, do nothing. 

CALLERS: 

DSX$Br*nch 

CLI 

01 SPAT 

ERROR 

KERNEL 

LOOP 

PARAM 

START 

FORMAL PARAMETERS: 

Hook Point : The point in the Supervisor from which this routine was called. This is a constant 
value. The constants are defined in the DSQA macro. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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Define a macro 

Check^Case (Normal^otart) 

that will expand to: 

CQaSAOB Check State [QAiK.Ni rmat Start]: 

IF (QAlNormal Star? uhoo^Point)) THEN 
RETURN 

tor the case of the Normal Start check. That is, if the appropriate bit is set in the bit 
vector, call the appropriate routine (corresponding to that bit) with the Hook.Point parameter 
that was passed to QASMain. If the routine returns successfully, return to the caller. 



Check.Case (Routine Name) = 
[ .QASAOQ^CReck^State 
C XNAME C'QAiK 



] 



X; 



SP; 



IF (KNAME CQAi' 
THEN 

RETURN 



Routine_Name) 3 
Routine.Name) (.Hook„Point) ) 



DS$GL.CLIQASE : BLOCK C, BYTE3; 



C023 
[02] 
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IF ( 



,QA$A0B.Ftags CQASK 0A Debug]) THEN 

$DS PRINTF ($ASCJC (M/QA$Main Entry, Hook.Point = JUL.!/'), 
.Hook^Point); 



It not running QA, return. 

if (not ,dsa$v oa) then 
return! 

Check several soecial cases of hook points: 

a) If called from the START module, VRStart label, perform all the global initializations 
for this module. Do not call any check routines. 

i)> If called fron the START modula, VRReStart label, re-initialize the CLI vector and call 
the appropriate check routine. This hook-point 1? the starting point for each check. 

c) If called from the START module, BeforeJHeader area, and this 1s the first time that this 
hook point has been seen, then save the first and last test numbers after they have been 
set up by the START routine, Du not call any check routines. 

d) If called from one of the GET routines in the PARAM module, print a QA error message, 
find out what check routine is currently running, add an error to that routines total, 
and abort this diagnostic's QA, This is done here because each check routine has to make 
this check. 



e) 



f) 



If called from the midpoint of the EndPass routine in the DISPAT module, and the last 
check was executing, do things necessary to end the QA sequence of checks. That Is, 
print the summary table, re-inlt for next time, turn the QA DSA bit off, and return to 
the EndPass routine. The act of turning the QA bit off will cause the EndPass routine 
to then branch to BEGIN, which then calls DSSCU (effectively ending this QA sequence). 

if called from the KERNEL module, Init^Context label, and if the QA debug flag is set, 
print a debugging message for me. 



g) If called either the beginning or the end of the DS_Cleanup routine in the DISPAT module, 
set (or clear) the Doing.Cleanup bit 1n the Routine.State bltvector. This tells the check 
routines if a reported error happened during Cleanup or not. 
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169? 3 

1693 3 

1694 1 

1695 3 

1696 3 

1697 3 

1698 3 

1699 3 

1700 3 

1701 3 

1702 3 

1703 3 

1704 3 

1705 3 

1706 3 

1707 3 

1708 3 

1709 3 

1710 3 

1711 3 

1712 3 

1713 3 
17H 3 

1715 3 

1716 3 

1717 3 

1718 3 

1719 3 

1720 3 

1721 3 

1722 3 

1723 3 

1724 3 

1725 3 

1726 3 

1727 3 

1 728 3 



QASMain 

*** QA Routines 

QASMain 



IF (.Hook Point 
BEGIN 

+ 



I 1 
27-Jul-19 
27-Jul-19 

26-Jul-19 

EQL DSQA$K_Start_VRStart) THEN 




Fiche 12 Frame II 



lequence 227** 



: 1 : 1 9 ~ VAX-11 8lis3-32 V4.0-74; 

;41:22 DMAlj[SY$0.$YSMAINT]QAMAIN,e32;109 



Page 60 
(51) 

[023 



Initialiee QA, It should get to this hook point only when the START routine is called from 
the DS$Cli routine. Set the Normal Start check bit so that the Normal Start routine is 
executed first. Return to the Start module (i.e., do not execute any check routines). 
NOTE- this hook point is seen only ONCE per QA sequence of checks (that is, once for each 
invocation of the diagnostic with the /QA qualifier;. 



DS$GL CUB; . L'CLI$L,PASS] 
DS$GL~CLi: ' ? CCLISL^SUBH 
GA$Wj>ave_tV t * -1; 
QASWJave.Last = -1; 



:« 



Assume one for tne number of passes. 
Start at first subtest. 
Set to -1 to indicate that it has not 
Set to -1 to indicate that it has not 



been 
been 



saved, 
saved. 



GA$l_$avedJ>SAJLags = ,DSA$GL_FLAGS; i Save the current OSA flag settings 



DSASV, 

OSASV, 

DSASV. 

DSAtV. 

DSA$V, 

DSA$V. 

OSASV. 

DSASV 

DSA$V. 

DSA$V, 

0SA$V, 

D$A$V. 



BELL 


= Off 


HALT 


* Off 


IE1 


= Pff 


IE2 


x Off 


IE3 


« Off 


JES 


* Off 


LOOP 


= Off 


OPER 


* Off 


PROMPT 


= Off 


.QUICK 


* Off 


SEARCH 


» Off 


'TRACE 


- On; 



INCR State FROM TO <GA$K NumbJ*out1ne. ll States 
QA$AOB„Routme w Stato [.State] = Off; 

QASInit O; 

DS$GA DS Ctrl C first * QASControL C Handler; 

QASAOB Cneck State CQA$K.NormaL^Star!J * On; 

RETURN" 

END 



Set BELL on error off 

Set HALT off 

Set IE1 off 

Set IE2 off 

Set IE3 off 

Set IES off 

Set LOOP ON ERROR off 

Set OPER off 

Set PROMPT off 

Set QUICK off 

Set SEARCH off 

Set TRACE flag on. 

1) 00 ! 



Enable DS catching of Control-C's. 



C023 
[02] 
[02] 
[02] 
[02] 



[02] 
[02] 
[02] 
[02] 

[02] 



C023 

[06] 
[023 



ZZ-ENSAA-7,0 
QAMAIN 

1-08 



1729 

1730 

1731 

1732 

1733 

175*. 

1735 

1736 

1737 

1738 

1739 

17A0 

1741 

1742 

17«.3 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 
1758 
1759 
1760 



2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

4 

4 

3 

3 

2 

3 

3 

4 

4 

4 

4 

4 

4 

4 

3 

3 

3 



QASMain 

*** CA Routines 

QA$Main 



27-JuM984 
27-Jul-1984 
26~Jul-1984 



16:10:19 
09:41:22 



ELSE IF (.Hook Point EQL DSGA$K_Start_VRReStart) THEN 
BEU1N " 



Fiche 12 rrame J1 Soquence 2275 
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! [023 

! [023 



Restore the CL I wee tor. This 1s done at the start of each check routine to protect against [023 
the CLI values getting Lost while a check routine Is executing the diagnostic. Only restore [023 
the First and Last test numbers if they have been saved (i.e., if the saved First test number [023 
is not -1). C023 



DS$GL_CLJ8A$E [CLI$LJ>ASS3 * 1; 
DSSGL^CLIBASE LCLI$L.SUBT3 = 0; 



i Assume one for the number of passes 
! r tart at first subtest. 



IF LQASW Save.Tesl NEQ -1) THEN ! 

BFGIN ! The first and last tests have been saved. 

DSSCL CLIBASE CCL1SL TEST] - ,QA$W Save^Test; ! Restore saved first test. 

D3$GL~CLIBASE [CLI$L~LAST3 * ♦ QA$W_Save..Last ! Restore saved last test. 

END " ! 

END . ! 

ELSE If (.Hook Point EQL DSQASK Start^Before^Header) THEN J 
BEGIN " 

IF (.0A$W Savejest EQL -1) THEN ! 
BEGIN ! 

+ 

The first and last tests have not been saved. Save them on the first time only. 



RETURN 
END 



QA$W_Sai/e_Test 

QA$W Save Last 
END; 



.DS$Gl_FSTTEST; 
.DSS6I.J.STTEST 



Save first test number. 
Sove last test number. 



C023 
C023 

C023 

[023 
[023 
[023 
[023 

[023 

[023 
[023 

[023 



;023 




ZZ-ENSAA-7.0 QASMain 


Q AMAIN 


»■** QA Routines 


1-0* 


QASNain 


; 1 761 


2 ELSE IF 


; 1762 


2 


; 1763 


2 


; 1764 


2 


; 1765 


2 


; 1766 


3 


; 1 767 


3 


; 1768 


j 


; 1769 


3 


1 770 


3 


; 1771 


3 


; 1772 


3 


; 1773 


4 


; 1 774 


4 


; 1775 


4 


; 1776 


5 


; 1777 


5 


; 1778 


5 


; 1779 


5 


; 1780 


5 


; 1781 


5 


; 1782 


5 


; 1783 


5 


; 1 784 


5 


; 1 785 


5 


; 1786 


5 


; 1 787 


5 


1 788 


5 


; 1 789 


5 


; 1790 


5 


; 1791 


6 


; 1 792 


S 


; 1793 


6 


; 1794 


6 


; 1795 


t 


; 1 796 


; 1 797 


4 


1 798 


4 


; 1 799 


4 


; 1800 


4 


; 1801 


3 


; 1802 


3 


; 1803 


3 


; 1804 


3 


; 1805 


3 


; 1806 


3 



K 1 

27-JuM984 Fiche 12 Frame K1 Sequence 2276 

27-M-1984 16:10:19 VAX-11 BMss-32 V4.C-742 _ Page 

?6-Jul-1984 09:41:22 DMA1 :[SYS0.SYSMAINT]QAMAIN.B32;1O9 

ELSE IF (.Hook Point EQL DSQA$K_Param„DSX$GetData) OR 

(.HooklPoint EQL DSQA$KJ 3 aram_DSX$GetVietd) OR 

(,Hook"Point EQL DSQASK^Param^DSXSGetAddress) OR 

(.Hook Point EQL DSQA$KJ>aram_DSX* r jetLog1cal) OR 

(.Hook'Point EQL DSQASK Param DSXSGetString) THEN 
BEGIN " 
! + 

! User is trying to request information from the operator. It 1s o QA er^or if no 
! default value is given. 

IF (.QASAOB Flags [QA$K_NoDef3) THEN 
BEGIN 
$DS ^PRJNTF (GA$T_Operator_Request_Message) ; 

BEGIN ! 

+ 
Find which check routine 1s currently running. If none are running, it is a logic 
error. Use the nmber of Che first-bit-set as the QA$K check routine constant, and 
add an error to this check routines summary table total. 



ELSE 



END 



LOCAL 



BUILTIN 



First„8it.,Set; 



! Return bit position 



FFS; ! Find First S*t bit 

FFS (XREF (0), XREf <QA$K_Number_Of„,Checks) , QA$A08_Check..State, First..B1t_Set); ! 



IF ( 

ELSE 



.First Bit. Set EQL QASK.Number Of Checks) THEN 

Lo&ic.Error (*No check state bit set - GET routi 



ine called*) 



END; 



BEGIN 

QASAdd.QA.Error (.F irst Bit Set); 

QA$A0B Routine State [QA$V„Error^Found3 = True 

END; 



QA$AbortJ3A () 
END 



Abort the QA sequence 



There was a default value given for the GET supervisor call. Simply return. 
RETURN 



(53) 

C02J 
[023 

[02] 
[02] 
[02] 
[02] 
[02] 
C023 
[02] 

[02] 
[02] 
[02] 

[02] 
,02] 
023 

:og 
:o2 

C02D 

[02] 



[02] 
[023 

[02] 

[02] 
[02] 

:o 

[02] 



as, 

C023 



ZZ-ENSAA-7,0 

QAMA1N 

1-08 



1807 


2 


1808 


3 


1809 


3 


1810 


4 


1811 


4 


1812 


4 


1813 


4 


18K 


4 


1815 


4 


1816 


4 


1817 


4 


1C18 


4 


1819 


4 


1820 


3 


1821 


3 


1822 


2 


1823 


3 


1824 


3 


1825 


3 


1826 


3 


1827 


3 


1828 


3 


1829 


2 


1830 


3 


1831 


3 


1832 


3 


1833 


3 


183' 


3 


1835 


? 


1836 


3 


1837 


3 


1838 


3 


1839 


2 



QA$Main 

*** QA Routines 

QASMain 



L 1 ^ 
27-Jul-1984 f 

27-Jul-1984 16:10:19 
26-JuM984 09:41:22 



iche 12 Frame Li Sequence 2277 
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ELSE IF (.Hook Point EQL DSQA$K„Dispat J)SX$EndPa$9j1id) THEN 
BEGIN " 
IF LQASAOB Check State CQA$K,Last„Check]) THEN 

BEGIN 

QASPrint Forced^Errors (); 

DSSGL^f STTEST = .OAs^i^^Test; 

DS$GL~LSTTEST * ,QA$W_SaveJ^st; 

QASPrint Overall Errors O; 

DSA$GL FtAGS = .SA$L,Savod_DSA_Flags; 

QASIni? (), 



END 



DSASV QA = Off; 

RETURN 

END 



! If midpoint of EndPass routine, 

If executing last check. 

Then 

Print the forced-errors. 

Restore the saved test number. 

Restore the saved last test number. 

Print the summary table. 

Restore the DSA flags, 

Jnitialiee for next run. 

Turn off 0A bit. 

And return to the EndPass routine. 



ELSE IF (.Hook Point EQL DSQASKJcernelJnl t_Context) THEN 
BEGIN 
IF (,QA$A0B Flags CQASK QA_Debug3) THEN 

$DS PRINTF (SASflC ( T J/QA Main: Init.Context done!/ 1 )); 
RETURN 
EN* 

ELSE IF (.Hook Point EQL DSGASK.Dispat J>S..Cleanup_Bgn> THEN 
BEGIN - ... 

QASAOB Routine State [QA$VJ)oing_CleanupJ = True; 
RETURN 
END 

ELSE IF (.Hook Point EQL DSGA$K_Dispat_DS_Cleanup_End) THEN 
BEGIN 

QASAOB Routine State [QA$V Doing Cleanup] s FaUe; 
RETURN 
END; 



[02] 

[02] 

023 

023 

02] 

,02] 

C02] 

C023 

£02] 

[02] 

C023 

[02] 

[02] 

[02] 
[02] 
C023 
C023 



C02] 
C02] 
C02] 

m 



:o; 
:o; 
:o; 
:o; 
:o; 



ZZ-ENSAA-7.0 
QAMA1N 



1840 

1841 

1842 

18^3 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1S57 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

3 

■? 

3 

3 
3 
3 
3 

3 
3 
3 
3 

2 
2 
2 
2 
2 
2 
2 
2 
2 
1 



72 74 

30 20 

61 uE 

65 68 

6F 72 

2F 

69 6E 

21 65 

61 6E 

69 61 



GASMain 

*** GA Routines 

QASMain 

! + 



M 1 
27«Jul~1984 Fiche 12 Frame Ml Sequence 2278 

27-juMW 16:10:19 VAX-11 Bliss-32 V4. 0-742 _ mM Page 64 

26-Jul-1984 09:41:22 DMA1 ;[SYS0.SYSMAINT]GAMAIN,B32;109 <>5> 



i Dispatch to the proper check routine based on what bit is set in the GASAOB.Check^State bit vector. 

SELECTONE 1 OF 
SFT 

Check Case (Normal Start): 
Check'Case (Multiple Pass); 
Check_Case (Loop_0n_Test>; 
Check.Case (LoopOn Subtest); ! 
Check Case (Run Backwards); ! 

[OTHERWISE]: 
BEGIN 

! We have found a GA internal bug. Print message for me and abort me. 



TES; 



Logic Error <• QASMain: No check state bit set. 1 ); 

DSASGt FLAGS = ,QA$l_$aved_DSA_F lags; 

QASInit (); 

DSASV QA = Off; 

DSX$A5ort (); 

RETURN 

END; 



Restore DSA flags 
Initialize for next 
Turn off OA 
Good way to stop QA. 



C013 
[07] 



[02] 
[02] 



run 



END; 



If it gets to here, then a check routine faived. This implies that we detected a QA error. 
Abort me and the diagnostic. 

QASAbort.QA () ! 



[02] 
[02] 



[02] 



6E 


45 


20 


6E 


69 


61 


4D 


24 


41 


51 


2^ 


21 


74 


6E 


69 


6F 


50 


5F 


6B 


6F 


6F 


48 


20 


2C 














2T 


21 


2E 


4C 


55 


21 


72 


65 


74 


6E 


49 


20 


41 


51 


2A 


2A 


2f 


21 


63 


20 


6F 


4E 


20 


3A 


72 


6F 


72 


72 


45 


20 








62 


20 


65 


74 


61 


74 


71 


20 


68 


20 


54 


45 


47 


20 


2D 


a 


7i 


65 


73 


15 


74 


21 


64 


65 


6C 


6C 


61 


20 


65 


§E 


74 


49 


20 


3A 


6E 


69 


» 


4l> 


st 


41 


51 


v, 


?1 


6E 


6F 


64 


20 


74 


65 


74 


6E 


6F 


43 


5F 



24 

79 

20 

44 

6 

6 



0021 F P.AAN: 

m 

00244 P.AA0: 
'53 
■62 

iff 

!89 P.AAP 



72 65 74 

4D 24 41 



74 65 73 20 74 



6E 49 

51 20 

63 65 

69 62 



2C 41 

3A 72 

68 63 

20 65 



51 
6F 
20 
74 



n 

6F 

61 



2* 
72 
4E 
74 



2F 
45 



2^ 



1 

Sa 
►o 

21 




ES= 

ES= 



.PSECT DATA,N0WRT,N0EXE, SHR,2 

.ASCII \$!/GA$Main Fntry, Hook^Point = JUL.! A 

.ASCII \D!/**QA Internal Error: No check state b\ 

.ASCII \1t set - GET routine calledlA 

.ASCII <30>\!/QAJ1oin: Init^Context done!/\ 

.ASCII \9!/**QA Internal Error: QA$Main: No chec\ 

.ASCII \k state bit set.lA 



P.AAO 
P.AAQ 



22-ENSAA-7.0 

QAMAiN 
1-08 



QA$Ma<n 

*** qa Routines 

QA$Main 



N 1 
27-Jul-19l 
27-JuL-19l 

26-JuM9 



16:10:19 
09:41:22 



Flche 12 frumd N1 Sequence 2279 

VAX-11 81 is -32 V4.0-74? Page 6* 
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.PSECT C0DE,N0WRT, SHR,2 



08 



04 



00 

n 



F2 

OOOOFEO^ 
0000FE01 

FC 
00000000'j 



fFFF 

FA 

F8 



rtfr 



*2 

F4 



59 OOC000006 
58 OOOOOOQOG 
57 00000000' 
56 OOOOOOQOG 
55 000000006 
54 A9 
53 00000000' 
A3 

04 



66 



52 
16 



0000FE01 



04 



65 

FC 
A3 
A3 OOOOFEOO 



9F 

9f 

50 
64 
EF 
63 

12 

65 

8F 

A5 

A5 

17 
8F 

A3 

A3 

OC 
OD 
OE 



71FD 



FE1F 



FC 

F2 

F2 
F4 



F2 



03FC 
EF 9E 



EF 
EF 
9F 
EF 
AF 
EF 

0'. 

AC 
57 
02 
9F 
01 



01 
A5 
01 
9F 
8F 
04 

n 

03 
00 
C4 
01 

52 

1A 
01 
A5 
A3 

6 * 
A3 

A3 

60 

52 

A3 

01 

68 
69 

52 
14 
52 

:r 

52 



9E 
9E 
9E 
9E 
9E 
9E 
El 
D0 
DP 

95 
19 
04 




D 

12 

00 

D4 

CE 

DO 

AA 

88 

D4 

E5 

F3 

F8 

9E 

88 

04 

D1 

DO 
D4 

81 
13 



11 
01 
12 
81 
13 
04 
BO 
DO 
04 
D1 
13 
D1 
13 
D1 



WOO 
00002 
QQ009 
00010 
00017 
0001 E 
00025 

05922 

00030 
00035 

m 

oor 

43 
45 
46 
4A 
4D 
0004 F 
00052 
QQ055 
00059 
00061 
0006A 

m 

00078 
0Q7C 
07F 
8 
8 
C 
F 
1 
94 
00097 
009D 
009» 
A4 
A9 
OOAB 
OQQAE 
OQOBO 
O0OB6 
0O0B8 
000B9 
OOOBD 
000C1 
0OOC2 
000C5 
Q0C7 
OOCA 
OOOCC 



8 



1$: 



2$: 



3$: 

4$: 



5$: 



6$: 



7$: 



8$: 



» 



.ENTRY 

rCVAB 

MOVAB 
MOVAB 
MOVAB 
MOVAB 

MOV/8 

MOVAB 

BBC 

PUSHL 

PUSHL 

CALLS 

TSTB 

BLSS 

RET 

MOVL 

CMPL 

BNEQ 

MOVL 

CLRI. 

MNEGL 

MOVL 

BICW? 

BIS** 

CLRI 

BBCC 

AOBLEQ 

CALLS 

MOVAB 

BJSB2 

RET 

CMPL 

BNEQ 

MOVL 

CLRL 

CMPW 

BEQL 

CVTWL 

CVTWL 

BRB 

CMPL 

BNEQ 

CMPW 

BEQL 

RET 

MOVW 

MOV'u 1 

kET 

CMPL 
BEQL 
CMPL 
BEQL 
CMPL 



QASMAIN, Save R2,H3,R4,R5,R6,R7,R8,R9 

DSSGLJSTTEST, R9 

DSSGI.JSTTEST, R8 

P.AAN, R7 

a#DS$PRINTF, P6 

DS$GL CLIBASE+44, R5 

QAlINlT, R4 

QA$AOB CHECK STATE, R3 

#1, QAlAOB FCAGS, 1$ 

HOOK_POINT 

R7 

#2, DSSPR1NTF 

a# A XOO0OFEO1 

2$ 

HOOK POINT, R2 

R2, 122 

5$ 

#1, DS$GLCLIBASE+44 

DS$GL CLlBASEHO 

#1 QX$W SAVE TEST 

a**xgoooPEOO "qah saved.dsa.flags 

#29181, arxOOOOFEOO 

#4, a# A XO00OFEO1 

STATE 

Si ATE, QASAQB ROUTINE_STATE, 4$ 

#3, STATE, 3$ 

#0, QA$INJT 

QASCONTROL^C HANDLER, DS$GA_DS_CTRL_C_FIRST 

#1, QA$AOB_CHECK..STATE 

R2, #18 
6$ 

•»1, ds*gl clibase+44 
d$Sgl.cliBase*40 

QASWjAVP.TEST, #-1 

13$ 

QA$W_SAVEJEST, DS$GL_CLIBASE+32 

QASW^SAVE.LAST, DS$GL_CHBASE+36 

13$ 

R2, #23 

8$ 

QA$W„SAVEJCST, #-1 

?% 

DS$GL FSTTEST, QA$W.SAVE_TEST 
DS$GLlLSTTEST, QA$WJAVE_IAST 

R2, #12 

9$ 

R2, #13 

98 

R2, #14 



ZZ-ENSAA-7,0 

QAMAIN 
\ -08 



QA$Ma<n 

*** QA Routines 

QA$Ma1n 



B 2 
!7-Jul-19 

7-Jul-19 
l 6-Jul-19 



Fiche 12 Frame B2 



Sequence 2280 
V4, 0-742 Page 66 

DMA1:CSYS0;SYSMAINT]QAMAIN.B32;109 (55) 



16:10:19 VAX-11 BUss-32 
09:41:22 



50 



63 



50 



01 



FE11 
FC 

FDDC 



00000000V 



00000000V 
OOOOFEOO 

O0OOFEO1 



04 



OF 

10 

01 04 

000000006 
66 
OF 
OF 



66 



C4 

A3 
C4 



63 
EF 
68 

69 
EF 
9F 
64 
9F 

08 

A3 



66 

03 

FC A3 

04 

FC A3 

OB 

OOOGOOOOG EF 

08 63 

QOOOOQOOG Ef 

08 63 

OOOCOOOOG EF 



25 



F2 
F4 

F8 

80 



6A 



OA 13 

52 01 

05 13 

52 01 

32 12 

A3 ^8 
04 

^ 9F 

01 F8 

00 EA 
50 01 
08 12 
A7 9F 

01 FB 
QB 11 
50 DD 

01 FB 

02 88 
00 FB 
58 11 
52 D5 
2E 12 
04 E1 
00 FB 
A3 32 
A3 32 
00 FB 
A3 DO 

00 FB 
8F 8A 

04 

52 D1 

OD 12 

01 EO 

8 



OOOCF 
00001 
000D4 
00006 
000D9 
OOODB 
OOODF 
OOOEO 

88 

QOOEE 

Soon 

000F3 
000F6 
000F9 

qqofb 

OOOFD 

mi 

00111 
00115 
0011C 
00120 
00124 

0012B 
00133 
00136 
001 3E 
0013F 
00142 
00144 
149 
14A 
0014D 
00150 
00151 
00154 
156 
15A 
15B 
15E 
160 




9$: 
10$: 



11$: 



12$: 
13$: 

14$: 



15$: 



16$: 



17$: 



18$: 



19$: 



20$: 



21$: 



BEQL 

CMPL 

BEQL 

CMPL 

BNEQ 

BLBS 

RET 

PUSHAB 

CALLS 

FFS 

CMPL 

BNEQ 

PUSHAB 

CALLS 

BRB 

PUSHL 

CALLS 

BISB2 

CALLS 

BR8 

TSTL 

BNEQ 

BBC 

CALLS 

CVTWL 

CVTWL 

CALLS 

MOVL 

CALLS 

BJC82 

RET 

CMPL 

BNEQ 

BBS 

RET 

PUSHAB 

CALLS 

RET 

CMPL 

BNEQ 

B1SB2 

RET 

CMPL 

BNEQ 

BIC62 

RET 

BL8C 

PUSHL 

CALLS 

BRB 

BBC 

PUSHL 

CALLS 

BRB 

BBC 

PUSHL 

CALLS 



9$ 

R2, H5 

9$ 

R2, 016 

QA$A0B_FLAGS, 10$ 

OA$T OPERATOR REQUEST MESSAGE 

#1, DS$PRINTF" 

«O t *15, QA$AOB CHECK.STATE, F JRST^BIT.SET 

FIRST..BIT..SET, 015 

11$ 

ES 

01, DS$PRINTF 

12$ 

FIRST BIT SET 

*1, QX$ADD.QA ERROR 

*2, QA$AOB ROOUNE STATE 

#0, QA$ABORT„QA 

19$ 

15$ 

04, QA$AOB CHECK STATE, 19$ 

#0, QA$PRlF)T FORCED ERRORS 

QA$W SAVEJE3T, DS$BL ai FSTTEST 

QA$tTSAVE„LAST, DS$GL LSTTEST 

ftO t 5A$PRlNT OVERALLjRRORS 

QA$L SAVED D?A FLAGS, S/TXOOOOFEOO 

#Q L DA$INIT 

#128, SW A X0OO0FEO1 

#1, QA$AOB^FLAGS, 16$ 

P«AAP 

*], DS$PRINTF 

R2, #3 

1 8$ 

#4, QA$AOB_ROUTINE_STATE 

R2, 04 

I9i 

#4, QA$AOBJU)UTINE_STATE 

QA$AOB.CHECK.STATE, 20$ 

R2 

#1, QA$NORMAL START 

24§ 

#1, QA$AOB.CHECK.STATE, 21$ 

R2 

Jn f QA$MULTIPLE.PASS 

24i 

#2. QASAOB CHECK.STATE. 22$ 

R2 

#1, QA$IOOPJDN_TEST 



1764 

1765 

1772 

1774 

1788 
1790 

1791 

1790 
1794 

1795 

1799 

1807 

1809 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1810 
1822 

1824 

1825 

1823 
1829 

1831 
1830 
1835 

1837 
1836 
1846 



1847 



1848 



ZZ-ENSAA-7,0 

QAMA1N 

1-O8 



QASMain 

*** QA Routines 

QASMain 



OB 63 

00000000G EF 

OD 63 

OOOOOOOOG EF 
23 



OOOOFEOO 

0000FE01 
OOOOOOOOG 



66 
9F 
64 
9F 
EF 



FDDC C4 





K 


11 




03 


E1 




52 


DD 




01 


F8 




OD 


11 




04 


El 




52 


DD 




01 


F8 




50 


E9 
04 


0089 


a 


9F 




01 


F8 


F8 


A3 


DO 




00 


F8 


80 


8F 


8A 




00 


F8 
04 




00 


F8 
04 



C 2 
27-Jul-1984 
27-Jut-l984 
26-JuM984 



Ffche 12 Frame d 



Sequence 2281 

V4. 0-742 

DMA1:[SYS0.SYSMAINT3QAMAIN.B32;109 



16:10:19 VAX-11 Bliss-32 
09:41:22 



0018F 
00191 
00195 
00197 
0019E 
001AO 
00U4 
001A6 
001AD 
001B0 

001B1 

001B5 
001B8 
001C0 
001C3 
001CB 
00102 
001D3 
001D8 



22$: 



23$: 



24$: 
25$: 



26$: 



BR8 

BBC 

PUSHL 

CALLS 

BRB 

BBC 

PUSHL 

CALLS 

BL8C 

RET 

PUSHA8 

CALLS 

MOVL 

CALLS 

BIC82 

CALLS 

RET 

CALLS 

RET 



24$ 

*Z, GA$A0B CHECK^STAFE, 23$ 

R2 

01, QA$L00P 0N.SUBTEST 

24$ 

#4, GA$AC5 CHECK STATE, 25$ 

R2 

#1, QA$RUN BACKWARDS 

RO, 26$ " 

ES 

*1, DS$PRINTF 

QA$L SAVED DSAJLAGS, WXOOOOFEOO 

*0, QA$INlT 

#128, Stf*XOO00FEO1 

00, DSX$ABORT 

#0, QA$ABORT m QA 



Page 67 
(55) 



1849 



1850 



1857 

1858 
1859 
1860 
1861 
1852 
1871 
1872 



; Routine Size; 473 bytes. Routine Base: CODE + 039F 



ZZ-ENSAA- 


7,0 


QAMA1N 




1-08 




; 1873 


1 


; 187*. 


1 


; 1875 


1 


; 1876 


1 


; 1877 


1 


; 1878 


1 


; 1879 


1 


; 1880 


i 


; 1881 


1 


; 1882 


1 


; 1883 


1 


; 1884 


1 


; 1885 


1 


; 1886 


1 


; 1887 


1 


; 1888 


1 


; 1889 


1 


; 1890 


1 


1891 


1 


; 1892 


1 


; 1893 


1 


; 1 394 


1 


; 1395 


1 


; 1896 


1 


1897 


1 


; 1898 


1 


1899 


1 


1900 


1 


1901 


1 


1902 


1 


; 1903 


1 


1904 


1 


; 1905 


1 


; 1906 


1 


; 1907 


1 



QA$Print_Forced_Errors 
*** QA Routines" 
QASPrint Forced Errors 
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27-Jul-1984 Ffche 12 Frame D2 Sequence 2282 

27-Jul-1984 16:10:19 VAX-11 Bliss-32 V4. 0-742 Page 68 

26-JuL-1984 09:41:22 DMA1 :CSYS0.SYSMA1NTJQAMAJN.B32;109 (56) 



%SBTTL 'QASPrint.Forced.Errors 1 

GLOBAL ROUTINE QA$Print_Forced_Errors : N0VALUE = 



ALL C02D 



FUNCTIONAL DESCRIPTION: 

This routine prints the Forced-Errors Summary TabLe, which gives the number of forced errors for the 
three Error cnecks. 

CALLER(S): 

The Error check routines. 
FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 



IMPLICIT OUTPUTS: 

Forced^Errors Summary TabLe printout. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7,0 

GAMA1N 

1-08 



1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 



1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



Dispose 

+** QA Routines 

Dispose 

XSBTTL 'Dispose' 
BEGIN 



E 2 

27-Jul-1984 Fiche 12 Frame E2 Sequence 2283 

2?-Jul-1984 16:10:19 VAX-11 Bh'ss-32 V4, 0-742 a Page 6? 

26~Jul-1984 09:41:22 DMA1 :C5YS0.SYSMAINTJQAHAJN.B32;109 (57) 



! Print^Forced^Errors Routine 



FUNCTIONAL DESCRIPTION: 

This routine disposes of a 16^byte vector. 
CALLER (S): 

QASPrint^Forced.Errors 
FORMAL PARAMETERS: 

Record_Ptr - Contains the address of the 16-byte vector. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE* 
SIDE EFFECTS: 

NONE 



. „ i 



ZZ-ENSAA-7.0 

QAHAIN 

1-08 



Dispose 

*** QA Routines 

Dispose 
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1941 

1942 
1943 
1944 
1945 
1946 
1947 
1948 
19<t9 
1950 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



ROUTINF Dispose (Recorder) : NOVALUE ~ 
BEGIN 

MAP 

Record Ptr : REF VECTOR l, WORD]; 



END; 



Record Ptr [4J = QA$K Forced Error Record.Size; 
EXESDeaNonPaged (. Recorder; ; 



! Treat the Record.Ptr as a vector of words 

I Put in the size of the data structure 
! Deallocate it 



ZZ-ENSAA- 


?.0 Dispose 




QAMAIN 


*** QA 1 


Routines 


1-08 


D 


ispose 




; 1951 


2 ! 






; 1952 


•> i 


XSBTTL 


•QA$Pri 


; 1953 


2 ! 




! + 


; 1954 


2 ! 




! The a 


; 1955 


2 ! 




! - 


; 1956 


2 ! 






; 1957 


2 ! 




BIND 


; 1958 


2 ! 






; 1959 


2 ! 






; 1960 


2 : 






; 1961 


2 






; 1962 


2 ! 






; 1963 


2 ! 






; 1964 


2 ! 






; 1965 


2 ! 






; 1966 


2 ! 






1967 


2 ! 






; 1968 


2 






; 1969 


2 






; 1970 


2 






; 1971 


2 ! 






1972 


2 






1973 


2 






1974 


2 






; 1975 


2 






1976 


2 




LITERAL 


; 1977 


2 






; 1978 


2 






; 1979 


2 






; 1980 


2 






1981 


2 






; 1982 


2 






; 1983 


"3 
L. 






1984 


2 




LOCAL 


; 1985 


2 






; 1986 


2 






; 1987 


•> 

c 






; 1988 


2 






; 1989 


2 






1990 


2 






1991 


2 






; 1992 


2 






1993 


2 






; 1994 


2 






; 1995 


2 






1V96 


2 






; 1997 


2 






; 1998 


2 






1999 


2 






; 2000 


2 







27-Jul-1984 Fiche 12 Frame 62 Sequence 2285 
27-Jul-1984 16:10:19 VAX-11 Bliss-32 V4. 0-742 ^ ^ pa 9 e , r £! 
26-M-1984 09:41:22 DHA1 :CSYS0.SYSMAINTJQAMAIN.832;109 (59) 



! The are the strings that get printed In the table. 



Header Line 1 = . . ! 

SASCJC ('J*!/!/!** Summary of Forced-Errors!/'), i 



Header_Line 2 * 

$ASriC ('!** 



!/!/•), ! 



[04] 
[04] 

T04J 
[04] 



Test_Subtest Una 1 = 

SASCTC ('Test !3UW Subtest !3UL!/'), 

Test_$ubt*st Line 2 = 

SASClC l'?8*- Ml*-]/'), 

Error_ Count Line = 

SAStlC C!5UW-!4<!UL!> '), 

Eol Line = 

SASCIC <'!/•); 



GA$K_Error_Count_Line_Len = 11, 
OASK.Minimum.Width = 24; 

Number_Of..Error_Counts : WORD, 

Number^Printed : WORD, 

Record_Ptr, 

Temp^Ptr, 
Width : WORD, 
Test i WORD, 
Subtest; 



! The length (in chars) of the [04] 

! Error_Count„Line line, [04] 

! The minimum width that can be used to print 

J the forced-error table. Currently this is the 

! length of the Header_Line. 



The number of error number/error counts to 
print per line. 

The running total of the number of error 
number/error counts printed per line. 

The pointer that is used to acess all the 
records 1n the linked list. 

The pointer to dispose. 

The maximum width of the output line, [04] 

The Test^Number from the forced-error record. 

The Subtest„Number from the forced-error record. 



2Z-ENSAA-7.0 

QAHAIN 
1-08 



2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

201A 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 



2 
2 
2 
2 
2 
2 
2 
2 
2 



2 
2 

2 
2 
2 
2 
2 
2 



Dispose 

*** QA Routines 

Dispose 
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Width = MAxU (QA$K Mlnlmum.Width, .DS$GB WIDTH); 

Number^0f,Error_Counts * .width / QASK.Error.Count.Line^Len; 

$DS PRINTF (Header Line 1, ((.Width - QASKJMnimumJdidth + 1) / 2)); 
SDSlPRJNTF (HeadeOinel2, ((.Width - QA$KJUnimum_Width + 1) / 2)>; 



COrJ 

C04] 

£04] 
[04] 



If it exists, skip the first null record and dispose of it. 

Record_Ptr = .GA$A_Error_List_Head; 

IF (.Record Ptr NEQ QASKJMU THEN 
BEGIN 

MAP 

QA$A„Error_List,.Head : Error^Record; 

QASAJ-rror List Mead - .GA$A_Error_List..Head CQASVAJJextJirrorD; 
Dispose (.Recor9 Ptr); 
Record Ptr = .QA$A_Error_List_Head 
END; 



ZZ-ENSAA-7.0 
Q AMAIN 
1-08 



Z023 2 

2024 2 

2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 

2036 2 

2037 2 

2038 2 

2039 2 



2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

»?062 

i?063 

?064 



•■066 

.'067 
,'068 
,?069 



2 
2 
2 
2 
2 
2 
2 
2 
2 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



V065 2 



2 
2 
2 
2 



Dispose 

*** QA Routines 

Dispose 



I 2 
7-JuL-1984 



'7-JUM984 16:10:19 VAX-11 Bliss 
!6-Jul-1984 09:41*22 



Fiche 12 Frame 12 Sequence 2287 

_ ' 2 V4. 0-742 Page 73 

DMA1 1 CSYSO; SYSMAINT JQAMAJM-;B32; 1 09 (61) 



WHILE (,QA$A Error List.Head NEQ QA$K_Nil) DO 
BEGIfJ 
MAP 

Record.Ptr : Error_Record; 

Test = .Recorder rQA$VW_Tes ^Number]; 

Subtest * .Recorder LQASVL^SubtestJJumber]; 

Number Printed = 0; 



*DS PRINTF (TestJubtest.LineJ, , 
$DS~PRINTF (Test.Subtest.Line^); 

DO 



Test, .Subtest); 



BEGIN 

$DS PRINTF (Error Count Line, 

•Record Ptr LQASVW Error^Number], 

.Record"Ptr [QASVL^Error^Count]) ; 

IF ((Number Printed « .Number Printed + 1) EQL ,Number_0t_Error_Counts) THEN 
BEGIN 

Number Printed « 0; 
$DS„PRlNTF (EoLLine); 
END; 

Temp Ptr = .Record^Ptr; 

Recortjjnr s .Recorder CQASVAJJext^Error]; 

QA$A_Error^List_Head = .Record.Ptr; 

Dispose (.Temp^Ptr); 

IF (.Record Ptr EQL QASKJJU) THEN 

EXITL00P; 
END 
UNTR ((.Test NEO .Record Ptr [QAIVW Test. Number 3) OR 

(.Subtest NEQ ,Record_Ptr CQAlVL_Subte3t„Number3)); 

$DS PRINTF (EotJJne); 

IF 7. Number Printed NEQ 0) THEN 

SDS.PRINTF (Eol.Line) 
END; 

QASA Prw Test TiU = OAIK.NU; 
QA$A~Error_LisT_Head « QASKJh'l; 

1; ! 



C07] 



i!070 1 



END; 



0000 00000 
04 00002 



.ENTRY 
RET 



QA$PRINT_FORCED_ERRORS, Save notMivi 



1875 
2070 



Routine Size." 3 bytes. Routine Base: CODE * 0578 



J 2 
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ZZ-ENSAA-7.0 

QAMA1N 

1-08 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

208*. 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 



K 2 
27-JuM984 Fiche 12 Frame K2 „ Sequence 2289 
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QA$Print„Overall_Errors 
*** QA Routines 
QA$Print_Overal l„Errors 

XSBTTL t QA$Pr^nt. ( Overall_Errors , 

ROUTINE QASPrintJh/eralLErrors : NOVALUE =? 

FUNCTIONAL DESCRIPTION: 

This routine prints the Overall Error Summary Table* which summarizes the results for one QA execution 
of the diagnostic. 

CALLER(S): 

GASMain 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 



QAIWJiulti'plePass 
QASVMestLoops 
QA$W Subtestloops 



- The number of passes to make for the Multiple Pass Check, 

- The number of loops for the Infinite Loop-On-Test Check. 

- The number of loops for the Infinite Loop-On-Subtest Check, 



QA$AQ_Ov/erall.Jrror_Table - The number of errors that occurred in each check, 
IMPLICIT OUTPUTS: 

Overall Error Summary Table printout, 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA- 


7,0 


AHA IN 




1-08 




; 2109 


2 


; 2110 


2 


; 2111 


P 


; 2112 


2 


; 2113 


2 


; 211 4 


2 


; 2115 


2 


; 2116 


2 


; 2117 


2 


; 2118 


2 


; 2119 


2 


; 2120 


2 


; 2121 


2 


; 2122 


2 


; 2123 


2 


; 2124 


2 


; 2125 


2 


; 2126 


2 


; 2127 


2 


; 2128 


2 


; 2129 
; 2130 


\ 


; 2131 


2 


; ?1 3? 


2 


; cl 33 


2 


; 21 54 


2 


; 2135 


2 


; 2136 


? 


; 2137 


2 


; 2138 


2 


; 2139 


2 


; 2H0 


2 


; 2141 


2 


; 2142 


2 


; 2U3 


2 


; 2144 


2 



QA$Print_0verall_Error3 
+** QA Routines 
QA$Print.Ove» all_Errors 
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27-Jul-1984 Fiche 12 Frame L2 m Sequence 2290 
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BEGIN 



The are the strings that get printed in each line of the Overall Error Summary Table. 



BIND 



Header Line 1 ~ 

" SASClC <'!*!/!/!11* Overall Error Summary Table!/ 1 ), 



Heade 



r^Line 2 = 

SAStJC <'!11» !/*>, 



Header Line 3 = ..... 

SASCIC CQA Checklist Item!16* Number of Errors!/ 1 ), 

Header^Line 4 = 

$AStIC l'!17*-M6* !16*-!/'), 

NS Line » 

SASCIC C»41<Normal Start!5Q*. !>!UW!/*> , 

MP Line = 

SASCIC C , i41<Mult1pLe Pass (!UW passes) !50*. !>iUW!/*) , 



C043 

£04] 

[043 
[043 

[043 

[043 



LT_Line 



SASCIC ( a !4KInf1n1te Loop-On-Test <!UW passes) !50*. !>!UW!/'), 



LS Line = ! 

SASCJC <*!41<Infinite Loop-On-Subtest ( !UW passes) !50*. !>!UW!/'), ! 

R8 Line = 

SASCIC CJAKRun Tests BackwardsISC*. !>!UW!/' ) , 

OK Line * ! 

SASCIC (•!/*+ QA ** !16AC passed Auto-GA portion of Quality Assurance Checklist!/ 1 ); 



C013 

C013 



C013 



Z2-ENSAA- 


7.0 


QAMAJVJ 




1-08 




; 2145 


2 


; 2146 


2 


; 2147 


2 


; 2148 


2 


; 2149 


2 


; 2150 


2 


; 2151 


2 


; 2152 


2 


; 2153 


2 


; 2154 


2 


; 2155 


2 


; 2156 


2 


; 2157 


2 


; 2158 




; 2159 


2 


; 2160 


2 


; 2161 


2 


; 2162 


2 


; 2163 


2 


; 2164 


2 


; 2165 


2 


; 2166 


2 


; 2167 


2 


; 2168 


2 


; 2169 


2 


; 2170 


2 


; 2171 


2 



GA$Print_Overal l„.Errors 
*** QA Routines 
QASPrint^Overall^Errors 
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If the /TEST qualifier was given, do not print this table out. This prevents someone from running QA [023 

on only a small pnrtion of the diagnostic, and having that portion work. The following must therefore LOZJ 

be true: E2%J 

.DSSGLJSTTEST = 1 £023 

.DSSGLlLSTTEST = ..LSA TSTCNT L ,,,.., ,, +< * • W 
If either one of these is false, simply return* Note: accept the following if a diagnsotic contains L02J 
x tests: /TEST:1:x. 



IF U.DSSGL FST1EST NEQ 1) OR ( •DSSGL.LSTTEST NEQ . .L$AJSTCNT) ) THEN ! 
RE TORN; .' 

a 

Print header lines. 



$DS PRINTF (Header J.ine J) 

SDSlPRINTF (Header_Line„,2) 

$DS PRINTF (Header_lineJ) 

SDS PRINTF <Header_Line_4) 



Print each line for the chocks, until a non-zero c .- r^r count is 
reached, or until the last check. If all the checks were non-zero, 
print the "passed 0A M message. 



C02j 
[02] 



COA] 
[04] 
£043 
[043 



N 2 

Z2-ENSAA-7.0 QA$PMnt.OveraUJrrors ?2" J . u , l i2^ ,* ,» nn Ffch ?^l 2 n f: £? n ? e N io „/ n 7/ § e <* uence 2?92 Da „ 7 « 
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2172 2 ! + 

2173 2 J Print and check Normal Start errors 

2174 2 ■!- 

2175 2 

2176 2 SDS.PRINTF (NS_Line, ,. r . . 

2177 2 .QASAW Overall Error_Tabte CQASK.Normal^StartJ); 
?17ft P ** 

2179 2 IF <*GA$AW Overall Error Fable CQA$K,Normal.Start3 NtQ 0) THEN 

2180 2 RETURN; 

2181 2 

2182 2 "♦ J 

2183 2 : Print and check Multiple Pass errors 

2184 2 i- 

2185 2 

2186 2 IDS PRJNTF (MP_Line, .QASW^MultiplePass, 
?18? 2 " ,QA$AW OverallJrror.Table [QASK^Multiple^Pass]); 
«i188 2 

2189 2 IF (.QA$AW Overall Error Table [QA$K - ,Multiple..Pass3 NEQ 0) THEN 

2190 2 RETURN; 

2191 2 

2192 2 1+ 

2193 2 ! Print and check Loop-On-Test erros 

2194 2 :- 

2195 2 

2196 2 $DS PRJNTF (IT Line, ,QA$W„TestLoops, 

2197 2 " ,GA$AW"*Overall_Error_Table COASK.Loop^On^Test]); 

2198 2 ™ 

2199 2 IF (,QA$AW Overall Error Table CQA$K_Loop.On^Test3 NEQ 0) THEN 

2200 2 RETURN; 

2202 2 J+ t01 J 

2203 2 ! Print and check Loop-On-Subtest errors C013 



2204 2 

2205 2 



» «. 



2206 2 $DS PRJNTF <LSJ.-ne* ♦QASW.SubtestLoops, _ ! LOU 

2207 2 ' .QASAWJMralLError.Table [GA$K_Loop_On_Subtest]); I [01] 

2209 2 IF (.QA$AW Overall Error^Table [QA$K.Loop^Cn.Subtest3 NEO 0) THEN ! C013 

2210 2 RETURN; " ! C013 
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7,0 


QAMA1N 




^-08 




; 2211 


2 


; 2212 


2 


; 2213 


2 


; 2214 


2 


; P 2215 


2 


: 2216 


2 


; 2217 


2 


; 2218 


2 


; 2219 


2 


; 2220 


2 


; 2221 


2 


; 2222 


2 


; 2223 


2 


; 2224 


i 



QA$Print_Overall_Errors 
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QA$Print_Overall_Errors 
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END; 



! Print and check Run Tests Backwards errors 

SDS^PRINTF <RBJ.1ne, 

.QA$AW_Overal l„Error_Table CQASK.Run^BackwardsJ) ; 

IF (.QASAW Overall Error_Table CQASK Run.BackwardsJ NEQ 0) THEN 
RETURN; 

$D$_PRINTF <0K_Line, .L$A_NAME); 

RETURN 



65 76 4F 

6D 60 75 



2D 2D 2D 

2D 2D 2D 

49 20 74 

20 12 65 



20 2A 31 31 21 2^ 21 
53 20 12 6F 12 12 45 

21 65 6C 62 61 



2F 21 5E 21 
20 6C 6C 61 
54 20 79 12 



2D 20 2D 
2D 2D 2D 

73 69 6C 

62 6D 75 

21 



2D 2D 

2D 2D 

6B 63 

4E 20 

73 12 



2D 20 

2D 2D 

65 68 

2A 36 

6F 12 



2A 31 

2D 2D 

2F 21 

43 20 

31 21 

12 45 



2A 36 31 21 20 2A 36 31 21 2D 2A 37 



61 74 53 

2F 21 

50 20 65 

73 65 73 



4C 20 65 
55 21 28 



4C 20 65 

20 74 73 

2\ 21 

20 73 74 

21 2E 2A 

36 31 21 

20 6F 74 

73 73 41 

73 69 6C 



20 6C 61 
57 55 21 
6C 70 69 
11 61 70 

55 

74 69 6E 

20 74 73 

21 

2f 21 

74 69 6E 
65 74 62 

65 
57 55 21 
73 65 54 
30 35 21 

20 2A 2A 

75 41 20 

6E 
20 79 74 

68 63 65 



6D 12 

3E 21 

74 6C 
?0 51 
2! 3E 

69 66 

65 54 

29 73 

57 55 

69 66 

75 53 
73 73 
3E 21 
20 6E 
73 64 

20 41 

64 65 

6F 69 

69 6C 

68 43 



6F 4E 

2E 2A 

75 4D 

55 21 

21 2E 

6E 49 

2D 6E 

65 73 

21 3E 

6E 49 

2D 6E 

61 70 

21 2A 

75 52 

12 61 

51 20 

73 73 

74 12 
61 75 

20 65 



3C 31 

30 35 

3C 31 

28 20 

2A 30 

3C 31 

4F 2D 

73 61 

21 2E 

3C 3 

4F ; 

20 5 

30 I 

5C 3 

1? t 

2A 

61 

6F 



;i 

57 

35 

9 

2A 

. B 

51 20 

65 6E 



31 21 

2D 2D 

2D 2D 

41 51 

6D 65 

20 66 

31 21 

2r 21 

34 21 

21 74 

8 S 

35 21 
2^ 21 

1 
>F 
•0 
iO 

1 

'0 6F 
55 21 
21 29 



2A 
34 



4 

3 

5 

2f 



t 



66 

61 



'0 43 
'0 41 



28 
72 
61 
2t 

22 
2D 
2D 
28 
74 
6F 
If 
11 
2D 
1C 
72 
2A 
61 
29 
57 
32 

8 



6F 

23 
42 
3E 
48 
41 
51 



>f 21 74 



002E2 
002F1 
00300 
0030A 
00308 
0031 A 
00329 
0032E 
0033D 
34 C 
356 
357 

366 



8 



P.AAR: 

P.AAS: 
P.AAT: 

P.AAU: 
P. AAV: 

P.AAW: 

P.AAX: 
P.AAY: 

P.AAZ: 

P. ABA: 



.PSECT DATA,NOWRT,NOEXE, SHR,2 

.ASCII \<! A i/i/!11* Overall Error Summary Table!\ 



.ASCII \A 
.ASCII VJ11* 



!A 



.ASCII \(OA Checklist Item!16* Number of Errors!\ 

.ASCII \/\ 

.ASCII <1 7>\* 1 7*-2 16* !16«~!A 

.ASCII <28>\!41<Normal Start!50*. !>!UW!/\ 

.ASCII \*!41<Multiple Pass (!UW passes) 150*. !>!U\ 



.ASCII \W!A 

IaSCJI \2!41<Infinite Loop-On-Test ( !UW passes) !\ 



.ASCII \50* !>!UW!A 

.ASCII \5!4'1<Infinite Loop-On-Subtest <!UW passe\ 



.ASCII \s)!50*.!>!UW!/\ 

.ASCII \0!41<Run Tests Backwards!50*. !>!UW!/\ 



.ASCII \H!A* QA ** !16AC passed Auto-OA portion\ 



.ASCII \ of Quality Assurance ChecktistIA 



HEADER M UNEJ = 



P.AAR 



ZZ-tNSAA-7,0 
QAMAIN 
-08 



QASPrint ..Overall. Errors 
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QASPrint^Overall^Errors 
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54 00000000 ' 
53 00000000G 
52 00000000' 
01 000000006 

50 00000254 
60 000000006 



63 
63 
63 

63 

7E 

63 



29 
4C 
75 

0087 



7E 02 

7E OOOOOOOOG 

00A4 
63 

02 

71 04 

71 OOOOOOOOG 

OOCF 
63 

04 

7E 06 
7E OOOOOOOOG 
0102 
63 

06 



7E 
63 



MEADERJ.INE.,2* 

HEADERlLINE^3= 

HEADER LINE..4= 

NS_LINE= 

MP LINEs 

LTJJNE* 

LS_LINE= 

RBJ.INE* 

OK_LINE= 



001 C 00000 



01 



EF 9E 

9F 9E 

EF 9E 

Ef D1 

78 12 

9F DO 

EF D1 

78 12 

52 DD 

01 F8 

A2 9F 

01 FB 

A2 9F 

01 F8 

A2 9F 

01 FB 
64 3C 
C2 9F 

02 FB 
64 B5 
62 12 
A4 3C 
EF 3C 
C2 9F 

03 FB 
A4 85 
48 12 
A4 3C 
EF 3C 
C2 9F 
03 F 
A4 B 
34 12 
A4 3C 
EF 3C 
C2 9F 
03 F8 
A4 B5 
1D 12 
A4 3C 
C2 9F 
02 F8 



t 




P.AAS 
P.AAT 
P.AAU 
P. AAV 
P.AAW 
P.AAX 
P.AAY 
P.AAZ 
P. ABA 



♦PSECT CODE,NOWRT, SHR,2 



00002 
00009 
00010 
00017 
0001 E 
00020 
00027 
0002E 
00030 
00032 
00035 
00038 
0003B 

041 
00044 
00047 
0004A 
0004E 
QQ051 
00053 
00055 
00059 
00060 

m 

0006A 
0006C 
00070 
0077 
078 
07E 
81 
83 
87 



00095 
00098 
Q009A 

0009E 
O0OA2 



QASPRINT^OVERALL 
.WORD 
MOVAB 
MOVAB 
MOVAB 
CrtPL 
BNEQ 
MOVL 
CMPL 
BNEQ 
PUSHL 
CALLS 
PUSHAB 
CALLS 
PUSHAB 
CALLS 
PUSHAB 
CALLS 
MOVZWL 
PUSHAB 
CALLS 
TSTW 
BNEQ 
MOVZWL 
M0V2WL 
PUSHAB 
CALLS 
TSTW 
BNEQ 
MOVZWL 
MOVZWL 
PUSHAB 
CALLS 
TSTW 
BNEQ 
MOVZWL 
MOVZWL 
PUSHAB 
CALLS 
TSTW 

1$: BNEQ 

MOVZWL 
PUSHAB 
CALLS 



.ERRORS: 

Save R2,R3,R4 

QASAW OVERALL ERAOR„TABLE, R4 

cWDSSPRINTF, R3 

HEADER LINE 1, R2 

DSSGL.FSTTEST, #1 

i$ 

S# A X00000254, RO 

DSS6L LSTTEST, (RO) 

2$ ' 

R2 

01, DSSPRINTF 

HEADER LINE 2 

#1, dsJprinTf 

HEADERJ.INE 3 

*1, DSJPRINTF 

HEADER.LINE 4 

#1. DSlPRINTF 

QASAW 0VERALL^ERR0R_TA8LE , - ( SP) 

NS^LlRE 

#2, DSSPRINTF 

QASAW^OVERALL^ERROR^TABLE 

3$ 

QASAW OVERALL.ERROR.TABLE+2, -(SP) 

QASW HULTIPLEPaSS, "(SP) 

MP^LlNE 

#37 DSSPRINTF 

QASAW OVERALL^ERROR^TA8LE+2 

3$ ~ 

QASAW OVERALL ERROR TABLE +4, -(SP) 

QASW TESTLOOPS, -(SP) 

LT.LTNE 

#3, DSSPRINTF 

QASAW_0VERALL„ERR0RJABLE+4 

3S 

QASAW OVERALL ERROR JABLE+6, -(SP) 

QASW 5UBTESTLC0PS, -(SP) 

LS-LTNE 

*37 DSSPRINTF 

QASAW^OVERALLJRROR.TABLE +6 

3$ - 

QASAW OVERALL JRROR.TABLE+8, -(SP) 

RB^LIRE 

#27 DSSPRINTF 



2073 
2155 

2162 
2163 
2164 
2165 
2177 

2179 
2187 

2189 
2197 

2199 
2207 

2209 
2216 
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Fiche 12 Frame D3 Sequence 2295 

16:10.19 VAX-11 Bliss-32 V4. 0-742 

09:41:22 DMA1 :[SYS0.SYS«AJNT]QAMAiN.832;109 



08 A4 B5 000A5 TSTW 

0D 12 000A8 2$: BNEQ 

00000208 9F DD 000AA PUSHL 

015C C2 9F 00080 PUSHAB 

02 FB 000B4 CALLS 

04 0OOB7 3$; RET 



QA$AW OVERALLJRROR.TABLE+8 

3J 

MTX00000208 

ONLINE 

#27 DSSPRINTF 



Page 81 
(66) 

2218 

2221 

2224 



Routine Size: 184 bytes. Routine Base* CODE + 0578 



ZZ-ENSAA-7.0 

QAMA1N 

1-08 

; 2225 1 
; 2226 1 
; 2227 



End of Module QAMA1N 

*** QA Routines 

End of Module QAMAIN 

XSBTTL 'End of Module QAMAIN 1 

END ELUDOM 
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PSECT SUMMARY 



Name 



Bytes 



DATA 

WORK 
CODE 



1159 NOVECN0WRT, RD 

53 NOVEC, WRT, RD 

1587 NOVEC. NOWRT, RD 



Attributes 

,NQEXE, SHR, I.CL, REL, 

,NOEXE,NOSHR, LCl, REL, 

, EXE, SHR, LCL. REL, 



C0N,N0PIC,ALIGN(2) 
CON,NOPIC,ALIGM°) 
CON,NOPIC, ALIGNS) 



Library Statistics 



File 

DRB1 :CDS,WORK]DIAG.L32;265 

DRB1:CDS.W0RK3DS.L32;159 

SYSSSYSROOT:CSYSLJB]LIB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 

23 
11 
12 



Percent 



Pages 
Mapped 

85 

42 

975 



Processing 
Time 

00:00.1 
00:00,2 
00:04.7 



COMMAND QUALIFIERS 
BLISS/NOOBJECT/LJST=[DS,L J SJ/0PTJMIZE= (LEVEL: 3, SPACE) /DEBUG/TRACE QAMAIN 

Size: 1587 code + 1212 data bytes 

Run Time: 00:45.4 

Elapsed Time: 02:26.6 

Lines/CPU Min: 2945 

Lexemes/CPU-Min: 19395 

Memory Used: 297 pages 

Compilation Complete 



ZZ-ENSAA- 
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QIO 




Table of 


contents 


(1) 


106 


(1) 


242 


(1) 


340 


(2) 


389 


(4) 


446 


(5) 


545 


(7) 


803 


(9) 


900 


(10) 


957 


(12) 


1054 


(13) 


1080 


(V,) 


1115 


(16) 


1397 


(16) 


1469 


(17) 


1477 


(18) 


1531 


(19) 


1573 


(19) 


1607 
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Frame F3 
VAX-11 Macro 



Sequence 
V03-01 



2297 
Page 



Libraries and Equated Symbols 
External Symbols 



EXESQI0 

GIOSINITIALIZE 

QIOSCLEANUP 

Q10$ADDUNIT 

INI MBADP 

INIJJBADP 

INI DRADP 

MAXIMIZE ACCESS 

BUGSCHECK 

QIOSLOAD DB 

DB.ERROR 



QIO DISPATCHING ROUTINE 
Initialize QIO database 
Remove old QIO database 
Add a unit to the QIO database 
INITIALIZE MBA 
INITIALIZE UBA 
INITIALIZE DRA 



ADP 
ADP 
ADP 



AND 
AND 
AND 



BUILD 

BUILD 

BUILD 

MODE 

Bugcheck notification routine 

Insert unit into data base 

ERROR LOADING DATABASE 



I/O DATABASE INTERLOCKS 

IOGENSCNTRL INI Initialize a controller 

MEMORY ALLOCATION SUBROUTINES 

ADPLINK Link adapter to end of ADP list 

ExeSPwrTimChk - Check reasonable interval since power recovery ;C14J 



ZZ-ENSAA-7.0 

010 

07-18 



QIO 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

OQQO 

0000 
0000 
QQOO 
0000 
0000 
0000 
0000 

m 

0000 
0000 
0000 



0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 

1? 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

2§ 

29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 

5* 

55 
56 

57 
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DMAIjCSYSO.SYSMAINHQIO. MAR/191 (1) 



.TITLE QIO 

.IDENT /07-18/ 

.NoShow Conditionals 

.DSABL GBL 



Copyright (c) 
DIGITAL EQUIPMENT 



1977, 1982, 1984 
CORPORATION, 



MAYNARD, MASSACHUSETTS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY: 
ABSTRACT: 
ENVIRONMENT: 



VAX DIAGNOSTIC SUPERVISOR. 



AUTHOR: 
MODIFIED 

01 

02 

03 

04 

05 

06 

07 



BY: 



KEN CHAPMAN 



10-N0V-77 
20-FE8-78 



VERSION 01. 

VERSION 02 (ESSAA-4.00) 



TO 



22-FEB-78 
VMS/QIO HANDLER 
1-0CT-78 



N. HOWGATE 
QIO SUPPORT 
TOM SOUTTER 

ADDED CALL _ . . . . 

R. RIGGS 1-0CT-78 VERSION 3 (ESSAA-5.00) 

INCLUDED QIO DATABASE INITIALIZATION ROUTINES 

N.Howgate 26~Jyn-79 Version 4 (ESSAA-5.01) 

Add support for 11/750 

Roger Riggs 03-N0V-1979 

Added code to Load drivers If not found in 

IOC$GLJ)PTLIST 

2 vectors for LPA11K 
r Vf Version 5.2 

block. Added code to maintain 
added code to handle headers 



Added 
Roger 
Revamped 
count in 



Tudge to g 
Riggs, 5-Feh 



ener 
1 
setup of ACF 
DPT headers. 



reference 
on drivers 



08 



header contains the number of vectors for unibus devices 
Removes need for fudge in edit 06. 

John Ciukaj 5-May~80 Version 5.4 
Added Dummy return for QIO related calls 
Dave Butenhof 18-jun-1980, version 5.5 
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07-18 










0000 


58 ; 


09 




0000 


59 ; 






QQQO 


60 ; 






0000 
0000 


61 ; 


10 




62 ; 






0000 


63 ; 






0000 


64 ; 






0000 


65 ; 






0000 


66 ; 






0000 


67 ; 


11 




0000 


68 ; 






0000 


69 ; 






0000 


70 ; 






0000 


71 . 






cooo 


72 ; 


12 




0000 


73 ; 






0000 


74 , 






0000 


75 , 


13 




0000 


76 . 






.0000 


77 , 






0000 


78 , 


n 




0000 


79 , 






0000 


80 , 






0000 


81 , 


15 




0000 


82 , 






0000 


83 , 






0000 


84 , 






0000 


85 , 


16 




0000 


» 






0000 






0000 
0000 


88 


; 17 




89 






0000 


90 






0000 


91 






0000 


92 






0000 


93 


; 18 




0000 


94 






0000 


95 






0000 


96 






0000 


97 






0000 


98 






mi 


99 
100 






0000 


101 






0000 


102 






0000 


103 






0000 
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statement. 



Remove all dummy returns from this module, and move to 
new module VMSDUMMY. 

Roger Riggs, 10-Aug-1980 t . , _, 

Use QIO driver prefix from controller instead of device 
this allows for terminals to be connected to more than 
one type of Async controller. The first prefix 
encountered while linking back through the P-tables is 
used. 

- Jack Stansbury, 22-0ct-1981, Version 6.~ 
Fixed truncation errors. Also added .LIBRARY statements 
for $DS and SDJA6. Also changed .PSECT SEP to WORK, CODE, 
and DATA where appropriate. 

- Jack Stansbury, 12-Nov-1981, Version 6.- 

Changed the HALTD to HALT. 

Marion Baggett, 9-Apr-1982, Version 6.7 
Added .NoShow Conditionals after .IDENT 

Jack Stansbury. July 1, 1982, Version 6.8 
Added the •rear ExeSPwrTlmCnk routine. 

Marlon Baggett, 24~Sept-1982, Version 6.9 

Changed the CASE instruction since WRJTEVBLK and READVBLK 

are to far away anu * JMP was need. 

Richard E. Muse, 9 January, 1984, Version 6.14 

Added SPRDEF macro definition - VMS Version 4 change. 

Domenlc Andella, 9-Apr-1984, Version 6.14 
Added code in FILL ACF to handle case where 
an SBIA Is attached, and it is necessary to 
'backtrack' another level. 

Bob Berga2zi 24-Apr-1984 Version 7.0 

- Changed FILL ACF to set up R3 with the CSR 
address for the subsequent call to FINDADP. 

- Changed FIND ADP routine to compare ADPSL_CSR 
Instead of ADPSW^TR. This accomodates the xxx 
cpu with multiple SBIs. 

- Changed INIJ>RADP to add 100 or 300 to SCB^BASF. 
depending on which SBI the adapter is connected to. 

- Removed UBINT... code from INI UBADP since it 
only needs the size of that code (UBINTSZ), which 
is defined In 0NLYXXX. 
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Frame 13 Sequence 
VAX-11 Macro V03-01 
PHA1 :CSYSO.SYSMAJNT3(S10.MAR 



2300 
Pag< 
; 191 



3 
(1) 



0000 
0000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

88S8 

0000 
0000 
0000 
0000 



i 



0000 

0000 

0000 

0000 

0000 

0001 

0001 

88 

0000 
0000 
OOQQ 

0000 

M 



106 
107 

18 

110 

111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 

124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 

137 

138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 

>» 

159 
160 

161 
162 



,Sbttl Libraries and Equated Symbols 
INCLUDE FILES: 



.Library 
.LIBRARY 
.LIBRARY 



/SYSSLIBRARY:LIB/ 

/IDS/ 

/SDIA6/ 



[11] 
C113 



MACROS; 

.MACRO SPRDEF,$GBL 
SDEFINI PR,$GBL 



SEQU PRSJCSP 

SEQU PRS~ESP 1 

SEQU PRSlSSP 2 

$EQU PRSJJSP 3 

SEQU PR$IJSP 4 

SEQU PRS^POBR 8 

SEQU PRS„P0LR 9 

SEQU PRSZP1BR 10 

SEQU PRSIP1LR 11 

SEQU PRS.S8R 12 

SEQU PRS^SLR 13 

SEQU PRSPC8B 16 

SEQU PRSISCBB 17 

SEQU PRSJPL 18 

SEQU PRS ASTLVL 19 

SEQU PRSZSIRR 20 

SEQU PRS^S J SR 21 

SEQU PRSIKCS 24 

SEQU PRS NICR 25 

S5QU PRSlJCR 26 

SEQU PRSJODR I? 

SEQU PRSlRXCS 32 

SEQU PRSJWDB 33 

SEQU PRS^TXCS 34 

SEQU PROXDB 35 

SEQU PRMCCS 40 

SEQU PRS^ACCR 41 

SEQU PRSlMAPEN 56 

SEQU PRS TBIA 57 

SEQU PRSlTBIS 58 

SEQU PRSlPME 61 

SEQU PRSISID 62 

SEQU PRS~TBCHK 63 

SEQU PRSV_$1D_SN 

SEQU PRSS^SJD.SN 12 

SEQU PRSVlSID^PL 12 

stQu prs$:sid;pl 3 

SEQU PRSV'SIDIECO 15 

SEQU PRSS^SIDJCO 9 

SEQU PRSV SID.TYPE 24 

SEQU PR^SlSID.TYPE 8 



; C16] 



i 



IMNSAA-7.0 Libraries and Equated Symbols 27 ^ l ^JUiW \l%]\» 'VSttf Macro VOsW" 1 " "%• 4 

07-18 Libraries and Equated Symbols 23-MAY-1984 14:15:31 W1A1iCSYS0.SYS«AJNT30IO.HAR;19T (1) 



0000 163 SEQU PR$^SJD^TYP?8Q 1 
0000 164 $EQU PRS3SID.JYP750 2 
0000 165 $EQU PR$ISID W TYP730 3 
0000 166 SEQU PMIS10.TYP7VV 4 
0000 16/ SEQU PR$ SID TYPMAX 4 
0000 168 $EQU PRSlWCS* 44 
0000 169 $EQU PR$IWCSD 45 
170 SEQU PRS SBIFS 48 



171 $EQU PR$ISB3S 49 

0000 1/2 SEQU PM.S81SC 50 

0000 1/3 SEQU Pft$:$BIMT 51 

0000 1/4 SEQU PRSlSBIER 52 

0000 1/5 SEQU PRS„SBITA 53 

0000 1/6 SEQU PRSZS8IQC 54 

C000 177 SEQU PRS.CMIERR 23 

0000 1/8 SEQU PRS^CSRS 28 

C000 1/9 SEQU PRS^CSRD 29 

0000 180 SEQU PRSlCSTS 30 

0000 181 SEQU PRS.CSTD 31 

0000 182 SEQU PRS'TBDR 36 



0000 183 SEQU PkSlCADR 3/ 

0000 184 SFQU PRS„MCESR 38 

OCOO 185 SEQU PRSlCAER 39 

186 SFQU PRSJJBRESET 55 

18/ SEQU PRS PAMACC 6<. 

0000 188 SEQU PRS"PAMLOC 65 




0000 189 SEQU PRS_C$WP 66 
0000 190 SEQU PRS„CRBT 6/ 
0000 191 SEQU PRS.MCTL1 68 
0000 192 SEOU PRSIMCTL2 69 
0000 193 SEQU PRS.MGEN 70 
0000 194 SEQU PRS MTBER 71 
0000 195 SEQU PRS.MEAR 72 
0000 196 SEQU PRS"MDCR1 73 
197 SEQU PRfJIEDR 74 

198 SEQU PRS>ECCR 75 

199 

SDEFEND PR,SGBL,DEF 



s 



•1 

0000 202 ,ENDM SPRDEF 

0000 20* SPRDEF ; CALL PRDEF MACRO 

K 



8 



5 



206 ; EQUATED SYMBOLS? 
20? ; 

208 •WLIST MEB 

209 SACFDEF 
'10 SADPDEF 
11 SALLOCDEF 

SCCBDEF 



1! 



SCRBDEF 

14 SDCDEF 

15 SDDBDEF 
SDDTDEF 



w 



SDPTDEF 

18 SDYNDEF GLOBAL 

19 SID8DEF 



ZZ-ENSAA-7*0 

QIO 
07-13 



Libraries and Equated Symbols 



K 3 
27-JUL-1984 



Libraries and Equated Symbols 



7-JUL-1984 
3-MAy-1984 



n 



he 12 
15:41:38 
14:15:51 



Frame K3 Seguence 2502 

VAX-11 Macro V03-01 Page 

DMA1;ISYS0-SY5HAINT]OIO.riAR;19T 



5 
(1) 



0000 
0000 
0000 
0000 

oooc 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 



*I0DEF 

$P$LDEF 

SQIODZF 

SSYSGMSGDEF 

SUBADEF 

SUC80EF 

SVECDEF 

$DS TYPEDEF 

CMKBEF 

SDSJ)IODVRJ)EF 
$DS_HPODEF 
$DS^RH?80.DEF 
$DSJ>W780J)EF 
$DSJ)R780 DEF 

sdsIscbdef 
sds.load oef 

$DSJ)W750..DEF 
SDSlDSDEF 
$D5 DSADEF 
.LIST MEB 



Offsets in driver header 



ZZ-ENSAA-7.0 

010 

07-18 



External Symbols 



External Symbols 

0000 242 
0000 243 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ooc: 
cooo 

0000 
0000 
0000 
0000 



L 3 

27-JUL-1984 



7-JUM984 
'3-MAY-1984 



Fiche 12 
15:41:38 
14:15:31 



Frame L3 Sequence 2303 
VAX-11 Macro V03-01 Page 
DMA1sCSYS0.SYSHAINT3QIO.MAR;19T 



6 
(1) 



.Subtitle 



External Symbols 



.EXTRN !0C$GL ADPLIST- 

.EXTRN EXEIalDNONPAGED 

.EXTRN IO$TESTCSR_L, 

.EXTRN DSXSPR1NT, 

.EXTRN DS$L0AD. 

.EXTRN MBA$INITIAL, 

.EXTRN DRSJNITIAL, 

.EXTRN UBASJNNIAL, 

.EXTRN SCB BASE, 

.EXTRN DS$R CCB, 

.EXTRN WRITEVBIK, 

. EXTRN SS$ INSFMEM, 

.EXTRN IOCllNNDRV, 

.EXTRN I0CSI0P0ST, 

.EXTRN LOCSPTDESC, 

•EXTRN IOCSRTN 



IOCSGL OEVLIST- 

,EXE$DE»NONPAGED 
IOtTESTCSR^W 
DS ERRSUP, 
DSR$CQMPLETION 
MBA$INT, 
DRSINT 
U3INTSZ 
SCB IMAGE, 
VMSlGJO, 
READVBLK, 
SS$ NORMAL, 
SCAFHSEARCHLIST 
EXESFORKDSPTH, 
QIOCLEAN.CPU 



IOC$GL„DPTUST 

DSSGPHARD 
UBA$UNEXINT 



UBADP CPU 
IOGENlCONN.VEC 
PREADVBLK 
SS$ JVCHAN 
,SCAFl$ALPHA 
IOC$REINJTDRV 



;C18. 



ZZ-ENSAA-7.0 

Q10 

07-18 



External Symbols 



External Symbols 



M 3 

27-JUL-1984 Fiche 12 Frame M3 Seguence 2304 

27-JUL-1984 15:41:38 VAX-11 Macro V03-0T Page 7 
23-MAY-1984 14:15:31 0MA1 :CSYS0.SySMAINT3QI0.MAR;19T (1) 



20 6E ?? 6F 6E 

6E 6F 69 74 63 

20 6C 65 6E 6E 

2E 6F 72 65 7A 



21 20 52 45 56 

44 4E 55 4F 46 

2F 21 53 



49 4D 20 54 4E 

3D 53 41 21 20 

49 56 52 45 50 

2F 21 



49 20 53 49 20 
41 44 41 20 54 
4F 46 20 45 50 



00000000 
0000 

4F 49 51 00' 0000 

03 0000 

0004 

0004 

00000000 0004 

0008 

0008 

6B 6E 55 20 3F 3F 00' 0008 

6E 75 66 20 4F 49 51 0014 

61 68 63 20 72 6F 20 0020 

20 72 65 62 6D 75 6E 002C 

2F 0008 
0038 
0038 
0038 
FFFF 1 0038 
003A 

0000' 003A 

003C 

003C 

BB 003C 

16 003E 

0044 

0044 

3F BB 0044 

0046 

0046 

49 52 44 20 3F 3F 00* 0046 

20 54 4F 4E 20 53 41 0052 

41 21 20 52 4F 46 20 005E 

21 0046 
0068 
0068 
45 44 49 20 3F 3F 00' 0068 
2C 48 43 54 41 4D 53 0074 
55 53 20 2C 57 55 21 C080 
57 55 21 3D 52 4F 53 008C 

2C 0068 
0095 

43 41 21 20 3F 3F 00* 0095 

43 45 52 52 4F 43 4E 00A1 

59 54 20 52 45 54 50 00AD 

2f 21 53 41 21 20 52 0089 

2A 0095 



00C0 



3C 

00000000 9F 




262 
263 
264 



•65 



SMODULE: 



.PSECT 
MODNAM 



Data, NoExe, Shr, NoWrt, Long 



cm 



QIO 

•ASCIC \QIO\ 



End time for power up interval 
Done now 



266 EXE$GL„PWRD0NE:: 

267 .LONG 
268 

269 AUNKFUNC: 

270 .ASCiC \?? Unknown QIO function or channel number zero.N 



[14] 
CUD 



271 

272 .ALIGN 

273 CTL$GW_NMI0CHj: 
?74 .WORD 
275 

276 CTLSGW CHINDXj: ; i 

277 .WORD DS$K CCB 3 
278 

279 MBINT_DISP: 

280 PUSHR 

281 JSB 
282 

283 UBINT.DISP:: 

284 PUSHR 
285 



LONG 

; NUMBER OF CHANNELS 
DS$K_CCB - 1 



MAXIMUM CHANNEL INDEX 
4 



* 1 



# A M<R2,R3,R4,R5> 

a#o 



.•INTERRUPT DISPATCHER MODEL 



86 TJIODRIVER: 
!87 



* A M<R0,R1,R2,R3,R4,R5> 
♦ASCIC "?? DRIVER IAS NOT FOUND FOR !AS!/ M 



288 

289 T.WRONGVER: 



290 



291 
292 
293 



.ASCJC "?? IDENT MISMATCH. !AS=!UW. SUPERVISOR=!UW!/ M 



TJNVADP: 



.ASCIC "?? !AC IS INCORRECT ADAPTER TYPE FOR !AS!/' 



Table to convert adapter name to adapter type. Parallel to T^KNOWN^DEV 



t ADAPTER TYPE: 

.Byte ats uba 

.byte at$ mba 

.byte ats'uba 



DW780 
RH780 
DW750 



ZZ-ENSAA-7.0 
07-18 



External Symbols 



N 3 
27-JUL-1984 



External Symbols 



I7-JUL-1984 
I3-MAY-1984 



Fiche 12 
15:41:38 
14:15:31 



Frame N3 Seguence 2305 
VAX-11 Macro V03-0T Page 8 
DMA1:CSYS0.SYSMAINT3QIO.MAR;19l (1) 



00 
01 
02 



0006' 
OOOC 
0010' 
0014' 

0018' 
001C f 

0020* 
00000006 
5? 4'. 00' 
05 
52 00' 
05 
44 00' 
05 
52 00' 
05 

30 33 37 57 44 00* 
05 
30 38 37 52 44 00* 
05 



30 38 37 

30 38 37 

30 35 37 

30 35 37 



48 
57 
48 



00C3 
00C4 
00C5 
00C6 
00C6 
00C6 
00C8 
OOCA 
OOCC 
OOCE 
00D0 
00D2 
00D4 
00D4 
0004 
OODA 
OODA 
00E0 
00E0 
00E6 
00E6 
OOEC 
OOEC 
OOF 2 
00F2 



302 .BYTE 

303 .BYTE 

304 .BYTE 
305 
306 TJCNOWNJ>EV: 



ATS MBA 
AT$„UBA 
AT$J)R 



RH750 
DW730 
RH780 



307 
308 
309 

310 
311 
312 
*M 
314 

315 
316 
317 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
$ KNOWN=<.-T 

10$ 



$ KNOWN 

10$- 

20S- 
30$- 
40$- 
50$- 
60$- L 
KN0WN_DEV-1>/2 



20$ 
30$ 



318 40$ 

319 50$ 

320 60$ 



.ASClC "D0780 M 
.ASCIC "RH780" 



.ASCJC 
.ASCIC 
.ASCJC 
.ASCIC 



"DW750" 
"RH750" 



» ( 



DW730" 
DR780" 



ZZ-ENSAA-7.0 

OiO 

07-18 



External Symbols 



External Symbols 

00000000 322 .Psect 

0000 323 QJ0$L ALLOCATE: 

00000000 0000 324 " .LONG 

0004 325 

0004 326 LOAD„FLAGS: 
00000005 0004 327 .BLKB 

0005 328 .VJELD 
0005 329 

0005 330 

0005 331 

0005 332 

0005 333 

0005 334 DD8_BLJNK: 

00000009 0005 335 .BLKL 

C009 336 

0009 337 UC8_8LINK: 

OOOOOOOD 0009 338 .BLKL 



B 4 

27-JUL-1984 Fiche 12 Frame 84 Seguence 2306 

27-JUL-1984 15:41:38 VAX-11 Macro V03-0T Page ? 

23-MAY-1984 14:15:31 DMA1 :CSYS0.SYSMAINTJQIO.MAR;191 (1) 

Work, NoExe, NoShr, Wrt, Long ; C113 

; BYTES ALLOCATED TO QJO DATA STRUCTURES 
; CONTROL BLOCKS CREATED FLAGS 



1 

LOAD,0,<- 

<DDB,.M>,~ 

<CRB,,M>,- 

<IDB,,M>,~ 

<UCB,,M>,- 

> 

1 



; FLAG DEFINTIQN' 

; DD8 CREATED 

; CRB CREATED 

; IDB CREATED 

; UC8 CREATED 

;DDB BACKWARD LINK 
;UCB BACKWARD LINK 



ZZ-ENSAA-7.0 

QiO 

07-18 



EXESQIO QIO DISPATCHING ROUTINE 



EXESQIO QIO DISPATCHING ROUTINE 



C 4 
27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 
23-MAY-1984 14:15:31 



FraiTie C4 Seguence 2307 

VAX-11 Macro V03-01 Page 

0MA1:CSVS0.SYSMAINT]0I0.MAR;19T 



08 



OOOOOOOO'EF 



AC 
08 
6C 



50 OC AC 06 00 EF 



07' 30 50 CF 

0026* 
002C* 
0010' 
0010' 
001 0* 
001 O 1 
0010' 
002C' 



OOOOOOOO'EF 

00000008'EF 

01 



OOOD 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0002 
0005 
0007 
OOOE 
OOOF 
OOOF 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0019 
0019 
0018 
001 D 
001 F 

0021 
0023 
0025 

0029 
0029 
0029 
0029 
002F 
0035 



OFDC 

B5 
13 
FA 
05 



DF 
DF 
DD 



340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 



381 
382 



.S8TTL 
.PSECT 

FUNCTIONAL DESCRIPTION: 



EXESQIO 

Code, Exe, Shr, 



QIO DISPATCHING ROUTINE 
NoWrt, Long ; 



10 
(1) 



cm 



CALLING SEQUENCE: 

NONE 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 

'.ENTRY EXESQIO, A M<R2,R3,RM6,R7,R8,R9,R10,R11> 



5$: 



TSTW 
BEQL 
CALLG 
RS8 

EXTZV 

CASE 



QIOS CHAN(AP) 
5$ " 
(AP),L A VMS$QIO 



LOOK AT CHANNEL NUMBER 
I? 0, DO , t>S" CONSOLE I/O 

; Else call VMS/QIO handler 
AND RETURN THRU VECTOR 



[11] 



#I0$V FCODE,*IO$S_FCODE, - 

QIOS FUNC(AP),R0 ; Get function code 

R0 i T?PE=L,LIMIT=^IOS M WRITEVBLK,DlSPLIST=<- 

30$, - ; Function """"* 

40$. - ; Function 

20S, - ; Function 

20S, - ; Function 

20$, - ; Function 

20$, - ; Function 

20$, - ; Function 

40S> ; Function 



A X30 
A X31 
A X32 
A X33 
A X34 
A X?5 
*X36 
A X37 



30000$: 



CASEL R0,*IO$_WRI T£ V8LK,S A #«3&001$-30000$>/2>~1 



30001$: 



.SIGNED, 

.SIGNED, 

.SIGNED. 

.SIGNED, 

.SIGNED, 

.SIGNED 

.SIGNED, 

.SIGNED. 



WORD 
'WORD 
'WORD 
WORD 
.WORD 
WORD 
[WORD 
WORD 



^0$-30000$ 
40$-3QQ00$ 
2Q$-30000$ 
20$-30000$ 

SQHQQQ9* 

20$-3QQ00$ 
20$-3QQQ0$ 
40S-30000S 



20$: ERRSUP^S 



PUSHAL 
PUSHAL 
PUSHL 



MSGADR-AUNKFUNC 
SMODULE 
AUNKFUNC 
#$ER 



ZZ-ENSAA-7.0 

QIO 

07-18 



EXESQIO QIO DISPATCHING ROUTINE 

EXESQIO QIO DISPATCHING ROUTINE 



D 4 
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00000000' EF 03 
00000000' EF 
00000000' EF 



FB 
04 
17 

17 



0037 
003E 
003F 
0045 
0045 
004B 



383 

384 30$: 

385 

386 40$: 

387 



RET 
JMP 

JMP 



CALLS #3, DS.ERRSUP 

WRITEVBLK 

READVBLK 



This address was out of bounds for 
the case instruction 
This address was out of bounds for 
the case instruction 



!1 

(1) 



[15] 

ri5j 

[15] 
C15J 



ZZ-ENSAA-7.0 

QIO 

07-18 



Q1Q&INIT1AL1ZE Initialize QIO database 



E 4 

27-JUL-1984 



Fiche 12 Frame E4 



Sequence 2509 



27-JUL-1984 15:41:38 VAX-11 Macro VGj-OT Paqe 
QI0SINITIAL1ZE Initialize 010 database 23-MAY-1984 14:15:31 DMA1 :[SYS0.SYSMAINT]GIO.MAR;19' 



>9< 



12 
(2) 



51 00000000' EF 

61 51 

04 A1 51 

OCOGOOOO'EF 
00000000'EF 
00000000' EF 



0000 

DE 
DO 
DO 

DA 
DA 
D4 

04 



+ + 



004B 389 

004B 390 

0046 391 

0048 392 

004B 393 

004B 394 

004B 395 

004B 396 

004B 397 

004B 398 

004B 399 

0048 400 

004B 40. 

004B 402 

0048 403 

0048 404 

0048 405 

004B 406 

0048 407 

0048 408 

004B 409 

004B 410 

C048 411 

0048 412 

0048 413 ♦ ENTRY 

004D 414 

004D 415 

0054 416 

0057 417 

0058 418 
0058 419 
0061 4?0 
0067 421 
006D 422 
006D 423 



.SBTTL QIOSINITIALJZE Initialize QIO database 



FUNCTIONAL DESCRIPTION: 

This routine will initialize all of the the database that needs it. 
It resets the DRIVER prologue queue. 

CALLING SEQUENCE: 

BSBW QIOSINITIALIZE 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



QI0$INIT1ALIZE, A M<> 



MOVAL 

MOVL 

MOVL 

CLRL 
CLRL 
CLRL 

RET 



L A IOC$GL..DPTLIST,R1 

R1,(R1) 

R1,4(R1) 

L A IOC$GL„DEVLIST 
L A IOC$6LlADPLIST 

L A QIO$LjtLLOCATE 



GET ADDRESS OF DRIVER QUEUE LISTHEAD 
INIT FL1NK 
INN BLINK 

CLEAR DDB HEADER LIST 
CLEAR ADAPTER HEADER LIST 
CLEAR QIO MEMORY ALLOCATED 

RETURN 



C11] 



C113 
[11] 
[11] 



ZZ-ENSAA-7.0 

QIO 

07-18 



Q1051NITIALIZE Initialize QIO database 

QIOSINITJALIZE Initialize QIO 



F 4 

27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 
database 23-HAY-1984 14:15:31 



Frame F4 Seguence 2310 

VAX-11 Macro V03-0T Pag* 

DMA1 :CSYSO.SYSMAINTDQIO.MAft; 191 



13 
(3) 



:>v 



007C 8F 

OOOOOOOO'EF 

56 5B 



50 



56 
5B 



SI 



63 



W 



00 



52 

50 
61 



IE 



50 
007C 



6B 
56 
13 

6F 

AB 

81 

50 

E5 

CO' 

8F 



BB 
9E 
DO 

DO 
C3 
13 

7D 

9E 
9A 
2D 
12 
DO 
BA 
05 



006E 
006E 
006E 
006E 
006E 
0072 
0079 
007C 
007C 
007F 
0083 
0085 
0085 
0088 
008C 
008F 
0095 
0097 
009A 
009E 



425 ;+ . , 

426 ; Find DPT given driver name descriptor in R2,R3 

427 ;- 



428 LOCSDPT: 

429 

430 

431 

432 

433 10$: 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 20$: 

444 



PUSHR # A M<R2,R3,R4,R5,R6> 

MOVAB L*I0C$GL_DPTLIST,R11 

MOVL R11,R6 

HOVL DPT$L FLINK(R11),R11 

SUBL3 R6.R1T.R0 

BEOL 20$ 

MOVQ (SP),R2 

MOVAB DPT$T NAME(R11),R1 

MOVZBL (RD+TRO 

CMPC5 R0,(R1),#0,R2,(R3) 

BNEQ 10$ 

MOVL S*#S$$JWRMAL,RO 

POPR # A M<R2,R3,R4,R5,R6> 

RS8 



Save descriptor of driver name 
Address of DPT list head 
Save list header 



CUD 



Link to next DPT 
End of list?, RO = 
Branch if end 



ZERO if so 



Get descriptor 
Get address of 
Get length 
Same? 

Branch if not 
Success 
Restore 
Return R11 has 



of driver name 
driver name 



DPT if RO=SS$JIORMAL 



ZZ-ENSAA-7,0 

Q10 

07-18 



QlOH'l.EANUP Remove old QIO database 

QIOSCLEANUP Remove old QIO database 



G 4 

27-JUL-1984 



Fiche 12 Frame G4 



55 



S3 



Sequence 2311 

. ... .... ... . 'ag 

3-MAY-198* 14:15:31 DMA1 :[SYS0.SYSMAINT30IO.MAR;191 



7-JUL-1984 15:41:38 VAX-11 Macro V03 



Segi 
i-OT 



Page 



14 
(4) 



OvOOOOOO'EF 
COOOOOOO'EF 



7E 

12 



12 

1F 



■ ^00000' EF 
50 63 
C '000000' EF 
00 AO C5 OOAO C4 



007C 

DE 
DE 

DB 
DA 

DE 
DO 
16 
DO 



0090 C5 0090 C4 DO 



009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

C09F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

009F 

00A1 

00A1 

00A8 

OOAF 

OOAF 

0082 

0085 

00B5 

008C 

008F 

00C5 

OOCC 

OOCC 

00D3 



446 

447 :++ 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 .ENTRY 

477 

478 

479 

480 



481 

482 

483 10$: 

484 



.S8TTL QIOSCLEANUP 



FUNCTIONAL DESCRIPTION: 



Remove old QIO database 



This routine 1s used to remove and release alt of the 

QIO data base. 

Every ADP 1s deallocated while restoring the SCB for each. 

Scan thru the DD8 list, making a list on the stack of the CRB's 

present and deallocating each UCB and then the DDB. 

finally deallocate the space for each CRB and corresponding IOB. 

CALLING SEQUENCE: 

CALL6 (SP),QIO$CLEANUP 



INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 
SIDE EFFECTS: 

The current QIO database 1s destroyed. 



485 
486 
487 
488 



QIO$CLEANUP, A M<R2,R3,R4,R5,R6> 

MOVAL SCG_8ASE,R5 

MOVAL SCBJMAGE,R4 

DSBINT 

MFPR S**PR$ IPU-(SP) 

MTPR *31,S a SPR$JPL 

MOVAL L*I0C$GL.ADPLIST,R3 

MOVl <R3),R0 

JSB QIOCLEAN CPU 

MOVL SCBSL_$FTLVL8(R4), - 

SCB$L.SFTLVL8(R5) 
MOVL SCB$L_SFTLVL4(R4), - 

SCB$L_SFTLVL4(R5) 



BASE SCB 

BASE SCB IMAGE 

Don't allow interruptions 



POINT TO ADAPTER HEADER 
POINT TO FIRST ADAPTER BLOCK 

; Do CPU specific QIO cleanup 

RETURN SOFT VECTOR OF FORK DISPATCH 

RETURN SOU VECTOR OF IOPOST 



[113 

cm 



ZZ-ENSAA-7.0 

Q10 

07-18 



QIO$;if.ANUP Remove old QIO database 



H 4 

27-JUL-1984 



S6 0)000000' EF 
3F 

;0 04 A6 
*b 20 AO 



51 6E 
20 
61 
07 

55 81 
F7 
8E 

10 A5 
EA 

08 A6 

2C A5 

08 

50 55 

08D4 

F2 



55 






SO 56 

00000000' EF 66 

0BC5 

B8 

56 8E 

OF 

bO 1C A6 

0887 

50 56 

08B1 

EC 



51 00000000' EF 
50 51 

50 60 

51 50 
05 

08 AO 
F3 



12 8E 

52 WOOOOOO'EF 
11 

00000000' EF 
00 

OOOIMJUOO'EF 03 



Q10SCLEANUP Remove old QIO database 



7-JUL-1984 
3-MAY-1984 



Fl 



he 12 
15:41:38 
14:15:31 



Frame H4 Sequence 2312 
VAX~11 Macro V03-01 Page 
DMA1:CSYS0.SYSHAINT]OIO.HAR;19T 



7E D4 



DO 
13 

DO 
DO 

9E 
BG 
D5 
13 
D1 
12 
D5 

DO 
12 

DE 
DO 
13 
DO 
30 
11 

DO 
DO 
30 
11 

DO 
13 
DO 
30 
DO 
30 
11 



DE 

DO 
D1 
13 
94 

11 



DA 

DO 

Df 
DD 
00 

F8 



00D3 

00D5 

00D5 

OODC 

OODE 

OODE 

00E2 

00E6 

00E6 

00E9 

00E8 

OOED 

OOEF 

00F2 

OOFA 

00F6 

OOF 6 

OOFA 

OOFC 

OOFC 

0100 

0104 

0106 

0109 

010C 

010E 

010E 

0111 

0118 

0118 

0110 

011D 

0120 



490 
491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

5i 

5i 

5; 

Si 

5; 

530 
531 

532 
533 
534 
535 

536 

538 

539 
540 

541 



30$: 



40$: 



50$: 



60$: 



70$: 
80$: 



90$: 



100$: 



110$: 



130$: 



140$: 



CLRL 

MOVL 
8EQL 

MOVL 
MOVL 

M0VA8 

PUSHR 

TSTL 

BEQL 

CMPL 

BNEQ 

TSTL 

MOVL 
BNEQ 

MOVAL 

MOVL 

BEQL 

MOVL 

GS8W 

BRB 

MOVL 
MOVL 
BS8W 
BRB 

MOVL 
BEQL 
MOVL 
BS8W 
MOVL 
BSBW 
BRB 



-<SP) 



TERMINATOR FOR CR8 LIST 



L A I0C$GL^DEVLIST,R6 
100$ 

DDB$tJJC8<R6> ,RQ 

UCB$LlCRS(R0),R5 

(SP) t R1 

# A MR5 

(R1) 

60$ 

(R1)+,R5 

50$ 

(SP) + 



; GET FIRST 
; BRANCH IF 



DDB 
NONE 



15 
(4) 



[11] 



; POINT TO FIRST UCB 

; GET CRB ADDRESS 

; POINT TO FIRST ELIGIBLE 

; ASSUME NOT A DUPLICATE 



VALID 
; BRANCH 
; SAME? 
; BRANCH 
; REMOVE 



If AT END OF LIST 

IF NOT THE SAME 
DUPLICATE CRB 



CRB$L, 
40$ 



1INK(R5),R5 



LINK TO NEXT CRB 
CHECK IT 



DDB$L UCB-UCBSL LINK<R6>,R5 ; FIRST UCB 
yCB$L_LINK(R5),R5 ; LINK TO NEXT UCB 
90$ ; BRANCH IF NONE 

R5.R0 ; COPY ADDRESS 

QIQ$DEALLOCATE ; RELEASE THE SPACE 
80$ ; NEXT UCB 

R6,R0 ; COPY DDB ADDRESS 

DDB$L LINK(R6>,L A I0C$GL_DEVLIST : 
QIO$DfALLOCATE ; RELEASE THE DDB 
30$ ; NEXT DOB 

(SP)+,R6 ; GET CRB FROM STACK 

110$ ; BRANCH IF LAST ONE 
CRB$L INTD+VEC$LJDB<R6),R0 ; POINT TO IDB 

QIO$OpALLOCATE ; RELEASE THE IDB 

R6,R0 ; COPY CRB ADDRESS 

QIQ$DEALLOCATE ; RELEASE THE CRB 

100$ ; CHECK FOR MORE CRB'S 



[113 



MOVAL 

MOVL 

MOVL 

CMPL 

BEQL 

CLR8 

BRB 

EN8INT 

MOVL 
BEQi 
ERRSUP.S 



LM0C$GLJ>PTUST,R1 

R1.R0 

DPT$L^FLINK(R0),R0 

R0.R1 

140$ 

DPT$B.REFC(RO) 

130$ 



5E 



MTPR (SP)* X S A #PR$JPL 

QI0$L W ALL0CATE,R2 

PUSHAL $MODULE 

PUSHL *0 

PUSHL *$ER 

CALLS #3, DSJRRSUP 



Address of header 

Duplicate 

Link to next 

Point back to header? 

Branch if back to header 

Clear reference count 

next DPT 

Enable Interrupts again 

SHOULD ALL BE DEALLOCATED 
BRANCH IF IT WAS 



[113 



I 4 

ZZ-ENSAA-7.0 QIOSCUANUP Remove old QJO database 27-JUL-1984 ^ 0/ F ]5 h ? 1 1 ? F l r l ?"J e J A M wn7 S K9 uence 231 L„« ia 

Q13 27-JUL-1984 15:41:38 VAX-11 Macro V03-0T Page 16 

U7-18 QIOSCLEANUP 'Remove old QIO database 23-MAY-1984 14:15:31 0MA1 :CSYSO,SYSMAINT30JO.HAR;19T <4> 

0165 542 120$: 
04 0165 543 RET 



QIO • 
07-18 



UIOIADDUNIT Add a unit to the QIO databa 



J 4 

27-JUL-19I 



Q10SADDUNIT Add a unit to the QIO databa 



14 

7-JUL-1W 

'3-MAY-191 



Fiche 1 
14 15:41: 
14 14:15: 



Frame J4 Seguence 2314 
VAX-11 Macro V03-01 Page 17 
D«A1:CSYSO.SVSMAINT3QIO.MAR;191 (5) 



0166 
0166 

m 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

CI 66 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 

0166 



545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
56? 
568 
569 
570 
571 

5/2 

573 
574 

576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 

590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 



•S8TTL QIOSADDUNIT 



Add a unit to the 010 database 



++ 



FUNCTIONAL DESCRIPTION: 

This routine takes all the necessary steps to 

Insert a unit into the QIO database, including adding 

ADP's, CRB's, IDB's, DD8's and UCB's. 

The generic name of the device is used to Locate the 

device driver for the device. Starting with the specified 

device fields are copied from the P-table to the ACF block 

which contains all the information necessary to build the 

010 database. For unknown devices the unit and vector information 

is copied. For a TM03 the unit is copied to only one of two fields. 

For channels, (DR780, RH780 & DW780) the configuration register is set 

and the ACF is complete. For all non-channel devices this process 

is repeated for the link device, and then for it's link device, . .etc. 

Note that it is impossible to catch the case where the TM03 is 

omitted from the link chain for a maatape drive... i.e. no 

error is reported. Errors are reported if the channel is omitted* 

CALLJNG SEQUENCE* 

CALLC/S arglist/count,QIO$ADDUNJT 
INPUT PARAMETERS; 



0;AP> 

4 CAP) 



#1 
Address 



of P-table 



IMPLICIT INPUTS: 

Existing QIO datable 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 

The QIO database may be updated, 
COMPLETION CODE: 

SSS.NORMAL if successful 
REGISTER USAGE: 



R3 
R4 
R5 
R6 

AP 

R7 

R10 

R11 

AP 

SIDE EFFECTS: 



TR number of adapter 

Adapter CSR address 

Address of Driver Prologue Table 

Address of ADP 

Address of current P-table 

Address of ACF block 

Address of Adapter P-t3ble 

Address of Controller P-table 

Address of Unit P-table 

NONE 



ZZ-ENSAA-7.0 

QiO 

07-18 



QIOSADDUNIT Add a unit to the QIO databa 



K 4 

27-JUL-1984 



QI0$ADDUN1T Add a unit to the QIO databa 



Fiche 12 
27-JUL-1984 15:41 :38 
23-HAY-1984 14:15:31 



Frame K4 Sequence 2315 
VAX-11 Macro V03-01 Page 18 
D«A1:CSYSO.SYSMAINT3Q10.MAR;1VT (5) 



00000000 
FFFFFFF4 



0166 
0166 
0166 
0166 
0166 
0166 
0166 
0166 
0166 
FE70 
0000 
FFF4 
FFEC 
FFE4 
FFE0 
FFCO 
FFCO 



602 
603 
604 
605 
606 
607 
608 



SOFFSET 0, NEGATIVES 
<FILE,12>, - 
<FILEDESC,8>, - 
<FILEDEF,8>, - 
<LENGTH-4>, - 
<ACF,ACF$C_LENGTH>, • 
<L0CAL,O» 
.SAVE LOCAL BLOCK 
.PSECT $ABS$ S8S 



File name of driver 
Descriptor of driver file name 
Default descriptor 
Longword to recieve file length 
Plac* ♦ build an ACF 



.=0 
,8LK8 



-12 



FILE: 
FJLEDESC: 
FILEDEF : 

LENGTH: 

ACF: 

LOCAL: 



ZZ-ENSAA-7.0 


QI0SADDUN1T Add 


a unit to the Q] 


Q10 












07-18 






QIOSADDUNIT 


Add 






( 


)FFC 


0166 
8 16 8 


610 
611 






5E CO AD 

57 CO AD 

OOOOOOOO'EF 


9£ 
9E 


0168 
016C 


9 1 ? 
613 




50 


DE 


0170 


614 










0177 


615 






5C 04 AC 


DO 


0177 

01 7B 


616 
617 




55 


04 AC 01 


C1 


01 7B 


618 






54 6C 01 


C3 


0180 


619 






OOOOOOOO'EF 


16 


0184 


620 






52 50 


DO 


018A 


621 






51 50 


CO 


01 8D 


622 






7E 71 


90 


0190 


623 






FA 50 


F5 


0193 


624 






7E 52 


90 


0196 
0199 


625 
626 






14 A7 6E 


9E 


0199 
01 9D 


627 
628 






56 5C 


DO 


01 9D 


629 






51 26 A6 


9E 


01A0 


630 






50 81 


9A 


01A4 


631 






OOOOOOOO'EF 


16 


01A7 


632 






13 


13 


01 AD 
01AF 


633 

634 






51 80 


9A 


01 AF 


635 






50 02 A041 


9E 


01B2 


636 






52 60 


3C 


0167 


637 






OE 


12 


01BA 


638 






56 20 A6 


DO 


01BC 


6*9 






DE 


1? 


01CQ 

01 C2 


640 




50 


006600B1 8F 


DO 


641 








04 


01C9 
01 CA 
01 CA 
OKA 
01 CA 


642 
643 
644 
645 
646 
647 




50 


OOOOOOOO'EF 


7E 


01 CA 






55 50 


DO 


01D1 


648 






55 65 


DO 


01 D4 


649 






55 50 


D1 


01D7 


650 






09 


13 


01 DA 


6 5 1 






1F A5 52 


B1 


01DC 


652 






F2 


12 


01E0 


653 






OOCC 


31 


01E2 


654 



databa 

a unit to the 



L 4 
27-JUL-1984 

27-JUL-19I 
QIO databa 23-MAr-19i 



Fiche 12 
14 15:41:38 
M 14:15:31 



Seguence 
V03-0T 



Frame L4 
VAX-11 Macro V05-01 Pag« 
DMA1:CSYS0.SYSMAINT3QJ0.MAR;19T 



2316 



19 
(6) 



.ENTRY QJ0$ADDUNIT, A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 



MOVAB LOCAL(FP),SP 

MOVAB ACF(FP),R7 

MOVAL SCB_BASE,R0 

MOVL 4(AP),AP 

ADDL3 *1,HP$QJ>EVICE+4(AP) f R5 

SUBL3 #1,HP$CfDEVICE(AP),R4 

JSB SCANSALPHA 

MOVL R0,R2 

ADDL R0.R1 

10$: MOVB -(RD--(SP) 

SOBGTR ROJOi 

MOVB R2,-(SP) 

MOVAB (SP),ACF$L..DEVNAME<R7) 

MOVL AP.R6 

20$: M0VA8 HP$T TYPECR6) ,R1 

MOVZBL (R1>*,R0 

JSB LOCSPTDESC 

BEQL 40$ 

MOVZBL <R0)+.R1 

MOVAB 2<R0HR13,R0 

MOVZWL (R0),R2 

BNEQ 50$ 

MOVL HP$A,LJNK(R6),R6 

BNEQ 20$ 

40$: MOVL *DS$_N0SUPP0RT,R0 
RET 



Allocate stack based storage 
Base ACF 
Base SCB 

Address P-table 

Point past M J' 

Length of device name 

Determine length of alphabetic 

Save length or name 

Point past string 

Copy device name onto stack 

Count them all 

Make It ASCIC 

Set addi ess of device name 

Copy P-table address 
Address of device type 
Get length of device type 
Locate this PT-descriptor 
Branch to NODRIVER 

Get length of type name 

Get address of driver prefix 

Get prefix 

Branch 1f valid prefix 

Link to previous device 

Check for prefix 1n controller 

No QIO support for device 

Exit 



; Locate driver, given generic device prefix in R2 

§0$ 
60$ 



70$ 



MOVAQ 

MOVL 

MOVL 

CMPL 

BEQL 

CMPW 

BNEQ 

BRW 



L A IOC$GL_DPTLJST,R0 

R0,R5 

DPT$L FLJNK(R5),R5 

R0,R5~ 

LOAD DRIVER 

R2,DPT$T NAME+KR5) 

60$ 

F1LL.ACF 



Point to driver listhead 

Copy Usthead 

Link to next driver 

At end? 

Branch if more drivers to check 

Match driver prefix 

Try again no match 

Branch since driver found 



C113 



ZZ-ENSAA-7.0 

QIO 

07-18 



QI0SADDUN1T Add a unit to the QIO databa 

QIOSADDUNIf Add a unit to the 



27-JUL-1984 Ffche 12 
£7-JUL-1984 15:41:38 
QIO databa P3-MAY-1984 14:15:31 



Frame M4 Sequence 2317 
VAX-11 Macro V03-0T 
0MA1:CSYS0.SYSMAJNT]QIO.MAR;19 



Page 



20 
(6) 



F4 
F9 



10 







01E5 






01E5 






01E5 






01E5 






01E5 






01E5 


AD 3F515645 8F 


DO 


01E5 


F7 AD 52 


BO 


01ED 


AD 4558452E 8F 


DO 


01F1 


EC AD 09 


DO 


01F9 


FO AD F4 AD 


9E 


01FD 


E4 AD 


7C 


0202 
0205 


EO AD 


DF 


0205 


71 


7C 


0208 


E4 AD 


7F 


020A 


EC AD 


7? 


020D 


05 


DD 


0210 


OOOOOOOO'EF 6E 


FA 


0212 


1D 50 


E8 


0219 


01 


BB 


021C 


6C 


9F 


021E 


EC AD 


9F 


0220 


00000046'EF 


9F 


0223 


7E 01 


9A 


0229 


71 22 


98 


022C 


00000000* 6F 05 


F8 


022F 


01 


8A 


0236 




04 


0238 
0239 


51 EO AD 


DO 


0239 


00000000* EF 


16 


023D 


07 50 


E8 


0243 


00000000' EF 


16 


0246 




04 


024C 
024D 


53 51 


3C 


024D 


OC AE 51 


3C 


0250 


10 AE 52 


DO 


0254 


00000000' EF 8E 


F8 


0258 


08 50 


E8 


025F 


00000000' EF 


16 


W>1 


2D 


11 


0268 

026A 


08 A? 53 


BO 


026A 


A2 FFFF0001 8F 


D1 


026E 
0276 


28 


13 


0276 


FFFF0001 8F 


DD 


0278 


10 A2 


DD 


027E 


EC AD 


7F 


0281 


00000068'EF 


9F 


0284 


7E 01 


9A 


028A 


7E 23 


98 


028D 


00000000 •GF 06 


FB 


0290 
0297 
0297 







656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 



; Load device 
; Inputs: 
; Outputs: 

LOAD DRIVER: 
MOVL 
MOVW 
MOVL 
MOVL 
MOVAB 
CLRQ 

PUSHAL 

CLRQ 

PUSHAQ 

PUSHAO 

PUSHL 

CALLG 

BL8S 

PUSHR 

PUSHAB 

PUSHAB 

PUSHAB 

mov2bl 

cvtbl 

CALLS 

POPR 

RET 



driver 
R2 - 2 character generic device name 
R4 - Address of DPT 



# A A"EVQ?'\FILE(FP) 

R2.FILE+3<FP) 

#*A".EXE M , FJLE + 5CFP) 

#9,FILEDESC(FP) 

FILE(FP),FILEDESC+4(FP> 

FILEDEF(FP) 

LENGTH(FP) 

-(SP) 

FIIEDEF(FP) 

FILEDESC(FP) 

#5 

(SP),DS$LOAD 

RO,50$ 

/TMRO 

HP$Q DEVICE(AP) 

FILEPESC(FP) 

L A T NQDRIVER 

#ds$k„orintf,-(sp) 

#ds$k type.qio nodriver, 

#5, G X DSX$PRINT 

# A MR0 



50$: MOVL LENGTH(FP) ,R1 

JSB EXESALONONPAGED 

8L8S RO,55$ 

JSB DSRSCOMPLETION 

RET 

55$: MOVZWL R1,R3 

MOV2WL R1,L0AD$_LENGTH(SP) 

MOVL R2,LOAD$~ADDRESS(SP) 

CALLS (SP)+ f DS$LOAD 

BL8S R0,60$ 

JS8 DSR$COMPLETION 

BRB 70$ 

60$: MOVW R3,DVR$W SIZE(R2) 

CMPL #DVR$JDENT, - 
DVR$LllDENT(R2) 

BEQL 80$ 

PUSHL #DVR$JDENT 

PUSHL DVR$L~IDENT(R2) 

PUSHAQ FILEDESC(FP) 

PUSHAB L A T WRONGVER 

movzb I #dsSk_pr i nt f , - ( sp) 

cvtbl #ds$K type aio wrongver 

CALLS #6, G*DSX$PRINT 

; Release the driver and return error 



of name 
device name 



Set first part 

Insert generic 

Read .EXE file 

Set length of file spec 

Set address of file spec 

Clear default descriptor 

Address to return length of file 
Length of buffer, and address 
Address of default 
Address of file spec 
Length of arg List 
Locate existence and length of file 
Branch if file found 
Save status code 
Name of device 
descriptor of file name 
Address of edit string 
use PRINTF 
(sp) ; code 
Print the error 

Restore failing DSSLOAD status 
Exit 

Length of memory required 
Allocate the memory for the driver 
Continue if OK 
Print the error 
Return 



Save length of file 

Store length to read 

Store address of buffer 

Now read the file 

Continue if OK 

Print the error 

Error return, release driver 



[113 
C13] 
[13] 
[133 



space 



Stash size of driver 



Is ident version same as supervisor? 
Branch if so 
Correct ident 
Current ident 
Address of driver 
Edit string 
Use PRINTF 
(sp) ; code 
Print the error 



mi 

[133 
[13] 



ZZ-ENSAA-7.0 


QI0SADDUN1T Add 


a unit to t 


he 


Q10 








07-18 




QIOSADDUNIT 


Add 






0297 


713 




50 52 


DO 0297 


714 




00000000'EF 


16 029A 


715 




50 


DA 02A0 


716 






04 02A2 


717 






02A3 


718 




55 14 A2 


9E 02A3 


719 




08 A5 


B4 02A7 


720 




UOOOOOOO'EF 65 


OE 02AA 


721 



databa 27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 
a unit to the 019 databa 23-MAY-1984 14:15:31 



Frame N4 Seguence 2318 
VAX-11 Macro V03-01 Page 21 v 
DMA1:CSYSO.SYSHAINTDOIO.MAR;191 (6) 



fo$t 



80$: 



MOVL 
JS8 
CLRl 
RET 

M0VA8 

CLAW 

INSQUE 



R2,R0 

EXESDEANONPAGED 

RO 



DVRSC LEN(R2) f R5 

DPT$W"SIZE(R5) 

(R5),T0C$GL_DPTLIST 



; Point to buffer 
; Release the space 



Error 
Exit 



return 



; Base driver prologue table 
; Clear size of DPT, catch bugs 
; Insert in queue 



later 



ZZ-ENSAA-7.0 
QIO 



OIOSADDUMIT Add a unit to the QIO databa 

QIO$ADDUNIT Add a unit to the 



B 5 
27-JUL-198^ Fiche 12 
27-JUL-1984 15:41:38 
QIO databa 23-MAY-1984 14:15:31 
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22 
(6) 



18 A7 1E A5 9E 



58 20 AC 

03 

5B 5C 

5A 20 AB 

06 

5A 5B 

5B 5C 



41494253 8F 



71 AA 

06 

5A 58 

5B 5C 



51 26 AA 

50 81 

53 O00OOOC6 l EF 

00000000 'EF 

29 

52 0OO0O0CO'EF4O 

OC A5 52 

1B 

6C 

26 AA 

00000095' EF 

n 01 

11 24 

OOOOOOOO'GF 05 

50 



53 54 



54 



18 AA 

04 00 

06E7 

1E 50 
47'AF 



67 56 

04 A7 54 

08 M 24 AA 

OA A7 08 A8 

OC A7 18 AB 

10 A7 24 AB 



DO 
12 
DO 
DO 
12 
DO 
DO 

D1 
12 
DO 
DO 

9E 
9A 
9E 
16 
1? 
9A 
91 
13 
9F 
9F 
9F 
9A 
98 
FB 
D4 
04 

DO 
Ef 
30 
E8 
9F 



DO 
DO 
BO 

90 

DO 

BO 



0281 

0281 

Q2B1 

02B1 

0281 

0286 

02B6 

02B6 

0286 

02BA 

02BC 

028F 

02C3 

02C5 

02C8 

02C8 

02CB 

02D3 

02D5 

02D8 

02DB 

02D8 

02DF 

02E2 

02E9 

02EF 

02F1 

02F9 

02FD 

02FF 

0301 

0304 

030A 

030D 

0310 

0317 

0319 

031A 

031A 

031E 

0323 

0326 

0329 

032C 

032C 

0336 

0347 

0347 

034A 

034E 

0353 

0353 

0358 

0358 

035D 

035D 

0362 



723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

7 56 

757 

758 

759 

760 

761 

762 

763 

764 

165 

766 

767 

768 

769 

770 

771 

112 

111 

Ilk 

115 

776 

111 

118 

779 



Fill ACF block 






20$: 



40$: 



45$: 



50$: 



60$: 



ACF: 

M0VA8 



MOVL 
BNEQ 
MOVL 
MOVL 
BNEQ 
MOVL 
MOVL 

CMPL 
BNEQ 

MOVL 
MOVL 

M0VA8 

MOVZBL 

M0VA8 

J SB 

BNEQ 

MOVZBL 

CMP8 

BEQL 

PUSHAB 

PUSHAB 

PUSHAB 

mov*bl 

cvtbl 

CALLS 

CLRL 

RET 

MOVL 

EXTZV 

BSBW 

BL8S 

PUSHAB 

CASE 



10%: 



DPT$T_NAME(R5), - 
ACF$L M DRVNAME(R7) 



HP$A LINK(AP),R11 

20$ 

AP-R11 

HP$A LINK(R11),R10 

40$ 

R11-R10 

AP,R11 



Address of driver name 

Address of Controller P-TABLE 
Branch if real controller 
Use unit for controller 
Address of Adapter P-TABLE 
Branch if real adapter 
Use controller for adapter 
Use unit for controller 



HP$T TYPE + 1(R10),// A A M SBJA M ; SBIA attached? 

45$ " ; Branch if not 

R11,R10 ; backtrack through ptables 

AP,R11 ; ... 



HP$T.JYPE<R10),R1 

<R1)+,R0 

L A T KNOWN DEV,R3 

SCAR$SEARrHLIST 

60$ 

T ADAPTER TYPE CR03.R2 

R5 f DPT$B flDPTYPE(RS) 

60i 

HP$Q DEVICE (AP) 

HP$T"TYPE(R10) 

T INflADP 

#as$k - printf.-(sp) 

#ds$k type Qio invadp,- 

#5, 6 x DSX$PRINT 

RO 



; Address of adapter type 
; Length of adapter type 
; Point to list of known types 
; Locate which type it i3 
; Branch if unknown adapter., error 
; Get adapter type 
; Correct type of adapter? 
; Branch if correct 
; Address of device name descriptor 
; Address of adapter type 
; Address of text 
; Use PRINTF 
(sp) ; code 
; Print the error 
; Error return 



;C17 
;C17 

;C17 

;C17 
;C17 
C113 



[13] 

C133 
[133 



ERRSUP..S 

MOVL 
MOVL 
MOVW 

MOVB 

MOVL 

MOVW 



HP$A DEVICE(R10),R4 
#13.54, R4,R3 
FIND ADP 
R0,70$ 

B*?0$ . % ... 

R2,LJMIT«#AT$ MBA.TYPE-l^ISPllSTs- 
^Nl J1BADP, INT^UBADP, INI_DRADP> 



Get adapter CSR address 
Get TR number or SL0T-16 
Locate adapter control block 
Branch if found 
Dummy BSBW return 



R6,ACF$L ADAPTER(R7) 
R4 i ACF$L"C0NFIGREG(R7) 
HP$W VECTOR(RIO). - 
ACFSO AVECT0RCR7) 

HP$B BRIVECP11). - 
ACF$B AUNITIR7) 

NPSA JJEVICECR11). - 
ACF$r C0NTRLREGCR7) 

HP$W JECT0R(R11>, - 
ACF$0 CVECT0R(R7) 



Set ADP control block address 

Set adapter csr address 

Set adapter vector 

Set adapter unit 

Set device csr register 

Set Controller vector 



ZZ-ENSAA-7.0 

010 

07-18 



QIOSADDUNIT Add a unit to the QIO databa 



05 
'.0 A7 24 AA 

12 A7 OB AC 
1C A7 16 A5 

50 EC A5 

13 A7 OB AO 

03 
13 A7 
08 A7 

00000638 'EF 67 

OB A5 

19 50 

OB A5 

50 



GIOSADDUNIT Add a unit to the 



12 
BO 

90 

BO 

9E 
90 

12 
96 
94 

FA 
96 
E8 
97 
DD 



50 8ED0 
04 



0362 
0364 
0369 
0369 
036E 
036E 
0373 
0373 
0377 
037C 
037C 
037E 
0381 
0384 
C384 
038B 
038E 
0391 
0394 
0396 
03A7 
03AA 



780 

781 

782 

783 80$ J 

784 

785 

786 

787 

788 

789 

790 

791 

792 90$: 

793 

794 

795 

796 

797 

798 

799 

800 

801 999$: 



BNEQ 
MOVW 

MOVB 

MOVW 

MOVAB 
MOVB 

BNEQ 
JNCB 
CLR8 



C 5 

27-,'Ul-198' t Fiche 12 
27-JUL-1984 15:41:38 
QIO databa 23-MAY-1984 14:15:31 



Frame C5 Sequence 2320 
VAX-11 Macro V03-0T Page 
DMA1 :[SYS0.SYSMAIMTDQJO.MAR;191 



23 
(6) 



80$ 

HP$W VECTOR(RIO), - 
ACF$B CVECT0R(R7) 
HP$B J5RIVECAP), - 
ACF$B_CUNIT(R7) 
DPT$W_MAXUNITS(R5), 
ACF$W MAXUNITS(R7) 
~DVR$t LEN(R5),R0 
DVR$B CNUMVEC<ftO>, 
ACF$B„CNUMVEC (R7) 
90$ 

ACF$B_CNUMVEC(R7) 
ACF$B AFLAG(R7) 



CALL6 

INC8 

BL8S 

DECS 

PUSHL 

ERRSUP.S 

POPL RO 

RET 



(R7),L A QI0$L0ADJ)B 
DPT$B REFC(R5) 
R0,999$ 
DPT$3_REFC<R5) 
RO 



Branch ft real vector 

Set Controller vector 

Set controller unit 

Set max number of units 
Base of DVR header 

Set number of controller vectors 
Branch if really one there 
Default is one 
Clear adapter flag 

Load the database 

Flag as successful 

Branch if it worked 

It failed, decrement the count 

Save return code 

Spa* 

Restore reason 



[11] 



ZZ-ENSAA-7.0 

QiO 

07-18 



IN1J1BADP BUILD ADP AND INITIALIZE MBA 

INI MBADP BUILD ADP AND 



D 5 

27-JUL-1984 Ffche 12 
27-JUL-1984 15:41:38 
INITIALIZE MSA 23-MAY-1984 14:15:31 



Frame D5 Sequence 2321 
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07BC 8F 
57 53 

51 38 

0605 

36 50 

5A 52 

08 AA 51 



51 



08 



08 



54 8F 
05F4 

1F 50 
59 52 
A9 51 

51 14 

05E4 

09 50 

56 52 

A6 51 

14 



50 
50 



59 
05F5 

5A 
05EF 



50 



0000' 8F 
0091 



03AB 

03AB 

03AB 

03AB 

03AB 

03A8 

03AB 

03AB 

03A8 

03A8 

03AB 

03A8 

C3AB 

03A8 

C3AB 

03A8 

B8 03AB 

DO 03AF 

03B2 

9A 03B2 

30 03B5 

E9 0388 

DO 03BB 

BO 03BE 

03C2 

9A 03C2 

30 03C6 

E9 03C9 

DO 03CC 

BO 03CF 

03D3 

9A 03D3 

30 03D6 

E9 03D9 

DO 03DC 

BO 03DF 

11 03E3 

03E5 

03E5 

DO 03E5 

30 03E8 

DO 03EB 

30 03EE 
03F1 

3C 03F1 

31 03F6 



803 

fc04 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

C16 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

B2? 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

84. 

842 

643 

844 

845 

846 

V>7 

848 



.SBTTL INIJ1BADP 



BUILD ADP AND INITIALIZE MBA 



INI MBADP IS CALLED AFTER MAPPING THE REGISTERS FOR A MASS8US ADAPTER. 
AN ADAPTER CONTROL BLOCK IS Al LOCATED AND FILLED. A CRB AND ID8 ARE 
ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED 
BY CALLING MBA$INITIAL. 

INPUT: 

R3 - TR NUMBER OF MASSbUS ADAPTER 

R4 - CONFIGURATION REGISTER OF ADAPTER 
OUTPUT: 

R6 - ADP ADDRESS 



INI„ 


*IBADP: 
PUSHR 
MOVL 


# A M<R2,R3,R4,R5,A7,R8, 
R3,R7 




MOVZBL 

BS8W 

BL8C 

MOVL 

MOVW 


#CRB$C LENGTH, R1 

QIO$ALEOCATE 

R0,70$ 

R2.R10 

R1,CRB$W_SIZE<R10> 




MOVZBL 

BSBW 

BLBC 

MOVL 

MOVW 


#IDB$C LENGTH+<8*4>,R1 

Q10$ALC0CATE 

R0,6Q$ 

R2 R9 

R1JDB$W^SIZE(R9) 




MOVZBL 

BS8W 

BLBC 

MOVL 

MOVW 

BR8 


#ADP$C MBAADPLEN,R1 

QI3$ALC0CATE 

R0,5Q$ 

R2,R6 

Rl f ADP$W„SIZE(R6) 

100$ 


50$: 
60S: 
70$: 


MOVL 
BSBW 
MOVL 
BSBW 

MOVZWL 
BRW 


R9.R0 

QI0$DEA.L0CATE 

R10,R0 

OIOSDEALLOCATE 

*SS$ INSFMEM,RO 
999$" 



COPY TR NUMBER 

SET SIZE OF CRB 

ALLOCATE SPACE FOR CRB 

BRANCH IF ALLOCATION FAILED 

SAVE CRB ADDRESS 

SET DArA STRUCTURE SIZE 

SET SIZE TO ALLOCATE FOR IDB 
ALLOCATE SPACE FOR IDB 
BRANCH IF ALLOCATION FAILED 
COPY ADDRESS OF IDB 
SET DATA STRUCTURE SIZE 

SET SIZE TO ALLOCATE FOR ADP 

ALLOCATE SPACE FOR ADP 

BRANCh IF ALLOCATION FAILED 

ADDRESS OF ADP 

SET DATA STRUCTURE SIZE 

ALL ALLOCATED FINISH INITIALIZATION 



COPY ADDRESS 

RELEASE 

COPY ADDRESS OF CRB 

RELEASE 



RETURN 
EXIT 



CODE 



ZZ-ENSAA-7.0 

QIO 

07-18 



14 AA 



50 
50 



1*1 0$: 
120$: 



INIJIBADP BUILD ADP AND INITIALIZE MSA 

INIJIBADP BUILD ADP AND 

850 100$: 

851 

852 

b53 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

834 

885 

886 

887 

088 

889 

890 999$: 

891 

892 

893 MBACR8: 

894 

895 

896 

897 



E 5 
27-JUL-1984 Fiche 12 
27-JUL-1984 15:41:38 
INITIALIZE MBA 23-MAY-1984 14:15:31 
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031-9 






03F9 


3C 


BB 


03FF 


0000048F'EF 10' 


28 


0401 


3C 


BA 


040A 
040C 
040C 
040C 


OA 54 19 


EO 


040C 


00000100'EF47 


DE 


0410 


08 


11 


0418 


00000300' EF47 


DE 


041A 


60 15 AA 


DE 


0422 


40 AO 15 AA 


DE 


0426 


0080 CO 15 AA 


DE 


C42B 


OOCO CO 15 AA 


DE 


0431 


OA AA 05 


90 


0437 


6A 6A 


DE 


0438 


04 AA 6A 


DE 


043E 


CC AA 08 


BO 


0442 
0446 


OA A9 09 


90 


0446 


OC A9 08 


98 


044A 


69 54 


DO 


044E 


1C AA 59 


DO 


0451 


AA 00000000' 9F 


9E 


0455 
045D 


OA A6 01 


90 


045D 


66 54 


DO 


0461 


OC A6 57 


BO 


0464 


OE A6 00 


BO 


0468 


10 A6 5A 


DO 


046C 


28 AA 56 


DO 


0470 


10 A9 56 


DO 


0474 


55 59 


DO 


0478 


0578 


30 


04 7B 


OOOOOOOO'EF 


16 


04 7E 
0484 


50 00' 


DO 


0487 
04 8A 


07BC 8F 


BA 


048A 




05 


048E 
048F 
048F 


3C 


88 


048F 


00000000'9F 


16 


0491 


00000000 


0497 


00000000' 


0498 


00000010 


049F 



DSBINT ; Disable interrupts 

PUSHR # A M<R2,R3,R4,R5> : SAVE MOVC REGISTERS 

M0VC3 S A #M8ACR8LEN,L A M8ACRB,CRB$L INTDCR10) ; FILL WITH TEMPLATE 

POPR tf A M<R2,R3,R4,R5> ; RESTORE MOVC REGISTERS 



25 
(8) 



[11] 



Add offset of X100 or X300 based on S8IA number gleaned from R4. 



BBS 

MOVAL 

BRB 

MOVAL 

MOVAL 

MOVAL 

MOVAL 

MOVAL 

M0V8 

MOVAL 

MOVAL 

MOW 

MOVB 

MOVZBW 

MOVL 

MOVL 

M0VA8 

MOV8 

MOVL 

MOVW 

MOVW 

MOVL 

MOVL 

MOVL 

MOVL 

BSBW 

JS8 

ENBINT 

MOVL 

POPR 
RS8 



PUSHR 
J SB 
.LONG 
.LONG 



#25,R4,110$ 

SCB BASE+ A X100tR7J,RO 

1201 

SCB BASE+ A X300[R7],RO 

CRBlL INTDtKR10),(R0) 

CRB$L INTD+1(R10),64(R0) { 

CRB$L"INTD+KR10),128(R0); 

CRB$L""INTD+1(R10),192(R0); 

#DYN$t CRB,CR8$8_TYPE(R10) 



CHECK WHICH SBIA OR 1 

COMPUTE ADDRESS OF FIRST 

CONTINUE 

COMPUTE ADDRESS OF FIRST VECTOR 

CONNECT VECTOR TO CRB CODE 

SAME FOR 

ALL FOUR 

VECTORS 

SET CORRECT TYPE 



C17 

[17 

.[17 

VECTOR (SBIA0);[1 

;C17 

(SBIA1);C1 
;tl7 



CRB$L QQFL(RlO),tRB$L WQFL(R10) ; INITIALIZE WAIT QUEUE HEADER 
CRB$L"WQFL(R10>,CRB$L:WGBL(R10) ; FLINK AND BLINK 
08,CRB$W,REFC(R1O> ; SET REFERENCE COUNT 

#DYNSC IDB,IDB$B TYPE(R9); AND TYPE CODE 

*8,IDBlW UNITS(R9) ; Set count of units 

R4,ID8$L CSRCR9) ; SET CSR ADDRESS TO CONFIG REG 

R9,CRB$L~INTD+VEC$LJDB(R10) ; SET ADDRESS OF IDB INTO CRB 

a#MBA$INTTIAL,CRB$L,INTD+VEC$LJNITIAL(R10) ; SET ADDRESS OF CONTROL 

#DYN$C ADP,ADP$B_TYPe(R6); TYPE CODE 

*4,ADPJL..CSR(R6> ; SET ADDRESS OF CONFIGURATION REGISTER 

R7,ADP$W_TR(R6) ; SET TR NUMBER OF ADAPTER 

#AT$ MBATADPSW ADPTYPE(R6); SET ADAPTER TYPE TO MBA 

R10,XDP$L CRB(R6) ; POINT ADP TO CRB 

R6,CRB$L TNTD+VEC$L ADPCR10) ; SET CRB POINTER TO ADP 

R6,IDB$L"ADP(R9) " ; AND INTO IDB 

R9,R5 " ; ADDRESS OF IDB 

ADPLINK ; LINK ADP TO END OF CHAIN 

MBA$INITJAL ; INITIALIZE MASSBUS ADAPTER 

; Re-enable interrupts 
S A #SS$_NORMAL.RO ; SUCCESSFUL 

tf A M<R2,R3,R4,R5,R7,R8,R9,R10>; RESTORE ALL REGISTERS 

; RETURN 



# A M<R2,R3,R4,R5> 

a#HBA$INT 



MBASINITIAL 



SKELETON MBA CRB 

SAVE REGISTERS 

CALL INTERRUPT DISPATCHER 

CRB$LJNTD+VEC$LJNTD 

CRB$L"INTD+VEC$L_INITIAL 



898 MBACRBLEN=.-MBACRB 



ZZ-EMSAA-7.0 
QIO 

07-18 



INIJJBADP BUILD ADP AND INITIALIZE UBA 

IN1JJBADP GUILD ADP AND 



F 5 
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Page 



26 
(9) 



00000060 



51 



OOBC 8F 
57 53 
0270 , 8F 

050F 

03 50 

0062 



56 

08 A6 
OA A6 
OE A6 
66 
OC A6 
50 



52 
51 
01 
01 
54 
57 
14 A6 



80 



60 50 

04 AO 50 

50 1C A6 

60 50 

04 AO 50 

50 1E 

26 A640 01 

F8 50 

04 A6 

FB09 

04FC 

F803 

50 10 A6 

51 0080 8F 

00000000'EF 

F6 51 



BB 
DO 
3C 

30 
t8 
31 



DO 
BO 
90 
BO 
DO 
80 
DE 
DO 
DO 
DE 
DO 
DO 
DO 
AE 
F4 
D4 
30 
30 
30 
DO 
iC 
9F 
F5 



50 01 DO 



OOBC 8F 



BA 
05 



049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

049F 

C49F 

049F 

049F 

049F 

049f 

049F 

04A3 

04A6 

04AB 

04AB 

04AE 

04B1 

0484 

04B4 

04BA 

048D 

04C1 

04C5 

04C9 

04CC 

04D0 

04D4 

04D7 

04D8 

04DF 

C4E2 

04E6 

04E9 

04EE 

04F1 

04F4 

04F7 

04FA 

04FD 

0501 

0506 

0501) 

0510 
0513 
0516 
0516 

05'.A 



900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

92? 

923 

924 

925 

926 

92/ 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 



.SBTTL INI.UBADP 



BUILD ADP AND INITIALIZE UBA 



INI UBADP ALLOCATES AND FILLS IN AN ADAPTER CONTROL BLOCK, INTERRUPT 
DISPATCHER AND CONNECTS THEM TO THE PROPER SCB VECTORS. A CALL IS 
THEN MADE TO UBASINITIAL TO INITIALIZE THE ADAPTER HARDWARE. 



INPUT? 

R3 - 
R4 - 

OUTPUT: 

R6 - 

REGISTERS; 
R4 - 
A6 - 
R7 - 



TR NUMBER 
CONFIGURATION 

ADP ADDRESS 



REGISTER OF ADAPTER 



ADAPTER CONFIGURATION REGISTER ADDR 
ADP ADDRESS 
TR NUMBER 



NUMU8AVEC = 128 



ALLOW FOR 128 UNIBUS VECTORS 



IN J 



10$: 



20$; 



50$; 



60$; 



UBADP: 
PUSHR 
MOVL 
MOVZWL 

BS8W 
BL8S 
GRW 

DSBINT 

MOVL 

MOVW 

MOVB 

MOVW 

MOVL 

MOVW 

MOVAL 

MOVL 

MOVL 

MOVAL 

MOVL 

MOVL 

MOVL 

MNEGW 

S08GEQ 

CLRL 

BSBW 

BS8W 

BSBW 

MOVL 

MOVZWL 

MOVAB 

SOBGTR 

CNBINT 

MOVL 

POPR 
RSB 



* A M<R2,R3,R4,R5,A7> ; SAVE R2-R7 

R3,R7 ; COPY TR NUMBER 

*<ADP$C U8AADPLEN+UBINTSZ+<NUMUBAVE04»,R1 

; SET SIZE OF BLOCK TO ALLOCATE 

QIO$ALLOCATE ; ALLOCATE SPACE FOR ADP 

R0,10$ ; EXIT IF ERROR 

60§ ; EXIT ON ERROR 

; Disable Interrupts 
R2,R6 ; COPY ADP ADDRESS 

R1,ADP$W SIZE(R6) ; SET SIZE INTO ADP BLOCK 
#DYN$C A5P,ADP$B TYPE(R6); AND SET TYPE OF BLOCK 
#AT$ UflA,ADP$W ADPTYPE(R6) ; SET TYPE OF ADAPTER 



R4,ABP$L - .CSR(R5) 

R7,ADP$W TR(R6) 

ADP$L DPCFL(R6),R0 

RO,(RO) 

R0,4(R0) 

ADP$L MRQFL<R6),R0 

RO,(RO) 

R0,4(R0) 

#30, RO . 

#1,ADP$W MRBITMAP(R6)CR0l 

R0,20$ 

ADPSL LINK(R6) 

UBA$IRITIAL 

ADPLINK 

UBADP.CPU 

ADP$L VECT0R(R6),A0 

#NUMUBAVEC,R1 

U8A$UNEXINT,(R0>+ 

R1,50$ 

#1,R0 

* A M<R2,R3,R4,R5, R?> 



S§T VA OF CONFIGURATION REG 
SET TR NUMBER FOR ADAPTER 
ADDRESS OF DATA PATH WAIT QUEUE 
INN QUEUE HEADER 



ADDRESS OF 
INIT QUEUE 



MAP WAIT 
HEADER 



QUEUE 



NUMBER OF WORDS-1 IN MAP BITMAP 

; SET 16 BITS OF BITMAP 

FILL 31 * 16 => 496 BITS 

ZAP ADAPTER CHAIN LINK 

AND INITIALIZE ADAPTER 

LINK ADP TO END OF LIST 

CALL CPU DEPENDANT CODE 

GET ADDRESS OF VECTOR 

SET NUMBER OF VECTORS 

FILL VECTOR WITH UNEXPECTED INTERRUPT 

DO ALL VECTOR POSITIONS 

Enable interrupts 

SUCCESS 

RESTORE R2-R7 

AND RETURN 



ZZ-ENSAA-7.0 

QIO 

07-18 



INIJRADP BUILD AOP AND INITIALIZE DftA 

INI DRADP BUILD ADP AND 
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50 







051B 






0518 






051B 






0518 






051B 






051B 






0518 






051B 






0518 






0518 






051B 






0516 






051B 






0518 






C518 






0513 


07BC 8F 


6B 


0518 


57 53 


1)0 


051F 
052? 


51 38 


9A 


0522 


0495 


30 


0525 


35 50 


F9 


0528 


5A 52 


DO 


0528 


08 AA 51 


BO 


052E 
0532 


51 34 


9A 


0532 


0485 


30 


0535 


1F 50 


*9 


0538 


59 5? 


DO 


053B 


08 A9 51 


eo 


053E 
05*2 


51 14 


9A 


0542 


0475 


30 


0545 


09 50 


E9 


0548 


56 52 


DO 


0548 


08 A6 51 


BO 


054E 


14 


11 


0552 
0554 
0554 


50 59 


DO 


0554 


0486 


30 


0557 


50 5A 


DO 


055A 


0480 


30 


0550 

0560 


) 0000'8F 


30 


0560 


008F 


31 


0565 



957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
10C0 
1001 
1002 



,SBTTL INIJ)RADP 



BUILD ADP AND INITIALIZE DRA 



INI DRADP IS CALLED AFTER MAPPING THE REGISTERS FOR A MASSBUS ADAPTER. 
AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. A CR8 AND IDS ARE _ 
ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED 
BY CALLING DRAtJNlTIAL. 

INPUT: 

R3 - TR NUMBER OF MASSBUS ADAPTER 

R4 - CONFIGURATION REGISTER OF ADAPTER 
OUTPUT: 

R6 - ADP ADDRESS 



INI.DRADP: 

PUSHR 
MOVL 

M0VZ8L 

BSBW 

BL8C 

MOVL 

MOVW 

M0VZ8L 

BSBW 

BLBC 

MOVL 

MOVW 

MOVZBL 

BSBW 

BLBC 

MOVL 

MOVW 

BR8 



50$ 
60$ 
70% 



MOVL 
BSBW 
MOVL 
BSBW 

MOVZWL 
BRW 



# A M<R2,R3,R4,R5,R7,R8,R9,R10> 

R3,R7 ; COPY TR NUMBER 



#CRB$C LENGTH, R1 

QIOSALroCATE 

R0,70$ 

R2,R10 

R1,CRB$W_SIZE(R10) 

#IDB$C LENGTH, R1 

OIOJALtOCATE 

R0,60S 

R2 R9 

Rl!lDB$W,SIZE(R9) 

#adp$c„dradplen,r1 
qio$alCocate 

R0,50$ 

R2,R6 

R1,ADP$W SIZE(R6> 

100$ 



R9 RO 

qio$deallocate 

R10.R0 
QIOtDEALLOCATE 

*SS$ INSFMEM,RO 
999$" 



SET SIZE OF CRB 

ALLOCATE SPACE FOR CRB 

BRANCH IF ALLOCATION FAILED 

SAVE CRB ADDRESS 

SET DAIA STRUCTURE SIZE 



SET SIZE TO ALLOCATE FOR IDB 
ALLOCATE SPACE FOR IDB 
BRANCH IF ALLOCATION FAILED 
COPY ADDRESS OF IDB 
SET DATA STRUCTURE SIZE 

SET SIZE TO ALLOCATE FOR ADP 

ALLOCATE SPACE FOR ADP 

BRANCh IF ALLOCATION FAILED 

ADDRESS OF ADP 

SET DATA STRUCTURE SIZE 

ALL ALLOCATED FINISH INITIALIZATION 



COPY ADDRESS 

RELEASE 

COPY ADDRESS OF CRB 

RELEASE 



RETURN 
EXIT 



CODE 



ZZ-ENSAA-7.0 

010 

07-18 



1NIJ>RADP BUILD ADP AND INITIALIZE DRA 

INi.DRADP BUILD ADP AND 
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14 AA 05FC*CF 



3C 88 
10* 28 

3C BA 



OA 54 19 
50 00000100^47 

08 

50 00000300'EF47 

60 15 AA 

40 AO 15 AA 

0080 CO 15 A^ 

OOCO CO 15 AA 

OA AA 05 

6A 6A 

04 AA 6A 

OC AA 08 

OA A9 09 

OC A9 01 

69 54 

1C AA 59 

20 AA 00000000' 9F 



OA A6 
66 
OC A6 
OE A6 
10 A6 
28 AA 
10 AO 
55 



01 
54 
57 
02 
5A 
56 
56 
59 
O^OB 
OOOOOOOO'EF 



07BC 8F 



EO 
DE 

DE 
DE 
DE 
DE 
DE 
90 
DE 
DE 
BO 

90 
9B 
DO 
DO 
9E 

90 
DO 
80 
BO 

D 8 
DO 

DO 

DO 

30 

16 



50 00' DO 



8A 
05 



3i 88 

00000000* 9F 16 
00000000 
00000000 « 
00000010 



0568 

0568 

056E 

0570 

0577 

0579 

05/9 

0579 

0579 

057D 

0585 

0587 

058F 

0593 

0598 

059E 

05A4 

05A8 

05A8 

05AF 

05B3 

0583 

0587 

0588 

05Bt" 

05C2 

05CA 

05CA 

05Cc 

05D1 

05DS 

05D9 

05DD 

05E1 

05E5 

05E8 

05EB 

05M 

0SF4 

05F7 

05F7 

05FB 

05FC 

05FC 

05FC 

05FE 

0604 

0608 

060C 



1004 

1005 

1006 

1007 

1008 

1C09 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

103 1 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 



100$: 



DS8INT ; IW sable interrupts 

PUSHR # A M<R2,R3,R4,R5> ; SAVE MOVC REGISTERS _ _ 

M0VC3 S**DRACRBLEN,W*DRACR8,CR&$L INTD<R10) ; FILL WITH TEMPLATE 

POPR #*M<R2,R3,R4,R5> ; RESTORE MOVC REGISTERS 



Add offset of X100 or X300 based on SBJA number gleaned from R4. 



110$: 

120$ s 



999$; 



DRACR8: 



B8S 

MOVAL 

BRB 

MOVAL 

MOVAL 

MOVAL 

MOVAL 

MOVAL 

MOVB 

MOVAL 

MOVAL 

MOVW 

MOVB 

MOVZBW 

MOVL 

MOVL 
MOVAB 

Move 

MOVL 

MOVW 

MOVW 

MOVL 

MOVL 

MOVL 

MOVL 

8SBW 

J SB 

EN8INT 

MOVL 

POPR 
RS6 



PUSHR 
J SB 
.LONG 
.LONG 



#?5,R4,110$ 

SCB BASE+ A X100CR7J # R0 

120$ 

SCB BASE+ A X300CR73 / R0 

CRBJLJNTD + KR10),(R0) , 

CRB$L INTD + KR10),64(R0); 

CR8$LllNTD+1(R10) ,128<ftQ); 



VECTOR 



C18D 

C18D 

(SBIA0)C18 

C18J 

(SBIADC18 



CKECK WHICH SBIA OR 1 

COMPUTE ADDRESS OF FIRST 

CONTINUE 

COMPUTE ADDRESS OF FIRST VECTOR 

CONNECT VECTOR TO CRB CODE 

SAME FOR 
, . „ .ALL FOUR 
CRB$L:INTD+1(R16)J92<R0): VECTORS 
#DYN$C CRB,CRB$B .TYPE<R10> ; SET CORRECT TYPE 
CRB$L QQFL(R10>,CRB$L_WQFL(R10) ; INITIALIZE WAIT QUEUE HEADER 
CRB$L:tfQFL<R10),CRB$L_WQBL(R10) : FLINK AND BLINK 
#8,CR0$W_REFC(R1O> ; SET REFERENCE COUNT 

#DYN$CJDB,IDB$B TYPE(R9); AND TYPE CODE 

#1,lDBlW UNITSCR?) ; Set count of units 

R4,IDB$L CSR(R9) : SET OSR ADDRESS TO CONFIG REG 

R9,CR8$L~JNTD+VEC$LJDB(R10> ; SET ADDRESS OF IDB INTO CRB 

a#DR$INlTJAL,CRB$LjNTD+VEC$LJNlTIAL(R10) ; SET ADDRESS OF CONTROLL 

#DYN$C ADP,ADP$8„TYPE(R6); TYPE CODE 

M«,ADP$L CSR(R6) ; SET ADDRESS OF CONFIGURATION REGISTER 

R7,ADP$W~TR<R6) ; SET T* NUMBER OF ADAPTER 

#AT$ DR,*DP$W ADPTYPE(R6); SET ADAPTER TYPE TO DRA 

R10,JDP$L CRBTR6) ; POINT ADP TO CRB 

R6,CRB$LjNTD+VEC$L.ADP(R10) ; SET CRB POINTER TO ADP 



R6,IDB$L„ADP(R9) 

R9.R5 

ADPLJNK 

DR$INITIAL 

S A #SS$.NORMAl_,R0 



AND INto IDB 

ADDRESS OF IDB 

LINK ADP TO END OF CHAIN 

INITIALIZE MASSBUS ADAPTER 

Re-enable interrupts 

SUCCESSFUL 



#*M<R2,R3,R4,R5,R7,RB,R9,R10>; RESTORE ALL REGISTERS 

; RETURN 



DRACR8LEN=.-DRACRB 



* A M<R2,R3,R4,R5> 

3#DR$INT 



DR$INITIAL 



SKELETON DRA CRB 

SAVE REGISTERS 

CALL INTERRUPT DISPATCHER 

CR8$LJNTD+VEC$LJNTD 

CRB$LlINTD+VEC$LJNITlAL 



ZZ-ENSAA-7,0 

QiO 

07-18 



MAXIMIZE ACCESS MODE 
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27-JUL-1984 



MAXIMIZE ACCESS MODE 



50 



51 
51 



02 
02 



51 
16 
05 
16 



060C 
060C 
060C 
C60C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
060C 
DC 060C 
ED 060E 
15 0613 
EF 0615 
05 061A 



1054 
1055 

m 

1058 

1C59 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 



7-JUL-1984 
23-MAY-1984 

.SBTTL MAXIMIZE ACCESS MODE 
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29 
(12) 



EXESMAXACMODE - MAXIMIZE ACCESS MODE 

THIS ROUTINE IS CALLED TO MAXIMIZE A SPECIFIED ACCESS MODE WITH THE PREVIOUS 
MODE FIELD OF TME CURRENT PSL. 

INPUTS: 

RO = ACCESS MODE TO MAXIMIZE WITH PREVIOUS MODE FIELD OF PSL. 

OUTPUTS: 

THE SPECIFIED ACCESS MODE IS MAXIMIZED WITH THE PREVIOUS MODE FIELD 
OF THE CURRENT PSL AND RETURNED IN REGISTER RO. 

REGISTERS R2 AND R3 ARE PRESERVED ACROSS CALL, 



EXESMAXACMODE: 
MOVPSL 
CMPZV 
BLEQ 
EXTZV 

10$: RS8 



.•MAXIMIZE ACCESS MODE 
R1 ;READ CURRENT PSL 

*PSL$V PRVMOD,*PSL$S PRVM0D-R1,R0 ;COMPARE WITH PREVIOUS MODE 
10$ " " .IF LEO SPECIFIED ACCESS MODE LESS PRIVILEGE 

*PSL$V PRVMOD,*PSL$S_PRVMOD,R1,R0 EXTRACT PREVIOUS MODE FIELD 



ZZ-ENSAA-7.0 

Q10 

07-18 
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BUGUHECK Bugcheck notification routine 27-JUL-1984 ^no/j^/i^g F VAX-11 5 | 

BUGSCHECK Bugcheck notification routine 23-MAY-1984 14:15:31 DMA1:CSYS6.SYSMAJNtJOIO.HAR;l9T" (13) 

.S8TTL BUGIKHECK Bugcheck notification routine 



50 
0000FE00 9F 



6E 
01 



DO 
C8 



E3 11 



061B 1080 

061B 1081 

0618 1082 

0618 1083 

0618 1084 

061B 1085 

0618 1086 

0618 1087 

0618 1088 

0618 1089 

0618 1090 

061B 1091 

0618 1092 

0618 1093 

C618 1094 

0618 1095 

0618 1096 

061B 1097 

0618 1098 

0618 1099 

0618 1100 

061B 1101 

0618 1102 

0618 1103 

061B 1104 

0618 1105 

0618 1106 

0613 1107 

0618 1108 

0618 1109 BUGSCHECK:: 

0618 1110 MOVL (SP).RO ; GET ADDRESS OF TEXT 

061E 1111 BJSL #DSA$M HAL T,S*DSA$GL, FLAGS ; Force Halt on error 

0625 1112 ERRSUP^S ,<R0)~ 

0636 1113 BR8 BUGSCHECK ; CAN f T CONTINUE 



Functional Description: 

This routine types the text of the VMS bugcheck and is equivalent 
to a supervisor ERRSUP 

Calling Sequence: 

BS8W BUGSCHECK 
,ASCJC r, error text" 

Input Parameters: 

9(SP) -> ASCJC explanation 

Implicit Inputs: 
NONE 

Output Parameters: 
NONE 

Implicit Outputs: 
NONE 

Side Effects: 
NONE 



[12] 



Z7-ENSAA-7.0 

Q10 

07-18 



QIO$LOAD_DB Insert unit into data base 

GIO$LOAD„DB Insert unit into 
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Page 



31 
(14) 



0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 
0638 



1115 

1116 
1117 
1118 
1119 
1120 
1121 

1124 
1125 
1126 
112? 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 

1136 
1137 

1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 



++ 



.SBTTL GIOSLOAD.DB 



Insert unit into data base 



FUNCTIONAL DESCRIPTION: 



This routine will load a single unit into an already existing 
database* 

CALLING SEQUENCE: 

CALL QI0SL0AD_DB(ACFJJST) 
INPUT PARAMETERS: 

ACFJ.IST - 

ACF$L AOAPTER(AP) = ADDRESS OF ADAPTER CONTROL BLOCK 
ACF$L~CONFIGREG(AP) = ADDRESS OF CONFIGURATION STATUS REGISTER 
ACF$W~AVECTOR(AP) * OFFSET TO ADAPTER INTERRUPT VECTOR (SCB) 
ACF$B~AUNIT(AP) = ADAPTER UNIT NUMBER 
ACF$B~AFLAG(AP) * ADAPTER GENERATION CONTROL FLAGS 
ACF$L~CONTRLREG(AP) * ADDRESS OF CONTROL REGISTER 
ACFSW^CVECTORfAP) * OFFSET TO CONTROLLER INTERRUPT VECTOR (TABLE) 
ACF$B"CUNIT(AP) * CONTROLLER UNIT NUMBER 
ACF$B~CNUMVEC(AP) = NUMBER OF CONTROLLER VECTORS 
ACF$L DEVNAME(AP) ' ADDRESS OF DEVICE NAME COUNTED STRING 
ACFSLlDRVNAME(AP) = ADDRESS OF DRIVER NAME COUNTED STRING 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

DATABASE LOADED 
COMPLETION CODES: 

RO = STATUS OF OPERATION 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7,0 

Q10 

07-18 



QIO$LOADJ)B Insert unit into data base 

QIOSLOAD.DB Insert unit into 
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00000004 'EF 
0307 



53 18 AC 

52 83 

FA21 

21 50 

51 14 AC 

50 81 

03 

00000046'EF 

7E 01 

7E 22 

00000000' 6F 05 

50 

0267 



0FFC 

94 

30 



DO 
9A 
30 
E8 

9E 
9A 

BB 
9F 
9A 
98 
FB 
D4 
31 



55 14 AC 

54 85 

5A 00000000'GF 

6A 

31 

5A 6A 

51 14 AA 

50 81 

65 54 00 61 50 

EA 



50 

59 

58 

48 AO 



50 



04 AA 

20 AO 

1C A9 

12 AC 

03 

0226 

2C AO 

FO 

0126 



51 34 

0303 

03 50 

0218 

00000004' EF 01 

00000005' U 6A 

6A 52 

5A 52 



DO 
9A 
DE 
D5 
13 
DO 
9E 
9A 
2D 
12 

DO 
DO 
DO 
91 
12 
31 
DO 
12 
31 



9A 
30 
E8 

88 
DE 
DO 
DO 



0638 

0638 

063A 

063A 

0640 

0643 

0643 

0643 

0643 

0647 

064A 

064D 

0650 

0650 

0654 

0657 

0659 

065F 

0662 

0665 

066C 

066E 

0671 

0671 

0671 

0671 

0675 

0678 

067F 

0681 

0683 

0686 

068A 

068D 

0693 

0695 

0695 

0699 

069D 

06A1 

Q6A6 

06A8 

06AB 

06AF 

06B1 

06B4 

Q6B4 

06B4 

Q6B4 

0664 

06B7 

068A 

06BD 

06C0 

06C7 

06CE 

06D1 



1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

12QZ 

1208 

1209 

1210 

1211 

1214 
1215 
1216 
1217 
1218 
1219 
1220 



QIO$LOAD_DB: 
TWORD 

CLRB 
BSBU 



*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 



L A LOAD FLAGS 
10GEN$E0CKJ0D8 



; CLEAR LOADER FLAGS 
;LOCK THE I/O DATABASE 



32 
(15) 



[11] 



LOCATE THE DPT FOR THIS DRIVER 



MOVL ACF$L DRVNAME(AP),R3 

MOVZBL (R3)+TR2 

BSBW LOC$DPT 

BLBS R0,15$ 

M0VA8 ACF$L_DEVNAME (AP) ,R1 

MOVZBL (R1)+,R0 

PUSHR #*M<R0,R1> 

PUSHAB L A T NODRIVER 

movzbl #ds$k_printf ,-(sp) 

cvtbl *ds$k type aio nodriver, 

CAUS #5, G*DSX$PRINT 

CLRL RO 

BRW DBJRRQR 



Address of driver name 
Get length of driver 
Locate driver dispatch table 
Branch if found 

ADDRESS OF ASCIC DEVICE NAME 
GET LENGTH 
STACK LENGTH, ADDRESS 
ADDRESS OF ASCJC EDT TEXT 
Use PRINTf 
(sp) ; code 

DRIVcR FOR DEVICE NOT FOUND 
ERROR 



[11] 
C133 
[13] 
[13] 



CHECK IF DEVICE DATABASE ALREADY LOADED 



15$: 

20$: 



30$: 
40$: 



MOVL 

MOVZBL 

MOVAL 

TSTL 

BEQL 

MOVL 

MOVAB 

MOVZBL 

CMPC5 

BNEQ 

MOVL 

MOVL 

MOVL 

CMPB 

BNEQ 

BRW 

MOVL 

BNEQ 

BRW 



ACF$L DEVNAME(AP),P5 

(R5)+,R4 

G*I0C$GL DEVLIST,R10 

DDB$L LIRK(R10) 

CREATE DDB 

DDB$LJINK<R10),R10 

DD8$T"NAME(R10),R1 

(RD+TftO 

R0,(R1),#0,R4,(R5> 

20i 

DDB$L_UCB(R10),R0 
UCB$L W CRB(R0),R9 f 
CRB$LllNTD+VEC$L m IDB(R9), 



GET ADDR OF DEVICE NAME 
GE1 SIZE OF DEVICE NAME 
GET ADDR OF DEVICE LISTHEAD 
IS THERE A NEXT DDB? 
BR IF NOT - CREATE A NEW DDB 
GET ADDR OF NEXT DDB 
GET ADDR OF DEVICE NAME 
GET SIZE OF DEVICE NAME 
COMPARE DEVICE NAMES 
BR IF NOT EQUAL 

GET ADDR OF FIRST UCB 

GET ADDR OF CRB 

R8 ;GET ADDR OF IDB 



ACF$B_CUNIT(AP),DCB$WJJNIT(RO> ;IS UCB ALREADY LOADED? 



40$ 

DB.EXIT 

yCB$L_LINK(R0),R0 

CREATE.UCB 



BR IF NOT 
ELSE NOTHING TO DO - 
GET ADDR OF NEXT UCB 
BR IF THERE IS ONE 
CREATE THE NEW UCB 



EXIT 



CREATE THE DDB 

CREATEJ)D8: 

MOVZBL 

BSBW 

BLBS 

BRW 
10$: BISB 

MOVAL 

MOVL 

MOVL 



#DDB$K LENGTH,R1 

QIO$AL[OCATE 

R0,10$ 

l.3 ERROR 

#LOAD M DDBAUOAD FLAGS ,..■ ,*,« „™„ . .^ 

DDBSL LTNK(A10)A*15DB_BLINK ;SAVE DDB BACKWARD LINK 

R2,DDB$L - LINMR10) ; SET LINK TO THIS DDB 

R2,R10 ;GET ADDR OF DDB 



GET SIZE OF DDB 
CREATE THE DDB 
BR IF SUCCESS 
ELSE - ERROR 
SET DDB LOADED FLAG 



[11] 
[11] 



ZZ-ENSAA-7.0 

QIO 

U7-18 



14 AA 
24 AA 



08 
OA 

50 

14 

50 



AA 
AA 



08 
14 



BC 



18 



18 BC 



51 
06 
AB 
BC 
50 
50 
BC 
50 
50 



14 



OD 
OC 



59 
58 



AB 
AB 

50 



00 

01 

OE 

6C 

10 AO 

1C A9 

OOCA 



51 13 



51 
51 



00000004' EF 
59 



19 



C8 
OA 

OA 
OD 



14 



51 
10 
52 
53 
A243 



A9 
A9 
69 
A9 
AB 

50 . 
A9 



AC 
51 
24 
38 

029E 
03 50 

01B3 

52 
51 
05 
69 
69 
00 
6C 
AO 
51 
A1 
AC 
A9 



10 

i 

1 C 
OA 
15 



51 34 

025B 

03 50 

0170 

00000004' Er 04 

58 52 

08 A8 51 

0^ A8 09 

10 A8 6C 

68 OC AC 



N 5 

27-JUL-1984 

27-JUL-191 
QIOSLOAD DB Insert unit into data base 23-MAY-19I 



QIOSLOAO.DB Insert unit into data base 



Fiche 12 
14 15:41:38 
14 14:15:31 



Frame M5 Seguence 2330 

VAX-11 Macro V03-01 Pag< 

DMA1 :CSYS0.SYSMAINT]QI0,MAR;191 



33 

(15; 



BO 06D4 

90 06D8 
96 06DC 
9A 06DF 
D6 06E3 
28 06E5 
9A 06EB 
D6 06EF 
28 06F1 

06F7 

06F7 

06F7 

EO 06F7 

91 06FC 
13 0700 
DO 0702 
DO 0705 
DO 0709 
31 070D 

0710 

0710 

0710 

0710 

9A 0710 

D7 0714 

A4 0716 

AO 0719 

30 071 C 
E8 071F 

31 0722 
88 0725 
DO 072C 
80 072F 
90 0733 
DE 0737 
DE 073A 
E1 073E 
DO 0743 
DO 0746 
DO 074A 
DO 07*E 
9A 0752 
9E 0756 

075C 
075C 
075C 
075C 
9A 075C 

30 075F 
E8 0762 

31 0765 
88 0768 
DC 076F 
80 07?2 
90 0776 
DO 077A 
DO 077E 



1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 




MOVW 

MOVB 

INCB 

M0VZ8L 

INCL 

MOVC 

M0VZ8L 

INCL 

MOVC 



R1,DDB$W SIZECR10) :SET SIZE 
#DYN$C DDB,DDB$B„TYPE(R10> ;SET TYPE 



DPT$BREFC(R11) 
SACFSC DEVNAME(AP),RO 

RO 



INCREMENT DPT REFERENCE COUNT 
GET SIZE OF DEVICE NAME 
nu .ADD 1 BYTE FOR COUNT 

R0,3ACF$L DEVNAME(AP),DD8$T NAMECR10) ;SET DEVICE 
8ACFSL DR9NAME(AP),R0 ;GET SIZE OF DRIVER NAME 
RO " ;ADD 1 BYTE FOR COUNT 

R0,9ACF$L DRVNAME(AP),DDB$TJ)RVNAME(R10) ;St DRIVER 



NAME 



NAME 



CHECK U CRB/IDB NEED TO BE CREATED 



B8S 

CMP8 
BEQL 
MOVL 
MOVL 
MOVL 
BRW 

CREATE CR8 

CREATE, CRB: 

M0VZ8L 

DECL 

MULW 

ADDW 

8S8W 

BLBS 

BRW 

10$: 6JS8 
MOVL 
MOVW 
MOVB 
MOVAL 
MOVAL 
B8C 
MOVL 
MOVL 
MOVL 
MOVL 
M0VZ8L 
M0VA8 

CREATE ID8 

CREATEJD8: 

MOVZBL 
BSBW 
BL8S 
BRW 

10$; BIS8 
MOVL 
MOVW 
MOVB 
MOVL 
MOVL 



*DPT$V 5UBCNTRL,DPT$8 FLAGS(R11) , CREATE CRB ;BR 1^ SUBCONTROLLER 

#AT$ UBA,DPT$BJ\DPTYPE(R11> ;UBA DEVICE? 

CREATE CRB ;BR IF YES 

ACFSL *DAPTER(AP),RO ;GET ADDR OF ADP 

ADP$L"CRB(R0),R9 ;GET ADDR OF EXISTING CRB 

CRB$L~JNTD+VEC$L IDB(R9).R8 ;GET ADDR OF IDB 

CREATEjJCB ;CREATE A NEW UCB 



ACF; V B_CNUMV'EC<AP),R1 

R1 

#VEC$>* LENGTH, R1 

*CRB$K~IENGTH,R1 

QIOSALUOCATE 

R0,10$ 

D8 ERROR 

#LOADJLCRB,L A LOAD_FLAGS 



;GET NUM8ER OF INT VECTORS 
;ONE IS ALWAYS ASSUMED 
/COMPUTE SIZE OF EXTRA 
; COMPUTE TOTAL SIZE OF 
/ALLOCATE THE CRB 
;BR IF SUCCESS 
;ELSE - ERROR 
;SET CRB LOADED FLAG 



DISPATCHERS 
CRB 



[11] 



R2,R9 ;GET ADDR OF CRB 

R1,CRB$W SIZECR9) ;SET SIZE 

#DYN$C CRB,CRB$B TYPE(R9) :SET TYPE 

CRB$L QGFL(R9),CRB$L_WQFL(R9> ;SET WAIT QUEUE LISTHEAD 

CRB$L"WQFL (R9) , CRBSL WQBL (R9) : . . 

#DPT$V SUBCNTRL,DPT$B FLAGS(R11 ), CREATE IDB ;BR IF NOT SUBCONTROl.LER 



ACFSL XDAPTER(A£),RO 
ADP$L CRB(R0),R1 
R1.CRBSL LINK(R9) 
CRBSLJNTD+VEC5L IDBCR1) 

ACF$B„AUNIT(AP) f R3 .... ,........,- 

CRBSL INTD+1(R95,JDB$L.UCBLST(R2)CR3J ;SET ADDR OF DISPATCHER 



GET ADDR OF ADAPTER CONTROL BLOCK 
GET ADDR OF SECONDARY CRB 
SET ADDR OF SECONDARY CRB 
R2 ;GET ADDR OF SECONDARY 
GET ADAPTER UNIT NUMbER 



IDB 



#IDB$K LENGTH. R1 ;SET LENGTH OF IDB 
QIOSALCOCATE /ALLOCATE THE IDB 

R0,10$ ;BR IF SUCCESS 

DB ERROR /ELSE - ERROR 

#L0AD_MJDB,L A LOAD_FLAGS ;SET IDB LOADED FLAG 
R2,R8 ;GET ADDR OF IDB 

R1JDBSW SIZE(R8) :SET SIZE 
#DYN$C I&B,IDB$B TYPE(R8) :SET TYPE 
ACF$L ADAPTERCAPT.IDBSL ADPCR8) :SET ADDR OF ADP 
ACF$L*"C0NTRLREG(AP),IDBSL.CSR(R8) ;SET ADDR OF CSR 



C11] 



ZZ-ENSAA-7.0 

GIO 

07-18 



QIO$LOADJ)B Insert unit into data base 

GI0$L0AD„DB Insert unit into 



N 5 
27-JUL-1984 Fiche 12 
27-JUL-1984 15:41:38 
data base 23-MAY-1984 14:15:31 



Frame N5 Seguence 2331 
VAX-11 Macro V03-0T Page 
DMA1:CSYS0.SYSHAINT3QIO.MAR;19T 



34 
(15) 



OC A8 08 98 



50 



64 



50 
60 

50 



56 10 AC 

OA 

007C802A 8F 

0142 

55 13 AC 
54 14 A9 

0000003C , EF 

14 A4 6C 

08 A4 58 

OC AB 01 

1E 

50 6C 

56 10 AO 
00000000 '8F 

OA 

007C801A 8F 

01 OA 

F82F" 

56 04 

54 24 

C4 55 



51 



00000004' EF 

57 

08 A7 

OA A7 

OC A7 

10 A7 



OE AB 
01DC 

03 50 
00F1 
08 
52 
51 
10 

OC A7 

OC A7 



20 A7 59 

OC A9 

50 12 AC 

14 A840 

24 A7 



40 A7 
44 A7 
48 A7 
74 A7 



57 
5A 
40 A7 
40 A7 
12 AC 
OA AC 



51 04 AA 

50 61 

09 

51 2C AO 
50 61 



32 
14 
DO 
31 
9A 
Dfc 
00 

DO 
DO 
91 
12 
DO 
C1 
D1 
13 
DO 
31 

30 
CO 
CO 
F5 



3C 

30 

E8 

31 

88 

DO 

60 

90 

DE 

DE 

DO 

B6 

9A 

DO 

DU 

i)E 

DE 

9B 

90 

DE 
DO 
13 
DE 
00 



0782 

0786 

0786 

0786 

0786 

7 86 

0/8A 

073C 

0797 

0796 

079A 

079E 

07A5 

07A5 

C7A9 

07AD 

07B1 

0783 

07B6 

078B 

07C2 

07C4 

07CB 

07CE 

07CE 

07D1 

07D4 

07D7 

07DA 

07DA 

07DA 

07DA 

07DA 

07DE 

07E1 

07c4 

07E7 

07EE 

07F1 

07F5 

07F9 

07FE 

0803 

0807 

080A 

080E 

081$ 

0817 

081 C 

0821 

0826 

0826 

0828 

082F 

9832 

0834 

0838 



1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 



MOVZBW #8.IDB$W_UNITS(R8) 
CREATE INTERRUPT VECTOR DISPATCHER(S) 



Always set up for 8 units 



5$: 
10$: 



CREATE_VEC: 

CVTWL 

B6TR 

MOVL 

BRW 

M0VZ8L 

MOVAL 

MOVL 



MOVL 

MOVL 

CMP8 

BNEQ 

MOVL 

ADDL3 

CMPL 

BEQL 

MOVL 

BRW 

BSBlr 1 
ADDL 
ADDL 
SOBGTR 



20$: 
30$: 



; CREATE A UCB 

CREATE UCB: 

MOVZWL 
BS8W 
BLBS 
BRW 

5$: BISB 
MOVL 
MOVW 
M0V8 
MOVAL 
MOVAL 
MOVL 
INCW 
MOVZBL 
MOVL 
MOVL 
MOVAL 
MOVAL 
MOVZBW 
MOVB 



10$: 



MOVAL 

MOVL 

BEQL 

MOVAL 

MOVL 



;6ET VECTOR TABLE OFFSET 

;BR If VECTOR SPECIFIED 

;SET INVALID VECTOR ERROR 

; • ..EXIT 

;GET NUMBER OF INTERRUPT VECTORS 

i^d-l i„,^n^,n, ;GET ADDR OF FIRST DISPATCHER 

L A MBlRT DISP,VEC$Q DISPATCH(R4) ;SET "PUSHR tf A M<R2,R3,R4,R5>" 

* AND "JSB 90" 

ACF$L ADAPTER(AP).VEC$L_ADP(R4) ;SET ADDR OF ADP 

R8,VEC$L IDB(RA) :SET ADDR OF IDB 

#AT$ UBA:DPT$BJ\DPTYPE(R11) ;UBA DEVICE? 



ACF$W CVECT0R(AP),R6 

5$ " 

#SYSG$ INVVEC.RO 

DB ERROR 

ACF$B CNUMVEC(AP),R5 

CRB$L INTD(R9),R4 



E113 



30$ 

ACF$L_ADAPTER(AP),RO 

ADP$LVECTOR(R0),R6,R0 

#UBA$DNEXINT,(RO) 

20$ 

#SYSG$ VECINUSE.RO 

DBJRRuR 

IOGEN$C0NN_VEC 

#4,R6 

#VEC$K LENGTH, R4 

R5,10$ 



BR IF NOT 

GET ADDR OF ADP 

GET ADDR OF VECTOR TABLE ENTRY 

IS VECTOR IN USE? 

BR IF NOT 

SET ERROR STATUS 

...EXIT 

CONNECT UB DEVICE VECTOR 
INCREMENT VECTOR OFFSET 
INCREMENT DISPATCH ADDR 
DECREMENT VECTOR COUNT - BR IF MORE 



DPT$W UCBSIZE(R11),R1 ;GET SIZE OF UCB 

QIOSAULOCATE .-ALLOCATE THE UCB 

R0,5$ ;BR IF SUCCESS 

DB ERROR ;ELSE - ERROR 

#LuAD M UCB, L A LOAD^ FLAGS ;SET UCB LOADED FLAG 

R2,R7~ " ;GET ADDR OF UCB 

R1,UCB$W SIZECR7) ;SET SIZE 

#DYN$C UtB,UCB$B.JYPE<R7) ;SET TYPE 

UCB$L_XSTQFL(R7),UCB$LJ\STQFL(R7) ;SET AST QUEUE LISTHEAO 

UCB$L ASTQFL(R7),UCB$LJ\STQBL<R7) 



cud 



SET ADDR 6F CRB 
INCREMENT CRB REFERENCE COUNT 
.GET CONTROLLER UNIT NUMBER 
DCR03 ;SET ADDR OF UCB IN IDB 
R10,UCB$C D0BCR7) ;SET ADDR OF DDB 

UCB$L I0QFL(R7),UCS$L dJFL(R7> ;SET I/O QUEUE LISTHEAD 
UCB$LlI0QFL(R7),UCP^:i0QBL(R7) :... 
ACFSB CUNIT(AP),UCB>WJJNIT(R7) ;SET UNIT NUMBER 
ACF§b:auNIT(AP),UCB$B_SLAVE(R7) ;SET SLAVE CNTRI 



R9.UCB$L CRB(R7) 
CRB$W_REFC(R9) 
ACF$B CUNIT(AP).RI 
R7 1 IDB$L UCBLST(Ri 
R10,UCB*C DDBCR7) 



:NTRLER NUMBER 



DDB$L UCB(R10),R1 

(RD.HO 

20$ 

UCBSL L INK(RO) # R1 

<R1),Rt 



GET ADDR OF 
bET ADDR 0' 
BR IF NONE 
GET ADDR OF 
GE T ADDR OF 



ADDR OF FIRST UCB 
FIRST UCB 



ADDR 

NEXT 



OF NEXT 
UCB 



UCB 



ZZ-ENSAA-7.Q 

Q10 

1*7-18 



QI0$L0AD_D8 Insert unit Into data base 



6 6 

27-JUL-19I 



00000009 *EF 
61 



F7 
51 
57 



54 58 

55 57 
00000000' EF 

58 A5 0800 8F 

OA 50 

50 007C800A 8F 

0072 



06 



00000004' U 
56 



01 

5A 

00D8 



57 
68 
54 

50 10 A9 
07 

50 1C AO 
60 
01 
15 
6C 
66 
56 
F75E 
06 50 



OC 



55 

54 
53 



54 

A8 

56 

56 
50 



58 A7 

50 OC 

51 18 
03 51 

51 
00000000' 8F 

51 2C 



56 



10 

23 

AA 

AO 

10 

50 

51 



A 

05 

61 
5A 



Q]0$LOAD_DB Insert unit into data base 



14 Fiche 12 

I7-JUL-1984 15:41 : 38 
(3-M4Y-1984 H:15:31 



Frame 86 Seguence 233? 

VAX-11 Macro V03-0T Paoe 

DM1:CSYS0.SYSMAINT]QIO.MAR;19T 



16 

DO 



Si 



12 0838 
DO 083D 
DO 0844 

0847 

0847 

0847 

0847 

0847 

DO 0847 

DO 084A 

16 084D 

A8 0853 

E8 0859 

DO 085C 

31 0863 

0866 

0866 

0866 

I66 

I66 

E1 086C 

DO 0874 

30 0877 

087A 

087A 

DO 087A 

DO 087D 

DO 0880 

DO 0883 

13 0887 
DO 0889 
DO 088D 
91 0890 
12 0894 
DO 0896 
DO 0899 
DO 089C 

£8 08A2 

AA Q8A5 

1 1 08A9 

DO 08A8 

DO 08AF 

E Q 3§B3 

CO 0887 

D1 08BA 

12 08C1 

B 08t! 



C7 
8C9 
8C8 
8CE 

0801 
08D1 

08D1 



1335 
1336 
1337 

1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1 

1 

1 

131 

I 

13; 

13i 
13i 



BNEG 10$ 
20$: MOVL R1 ,L A UCB_BLINK 
MOVL R7,(R1> 



INITIALIZE ALL THE CONTROL BLOCKS 



BR IF IT EXISTS 

SAVE UC8 BACKWARD LINK 

SET FORWARD LINK TO UCB 



35 
(15) 



cm 



INIT_DB: 



MOVL 

MOVL 

J SB 

6ISW 

BL8S 

MOVL 

BRW 



R11,R4 ;SET ADDR 

R7,R^ ;SET ADDR 

IOCi.NJTDRV 

#UCB$M VALID, UCB$W.STS(R5); FORCE 



ROJNIT CNTRL 

#SYSG$ jNVDPTINI,RO 
DB.ERROR 



OF DRIVFR PROLOGUE 
OF UCB 

Init the control blocks 
SOFTWARE VOLUME VALID 



cm 



8R IF SUCCESS 
SET ERROR STATUS 
...EXIT 



CALL THE CONTROLLER AND DRIVE INITIALIZATION ROUTINES 



INIT CNTRL: 

DS8INT 

88C 

MOVL 
BS8W 

INJTJJNIT: 

MOVL 
MOVL 
MOVL 
MOVL 
BEOL 
MOVL 
MOVL 



;DISABLE INTERRUPTS 
#LOAD V CR8,L A L0AD FLAGS, INIT UNIT *BR IF CRB NOT JUST CREATED [11] 
R10.R5 ;SET ADDR Of DDB 

IOGEN$CNTRL INI INITIALIZE THE CONTROLLER 



10$: 



20$: 



25$: 



271: 

30$: 



CMP8 

BNEQ 

MOVL 

MOVl 

MOVL 

BS8W 

BL6S 

8ICW 

BR8 

MOVL 

MOVL 

B6S 

ADDL 

CMPL 

6NE0 

MOVL 

BEGL 

JS8 

MOVL 

EN8INT 



R7,R5 

IDB$L^CSR(R8),R4 

R4,R3 

CRB$L.LINK(R9),R0 

10$ 

CRB$LJNTD+VEC$LJD8(R0) 

IDB$L CSR(R0),R4 ,y C 

#AT$ OBA,DPT$B ADPTYPE(RII) 

20$ " 

ACF$L_ADAPTER(AP),R6 

ADP$L CSR(R6),R6 

R6,R0 



UC8 
CSR 

ONE CSR 
SECONDARY 



CRB 



GET ADDR OF 

GET ADDR OF 

ASSUME ONLY 

GET ADDR OF 

BR IF NONE 

RO ;GET ADDR OF SECONDARY 

GET SECONDARY CSR ADDR 
;UBA DEVICE? 
;BR IF NOT 
;GET ADDR OF ADP 
;GET ADDR OF adapter CSR 



IDE 1 



IO$TESTCSR,L 
R0,20$ 



CHECK FOR 
BRANCH IF 



NONEX CSR 
CSR EXISTS 



#UCB$M ONLINE, UC8$W_STS<ft7> ;SET DEVICE OFFLINE 
30$ 



DDB$LJ)DT(R10),RQ 
DDT$LJJNITINIT(R0),R1 



#16,RT,25$ 
R0,6l 

R1 1 #I0C$RTN 
27i 



GET ADDRESS OF DDT 
GET OFFSET OF UNIT CODE 
BRANCH IF ABSOLUTE SUPERVISOR 
ADD IN 8ASE ADDRESS 
IF EQUAL TO IOC$RETURN THEN 
C r, t UNIT INIT WASN*T SPECIFIED 

CRB$LJNTD + VEC$L„UNJTINIT(R9),R1 • SO GET IT FROM CRB 
30$ ; NOT SPECIFIED IN CRB EITHER 

(R1) ; CALL UNIT INITIALIZATION 

R10,R6 ; SET UP ADORESS OF DDB 

;RE-ENABLE INTERRUPTS 



ADDR 



; OPERATION COMPLETED - UNLOCK I/O DATABASE AND EXIT 
68 EXIT: 



ZZ-ENSAA-7.0 
QIO 

07-18 



27-JUL-1984 Fkhe 12 Frame C6 Sequence 2333 

27-JUL-1984 15:41:38 VAX-11 Macro V03-01 Paae 36 
Q10SL0AD DB Insert unit Into data base 23-MAY-1984 14:15:31 DMA1:CSYSO.S/SMA1NT3QIO.HAR;19T (15) 



QIOSLOAD^DB Insert unit into data base 



007A 
50 01 



30 

DO 
04 



0801 
08D4 
08D4 
08D7 



1392 
1393 
1394 
1395 



BSBW 

MOVL 
RET 



I0GEN$UNLK_I0DB 
#1,R0 



UNLOCK I/O DATABASE 

AND LOWER IPL 
SET SUCCESS 
•..EXIT 



ZZ-ENSAA-7,0 
Q10 

07-18 



DBJRROR ERROR LOADING DATABASE 



D 6 
27-JUL-1984 



1C 



00000004' EF 03 

00000009' FF 

OC A9 

50 12 AC 

14 A840 

50 57 

02 

04 



00E3 



05 



0O000O04'EF 
50 



02 
58 



1A 



00000004 'EF 

10 OD AB 

51 

51 

50 



01 

00 

10 A9 

1C A1 

OA AC 

H A140 

50 59 

CD 



DB.ERROR ERROR LOADING DATABASE 



7-JUL-1984 
'3-MAY-1984 



fiche 12 
15:41:38 
14:15:31 



Seguence 2334 
V03-01 Pagi 
DMA1:CSYS0,SYSMAINT]QIO.MAR;191 



Frame 06 
VAX-11 Macro 



37 

(16) 



50 DD 



E1 
D4 
87 
9A 
DA 
DO 
10 
11 



30 
05 



El 



E1 
E1 
DO 
DO 
9A 
D4 
DO 
10 



08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08D8 

C8D8 

08D8 

08D8 

08D8 

08D8 

08D8 

08DA 

08DA 

08DA 

08DA 

08E2 

08E8 

08EB 

08EF 

08F3 

08F6 

08F8 

08FA 

08FA 

08FA 

08FA 

08FA 

08FA 

08FD 

08FE 

08FE 

08FE 

08FE 

08FE 

0906 

0909 

090B 

0908 

0908 

0908 

0913 

0918 

091C 

0920 

0924 

0928 

0928 

092D 



1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 

1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 

1440 
1441 
144? 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 



.S8TTL DB ERROR 



ERROR LOADING DATABASE 



+ + 



DB.ERROR - LOCAL ROUTINE TO UNLOAD A PARTIALLY LOADED DATABASE 



Th 
un 

INPUTS: 



is routine checks the loading flaps (LOAD.FLAGS) and 

load and unlinks any control blocks that were just created. 



LOAD FLAGS ~ FLAGS INDICATING CONTROL BLOCKS THAT HAVE JUST 
BEEN CREATED 

OUTPUTS: 

RO * ERROR STATUS THAT CAUSED UNLOADING 



DB ERROR: 

PUSHL 

UCB UNLOADING 

B8C 

CLRL 

DECW 

M0VZ8L 

CLRL 

MOVL 

BSB8 

BRB 



RO 



;SAVE ERROR STATUS 



#LOAD V UCB,L A LOAD..FLAGS 

aL A ucB Blink 
crb$w refc(r9) 
acf$b~cunit<ap),ro 
id8$l ucblst(r8)cr03 

R7.R0 

io$ 

20$ 



20$ ;BR IF UCB NOT CREATED 
CLEAR POINTER TO UCB 
DECREMENT CRB REFERENCE COUNT 
GET CONTROLLER UNIT NUMBER 
CLEAR IDB POINTER TO UCB 
SET ADDR OF UCB 
DEALLOCATE THE UCB 



C11] 

C11] 



LOCAL SUBROUTINE TO DEALLOCATE A CONTROL BLOCK 

INPUT - RO = ADDRESS OF BLOCK TO DEALLOCATE 



10$: 



8S8W 
RS8 



QIO$DEALLOCATE 



/DEALLOCATE TO NON-PAGED POOL 



IDB UNLOADING 



J0$: 



BBC 

MOVL 

BSB8 



#LOAD V IDB,L' i LOAD_FLAGS,30$ ;8R IF IDB NOT CREATED 
R8,R0~ " ;SET ADDR OF IDB 

10$ .-DEALLOCATE THE IDB 



[113 



CR8 UNLOADING 



$0$: 



40$ 



BBC 

B6C 

MOVL 

MOVL 

M0VZ8L 

CLRL 

MOVL 

BSBB 



#LOAD V CRB,L*L0AD FLAGS f 50$ ;8R 
*DPT$V 5UBCNTRL,DPT$B FLAGS (RID 



CRB$LjINK(R9)>fil 

CRB$LllNTD+VEC$L IDB(R1) 

ACF$8 AUNJT(AP),RO 

IDB$i:uC8LST(R1)[R0] 

R9.R0 

10$ 



IF CRB NOT 
,40$ ;BR IF 



uovni i/,hu* ion u nui *\j 

GET ADDR OF SECONDARY CRB 
R1 ;GET ADDR OF SECONDARY 
GET ADAPTER UNIT NUMBER 
CLEAR DISPATCHER POINTER 
SET ADDR OF CRB 
DEALLOCATE THE CRB 



CREATED 

NOT SUBCONTROLLER 



[11] 



IDB 



ZZ-ENSAA-7.Q 

Q10 

07-18 



DB ERROR ERROR LOADING DATABASE 



DB ERROR ERROR LOADING DATABASE 



E 6 . 

27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 

23-MAV-1984 14:15:31 



Sequence 
V03-0T 



Frame E6 

VAX-11 Macro V03-01 Pagi 
DMA1iCSYS0.SYSMAINTjQI0*MAR;19l 



2335 

Pa< 



OE 







092D 






092D 


00000004* EF 00 


E1 


092D 


OB AB 


97 


0935 


00000005'FF 


D4 


0938 


50 5A 


DO 


093E 


B7 


10 


0941 
0943 


0008 


30 


0943 
0946 


50 


8ED0 


0946 




04 


0949 
094A 
094A 
C94A 
094A 
094A 
094A 




05 


094D 
094E 
094E 




05 


0951 



1454 
1455 

1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 



DDB UNLOADING 



§0$; 



60$: 



BBC 

DECB 

CLRL 

MOVL 

BSB8 



*LOAD_V DD8,L A L0AD_FLAGS,60$ ;BR If DDB NOT CREATED 



DPT$B~REFC(6i1) 

3L A DDB,BLINK 

R10.R0 

10S 



•DECREMENT DPT REFERENCE COUNT 
;CLEAR LINK TO THE DDB 
;SET ADDR OF DDB 
^DEALLOCATE THE DDB 



38 
(16) 



C113 
C113 



BSBW IOGENSUNLKJODB 



POPL 
RET 



RO 



.S8TTL 
JOGENSLOCK JODB: 

SETJPL #31 

RSB 
IOGENSUNLK IODB: 

SETlPL #0 

RS8 



UNLOCK THE I/O 
AND LOWER IPL 
RESTORE STATUS 
..•EXIT 



I/O DATABASE INTERLOCKS 



DATABASE 



J 



ZZ-ENSAA-7.0 
QIO 

07*18 



10GENSCNTRL.INI Initialize a controller 

I0GENSCNTRLJN1 Initialize a 



F 6 
27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 

controller 23-MAY-1984 14:15:31 



Sequence 
V03-0T 



Frame F6 
VAX-11 Macro V03-01 Pag. 
DMA1 :CSYS0.SYSMAINT^QIO.MAR;19l 



2336 
Pa< 



39 
(17) 



OC AB 



50 
58 
55 

50 



56 



50 



50 
58 
55 

50 



01 

3F 

8F 

A6 

A0 

A8 

65 

A5 

60 

8F 

A5 

66 

54 



OFFC 

04 

20 

1C 
54 

10 
50 
0040 

10 
56 
50 

F67D* 
0040 8F 

08 50 

20 A8 
02 



60 
OFFC 8F 



OC AB 00 
1F 
OFFC 8F 
04 A6 
20 AO 
1C A8 
54 65 
20 A8 
02 



60 
OFFC 8f 



0952 
0952 
0952 
0952 
0952 
0952 
0952 
0952 
0952 
0952 
91 0952 

12 0956 
BB 0958 
DO 095C 
DO 0960 
DO 0964 
DO 0968 
DO 0968 
DO 096F 
BB 0972 
DO 0976 
DO 097A 
DO 097D 
30 0980 
BA 0983 
E9 0987 
DO 098A 

13 098E 
0990 
0990 
0990 

16 0990 
0992 

BA 0992 

05 0996 
0997 

91 0997 

12 099B 
BB 099D 
DO 09A1 
DO 09A5 
DO 09A9 
DO 09AD 
DO 0980 

13 09B4 
0986 
0986 
0986 

16 0986 
0988 

BA 0988 
09BC 

05 09BC 



1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 
1529 



++ 



♦ SBTTL IOGEN$CNTRLJNI Initialize a controller 



IOGENSCNTRLJNI - INITIALIZE THE DEVICE CONTROLLER 

INPUTS - R6 « ADDR OF DDB 

R11 = ADDR OF DRIVER PROLOGUE TABLE 



IOGENSCNTRL INI 
CMPB 
BNEQ 
PUSHR 
MOVL 
MOVL 
MOVL 
MOVL 
MOVL 
MOVL 
PUSHR 
MOVL 
MOVL 
MOVL 
BSBW 
POPR 
BLBC 
MOVL 
BEQL 



10$: 
20$: 



30$: 
40$: 



J SB 

POPR 
RSB 

CMPB 

BNEO 

PUSHR 

MOVL 

MOVL 

MOVL 

MOVL 

MOVL 

BEQL 



JSB 

POPR 

RSB 



*AT$ UBA,DPT$B ADPTYPECR11) ;UBA DEVICE? 
20$ ~ " ;8R IF NOT 

# A M<R2,R3,R4,R5.R6,R7,R8,R9,R10,R11> ;SAVE REGISTERS 
DDB$L UCB(R6),R0 ;GET ADDR OF FIRST UCB 
UCB$L~CR8(R0),R8 ;GET ADDR OF CRB 
CRB$LllNTD+VEC$LJDB<R8),R5 ;SET ADDR OF JDB 
IDBSL CSR(R5),R4 ;SET ADDR OF CSR 
IDB$L"ADP(R5),R0 ;GET ADDR OF ADP 
ADP$L~CSR(R0),R0 ;GET ADDR OF UBA CSR 
#*M<R5> ;SAVE DDB ADDRESS 

ID8$L ADP(R5),R6 ;GET ADDRESS OF ADP 
ADP$L~CSR(R6),R6 ;GET ADDRESS OF CSR 
R4,R0" ;Copy address of Controller CSR 

IOSTESTCSR W ;TEST IF CONTROLLER EXISTS 

**M<R6> " ;RESTORE DDB ADDRESS 

R0,10$ ;BRANCH IF NON-EXISTENT CSR 

CRB$L INTD+VECSL INITIAL (A8) ,R0 ;GET ADDR OF INIT ROUTINE 
10$ " ' ;BR n NONE 

R4 = ADDR OF CSR 

R5 = ADDR OF IDB 

R8 - ADDR OF CRB 
(RO) ;INIT CONTROLLER 

# A M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ;RESTORE REGISTERS 

#AT$ MBA,DPT$B ADPTYPE'R11> ;UBA DEVICE? 
40$ ~ " ; Branch if not MBA 
# A M<R2,R3,R4 f R5.R6,R7,R8,R9 l Rl0-Rl1> ;SAVE REGISTERS 
DDB$L UC8CR6),R0 ;GET ADDR OF FIRST UCB 
UCB$L"CR8(R0),R8 ;GET ADDR OF CRB 
CRB$l:INTD+VEC$L_IDB(R8),R5 ;SET ADDR OF IDB 
IDBSL CSR(R5),R4 ;SET ADDR OF CSR 
CRB$LllNTD+VEC$LJNITIAL(R8),R0 ;GET ADDR OF INIT ROUTINE 
30$ ;BR IF NONE 

R4 = ADDR OF CSR 

R5 = ADDR OF ID8 

R8 = ADDR OF CRB 
(RO) ; INIT CONTROLLER 

rf A M<R2,R3,R4,R5,R6,R/,R8,R9,R10,R11> ;RESTORE REGISTERS 



ZZ-ENSAA-7.0 

QIO 

07-18 



MEMORY ALLOCATION SUBROUTINES 

MEMORY ALLOCATION SUBROUTINES 



G 6 
27-JUL-1984 Fiche 12 
27-JUL-1984 15:41:38 
23-MAY-1984 14:15:31 



Frame G6 
VAX-11 Macro 



Sequence 
VO3-0T 



2337 
Page 



DMA1:[SYS0.SYSMAINTJQI0.MAR;19T 



40 
(18) 



08 

OOOOOOOO'EF 

08 



51 51 



15 
FD 
FB 



OOOOOOOO'EF 



50 
06 
8F 
82 
51 
06 
51 



OE 

51 08 AO 

OOOOOOOO'EF 51 

00000000 ' Ef 

OE 



BB 
16 
BA 
E9 
BB 
78 
7C 
F5 
BA 
CO 
05 



BB 
3C 
C2 
16 
BA 
05 



09BD 

09BD 

09BD 

09BD 

09BD 

09BD 

09BD 

09BD 

09BD 

09BD 

098D 

09BD 

098D 

09BD 

C9BD 

09BD 

09BF 

09C5 

09C7 

09CA 

09CC 

09D1 

09D3 

09D6 

09D8 

09DF 

09E0 

09E0 

09E0 

09F0 

09E0 

09E0 

09E0 

09E0 

09EO 

09E0 

09E2 

09E6 

09ED 

09F3 

09F5 



1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 



.SBTTL 



MEMORY ALLOCATION SUBROUTINES 



ALONONPAGED CALLS EXE$ALONONPAGED TO ALLOCATE NON-PAGED POOL. 

ZERO'S THE BLOCK WHEN ALLOCATED 

ALSO THE LENGTH OF THE ALLOCATED BLOCK IS ADDED TO QIOSL.ALLOCATED 



INPUT: 



R1 - SIZE OF REQUESTED BLOCK IN BYTES 



; OUTPUTS: 
RO 

QIOSALLOCATE: 
PUSHR 



SUCCESS/FAILURE INDICATION 
ALLOCATED SHE OF BLOCK 
ADDRESS OF BLOCK 



10$: 



20$: 



JTMR3 

JSB EXE$ALONONPAGED 

POPR # A MR3 

BLBC R0,20$ 

PUSHR #*M<R1,R2> 

ASHL #-3,R1,R1 

CLRQ (R2)+ 

SOBGTR R1,10$ 

POPR #*M<R1,R2> 

ADDL R1,L A QI0$LJ\LL0CATE 
RSB 



SAVE R3 

ATTEMPT TO ALLOCATE 

RESTORE R3 

RETURN W/ ERROR 

SAVE REGS 

DIVIDE BY 8 

CLEAR 

COUNT QUADWORD AND CONTINUE 

RESTORE 

REMEMBER IT WAS ALLOCATE 

RETURN 



C113 



QIO$DEALLOCATE CALLS EXE$DEANONPAGED TO RELEASE THE MEMORY 
THE SIZE OF THE BLOCK IS SUBTRACTED FROM QIO$L_ALLOCATE 
INPUT: RO Address of block 



QIO$DEALLOCATE: 
PUSHR 
MOVZWL 
SU8L 
JSB 
POPR 
RSB 



#*M<R1,R?,R3> 
8<R0),R1 

R1,L A QI0$L ALLOCATE 
EXE$DEANONPAGED 
# a M<R1,R2,R3> 



SAVE REGS 

GET LENGH OF BLOCK 

SUBTRACT FROM SPACE ALLOCATE 

RELEASE IT 

RESTORE 

RETURN 



C11] 



ZZ-ENSAA-7.0 

Q10 

07*18 



ADPL1NK Link adapter to end of ADP list 



H 6 

27-JUL-1984 



50 



FFFFFFFC'EF 

51 04 AO 

05 

50 



04 AO 



51 
F5 
56 



56 



50 

FFFFFFFC'EF 

56 OA A6 

08 

54 



50 



6< 
F5 

00' 



ADPLJNK Link adapter to end of ADP list 



7-JUL-1984 

I3-MAY-1984 



Fiche 12 
15:41:38 

K;15:31 



Frame H6 Seguence 2338 

VAX-11 Macro V03-0T Page 

OMAliCSYSO.SYSMAINTDQIO.MAR; 191 



41 
(19) 





Q9F6 
09F6 






Q9F6 
09F6 






09F6 




09F6 




09F6 




09F6 




09F6 




09F6 


9E 


09F6 


DO 


09FD 


13 


0A01 


DO 


0A03 


11 


0A06 


DO 


0A08 


05 


OAOC 




OAOD 




OAOD 




OAOD 




OAOD 




OAOD 




OAOD 




OAOD 




OAOD 


D4 


OAOD 


9E 


OAOF 


DO 


0A16 


13 


0A1A 


D1 


OAK 


12 


0A1F 


DO 


0A21 


05 


0A24 



1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 

1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 



.S8TTL ADPLJNK Link adapter to end of ADP list 
ADPLINK LINKS THE ADAPTER CONTROL BLOCK TO THE END OF THE ADP LIST 

INPUT: 

R6 - ADDRESS OF NEW ADP 
OUTPUTS: 

ADP IS LINK TO THE END OF THE ADPLIST LOCATED BY IOC$GLJ\DPLIST, 



ADPLJNK: 
10$: 



20$: 



M0VA8 

MOVL 

BEQL 

MOVL 

BRB 

MOVL 

RS8 



<10C$6L ADPLIST-ADPSL LINK>,RO ; START OF LIST 

ADP$L lTNK(R0),R1 ; FLJNK TO f 1RST ENTRY 

20$ " ; AT END 

R1,R0 ; TRY AGAIN 

10i 

R6,ADP$L LINK(RO) ; CHAIN NEW ADP TO END OF LJST 



; FIND ADP LOCATES THE ADAPTER CONTROL BLOCK WITH THE MATCHING TR NUMBER 

; INPUT: R4=CSR 

; OUTPUT: R6*ADP 

JjND.ADP: 

CLRL RO ; INITIALLY A FAILURE 

MOVAJB L A IOC$GL ADPLIST-ADP$L - LINK,R6 ; HEAD OF ADAPTER LIST 

10$: MOVL ADP$L LlflK(R6),R6 ; ADVANCE TO NEXT IN LIST 

BEQL 20$ ~ ; BRANCH IF END OF LIST 

CMPL ADP$L CSR(R6),R4 ; CSR NUMBER MATCH? 

8NEQ 10$ " ; BRANCH IF NO MATCH 

MOVL S A #SS$_NORMAL,RO ; SUCCESS 

20$: RSB 



C18] 

C11] 

[183 



ZZ-ENSAA-7.0 

Q10 

07-18 



ExeSPwrTimChk - Check reasonable interva 



I 6 
27-JUL-1984 



ExeSPwrTimChk - Check reasonable interva 



7-JUL-1984 

I3-MAY-1984 



Fiche 12 
15:41:38 
14:15:31 



frame 16 Seguence 2339 
VAX-11 Macro V03-01 Page 
DMA1:CSVS0.SYSMAINT]QI0.MAR;19T 



QA25 
0A25 
0A25 
OA25 
0A25 
0A25 
0A25 
OA25 
0A25 
0A25 
OA25 
0A25 
0A25 
0A25 
0A25 



1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 



.Sbttl ExeSPwrTimChk - Check reasonable interval since power recovery 



++ 



Functional Description: . . 

EXESPWRTIMCHK is called by driver initialization code to check for 
a sufficient interval since power recovery to expect devices to be 
ready again. If the return from EXESPWRTIMCHK indicates that the 
reasonable interval has not yet elapsed, the device driver may elect 
to wait for a while using EXESPWRTIMCHK check the time. 

Calling Sequence: 

ISB/JSB EXESPWRTIMCHK 



Output Parameters: 
RO - Low bit 



clear if interval expired. 



42 

(19) 

;[143 
[143 
[14] 
[1411 
[143 
[143 
[143 
[143 
[143 
[14J 
[143 
[143 
[143 
[143 
[143 



ZZ-ENSAA-7.Q 

Q10 

U7-18 



Exe$PwrTimChk - Check reasonable interva 

Exe$PwrTimChk - Check 



J 6 ... 

27-JUL-1984 Fiche 12 
27-JCL-1984 15:41:38 
reasonable interva 23-MAY-1984 14;15:31 



Frame J6 
VAX-11 Macro 



Sequence 2340 
V03-0T Page 



DMA1:CSYSO.SYSMA1NT:1QIO-MAR;19 



?' 



8E 







0A25 


50 


D4 


0A25 


7F 1B 


DB 


0A27 


00000004 'EF 


D1 


0A2A 


0? 


1B 


0A31 


50 


D6 


0A33 




05 


0A35 
0A36 




Exe$PwrTimChk: 
CLRL 
MFPR 
CMPL 
BLEQU 
JNCL 

10$: RSB 
.END 



RO 

#PR$ T0DR,-(SP) 

L A EXE$GL_PWRD0NE,<SP)+ 

10$ 

RO 



Assume Interval expired 

Get current time of day 

Check for time expired 

Exit with low bit clear if expired 

Else set low bit of R0 



43 


(19) 


CH] 


CH3 


[143 


CH3 


[14] 


ri4] 


CUD 



ZZ-ENSAA-7.0 

Q10 

Symbol table 

SSARGS 

SST1 

SER 

SMODULE 

% KNOWN 

*CF 

ACFSB AFLAG 

ACFSB.AUNIT 

ACFSB.CNUMVEC 

ACFSB^CUNIT 

ACFSCJ_ENGTH 

ACFSKJ.ENGTH 

ACF$L ADAPTER 

ACFSLlCONFIGREG 

ACFSL.CONTRLREG 

ACFSL^DEVNAME 

ACF$L DRVNAME 

ACFSW>VECTOR 

ACF$W_CVECTOR 

ACFSW.MAXUNITS 

ADP$B NUMBER 

ADP$B PORT 

ADPSB~TYPE 

ADP$C,DRADPLEN 

ADPSC.MBAADPLEN 

ADPSC.MPMADPLEN 

ADPSC^UBAADPLEN 

ADPSK.DRADPLEN 

ADPSK MBAADPLEN 

AOP$K"MPMADPLEN 

ADPSK^UBAADPLEN 

ADPSL^CRB 

ADPSL^CSR 

ADPSL_DPQBL 

ADP$L DPQFL 

ADP$L INTO 

ADPSLJJNK 

ADPSLJ1RQBL 

ADPSL MRGFL 

ADP$L PRQQBL 

ADPSL~PRQQFL 

ADPSLlSHB 

ADPSL.VECTOR 

ADPSW..ADPTYPE 

ADP$W DPBITMAP 

AOP$W>RBITMAP 

ADPSW_S1ZE 

ADPSW TR 

ADPLlRK 

ALLOCS_ACMODE 

ALLOCS„DEVNAM 

ALLOCS NARGS 

ALLQCS_PHYBUF 

ALLOCS.PHYLEN 

ATS DR 

ATS'HBA 

ATS UBA 



Symbol table 



* 6 
27-JUL-1984 Flche 12 

27-JUL-1984 15:41:38 
23-MAY-1984 14:15:31 



Frame K6 Seguence 2341 

VAX-11 Macro V03-O1 Page 44 

D«A1 :[SYS0.SYSMAINT3QIO.MAR;19T (19) 



= 



00000007 
00000020 
00000006 
00000000 
00000006 
FFFFFFCO 
0000000B 
OOOOOOOA 
00000013 
00000012 
00000020 
00000020 
00000000 
00000004 

oooooooc 

00000014 

00000018 

00000008 

00000010 

0000001 c 

00000008 

00000020 

OOOOOOOA 

00000014 

00000014 

00000070 

00000070 

00000014 

00000014 

00000070 

00000070 

00000010 

00000000 

00000018 

00000014 

00000064 

00000004 

00000020 

0000001 c 

00000018 

00000014 

0000001 c 

00000010 

OOOOOOOE 

00000024 

00000026 

00000008 

OOOOOOOC 

VD 



00000< 

00000I 
00000001 



R 



R 



D 

D 

D 

D 

D 



D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 



D 

D 

D 

D 



D 

D 





D 

D 

D 

D 

D 

D 

D 





D 

D 

D 

D 





D 



D 

D 

D 





02 



04 



AUNKFUNC 

BIT... 

BUGSCHECK 

CC8SB.AM0D 

CC8SB.STS 

CCBSC LENGTH 

CC8SKILENGTH 

CCB$L„DIRP 

CCBSL.UCB 

CC8SL..WIND 

CC8SWJ0C 

CMKS. 

CMKS„ASTEXIT 

CMKS_CANTIM 

CMKS..HIBER 

CMKSJNITSCB 

CMK$„LAST 

CMK$„MMENABLE 

CMKSJiCONSOLE 

CMKS^REFRESH 

CMKS^SCHDWK 

CMKS^SETIMR 

CMKS.SETIPL 

CMKS.SETPRT 

CMKS^SGIPR 

CMKST CONSOLE 

CR8SB MASK 

CRBSB^TYPE 

CRBSC.LENGTH 

CRBSK LENGTH 

CRBSLJNTD 

CRBSLJNTD2 

CR8$L_LINK 

CR8SL.WQBL 

CR8SL.WQFL 

CRBSW^REFC 

CRBSVfSIZE 

CREATE^CRB 

CREATE J)DB 

CREATEJDB 
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DDB BLINK 

ODTll ALTSTART 

DDTSLlCANCEL 

DDT$L FDT 

OOTSLlREGOUMP 

DDT$L START 

DDTSLJJNITINIT 

DDTSL UNSOLINT 

DDT$W"DIAGBUF 

DDT$W~ERRORBUF 

D1R... 

DPT$BJ\DPTYPE 

DPTSB ..FLAGS 

DPTSB REFC 

DPTSB^TYPE 

DPTSCJ-ENGTH 

DPTSK LENGTH 

DPTSL BLINK 

DPT$L FL1NK 

DPTST~NAME 

DPT$V~SUBCNTRL 

DPTSlTlNITTAB 

DPT$W MAXUNITS 

DPTSWlRElNITTAB 

DPTSW.S1ZE 

DPT$W UCBSIZE 

DPTSWJJNLOAD 

DPT$W VERSION 

DRSINTTIAL 

DRSINT 

DR780SB„BR 

DR780SB CONFIG 

DR780$B_SELF 

DR780SB.TR 

DR780$B_UUT 

DR780SKJ.EN 

DRACRB 

DRACRBLEN 

DSSGPHARD 

DSSK.CCB 

0S5K.ERR0R 

DSSK_NORMAL 

DSSK.PRINTB 

DSSK PRINTF 

DSSK_PRINTI 

DSSK PRINTX 

DS$OEVERE 

DSSrSUBSYS 

DSSlCTYPE ABORT^PROGRAM 

DS$OYPElABORT TEST 
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dssk~type-command out 
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ds$k~type_errhard 
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dssk type errsup 
ds$k"type.errsys 
dssk typejrr halt 
dssk typejxceptjon 
dsskltype exception head 
dssk typejirst pass 
dssk:type_gener*l 

DSSOYPE.GENERAL ERROR 
DS$K_TYPE_NO TESTS 
DSS0YPEJ>ARAM ERROR 
DS$K TYPE,PROGR&M„END 

DSSK~TYPE PROGRAM JNFO 
DSSK"TYPEJ>ROGRAM START 

DS$OYPEJH0JNVXDP 
DSSK TYPE QIOJYODRIVER 
DSSOypEJUO WRONGVER 
DSSKlTYPE SCRlPT^ECHO 
DSSK~TYPElSCRIPT_PNF 
DSSK TYPE SCRIPT PROMPT 
DSSlTTYPElSCRIPOKIP 
DSSK TYPE^SEOUENrE ERROR 
DS$K"TYPE^START^ERR 
DSSK TYPEJTART LIST 

dssk"type_summaRy 
dssOype user.prompt 
dssk'varnTng 
dsslOad 
dss.arith 

DS$_ASBE 

DSS.BADLINK 

DSS BADTYPE 

DSS^BIIC 

DSS,CHME 

DSS.CHMK 

DSS.DEVNAKE 

DSS ERROR 

DS$lFHWE 

DSS FRAGBUF 

DSSJCBUSY 

DSSJCERR 

DSSllHWE 

DSSJLLCHAR 

DSSJLLPAGCNT 

DSSJLLUNIT 
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DSS.NODE 

DSS.NOPCS 

DSS NORMAL 

DSS.NOSUPPORT 

DSS NOTDON 

DSS NOT IMP 

DSS NULLSTR 

DSS.OVERFLOW 

DSS POWER 

DSS.PROGERR 

DSS SEVERE 

DSS T ;ANSL 

DSS~iRUNCATE 

DSS~UNEXPINT 

DSS'VASFULL 

DSS WARNING 

DSA$AL.APTMAIL 

DSASAT APTTXT 

DSASGL"APTCOM 

DSASGLlDEVLEN 

DSASGL.ERRNO 

DSASGL EVENT 

DSASGL FLAGS 

DSASGL.MS6TYP 

DSASGL.PASSES 

DSASGL.PASSNO 

DSASGL^SECTNO 

DSASGL. SID 

DSASGL_SUBTNO 

DSASGL. TESTNO 

DSASGL JJNITS 

DSASGQ MSGPTR 

DSASGT'DEVNAM 

DSASM PALT 

DSRSCOMPLETION 

DSXSPPINT 

DS ERRSUP 

DVRSB CNUMVEC 

DVRSB^TYPE 

DVRSC.LEN 

DVRSLJDENT 

DVRSW DPT 

DVRSW.GENERIC 

DVRSW SIZE 

DVRS TDENT 

DW750SK.LEN 

DW780SB.BR 

DW780SB.TR 

DW780SK LEN 

DYNSC.aFB 

DYNSC ADP 

DYNSC'AQB 

DYNSC'BRDCST 

DYNSC^BUFIO 

DVNSC.CEB 

DYNSC. CRB 

DYNSC CXB 
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DYNSC.JIB 

DYNSC. JPB 

DYNSC, KFH 
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DYNSC.MBX 
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DYNSC.NDB 
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DYNSC. PBH 
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DYNSC. PQB 
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DYNSC RBM 
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DYNSC RVX 
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DYNSC SHB 

DYNSC. SHMCEB 

DYNSC. SHMGSD 

DYNSrSHRBUFIO 

DYNSC. SLAVCE8 

DYNSC. SPECIAL 

DYNSC. SSB 

DYNSC. TQE 

DYNSC. TWP 

DYNSC TYPAHD 

DYNSC UCB 

DYNSC. VCA 

DYNSC.VCB 

DYNSC WC8 

EXESACONONPAGED 

EXESDEANONPAGED 

EXESFORKDSPTH 

EXESGL PWRDONE 
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EXESQ10 
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FJLEDESC 

FILL.ACF 

FIND.ADP 
HPSA.DEPENDENT 
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HPSA DEVICE 

HP$A~DVA 

HPSA'LINK 

HP$8"DR1VE 

HP$B"FtAGS 

HP$B~RN780 BR 

HP$"~RH78Q~TR 

HP$K;RH780"LEN 

HPSQ DEVIC? 

HP$T"DEVICE 

HPST.TYPE 

HPSW^SIZE 

MPSW VECTOR 

IDB$B_TYPE 

IDBSCJ.ENGTH 

1DBSICJ.ENGTH 

IDB$LJ\DP 

IDBSL.CSR 

IDBSL.OWNER 

IDBSLJJCbLST 

IDBSW.SIZE 

ID8SW UNITS 

INlTjNTRL 

INIT DB 

INlTUNiT 

INljRADP 

INI.MBADP 

INI UBADP 

10*5 FCODE 

IDSTESTCSR_L 

lOSTESTCSR^W 

iosv fcode 
10$ Dritevblk 

iocJgl.adplist 

iocsgl.devlist 

10csgl dptust 

jocsinTtdrv 

iocsiopost 

iocsreinitdrv 

IOC$RTN 

IOGENSCNTRL INI 

I0GENSC0NN.9EC 

I0GENSL0CKJ0D8 

IOGENSUNLKJODB 

LE*3TH 

LOADS. ADDRESS 

LOADSjDEFAULT 

LOADS.FILE 

LOADSJ.ENGTH 

LOADS NARGS 

LOADSlRETLEN 

LOAD$_RETREC 

LOADS, V8N 

LOAD DRIVER 

LOAD~FLAGS 

LOAD^M CRB 

LOAD M DDB 
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L0ADJ1JD8 

LOAD_H_UCB 

LOAD^V.CRB 

LOAD.V DDB 

LOAD.VJDB 

LOAD V UCB 

LOCSBPT 

LOCSPTDESC 

LOCAL 

M8ASINITIAL 

M8ASJNT 

M8ACRB 

M8ACRBLEN 

M81NT DISP 

NUMUBXVEC 

PRSJPL 

PRS TODR 

preadvblk 

psl$s„prvmod 

pslsv"prvmod 

qjosaBdunit 

qiosallocate 

qjoscleanup 

qiosdeallocate 

qjosinitialize 

gioslqad db 

qiosl allocate 

QIOSjSTADR 

QJOIZASTPRM 

QIO$„CHAN 

QIOS.EFN 

QIOSJUNC 

QJCSJOSB 

QJOS.NARGS 

QIOS_P1 

QJOS.P2 

QIO$J>3 

QIO$J>4 

QI0$ M P5 

0I0$P6 

QIOCCEAN^CPU 

READVBLK 

RH78QSB_BR 

RH780$B^TR 

RH780SK.LEN 

SAVABS.,. 

SCANSALPHA 

SCANSSEARCHLIST 

SC8$L W .ACCESS 

SC8SLIARJTH 

SCBSL^BREAK 

SCBSLlCHME 

SC8$LlCH«1K 

SC8SL.CHMS 

SC8$L„CHMU 

SCBSL^COMPAr 

SCBSL.KNLSTK 
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SCBSL MACHCHK 

SCBSL JDPCCUS 

SCBSL JJPCDEC 

SCBSL POWER 

SCBSL.RADRMOD 

SCBSL ROPRAND 

SCBSLlRXDB 

SCBSL.SFTLVL1 

SCBSL_SFTLVL10 

$CBSL_SFTLVL11 

SCBSL SFTLVL12 

SCBSL SFTLVL13 

SCB$L"SFTIVLH 

SCB$OFTLVL15 

SCB$L^SFTLVL2 

SCBSL_SFTLVL3 

SCBSL.SFTLVL4 

SCBSL SFTLVL5 

SCB$L„SFTLVL6 

SCBSL, SFTLVL? 

SCBSL_SFTLVL8 

SCBSL SFTLVL9 

SCBSLlTBJT 

SCBSL TIMER 

SCBSL^TRANSL 

SCBSL TXDB 

SC8SL.ZER0 

SCB.B&SE 

SC8JMAGE 

SIZ... 

SSSJNSFMEM 

SSSJVCHAN 

SSS NORMAL 

SYSGSJNVDPUNI 

SYSGS INVVEC 

SYSGS VECINUSE 

T ADAPTER TYPE 

TlNVADP " 

T.KNOWN DEV 

T.NODRltfER 

t wrong ver 
uBasinitial 
ubasunexint 
ubadp cpu 

UBJNTSJ 

UBINT.DISP 

UCBSB„AMOD 

UCBSBlCEX 

UCBS8.CM1 

UCBSB w CM2 

UCBS8.DEVCIASS 

UCBSB.DEVTyPE 

ucbsb.dipl 
ucbsb.dx scknt 
ucbsb^erTcnt 
ucbsb.ertmax 

UB$8 FEX 
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REMSRV 
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.SLAVE 
„$PR 
.STATE 

TRACKS 
"TT CRFILL 
"TT"DECRF 

.tt;delff 
"tt despee 
tt~detype 
jt"lffill 

[TT'SPEED 

TYPE 
IVERTSZ 
ILENGTH 
.MB LENGTH 
.TT LENGTH 
ILERGTH 
[MB LENGTH 
.TT LENGTH 
W AMB 
lASTQBL 

ASTQFL 
ICPID 
.CRB 
.DOB 
IDEVCHAR 

DEVDEPEND 
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^OX.BFPNT 
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_EMB 
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"MB"WAST 

~MB"WIQGBL 



I0000Q8 
100003C 
1000094 
>000095 
I00003D 
0000003C 
00000074 
0QQ0QQ75 
00000052 
0000003D 
0000009D 
OO0OOOA1 
)A? 
MO 




0A4 

0< 



9E 
000009C 
OOOOOOOA 

mm 

00000074 
00000090 



D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 



ZZ-ENSAA-7.0 

QIO 

Synibol table 

UCBSl__MB WiOQFL 
UCBSL.MEBlA 
UCBSL NT DATSSB 
UCBSL^NTlINTSSO 

UC8$lJ)PtN T 

UCBSL.OWNUIC 

UCBSLJUP 

UCBSl RQ81 

UCBSL.RQFL 

UCB$l_SVAPTE 

ucb$l^svpn 

ucbsl.tt.dechar 

ucb$l_tt_rdue 

ucb$l_ft rtimou 

ucbsl.vcb 

ucbsmjdnl1ne 

ucb$mj/al1d 

ucbst partner 

ucbsuCbcnt 

UC8SW.BCR 

UCB$W_80FF 

UCBSW.BUFQUO 

UCBtW.BYTESTOGO 

UCBSW^CHARGE 

UCBSW.CYLINDERS 

UCBSW,DA 

UCBSW.DC 

UCB$W,0EV8UFSIZ 

Uf.B*WJ>EVSTS 

UCB$WJ>IRSEQ 

UC8$W DSTADDR 

UCB$W DX BCR 

UCBSW.ECT 

UCB$W„EC2 

UCB$W ERRCNT 

UCBJVfUJNC 

UCBSW^MB SEED 

UC8$W„M$<3CNT 

ucb$w msgmax 
ucb$w;nt chan 
ucbsw.ofTset 

UCB$W_REFC 
UCBSW.SIZE 
UCBSW.SRCADDR 
UCBW.STS 

ucrswjt desize 

ucb$w_unTt 

ucb$w vprot 

UCB aClNK 

VEC$8 OATAPAiH 

VECSB'NUMREG 

VECSClLENGTH 

VECSK^LENGTH 

VECSL^ADP 

VECSLJDB 

VFC$lJNIUAl 

VEC$l. START 
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00000084 
0000008C 
00000074 
00000078 
00000060 
0000001 C 
00000028 
00000004 
00000000 
00000068 
00000064 
OOO000A8 
0000008C 
0OO00OB8 
0OO0CO30 
00000010 
00000800 

oooooooc 

0000006E 

00000096 

0000006C 

00000018 

00O00O3E 

0000004A 

0000003E 

0000008C 

0000008E 

0000003A 

0000005A 

00000088 

00000018 

0OQ00OA4 

00000090 

00000092 

00000072 

0000007E 

COOOOOOO 

00000016 

OOOOOOH 

0000007f 

0030008A 

00000050 

00000008 

0000001A 

00000058 

0OO00OA5 

00000048 

0000001 A 

00000009 

00000013 

00000012 

00000024 

00000024 

00000014 

00000008 

oooooooc 
oooooou 



D 

D 



D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 



D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 



VECSL.UNITDISC 
VECSLlUNITINIT 
VECSQ. DISPATCH 
VEC$W MAPREG 
VMSSQTO 
WRITEVBLK 



00000020 
00000018 
OOOQOOOQ 
00000010 

******** 
******** 



00 
00 



03 
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Psect synopsis 



Psect synopsis 
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50 
(19) 



PSECT name 

ABS , 
SABS* 
DATA 

WORK 
CODE 



Allocation 
00000000 ( 

^^fm ( 

000000F8 ( 
0000000D ( 
OO0O0A36 ( 



+ ......+ 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

248.) 02 ( 2.) NOPIC USR 

13.) 03 ( 3.) NOPIC USR 

2614.) 04 ( 4.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCI. 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTK 


CON 


REL 


LCL 


SHR 


NOEXE 


RD 


NOWRT 


NOVEC 


LONG 


CON 


REL 


LCL 


NOSHR 


NOEXE 


RD 


WRT 


NOVEC 


LONG 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT 


NOVEC 


LONG 



ZZ-ENSAA-7.0 

QIO 

cross reference 



Cross reference 



SYMBOL 



SSARGS 

SST1 

SER 

SMODULE 

$ KNOWN 

ACF 

ACFSB^AFLAG 

ACFSBJWNIT 

ACF$8_CNUMVEC 

ACFSB_CUNIT 

ACF$C.LEN(iTH 
ACFSLJOAPTER 

ACFSl CONFiGREG 
ACFSLlCONTRLRFG 
ACF$L DfVNAME 



ACF$L. 

ACFSW. 

ACF$W. 

ACF$W 

ADPSB 

ADPSC 

ADP$C, 

ADP$C. 

ADP$L. 

ADP$L 



DRVNAME 
AVECTOR 
'CVECTOR 
'MAXUNITS 
'TYPE 

"DRAOPLEN 
MBAADPLEN 
UBAADPLEN 
CRB 
.CSR 



ADPSL DPQFL 
ADPSL..L1NK 

ADPSL.MRQFL 

ADP$L„VECTOR 

ADP$ULADPTYPE 

ADPSW.MRBITMAP 

ADPSW.SIZE 

ADPSW TR 

ADPLIHK 

ALLOCS ACMODE 

ALLOCS_DEVNAM 

ALLOCS.NARGS 

ALLOCS PHYBUF 

ALLOCS PHYLEN 

ATS DR" 

ATS^MBA 

ATS UBA 



VALUE 

:00000007 
=00000020 
=00000006 
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Sequence 
V03-0T 



Frame E7 
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DMA1 :CSYSO,SYSMA1NTJQIO.MAR;191 



2348 
Pa< 



51 
(19) 



+„. — ™-— — — + 

! Symbol Cross Reference ! 



DEFINITION 



236 
236 

1112 



00000000-R 264 

=00000006 314 
FFFFFFCO 608 
00000008 
0000000A 
00000013 
00000012 

00000020 
00000000 

00000004 
OOOOOOOC 
00000014 

00000018 
00000008 
00000010 
0000001 C 
0000000A 
00000014 
00000014 
00000070 
00000010 
00000000 

00000014 
00000004 

0000001 c 

00000010 

0000000E 

00000026 

00000008 

OOOOOOOC 

000009F6-R 1582 
=00000010 211 
=00000004 211 
=00000004 211 
=0000000c 211 
=00000003 211 
=00000002 
=00000000 

=00000001 



(1) 
(1) 

(13) 

(1) 

(1) 

(5) 



9) 



REFERENCES... 



211 
211 
#-1112 
#-799 
1112 
799 
307 
613 
#-792 
#-1262 
#-1244 
#-1203 
#-784 
608 
#-1236 
#-1295 
#-771 
* \277 
1177 
#-627 
#-1172 
#-773 
#-1283 
#-786 
#-1031 
#-988 
#-834 
#^921 
#-1035 
#-1032 
#-1602 
934 
1583 
#-1600 

937 
#-1296 
#-1034 
#-941 
#-838 
#-1033 
#-1039 



#-1034 
#-1513 
#-880 
#-1234 



(1) 

(1) 

(13) 

(6) 

(13) 

(6) 

(1) 

(6) 

(6) 

(15) 

(15) 

(15) 

(O 

(5) 

(15) 

(15) 

(6) 

(15) 

(15) 

(6) 

(15) 

(6) 

(15) 

(6) 

(11) 

(10) 

(7) 

(9) 

(11) 

(11) 

(19) 

(9) 

(19) 

(19) 

(9) 

(15) 

(11) 

(9) 

(7) 

(11) 

(11) 



222 

222 

#-382 

382 



#-1328 
#-1287 
#-1322 



#-1258 
#-1369 

ft-777 

#-1189 

#-1227 

#-779 

#-877 



#-1237 
#-1370 
#-678 

#-1584 
#-943 

#-947 
#-880 

#-929 
#-879 
#-885 



(1) 
(1) 
(1) 

(1) 



(15) 
(15) 
(15) 



(15) 
(15) 

(6) 
(15) 

(15) 

(6) 
(8) 



(15) 
<1S) 

(8) 

(19) 
(9) 

(9) 
(8) 

(9) 

(8) 
(8) 



236 

236 

#-541 

541 



#-1449 

#-789 

#-1327 



#-1276 
#-770 



#-1224 
1229 
#-782 

#-930 



#-1259 
#-1495 
#-932 



#-931 

#-992 
#-933 
#-945 



(1) 
(1) 

(4) #-768 



(4) 



(15) 

(6) 



(15) 
(15) 

(6) 
(9) 



(15) 
(17) 
(9) 



#-1588 (19) 



(9) 

(10) 

(9) 

(9) 



768 



(6) 
(6) 



(16) #-775 (6) 

(6) #-791 (6) 

(15) #-1423 (16) 



#-1291 (15) 



1226 
#-728 



(15) 
(6) 



#-881 

#-1498 



(8) 
(17) 



1599 (19) 



(11) 

(17) 

(8) 
(15) 


304 

300 


(1) 
(1) 


302 


(1) 


#-767 


(6) 


#-1293 


(15) 


#-1367 


(15) 


#-1487 


(17) 



ZZ-ENSAA-7.0 

QIO 

Cross reference 



AUNKFUNC 

BIT... 

BUGSCHECK 

CMKS 

CMKS ASTEX1T 

CMKS~CANT1M 

CMKS~HIBER 

CMK$_INITSCB 

CMKS.LAST 

CMKS.MMENABLE 

CMKS_RCONSOLE 

CMKS.REFRESH 

CMKS SCHDWK 

CMKSlSETiMR 

CMKS^SETIPL 

CMKS SETPRT 

CMKS SGIPR 

CMKS TCONSOLE 

CRBSB.TYPE 

CRBSC .LENGTH 

CRBSK LENGTH 

CR8SL~INTD 



Cross reference 



CRBSL„LINK 
CRBSL WQBL 
CRBSL..WQFI 

CRBSW REFC 

CRBSW'SIZE 

CREATP CRB 

CREATElDDB 

CREATE. IDB 

CREATE UCB 

CREATE'VEC 

CTLSGW'CHINDX 

CTLSGUfNMIOCH 

DB_ERR0R 

DB EXIT 
DOBSB.TYPE 
DOBSK LENGTH 
ODBSLlOOT 
ODBSL.LINK 

DD8SL..UCB 

DOBST DRVNAME 
ODBSTlNAME 
DDBSW SIZE 
DDB.BtlNK 



00000008-R 
=00000004 

Q0Q0G61B-R 
=00000004 
=00000000 
=00000008 
=00000007 
=00000008 
=O000O00E 
=00000003 
=00000001 
=00000005 
=00000006 

-ooooococ 

=00000009 

=O000000D 

=O000000A 

=00000002 

OOOOOOOA 

00000038 

00000038 

00000014 



00000010 
OOOOOOOA 
00000000 

OOOOOOOC 

00000008 

0000071 0-R 

00000684-R 

0000075C-R 

000007DA-R 

00000786-R 

0000003A-R 

00G00038-R 

00000808-R 

000008D1-R 

OOOOOOOA 

00000034 

OOOOOOOC 

00000000 

OOOOOOOA 

00000024 
0000001A 
00000008 
00000005-R 



269 

333 

1109 

228 

228 

228 

228 

228 

228 

228 

228 

228 

228 

228 

228 

228 

228 

228 



12A3 

1212 

1267 

1309 

1282 

276 

273 

1415 



33A 



3) 



(15) 

(15) 

(15) 

(15) 

(15) 

(1) 

(1) 

(16) 



1391 (15) 



(1) 



F 7 
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299 
382 
227 
#-1113 



#-1020 
#-822 
#-1247 
1007 
1019 
#-1202 
1288 
#-1492 
#-523 
864 
#-882 
#-1260 
#-1022 
1021 
867 
#-1023 
#-1253 
#-1233 
#-1193 
#-1257 
#-1208 



#-1185 
#-1286 
#-1205 
#-1222 
#-1213 
#-1376 
#-1192 
#-517 
#-1200 
#-495 
1229 
1195 
#-1221 
#-1218 
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(1) 
(1) 
(1) 

(13) 



301 
228 



(1) 
(1) 



303 
238 



(1) 
(1) 



#-931 
333 



(9) 
(1) 



(11) 


#-1254 


(15) 


#-866 


(8) 






(7) 

(15) 
(11) 


#-976 


(10) 










1016 


(11) 


1017 


(11) 


1018 


(11) 


(11) 


#-1028 


(11) 


#-1029 


(11) 


#-1036 


(ID 


(15) 


#-1238 


(15) 


#-1261 


(15) 


1263 


(15) 


(15) 


#-1365 


(15) 


#-1382 


(15) 


#-1448 


(16) 


(17) 


#-1503 


(17) 


#-1518 


(17) 


#-1520 


(17) 


(4) 


853 


(8) 


862 


(8) 


863 


(8) 


(8) 

(8) 
(15) 


865 


(8) 


#-874 


(8) 


#-875 


(8) 


#-1363 


(15) 


#-1447 


(16) 


#-5C6 


(4) 


(11) 


#-1256 


(15) 


#-868 
1255 


(8) 






(11) 


1022 


(11) 


(15) 


1256 


(15) 


(8) 


868 


(8) 










(11) 


#-1321 


(15) 


#-1422 


(16) 


#-869 


(8) 


(15) 


#-826 


(?) 


#-980 


(10) 






(15) 


#-1235 


(15) 










(15) 














(15) 














(15) 


#-1239 


(15) 










(15) 


#-1216 


(15) 


#-1250 


(15) 


#-1271 


(15) 


(15) 


#-1300 


(15) 


#-1313 


(15) 


#-1349 


(15) 


(15) 














(15) 














(15) 














(15) 














(15) 

(4) 

(15) 


#-1 1 94 


(15) 


1218 


(15) 


#-1219 


(15) 


1330 


(15) 


#-1490 


(17) 


#-1516 


(17) 


(4) 


509 


(4) 










(15) 














(15) 


1226 


(15) 










(15) 














(15) 


#-1458 


(16) 











Cross reference 



ZZ-ENSAA-7,0 

Q10 

Cross reference 

OOTSL UNIT1N1T 

DIR..7 

DPTSB.ADPTYPE 

DPT$8_FLAGS 
DPTSB REFC 



DPTSLJLINK 

DPTST NAME 

DPTSV SURCNTRL 

DPT$W"MAXUN1TS 

DPT$WlSIZE 

DPT$W w UCBSIZE 

DRStNlTIAL 

DRSINT 

ORACRB 

DRACRBLEN 

DSSGPHARD 

DS$K_CCB 

DSSKJRROR 

DSSKJIORMAL 

DS$KJ>R1NTB 

DSSK.PRINTF 

OSSK.PRINT1 

DS$KJ»RINTX 

OSSK SEVERE 

DS$KlSUBSYS 

OSSK TYPE ABORT PROGRAM 

DS$K"TYPE"ABOROEST 

DS$K"TYPE COMMAND ERR 
OS$KlTYPEllOMMAND"OUT 

d;$kjype„crd autOtest 
ds$k type ds Prompt 

ds$OypeIds"start 
ds$k_type,erRdev 
os$k type errhard 
ds$k~type error body 
ds$k"type"error"end 
ds$k"type errprep 

DSSKlTYPElERRSOFT 
DS$K TYPE ERRSUP 
DSSK^TYPElERRSYS 
DS$K TYPE ERR HALT 
DSSlTTYPE'EXCEPTION 
DSSKlTYPElEXCEPTlON HEAD 
DS$K TYPE. FIRST PASS 
DSSKJYPE GENERAL 
DS$K_TYPE.GENERAL ERROR 
DS$K TYPE NO TEST3 
DS$K"TYPE*PAfiAM ERROR 
DS$K TYPE PROGRfolEND 
DS$K**TYPE"PROGRAMlINFO 
DS$KlTYPElPROGRAM,START 
DS$K TYPE GIOJNV&DP 
DS$tf TYPE QIO NODRIVER 

ds$k"type qio wrongver 
ds$kItype"scrTft_echo 



00000018 

=FFFFFFFF 608 
OOOOOOOC 

OOOOOOOD 
OOOOOOOB 

00000000 

0000001 E 
=00000000 

00000016 

00000008 

OOOOOOOE 

OOOOOOOO-XR 

OOOOOOOO-XR 

000005FC-R 1047 

=00000010 1052 

OOOOOOOO-XR 

OOQOQOOO-Xft 

=00000002 238 

=00000001 238 

=00000002 227 

=00000001 227 

=00000000 227 

=00000003 227 

=00000004 238 

=00000066 238 

=00000014 227 

=00000013 227 

=00000015 227 

=00000016 227 

=0000001A 227 

=00000001 227 

=0000001D 227^ 

=00000008 227 

=00:OC006 227 

=00000009 227 

=O0O0000A 227 

=0000001 B 22? 

=00000007 227 

=00000004 227 

=00000005 227 

=0000000D 227 

=0000000C 227 

=0000000B 227 

=00000011 227 

=00000000 227 

=00000003 227 

=00000012 227 

=0000001 C 227 

=00000010 227 

=00000017 227 

=00000024 227 

^00000022 227 

=00000023 227 

=00000021 227 



G 7 
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#-1377 
(5) 608 

#-1234 
#-1513 
1233 
#-1223 
#-797 
#-433 
438 
#-1233 
#-785 
#-720 
#-1310 
1029 
1049 
1007 
#-1007 
247 
253 



238 



#-756 

#-1182 

#-709 
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(15) 
(5) 

(15) 














#-1293 


(15) 


#•1367 


(15) 


#-1487 


(17) 


(17) 


#-750 


(6) 










(15) 


1257 


(15) 


1446 


(16) 






(15) 

(6) 

(3) 


#-1457 


(16) 


#-535 


(4) 


#-795 


(6) 


#-532 


(4) 


#-649 


(6) 






(3) 


#-652 


(6) 


727 


(6) 






(15) 


#-1257 


(15) 


#-1446 


(16) 






(6) 














(6) 














(15) 














(11) 


1040 


(11) 


1051 


(11) 


250 


(1) 


(11) 


250 


(1) 










(11) 


1052 


(11) 










(11) 














(1) 














(1) 


274 


(1) 


277 


(1) 







#•1181 (15) #-680 



(1) 



(6) 

(15) 

(6) 



(6) 



#-708 



(6) 



#-755 



(6) 



#-681 



(6) 



ZZ-ONSAA-7.0 

Q10 

Cross reference 



Cross reference 



DSSK TYPE SCRIPTJW 

DSSK TYPESCRIPT PROMPT 

DSSOYPE.SCRIPT SKIP 

DSSK TYPE.SEQUENCE ERROR 

DSSK TYPE START ERR 

DSSK'TYPE~STARrLIST 

DSSK*"TYPE SUMMARY 

DSSlCTYPE'USER PROMPT 

DSSK~WARNlNG - 

DSSLOAD 

DSS ARITH 

DSS.ASBE 

DSS BADLlNK 

DSSlBADTYPE 

DSS B1IC 

D5S..CHME 

DSS CHMK 

DSS DEVNAME 

DSS ERROR 

DSS FHWE 

DSS~FRAGBUF 

DSS"ICBUSY 

DSS~ICERR 

DSS^IHWE 

DSS ILLCHAR 

DSS'ILLPAGCNT 

DSSJLLUNIT 

DSSJNSFMEM 

DSS 1PL2HI 

DSS IVADDR 

DSS J WE CT 

DSS KRNLSTK 

DSS'LOGIC 

DSS„MCHK 

DSS MMOFF 

DSS~NEEDUNIT 

DSS NODE 

DSS NOPCS 

DSS.NORMAL 

DSS.NOSUPPORT 

DSS NOTDON 

DSS NOT IMP 
DSSlNULLSTR 
DSS OVERFLOW 
DSS POWER 
DSS'PROGERR 
DSSlSEVERE 
DSS TRANSL 
DSS~TRUNCATE 
DSS'UNEXPINT 
DSS VASFULL 
DSS~ WARNING 
DSAlGL FLAGS 
DSASM FlALT 
DSRSCOMPLETION 
DSXSPRINT 



=0000001 
=0000002 

=00000019 
=00000018 
=00000025 
=0000000E 
=00000002 
=00000000 

00000000- 
=006600D0 
=00660118 
=006600F0 
=006600E8 
=00660120 
=006600A8 
=006600E0 
=00660108 
=00660002 
=00660068 
=00660080 
=006600C8 
=006600CO 
=00660060 
=00660018 
•0066Q078 
=00660100 
=00660050 
=00660088 
=00660040 
=00660038 
=00660090 
=00660070 
=00660088 
=00660058 
=006600F8 
=00660128 
=00660110 
=00660001 
=00660081 
=00660030 
=00660080 
=00660010 
=00660008 
=00660098 
=00660020 
=00660004 
=006600AO 
=00660028 
=006600D8 
=00660048 
=00660000 

0000FE00 
=00000001 

00000000- 

00000000 



XR 



-XR 

-XR 



? 3 § 
238 

238 

238 

238 

238 

238 

238 

? 3 § 
238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 
238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 

238 
238 
238 

238 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(!) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(D 
(1) 
(1) 
(1) 
(1) 



H 7 

27-JUL-1984 Fiche 12 
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Frame H7 Seguence 2351 
VAX-11 Macro V03-0T 
DMA1:CSYS0,SYSMAINT3QIO.MAR;19 



Pa^e 



54 
(19) 



248 



(1) 



674 



(6) 



695 



(6) 



#-641 

238 



(6) 
(1) 



238 
#-1111 
#-1111 
248 
1183 
757 



(1) 

(13) 

(13) 

(1) 

(15) 

(6) 



689 

247 



(6) 

(1) 



697 

682 



(6) 

(6) 



710 



(6) 



ZZ-ENSAA-7.Q 

QIO 

Cross reference 

DS.ERRSUP 

DVRSB CNUMVEC 
DVRSCJ.EN 

DVRSLJDENT 
DVR*W SIZE 
DVRS TDENT 
DYN$C ADP 
DYNSC'CRB 
DfNSClDDB 
DYNSCJDB 
DYN$C UCB 
EXE$AfONONPAGED 

exe$deanonpaged 
exe$forkd$pth 
exesgl pwroone 
exesmaRacmode 
exespwrt1mchk 

EXESQIO 
FILE 
FILEDEF 
FILEDESC 

FILL.ACF 

FINDJ\DP 

HP$AJ)EVICE 

HP$A LINK 

HP$BJ)RIVE 

HPICLDEVICE 

HP$T~TYPE 

HP$W VECTOR 

I08$B.TYPE 

IDBSC.LENGTH 

IDBSK.LENGTH 

IDBVL^ADP 

IDB$L_CSR 

IDBSL.UCBLST 

IDBSW^SIZE 

IOBSW UNITS 

INlT.tNTRL 

INITIOS 

JNIT UNIT 

INIJ5RADP 

INI MBAOP 

INI'UBADP 

IOSS^FCODE 

IOSTESTCSR^L 

IO$TESTCSR_W 

IOSV FCOOE 

10$ ORITEVBLK 

lOClGL.ADPLIST 

IOC$GLj)EVLlST 

IOCSGL.DPTLIST 



Cross reference 
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27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 
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Frame 17 Sequence 2352 
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D«A1:CSYS0.SY5MAINT3QIO.MAR;19T (19) 



OOCOOOOO-XR 

OOOOOOOB 
00000014 
00000010 
00000008 
=FFFF0001 
=00000001 
=00000005 
=00000006 
=00000009 
=00000010 
00000000-XR 
00000000-XR 
00000000-XR 

00000004-R 266 (1) 
0000060C-R 1073 (12) 
00000A25-R 1623 (19) 
00000000-R 363 (1) 
FFFFFFF4 608 (5) 
FFFFFFE4 608 (5) 
FFFFFFEC 608 (5) 

000002B1-R 726 (6) 

00000A0D-R 1597 (19) 

00000018 

00000020 

OOOOOOOB 

00000000 

00000026 

00000024 

OOOOOOOA 

00000034 

00000034 

00000010 

00000000 

00000014 
00000008 
OOOOOQOC 

00QQ0866-R 1353 (15) 
00000847-R 1342 (15) 
17A-R 1359 (15) 

HB-R 972 (10) 
000003AB-R 818 (?) 
0000Q49F-R 918 (9) 
=00000006 

OO-XR 

OO-XR 

m 

OOOO-XR 
OOOOOOOO-XR 
00000000-XR 





1112 


(13) 


247 


(1) 


382 


(1) 


541 


(4) 


768 


(6) 


799 


(6) 










#-788 


(6) 














719 


(6) 


787 


(6) 










#-702 


(6) 


#-705 


(6) 










#-700 


(6) 














#-701 


(6) 


#-704 


(6) 










#-1031 


(11) 


#-877 


(8) 


#-930 


(9) 






#-1020 


(11) 


#-1254 


(15) 


#-866 


(8) 






#-1222 


(15) 














#-1025 


(11) 


#-1275 


(15) 


#-871 


(8) 






#-1317 


(15) 














1547 


(18) 


245 


(1) 


687 


(6) 






1569 


(18) 


245 


(1) 


715 


(6) 






257 


(1) 














#-1626 


(19) 














#-662 


(6) 


#-663 


(6) 


#-664 


(6) 


666 


(6) 


#-667 


(6) 


671 


(6) 










#-665 
706 


(6) 


#-666 


(6) 


672 


(6) 


678 


(6) 


(6) 














#-654 


(6) 














#-763 


(6) 














#-761 


(6) 


#-776 


(6) 










#-639 


(6) 


#-731 


(6) 


#-734 


(6) 






#-774 


(6) 


#-783 


(6) 










#-618 


(6) 


#-619 


(6) 


677 


(6) 


752 


(6) 


630 


(6) 


#-739 


(6) 


744 


(6) 


753 


(6) 


tt-772 


(6) 


#-778 


(6) 


#-781 


(6) 






#-1025 


(11) 


#-1275 


(15) 


#-871 


(8) 






#-828 


(?) 


#-982 


(10) 










#-1268 


(15) 














#-1037 


(11) 


#-1276 


(15) 


#-1494 


(17) 


#-1497 


(17) 


#-883 


(8) 














#-1027 


(11) 


#-1277 


(1S> 


#-1361 


(15) 


#-1366 


(15) 


#-1493 


(17) 


#-1519 


(17) 


#-873 


(8) 






#-1263 


(15) 


#-1323 


(15) 


#-1424 


(16) 


#-1450 


(16) 


#-1274 


(15) 


#-832 


(?) 


#-986 


(10) 






#-1026 

#-1347 


(11) 


#-1278 


(15) 


#-872 


(8) 






(15) 














#-1355 


(15) 














767 


(6) 














767 


(6) 














767 


(6) 














#-370 


(1) 














#-1372 


(15) 


246 


(1) 










#-1500 


(17) 


246 


(1) 










#-370 


(1) 














#-380 


(1) 














1583 


(19) 


1599 


(19) 


244 


(1) 


#-420 


(2) 


482 


(4) 














1191 


(15) 


«?44 


(1) 


#-419 


(2) 


#-492 


(4) 


#-517 


(4) 














244 


(1) 


415 


(2) 


430 


(3) 


530 


(4) 



ZZ-ENSAA-7.0 

QIO 

Cross reference 



10CS1NITDRV 

10CS10P0ST 

10CSREINITDRV 

IOCSRTN 

IOGENSCNTRL JNI 

lOGENSCONNjEC 

IOGENSLOCKJODB 

IOGENSUNLK IOOB 

LENGTH 

LOADS.ADDRESS 

LOADS J)E FAULT 

L0ADS„FILE 

LOADS .LENGTH 

LOADS.NARGS 

LOADS^RETLEN 

LOADS_RETREC 

LOADS VBN 

LOADjRIVFR 

LOAD FLAGS 



LOAD M CRB 

L0AD~M;DD8 

LOADJIJDB 

L0AD.A.UC8 

LOAD.V.CRB 

LOAD V.DDB 

LOADJ/JDB 

LOAD V UCB 

LOCSBPT 

LOCSPTDESC 

LOCAL 

MBAS1NITIAL 

MBASINT 

MBACRB 

MBACRBLEN 

MBJNT DJSP 

NUMUBSVEC 

PRS I Pi 



PRS TODR 
PRESDVBLK 
PSLSS PRVMOD 

rsLSv'is 

PSl.SV PRVMOD 

ojoSaPduni: 

QIOSAUUCATE 



OIOSCLEANUP 
OIOSDEALLOCATE 



QIOSINfTIALIZE 
QIOSIOAD DB 



ross reference 



J 7 

27-JUL-1984 



00000000-XR 
000QQQ00-X^ 
00000000-X* 

oooooooo-xu 

00000952-R 
00000000-XH 
0000094A-R 
0000094E-R 
FFFFFFEO 
=00000010 
=00000008 
=00000004 

=0O0000OC 
=00000007 

=00000014 

=00000018 

=0000001 c 
000001 E5-R 
00000004-R 



=00000002 
=00000001 
=00000004 
=00000008 
=00000001 
=00000000 
=00000002 
=00000003 
0000006E-R 
00000000-XR 
FFFFFFCO 
00000000-XR 
00000000-XR 
G000048F-P 
=00000010 
0000003C-R 
=00000080 
=00000012 



=00000019 

00000000~XR 

=00000002 

=0000001A 

=00000016 

000001 66-R 

000009BD-R 



0000009F-.* 
000009E0-R 



0000004B-R 
O000Q638-R 



1486 (17) 



1470 

1473 

608 

236 

236 

236 

236 

236 

236 

236 

236 

661 

326 



22B 

610 
1545 



476 
1565 



4 1 3 

1164 



(16) 

(16) 

(5) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(6) 

(1) 



333 


(1) 


333 


(1) 


333 


(1) 


333 


(1) 


333 


(1) 


333 


(1) 


333 


(1; 


333 


(1) 


428 


(3) 


608 


(5) 


893 


(8) 


898 


(3) 


279 


(1) 


916 


(9) 



(1) 

(6) 
(18) 



(4) 

(18) 



(2) 
(15) 



647 

1345 

257 
257 
#-1380 
#-1357 
#-1302 
#-1168 
#-1392 
669 
#-694 



#-693 



#-651 

#-116i 

#-1314 

1445 
#-1251 
#-1217 
#-1272 
#-1314 
#-1355 
#-1456 
#-1439 
#-1420 
#-1174 

258 

612 
249 
249 
853 
#-853 
#-1289 
#-921 
#-1005 
#-1471 
#-851 
#-1625 

254 
#-1075 



#-1214 

#-823 

#-977 

#-1433 

#-526 

#-999 

794 



(6) 

(15) 

(1) 

(1) 

(15) 

(15) 

(15) 

(15) 

(15) 

(6) 

(6) 



(6) 



(6) 

(15) 

(15) 

(16) 

(15) 

(15) 

(15) 

(15) 

(15) 

(16) 

(16) 

(16) 

(15) 

(1) 

(6) 

(1) 

(1) 

(8) 

(8) 

(15) 

(9) 

(11) 

(16) 

(8) 

(19) 

(1) 

(12) 



#-1075 (12) 



(15) 

(7) 

(10) 

(16) 
(4) 

(10) 

(6) 



7-JUL-1984 
!3-MAY-1984 

721 
256 



259 

253 

#-H62 
#-686 



632 

875 
895 

898 



#-948 
#-1041 
#-1474 
#-887 



#-1077 
#-1077 

#-1248 

#-829 

#-983 

#-513 
#-843 



Ffcha 12 
15:41:38 
14:15i31 

(6) 
(1) 



Frame J7 Seguence 2353 
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DMA1:CSVS0.SYSrtAJNTDQI0.MAR;19l (19) 



(1) 

(1) 

(16) 
(6) 



#-1217 


(15) 


#-1251 


(15) 


#-1272 


(15) 


1355 


(15) 


1420 


(16) 


1439 


(16) 


1456 


(16) 











#-1445 (16) 



(6) 

(8) 
(8) 
(8) 



(9) 

(11) 

(16) 

(8) 



(12) 

(12) 

(15) 

(7) 

(10) 

(4) 
(7) 



886 



(8) 



897 



(8) 



#-1354 

#-480 
#-927 



(15) 

(4) 

(9) 



#-1387 

#-5!8 

#-951 



(15) 
(4) 

(9) 



#-126< 

#-989 

#-518 

#-845 



(15) 
(7) 

(10) 

(4) 

(7) 



#-1311 

#-923 



#-524 

#-997 



(15) 

(9) 



(4) 

(10) 



ZZ-ENSAA-7.0 

Q10 

Cross reference 

QIOSL ALLOCATE 

QIOS RSTADR 

Q10S>STPRM 

Q 10$ CHAN 

QIOVEFN 

QIO$ FUNC 

QI0S"*I0SB 

QIOS NAR6S 

OlOfPI 

QI0$"P2 

QI0S>3 

qio$;pa 

QI0S,P5 

QIOS P6 

QIOCCEAN.CPU 

READVBLK 

SAVABS... 

SCANSALPHA 

SCANSSEARCHLIST 

SCBSL„SFTLVL4 

SCBSL SFTLVL8 

SCB.BKSE 

SC B.I MAGE 
SIZ... 

SSSJNSFMEM 
SS$ IVCHAN 
SSSJJORMAL 

SYSGS INVDPTINI 
SYSGS INVVEC 
SYSGSlVECINUSE 
T ADAPTER TYPE 
T~INVADP " 
TlKNOWN DEV 
T.NODRlflER 

t wrongver 
uRasinitial 

ubasunexint 
ubadp cpu 

UBINT5Z 

UBINT_DISP 

UCBSB..SLAVE 

UCBS8.TYPE 

UCBSL.ASTQBL 

UCBSL.ASTQFL 

UCBSL CRB 



Cross reference 



UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSM 

ucbsm; 

UCBSW. 
UCBSW, 
UCBSW 



DDB 

JOQBL 

IOQFL 

LINK 

ONLINE 

'VALID 

.SIZE 

STS 

UNIT 



00000000 
=00000014 
=00000018 
=00050008 
=00000004 
=0000000C 
=00000010 
=0000000C 
'0000001 C 
=00000020 
=00000024 
=00000028 
:0000002C 
=00000030 
00000000 
00000000 
:FFFFFFC0 
00000000 
00000000 
00000090 
000000A0 
00000000 



-a 



•XR 
•XR 

•XR 
•XR 



-XR 



00000000-XR 

=00000001 

00000000-XR 

00000000-XR 

00000000-XR 

:00/C800A 

:007C802A 

=007C801A 

000000C0-R 

00000095-R 

000Q00C6-R 

00000046-R 

00000068-R 

00000000-XR 

00000000-XR 

00000000-XR 

OOOQOOOO-XR 

00000044-R 

00000074 

OOOOOOOA 

00000010 

oooooooc 

00000020 

00000024 
00000044 
00000040 
00Q0002C 
=00000010 
=00000800 
00000008 
00000058 
00000048 



323 

222 



222 
222 
222 
222 
222 
222 
222 
222 
222 
222 



608 



333 



298 
292 
306 
286 
289 



283 



(5) 



(1) 



(1) 
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23-MAY-1984 14:15:31 DMA1 : CSYS0.SYSMAINT3QIO.MAR; 191 (19) 



#-1555 (18) #-1568 (18) #-421 



#-365 
37 1 



258 
254 

256 
256 
#-487 
#-485 
1013 
614 
252 
333 
#-1001 
255 
#-1042 
#-888 
#-1348 
#-1285 
#-1299 
#-749 
754 
314 
1180 
707 

251 
#-1297 

252 

251 

#-1328 
#-1317 
#-1319 

1318 
#-1201 
#-496 
#-1324 
#-1326 

1325 
#-1206 
#-1374 
#-1346 
#-1316 
#-1346 
#-1205 



(2) 



#-539 



(4) 



(1) 
(1) 



(1) 
(1) 

(1) 

(1) 

(4) 

(4) 

(11) 

(6) 

(1) 

(1) 

(10) 

(1) 

(11) 

(8) 

(15) 

(15) 

(15) 

(6) 

(6) 

(1) 

(15) 

(6) 

(1) 

(15) 

(1) 

(1) 

(15) 

(15) 

(15) 

(15) 

(15) 

(4) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 

(15) 



484 
386 

620 
747 
#-488 
#-486 
1015 
859 
479 

255 

#-1604 



746 
679 

#-944 
249 

#-946 
#-921 



1319 
#-1320 



13, 

13: 



#-1374 
#-1327 



(4) 
(1) 

(6) 

(6) 

(4) 

(4) 

(11) 

(8) 

(4) 

(1) 

(19) 



(6) 
(6) 

(9) 
(1) 

(9) 

(9) 



(15) 
(15) 



(15) 
(15) 



(15) 
(15) 



252 
861 



#-847 
255 



(1) 
(8) 



(7) 
(1) 



478 



(4) 



#-442 



(3) 



949 



(9) 



#-1491 (17) #-1517 (17) 



509 



(4) #-510 (4) 



ZZ-ENSAA-7.0 

Q10 

Cross reference 

UCB BLINK 
VECfK.LENGTH 
VECSL ADP 
VECSL IDB 



VECSL INITIAL 

VECSL'UNITINIT 

VfcC$Q"DISPATCH 

VMSSQTO 

WR1TEVBLK 



Cross reference 



00000009-R 
00000024 
00000014 
00000008 



OOOOOOOC 

00000018 

00000000 

OOOOOOOO-XR 

OOOOOOOO-XR 



337 (1) 



L 7 
27-JUL-1984 

27-JUL-1984 
23-MAY-1984 



#-1336 

#-1246 
#-1036 
#-1028 
#-1292 
#-1518 
#-^029 
#-1382 
#-1289 
253 
254 



Fiche 12 
15:41:38 
14:15:31 
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(15) 

(15) 

(11) 

(11) 

(15) 

(17) 

(11) 

(15) 

(15) 

(1) 

(1) 



#-1421 

#-1304 

#-1291 

#-1202 

#-1365 

#-523 

#-1503 



367 
384 



(16) 
(15) 
(15) 
(15) 

(15) 

(4) 

(17) 



(1) 

(1) 



#-882 

#-1238 

#-1448 

#-874 

#-1520 



(8) 

(15) 

(16) 

(8) 

(17) 



#-1261 
#-1492 

#-875 



(15) 
(17) 

(8) 



ZZ-ENSAA-7.0 

QIO 

Cross reference 



Cross reference 



N 7 
27-JUL-198A Fiche 12 
27-JUL-1984 15:41:38 
23-MAY-1984 14:15:31 
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DHA1:CSVSO,SYSMAIMTDQIO.MAR;191 (19) 



MACRO 

SACFDEF 

SADPDEF 

SALIOCDEF 

SCCBDEF 

SCRBDEF 

SDCDEF 

SDDBOEF 

SDDTDEF 

SDEF 

SDEFIN1 



SDPFDEF 
SDS DR780 DEF 
SDS'DSADEF 
SDSJ)SDEF 
$DS DW750 DEF 
SDS~DW780~DEF 
SDSJHPODEF 
$DS LOAD DEF 
SDS.QIOD9R DBF 
SOS RH780 BEF 
SDS SCBUEF 
SDS TYPEOfcF 

$oyRdff 

SEGU 

SEOUL SI 

SEOUL ST 

SGBL2NI 

SIDBDEF 

SIODEF 

SOFFDEF 

SOFFSCT 

SOFFST1 

SPRDEf 

SPSLOEF 

SPUSHADR 

SQIODEF 

SSYSGMSGDEF 

SUBADEF 

SUCBDEF 

SVECDEF 

SVIELD1 

CASE 

CMKDEF 

DSBINT 

ENBINT 

ERRSUP S 



SIZE 

T 
2 









[TION 


! Macros ( 


>oss Ref 


erence 1 








DEFIN 


REFERENCES... 






209 


(1) 


209 


(1) 










210 


(1) 


210 


(1) 










211 


(1) 


211 


(1) 










212 


(1) 


212 


(1) 










213 


(1) 


213 


(1) 










214 


(1) 


2H 


(1) 










215 


(1) 


215 


O 










216 


(1) 


216 


(1) 










238 


(1) 














203 


(1) 


203 


(1) 


209 




210 








214 


(1) 


215 




216 








219 


(1) 


220 




221 








225 


(1) 


226 




230 








233 


(1) 


234 




235 




217 


(1) 


217 


(1) 










234 


(1) 


234 


(1) 










239 


(1) 


239 


(1) 










238 


(1) 


238 


(1) 










237 


(1) 


237 


<1) 










233 


(1) 


233 


(1) 










231 


(1) 


231 


(1) 










236 


(1) 


236 


(1) 










230 


(1) 


230 


(1) 










232 


(1) 


232 


(1) 










235 


(1) 


235 


(1) 










227 


(1) 


227 


(1) 










218 


(1) 


218 


(1) 










238 


(1) 


227 


(1) 


228 


(1) 


238 


(1) 


238 


(1) 


227 


(1) 


228 


(1) 


238 


(1) 






227 


(1) 


228 


(1) 


238 


(1) 






227 


(1) 


228 


(1) 


238 


(1) 


219 


(1) 


219 


(1) 










220 


(1) 


220 


(1) 










211 


(1) 


211 


(1) 


222 


(1) 


236 


(1) 


602 


(5) 


602 


(5) 










608 


(5 


608 


(5) 










117 


(1. 


203 


(1) 










221 


(1) 


221 


(1) 










382 


(1) 


1112 


(13) 


382 


(1) 


541 


(4) 


222 


(1) 


221 


(1) 










221 


(1) 


221 


(1) 










224 


(1) 


*?* 


(1) 










225 


(1) 


225 


(1) 










226 


(1) 


226 


(1) 










238 


(1) 


333 


(1) 










372 


(1) 


372 


(1) 


766 


'<>) 






228 


(1) 


228 


(1) 










480 


(4) 


1005 


(11) 


1354 


(15) 


480 


(4) 


538 


(4) 


1041 


(11) 


1387 


(15) 


538 


(4) 


382 


(1) 


1112 


(13) 


382 


(1) 


541 


(4) 



212 (1) 


213 (1) 


217 (1) 


218 (1) 


223 (1) 


221, (1) 


231 (1) 


232 (1) 


237 (1) 


239 (1) 



768 (6) 



799 



(6) 



851 (8) 
887 (8) 
768 (6) 



927 (9) 
951 (9) 
799 (6) 



ZZ-ENSAA-7.0 

QIO 

Cross reference 

MODNAM 
SET1PL 
J/IELD 



Cross reference 



264 

1471 

328 



(1) 

(16) 

(1) 



264 

1471 

328 



(1) 

(16) 

(1) 



N 7 
27-JUL-1984 Fiche 12 

27-JUL-1984 15:41:38 
23-MAY-1984 14:15:31 



1474 (16) 



Frame N7 Seguence 2357 

VAX-11 Macro V03-0T Pagi 
DMAUCSYSO.SYSMAINTDQiO. MAR; 191 



60 
(19) 



+ .— « ~+ 

! Performance indicators ! 
+ — — — — + 



Phase 



Page faults CPU Time 



Elapsed Time 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



33 

147 

1793 

26 

677 

51 

7 

148 

2886 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.11 
:00.83 
:30.44 
:Q2.37 
:06.17 
:00.48 
: 00.03 
:01.d8 
:42,33 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:01 



:00.?8 
:01.81 
:43.11 
:02.61 
:11.42 

:01.71 
:00.03 
:03.46 
:04.44 



The working set limit was 1000 pages. , a t 

168454 bytes (330 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol tuble space allocated to hold 1494 non-local and 104 local symbols. 

1630 source lines were read in Pass 1, producing object records in Pass 2. 

260 pages of virtual memory were used to define 56 macros. 

+............ ™. ———«.-«.+ 

! Macro library statistics ! 
+•••-. — — .— «+ 



Macro library name 

DRB1 :CDS.WORK3DIAG.ML8;955 

DRB1:CDS.WORK]DS.MLB;218 

SYS$SYSR00T:CSYSLJ8]LIB.ML8;1 

DMAl:CSYS0.SYSMAiNT]0S,MLB;218 

DMA1:[SYS0.SYSMAJNT]HAG.MLB;953 

SYS$SYSR00T:[SYSLJB]L1B.MLB;1 

SYS$SYSR00T:CSYSLIB]STARLET,MLB;2 

TOTALS (all libraries) 



Macros defined 

™r 

3 
6 





13 
46 



1896 GETS were required to define 46 macros. 

There were no errors, warnings or information messages, 

MACRO/NOOBJECT/LJST=[DS.L I SJ/CROSS/ENABLE= (DEBUG, TRACE) QI0/UPDA=(QI0.UPD,QI0.ENH)+SYS$LIBRARY:L1B/LIBRARY*DMA1 :CSYS0,SYSMAIN1 3D1AG/ 



ZZ-ENSAA-7.0 **« 

QiOFOT 

Table of contents 

72.2 
99,9 

158.6 

191.23 

293 

394 

A 30 

469 

5".6 

569 

609 

648 

686 



Q10FDT function dispatch routines 

*** 0I0FDT function dispatch 



B 8 
27-JUL-1984 F iche 12 
routines 27-JUL-1984 15:42:45 



Frame B8 
VAX-11 Macro 



Sequence 
V03-0T 



2358 
Page 



ONE PARAMETER FUNCTION PROCESSING 

ZERO PARAMETER FUNCTION PROCESSING 

READ AND WRITE FUNCTION PROCESSING 

READ AND WRITE FUNCTION BUFFER CHECK AND LOCK ROUTINES 

READ AND WRITE BUFFER CHECK AND LOCK AND RETURN ROUTINES 

CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 

CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 

CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 

CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 

SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS (AT FDT LEVEL) 

SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

SENSE DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

CARRIAGE CONTROL INTERPRETATION 



ZZ-ENSAA-f.O 

QiOFOT 



C 8 

*** QIOFDT function dispatch routines 27-JUL-1984 Fiche^12. Frame C8 Sequence 2359 

*** QIOFDT function dispatch routines 27-JUL-1984 15:42:45 VAX-11 Macro V03-OT Page 1 

1 -APR-1 980 10:29:54 DMA1 :[SYSO.SYSMAINT]QIOFDT.MAR;29 (1) 



-3 



-1 



0000 .1 

0000 .2 

00000000 .3 

0000 .4 
00000014 0000 
0000 

0000 5 

0000 6 

0000 . 1 

0000 8 

0000 9 

0000 10 

0000 1 1 

0000 12 

0000 13 

0000 H 

0000 15 

0000 16 

0000 1 ? 

0000 18 

0000 19 

0000 20 

0000 21 

0000 22 

0000 23 

0000 24 

0000 25 

0000 26 

0000 27 

0000 28 

0000 29 

0000 . 1 

0000 .2 

0000 .3 

0000 .4 

0000 .5 

0000 .6 

0000 .7 

0000 .8 

0000 .9 

0000 .10 

0000 . 1 1 

0000 . 1 2 

0000 . 1 3 

0000 .14 

0000 30 

0000 31 

0000 32 

0000 33 

0000 34 

0000 35 

0000 36 

0000 37 

0000 38 

0000 39 

0000 40 

0000 41 



♦TITLE 
JDENT 
,PSECT 



QIOFDT *** QIOFDT function dispatch routines 

/05-03/ 

SEP, EXE, 5HR, WRT, LONG 



= A XK 



Utterly unused Change mode call size 



.5 EXESC CMSTKSZ 

4 

******************************* ********************************************* 

* * 

COPYRIGHT (C) 1977, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS Of SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



OF ITS 



****************************** ****************** **************************** 

D. N. CUTLER 15-SEP-76 
MODIFIED BY: 



DS5.4 



02 
03 



John Ciukaj 5-May-1980 Version 5.4 
Used Vax/Vms version 2.0 SYSQIOFDT.MAR and created 
a UPD file with the edits necessary to reflect the 
changes exhibited in Supervisor version 5.3 module 
QIOFDT. 

Dave Butenhof 30-jun-1980, version 5,5 

Alter two BSBW's to longword displacment JSB's since 
the supervisor's gotten fatter. 

M. Baggatt 8~Dec-1982 Version 6.10 
Change BSBW to JS8 to fixed truncation error. 



SR80003 Steve Beckhardt 23*0ct-1979 
Fixed bug to deallocate diagnostic buffer if QIO is being 
backed out to fault a page in. 

MHB0029 M. H. Bramhall 28-Sep-1979 
Added EXESCARRIAGE for carriage control processing, 

SRB0002 STEVE BECKHARDT 30-MAR-1979 

ADDED ENTRY POINTS EXE5M0DIFY, EXESMODIFYLOCK, AND EXESMODJFYLOCKR 

FOP FUNCTIONS THAT READ AND WRITE MSMORY. 



SRB0001 



STEVE BECKHARDT 



29-MAR-1979 



7Z-ENSAA-7.0 

Q10FOT 

05-03 



*** QIOFDT 



function dispatch routines 

*** QIOFDT function dispatch 



D 8 
27-JUL-1984 Fiche 12 
routines 27-JUL-1984 1 5 : 4 ? : -; 5 

1-APR-1980 10:29:54 



Frame P3 Seguence 2360 
VAX-11 Macro V03-0T Page 2 
DMA1:[SYS0.SYSMAINTJGIOFDT.MAR;29 (1) 





0000 


42 , 


ADDED ROUTINES 




0000 


43 , 


EXESWRITECHKR 




0000 


44 , 








0000 


45 ( 


SYSTEM SERVICE 


QUEUE 




0000 


46 , 








0000 


47 , 


MACRO LIBRARY 


CALLS 




0000 


48 ( 








0000 


49 








0000 


50 


SAC8DEF 






0000 


51 


SCC8DEF 






0000 


52 


SDEVDEF 






0000 


53 


SIODEF 






0000 


54 


SIRPDEF 






0000 


55 


SPC8DEF 






cooo 


56 


SSSDEF 






0000 


57 


SUC8DEF 






0000 


53 


$VADEF 






0000 


59 








0000 


60 








0000 


61 


• LOCAL SYMBOLS 






0000 


62 








0000 


63 


; ARGUMENT LIST 


OFFSET 




0000 


64 








0000 


65 






00000000 


0000 


66 I 


»1=0 




00000004 


0000 


67 


P2=4 




00000008 


0000 


68 


P3=8 




oooooooc 


0000 


69 


P4 = 12 




00000010 


0000 


70 


P5 = 16 




G0000014 


0000 


71 


P6=20 





EXESREADLOCKR, EXESWRHcLOCKR, EXESREADCHKR, AND 



I/O FUNCTION DECISION TABLE SUBROUTINES 



DFFJNE ACB OFFSETS 

DEUNE CCB OFFSETS 

DEHNE DEVICE CHARACTERISTICS 

DEFINE I/O FUNCTION CODES 

DEFINE IRP OFFSETS 

DEFINE PCB VALUES 

DEFINE SYSTEM STATUS VALUES 

DEFINF UCB OFFSETS 

DEFINE VIRTUAL ADDRESS FIELDS 



DEFINITIONS 



FIRST FUNCTION DEPENDENT PARAMETER 
SECOND FUNCTION DEPENDENT PARAMETER 
THIRD FUNCTION DEPENDENT PARAMETER 
FOURTH FUNCTION DEPENDENT PARAMETER 
FIFTH FUNCTION DEPENDENT PARAMETER 
SIXTH FUNCTION DEPENDENT PARAMETER 



ZZ-ENSAA-7.0 

QIOFDT 

05-03 



c g 

ONE PARAMETER FUNCTION PROCESSING . 27-JUL-1984 < Fjche 12 Frame E8 Seguence 2361 

*** QIOFDT function dispatch routines 27-JUL-1984 15:A2;45 VAX-11 Macro V03-0T ..^ge 
ONE PARAMETER FUNCTION PROCESSING 1-APR-1980 10:29:54 DMA1 :CSYSO,SYSMA1NTJQIOFDT.MAR;29 



3 

(1) 



-16 



-5 



34 A3 6C 
03 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
• 0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
DO 0000 
11 0004 



.2 
.3 

.4 
.5 
.6 

J 

89 
90 
91 

.1 

.2 
.3 
.4 
.5 
.6 
.7 
.8 
.9 
.10 
.11 
.12 
.13 
97 
98 
99 
.1 
.2 
.3 
.4 
.5 
.6 
J 



.SBTTL ONE PARAMETER FUNCTION PROCESSING 

EXESONEPARM - ONE PARAMETER FUNCTION PROCESSING 

THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
PROCESS A ONE PARAMETER FUNCTION THAT REQUIRES NO SPECIAL CHECKING. 



INPUTS: 

RO = 

R1 ■ 
R2 ' 
R3 : 
R4 : 
R5 = 
R6 s 
R7 ■ 
R8 = 
R9 : 
R10 
R11 
AP • 

OUTPUTS: 

***T8S*** 



.ENA8L 
EXESONEPARM:: 
MOVL 
BR8 



SCRATCH. 
SCRATCH. 
SCRATCH. 
' ADDRESS OF I/O REQUEST PACKET. 

• CURRENT PROCESS PC8 ADDRESS. 
■■ ASSIGNED DEVICE UC8 ADDRESS. 

• ADDRESS OF CC8. 

= I/O FUNCTION CODE BIT NUMBER. 

• FUNCTION DECISION TABLE DISPATCH ADDRESS. 
= SCRATCH. 

= SCRATCH. 
= SCRATCH. 
■ ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 



LSB 

P1(AP),IRP$L_MEDIA(R3) 
10$ 



ONE PARAMETER FUNCTION PROCESSING 
STORE PARAMETER IN MEDIA ADDRESS 



ZZ-ENSAA-7.0 

QIOFDT 

05-03 



F 8 
ZERO PARAMETER FUNCTION PROCESSING 27-JUL-1984 <ft0 /J£ h ?J? e 

*** QIOFDT function dispatch routines 27-JUL-1984 15:42:45 
ZERO PARAMETER FUNCTION PROCESSING 1-APR-1980 10:29:54 



Frame F8 Seguence 2362 

VAX-11 Macro V03-0T Page 4 

0MA1:CSYS0.SYSMAINTJQIOFDT.MAR;29 (1) 



-37 



34 A3 
FFF4 



D4 
31 



0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
C006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0009 
OOOC 



.9 
.10 
.11 
.12 
.13 
.14 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 

158 
.1 
.2 
.3 

.4 



,SBTTL ZERO PARAMETER FUNCTION PROCESSING 

EXESZEROPARAM - ZERO PARAMETER FUNCTION PROCESSING 

THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
PROCESS A ZERO PARAMETER FUNCTION THAT REQUIRES NO ADDITION CHECKING. 



INPUTS: 

RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

R10 

R11 

AP = 

OUTPUTS: 

***T8S*** 



EXESZEROPARM;: 
CLRL 

10$: BRW 

.DSA8L 



SCRATCH. 

SCRATCH. 

SCRATCH. 

ADDRESS OF I/O REQUEST PACKET. 

CURRENT PROCESS PCB ADDRESS. 

ASSIGNED DEVICE UCB ADDRESS. 

ADDRESS OF CCB. 

I/O FUNCTION CODE BIT NUMBER. 

FUNCTION DECISION TABLE DISPATCH ADDRESS. 

SCRATCH. 
= SCRATCH. 
= SCRATCH. 

ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 



IRP$L MEDIA(R3) 

EXESQlODRVPKT 

LSB 



;ZERO PARAMETER FUNCTION PROCESSING 

; CLEAR PARAMETER 

;QUEUE I/O PACKET TO DRIVER 



ZZ-ENSAA-7,0 

Q10FDT 

05-03 



G 8 
READ A^D WRITE FUNCTION PROCESSING j 27-JUL-1984 Fjche 12 Frame G8 VJ *7 S S9 uence 256 l „ 

*** QIUFDT function dispatch routines 27-JUL-1984 15:42:45 VAX-11 Macro V03-01 Page 
READ AND WRITE FUNCTION PROCESSING 1-APR-1980 10:29:54 DMA1 :CSYS0.SYSMAINT]QIOFDT.MAR;29 



5 
(1) 



-11 



52 



44'AF 
04 



52 3E'AF 
04 2A A3 01 



58 



52 

A3 



06 



1F 20 



51 



50 



41'AF 
OC AC 
00 
A3 
04 
15 
A3 
AC 
05 
6C 
62 
FFC2' 



20 
04 



DE 
11 

DE 
E3 

DE 
DO 
ED 

15 
A2 

3C 

13 
DO 

16 
31 



OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

COOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

OOOC 

0010 

0012 

0012 

0016 

0018 

0018 

001F 

0024 

0027 

002A 

002C 

002E 

0030 

0034 

0036 

0039 

003B 

003E 



.6 

.7 

.8 

.9 

.10 

.11 

.12 

.13 

.14 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

,10 

.11 

.12 

.13 

.14 

.15 

.16 

.17 

.18 
.19 
.20 
.21 



.S8TTL READ AND WRITE FUNCTION PROCESSING 

EXESREAD - READ FUNCTION PROCESSING 
EXESWRITE - WRITE FUNCTION PROCESSING 
EXESMODIFY - MODIFY FUNCTION PROCESSING 

THESE ROUTINES ARE CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
PROCESS A READ OR WRITE PHYSICAL OR LOGICAL FUNCTION. 
EXESMODIFY IS USED FOR FUNCTIONS THAT READ AND WRITE MEMORY. 



INPUTS: 

RO = 

R1 = 
R2 = 
R3 = 
R4 = 
R5 = 
R6 = 
R7 = 
R8 = 
R9 = 
R10 
R11 
AP = 

OUTPUTS: 

***T8S*** 



.ENABL 
EXESMODIFY:: 

MOVAL 

BR8 
EXESREAD:: 

MOVAL 
5$: B8CS 
EXESWRITE:: 

MOVAL 
10$: MOVL 

CMPZV 

BLEQ 
SUBW 



SCRATCH. 

SCRATCH. 

SCRATCH. 

ADDRESS OF I/O REQUEST PACKET. 

CURRENT PROCESS PCS ADDRESS. 

ASSIGNED DEVICE UCB ADDRESS. 

ADDRESS OF CC8. 

I/O FUNCTION CODE BIT NUM8ER. 

FUNCTION DECISION TABLE DISPATCH ADDRESS. 

SCRATCH. 
= SCRATCH. 
= SCRATCH. 

ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 



L5B 



;MODIFY FUNCTION PROCESSING 

;SET ADDRESS OF BUFFER CHECK ROUTINE 



20$: 



30$: 



MOVZWL 

8EQL 

MOVL 

JS8 

BRW 

.DSA8L 



B A EXE$M0DIFYL0CK,R2 
5$ 

;READ FUNCTION PROCESSING 
B A EXE$READL0CK,R2 :SET ADDRESS OF BUFFER CHECK ROUTINE 
#1RP$V FUNC,IRP$W_STS(R3),10$ ;SET READ FUNCTION STATUS 

;WRITE FUNCTION PROCESSING 
B A EXE$WRITEL0CK,R2 ;SET ADDRESS OF BUFFER CHECK ROUTINE 
P4(AP) ,IRP$B_CARC0N(R3) ; INSERT CARRIAGE CONTROL BYTE 
#IRP$V FCODE,*IRP$S_FCODE,- .'PHYSICAL I/O FUNCTION? 
IRP$WjUNC(R3),#I0$_PHYSKAL ; 
20$ ;IF L&Q YES 

#10$ READLBLK-I0$ READPBLK,- .-CONVERT TO PHYSICAL FUNCTION 
IRP$t) FUNC(R3) 

P2<APT,R1 ;GET NUMBER OF BYTES TO TRANSFER 

30$ ;IF EQL NONE 

P1(AP),R0 ;GET STARTING VIRTUAL ADDRESS OF TRANSFER 

(R2) .'CHECK BUFFER AND LOCK IN MEMORY 

EXESQIODRVPKT ;QUEUE I/O PACKET TO DRIVER 

LSB 



ZZ-ENSAA-7.0 

QIOFDT 
05-03 



H 8 
READ AND WRITE FUNCTION BUFFER CHECK AND 27-JUL-1984 , 00/ F j c c h ? , 1 ? t 

*** Q10FDT function dispatch routines 27-JUL-1984 15:42:45 
READ AND WRITE FUNCTION BUFFER CHECK AND 1-APR-1980 10:29:54 



Frame H8 Seguence 2364 
VAX-11 Macro V03-01 Page 
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6 

(1) 



-14 



-13 
-43 



11 10 
05 



15 10 

05 



01 10 

05 



003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

C03E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

003E 

0040 

0040 

0041 

0041 

0041 

0041 

0043 

0043 

0044 

0044 

0044 

0044 

0046 

0046 

0047 



.2 

.3 

.4 

222 

221 

224 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 



.SSTTL READ AND WRITE FUNCTION BUFFER CHECK AND LOCK ROUTINES 

EXESREADLOCK - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK 
EXESWRITELOCK - CHECK BUFFER FOR WRITE ACCESSIBILITY AND LOCK 
EXESMODIFYLOCK - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK 



THESE ROUTINES ARE 
TO LOCK THE BUFFER 



CALLED TO CHECK THE ACCESSIBILITY OF AN 
IN MEMORY FOR A DIRECT MEMORY TRANSFER. 



I/O BUFFER AND 



INPUTS: 



RO = STARTING ADDRESS OF I/O BUFFER. 
R1 = LENGTH OF TRANSFER IN BYTES. 
R4 = CURRENT PROCESS PCB ADDRESS. 
R6 = ADDRESS OF CCB. 



OUTPUTS: 



THE I/O BUFFER IS CHECKED FOR THE PROPER ACCESSIBILITY. IF THE 
CHECK SUCCEEDS, THEN THE BUFFER IS LOCKED IN MEMORY AN.^ THE STARTING 
ADDRESS OF THE PAGE TABLE ENTRIES THAT MAP THE TRANSFER IS STORED 
IN THE I/O PACKET, ELSE THE I/O IS COMPLETED WITH A STATUS OF 
ACCESS VIOLATION, 



EXESREADLOCK:: 

BSBB EXESREADLOCKR 

RSB 



EXESWRITELOCK:: 

BSBB EXESWRITELOCKR 

RSB 



EXESMODIFYLOCK:: 

BSBB EXESMODIFYLOCKR 

RSB 



CHECK BUFFER FOR READ FUNCTION AND LOCK 
EXESREADLOCKR RETURNS NORMALLY ON 
SUCCESS, VIA COROUTINE CALL ON FAILURE 
RETURNS TO CALLER ON SUCCESS, TO 
EXESREADLOCKR ON FAILURE 

CHECK BUFFER FOR WRITE FUNCTION AND LOCK 
EXESWRITELOCKR RETURNS NORMALLY ON 
SUCCESS, VIA COROUTINE CALL ON FAILURE 
RETURNS TO CALLER ON SUCCESS, TO 
EXESWRITELOCKR ON FAILURE 

CHECK BUFFER FOR MODIFY FUNCTION AND LOCK 
EXESMODIFYLOCKR RETURNS NORMALLY ON 
SUCCESS, VIA COROUTINE CALL ON FAILURE 
RETURNS TO CALLER ON SUCCESS, TO 
EXESMODIFYLOCKR ON FAILURE 



ZZ-ENSAA-7.0 

QIOFDT 
05-03 



I 8 

READ AND WRITE BUFFER CHECK AND LOCK AND 27-JUL-1984 , FJS h « 1 ? c 

*** QIOFDT function dispatch routines 27-JUL-1984 15:42:45 
READ AND WRITE BUFFER CHECK AND LOCK AND 1-APR-1980 10:29:54 
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50 

0096 

52 04 

OC 



DD 
30 
C8 
11 



50 DD 



0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 
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0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

00/. 7 

00k7 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0047 

0049 

004C 

004F 

0051 

0051 

0051 



293 

294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 

31 1 
312 

313 

314 

315 

316 

317 

31 § 
319 

320 

321 

83 

324 
325 
326 
327 
328 
329 
330 
331 
332 

334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 



.SBTTL READ AND WRITE BUFFER CHECK AND LOCK AND RETURN ROUTINES 

EXESREADLOCKR - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK AND RETURN 

ON ERROR 
EXESWRITELOCKR - CHECK BUFFER FOR WRITE ACCESSIBILITY AND LOCK AND RETURN 

ON ERROR 
EXESMQDIFYLOCKR - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK AND RETURN 

ON ERROR 

THESE ROUTINES ARE CALLED TO CHECK THE ACCESSIBILITY OF AN I/O BUFFER 
AND TO LOCK THE BUFFER IN MEMORY FOR A DIRECT MEMORY TRANSFER. IN 
ADDITION, THESE ROUTINES PERFORM A COROUTINE CALL IF THERE IS AN ERROR 
OR ANY PAGES HAVE TO BE FAULTED IN. THE PURPOSE OF THE COROUTINE 
CALL IS TO ALLOW THE CALLER TO PERFORM ANY NECESSARY CLEANUP BEFORE 
THE QIO IS BACKED UP OR ABORTED. THESE ROUTINES ARE TYPICALLY CALLED 
BY DRIVERS THAT MUST LOCK MULTIPLE AREAS INTO MEMORY. SINCE THESE 
ROUTINES CANNOT UNLOCK AREAS PREVIOUSLY LOCKED, THE COROUTINE CALL ALLOWS 
THE CALLER (THE DRIVER) TO UNLOCK PREVIOUSLY LOCKED AREAS (AND PERFORM 
ANY OTHER CLEANUP) AND THEN RETURN HERE TO BACK UP OR ABORT THE I/O. 

EXESMODIFYLOCKR IS USED WHEN THE BUFFER WILL BE READ AND WRITTEN BY THE 
I/O DEVICE. IT DISABLES AN OPTIMIZATION IN MMGSlOLOCK WHICH IS USED 
WHEN THE BUFFER IS ONLY WRITTEN. 



INPUTS; 



RO = STARTING ADDRESS OF 
R1 r LENGTH OF BUFFER IN 
R4 = CURRENT PROCESS PCB 
R6 = ADDRESS OF CCB. 



I/O BUFFER 

BYTES. 

ADDRESS. 



OUTPUTS; 



THE I/O BUFFER IS CHECKED FOR THE PROPER ACCESSIBILITY. IF THE 
CHECK SUCCEEDS, THEN THE BUFFER IS LOCKED IN MEMORY AND THE STARTING 
ADDRESS OF THE PAGE TABLE ENTRIES THAT MAP THE TRANSFER IS STORED 
IN THE I/O PACKET. 

RO = RETURN CODE 

NOTE THAT IF THERE ARE NO ERRORS AND NO PAGES HAVE TO BE FAULTED 
IN, THEN THESE ROUTINES RETURN NORMALLY. HOWEVER, IF THERE IS AN 
ERROR OR A PAGE HAS TO BE FAULTED IN t THEN THE CALLER IS CALLED 
BY A COROUTINE CALL. THE CALLER'S RSB THEN RETURNS HERE WHERE 
THE QIO IS EITHER BACKED UP OR ABORTED. NOTE THAT IN THIS CASE 
THE CALLER'S ERROR HANDLING CODE MUST PRESERVE ALL REGISTERS, 
INCLUDING RO AND R1, 



.ENABL LSB 
EXESMODIFYLOCKR:: 

PUSHL RO 

BS8W EXESREADCHKR 

BISL #4,R2 

BRB 105 

EXESREADLOCKR:: 

PUSHL RO 



CHECK BUFFER FOR MODIFY FUNCTION AND LOCK 
SAVE STARTING ADDRESS OF BUFFER 
CHECK BUFFER FOR READ FUNCTION 
DISABLE OPTIMIZATION IN MMGSlOLOCK 



.-CHECK BUFFER FOR READ FUNCTION AND LOCK 
;SAVE STARTING ADDRESS OF BUFFER 
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READ AND WRITE BUFFER CHECK AND LOCK AND 27-JUL-1984 - fto/ F *S h ? J? c 

*** QIOFDT function dispatch routines 27-JUL-1984 15:42-*45 
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-1 



-1 



-1 



008C 


30 


0053 


05 


11 


0056 
0058 
0058 


50 


DD 


0058 


OOAF 


30 


005A 


1D 50 


E9 


005D 


50 8ED0 


0060 


50 FEOO 8F 


AB 


0063 


30 A3 




0068 


53 


DD 


006A 


OOOOOOOO'EF 


16 


006C 


53 8E 


DO 


0072 


08 50 


E9 


0075 


2C A3 51 


DO 


0078 




05 


007C 


5E 04 


CO 


007D 


9E 


16 


0080 


50 


D5 


0082 


45 


12 


0084 


51 


DD 


0086 


3E A4 


B6 


0088 


OA A6 


B7 


008B 


OF 2A A3 07 


E1 


008E 


50 44 A3 


DO 


0093 


53 


DD 


0097 


00000000' CF 


16 


0099 


53 


8ED0 


009F 
00A2 


03 OB A3 06 


El 


00A2 


38 A4 


B6 


OOA? 


50 53 


DO 


OOAA 


OOOOOOOO'EF 


16 


OOAD 


02 


BA 


0083 


5E 5D 


DO 


00B5 


5C 08 AD 


7D 


00B8 


5E 14 


CO 


008C 


50 8E 04 


C3 


OOBF 


C7'AF 


9F 


00C3 




02 


00C6 


61 


95 


00C7 


60 


17 


00C9 


FF32' 


31 


OOCB 
OOCE 



350 
351 
352 

3<4 
355 
356 
357 
358 

359 
.1 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
3/2 
373 
374 
.1 
376 
377 
378 
379 
380 
.1 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 



BSBW 
BRB 

EXE$WRJTELOCKR: 
PUSHL 
BSBW 

10$ j BL8C 
POPL 
BICW3 



PUSHL 

J SB 

MOVL 

BL8C 

MOVL 

RS8 

ADDL 

J SB 

TSTL 

BHIQ 

PUSHL 

INCW 

DECW 

B8C 

MOVL 

PUSHL 

Jsb 

POPL 



15$: 
20$: 



25$: 



30$: 



40$: 
50$: 



BBC 

INCW 

MOVL 

Isb 

POPR 

MOVL 

MOVQ 

ADDL 

SUBL3 

PUSHAB 

REI 

TSTB 

JMP 

BRW 

.DSA8L 



EXE$READCHKR 
10$ 



RO 

EXE$WRITECHKR 

R0,15$ 

RO 



; CHECK BUFFER FOR RfcAD FUNCTION 



CHECK BUFFER FOR WRITE FUNCTION AND LOCK 

SAVE STARTING ADDRESS OF BUFFER 

CHECK BUFFER FOR WRITE FUNCTION 

BRANCH IF ERROR 

RESTORE STARTING ADDRESS OF BUFFER 



/rC<VA$M_8YTE>,R0,IRP$W„§0FF(R3) ;SET BYTE OFFSET IN PAGE 



R3 

MMG$IOLOCK 

(SP)*,fi3 

R0,20§ 

R1,IRP$L_SVAPTE<R3) 

*4,SP 

a(SP)+ 

RO 

50$ 

R1 

PCB$WJ)I0CNT(R4> 

CCB$W I0C(R6) 

mPSlL DIAG8UF,IRP$W,STS 

IRP$L J5lAG8UF(R3>,R0 
R3 

l A exe$deanonpaged 
R3 



SAVE ADDRESS OF I/O PACKET 

LOCK PAGES FOR I/O 

RETRIEVE ADDRESS OF I/O PACKET 

IF LBC LOCK FAILURE 

INSERT ADDRESS OF FIRST PTE IN PACKET 

THROW AWAY OLD RO 

COROUTINE CALL TO CLEANUP 

ERRORS ENCOUNTERED? 

IF NI'G YES 

SAVE VIRTUAL ADDRESS OF PAGE TO FAULT 

ADJUST DIRECT I/O COUNT 

DECREMENT CHANNEL I/O COUNT 

R3),25$ ;BR, IF NO DIAGNOSTIC BUFFER 

GET ADDRESS OF DIAGNOSTIC BUFFER 

SAVE R3 

; Deallocate diagnostic buffer 
;RESTORE R3 



[033 



#ACB$V QUOTA, 1RP$B RM0D(R3),30$ 
PCBKW JSTCNHR4) " 

R3.R0 

l A exe$deanonpaged 

rf A M<R1> 

FP.SP 

8(fP),AP 

S A #EXF$C_CMSTKSZ,SP 

#4 f <SP)+,R0 

B A JO$ 



(R1) 

(RO) 

EXE$ABORTIO 

LSB 



;IF CLR- NO AST SPECIFIED 
ADJUST AST COUNT 
SET ADDRESS OF BLOCK TO DEALLOCATE 

: Deallocate I/O packet 
RETRIEVE VIRTUAL ADDRESS OF PAGE TO FAULT 
TRIM STACK BACK TO CHANGE MODE FRAME 
RESTORE USER ARGUMENT AND FRAME POINTERS 
REMOVE CHANGE MODE CALL FRAME FROM STACK 
CALCULATE RESTART ADDRESS 
SET NEW RETURN ADDRESS 



FAULT USER BUFFER AGAIN 
REPEAT SYSTEM SERVICE 
ABORT I/O REQUEST 



ZZ-ENSAA-7.0 

QIOFOT 

05-03 



K S 

CHECK BUFFER ACCESSIBILITY FOR READ FUNC 27-JUL-1984 Fkhe 12 Frame K8 Seguence 2367 

ihcik burht« AiitbMg li u c dispatch rout i n es 27-JUL-1984 15:42:45 VAX-11 Macro V03-0T, _ Page 

CHECK BUFFER ACCESSIBILITY FOR READ FUNC 1-APR-1980 10:29:54 DMA1 :£$YS0.SYSMAINTJQIOFDT.MAR;29 



9 
(1) 



50 
10 
04 



OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
COCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
OOCE 
DD OOCE 

10 OODO 

11 O0D2 



394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 



.SBTTL CHECK BUFFEfc ACCESSIBILITY FOR READ FUNCTION 

EXESREADCHK - CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 

THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A READ I/O 
FUNCTION. 



INPUTS: 



RO r ADDRESS OF BUFFER. 

R1 = SIZE OF TRANSFER IN BYTES. 

R3 = ADDRESS OF I/O REQUEST PACKET. 



OUTPUTS: 



JF BUFFER IS NOT WRITE ACCESSIBLE, THEN THE I/O REQUEST IS TERM- 
INATED VIA EXESIOFINISH WITH A STATUS OF SSS.ACCVIO, 

IF BUFFER IS WRITE ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 
TURNED: 

RO • ADDRESS OF BUFFER. 
R1 = SIZE OF TRANSFER IN BYTES. 
R2 = READ FUNCTION INDICATOR (1). 
R3 = ADDRESS OF I/O REQUEST PACKET. 

IRP$W_BCNT(R3> = SIZE OF TRANSFER IN BYTES. 
IRP$W„FUNC(R3) = READ. 



.ENABL 
EXESREADCHK:: 
PUSHL 
BSBB 
BRB 



LSB 

RO 

EXESREADCHKR 

10$ 



CHECK BUFFER FOR READ FUNCTION 
SAVE ADDRESS OF BUFFER 
CHECK BUFFER 
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CHECK BUFFER ACCESSIBILITY FOR WRITE FUN 27-JUL-1984 « Aft , F iS h ?J? r 
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50 DO 

34 10 

03 50 E8 

Ff22* 31 

50 8ED0 

05 



00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

CODA 

00D4 

0OD4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D4 

00D6 

00D8 

OODB 

OODE 

00E1 

00E2 



430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

**63 

464 

465 

466 

467 



.SBTTL CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 

EXE$WRITECHK - CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 

THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A WRITE I/O 
FUNCTION. 



INPUTS: 



RO = ADDRESS OF BUFFER. 

R1 = SIZE OF TRANSFER IN BYTES. 

R3 = ADDRESS OF I/O REQUEST PACKET. 



OUTPUTS: 



IF BUFFER IS NOT READ ACCESSiBLE, THEN THE I/O REQUEST IS TERM- 
INATED VIA EXESIOFINISH WITH A STATUS OF SSS.ACCVIO. 

IF BUFFER IS READ ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 
TURNED: 

RO = ADDRESS OF BUFFER. 
R1 = SIZE OF TRANSFER IN BYTES. 
R2 = WRITE FUNCTION INDICATOR (0). 
R3 = ADDRESS OF I/O REQUEST PACKET. 

IRP$W_BCNT(R3) = SIZE OF TRANSFER IN BYTES. 
IRP$WJUNC(R3) = WRITE. 



EXESWRITECHK:: 
PUSHL 



BS88 
10$: BL8S 

BRW 
20$: POPl 

RS8 

.DSABL LSB 



RO 

EXE$WRITECHKR 
R0,20$ 
EXE$ABORTIO 
RO 



CHECK BUFFER FOR WRITE FUNCTION 
f SAVE ADDRESS OF BUFFER 
CHECK BUFFER 
BRANCH IF SUCCESS 
ABORT I/O 
RESTORE ADDRESS OF BUFFER 
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51 
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50 
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50 
8F 
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50 



2A 



A3 
52 



52 
6142 
F1 
02 
01 
23 



DD 
CO 
AA 
C2 
32 

C2 
3E 
14 
A8 
DO 
11 
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00E2 

00E2 

O0E2 
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00E2 

00E2 

00E2 

00E2 

O0E2 

00E2 

00E2 

C0E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 

00E2 
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00E2 

00E2 

00E2 
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477 
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479 
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Yft 

493 

494 

495 

496 

4°7 

498 

499 
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.SBTTL CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 

EXESREADCHKR - CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 

THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A READ I/O 
FUNCTION. STATUS IS RETURNED IN RO. 



INPUTS: 



RO - ADDRESS OF BUFFER. 

R1 = SIZE OF TRANSFER IN BYTES, 

R3 = i DDRESS OF I/O REQUEST PACKET. 



OUTPUTS: 



IF THE BUFFErt IS NOT WRITE ACCESSIBLE, THEN THE FOLLOWING 
VALUE IS RETURNED: 

RO = SS$„ACCVIO 

IF BUFFER IS WRITE ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 
TURNED: 

RO = SS$ NORMAL 

R1 - SIZE OF TRANSFER IN BYTES. 
R2 = n EAD FUNCTION INDICATOR (!)• 
R3 = ADDRESS OF I/O REQUEST PACKET. 

IRPSW BCNT(R3) = SIZE OF TRANSFER IN BYTES. 
IRP$WlFUNC(R3) = READ. 



.ENABL 
E\E$READCHKR:: 
PU5HL 
ADDL 
BICW 
SUBL 
CVTWL 
10$: IFNOWRT 
SU8L 
MOVAW 
BGTR 
BISW 
MOVL 
BRB 



LSB 

R1 

R0,R1 

#VA$M BYTE,R0 

R0,R1 

*- A X200,R2 

R1,(R0), ACCESS 

R2.R0 

(R1)[R2],R1 

10$ 

#IRPOM FUNC,IRP$W, 

#1,R2 

30$ 



CHECK BUFFER FOR READ FUNCTION 

SAVE R1 

CALCULATE ENDING BUFFER ADDRESS 

TRUNCATE TO START OF PAGE 

CALCULATE LENGTH OF BUFFER TO PROBE 

SET ADDRESS ADJUSTMENT CONSTANT 

CAN ENDS OF BUFFER BE WRITTEN? 

CALCULATE VIRTUAL ADDRESS OF NEXT PAGE 

CALCULATE NEW LENGTH 

f IF GTR MORE TO TEST 
STo(R3) ;SET READ FUNCTION 

;SET READ FUNCTION INDICATOR 
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51 
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8F 
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A3 
50 
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51 
01 
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CO 
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32 

C2 
3E 
14 
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3C 
05 
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05 
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010C 
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010C 

010C 
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010C 

010C 

010C 

010C 

010C 

010C 
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010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010C 

010E 

0111 

0116 

0119 

011E 

0124 

0127 

012B 

012D 

012F 

0132 

0136 

0139 

013A 

013A 

013D 

0140 

0141 



516 
517 

518 
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520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 
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544 

545 

546 

547 

548 

549 

550 

551 

552 

55? 
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565 
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567 



.SBTTL CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 

EXESWRITECHKR - CHECK BUFFfcR ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 

THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A WRITE I/O 
FUNCTION. STATUS IS RETURNED IN RO 



INPUTS: 



RO = ADDRESS OF BUFFER. 

R1 = SIZE OF TRANSFER IN BYTES. 

R3 = ADDRESS OF I/O REQUEST PACKET. 



OUTPUTS: 



IF BUFFER IS NOT READ ACCESSIBLE, iHEN THE FOLLOWING VALUE IS 
RETURNED: 

RO = SS$J\CCVIQ 

IF BUFFER IS READ ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 
TURNED: 

RO = SS$ NORMAL 

R1 = SIZE OF TRANSFER IN BYTES. 
R2 = WRITE FUNCTION INDICATOR (0). 
R3 = ADDRESS OF I/O REQUEST PACKET. 

IRP$W BCNT(R3) - SIZE OF TRANSFER IN BYTES. 
IRP$WlFUNC(R3) = WRITE. 



EXESWRITECHKR:: 
PUSHL 
ADDL 
RICW 
SU8L 
CVTWt. 
IFNORD 
SUBL 
MOVAW 
BGTR 
CLRL 
POPL 
MOVW 
MOVZWL 
RS8 



20$: 



30$: 



ACCESS: 



POPL 
MOVZWL 
RSB 
.DSABL 



R1 

R0,R1 

#VA$M„8YTE,R0 

R0.R1 

#-*X200,R2 

R1, W), ACCESS 

R2-..J 

(R1)CR23,R1 

20$ 

R2 

R1 

R1,IRP$W BCNKR3) 

#SS$..NORflAL,R0 



R1 
#SS$J\CCVIO,R0 



CHECK BUFFER FOR WRITE FUNCTION 

SAVE R1 

CALCULATE ENDING BUFFER ADDRESS 

TRUNCATE TO START OF PAGE 

CALCULATE LENGTH OF BUFFER TO PROBE 

GET ADDRESS ADJUSTMENT CONSTANT 

CAN ENDS OF BUFFER BE READ? 

CALCULATE VIRTUAL ADDRESS OF NEXT PAGE 

CALLULATf; NEW LENGTH 

IF GTR MORE TO CHECK 

SET WRITE FUNCTION INDICATOR 

RESTORE R1 

INSERT TRANSFER BYTE COUNT IN PACKET 

SUCCESS RETURN 

SET ACCESS VIOLATION 
RESTURE R1 



LSB 



7Z-ENSAA-7.0 

Q10FDT 
05-03 



SET DEVICE MODE AND 

SET 



CHARACTERISTICS 
QJOFDT function 
DEVICE MODE AND 



51 6C DO 



3A 



38 

AS 
A5 



57 
A5 



0? 
04 



23 

04 
61 
A1 
A1 

n 



B 9 
FUNC 27-JUL-1984 Fiche 12 
dispatch routines 27-JUL-1984 15:42:45 
CHARACTERISTICS FUNIC 1-APR-1980 10:29:54 
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13 
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D1 
13 
BO 
BO 
DO 
11 



0141 

0141 

0141 

0141 
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0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

C141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0141 

0144 

014A 

014D 

014F 

0153 

0158 

015D 



569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 



.SBTTL SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS (AT FDT LEVEL) 

EXESSETCHAR - SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS (AT FDT LEVEL) 

THIS ROUTINE PLACES THE NEW CHARACTERISTICS SPECIFIED BY THE OUADWORD POINTED 
TO BY PI INTO THE SECOND AND THIRD LONGWORDS OF THE DEVICE UC6. 



INPUTS: 



RO = SCRATCH. 

R1 a SCRATCH. 

R2 = SCRATCH. 

R3 a ADDRESS*OF I/O REQUEST PACKET. 

R4 = CURRENT PROCESS PCS ADDRESS. 

R5 = ASSIGNED DEVICE UCB ADDRESS. 

R6 a ADDRESS OF CCB. 

R7 = I/O FUNCTION CODE BIT NUMBER. 

R8 a FUNCTION DECISION TABLE DISPATCH ADDRESS. 

R9 a SCRATCH. 

RIO = SCRATCH. 

R11 a SCRATCH. 

AP a ADDRESS OF 



FIRST FUNCTION DEPENDENT PARAMETER. 



OUTPUTS: 



THE CHARACTERISTICS SPECIFIED BY THE 
IN THE SECOND AND THIRD LONGWORDS OF 



QUADWORD POINTER TO BY P1 ARE STORED 
THE DEVICE UCB. 



.ENABL 
EXESSETCHAR:: 
MOVL 
IFNORD 
CMPL 
BEQL 
MOVW 
10$: MOVW 
MOVL 
BR8 



LSB 

P1(AP),R1 

#8,<R1>,ACCESS 

#I0$_SETM0DE,R7 

10$ 

(R1) f UCB$B DEVCLASS(R5) f 

2(R1),UC8$B.DEVBUFSIZ(R5) 

4(R1),UCB$L_DEVDEPEND<R5) 

20$ 



DEVICE MODE AND CHARACTERISTICS 
ADDRESS OF CHARACTERISTICS 
CHARACTERISTICS QUADWORD BE READ? 
MODE FUNCTION? 
EQL YES 



SET 

GET 

CAN 

SET 

IF , 

SET DEVICE TYPE AND CLASS 
;SET DEFAULT BUFFER SIZE 
;SET DEVICE CHARACTERISTICS 



?Z-ENSAA-7,0 

QIOFDT 

05-03 
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14 
(1) 



51 6C DO 



34 A3 



61 
FE91 



7D 
31 



015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
01 5F 
015F 
015F 
015F 
C15F 
015F 

015F 
015F 
015F 
015F 
015F 
01SF 
015F 
015F 
015F 
01 5F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
015F 
0162 
0168 
016C 



609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

60 

642 

643 

644 

645 

646 



.SBTTL SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

EXESSETMODE - SET DEVICE CHARACTERISTICS AND MODE 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PLACES THE NEW CHARACTERISTICS SPECIFIED BY P1 INTO 

THE I/O PACKET FOR INSERTION INTO THE UC8 WHEN THE UNIT IS IDLE. 

THE INPUT DATA IS IN THE FOmM RETURNED BY SGTCHAN. THE SPECIFIED BUFFER 

IS ASSUMED TO BE 12 BYTES IN LENGTH. THE P2 LENGTH SPECIFIER IS IGNORED. 

THE NEW CHARACTERISTICS ARE PLACED IN IRP$L_MEDIA/MEDIA+4 AND THE 
PACKET IS QUEUED VIA EXESQIODRVPKT. 



INPUTS: 



R3 = I/O PACKET ADDRESS 

R4 = CURRENT PCB 

R5 = ACB ADDRESS 

R6 = ASSIGNED CC8 ADDRESS 

AP = ADDRESS OF THE QIO ARGUMEMT P1 



OUTPUTS: 



RO = STATUS OF THE OPERATION 
R3+ ARE PRESERVED. 



COMPLETION CODES: 



SSS.NORMAL - SUCCESSFUL 

SS$ ACCVIO - BUFFER ACCESS VIOLATION 



EXESSETMODE:.* 
MOVL 
IFNORD 
MOVQ 
BRW 



PKAPKR1 
#8,(R1), ACCESS 
<R1),IRP$L MEDIA(R3) 
EXESQIODRVPKT 



SET DEVICE MODE AND CHARACTERISTICS 

ADDRESS BUFFER 

BR IF NO ACCESS 

INSERT CHARACTERISTICS IN I/O PACKET 

QUEUE THE PACKET 



ZZ-ENSAA-7.0 
QIOFDT 

05-03 
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51 3C 



50 



A5 
01 
FE87* 



DO 
3C 

31 



01 6F 
01 6F 
01 6F 

01 6F 

01 6F 

01 6F 

01 6F 

016F 

016F 

01 6F 

016F 

016F 

01 6F 

01 6F 

C16F 

016F 

016F 

016F 

016F 

016F 

01 6F 

016F 

01 6F 

016F 

016F 

016F 

016F 

016F 

016F 

016F 

016F 

016F 

016F 

016F 

0173 

0176 

0.79 



648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 



.S8TTL SENSE DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

» 

EXE$SENSEMODE - SENSE DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

THIS ROUTINE OBTAINS THE CURRENT DEVICE MODE/CHARACTERISTICS FROM THE DEVICE 
DEPENDENT CHARACTERISTICS LONGWORD IN THE UCB AND IMMEDIATELY COMPLETES THE 
I/O OPERATION WITH THE SECOND LONGWORD OF THE FINAL I/O STATUS EQUAL TO THE 
DEVICE DEPENDENT CHARACTERSITICS. 



INPUTS: 



RO = SCRATCH. 

R1 = SCRATCH. 

R2 = SCRATCH 

R3 = ADDRESS'OF I/O REQUEST PACKET. 

R4 = CURRENT PROCESS PCB ADDRESS. 

R5 = ASSIGNED DEVICE UCB ADDRESS. 

R6 = ADDRESS OF CCB. 

R7 - I/O FUNCTION CODE BIT NUMBER. 

R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 

R9 = SCRATCH. 

R10 = SCRATCH. 

R11 s SCRATCH 

AP =~ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 



OUTPUTS: 



THE DEVICE DEPENDENT CHARACTERISTICS ARE OBTAINED FROM THE UCB AND 
THE I/O IS COMPLETED WITH THE SECOND I/O STATUS LONGWORD EQUAL TO THE 
DEVICE CHARACTERISTICS. 



EXESSENSEMODE: 
MOVL 

20$: MOVZWL 
BPW 
.DSABL 



UCB$L DEVDEPEND(R5),R1 
#SS$ FJORMAL,RO 
EXESFINISHIO 
LSB 



SENSE DEVICE MODE/CHARACTERISTICS 
GET DEVICE DEPENDENT CHARACTERSITICS 
SET NORMAL COMPLETION STATUS 
FINISH I/O OPERATION 



ZZ-ENSAA-7.0 
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16 
(1) 



OD 01 00 
OD 01 00 
OD 01 OC 
OD 01 00 

00 00 00 



01 
20 
02 
30 
01 
31 
00 
28 
01 
24 



0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

C179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

0179 

01 7D 

017E 

0182 

0183 

0187 

0188 

018C 

018D 

0191 



686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

,09 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 



.SQTTL CARRIAGE CONTROL INTERPRETATION 

EXESCARRIAGE - INTERPRET CARRIAGE CONTROL SPECIFIER 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED BY THE LINE PRINTER DRIVER AND THE TERMINAL 
DRIVER TO INTERPRET THE CARRIAGE CONTROL SPECIFIER IN IRPSB.CARCON . 
NOTE THAT IRPSB.CARCON IS USED AS A LONGWORD! 

THE SPECIFIER IS AS FOLLOWS: 

.BYTE 1 — FORTRAN CARRIAGE CONTROL CHARACTER IF NOT 

.BYTE 2 — ***** IGNORED **^** 

.BYTE 3 — PREFIX CARRIAGE CONTROL 

.BYTE 4 — SUFFIX CARRIAGE CONTROL 

THE PRE/SUF FIELDS ARE AS FOLLOWS 

IF BIT 7=0 THEN BITS 6-0 ARE THE NUMBER OF NEWLINES TO INSERT. 
IF BIT 7=1 AND BIT 6=0 THEN BITS 4-0 ARE THE ASCII CHARACTER TO 

OUTPUT. ASCII SET CO OR C1 IS SPECIFIED BY BIT 5. 
IF BIT 7=1 AND BIT 6=1 THEN BITS 5-0 ARE THE PRINTER CHANNEL NUMBER 

ASCII SET CO IS ASSUMED AND BIT 6 IS IGNORED IF BIT 7=0. 

INPUTS: 

R3 = ADDRESS OF THE I/O PACKET 
R5 = ADDRESS OF THE UCB 

OUTPUTS: 

IRPSB^CARCON IS SET UP TO REFLECT THE PRE/SUF CHARACTERS TO SEND, 

BYTE = NUMBER OF CHARACTERS TO SEND 
BYTE 1 = CHARACTER, IF THEN NEWLINE 

IRPSB.CARCON+2 HAS THE SUFFIX CONTROL. 

R0,R1 ARE USED. 



LOCAL DATA TABLE 
CCTABLE: 



.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 



1.0,1,13 
/ / 

2,0,1,13 
/O/ 

1,12,1,13 

/I/ 

0,0,1,13 

1*1 

1,0,0,0 

/$/ 



CARRIAGE CONTROL TO FORTRAN MATCH TABLE 
SPACE => 1 NL, 1 CR 



"0" => 2 NL, 1 CR 
"1" => 1 FF, 1 CR 
'V' => NOTHING, 1 CR 
"$" => 1 NL, NOTHING 



ZZ-ENSAA-7.0 

Q10F0T 
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17 
CD 



OD 01 00 01 
00 



51 38 



50 
38 



A3 



51 



D9 



A3 
12 
AF 
80 
60 
05 
80 
F3 



51 3A A3 
02 
19 

38 A3 51 

39 A3 50 
51 3B A3 

02 

09 

3A A3 51 

3B A3 50 



50 

08 51 07 

51 EO 8F 

50 

51 01 



9A 
13 
9E 
DO 
95 
13 
91 
12 
05 



9A 
13 
10 
90 
90 
9A 
13 
10 
90 
90 
05 



D4 
E1 
8B 

9A 
U5 



0192 

0196 

0197 

0197 

0197 

0197 

0197 

01 9B 

019D 

01A1 

01A5 

01A7 

01A9 

01AC 

C1AE 

01AF 

01AF 

01AF 

01AF 

01B3 

01B5 

01B7 

018B 

01BF 

01C3 

01C5 

01C7 

01 CB 

01CF 

01D0 

01D0 

01D0 

01D0 

01D2 

01D6 

01 DA 

01 DB 

01DE 

01DF 

01DF 



743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

771 

77L, 

775 

776 

777 

778 
779 
780 
781 



.BYTE 
.BYTE 



EXE$CARRIAGE:: 
MOVZBL 



10$: 



15$: 



BEQL 

M0VA8 

MOVL 

TST8 

BEQL 

CMPB 

BNEQ 

RSB 



1,0,1,13 





IRP$B CARCON<R3),R1 
20$ " 

B A CCTABLE,RO 
(R0)+,IRP$B_CARC0N(R3) 

<R0> 

15$ 

(R0)+,R1 

10$ 



; PRE/SUF CARRIAGE CONTROL 

Jo$: MOVZBL IRP$B CARCON+2CR3) ,R1 

BEQL 30$ " 

BSB8 100$ 

30$: M0V8 R1,IRP$B CARC0N(R3) 

M0V8 RO, IRP$B'CARC0N+1 (R3) 

MOVZBL IRP$B CARC0N+3(R3) ,R1 

BEQL 40$ 

BSBB 100$ 

40$: KOVB R1,IRP$B CARC0N+2(R3) 

MOVB R0,IRP$8~CARCON+3(R3) 

RSB 



DEFAULT => 1 NL, 1 CR 
TABLE END 



INTERPRET CARRIAGE CONTROL 

GET FORTRAN SPECIFIER 

IF EQL THEN TRY PRE/SUF 

ADDRESS MATCH TABLE 

ASSUME MATCH 

END OF TABLE? 

IF EQL THEN YES 

MATCH? 

NO THEN SEARCH 

ELSE RETURN 



GET PREFIX SPECIFIER 
IF EQL THEN NONE 
INTERPRET THE SPECIFIER 
INSERT NUMBER 
INSERT CHARACTER 
GET SUFFIX SPECIFIER 
If EQL THEN NONE 
CONVERT THE SPECIFIER 
INSERT NUMBER 
INSERT CHARACTER 
RETURN 



SUBROUTINE TO INTERPRET PRE/SUF SPECIFIER 



100$: 



110$: 



CLRL 

BBC 

BIC83 

MOVZBL 
RSB 

.END 



RO 

#7,R1,11Q$ 

#*X0E0,R1,R0 

01,R1 



ASSUME 
IF BIT 
REMOVE 

SET ONE 
RETURN 



NEWLINE 

7 CLEAR THEN 

OTHER BITS 

CHARACTER 



DONE 



J 



ZZ-ENSAA-7,0 
Q10FDT 
Symbol table 

acb$b rmod 
acbsb'type 
acb$cj_ength 
acbsk length 
acbsl..ast 
acb$l astprm 

ACBSLlASTQBL 

ACB$LJ\STQFl 

ACB$L,KAST 

ACB$L„PID 

ACBSVJWOTA 

ACBSW SIZE 

ACCESS 

CCBSB.AMOD 

CCB$B STS 

CCB$CLENGTH 

CCBSK LENGTH 

CCBSLlDIRP 

CCB$L_UCB 

CCBSL.W1ND 

CCBSW IOC 

CCTABtE 

EXESABORTIO 

EXESCARRIAGE 

EXE$C CMSTKSZ 

EXESD^ANONPAGED 

EXESFINISHIO 

EXESMODIFY 

EXESMODIFYLOCK 

EXESMODIFYLOCKR 

EXESONEPARM 

EXESQIODRVPKT 

EXESREAD 

EXESREADCHK 

EXESREADCHKR 

EXESREADLOCK 

EXESREADLOCKR 

EXESSENSEMODE 

EXESSETCHAR 

EXESSETMODE 

EXESWRITE 

EXE$WRITECHK 

EXESWRITECHKR 

EXESWRITELOCK 

EXESWRITELOCKR 

EXESZEROPARM 

10$ PHYSICAL 

I0$~READL6LK 

JO$"READPBLK 

IOSSETMODE 

IRP$B.CARCON 

IRP$B_EFN 

IRPSB.PRI 

IRP$B,R«OD 

IRP$B TYPE 

IRP$OENGTH 

IRPSK LENGTH 



Symbol table 
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OOOOOOOB 
OOOOOOOA 
00000018 
00000018 
00000010 
00000014 
00000004 
00000000 
00000018 

oooooooc 

00000006 
00000008 
000001 3A 
00000009 
00000008 
00000010 
00000010 

oooooooc 

00000000 
00000004 
OOOOOOOA 
00000179 
******** 

00000197 
00000014 
******** 
******** 

oooooooc 

00000044 
00000047 
00000000 

******** 

00000012 
OOOOOOCE 
000O00E2 
0000003E 
00000051 
000001 6F 
00000141 
000001 5F 
0000001B 
000000D4 
0000010C 
00000041 
00000058 
00000006 
0000001 F 
00000021 
OOOOOOOC 
00000023 
00000038 
00000022 
00000023 
OOOOOOOB 
OOOOOOOA 
0000005C 
0000005C 



R 



R 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



X 
RG D 
D 

X 

X 
RG D 
RG D 
RG D 
RG 

X 
RG D 
RG 
RG 
RG 
RG 



RG D 

RG D 

RG 

RG 

RG 

RG 

RG 

RG 

RG 



01 



01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



]RP$L ARB 

1RP$L"AST 

IRPSL ASTP1M 

IRP$L M D1AGBUF 

IRPSL.EXTEND 

IRP$L.IOQBL 

IRPSLJOQFL 

IRP$L IOSB 

IRPSLJ0ST1 

1RPSLJ0ST2 

IRP$L_MEDIA 

IRP$L PID 

IRP$L"SEGVBN 

IRP$L"SEQNUM 

IRPSLlSVAPTE 

IRP$L TT TERM 

IRP$LJJCB 

IRP$L„WIND 

1RPSM FUNC 

1RP$Q~NT PRVMSK 

JRPSSlFCBDE 

irpsv^diagbuf 

irp$v_fcode 

irpsv.func 

jrpsw.abcnt 

irpsw.bcnt 

irpsw^boff 

irpsw.chan 

irp$w,func 

irp*w_obcnt 

jrpsw.size 

irpsw.sts 

irpsw tt prmpt 

mmgsiBloCk 

PI 

P2 

P3 

P4 

P5 

P6 

PCBSB.ASTACT 

PCSSB^ASTEN 

PCBSB.PRI 

PCBSB PRIB 

PCBSB.TYPE 

PCB$B_WEFC 

PCBSC. LENGTH 

PC8$K LENGTH 

PCBSL.ARB 

PCBSL.ASTQBL 

PCB$L M ASTQFL 

PC8SL.EFC2P 

PC8SL.EFC3P 

PCBSL.EFCS 

PC8SL EFCU 

PCB$L"EFWM 

PCBSL.J1B 



00000050 
00000010 
000000 1 4 
00000044 
0000004 C 
00000004 
00000000 
00000024 
00000034 
00000038 
00000034 
OOOOOOOC 
00000040 
00000048 
0000002C 
00000038 
0000001 C 
00000018 
00000002 
0000003C 
00000006 
00000007 
00000000 
00000001 
0000003C 
00000032 
00000030 
00000028 
00000020 
0000003E 
00000008 
0000002A 
0000003C 
******** 

00000000 
00000004 

00000008 

oooooooc 

00000010 
00000014 

oooooooc 

00000000 
OOOOOOOB 
~2F 

2E 

84 
14 
1 
5 



000000 

§« 

Hffi 

m 

o 



00OO05C 

00000050 
00000054 
0000004C 
00000078 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
< 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


D 
D 
D 

D 



01 



ZZ-ENSAA-7.0 
QIOFDT 
Symbol table 

PCBSL OWNER 

PCBSL PHD 

PCBSL~PHYPCB 

PCB$L"PID 

PCBSL'PQB 

PCBSL^SQBL 

PCBSL SQFL 

PCBSL~STS 

PCBSL~UIC 

PCBSL~WSSWP 

PCBSL'WTIME 

PCB$Q"PRIV 

PCBST"*LNAME 

PCBST'TERMINAL 

PCB$W"APTCN7 

PCBSW~ASTCNT 

PCBSW^BIOCNT 

PCBSW BIOLM 

PCBSW.DIOCNT 

PCBSW DIOLM 

PCBSW"GPGCNT 

PCBSW~GRP 

PCBSW~MEM 

PCBSW~MTXCNT 

PCBSW~PPGCNT 

PCBSW~PRCCNT 

PCBSW~SJZE 

PCBSW~STATE 

PCBSW" TMBU 

SIZ..T 

SSS.ACCVIO 

SSS NORMAL 

UCBJB AMOD 

UCBSB^CEX 

UCBSB CM1 

UCBSB~CM2 

UCBSB'DEVCLASS 

UCBSB'DEVTYPE 

UCBSB'DIPL 

UCBSB'DX SCTCNT 

UCBSBIERTCNT 

UCBSB ERTMAX 

ucbsb;fex 

UCBSB FIPL 
UCBSBlLOCSRV 
UC8SB OFFNDX 
UCBSBlOFFRTC 
UCBSB REMSRV 
UCBSBlSECTORS 
UCBSB_SLAVE 
UCBSB_SPR 
UCBSB STATE 
UCBSB TRACKS 
UCBSB~TT_CRFILL 
UCBSB'TT DECRF 
UCBSB'TT.DELFF 
UCBSB TT DESPEE 
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0000001 C 

00000064 

00000018 

00000060 

0000004C 

00000004 

00000000 

00000024 

00000088 

00000020 

00000028 

0000007C 

00000068 

00000044 

00000030 

00000038 

0000003A 

0000003C 

0000003E 

00000040 

00000034 

0000008A 

00000088 

0000000E 

00000036 

00000042 

00000008 

0000002C 

00000032 

00000002 

oooooooc 

00000001 

00000053 

00000077 

0000004A 

0000004B 

00000038 

00000039 

00000052 

000000A6 

00000070 

00000071 

00000076 

00000008 

0000003C 

00000094 

00000095 

0000003D 

0000003C 

00000074 

00000075 

00000052 

0000003D 

0000009D 

00OOOOA1 

000000A2 

000000A0 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 



D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 



UC8SB, 

UC8SB. 

UCBSB 

UCBSB. 

UCBSB_ 

UCBSC. 

UC8SC. 

ucesc^ 

UCBSK. 

UC8SK. 

UC8SK, 

UC8SL 

UC8SL 

UCBSL, 

UC8SL 

UCBSL. 

UCBSL. 

UCBSL, 

UC8SL, 

UC8SL, 

UC8SL, 

UCBSL, 

UCBSL, 

UC8SL, 

UC8SL, 

UCBSL 

UC8SL 

UC8SI 

UC8SL 

UCBSL 

UC8SL 

UC8SL 

UCBSL 

UC8SL 

UC8SL 

UCBSL 

UCBSL 

UC8SL 

UCBSL 

UC8SL 

UC8SL 

UCBSL 

UC8SL 

UCBSL 

UC8SL 

UCBSL 

UC8SL 

UC8SL 

UCBSL 

UCBSL 

UC8SL 

UCBSL 

UCBSL 

UCBSL 

UC8SL 

UCBSL 

UCBSL 



TT_DETYPE 

TTJ.FFILL 

TT. SPEED 
JYPE 
.VERTSZ 
.LENGTH 
„MB_LENGTH 
JT LENGTH 

LERGTH 
'MB.LENGTH 
_TT LENGTH 

AMB 

"ASTQBL 
„ASTQFL 

CPID 
ICRB 
,DDB 

DEVCHAR 
IDEVDEPEND 
.DPC 
IDUETIM 
..DX..BFPNT 
.DX.BUF 
J)X RXDB 

EMB 

Zfirst 

JPC 

„FQBL 

.FQFL 

IFR3 

IFR4 

J0Q8L 

JOQFL 

IRP 
ILINK 
.LOGADR 
^MAXBLOCK 
IMBJIBX 

MB.PORT 
^MB^RAST 
.MB.SHB 
.MB^WAST 
JIB.WiOQBL 

_mb wioqfl 
ImeBia 
„nt,datssb 
„nt intssb 

OP^NT 
"OWNUK 
IP1D 
IRQBL 
IRQFL 

SVAPTE 

SVPN 
ITT^DECHAR 

TT^RDUE 

TT^RTIMOU 



000000A4 
0000009E 
0000009C 
OOOOOOOA 
0000003F 
00000074 
00000090 
OOOOOOBC 
00000074 
00000090 
OOOOOOBC 
00000054 
00000010 

oooooooc 

0000005C 
00000020 
00000024 
00000034 
0000003C 
00000080 
0000005 C 
0000009C 
00000098 
OOOOOOAO 
00000078 
00000014 
OOOOOOOC 
00000004 
00000000 
00000010 
00000014 
00000044 
00000040 
0000004C 
0000002C 
00000064 
00000084 
0000007C 
0000008C 
00000078 
00000080 
00000074 

00000088 
00000084 

)C 

00000078 
00000060 
0000001 c 
00000028 
>04 
10 

00000064 
O0OO0OA8 
0000008C 
OOOO00B8 





§ 



D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 



ZZ-ENSAA-7.0 
QIOFDT 
Symbol table 

UCB$L VC8 

UCBST PARTNER 

UCBSlfBCNT 

UCBSW^BCR 

UCBSW.BOFF 

UCBSU.BUFQUO 

UCBSW BYTESTOGO 

UCBSW'CHARGE 

UCBSW CYLINDERS 

UCB$WlDA 

UCB$W DC 

UCBSW DEV8UF5IZ 

UCB$WJ)EVSTS 

UCBSW.DIRSEQ 

UCB$WJ>STADDR 

UCB$W„DX BCR 

UCBSW.ECT 

UCB$W_EC2 

UCB$W_ERRCNT 

UCBSWJUNC 

UCB$W MB SEED 

UCBSWlMSGCNT 

UCB$W MSGMAX 

UCBULNT CHAN 

UCBtW^OFTSET 

UCB$W,REFC 

UCB$W_.SIZE 

UCB$W„SRCADDR 

UCBSW.STS 

UCB$W.JT DESIZE 

ucb$w unit 
ucb$w"vprot 
va$m Byte 



Symbol table 



PSECT name 

. ABS , 

SEP 

$ABi>$ 



*** QIOFDT function dispatch 



00000030 D 

0000000C D 

0000006E D 

00000096 D 

0000006C D 

00000018 D 

0000003E D 

0000004A D 

0000003E D 

0000008C D 

0000008E D 

0000003A D 

0000005A D 

00000088 D 

OO0OC018 D 

000000A4 D 

00000090 D 

00000092 D 

00000072 D 

0000007E D 

00000000 D 

00000016 D 

00000014 D 

0000007C D 

0000008A D 

00000050 D 

00000008 D 

0000001A D 

00000058 D 

000000A5 D 

00000048 D 

0000001A D 

000001 FF D 
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Allocation 

00000000 
000001DF 

OOOOOOBC 



+ — ........... — + 

! Psect synopsis ! 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 
( 479.) 01 ( 1.) NOPIC USR 
( 188.) 02 ( 2.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON REL LCL SHR EXE RD 
CON ABS LCL NOSHR EXE RD 



NOURT NOVEC BYTE 
WRT NOVEC LONG 
WRT NOVEC BYTE 



ZZ-ENSAA-7.0 Cross 


reference 






J 9 
27-JUL-1984 


Fiche 


12 Frame J9 Seguence 2379 

:45 VAX-11 Macro V03-01 Page 21 


QIOFDT 


*** QIOFDT function disoatch routines 


27-JUL-1984 


15:42 


Cross reference 












1-APR-198C 


) 10:29 


:54 DMA1jCSYS0.SYSMAINT]QIOFDT.MAR;29 (1) 


! Symbol Cross Reference ! 


SYMBOL 
ACBSV QUOTA 


VALUE 
=00000006 


DEFINITION 


REFERENCES. 
#-378 (1) 


. 










ACCESS 


000001 3A-R 


563 


(1) 


#-508 


(1) 


#-554 


(1) 


#-601 (1) #-644 (1) 


CCB$W IOC 


0000000A 






#-371 


(1) 








cctabCe 


000001 79-R 


732 


(1) 


751 


(1) 








EXE$ABORTIO 


00000000-XR 






#-391 


(1) 


#-464 


(1) 




EXE$CARR1AGE 


000001 97-R 


748 


(1) 












EXESC CMSTKSZ 


=00000014 


0.5 


(1) 


#-385 


(1) 








EXESDEANONPAGED 


00000000-XR 






374.1 


(1) 


380.1 


<1> 




EXE$FINISHIO 


00000000-XR 






#-683 


(1) 








EXE$M0D1FY 


OOOOOOOC-R 


191.2 


(1) 












EXESMODIFYLOCK 


00000044-R 


28? 


(1) 


191.3 


(1) 








EXESMODIFYLOCKR 


00000047-R 


342 


(1) 


#-288 


(1) 








£XE$ONf:PARM 


00000000-R 


99.5 


(1) 










#~6& (1) 


EXESQIODRVPKT 


00000000-XR 






#-158.3 


(1) 


#-191.20 


(1) 


EXESREAD 


0000001 2-R 


191.5 


(1) 












EXESREADCHK 


OOOOOOCE-R 


425 


(1) 












EXESREADCHKR 


000000E2-R 


5 2? 


(1) 


#-344 


(1) 


#-350 


(1) 


#-427 (1) 


EXE$READLQCK 


0000003E-R 


275 


(1) 


191.6 


(1) 








EXESREAOLOCKR 


00000051-R 


348 


(1) 


#-276 


(1) 








EXE$SENSEMuDI; 


0000016F-R 


680 


(1) 












EXESSETCHAR 


00000141-R 


599 


(1) 












EXE$SETMODE 


000001 5F-R 


642 


(1) 












EXESWRITE 


0000001B-R 


191.8 


(1) 












EXESWRiTECHK 


000000D4-R 


460 


(1) 












EXE$WRITECHKK 


0000010C-R 


548 


(1) 


#-355 


(1) 


#-462 


(1) 




EXESWRITELOCK 


00000041-R 


281 


(1) 


191.9 


(1) 








EXESWRITELOCKR 


00000058-R 


353 


(I) 


#-282 


(1) 








EXE$ZEROPARM 


00000006-R 


158.1 


(1) 












10$ PhYSICAL 


=0000001 F 






#-191.12 


(1) 








IO$~READLBLK 


=00000021 






#-191.14 


(1) 








IO$lREADPBLK 


=0000000C 






#-191.14 


(1) 








10$ SETMODE 


=00000023 






#-602 


(1) 








IRP?B_CARCON 


00000038 






#-191.10 


(1) 


#-749 


(1) 


#-752 (1) tf-761 (1) 










#-764 

#-770 


(1) 
(1) 


#-765 


(1) 


#-766 (1) A'-769 (1) 


IRP$B RMOD 


OOOOOOOB 






378 


(1) 








IRPSL DIAGBU r 


00000044 






#-373 


(1) 








IRP$L~MEDIA 


00000034 






#-158.2 


(1) 


#-645 


(1) 


#-99,6 (1) 


IRPSL SVAPTE 


0000002C 






#-363 


(1) 








IRP$M~FUNC 


=00000002 
=00000006 






#-512 


(1) 








IRP$S FCODE 






#-191.11 


(1) 








IRP$VlOIAGBUF 


=00000007 
=00000000 






#-372 


(1) 








IRPSV FCODE 






#-191.11 


(1) 








IRP$VlFUNC 
IRP$W_BCNT 


=00000001 
00000032 






#-191.7 
#-560 


(1) 
(1) 








IRP$W BOFF 


00000030 






#-358 


(1) 








JRP$W~FUNC 


00000020 






191.12 


(1) 


#-191.15 


(1) 




IRP$W"STS 


0000002A 






191.7 


(1) 


372 


(1) 


#-51i (1) 


MMG$lOLOCK 


00000000-XR 






359.1 


(1) 








P1 


=00000000 


66 


(1) 


#-191.18 


(1) 


#-600 


(1) 


#-643 (1) #-99,6 (1) 



ZZ-ENSAA-7.0 

Q10FOT 

Cross reference 

P2 

P3 

PA 

P5 

P6 

PCBSW^ASTCNT 

PCB$W OIOCNT 

SSS AfCVIO 

SS$ NORMAL 

UC858 DEVCLASS 

UCB$l~DEVDEPEND 

UCBSUfDEVBUFSIZ 

VA$MVTE 



Cross reference 
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=00000004 
=00000008 
:0000000C 
=00000010 
:000O00H 
00000038 
0000003E 
:0000000C 
:00000001 
00000038 
0000003C 
0000003A 
:000001FF 



67 
68 
69 
70 
71 



#-191,16 (1) 
#-191.10 (1) 



#-379 
#-370 
#-565 
#-561 
#-604 
#-606 
#-605 
#-358 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



#-682 (1) 
#-681 (1) 

#-505 (1) 



#-551 



(1) 



ZZ-ENSAA-7.0 
QIOFDT 

Cross reference 



Cnss reference 



*** QIOFDT function dispatch 



L 9 ... 
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+ + 

! Macros Cross Reference ! 
+•.„ + 



MACRO 

$ACBDEF 
SCCBDEF 

SDEFJNI 

$DEV0EF 

S10DEF 

SIRPOEF 

SiPCBDEF 

SSSDEF 

$UCBDEF 

SVADEF 

IFNORD 

IFNOWRT 



SIZE 


DEFINITION REF 




50 (1 


) 50 




51 r 


) 51 




50 C 


) 50 

55 




52 (1 


) 52 


17 


53 ( 


) 53 




54 V 


) 54 




55 C 


) 55 


21 


56 (* 


) 56 


10 


57 C 


) 57 




58 C 


) 58 




554 C 


I) 554 




508 (' 


I) 508 



REFERENCES... 



51 
56 



(1) 
(1) 



52 
57 



(1) 
(1) 



53 
58 



(1) 
(1) 



54 



(1) 



601 



(1) 



644 



(1) 



+_* + 

! Performance indicators ! 
+ + 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



Elapsed Time 



35 

142 

691 



184 

34 

7 

29 

1125 



00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 
00:00 



:00.11 
:00.87 
:16.56 
:01.91 
:03.73 
:00.24 
:00.02 
:QQ. 33 
:23.80 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.24 
02.02 
23.84 
04.28 
14.79 
00.25 
00.02 
00.75 
46.21 



The working set limit was 1000 paaes. 

79127 bytes (155 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1212 non-local and 26 local symbols. 

740 source lines were read in Pass 1, producing object records in Pass 2. 

57 pages of virtual memory were used to define 20 macros. 

+ — — — — — — — + 

! Macro library statistics ! 



Macro library name 

0MA1 :CSYS0.SYSMAINT]DS.ML8;218 
DMA1:CSYS0.SYSMAINT]DIAG.ML8:953 
SYS$SYSR00T:CSYSLIB]LI8.«LB;1 
SYS$SYSR00T:CSYSLIB3STARLET.ML8;2 
TOTALS (all libraries) 



Macros defined 

6 
3 

7 
16 



1481 GETS were required to define 16 macros. 



M Q 

ZZ-ENSAA-7.0 Ctl reference 27-JUL-1984 Ffche 12 Frame M9 Seguence 2382 

QiOFDT reierenct function dispatch routines 27-JUL-1984 15:42:45 VAX-11 Macro V03-57 _ r _ Page 24 

VAX-11 Macro Run Statistics 1-APR-1980 10:29:54 0MA1 :CSYS0-SYSMAINT3QIOFPT.MAR;29 (1) 

There were no errors, warnings or information messages, 

MACRO/NOOBJECT/LIST=[0S.l.IS3/CR0SS/ENA8LE=(DEBU6, TRACE) QJ0FDT/UPDA=(QJOFDT. UPD, QIOFDT. ENH)+SYS$LIBRARY:LIB/LIBRARY*DMA1 :CSYS0.SYSMA 



ZZ-ENSAA-7.0 

Q10REQ 

iable of contents 

67 
121 
548 
600 
623 
669 
706 
729 



*** QIOREQ handle Q\0 request 

*** QIORtQ handle 



Q10 request 



N 9 
27-JUL-1984 Fiche 12 

27-JUL-1984 15:43:33 



Frame U9 
VAX-11 Macro 



Seguence 
V03-0? 



2383 
Page 







DECLARATIONS 

QUEUE I/O REQUEST 

COMPLETE I/O OPERATION 

QUEUE I/O PACKET TO DRIVER 

EXESALTQUEPKT - Call driver ALTSTART entry point 

QUEUE I/O PACKET TO ACP 

INSERT I/O PACKET IN UNIT QUEUE 

INSERT I/O PACKET IN QUEUE BY PRIORITY 



Z2-ENSAA-7.0 

Q10REQ 

O1-02 

DS5.4 
02 
02 
-2 



DS5.4 
-1 



*** Q10REQ handle QIO <?quest 

*** QK/EQ handle QIO request 
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Frame 81 Sequence 2384 
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DS5.4 
DS5.4 
DS5.4 
OSS. 4 
DS5.4 
DS5.4 
DS5.4 
DS5.4 
OS5.4 
0S5.4 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



.1 

.2 

.3 

3 

4 
5 
6 

.1 

8 

9 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
.1 
.2 
.3 
.4 
.5 
.6 
.7 
.8 
.9 
JO 
37 

38 
39 
40 
41 
42 
43 
44 
45 
46 



.TITLE 
.JDENT 
.NLIST 



QIOREQ *** QIOREQ handle QIO request 
/01-02/ 

cm 



i*************************************************************************** 



COPYRIGHT (C) 1977, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



OF ITS * 



+ + 

AUTHOR: 

D. N. CUTLER, 14-JUN-76 
FACILITY: 

SYSTEM SERVICE QUEUE I/O REQUEST 



MODIFIED BY 
DS5.4 



02 

V0208 
V0207 
V0006 



John Ciukaj 5-May-1980 Version 5.4 
Used Vax/Vms version 2.0 SYSQIOREQ.MAR and created 
a UPD file with the edits necessary to reflect the 
changes exhibited in Supervisor version 5.3 module 
QIOREQ. 

Dave Butenhof 30-jun-1980, version 5.5 
Alter some word displacement BSB's to longword displacement 
jSB's, since supervisor has expanded. 

LMK0001 LEN KAWELL 03-OCT-1979 

DISALLOW LOGICAL/PHYSICAL I/O TO A SPOOLED DEVICE UNLESS 
THE PROCESS HAS LOG.IO PRIVILEGE, 

KDMO053 Kathleen D. Morse 31~Aug~1979 

ADD TWO NEW ENTRY POINTS FOR SHARED MEMORY GLOBAL SECTION 

I/O, EXESBLDPKTGSR AND EXESBLDPKTGSW. 



CHP0002 



CAROL PETERS 



14-AUG-1979 



ZZ-ENSAA-7.0 

QIOREQ 

01-02 



*** QIOREQ 



handle QIO rrguest 






*** QIOREQ 


handle QJO 


request 


0000 


47 ; 




0000 


48 ; 






0000 


49 , 






0000 


50 . 




V0005 


0000 


51 , 






0000 


5? , 






0000 


53 ( 




V04 


0000 


54 , 






0000 


55 , 






0000 


56 , 






0000 


57 , 






0000 


58 ( 






0000 


59 ( 




V03 


0000 


60 






cooo 


61 






0000 


6k 




V02 


0000 


63 






0000 


64 






0000 


65 


» — 
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IN EXESALTGUEPKT, IF NO ALTERNATE START 
IS SPECIFIED IN THE DDR, JUST RETURN TO 



I/O ADDRESS 
CALLER. 



ACG0047 ANDREW C. GOLDSTEIN 09-AUG-1979 
ADD ACCESS RIGHTS BLOCK, PROTECTION INTERFACE CHANGES. 

CHP0001 CAROL PETERS 03-AUG-1979 

ADDED NEW ENTRY POINT FOR QUEUING A PACKET TO A DRIVER. 
ENTRY POINT IS STORED IN DDT AND CALLED ALTSTART, ADDED 
SYSGIOREQ ENTRY POINT, EXESALTQUEPKT, WHICH JSBS TO 
THE ALTSTART ENTRY POIN, AND THEN RSBS TO ITS CALLER. 



RIH23909 R. I. HUSTVEDT 
REMOVE SUPERFLUOUS BRANCH FOl LOWING 



14-MAY-1979 
CALL TO SCHSCLREF. 



PHLOO02 P. H, LIPMAN 01-MAY-1978 

REWROTE BUILDPKT FOR SEGMENTED VIRTUAL I/O. 



7Z-ENSAA-7.0 

QiOREQ 

01-02 



DECLARATIONS 



*** QIOREQ handle QJO request 
DECLARATIONS 
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DS5.4 
DS5,4 



0000 67 

0000 68 

0000 69 

0000 70 

0000 71 

0000 72 

0000 73 

0000 74 

0000 75 

0000 76 

0000 77 

0000 78 

0000 79 

0000 80 

COOO 81 

0000 82 

0000 83 

0000 84 

0000 85 

0000 86 

0000 87 

0000 88 

0000 89 

0000 90 

0000 91 

0000 92 

0000 93 

0000 94 

0000 95 

0000 96 

0000 97 

0000 98 

0000 99 

00003004 0000 100 

000C0008 0000 101 

O000O00C 0000 102 

00000010 0000 103 

00000014 0000 104 

00000018 0000 105 

0000001 C 0000 106 

00000020 0000 107 

00000024 0000 108 

00000028 0000 109 

0000002C 0000 110 

00000030 0000 111 

0000 112 

0000 113 

0000 114 

0000 115 

0000 116 

00000000 0000 117 

00000008 0000 118 

00000010 0000 119 

00000000 .1 

0000 ,2 



.SBTTL DECLARATIONS 



MACRO LIBRARY CALLS 



SACBDEF 

SAQBDEF 

SCADEF 

SCCBDEF 

SDDBDEF 

SDDTDEF 

$DYNDEF 

SIPLDEF 

SIRPDEF 

$PCBDEF 

SPHDDEF 

SPRDEF 

SPRIDEF 

$PRVDEF 

SPSLDEF 

SRSNDEF 

SSECDEF 

SUCBDEF 

$VCBDEF 

SWC8DEF 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 



EFN=4 

CHAN=8 

FUNC=12 

I0SB=16 

ASTADR=20 

ASTPRM=24 

P1=28 

P2=32 

P3=36 

P4=40 

P5=44 

P6=48 



DEFINE ACB OFFSETS 

DEFINE AQB OFFSETS 

DEFINE CONDITIONAL ASSEMBLY PARAMETERS 

DEFINE CCB OFFSETS 

DEFINE DDB OFFSETS 

DEFINE DDT OFFSETS 

DEFINE DATA STRUCTURE TYPE CODES 

DEFINE INTERRUPT PRIORITY LEVELS 

DEFINE IRP OFFSETS 

DEFINE PCB OFFSETS 

DEFINE PHD OFFSETS 

DEFINE PROCESSOR REGISTERS 

DEFINE PRIORITY CLASS INCREMENTS 

DEFINE PRIVILEGE BITS 

DEFINE PROCESSOR STATUS FIELDS 

DEFINE RESOURCE WAIT NUMBERS 

DEFINE SEC OFFSETS 

DEFINE UCB OFFSETS 

DEFINE VCB OFFSETS 

DEFINE WINDOW CONTROL BLOCK OFFSETS 



EVENT FLAG NUMBER 
I/O CHANNEL NUMBER 
I/O FUNCTION CODE 
ADDRESS OF I/O STATUS BLOCK 
ADDRESS OF AST SERVICE ROUTINE 
AST SERVICE ROUTINE PARAMETER 
FIRST FUNCTION DEPENDENT PARAMETER 
SECOND FUNCTION DEPENDENT PARAMETER 
THIRD FUNCTION DEPENDENT PARAMETER 
FOURTH FUNCTION DEPENDENT PARAMETER 
FIFTH FUNCTION DEPENDENT PARAMETER 
SIXTH FUNCTION DEPENDENT PARAMETER 



FUNCTION DECISION TABLE OFFSET DEFINITIONS 



LEGALE 

I0TYPE=8 

FDTACT=16 

.PSECT 
MODNAM 



SEP, SHR, 
QIOREQ 



EXE, WRT, LONG 



LEGAL FUNCTION MASK 
I/O FUNCTION TYPE MASK 
ACTION ROUTINE MASKS 



ZZ-ENSAA-7,0 

QIOREQ 

01-02 



QUEUE I/O REQUEST 

*** QIOREQ handle QIO request 
QUEUE I/O REQUEST 



E 10 
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Frame EiO Sequence 2387 
VAX-11 Macro V03-01 Page^ 4 
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0007 


121 


0007 


122 


0007 


123 


0007 


124 


0007 


125 


0007 


126 


0007 


127 


0007 


128 


0007 


129 


0007 


130 


0007 


131 


0007 


132 


0007 


133 


0007 


134 


C007 


135 


0007 


136 


0007 


137 


0007 


138 


0007 


139 


0007 


140 


0007 


141 


0007 


142 


0007 


143 


0007 


144 


0007 


145 


0007 


146 


0007 


147 


0007 


148 


0007 


149 


0007 


150 


0007 


151 


C007 


152 


0007 


153 


0007 


154 


0007 


155 


0007 


156 


C007 


157 


0007 


158 


0007 


159 


0007 


160 


0007 


161 


0007 


162 


0007 


163 


0007 


164 


0007 


165 


0007 


166 


0007 


167 


0007 


168 


0007 


169 


0007 


170 


0007 


171 


0007 


172 


0007 


173 


0007 


174 


0007 


175 


0007 


176 


0007 


177 



.S8TTL QUEUE I/O REQUEST 
EXESQJOREQ - QUEUE I/O REQUEST 

THIS SERVICE PROVIDES THE CAPABILITY TO INITIATE AN I/O OPERATION 
BY QUEUEING A REQUEST TO A DEVICE'S ASSOCIATED DRIVER. ONCE THE 
OPERATION HAS BEEN INITIATED, CONTROL WILL RETURN TO THE CALLER 
WHO CAN SYNCHRONIZE I/O COMPLETION IN ONE OF THREE WAYS: 

1) SPECIFY THE ADDRESS OF AN AST ROUTINE THAT WILL BE 
EXECUTED WHEN THE I/O COMPLETES. 

2) WAIT FOR THE SPECIFIED EVENT FLAG TO BE SET. 

3) POLL THE SPECIFIED I/O STATUS BLOCK FOR A COMPLETION 
STATUS. 

THIS ROUTINE VERIFYS THE FUNCTION INDEPENDENT PARAMETERS, ALLOCATES 
AN I/O REQUEST PACKET, COPIES THE FUNCTION INDEPENDENT PARAMETERS AND 
PROCESS INFORMATION TO THE I/O PACKET, CHECKS ACCESS TO THE DEVICE, 
AND CALLS THE DRIVER'S FUNCTION DECISION TABLE ROUTINE(S) THAT CORRESPOND 
TO THE SPECIFIED FUNCTION. IT IS THEN UP TO THE FDT ROUTINE TO EITHER 
COMPLETE THE REQUEST IMMEDIATELY (EXESABORTIO OR EXESF INISHIO) OR TO 
QUEUE THE I/O REQUEST FOR FURTHER PROCESSING BY THE DRIVER'S STARTIO 
ROUTINE (EXESQIODRVPKT). 

INPUTS: 

EFN(AP) = EVENT FLAG NUMBER. 

CHAN(AP) = I/O CHANNEL NUMBER. 

FUNC(AP) = I/O FUNCTION CODE. 

IOSB(AP) = ADDRESS OF I/O STATUS BLOCK. 

ASTADR(AP) = ADDRESS OF AST SERVICE ROUTINE. 

ASTPRM(AP) = AST SERVICE ROUTINE PARAMETER. 

PKAP) TO P6(AP) = FUNCTION DEPENDENT PARAMETERS. 

R4 s CURRENT PROCESS PCB ADDRESS. 

OUTPUTS: 

ro low bit clear indicates failure to initiate the i/o request. 

ro = ss$_abort - a network logical link was broken. 

ro = ss$ accvio - the i/o status block cannot be written by 
The caller. 

ro = ss$_devoffline - the specified device is offline. 

ro = ss$ exquota - the process has exceeded its buffered i/o 
8u0ta, direct i/o quota, or buffered i/o byte count 
quota and has disabled resource wait mode. or, the 
process has exceeded its ast limit quota. 

ro = sssjllefc - an illegal event flag number was specified. 

ro =: ss$ insfmem - insufficient dynamic memory is available 



ZZ-ENSAA-7.0 

QIOREQ 

01-02 



QUEUE 1/0 REQUEST 

*** QIOREQ handle QJO request 
QUEUE I/O REQUEST 



F 10 
27-JUL-1984 
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Fiche 12 Frame F10 

fc . s,^ ..^ 15:43:33 VAX-11 M u „._ „- rt - 
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DS5.4 
OSS, 4 

DS5.4 
DS5.A 

DS5.4 
DS5.4 
DS5.4 
-3 



00000000'EF 

54 

7E 04 AC 

01 

00000000* 9F 

03 50 

0080 



OFFC 
DE 

9A 
F8 



DS5.4 
DS5.4 
DS5.4 
-3 



50 08 
FF 
56 

73 
55 
59 
5A OC 
FFFFFFFF' 
57 
09 34 A5 
57 

55 54 

50 24 

50 OC 
58 08 
03 58 

58 

28 68 

20 58 A5 

51 10 



AC 

D8' 

51 

50 

66 

52 

AC 

8F 

5A 

00' 

00' 

04 

A* 

A5 

AO 

AO 

10 

50 

57 

04 

AC 

08 



-2 



61 

7E 

58 3A A4 

04 08 A8 57 

5B 3E A4 

52 58 

31 04 A6 



E8 
31 

3C 
30 
DO 
E9 
DO 
DO 
3C 
CB 

E1 
D1 
18 
DO 
DO 
DO 
DO 
EO 
CO 
E1 
E1 
DO 
13 

7C 
DC 
DE 
EO 
DE 
DO 
E9 



0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

C007 

0007 

0007 

0007 

0007 

0009 

OOOF 

0010 

0014 

0016 

0018 

001E 

0021 

0021 

0025 

0028 

002B 

002E 

0031 

0034 

0038 

003E 

0040 

0045 

0048 

004A 

004E 

0052 

0056 

005A 

005E 

0061 

0065 

006A 

006E 

0070 

0076 

0078 

007A 

007E 

0083 

0087 

008A 



178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
1 
2 

3 
4 

5 
6 
7 
199 
200 
201 
202 
203 
204 
205 
206 

207 
208 
209 
210 
211 
212 
.1 
.2 
.3 
216 
217 
218 
219 
220 
221 
222 
221 
22^ 
225 
226 
229 



TO ALLOCATE AN I/O REQUEST PACKET AND THE PROCESS HAS 
DISABLED RESOURCE WAIT MODE. 

RO = SSS.IVCHAN - AN INVALID CHANNEL NUMBER WAS SPECIFIED. 

RO = SS$ NOPRIV - THE SPFCIFIED CHANNEL DOES NOT EXIST OR WAS 
ASSIGNED FROM A MORE PRIVILEGED ACCESS MODE. OR, THE 
PROCESS DOES NOT HAVE THE PRIVILEGE TO PERFORM THE 
SPECIFIED TVPE OF I/O FUNCTION ON THE DEVICE. 

RO = SSS.UNASEFC - UNASSOCJATED EVENT FLAG CLUSTER SPECIFIED. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 

RO = SS$_NORMAL - NORMAL COMPLETION. 



10$: 



15$: 



17$: 



20$: 



30$: 



40$: 



.ENA8L 
.ENTRY 
MOVAL 

M0VZ8L 
CALLS 

BL8S 
BRW 

MOVZWL 

8SBW 

MOVL 

BLBC 

MOVL 

MOVL 

MOVZWL 

BICL3 

BBC 

CMPL 

BGEQ 

MOVL 

MOVL 

MOVL 

MOVL 

BBS 

ADDL 

BBC 

BBC 

MOVL 

BEQL 

IFNOWRT 

CLRQ 

MOVPSL 

MOVAL 

BBS 

MOVAL 

MOVL 

BLBC 



LSB 

VMS$QIO,*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
DS$AX SOFTPCB, R4 ; Get PC8 address into R4 



EFN(AP),-(SP) 
#1,a#SYS$CLREF 

RO, 15$ 

ERROR 

CHAN(AP),RO 

IOC$VERIFYCHAN 

R1,R6 

RO, ERROR 

CCB$L_UCB(R6),R5 

R2 R9 

FUNC(AP),R10 

* A C<IO$M_FCODE>,R10,R7 



;GET EVENT FLAG If 

;CLEAR SPECIFIED EVENT FLAG 

; Event flag cleared OK 
; Didn't work 

GET CHANNEL NUMBER 

VERIFY CHANNEL NUMBER 

SAVE ADDRESS OF CCB 

IF LBC INVALID CHANNEL 

GET ASSIGNED DEVICE UCB ADDRESS 

SAVE CHANNEL INDEX 

GET I/O FUNCTION CODE AND MODIFIERS 

CLEAR ALL BUT I/O FUNCTION CODE 



VIRTUAL I/O FUNCTION? 

IF GEQ NO 

GET INTERMEDIATE DEVICE UCB ADDRESS 

GET ADDRESS OF DDB 

GET ADDRESS OF DDT 

GET ADDRESS OF FDT 

BRANCH IF SUPERVISOR ADDRESS 

CHANGE OFFSET TO ABSOLUTE 

IF CLR, ILLEGAL I/O FUNCTION 



s a #dev$v spl,ucb$l devchar(r5) ,17$ ;if clr, device not spooled 
s a *io$_l0gical,r7 " --. — .— 

17$ 

UCB$L.AMB(R5),R5 

UCB$LJ)DB(R5),R0 

DDB$LJ)DT(RO),RO 

DDT$L FDT(R0),R8 

#16,R8,20$ 

R0,R8 

R7,LEGAL(R8) ,50$ ;jr llh, iulcoml i/v ruwv.:iun 
#UCB$V ONLINE, UCB$WSTS(R5) , 60$ ;IF CLR, DEVICE OFFLINE 

I0SB(AP),R1 " '"" ~*— 

30$ 

#8,(R1),70$ 

(R1) 

-<SP) 

PCB$W BI0CNT(R4).R11 

R7,IOTYPE(R8).40$ 

PC8$W DI0CNT(R4),R11 

R11-R2 

CCB$L WIND(R6),GTPKT 



GET ADDRESS OF I/O STATUS BLOCK 

IF EQL NONE SPECIFIED 

CAN I/O STATUS BLOCK BE WRITTEN? 

CLEAR I/O STATUS BLOCK 

READ CURRENT PSL 

SET FOR BUFFERED I/O FUNCTION 

IF SET, BUFFERED I/O FUNCTION 

SET FOR DIRECT I/O FUNCTION 

SET ADDRESS OF USAGE COUNT WORD 

IF LBC ACCESS/DEACCESS NOT PENDING 



ZZ-ENSAA-7.0 

QIOREG 
01 -Ok 

DS5.4 

-1 



QUEUE I/O REQUEST 

*** QIOREQ handle QIO request 
QUEUE I/O REQUEST 
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6 
(1) 



50 
50 



80 
0000' 8F 

OA 
0000' 8F 

03 
50 00' 



DS5.4 
DS5.4 

-4 

-7 



02 
-1 

02 

-1 



50 

7E 04 AC 

01 

00000000' 9F 

01 



00000000' EF 

08 50 

E2 

00000000* FF 
52 
EC 



8? 



6B 

OA A6 

53 52 

52 08 

005C 8F 





82 OA 




6E 02 16 




62 




52 




82 60 A4 




82 14 AC 


0S5.4 


82 04 A6 


-7 


82 55 




82 5A 




82 04 AC 


DS5.4 


82 


-1 


82 10 AC 




82 59 




04 08 A8 57 




FE A2 01 




62 



-7 



11 
3C 
11 
3C 
11 
3C 

DD 
9A 
FB 

BA 
04 



16 
E8 
11 
OF 

1D 



B7 
B6 
DO 
CO 
BO 
90 
EF 

D6 
DO 
7D 
DO 
DO 
80 
90 
94 
DO 
3C 
E1 
A8 
?C 



57 00' D1 



008E 

0090 

0095 

0097 

009C 

009E 

00A1 

00A4 

00A6 

OOAA 

OOAC 

00B1 

00B3 

00B4 

C0B4 

00B4 

0084 

00B4 

00B4 

OOBA 

OOBD 

OOBF 

00C5 

00C6 

00C8 

00C8 

00C8 

00C8 

00C8 

00C8 

00C8 

OOCA 

OOCD 

OODO 

00D3 

00D8 

OODB 

OODF 

OOEO 

00E2 

00E6 

OOEA 

OOEE 

00F1 

00F4 

00F8 

OOFA 

OOFE 

0101 

0106 

010A 

010C 

010C 

010C 

010C 

010C 

010C 



.1 

231 50$ 

232 

233 60$ 
234 

235 70$ 

236 ERROR: 
237 

.1 
.2 



242 
243 
251 
252 
253 
254 
255 

.1 
257 

258 
.1 



BRB 

MOVZWL 

BR8 

MOVZWL 

BRB 

MOVZWL 

SETIPL 

PUSHL 

MOVZBL 

CALLS 

POPR 
RET 



10$ 

#SS$ ILLIOFUNCRO 

ERROR 

#SS$ DEVOFFLINE,R0 

ERROR 

S A *SS$,ACCVIO,R0 

#0 

RO 

EFN(AP),-(SP> 

n,a#SYS$SETEF 

# A M<RO> 



SET ILLEGAL I/O FUNCTION STATUS 

SET DEVICE OFFLINE STATUS 

SEV ACCESS VIOLATION STATUS 

ALLOW INTERRUPTS 

SAVE FINAL STATUS 

GET SPECIFIED EVENT FLAG 

SET SPECIFIED EVENT FLAG 

RESTORE FINAL STATUS 



ALLOCATE REQUEST I/O PACKET 



ALLOC: JSB L A EXE$ALLOCIRP 

BL8S RO,SUCCES 

BRB ERROR 

GTPKT: REMQUE aL A IOC$GLJRPFL, R2 



260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 

274 
275 
276 

.1 
284 
285 
286 

.1 
288 
289 
290 
291 
292 
300 
301 

m 

303 
304 
305 



BVS 
.DSA8L 



ALLOC 

LSB 



; Allocate I/O request packet 
;IF LBS SUCCESSFUL ALLOCATION 

; Get I/O packet from lookaside list 

;IF VS EMPTY LIST 



BUILD DEVICE INDEPENDENT PART OF I/O PACKET 



SUCCES: 



20$: 



DECW 
INCW 
MOVL 
ADDL 
MOVW 
M0V8 
EXTZV 

INCL 

MOVL 

MOVQ 

MOVL 

MOVL 

MOVW 

M0V8 

CLR8 

MOVL 

MOVZWL 

BBC 

BISW 

CLRQ 



(R11) 

CCB$WJ0C(R6) 
R2,R3 

*IRPSW_SIZE,R2 
#IRP$C_LENGTH,(R2)+ 
#DYN$CJRP,<r2> + 



UPDATE I/O COUNT FOR FUNCTION TYPE 
INCREMENT OUTSTANDING I/O ON CHANNEL 
COPY ADDRESS OF ALLOCATED I/O PACKET 
POINT TO SIZE FIELD 
INSERT LENGTH OF I/O PACKET 
INSERT DATA STRUCTURE TYPE 



#PSL$VlPRVM0D,tfPSL$SJ 3 RVM0D,(SP),(R2) ; INSERT ACCESS MODE 



R2 

PCB$L PID(R4).(R2)+ 

ASTADR(AP),(R2)+ 

CCB$L WIND(R6),(R2>+ 

R5.(R2)+ 

R10,(R2)+ 

EFN(AP),(R2)+ 

CR2> + 

I0SB(AP),(R2)+ 

R9,(R2)+ 

R7,IOTYPE<R8),20$ 

#IRP$M„BUFIO,-2(R2) 

(R2) 



ADJUST PAST ACCESS MODE FIELD 

INSERT PROCESS ID OF CURRENT PROCESS 

INSERT AST ADDRESS AND PARAMETER 

Insert Window address 

INSERT DEVICE UCB ADDRESS 

INSERT I/O FUNCTION CODE 

INSERT EVENT FLAG NUMBER 

INSERT PROCESS BASE PRIORITY 

INSERT I/O STATUS BLOCK ADDRESS 

INSERT CHANNEL INDEX AND ZERO STATUS 

IF CLR, DIRECT I/O FUNCTION 

SET TO BUFFERED I/O FUNCTION 

CLEAR PTE ADDRESS, BYTE OFFSET, AND BYTE 



CO 



CHECK IF REQUESTING PROCESS HAS PRIVILEGE TO ACCESS DEVICE 



ACCESS: CMPL S A 0IO$„WRITEVBLK,R7 



.'POSSIBLY VIRTUAL READ OR WRITE? 



ZZ-ENSAA-7.0 

QIOREQ 

01-02 



QUEUE I/O REQUEST 

*** QIOREQ handle QIO request 
QUEUE I/O REQUEST 
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7 

(1) 



57 
OF 34 A5 



20 

00* 

18 

00 ■ 



1A 
D1 
1F 
E1 



18 



OE 
OC 



34 
34 



A5 
A5 



A3 
11 
00* 
00' 



D5 
12 
E1 
E1 



DS5.4 
DS5.4 
-37 



57 00' 
20 A3 00 • 
03 



C2 
A2 

11 



0064 31 



57 

0100 

2A 

59 30 



-1 



02 
-1 



51 
51 
51 



24 

OC 
14 



00000000 

00 
44 A3 
82 OC 
62 

0080 
2A 



00* 
39 

8F 
A3 
AC 
20 
A5 
A1 
A1 
1F 
53 
•EF 
53 
50 
52 
A2 
59 
8F 
A3 



D1 
19 
A8 

DO 
13 
DO 
DO 
3C 
13 
DD 
16 
8ED0 
E9 
DO 
9E 
DO 
A8 



-4 



08 A3 



10 A3 

05 

40 Sf 



D5 
13 
88 



010F 

0111 

0114 

0116 

0118 

0118 

011B 

011B 

011B 

0118 

01 1 E 

0120 

0125 

01 2A 

C12A 

01 2A 

01 2A 

012A 

01 2A 

012D 

0131 

0133 

0133 

0136 

0136 

0136 

0136 

0136 

0136 

0139 

01 38 

013F 

0141 

0145 

0147 

014B 

014F 

0153 

0155 

0157 

015D 

0160 

0163 

0167 

0168 

016E 

0172 

0174 

0174 

0174 

0174 

0174 

0174 

0177 

0179 

017E 

017E 



15$ ;IF 6TRU NO 

S A #10$ READVBLK,R7 /VIRTUAL READ OR WRITE? 

15$ " ;IF LSSU NO 

S A *DEV$V_F0D,UCB$L_DEVCHAR(R5),5$ ;IF CLR, NOT FILE DEVICE 



THE FOLLOWING TEST IS NECESSITATED BY THE SYSTEM INITIALIZATION SEQUENCE 



IRP$L WIND(R3) ;WINDOW ADDRESS SPECIFIED? 

15$ " ;IF NEQ YES 

S A *DEV$V MNT,UCB$L DEVCHAR(R5) ,60$ ;IF CLR, DEVICE NOT MOUNTED 

S A *DEV$V~FOR,UCB$L"DEVCHAR(R5),80$ ;lf CLR, MOUNTED STRUCTURED 



CONVERT VIRTUAL READ/WRITE FUNCTION TO ITS LOGICAL COUNTERPART 



5$: 

15$ 
60$ 
70$ 



SU8L 
SUBW 
BR8 

BRW 



S A *IO$ READVBLK-IO$ READLBLK,R7 -CONVERT TO LOGICAL FUNCTION 
S A #IO$"READVBLK-I0$:READLBLK,IRP$W,_FUNC(R3> ; 



Don't care about VIRTUAL/LOG/PHYS rights 



EXE$A80RTI0 



306 BGTRU 

307 CMPL 

308 BLSSU 

309 BBC 
310 
311 
312 
313 
314 

315 TSTL 

316 BNEQ 

317 B8C 

318 BBC 
319 
320 
321 
322 
323 
324 
325 

.1 

.2 
363 
364 
365 
366 
367 
368 

369 80$: 
370 
371 

372 
373 
375 
376 
37/ 
378 
379 
1 

381 
382 
383 
384 
385 
386 

387 

388 ; 

389 ; CHECK U AST IS SPECIFIED 

390 ; 
391 

392 90$: TSTL IRP$L AST(R3) ;AST ADDRESS SPECIFIED? 

393 BEQL 100$ " ;IF EQL NO 

398 BISB 4ACB$M.QU0TA,IRP$B_RM0D(R3) ;SET AST QUOTA UPDATE FLAG 

399 

400 ; 



PROCESS HAS ACCESS TO DEVICE 



CMPL S*#IO$ PHYSICAL, R7 ;LOGICAL OR VIRTUAL I/O FUNCTION? 

BLSS 90$ " ;IF LSS YES 

BISW #IRP$M PHYSIO, IRP$W_STS(R3) ;SET PHYSICAL I/O FLAG 



MOVL 

BEQL 

MOVL 

MOVL 

M0V2WL 

BEQL 

PUSHL 

J SB 

POPL 

BLBC 

MOVL 

MOVAB 

MOVL 

BISW 



P6(AP),R9 

90$ 

UCB$L^,DDB(R5),R1 

DDB$L_DDT(R1),R1 

DDT$W DIAGBUF(R1),R1 

90$ " 

R3 

L A EXE$ALLOC8UF 

R3 

R0,70$ 

R2,IRP$L DIAGBUF(R3) 

12(R2) ( (R2)+ 

R9 (R2) 
#lfip$M - DIAGBUF,IRP$W, 



GET ADDRESS 
IF EQL NONE 
GET ADDRESS 
GET ADDRESS 
GET SIZE OF 



OF DIAGNOSTIC BUFFER 

SPECIFIED 

OF DDB 

OF DDT 

DIAGNOSTIC BUFFER 
IF EQL NO DIAGNOSTIC FUNCTIONS 
SAVE I/O PACKET ADDRESS 
Allocate diagnostic buffer 
RETRIEVE I/O PALKET ADDRESS 
IF LBC ALLOCATION FAILURE 
SAVE ADDRESS OF DIAGNOSTIC BUFFER 
SET POINTER TO DATA AREA 
SAVE USER ADDRESS OF DIAGNOSTIC BUFFER 
STS(R3) ;SET DIAGNOSTIC BUFFER PRESENT 



ZZ-ENSAA-7.0 
Q I OREO 
01-02 



QUEUE I/O REQUEST 

*** QIOREQ handle QIO request 
QUEUE I/O REQUEST 
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8 
(1) 



DS5.4 
D55.4 
DS5.4 
-3 



58 04 CO 

5C 1C CO 

58 OC CO 

F9 68 57 E1 

50 08 A8 DO 

03 50 10 EO 

50 58 CO 

60 16 

EA 11 



017E 

01 7E 

017E 

01 7E 

01 7E 

01 7E 

017E 

017E 

017E 

017E 

01 7E 

01 7E 

017E 

017E 

C17E 

01 7E 

01 7E 

01 7E 

0181 

0184 

0187 

01 88 

018F 

0193 

0196 

0198 



401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
.1 
.2 
.3 
425 
426 



SCAN FUNCTION DECISION TABLE CALLING EACH SELECTED ACTION ROUTINE WITH: 

RO - SCRATCH. 

R1 = SCRATCH. 

R2 s SCRATCH 

R3 = ADDRESS*OF I/O REQUEST PACKET, 

R4 - CURRENT PROCESS PCS ADDRESS. 

R5 = ASSIGNED DEVICE UC8 ADDRESS. 

R6 = ADDRESS OF CCB. 

R7 = I/O FUNCTION CODE BIT NUMBER. 

R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 

R9 = SCRATCH, 

R10 = SCRATCH. 

R11 = SCRATCH 

AP = ADDRESS* OF FJRST FUNCTION DEPENDENT PARAMETER. 



100$: 
110$: 



120$: 



ADDL *FDTACT-12,R8 

ADDL #P1,AP 

ADDL *12,R8 

BBC R7,<R8),110$ 

MOVL 8<R8),R0 

BBS #16,R0,120$ 

ADDL R8.R0 

JSB (RO) 

BR8 110$ 



POINT TO ACTION ROUTINE MASKS 

POINT TO FIRST FUNCTION DEPENDENT PARAMETER 

POINT TO NEXT FUNCTION MASK 

I? CLR, THFN ACTION NOT SELECTED 

GET ADDRESS OF ACTION ROUTINE 

BRANCH IF ABSOLUTE SUPERVISOR ADDR 

CHANGE OFFSET TO ABSOLUTE 

CALL ACTION ROUTINE 



7Z-ENSAA-7.0 

QIOREQ 

01-02 



COMPLETE I/O OPERATION 

*** QIOREQ handle QJO request 
COMPLETE I/O OPERATION 
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9 
(1) 



11 OB A3 



24 

38 



A3 
06 
A4 
OC 



D4 
E5 
B6 
11 



51 D4 



60 



DS5,4 
-1 



,. A5 

34 A3 50 

50 00 1 

63 

OOOOOOOO 1 Ff 

42 



D6 
70 
3C 
OE 

12 



3D 11 



01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
019A 
01 9A 
01 9A 
01 9A 
01 9A 
C19A 
019A 
019A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
019A 
01 9A 
01 9A 
019A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
01 9A 
019D 
01A2 
01A5 
01A7 
01A7 
01A9 
01A9 
01AC 
01B0 
01B3 
0165 
018A 
01BC 
01BF 
01C1 



548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
59? 
593 
.1 

595 
596 
597 
598 



♦SBTTL COMPLETE I/O OPERATION 

* 

EXESABORTIO - ABORT I/O OPERATION 

THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
TO FINISH AN I/O OPERATION WITHOUT RETURNING THE FINAL I/O STATUS, 

EXESFINISHIO - FINISH I/O OPERATION 

THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
TO FINISH AN I/O OPERATION AND RETURN THE FINAL I/O STATUS. 

EXESFINISHIOC - FINISH I/O OPERATION WITH SECOND I/O STATUS LONGWORD CLEARED 

THIS ROUTINE IS JUMPED TO FROM A FUNCTION DESCISION TABLE ACTION ROUTINE 
TO FINISH AN I/O OPERATION AND RETURN THE FINAL I/O STATUS WITH THE 
SECOND I/O STATUS LONGWORD CLEARED. 



INPUTS: 



RO = FIRST LONGWORD OF FINAL I/O STATUS. 
R1 = SECOND LONGWORD OF FINAL I/O STATUS 
R3 = ADDRESS OF I/O REQUEST PACKET. 
R4 = CURRENT PROCESS PCB ADDRESS. 
R5 = UCB ADDRESS OF DEVICE UNIT. 



OUTPUTS: 



THE FINAL I/O STATUS IS STORED IN THE I/O PACKET AND THE PACKET IS 
INSERTED IN THE I/O POST PROCESSING QUEUE. A SOFTWARE INTERRUPT 
IS GENERATED TO INITIATE I/O POST PROCESSING AND THE FIRST WORD 
OF THE FINAL I/O STATUS IS RETURNED AS THE SERVICE STATUS. 



.ENA8L 

EXESABORTIO:: 
CLRL 
B8CC 
INCW 
BRB 

EXE$FINISHIOC: 
CLRL 

EXESFINISHIO:: 
INCL 
MOVQ 
MOVZWL 

10$: INSQUE 



LSB 

IRPSL J0SB(R3) 
#ACB$7 QUOTA, IRPSB. 
PCBSW XSTCNT(R4) 
10$ 

R1 

UCB$L 0PCNHR5) 

R0,IRP$LJ1EDIA(R3> 
S A #SS$ NORMAL, RO 
(R3>,alOC$GL PSBL 



BNEQ QIORETURN 
SOFTINT *IPL$.IOP0ST 
BRB QIORETURN 
.DSA8L LSB 



;ABORT I/O OPERATION 
;CLEAR ADDRESS OF I/O STATUS BLOCK 
RM0D<R3),10$ ;IF CLR, NO AST SPECIFIED 
;UPDATE AVAILABLE AST QUEUE ENTRIES 

•FINISH I/O OPERATION CLEAR SECOND LONGWORD 

; CLEAR SECOND I/O STATUS LONGWORD 

/FINISH I/O OPERATION 

; INCREMENT OPERATIONS COMPLETED 

.'STORE FINAL I/O STATUS 

;SET NORMAL COMPLETION STATUS 

;INSEPJ I/O PACKET IN POST PROCESS QUEUE 

;IF NEQ NOT FIRST ENTRY IN QUEUE 
/INITIATE SOFTWARE INTERRUPT 



ZZ-ENSAA-7.0 

QIOREQ 
01-02 



QUEUE I/O PACKET TO DRIVER 

*** QIOREQ handle QIO request 
QUEUE I/O PACKET TO DRIVER 



K 10 
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7-JUL-1984 
9-MAY-1980 
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3F 
34 



10 
11 



01C1 
01C1 
QUI 
01 C1 
01C1 
01 CI 
OKI 
01C1 
01C1 
OKI 
01C1 
01C1 
OKI 
01C1 
C1C1 
01C1 
01C1 
01C1 
01C1 
01C1 
01C1 
01C3 



600 
601 

603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6H 
615 
616 
617 
618 
619 
620 
621 



.SBTTL QUEUE I/O PACKET TO DRIVER 

EXESQIODRVPKT - QUEUE I/O PACKET TO DRIVER 

THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
TO QUEUE AN I/O PACKET TO THE APPROPRIATE DRIVER. 



INPUTS: 



R3 = ADDRESS OF I/O REQUEST PACKET. 
R4 = CURRENT PROCESS PCB ADDRESS. 
R5 - UCB ADDRESS OF DEVICE UNIT. 



OUTPUTS: 



THE I/O PACKET IS QUEUED BY PRIORITY IN THE APPROPRIATE DEVICE 
QUEUE AND A NORMAL COMPLETION STATUS IS RETURNED. 



EXESQIODRVPKT;: 

BSB8 EXESINSiOQ 
8R8 EXESQIORETURN 



;QUEUE I/O PACKET 

; INSERT I/O PACKET IN DEVICE QUEUE 



2Z-ENSAA-7.0 

QIOREQ 
01-02 



EXESALTQUEPKT - Call driver ALTSTAPT ent 

*** QIOREQ handle QIO request 
EXESALTGUEPKT - Call driver ALTSTART 



L 10 
27-JUL-1984 



ent 



7-JUL-1984 
9-MAY-1980 



Fiche 12 
15:43:33 

14:49:45 



Frame L10 Seguence 2594 
VAX-11 Macro V03-0T Page 11 
DMA1:CSYSO.SYSMAINT3QIOREQ.MAR;70 (1) 



OSS. 4 
DS5.4 
DS5.4 
DS5.4 
-5 



50 
50 
51 

03 



24 

OC 
1C 



51 
51 



A5 
AO 
AO 
09 
10 
50 



DO 
DO 
DO 
13 
EO 
CO 



61 16 



05 



01C5 
01C5 
0U5 

01C5 

01C5 

01C5 

0U5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

C1C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

01C5 

OK. 

01C5 

01CC 

01D0 

01D4 

01D8 

01 DA 

01DE 

01E1 

01E1 

01E1 

01E1 

01E3 

01E3 

01E3 

01E6 



623 
624 

626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
.1 
.2 
,3 
.4 
660 
661 
662 
663 
664 
665 
666 
667 



.SBTTL EXEJALTQUEPKT - Call driver ALTSTART entry point 

EXESALTQUEPKT - activates a driver at its ALTSTART entry point 
Routine description: 

Locates and calls a driver entry point supplied as an alternate 
START I/O entry point, Does not test for unit busy before the 
call. Exits by returning to caller. 

The routine expects to gain control at or below driver fork 
level. The routine raises to driver fork IPL before the call, 
and restores the previous IPL before returning to its caller. 



Inputs: 



R3 
R5 



- address of packet or buffer 

- address of UCB 



Outputs: 

Control returns to the requesting process. 
The routine destroys R0-R1 . 



EXESALTQUEPKT: 
DS8INT 
MOVL 
MOVL 
MOVL 
BEQL 
BBS 
ADDL 



10$: 
20$: 



JSB 



ENBJNT 
RSB 



UCB$BJIPL(R5) 

UCB$L_DD8(R5),R0 

DDB$LJ>DT(R0),R0 

DDT$L_ALTSTART(R0),R1 

20$ 

*16,R1,10$ 

R0,R1 



(R1) 



DDB. 
DDT. 



Start 1/0 in driver. 

Raise to fork IPL. 

Get address of unit's 

Get address of unit's 

Get start offset 

Branch if no alternate entry point 

Branch if supervisor absolute 

Make relative to DDT 

address. 



Go to the driver entry point 



Reenable interrupts. 
Return to caller. 



ZZ-ENSAA-7.0 

QIOREQ 

01-02 



QUEUE I/O PACKET TO ACP 

*** QIOREQ handle QIO request 
QUEUE I/O PACKET TO ACP 
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12 
(1) 



-7 



50 0000*8F 3C 



04 



01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
C1E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01E7 
01F9 
01F9 
01FE 
01FE 
0201 



669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

699 

700 

701 

702 

703 

704 



♦S8TTL QUEUE I/O PACKET TO ACP 

EXESQIOACPPKT - QUEUE I/O PACKET TO ACP 

THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
TO QUEUE AN I/O PACKET TO THE APPROPRIATE ACP. 

INPUTS: 

R3 = ADDRESS OF I/O REQUEST PACKET. 
R4 = CURRENT PROCESS PCS ADDRESS. 
R5 = UCB ADDRESS OF DEVICE UNIT. 

CURRENT IPL MUST BE AT SYNCH OR HIGHER LEVEL. 

OUTPUTS: 

THE I/O PACKET IS QUEUED AT THE END OF THE APPROPRIATE ACP QUEUE 
AND A NORMAL COMPLETION STATUS IS RETURNED. 



EXESQIOACPPKT:: 

8U6.CHECK NONEXSTACP 
EXESQIORETURN: 



MOVZWL 
QIORETURN: 

SETIPL 
RET 



*SS$JJORMAL,RO 
*0 



QUEUE I/O PACKET TO ACP 

NONEXISTENT ACP PROCESS 

QUEUE I/O REQUEST COMPLETION STATUS RETURN 

SET NORMAL COMPLETION STATUS 

RETURN SPECIFIED STATUS 

ALLOW ALL INTERRUPTS 



7Z-ENSAA-7.0 

CIOREQ 

01-02 



INSERT I/O PACKET IN UNIT QUEUE 

*** QIOREQ handle 
INSERT I/O PACKET 



QJO request 
IN UNIT QUEUE 



N 10 
27-JUL-1984 Fiche 12 
27-JUL-1984 15:^3:33 
29-MAY-1980 14:49:45 
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05 58 A5 



52 



08 

FDEF 

06 

40 A5 

04 



E2 
30 
11 
DE 
10 

05 



0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
0202 
C202 
0209 
020E 
0211 
0213 
0217 
0219 
021C 



706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
•25 
726 
727 



.S8TTL INSERT I/O PACKET IN UNIT QUEUE 

EXESJNSIOQ - INSERT I/O PACKET IN UNIT QUEUE 

THIS ROUTINE IS CALLED TO INSERT AN I/O PACKET IN A UNIT Ql~'rt= AND CALL 
THE APPROPRIATE I/O DRIVER IF THE UNIT IS NOT BUSY. 



INPUTS; 



i»3 = ADDRESS OF I/O REQUEST PACKET. 
R5 = UCB ADDRESS OF DEVICE UNIT, 



EXESJNSIOQ.*: 

DSBINT 
BBSS 
BSBW 
BRB 

10$: MOVAL 
BSB8 

20$: EN8INT 
RS8 



UCBSB FJPLCR5) 

#UCb$V BSY,UCB$W„STS(R5) 

IOCSINTTJATE 

20$ 

UCBSL J0QFL(R5),K2 

EXESjfiSERTJRP 



INSERT IN I/O QUEUE 

RAISE IPL TO FORK LEVEL 

10$ ;IF SET, THEN DEVICE IS BUSY 

INITIATE I/O FUNCTION 

GET ADDRESS OF I/O QUEUE LISTHEAD 
INSERT I/O PACKET IN DEVICE QUEUE 
ENABLE INTERRUPTS 



ZZ-ENSAA-7.0 

QiOREQ 

01-02 



INSERT 1/0 



51 

51 Q4 

51 

23 41 23 

61 



PACKET IN QUEUE 
*** QIOREQ 
INSERT I/O 

021D 
021D 
021D 
021D 
0210 
021 D 
021D 
021D 
0210 
021D 
021D 
021D 
021D 
0210 
C210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
021D 
0210 
0210 
52 DO 0210 
A1 DO 0220 
52 01 022A 
07 13 0227 
A3 91 0229 
fO IF 022E 
63 OE 0230 
05 0233 
0234 
0234 



8 11 

27-JUL-1984 



BY PRIORITY 

handle 010 request 

PACKET IN QUEUE BY PRIORITY 



M 



7-JUL-1984 

'9-MAY-1980 



he 12 

15:43:33 

14:49:45 
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729 
730 
731 

732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 

746 
747 

748 
749 
750 
751 
752 
753 
754 
755 

756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 



.S8TTL INSERT I/O PACKET IN QUEUE BY PRIORITY 

EXESINSERTIRP - INSERT I/O PACKET IN QUEUE BY PRIORITY 

THIS ROUTINE IS CALLED TO INSERT AN I/O PACKET IN A SPECIFIED Q[)BUB BY 
PRIORITY. 



INPUTS: 



R2 - ADDRESS OF QUEUE LISTHEAD. 
R3 = ADDRESS OF I/O PACKET. 



CURRENT IPL MUST BE THE FORK LEVEL OF THE RESPECTIVE DRIVER PROCESS 
OR HIGHER. 



OUTPUTS: 



THE I/O PACKET IS INSERTED IN THE SPECIFIED QUEUE BY PRIORITY AND 
THE 'Z' CONDITION CODE IS RETURNED TO THE CALLER. 

% V = 1 - ENTRY WAS FIRST ENTRY IN THE QUEUE, 

, Z I = = ENTRIES WERE ALREADY IN THE QUEUE, 

R2 AND R3 ARE PRESERVED ACROSS THE CALL, 



EXESINSERTIRP: 
MOVL 



10$: 



20$: 



MOVL 

CMPL 

BEQL 

CMP8 

BLSSU 

INSQUE 

RSB 

♦ END 



INSERT I/O PACKET IN QUEUE BY PRIORITY 

COPY LISTHEAD ADDRESS 

GET ADDRESS OF NEXT ENTRY 

END OF QUEUE? 
,IF EOL YES 
IRP$B PRI(R3),JRP$B PRKR1) ;NCW ENTRY PRIORITY GREATER? 
10$ " " ;JF LSS YES 

IRPSL I0QFL(R3),IRP$LJ0QFL(R1) ; INSERT PACKET IN I/O QUEUE 



R2,R1 

IRPSL I0QBL<R1>,R1 

R2 X R1~ 

20i 



j 



7Z-ENSAA-7.0 
QIOREQ 
Symbol table 

SER 

tMODULE 

ACB$8 RMOD 

ACB$B~TYPE 

ACBSClLENGTH 

ACB$K,LENGTH 

ACBSL AST 

ACBSL ASTPRM 

ACBtLlASTQBl 

ACBSL ASTQFL 

ACB$L~KAST 

AC8$L_P1D 

ACBSM QUOTA 

ACB$V~GUOTA 

ACBSW'SIZE 

ACCESS 

ALLOC 

ASTADR 

ASTPRM 

BUGSCHECK 

CCBSB.AMOO 

CCBSB.STS 

CCBSC.LENGTH 

CCB$K_LENGTH 

CCB$L_DIRP 

CCBSL UCB 

CCBSLlWIND 

CCBSW^IOC 

CHAN 

DDBSB ACPCLASS 

DDB$B_TYPE 

DOBSC LENGTH 

DDB$KlLENGTH 

DDB$L_ACPD 

ODB$L DDT 

OOBSLlLINK 

DDB$LJJCB 

DDBST DRVNAME 

DDB$T~NAME 

DDBSvfSIZE 

DDT$L ALTSTART 

DDT$L^CANCEL 

DDT$L„FDT 

DDT$L REGDUMP 

DDTSLlSTART 

DDTSL UNITJNIT 

DDT$L w UNSOLINT 

DDT$W„DIAGBUF 

DDT$W_ERRORBUF 

DEV$V_FOD 

DEVSV.FOR 

DEV$V MNT 

DEVSV^SPL 

DSSAX^SOFTPCB 

DYN$C IRP 

EFN 

ERROR 



Symbol table 



*** QIOREQ handle QIO request 
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00000001 
00000000 
00000008 
OOOOOOOA 
00000018 
00000018 
00000010 
00000014 
OOOOOOOA 
00000000 
00000018 
OOOOOOOC 
00000040 
00000006 
00000008 

0000010C 
00000084 
00000014 
00000018 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



02 



02 
02 



******** x 02 

00000009 D 
00000008 D 

00000010 D 
00000010 D 
OOOOOOOC D 
00000000 D 
00000004 D 
OOOOOOOA D 
00000008 D 

00000013 D 
OOOOOOOA D 
00000034 D 
00000034 D 
00000010 D 
OOOOOOOC D 
00000000 D 
00000004 D 
00000024 D 

00000014 D 
00000008 D 
0000001 C D 
OOOOOOOC D 
00000008 D 
00000010 D 
OOOOOOOQ D 
00000018 D 
00000004 D 
00000014 D 
00000016 D 
******** x 02 
******** x 02 
******** x 02 
******** x 02 
******** x 02 
OOOOOOOA D 
00000004 D 
000000A1 R D 02 



EXESABORTIO 

EXESALLOCBUF 

EXESALLOCIRP 

EXESALTQUEPKT 

EXESFINISHIO 

EXESFINISHJOC 

EXESINSERTIRP 

EXE$1NSI0Q 

EXE$Q10ACPPKT 

EXESQIODRVPKT 

EXE$QI0RETURN 

FDTACT 

FUNC 

GTPKT 

IO$M FCODE 

J0$„C0G1CAL 

I0S..PHYSICAL 

10$ READLBLK 

10$ READVBLK 

10$ WRITEVBLK 

TOClGLJRPFL 

IOCSGL PSBL 

lOCSINTT JATE 

JOCSVERIFYCHAN 

J0S8 

JOTYPE 

JPt$ IOPOST 

JRP$B CARCON 

IRP$8„EPN 

IRP$BlPRI 

IRP$B.RM0D 

!RP$B TYPE 

IRPSC'LENGTH 

IRPSK LENGTH 

1RP$L ARB 

IRP$LlAST 

IfiP$L ASTPRM 

IRP$LlDIAGBUF 

JRP$L EXTEND 

IRP$LllOQBL 

IRP$LJOQFL 

IRP$L IOSB 

IRP$LJ0ST1 

IRP$lIlOST2 

IRPSL..MEDIA 

IRPk^PID 

IRP$L.SEGVBN 

IRP$L.SEQNUM 

JRP$L„SVAPTE 

IRP$LZTT TERM 

IRP$L„UCB 

irp$l wind 
jrp$m;bufio 
jrp$m diagbuf 
irp$m.physi0 

JRP$Q NT PRVMSX 
iRPSWiABCNT 



000001 9A 

******** 

******** 

000001C5 
000001A9 
000001A7 
0000021 D 
00000202 
000001E7 
000001 CI 
000001F9 
00000010 
OOOOOOOC 
OOOOOOBf 



**** 
**** 
ft*** 
**** 
**** 
**** 
**** 
**** 
**** 



**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 



******** 

00000010 
00000008 
00000004 
00000038 

mm 
vm 

O000O05C 
Q000005C 
000QOQ5O 
00000010 
00000014 
OO00QQA4 
0000004 C 
00000004 
00000000 
00000024 
I00O034 




RG D 02 

X 02 

X 02 

RG D 02 

R6 D 02 

RG D 02 

RG P 02 

RG D 02 

RG D 02 

RG D 02 

RG D 02 

D 

D 

R D 

X 



0000003C 



D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 

D 

D 
D 
D 
D 

D 



02 
02 
02 
02 
02 
02 

°? 
02 

02 

02 
02 
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QIOREQ 
Symbol table 
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IRPSW 

IRPSW~ 

IRPSW" 

IRPSW*" 

IRP$W~ 

IRPSW" 

IRPSW"* 

IRPSW" 

LEGAL" 

P1 

P2 

P3 

P4 

P5 

P6 

PCBSB. 

PCBSB 

PCBSB. 

PCBSB 

pcbsb; 

PCBSB. 

PCBSC 

PCB$< 

PCBSL 

PCBSL. 

PCBSL 

PCBSL. 

PCBSL, 

PCBSL, 

PCBSL, 

PCBSL. 

PCBSL 

PCBSL. 

PCBSL. 

PCBSL. 

PCBSL 

PCBSL 

pcbsl; 

PCBSL, 
PCBSL. 
PCBSL 
PCBSL, 
PCBSL, 
PCBSQ 
PCBST, 
PCBST 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 
PCBSW 



BCNT 

BOFF 

CHAN 

FUNC 

OBCNT 

SIZE 

STS 

TT PRMPT 



ASTACT 
ASTEN 
PRi 
PRIB 
TYPE 
WEFC 
LENGTH 
LENGTH 
ARB 
ASTQBL 
ASTQFL 
EFC2P 
EFC3P 
,EFCS 
EFCU 
'EFWM 
[JIB 
OWNER 
PHD 

'PHYPCB 
*PID 
"PQB 
'SQBL 
SQFL 
STS 
'UK 
WSSWP 
*WTIME 
'PR IV 
iLNAME 
TERMINAL 
'APTCNT 
'ASTCNT 
"BIOCNT 
.BIOLM 
DIOCNT 
.DIOLM 
GPGCNT 

;grp 

' MEM 
"MTXCNT 
PPGCNT 



00000032 

00000030 

00000028 

00000020 

0000003E 

00000008 

0000002A 

0000003C 

00000000 

0000001 c 

00000020 

00000024 

00000028 

0000002C 

00000030 

OOOOOOOC 

OOOOOOOD 

0000000B 

0000002F 

0000000A 

0000002E 

0000008C 

0000008C 

00000084 

00000014 

00000010 

00000058 

0000005C 

00000050 

00000054 

0000004C 

00000078 

0000001 C 

00000064 

00000018 

00000060 

0000004C 

00000004 

00000000 

00000024 

00000088 

00000020 

00000028 

0000007C 

00000068 

00000044 

00000030 

00000038 

0000003A 

0000003C 

0000003E 

00000040 

00000034 

0000008A 

00000088 

OOOOOOOE 

00000036 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 





D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 









D 

D 

D 



PCBSW PRCCNT 

PCBSW.SIZE 

PCBSW STATE 

PC8$W"TMBU 

PRSjPL 

PRS SIRR 

PSLlS PRVMOD 

PSLSV'PRVMOD 

QIORETURN 

SJZ... 

SSS ACCVIO 

SSS.DEV0FFL1NE 

SSSJLLIOFUNC 

SSS NORMAL 

SUCtES 

SYSSCLREF 

SYSSSETEF 

UC8SB AMOD 

UCBSB CEX 

UCBSB^CMI 

UC8SB.CM2 

UCBSB DEVCLASS 

UCB$B„DEVTYPE 

UCB$B_DIPL 

UC8SB.DX SCTCNT 

UC8SB.ERTCNT 

UCBSBJRTMAX 

UC8SB_FEX 

UC8SBJ1PL 

UC8$B_L0CSRV 

UCBSB.OFFNDX 

UCBSB OFFRTC 

UCBSB^REMSRV 

UCBSB^SECTORS 

UCBSB^SLAVE 

UC8SB,SPR 

UCBSB^STATE 

UCBSB^TRACKS 

UCBSB TTJRFILL 

UCBSBJTJ)ECRF 

UCB$B_TT,DELFF 

UCBSB.TT.DESPEE 

UC8SB_TTJ)ETYPE 

UCBSB.TT.LFFILL 

UCB$B_TT SPEED 

UCBSB TYPE 

UC8SB.VERTSZ 

UCBSC^LENGTH 

UC8$C„M8J.ENGTH 

UC8SCZTT LENGTH 

UC8SK LEflGTH 

UCBSKlMB LENGTH 

UC8SK..TT LENGTH 
UCBSL^AMB 
UC8SL ASTQBL 
UC8SL..ASTQFL 
UCBSL.CPID 



00000042 D 

00000008 D 

0000002 C D 

00000032 D 

00000012 D 

00000014 

00000002 D 

00000016 D 

000001FE R D 

00000001 D 

******** x 

********* x 

******** x 

******** x 

00O000C8 R D 

******** x 

******** x 

00000053 D 
00000077 
0000004A D 
00OO004B D 

00000038 D 

00000039 D 
00000052 D 
00OO00A6 D 

00000070 D 

00000071 D 
00000076 D 
OOOOOOOB D 
0000003C D 

00000094 D 

00000095 D 

0000003D D 

00OO003C D 

00000074 

00000075 D 
00000052 D 
0000003D D 
0000009D D 
0OOO00A1 D 
00OQ00A2 D 
OOQQOOAO D 
00O000A4 D 
00Q0009E D 
0OOQ0O9C D 
OOOOOOOA D 
0000003F D 
0OQQ0074 D 
0QQ00Q9O D 
OQQQOOBC D 
OOQQ0074 D 
00000090 D 
OOOOOOBC D 

00000054 D 
00000010 D 

vm i 



02 

02 
02 
02 
02 
02 
02 
02 
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UCBSL_ 

UCBSL. 

UCB$L 

UCBSLl 

UCBSL. 

UCBSL 

UCBSL 

UCBSLI 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL 

UCB$L 

UCBSL. 

UCBSL 

UCBSL' 

ucb$l; 

UCB$L 

UCBSL. 

UCB$L 

UCBSL" 

UCBSL" 

UCB$L. 

UCBSL. 

UCBSL. 

UCB$L 

UCBSL 

ucbsl; 

UCBSL 

UCB$L 

UCB$L 

UCBSL" 

UCBSL 

UCB$L 

UCB$L' 

ucbsl; 

UCBSL 
UCBSL 
UCBSL 
UCBSL 
UCBSL 
UCBSL 
UCBSL 
UCBST 
UC8SV 
UCBSV 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 
UCBSW 



CR8 

DDB 

DEVCHAR 

DEVDEPEND 

OPC 

DUETIM 

DX BFPNT 

DXlBUF 

OX RXDB 

EMS 

FIRST 

FPC 

FQBL 

FQFL 

FR3 

FR4 

IOQBL 

IOQFL 

IRP 

LINK 

LOGADR 

MAXBLOCK 

MB.MBX 

MB PORT 

mbZrast 

MB.SHB 
MB WAST 
MBlWIOQBL 
MB WIOQFL 
MEPlA 

nt datssb 
nt""intssb 
'opCnt 

'OWNUIC 
PID 

;rqbl 

RQFL 

'SVAPTE 

'SVPN 

'TT DECHAR 

'TT'RDUE 

'TT'RTIMOU 

"VCB 

"PARTNER 

;bsy 

ONLINE 

;bcnt 

BCR 

BOFF 
.BUFQUO 

BYTESTOGO 
"CHARGE 
"CYLINDERS 
"DA 

■j>c 

DEVBUFSIZ 
DEVSTS 



00000020 
00000024 
00000034 
0000003C 
00000080 
0000005C 
0000009C 
00000098 
OOOOOOAO 
00000078 
00000014 
OOOOOOOC 
00000004 

oooooooo 

00000010 

00000014 

00000044 

00000040 

0000004C 

0000002 C 

00000064 

00000084 

0000007C 

0000008C 

00000078 

00000080 

00000074 

00000088 

00000084 

0000008C 

00000074 

00000078 

00000060 

0000001 C 

00000028 

00000004 

00000000 

00000068 

00000064 

000000A8 

0000008C 

00000088 

00000030 

OOOOOOOC 

00000008 

00000004 

0000006E 

00000096 

0000006C 

00000018 

0000003E 

0000004A 

0000003E 

0000008C 

0000008E 

0000003A 

0000005A 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 





D 

D 

D 

D 

D 



P 



UCBSW 

ucesw; 

UC8SW. 
UCBSW. 
UC8SW. 
UC8SW. 
UCBSW. 
UC8SW 

ucesw; 
ucbsw. 

UCBSW. 

ucesw. 

UCBSW 

ucesw 

UCBSW. 
UCBSW. 
UCBSW,. 
UCBSW 

ucesw: 

vcbsb; 

vcbsb. 

VCBSB. 

VCBSB. 

VCBSB. 

VC8SB. 

VCBSB 

VCBSB. 

VCBSB. 

VCBSB. 

VCBSB. 

VCBSB. 

VCBSB. 

VCBSB. 

VCBSB. 

VCB$C ta 

VC8SC 

vcb$c; 

VCBSK. 

VC8SK. 

VCBSK. 

VCBSL. 

VCBSL. 

VCBSL. 

VC8SL 

VC8SL. 

VC8SL. 

VCBSL. 

VC8SL. 

VC8SL_ 

VCBSL 

VC8$L 

VCBSL 

VCBSL 

VC8SL 

VCBSL 

VCBSL 

VCBSL 



01RSEQ 

DSTADDR 
"DX BCR 
.ECT 

EC2 

ERRCNT 
"FUNC 

MB SEED 
"MS5CNT 

MSGMAX 

NT CHAN 
"OFFSET 
"REFC 

SIZE 

SRCADDR 
"STS 
;tt DESJZE 

UNIT 
~VPROT 
"BLOCKFACT 
ICUR RVN 
.EOFBELTA 
.IBMAPSIZE 

IBMAPVBN 
ILRU LIM 

QNAflECNT 

RESFILES 
.SBMAPSIZE 

SBMAPVBN 
"STATUS 
ISTATUS2 

TM 

TYPE 

WINDOW 

COMLEN 

LENGTH 

MRKLEN 

COMLEN 
ILENGTH 
.MRKLEN 
.AQB 
.BLOCKBL 

BLOCKFL 
"CACHE 
ICUR FID 
.FCBBL 
.FCBFL 
„FREE 
IH0ME2LBN 

H0MEL8N 
IIBMAPLBN 

IXHDR2LBN 
IMAXFILES 

MVL 
"QUOCACHE 
"QUOTAFCB 

:rvt 



00000088 


D 


00000018 


D 


00OO00A4 


D 


00000090 


D 


00000092 


D 


00000072 


D 


00OO007E 


D 


OOOOOOOO 


D 


00000016 


D 


00000014 


D 


00O0007C 


D 


00OO008A 


D 


00000050 


D 


00000008 


D 


0OOO001A 


D 


00000058 


D 


00O000A5 


D 


00000048 


D 


0000001 A 


D 


00000052 


D 


00O0002F 


D 


0000004E 


D 


00000038 


D 


0OO00O3A 


D 


00000049 


D 


OOOOOOOB 


D 


0OOO0O4F 


D 


00000039 


D 


0000003B 


D 


OOOOOOOB 


D 


00000053 


D 


00O00O2E 


D 


OOOOOOOA 


D 


00000048 


D 


00000024 


D 


00000064 


D 


OOOOOOOB 


D 


00000024 


D 


00000064 


D 


OOOOOOOB 


D 


00000010 


D 


00000004 


D 


OOOOOOOO 


D 


00000058 


D 


00000024 


D 


00000004 


D 


OOOOOOOO 


D 


00000040 
00000028 


D 


D 


00000024 


D 


00000030 


D 


0OOO0O2C 


D 


00000044 


D 


00000034 


D 


0000005C 


D 


00000054 


D 


00000020 


D 



ZZ-ENSAA-7.0 
QIOREQ 
Symbol table 

VCBSL.SBMAPLBN 

VCBSL START FID 

VCBSL'ST RECORD 

VCB$L~USRLBLAST 

VCBSLJ/PBL 

VCB$L_VPFL 

VCB$L_WCB 

VCBST QNAME 

VCBST VOLNAME 

VCBSW..CLUSTER 

VCBSW.CUR.NUM 

VCBSW_CUR_SEQ 

VCB$W EXTEND 

VCBSWlFILEPROT 

VCB$W MCOUNT 

VCBSVfMODE 

VCBSW PENDERR 

VCBSW^QUOSIZE 

VCBSW RECORDSZ 

VCBSUfRVN 

VCBSW^SIZE 

VCB$W START NUM 

VCBSW~START~SEQ 

VCBSW TRANS 

VMSSQTO 

WCBSBJVCCESS 

WCBSB TYPE 

WCBSCJ.ENGTH 

WCB$C„MAP 

WCBSK LENGTH 

WCB$K"MAP 

WCBSLlFCB 

WCBSL^LBN 

WCBSL ORGUCB 

WCBSL~P1_LBN 

WCB$L"P2 L8N 

WCBSLlPlB 

WCBSL PREVLBN 

WCBSL.RVT 

WCBSL.STVBN 

WCBSL.WLBL 

WCBSL WLFL 

WCBSWlACON 

WCBSW COUNT 

WCB$W NMAP 

WCBSfcTPl. COUNT 

WCBSWIP2 COUNT 

WCBSW PREVCOUNT 

WCBSWlREFCNT 

WCBSW SIZE 



Symbol table 
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00000034 


D 


00000028 


D 


00000030 


D 


00000044 


D 


00000040 


D 


0000003C 


D 


00000038 


D 


OOOOOOOC 


D 


00000014 


D 


0000003C 


D 


00000024 


D 


00000026 


D 


0000003E 


D 


0000004A 


D 


0000C04C 


D 


0000002C 


D 


00000062 


D 


00000060 


D 


00000050 


D 


OOOOO00E 


D 


00000008 


D 


00000028 


D 


0000002A 


D 


OOOOOOOC 


D 


00000007 


*G D 


OOOOOOOB 


D 


00OOOO0A 


D 


00000024 


D 


00000024 


D 


00000024 


D 


00000024 


D 


00000018 


D 


00000002 


D 


00000010 


D 


00000026 


D 


0000002C 


D 


OOOOOOOC 


D 


FFFFFFFC 


D 


0000001 C 


D 


00000020 


D 


00000004 


D 


00000000 


D 


00000014 


D 


00000000 


D 


00000016 


D 


00000024 


D 


0000002A 


D 


FFFFFFFA 


D 


OOOOOOOE 


D 


00000008 


D 



02 
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QIOREQ 
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PSECT name 

. ABS . 

$ABS$ 

SEP 



Allocation 

00000000 ( 
FFFFFFFC ( 
00000234 ( 



+ „„™.. — — «+ 

! Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

OJ 01 ( 1J NOPIC USR 

564.) 02 ( 2.) NOPIC USR 



CON 


ABS 


LCL NOSHR 


NOEXE 


NORD 


NOWRT NOVEC 


BYTE 


CON 


ABS 


LCL NOSHR 


EXE 


RD 


WRT NOVEC 


BYTE 


CON 


REL 


LCL SHR 


EXE 


RD 


WRT NOVEC 


LONG 



ZZ-ENSAA-7.0 

QIOREQ 

Cross reference 
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SYMBOL 

SER 

$M0DULE 

ACBSM QUOTA 

ACB$VlQUOTA 

ACCESS 

ALLOC 

ASTADR 

ASTPRM 

BUGSCHECK 

CCBSLJJCB 

CCB$L WIND 

CCB$W*I0C 

CHAN " 

DD8$L ODT 

DDT$L ALTSTART 

DOTSL'FDT 

DDTSW^DIAGBUF 

DEV$V FOD 

DEV$V FOR 

OEVSV^MNT 

DEV$V,SPL 

DSSAX SOFTPCB 

OYNSC'IRP 

EFN " 

ERROR 

EXESABORTIO 

EXESALLOCBUF 

EXESALLOCIRP 

EXESALTQUEPKT 

EXESFINISHIO 

EXE$FINISHIOC 

EXESINSERTIRP 

EXESINSIOQ 

EXESQIOACPPKT 

EXESQIODRVPKT 

EXESQIORETURN 

FDTACT 

FUNC 

GTPKT 

IO$M FCODE 

IOS COGICAL 

IO$;PHYSICAL 

IOS.READLBLK 

IOS.READVBLK 

10$ .WRITE VBLK 

I0C5GL irpfl 

JOC$GL PS8L 

IOCSINTTIATE 

IOCSVERIFYCHAN 





! Symbol Cross Reference ! 










VALUE 


DEFINITION 


REFERENCES... 










=00000001 


119.2 


(1) 














00000000-R 


119.2 


(1) 














=00000040 






#-398 


(1) 










=00000006 






#-585 


(1) 










000001 OC-R 


305 


(1) 














000Q00B4-R 


255.1 


(1) 


#-260 


(1) 










=00000014 


104 


(1) 


#-276 


(1) 










=00000018 


105 


(1) 














00000000-XR 






699 


(1) 










00000000 






#-203 


(1) 










00000004 






#-229 


(1) 


#-276.1 


(1) 






0000000A 






#-268 


(1) 










=00000008 


101 


(1) 


#-199 


(1) 










oooooooc 






#-212 


(1) 


#-376 


(1) 


#-654 


(1) 


0000001 C 






#-654,1 


(1) 










00000008 






#-212.1 


(1) 










00000014 






#-377 


(1) 










00000000-XR 






#-309 


(1) 










00000000-XR 






#-318 


(1) 










00000000-XR 






#-317 


(1) 










00000000-XR 






#-207 


(1) 










00000000-XR 






195.2 


(1) 










=0OO000OA 






#-272 


(1) 










=00000004 


100 


(1) 


#-195.3 


(1) 


#-237.1 


(1) 


#-286 


(1) 


000000A1-R 


236 


(1) 


#-195.6 
#-258 


(1) 
(1) 


#-202 


(1) 


#-232 


(1) 


000001 9A-R 


583 


(1) 


#-363 


(1) 










00000000-XR 






379.1 


(1) 










00000000-XR 






255.1 


(1) 










000001 C5-R 


651 


(1) 














000001A9-R 


590 


(1) 














000001 A7-R 


588 


(1) 














0000021 D-R 


756 


(1) 


#-725 


(1) 










00000202-R 


719 


(1) 


#-620 


(1) 










000001 E7-R 


691 


(1) 














000001 C1-R 


619 


(1) 














000001 F9-R 


700 


(1) 


#-621 


(1) 










=00000010 


119 


(1) 


#-418 


(1) 










=00000000 


102 


(1) 


#-205 


(1) 










OOOOOOBF-R 


258.1 


(1) 


#-229 


(1) 










00000000-XR 






#-206 


(1) 










00000000-XR 






#-208 


(1) 










00000000-XR 






#-369 


(1) 










00000000-XR 






#-324 


(1) 


#-325 


(1) 






00000000-XR 






#-307 


(1) 


#-324 


(1) 


#-325 


(1) 


00000000-XR 






#-305 


(1) 










00000000-XR 






258.1 


(1) 










00000000-XR 






593.1 


(1) 










00000000-XR 






#-722 


(1) 










00000000-XR 






#-200 


(1) 











#-234 



(1) 



ZZ-ENSAA-7.0 

QIOREQ 

Cross reference 

IOSB 

10TYPE 

IPL$ IOPOoT 

IRP$B PRI 

IRP$B RMOD 

IRPSC^LENGTH 

IRP$L AST 

IRP$L DIAGBUF 

IRPSLJOQBL 

IRPSL IOQFL 

IRP$L~IOSB 

IRP$L MEDIA 

IRPSLJJIND 

IRPSM.BUFIO 

IRP$M^DIAGBUF 

IRP$M PHYSIO 

IRPSW^FUNC 

IRP$W SIZE 

1RP$W_STS 

LEGAL 

P1 

P2 

P3 

P4 

P5 

P6 

PCB$L„PID 

PCB$W ASTCNT 

PCB$W~BIOCNT 

PCB$W DIOCNT 

PRSjPL 

PR$ SIRR 

PSLfS.PRVMOD 

PSL$V PRVMOD 

QIORETURN 

SS$ ACCVIO 

SS$ DEVOFFLINE 

SS$IlLLIOFUNC 

SS$ NORMAL 

SUCtES 

SYSSCLREF 

SYSSSETEF 

UCBSB.FIPL 

UCB$L_AMB 

UCBSL.DDB 

UCB$L DEVCHAR 

UCB$LllOQFL 

UCBSL.OPCNT 

UCB$V_BSY 

UCBSV.ONLINE 

UCB$W STS 

VMSSQTO 



Cross reference 



*** QIOREQ handle QIO request 
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=00000010 
=00000008 
=00000004 

00000023 

00000008 

0000005C 

00000010 

00000044 

00000004 

00000000 

00000024 

00000034 

00000018 
=00000001 
=00000080 
=00000100 

00000020 

00000008 

0000002A 
=00000000 
=0000001 c 
=00000020 
=00000024 
=00000028 
=00000020 
=00000030 

00000060 

00000038 

0000003A 

0000003E 
=00000012 

=00000014 

=00000002 

=00000016 
000001FE-R 
00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 
000000C8-R 
00000000-XR 
00000000-XR 
0000000B 
00000054 
00000024 
00000034 
00000040 
00000060 

=00000008 

=00000004 
00000058 
00000007-R 



103 
118 



(1) 
(1) 



117 
106 
107 

108 
109 
110 
111 



702 



267 



(1) 



(1) 



195.1 (1) 



#-218 
224 
#-596 
#-761 
#-398 
#-271 
#-392 
#-383 
#-758 
763 
#-584 
#-592 
#-315 
#-291 
#-386 
#-371 
#-325 
#-270 
#-371 
216 
#-419 



#-372 
#-275 
#-586 

223 

225 
#-236 
#-720 
#-596 
#-273 
#-273 
#-595 
#-235 
#-233 
#-231 
#-593 
#-257 

195. 

237. 
#-652 
#-210 
#-211 

207 

724 
#-591 
#-721 
#-217 

217 
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VAX-11 Macro V03-O1 Page 21 

DMA1:CSYS0.SYSMAINTDQI0REQ.MAR;70 (1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



#-288 (1) 
290 (1) 



585 



(1) 



#-386 (1) 



#-652 
#-726 



#-597 
#-701 

#-720 

#-375 
309 

721 



(1) 
(1) 



(1) 



(1) 



<1> 

(1) 
(1) 



(1) 



#-666 



(1) 



#-703 <1> 



#-653 
317 



(1) 
(1) 



318 



(1) 



ZZ-ENSAA-7.0 

QIOREQ 

Cross reference 



Cross reference 



*** QIOREQ handle QIO request 



J 11 
27-JUL-1984 Fiche 12 

27-JUL-1984 15:43:33 

29-MAY-1980 14:49:45 



Frame J 1 1 Seguence 2405 
VAX-11 Macro V03-0T Page A 22 
DMA1:CSYSO.SYSMAINTJQ10REQ.MAR;70 (1) 



MACRO 

SACBDEF 

SAQBDEF 

SCADEF 

KCBDEF 

$0DBDEF 

SDDTDEF 

SDEFINI 



SDYNDEF 

SIPLDEF 

SIRPDEF 

SPCBDEF 

SPHDDEF 

SPRDEF 

SPRIDEF 

SPRVDEF 

SPSLDEF 

$RSNDEF 

SSECDEF 

SUCBDEF 

SVCBDEF 

SWCBDEF 

bug check 
dsbTnt 

ENB1NT 

IFNOWRT 

MODNAM 

SETIPL 

SOFTINT 



SIZE 

2 
2 

1 
1 
1 
1 
1 



2 
1 
4 
4 

6 

4 

1 

4 

2 

1 

3 

10 

6 

3 

1 

1 

1 

1 

1 

1 

1 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



DEFINITION 



73 
74 
75 
76 
77 
78 
73 



79 
80 
81 
82 
83 
84 
85 

86 
87 

88 

89 

90 

91 

92 

699 

652 

666 

220 

119.2 

236 

596 



+ —,— -— — + 

! Macros Cross Reference ! 
+ .-.™—- + 

REFERENCES... 



73 


(1) 


74 


(1) 


75 


(1) 


76 


(1) 


77 


(1) 


78 


<1) 


73 


(1) 


78 


(1) 


83 


(1) 


88 


(1) 


79 


(1) 


80 


(1) 


81 


(1) 


82 


(1) 


83 


<1) 


84 


(1) 


85 


(1) 


86 


(1) 


87 


(1) 


88 


(1) 


89 


(1) 


90 


(1) 


91 


(1) 


92 


(1) 


699 


(1) 


652 


(1) 


666 


<1) 


220 


(1) 


119.2 


(1) 


236 


(1) 


596 


(1) 



74 


(1) 


79 


(1) 


84 


(1) 


89 


(1) 



75 


(1) 


80 


(1) 


85 


(1) 


90 


(1) 



76 


(1) 


81 


(1) 


86 


(1) 


91 


(1) 



77 


(1) 


82 


(1) 


87 


(1) 


92 


(1) 



720 
726 



703 



+ «„-. —„...-,—-+ 

! Performance indicators ! 

+ -+ 



(1) 
(1) 



(1) 



Page faults CPU Time 

" ---- 00:0(h00.11 

144 00:00:00.82 

817 00:00:19.61 

00:00:01.60 

160 00:00:04.37 

49 00:00:00.33 

6 00:00:00.02 

51 00:00:00.51 

1266 00:00:27.37 



Elapsed Time 



00:00:00.42 
00:00:02.53 
00:00:33.07 
00:00:03.59 
0:08.10 
0:00,33 
0:00.02 
.0:00:00.75 
00:00:48,88 




The working set limit was 1000 pages. 

103970 bytes (204 pages) of virtual memory were used to buffer the intermediate code. 



K 11 

ZZ-ENSAA-7 Cross reference 27-JUL-1984 Ffche 12 Frame K11 Sequence 2406 

QIOREQ rererence 27-JUL-1984 15:43:33 VAX-11 Macro V03-0? Page 23 

VAX-11 Macro Run Statistics 29-MAY-1980 K:«9:« DMA1 :CSYS0 -SYSMA INT : QIOREQ. MAR; 70 (1) 

There were 60 pages of symbol table space allocated {o hold 1046 non-local and 26 local symbols, 
59? source lines were read in Pass 1, producing object records in Pass 2. 
141 pages of virtual memory were used to define 36 macros. 

+——*—— ™-™— + 

! Macro library statistics I 
f „ ...*...»-.»-+ 

Macro library name Macros defined 

DMA1:CSYS0.SYSMAINT3DS.MLB;218 2 

DMA1:CSYS0.SYSMAINT:DIAG.MLB;953 11 

SYS$SYSR00T:[SYSLIB]LIB.MLB;1 10 

SYS$SYSROOT:CSYSLI8DSTARLET,MLB;2 9 

TOiALS (all libraries) 32 

1523 GETS were required to define 32 macros. 

There were no errors* warnings or information messages. 

MACRO/N00BJECT/UST=rDS.LJS3/CR0SS/ENABLE= (DEBUG. TRACE) Q I0REQ/UPDA=(QI0REQ.UPD, QIOREQ. ENH) +SYSSLIBRARY :LlB/UBRARY+DMA1 ;CSYSQ.SYSMA 



L11 _ iA _ 

ZZ-ENSAA-7.0 *** RELOTDRV relocate I/O driver 27-JUI.-1984 Flche 12 Frame L 1 1 A Seguence dWf 

RELOCDRV *"relOCDRV relocate I/O driver 27-JUL-1 984 15:44:23 VAX-11 Macro V03-01 Page 

Table of contents 

(1) 50 INITIALIZE DRIVER DATA 3ASE 

(1) 79 REINITIALIZE DRIVER DATA BASE 

(1) IK IOIAL SU8R0UTINE TO EXECUTE OPERATION CODE 

(1) 202 LOCAL SUBROUTINE TO LOCATE DATA STRUCTURE TYPE 



ZZ-ENSAA-7.0 

RELOCDRV 

01 

DS5.4 
DS5.4 
DS5.4 
DS5.4 
-2 



DS5.4 
-1 



*** RELOCDRV relocate I/O Jriver . 27' 

*** RELOCDRV relocate I/O driver 



H 11 

•JUL*1984 Fiche 12 
27-JUL-1984 15:44:23 
29-MAY-1980 14:48:41 



Frame M11 Seguence 2408 
VAX* 11 Macro V03-0T Page 1 
DMA1:tSYS0.SYSMAINT3RELOCDRV.MAR;2<1) 



DS5.4 
DS5.4 
DS5.4 
DS5.4 
D55.4 
DS5.4 
DS5.4 



-1 



0000 .1 

0000 .2 

00000000 .3 

0000 .4 

0000 3 

0000 4 

0000 5 

0000 6 

0000 .1 

0000 8 

0000 9 

0000 10 

0000 1 1 

0000 12 

0000 13 

0000 14 

0000 15 

0000 16 

0000 17 

0000 18 

0000 19 

0000 20 

0000 21 

0000 22 

0000 23 

0000 24 

0000 25 

0000 26 

0000 .1 

0000 .2 

0000 .3 

0000 .4 

0000 .5 

0000 .6 

0000 J 

0000 27 

0000 28 

0000 29 

0000 30 

0000 31 

0000 32 

0000 33 

0000 34 

0000 35 

0000 36 

0000 37 

0000 38 

0000 39 

0000 40 

0000 41 

0000 42 

0000 43 

0000 44 

0000 45 

0000 46 

10 09 06 05 0000 48 



*** RELOCDRV relocate 1/0 driver 



.TITLE RELOCDRV 

.JDENT /01/ 

.PSECT SEP, SHR, EXE, WRT, LONG 



**************************** ************** ****************** **************** 



COPYRIGHT <C) 1978, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



ITS 



**************************************************************************** 

D. N. CUTLER 16*JUN-78 

DS5.4 John Clukaj 5-May-1980 Version 5.4 

Used Vax/Vms version 2.0 RELOCDRV, MAR and created 
a UPD file with the edits necessary to reflect the 
changes exhibited in Supervisor version 5,3 module 
RELOCDRV, 

RELOCATE DRIVER DATABASE 
MACRO LIBRARY CALLS 



SCRBDEF 
SDDBDEF 
*DPTDEF 
SDYNDEF 
SIDBDEF 
SUCBDEF 
SVECDEF 



LOCAL DATA 

STRUCTURE TYPE BYTE ARRAY 



DEFINE CRB OFFSETS 

DEFINE DDB OFFSETS 

DEFINE DPT OFFSETS 

DEFINE DATA STRUCTURE TYPES 

DEFINE IDB OFFSETS 

DEFINE UCB OFFSETS 

DEFINE VEC OFFSETS 



STYPE: .BYTE DYN$C_CR3,DYN$C J)DB.DYN$C JDB,DYN$CJJCB ; 



ZZ-ENSAA-7.0 

RELOCDRV 

01 



INITIALIZE DRIVER DATA BASE 

*** RELOCDRV relocate I/O driver 
INITIALIZE DRIVER DATA 8ASE 



N 11 
27-JUL-1984 Fiche 12 
27-JUL-1984 15:44:23 
29-MAY-1980 14:48:41 



Frame N11 
VAX-11 Macro ;03-0f 



Sequence 2409 



VAX-11 Macro .03-01 Page ^ 2 
DMA1:CSYS0,SySMAINT]RELOCDRV.MAR;2<1) 



53 10 



A4 
04 



3C 
11 



0C04 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
C004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0008 



50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 



.SBTTL INITIALIZE DRIVER DATA BASE 
IOCSINITDRV - INITIALIZE DRIVER DATA BASE 



THIS ROUTINE IS CALLED AFTER HAVING LOADED ALL OR PART OF A DEVICE DATA BASE. 
IT MUST BE CALLED FOR EACH UNIT THAT IS DEFINED. ITS FUNCTION IS TO USE THE 
INITIALIZATION TABLE IN THE DRIVER PROLOGUE TO INITIALIZE STATIC INFORMATION 
IN THE DRIVER DATA BASE. 



INPUTS: 



R4 = ADDRESS OF DRIVER PROLOGUE TABLE. 
R5 = ADDRESS OF DEVICE UCB. 



OUTPUTS: 



THE DRIVER PROLOGUE TABLE IS INTERPRETED AND THE RESPECTIVE DATA BASE 
IS INITIALIZED. 

RO LOW BIT CLEAR INDICATES A BAD DATA STRUCTURE. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION, 



.ENABL 
IOCSINITDRV:: 
MOVZWL 
BR8 



LSB 

DPT$WJNITTAB(R4),R3 
10$ 



INITIALIZE DRIVER DATA BASE 

GET OFFSET TO INITIALIZATION TABLE 

BR TO COMMON CODE 



ZZ-ENSAA-7.0 

RELOCDRV 
CM 



REINITIALIZE DRIVER DATA BASE 

*** RELOCDRV relocate I/O driver 

REINITIALIZE DRIVER DATA BASE 



B 12 
27-JUL-1984 Mche 12 
27-JUL-1984 15;44;23 

29-MAY-1980 M;48:41 



Frame B12 Sequence 2410 
VAX- It Macro V03-0T Page 3 
DMA1j[SYS0,SYS«AJNTDRELOCDRV.MAR;2(1) 



5? 1? 
53 

SI 
5? 

51 



A4 
54 
5F 
83 
51 
83 
02 
M 



3C 
CO 
10 
9A 
CO 
9A 
10 
11 



I0A 

t 

>00A 
)00A 
000A 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
QOQA 
OOOA 
OOOA 
COOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOE 
0011 
0013 
0016 
0019 
001 c 
001E 
0020 



79 

iO 
1 



84 
85 
86 
87 
88 
89 

91 

92 
93 
94 
95 
96 
97 

98 
99 

100 
101 
102 
103 
104 
105 
106 
107 

108 

109 

110 
111 

112 



.S8TTL REINITIALIZE DRIVER DATA BASE 



10CSREINJTDRV - REINITIALIZE DRIVER DATA BASE 

THIS ROUTINE IS CALLED AFTER HAVING LOADED A DRIVER WHOSE \>EyiCE DATA BASE IS 

ALREADY RESIDENT IN MEMORY. IT MUST BE CALLED FOR EACH UNIT THAT IS DEFINED. 

ITS FUNCTION IS TO INITIALIZE ONLY THOSE FIELDS IN THE DATA BASF THAT ARE NOT 
DYNAMIC. 



INPUTS: 



R4 r ADDRESS OF DRIVER PROLOGUE TABLE. 
R5 -- ADDRESS OF DEVICE UCB. 



OUTPUTS; 



THE DRIVER PROLOGUE TABLE IS INTERPRETED AND THE RESPECTIVE DATA BASE 
IS REINITIALIZED. 

RO LOW BIT CLEAR INDICATES A BAD DATA STRUCTURE. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION, 



IOCSREINITDRV: 
M0V2WL 



10$.* 

20$: 



ADDL 

8SB8 

M0VZ8L 

ADDL 

M0VZ8L 

BS6B 

BR8 

.DSA9L 



DPTSW REINITTAB(R4),R3 

R4,R3 

LOCATE 

<R3)+,R1 

R1.R2 

<R5)*,R1 

EXECUTE 

20$ 

LSB 



REINITIALIZE DRIVER DATA BASE 

GE' OFFSET TO REINITIALIZATION TABLE 

CALCULATE ADDRESS OF INITIALIZE TABLE 

LOCATE STRUCTURE TYPE 

GET OFFSET IN STRUCTURE 

CALCULATE BASE ADDRESS OF FIELD 

GET OPERATION CODE 

EXECUTE OPERATION CODE 



ZZ-ENSAA-7,0 

RELOCDRV 

01 



LOCAL SUBROUTINE TO EXECUTE OPERATION CO . 27-JUL-1984 ifl ./Jt h f J8, F K! e ,$ 1 S un7 S £9 uence 241 L« / 

*** RELOCDRV relocate i/0 driver 27-JUL-1984 1 5:AA :23 VAX-11 Macro V03-0T Paae 4 

LOCAL SUBROUTINE TO EXECUTE OPERATION CO 29-MAY-1980 14:48:41 DMA1 :CSYS0.SYSMAINT3RELOC0RV.MAR;2(1) 



50 93 



50 



50 
62 



0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
C020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
002E 
002E 
002E 
002E 
002E 
DO 002E 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0041 
0043 
0045 
0046 
0046 
0046 
0046 
0046 

0049 
004C 
0040 
004D 
004D 
004D 



D5 
D4 

05 



9A 
90 

05 



114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 

126 
127 

128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 

148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 

166 
167 

168 

169 

170 



.S8TTL LOCAL SUBROUTINE TO EXECUTE OPERATION CODE 

EXECUTE - EXECUTE OPERATION CODE 

THIS ROUTING IS CALLED TO EXECUTE A SINGLE RELOCATION OPERATION CODE* 

INPUTS: 

R1 = OPERATION CODE. 

R2 » STRUCTURE FIELD BASE ADDRESS. 

R3 « ADDRESS OF NEXT RELOCATION BYTE. 

R4 = BASE ADDRESS OF DRIVER PROLOGUE TABLE. 

R5 = ADDRESS OF DEVICE UCB. 



OUTPUTS? 



IF AN INVALID OPERATION CODE IS SPECIFIED, A FAILURE IS RETURNED TO THE 
CALLERS CALLER. ELSE THE OPERAND VALUE IS STORE IN THE SPECIFIED FIELD 
IN THE SPECIFIED STRUCTURE, 



EXECUTE: 



CASE 



ioi/ 

30$/ 
50$/ 
70$/ 
90$/ 
> 



INDIRECT OPERAND 



MOVL 
CASE 



TSTL 
CLRL 
RSB 



3<R3)+,R0 
R1,<- 

20i.- 

40$,- 
60$,- 
80$,- 

iooi,- 

>AIMIT^ A X80 

(SP) + 

RO 



BYTE IMMEDIATE 



10$: M0VZ8L <R3)+,R0 
20$: MOVB R0,(R2) 
RSB 



; WORD IMMEDIATE 



EXECUTE RELOCATION OPERATION 

DISPATCH TO FETCH ROUTINE 

BYTE IMMEDIATE 

WORD IMMEDIATE 

WORD DISPLACED 

LONGWORD IMMEDIATE 

FIELD IMMEDIATE 



GET DATA LONGWORD 

DISPATCH TO STORE ROUTINE 

STORE BYTE 

STORE WORD 

STORE WORD DISPLACED 

STORE LONGWORD 

STORE FILED 

REMOVE RETURN FROM STACK 
SET FAILURE INDICATION 



GET DATA BYTE 
STORE BYTE 



ZZ-ENSAA-7,0 

RELOCDRV 
01 



LOCAL SUBROUTINE TO EXECUTE OPERATION CO . 27-JUL-1984 ^ a Fiche 12 Frame D12 Seguence 2412 

*** RELOCDRV relocate I/O driver 27-JUL-1984 15:44:23 VAX-11 Macro V03-0T Page 5 
LOCAL SUBROUTINE TO EXECUTE OPERATION CO 29-MAY-1980 14:48:41 DMA1 :[SYS0.SYSMAINT]RELOCDRV.MAR;2<1> 



51 









004D 


r71 




50 


83 


3C 


004D 


172 30$: MOVZWL (R3)+,R0 

173 40$: MOVW R0,(R2> 


6? 


50 


BO 


0050 






05 


0053 
0054 
0054 


174 
175 
176 , 


RS8 








0054 


177 , 


WORD DISPLACED 








0054 


178 , 










0054 


179 




50 


83 


32 


0054 


180 ! 


50$: CVTWL (R3)+,R0 


50 


54 


CO 


0057 


181 ( 


>0$: ADDL R4,R0 
BRB 80$ 




03 


11 


005A 


182 








005C 


183 










005C 


184 










C05C 


185 


• LONGWORD IMMEDIATE 








005C 


186 










005C 


187 




50 


83 


DO 


005C 


188 


?0$: MOVL (R3)+,R0 
30$: MOVL R0,(R2) 


62 


50 


DO 


005F 


189 






05 


0062 
0063 
0063 


190 
191 
192 


RSB 








0063 


193 


; FIELD STRUCTURE 








0063 


194 










0063 


195 




50 


83 


DO 


0063 


196 < 


90$: MOVL (R3)+,R0 


7E 


83 


9A 


0066 


197 


100$: MOVZ8L <R3>+,-(SP) 


51 


83 


9A 


0069 


198 


M0VZ8L <R3)+,R1 


8E 


50 
62 


FO 


006C 
0070 


199 


INSV R0,(SP)+,R1,(R2) 






05 


0071 


200 


RS8 



GET DATA WORD 
STORE WORD 



GET WORD DISPLACEMENT 
CALCULATE ACTUAL ADDRESS 



GET DATA LONGWORD 
STORE DATA LONGWORD 



;GET DATA LONGWORD 
;GET STARTING BIT NUMBER 
;GET SIZE OF FIELD 
;STORE FIELD 



ZZ-ENSAA-7.0 

RELOCDRV 

01 



E 12 
LOCAL SUBROUTINE TO LOCATE DATA STRUCTUR # 27-JUL-1984 « Fj£ h ?, 1 2, 

*** RELOCDRV relocate I/O driver 27-JUL-1984 15:44:23 
LOCAL SUBROUTINE TO LOCATE DATA STRUCTUR 29-MAY-1980 14:48:41 



Frame E12 
VAX-11 Macro 



Sequence 2413 
V03-01 Pi 



Poge 

DMA1 : LSYSO. SYSMAINTJRELOCDRV.MA 



6 
R;2(1) 



50 01 

63 

11 

04 83 

62 AF 



8E 



52 55 



52 20 A5 
52 1C A2 



52 24 A5 



0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

0072 

C072 

0072 

0072 

88 0072 

95 0075 

13 0077 

3A 0079 

007C 

007E 

007E 

007E 

007E 

007E 

007E 

D5 008A 

05 008C 

008D 

008D 

008D 

008D 

008D 

DO 008D 

05 0090 

0091 

0091 

0091 

0091 

0091 

DO 0091 

DO 0095 

05 0099 

009A 

009A 

009A 

009A 

009A 

DO 009A 

05 009E 

009F 

009F 

009F 

009F 

009F 



202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 



.SBTTL LOCAL SUBROUTINE TO LOCATE DATA STRUCTURE TYPE 
LOCATE - LOCATE DATA STRUCTURE TYPE 
INPUTS: 

R5 = ADDRESS OF DEVICE UCB. 



OUTPUTS: 



LOCATE: 



IF THF STRUCTURE TYPE CODE IS ZERO, THEN SUCCESS IS RETURNED TO THE CALLERS 
CALLER. IF THE STRUCTURE TYPE CODE IS INVALID, THEN AN ERROR IS RETURNED 
TO THE CALLERS CALLER. ELSE THE APPROPRIATE STRUCTURE BASE ADDRESS IS 
RETURNED IN R2. 



LOCATE DATA STRUCTURE TYPE 

ASSUME END OF RELOCATION TABLE 

END OF TABLE? 

IF EQL YES 

LOCATE STRUCTURE CODE 

DISPATCH TO STRUCTURE ROUTJNE 

UCB 

IDB 

DDB 

CRB 

REMOVE RETURN FROM STACK 



BISB 
TSTB 
BEQL 
LOCC 


#1,R0 

(R3) 

10$ 

(R3H,#4,STYPE 


CASE 

10$: TSTL 
RSB 


R0,<~ 

20$,- 

30$,- 

40$,- 

50$,- 

>,LIMIT=*1 

(SP) + 


; UCB STRUCTURE 




20$: MOVL 
RS8 


R5,R2 


; IDB STRUCTURE 





;SET UCB ADDRESS 



30$: MOVL UCB$L CRB(R5),R2 ;GET ADDRESS OF CRB 

MOVL CRB$L~INTD+VEC$L IDB(R2),R2 ;GET ADDRESS OF IDB 
RSB 



DDB STRUCTURE 



40$: MOVL UCB$L DDB(R5),R2 
RSB 



; CRB STRUCTURE 



;GET ADDRESS OF DDB 



ZZ-ENSAA-7.0 

RELOCDRV 

01 



LOCAL SUBROUTINE TO LOCATE DATA STRUCTUR . 27-JUL-1984 , noy F Jfi h fJ2, 

*** RELOCDRV relocate I/O driver 27-JUL-1984 15:44:23 

LOCAL SUBROUTINE TO LOCATE DATA STRUCTUR 29-MAY-1980 14:48:41 



Frame F12 Sequence 2414 

VAX-11 Macro V03-01 Page 7 

D«A1:CSYS0.SYSMAINT3RELOCDRV.MAR;2(1) 



52 20 A5 



00 009F 


258 50$: 


MOVL 


05 00A3 


259 


RS8 


00A4 


260 




00A4 


261 


,END 



UCB$L_CRB(R5),R2 



;^Er ADDRESS OF CRB 



ZZ-ENSAA-7.0 
RELOCDRV 
Symbol table 

CRBSB MASK 

CRB$B"TYPE 

CRBSC'LENGTH 

CRB$KlLENGTH 

CRBSL.INTD 

CRBSL INTD2 

CRBSLlLINK 

CRBSL WQBL 

CRB$L~WQFl 

CRBSW~REFC 

CRBSW SIZE 

DDB$B"ACPCLASS 

DDBSB'TYPE 

DDBSC~LENGTH 

DDB$K LENGTH 

DDBSL~ACPD 

DDBSLlODT 

DDB$L LINK 

DDBSLJJCB 

DDBST.DRVNAME 

DDBST NAME 

DDBSW~SIZE 

DPTSB~ADPTYPE 

DPT$B"FLAGS 

DPT$B"REFC 

DPT$B~TYPE 

DPT$C~LENGTH 

DPTSKJ.ENGTH 

OPTSL^BLINK 

DPTSL FLINK 

DPT$T"NAME 

DPT$W~INITTAB 

OPTSWIMAXUNITS 

DPTSW REINITTAB 

DPTSWlSIZE 

DPTSW UCBSIZE 

OPT$W"UNLOAD 

DPTSW~VERSION 

DYNSC CRB 

DYNSClDDB 

DYN$C IDB 

DYNSCJJCB 

EXECUTE 

IDBSB.TYPE 

IDBSC.LENGTH 

IDBSK.LENGTH 

IDBSL.ADP 

IDBSL.CSR 

IDBSL.OWNER 

IDBSL.UCBLST 

IDBSW.SIZE 

IDB$W UNITS 

IOCSlRlTDRV 

IOCSREINITDRV 

LOCATE 

SIZ... 

STYPE 



Symbol table 



000O000E D 

00OO000A D 

00000038 D 

00000038 D 

00000014 D 

00000038 D 

00000010 D 

00000004 D 

00000000 D 

OOOOOOOC D 

00000008 D 

00000013 D 
OOOOOOOA D 
00000034 D 
00000034 D 
00000010 D 
OOOOOOOC D 
00000000 D 
00000004 D 
00000024 D 

00000014 D 
00000008 D 
OOOOOOOC D 
OOOOOOOD D 
OOOOOOOB D 
OOOOOOOA D 
0000002A D 
0000002A D 

00000004 D 

00000000 D 
0000001 E D 
00000010 D 
00000016 D 
00000012 D 

00000008 D 
OOOOOOOE D 
00000014 D 

0000001 * D 

00000005 D 

00000006 D 

00000009 D 

00000010 D 
00000020 R D 
OOOOOOOA D 
00000034 D 
00000034 D 
00000010 D 

00000000 D 
00000004 D 
00000014 D 
00000008 
OOOOOOOC D 
00000004 RG D 
OOOOOOOA RG D 
00000072 R D 

00000001 D 
00000000 R D 



c 1 P 

27-JUL-1984 Fiche 12 Frame G12 Seguence 2415 

*** RELOCDRV relocate I/O driver 27-JUL-1984 15:44:23 VAX-11 Macro V03-01 Page 8 

29-MAY-1980 14:48:41 DMA1 :CSYS0.SYSMAIfSinREL0CDRV.MAR;2(1 ) 



01 



01 
01 
01 

01 



UC8$B 

UCBSB. 

UCB$B. 

UCBSB. 

UCBSB. 

UCBSB. 

UCBSB 

UCB$B 

ucbsb; 

UCBSB. 

UCBSB 

UCBSB] 

UCBSB, 

UC8SB. 

UCB$B. 

UCBSB, 

UCBSB 

UCBSB' 

UCBSB* 

UCBSB, 

UCBSB 

UCBSB 

UCBSB 

UCBSB* 

UCBSB, 

UCBSB 

UCBSB 

UCBSB' 

UCBSB 

UCBSB 

UCBSC 

UCBSC 

UCBSC 

UCBSK 

UCBSK 

UCBSK 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UCBSL 

UC8SL 



B AMOD 

CEX 

CM1 
"CM2 

DEVCLASS 
"DEVTYPE 
.DIPL 

dx sctcnt 
;ertcnt 

.ERTMAX 
J EX 

FIPL 

LOCSRV 

OFFNDX 
"OFFRTC 
IREMSRV 

SECTORS 
"SLAVE 

SPR 
.STATE 
.TRACKS 
JT.CRFILL 

TT DECRF 
jrDELFF 
.TT.DESPEE 
JT.DETYPE 

TT LFFILL 
jrSPEED 

TYPE 
.VERTSZ 
.LENGTH 
.MB.LENGTH 
.TT LENGTH 

LENGTH 
.MB.LENGTH 
.TT LENGTH 
.AMB 
.ASTGBL 

ASTQFL 
ICPID 
.CRB 

DD8 
.DEVCHAR 
.DEVDEPEND 
.DPC 

DUETJM 
.DX BFPNT 
.DX^BUF 
J)X RXDB 
.EMB 
.FIRST 
JPC 

FQ8L 
~FQFL 

FR3 

FR4 

IOQBL 



00000053 


D 


00000077 


D 


0000004A 


D 


0000004B 


D 


00000038 


D 


00000039 


D 


00000052 


D 


000000A6 


D 


00000070 


D 


00000071 


D 


00000076 


D 


OOOOOOOB 


D 


0000003C 


D 


00000094 


D 


00000095 


D 


0000003D 


D 


0000003C 


D 


00000074 


D 


00000075 


D 


00000052 


D 


0000003D 


D 


0000009D 


D 


OOO00OA1 


D 


OOO00OA2 


D 


OOOOOOAO 


D 


OO00O0A4 


D 


0000009E 


D 


0000009C 


D 


OOOOOOOA 


D 


0000003F 


D 


00000074 


D 


00000090 


D 


OOOOOOBC 


D 


00000074 


D 


00000090 


D 


OOOOOOBC 


D 


00000054 


D 


00000010 


D 


OOOOOOOC 


D 


0000005C 


D 


00000020 


D 


00000024 


D 


00000034 


D 


0000003C 


D 


00000080 


D 


0000005C 


D 


0000009C 


D 


00000098 


D 


OOOOOOAO 


D 


00000078 


D 


00000014 


D 


OOOOOOOC 


D 


00000004 


D 


00000000 


D 


00000010 


D 


00000014 


D 


00000044 


D 



UCBSL. 

UCBSL. 

UCBSL. 

UCBSL u 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL. 

UCBSL 

UCBSL. 

UCBSL 

UCBSL 

UCBSL 

UCBSL" 

ucbsl; 

UCBSL, 

UCBSL 

UCBSL 

UCBSL, 

UCBSL, 

UCBST, 

UCBSW 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW, 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 

UCBSW 



IOQFL 

IRP 

LINK 

LOGADR 

MAXBLOCK 

MB MBX 

MBlPORT 

MB RAST 

MB'SHB 

MB WAST 

MB. W IOQBL 

MB WIOQFL 

MEClA 

NT.DATSSB 

NT INTSSB 

OPCNT 

OWNUIC 

PID 

RQBL 

RQFL 

SVAPTE 

SVPN 

TT DECHAR 

'TTlRDUE 

TT RTIMOU 

>cb 

PARTNER 
BCNT 
.BCR 
.BOFF 
BUFQUO 
'BYTESTOGO 
CHARGE 
[CYLINDERS 
DA 
,DC 

.DEVBUFSIZ 
DEVSTS 
.D1RSEQ 
.DSTADDR 
DX BCR 
ECT 
.EC2 
ERRCNT 
[FUNC 
MB SEED 
MSSCNT 
MSGMAX 
.NT CHAN 
OFFSET 
REFC 
.SIZE 
SRCADDR 
.STS 

.TT DicSIZE 
.UNIT 
VPROT 



00000040 


D 


0000004C 


D 


0000002C 


D 


00000064 


D 


00000084 


D 


0000007C 


D 


0000008C 


D 


00000078 


D 


00000080 


D 


00000074 


D 


00000088 


D 


00000084 


D 


0000008C 


D 


00000074 


"» 


00000078 


D 


00000060 


D 


0000001 C 


D 


00000028 


D 


00000004 


D 


00000000 


D 


00000068 


D 


00000064 


D 


000000A8 


D 


0000008C 


D 


000000B8 


D 


00000030 


D 


OOOOOOOC 





0000006E 


D 


00000096 


D 


0000006C 


D 


00000018 


D 


0000003E 


D 


0000004A 


D 


000O003E 


D 


0000008C 


D 


0000008E 


D 


0000003A 


D 


0000005A 


D 


00000088 


D 


00000018 


D 


0Q0000A4 
00000090 


D 


D 


00000092 


D 


00000072 


D 


0000007E 


D 


00000000 


D 


00000016 


D 


00000014 


D 


0000007C 


D 


0000Q08A 

ggooooso 

00000008 


D 


D 
D 


0000001 A 


D 


00000058 
0QOOOOA5 


D 





00000048 


D 


0000001 A 


D 



ZZ-ENSAA-7.0 
RELOCDRV 
Symbol table 



VECSB. 
VECSB. 
VECSC. 
VECSK 

vecsl; 

VECSL. 

VECSL. 

VECSL. 

VECSL. 

VECSL, 

VECSQ 

VECSW. 



DATAPATH 

'NUMREG 

LENGTH 

LENGTH 

ADP 

IDB 

"INITIAL 

START 

UNITD1SC 

'UNITINIT 

DISPATCH 

'MAPREG 



Symbol table 



00000013 D 
00000012 D 
00000024 D 
00000024 D 

00000014 D 
00000008 D 
OOOOOOOC D 
0000001 C D 
00000020 D 
00000018 D 
00000000 D 
00000010 D 



*** RELOCDRV relocate I/O driver 



H 12 

27-JUL-1984 



27-JUL-1984 
29-MAY-1980 



Fiche 12 
15:44:23 
14:48:41 



Frame H12 Seguence 2416 
VAX-11 Macro V03-0T Page 9 
DMA1:CSYS0.SYSMAINTJRELOCDRV.MAR;2(1) 



PSECT name 

, ABS ♦ 

SEP 
SABSS 



+ — ™—.-.-f 

! Psect synopsis ! 
+ — - -— — -.+ 

Allocation PSECT No. Attributes 

00000000 ( 0.) 00 ( 0.) NOPIC USR 
000000A4 ( 164.) 01 ( 1.) NOPIC USR 
000000BC ( 188.) 02 ( 2.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON REL LCL SHR EXE RD 
CON ABS LCL NOSHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC LONG 
WRT NOVEC BYTE 



ZZ-ENSAA-7.0 

RELOCDRV 

Cross reference 



Cross reference 



I 12 
27-JUL-1984 



SYMBOL 

CRBSL INTD 

DPTSVflNITTAB 

DPT$W_REINITTAB 

0YN$C CUB 

DYNSC~DDB 

DYNSCllOB 

OYNSC UCB 

EXECUTE 

10CSINITDRV 

IOCSREINITDRV 

LOCATE 

STYPE 

UCB$L CRB 

UCBSLlOOB 

VEC$L IDB 



VALUE 

00000014 
00000010 
00000012 
:00000005 
=00000006 
=00000009 
=00000010 
00000020-R 
00000004-R 
OOOOOOOA-R 
00000072-R 
00000000-R 
00000020 
00000024 
00000008 



135 

75 

103 

218 

48 



*** RELOCDRV relocate I/O driver 



+ + 

! Symbol Cross Reference ! 
+ ...... — + 

REFERENCES... 

#-244 (1) 

#-76 (1) 

#-104 (1) 

48 (1) 

48 (1) 

48 (1) 

48 (1) 

#-110 (1) 



27-JUL-1984 
29-MAY-1980 



Ffche 12 
15:44;23 
14:48:41 



Frame 112 Sequence 2417 
VAX-11 Macro V03-0T Page 10 
DNA1:CSYSO.SYSMAJMT]RELOCDRV.MAR;2(1) 



DEFINITION 



#-106 
222 
#-243 
#-251 
#-244 



(1) 
(1) 
(1) 
(1) 
(1) 



#-258 



(1) 



ZZ-ENSAA-7.0 

RELOCDRV 

Cross reference 



Cross reference 



*** RELOCDRV relocate 1/0 driver 



J 12 
27-JUL-1984 



27-JUL-1984 
29-MAY-1980 



F1che 12 
15:44:23 
14:48:41 



Frame J12 Sequence 2418 

VAX-11 Macro V03-01 Page 11 

DMA1:CSYS0.SYSMAINTJREL0CDRV.MAR;2<1> 



+ -*. + 

! Macros Cross Reference ! 
+ + 



MACRO 

SCRBDEF 

SDDBOEF 
SDEF INI 

SOPTDEF 
$DYN0EF 
SIOEDEF 
SUCBDEF 
SVECOEF 
CASE 



SIZE 

1 
1 
1 

2 

2 
1 

10 

2 

1 



DEFINITION 



33 

34 
33 

35 
36 
37 
38 
39 
136 



REFERENCES... 



33 
34 
33 
38 
35 
36 
V 
38 
39 
136 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



34 
39 



(1) 
(1) 



35 



(1) 



36 



(1) 



37 



(1) 



149 



(1) 



223 



(1) 



! Performance Indicators ! 

+ m -+ 



Phase 

Initial ization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 

"""" ^ 00:00:00.14 

144 00:00:00.86 

428 00:00:07.95 

00:00:00.42 

80 00:00:01.4? 

16 00:00:00.11 

6 00:00:00.03 

11 00:00:00.11 

720 00:00:11.09 



Elapsed Time 

oo7ooToo.34 

00:00:02.00 
00:00:11.77 
00:00:00.44 
00:00:01.89 
00:00:00.11 
00:00:00.03 
00:00:00.11 
00:00:16.70 



The working set limit was 1000 pages. 

32358 bytes (64 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 317 non-local and 23 local symbols. 

269 source lines were read in Pass 1, producing object records in Pass 2. 

?0 pages of virtual memory were used to define 17 macros. 

+_- — « *——-«•——«+ 

f Macro library statistics ! 
+ ™ ™— .- ....+ 



Macro I ibrary name 

DMaTTcSYS0*SVSMAINT]DS.HL8;218 
DMA1:[SYS0.SYSMAINT]DIAG.MLB;953 
SYS$SYSR00T:CSYSLIB3LIB.MLB;1 
SYS$SYSROOT:tSYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 


7 

1 

5 

13 



618 GETS were required to define 13 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/1 I ST=[DS. LI S]/CR0S$/ENABLE= (DEBUG, TRACE) REL0CDRV/UPDA=(REL0CDRV. UPD, RELOCDRV, ENH)+SY5$LIBRARY :L1B/LIBRARY*DMA1 :CSYSd 



ZZ-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
005'. 

0055 

0056 

0057 



*** RMS 
*** RMS 



Master 
Master 



RMS 
RMS 



routines 
routines 



K 12 

27~Jul-1984 

27-Jul-1?84 
26-Jul-1984 



Fiche 12 Frame K12 Sequence 

16:12:57 VAX-11 Bliss-32 V4. 0-742 ^ _ 
09:41:29 DMA1:[SYS0.SYSMAJNTJRMS.832;233 



2419 



Page 



1 



Xtitle **** RMS 
module rrns ( 



Master RMS routines' 



ident 
) = 



= , 06.23» 



! Emulate RMS for VAX Supervisor 



Copyright (c) 1980, 1982, 1983, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF , 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BV DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

+ + 
FACILITY: Diagnostic Supervisor 

ABSTRACT: 

This module emulates RMS (read-only functions) for the 
Supervisor. It additionally supports RT-11 format files 
on console floppy. 



ITS 



AUTHOR: 

Dave Butenhof, 



4~aug-1980 



MODIFIED BY: 

1 

2 
3 

4 

05 

06 
07 

08 



>• Butenhof, U2-oct-iy8Q, Version b.i 

minate possibility of accessing console storage device 

"CS:" by explicitly checking for controller and unit. 

e "last-chance" backup filespec global as "DEFSQ BACKSTOP" 



Davft Butenhof, 02-oct-1980, Version 6.1 

El 1m 

as 

Makw ,«.. ,.,..... ,-,, .. — , — ? -- -_. - „ 

<DEBUG> to make user **ode debug easier, conditionalue MFPR 

to execute only in standalone. 

Add TS11 rpb setup to RMSSOPEN, 

Dave Butenhof, 9-apr-1981, Version 6.3 

Fix up some context problems in RMS base routines. Namely, 

Return EOF if VBN = eofvbn and ffb = (IREAD). Also, 

start RS2 and R8F as 0! !! 

- Dave butenhof, 02-Jun-1981, version 6. A 

Alter directory spec on libraries, use logical names $DS, 
SDIAG for flexibility. 

- Dave Butenhof, 24-Jun-1981, version 6.4 

Setup RPB for console device, to allow using the console 
BOOTDRIVR routines. Also, start cleaning up some of the 
Macro JS8 routine linkages to use Bliss V2.Vs register output 
parameter capability, instead of global registers. 

- Dave Butenhof, 31-aug-1981, version 6.5 



[07] 
C07] 
[07] 

[07] 



ZZ-ENSAA-7.0 

RMS 

06.23 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 
C066 
006? 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 
U077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 
008/ 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 



*** RMS 

*+* RMS 



Master RMS 
Master RMS 



routines 
routines 



L 12 
27-Jul~1984 
?7-Jul-1984 
26-JUL-1984 



16:12:57 
09:41:29 



fiche 12 Frame L12 Sequence 2420 

VAX-11 BUss-32 V4. 0-742 Page 2 

I 0MA1:CSYS0.SYSHAINT3RMS.B32;233 (1) 



09 
10 



11 



Support DQ device (IDC) for Nebula, as ODS disk 

- Dave Butenhof, 26-0ct-1981, version 6.- 

ALter call to L0C$PTABLE to use now argument, link address 

* Dave Butenhof, 25-Jan-1982, version 6.6 
Fix calls to ExeSAloNonPaged to use output arguments instead 
of global registers. Also, add new routines to allocate and 
init pseudo RPB, and to deallocate same. Generally clean up 
RMSS0PEN somewhat. 

- Dave Butenhof, 05-Mar-1982, version 6.6 

Fix edit 10.. .can't have size field of data structure be 
direct output parameter of AloNonPaged, since pointer hasn't 
been set yet! 



C12D Dave Butenhof, 15-Apr~1982, version 6.7 
Add s-jpport for UDA-50 disks (DUan) 

CI 3D Dave Butenhof, 24-May-1982, version 6.8 

Generalize checking for device support with DS$GA SUPPORT TABLE 
data structure and DSX5CHECK SUPPORT routine. ThTs is only for 
VDS file services, and does not/should not reflect all devices. 



14 

15 

16 

M 

18 

19 
20 

21 

22 



Bob Bergazzi 7-Aug-1982 
Edit 13 had a typo - RL211 
allow file services for an 



version 6.9 
in device support 
RL02 connected to 



table would 
an RL11. 



not 



M. Baggett 1-Dec-1982 version 6.10 
Added support for TU80 magtape as load device. 



M. Baggett 
Added support 

M. Baggett 
Added support 



M. 



7-Dec-1982 
for TU81 magtape 



version 6.10 
as load device. 



23-Feb-1983 Version 6.11 
for RC25 booting and file operations. 



Baggett 
Added LESJ,RCF25 



1-March-1983 

and support 



Version 6.11 
for booting CJ-HSC50, 



M. Baggett 17-May-1983 
Added changes to support CI' 
M. Baggett 22-Sep-1983 
Changed nan,e LESJ to RC11 



Version 6.11 
•HSC50 port station 
Version 6.13 



0. 



M. Baggett 
Added support 

Domenlc Andel 
Added code in 
RMS$0PEN for 
to 'backtrack 
equals zero, 
is linked to 
LINK field e 
To an SBIA si 
modifications 
the previous 



11-0ct-1983 
for CI-HSC50 tape 



la 1-Mar 

routine 
xxx CPU. 
1 throug 
when thi 
HUB. Not 
qjals ze 
nee the 

have to 
adapter 



-1984 

s DSXSCHECK 

Each routi 
h ptables t 
s occurs th 

so for a x 
ro it means 
HUB is ABUS 

do with sa 
and control 



Version 6.13 
and ^05 

Version 6.13 

SUPPORT and 
ne uses code 
ill .LINK field 
e present Ptable 
xx , when ptable 

were linked to 
. Therfore the 
ving and reloading 
ler address if 



ZZ-ENSAA-7.Q 

RMS 

06.23 



*** RMS Master RMS routines 
++* RMS Master RMS routines 



0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

01 34 

0135 

0136 

0137 

0138 

0139 

OHO 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 













yip 

27-juL-1984 Fiche 12 Fra*e M12 Sequence 2421 

27-JuL-1984 16:12:57 VAX-11 Bllss-32 V4. 0-742 _ _, Page 3 
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XXX 



?3 



Bob Berga^zi April 13, 1984 Version 7.0 
Changed DSXSCheck. support to support ODS format on 
the console storage device for the III cpu. 



begin 

! include files: 



library 'Sdiag 1 ; 

library '$ds'; 

library , sys$library: lib, 132 1 ; 

table of contents: 



forward routine 

rmsSerror : jsb.rms, 
rms$load_xab : call.rms nova'ue 
rms$alloc_cache : isb_cblock, 
rmsSinit : jsb none novalue. 



£ ! 



sb.none novalue, 
storms, 
sb~rms, 

: jsb_rms, 
jsb.rms, 
jsb'rms, 



rms$cleanup 

rab$error : 

fablerror : 

verify_cbloc 

verify_rab : 

verify_fab : 

rms$open, 

rms$connect, 

rmsSget, 

rms$d1sconnect, 

rms$close; 



Local values 



literal 

True = 1 t 

False = 0, 

rmsSc^max files ~ 3, 

devices ansi * dev/Jm sqd or dev$m fod, 

device$"ods = dev$m_Tod or dev$m_dir or 

device$~rt11 « dev*m_dir or dev$m_rnd or 



Load error status 

Load XAB data 

Allocate cache 

Initialize 

Clean up RMS allocations 

Store error code in RAB 



code in FAB 

and cblock pointer are OK 



Store error 

Be sure IF I 

Verify rab 

Verify fab 

RMSSOPEN emulator—open file 

RMSSC0NNECT emulator 

RMSSGET emulator— record de-block 

RMS$DJSCONNECT emulator 

RMSSCL0SE emulator— close file 



! Literal TRUE 
! literal FALSE 

Maximum tiles open at once 

Describe magtape 
dev$m_rnd< ! Describe disk 



upwii-c-* ii.ii - uov.-xii un «. uwrm i m« v < devSm sdi or devSm.fod, 
! Re-deTine Restart parameter block length as 16-byte multiple, 
! to make allocation easier w/out requiring assumptions or 
! explicitly storing the actual length. 
rpb$ length = (rpb$c_length + 15) and not 15; 



Describe floppy 



! external references; 



ZZ-ENSAA-" 


7.0 


RMS 




06.23 




; 0172 


1 


; 0173 


1 


01 74 


1 


; 0175 


1 


; 0176 


1 


; 0177 


1 


; 0178 


1 


; 0179 


1 


; 0180 


1 


; 0181 


1 


; 0182 


1 


; 0183 


1 


; 01 84 


1 


; 0185 


1 


; 0186 


1 


; 0187 


1 


; 0188 


1 


0189 


1 


0190 


1 


; 0191 


1 


; 0192 


1 


; 0193 


1 


0194 


1 


0195 


1 


; 0196 


1 


0197 


1 


0198 


1 


0199 


1 


; 0200 


1 


; 0201 


1 


; 0202 


1 


; 0203 


1 


; 0204 


1 


; 0205 


1 


; 0206 


1 


; 0207 


1 


; 0208 


1 


; 0209 


1 


; 0210 


1 


; 0211 


1 


; 0212 


1 


; 0213 


1 


; 0?14 


1 


; 0215 


1 


; 0216 


1 


; 0217 


1 


; 0218 


1 


; 0219 


1 


; 0220 


1 


; 0221 


1 


; 0222 


1 


; 0223 


1 



*** RMS Muster RMS routines 
*** RMS Master RMS routines 



27-Jul-1984 Ffche 12 Frame N12 Sequence 2^21 
27-JuM984 16:12^57 VAX-11 Bliss-32 V4, 0-742 Page 4 

26-JuM984 09:41:29 DMA1 :CSYS0.SYSMAINT3RMS.B32;233 (1) 




! Convert ascii to RAD50 



external routine 

exe$deanonpaged x jsb.deall address ingjnode ( long^relative) , 

exe$alononpaged : jsb.alloc address Ingjnode (long^relative) , 

fil$cvtfUnam, 

BreakUP File, , . t 

loc$pta5le ; jsb LocSptable novalue addressing mode ( longj elative), 

rtlHoppn : call"rms, ! Access console RT-11 file 

odsSopen : call rms, ! Access disk file 

ansiSopen : call rms address ingjnode (long„relative); ! Access magtape fue 



psect definitions; 



! Deallocate dyn. sool space 
! Allocate from dynamic pool 



psect 



p'iit = data ( share, addressingjnode ( long_relative>); 



psect 



own = work ( read, write, addressingjncde (long_relative)); 

psect , 

global = work ( read, write, addressingjnode ( long. relative)); 

psect 

code = code ( read, execute, share); 



Own storage 



global 

rms$file table 



vector [43; 



! if1-indexed pointers 



Global data definitions: 



global bind , A m ,„ Ai 

dtf$c bkstp len = Xcharcount Uasc i i 'CSA0: CS YSMAINT3 * • ) , 
defSqlbacksTop = uplit byteUascii , CSA0:[SYSMAINT];0M; 



Z7-EN$AA~7.0 
RMS 

06,23 

0224 
0225 
0226 
0227 

0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 

0258 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 

0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 



Device support 
**♦ RMS Masttr 

Device support 



table 

RMS routines 

table 



B 13 _ 

!7-jul-1984 

7-Jul-1984 
!6-Jul-1984 



Ffche 12 frame 813 Sequence 2423 

16:12.57 VAX-11 BMss-32 V4. 0-742 mm Page 

09:41:29 0MA1 ;[$VS0,SYSMAINTJRMS.B32;233 



5 
(2) 



XSbttl 'Device support table' 

Compilative 

$$.Rows.$$ = 0; 



Global Bind 

Ds$GA.Support. Table 
Support. Entry 
Support, Entry 
Support.Entry 
5upport.Entry 
Support^Entry 
Support. Entry 
Support.Entry 
Supportjntry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
Support.Entry 
); 



= UpUt ( 
console 1 , 

console 1 



HU8, BtdSK.Conso 
HUB, BtdSK.Conto 



0\UBA, 
0\U9A, 
RK6ir,uBA, 
RL1V ,U8A, 
TAPE 1 , USA, 
TS1V, USA, 
TS04\ UBA, 
TS05', 
TU80', 
TU81\ 



m6a, Btd$K_Mb, 0DS, 

MBA, BtdSK.Mb, 0DS, 

MSA, Btd$K Mb, 0DS, 

MBA, BtdSK.Mb, 0DS, 

MBA, Btd$Olb, 0DS, 

MBA, BtdSKlMb, 0DS, 

MBA. Btd$K.Mb, 0DS< 

MBA, BtdlK Tm, ANS ^ 

MBA, Btd$K"Tf, ANSI 

BtdSK.Dg, UDS, 



9td$K.UDA,0DS, 
BtdJKlOm, 0DS, 
BtdlK.Dl, 0D$ £ 
Btd$K UDA, AN$ 
8td*K„Ts, ANSI 
BtdSK.Ts, ANSI 
BtdSK.Ti, ANSI 
Btdtt Ts, ANSI 
Btct$*"Mu, ANSI 
CI. NODS', ClA. BtdJK HSCCI, 
RCTl\U8A. 8td$K.UD5,0DS, 



le, RT11 

It, ODS, 

<A>, 0, 

<A>, 0, 

<A>, 

<A>, 

<A>, 

<A>, 

<A>, 
, <A, 
, <A, 

<A, 



Device support table 

<>, 0, <», 
<> f 0, <», 

<», 

C>, 0, <'TE16\ 
C>, 0, < , TU78 , >). 
C>, 0, < , Rl02 l . 'M0'» 



0, 

i: 
I: 



TU45', •TU77'». 



USA, 
U8A, 
U8A, 



<A, C>, Ds$C3.Uda56 Inlt, <*RA80 VRA81 VRA60 

<A, C>, 0, <'ftK06', , RK07 i », 

<A, C>, 0, < , RL0? , >), 
1,<A>, 0, <>>, 
,<A>, 0, <>), 
,<A>, 0, <>), 
,<A>, 0, <>). 
,<A>, 0, <>), 
,<A>, 0, <>), 

ODS, <A, C>, t>S$GB CIJNIT, < C D1SK'>>« , 
<A, C>, Ds$G8,Uda50.Init, < , «C25' , , RCF25'» 



Console 
III console 
RP04 
RP05 
RP06 
RP07 
RM03 
RM05 
RM80 
TM03 
TM78 
IDC 

l >) 1 !UDA50 
RK06/07 
RL02 



HSC50 

TS04 

TS04 

TS05 

TU80 

TU81 

HSC50 

UDA50 



TAPE 



Global L iteral 

DstGK^Suppprt.Tabic^Rows - $$^Rows.S$; 



[13] 
CI 33 



ZZ-ENSAA-7,0 

RMS 
U6.23 

0258 1 

0259 1 

0260 1 

0261 1 
C262 1 

0263 1 

0264 1 

0265 1 

0266 1 

0267 1 

0268 1 

0269 1 

0270 1 

0271 1 

0272 1 

0273 1 

0274 1 

0275 1 

0276 1 

0277 1 

0278 1 

0279 1 

0280 1 

0281 1 

0282 1 



0283 

0284 

C285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

C306 

0307 

0308 

0309 

0310 

0311 



2 

2 

2 

2 

2 

2 

2 

2 
o 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 



Allocate pseudo RP8 

*** RMS Master RMS routines 

Allocate pseudo RPB 

XSbttl 'Allocate pseudo RPB 1 



C 13 
27-JuM984 
27-Jut-1984 
26-JuM984 



Fiche 12 Frame C13 Sequence 

16:12:57 VAX-11 BUss-32 V4. 0-742 , „ 

09:41:29 0MA1 :[SYS0.SYSMAINT3RMS.B32;233 



2424 



Functional description: 

Allocate a block of nonpaged pool and initialize it to resemble 
RPB data structure. Note that It is NOT an RPB for a number of 
reasons, including the fact that it may not be page-aligned. It 
close enough to an RPB to make the VMS standalone B00TDRJVR J/0 
mechanism function correctly. 



an 



is 



Input Parameters 
04(Ap) 
08(Ap) 
12<Ap) 
16(Ap) 
20(Ap) 
24 (AP) 
28(AP) 

Outputs: 
RO 



DeviceType (type code for device [DM, DL, MB,...]) 

ADPTvpe (type code for adapter [MBA, UBAJ) 

ADPPny (physical/virtual address of adapter) 

CSRPhy (physical/virtual address of controller) 

Drive (Unit number of drive) 

Slave unit number 

Port number on CJ network for HSC50. 



if couldn't allocate RPB; else address of RPB 



Global Routine DsrSAUocate Pseudo. RPB ( ! 

DeviceType, ADPTypeT CSRPhy, AOPPhy, Drive, Slave, Ciport) = 
Begin ! 



Builtin 
Mfpr; 

Local 

RPB : 



Ref Block [, Byte]; 



Jf Not Exe$AloNonPaged (RP8$ Length;, RPB) ! 
Then T 

Return 0; ! 

Ch$Fill (0, RP8$ Length, .RPB); ! Zero it for good measure 

,RPB = .RPB; " ! First longword is own address 

RPB [RP8SB DevTvp] = .DeviceType; ! 

RPB [RPBSL.BootRH = 0; ! 

RPB [RPB$L IOVec] = BooSAL Vector: ! 

(RPB [RPB$B ConfReg3)<0, 85 r .ADPTvpe; ! 

RPB [RPBSL ISRPhy] = RPB [RPB$L CSRVir ] = .CSRPhy; ! 

RPB [RPB$L"ADPPhy] = RPB [RPB$L ADPVirJ = .ADPPhy; ! 

RPB LRP8$W"Un1t] = .Drive; ! 

RPB [RPBSBlSlave] = .Slave; ! 

RPB [RPBSL B00TR2] = .Ciport; ! HSC50 CJ port number. 

BooSAL.VecTor + 8 = BooSSelect - BooSAL. Vector; ! Initialize the entry. 

If Not »Dsa$V_User Then Mfpr (Pr$_Sbr, RP8 [RPB$L_Svaspt3); ! Get sys page table addr. 

.RPB ! 

End; 



Page 



6 
(3) 



[19] 



[10] 
[10] 
[10] 

[10] 
[10] 

[10] 
[10] 

[10] 
[103 
[103 

[10] 
[103 
[10] 
[10] 
[10] 
[103 
[103 
[103 
[103 
[103 
[193 
[103 

C103 

C103 
[103 



.TITLE RMS *** RMS Master RMS routines 



7Z-ENSAA-7.0 

RMS 

06.23 



Allocate pseudo RPB 

*** rms Master RMS routines 

Allocate pseudo RPB 



D 13 

27-JuM984 
27~JuL-1984 
26-Jul-1984 



16:12:57 
09:41:29 



Fiche 12 Frame D13 Sequence 2425 

VAX-11 Bliss-32 V4. 0-742 Page 7 

> DMA1:[SYS0.SYSMAINTJRMS.832;233 (3) 



65 


6C 6r 


73 


65 


6C 6F 


73 
34 
35 



5D 54 4E 49 41 4D 53 59 53 5B 3A 30 41 53 43 

30 38 

6E 6F 63 07 

6E 6F 63 07 

30 50 52 04 

30 50 52 04 

36 30 50 52 04 

37 30 50 52 04 
33 30 4D 52 04 

35 30 4D 52 04 
30 38 4D 52 04 
33 30 4D 54 04 

36 31 45 54 04 

35 34 55 54 04 

37 37 55 54 04 
00000000* 00000000' 00000000' 

00000000 

38 37 4D 54 04 
38 37 55 54 04 

00000000' 

00000000 

30 33 37 42 52 05 

32 30 4C 52 04 

30 38 52 03 

00000000 • 00000000* 
00000000 

30 35 41 44 55 05 

30 38 41 52 04 

31 38 41 52 04 

30 36 41 52 04 

00000000' 00000000' 00000000' 

00000000 

31 31 36 4B 52 05 

36 30 48 52 04 

37 30 48 52 04 
00000000' 00000000' 

00000000 

31 31 4C 52 04 

32 30 4C 52 04 

00000000' 

00000000 

45 50 41 54 04 

31 31 53 54 04 

34 30 53 54 04 



♦IDENT \06.23\ 
.PSECT W0RK,N0EXE,2 



00000 RMSSFILEJABLE:: 

78LKB 16 



00000 

00O0F 

00011 

00019 

00021 

00026 

0002B 

00030 

00035 

0003A 

0003F 

00044 

00049 

0004E 

00053 

00058 

00064 

00068 

0006D 

00072 

00074 

00078 

0007C 

00082 

00087 

0008B 

0008C 

00094 

00098 

0009E 

000A3 

000A8 

OOOAD 

000B0 

000BC 

OOOCO 

0OOC6 

000CB 

000D0 

000D8 

OOODC 

000E1 

0OOE6 

0O0E8 

000EC 

000F0 

000F5 

000FA 



P. AAA: 

P.AAC: 
P.AAD: 
P.AAE: 
P.AAF: 
P.AAG: 
P.AAH: 
P.AAI: 
P.AAJ: 
P.AAK: 
P.AAL: 
P.AAN: 
P.AAO: 
P.AAP: 
P.AAM: 

P.AAQ: 
P.AAS: 

P.AAR: 

P.AAT: 
P. AAV: 
P.AAW: 

P*AAU: 

P.AAX: 
P.AA2: 
P. ABA: 
P. ABB: 

P.AAY: 

P. ABC: 
P.ABE: 
P.ABF: 
P.ABD: 

P.ABG: 
P.ABI: 

P.ABH: 

P.ABJ: 
P.ABK: 
P.ABL: 



.PSECT DATA,NOWRT,NOEXE, SHR,2 
.ASCII \CSAO:CSYSMAINTJ;0\ 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



<7>\console\ 

<7>\console\ 

<4>\RP04\ 

<4>\RP05\ 

<4>\RP06\ 

<4>\RP07\ 

<4>\RM03\ 

<4>\RM05\ 

<4>\RM80\ 

<4>\TM03\ 

<4>\TE16\ 

<4>\TU45\ 

<4>\TU77\ 
.ADDRESS P.AAN, P.AAO, P.AAP 
.LONG 
.ASCII <4>\TM78\ 
.ASCII <4>\TU78\ 
•BLKB 2 
.ADDRESS P.AAS 
.LONG 

<5>\RB730\ 

<4>\RL02\ 

<3>\R80\ 

1 

.ADDRESS P. AAV, P.AAW 
•LONG 

<5>\UDA50\ 

<4>\RA80^ 

<4>\RA81\ 

<4>\RA60\ 

3 
.ADDRESS P.AAZ, P. ABA, P. ABB 
.LONG 

.ASCII <5>\RK611\ 
.ASCII <4>\RK06\ 
.ASCII <4>\RK07\ 
.ADDRESS P.ABE, P.ABF 
.LONG 
.ASCII <4>\RL11\ 
.ASCII <4>\RL02\ 
.BLKB 2 
.ADDRESS P.ABI 
.LONG 
.ASCII <4>\TAPE\ 
.ASCII <4>\TS11\ 
.ASCII <4>\TS04\ 



.ASCII 
.ASCII 
.ASCII 
.BLKB 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.BLKB 



ZZ-ENSAA-7.0 

RMS 

06.23 



Allocate pseudo RPB 

*** RMS Master RMS routines 

Allocate pseudo RPB 



35 30 53 54 04 

30 38 55 54 04 

31 38 55 54 04 
45 44 4F 4E 5F 49 43 07 

4B 53 49 44 04 

00000000' 

00000000 

31 31 43 52 Oh 

35 32 43 52 04 

35 32 46 43 52 05 



00000000' 



00000000' 

00000000 

00000000' 

00 

40 

03 

00 

00000000 

00000000 

00000000' 

00 

40 

02 

00 

00000000 

00000000 

00000000' 

20 

00 

02 

01 

00000000 

00000000 

00000000' 

20 

00 

02 

01 

00000000 

00000000 

00000000' 

20 

00 

02 

01 

00000000 

00000000 

00000000' 

20 

00 

02 

01 

00000000 

00000000 

00000000' 

20 



E 13 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:12:57 
09:41:29 



Fiche 12 Frame E13 Sequence 2426 

VAX-11 Bh'ss-32 V4, 0-742 .. Page 8 
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00OFF 

00104 

00109 

0010E 

00116 

001 1B 

0011C 

00120 

00124 

00129 

001 2E 

00134 

0013C 

00140 

00144 

00H5 

00146 

00147 

00148 

0014C 

00150 

00154 

00155 

00156 

00157 

00158 

0015C 

00160 

00164 

00165 

00166 

00167 

00168 

0016C 

00170 

00174 

00175 

00176 

00177 

00178 

Q017C 

00180 

00184 

00185 

00186 

00187 

00188 

0018C 

00190 

00194 

QQ195 

00196 

00197 

00198 

0019C 

001AO 

001A4 



P. ABM 
P.ABN 
P.ABO 
P.ABP 
P.ABR 

P.ABQ 

P.ABS 
P.ABU 
P.ABV 
P. AST 

P.AAB 



.ASCII <4>\TS05\ 
.ASCII <4>\TU80\ 
.ASCII <4>\TU81\ 
.ASCII <7>\CI N0DE\ 
.ASCII <4>\DI3K\ 
.BLKB 1 
.ADDRESS P.ABR 
.LONG 
.ASCII <4>\RC11\ 
.ASCII <4>\RC25\ 
.ASCII <5>\RCF25\ 
.ADDRESS P.ABU, P.ABV 
.LONG 
.ADDRESS P.AAC 
.BYTE 
.BYTE 64 
.BYTE 3 
.BYTE 
.LONG 
.LONG 
.ADDRESS P.AAD 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



64 

2 









.ADDRESS P.AAE 
.BYTE 32 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



.ADDRESS P.AAF 
.BYTE 32 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



.ADDRESS P.AAG 
.BYTE 32 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



.ADDRESS P.AAH 
.BYTE 32 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



.ADDRESS P.AAI 
.BYTE 32 



ZZ-ENSAA-7.G 

RMS 

06.23 



Allocate pseudo RPB 

*** RMS Master RMS routines 

Allocate pseudo RPB 





F 13 






27-Jul- 


1984 Fiche 12 Frame 




27-Jul- 


1984 16:12:57 VAX-11 Bliss 




26-Jul- 


•1984 09:41:29 DMA1 :[SYS0.< 


00 


001A5 


.BYTE 


02 


001A6 


.BYTE 2 


01 


001A7 


.BYTE 1 


00000000 


001A8 


.LONG 


00000000 


001AC 


.LONG 


00000000' 


001B0 


.ADDRESS P.AAJ 


20 


001B4 


.BYTE 32 


00 


001B5 


.BYTE 


02 


001B6 


.BYTE 2 


01 


001B7 


.BYTE 1 


00000000 


001B8 


.LONG 


00000000 


001BC 


•LONG 


00000000' 


001C0 


.ADDRESS P.AAK 


20 


001 CA 


.BYTE 32 


00 


001C5 


.BYTE 


02 


001C6 


.BYTE 2 


01 


001 C7 


.BYTE 1 


00000000 


001C8 


.LONG 


00000000 


001CC 


.LONG 


OOOOOOOO' 


001D0 


.ADDRESS P.AAL 


20 


001D4 


.BYTE 32 


B1 


001D5 


.BYTE -79 


01 


00106 


.BYTE 1 


03 


001D7 


.BYTE 3 


00000000 


001 D8 


.LONG 


oooooooo • 


001DC 


.ADDRESS P.AAM 


00000000' 


001E0 


.ADDRESS P.AAQ 


20 


001EA 


.BYTE 32 


B3 


001E5 


.BYTE -77 


01 


001E6 


.BYTE 1 


03 


001E7 


.BYTE 3 


oooooooo 


001E8 


.LONG 


oooooooo* 


001EC 


.ADDRESS P.AAR 


00000000' 


001F0 


.ADDRESS P.AAT 


00 


001F4 


.BYTE 


03 


001 F 5 


.BYTE 3 


02 


001 F 6 


.BYTE 2 


03 


001F7 


.BYTE 3 


oooooooo 


001F8 


.LONG 


00U00000' 


001FC 


.ADDRESS P.AAU 


OOOOOOOO' 


00200 


.ADDRESS P.AAX 


00 


00204 


.BYTE 


11 


00205 


.BYTE 17 


02 


00206 


.BYTE 2 


03 


0020? 


.BYTE 3 


00OO0OO0G 


00208 


.ADDRESS DS$GB„UDA50_INIT 


OOOOOOOO' 


0020C 


.ADDRESS P.AAY 


OOOOOOOO' 


00210 


.ADDRESS P. ABC 


00 


002H 


.BYTE 


01 


00215 


.BYTE 1 


02 


00216 


.BYTE 2 


03 


00217 


.BYTE 3 


oooooooo 


00218 


.LONG 


OOOOOOOO' 


0021 C 


.ADDRESS P.ABD 


OOOOOOOO' 


00220 


.ADDRESS P.ABG 


00 


00224 


.BYTE 


02 


00225 


.BYTE 2 



F13 Sequence 2427 
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ZZ-ENSAA-7.0 

RMS 

06.23 



Allocate pseudo RPB 

*** RMS Master RMS routines 

Allocate pseudo RPB 



02 

03 

00000000 

00000000' 

OOOOOOOO' 

00 

11 

01 

01 

00000000 

00000000 

00000000 ' 

00 

B2 

01 

01 

00000000 

oooooooo 
oooooooo 1 

00 
B2 
01 
01 

oooooooo 
oooooooo 

00000000' 
00 
B2 
01 
01 

oooooooo 
oooooooo 
oooooooo* 

00 
B2 
01 
01 

oooooooo 
oooooooo 

OOOOOOOO' 
00 
B4 
01 
01 

oooooooo 
oooooooo 
oooooooo* 

00 
20 
02 
03 
000000006 
OOOOOOOO' 
OOOOOOOO' 
00 

11 

02 



G 13 

27-Jul-1984 
27-M-1984 
26-Jul-1984 



Fiche 12 Frame G13 Sequence 2428 
16:12:57 VAX-11 Bliss-32 V4. 0-742 _ _ Page 10 
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00226 

00227 

00228 

0O22C 

00230 

00234 

00235 

00236 

00237 

00238 

0023C 

00240 

00244 

00245 

00246 

00247 

00248 

0024C 

00250 

00254 

00255 

00256 

00257 

00258 

0025C 

00260 

00264 

00265 

00266 

00267 

00268 

0026C 

00270 

00274 

00275 

00276 

00277 

00278 

0027C 

00280 

00284 

00285 

00286 

00287 

00288 

0028C 

00290 

00294 

00295 

00296 

00297 

00298 

0029C 

002A0 

002A4 

002A5 

002A6 



.BYTE 2 
.BYTE 3 
.LONG 
.ADDRESS P.ABH 
.ADDRESS P.ABJ 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



17 

1 

1 







.ADDRESS P.ABK 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



-78 

1 

1 







.ADDRESS P.ABL 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



-78 
1 

1 





.ADDRESS P. ABM 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



-78 
1 

1 





.ADDRESS P.ABN 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.LONG 
.LONG 



-78 
1 

1 





.ADDRESS P.ABO 

.BYTE 

.BYTE -76 

.BYTE 1 

.BYTE 1 

.LONG 

.LONG 

.ADDRESS P.ABP 

.BYTE 

.BYTE 32 

.BYTE 2 

.BYTE 3 

.ADDRESS DS$GB_CJJNIT 

.ADDRESS P.ABQ 

.ADDRESS P.ABS 

•BYTE 

.BYTE 17 

.BYTE 2 



ZZ-ENSAA-7.0 

RMS 

06.23 



Allocate pseudo RPB 

*** RMS Master RMS routines 

Allocate pseudo RPB 



H 13 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 12 Frame H13 Sequence 2429 

16:12:57 VAX-11 Bh'ss-32 V4, 0-742 Page 

09:41:29 0MA1 :CSYS0.SYSMAINT;jRMS.B32;233 



11 
(3) 



03 002A7 
000000006 002A8 
00000000' 002AC 



OFFC 00000 



0110 BF 



00 



66 

34 

0090 

58 

54 



51 

56 

03 



6E 

66 
A6 



0110 
000OO000G 



04 
20 



8F 
Ef 
52 
50 
50 

00 
66 
56 
AC 
A6 



A6 000000006 EF 

C6 08 AC 

50 OC AC 

A6 50 

A6 50 

50 10 AC 



3C 
16 
DO 
E8 
D4 
04 
2C 

DO 
90 
D4 
9E 
90 
DO 
DO 
DO 
DO 



.BYTE 3 

.ADDRESS DSS6B UDA50JNIT 

.ADDRESS P.ABT" 



DSASAL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGl 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 
DSASGL 

DEFSC 
DEFSQ. 
DSSGA. 



00002 
00007 
OOOOD 
00010 
00013 
00015 
00016 
0001 D 
0001 E 
00021 
00026 
00029 
00031 
00037 
0003B 
0003F 
00043 



APTMAIL= 65024 

~FLAGS= 65024 

APTCOM= 65028 

>ASSES= 65032 

UNITS= 65036 

ISECTNO= 65040 

SID* 65044 

~MSGTYP= 65088 

"ERRNO= 65092 

"EVENT= 65096 

SUBTNO= 65100 

TESTNO* 65104 

PASSNO= 65108 

;DEVLEN= 65112 

DEVNAM= 65116 

~MSGPTR= 65128 

BKSTP LEN== 17 

8ACKST0P== P. AAA 

SUPPORT_TABLE« 

P.AAB 

DSSGK SUPPORT. TABLE^R0US== 

23 

.EXTRN DSSGB UDA50 JNIT 

.EXTRN DEFSQ DIR, &EFSCI DEV 

.EXTRN BOOSSELECT, BOOSAlJ/ECTOR 

.EXTRN EXESDEANONPAGED 

.EXTRN EXESALONONPAGED 

.EXTRN FILSCVTFILNAM, BREAKUP.FILE 

.EXTRN LOCSPTABLE, RT11SOPEN 

.EXTRN ODSSOPEN, ANSISOPEN 

.WEAK DSSGB..CIJN1T 

.PSECT C0DE,N0WRT, SHR,2 

.ENTRY DSRSALLOCATE PSEUDO.RPB, Save R2,R3,R4,R5, 

R6,R7,R8,R9,R10,R11 

MOVZWL #272, R1 

JSB EXESALONONPAGED 

MOVL R2, R6 

BL8S RO, 1$ 

CLRL RO 
RET 

1$: M0VC5 #0. (SP), #0, #272, (RPB) 

MOVL RPB, (RPB) 

MOVB DEVICETYPE, 102CRPB) 

CLRL 32<RPB) 

MOVAB BOOSAL VECTOR. 52CRPB) 

MOVB ADPTYPE, 144(RPB) 

MOVL CSRPHY, RO 

MOVL RO, 88CRPB) 

MOVL RO, 84 (RPB) 

MOVL ADPPBY, RO 



0281 
0291 

0293 

0295 

0296 
0297 
0298 
0299 
0300 
0301 

0302 



ZZ-ENSAA-7.0 

RMS 

06.23 



Allocate pseudo RPB 

*** RMS Master RMS routines 

Allocate pseudo RPB 



60 
5C 
64 
67 
24 



A6 
A6 
A6 
A6 
A6 



I 13 
27-JuM984 
27-JuM984 
26-Jul-1984 



Ffche 12 Frame 113 Sequence 2430 

16:12:57 VAX-11 Bliss-32 V4. 0-742 _ Page 12 

09:41:29 DMA1:[SY$0.SYSMAINTJRMS.B32;233 (3) 



50 DO 00047 

50 DO 0004B 

14 AC B0 0004F 

18 AC 90 00054 

1C AC DO 00059 



0OO00000G Ef 00000000* 8F DO 0005E 



04 0000FE03 
50 



9F 
A6 
50 



04 EO 00069 
OC D8 00071 
56 DO 00075 2$: 
04 00078 



MOVL 
MOVL 
MOVW 
MOVB 
MOVL 
MOVL 

BBS 
MFPR 
MOVL 
RET 



RQ, 96(RPB) 

RC, 92(ftPB) 

DRIVE, 100(RPB) 

SLAVE, 103(RPB) 

CIPORT, 36(RPB) 

#<B0O$SELECT-B00$AL_VECTOR>, 

BOOSAL VECTOR+8 

#4, a#*X0000FE03, 2$ 

#12, 80(RPB) 

RPB, RO 



0503 
0504 
0305 
0306 

0308 

0311 



Routine Size: 121 bytes. Routine Base: CODE + 0000 



ZZ-ENSAA-7,0 

RMS 
06.23 



0312 
0313 

03K 
0315 
0316 
0317 
0318 



Deallocate RPB 
*** RMS Master 
Deallocate RPB 



RMS routines 



J 13 „ 
27-JuM984 

27-Jul-1984 
26-Jul-1984 



Fiche 12 Frame J13 



equence 2431 



16:12.*57 ~ VAX-11 BUss-32 V4,0-74_ 
09:41:29 DMA1 :CSYS0.SYSMAINT3RMS.832;233 



ttbttl 'Deallocate RPB 1 

Global Routine Dsr$Deallocate..Pseudo..RPB (RP8) = 
Begin ! 

(.RPB + 8X0, 16> = RPB$ Length; i 
ExeSDeaNonPaged (.RPB) T 

End; ! 



Page 



C103 
CI 03 
C103 
C103 
[103 



13 
(A) 



0FFC 00000 



.ENTRY 



08 



50 04 


AC DO 00002 


MOVl 


A0 0110 


8F B0 00006 


MOVW 


000000006 


Ef 16 00OOC 


JSB 




04 00012 


RET 



DSRSDEALLOCATE..PSEUDO RP8, Save R2,R3,R4,- 

R5,R6,R7,R8,R9,R10,R1T 

RPB, RO 

Mil. 8(R0) 

EXt$DEAN0NPAGED 



0314 

0316 

0317 
0318 



Routine Size'* 19 bytes. Routine Base: CODE + 0079 



ZZ-ENSAA-7,0 

RMS 
06,23 

0319 1 

QV.Q 1 

0321 1 

C322 1 

0323 1 

0324 1 

0325 1 

0326 1 

0327 ) 

0328 1 

0329 1 

0330 1 

0331 1 

0332 1 

0333 1 

0334 1 

0335 1 

0336 1 

0337 1 

0338 1 

0339 1 

0340 1 

0341 1 

0342 1 

0343 1 

0344 1 

0345 2 

0346 2 

0347 2 

0348 2 

0349 2 

0350 2 

0351 2 

0352 2 

0353 2 

0354 2 

0355 2 

0356 2 

0357 2 

0358 2 

0359 2 

0360 2 

0361 2 

0362 2 

0363 2 

0364 3 

0365 3 

0366 3 

0367 3 

0368 3 

0369 2 

0370 3 

0371 3 

0372 3 

0373 3 

0374 3 

0375 3 



Check device support tables 
*** RMS Master RMS routines 
Check device support tables 

XSbttl 'Check device support tables 1 



K 13 
27-Jul-1984 Fiche 12 Frame K13 Sequence 2432 

27-Jul-1984 16:12:57 VAX-11 BMss-32 V4. 0-742 _ w Page 14 

26-Jul-1984 09:41:29 DMA1 :[SYS0.SYSMAINT3RMS,B32;233 (5) 



Function: , ..... .... j 

Search device support tables for the controller/device specified: return various 
information on tne pair- 
Calling sequence: ,, f t 
status = DSXSCHECK. SUPPORT (Device, Adapter, Btd, File, Init) 



Inputs: 

Device 

Outputs: 
Adc 
Btd 
File 
Jnit 

Status: 

SS$ Normal 
DS$~Error 
DSt ProgErr 



=> Address of device Ptable 

=> Address to receive adapter code (B00TDRIVR) 

=> Address to receive boot device type code 

=> Address to receive file structure type code 

=> Address to recieve address of driver init flag byte 

=> OK 

=> Device is not supported by file services 

=> Error in support table (SPTSV...C0NTR0LLER set but no drive name list, or bad file structur 



Global Routine DSX$Check„Support 
Begin 

Bui It in 

Nul [Parameter; 



(Device, Adc, Btd, File, Init) = 



Map 



Device : Ref SDs^Hpo^Decl (); 



Local 

Controller • 
Adapter : Ref 
Check^Device 
Support. Row : 
Found Device 
PPEV ADAPTER 



Ref SOs.Hpo Dec I <>, 

$DS Hpo.Decl O, 
: ReT Vector [, Byte], 

Ref Support,Entry_Def , 
: Byte Initial (0), 
REF $DS_HP0_DECL <>, 



PREVlCONTROLLER : REF JDS_F)P0_DECL O; 



Determine if parameter was specified 



Pointer to controller Ptable 

Pointer to adapter Ptable 

Pointer for controller device name 

Pointer to support list vector 

flag for search 

Storage for saved copy of adapter ptable 

Storage for saved copy of controller ptable 



Adapter = Controller = PREv.aBAPTER * PREVLCONTROLLER = .Device;! Copy Ptable address 



While .Adapter [Hp$A_Link3 NeqA Do 

PR?V_C0NTR0LLER = .CONTROLLER; 
Controller = .Adapter: 
PREV ADAPTER -.ADAPTER; 
Adapter - .Adapter [Hp$A_Link] 
End; 
BEGIN 
BIND 

DEV TYPE = ADAPTER [HP$T_TYPE3 : VECTOR [, BYTE] 



Locate link Ptables 

Save copy 

Shift links down 

Save copy 



Points to ptable .LINK field 



The following IF statement checks if the ptable TYPE field is an S8IA, if so the previously saved adapter 
address is loaded into ADAPTER. This is necessary for a xxx CPU since HUB is equal to ABUS , and a J. INK 



[133 

CI 33 

[133 

[133 

£ 15] 

[133 
t 1 3 

[133 

[133 
[133 

C223 
C223 
C223 

[133 
[133 
C223 

[133 
[223 

[221 



[223 
[22! 



ZZ-ENSAA-" 


r.o 


MS 




06.23 




; 0376 


3 


; 0377 


3 


; 0378 


3 


; 0379 


5 


; 0380 


3 


; 0381 


4 


; 0382 


4 


; 0383 


4 


; 0384 


4 


; 0385 


2 


; 0386 


2 


; 0387 


2 


; 0388 


2 


; 0389 


2 


; 0390 


3 


; 0391 


3 


; 0392 


3 


; 0393 


3 


; 0394 


3 


; 0395 


3 


; 0596 


3 


; 0397 


3 


; 0398 


3 


; 0399 


3 


0400 


3 


0401 


3 


; 0402 


3 


0403 


3 


0404 


3 


0405 


3 


; 0406 


3 


; 0407 


3 


; 0408 


3 


; 0409 


4 


; 0410 


4 


0411 


4 


; 0412 


4 


; 0413 


4 


; 0414 


4 


; 0415 


4 


; 0416 


4 


0417 


5 


; 0418 


5 


; 0419 


5 


; 0420 


5 


; 0421 


5 


; 0422 


5 


; 0423 


5 


; 0424 


5 


; 0425 


5 


; 0426 


5 


; 0427 


5 


; 0428 


5 


; 0429 


5 


; 0430 


5 


; 0431 


5 


; 0432 


5 



Check device support tables 
*** RMS Master RMS routines 
Check device support tables 

! field of zero would indicate that the present ptable is for an SBIA. 



I 15 
7-JuM984 
7~JuM984 16:12:57 
!6-Jul-1984 09.-41:29 



Fiche 12 Frame L13 



Sequence 2433 



VAX-11 Bliss-32 V4. 0-742 
DMA1:CSYS0.SYSMAINT3RMS.832;233 



IF .DEV TYPE COJ EQL 4 _ t , 

AND .(DEV TYPE [13) <0,32> EQL XASCII 'SBIA 1 
THEN 
BEGIN 



END; 



END 



CONTROLLER = .PREV CONTROLLER; 
ADAPTER = .PREV.ADXPTER; 



Check Device = Controller [Hp$T Type]; 
Support_Row = Ds$GA^Support. Table; 

Incr I From to DsSGK^Support^Table^Rows - 1 Do 
Begin 



Check for correct ASCII count of 4. 
Check for .TYPE filed of SBIA 

Load 'previous* controller ptable address 
Load 'prevous 1 adapter ptable address 

Point to device type of controller 
Point to beginning of table 

Loop through the table 



LITERAL 



MAP 



PR$_SID_TYPZZZ = 5; 
D$A$GL_SID : BLOCK; 



Bind 



Device, Type = .Support. Row CSptSL.Type] : Vector [, Byte]; 



If .Device Type CO] Eql .Check^Device COD 
And ChSEqT ( 

.Device Type CO], 
Device_Type [13. 
.Device_rype C03, 



If device type lengths are same 
.. and names match 



Then 



Check. Device [13 

) 
j 
Begin 



Local 

found Adapter ; Byte Initial (0), 
Found„Unit : Byte Initial (0); 

It .Support.Row CSpt$V„Adapter] 
Then 

Begin 

Bind 

Adapter. Type = Adapter [HpST.Type] : 

If .Support.Row [SptSB Adc] Eql 
And .Adapter_Tvpe [03 Eql 5 
And .(Adapter Type [13X0, 24> Eql XAsc 
And .Adapter.Type [53 Eql ZC'O' 

Then 

Found Adapter = True 



Else if .Support.Rov [SptSB Adc3 Eql 32 
And .Adapter.Type [03 Eql 5 
And .(Adapter Type [1J)<0, 24> Eql XAsc 



And .Adapterjype [53 Eql XC0 % 
Then 



Tentative match. ..verify 1t 



Flag for matching adapter 
Flag for matching unit 

If there should be an adapter 



Bind to the adapter device type 
Vectur [, Byte3; ! 

If it should be a UMIBUS 

.. and strlnc has the right length for , DW75;O l 
i'DW/ 1 ! ., and 1t starts out right 
.. and 1t ends right 

. , then mark that It's OK 
.. 1f It should be MASSbus 
., ar\6 it has right length for •RH7X0' 
i'RH? 1 ! .. and 1t starts out right 
., and it ends right 



Page 15 
(5) 

1221 

C223 
1221 
1221 
1221 
[223 
L221 
1221 
[221 
£13] 
£133 

[133 
C133 

C233 
[233 

C233 
C233 

[133 
[133 

[133 
[133 
[133 
[133 
[133 
[13] 
[133 

m 

C13D 
[133 
[13] 

[13: 
[13] 
[13] 

[13] 
[13] 

[13] 
[13] 
[13: 
[13: 

[13: 

[13: 

[1 

[1 

[13: 

[13: 

[13: 



ZZ-ENSAA-5 


7 .0 


*MS 




06,23 




; 0433 


5 


; 0434 


5 


; 0435 


5 


; 0436 


5 


; 0437 


5 


; 0438 


5 


; 0439 


5 


; 0440 


5 


; 0441 


5 


; 0442 


5 


; 0443 


4 


; 0444 


4 


; 0445 


4 


; 0446 


4 


; 0447 


4 


; 0448 


5 


; 0449 


5 


; 0450 


5 


; 0451 


5 


; 0452 


5 


; 0453 


5 


; 0454 


5 


; 0455 


5 


; 04 5u 


5 


; 0457 


5 


; 0458 


5 


; 0459 


5 


; 0460 


5 


0461 


6 


; 0462 


6 


; 0463 


6 


0464 


6 


; 0465 


6 


; 0466 


6 


0467 


6 


; 0468 


6 


; 0469 


6 


; 0470 


6 


; 0471 


6 


; 0472 


6 


; 0473 


6 


0474 


6 


; 0475 


7 


; 0476 


7 


; 0477 


7 


; 0478 


6 


04 79 


6 


; 0480 


6 


; 0481 


6 


; 0482 


6 


. 0483 


5 


0484 


4 


; 0485 


4 


; 0486 


4 


; 0487 


4 


; 0488 


4 



0489 4 



Check device support tables 
*** RMS Master RMS routines 
Check device support tables 



M 13 
27-Jut-1984 



Fiche 12 Frame M13 



Sequence 2434 



27-Jul-1984 16:12:57 VAX-11 Bliss-32 V4. 0-742 
26-Jul-1984 09:41:29 DMA1 :[SYS0.SYSMAINT3RMS.B32;233 



Found.Adapter = True 
ELSE If .Support„Row Upt$8 Adc] Eql 



then mark it as OK 
If it should be Clbus 



And .Adapter Type CO] Eql 5 ! .. and it has right length for 'CI7X0' 

And .(Adapter Type [13X0, 24> Eql XAscii 'CI7 1 ! .. and it starts out right 

And .Adapter.Type [53 Eq'. %C '0* ! .. and it ends right 
Then ! 



Found.Adapter = True 



then mark it as OK 



End 



Else 

Found^Adapter = True; 

If .Support.Row CSpt$V_Controller3 
Then 

Begin 



Local 



Index : Initial (0); 



Bind 



Drive,Vector = ,Supoort_Row [Spt$L_Drives3 : Vector; 

If no support list 



i Pretend we found it, if there shouldn't be any 

! If there should be a controller, check drives 

i 

1 



I Index in list of drive names 
! Bind to vector of names 



If Drive. Vector Eql 
Then 

Return DSS.ProgErr; 



Return with an error 



While Not .Found Unit And .Drive^Vector [.Index] Neq Do 
Begin ~ I 

Bind ! Map to ASCIC string 

Unit Name = .D ive Vector [.Index] : Vector [, Byte], 
Device Name = Device [Hp$T^Type3 : Vector [, Byte]; 



! Loop through drive list 



! Map string to check 
! Map device Ptable type 



If .Unit Name [0] Eql .Device.Name C0J 
And Ch$Eql ( 

.Unit Name [03, 

Unit Rame [13, 

.Unif.Name COJ. 

Device Name [13 

) 
Then 

Begin 

Found.Unit = True; 

ExitLoop 

End; 

Index = .Index + 1 
End 



Else 



End 



J If sizes are equal 
and names themselves match OK 



OK, this drive is supported 
Don't check the others 



Increment table index 
end of WHIIE loop 



Found.Unit = True; 
Found. Device - (.Found.Adapter And . Found. Unit); 
If .Found_Device 



M^rk as OK it shouldn't be a drive 
1 Check both search bits 



Page 16 
(5) 

C133 

[183 
[183 
[183 
[183 
[183 
[183 

[133 
[133 
[133 

[13] 
[13] 
[133 

[133 
C13] 

[133 

[133 

[133 
[13] 
[13] 

C133 

[13] 

[133 
[133 
[133 

C133 
[133 
[133 
[13] 
[13] 
[13] 
[133 
[13] 
[133 
[133 
[133 
[133 

[133 
[133 

[133 

C13] 
[133 

[13] 



ZZ-ENSAA- 


7.0 


RMS 




06.23 




; 0490 


5 


; 0491 


6 


; 0492 


6 


; 0493 


5 


; 0494 


6 


0495 


6 


; 0496 


5 


; 0497 


4 


; 0498 


4 


; 0499 


1 


; 0500 


5 


; 0501 


3 


; 0502 


2 


; 0503 


2 


; 0504 


2 


; 0505 


2 


; 0506 


2 


; 0507 


2 


; 0508 


2 


; 0509 


2 


; 0510 


2 


; 0511 


2 


; 0512 


2 


; 0513 


2 


0514 


2 


; C515 


2 


; 0516 


2 


0517 


2 


; 0518 


2 


0519 


2 


; 0520 


2 


; 0521 


2 


; 0522 


2 


; 0523 


1 



Check device support tables 
*** RMS Master RMS routines 
Check device support tables 



N 13 
27-Jul-1984 
27-Jul-1984 16:12:57 
26-JUM984 09:41:29 



Fiche 12 frame N13 



Sequence 2435 



VAX-11 Bliss-32 V4. 0-742 
DMA1:CSYS0.SYSMAINT]RMS.B32;233 



THEN IF ((.SUPPORT ROW LSPTSB BTD] NEQ BTD$K CONSOLE) OR 

((.SUPPORT ROW CSPT$B BTD] EQL 8TD$R CONSOLE) AND 
(.DSASGL SID [PR$V SlD TYPE] NEQ PR$_SID_TYPZZZ) AND 
(.SUPPORT ROW [SPTlB FILE] EQL 3)) OR 
((.SUPPORT'ROW CSPT$B"BTD3 EQL BTD$K CONSOLE) AND 
(.DSASGL 5JD [PR$V SID TYPE] EQL PRS..SID.TYPZZZ) AND 
(.SUPPORT ROW [SPT$B FILED EQL 2))) 
THEN EXITLODP 



Not console or 
(console and 

not III cpu and 

RT11) 
(console and 

III cpu and 

ODS) 



End; 

Support^Row = . Swpport.Row + Spt$K_Row„Size 
End; 

If Not .Found^Device Then Return Ds$, M Error; 

If Not NullParameter (2) 
Then 

.Adc * .Support.Row CSptSB^AdfJ; 

If Not NullParameter (3) 

Then 

.Btd = .Supportjtow [Spt$8„Btd3; 

If Not NullParameter (4) 
Then 

.File = .Support.Row [Spt$B_File3; 

If Not NullParameter (5) 
Then 

.Init = ,Support„Row [Spt$LJnitJ; 

SS$ Normal 
End; 



Advance to next row 

Return with error , if not found 

If output params specified* cop;* values 

. . copy adapter code 

.. copy device code 

.. copy file code 

.. copy init address 

Success 

End of routine 



Page 17 
(5) 

[233 
[233 
C233 
[233 
C23D 
C233 
[23] 



C13] 

[13] 
[13] 

[13] 

[133 
[133 
[13] 

[13] 
[13] 
[13] 

[13] 
[13] 
[13] 

[13] 
[13] 
[13] 

[13] 
[13] 







OFFC 00000 


.ENTR 


5E 




04 


C2 00002 


SUBL2 






58 


94 00005 


CLRB 


5? 


04 


AC 


DO 00007 


MOVL 


53 




52 


DO 0000B 


MOVL 


50 




52 


DO 0000E 


MOVL 


57 




52 


DO 000^1 


MOVL 




20 


A7 


D5 00014 1$: 


TSTL 






OF 


13 00017 


■BEQL 


5? 




50 


DO 00019 
DO 0001 C 


MOVL 


50 




57 


MOVL 


53 




57 


DO 0001 F 


MOVL 


57 


20 


A7 


DO 00022 


MOVL 






EC 


11 00026 


BRB 


51 


26 


A7 


9E 00028 2$: 


M0VA8 


04 




61 


91 0002C 


CMPB 






10 


12 0002F 


BNEQ 



DSXSCHECK SUPPORT, Save R2,R3,R4,R5,R6,R7, 

R8,R9,R107R11 

#4, SP 

FOUND DEVICE 

DEVICE, PREV CONTROLLER 

PREV..C0NTR0LCER, PREV ADAPTER 

PREV.CONTROLLER, CONTROLLER 

PREV CONTROLLER, ADAPTER 

32(ADAPTER) 

2% 

CONTROLLER. PREV CONTROLLER 

ADAPTER, CONTROLCER 

ADAPTER, PREV ADAPTER 

32(ADAPTER), ADAPTER 

1$ 

38(ADAPTER), R1 

(R1), M 

3$ 



0344 



0345 
0361 



0363 

0365 
0366 
0367 
0368 

037; 

0378 



2Z-ENSAA-7.0 

RMS 
06.23 



Check device 
*♦* RMS 
Check uevice 



tables 
routines 
support tables 



support 
Master RMS 



41494253 8F 

I? 

55 

50 
64 



51 



00 



01 



Q037V?4<* 8f 



01 AO 



G0374352 8? 



01 AO 



0037494 3 8f 



01 AO 



3E 



07 



OOC0OO0O 



52 

51 
AO 



58 

50 



0< 

18 

30 

20 

05 

18 

30 

1A 
05 

18 

30 

59 
A5 



50 

5 

2 



04 



05 
04 



05 



05 



OC 



00 00660020 



i 



b 



B 14 
!7-JuM9J 
7-Jul-19l 
!6-Jul-19l 



Flche 12 Frame 814 



Sequence 2436 
v4. 0-742 Page 
DMA1jCSYS0;sySMAINT3rtMS-832;233 



16:12:57 VAX-11 BUss-32 
09:41:29 



j? 



3$; 



4$: 



00059 



5$: 

6$: 



7$: 



8$; 



9$: 
10$: 



11$: 
12$: 



CMPL 

BNEO 

MOVL 

MOVL 

M0VA8 

MOVAB 

CLRL 

MOVL 

CMP8 

BNEQ 

MOVZBL 

MOVZBL 

CMPC5 

BEQL 

BRW 

CLRB 

CLRB 

BLBC 

MOVAB 

CLRL 

TST8 

BNEQ 

INCL 

CMPB 

8NEQ 

CMP2V 

BNEQ 

CMP8 

BEQL 

CMPB 

BNEQ 

CMPB 

BNEQ 

CMPZV 

BNEQ 

CMPB 

BEQL 

BLBC 

CMPB 

BNEQ 

CMPZV 

BNEQ 

fMPB 

8NEQ 

MOVB 

B8C 

CLRL 

TSTL 

BNEQ 

MOVL 

RET 

MOVL 

MOVAB 

BL8S 

TSTL 

BEQL 



KR1), #1095320147 

3$ 

PREV CONTROLLER, CONTROLLER 

PREV'ADAPTER, ADAPTER 

38<R0>, CHECKDEVICE 

DS$GA SUPPOR1 TABLE, SUPPORT..ROW 

I 

(SUPPORT ROW), no 

(RO), (CHECK DEVICE) 

5$ 

(RO), R2 

(RO). R1 

R2, 1CR0), #0, R1, 1(CHECK_DEVICE> 

6$ 

17$ 

FOUND ADAPTER 

FOUND UNIT 

7(SUPP0RT ROW). 9$ 

38(ADAPTER), RO 

R1 

4(SUPP0RT..R0W> 

7$ 

R1 

(RO), #5 



a. 



#0, #24, 1CR0), #3626820 

7$ 

5(R0), #48 

9$ 

4(SUPP0RT w R0W), #32 

8$ 

(RO), #5 

8$ 

#0, #24, KRO), #3622994 

f(RO), #48 

9$ 

R1, 10$ 

(RO), #5 

10$ 

#6, #2<*, KRO), #3623235 

10$ 

5(R0), #48 

10$ 

#1, FOUND ADAPTER 

#1, 7( SUPPORT ROW), 141 

INDEX 

12( SUPPORT ROW) 

11$ 

#6684704, RO 



18 
(5) 

0379 

038, 

038; 

0386 

0387 

0401 

0399 

0401 

0403 
0405 
0406 



0409 

0415 
0420 
0422 



0423 

0424 

0425 

0428 

0429 

0430 

0431 

0435 
0436 

0437 

0438 

0444 
0446I 
0448 

0456 



DEVICE, R 
?8<R0), R 



FOUND UNIT x 15$ 

ai2(S0PPORT^ROW)CINDEX] 

15$ 




ZZ-ENSAA~7*0 

SMS 
06.23 



Check device support tables 
*** RMS Master RMS routines 
Check device support tables 



C 14 

27-Jul-19| 
27-juM9| 
26-JuM9l 



51 



00 



01 



58 



40 



40 



FEFA 



6E 



08 



0C 



10 



14 



50 


OC E 


5546 


DO O00F4 


68 




60 


91 O00F9 






10 


12 000FC 


52 




60 


9A 000FE 


51 




60 


9A 001O1 
2D 00104 


A0 




52 




01 


A8 


0010A 






04 


13 0010C 






56 


D6 0010E 






D9 


11 00110 


5A 




01 


90 00112 


50 




5A 


92 00115 


59 




50 


88 00118 


2C 




5B 


E9 001 1 C 


8F 


05 


A5 


91 001 1F 






2E 


12 00124 


C5 


0000FE17 


9F 


91 00126 






06 


13 0012D 


03 


06 


A5 


91 0012F 






1F 


13 00133 


8F 


05 


A5 


91 00135 






OF 


12 0013A 


05 


000OFE17 


9F 


91 0013C 






06 


12 00143 


02 


06 


A5 


91 00145 






09 


13 00149 


55 




10 


CO 0014B 


01 




16 


F1 0014E 


08 




5B 


E8 00154 


50 


00660002 


8F 


DO 00157 
04 001 5E 


02 




6C 


91 0015F 






OA 


1F 00162 




08 


AC 


D5 00164 






05 


13 00167 
9A 00169 


BC 


04 


A5 


03 




6C 


91 001 6E 






OA 


1F 00171 




OC 


AC 


D5 00173 






05 


13 00176 


BC 


05 


A5 


9A 00178 


04 




6C 


91 001 7D 






OA 


IF 00180 




10 


AC 


D5 00182 






05 


13 00185 


BC 


06 


A5 


9A 00187 


05 




6C 


91 Q018C 
1F 001 8F 






OA 




14 


» 


D5 00191 






13 00194 


BC 


08 


A5 


DO 00196 
DO 001 9B 


50 




01 








04 001 9E 



13$: 

14$; 

15$: 



16$: 



17$: 
18$: 



19$: 



20$: 



21$: 



22%t 



23$: 



Sequence 2437 
_ V4. 0-742 Page 

0MA1:CSYS0.SYSMAINfDRMS.832;233 



14 Fiche 12 Frame C14 

I4 16:12:57 VAX-1 1 BUsi-32 

14 09:41:29 



MCVL 812<SUPPOATJU)W>[JNDEXJ, RO 

CMP: (HO), <R8) 

BNEQ 13$ 

MOVZBL (RO), R2 

MOVZBL (RO). R1 

CMPC5 R2, 1(R0), #0, R1, KR8) 

BEQL 14$ 

INCL INDEX 

BR8 1 2$ 

MOVB #1, FOUND UNIT 

MC0M8 FOUND UNI?, RO 

BICB3 RO, FOUND ADAPTER, FOUND.DEVICE 

BL8C FOUND DEVICE, 17$ 

CMP8 5(SUPP0RT^R0W), #64 

BNEO 18$ 

CMPB 9# A X0000FE17, #5 

BEQL 16$ 

CMPB 6CSUPP0RT ROW), #3 

BEQL 18$ 

CMPB 5 (SUPPORT ROW), #64 

BNEQ 17$ 

CMPB a# A X0000FE17, #5 

BNEQ 17$ 

CMPB 6(SUPP0RT ROW), #2 

BEQL 18$ 

ADDL2 #16, SUPPORT ROW 

AC8L *22 t #1, I, U 

BLBS FOUND DEVICE, 19$ 

MOVL #6684574, RO 

RET 

CMPB (AP), #2 

BLSSU 20$ 

TSTL 8(AP) 

BEQL 20$ 

MOVZBL 4(SUPP0RT_R0W), 9ADC 

CMPB (AP), #3 

BLSSU 21$ 

TSTL 12(AP) 

BEQL 21$ 

MOVZBL 5 (SUPPORT ROW), 98TD 

CMPB (AP), #4 

BLSSU 22% 

TSTL 16(AP) 

6E0L 22% 

MOVZBL 6(SUPP0RT„R0W), 9FILE 

CMPB (AP), #5 

BLSSU 23$ 

TSTL 20(AP) 

BEQL 23$ 

MOVL 8(SUPP0RT f- R0W), 3INIT 

MOVL #1, RO 
RET 



19 
(5) 

0464 
0467 

0469 
0471 

0472 



0480 

0485 
0487 

0489 
0490 

0492 

0493 

0494 

0495 

0496 

0501 

0504 

0506 



0508 
0510 



0512 
0514 



0516 
0518 



05i 
05; 



Routine Size; 415 bytes. Routine Base; CODE + 008C 



^ai 



ZZ-ENSAA-" 


7.0 


RMS 




06.23 




; 0524 


1 


; 0525 


1 


; 0526 


1 


; 0527 


1 


; 0528 


1 


; 0529 


1 


; 0530 


1 


; 0531 


1 


; 0532 


1 


; 0533 


1 


; 0534 


1 


; 0535 


1 


; 0536 


1 


; 0537 


1 


; 0538 


1 


; 0539 


1 


; 0540 


1 


; 0541 


1 


; 0542 


1 


; 0543 


1 


; 0544 


1 


; 0545 


1 


; 0546 


1 


; 0547 


1 


; 0548 


2 


; 0549 


2 


; 0550 


2 


; 0551 


2 


; 0552 


2 


; 0553 


2 


; 0554 


2 


; 0555 


2 


; 0556 


2 


; 0557 


2 


; 0558 


2 


; 0559 


2 


; 0560 


2 


; 0561 


2 


; 0562 


2 


; 0563 


2 


; 0564 


3 


; 0565 


3 


; 0566 


3 


; 0567 


3 


; 0568 


3 


; 0569 


4 


; 0570 


4 


0571 


4 


; 0572 


4 


; 0573 


5 


; 0574 


5 


; 0575 


5 


; 0576 


4 


; 0577 


4 


; 0578 


4 


; 0579 


4 


; 0580 


4 



load error status 

*** RMS Master RMS routines 

toad error status 

Xsbttl 'load error status' 



D 14 
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+ + 



Functional description: 

Set status in FAB field STS and clean up static storage for 
return. 

Inputs: 

R0 error code 
Implicit inputs: 

R11 Pointer to FAB 

also some CBL0CK fields if the CBLOCK has been allocated 
Outputs: 

none 
Implicit outputs: 

loads error code into FAB CfabSl.stsJ 
Side effects: 

It will deallocate all nonpaged pool space allocated and 

clear the RMSSF I LE TABLE entry used to point to it, as well 

as the FAB's IFI which is an index into this table. 
Return codes: R0 unaffected 



global routine rmslerror (code) : jsb^rms s 
begin 

external register 

cblock = 9 : ref bblock, 
fab = 11 : ref bblock; 

bind 

cache = cblock Cctl$l„cache1 J : vector; 

fab [fab$l_sts] = .code; 

if .cblock eql then return .code; 

if not .code 

or .cblock Cctl$b_op] eqt ctl$c_close 
then 

begin 

if .cblock Cctl$b„opJ eql ctlSc^open or 

then 

begin 



Make it easy to look at 

Load the return code 

Can't go further if no cblock 

If it was an error 
or this is a c lose 



Deallocate the world 



i 1 1 1 i 



cblock CctlSb.op] eql ctl$c_closo 
If we should deallocate 



! If file header space was allocated 



if .cblock [ctl$l^filhdr] neq 
then 

beg i n 

(.cblock Cc t LSI filhdrJ ♦ 8)<0 f 16> = ct l$c„f i Ihdrsiz: ! Set length of filhdr 

exe$deanonpaged~(. cblock CctlSl.fi IhdrJ) ! Deallocate it 

end; 

if .cblock CctlSl.rpb] neq ! I f we allocated an RPB 
then 

Dsr$Deallocate_Pseudo_RPB (.cblock LctlSl^rpbD); ! Deallocate it 



C103 



ZZ-ENSAA- 


7.0 


RMS 




06.23 




; 0581 


4 


; 0582 


4 


; 0583 


4 


; 0584 


5 


; 0585 


5 


; 0586 


5 


; 0587 


5 


; 0588 


4 


; 0589 


4 


; 0590 


4 


; 0591 


4 


; 0592 


4 


; 0593 


4 


0594 


4 


; 0595 


4 


; 0596 


4 


; 0597 


4 


; 0598 


5 


0599 


5 


0600 


5 


; 0601 


4 


; 0602 


4 


; 0603 


4 


; 0604 


4 


; 0605 


4 


; 0606 


4 


; 0607 


4 


; 0608 


4 


; 0609 


2 


; 0610 


2 


; 061 1 


2 


; 0612 


2 


; 0613 


2 



0614 1 



load error status 

*** RMS Master RMS routines 

Load error status 



if .cblock Cctl$w_fHe_len] neq 
then 

begin 



E 14 
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If we allocated a string 
De-allocate it 



(.cblock Get LSI file ptrO ♦ 8)<0, 16> = .cblock Cct ISw f ile.al toe J; 

' .Load IRPSW.SIZE field 



exeSdeanonpaged (.cblock CctlSl_f ile.ptrJ) 
end; 



! Now deallocate cache buffers if any were allocated 



! De-allocate the string 



incr i from to 2 do 



! If this buffer was allocated 



if .cache C.iJ neq 
then 

begin 

(.cache C.i] + 8)<0, 16> - .cblock CctlSw cache. size3*512; 

exeSdeanonpaged (.cache dD) i Deallocate it 

end; 

exeSdeanonpaged (.cblock); ! De-allocate the block 

rmsSfile table [.fab Cfab$w_if iJJ - 0; ! Clea^ table entry 

cblock =~0; ! Clear cblock pointer 

fab Cfab$w.ifiJ = ! Clear IFl 
end 



I Set size of buffer 



end; 



if .cblock neq then cblock Cctl$b_opJ = 0; 

.code 
end; 



! Clear operation code 

! Return what we came with 
! of rmsSerror 



08 



08 







3E 


BB 00000 


RMSSERROR:: 














PUSHR 


# A M<R1,R2,R3,R4,R5> 


55 




50 


DO 00002 




M0VL 


R0, R5 


AB 




55 


DO 00005 




M0VL 


CODE, 8(FAB) 






59 


D5 00009 




TSTL 


CBLOCK 






7F 


13 0000B 




BEQL 


9$ 


05 




55 


E9 0000D 




BLBC 


CODE, 1$ 


04 




69 


91 00010 




CMPB 


(CBLOCK), H 






71 


12 00013 




BNEQ 


8S 


01 




69 


91 00015 


1S: 


CMPB 


(C8LOCK), #1 






05 


13 00018 




BEQL 


2$ 


04 




69 
67 


91 QQQ1A 
12 0001D 




CMPB 
BNEQ 


(CBLOCK), H 
8$ 


50 


54 


A9 


00 0001 F 


2S: 


M0VL 


84(CBL0CK), R0 






OC 


13 00023 




BEQL 


3$ 


A0 


0200 


8F 


B0 00025 




M0VW 


#512, 8(R0) 




00000000G 


U 


16 00028 




J SB 


EXESDEANONPAGED 




38 


A9 


D5 00031 


3$: 


TSTL 


56(CBL0CK) 



05A7 

0557 
0559 

0561 
0562 

0566 



0571 

0574 
0575 
057S 



ZZ-ENSAA-7.0 

RMS 

06.23 



load error status 

*** RMS Master RMS routines 

Load error status 



FE10 
08 



CF 



50 
A0 



50 



08 



AO 
E? 



OA A9 

54 
50 

50 



38 

48 

4C 
4A 
OOOOOOOOG 

2C 

0200 
000000006 



08 
A9 
01 
A9 
OF 
A9 
A9 
EF 
54 
A944 
OE 
8F 
EF 
02 
59 
EF 
A8 



50 



OOOOOOOOG 
02 

00000000 , EF40 
59 
02 A8 
59 
02 
69 
55 
3E 



13 
DD 
F8 
B5 
13 
DO 
BO 
16 
04 
DO 
13 
A5 
16 
F3 
DO 
16 
3C 
D4 
D4 
B4 
D5 
13 
94 
DO 
BA 
05 



F 14 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 12 Frame F14 Sequence 2440 
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22 
(6) 



00034 

00036 

00039 

0003E 

00041 

00043 

00047 

0004C 

00052 

00054 

00059 

0005B 

00063 

00069 

0006D 

00070 

00076 

0007A 

00081 

00083 

00086 

00088 

0008A 

0008C 

0008F 

00091 



4$: 



5$: 
6$: 



7$: 



8S: 



9$: 



BEQL 4$ 

PUSHL 56(C8L0CK) 

CALLS JM, DSRSDEALLOCATE.PSEUDO.RPB 

TSTW 72CCBL0CK) 

BEQL 5$ 

MOVL 76<CBL0CK), RO 

MOVW 74<CBL0CK>, 8CR0) 

JS8 EXESDEANONPAGED 

CLRL I 

MOVL 44(CBL0CK)CI], RO 

BEQL 7% 

MULW3 #512, 10(C8LOCK), 8(R0) 

JS8 EXESDEANONPAGED 

AOBLEQ HI. I, 6$ 

MOVL CBLOCK, RO 

JSB EXESDEANONPAGED 

MOVZWL 2(FAB), RO 

t'LRL RMSSFILE.TABLECROJ 

URL CBLOCK 

CLRW 2CFAB) 

TSTL CBLOCK 

BEQL 9$ 

CLRB (CBLOCK) 

MOVL CODE, RO 

POPR A M<R1,R2,R3,R4,R5> 

RS8 



0580 

0582 

0585 

0587 
0594 
0596 

0599 

0600 
0596 
0603 

0604 

0605 

0606 
0611 



0614 



Routine Size: 146 bytes. Routine Base: CODE + 022B 



0615 1 



ZZ-ENSAA-7.0 

RMS 

06.23 

0616 1 

0617 1 
C618 1 

0619 1 

0620 1 

0621 1 

0622 1 

0623 I 

0624 1 

0625 1 

0626 1 

0627 1 
06*: 8 1 
0629 1 
C<b30 1 

0631 1 

0632 1 

0633 1 

0634 1 

0635 1 

0636 1 

0637 1 

0638 1 

0639 1 

0640 1 

0641 1 

0642 1 

0643 1 

0644 1 

0645 1 

0646 1 

0647 1 



0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



Load XAB 

*** RMS Master RMS routines 

Load XAB 

%sbttl 'Load XAB' 

globaL routine rms$load_xab : call.rms novalue = 

++ 
FunctionaL description: 

set the fields of the FHC XAB. 



6 H 
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Inputs: 

none 

imp Lie it inputs: 
R9 
R11 



Pointer to the RMS controL block 
Pointer to the FAB block 



all other fields are taken from the FAB or the RMS internal 
control block. 

Outputs: 

none 

Implicit Outputs: 

if the XAB pointer of the FAB is not zero, the XAB block is 
filled in. 

Side Effects: 
none 

Return codes: 
none 



begin 

external register 

cblock = 9 : ref bblock, 
fab = 11 : ref bblock; 

local 

xab : ref bKock; 

xab = , fab Cfab$(_xabJ; 

while .xab neg 

and .xab LxabSb cod] neq xab$c_fhc do 
xab = .xab txab$l..nxtJ; 

i f .xab eql 

or .xab Lxab$b_blnJ neq xab$c_fhclen 
then 

return; 

xab CxabSb atr] = .fab CfabSb rat]; 

xab CxabSTebkJ = .cblock [ctl$l w eofvbnJ: 

xab CxabSw'ffbJ = .cblock CctlSw.of fbyteJ; 

xab Cxab$b>szJ = .fab CfabSbJs*]; 

xab CxabSw^UU = 



! Pointer to control block 
! Pointer to FAB 



Get first XAB address 

while there are more XABs 
and it's not a FHCXAB 
link to next XAB in chain 

If we ran out of XABs 
or this isn't really an FHC 

return to caller 

Copy attributes 

Copy end-of~file VBN 

Copy end-of-file byte number 

Copy fixed header size 

Longest is maximum 



ZZ-ENSAA-7.0 

RMS 

06.23 



0673 
0674 
0675 
0676 



0677 1 



load XAB 

*** RMS Master RMS routines 

load XAB 

xab CxabSw mrzl = .fab [fab$w jnrsJ; 

(xab Cxab$6 rfoDXO, 4> = .faB [fab$b^rfm]; 

(xab Cxab$bIrfoDXA # 4> = fabSc^seq; 

xab LxabSl.sbnJ = .cblock Cctl$L_startlbnJ 

end; 



H 14 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:12:57 
09:41:29 



Fiche 12 Frame H14 Sequence 2442 

VAX-11 BUss-32 V4. 0-742 Page 24 
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! Copy max record length 

! Copy record format 

! Always sequential 

! Copy starting block number 

! of rms$load_xab 



08 A0 



04 



; Routine Size: 79 bytes. 









0000 00000 


.ENTRY 




50 


24 


AB 


DO 00002 


MOVL 








08 


13 00006 1$: 


BEQL 




1D 




60 


91 00008 


CMPB 








06 


13 OOOOB 


BEQL 




50 


04 


AO 


DO 00OOD 


MOVL 








F3 


11 00011 


BRB 








50 


D5 00013 2$: 


TSTL 








37 


13 00015 
91 00O17 


BEQL 




2C 


01 


AO 


CMPB 








31 


12 0001 B 


BNEQ 


09 


A0 


1E 


AB 


90 0001 D 


MOVB 


10 


AO 


44 


A9 


DO 00022 


MOVL 


14 


A0 


42 


A9 


BO 00027 
90 0002 C 


MOVW 


17 


A0 


3F 


AB 


MOVB 




51 


36 


AB 


3C 00031 


MOVZWL 


18 


A0 




51 


BO 00035 


MOVW 


OA 


AO 




51 


BO 00039 


MOVW 




00 


H 


A8 


FO 0003D 


INSV 


08 


AO 


FO 


8F 


8A 00044 


BICB2 


28 


AO 


50 


A9 


DO 00049 
04 0004 E 3$: 


MOVL 
RET 


Routine 


Base: 


CODE + 


028D 







RMS$LOAD XAB, Save nothing 

36(FAB),"XAB 

2$ 

<XAB), #29 

2$ 

4 (XAB), XAB 

1$ 

XAB 

3$ 

KXAB). #44 

3$ 

30(FAB), 9(XAB) 

68(CBL0CK), 16(XAB) 

66(CBL0CK>, 20(XAB) 

63(FAB), 23(XAB) 

54(FA8), R1 

R1, 24CXAB) 

R1, 10(XAB) 

31 (FAB), #0- #4, 8<XAB) 

#240, 8(XAB) 

80(C8LOCK), 40CXAB) 



0618 
0657 
0659 
0660 

0661 

0663 

0664 

0668 
0669 
0670 
0671 
0673 



0674 
0675 
0676 
0677 



0678 1 



ZZ-ENSAA-' 


?.Q 


RMS 




06.23 




; 0679 


1 


; 0680 


1 


; 0681 


1 


; 0682 


1 


; 0683 


1 


; 0684 


1 


; 0685 


1 


; 0686 


1 


; 0687 


1 


; 0688 


1 


; 0689 


1 


; 0690 


1 


; 0691 


1 


; 0692 


1 


; 0693 


1 


; 0694 


1 


; 0695 


1 


; 0696 


1 


; 0697 


1 


; 0698 


1 


; 0699 


1 


; 0700 


1 


; 0701 


1 


; 0702 


1 


; 0703 


1 


; 070 4 


1 


; 0705 


1 


; 0706 


1 


; 0707 


1 


; 0708 


1 


; 0709 


1 


; 0710 


1 


0711 


1 


; 0712 


2 


o; 1 3 


2 


0714 


? 


0715 


? 


; 0716 


1 


0717 


2 


; 0718 


2 


0719 


c 


; 0720 


2 


; 0721 


2 


; 0722 


2 


; 0723 


2 


; 0724 


-• 

c 


; 0725 


2 


; 0726 


2 


; 0727 


2 


; 0728 


2 


; 0729 


2 


; 0730 


2 


; 0731 


2 


; 0732 


2 


; 0733 


2 


; 0734 


2 


; 0735 


2 



allocate cache blocks 

*** RMS Master RMS routines 

allocate cache blocks 



1 u „ 

27-Jul-1984 

27-Jul-1984 16: 12:57 
26-Jul-1984 09:41:29 



Fiche 12 Frame 114 



Sequence 2443 



VAX-11 Blfss-32 V4. 0-742 

DMA1 :[$YS0.SYSMAINT3RMS.B32;233 



Xsbttl •allocate cache blocks 1 

global routine rmsSalloc. cache (bufsiz) : jsb_cblock = 



+ + 



Functional description: 

Allocate cache blocks. Since Magtape requires larger cache 
buffers than other devices, this routine allows each format- 
specific OPEN routine to allocate whatever buffer size is 
necessary. 



size of cache buffer needed in pages 
pointer to control block 



Inputs: 

bufsiz 

Implicit inputs; 
R9 

Outputs: 

none 

Implicit outputs: 
none 

Side effects: 

'non-paged' pool space is allocated for each cache buffer (3). 
The cache buffer pointers in the control block are set to point 
to them, and the CACHE.SJZE word is set to the buffer length 
in pages 



Return codes 

RMS$ NORMAL 
RMSSlDME 

begin 



if everything was OK 

if couldn't allocate memory 



external register 

cblock = 9 : rof bblock; 

Local 

Size; 



cblock CctlSw cache^size] = size = .bufsiz; 
size = .size*5l2; 



! Map to control block 



Set buffer size to alloc. 
Convert to bytes 



If Not ExeSAlononpaged (.Size;, CBlock CCt l$L^Cache13J 
Then ! 

Return RmsS^Hme; ! Allocate A Buffer 

If Not ExeSAlononpaged (.Size;, CBlock [Ct l$L„Cache23) 
Then 

Return RmsS.Dme; ! 

If Not ExeSAlononpaged (.Size;, CBlock CCt l$L_Cache33j 
Then ! 

Return RmsS.Dme; ! 

rms$_normal 



Page 25 
(8) 



[103 
[103 



103 

m 

[10] 
[103 
[10] 



10] 

10] 

[103 



ZZ-ENSAA-7.0 

RMS 

06.23 

0736 1 



allocate cache 
*** RMS Master 
allocate cache 

end; 



blocks 

RMS routines 

blocks 



J 14 
27-Jul-1984 
27~Jul~1984 
26-Jul-1984 



Fiche 12 Frame J14 



of rms$alloc. cache 



Sequence 2444 
V4. 0-742 Page 26 
DMA1 :CSYS0.SYSMAJNT3RMS,B32;233 (8) 



16:12:57 VAX-11 BUss-32 
09:41:29 



1C 88 00000 



54 



54 

OA A9 
54 
51 

2C A9 

51 

30 A9 

10 

51 

00000000G 
34 A9 

09 

50 000184D4 

50 00010001 



000000006 



00000000G 



50 00 

50 8 

09 7 

54 DO 

EF 16 

52 00 

50 E9 

54 DO 
£F 
52 

50 E9 

54 DO 
£F 
52 

50 E 

8F DO 

07 11 

8F DO 

1C BA 
05 



00002 
00005 
00009 
OOOOD 
00010 
00016 
00Q1A 
00010 
0020 
6 
A 
D 

6 
03A 

00044 
00046 
0004D 
0004 F 




RMSSALLOC CACHE 
POSHR 
MOVL 
MOVW 
ASHL 
MOVL 
J SB 
MOVL 
BLBC 
MOVL 
J SB 
MOVL 
BLBC 
MOVL 
JSB 
MOVL 
BLBS 

1$: MOVL 
BR6 

2$ J MOVL 

3$: POPR 
RSB 



#*M<R2,R3,R4> 
BUFSiZ, SIZE 
BUFSIZ, 10(C8L0CK) 
#9, SIZE, SIZE 
SIZE, R1 
EXHSALONONPAGED 
R2, 44(CBL0CK) 
RO, 1$ 
SIZE, R1 
EXESALONONPAGED 
R2, 48(CBL0CK) 
RO, 1$ 
SIZE, R1 
EXESALONONPAGED 
R2, 52(C8L0CK) 
RO, 2$ 
#99540, RO 
3$ 

#65537, RO 
# A M<R2,R3,R4> 



0681 
0720 

0721 
0723 



0727 
0731 

0733 

0736 



; Routine Size: 80 bytes. Routine Base: CODE ♦ 030C 



0737 1 



ZZ-ENSAA- 


7,0 


*MS 




06.23 




; 0758 


1 


; 0739 


1 


; 0740 


1 


; 0741 


1 


; 0742 


1 


; 0743 


1 


; 0744 


1 


; 0745 


1 


; 0746 


1 


; 0747 


1 


; 0748 


1 


; 0749 


1 


; 0750 


1 


; 0751 


1 


; 0752 


1 


; 0753 


1 


; 0754 


1 


; 0755 


1 



initialize static table 
*** RMS Master RMS routines 
i: itialize static table 

Xsbttl 'initialize static table 1 



K 14 
27~Jul~1984 Fiche 12 Frame K14 Sequence 2445 

27-Jul-1984 16:12:57 VAX-11 Bliss-32 V4. 0-742 _ w Page 27 

26-Jul-1984 09:41:29 DMA1 :CSYS0.S.YSMAINT3RMS.832;233 (9) 



++ 



Functional description: 

Set the tile table pointer locations to 0. 

Inputs: none 
Implicit inputs: none 
Outputs: none 
Implicit outputs: none 
Side effects: none 
Status return: none 



global routine rms$init : jsb_none novalue = 

incr i from 1 to 3 do 

rms$fi lettable C.1J - 0; 



50 



01 



F5 



00000000'EF40 
50 03 



DO 00000 RMSSJNIT:: 

M0VL 

04 00003 1$: CLRL 
F3 0000A A081EQ 

05 0000E RSB 



*1, 1 

RMSSFJLE TABLECI3 

«, I, 11 



0754 
0755 



; Routine Size: 15 bytes. Routine Base: CODE + 035C 



0756 1 



ZZ-ENSAA- 


7.0 


RMS 




06.23 




; 075? 


1 


; 0758 


1 


; 0759 


1 


; 0760 


1 


; 0761 


1 


; 0762 


1 


; 0763 


1 


; 0764 


1 


; 0765 


1 


; 0766 


1 


; 0767 


1 


; 0768 


1 


; 0769 


1 


; 0770 


1 


; 0771 


1 


; 0772 


1 


; 0773 


1 


0774 


1 


0775 


1 


; 0776 


1 


0777 


1 


; 0778 


1 


; 0779 


2 


; 0780 


2 


; 0781 


2 


; 0782 


2 


; 0783 


2 


; 0784 


2 


; 0785 


2 


; 0786 


2 


; 0787 


2 


; 0788 


2 


; 0789 


2 


; 0790 


2 


; 0791 


2 


; 0/92 


2 


; 0793 


2 


; 0794 


2 



0795 1 



clean up code 

*** RMS Master RMS routines 

clean up code 

Xsbttt 'clean up code 1 

global routine rms$cleanup : jsb_none novalue - 

+ ♦ 
Functional description: 

Called from CLEANUP to de-allocate any RMS statu storage from 
files not properly closed due to some error. 

Inputs : none 
Implicit inputs: 

rmsSf 1 lettable pointers to control blocks 
Outputs: None 
Implicit outputs: none 
Side effects: 

deallocates any RMS static storage 



incr i from 1 to rms$c_maxf iles do 

if ,rms$f ile.table C.iJ neq 
then 

begin 

local 

x : $fab_decl: 

global register 

cblock = 9 : ref bblocK , 

rab = 10, 

fab - 11 : ref bblock; 

cblock = ,rms$file_table C.iJ; 

fab = x; 

rab = 0; 

fab Cfab$w ifi] = .i; 

cblock CctTSb.opJ = ctlSc.close; 

rns$error (0) 

end; 



L (4 
27-Jul-1984 Fiche 12 Frame 114 ^ Sequence 2446^ 

27-Jul-1984 16:12:57 VAX-11 Bliss-32 V4. 0-742 Page 28 

26-Jul-1984 09:41:29 DMA1 :CSYS0-SYSMAINT]RMS.B32;233 (10) 



! Allocate fake FA8 



Map the control block 

Map the f^ke FAB 

No RAB 

Set the f 1 lettable index 

Force deallocate 

De-allocate *t all 



02 



0E00 8F B8 00000 



00004 
00008 
0000B 
00013 
00015 
00018 
0001 8 
0001 D 
00021 
00024 
00026 



5E 80 AE 


9E 


51 01 


DO 


50 00000000*EF41 


DO 


14 


13 


59 50 


DO 


58 6E 


9E 


5A 


04 


AB 51 


82 


69 04 


90 


50 


04 


FE97 


30 



RMSSCLEANUP:: 
PUSHR 
M0VAB 
MOVl 

1$: MOVl 
BEQL 
MOVl 
M0VA8 
CLRL 
M0VW 
M0V8 
CLRL 
BSBW 



* A M<R9 f R10 / R11> 

-80<SP>, SP 

#1* I 

RMSSFILEJABLECI], R0 

2$ 

R0, CBLOCK 

X, FAB 

RAB 

I, 2(FAB) 

*4, <CBL0CK> 

R0 

RMS$ERR0R 



0759 

0775 
07771 



8 



789 
790 

0791 

079 

079 

0794] 



ZZ-ENSAA-7.Q 

RMS 

06.23 



clean up code 
*** RMS Master 
clean up code 

OE 



RMS routines 



51 
5E 



50 
0E00 



03 
AE 
8F 



M H 
27-Jul-1984 Fiche 12 Frame MH 

27-Jul-1984 16:12:57 VAX-11 BUsi-32 V4, 0-742 

26-Jul-1984 09:41:29 DMA1 :CSYS0.SYSMAJNT]RMS.832;233 



Sequence 2447 



F3 
9E 
BA 
05 



00029 
0002D 
00031 
00035 



2$: 



A08LEQ 
M0VA s S 
POPR 
RSB 



#3, I, 1$ 

8CCSP), SP 
A M<R9,R1O,R11> 



Page 29 
(10) 

; 0777 
; 0795 



Routine Size: 54 bytes. Routine Base: CODE + 036B 



0796 1 



ZZ-ENSAA- 


7.0 


RMS 




06.23 




; 0797 


-\ 


; 0798 


1 


; 0799 


1 


; 0800 


1 


; 0801 


1 


; 0302 


1 


; 0803 


1 


; 0804 


1 


; 0805 


1 


; 0806 


1 


: 0807 


1 


; 0808 


1 


; 0809 


1 


; 0810 


1 


; 0811 


1 


; 0812 


1 


; 0813 


1 


; 0814 


2 


; 0815 


2 


; 0816 


2 


; 0817 


2 


; 0818 


2 


: 0819 


3 



0820 1 



Load error code in RAB 

*** RMS Master RMS routines 

load error code in RAB 

Xsbttl 'load error code in RAB* 
routine rabSerror (code) : jsb_rms = 



+ + 
Functional description: 

Sets error code into RAB 
Inputs: 

code the error code 

Implicit inputs: 

R10 pointer to RA8 

Outputs: none 
Implicit outputs: none 
Side effects: none 
Return status: 

same as code input 



begin 

external register 

rab = 10 : ref bblock; 

(rab CrabSl^sts] - .code) 
end; 



N 14 
27-Jul-1984 
27-JuM984 
26-JuM984 



F 1 c oe 12 Frame NH Sequence 

16:12:57 VAX-11 Bl*fss-32 V4. 0-742 
09:41:29 DMA1 :CSYS0.SYSMAINTDRM$.B32;233 



2MB 



Page 30 
(11) 



! of rabSerror 



08 AA 



50 DO 00000 RABSERROR: 

M0VL 
05 00004 RSB 



CODE, 8(RAB) 



0819 
0820 



Routine Size: 5 bytes. Routine B*se: CODE + 03A1 



/Z-ENSAA- 


?.o 


RMS 




06.23 




; 0821 


1 


; 0822 


1 


: 0823 


1 


; 082* 


1 


; 0825 


1 


: 0826 


1 


; 0827 


1 


; 0828 


1 


0829 


1 


; 0830 


1 


; 0831 


1 


; 0832 
; 0833 


1 


1 


; 0834 


1 


; 0835 


1 


0836 


1 


; 0837 


1 


; 0838 


2 


; 0839 


? 


; 0840 


5 


; 0841 


2 


; 0842 


2 


; 0843 


3 



0844 1 



load FAB error code 

*** RMS Master RMS routines 

load FAB error tode 

isbm 'load FAB error code 1 
routine fabSerror (code) ; jsb.rms - 



Functional description: 

Sets error code into FAS 
Inputs: 

code the trror code 

Implicit inputs? 

R11 pointer to FAB 

Outputs: none 
Impl 1c it outputs: none 
Side effects: none 
Return status: 

same as code input 



begin 

external register 

fab » 11 : ref bblock; 

(fab CfabSl.stsJ - .code) 
end; 



B 15 
27-Jul-1984 Fiche 12 Frame 815 Sequence 2449 

27-Jul-1984 16:12:57 VAX-11 BMss-32 V4.Q-742 _ mwim ?*9* J] 

26*Jul-1984 09:41:29 DMA1 :CSYS0*SYSMAIM5rMS.B52;233 <12> 



! of fab$error 



08 A8 



50 00 00000 FABIERR0R: 

MOVL 
05 00004 RSB 



CODE, 8(FAB) 



; 0843 

; 0&44 



; Routine Si?e: 5 bytes. Routine Base; CODE ♦ 03A6 



c^mmW Si 



7Z-ENSAA- 


7,0 


RMS 




06.23 




; 08^5 


1 


08<.6 


1 


; 0847 


1 


; 08 A 8 


1 


0849 


1 


: 0850 


1 


; 0851 


1 


; 0852 


i 


; 085? 


1 


; 0854 


1 


; 0855 


1 


; 0856 


1 


; 0857 


1 


; 0858 


1 


; 0859 


1 


; 0860 


1 


; 0861 


1 


; 0862 


2 


; 0863 


2 


; 0864 


2 


; 0865 


2 


; 0866 


2 


; 0867 


2 


; 0868 


•> 

4. 


; 0869 


2 


; 0870 


2 


; 0871 


2 


; 0872 


2 



0873 1 



verity validity of FAB 

*** RMS Master RMS routines 

verHy validity of FAB 

Xsbtt I 'verify validity of FAB* 
routine verify^ fab : jsb„rms - 



C 15 
?7-jul-1984 Fiche )2 Frame C15 Sequence 2450 

27-jul-1984 16:12:57 VAX-11 Bliss-32 V4. 0-71*2 Pa 9* 2? 

26-Jul-1984 09:41:29 0MA1 :CSYS0,SYSMAINTJRMS, 832/233 (13) 



♦ ♦ 



Functional description: 

Check the ID fields cf the FAB to be sure it's really a FAB 
Inputs: none 
Implicit inputs: 

R11 pointer to the FAB to verify 

Outputs: none 
Implicit out outs: none 
Side effects: none 
Return codes: 

not a FAB 

1 A good FAB 



begin 

external register 
fab = 11 : ref 



bblock; 



if .fab CfabSb^bldJ neg fjb$c_bid 
or .fab Cfab$b_blnj neq fab$c_bln 



then 



return 0; 



end; 



! If the ID byte ij wrong, 
! or the length is wrong 

• 1 1 * s no good 



! of veMf/.fab 



Routine Size; 19 bytes, 



05 
50 6F 

50 
Routine Base: 



01 



68 


91 00000 VERIFY. 


FAS: 








CMPB 


(FAB), *3 


07 


12 C0003 


BitfO 


1S 


A8 


91 00005 


CMPB 


KF \ti), A'80 


03 


13 0000A 


BEOL 


i% 


50 


DA OOQOC 1 $: 
05 0000E 


Clrtl 


RO 




RSB 




C1 


DO 0000F 2$: 


MOVL 


#1, HO 




05 00012 


RSB 





0867 
0868 
0870 
0873 



CODE ♦ 03A6 



ZZ-ENSAA-7,0 

RMS 
06.23 

0874 1 

0875 1 

0876 1 

0877 1 

0878 1 

0879 1 

0880 1 

0881 1 

0882 1 

0883 1 

0884 1 

0885 1 

0886 1 

0887 1 

0888 1 

0889 1 

0890 1 

0891 1 

0892 1 

0893 1 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 



2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
0906 2 



0907 

0908 
0909 
0910 
0911 



verify cblock 

*** RMS Master RMS routines 

veri fy cblock 

Xsbttl 'verify cbiock' 

routine verify_cblor.k : jsb_rms 



15 
27-jul-1984 Fiche 12 Frame 015 Sequence 2451 

27-Jul-1984 16:12:57 VAX-1 1 BUss-32 V4. 0-742 Page, 33 

26-Jut-1984 09:41:29 DMA1:CSVS0.SYSMAINT.1RMS.832;233 (H) 



Functional description: 

Initialize the global CSLOCK pointer (R9) by using a FAB's 

I F I field as index into the RMS$F1LE_TABLE array of cblock 

pointers. 
Inputs: none 
Implicit inputs: 

R11 
Outputs: none 
Implicit outputs: 

R9 
Side Effects: none 
Return codes: 



1 



pointer to FAB 



pointer to CSLOCK 



IFI or RMSSF RENTABLE entry is invalid 
Alright 



begin 



external register 
cblock r 9, 
fab = 11 : ref bbiock; 

local 
HI; 

ifi - .fab CfabSw.ifi]; 



! Global pointer to Cblock 
! Global pointer to FAB 



if .ifl leq or .ifi gtr rmsSc.maxf i les J 
or (cblock = .rm$$nte_table C.itU) eql 

then 

return (cblock = 0); 



Get the IFI index 

If the ifl is bad 

! or the entry is bad 



1 
end; 



! Clear cblock and return 
! of verify^cblock 



50 



02 AB 3C 00000 



OF 
03 50 

0A 
59 00000000 , EF40 

S3 

50 



50 



01 



15 
D1 
H 

DQ 

04 
D4 
05 

8 



00004 
00006 
00009 
0B 



1$: 



H 

H 

n 

H9 
I01A 2$: 

101 D 



VERIFY_C8L0CK: 
M0VZWL 
BLEQ 
CMPL 
8GTR 
M0VL 
BNEQ 
CLRL 
CLRL 
RSB 
M0VL 
RSB 



2<FAB>, IFI 

1$ 

IS 1 - * 5 

RMSSFILE TABLECJFI3, CBLOCK 
2$ 

CBLOCK 

#1, R0 



090; 

090' 

0906J 
1908 

0911 



Routine Size: 30 bytes. Routine Base: CODE ♦ 03BE 



7Z-ENSAA-7.0 

RMS 

06.23 



veM fy 
RMS 



* ** 



verity 



cblock 
Master 
cblock 



RMS routines 



>7-Jut-19l 
l 7-JuM9l 



Fiche 12 Frame E15 Sequence 2452 

16:12:57 VAX-11 BUss-32 \U.Q-7<*2 ^ _, Pa 9 e ,Jt 

09:41:29 0MA1 :[$VS0 t SySMAJNTJRMS.&32;233 <H) 



Z2-ENSAA- 


7.0 


*MS 




06,23 




; 0912 


1 


; 091 3 


1 


; 091 A 


1 


; 0915 


1 


; 0916 


1 


; 091? 


1 


; 0918 


1 


0919 


1 


; 0920 


1 


; 0921 


1 


; 0922 


1 


; 0923 


1 


; 0924 


1 


; 0925 


1 


; 0926 


1 


; 0927 


1 


; 0928 


1 


; 0929 


2 


; 0930 


2 


; 0931 


2 


; 0932 


2 


; 0933 


2 


; 0934 


2 


; 0935 


2 


; 0936 


2 


; 0937 


2 


; 0938 


2 


; 0939 


2 



0940 1 



verify validity of RAB 

RMS Master RMS routines 



*** 



verify validity of RAB 

Xsbttl •verify validity of RAB 1 
routine verify_rab : jsb.rms = 



F 15 
27* Jul-1984 Fiche 12 Frame F15 Sequence 2453 

27-Jul-1984 76:12:57 VAX-11 8lfss~32 V4. 0-742 Pa 9* 35 

26-Jul-1984 09:41:29 DMA1 :CSYS0.SYSMAINTJRMS.832;233 (15) 



Functional description: 

Check the ID fields of the RAB to be sure It's really a RAB 
Inputs: none 
Implicit inputs: 

R10 pointer to the RAB to verify 

Outputs: none 
Implicit outputs: none 
Side effects: none 
Return codes: 

not a RAB 

1 A good RAB 



begin 

external register 

rab - 10 : ref bblock; 

if ,rab [rab$b_bidJ neg rab$c_bid 

or .rab [rib$b_blnj neq rab$c_bln 

then 

return 0; 

1 
end; 



! If the ID byte is wrong, 
! or the length is wrong 

! it's no good 



! of verify_rab 



01 
44 8F 01 

50 
Routine Size: 19 bytes. Routine Base: CODE ♦ 03DF 



6A 91 00000 VERIFY, 



07 


12 00003 


AA 


91 000C5 


03 


13 0000A 


50 


D4 00OOC 




05 00OOE 


01 


DO 000OF 




05 00012 



1$: 
2$: 



RAB: 




CMPB 


(RAB), 


BNEQ 


1$ 


CMPB 


KRAB) 


8E0L 


2$ 


CLRL 


RO 


RSB 




MOVL 


#1, RO 


RSB 





#1 



#68 



0934 
0935 
0937 
0940 



ZZ-ENSAA-" 


?.0 


RMS 




06.25 




; 0941 


1 


; 0942 


1 


; 0943 


1 


; 0944 


1 


; 0945 


1 


; 0946 


1 


; 0947 


1 


; 0948 


1 


0949 


1 


; 0950 


1 


; 0951 


1 


; 0952 


1 


; 0953 


1 


; 0954 


1 


; 0955 


1 


; 0956 


1 


; 0957 


1 


; 0958 


1 


; 0959 


1 


; 0960 


1 


0961 


1 


; 0962 


1 


; 0963 


1 


; 0964 


1 


; 0965 


1 


; 0966 


1 


; 0967 


1 


; 0968 


1 


; 0969 


1 


; 0970 


1 


; 0971 


1 


; 0972 


1 


; 0973 


1 


0974 


1 


0975 


1 


; 0976 


1 


; 0977 


1 


; 0978 


1 


; 0979 


1 


0980 


1 


; 0981 


1 


; 0982 


1 


; 0983 


1 


; 0984 


2 


0985 


2 


' -86 


2 


V^B7 


2 


0988 


2 


; 0989 


2 


; 0990 


2 


; 0991 


2 


; 0992 


2 


; 0993 


2 


0994 


2 


; 0995 


2 


; 0996 


2 



0997 2 



G 15 

27-Jul-1984 
27-Jul~1984 
26-Jul-1984 



16:12:57 

09:41:29 



RMSSOPEN routine 

•*** RMS Master RMS routines 

RMSSOPEN routine 

Xsbttl 'RMSSOPEN routine 1 

globat routine rmsSopen (fabptr) = 

+ + 
Functional Description: 

Search for the file designated by the FAB filename field (with 
appropriate defaults added). If file is found, set fields in 
FAB, NAM and XAB blocks to values retrieved from the file header 
or other media areas. 



Fiche 12 Frame G15 



equence 2454 



VAX-11 Btfss-32 V4.0-74 

DMAl:CSYS0.SYSM/,INnRMS.B32;233 
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(16) 



Inputs: 



fabptr 



Address of the FA8 block to control access to 
this file. 



Implicit inputs: 

fab$l nam points to the NAM block associated with this FAB. 
fab$l"xab points to the XAB chain associated with this FAB, 
several other pointers with the FAB, NAM and XAB blocks which 
determine the type of file manipulations, what values are to be 
returned, etc. 



Outputs: 
R0 

Implicit Outputs: 

many fields in 
just opened. 



status code 



the FAB, NAM and XAB are set to describe the file 



Side Effects: 

Dynamic pool space is allocated and initialized. 
a ccpy of the file header, and several blocks for 



This includes 
file caching. 



Return codes: 

RMSS.NORMAl 
RMS$ ACC 
RMSS'FAB 

rms$;dme 

RMS$ ORG 



Everything's cool 

Error accessing file 

Bad FAB 

insufficient memory for internal 

data structures 

Invalid file organization (only 

Sequential supported) 



begin 

global register 

cblock = 9 ; ref bblock , 
rab = 10 : ref bblock , 
fab = 11 : ref bblock; 

local 

CBlockSue : Word, 

file index, 

fileSesc : bblock CdscSc_s.bln*5J, 

filename : bblock [nam$c_maxrssj, 

filenamedesc : bblock CdscSc^s^bln]; 



! Pointer to control block 
! RMS package globals 



Return from AloNonPaged 
Potential IFJ 
Descriptors for filename 
Final filename buffer 
Descriptor for filename 



parts 



2Z-ENSAA-" 


r\0 


MS 




06.23 




; 0998 


? 


; 0999 


2 


; 1000 


? 


; 1001 


2 


; 1002 


2 


; 1003 


2 


1004 


2 


; 1005 


2 


; 1006 


2 


; 1007 


2 


1008 


2 


1009 


2 


; 1010 


2 


1011 


3 


; 1012 


2 


; 1013 


2 


; 1014 


2 


; 1015 


2 


1016 


2 


1017 


2 


; 1018 


2 


l 1019 


2 


; 1020 


2 


; 1021 


2 


; 1022 


2 


; 1023 


2 


; 1024 


2 


; 1025 


2 


1026 


2 


1027 


2 


1028 


2 


; 1029 


2 


; 1030 


2 


1031 


2 


1032 


2 


; 035 


2 


; 1034 


2 


; 1035 


2 


; 1036 


2 


; 1037 


2 


; 1038 


2 


; 1039 


2 


1040 


2 


1041 


2 


; 1042 


2 


1043 


2 


1044 


3 


; 1045 


4 


1046 


4 


1047 


4 


1048 


4 


1049 


4 


; 1050 


4 


; 1051 


4 


; 1052 


4 


; 1053 


4 


; 1054 


4 



RMSSOPEN routine 

*** RMS Master RMS routines 

RMSSOPEN routine 



H 15 m _,„ 

27-JtM*84 Fiche 12 Frame HIS Sequence 2455 
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first, check consistency. Specifically, be sure that the 
•FAB* passed really IS a FA8 block. Accept no substitutes 



rab = 0; 
cblock = 0; 
fab = . fabptr; 



No RAB for OPEN service 
No cblock yet 
Set FAB pointer 



if not v/erify_fab <) then return (rms$_fab); ! Invalid FAB 

if .fab [fab$b_org] neq fab$c_seq then return rmsSerror <rms$_org); J DS only supports sequential 

fab [fabSw ifl] = 0; ! Pre-clear iff 

file index~= (incr i from 1 to 3 do ! Find un-used IFJ 
7f .rmsSfile table C.iJ eql then exitloop .i); 



if .file. index eql -1 
then 

return (fab CfabSl.sts] = rms$_dme); 



! If no open slot, 
! Error 



If Not ExeSAlononpaged (Ct l$C_Length; CblockSi2e, CBlock) ! 
Then ! 

Return (Fab [FabSL^Sts] = Rms$„Dme); ! Error Jf Can 1 ! Allocate 

RmsSFUe Table [.File. Index] = .CBlock; 
chSfill T0 f ctlSc length, .cblock); 
CBlock [CtlSW.Size] = .CblockSize; 
cblock [ctl$b op] - ctlSc.open; 
fab CfabSwJfT] = .filejndex; 



! Set file pointer 

! Clear the table 

! set structure size 

! Set operation code 

i 



[11] 

C10] 
C10] 



[11] 



Store pointer to it 



Initialize FAB fields 



fab [fabSw mrs] = fab [fabSb.bks] = ! Clear a few fields 
fab [fabSTstv] = fab CfabSl.mrn] = fab [fab$l_idc3 = 0; 
fab [fabSTstsJ = rmsS.suc; ! Pre-set success code 

ch$MU (07 dsc$c s bln*5, filedesc); ! Initialize filespec parts 
breakup file (defJc^bkstp len, dtfSq backstop, filedesc); ! Ultimate system default 
broakup~file (.defSg.dev LdscJw.length]. ! Load DS default devic 
.de?$q dev [dscSa .pointer], filedesc); 



e 



breakup file (.defSg_3lr [dscSw.length], 
.deTSq dir [dscSa .pointer], filedesc); 

breakup file (.fab [fabSb dns], 
♦ faE [fabSl dna], filedesc); 

breakup file (.Tab CfabSb.fns]. 
.fa5 [fabSl.fna], filedesc); 

begin 

begin 

local 

pointer, 

length; 

pointer = filename; 

length = namSc maxrss; 

filenamedesc [dscSa pointer] = .pointer; 



! Load DS default filespec 
! Load user's default filespec 
) Load filespec 



! Point to filename buffer 
! And set final descriptor 



ZZ-ENSAA-7.0 

RMS 

06,23 



1055 
1056 
1057 
1056 
1059 
1060 
1061 
106? 
1063 

10t'. 

.065 

1066 

1067 

1068 

1069 

1070 

1071 

107? 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

10<>4 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 



4 
5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

4 

4 

4 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

2 

2 

2 



RMSSOPEN routine 

*** RMS Master RMS routines 

RMSSOPEN routine 

incr i from to 4 do 
begin 

bind 
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! For each field 



d = filedesc ♦ .i*dsc$c..s..bln : bbtock; ! Isolate field to load 

local 
len, 

ptr; 

len = .d [dscSw.length]; 
ptr = .d CdscSalpointerj; 

while (len s , len - 1) geq and (length * .length - 1) geq do 
ch$wchar_* (ch$rchar_a (ptr), pointer) 

end; 

filenamedesc Cdsc$w_length] = .pointer - filename; ! Get final length 
end; 

Now, copy filename into system pool space, and set up file control 
block descriptor to it. 

Jf Not FxeSAlononpaged ( ! 

Cblock CCtl$W F?le,Len] = .Filenamedesc CDsc$W_Length3; ! 

CBlock [Ctl$wlF1lejUloc], ! 

CBlock CCtl$L_Filo,Ptr3) ! 
Then ! 

Return RmsSError (RmsS.Dme); ! Fatal If Can 1 ! Allocate 

ch$mve (.filenamedesc Cdsc$w w length], .filenamedesc Cdsc$a_po1nter3, .chlock Cctl$l.,fU*_ptr3>; 

! Copy the string Itself 
end; ! of file merge 

Now, access the file ana set up static pointers, FAB fields, etc. 

begin 



local 

devlen, 

devptr : ref vector C, word], 

stat; 



! Map to check fst 2 chars 



linkage 

jsb_device ' jsb (register * 4. register * 5; ) 
register - 0, register = 1); ! 

external routine J k 

scan$devke : jsb.device novalue addressingjnode (long.relative); 

scanJdeuice (.filenamedesc CdscSw length], ! 

.filenamedesc idsc$a oolnter]; ! 

devlen, devptr); T Check for device name 
cblock Ictltw unitJ = .devlen<16, 16, 1>( ! Store jnit number returned 
stat = ! Do the device dependent part 



[103 
C10J 
[103 
[103 
[103 
[103 



C07] 

C0?3 



C073 
C07] 
[073 

C073 



ZZ-ENSAA' 

RMS 

06,23 

111? 
1115 

11V* 

im 

1 116 

1117 

1118 

1119 

1120 

1121 

1122 

1125 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

116 

116 

1164 

1165 

1166 

1167 

1168 



7.0 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

/ 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 



RMSSOPEN routine 

*** RMS Master RMS routines 

RMSSOPEN routine 

begin 



J 15 
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local 

Adapter-Type, 

DeviceType, 

DeviceUnit, 

SlaveNumber, 

Cinumber, 

OpenRoutine, 

FileFormat, ! Fileformat code 

InitByte, ! Address of byte to clear to cause driver ini t on file open 

Status, ! Status return 

device : ref Ids hpo dec L O f ! Pointer to device PTABLE 

controller : ref$ds~hpo.dec I O, ! Pointer to controller PTABLt 

adiipttr : ref $ds hpo dec I ()* ! Pointer to adapter PTABLE 

PRliV CONTROLLER :"REF~$DS HPO DECL (),!Siorage for previous controller ptable address 

PREV" ADAPTER : REF $DS.HP0_DECL (); ! Storage for previous adapter ptable address 

SlaveNumber = 0; 
OpenRoutine = 0; 
Cinumber * 0; 
LocSPtable (.DevLen<0, 16>, .DevPtr, -1; Device); 



C073 



[103 

[103 
[103 
[103 
[193 
[103 
[133 
[133 
[133 



[223 

[223 

[103 
[10] 
[193 
[093 



! Find the ptable 

If .Device Eql Then Return RmsSError (Rms$_Dev>; ! if none, error 

Controller = Adapter = CBlock [Ctl$L.Ptable3 * PREV..ADAPTER * PREV.C0NTR0LIER = .Device;! Output R1 = ptable 

Locate link Ptables 



While .Adapter [Hp$A Link] NeqA Do 
Begin 

PREV.C0NTR0LLER = .CONTROLLER; 
Controller « .Adapter* 

PREV ADAPTER =. ADAPTER; 
Adapter = .Adapter [HptA^Link] 
End; 
BEGIN 
BIND 

DEV TYPE = ADAPTER [HP$T_TYPE3 : VECTOR [, BYTE3 



Save copy of previous controller ptable address 
Shift links down 
Save copy 



Poih", to ptable .LINK field 



[223 
C223 



The following IF statement checks if the ptable .TYPE field is an SBIA, if so the previously saved adapter 
address is loaded into ADAPTER. This is necessary for a xx* CPU since HUB is equal to ABUS , and a J. INK 
filed of zero would indicate that the present ptable is for an SBIA. 



END; 



If .DEV TYPE 101 EQL 4 

AND .(DEV TYPE [13) <0,32> EQL XASCJI 'SBIA' 
THEN 
8EGIN 

CONTROLLER = .PREV CONTROLLER; 
ADAPTER = ,PREV_ADSPTER; 
END 

DeviceUnit - .Device [Hp$8.Drive3; 

Status = DSXSCheck. Support (.Device, AdapterType 

If Not .Status 
Then 

Begin 



FaE [Fab$L_Stv3 = .Status; 



Check for correct ASCII count of 4. 
Check for TYPE filed of SBIA 



Load 'previous* controller ptable address 
Load •prevous 1 adapter ptable address 

Copy device unit number 

DeviceType, FileFormat, InitByte); ! 

If device not supported 
set secondary status 




ZZ-ENSAA-" 


r.o 


RMS 




06.23 




; 1169 


5 


; 1170 


4 


; 1171 


4 


; 1172 


4 


; 1173 


4 


; 1174 


4 


; 1175 


4 


1 1 76 


4 


; 1177 


4 


; 1178 


4 


1179 


5 


; 1180 


5 


; 1181 


5 


; 1182 


5 


; 1183 


5 


1184 


5 


1185 


4 


; 1186 


4 


1187 


5 


; 1188 


5 


; 1189 


5 


1190 


5 


; 1191 


5 


; 1192 


4 


1193 


4 


; 1194 


5 


; 1195 


5 


1196 


5 


; 1197 


5 


; 1198 


4 


1199 


4 


; 1200 


5 


; 1201 


5 


; 1202 


5 


; 1203 


5 


; 1204 


4 


; 1205 


4 


; 1206 


5 


; 1207 


5 


; 1208 


6 


; 1209 


6 


; 1210 


6 


; 1211 


6 


; 1212 


6 


; 1213 


6 


; 1214 


6 


; 1215 


6 


; 1216 


6 


; 1217 


6 


; 1218 


6 


; 1219 




; 1220 




; 1221 




; 1222 




; 1223 




; 1224 




; 1225 





RMSSOPEN routine 

*** RMS Master RMS routines 

RMS$0PEN routine 

Return RMSSError (RMS$J)ev> 
End; 

If .InitByte NeqA 
Then 

(,lnitByte)<0, 8> = 0; 



Case .FileFormat From 1 To 3 Of 
Set 
[RMS$K_Ansi3 : 

Begin 

Devicellnit = .Controller [Hp$B Drive]; 

SlaveNumber = .Device [Hp$B_DrTve]; 

Fab [Fab$L Dev] = Device$_Ansi; 

CBlock [CtT$V w Ansi] = True; 

OpenRoutine = AnsiSOpen 

End: 
[RMSiK.Od^ J 

Begin 

Cinumber - .Controller [Hp$8_Ci_temJ ; 

Fab [FabSl Dev] * Device$_Ods; 

Cblock CCtTSV.Ods] = True; 

OpenRoutine = OdsSOpen 

End; 
CRMS$Kjt113 : 

Begin 

Fab [Fab$L Dev] = Device$_Rt11; 

CBlock [CtT$VJU113 = True; 

OpenRoutine = RtHSOpen 

End; 
COutRanae] : 

Begin 

Fab [Fab$L Stv] = DSS.ProgErr; 

Return RMSlError (RMS$ Dev) 

End 
Tes; 

(if .OpenRoutine Neq 
Then 

Begin 

CBlock CCtlSL.RPB] = Dsr$Allocate_Pseudo_RPB ( 
DeviceType, 
.AdapterType, 

.Controller [HPSA.Device], 
.Adapter [HP$A_Device3, 
.DeviceUnit, 
.SlaveNumber, 
.Cinumber); 
(.OpenRoutine) () 
End 
Else 

Rms$„Dev) 



K 15 

?7-Jul-1984 Fiche \2 Frame K15 Sequence 

27-Jul-1984 16:12:57 VAX-11 Bliss-32 V4.(h742^ 
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! Device error 



If irn't byte was specified in table 
.. clear the byte 
Case on file format 
,. ANSI file (magtape) 



2458 



Modify device unit number 

Set slave number 

Set device characteristics 

Set ANSI bit 

Set OPEN routine address 

.. ODS file (normal disk) 

Set CI port number for HSC50 
Set device characteristics 
Set ODS bit 
Set OPEN routine address 

. . RT11 console media 



set device characteristics 

set RT-11 bit 

set OPEN routine address 






Bad support table file code 

set secondary return status 
error code 



Open file if good device 



Call the open routine 



End; 

rrosSload.xab (); 

rmsSerror (.stat) 



! Load the FHCXAB if any 
! Return status in FAB I RO 
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[133 

[13] 

[13] 
[13] 
[13J 



[103 
[103 
C103 
[10] 

M 

m 

ho] 

C103 




C073 



ZZ-ENSAA-7,0 

RMS 
06,23 



1226 
122? 



RMSSOPEN routine 

*** RMS Master RMS routines 

RMSSOPEN routine 

end 
end; 



L 15 
27-Jul-1984 
27-JuI-198h 
26-Jul-1984 



16:12:5/ 
09:41:29 



Fiche 12 Frame LIS 



equence 2459 



of file access block 

Of RMSSOPEN 
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.EXTRN SCANSDEVICE 



EE 



?fFF^FF 



08 



5E 
5B 



50 



56 

50 
56 
8F 

51 

57 

59 
10 
A8 
50 



005C 8F 



00 



00000000*EF46 
6E 



0FFC 00000 



FEC4 
04 



08 

50 0001850C 

10 



CE 
59 
AC 
AD 
50 
6F 



50 0001 860C 



08 
02 



A9 
69 

AB 



28 



00 



08 



A8 
6E 



02 



AB 
OA 
8F 
025B 
AB 
01 
00000000 I EF40 
05 
50 
07 
03 
01 
56 

8F 
EF 
51 
52 
50 
8F 
8F 



5C 

00O0000OG 



0001 84D4 
000184D4 



0000G CF 



44 

38 

OC 

3E 

36 

00010001 

D8 
08 

00000000 



08 



9E 

7C 

DO 

10 

E8 

DO 

04 

95 

13 

DO 

31 

B4 

DO 

D5 

12 

DO 

11 

F3 

CE 

01 

13 

9A 

16 

DO 

DO 

E8 

DO 

DO 

04 

DO 

2C 




00002 
00007 
00009 
00000 
OOOOF 
00012 
00019 
0001A 
00010 
0001 F 
00026 
00029 
0002C 
0002F 
00036 
00038 
0003B 
0003D 
00041 
00044 
Q004B 
00040 
00051 
00057 
0005A 
00050 
00060 
00068 
0006F 
00070 
00078 
0007F 
00080 
00084 
00087 
00088 
0QQ8E 
00091 
194 
197 
!9A 

OOA? 

QQA9 

OOAC 

00082 

000B4 

000B9 



1$: 



2$: 

3$: 



4$: 
5$: 



6$: 



7$: 



.ENTRY 

MOVAB 

CLRQ 

MOVL 

8SB6 

BLBS 

MOVL 

RET 

TSTB 

BEQL 

MOVL 

BRW 

CLRW 

MOVL 

TSTL 

BNEQ 

MOVL 

BR8 

AOBLEQ 

MNEGL 

CMPL 

BEQL 

MOVZBL 

JSB 

MOVL 

MOVL 

BLBS 

MOVL 

MOVL 

RET 

MOVL 

M0VC5 

MOVW 
MOVB 
MOVW 
CLRL 
CLRL 
CLRL 
CLRB 
CLRW 
MOVL 
M0VC5 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

PUSHAB 



RMSSOPEN, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,~; 0943 
R11 

-316CSP), SP , iAft , 

CBLOCK ; 1003 

FABPTR, FAB ; 1004 

VERIFY FAB ; 1006 

RO, 1$" 
#99596, RO 

29<FA8) ; 1008 

2$ 

#99852, RO 

2(FAB) ; 1010 

#1,1 ; 1011 

RMSSFILE.TABLEm ; 1012 

4$ 

I f FILEJNDEX 

5i 

#3, I, 3$ 

#1, FILE INDEX ; 1011 

FILEJNDfX, #-1 ; 1014 

6$ 

#92 f R1 ; 1018 

EXESALONONPAGED 

R1, CBLOCKSIZE 

R2, CBLOCK 

RO, 7$ 

#9$540, 8(FAB) ; 1020 

#99540, RO 

CBLOCK, RMSSFILE TABLECFILEJNDEX3 ; 1022 
#0, (SP), #0, #92, (CBLOCK) ; 1023 

CBLOCKSIZE, 8(CBL0CK) ; 1024 

#1, (CBLOCK) ; 1Q2t> 

FILE, INDEX, 2(FAB) ; 1026 

68(FS8) ; 1032 
56(FAB) 
12(FAB) 
(FAB) 

. (FAB) ; 1031 

#65537. 8(FAB) ; 1033 

#0, (SP), #0, #40, FILEDESC ; 1034 

F1LEDESC ; 10351 

DEFSQ.BACKSTOP 

#17 

#3, BREAKUP J ILE 

FILEDESC ; 103d 



ZZ-ENSAA-7.0 

RMS 

06,23 



RhSSOPEN routine 

*** RMS Master RMS routines 

RMSSOPEN routine 



M 15 
27-JuM984 
27-Jul-1984 
26-JUI-1984 



Fiche 12 Frame M15 Sequence 
16:12:57 VAX-11 BUss-32 V4. 0-742 ^ _ 
09:41:29 DMA1 :[SYS0.SYSMAINT:iRMS*B32;233 



2460 



00006 

0OOOG 

00006 

00006 
14 



10 



E3 
<\E 



4C B9 



50 



48 

4A 
4C 



14 



02 



3C 



7E 
CF 



7E 
CF 



7E 
CF 



7E 
CF 
52 
54 
AE 

50 
53 
50 



82 

51 
50 
52 
51 
A9 

A9 
A9 

OA 
50 

BE 
55 
54 

53 
53 

A9 



52 
50 

54 

55 
51 
A9 
52 



00000C )06 


EF 


000000006 


EF 

03 
AD 


08 


000000006 


EF 


000000006 


EF 




03 


D8 


AD 


30 


AB 


35 


A8 




03 


D8 


AD 


2C 


AB 


34 


AB 




03 


18 


AE 


FC 


8F 




52 




51 


D8 AD41 




60 


04 


AO 




53 




09 




54 




05 




80 




F3 




04 


18 


AE 




50 


10 


AE 




51 


000000006 


EF 




51 




52 




50 


00018404 


8F 


012C 


10 


AE 


14 


AE 


10 


AE 


OOOOOOOOG 


EF 




50 


FO 


8F 




50 




56 




57 




01 




53 


000000006 


EF 




51 




76 




54 




54 




54 




54 



DD 

3C 

FB 

9F 

DD 

3C 

FB 

9F 

DD 

9A 

FB 

9F 

DD 

9A 

F8 

9E 

9A 

DO 

D4 

7E 

3C 

DO 

D7 

19 

D7 

19 

90 

11 

F3 

^E 

A3 

5C 

BO 

16 

90 

DO 

E8 

DO 

31 

28 

DO 

3C 

16 

DO 

78 

BO 

D4 

7C 

CE 

3C 

16 

DO 

13 

DO 

DO 

DO 

DO 



OOOBC 

000C2 

O0OC9 

OOOCE 

000D1 

000D7 

OOODE 

000E3 

000E6 

000E9 

OOOED 

000F2 

OOOFS 

000F8 

OOOFC 

00101 

00105 

00109 

001 OD 

0010F 

00114 

00117 

001 1B 

001 ID 

001 1F 

00121 

00123 

00126 

00128 

0012C 

00130 

00135 

00139 

001 3D 

00143 

00147 

001 4B 

0014E 

00155 

00158 

001 5F 

00163 

00167 

0016D 

00170 

00175 

00179 

001 /B 

001 7D 

00180 

00183 

00189 

001CC 

001 8E 

00191 

00194 

00198 



8$: 



9$: 



10$: 



11$: 



Page 42 
(16) 

1037 
1036 



PUSHL DEF$Q_DEV+4 

M0V2WL DEF$Q"DEV, -<SP) 

CALLS #3, BfiEAKUP.FILE , , n7Q 

PUSHAB FILEDESC ; 1038 

PUSHL DEF$QJ)IR+4 ; 1039 

MOVZWL DEFSQ DIR, -(SP) : 1038 

CALLS #3, 3REAKUP_FILE , ^ itK 

PUSHAB FILEDESC ; 1040 

PUSHL 48CFAB) ; 041 

M0V2BL 53<FAB>, -(SP) : 1040 

CALLS #3, BREAKUP_FILE „ rt _ 

PUSHAB FILEDESC ; 1042 

PUSHL 44 (FAB) ; 1043 

M0V7BL 52<FA8), -(SP) ; 1042 

CALLS #3, BREAKUP FILE 

MOVAB FILENAME, POINTER ; 1051 

MOVZBL #252, LENGTH ; 1052 

MOVL POINTER, FILENAMEDESC+4 ; 1053 

CLRL I ; 055 

MOVAQ FILEDESCCJ], RO ; 059 

MOVZWL (RO), LEN ; 1065 

MOVL 4<R0>, PTR ; 1066 

DECL LEN ; 1068 

BLSS 10$ 

DECL LENGTH 

BLSS 10 * • ,^« 

MOVB (PTR)+, (POINTER)* ; 1069 

BRB 9$ 

A08LEQ #4, 1,8$ , ^„ 

MOVAB FILENAME, RO ; 1073 

SUBW3 RO, POINTER, FILENAMEDESC 

MOVZWL FILENAMEDESC, R1 ; 1 081 

MOVW R1, 72<CBL0CK) 

JSB EXE$AL0N0NPA6ED ; 1083 

MOVW R1, 74(C8L0CK) , 1082 

MOVL R2, 76(CBL0CK) ; 1083 

BLBS RO. 11$ 

MOVL #99540, RO ; 1085 

BRW 25$ 

M0VC3 FILENAMEDESC, 3FILENAMEDESC+4, S76(CBL0CK) ; 1087 

MOVL FILENAMEDESC+4, R5 ; 1107 

MOVZWL FILENAMEDESC, R4 

JSB SCAN$DEVICE 

MOVL RO. R3 

ASHL #-16, DEVLEN, RO ; 1110 

MOVW R0 X 2(CBL0CK) 

CLRL OPENROUTINE ; 1131 

CLRQ CINUM8ER ; 1132 

MNE6L #1, R2 ; 1133 

MOVZWL DEVLEN, RO 

JSB LOC$PTABLE 

MOVL R1, R4 

BEQL 18$ ; 1135^ 

MOVL DEVICE, PREV^CONTROLLER ; 1137 

MOVL DEVICE, PREV>DAPTER 

MOVL DEVICE, 60(CBL0CK) 

MOVL DEVICE. ADAPTER 



ZZ-ENSAA-7.0 

RMS 
06,23 



RMSSOPEN routine 

*** RMS Master RMS routines 

RMSSOPEN routine 



53 



N 15 
?7-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Fiche 12 Frame N15 Sequence 

16:12:57 VAX-11 Bliss-32 V4. 0-742 
09:41:29 DMA1 :CSYS0.SYSMAINTJRMS.832;233 



2461 



55 
53 
51 
52 

50 
04 

41494253 8F 

53 
52 
55 



FABC 
OC 



02 
0049 



OC 



40 
01 



40 
01 



40 
01 



CF 
06 
AB 



01 
0032 



AB 
50 

55 
58 

AB 
A9 
56 



54 
A2 
OF 
53 
52 
52 
A2 
EC 
A2 
60 
10 
AO 
06 
55 
51 
A4 
5E 
AE 
AE 
AE 
54 
05 
50 
50 
1A 
6r 

C 
00 Bi 
04 At 
0017 



20 

20 
26 

01 

08 

08 
10 
18 



00660020 
000184C4 

08 

08 

4020 

OOOOOOOOG 



F9A8 CF 



57 34 

AB 10004008 

A9 

56 OOOOG 

AB 10004018 

A9 

56 OOOOG 



0120 
18 
18 
20 
20 




CF 



00 
05 
13 
DO 
DO 
DO 



001 9B 
0019E 
001A1 
001A3 
001A6 
001A9 
DO 001AC 
11 00180 
001B2 
001B6 
001B9 
0018B 
001C3 
001C5 
001 C8 
001CB 
001CF 
001D1 
001D4 
■001 D7 
001DA 
001DC 
001 E1 
001E4 
001E8 
001EA 
001EC 
001EE 
001 F1 
001F6 



9E 

91 

12 

D1 

12 

DO 

DO 

9A 

DD 

9F 

9F 

9F 

DD 

FB 

E8 

DO 

11 

D5 

13 

94 

CF 



Bf DO 

8F DO 

77 11 

A3 9A 

A4 9A 

8F 3C 

08 88 

Ef 9E 

28 11 

A3 9A 

8F DO 

02 88 

CF. 9E 

11 11 

8F DO 



88 
9E 



23 13 

57 DD 

8^ B8 

A2 DD 

A3 DD 

AE DD 

AE DD 

07 FB 



12$: 



13$: 



001 FC 
00204 
00208 
0020D 
00211 
00215 
00218 
0021 F 
00226 
00228 
0022C 
00234 
00238 
0023D 
0023F 
00247 
00248 
00250 
00252 
00254 
00258 
00258 
0025E 
00261 
00264 



14$: 



15$: 



16$: 
17$: 



18$: 
19$: 



20$: 



21$: 



22%t 



MOVL 

TSTL 

BEQL 

MOVL 

MOVL 

MOVL 

MOVL 

BR8 

MOVAB 

CMPB 

BNEQ 

CMPL 

BNEQ 

MOVL 

MOVL 

MOVZBL 

PUSHL 

PUSHAB 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

BLBS 

MOVL 

BRB 

TSTL 

BEQL 

CLRB 

CASEL 

.WORD 



MOVL 

MOVL 

BRB 

MOVZBL 

MOVZBL 

MOVZWL 

BISB2 

MOVAB 

8RB 

MOVZBL 

MOVL 

BISB2 

MOVAB 

BRB 

MOVL 

6IS82 

MOVAB 

BEQL 

PUSHL 

PUSHR 

PUSHL 

PUSHL 

PUSHL 

PUSHL 

CALLS 



DEVICE, CONTROLLER 

32(ADAPTER) 

13$ 

CONTROLLER, PREV CONTROLLER 

ADAPTER, CONTROLCER 

ADAPTER, PREV ADAPTER 

32(ADAPTER), ADAPTER 

12$ 

38(ADAPTER), RO 

(RO), 04 

14$ 

KRO), 01095320147 

14$ 

PREV CONTROLLER, CONTROLLER 

PREV'ADAPTER, ADAPTER 

1KDEVICE), DEVICEUNIT 

SP 

FJLEFORMAT 

DEVICETYPE 

ADAPTERTYPF 

DEVICE 

#5, DSX$CHECK_SUPPORT 

STATUS, 15$ 

STATUS, 12<FAB> 

18$ 

INITBYTE 

16$ 

9INITBYTE 

FILEFORMAT, #1 , #2 

19$-*17$,- 

2U$-17$,- 

21$-17$ 

#6684704, 12(FAB) 

#99524, RO 

25$ 

IKCQNTROlLER), DEVICEUNIT 

V (DEVICE), SLAVENUMBER 

#16416, 64(FAB) 

#8, KCBLOCK) 

ANSI$OPEN, OPENROUTINE 

22% 

52UONTROLLER), CINUMBER 

#2684518*8, 64(FAB) 

#2, KCBLOCK) 

COSSOPEN, OPENROUTINE 

22% 

#268451864, 64 (FAB) 

#K KCBLOCK) 

RT1U0PEN, OPENROUTINE 

23$ 

CINUMBER 

# A M<R5,R8> 

24(ADAPTER) 

24(C0NTR01LER) 

ADAPTERTYPE 

DEVICETYPE 

#7, DSS$ALLOCATE^PSEUDO^RPB 



Page 43 
(16) 



1139 

1141 

1142 
1143 

1144 

1148 
1154 

1155 

1158 
1159 
1162 
1163 



1165 
1168 

T69 
1172 

1174 
1176 



1201 
1202 

1180 
1181 
1182 
1183 
1184 

1188 
1189 
1190 
1191 

1195 
1196 
1197 
1206 
1216 
12U 
1213 
1212 
1211 
1210 



7Z-ENSAA-?;0 

RHS 

06.23 



RMSSOPEN routine 

••* RMS M«ter RMS routines 

RMSSOPEN routine 



6 16 
27-jul-1984 Mcht 12 frame 816 Sequence 2462 

27-Jut-1984 16:12:57 vax-11 BUss-32 V4. 0-742 ^^ Page 44 

26-JuM984 09:41:29 . DMA1 :CSYS0.$YSM4INTjftMS.832;233 (16) 



38 A9 . ... ■ ; 
66 
52 

52 000184C4 
50 



50 00 00269 

00 Ffi Q026D 

50 DO 00270 

0? 11 00275 

8F DO 00275 23$: 

B S8 BSf .** 

F885 50 00284 ?5S: 
04 00287 



MOVL ItJ, 56<C8L0CK) 

CALLS #C, (OPENROUTINE) 

MOVL RO, STAT 

BR8 2U 

MOVL *99524, STAT 

CALLS 4PO f RMS$LOAD XA8 

MOVL STAT, RO 

8S8W RMSSERROR 

RET 



217 



1206 
1224 
1225 

1227 



Routine Sijp:'. 648 bytes, Poutfne Base? CODE + 03fcF 



W8 1 




~n— WBHfc., 



RMS 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1259 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

125* 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1271 

1274 

1275 

1276 

]2?7 

1278 

1279 

1280 
1281 
1282 
1283 
1284 
1285 



/\0 



2 
2 

2 

2 
2 
2 
2 
2 



RMSSCONNECT routine 

*** RMS Master RMS routine? 

RMSSCONNECT routine 

Ssbttl 'RMSSCONNECT routine* 

global routine rmsSconnect (rabptr) = 

♦ ♦ 

Functional description: tjjj 

Connect a RA8 to a FAB. This is relatively trivial; the validity 
of both RA8 and fAB are verified, checks are made to be sure the 
file is open and no other RAB has been connected previously. 



C 16 
27-Jul-1984 Fiche (2 Frame C 16 Sequence 2463 
27-j.jl-1984 16:12:57 VAX-11 Bliss-32 V4. 0-742 _ Page 45 
26-Jul-1984 09:41:29 0MA1 jCSVS0.SYSMA1NT]RMS*832;233 (17) 



pointer to the RAB to connect 



Inputs: 

rabptr 

Implicit inputs: 

RA8 CrabV fat] points to the FAH to connect this RA8 to 

FAB CfabSwIifiJ indexes the rms$Hle_table to find the C8L0CK 

Outputs: 

none 

Implicit outputs? 

RAB [rabSl.sts] return status 
RAB Crabtl^stv] secondary status 

Side Effects: 

some fields in the RAB and CBLOCK are modified 



Return codes: 

RMSS NORMAL 
RMSS.CCR 
RMSS RAB 

RMSS FAB 
RMSSJFI 

RMSS RAC 



begin 



all OK 

a RAB is already connected to this FAB 

the RAB block is invalid 

the FAB block is invalid 

the FAB's J F I find is invalid. 

Invalid record access mode— only SEGuential and 

Rf'A access modes are supported. 



global register 

rab • 10 : ref bblock , 
fab = 11 : ref bblock , 
cblock s 9 : ref bblock; 

cblock = 0; 

fab = 0; 

rab - .r«bptr; 

if not verify.rab O 
then 

return (rmsS_rab); 

rab [rabSl.stv] » 0; 

if .rab CrabSb.racJ neo rabSc.seg 

and ,rab CrabSb^racl neq rabSc^rfa 
then 



Pointer to RAB 
Pointer to FA8 
Pointer to CBLOCK 



Map to RAB 
If the R uj Is bad 
return error 



! If not seguential access 
! and not RFA random 



ZZ-ENSAA-7.0 


RMS 


00.23 


; 1286 2 


; 12*7 2 


; 1 288 2 


; 1 289 2 


; 1290 2 


; 1291 2 


; 1292 2 


; 1293 2 


; 1294 2 


; 1 295 2 


; 1296 2 


; 1297 : 


; 1298 2 


; 1299 2 


; 1 300 2 


; 1301 2 


; 1 302 2 


; 1 303 2 


; 1 304 2 


; 1 305 2 


; 1 306 2 


; 1 307 2 


; 1308 2 


; 1 309 2 


; 1310 2 


; 1311 1 



RMSSCONNECT routine 

*** RMS Master RMS routines 

RMSKONNECT routine 

return rabSerror (rmsl^rac>; 

tab = .rab CrabSL^f ab3; 

it not verify_fab () 
then 

return rabSerror (rms$_fab); 

if not veri fy^cblock () 
then 

return rabSerror (rms$.iii); 

if .cblock CcttSl.rabJ neq 
then 

return rabSerror (rmsS.ccr); 

cblock CctlSl rab3 = .rab; 
cblock CctlSl vbn] = 1; 
cblock CctlSwIbyteD = 0; 
cblock CctlSw rec size] • 0; 
chSHU (0, 6, raB CrabSw^rfaD) ; 
rab CrablLrbfD = 0; 
rab CrabSw rtzl = 0; 
cblock CctT$l.nbp3 = 0; 
rabSerror (rmsS„normaU 
end; 



D 16 
27-Jul-1984 



Fiche 12 Frame D16 



Sequence 2464 



27-Jul-1984 16:12:57 VAX-11 Bllss-32 V4. 0-742 " Page 46 
26-Jul-1984 09:41:29 0MA1 :[SYS0.SYSMAINT;]RM$.832;233 (17) 

then bad access mode 

Map to FA8 

If the FA8 1s bad 

return error 
If the IFI is bad 

return with error 
If there's already a RAB 

it's no good— only one allowed 

Now set point to RAG 

Set internal RFA 

Clear last-record si2e 
Set RFA to 



! Set good return 



5A 



8 



04 



59 

58 

AC 
FD58 

51 



0FFC 00000 

D4 O0QQ2 
04 00004 
DO 00006 



C001863C 8F 



OC 

ie 

02 1E 
50 00018644 

58 JC 

09 

50 0001850C 



09 

50 00018564 

20 



AA 
AA 
OF 
AA 
09 

4F 
AA 



018 11: 



FCF 

5 



i 



F0I 



50 
8F 
2D 

A9 




.ENTRY RMSSC0NNECT, Save R2,R3,R4,R5,R6,R7,R8,R9,- 

R10,R11 

CLRL CBLOCK 

CLRL FAB 

M0VL RABPTR, RAB 

BS8W VERIFY RAB 

BlBS R 2aJ1 « 

M0VL #99900, R0 

RET 

CLRL 12CRAB) 

TSTB 30(RAB) 

BEQL 2$ 

CMPB 30 i RAB), #2 

BE0L ?} 

R0VL #99908, R0 

BRB 6$ 

M0VL 60(RAB) f FAB 

BSBW VERIFY.FAB 

BLBS R0, 3$ 

M0VL #99596, R0 

BRB 6$ 

BSBW VtRIFY. CBLOCK 

BLBS RQ, 4$ 

M0VL #99684, R0 

BR8 6$ 

TSTL 32CC8LOCK) 



1231 

1273 
1274 
1275 
1277 

1279 

1281 

1283 

1284 

1286 

1288 
1290 

1292 

1294 

1296 

129eI 



RMS 
U6.2J 



RMStCONNECT routin* 

*«• RMS Master RMS routines 

RMSSCONNECT routine 



06 



00 



50 0001 3494 

20 A9 

18 A9 

6E 

10 
28 
22 
04 
SO 00010001 



E 16 
27-jut-1984 
27-JuM9§4 
26-JuM9§4 



16:12:5? 
09:41:29 



Flche 12 Framt £16 Sequence 

VAX-11 BUss-3? V4. 0-742 
DMA1:CSYS0.SVSMAINT3RMS.832;233 



24o5 



09 13 00054 BFQL 

3F DO 00056 MOVL 

1F 11 0005D BR6 

5A DO 0005F 5$: MOVL 

01 7D 00065 MOVQ 

00 2C 00067 HOVCS 

AA 0006C 

AA 04 0006E CLRL 

AA B4 00071 CLRW 

A9 D4 00074 CLRL 

8F DO 00077 MOVL 

FCA9 30 0007E 6$: BS8W 

04 00081 RET 



5$ 

#99476, RO 

RAB, 32(CBL0CK> 

#1, 24<CdL0CK) 

40, <SP), #0, 06, 16(RAB> 

40(RA8) 
34 (RAB) 
4(C8L0CK) 
#65537, RO 
RABSERROR 



Page 4 7 
(17) 



1300 

1302 

1303 
1306 

1307 

I 508 
1309 
1310 

1311 



Routine Size: 130 bytes 



Routine Base: CODE ♦ 0677 



1312 1 



ZZ-ENSAA-" 


7.0 


RMS 




06.23 




; 1313 


1 


; 1514 


1 


; 1315 


1 


; 1316 


1 


; 1317 


1 


: 1318 


1 


; 1319 


1 


; 1320 


1 


1321 


1 


; 1 322 


1 


; 1323 


1 


; 1324 


1 


; 1325 


1 


1 326 


1 


; 1327 


1 


: 1328 


1 


; 1329 


1 


; 1330 


1 


; 1331 


1 


; 1332 


1 


; 1333 


1 


; 1334 


1 


; 1335 


1 


1 336 


1 


; 1337 


1 


1338 


1 


1339 


1 


1 540 


1 


1 34 1 


1 
i 


1342 


1 


1343 


1 


1344 


1 


1345 


1 


1 346 


1 


1347 


1 


1 348 


1 


1 349 


1 


1350 


1 


; 1351 


1 


; 1352 


1 


; 1353 


1 


; 1354 


1 


; 1355 


1 


1356 


1 


; 1357 


1 


1358 


1 


1559 


1 


1 360 


1 


1361 


1 


1 362 


1 


1363 


1 


1364 


2 


1 365 


2 


; 1 366 


2 


; 1367 


2 


; 1 368 


2 


; 1 369 


2 



RMS routine 

««« RMS Master RMS routines 

RMS routine 

Jtsbttl 'RMS routine* 

global routine rms$get (rabptr) - 



F 16 
27-JuM984 
27-Jul-1984 
26-Jul-1984 



16:12:57 
09:41:29 



Fiche 12 Frame F16 Sequence 2466 

VAX-11 BUSS-32 V4, 0-742 Page 48 

► DMA1:CSYS0.SYSMAJNT3RMS.332;233 (18) 



♦ ♦ 



Functional description: 

Read the next record into a user-spec if 
file currently open on the FAB to which 
connected. 



ed buffer, from the 
the input RA8 is 



Inputs: 

rabptr 

Implicit inputs: 

RA8 CrabSlJat] 
RAB Crabtw rfaJ 

FAB CfabSwJHJ 
CBL0CK 

Outputs: 

none 

Implicit outputs: 

The R8F and RSZ 
record read. 

RAB CrabSl.sts] 
RAB Crab$l.stv3 
KAB [rab$w rfa] 



pointer to the RAB to use 



The FAB which controls th* file 
Desired record's file address 
Index in RMSSFILE TABLE for this 
Internal control block 



file 



fields of the RAB are set to describe the 



contains the status code 

may contain a secondary status 

in sequential access mode ONLY, this 

3-word field is updated prior to the actual 

access. 



Si do 



effects: 

CBL0CK 



The next RFA. the 
the tape position 
to change. 



cache c< ntrol data, and 
control are all subject 



Return codes: 

RMS$ NORMAL 
RMSSlRER 

RMS$_RFA 

RMS$.E0F 
RMS$ RAB 
RMSS.FAB 
RMS$JF| 

RMS* iSI 
RMS$"RTB 



Everything's nice 

Some read error <RAB CrabSl stv] contains 

the actual SS$.* error codeT 

Invalid RFA was specified in random-by-RFA 



mode. 
Attempt 
bad RA6 
bad FAB 
bad IF I 
FA8 and 
Record 



to read record past end of tile 



(or C8l0C»O 
RAB not connected 
too big for buffer 



(truncated) 



begin 



global 



register 
cblock - 



rab 
fab 



* 9 

= 10 : 
= 11 : 



: ref bblock , 
ref bblock , 
ref bblock; 



Map to CBLOCK 
Map to RA8 

Map to FAB 



7Z-ENSAA- 


7,0 


RHS 




U6.2S 




; 15?0 


2 


; 1371 


2 


; 137? 


2 


; 1373 


2 


; 1 37A 


2 


; 1375 


? 


1376 


2 


137? 


2 


; 1378 


? 


1379 


? 


; 1380 


2 


1381 


2 


; 1382 


2 


: 1 383 


2 


; 1 384 


? 


; 1385 


2 


1 386 


2 


1 387 


2 


; 1388 


? 


; 1 389 


2 


; 1390 


2 


; 1391 


2 


1 39? 


2 


; 1393 


2 


1 394 


? 


; 1395 


2 


1 396 


2 


; 1397 


2 


; 1 398 


2 


1 399 


2 


; 1400 


2 


1401 


■> 


1402 


2 


1403 


2 


1404 


2 


1405 


2 


1406 


2 


; H07 


•> 


1408 


2 


H09 


2 


1410 


2 


1411 


2 


1412 


2 


1413 


2 


1414 


2 


1415 


2 


1416 


2 


1417 


2 


1418 


1 



RMS routine 

*** RMS Master RMS routines 

RMS routine 



local 
stat; 

fab = cblock = 0; 
rab - .rabptr; 

if not verify_rab () 
then 

return (rms$^rab); 

rab [rab*L_stv] = 0; 
fab = .rab Crab$l„fab3; 

if not verify_fab O 
then 

return rabSerror (rmsS^fab); 

i f not veri fy_cblock (> 
then 

return rabSerror (rmsfl.ifi); 

if .cblock CctlSl.rabJ neq .rab 
then 

return rab$error (rmsS.Jsi); 



G 16 
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j Get pointer to RA8 

! If it isn't a RAB 

! no good at all 

! Clear out STV field 

! Point to RAB 1 3 FAB 

! If it isn't a FAB 

! then quit nicely 

! Load CBLOCK pointer, 

! and quit if IFI's bad 

! if this im't the right RA8 

! say 'bad stream id* 



Now, all the control stuff is OK. We can go to work 

cblock CctlSb.op] = ctl$c_get; ! We're on G:T operation 

! I f random, copy user's 

! RFA 
rab rrab$w_rw] * rab CrabSl.rbf] = 0; ! Init context 



if .rab [rab$b„rac3 eql rab$c.rfa 
then 

ch$move (6, rab [rab$w_rfa3, cblock CctlSw.rfaJ); 



C053 



if .cblock CctlSl vbnJ gtr .cblock CctlSl eofvbn] » If RFA is past EOF 

or .cblock CcTlSt,vbn] eql .cblock CcTlSl eofvbn] ! 

and .cblock CctlSw.byteJ geq , cblock CctlSw.otfbyte] 
then 

return rab$error ( 

if .rab CrabSb.racl eql rabSc_rfa then rmsS^rfa else rmsS^eof); • don't bother 

stat - (.cblock CctlSl get!) (); ! Call actual GET routine 

chSmove (6. cblock [ctTJw^rfa], rab r rabSw_rfa]>; ! Set user RFA 
rab$error (.stat) ! Return whatever status 

end; ! Of RMSSGET 



OFFC 00000 
59 D4 00002 



.ENTRY RMSSGET, Save R2 R3,R4.R5.R6,R7,R8,R9,R10,- 
R11 

CLRL CBLOCK 



1315 
1374 



ZZ-ENSAA-7.0 

RMS 

06.23 



RMS routine 

*** RMS Master RMS routines 

RMS routine 



5A 



18 A9 



10 
44 
42 



10 AA 



OC 
18 



58 



69 
02 

AA 
A9 



04 



08 

50 0001863C 



OC 
3C 



09 

50 000185QC 



09 

50 00018564 

5A 20 
50 00018584 



1E 



28 
22 

18 



A9 1C 

02 1E 

50 0001865C 
50 0001827A 

B9 

56 
A9 

50 



58 
AC 
FCD6 
50 
8F 

AA 
AA 

FC90 
50 
8F 
68 

FC94 
50 
8F 
5C 
A9 
09 
8F 
4D 
02 
AA 
06 
06 
AA 
AA 
A9 
09 
IF 
A9 

18 
AA 
09 
8F 
19 
8F 
10 

5 

06 

56 

FCOr 



D4 





\ 



E8 

DO 

04 

D4 

DO 

30 

E8 

DO 

11 

30 

E8 

DO 

11 

D1 

13 

DO 

11 

90 

91 

12 

28 

D4 

B4 

D1 

14 

12 

81 

1F 

91 

12 

DO 

11 

DO 

11 

FB 

DO 

28 

M 

04 



H 16 
7-Jul-1984 
!7-Jul-198« 
!6-Jul-1984 



Fiche 12 Frame H16 Sequence 

16:12:57 VAX-11 Blfss-:>2 V4. 0-742 
09:41:29 DMA1 :[SYSQ,SVSMAINT:JRMS.B32;233 



2468 



00004 CLRL FAB 

QQ006 MOVL RABPTR, RAB 

O00OA BS8W VERJFY_RAB 

0000D BLBS RO, 1$ 

00010 MOVL #99900, RO 

00017 RET 

00018 IS: CLRL 12(RAB) 

0001 B MOVL 60CRAB), FAB 

0001 F BSBW VERIFY JAB 

00022 BL8$ RO, 2$ 

00025 MOVL #99596. RO 

0002C BRB 9$ 

0002E 2$: BS8W VERIFY_C8L0CK 

00031 BLBS RO, 3$ 

00034 MOVL #99684, RO 

0003B BR8 9$ 

0Q03D 3$: CMPL 32(CBLOCK), RAB 

00041 BEQL 4$ 

00043 MOVL #99716, RO 

0004A BRB 9$ 

0004C 4$: MOVB #2. (C8L0CK) 

0004F CMP8 30<RA8), #2 

00053 BNEQ 5$ 

00055 M0VC3 #6. 16<RAB), 24<C8LOCK) 

0005B 5$: CLRL 40(RAB) 

0005E CLRW 34(RAB) 

00061 CMPL 24CC8L0CK), 68(CBL0CK) 

00066 B6TR 6$ 

00068 BNEQ 8$ 

0006A CMPW 28<C3L0CK), 66(CBLOCK) 

0Q06F 8LSSU 8$ 

00071 6$: CMPB 30(RAB>, #2 

00075 8NEO 7$ 

IQ77 MOVL #99932, RO 

I07E BR8 9$ 

I080 7$: MOVL #98938, RO 

I087 BRB 9$ 

IQ89 8S: CALLS #0, ai2(CBLOCK) 

)08D MOVL RO, STAT 

0009C MOVC3 #6, 24CCBL0CK), 16(RAB) 

00096 MOVL STAT. RO 

00099 9$: BSBW RABSERROR 

0009C RET 



Page 50 
(18) 



1375 
1377 

1379 

1381 
1382 
1384 

1386 

1388 

1390 

1392 

1394 

1399 
1401 

1403 
1405 

1407 

1408 
1409 

1413 



1415 

1416 
1417 

1418 



Routine Size: 157 bytes. Routine Base: CODE ♦ 06F9 



1419 1 



ZZ-ENSAA-7.0 

RMS 

06.23 



1420 
1421 
1422 
H23 
1424 
1425 
1426 
1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

H39 

1440 

1441 

144? 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

146? 

1463 

1464 

1465 

1466 

1467 

1460 

1469 

1470 

1471 

147? 

1473 

1474 

1475 

1476 



2 
2 
2 
2 
2 
2 
2 
2 



RMSSREAD routine 

*** RMS Master RMS routines 

RMSSREAD routine 

fcsbttl 'RMSSREAD routine 1 

global routine rmsSread (rabptr) = 

Functional description: JAJ , 

Read from a file, beginning with either the next or so/re specified 
VBN. As many blocks are read as will fit in the user buffer 



I 16 
27-Jul-1984 Fiche 12 Frame 116 Sequence 2469 

27-JuM984 16:12:57 VAX-11 BUss-32 V4. 0-742 _ „, pa * e ,«V 

26-JUI-1984 09:41:29 DMA1 :ESYS0.SYSMAINTJRMS.B32;233 (19) 



Inputs: 



pointer to the RAB to use 



The FA8 which controls the file 
V8N to read from 

Index in RMSSFILE TABLE for this file 
Internal control block 



rabptr 

Implicit inputs: 

RAB ErabSl fabJ 
RAB CrabSl.bktJ 
FAB CfabSwJfn 
CBLOCK 

Outputs: 

none 

Implicit outputs: 

The R8F and RS2 fields of the RAB are set to describe the 
record read. 



RAB CrabSl.stsJ 

RAB CrabSl.stv] 



Side effects: 
CBLOCK 



Return codes: 

RMSS NORMAL 
RMSSlRER 



RMSS.RAB 
RMSS.FAB 
UMSSJFJ 

RMSSJSJ 

RMSSJ0F 



contains the status code 

may contain a secondary status 



The next block< the cache control data, and 
the tape position control are all subject 
to change. 



Everything's nice 

Some read error (RAB CrabSl stvJ contains 

the actual SS$_* error code? 

bad RA6 

bad FAB 

bad IFI (or CHLOCK) 

FAB and RAfl not connected 

V8N specified 1s past EOF 



begin 



global register 

cblock = 9 : ref bblock , 
rab - 10 : ref bblock . 
fab = 11 : ref bblock; 

local 
stat; 

fab = cblock * 0; 
rab = .rabptr; 



! Mdp to CBLOCK 
! Map to RAB 
J Map to FAQ 



Get pointer to RAB 



ZZ-ENSAA- 


7,0 


RMS 




06.23 




; 1477 


? 


; K78 


2 


H79 


2 


; H80 


2 


; 1481 


2 


; H82 


2 


; H83 


2 


; 1484 


2 


; 1485 


2 


; U86 


2 


1487 


2 


; 1488 


2 


; 1489 


2 


1490 


2 


1491 


2 


; 1492 


2 


1493 


2 


; 1494 


2 


1495 


2 


1496 


2 


1497 


2 


; 1498 


2 


1 499 


2 


; 1500 


2 


1501 


2 


; 1502 


2 


; 1503 


2 


; 1 504 


2 


1505 


■3 


1506 


2 


1507 


2 


; 1 508 


2 


; 1 509 


2 


1510 


2 


1511 


2 


; 1512 


2 


; 1513 


2 


1514 


3 


; 1515 


3 


1516 


2 


1517 


2 


; 1518 


2 


1519 


2 


; 1 520 


2 


; 1521 


1 



RMSSREAD routine 

**« RMS Master RMS routines 

RMSSREAD routine 

if not verify_rab () 
then 

return (rmsS_rab); 

rab [rabSl stv] = 0; 
fab a .rab trabSl„fab]; 

it not verffyjab () 
then 

return rabSerror (rmsS_fab); 

if not verify_cblock () 
then 

return rabSerror (rmsS.ifi); 

if .cblock CctlSl.rab] neq .rab 
then 

return rabSerror (rms$_jsi); 
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!6-JuM984 09:41:29 DMA1 :[SYS0.SYSMAINTjRMS.832;253 (19) 

If it isn't a RAB 

no good at all 

Ciear out STV field 
Point to RAB's FAB 

If it isn't a FAB 

then quit nicely 
Load CBLOCK pointer, 

and quit if r 5Ps bad 
If this isn't the right RAB 

say 'bad stream id* 



Now, all the control stuff is OK, We can go to work 



cblock CctlSb.opJ = etlSc.read; 

if .cblock [ctlSl„nbp] ecil 
then 

cblock CctlSl.nbp] = 1; 

if .rab CrabSl.bktJ gtr 
then 

cblock CctlSl.nbp] - .rab CrabSl.bktJ; 

rab CrabSl.rfaO] ' .cblock CctlSl.nbpJ; 

rab CrabSw_rfa4] = 0; 

rab [rabSw^rse] = rab CrabSl.rbf] = 0; 



We're on READ operation 

If this is first 

Set to block 1 

If user specified VBN 

Copy to next block pointer 

Set RFA to beginning of block 

Init context stuff 



if .cblock CctlSl nbp] gtr .cblock Cc t ISl.tofvbn] ! if past end of file 
or (.cblock CctlSl.nbp] eql .cblock Cct ISl^eofvbn] ! 
and .cblock Cct ISw.of fbyte] eql 0) ! (check if on null block) 

then 

return rabSerror (rmsS.eof); ! don't bother 



C05] 



C05] 
C05] 



stat = (.cblock CctlSl.readJ) (); 

rabSerror (.stat) 

end; 



! Call actual READ routine 
! Return whatever status 
! Of RMSSREAD 



5A 

08 



04 



OFFC 00000 

59 D4 00002 

58 D4 66604 

AC DO 00006 

FC39 30 0000A 

50 E8 OOOOD 



.ENTRY RMSSREAD, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 

R11 

CLRL CBLOCK 

CLRL FAB 

M0VL RABPTR, RAB 

BS8W VERIFY„RAB 

BLBS RO, 1$ 



1422 

1474j 

1475 
1477 



ZZ-ENSAA-7.0 

RMS 
06,23 



RMS$READ routine 

*** RMS Master RMS routines 

RMSSREAD routine 



04 
10 



10 



50 0001863C 8F 



58 



04 A9 



A9 
AA 



44 A9 



OC 
3C 



09 

50 0001850C 



09 

50 00018564 

5A 20 

50 00018584 

69 



04 



38 

38 
04 

14 

ii 

04 



42 
50 0001827A 
B9 



AA 

AA 

FQF3 

50 

¥ 
5D 

FBF? 
50 
Bf 
4E 
A9 
09 
8F 
3F 
03 
A9 
04 
01 
AA 
05 
AA 
A9 
M 
AA 
AA 
A9 
07 
0E 
A9 
09 
8F 
04 
00 

F87D 



K 16 

27-Jul-1984 
27-Jut-1984 
26-Jul-1984 



Fiche 12 Frame K16 Sequence 

16:12:57 VAX-11 Bliss-32 V4. 0-742 
09:41 i29 DMA1 :[5YSO.SYSMAINT]RMS.B32;233 



2471 



DO 00010 
04 00017 

D4 00018 1S: 
DO 0001 B 
30 0001 F 
E8 00022 
DO 00025 
11 0002C 
30 QQ02E 2$: 
E8 00031 
DO 00034 
11 0003B 
D1 0003D 3$: 

13 00041 
DO 00043 

11 0004A 

90 0004 C 4*: 
D5 0004F 

12 00052 
DO 00054 

D5 00058 5$: 
15 0005B 
DO 0005D 
DO 00062 6$: 
84 00067 
D4 0006A 
B4 0006D 
D1 00070 

14 00075 
12 00077 
B5 00079 
12 0007C 

DO 0007E 7$: 
11 00085 
FB 00087 



30 0008B 

04 0008E 



$: 
$: 



MOVL 

RET 

CLRL 

MOVL 

BSBW 

BLBS 

MOVL 

BRB 

BSBW 

BLBS 

MOVL 

BRB 

CMPL 

BEQL 

MOVL 

BRB 

MOVB 

TSTL 

BNEQ 

MOVL 

TSTL 

BLEO 

MOVL 

MOVL 

CLRW 

CLRL 

CLRW 

CMPL 

B6TR 

BNEQ 

TSTW 

BNEQ 

MOVL 

BRB 

CALLS 

BSBW 

RET 



#99900, RO 

12(RA8) 
60(RAB), FAB 
VERIFY FAB 

#99596, RO 

9$ 

VERIFY^CBLOCK 

RO, 3$ 

#99684, RO 

9$ 

32CC8LOCK), RAB 

4$ 

#99716, RO 

9$ 

#3, (CBLOCK) 

4CCBL0CK) 

5$ 

#1, 4(CBL0CK) 

56CRAB) 

56(RAB), 4(CBLOCK) 

4<CBL0CK), 16<RAB) 

20 (RAB) 

40<RAB) 

34 (RAB) 

4(CBLOCK), 68(CBL0CK) 

7$ 

8$ 

66<C8L0CK) 

8$ 

#98938, RO 

9S 

#0, 916(CBL0CK) 

RA&SERROR 



Page 53 
(19) 

1479 

1481 
1482 
1484 

1486 

1488 

1490 

1492 

1494 

1499 
1501 

1503 
1505 

1507 
1509 
1510 
1511 

1513 

1514 
1515 

1517 

1519 
1520 

1b21 



Routine Size: 143 bytes. Routine Base: CODE + 0796 



1522 1 



ZZ-ENSAA-7,0 

RMS 
06.23 



1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

•> 

2 
2 



RMSSDISCONNECT routine 

*** RMS Master RMS routines 

RMSSDISCONNECT routine 

Xsbttl , RMS$DISC0NNECT routine' 

global routine rmsSdisconnect (rabptr) = 

+ + 
Functional description: tj ^ j 

Disconnect a RAB from a FA8. This is relatively trivial; the validity 
of both RAB and FAB are verified, checks are made to be sure the 
file is open and the RAB was connected to that FAB 



27-Jul~1984 Flche 12 Frame L16 Sequence 2472 
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Inpvts: 



rabptr 



pointer to the RAB to disconnect 



Implicit inputs: 

RAB CrabSl fatJ points to the FAB to disconnect this RAB from 
FAB CfabSw^i f 13 indexes the rmstfl lettable to find the CBL0CK 

Outputs: 
none 

Implicit outputs: 

RAB [rab$Lsts] return status 
RAB Crab$Lstv3 secondary status 

Side Effects: 

some fields in the RAB and C8L0CK are modified 



Return codes; 

RMS$. NORMAL 
RMSS RAB 
RMS$IFAB 
RMSS IF I 
RMS$:iSI 



begin 



all OK 

the RAB block 1s Invat id 
the FAB block is invalid 
the FAB's IF J field Is Invalid 
RAB and FAB weren't connected 



global register 

rab = 10 : ref bblock , 
fab = 11 : ref bblock , 
cblock = 9 : ref bblock; 

fab = cblock = 0; 
rab = .rabptr; 

if not verify_rab () 
then 

return (rms$_rab>; 

rab Crab$L$tv] = 0; 
fab = .rab CrabSl^fabJ; 

i f not veri fy_fab () 
then 

return rabSerror (rms$_fab); 

if not ven'fy_cblock 



! Pointer to RAB 
! Pointer to FAB 
! Pointer to CBLOCK 



! Map to RAB 

! If the RAB is bad 

! return error 

Map to FAB 
If the FAB is bad 
return error 
If bad IF 1 



B 1 

C 1 

D 1 

E 1 

F 1 

G 1 

H 1 

1 1 

J 1 



K 
L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 



1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 
4 



B 5 

C 5 

D 5 

E 5 

F 5 

G 5 

H 5 



QASF ind.User.Call J rame 

QASF indJJser Cal I F rame 

QASInit 

QASInit 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASMain 

QASPrinWorced w Errors 

Dispose 

Dispose 

Dispose 

Dispose 

Dispose 

Dispose 

QASPr in t .Overall ..Errors 

QASPrint_Overall_Errors 

QASPt int Overall Errors 

QASPrint^Overa Horrors 

QASPrint_Overall„Errors 

QASPr int. Overall. Errors 

QASPrint Overall Errors 

End of Module QAflAIN 



Q10 
07-18 



Symbols 
Symbols 



Libraries and Equated 
Libraries and Equated 
E> vernal Symbols 

Symbols 

Symbols 

Symbols 

QIO DISPATCHING ROUTJ 

QJO DISPATCHING ROUTI 
Initialize QIO 
Initial ize QIO 



External 

External 

External 

EXESQIO 

EXESQJO 

QIOSINITIALIZE 

Q10SINITIALIZE 



GIOSCLEANUP Remove 
QIOSCLEANUP Remove 
QIOSCLEANUP Remove 
QIOSADDUNIT Add 
QIOSADDUNIT Add 
QIOSADDUNIT Add 
QIOSADDUNIT Add 
QIOSADDUNIT Add 
QIOSADDUNIT Add 
QIOSADDUNIT Add 
INI MBADP BUILD 
JNI'MBADP BUILD 
INIJJBADP BUILD 
INI.DRADP BUILD 
INI DRADP BUILD 



old 
old 
old 



I 5 MAXIMIZE ACCESS 



unit 

unit 

unit 

unit 

unit 

unit 

unit 

ADP AND 

ADP AND 

ADP AND 

ADP AND 

ADP AND 

MODE 



QIO dat 
QIO dat 
QIO dat 
to the 
the 
the 
the 
the 
the 
the 
INITIA 
INITIA 
INITIA 
INITIA 
INITIA 



to 
to 
to 
to 
to 
to 



M 5 
N 5 



B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

f 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 
C 8 



BUGSCHECK Bugcheck notificatio 
QIOSLQAD DB Insert unit into d 
QIOSL0ADJ)B Insert unit into d 
Q10SLOAD DB Insert unit into d 
QI0SL0AD.DB Insert unit into d 
QIOSLOAD DB Insert unit into d 
QIOSLOAD^DB Insert unit into d 
DB ERROR ERROR LOADING DATABAS 
D8~ERR0R ERROR LOADING DATABAS 
I05ENSCNTRL INI Initialize a c 
MEMORY ALLOCATION SUBROUTINES 
ADPLINK Link adapter to end o 

Check reasonab 



- Check reasonab 



ExeSPwrTimChk 

ExeSPwrTimChk 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

*** QIOFDT function oispatch r 

*** QIOFDT function despatch r 

*** QIOFDT function dispatch r 

ONE PARAMETER FUNCTION PROCESS 

ZERO PARAMETER FUNCTION PROCES 



F 8 

G 8 READ AND WRITE FUNCTION PROCES 

H 8 READ AND WRITE FUNCTION BUFFER 

I 8 READ AND WRITE BUFfER CHECK AN 

J 8 READ AND WRITE 3UFFER CHEC>' AN 

K 8 CHECK BUFFER ACCESSIBILITY FOR 

L 8 CHECK BUFFER ACCESSIBILITY FOR 

M 8 CHECK BUFFER ACCESSIBILITY FOR 

N 8 CHECK BUFFER ACCESSIBILITY FOR 

B 9 SET DEVICE MODE AND CHARACTER! 

C 9 SET DEVICE MODE AND CHARACTERI 

D 9 SENSE DEVICE MODE AND CHARACTE 

E 9 CARRIAGE CONTROL INTERPREIATJO 

F 9 CARRIAGE CONTROL INTERPRETATIO 

G 9 Symbol table 

H 9 Symbol table 

I 9 Symbol table 

J 9 Cross reference 

K 9 Cross reference 

L 9 Cross reference 

M 9 Cross reference 

N 9 *** QIOREQ handle QIO request 

B 10 *** QIOREQ handle QIO request 

C 10 *** QIOREQ handle QIO request 

D 10 DECLARATIONS 



E 
F 
G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

6 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

f 

G 

H 

I 

J 

K 

L 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

12 
12 
12 
12 
12 

12 
12 
12 
12 



13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 



QUEUE I/O REQUEST 
QUEUE I/O REQUEST 
QUEUE I/O REQUEST 
QUEUE I/O REQUEST 
QUEUE I/O REQUEST 
COMPLETE I/O OPERATION 
QUEUE I/O PACKET TO DRIVER 
EXESALTQUEPKT - Call driver AL 
QUEUE I/O PACKET TO ACP 
INSERT I/O PACKET IN UNIT QUEU 
INSERT I/O PACKET IN QUEUE BY 
Symbol table 
Symbol table 
Symbol table 
Symbol table 
Psect synopsis 
Cross reference 
Cross reference 
Cross reference 
Cross reference 

*** RELOCDRV relocate I/O driv 
*** RELOCDRV relocate I/O driv 
INITIALIZE DRIVER DATA BASE 
REINITIALIZE DRIVER DATA BASE 
LOCAL SUBROUTINE TO 
LOCAL SUBROUTINE TO 
LOCAL SUBROUTINE TO 
LOCAL SUBROUTINE TO 
Symbol table 
Symbol table 
Cross reference 
Cross reference 
*** RM3 Master RM5 
RMl 
RMS 
RMS 

able 

RPB 

RPB 

RPB 

RPB 



*** RMS Master 

*** RMS Master 

*** RMS Master 

Device support 

Allocate pseudo 

Allocate 

Allocate 

Allocate 

Allocate 

Allocate 

Allocate 



EXECUTE OP 
EXECUTE OP 
LOCATE DAT 
LOCATE DAT 



routines 
routines 
routines 
routine 



pseudo 
pseudo 
pseudo 
pseudo RPB 
pseudo RPB 
pseudo RPB 
Deallocate RPB 
Check device support 
device support 
device support 
device support 
device support 
device support 
error status 
error status 



Check 

Check 

Check 

Check 

Check 

lodu 

load 

load 

load 

load 

allocate 

allocate 



tables 
tables 
tables 
tables 
tables 
tables 



error status 

XAB 

XAB 

cache 

cache 



blocks 
blocks 



initialize static table 
clean up code 



M H clean up code 

N H load error code in RAB 

b 15 load FAB error code 

C 15 verify validity of FAB 

D 15 verify cblock 

E 15 verify cblock 

F 15 verify validity of RAB 

G 15 RMSSOPEN routine 

H 15 RMSSOPEN routine 

I 15 RMSSOPEN routine 

J 15 RMSSOPEN routine 

K 15 RMSSOPEN routine 

I 15 RMSSOPEN routine 

M 15 RMSSOPEN routine 

N 15 RMSSOPEN routine 

B 16 RMSSOPEN routine 

C 16 RMSSCONNECT routine 

D 16 RMSSCONNECT routine 

E 16 RMSSCONNECT routine 

F 16 RMS routine 

G 16 RMS routine 

H 16 RMS routine 

I 16 RMSSREAD routine 

J 16 RMSSREAD routine 

K 16 RMSSREAD routine 

L 16 RMSSDISCONNECT routine 



77-ENSAA- 


7,0 


RMS 




06.23 




; 1580 


2 


; 1581 


2 


; 1582 


2 


: 1583 


2 


1584 


2 


; 1585 


2 


; 1586 


2 


; 1587 


2 


; 1588 


2 


; 1589 


1 



RMSSDISCONNECT routine 

*** RMS Master RMS routines 

RMSSDISCONNECT routine 

then 



return rabSerror (rmsS^ifi); 

if .chlock Cctl$l M rabJ neq .rab 

then 

return rabSerror (rms$_isi); 

cblock CctlSl.rabD = 0; 
rabSerror (rmsS_normal) 
end; 
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! return with error 
If this isn't the right RAB 
say 'bad stream id' 



Clear RAB pointer. 
Set good return 





0FFC 


00000 




59 


D4 


00002 




5B 


D4 


00004 


5A 04 


AC 


00 


00006 




F8AA 


30 


OOOOA 


08 


50 


E8 


000OD 


50 0001863C 


8F 


DO 


00010 






04 


00017 


OC 


AA 


D4 


00018 


5B 3C 


AA 


DO 


0001 B 




F864 


30 


0001 F 


09 


50 


E8 


00022 


50 0001850C 


BF 


DO 


00025 




28 


11 


0002 C 




F868 


30 


0002E 


09 


50 


E8 


00031 


50 000*8564 


8F 


DO 


00034 




19 


11 


0003B 


5A 20 


A9 


D1 


0003D 




09 


13 


00041 


50 00018584 


3F 


DO 


00043 




0A 


11 


0004A 


20 


A9 


D4 


0004 C 


50 00010001 


8F 


DO 


0004 F 




FB23 


30 


00056 






04 


00059 



.ENTRY RMSSDISCONNECT, Save R2,R3,R4,R5,R6,R7,R8, 
R9,R10,R11 

CLRL CBLOCK 

CLRL FAB 

MOVL RA8PTR, RAB 

BSBW VERIFY_RAB 

BIBS RO, 1$ 

MOVL #99900, RO 

RET 

1S: CLRL 12(RAR) 

MOVL 60(RAB), FAB 

BSBW VERIFYJAB 

BLBS RO. 2S 

MOVL #99596, RO 

BRB 5$ 

2$: BSBW VERIFY. CBLOCK 

BLBS RO, 3$ 

MOVL #99684, RO 

BRB 5S 

3S: CMPL 32(CBLOCK), RAB 

BEQL 4$ 

MOVL #99716, RO 

BRB 5S 

4$: CLRL 32(C8LOCK> 

MOVL #65537, RO 

5$: BSBW RABSERROR 

RET 



; Routine Size: 90 bytes. 



1590 1 



Routine Base: CODE + 0825 



1525 

1565 

1566 
1568 

1570 

1572 
1573 

1575 

1577 
1579 

1581 

1583 

1585 

1587 
1588 

1589 



7Z-ENSAA-7.0 

RMS 

06,23 



1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1 646 

1647 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

? 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

■t 
c 

-) 

c 

2 
2 
2 

2 
2 
2 
2 
2 
2 
2 
2 



RMSSCLOSE routine 

*** RMS Master RMS routines 

RMSSCLOSE routine 

Xsbtcl 'RMSSCLOSE routine 1 

global routine rmsSclose (fabptr) = 
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♦ ♦ 



Functional description 

Perform operations necessary to sever a file's connection to 
RMS. This includes de-allocating all internal data blocks, 
re-positioning a magtape (if the file is on magtape), and 
clearing the file's slot in the RMS$F J LETTABLE . 



Inputs: 



fabptr 



Pointer to the FA8 describing the file to be closed 



Implicit inputs: 

The control block (CBLOCK) associated with the file. 

Outputs: 

none 



Implicit outputs: 

FAB CtabSl.stsJ 



contains return code 



Side Effects: 

Deallocate file's CBLOCK and clear the file's slot in the file 
pointer table, and the FAB's I F I . 

Return codes: 

RMSS NORMAL All OK 

possTble magtape positioning error code 



begin 

global register 

cblock = 9 : ref bblock , 

rab = 10, 

fab = 11 j ret bblock; 

local 

stat; 

cblock = rab - 0; 
fab = . fabptr; 

if not verify_fab () then return (rms$_fab); 

fab [fabSl stsJ = 0; 
fab Cfab$r$tvJ - 0; 

if not veri ty_cblock 
then 

return rmsSerror (rms$_ifi); 

cblock Cctl$b„opl = ctl$c_close; 

if .cblock CctlSl.rob] neq 



map control block 

register for rab (not used) 

To map FAB 



! None 

! Set up FAB pointer 

! Error if not rea FAB 

! Init some fields 

If bad IFI 

return error 
Specify operation 
If RAB wasn't disconnected 



ZZ-ENSAA-7.0 

RMS 

06.23 



1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 



2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 
2 
3 
3 
2 
? 
1 



RMSSC10SE routine 

*** RMS Master RMS routines 

RMSSCLCSE routine 



1 
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2475 
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then 



begin 

local 
stat; 

stat = rms$disconnect (.cblock Cct l$L_rab3) ; ! Disconnect it 



if not .stat 
then 

return rmsSerror (.stat) 
end; 

stat = (if .cblock Cct l$l„: lose] neq 
then (.cblock Cct l$l_c lose3) () 
else rms$_normal); 
rmsierror (.stat) 
end; 



! Error? 



If there's a close routine 

call it 

otherwise, set good status 
De-allocate, return 



FF6E 



14 





0FFC 00000 


.ENTRY 


RMSSCLOSE, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


1593 










R10,R11 






59 


7C 00002 


CLRQ 


CBLOCK 


1633 


58 04 


AC 


DO 00004 


MOVL 


FABPTR, FAB 


1634 




F821 


30 00008 


8SBW 


VERIFY FAB 


• 1636 


08 


50 


E8 00008 


BL8S 


RO. 1$" 
099596, RO 




50 0001850C 


8F 


DO 0000E 


MOVL 








04 00015 


RET 






08 


AB 


7C 00016 1$: 


CLRQ 


8(FAB) I 


1638 




FB23 


30 00019 


BSBW 


VERIFY, CBLOCK 


1641 


09 


50 


b"8 0001 C 


BLBS 


RO, 2$ 
#99684, RO 




50 00018564 


8F 


DO 0001 F 


MOVL 


• 1643 




25 


11 00026 


BR8 


5$ 




69 


04 


90 00028 2$: 
D5 00028 


MOVB 


#4, (CBLOCK) 


1645 


20 


A9 


TSTL 


32(CBLOCK) 


• 1647 




08 


13 0002E 


BEQL 


3$ 




20 


A9 


DD 00030 


PUSHL 


32(CBLOCK) 


1654 


CF 


01 


F8 00033 


CALLS 


01, RMSSDISCONNECT 




12 


50 


E9 00038 


BLBC 


STAT, 5$ 


• 1656 


14 


A9 


D5 0003B 3$; 


TSTL 


20(CBL0CK) 


• 1661 




06 


13 0003E 


BEQL 


4$ 




89 


00 


F8 00040 


CALLS 


00, a20(CBLOCK) 


• 1662 




07 


11 00044 


BRB 


5$ 




50 00010001 


8F 


DC 00046 4$: 


MOVL 


065537, STAT 


• 1661 




F95C 


30 0004D 5$: 


BSBW 


RMSSERROR 


• 1664 






04 00050 


RET 




• 1665 



Routine Size: 81 bytes. Routine Base: CODE ♦ 087F 



1666 


1 




1667 


1 


end 


1668 


1 




1669 





eludom 
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RMSSCLOSE routine 

*** RMS Master RMS routines 

RMSSCLOSE routine 
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PSECT SUMMARY 



Name 



Bytes 



WORK 
DATA 
CODE 
* ABS 



16 NOVEC, WRT, RD 

688 NOVEC, NOWRT, RD 

2256 NOVEC, NOWRT, RD 

NOVEC, NOWRT, NORD 



Attributes 

,NOEXE,NOSHR, LCL, REL, 

,NOEXE, SHR, LCL, REL, 

, EXE, SHR, LCL, REL, 

,NOEXE,N0SHR, LCL, ABS, 



C0N,NOPIC,Ai_JGN(2) 
C0N,N0PIC,ALIGN(2) 
C0N,N0PK,ALIGN(2) 
C0N,NOPK,ALIGN(0) 



Library Statistics 



File 

DRB1 :CDS.WORK3DIAG.L32;265 

DRB1:EDS.WORKJDS.L32;159 

SYS$SYSROOT:[SYSUB]UB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 

21 
65 
97 



Percent 



Pages 

Mapped 

85 

42 

975 



Processing 
Time 

00:00.2 
00:00.2 
00:04.9 



COMMAND QUALIFIERS 
BL I SS/NOOBJECT/l J STEEDS. L I SD/OPTJMIZE = ( LEVEL: 3, SPACE) /DEBUG/ TRACE RMS 

Size: 2256 code + 704 data bytes 

Run Time: 00:56.5 

Elapsed Time: 02:48.1 

Lines/CPU Min: 1773 

Lexemes/CPU-Min: 23093 

Memory Used: 21^ pages 

Compilation Complete 



ZZ-ENSAA-7.0 



« v j01 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 



*** RT11 Console media RMS routines 
*** RT11 Console media RMS routines 
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Xtitle **** RT11 
module RT11 ( 



Console media RMS routines' 



ident 
) = 



= •01-04' 



RMSS0PEN, RMSSGET, RMS5READ, RMSSCLOSE services 



Copyright (c) 1980, 1981 __ 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RtSPONSIBILI TY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

+ 1 
FACILITY: Diagnostic Supervisor 

ABSTRACT: 

This module supports RMS operations on the VAX console media 
(RT-11 formatted RX-01/02 or TU-58). 



AUTHOR: 

Dave Butenhof, 



15-aug-1980 



MODIFIED BY 



01 



02 
03 

04 



Dave Butenhof, 6-feb-1981, version 6.3 

Make $GET return full record size in RABSL.STV on 

RMS$JUB error. 

- Dave butenhof, 02-Jun-1981 f version 6.4 
Fix spec, of libraries for flexibility 

- Dave Butenhof, 26-Jun~1981, version 6.4 

Delete useage of DSP$XX READ routine; use bootdrivers 
(booSqio) for console storage read. 

Jack Stansbury, 1-June-1982, Version 6,8 
Fixed a truncation error. 



ZZ-ENSAA-7.0 

RT11 

01-04 



0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 







declarations 

*** RT11 Console media RMS routines 

declarations 

Xsbttl •declarations 1 
begin 



include files: 

library 'Sdiag 1 ; 

library '$ds'; 

library ' sys$library:lib. 132*; 

Internal definitions 
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linkage 



jsb acr = isb : global (block = 6, vbn = 7, cblock = 9, rab 
jsb^adv * ]sb (register = 0) : global (vbn = 7, offset = 8); 



■- 10), 



table of contents: 



forward routine 
advance 
access 
rtHSopen 
rt11$get 
rt11$read 



External references 



external routine 
fUScvtf ilnam 
rms$alloc_cache 
boo$qio 

psect definitions: 




Advance internal 'RFA' pointers [04] 

Access block of file C043 

RMSSOPEN emulator— open file [041 

RMSSGET emulator— read/de-block C04] 

RMSSREAD emulator— read block-mode C04] 



: Address ing.Mode (Long^Relative) , 

: Addressing, Mode (Long'Relative) Jsb^cblock, 

: Address ing^Mode (Long^Relative); 



Convert ascii fi'^name to RAD50 
Allocate cache blocks 
Logical block I/O 



psect 

pi i t = data ( share, addressingjnode < long w relative)); 

psect 

own = wof k ( read, write); 

psect 

global = work v read, write); 



psect 



code = code (share, addressing_mode (long^relatm)) ; 



[043 



ZZ-ENSAA- 


7.0 


RT11 




01-04 




; 0106 


1 


; 0107 


1 


; 0"08 


2 


; 0109 


2 


; 0110 


2 


; 0111 


2 


; 0112 


2 


; 0113 


2 


; OIK 


2 


, 0115 


2 


; 0116 


? 


; 0117 


L 


; 0118 


3 


0119 


3 


; 0120 


3 


; 0121 


3 


; 0122 


3 


; 0123 


1 



advance record pointers 

*** RT11 Console media RMS routines 

advance record pointers 

Xsbttl 'advance record pointers' 
routine advance (Length) : jsb.adv novalue 
begin 

external register 
vbn = 7, 
offset = 8; 

offset = .offset + .length; 

if .offset gtr 511 
then 

begin 

vbn = .vbn + (.offset/512); 

offset = .offset and 511 

end 

end; 
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3 
(3) 



i Advance pointer 

! J f we overlapped block 

! Increment VBN 
! Slice down offset 



.TITLE RT11 *** RT11 Console media RMS routines 

JDENT \01-04\ 

.EXTRN FIL$CVTFJLNAM, RMSSALL0C, CACHE 

.EXTRN B00SQJ0 











•PSECT 


C0DE,N0WRT, SH 




58 


50 


CO 00000 ADVANCE 


:ADDL2 


LENGTH, OFFSET 


000001 FF 


8F 


58 


D1 00003 


CMPL 


OFFSET, i*51 1 






10 


15 00O0A 


BLEQ 


1$ 


50 


58 00000200 


8F 


C7 0000C 


DJVL3 


0512, OFFSET, R 




57 


50 


CO 000K 


ADDL2 


RQ, VBN 


58 


09 


00 


Ef 00017 
05 0001C 1$: 


EXTZV 
RSB 


tfO, #9, OFFSET, 



58 



Routine Si2e; 29 bytes, Routine Base: CODE + 0000 



OFFSET 



01K 
0116 

0119 

0120 
0123 



ZZ-ENSAA- 


7.0 


H11 




01-04 




; 012; 


1 


; 0125 


1 


; 0126 


1 


; 0127 


1 


; 0128 


1 


; 0129 


1 


; 0130 


1 


; 0131 


1 


; 0132 


1 


; 0133 


1 


; 01 34 


1 


; 0135 


1 


; 0136 


1 


; 0137 


1 


; 0138 


1 


; 0139 


1 


; OHO 


1 


; 01A1 


1 


; 01A2 


1 


; 0143 


1 


; 01AA 


2 


; 0145 


2 


; 0146 


2 


0147 


2 


; 0148 


2 


; 0149 


2 


; 0150 


2 


0151 


2 


; 0152 


2 


; 0153 


i 

l 


; 0154 


2 


; 0155 


2 


; 0!56 


2 


0157 


2 


; 0158 


2 


; 01*9 


2 


; 0160 


2 


; 0161 


2 


0162 


3 


; 0163 


3 


; 0164 


3 


; 0165 


3 


; 0166 


4 


; 0167 


4 


, 0168 


L 


; 0169 


4 


; 0170 


4 


; 0171 


4 


; 0172 


4 


; 0173 


4 


; 0174 


4 


; 0175 


5 


; 0176 


5 


017? 


5 


; 0178 


5 


; 0179 


5 


; 0180 


3 



Access file block via cache 

*** RT11 Console media RMS routines 

Access file block via cache 

Xsbttl 'Access file block via cache' 
routine access : jsb_acc = 

+ + 
Functional description: 

If the desired VBN is not in cache, refresh cache. Return 
pointer to appropriate cache buffer 
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Implicit inputs: 
R7 
99 
10 

ImplK t outputs: 
R6 



desired V8N 

RMS control block 

RAB 



pointer to buffer 



Side effects: 

may alte^ cache and pertorm 1/0 to floppy. 
■■■ 

begin 

external register 
block = 6, 
vbn = 7, 

cblock = 9 : ret bblock, 
rab = 10 : ref bblock; 



bind 



cache - cblock Cctl$l_cache13 : vector; 



! If past end of file. 



if ,vbn geq .cblock Cct l$l_eofvbn] 
then 

re'urn (if ,rab OabSb.rac] eql rab$c_rfa then rms$_rfa else rms$_eof); ! 



that's it 



if .vbn tss .cblock Cctl$l IvbnJ 
or .vbn geq .cblock CctlSl.hvbn] 

then 

begin 

if .cblock [ctl$w_cache_si2ej eql 
then 

begin 

local 
stat; 

stat = rmsSalloc^cache (1); 

if not .stat 
then 

begin 

rab CrabSl stv.1 = .stat; 

return rmsJ.dme 

end 

end; 



If block's not in 
cache now, get it 



! If no cache buffers 

! make them happen 

! Allocate 

! If failure 



ZZ-ENSAA-7,0 


RT11 




01-04 




; 0181 


3 


; 0182 


3 


; 0183 


3 


; 0184 


3 


; 0185 


4 


; 0186 


4 


; 0187 


4 


; 0188 


A 


0189 


A 


; 0190 


5 


; 0191 


4 


; 0192 


A 


; 0193 


A 


; 01 94 


A 


; 0195 


A 


; 0196 


A 


; 0197 


A 


; 0198 


4 


; 0199 


A 


; 0200 


A 


; 0201 


A 


; 0202 


A 


; 0203 


A 


; 0204 


5 


; 0205 


5 


; 0206 


5 


; 0207 


A 


; 0208 


A 


; 0209 


A 


; 0210 


3 


; 0211 


3 


; 0212 


3 


; 0213 


3 


; 02U 


3 


; 0215 


2 


; 0216 


2 


; 0217 


2 


; 0218 


2 


; 0219 


1 



Access file block via cache 

*** RT11 Console media RMS routines 

Access file block via cache 
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block = .vbn + .cblock CctlSl.startlbn] - 1; 



First block to read 



*ncr i from to 2 do 
begin 

local 

stat; 



! Read the blocks 



if (.block - . cblock CeClSl startlbn] - 1) ! If the 3-block window 



then 



geq .cblock EctlSl.eofvbnJ 
ex it loop; 



sta; = bocSqio (.cache C.i3 f 
512, ! one block 

.block, ! logical block number 
io$ readlblk, ! read it 
0, " ! physical address 

.cblock CctlSl^rpbJ); ! adaress of RPB 



overlaps E0r, don't 
try to read any more 
Read to cache buffer i 



C033 
[03J 
[03] 
[03] 
[03] 
[03] 



i f net .stat 
then 

begin 

rab [rab$l sty] ~ ,stat; 

return rms$_rer 

end; 

block = .block + 1 
end; 

cblock Cctl$l_lvbn] = .vbn; 

cblock [ctl$l_hvbn] = nin (.vbn + 3, 

.cblock Cctlll.eofvbnJ) 
end; 



! Set read code 



! Advance block ft 



Window begins here 
Ends at VBN +3 or 
at EOF 



! Get pointer 



block = .cache C.vbn - .cblock Cc tl$l IvbnDD; 

1 

end; ! of access 







OC 


3B 00000 




53 2t 


A9 


9E 00002 


44 


A9 


57 


D1 00006 






18 


19 0000A 




02 n 


AA 


91 0000C 






09 


12 00010 




50 000/8G5C 


% 


DO 00012 
11 00019 




50 0001 827A 


8F 


DO 0001 B 
11 00022 






67 


28 


A9 


57 


D1 00024 






06 


19 00028 


24 


A9 


57 


D1 0002A 



ACCESS: 



1$: 
2$: 



PUSHR 


/TM<R2,R3> 


MOVAB 


44(CBL0CK), R3 


CMPL 


VBN, 68(CBL0CK) 


BLSS 


2* 


CMPB 


30(RAB), #2 


BNEQ 


1$ 


MOVL 


#99932, R0 


BRB 


6$ 


MOVL 


#98938, R0 


BRB 


6$ 


CMPL 


VBN, 40(CBLOCK) 


BLSS 


3$ 


CMPL 


VBN, 36(CBLOCK) 



0125 
0153 
0155 

0157 



0159 
016C 



ZZ-ENSAA-7,0 
RT11 

01-04 



Access file block via cache 

*** RT11 Console media RMS routines 

Access tile block via cache 



0C 



OA 

50 

OO0OOO00G 
OD 
AA 
50 00018AD4 



50 
50 



44 



57 
56 

56 

A9 

7E 



50 
FF 

50 



38 
0200 



0OOOOO0OG EF 

OD 

OC AA 

50 0001 COF 4 



C6 



50 



28 
24 



52 
A9 
50 
A9 

50 
A9 
57 
56 
50 



03 

44 
28 



79 
A9 
19 
01 
EF 
50 
50 
8F 
67 
A9 
AO 
52 
A9 
50 
50 
2D 
A9 
21 
56 
8F 
6342 
06 
50 
50 
8F 
28 
56 


5 

A7 
50 
04 
A9 
50 
A9 
6340 
01 
OC 



19 
B5 
12 
DO 
16 
E8 
DO 
DO 
11 
CI 
9E 
D4 
C3 
D7 
D1 
18 
DD 
7D 
DD 
3C 
DD 

Eb 
DO 
DO 
11 
D6 
F3 
DO 
9E 

01 
15 

DO 
DO 
C3 
DO 
DO 
BA 
05 
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6 
(4) 



0002E 

00030 

00033 

00035 

00038 

0003E 

00041 

00045 

0004 C 

0004E 

00053 

00057 

00059 

0005E 

00060 

00064 

00066 

00069 

0006C 

0006E 

00073 

00076 

0007D 

00080 

00084 

0008B 

0003D 

m 

00097 

0009B 
0009F 
000A1 
000A5 
000A9 
OOOAE 
00082 
00085 
0O0B7 



3$: 



4$: 



5$: 



6$: 
?$: 

8$: 



9$: 
10$: 



11$: 



BLSS 10$ 

TSTW 1CCCBL0CK) 

BNEQ 4$ 

MOVL #1, RO 

JSB RMS$ALL0C CACHE 

BLBS STAT, 4$ " 

MOVL STAT, 12(RAB) 

MOVL #99540, RO 

BRB 1 1 $ 

ADDL3 80<CBLOCK), VBN, RO 

MOVAB -KRO), BLOCK 

CLRL I 

SUBL3 80<CBL0CK), BLOCK, RO 

DECL RO 

CMPL RO, 68(C8L0CK) 

BGEQ 8$ 

PUSHL 56UBLOCK) 

MOVQ #33, -<SP) 

PUSHL BLOCK 

MOVZWL #512. -CSP) 

PUSHL (R3)CI] 

CALLS #6, BOO$QIO 

BLBS STAT, 7$ 

MOVL STAT. 12(RAB) 

MOVL #114932, RO 

BRB 11$ 

INCL BLOCK 

A08LSQ #2, I, 5$ 

MOVL VBN, 40(CBLOCK) 

MOVAB 3(R7). RO 

CMPL RO, 68(CBL0CK) 

BLEQ 9$ 

MOVL 68(CBL0CK), RO 

MOVL RO, 36(CBL0CK) 

SUBL3 40CCBL0CK), VBN, RO 

MOVL (R3)CR0], BLOCK 

MOVL #1, RO 

POPR # A M<R2,R3> 

RSB 



0164 

0171 

0173 
0176 
0177 

0182 

0200 
0190 

0191 

0200 
0195 
0197 
0195 



0202 
0205 
0206 

0209 

0212 
0213 
0214 



0213 
0217 

0219 



Routine Size: 184 byte?. Routine Base: CODE + 001D 



ZZ-fNSAA- 


7.0 


RT11 




01-04 




; 0220 


1 


; 0221 


1 


; 0222 


1 


; 0223 


1 


; 0224 


1 


; 0225 


1 


; 0226 


1 


; 0227 


1 


; 0228 


1 


; 0229 


1 


; 0230 


1 


; 0231 


1 


; 0232 


1 


; 0233 


1 


; 0234 


1 


; 0235 


1 


; 0236 


1 


; 0237 


1 


; 0238 


1 


; 0239 


1 


; 02<0 


1 


; 0241 


1 


; 024? 


1 


; C243 


1 


; 0244 


1 


; C245 


1 


; 0246 


1 


; 0247 


1 


; 0248 


1 


; 0249 


1 


; 0250 


1 


; 0251 


1 


; 0252 


1 


; 0253 


2 


; 0254 


2 


; 0255 


2 


; 0256 


2 


; 0257 


2 


; 0258 


2 


; 0259 


2 


; 0260 


2 


; 0261 


2 


; 0262 


2 


; 0263 


2 


i 0264 


2 


; 0265 


2 


; 0266 


2 


; 0267 


2 


; 0268 


2 


; 0269 


2 


; 0270 


2 


; 02'f 1 


2 


; 0272 


2 


; 0273 


2 


; 0274 


2 


; 0275 


2 


; 0276 


2 



RT-11 OPEN service 

*** RT11 Console media RMS routines 

RT-11 OPEN service 

Xsbttl 'RT-11 OPEN service' 

global routine rtlUopen : call_rms = 



L 1 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:15:49 
09:41:30 



Fiche 13 Frame L1 Sequence 2483 

> VAX-11 Bliss~32 V4, 0-742 Page 7 

I 0HA1:CSYS0.SYSMAINT3RT11.832;61 (5) 



onsole media (floppy or TU-58) to be 
it's properties (such as 
in the FAB block and in 



Functional description: 

Access a file on in: 

sure it exists and to ascertain 

size). Return this information ... ,.., . ._ . 

the RMS file control block, which is pointed to by the 
entry in RMS$FILE_TABLE indexed by the FAB's JFI field. 

Inputs: 

none 



(RMS internal file control block) 



Implicit inputs: 

R11 points to the FA8 
R9 points to the CBLOCK 

Outputs: 

none 

1 Implicit outputs: 

Several fields in the FAB and in the static file control block 
are altered to describe the file. Also, if an XAB (XABFHC i* 
the only XAB currently supported) exists, it will be filled in. 



Return status 
RMS$„DME 
RMS$„NEF 
RMS$ ACC 



begin 



insufficient memory for allocation of buffers 

non existant f i le 

can't access media's directory segment 



local 
ptr, 
len, 

segment, 

ra350nam : vector C33, 
rad50desc : bblock r<jsc$c_s_bln3, 
segbU; : bblock IV A3, 
address_f irst , 
extra length, 
start block, 
file. length,* 

externa 1 register 

cbluck = 9 : ref bblock, 

rab = 10, 

fab = 11 : ref bblock; 

bind 

unit = cblock [„tl$w_unit] : word; 

cblock Cctl$l_getJ = rt11$get; 
cblock CctlSl read] = rtHfread; 



Directory segment number 
Hold RAD50 name 
Descriptor for RAD50 cvt. 
Buffer to read in segment 
First entry of segment 
Extra len of entries in seg 
Starting block of file 
Length of file (blocks) 



! Pointer to control block 
! Define the FAB 



! Store GET routine address 
! Store READ routine address 



2Z-ENSAA-7.0 

RT11 
01-04 

0277 2 

0278 2 



0279 
0280 
0281 
0282 
0283 

0284 3 

0285 3 
0266 3 
0287 3 
0288 



0289 3 



0290 
0291 

0292 3 

0293 3 

0294 3 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 



3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 

0312 3 

0313 3 
03H 3 
0315 4 
0316 
0317 
031a 
0319 
03<>0 
0321 3 
032? 4 
0323 3 
0324 



0325 3 



0326 

032 7 . 

0328 3 

0329 3 

0330 3 

0331 3 

0332 3 

0333 4 



RT-11 OPEN service 

*** RT11 Console media RMS routines 

RT-11 OPEN service 

ptr = .cblock Lctl$l_filej>tr]; 
ten = .cblock Cct l$w_f i le^lenD; 

while 1 do 
begin 
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! Get filename descriptor 
1 Skip to end of directory 



local 

ci'.ar : byte; 

if (len = .len - 1) Iss 

then 

return (rms$_fnm); 

char = ch$rchar_a (ptr); 

if .char eql Xascii ']' 

or .char eql Xascii •>' 
then 

ex it loop 
end; 

rad50desc [dsc$w_length] = . len; 
rad50desc [dscSa^pointer] = .ptr; 

if not f UScvtfilnam (rad50desc, rad50nam) 
then 

return <rms$_tnm); 

segment = 1; 

while 1 do 
begin 

local 
ttat; 

if .segment eql then return <rms$_fnf); 



If no more string 

invalid file name 

Get next character 

If it's a directory 
terminator 

then leave scan loop 

! Load filename descr. 

Try to RAD50 the name 
Bad filename -'f can't 
Start with first segment 
Find directory entry 



! I f no more, file not found 



if not <stat = boo$qio (segbik, ! Read to buffer segblk 
1024, ! read two blocks (a segment) 
4 + .seqment*2, ! logical block number 
ioS^readlblk, ! read operation 
0, ! physical address 
.cblock tctl$l_rpbJ)) 
then 

(fab [fabSL stvJ = ,stat; 
return (rms$ ace)); 



segment = .segblk CrtSw^segmentJ; 
start^block = .segbU ^rt$w„startblotk]; 
exira.length = .segbU [rt$w_extralen]; 



C033 
C033 
C033 
[03] 
C03] 
[03] 



It can't read, file access 
error. 



Link to next segment 

! Where segment starts 
Variable part of entries 



address_f irst = segblk [rt$w.first3 - rtS^tixed - .extra^length; 

if 

while 1 do . Find file name in segment 

begin 



! First entry address 



ZZ-ENSAA- 


^.0 


iT11 




i>;-04 




; 0334 


4 


; 0335 


4 


; 0336 


4 


; 0337 


4 


; 0338 


4 


; 0339 


4 


; 0340 


4 


; 0341 


4 


; 0342 


4 


; 03^3 


4 


; 03^4 


4 


; 0345 


4 


; 0346 


4 


: 0347 


4 


; v->-*o 


4 


; 0349 


4 


; 0350 


3 


; 0351 


3 


; 0352 


3 


; 0353 


2 


; 0354 


2 


; 0355 


2 


; 0356 


2 


; 0357 


2 


; 0358 


2 


; 0359 


2 


; 0360 


2 


; 0361 


2 


; 0362 


2 


; 0363 


2 


; 0364 


2 


; 0365 


2 


; 0366 


2 


; 0367 


2 


; 0368 


2 



0369 1 



RT-11 OPEN service 

*** RT11 Console media RMS routines 

RT-11 OPEN service 



tnnd 
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entry = (address_f i rst = ,address_f irst + rt$_fixed + .extra Length) : bblock; 

if .ent. Crt$v^endseg] then exit loop 0; ! End of jegmeiu* 

file length = .entry [r :$w„f ilelength]; ! Get length of file 
start^block = . f i le^length + .start.block; ! Start of next file 

if .entry frt$v permj ! If file is permanent 

and .entry TrtSl^filename] eql .rad50nam [03 ! and filename matches 

and .entry Crt$w_fi letypei eql ,(rad50nam + 6X0, 16, 0> 
then 



exit loop "» 



then 



end 



9xitloop 
end; 

start_block = . start_block - , f i le^length; 

! Initialize control block fields 

cblock Cctl$w^offbyte] = 0; 

cblock [ctl$l w eofvbn] = .file.lenath + 1; 

cMuck Cctl$l.startlbn3 = ,start_block; 

i'?b CfabSl^alq] = .f i le^length; 

fab [fab$l fop] = fab$m_ctg; 

nb It ab$b Jzzl = 0; 

fab CfabSb rati = fab$m cr; 

fab [fab$blrfm] = fab$c_rt11; 

fab tfabSwmrs] = 512; 

rmsS^normaT 

end;" 



! ( value 1 if found, if end of segment ) 



! Access file if found 
! of segment loop 

! Back up pointer 



Set fst RFA past EOF 
VBN of said RFA 
First block of file 
Set # blocks in file 
RT-11 files are contiguous 
Clear fixed record si2e 
Treat as CR format 
RT-H format 
Max rec size of 1 block 
Return OK 
of RT11S0PEN 









007C 00000 


.ENTRY 




5E 


FBEC 


CE 


9E 00002 


M0VAB 


oc 


A9 


00000000V 


EF 


9E 00007 


M0VAB 


10 


A9 


00000000V 


EF 


9E OOOOF 


MOVAB 




51 


4C 


A9 


DO 00017 


M0VL 




50 


48 


A9 


3C 00018 


MOVZWL 








SO 


D7 0001F 1$: 


DECL 








26 


19 00021 


BLS5 




52 




81 


90 00023 


M0VB 


5D 


8F 




52 


91 00026 


CMP9 








05 


U 0002 A 


BEQL 




3E 




52 


91 0002C 


CMPB 








EE 


12 0002F 


BNEQ 


FC 


AD 




50 


B0 00031 2$: 


M0VW 


^0 


AD 




51 


DO 00035 


M0VL 






F4 


AD 


9F 00039 


PUSHA8 



RT11S0PEN, Save R2,R3,R4,R5,R6 
-1044CSP), SP 
RM1SGET, 12CCBL0CK) 
RHUREAD, 16(CBL0CK) 
76(C8L0CK), PTR 
72(CBLOCK), LEN 

B" 

(PTR)*, CHAR 

CHAR, #93 

2$ 

CHAR, #62 

1$ 

LEN, RAD50DESC 

PTR X RAD50DESC+4 

RAD50NAM 



0222 

0275 
0276 
0277 
0278 
0?% 

0290 
0292 

0293 

0298 
0299 
0^01 



7Z-ENSAA-7.Q 

RT11 

01 -04 



RT-11 OPEN service 
*** RT11 Console media 
RT-11 OPEN service 



OOOOOOOOG 



7E 



OOOOOOOOG 
OC 



52 

A9 

E9 



F4 
FA 



44 
50 

10 
04 

1E 
36 



RMS routines 



EC 
V 
08 
50 0001852C 

53 



50 0001829? 



7E 
53 
6E 
7E 



53 
56 
54 
50 
50 
52 

50 
60 
55 
56 
60 
AD 

AD 

56 



38 



0400 
14 



EF 
OC 
A8 
50 0001C002 



02 
08 
06 
FC 



08 

02 
06 



42 
01 



A9 
A9 
AB 

A8 00 i 00000 
3F 
AB 0402 
AB 0200 
50 00010001 



AD 
02 
50 
8F 

01 
53 
08 
8F 

A9 
21 
01 
04 
8F 
AE 
06 
50 
50 
8F 



AE 
AE 
AE 
AE 
54 
OE A442 



52 

08 
AO 
55 
OA 
AO 
E2 
AO 
08 
55 
A9 
A5 
56 
55 
8F 
A8 
8F 
3F 
8F 



DO 
EO 
3C 
CO 
El 
D1 
1? 
B1 
12 
C2 
64 
9E 
DO 
DO 
DO 
94 
BO 
BO 
DO 
04 



B 2 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



f f che 13 Frame B2 Sequence 2486 
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10 
(5) 



9F 0003C 
FB 0003F 
E8 00046 
DO 00049 3$: 
04 00050 
DO 00051 4$: 
D5 00054 5$: 
12 00056 
DO 00058 
04 0005F 
DD 00060 6$: 
7D 00063 
78 00066 
CO 0006A 
3C 0006D 
9F 00072 
F8 00075 
E8 0007C 
DO 0007F 
DO 00083 
04 0008A 
3C 0008B 7$: 
3C 0008F 
3C 00093 
9E 00097 
C3 0009B 
9E 0009F 8$: 



000A4 
000A7 
OOOAB 
OOOAF 
000B2 
000B6 
OOOBB 
OOOBD 
000C2 
000C4 
000C7 
OOOCA 
OOOCF 
000D3 
000D7 
OOODF 
000E2 
000E8 
OOOEE 
000F5 



PUS.'IAB 

CALLS 

BL8S 

MOVL 

RET 

MOVL 

TSTL 

BNEO 

MOVL 

RET 

PUSHL 

MOVQ 

ASHL 

ADDL2 

MOVZWL 

PUSHAB 

CALLS 

BLBS 

MOVL 

MOVL 

RET 

MOVZWL 

MOVZWL 

MOVZWL 

M0VA8 

SUBL3 

MOVAB 

MOVL 

BBS 

MOVZWL 

ADDL2 

BBC 

CMPL 

8NEQ 

CMPW 

8NEQ 

SUBL2 

CLRW 

MOVAB 

MOVL 

MOVL 

MOVL 

CLRB 

MOVW 

MOVW 

MOVL 

RET 



RAD50DESC 

#2, FILSCVTFILNAM 

RO, 4$ 

#99628, RO 

#1, SEGMENT 
SEGMENT 
6$ 
#98962, RO 

56(CB(0CK) 

#33, -ISP) 

#1, SEGMENT, -(SP) 

#4, (SP) 

#1024, -(SP) 

SEG8LK 

#6, BOOSQIO 

STAT, 7$ 

STAT, 12(FAB) 

#114690, RO 

SEGBLK+2, SEGMENT 

SEGBLK+8, START BLOCK 

SEGBLK+6, EXTRAlLENGTH 

SEGBLK-4, RO 

EXTRA LENGTH, RO. ADDRESS FIRST 

14(EXTRA LENGTH) CADDRESS.riRSTD, 

address First 
address first, ro 

#11, (RO), 5$ 

8(R0), FILE. LENGTH 

FILE LENGTH. START.BL0CK 

#10 "(ROJ, 8$ 

2<R0), RAD50NAM 

8$ 

6(R0), RAD50NAM+6 

8$ 

FILE LENGTH, START BLOCK 

66(CBL0CK) 

KR5), 68(CBL0CK) 

START BLOCK, 80(CBLOCK) 

FILE IENGTH, 16(FAB) 

#10*8576, 4(FAB) 

63(FAB) 

#1026, 30(FAB) 

#512, 54(FA8) 

#65537, RO 



0303 

0305 
0313 



0320 
0315 
0317 

0315 



0322 
0323 

0325 
0326 
0327 
0328 

0336 



0338 
Oj40 
0341 
034 b 
0344 

0345 

0355 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0367 
0369 



Routine Size: 246 bytes, Routine Base: CODE + 00D5 



0370 



ZZ-ENSAA-7.0 

RT11 

01-0 A 

0371 1 

0372 1 

0373 1 

0374 1 

0375 1 

0376 1 

0377 1 

0378 1 

0379 1 

0380 1 

0381 1 

0382 1 

0383 1 

0384 1 

0385 1 

0386 1 

0387 1 

0388 1 

0389 1 

0390 1 

0391 1 

0392 1 

0393 1 

0394 1 

0395 1 

0396 1 

0397 1 

0398 1 

0399 1 

0400 1 

0401 1 

0402 1 

0403 1 

0404 1 

0405 1 

0406 1 

0407 2 

0408 2 

0409 2 

0410 2 

0411 2 

0412 2 

0413 2 

0414 2 

0415 2 

0416 2 

0417 2 

0418 2 

0419 2 

0420 2 

0421 2 

0422 2 

0423 2 

0424 2 

0425 2 

0426 2 

0427 2 



RT11SGET routine 

*** RT11 Console media RMS routines 

RT1HGET routine 

Xsbttl 'RinSGET routine* 

global routine rt1 1 Sget : call„rms = 

Functional description: 

Access a single record from the record stream, copying it to 
the user's buffer. 

Inputs: 

none 

Implicit inputs: 

R9 pointer to internal control CBLOCK 

R10 pointer to RAB 

various fields within all three control structures 

Outputs: 

nore 

Implicit outputs: 

RAB [rab$l_rbf3 Address where record is stored 
RAB [rab$wlrs2] Si?e of retord 
RAB Crab$l_stsJ Status return code 
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Side effects; 
CBLOCK 



Status codes: 

RMS* NORMAL 
RMSS'RTB 
RMS$"E0F 
RMS$~RER 



current RFA will be updated if access is sequential, 
record size is set if read is successful. 
Cache contents and control data may be affected 

good return 

record too big (truncated) 

RFA is beyond last record of file 

Read error on media 



begin 

external register 

cblock - 9 : ref bblock, 
rab = 10 .* ref bblock; 

global register 

block = 6 : ref vector [, byte], 
vbn = 7, 
offset = 8; 

local 

outlim, 
outptr, 
rtb; 

vbn = .cblock CctlSl vbn]; 
offset = .cblock [ctT$w_byteJ; 

if .rab CrabSb^rac] neq rab$c_rta 

then 



! Map CBLOCK 
! Map RAB 



Access block 
Current file 'VBN 1 
Current block offset 



! Remaining length of buffer 

! Address to copy to 

! Flag for record truncated 

! Grab the intended RFA 



It not random access 



ZZ-ENSAA-" 


7.0 


RT11 




01-04 




; OA28 


2 


; 0429 


2 


; 0430 


2 


; 0431 


2 


; 0432 


2 


; 0433 


2 


0434 


2 


; 0435 


2 


; 0436 


2 


; 0437 


2 


; 0438 


2 


; 0439 


3 


0440 


3 


; 0441 


3 


; 0442 


4 


; 0443 


4 


; 0444 


4 


; 0445 


4 


0446 


4 


; 0447 


4 


0448 


4 


; 0449 


4 


; 0450 


4 


0451 


4 


; 0452 


5 


; 0453 


5 


0454 


5 


; 04 55 


5 


; 0456 


5 


; 0457 


5 


; 0458 


5 


0459 


5 


; 0460 


5 


; 0461 


4 


; 0462 


4 


; 0463 


4 


0464 


4 


; 0465 


4 


; 0466 


4 


; 0467 


5 


0468 


4 


; 0469 


4 


; 0470 


4 


; 0471 


4 


; 0472 


4 


; 0473 


4 


04 74 


4 


0475 


4 


; 04 76 


4 


; 0477 


4 


; 0478 


4 


; 0479 


4 


; 0480 


4 


; 0481 


4 


; 048? 


4 


; 0483 


<♦ 


; 0484 


4 



RT11SCET routine 

*** RT11 Console media RMS routines 

RT11SGET routine 

advance (.cblock [ctl$w,rec_size]); 

cblock [ctl$l_vbn] - .vbn; 

cblock Cctl$w_byte] = .offset; 

cblock tctlSw rec.size] = 0; 

rtb =0; 

rab [rab$w_rsz] = 0; 

out Urn = .rab [rab$w_usz]; 

rab [rab$l„rbf] = outptr - .rab [rab$l_ubf]; 

while 1 do 
begin 

while 1 do 
begin 

local 
cr , 

string size, 
bite, 
len; 

cr = 0; 

bite - .offset; 

begin 

local 
stat; 

stat = access (); 

if not .stat then return .stat 

end; 
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! advance RFA to next record 

! Save new RFA 



! If bad error, repeat record 

! Record's not too big yet 

! Clear record size 

! Limiting size for transfer 
i Set output pointer 

! Read record 

! Read up to CR or EOF 



! Flag 

! Size of partial string 

! Current offset in block 

! Length to copy 

! Clear CR flag 

! Where to start in block 



! Access the block 



If reached EOF 



if .block [.offset] eql 
then 

return (if .rab [rab$b_rac] eql rabSc.rfa then rmsS^rfa else rmsS^eof); ! get out 



while not (cr = .block [.bite] eql Xx'd') 
and .bite leq 511 do 
bite = .bite *■ lu- 



string size = .bite - .offset; 
len = min ( .string^size, .outlim); 

if .outlim Iss .string_size 
then 

rtb = 1; 



! Find end of block or CR 
Advance 



Get length of this string 

Get length to transfer 

If not enough space, 
set flag for overflow 



outptr = ch$,-nove (.len, block [.offset], .outptr); ! Copy as much as we can 

outlim = .outlim - .len; ! Count size of copy 

rab [rab$w rsz] = .rab LrabSw rsz] * .len; 

advance ( . string_size) ; " ! Advance past this block 

if . c r 
then 



ZZ-ENSAA- 


7.0 


*T11 




01-0^ 




; 0485 


4 


; 0486 


3 


; 0487 


3 


; 0488 


3 


0489 


4 


; 0490 


4 


0491 


4 


; 0492 


4 


0493 


4 


; 0494 


4 


0495 


4 


; 0496 


4 


0497 


4 


; 0498 


3 


; 0499 


3 


; 0500 


3 


; 0501 


3 


; 0502 


4 


0503 


4 


0504 


4 


; 0505 


4 


; 0506 


5 


0507 


5 


0508 


6 


; 0509 


6 


; 0510 


6 


0511 


6 


; 0512 


5 


0513 


4 


; 0514 


3 


; 0515 


3 


0516 


3 


0517 


3 


0518 


3 


; 0519 


3 


; 0520 


4 


0521 


4 


; 0522 


4 


0523 


4 


; 0524 


4 


; 0525 


4 


; 0526 


3 


; 0527 


3 



0528 1 



RT11S6ET routine 

*** RT11 Console media RMS routines 

RT1UGET routine 

ex it loop 
end; 

advance (1); 
begin 

local 
stat; 

stat = access (); 

if not .stat then return »stat 

end; 

if .block [.offset: eql Xx'a 1 
then 
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! Keep looping until end 
! Skip the CR 



! Access new RFA 



begin 
cbl 



ock LctlSw^rec^sizeD = 



! If CR is followed by LF 



! Set whole record size 



(.vbn - .cblock Cctl$L_vbnJ)*512 + .offset - .cblock [ctl$w_byte] + 1; 
return 

(if .rtb 
then 

begin 

rab Crab$l_stvJ = .cblock Cct ISw^recsizeJ; 
rms$_rtb 
end 
else rms$_normal) 
end 
else ! Not end of record yet 

if .outlim Iss 1 : If there's no room 

then 

rtb = 1 
else 

begin 

outlim = .outlim - 1; ! Insert the CR we found 

rab [rab$w_rsz] = .rab [rab$w_rs2] + 1; 

chSwchar^a'fXx'd* . outptr) 

end 



end 



end; 



! of RT11$6ET 







09FC 00000 


.ENTRY 


5E 




10 C2 00002 


SUBL2 


57 


18 


A9 DO 00005 


MOVL 


58 


1C 


A9 3C 00009 


M0VZWL 


02 


IE 


AA 91 00000 


CMPB 






08 13 00011 


BEQL 


50 


IE 


A9 3C 00013 


M0VZWL 




FE1A 


CF 16 00017 


JSB 



RT11SGET, Save R2,R3,R4,R5,R6,R7,R8,R11 
#16, SP 

VBN 

OFFSET 



24<CBLOCK), 

28<CBL0CK). 

30CRAB), U 

1$ 

30(CBLOCK), 

ADVANCE 



R0 



0373 

0423 
0424 
0426 

0428 



ZZ-EN?AA-7,0 


RT11SGET routine 








f ; 

27-Jul- 


: 1984 


Fiche 13 Frame F2 Sequence 2490 




RT11 


*** RT11 Console 


media RMS 


routines 


27-Jul- 


-1984 16:15 


:49 VAX-11 Bliss-32 V4. 0-742 Page .74 


01-04 


RT11SGET routine 








26-JuL 


-1984 09:41 


:30 DMA1 : CSYSO. SYSMAIMTDRT1 1 .B32;61 


(6) 






18 


A9 


57 


DO 0001B 1$: 


MOVL 


VBN, 24(CBL0CK) 


0430 






1C 


A9 


58 


3C 0001 F 


MOVZWL 


OFFSET, 28(CBL0CK) 


0431 










08 AE 


D4 00023 


CLRL 


RTB 


0433 










22 AA 


B4 00026 


CLRW 


34(RAB) 


0434 






04 


AE 


20 AA 


3C 00029 


MOVZWL 


32(RAB), OUTLIM 


0435 








53 


24 AA 


DO 0002E 


MOVL 


36CRAB), OUTPTR 


0436 






28 


AA 


53 


DO 00032 


MOVL 


OUTPTR, 40(RAB) 












OC AE 


D4 00036 2$: 


CLRL 


CR 


0450 








52 


58 


DO 00039 


MOVL 


OFFSET, BITE 


0451 










FE12 CF 


16 0003C 


J SB 


ACCESS 


0457 








01 


50 


E8 00040 
04 00043 


BLBS 
RET 


STAT, 3$ 


0459 










6846 


95 00044 3$: 


TSTB 


(OFFSET)CBLOCfG ! 


0463 










16 


12 00047 


BNEQ 


5$ 










02 


1E AA 
08 


91 00049 
12 0004D 


CMP8 
BNEQ 


30(RAB), #2 
4$ 


0465 








50 


0001 865C 8F 


DO 0004 F 
04 00056 


MOVL 
PET 


099932, RO 










50 


0001 827A 8F 


DO 00057 4$: 
04 0005E 


MOVL 
RET 


#98938, RO ! 












50 


D4 0005F 5$: 


CLRL 


ro ; 


• 0467 








0D 


6246 
02 
50 


91 00061 
"12 00065 
D6 00067 


CMPB 
BNEQ 
INCL 


(BITE)CBLOCKJ, #13 

6$ 

RO 








OC 


AE 


50 


DO 00069 6$: 


MOVL 


RO, CR 










OD 


50 


E8 0006D 


BLBS 


RO, 7$ 






000001 FF 


8F 


52 


D1 00070 


CMPL 


BITE, #511 


• 0468 










04 


14 00077 


BGTR 


7$ 












52 


D6 00079 


INCL 


BITE 


• 0469 










n 


11 0007B 


BRB 


5$ 






6E 




52 


58 


C3 0007D 7$: 


SUBL3 


OFFSET, BITE, STRING_SIZE 


• 0471 








50 


6E 


DO 00081 


MOVL 


STRING SIZE, RO 


0472 






04 


AE 


50 
04 


D: 00084 
15 00088 


CMPL 
BLEQ 


RO, OUTLIM 
8$ 










50 


04 AE 


DO 0008A 


MOVL 


OUTLIM, RO 










5B 


50 


DO 0008E 8$: 


MOVL 


RO, LEN 










6E 


04 AE 
04 


D1 00091 
18 00095 


CMPL 
BGEQ 


OUTLIM, STRING^SIZE 
9S 


• 0474 






08 


AE 


01 


DO 00097 


MOVL 


#1, RTB 


• 0476 




63 




6846 


5B 


28 0009B 9$: 


M0VC3 


LEN, (OFFSET)CBLOCK], (OUTPTR) 


• 0478 






04 


AE 


58 


C2 OOOAO 


SUBL2 


LEN, OUTLIM 


• 0479 






22 


AA 


58 


AO 000A4 


ADDW2 


LEN, 34(RAB) 


• 0480 








50 


6E 
FD86 CF 


DO 000A8 
16 OOOAB 


MOVL 
J SB 


STRING SIZE, RO 
ADVANCE 


• 0481 








59 


OC AE 


E9 OOOAF 


BLBC 


CR, 13$ 


• 0483 








50 


01 
FD7B CF 


DO OO0B3 
16 OO0B6 


MOVL 
J SB 


#1, RO 
ADVANCE 


• 0488 










FD94 CF 


16 OOOBA 


JSB 


ACCESS 


; 0494 








4E 


50 


E9 OOOBE 


BLBC 


STAT, 14$ 


; 0496 








OA 


6846 
31 


91 000C1 
12 000C5 


CMP8 
BNEQ 


(OFFSET)CBLOCK], #10 
11$ 


; 0500 




50 




57 


18 A9 


C3 000C7 


SUBL3 


24(CBL0CK), VBN, RO 


; 0504 




50 




50 


09 


7% OOOCC 


ASHL 


#9, RO, RO 










50 


58 


CO OOODO 


ADDL2 


OFFSET, RO 










51 


1C A9 


3C 000D3 


MOVZWL 


28(CBL0CK), R1 










50 


51 


C2 000D7 


SUBL2 


R1, RO 






IE A9 




50 


01 


A1 OOODA 


ADDW3 


#1, RO, 30CCBLOCK) 





7Z-ENSAA-7.0 

RT11 



RT1UGET 
*** RT11 
RT11SGET 



routine 
Console 
routine 



media RMS routines 



OC 



OD 
AA 
50 



08 

1E 

000181A8 



08 AE 



83 



04 



04 
22 



AE 
A9 
8F 



50 00010001 8F 



AE 
06 
01 
09 
AE 
AA 
OD 
FF27 



E9 
3C 
DO 
04 
DO 
04 
D5 
14 
DO 
11 
D7 
B6 
90 
31 
04 



G 2 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 
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000DF 
000E3 
000E8 
OOOEF 
OOOFO 
0OOF7 
000F8 
OOOFB 
000FD 
00101 
00103 
00106 
00109 
0010C 
0010F 



10$: 
11$: 



12$: 



13$: 
14$: 



BLBC 

MOVZWL 

MOVL 

RET 

MOVL 

RET 

TSTL 

BGTR 

MOVL 

BRB 

DECL 

INCW 

MOVB 

BRW 

RET 



RT8, 10$ 
3C(CBL0CK), 
#98728, RO 

#65537, RO 



12(RAB) 



OUTLIM 

12$ 

#1, RTB 

13$ 

OUTLIM 

34<RAB> 

#13, (0UTPTR)+ 

2$ 



15 
(6) 

0506 
0509 
0508 

0506 

0516 

0518 

0521 
0522 
0523 
0500 
0528 



Routine Size: 272 bytes, Rctine Base: CODE + 01 C8 



0529 1 



Z7-ENSAA- 


7.0 


RT11 




01-04 




; 0530 


1 


; 0531 


1 


; 0532 


1 


; 0533 


1 


; 0534 


1 


; 0535 


1 


; 0536 


1 


; 0537 


1 


; 0^38 


1 


0539 


1 


; 0540 


1 


0541 


1 


; 0542 


1 


; 0543 


1 


; 0544 


1 


; 0545 


1 


; 0546 


1 


; 0547 


1 


; 0548 


1 


; 0549 


1 


; 0550 


1 


; 0551 


1 


; 0552 


1 


; 0553 


1 


0554 


1 


0555 


1 


; 0556 


1 


; 0557 


1 


; 0558 


1 


; 0559 


1 


; 0560 


1 


0561 


2 


; 0562 


2 


; 0563 


"5 

L 


0564 


2 


; 0565 


2 


; 0566 


2 


; 0567 


£ 


; 0568 


2 


; 0569 


2 


; 0570 


2 


0571 


2 


; 0572 


2 


; 0573 


2 


; 0574 


2 


; 0575 


2 


; 0576 


2 


; 0577 


2 


; 0578 


2 


; 0579 


2 


; 0580 


2 


; 0581 


2 


; 0582 


2 


O^R^ 


? 


; 05>84 


t 


; 0585 


2 


; 0586 


2 



RT11SREAD routine 

*** RT11 Console media RMS routines 

RT1HREAD routine 

Xsbttl 'RT11SREAD routine* 

global routine rtHSread : call.rms = 

•f t 
Functional description: 

Read virtual blocks of file 

Inputst 

none 

Implicit inputs: 

R9 CB10CK pointer 

R10 RAB pointer 

various fields in the above-listed data structures 

Outputs: 

none 

Implicit outputs: 

RAB Crab$l rbf] 
RAB [rab$w_rsz3 

Side Effects: 

CBLOCK [ctl$l_nbpJ 

Return codes: 

RMS$ NORMAL 
RMS$~RFR 
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points to buffer 
size of buffer 



points to next VBN for sequential READ. 



OK 

Read error 



Map to control block 
Map to RAB 



begin 

external register 

cblock = 9 : ref bblock, 
rab = 10 : ref bblock; 

local 

size, 
stat, 
next; 

next = .cblock CctKL.nbpJ; ! VBN to read 

rab Crab$w rsz] = size = min (.rab [rab$w usz3, ! smaller of given size 



.cblock Cctl$Leofvbn] - .next)*512)J ! a 
k CctlSl.nbp] = .next + (.size + 51 1 5/512; 



( 
cblock 
stat = boo$qio ( 



and rest of file size 



! Read the virtual block 
rab CrabSLrbf] = .rab [rabSl.ubf], I 
.size, ! with specified size 
.cblock CctlSl.startlbnJ + .next - 1, 

io$ readlblk, ! logical read 
0, " ! physical aodresses 
.cblock Cctl$UrpbJ); ! 



Set next block pointer 

to specified place 

! logical 
! block 



C033 
[03] 
[03] 
[03] 
[033 
[033 
[033 
[033 



if not .stat 
then 



ZZ-ENSAA-7,0 

RT11 

IM-OA 



RT1UREAD routine 

*** RT11 Console media RMS routines 

RT1HREAD routine 



0587 
0588 
0589 
0590 
0591 
0592 



begin 

rab CrabSl stvH 

return rmsl.rer 

end; 



= .stat; 



0593 1 



rms$ normal 
end;"* 



I 2 
27-Jul-1984 
27-Jul-1984 
26-JUL-198A 



16:15;49 
09:41:30 



Fiche 13 Frame 12 Sequence 2493 

> VAX-11 Bliss-32 V4.0-742 Page 17 

I DMA1 :£SYS0.SYSMA1NT3RT11 .832;61 (7) 



! Save 'system' return 
! Return read error 



04 



Routine Sue: 104 











0004 


00000 






52 


04 


A9 


DO 


00002 


50 


44 


A9 




52 


C3 


00006 


50 




50 




09 


78 


0000B 






51 


20 


AA 


3C 


0000F 






50 




51 
03 


D1 
15 


00013 
00016 






51 




50 


DO 00018 






50 




51 


DO 


0001 B 




22 


AA 




51 


BO 


0001E 






51 


01FF 


CO 


9E 


00022 






51 


00000200 


8F 


C6 00027 


A9 




51 




52 


C1 


0002E 








38 


A9 


DD 


00033 






7E 




21 


7D 


00036 


51 




52 


50 


A9 


C1 


00039 








FF 


A1 
50 


9F 
DD 


0003E 
00041 








24 


AA 


DD 


00043 




28 


AA 




6E 


DO 


00046 




00000000G 


Ef 




06 


FB 


0004A 






OC 




50 


E8 


00051 




OC 


AA 




50 


DO 


00054 






50 


0001C0F4 


3P 


DO 
04 


00058 
0005F 






50 


00010001 


8F 


DO 
04 


00060 
00067 


S, 


Routine 


Base; CODt 


+ 02DB 





.ENTRY RTIURFAD, Save R2 

MOVL 4<CBL0CK>, NEXT 

SUBL3 NEXT, 68CCBL0CK), RO 

ASHL #9, RO, RO 

MOVZWL 32(RAB), R1 

CMPL R1, RO 

BLEQ IS 

MOVL RO, R1 

1$; MOVL R1, SIZE 

MOVW R1, 34 (RAB) 

MOVAB 51KR0), R1 

DJVL2 #512, R1 

ADDL3 NEXT, R1 , 4(CBLOCK> 

PUSHL 56(C8L0CK) 

MOVQ #33, -(SP) 

ADDL3 80(CBLOCK), NEXT, R1 

PUSHA8 -KR1) 

PUSHL SIZE 

PUSHL 36(RAB) 

MOVL (SP), 40(RAB) 

CALLS #6, BOOSQIO 

BLBS STAT, 2$ 

MOVL STAT. 12(RAB) 

MOVL #114932, RO 

RET 

2$: MOVL #65537, RO 

RET 



0532 
0572 
0574 



0573 
0575 



0583 
0576 
0579 

0578 
0577 



0585 
0588 
0589 

0593 



0594 


1 




0595 


1 


end 


0596 


1 




0597 





eludom 



PSECT SUMMARY 



Name 



Bytes 



Attributes 



ZZ-ENSAA-7.0 

RT11 

01-04 

CODE 



RT1 1SREAD routine 

*** RT11 Console media RMS routines 

RT1UREAD routine 



J 2 
27-Jul-1984 
27-Jul-1984 
26-JuM984 



16:15:49 

09:41:30 



Fiche 13 Frame J2 Sequence 2494 

» VAX-11 Btiss-32 V4. 0-742 Page 18 

I DMA1 : CSYSO. SYSMAINTJRT1 1 .B32;61 (7) 



835 NOVECNOWRT, RD , EXE, SHR, LCL, REL, C0N,NuPIC,ALIGN<2> 



Library Statistics 



File 

DRB1 :CDS.WORK]DJAG.L32;265 

ORB1:CDS.WORK]DS.L32;159 

SYSSSYSROOT:CSYSLIBJLIB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 


31 
29 



Percent 



Pages 
Mapped 

85 

42 

975 



Processing 
Time 

00:00.2 
00:00.2 
00:04.7 



COMMAND QUALjFJERS 
BL I SS/NOOBJE C T/Li ST = CDS. L J SD/OPT JMJZE = ( LEVEL 5 3, SPACE) /DEBUG/TRACE RT11 



Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 
Lext^ies/CPU-Min: 
Memory used: 132 pages 
Compilation Complete 



835 code + data bytes 
00:20.8 
00:44.1 

1718 

12584 



ZZ-ENSAA-7.0 SYSTEM CONTROL BLOCK 

SCB SYSTEM CONTROL BLOCK 

table of contents 



K 2 

27-JUL-1984 Fiche 13 

27-JUL-1984 15:44:41 



Frame K2 
VAX-11 Macro 



Sequence 
V03-0T 



2495 
Page 



(1) 


124 


(1) 


183 


(1) 


256 


(1) 


352 


(1) 


471 


(1) 


549 


(1) 


594 


(1) 


627 



DECLARATIONS 
INITIAL SYSTEM 
DSXSINITSCB 
DSXSSETVEC 
DSXSCLRVEC 
CHECK VECTOR 
DSXSSFTIPL 
SOFTSINT 



CONTROL BLOCK IMAGE. 
INITIALIZE SYSTEM CONTROL BLOCK ROUTINE 
SET VECTOR ROUTINE 
RESTORE VECTOR ROUTINE 
Verify vector range 

SET INTERRUPT PRIORITY LEVEL SERVICE PROCEDURE. 
Software interrupt vectors 



I 
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27-JUL-1984 F : che 13 Frame L2 Sequence 2496 




SCB 


SYSTEM CONTROL BLOCK 27-JUL-1984 *i 5 ; 4 4 ; 4 1 VAX-11 Macro V03-0V Page 


1 


07-29 






23-JUL-1984 16:23:54 DMA1 :CSYS0.SYSMAINTJSCB.MAR;54 


(1) 




0000 


1 


•TITLE SCB SYSTEM CONTROL BLOCK 






0000 


2 


.JDENT /07-29/ 






0000 


3 


.NoShow Conditionals 






0000 


4 








0000 


5 ; 








0000 


6 ; 


COPYRIGHT (C) 1977, 1981, 1983 






0000 


7 ; 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 






0000 


8 ; 








0000 


9 ; 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 






cooo 


10 ; 


COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 






0000 


11 ; 


ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER COPIES THEREOF, 






0000 


12 ; 


MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 






0000 


13 ; 


EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 






0000 


U ; 


TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 






cooo 


15 ; 


REMAIN IN DEC. 






0000 


16 ; 








0000 


17 ; 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 






0000 


18 , 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 






0000 


19 , 


CORPORATION. 






0000 


20 # 








0000 


21 . 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 






0000 


22 , 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 






0000 


23 








0000 


24 , 


♦ t- 






0000 


25 ( 


FACILITY: 






0000 


26 ( 






i 


0000 


27 t 


ABSTRACT; 






0000 


28 . 








0000 


29 , 


ENVIRONMENT: 






0000 


30 , 








0000 


31 


AUTHOR: KEN CHAPMAN 20-SEP-77 VERSION 01. 






0000 


32 . 








0000 


33 , 


• MODIFIED BY: 






0000 


34 


NICK HOWGATE 05-DEC-77 VERSION 02 






0000 


35 


01 ADDED EXCEPTION HANDLER ENHANCEMENT. 






0000 


36 








0000 


37 


KEN CHAPMAN Q1-DEC-77 VERSION 03 






0000 


38 


02 ADD TIMRON FLAG SET AND CLEAR TO SDSSETVEC J. AND $DS_CLRVEC_L, 






0000 


39 


RESPECTIVELY, FOR INTERVAL TIMER VECTOR. 






0000 


40 








0000 


41 


KEN CHAPMAN 16-FEB-78 VERSION 04 (ESSAA-3,07) . 






0000 


42 


; 03 GENERAL CODE ENHANCEMENTS. 






0000 


43 


04 ADDED GENERALIZED EXCEPTION HANDLER FROM DEBUG. 






0000 


44 


05 ,, REI M INSTEAD OF "HALT" ON UNEXPECTED INTERRUPT. 






0000 


45 








0000 


46 


• N. HOWGATE 2WEB-78 VERSION 05 (ESSAA-4.00) . 






0000 


47 


06 ADD QIO SUPPORT - SOFTWARE LEVEL 8 VECTOR, AND MBAO VECTOR 






0000 


48 


TOM SOUTTER 27-FEB-78 






0000 


49 


07 FIX TO UNEXPECTED VECTOR HANDLER TO CALL CLI 






0000 


50 


TOM SOUTTER 28-FE8-78 






0000 


51 


08 TURNED ON AST DELIVERY VECTOR (SOFTWARE LEVEL 2 INTERRUPT) 






0000 


52 








0000 


53 


; TOM SOUTTER 28-MAR-78 VERSION 06 (ESSAA-4.01 ) . 






0000 


54 


09 INSTALLED HOOK TO INITIALIZE SYSTEM TIME IN $DS CLRVEC L (TIMER) 






0000 


55 


10 SET TIMER VECTOR TO DSISTIMSRV & TR9/BR5 TO MBAJINTDIS 






0000 


56 


ROGER RIGGS 20-APR-78 






0000 


57 


11 CORRECTLY REMOVE UPPER 2 BITS OF SBA ADDRESS ON DISPLAY 
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SYSTEM CONTROL BLOCK 

SYSTEM CONTROL BLOCK 



0000 


58 


0000 


59 


0000 


60 


0000 


61 


0000 


62 


0000 


63 


0000 


64 


0000 


65 


0000 


66 


0000 


67 


0000 


68 


0000 


69 


0000 


70 


0000 


71 


0000 


72 


0000 


73 


0000 


74 


0000 


75 


0000 


76 


0000 


77 


0000 


78 


0000 


79 


0000 


80 


0000 


81 


0000 


82 


0000 


63 


0000 


84 


0000 


85 


0000 


86 


0000 


87 


0000 


88 


0000 


89 


0000 


90 


0000 


91 


0000 


92 


0000 


93 


0000 


94 


0000 


95 


0000 


96 


0000 


97 


0000 


98 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0000 


103 


0000 


104 


0000 


105 


0000 


106 


0000 


107 


0000 
0000 


108 


109 


0000 


110 


0000 


111 


0000 


112 


0000 


113 


0000 


114 



12 
13 

14 
15 

16 
17 

18 

19 

?C 

l\ 
22 

21 



24 



25 



26 
27 
28 
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SBI and DMP_SIL0 on SBJ errors 
OF SCB REFLECT SETVEC BITS 



1 per machine 
initialization 
only 1 p^ge. 



Get PC correct and do DMP 

ROGER RIGGS 15-FEB-79" 

MODIFIED SETVEC SO LOW 2 BITS 

EVEN FOR 'SOFT' VECTORS. 

REMOVED 'IS' BIT FROM MOST EXCEPTIONS 

Roger Riggs 12-Jun~1979 

Made software interrupt vectors soft, like BPT, T-bit. 

Roger Riggs 1-0CT-1979 

Changes to have only 1 SCB instead of 

Space for SCB is allocated in kernel, 

is done here. SCB IMAGE is reduced to 

Roger Rigus 6-ROV-1979 

Made SETIPL change mode to KERNEL before setting the IPL 

Roger Riggs, 26-Jan-1980, Version 5.2 

Set supervisor vector for software IPL interrupts on 

levels 6,9,10.11, to dispatch to EXESFORKDSPTH 

John Ciukaj, 5-feb-80. Version 5,1 

Delete 'MQVAB IS(R3), (R2)' causing exception while 

running diagnostic ECKAX, Exception depended on value 

of R2 on entry to DSSINITSCB 

Roger Riggs, 21-Mar-1980 

Added EXE$GL w SCB to hold address of current SCB, 

Roger Riggs, 18-SEP-1980, Version 6,0 

Added code to DSSINITSCB to restart the clock 

Dave Butenhof, 18-feb-1981, version 6.3 

Also allow SETVEC w/out changing address 

Fix several truncation errors 

- Jack Stansbury, 22-0ct-1981, Version 6.5 
Fixed several truncation errors. Changed SEP Psects to 
what they should be. Added .LIBRARY statements for 
$DS and SDIAG. 

Jack Stansbury, 15-September-1962, Version 6.9 
Added code in the Setvec routine that will take care of a race 
condition with the interval clock interrupts and an MTPR 
instruction that turns off the clock. Also changed the ICCSSM.ERR 
to be bit 15, instead of bit 31. 

Jack Stansbury, 16-September-1982, Version 6.9 
Changed the ICCSSM Err bit back to 31. The VAX Hardware Handbook 
has a picture of the ICCS longword In the back of the book. This 
picture states that the ERR bit is bit 15. However, in other 
sections of the book (and in the SRM), the ERR bit is 15, The 
NEBULA hardware thinks it is 15 also. 



Bob Bergazzi 21-0ct-1982 
Changed comments in DSXSSETVEC 



version 6.9 
routine. Also see 



CLOCK. MAR C25] 



Bob Bergazzi April 26, 
Added call to ONLY SCB in 



1983 Version 6.11 
DSXSINITSCB which Mxes 



the SCB for XXX, 



Bob Bergazzi June 7, 1983 Version 6.12 
Changed the CLRVEC routine to reset the clock 
resetting the clock. This compensates for the 
on 11/750s, which caused interrupts once in a 
resetting the clock. 



vector before 
TOK hardware bug 
blue moon when 
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L'7-29 








OOOO 


115 ; 




0000 


116 






COOO 


117 






0000 


118 






0000 


119 






0000 


120 






0000 


121 






0000 


122 


• — 
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23-JUL-1984 16:23:54 



Frame N2 Seguence 2498 
VAX-11 Macro V03-0T Page 3 
0MA1:CSYS0,SYSMAINT]SCB.MAR,5A (1) 



29 



Domenic Andella 1-Mcy-1984 Version 7.0 
Included FAULT CLEAR selection code macro, and added 
push/pop cf selection code a r ound call to DSRSFAULT^CLEAR 
in routine DSXSINJTSCB. Specific action relating to 
CPU type and calling routine can then be taken in 
MCHK module. 
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SCB 

U7-29 



DECLARATIONS 



SYSTEM CONTROL BLOCK 
DECLARATIONS 



B 3 

27-JUL-1984 Ffche 13 

27-JUL-1984 15:44:41 
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Frame 83 Seguence 2499 

VAX-11 Macro V03-01 Page 

DMA1:CSYSO.SYSMAJNTJSCB.MAR;54 



4 

(1) 



0O0000O1 

80000000 
00000080 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

:48 

149 

150 

151 

152 



.S8TTL DECLARATIONS 
INCLUDE FILES: 



.LIBRARY 
.LIBRARY 
.LIBRARY 



/SYS$LIBRARY:LIB/ 

/$DS/ 

/$DJA6/ 



[23] 
C23J 
C23D 



MACROS: 



EQUATED SYMBOLS: 



$DS.CVTREG.DEF 
$DS DSDEF 

sprBef 

SPSLDEF 
SDS.SCBDEF 
$DS SETVEC DEF 
CMKDEF 
DSFDEF 
FLTCLR SEL 
= 1 



IS 

ICCSSM 

KCS$M* 



ERR 
INT 



= 1 a 31 

= 13 7 



ERROR INDICATOR IN PR$ ICCS 
INTERRUPT PENDING IN $PR$ ICCS 



;C29 
[253 
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00000000 

0000 

0000 

0000 

0000 

0000 

0000 

00 0000 

0001 

0001 

00000005 0001 

0005 

0005 

00000009 0005 

C009 

0009 

OOOOOOOD 0009 

OOOD 

OOOD 

00000000 * OOOD 

0011 

0011 

00000000 0011 

00000000 ' 00000000 ' 00000000 * 00000000 ■ 0015 

00000000 ' 00000000 • 00000000 ' 00000000 ' 0025 

00000000 ' 00000000 ' 00000000 $ 00000000 '0035 

00000000' 00000000' 00000000' 0045 



.PSECT Work, NoExe, NoShr, Wrt, Long 



OWN STORAGE: 



154 
155 
156 
157 
158 
159 

160 DSSGB Stopping The Timer;: 

161 " .Byte " " 
162 

163 DSSGA CHMKVEO: 

164 " .BLKL 1 
165 

166 DS$GA_BREAKVEC:: 

167 .BLKL 1 
168 

169 DS$GA T8JTVEC:: 

170 " ,8LKL 1 
171 

172 EXE$GL_SCB:: 

173 .LONG SCBJMAGE 
174 

175 DS$GA SOFTJNT:: 

176 " .LONG 

177 .LONG 0C15] 



[23] 



If = 1 , we are doini 

. . . interval clod 



an MTPR to stop the 



[24] 
[24] 



USER CHANGE MODE TO KERNEL VECTOR. 
USER BREAK INSTRUCTION FAULT VECTOR. 
USER T-BIT TRAP VECTOR. 
Virtual address of SCB 



1 Bit per level 1-15(D) 

Soft interrupt vectors, 0=not assigned 
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00000000 
0000 
0000 



179 
180 
181 
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27-JUL-1984 15:44:41 
23-JUL-1984 16:23:54 

.PSECT Data, NoExe, Shr, NoWrt, Long 

MODNAM SCB 



Frame D3 Seguence 2501 

VAX-11 Macro V03-O1 Page 

0MAl:CSYS0.SYSMAINnsCB.MAR;54 



6 
(1) 

[233 
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SYSTEM CONTROL BLOCK 
INITIAL SYSTEM CONTROL 



E 3 

27-JUL-1984 Fiche 13 
27-JUL-1984 15:44:41 
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Frame E3 Segue.nce 2502 
VAX-11 Macro V03-OT Page 
DMA1 :CSYS0.SYSMAINTJSCB.MAR;54 



7 

(1) 



0004 
0004 
0004 
0004 
0004 
00000000 
0000 



00000000' 
00000001 • 
00000C01 • 
00000001 • 

oooooooo • 

00000000' 

00000000' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO 1 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO 1 

OOOOOOOO 1 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

OOOOOOOO' 

000002A0' 

000002A0' 

000002A0' 

000002AO' 

000002AO' 

000002A0' 

000002AO' 

000002AO' 

000002AO' 

000OO2A0' 

000002A0 ' 

000002AO' 

000002A0' 

000002AO* 

000002A0' 

00000001 • 



0000 
0000 
0004 
0008 

oooc 

0010 

0014 

0018 

001C 

0020 

0024 

0028 

002C 

0030 

0034 

0038 

003C 

0040 

0044 

0048 

004C 

0050 

0054 

0058 

005C 

0060 

0064 

0068 

006C 

0070 

0074 

0078 

007C 

0080 

0084 

0088 

008C 

0090 

0094 

0098 

009C 

OOAO 

00A4 

00A8 

OOAC 

0080 

00B4 

00B8 

008C 

OOCO 



183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

2^8 

219 

220 

221 

222 

221 

22^ 

225 

226 

227 

22B 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 



.SBTTL INITIAL SYSTEM CONTROL BLOCK IMAGE. 
IMAGE OF THE SYSTEM CONTROL BLOCK USED TO REINITIALIZE THE ACTUAL EXE. 



.PSECT SSCB, SHR, EXE, WRT, PAGE 



SCBJMAGE:: 

SCB MCHK: 

SCB'KRNLSTK: 

SCB'POWER: 

SCB~OPCDEC: 

SCB~OPCCUS: 

SCBlAOPRAND: 

SCB RADRMOD: 

SCB~ACCVlO: 

SCB^TRANSL: 

SCB_T8IT: 

SCB BREAK: 

SCB^COMPAT: 

SCB ARJTH: 



SCB CHMK: 
SCB~CHME: 
SCB~CHMS; 
SCB_CHMU: 



SCB SFTLVL1 
SC8ISFTLVL2 
SCB„Si-TLVL3 

sc8.sftlvl4 
scb sftlvl5 
scb~sftlvl6 
scb_sftlvl7 
scb sftlvl8 
scb;sftlvl9 
scb sftlvl10 
scb sftlvl11 
scb~sftlvl12 
scbisftlvl13 
scb sftlvl14 
sc8isftlvl15 
scb timer: 



.LONG SCBVECTOR 000 

.LONG EXE„MCHK+IS 

.LONG EXE.KRNLSTK+IS 

.LONG EXE.POWER+IS 

.LONG EXE„OPCDEC 

.LONG EXE_OPCCUS 

.LONG EXE_ROPRAND 

.LONG EXE RAD r '")D 

.LONG EXE~ACCVIO 

.LONG EXEJRANSL 

.LONG EXEJTBIT 

.LONG EXE BREAK 

.LONG EXE.COMPAT 

.LONG EXE ARITH 

.LONG SCB9ECT0R.G38 

.LONG SCBVECTOR 03C 

.LONG EXE.CMODK&NL 

.LONG EXE CHME 

.LONG EXElCHMS 

.LONG EXE CHMU 

.LONG SCBVECT0R^050 

.LONG SCBVECT0R.054 

.LONG SCBVECTOR J)58 

.LONG SCBVECT0RJ)5C 

.LONG SCBVECT0R^060 

.LONG SCBVECTOR 064 

.LONG SCBVECT0R.068 

.LONG SCBVECTOR ..06C 

.LONG SCBVECTOR 070 

.LONG SCBVECT0R,074 

.LONG SCBVECT0R_078 

.LONG SCBVECT0R„07C 

.LONG SCBVECT0R.080 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG SOFTSINT 

.LONG DSISTIMSRV+IS 



UNSPECIFIED. RESERVED TO DEC. 

MACHINE CHECK ABORT. 

KERNEL STACK NOT VALID ABORT. 

POWER FAIL INTERRUPT. 

RESERVED/PRIVILEGED INSTRUCTIONS FAULT. 

CUSTOMER RESERVED INSTRUCTION FAULT. 

RESERVED OPERAND FAULT/ABORT. 

RESERVED ADDRESSING MODE FAULT. 

ACCESS CONTROL VIOLATION FAULT. 

TRANSLATION NOT VALID FAULT. 

TRACE TRAP. 

BREAKPOINT FAULT. 

COMPATIBILITY TRAP. 

ARITHMETIC TRAP. 



UNSPECIFIED. 






UNSPECIFIED. 






CHMK TRAP. 






CHME TRAP. 






CHMS TRAP. 






CHMU TRAP. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






UNSPECIFIED. 






SOFTWARE LEVEL 


1 


INTERRUPT. 


SOFTWARE LEVEL 


2 


INTERRUPT. 


SOFTWARE LEVEL 


3 


INTERRUPT. 


SOFTWARE LEVEL 


4 


INTERRUPT. 


SOFTWARE LEVEL 


5 


INTERRUPT. 


SOFTWARE LEVEL 


6 


INTERRUPT. 


SOFTWARt* LEVEL 


7 


INTERRUPT. 


SOFTWARE LEVEL 


8 


INTERRUPT. 


SOFTWARE LEVEL 


9 


INTERRUPT. 


SOFTWARE LEVEL 


10 


INTERRUPT. 


SOFTWARE LEVEL 


11 


INTERRUPT. 


SOFTWARE LEVEL 


12 


INTERRUPT. 


SOFTWARE LEVEL 


13 


INTERRUPT. 


SOFTWARE LEVEL 


14 


INTERRUPT. 


SOFTWARE LEVEL 


15 


INTERRUPT. 


INTERVAL TIMER 


INTERRUPT. 
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F 3 
27-JUL-1984 Fiche 13 
27-JUL-1984 15:44:41 
BLOCK IMAGE. 23-JUL-1984 16:23:54 
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00000000' 


O0C4 


240 


oooooooo • 


O0C8 


241 


00000000* 


OOCC 


242 


OOOOOOOO 1 


OODO 


243 


OOOOOOOO 1 


O0D4 


244 


OOOOOOOO' 


00D8 


245 


OOOOOOOO' 


OODC 


246 


OOOOOOOO' 


OOEO 


247 


OOOOOOOO' 


O0E4 


248 


OOOOOOOO' 


O0E8 


249 


OOOOOOOO' 


OOEC 


250 


OOOOOOOO' 


OOFO 


251 


OOOOOOOO' 


00F4 


25? 


OOOOOOOO' 


0UF8 


253 


OOOOOOOO' 


COFC 


254 



.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 


.LONG 


SCBVEC 



TOR 0C4 
TORI0C8 
TOR.OCC 
TOR ODO 
TOR~0D4 
TOR.0D8 
TOR_ODC 
TOR OEO 
TOR~0E4 
T0R"0E8 
TOR'OEC 
TOR OFO 
T0R"0F4 
TOR"0F8 
TORIOFC 



UNSPECJ 
UNSPECI 
UNSPECJ 
UNSPECJ 
UNSPECJ 
UNSPECJ 
UNSPECJ 
UNSPECJ 
UNSPECJ 
UNSPECI 
UNSPECI 
UNSPECJ 
UNSPECJ 
UNSPECJ 
UNSPECJ 



FJED. 
FJED. 
FJED. 
FJED. 
FJED. 
FJED. 
F JED, 
FJED. 
FIED. 
FJED. 
FIED. 
FIED. 
FIED. 
FIED. 
FIED. 
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DSXSIN1TSCB INITIALIZE SYSTEM CONTROL BL 

SYSTEM CONTROL BLOCK 
DSXSINITSCB INITIALIZE SYSTEM 



27-JUL-1984 Fiche 13 
27-JUL-1984 15:44:41 

CONTROL BL 23-JUL-1984 16:23:54 



Frame G3 Seguence 2504 
VAX-1 1 Macro V03-0T Page 
DMA1 :[SYS0«SYSMAINT:]SCB.MAR;54 



0100 


256 


00000000 


257 


0000 


258 


0000 


259 


0000 


260 


0000 


261 


0000 


262 


0000 


263 


0000 


264 


0000 


265 


0000 


266 


0000 


267 


oooo 


268 


0000 


269 


cooo 


270 


0000 


271 


0000 


272 


0000 


271 


0000 


274 


0000 


275 


0000 


276 


0000 


277 


0000 


278 


0000 


279 


0000 


280 


0000 


281 


oooo 


282 


0000 


283 



♦SBTTL DSXSINITSCB INITIALIZE SYSTEM CONTROL BLOCK ROUTINE 
.PSECT Code, Exe, Shr, NoWrt, Long 

++ 
FUNCTIONAL DESCRIPTION: 

This routine generates the necessary SCB. 
The 1st half page contains vectors for exceptions and traps 
The rest of the 4 pages is filled with trap catchers. 
Interrupts are disabled while the SCB is being updated. 
Calls the ONLY^SCB routine to do CPU specific SCB setup. 

CALLING SEQUENCE: 

DSSJNITSCBO 

INPUT PARAMETERS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUT PARAMETERS: NONE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 



9 



C23] 
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DSXSIN1TSCB INITIALIZE SYSTEM CONTROL BL 

SYSTEM CONTROL BLOCK 
DSX$IN1TSCB INITIALIZE SYSTEM 



H 3 

27-JUL-1984 Fiche 13 
27-JUL-1984 15:44:41 
CONTROL BL 23-JUL-1984 16:23:54 



Frame H3 Sequence 2505 
VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINTJSCB.MAR;54 



10 
(1) 



FFEO 52 



OOOC 


0000 


285 


.ENTRY 


DSX$INITSCB,*M<R2,R3> 






0002 


286 












0002 


287 




CMK 


INITSC8 






0011 


288 








50 OO 1 


DO 


0011 


289 




MOVL 


S**SS$ NORMAL, RO 


00000000* EF 11 


E5 


0014 


290 




BBCC 


#DS$V_TlMRON,DS$GLJLAGS, 


00 




001B 


291 






10$ 


OOOOOOOO'EF 


16 


001 C 


292 


10$: 


J SB 


KB.CHECK 




04 


0022 
0023 
0023 


293 
294 
295 


* 


RET 


• 

# 






0023 


296 


; Reset 


the whole SCB and reset the SCBB 






0023 


297 


# 










0023 


298 












C023 


299 


CMK$JNJTSC8:: 




OF 


BB 


0023 
0025 


300 
301 




PUSHR 
DSBJNT 


**M<R0,R1,R2,R3> 


51 


D4 


002B 


302 




CLRL 


R1 ; 


52 OOOOOOOO'EF 


9E 


002D 


303 




M0VA8 


L A SCB BASE.R2 


53 00000000' EF 


9E 


0034 
003B 


304 
305 




MOVAB 


SCBjflAGE,R3 


82 83 


7D 


003B 


306 


10$: 


MOVQ 


<R3)+ f (R2>+ 

#31,R1,10$ 


F9 51 1F 


F3 


003E 
0042 
0042 


307 

308 
309 




AOBLEQ 


53 00000100'EF 


9E 




M0VA8 


SCB UNKINT+ A X100,R3 


51 000000C4 , EF 


9E 


0049 
0050 


310 
311 




MOVAB 


L A URKN0WNJNT,R1 


50 03 A3 


9E 


0050 


312 20$: 


M0VA8 


3(R3),R0 


50 51 50 


C3 


0054 


313 




SUBL3 


R0,R1,R0 


50 50 08 


78 


0058 


314 




ASHL 


#8,R0,R0 


50 30 


90 


005C 


315 




MOVB 


* A X30,R0 
R0,(R3)+ 


83 50 


DO 


005F 


316 




MOVL 


62 FD A3 


9E 


0062 


317 




MOVAB 


IS-4(R3),(R2) 


04 FFFFFFFC8F 


F1 


0066 
0070 


318 
319 




ACBL 


*SCB_UNKINT-4,*4,R2,20$ ; 


OOOOOOOO'EF 


16 


0070 
0076 
0076 


320 
321 
322 


; + 


JSB 


ONLY..SCB 






0076 


323 


; Re-imt clock 


and flag 






0076 


324 


i 










0076 


325 








00000000' EF 


16 


0076 


326 




J SB 


L*CLK$REJNIT 


00000000 'EF 11 


E5 


007C 


527 




BBCC 


*DS$V TlflRON, - 


00 




0083 
0084 


328 
329 






DS$5L_FLAGS, 25$ 


00000001 'EF 


D4 


0084 


330 25$: 


ClRL 


DS$GA CHMKVEC 


00000005'EF 


D4 


008A 


331 




CLRL 


DS$GA - .8REAKVEC 


00000009 'EF 


D4 


0090 


332 




CLRL 


DS$GA TBITVEC 


50 07 


DO 


0096 
0099 
0099 


333 
334 
335 




MOVL 


#7,R0 


OOOOOOH'fcFAO 


7C 


30$: 


CLRQ 


DS$GA SOFTINTCRO] 


F6 50 


F5 


OOAO 


336 




S0B6TR 


R0,30l 


50 OOOOOOOO'EF 


DE 


00A3 


337 




MOVAL 


SCB BASE,RO ; 


11 50 


DA 


OOAA 


338 




MTPR 


RO,*PR$ SCBB ; 


OOOOOOOO'EF 50 


DO 


OOAD 


339 




MOVL 


RO,EXc$GL SCB 


02 


DD 


0084 


340 




PUSHL 


*DS$ GK INITSC8 


OOOOOOOO'EF 


16 


00B6 


341 




JSB 


L*DSfi$FAULT_CLEAR 



CHANGE MODE TO KERNEL. 

Set success 

• ; Clear interval turner in use 

CHECK KEYBOARD STATUS. 
RETURN TO CALLING ROUTINE 



Save registers 

Disable interrupts 

Clear count of quads to be copied 

Point to where to build SCB 

1/2 page of SCB image 

Copy guadword of SCB 
Copy 1/2 page 

Point to unknown interrupt field 
Address of intermediate handler 

Address after BS8W inst 
make offset to handler 
Position offset 
Insert opcode for BSCN 
Insert BSBW UNKNOWN.. INI 
Point SCB vector to BSBW+IS 
For every vector in the SCB 

Do CPU specific SCB setup 



C233 



[273 



Initialize the system timer 
RELEASE THE INTERVAL CLOCK. 



CLEAR USER CHMK VECTOR. 
CLEAR USER BREAK VECTOR. 
CLEAR USER TBIT VECTOR. 
Max software interrupt level 

Clear soft vector 

Clear all vectors including (mask) 

Point to SCB 

Set SCBB 

Set Virtual address of SCB 

Pass fault clear selection code 

Reset fault regs and enables 



;CM| 



ZZ-ENSAA-7.0 0SXSIN1TSCB INITIALIZE SYSTEM CONTROL BL 27-JUL-1984 « FK h ?, 1 ?« F f? me J 3 ^ unT S S9 uence 250 n n 

SCB SYSTEM CONTROL BLOCK 27-JUL-1984 15:44:41 VAX-11 Macro V03-0T Page 11 

07-29 DSXS1NITSCB INITIALIZE SYSTEM CONTROL BL 23-JUL-1984 16:23:54 DMA1 :CSYS0.SYSHAJWT3SCB.HAR;54 (1) 

8E D5 OOBC 342 TSTL (SP)+ ; Reset the stack 

OOBE 343 EN8INT ; Re-enable interrupts 

OK BA 00C1 344 POPR * A M<R0,R1 ,R2,R3> ; Restore registers 
02 00C3 345 REI 
00C4 346 

00C4 347 UNKNOWN INT: 

6E 00000003 , 8F C2 00C4 348 SUBL #SCB UNKINT+3, (SP) ; BSBW addr-base is SCB offset 

OOOOOOOO'EF 16 OOCB 349 JS8 DSIStJHANNEL VEC ; Enter channel services w/ vector [23] 

OOOOOOOO'EF 17 00D1 350 JMP EXE UNEXPINT ; With offset on stack flag unexpected [23.1 
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DSXSSETVEC SET VECTOR ROUTINE 

SYSTEM CONTROL BLOCK 
DSXSSETVEf SET VECTOR ROUTINE 



J 3 . 

27-JUL-1984 Fiche 13 

27-JUL-1984 15:44:41 

23-JUL-1984 16:23:54 



Frame J3 Seguence 2507 

VAX-11 Macro V03-01 Page 

OMA1:C5YS0.SYSMAINnSLj.MAR;5/t 



( » 



00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
C0D7 
00D7 
0OD7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
00D7 
0007 
00D7 
00D7 
00D7 
00D7 
0OD7 
0OD7 
00D7 



352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

:<85 

366 



.SBTTL DSXSSETVEC 



SET VECTOR ROUTINE 



+ + 



FUNCTIONAL DESCRIPTION: 



ROUTINE TO LOAD T HE ADDRESS OF AN EXCEPTION OR INTERRUPT SERVICE ROUT WE 
INTO THE SYSTEM CONTROL BLOCK (SCB). 

CALLING SEQUENCE: 

STANDARD CALL PROCEDURE. 

INPUT PARAMETERS: 



SETVECS VECTOR(AP) 
SETVEC$~SRVADR(AP) 
SETVEC$"CODE(AP) 



= OFFSET INTO SCB. 

= ADDRESS OF INTERRUPT SERVICE ROUTINE 

= VECTOR CODE IN BITS 1:0. 



IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 



NONE 



RO 
R1 



= COMPLETION CODE. 

= PREVIOUS SERVICE ADDRESS. 



IMPLICIT OUTPUTS: 

COMPLETION CODES: 

DS$ NORMAL 
DSS'IVADDR 
DS$"IVVECT 
DSSIICBUSY 

SIDE EFFECTS: 



NONE 



= VECTOR MODIFIED. 

= SERVICE ADDRESS <1:0> NOT ZERO. 

= INVALID VECTOR NUMBER. 

= INTERVAL CLOCK BUSY. 

NONE 



ZZ-ENSAA-7.0 

SCB 

07-29 



DSXSSETVEC SET VECTOR ROUTINE 

SYSTEM CONTROL BLOCK 
DSXSSETVEC SET VECTOR ROUTINE 



K 3 

27-JUL-1984 Fiche 13 Frame K3 Sequence 2508 

27-JUL-1984 15:44:41 VAX-11 Macro V03-01 Page 

23-JUL-1984 16:23:54 DMA1 :[SYS0.SYSMAINT3SCB. MAR/54 



01 3F 

50 00660040 8F 

08 AC 03 
49 

51 00000000'E2 

0040 8F 52 

09 

51 00000001'EF 

6A 

2C 52 

09 

51 00000005'EF 

5C 

28 52 

09 

51 00000009'EF 

4E 



OOCO sr 
OOOOOOOO'EF 

50 



52 
2A 
11 
09 
006600C8 8F 



00000000' E 



5? 
01 



OOOC 

30 

DO 
D3 
12 

DE 

B1 
12 
DE 
11 

B1 

12 
DE 
11 

B1 
12 
DE 
11 

B1 
12 
E3 

DO 

11 

90 



18 80000080 8F DA 



53 18 DB 



00000000' EF 
1D 



0084 8f 
OOBC 8F 



52 
16 
52 
OF 



94 
11 

81 
19 

B1 
14 



00D7 

00D9 

00D9 

OODC 

OODC 

00E3 

00E7 

00E9 

00E9 

OOFO 

OOFO 

OOF 5 

OOF 7 

OOFE 

C100 

0100 

0103 

0105 

010C 

010E 

010E 

0111 

0113 

011A 

01 1 c 

01 u 

0121 

0123 

01 2A 

0128 

0132 

0132 

0134 

0134 

013B 

0138 

013B 

0138 

0138 

01 3B 

01 3B 

01 3B 

0138 

0142 

0142 

0H2 

0142 

0145 

0145 

0145 

0145 

014B 

014D 

014D 

0152 

0^54 

0159 



388 .ENTRY 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 30$: 

404 

405 

406 

407 

408 40$: 

409 

410 

411 

412 

413 50$: 

414 

415 

416 

417 

418 

419 53$: 

420 

421 55$: 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 60$: 

442 

443 

444 



DSX$SETVEC,*M<R2,R3> 

BSBW CHECK_VECTOR 

MOVL *DS$ JVADDR, RO 

8JTL *3,87AP) 

BNEQ 53$ 

MOVAL L A SCBJ3ASE(R2), R1 



CMPW 
BNEQ 
MOVAL 
BR8 

CMPW 
BNEQ 
MOVAL 
8RB 

CMPW 
BNEQ 
MOVAL 
BR8 

CMPW 
BNEQ 
BBCS 

MOVL 

BRB 

Mov8 

+ 



R2, *SCB$L CHMK 
30$ 

DS$GA„CHMKVEC, R1 
100$ 

R2, .ySCB$L BREAK 
40$ 

DSSGA..BREAKVEC, R1 
100$ 

R2, #SCB$L..TBIT 
50$ 

D$$GA_T8ITVEC, R1 
100$ 



Save R2 and R3 

Check vector for validity 

SET ERROR RETURN CODE. 

CHECK FOR LONGWORD ALIGNED ADR. 

Exit if not longword aligned 

GET ADR OF VECTOR AS I KNOW IT. 

CHECK FOR CHMK VECTOR. 

SET SOF T VECTOR INSTEAD. 

CHECK ^OR BREAK VECTOR. 
SET SOFT VECTOR INSTEAD. 

CHECK FOR TBIT VECTOR. 
SET SOFT VECTOR INSTEAD. 



13 
(1) 

[243 



R2. #SCB$L^TIMER 

60i 

*DS$V TIMRON, - 

DSSSL FLAGS, 55$ 
*DS$JCBUSY, RO 



; CHECK FOR TIMER VECTOR. 

; SET TIMER FLAG. 

; INTERVAL CLOCK BUSY. 
DSX$SETVEC„X 
#1, L*DS$GB_Stopping_The_Timer ; Set flag tc signal stopping 



[24] 



Do an Mtpr and then an Mfpr because th- inters' clock may Interrupt in 

between the time the MTPR console coc* **« muting and when the MTPR 

console code is actually finished. T itpr console code may 

actually be executing at the same tin. ..-PR macro code starts. 



MTPR fICCSSM.ERR + 
ICCS$M INT , 

#PR$JCCS 
Mfpr *PR$JCCS, R3 



CLEAR ERROR I 

INTERRUPT I STOP THE CLOCK 

IN THE INTERVAL TIMER 

This ensures that the preceding 
MTPR is really finished (at the 
console level) 



ClrR L A DS$GB_Stopping_The_Timer 

BR8 100$ 

CMPW R2,#SCB$L..SFTLVL1 

BLSS 70$ 

CMPW R2.*SC8$L SFTLVL15 

BGTR 70$ 



Clear flag to signal dene 



C251 
C25i 
[25] 

[24] 



Possible software interrupt vector 
No, desired vector is too low 
Possible software interrupt vector 
No, desired vector is too high 
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14 
(1) 



51 
51 



52 04 02 

0000001VEF41 

00 



EF 
DE 

11 



61 



61 
08 AC 

04 
08 AC 



51 00000000*E2 
61 02 00 OC AC 

02 
50 00660001 8F 



OOOOOOOO'EF 



DD 
D5 

13 
00 



DE 
FO 
BA 
DO 



16 
04 



01 5B 
0160 
0168 
01 6A 
01 6A 
01 6A 
016A 
016A 
01 6A 
01 6A 
01 6A 
01 6A 
016C 
016F 
0171 
0175 
0175 
0175 
01 7C 
0182 
0184 
01 8B 
0i8B 
01 88 
0191 



445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 



EXTZV 
MOVAL 
8R8 



#2.*4,R2,R1 

DS$GAJ0FTINTCRn,R1 

100$ 



; Isolate software interrupt level 
; Point to true vector 



70S: 



; Vector offset in R2 
; Address of vector in R1 



100$: 



110$: 



PUSHL 
TSTL 
BEQL 
MOVL 



MOVAL 
INSV 
POPR 
MOVL 



(R1) 
8(AP) 
110$ 
8<AP), 



(R1) 



DSX$SETVEC X: 
JSS 
RET 



L'SCB BASE(R2), 
12<APT, 00, #2, 
# A M<K1> 
*DS$_N0RMAL, RO 



KB.CHECK 



R1 
(R1) 



SAVE OLD SER*. <ESS, 
See if address •.» 
If so, don't change 
LOAD THE VECTOR REQUESTED 



Set back to SCB vec (soft vector) 

SET VECTOR CODE BITS 1:0. 

PUT OLD SERVICE ADDRESS INTO R1 . 

SET SUCCESSFUL RETURN 



CHECK KEYBOARD STATUS. 
RETURN TO THE DIAGNOSTIC 



L2M 
C21.1 



C2U 
[213 
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23-JUL-1984 16:23:54 



Frame M3 Sequence 2510 
VAX-11 Macro V03-0T Page 15 
DMA1:[SYS0.SYSMAINTjSC8.MAR;54 (1) 



0192 


471 


0192 


472 


0192 


473 


C192 


474 


0192 


475 


0192 


476 


0192 


477 


0192 


478 


0192 


479 


0192 


480 


0192 


481 


0192 


482 


0192 


483 


019? 


484 


C192 


485 


0192 


486 


0192 


487 


0192 


488 


0192 


489 


0192 


490 


0192 


491 


0192 


492 


0192 


493 


0192 


494 


0192 


495 


0192 


496 


0192 


497 


0192 


498 


0192 


499 


0192 


500 


0192 


501 


0192 


502 



.S8TTL DSXSCLRVEC 



RESTORE VECTOR ROUTINE 



+ + 



FUNCTIONAL DESCRIPTION: 



THIS ROUTINE LOADS THE '/ECTOR IN THE 'SCB 1 WITH THE CONTENTS 

OF THE CORRESPONDING VECTOR IN 'SCBJMAGE' (A PAGE WHICH HOLDS THE 

INITIAL CONTENTS OF EACH VECTOR). 

Interrupts are disabled while the SCB is being changed. 

CALLING SEQUENCE: 

DS$CLRVEC(VECTOR OFFSET) 
INPUT PARAMETERS: 

4(AP) OFFSET INTO S.C.B. 
IMPLICIT INPUTS: 

SCBJMAGE - INITIAL SYSTEM CONTROL BLOCK 

OUTPUT PARAMETERS: 

RO = 1 > SUCCESSFUL 
RO = > FAILURE 

IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: NONE 
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DSXSCLRVEC RESTORE VECTOR ROUTINE 

SYSTEM CONTROL BLOCK 

DSXSCLRVEC RESTORE VECTOR ROUTINE 



N 3 
27-JUL-1984 Fiche 13 
27-JUL-1984 15:44:41 



23-JUL-1984 16:23:54 



Frame N3 Seguence 2511 
VAX-11 Macro V03-0T Page 
0MA1 :[SYS0.SYSMAINT]$CB.MAR;54 



16 
(1) 



0004 
0084 30 



0040 8F 



52 
08 

000C0001 'EF 
36 

2C 52 

08 

00000005 'EF 

29 

28 52 

08 

00000009' EF 

1C 



50 



50 



0084 8F 

OOBC 8F 

52 04 
00000011 



52 
15 
52 
OE 
02 
EF40 
00 



00000001 'E2 
0100 8F 52 
07 
50 00000000 'E2 



00000000'E2 
OOCO 8F 



50 
52 
OE 
00000000 'EF 

00000000 'EF 11 
00 

50 00000000' 8F 



OOOOOOOO'EF 



B1 
12 
D4 
11 

B1 
12 
D4 
11 

B1 
12 
D4 
11 

B1 
19 
31 
14 
EF 
D4 
11 



9E 
B1 
18 
DO 

DO 
B1 
12 
16 
E5 

DO 



16 
04 



0192 
0194 
0194 
0197 
0197 
019C 
019E 
01A4 
01A6 
01A6 
01A9 
01AB 
01B1 
01B3 
C1B3 
01B6 
01B8 
01BE 
01C0 
01C0 
01C5 
01C7 

ouc 

01CE 
01D3 
01DA 
01DC 
01DC 
01DC 
01E3 
01E8 
01EA 
01F1 
01 F i 
01F8 
01FD 
01FF 
0205 
02CC 
020D 
0214 
0214 
0214 
021A 



504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 



.ENTRY DSXSCLRVEC, A M<R2> 

8S8W CHECK^VECTOR 



10$: 



20$: 



30$: 



50$: 



60$: 
100$: 



120$: 



CMPW 
BNEQ 
CLRL 
BRB 

CMPW 
BNEQ 
CLRL 
BRB 

CMPW 
BNEQ 
CLRL 
BRB 

CrtPW 

BLSS 

CMPW 

B6TR 

EXTZV 

CLRL 

BR8 



MOVAB 
CMPW 
B6EQ 
MOVL 

MOVL 
CMPW 
BNEQ 
J SB 
BBCC 



150$: MOVL 

DSXSCLRVEC X: 

JSB 
RET 



R2 r #SCB$L_CHMK 

20* 

DSSGA CHMKVEC 

100$ " 

R2, #SCB$L BREAK 

30$ 

DS$GA BREAKVEC 

100$ 

R2, *SCB$L_TBIi 

50$ 

DS$GA TBJTVEC 

100$ " 

R2,*SCB$L SFTLVL1 

60$ 

R2,*SCB$L SFTLVL15 

60$ 

#2,*4,R2,R0 

DS$GA SOFTINTCROJ 

100$ 



L A SCB UNKINT+IS(R2),R0 

R2,* A X100 

120$ 

L A SCB_IMAGE(R2),R0 

R0,L A SC8 BASE(R2) 
R2, #SCB$L TIMER 
150$ 

L A CLK$RE INIT 
0DS$V UMRON, - 

DS$5L FLAGS, 150$ 
0SS$ NORMAL, RO 



KB.CHECK 



Verify vector 

CHECK FOR CHMK VECTOR. 

CLEAR SOFT VECTOR. 

; CHECK FOR BREAK VECTOR, 

; CLEAR SOFT VECTOR. 

; CHECK FOR TB/T VECTOR. 

; CLEAR SOFT VECTOR. 



Possible software interrupt vector 
No, desired vector is too tow 
Possible software interrupt vector 
No, desired vector is too high 
Isolate software interrupt level 
Clear vector 



Restore unexpected handler 
1st 1/2 page? 
Branch if not 
Get static vector 

RESTORE THE VECTOR. 

TIMER VECTOR? 

No 

Yes, initialize the system timer 

RELEASE THE INTERVAL CLOCK. 

SET SUCCESSFUL RETURN 



CHECK KEYBOARD. 

RETURN TO DIAGNOSTIC PROGRAM 



C283 
[28] 
[283 
[283 
[28] 



7Z-ENSAA-7.0 

SCB 

U7-29 



CHECK. VECTOR Verify vector range 

SYSTEM CONTROL BLOCK 
CHECK..VECTOR Verify vector range 



B 4 
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27-JUL-198A 15:44:41 
23-JUL-1984 16:23:54 



Frame B4 Seguence 2512 
VAX-11 Macro V03-01 Page 17 
0«A1:CSYS0.SYSMAINT3SCB.MAR;5A (1) 



0218 


549 


0218 


550 


021B 


551 


0218 


552 


0218 


553 


021B 


554 


Q21B 


555 


0218 


556 


021B 


55/ 


0218 


558 


0218 


559 


0218 


560 


021B 


561 


021B 


562 


C21B 


563 


021B 


564 


0218 


565 


0218 


566 


021B 


567 


0218 


568 


0218 


569 


0218 


570 


021B 


571 


0218 


572 


021B 


573 


0218 


574 


021B 


575 


0218 


576 


0218 


b77 


0218 


578 


021B 


5 79 


0218 


580 



+ + 



.SBTTI. CHECK^VECTOR Verify vector range 



FUNCTIONAL DESCRIPTION: 

This routine is used to verify that the vector specified 
falls within the SCB and is aligned property 

CALLING SEQUENCE: 

BS8W CHECK_VECTOR 
INPUT PARAMETERS: 

4(AP) Vector 
IMPLICIT INPUTS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: 

R2 correct vector 
SIDE EFFECTS: 

Returns to caller if vector bad 
COMPLETION CODES: 



ZZ-ENSAA-7.0 

SCB 

U7-29 



CHECK VECTOR Verify vector range 

SYSTEM CONTROL BLOCK 
CHECK^VECTOR Verify vector range 

CHECK VECTOR: 
" MOVL 
._ ._ BEQL 

52 0OQ00000*8F D1 0221 585 CMPL 

BLEQ 
BITL 
BNEQ 
RS8 



C 4 
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50 







0218 


582 


52 04 AC 


DO 


021B 


583 


OF 


13 


021F 


584 


0OQ00000*8F 


D1 


0221 


585 


06 


15 


0228 


586 


52 03 


D3 


022A 


58? 


01 


12 


022D 


588 




05 


022F 


589 






0230 


590 


00660058 8F 


DO 


0230 


591 




04 


0237 


592 



4(AP), R2 

10$ 

#SCB UNKIN'f-SCB BASE,R2 

10$ ' 

#3,R2 

10$ 



10$: 



MOVL 
RET 



0DS$_IVVECT / RO 



Get vector 
Branch if bad 
Within SCB? 
Branch if not 
Longword aligned? 
Branch if not 
Return since vector 



ok 



Sorry bad vector, return 



ZZ-FNSAA-7.0 

SCB 

07-29 



D 4 

27-JUL-1984 



Fiche 13 Frame DA 



Sequence 2514 



DSXSSETIPL SET INTERRUPT PRIORITY LEVEL 27-JUL-1984 Fiche 15 Frame M 5egi 

SYSTEM CONTROL BLOCK 27-JUL-1984 15:44:41 VAX-11 Macro V03-01 Page 

DSXSSETIPL SET INTERRUPT PRIORITY LEVEL 23-JUL-1984 16:23:54 DMA1 :[SYS0.SYSMAINTIISCB.MAR;54 



19 
(1) 



0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
C238 
0238 
0238 
0238 
0233 
0238 



594 
595 
596 
597 
598 
599 
bOO 
601 
60? 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 



+ + 



.SBTTL DSXSSETIPL SET INTERRUPT PRIORITY LEVEL SERVICE PROCEDURE, 
FUNCTIONAL DESCRIPTION: 

THJS ROUTINE SETS THE CURRENT IPL 
CALLING SEQUENCE: NONE 
INPUT PARAMETERS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 



Z7-ENSAA-7.0 

see 

07-29 



DSXSSET1PL SET INTERRUPT PRIORITY LEVEL 

SYSTEM CONTROL BLOCK 
DSXSSETIPL SET INTERRUPT 



27-JUL-1984 Fiche 13 

27-JUL-1984 1 :44:41 
PRIORITY LEVEL 23-JUL-1984 16:23:54 
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0MA1.-CSYS0.SYSMAINT3SCB.MAR;5A (1) 



0000 



50 00000000'8F DO 

04 



04 AE 05 



12 
10 



04 AC 
04 AC 



DA 
FO 

02 



0238 
023A 
023A 
0249 
0250 
0251 
0251 
0251 
0255 
025C 
025C 



615 .ENTRY DSXSSETIPL , A M<> 



616 
617 
618 
619 
620 
621 
622 
623 
624 
625 



CMK 

MOVL 

RET 

CMKSSETIPL:: 
MTPR 
INSV 

REI 



SETIPL 
#SS$_NORMAL,R0 



4(AP), *PR$ IPL 
4(AP),#PSL$tf IPL, 
0PSL$SJPL,47SP) 



Change mode to kernel 
INDICATE SUCCESS 



Set IPL also 
Exit CHMK 



in PSL about to be 



ZZ-ENSAA-7,0 

SCB 

07-29 



SOFTSINT Software interrupt vectors 

SYSTEM CONTROL BLOCK 
SOFTSINT Software interrupt 



F 4 
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vectors 23-JUL-1984 16:23:54 
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21 
(1) 



00000000' 
00000000 ' 
00000000' 
00000000' 
00000000' 
00000000' 
00000000' 
00000000' 
00000000 ' 
00000000' 
00000000' 
00000000' 
00000000' 
00000000' 
00000000' 
00000000' 



03 BB 

50 12 DB 

0A 0000001 1'EF 50 E4 

51 0000001TEF40 DO 

1B 12 

51 A5 AF40 DO 

25 12 

51 04 AE DO 

50 20 CO 

04 AE 50 02 78 

01 BA 

00000000 'EF 17 

7E 6E 7D 

08 AE 51 DO 

01 AE DC 

51 80 AF40 DO 

OA 13 

7E 6E 7D 

08 AE 51 DO 

OC AE DC 

03 BA 
02 



025D 

025D 

025D 

025D 

025D 

025D 

025D 

025D 

0260 

0260 

0264 

0268 

026C 

0270 

0274 

0278 

027C 

0280 

0284 

0288 

028C 

0290 

0294 

0298 

029C 

02A0 

02A0 

02A0 

02A0 

02A0 

02A2 

02A5 

02AD 

02B5 

02B7 

02B7 

02BC 

02BE 

02C2 

02C5 

02CA 

02CC 

02D2 

02D2 

02D5 

02D9 

02DC 

02E1 

02E3 

02E3 

02E6 

02EA 

02ED 

02ED 

02EF 

02F0 

O2F0 



627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

6/4 

675 

676 

677 

678 

679 

680 

681 

682 

683 



.SBTTL 
++ 

FUNCTIONAL 



SOFTSJNT 
DESCRIPTION: 
These vectors are the software 



Software interrupt vectors 



.ALIGN LONG 
SOFT$INT„A: 

.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 
.ADDRESS 



.ALIGN LONG 





SCHSASTDEL 



I0CSI0P0ST 

DSSSOFTIPL5 

EXE$FORKDSPTH 

DSISTIMER 

EXESFORKDSPTH 

EXESFORKDSPTH 

EXESFORKDSPTH 

EXESFORKDSPTH 











SOFTSINT: 

PUSHR 

MFPR 

BBSC 

MOVL 

BNEQ 



10S: 



20$: 



30$: 



40$: 



MOVL 
BNEQ 
MOVL 
ADDL 
ASHL 
POPR 
JMP 

MOVQ 

MOVL 

MOVPSL 

MOVL 

BEQL 

MOVQ 
MOVL 
MOVPSL 

POPR 
REI 

.END 



# A M<R0,R1> 
*PR$ IPL,RO 
R0,D5$GA SOFTINTJOS 
DS$GA SOFTINT[ROJ,R1 
20$ " 

SOFTSINTJUiROLRI 

30$ 

4<SP),R1 

# A X20,R0 

*2,R0,4(SP) 

# A M<R0> 

EXEJJNEXPJNT 

(SP).-(SP) 

R1,8(SP) 

12CSP) 

SOFTSINT ACR03,R1 

40$ 

(SP),-(SP) 

R1.8(SP) 

12(SP) 

tf A M<R0,R1> 



interrupt vector. 



IPL impossible / filler 

IPL 1 usused 

IPL 2 is AST delivery 

IPL 3 unused 

IPL 4 GIO post processing 

IPL 5 Enter special handler 

IPL 6 Fork dispatch 

IPL 7 Timer interrupt service 

IPL 8 Fork dispatch 

IPL 9 Fork dispatch 

IPL 10 Fork dispatch 

IPL 11 Fork dispatch 

IPL 12 unused 

IPL 13 unused 

IPL 14 unused 

IPL 15 unused 



Software interrupt vector (all IPl's) 

Save register 

Get IPL 

Branch if supervisor expected this 

User handler address? 

Branch if user handler 

Get handler address 

Branch if handler specified 

Restore R1 

Generate SCB offset 

SCB vector of unexpected interrupt 

Restore register 

Process unexpected interrupt 

Make space tor PC/PSL 

Set PC 

Current PSL for interrupt routine 

Get supervisor handler 

Branch if none 

; make space for PC/PSL 

; Set PC 

; Current PSL tor interrupt routine 

; Restore 

; Enter interrupt handler 



[233 



ZZ-ENSAA-7.0 

SCB 

Symbol table 



Symbol table 



SYSTEM CONTROL BLOCK 
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UARGS 

$$T1 

SER 

SMODULE 

BIT... 

CHECK VECTOR 

CLKSRE IfSlIT 

CMKSINlTSCB 

CMKSSETIPL 

CMK$_ 

CMKS.ASTEXIT 

CMK$ CANTIM 

CMK$„HI8ER 

CMKSJNITSCB 

CMK$ LAST 

CMK$_MMENABLE 

CMK$„RCONSOLE 

CMKS.REFRESH 

CMK$ SCHDWK 

CMK$ISET1MR 

CMK$_SETIPL 

CMKS SETPRT 

CMK$ISGIPR 

TMKS TCONSOLE 

CVTREG* DATA 

CVTREG$~MAXIEN 

CVTREG$>N£ADR 

CVTREGS MSB 

CVTREG$~NARGS 

CVTREG$~STRBUF 

CVTREGSIV1 

CVTREG$_V2 

CVTREG$_V3 

CVTREG$„V4 

CVTREGS V5 

CVTREG$"V6 

DSS6A BREAKVEC 

DS$GA~CHMKVEC 

OSSGA'SOF TINT 

DS$GA"TBITVEC 

DS$GB~STOPPING THE TIMER 

DS$GL~FLAGS 

0SSK..FRROR 

DS$K NORMAL 

DSSKfSEVERE 

DS$K.SUBSYS 

DS$K WARNING 

OS$M>BRTFLG 

DS$M BADTIME 

DS$M~BATCH 

OS$M"BRKCLR 

DS$M"8RKPT 

DS$M~CHARFLG 

DSSMlCMDFLG 

DS$M.CTRLC 

OS$M CTRLO 

OSSM'DEVFLG 



00000003 
00000010 
00000001 
00000000 
00000004 

0000021B 

******** 

00000023 

00000251 

00000004 

00000000 

0000000B 

00000007 

00000008 

OOOOOOOE 

00000003 

00000001 

00000005 

D0000006 

OOOOCOOC 

00000009 

OOOOOOOD 

OOOOOOOA 

00000002 

00000008 

00000014 

oooooooc 

00000004 
00000008 
00000010 
00000018 

oooooou 

00000020 
00000024 
00000028 
0000002C 
00000005 
00000001 
00000011 
00000009 

00000000 

******** 

00000002 
00000001 
00000004 
00000066 
00000000 
00000040 
00100000 
00400000 
00001000 
00000800 
00000100 
00000080 
00000001 
00010000 
00000200 



RG D 

RG D 



\> 

D 

D 

D 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



D 

D 

D 

D 

D 



D 

D 

D 

( 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



RG 
RG 
RG 
RG 
RG 



03 

05 
05 
05 
05 



02 
02 
02 
02 
02 
05 



ds$m disablcc 

ds$m;donflg 

ds$m_errflg 

ds$m_except 

dssm.exetst 

dssm.hltflg 

ds$m lodflg 

dssm'memmgt 

dssm^output 

os$m rubflg 

ds$m„script 

ds$m_setimr 

dssm'strflg 

DSSMlSUBT 

DS$M_SYSFLG 

DS$M TIMR0N 

DSSS0FTIPL5 

DSSV.ABRTFLG 

DSSV.BADTIME 

DSSV.BATCH 

DS*V_BRKCLR 

DS$V BRKPT 

DSSVlCHARFLG 

DS$V„CMDFLG 

DS$V CTRLC 

DSSVlCTRLO 

DSSV^DEVFLG 

DS$V„DISABLCC 

DS$VJ)ONFLG 

OSSV.ERRFLG 

DSSVJXCEPT 

DS$V_EXETST 

DSSV^HLTFLG 

DS$V_LODFLG 

DS$V MEMMGT 

DSSVlOUTPUT 

DSSVJUJBFLG 

DSSV^SCRIPT 

DSSV^SETIMR 

DS$V STRFLG 

DS$V„SUBT 

DS$V„SYSFLG 

DS$V TIMRON 

OSS JRITH 

DSSIASBE 

DS$_BADLINK 

DS$„BADTYPE 

DS$ BIIC 

DS$~CHME 

DS$ CHMK 

DSS DEVNAME 

DSSIERROR 

DS$JHWE 

ds$ f/ugbuf 
ds$ .gkjxe mchk 
::: gk 1nitscb 
ds$Igk;int^work 



01000000 


D 


00002000 


D 


00000010 


D 


00080000 


D 


00040000 


D 


00000008 


D 


00000002 


D 


00008000 


D 


00800000 


D 


00000020 


D 


00200000 


D 


02000000 


D 


00000004 


D 


00004000 


D 


00000400 


D 


00020000 


D 


******** 


X 


00000006 


D 


00000014 


D 


00000016 


D 


OOOOOOOC 


D 


OOOOOOOB 


D 


00000000 


D 


00000007 


D 


00000000 


D 


00000010 


D 


00000009 


D 


00000018 


D 


OOOOOOOD 


D 


00000004 


D 


00000013 


D 


00000012 


D 


00000003 


D 


00000001 


D 


OOOOOOOF 


D 


00000017 


D 


00000005 


D 


00000015 


D 


00000019 


D 


00000002 


D 


OOOOOOOE 


D 


OOOOOOOA 


D 


00000011 


D 


006600DO 


D 


00660118 


D 


006600FO 


D 


006600E8 


D 


00660120 


D 


006600A8 
0066Q0E0 
00660108 


D 


D 


D 


00660002 


D 


00660068 
00660080 


D 
D 


00000000 


D 


00000002 


D 


00000003 


D 



05 



ZZ-ENSAA~7>0 

SCB 

Symbol table 

DSS GK TSTSMCHK 

0SS"1CBUSY 

DSS~ICERR 

DSS'lHUE 

DSS'ILLCHAR 

DSS~ILLPAGCNT 

DSS'lLLUNIT 

DSS'INSFMEM 

DSS*"IPL2HI 

DSS~IVADDR 

DSriVVECT 

DSS~KRNLSTK 

DSS"L0GIC 

DSS~MCHK 

OSS~MM0FF 

DSS~NEEDUNIT 

DS$"N0DE 

DSS NOPCS 

DSS'NORMAL 

DS*"NOSUPPORT 

D5S~NOTDON 

DSSlNOTIHP 

DSSJJULtSTR 

DSS OVERFLOW 

DSS~POWER 

DSS'PROGERR 

DSS'SEVERE 

DSS'TRANSL 

DSS~TRUNCATE 

DSS'UNEXPINT 

DSS~VASFULL 

DSS~WARN1NG 

DSlfCHANNELJ/EC 

OSISTIMER 

DSIST1NSRV 

DSRSFAULT CLEAR 

DSXSCLRVEt 

DSXSCLRVEC X 

DSXSINITSCB 

DSXSSETIPL 

DSXSSETVEC 

DSXSSETVEC X 

EXESFORKDSPTH 

EXESGL SCB 

EXE.ACtVIO 

EXE ARITH 

EXE~BREAK 

EXE^CHME 

EXE CHMS 

EXE.CHMU 

EXE CMODKRNL 

EXE~COMPAf 

EXE~KRNLSTK 

EXE~MCHK 

EXEJ3PCCUS 

EXE.OPCDEC 

EXE POWER 



Symbol table 



SYSTEM CONTROL BLOCK 



OO0OOO01 


D 


006600C8 


D 


006600C0 


D 


00660060 


D 


00660018 


D 


00660078 


D 


00660100 


D 


00660050 


D 


006600B8 


D 


00660040 


D 


00660038 


D 


00660090 


D 


00660070 


D 


00660088 


D 


00660058 


D 


006600F8 


D 


00660128 


D 


00660110 


D 


00660001 


D 


00660081 


D 


00660030 


D 


006600BO 


D 


00660010 


D 


00660008 


D 


00660098 





00660020 


D 


00660004 


D 


006600A0 


D 


00660028 


D 


006600D8 


D 


00660048 


D 


00660000 






******** 
******** 

******** 
**** **** 

00000192 
00000214 
00000000 
00000238 
O00O00D7 

00000188 

******** 

O00OO00D 



**** 
**** 
*«** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 



**** 

**** 
**** 
**** 
**** 
**** 
«*** 
**** 
**** 
**** 
**** 
**** 
**** 



R D 
X 



05 
05 
04 
05 



RG D 05 

R D 05 

RG D 05 

RG D 05 

RG D 05 



05 
05 



RG D 02 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



H 4 

27-JUL-1984 Fiche 13 

27-JUL-1984 15.-44:41 
23-JUL-1984 16;23;54 



Frame H4 Sequence 2518 

VAX-11 Macro V03-01 Page 23 

DMA1:CSYSQ.SYSMAJNTJSCB.MAR;54 (1) 



EXE.RADRMOD 

EXEJWPRAND 

EXE.TB1T 

EXE TRANSL 

EXE'UNEXPINT 

JCCSSM.ERR 

ICCSSM INT 

JOCSIOPOST 

IS 

KB CHECK 

ONtY SCB 

PRS.TCCS 

PRS.IPL 

PR$ SCBB 

PSLJS.IPL 

PSLSVJPL 

PSLSV.IS 

SCBJL ACCESS 

SC8SL.ARITH 

SCBSL.BREAK 

SC8SL.CHME 

SC8SL CHMK 

SC8SL..CHMS 

SC8SL.CHMU 

SCBSL..COMPAT 

SCBSL. KNLSTK 

SCBSL.MACHCHK 

SC8SL.0PCCUS 

SC8SL.0PCDEC 

SC8SL.P0WER 

SCBSL. RADRMOD 

SCBSL.ROPRAND 

SCBSL. RXDB 

SCBSL. SFTLVL1 

SC8SL.SFTLVL10 

SC8SL.SFTLVI11 

SCBSL. SFTLVL12 

SC8SL.SFTLVL13 

SCBSL. SFTLVL14 

SCBSL SFTLVL15 

SC8SL.SFTLVL2 

SCBSL. SFTLVL3 

SCBSLISKLVL4 

SC8SL.SFTLVL5 

SC8SLISFTLVL6 

SCBSL. SFTLVL7 

SCBSL. SFTLVL8 

SCBSL SFTLVL9 

SC8SLITBIT 

SCBSL. TIMER 

SCBSL.TRANSt 

SCSSL^TXDB 

SCBSL. ZERO 

SCBVECTOR.OOO 

SC8VECT0R 038 

SC8VECTOR.03C 

SC8VECTOR.050 



a******* 
******** 
******** 
******** 
-* ******* 

80000000 

00000080 
******** 

00000001 
******** 
******** 

00000018 

00000012 

00000011 

00000005 

00000010 

0000001 A 

00000020 

00000034 

0000002C 

00000044 

00000040 

00000048 

0000004C 

00000030 

00000008 

00000004 

00000014 

00000010 

OOOOOOOC 

0000001 c 

00000018 

OO0OO0F8 

00000084 

O0OOOQA8 

OOQOOOAC 

OOOOOQBO 

O0OOO0B4 

O0OOO0B8 

OOOOOOBC 

00000088 

0000008C 

00000090 

00000094 

00000098 

0000009C 

OOOQQQAO 

O0OOO0A4 

00QQ0028 

OOQOQOCO 

00000024 

OOOOOOFC 

00000000 
******** 

******** 

******** 
******** 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


D 
D 
D 
D 
D 




04 
04 
04 
04 
05 



05 

05 
05 



04 
04 
04 
04 
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Symbol table 

SCBVECTOR J)54 

SCBVECTOR.058 

SCBVECTOR J)5C 

SCBVECTOR 060 

SCBVECTOR"064 

SCBVECTOR'068 

SCBVECTOR 06C 

SCBVECTOR J)70 

SCBVECTOR.074 

SCBVECTOR 078 

SCBVECTOR"07C 

SCBVECTORI080 

SCBVECTOR„0C4 

SCBVECTOR..0C8 

SCBVECTORJKC 

SCBVECTOR 0D0 

SCBVECTOR 0D4 

SCBVECTOR 0D8 

SfBVECTOR.ODC 

SC8VECTOR„0EC 

SCBVECTOR. 0E4 

SCBVECTOR 0E8 

SCBVECTOR'OEC 

SCBVECTOR J)F0 

SCBVECTOR„0F4 

SCBVECTOR.0F8 

SCBVECTOR OFC 

SCB ACCVlO 

SCB~ARITH 

SCB_8ASE 

sre break 

SCB^CHME 
SCB CHMK 
SfB'CHMS 
5CB"CHMU 
SCB'COMPAT 

SCBliMAGE 

SCBJCRNLSTK 

SCB MCHK 

SCB"OPCCUS 

SCB'OPCDEC 

:;CB"POWER 

SCB'RADRMOD 

SCB'ROPRAND 

SfB"SFTLVL1 

SC8"SFTLVL10 

SC8~SFTLVL11 

srB.SFP.VLl2 

SCB_SFTLVL13 

SCB SFTLVLH 

SCB~SFTLVL15 

SCB1SFTIVL2 

SCB„SFTLVL3 

5CB.SF1LVL4 

SCB SFTLVL5 

SCB SFTLVL6 

SCBZSFTLVL7 
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******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
***** *** 
******** 
******** 
**** **** 
******** 
******** 
******** 
******** 
; ****** 
••»**** 
****** 

V ****** 

A******* 

00000020 
00000034 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



R D 04 
R D 04 

******** x 05 



0000002C R 


D 


04 


00000044 R 





04 


00000040 R 


D 


04 


00000048 R 


D 


04 


0000004C R 


D 


04 


00000030 R 


D 


04 


00000000 RG 


D 


04 


00000008 R 


D 


04 


00000004 R 


D 


04 


00000014 R 


D 


04 


00000010 R 


D 


04 


00OO000C R 


D 


04 


0000001 C R 


D 


04 


00000018 R 


D 


04 


00000084 R 





04 


O0OO0OA8 R 


b 


04 


OOOOOOAC R 


D 


04 


00000080 R 


D 


04 


0000Q0B4 R 
0000O0B8 R 





04 


D 


04 


OOOOOQBC R 
00000088 R 


D 


04 


D 


04 


00000Q8C R 
00000090 R 


D 


04 





04 


00000094 R 


D 


04 


00000098 R 


D 


04 


0000009C R 


D 


04 



scb sftlvl8 
scb sftlvl9 
scb;tbit 
scb.tiher 

SCB TRANSL 

SCB UNKINT 

SCHSASTDEL 

SETVEC$„CODE 

SETVEC$_NARGS 

SETVECS.SRVADR 

SETVEC$„VECTQR 

SIZ... 
SOFTUNT 
SOFTS1NT A 

SS$ NORMAL 
UNKflOWNJNT 



OOOOOOAO R 


D 


04 


000O00A4 R 


D 


04 


OOU00028 R 


D 


04 


O0OO0OCO R 


D 


04 


00000024 R 


D 


04 


******** 


X 


Ob 


******** 


X 


05 


oooooooc 


D 




00000003 


D 




00000008 


D 




00000004 


D 




00000001 


D 




000002AO R 


D 


05 


00000260 R 


D 


05 


******** 


X 


05 


00OO00C4 R 


D 


05 



7/-ENSAA-7.0 

SCB 

Psect, synopsis 



Psect synopsis 



SYSTEM CONTROL BLOCK 



J 4 
27-JUL-1984 Fiche 13 

27-JUL-1984 15:44:41 
23-JUL-1964 16:23:54 



Frame J4 Seguence 2520 

VAX-11 Macro V03-01 Page 25 

DMA1:[SYS0.SYSMAiNT]SCB.MAR;54 (1) 



i'SEtf ndnie 



. ABS 
SABS* 

WORK 
i>ATA 

DDE 



Allocation 

00000000 
00000200 
00000051 
00000004 
00000100 
000002FO 



! Psect synopsis ! 

PSECT No. Attributes 

OJ 00 ( 0.) NOPIC USR 

512.) 01 ( 1.) NOPIC USR 

81.) 02 ( 2.) NOPIC USR 

4.) 03 ( 3.) NOPIC USR 

256.) 04 ( 4.) NOPIC USR 

752.) 05 ( 5.) NOPIC USR 



CON 


ABS 


CON 


ABS 


CON 


REL 


CON 


REL 


CON 


REL 


CON 


REL 



LCL NOSHR NOEXE NORD 

LCL NOSHR EXE RD 

LCL NOSHR NOEXE RD 

LCL SHR NOEXE RD 

LCL SHR EXE RD 

LCL SHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 

NOWRT NOVEC LONG 
WRT NOVEC PAGE 

NOWRT NOVEC LONG 



ZZ-ENSAA-7.0 

SCB 

Cross reference 



Cross reference 



SYSTEM CONTROL BLOCK 



SYMBOL 



SSARGS 
SST1 

SER 

SMODULE 

BIT... 

CHECK VECTOR 

CLKSR? 1NIT 

CMKSINlTSCB 

CMKSSETIPL 

CMKS 

CMKS~ASTEXIT 

CMK$~CANTIM 

CMKS HIBER 

CMK$IlNITSCB 

CMK$J_*ST 

CMKS MMENABLE 

CMK$IRCON30LE 

CMKS REFRESH 

CMK$~SCHDWK 

CMKSlSETIMR 

cmks_setipl 

cmks setprt 

cmk$isgipr 

cmks tconsole 

cvtregs data 

cvtregs* maxlen 

cvtregs^mneadr 

cvtregs j1sb 

cvtregs nargs 

cvtregs^strbuf 

cvtregs v1 

cvtregsiv2 

cvtregs_v3 

cvtregs.v4 

cvtregs^v5 

cvtregs v6 

ossga^breakvec 

dssga.chmkvec 

dssga_softint 

dssga tbitvec 

dssgb stopping.. the. timer 

dssgl~flags 

dssk Error 

dssoormal 

dssk severe 

ossk.subsys 

dssk warning 

i)SSM~ABRTFLG 
DSSMlBADTIMF 
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VALUE 

=00000003 
-=00000010 
=00000001 
00000000 
=00000004 
0000021 B' 
00000000- 
00000023- 
00000251- 
=00000004 
=00000000 
=00000008 
=00000007 
=00000008 
=0000000E 
=00000003 
=00000001 
=0000000S 
=00000006 
=OOOOOO0C 
=00000009 
=OO0OO00D 
=0000000A 
=00000002 
=00000008 
=00000014 

=0000000< 

=00000004 

=00000008 

=00000010 

=00000018 

=0000001 c 

=00000020 

=00000024 

=00000028 

=0000002C 

00000005 

00000001 

00000011 



-R 

•R 

•XR 

>R 

■R 



00000009-R 
00000000-R 
00000000-XR 
=00000002 
=00000001 
=00000004 
=00000066 
=00000000 
=00000040 
=00100000 



Symbo 



DEFJNIT 



145 
145 
181 
181 
148 
582 

299 

621 

146 

146 

146 

146 

146 

146 

146 

146 

146 

H6 

.46 

146 

146 

146 

146 

140 

140 

140 

140 

140 

140 

140 

140 

140 

140 

140 

140 

166 

I63 

175 

169 
160 

141 
141 
141 
141 
141 
147 
147 



Cross Reference 



ON 



REFERENCES. 



140 
140 



141 
#-390 

326 
#-287 
#-617 



#-287 



#-331 
#-330 
#-335 
#-659 
#-332 
#-421 
290 



141 



(1) 
(1) 



(1) 
(1) 
(1) 
(1) 
(1) 



(1) 



#' 



145 
145 



146 
506 
540 



(1) 

(1) 



(1) 
(1) 
(1) 



147 



(1) 



148 (1) 



#-617 (1) 



405 
400 
446 


(1) 
(1) 

(1) 


#-515 
#-510 
#-528 


(1) 
(1) 

(1) 


658 


(1) 


4 1 

#-438 
328 


(1) 

d; 

(D 


#-520 
416 


(1) 

(1) 


542 


(1) 



(1) 



ZZ-ENSAA-7.0 

SCD 

Cross reference 

OSSH BATCH 

DSSM~BRKCLR 

DSSM.BRKPT 

DSSM CHARF16 

DSSM^CMOFLG 

DSSMJ!TRLC 

DS$H CTRLO 

DSSM~DEVFLG 

DSSM DISABLCC 

DSSMJXINFLG 

DSSMJRRFLG 

DSSM^EXCEPT 

DSSM_FXETST 

DSSM HLTFLG 

DSSM'LODFLG 

DSSM'MEMMGT 

DSSM~OUTPUT 

DSSM~RUBFLG 

DSSM'SCRIPT 

DSSM'SETIMR 

DSSM STRFLG 

DSSM.SUBT 

DSSM SYSFLG 

DS$M~T1MR0N 

DSSS13FT1PL5 

DSSVJ\BRTFLG 

DSSV BADTIME 

DSSV~BATCH 

DSSV~8RKCt.R 

DSSVlBRKPT 

DSSV^CHARFLG 

DSSV_CMDFLG 

DSSV.CTRLC 

DSSV^CTRLO 

DS$VJ>EVFLG 

DSSV DISABLCC 

DSSV'DONFLG 

DSSV_ERRFLG 

DSSV EXCEPT 

DSSV'EXETST 

DSSV.NLTFLG 

DSSV LODFLG 

DSSV MEMMGT 

DSSVIOUTPUT 

DSSV.RUBFLG 

DSSV_SCRIPT 

DSSV.SETIMR 

DSSV STRFLG 

DSSV SUBT 

DSSV..SYSFLG 

DSSV TIMRON 

DSS JRITH 

DS$"ASBE 

DSS~BADLJNK 

DSS'BADTYPE 

DSSIBIIC 

DSS CHME 



Cross reference 



SYSTEM CONTROL BLOCK 



27-JUL-1984 Fiche 13 
27-JUL-1984 1S:44s41 
23-JUL-1984 16:23:54 



Frame L4 Seguence 2522 
VAX-11 Macro V03-01 Page 21 
0«A1:CSYS0.SYSMAINTJSCB.MAR;54 (1) 



=00400000 


147 (1) 


=00001000 


147 (1) 


=00000800 


147 (1) 


=00000100 


147 (1) 


=00000080 


147 (1) 


=00000001 


147 (1) 


=00010000 


147 (1) 


=00000200 


147 (1) 


=01000000 


147 (1) 


=00002000 


147 (1) 


=00000010 


147 (1) 


=00080000 


147 (1) 


=00040000 


147 (1) 


=00000008 


147 (1) 


=00000002 


147 (1) 


=00008000 


147 (1) 


=00800000 


147 (1) 


=00000020 


147 (1) 


=00200000 


147 (1) 


=02000000 


147 (1) 


=00000004 


147 (1) 


=00004000 


147 (1) 


=00000400 


147 (1) 


=00020000 


147 (1) 


0000000G-XR 




=00000006 


147 (1) 


=00000014 


147 (1) 


=00000016 


147 (1) 


=O000O00C 


147 (1) 


=00000008 


14? (1) 


=00000008 


147 (1) 


=0000000? 


147 (1) 


=00000000 


147 (1) 


=00000010 


147 (1) 


=00000009 


147 (1) 


=00000018 


147 (1) 


=O000OO0D 


147 (1) 


=00000004 


147 (1) 


=00000013 


147 (1) 


=00000012 


147 (1) 


=00000003 


147 (1) 


=00000001 


147 (1) 


=O000000F 


147 (1) 


=00000017 


147 (1) 


=00000005 


147 (1) 


=00000015 


147 (1) 


=00000019 


147 (1) 


=00000002 


147 (1) 


=O0O00O0E 


14? (1) 


=0000000A 


147 (1) 


=00000011 


147 (1) 


=006600DO 


141 (1) 


=00660118 


141 (1) 


=006600FO 


141 (1) 


=C06600E8 


141 (1) 


=00660120 


141 (1) 


=006600A8 


141 (1) 



641 



(1) 



#-290 



(1) 



#-327 



(1) 



#-415 



(1) 



fc'»5«1 



(1) 



ZZ-ENSAA-7.0 

SCB 

Cross reference 

DSS CHMK 

DSS"DEVNAME 

DSS^ERROR 

DSS FHWE 

DSS~FRAGBUF 

DSS~GK EXE MCHK 

DSS~GK~INlTSCB 

DSS'GlTlNT WORK 

DSS~GK"TST5MCHK 

DSSJCBUSY 

DSS ICERR 

DSSllHWE 

DSS ILLCHAR 

DSSIILLPAGCNT 

DSSJLLUNIT 

DSS INSFMEM 

DSSIIPL2H1 

DSS 1VADDR 

DSSllWECT 

DSS KRNLSTK 

DSSJ.OGIC 

DSSJ1CHK 

DSS MMOFF 

DSS"*NEEDUNIT 

DSS~N0DE 

DSS NOPCS 

DSS'NORMAL 

DSS~NQSUPPORT 

DSSlNOTDON 

DSS NOT IMP 

DSS~NULLSTR 

DSS"OVERFLOW 

DSS POWER 

DSS'PROGERR 

DSS SEVERE 

DSS'TRANSL 

DSS~TRUNCATE 

DS$;UNEXPINT 

DSS VASFULL 

DSS WARNING 

DSlSCHANNEL_VEC 

DSISTIMER 

DSISTIMSRV 

DSRSFAULT CLEAR 

DSXSCLRVEt 

DSXSCLRVEC X 

DSXSINITSCB 

DSXSSETIPL 

DSXSSETVEC 

DSXSSETVEC X 

EXESFORKDSPTH 

EXESGL SCB 
EXE ACCVIO 
EXElARITH 
EXE BREAK 
EXElCHHE 
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=006600E0 




141 (1 






=00660108 




141 (1 






=00660002 




141 (1 






=00660068 




141 (1 






=00660080 




141 (1 






=00000000 




148 (1 






=00000002 




148 (1 


) #-340 


(1) 


=00000003 




148 (1 






=00000001 




148 (1 






=006600C8 




141 (1 


) #-417 


(1) 


=006600C0 




141 (1 






=00660060 




141 (1 






=00660018 




141 (1 






=00660078 




141 (1 






=00660100 




141 (1 






=00660050 




141 (1 






=006600B8 




141 (1 






=00660040 




141 (1 


) #-392 


(1) 


=00660038 




141 (1 


) #-591 


(1) 


=00660090 




141 (1 






=00660070 




141 (1 






=00660088 




141 (1 






=00660058 




141 V 






=006600F8 




141 C 






=00660128 




141 c 






=00660110 




141 (* 






=00660001 




141 C 


) #-465 


(1) 


=00660061 




141 C 






=00660030 




14" C 






=0066OOB0 




141 C 


I) 141 


(1) 


=00660010 




14i (' 






=00660008 




141 C 






=00660098 




141 ( 






=00660020 




141 C 






=00660004 




141 (* 






=006600A0 




141 ( 






=00660028 




141 ( 






=006600D8 




141 ( 






=00660048 




141 ( 






=00660000 




141 ( 


n hi 


(1) 


00000000- 


XR 




349 


(1) 


00000000- 


XR 




643 


(1) 


00000000- 


XR 




239 


(1) 


00000000- 


XR 




341 


<1) 


00000192- 


R 


504 ( 






00000214- 


R 


545 ( 






00000000- 


R 


285 ( 






00000238-R 


615 ( 






000000D7- 


R 


388 ( 






000001 8B- 


R 


467 ( 


1) #-419 


(1) 


00000000- 


XR 




642 
647 


(1) 
(1) 


OOOOOOOD- 


•R 


172 ( 


1) #-339 


(1) 


00000000- 


•XR 




199 


(1) 


00000000- 


■XR 




204 


(1) 


00000000- 


•XR 




202 


(1) 


00000000- 


•XR 




208 


(1) 



644 



(1) 



645 



(1) 



646 



11) 



ZZ-ENSAA-7.0 

SCB 

Cross reference 

EXE_CHMS 

EXE CHMU 

EXE'CMODKRNL 

EXE'COMPAT 

EXE^KRNLSTK 

EXElMCHK 

EXE OPCCUS 

EXE~OPCDEC 

EXE>0WER 

EXE RADRMOD 

EXE'ROPRAND 

EXE TBIT 

EXE TRANSL 

EXE'UNEXPINT 

ICCSSM ERR 

ICCSSM'INT 

lOCSIOPOST 

IS 

KB CHECK 

ONLY SCB 

PR$ TCCS 

PRS'IPL 

PR$~SCBB 

PSL$S IPL 

PSL$VJPL 

PSLSV IS 

SCBSL BREAK 

SCBSL'CHMK 

SCB$L"SFTLVL1 

SCB$L~SFTLVL15 

SCB$L~TBIT 

SCB$L"TIMER 

SCBVECTOR 000 

SCBVECTOR'038 

SCBVECTORI03C 

SCBVECTOR 050 

SCBVECTOR~054 

SCBVECTOR~058 

SCBVECTnR"05C 

SCBVECTOR1060 

SCBVECTOR Oc.4 

SCBVECTOR 068 

SCBVECTORI06C 

SCBVECTOR 070 

SCBVECTOR_074 

SCBVECTOR.078 

SCBVECTOR 07C 

SCBVECTOR 080 

SCBVECTOR^OCA 

SCBVECTOR 0C8 

SCBVECTOR'OCC 

SCBVECTOR 0D0 

SCBVECTOR~0D4 

SCBVECT0R"0D8 

SCBVECTOR'ODC 

SCBVECTOR'OEO 



Cross reference 



SYSTEM CONTROL BLOCK 



OOOOOOOO-^K 

oooooooo-xr 

00000000-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO-XR 
OOOOOOOO 
=00000080 
OOOOOOOO-XR 
=00000001 
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151 
152 

149 



OOOOOOOO- 

OOOOOOOO- 

:00000018 

=00000012 

^00000011 

=00000005 

=00000010 

=0000001 A 

0000002C 

00000040 

00000084 

OOOOOOBC 

00000028 

OOOOOOCO 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

oooocooo 

00000000 
00000000 
00000000 
00000000 

oooooooo 

OC* DOOO 

OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 



XR 
■XR 



146 



-XR 
-XR 
-XR 
-XR 
-XR 
-XR 
-XR 
-XR 
-XR 
-M 
-XR 
-XR 
-XR 
-XR 
-XR 
-XP 
-XR 
-XR 
-XR 
-XR 
-XR 
-XR 

-XR 





209 


(1) 








210 


(1) 








207 


(1) 








203 


(1) 








193 


(1) 








192 


(1) 








196 


(1) 








195 


(1) 








194 


(1) 








198 


(1) 








197 


(1) 








201 


(1) 








200 


(1) 








350 


(1) 


668 


(D 


(1) 


#-430 


(1) 






(1) 


#-431 
640 


(1) 
(1) 






(1) 


192 


(1) 


193 


(1) 194 (1) 




317 


(1) 


532 


(1) 




292 


(1) 


468 


(1) 546 (1) 




320 


(1) 








#-432 


(1) 


#-434 


(1) 




#-301 


(1) 


#-343 


(1) #-622 (1) 




#-338 


(1) 








#-624 


(1) 








#-623 


(1) 






(1) 


#-287 


(1) 


#-617 


(1) 




#-403 


(1) 


#-513 


(1) 




#-398 


(1) 


#-508 


(1) 




#-441 


ci: 


#-523 


(1) 




#-443 


d) 


#-525 


<1) 




#-408 


n) 


#-518 


(1) 




#-413 


CD 


#-538 


(1) 




191 


(D 








205 


(D 








206 


(D 








211 


(i) 








212 


d) 








213 


d) 








214 


d) 








215 


(D 








216 


(1) 








217 


d) 








218 


(i) 








219 


d) 








220 


(D 








221 


d) 








222 


d) 








223 


d) 








240 


(D 








241 


(D 








242 


(D 








243 


(D 








244 


d) 








245 


(D 








246 


d) 








247 


d) 







239 (1) 



#-657 



(1) 



ZZ-ENSAA-7.0 

SCB 

cross reference 

SCBVECT0RJ)E4 

SCBVECTOR.0E8 

SCBVECTOR^OEC 

SCBVECTOR.0F0 

SCBVECT0R.0F4 

SCBVECTOR 0F8 

SCBVECTOR"OFC 

SCB ACCVlO 

SCBJUUTH 

SCB.8ASE 

SCB BREAK 

SCB'CHME 

SCB'CHMK 

SCBlCHMS 

SCB.CHMU 

SCB.COMPAT 

SCB IMAGE 

SCB'KRNLSTK 

SCB^MCHK 

SCB.OPCCUS 

SCB.OPCOEC 

SCB POWER 

SCB'RADRMOD 

SCB'ROPRAND 

SCB~SFTLVL1 

SCB"SFTLVL10 

:CB"SFTLVL11 

SCB'SF TLVL 12 

SCB'Sf TLVL13 

SCB'SFTLVLH 

SCBlSF TLVL1 5 

SCB SFTLVL2 

SCBISFTLVL3 

SCB SFUVL4 

SCBISFTLVL5 

SCB SFTLVL6 

SCB"SFTLVL7 

SC8ISFTLV18 

SCB.SFTl.VL9 
SCB TBIT 
SCBlTIMER 
SCB.TRANSL 
SCB.UNUNT 

SCH$ASTDPL 
SETVECS CODE 
SEFVECS'NARGS 
SETVECS'SRVADR 
SETVECS'VECTOR 

SI7 " 

SOFTSJNT 



SOFTSINT A 
5S$ NORMXl 



Cross reference 



SYSTEM CONTROL BLOCK 



00000000-XR 

00000000-XR 

OOOOOOOO-XR 

00000000-XR 

00000000-XR 

OOOOOOOO-XR 

OO00OOOO-XR 

00000020-R 

00000034-R 

OOOOOOOO-XR 



0000002C- 
00000044- 
00000040- 
O0000C48- 
0000004C- 
00000030- 
00000000- 
00000008- 
00000004- 
00000014- 
00000010* 
OOOOOOOC- 
OOOOOOI C« 
O000O018■ 
00000084- 
000000A8- 
OOOOOOAC- 
OOOOOOBO- 
OOO000B4- 
00000008- 
OOOOOOBC- 
00000088- 
0000008C- 
00000090- 
00000094- 
00000098- 
0000009C- 
OOOOOOAO- 
000000A4- 
00000028- 
OOOOOOCO- 
00000024- 
00000000' 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
•R 
•R 
•R 
-R 
•R 
•R 
'R 
•R 
■R 
•R 
•R 
■R 
-R 
•R 
•R 
•R 
■R 
■R 
■XR 



OOOOOOOO-XR 
=O00OOOOC 
=00000003 
=00000008 
--00000004 
^00000001 

000002AO-R 



00000260-R 
OOOOOOOO-XR 



199 
204 



202 
208 
207 
209 
210 
203 
190 
193 
192 
196 
195 
194 
198 
197 
224 
233 
234 
235 
236 
237 
238 
225 
226 
227 
228 
229 
230 
231 
232 
201 
239 
200 



145 
145 
145 
145 
147 
655 



635 



1) 



8 5 
27-JUL-1984 Fir he 13 

27-JUL-1984 1l:44r41 

23-JUL-1984 1(- .'23:54 



248 
249 
250 
251 
252 
253 
254 



303 
#-537 



173 



Frame B5 Seguence 2525 

VAX-11 Macro V03-01 Page 30 

DMA1?CSYS0.SYSMAINT3$CB.MAR;54 (1) 



(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 


337 


(1) 


(1; 


#-585 


(1) 



(1) 



396 



(1) 



462 



(1) 



304 



(1) 



#-535 



(1) 



309 


(1) 


#-318 


#-585 


(1) 




638 


(1) 




147 


(1) 




224 


(1) 


22? 


228 


1) 


229 


232 


(1) 


233 


236 


(1) 


237 


#-662 


(1) 


#-673 


#-289 


(1) 


#-543 



(1) 



#-348 



(1) 



532 



(1) 



226 


(1) 


221 


(1) 


230 


(1) 


231 


(1) 


234 


(1) 


235 


(1) 


238 


(1) 







#-618 



(1) 



ZZ-ENSAA-7,0 

SCB 

(.ross reference 

UNKNOWN INT 



Cross reference 



SYSTEM CONTROL BLOCK 



O0OO0OC4-R 347 (1) 



C 5 
27-JUL-1984 Fiche 13 
27-JUI-1984 15:44:41 
23-JUL-1984 16:23:54 

310 (1) 



Frame C5 Sequence 2526 

VAX-11 Macro V03-01 Page 31 

DMA1:CSYS0.SYSMAINTJSCB.MAR;54 (1) 



ZZ-ENSAA-7.0 
SCB 

Cross reference 



Cross reference 



SYSTEM CONTROL BLOCK 



5 

27-JUL-1984 Fiche 13 
27-JUL-1984 15:44:41 
23-JUL-1984 16:23:54 



Frame D5 Seguence 2527 
VAX-11 Macro V03-0T Page 32 
0MA1 :CSYS0.SYSMAINT3SCB.MAR;54 (1) 



MACRO 



SDEF 

SDEFINI 

$DS_CVTREG_DEF 

SOS DSDEF 

SDS^SCBDEF 

SDS SETVEC DEF 

$EQ0 

SEQULS1 

SEQULST 

SGBLiNI 

SOFFDEF 

SPRDEF 

SPSLDEF 

SViELD 

SVIELD1 

CMK 

CMKDEF 

DSBINT 

DSFDEF 

ENBINT 

FLTCLR.SEL 

MODNAM 



SIZE 


DEFINITION REFI 


1 


148 (1 




1 


142 C 


) 14? 


1 


140 C 


) 140 


? 


141 C 


) 141 


3 


144 (' 


) 144 


1 


145 (' 


) 145 


1 


143 (* 


> 141 


1 


148 r 


) 141 


1 


141 V 


) 141 


2 


141 C 


) 141 


1 


140 (' 


) 140 


4 


142 (' 


; 142 


2 


143 r 


) 145 


1 


147 (* 


) 147 


1 


148 r 


) 147 


1 


287 (' 


) 287 


1 


146 ( 


I) 146 


1 


301 ( 


) 301 


3 


147 C 


') 147 


1 


343 C 


I) 343 


1 


148 ( 


I) 148 


1 


181 C 


I) 181 



+«• — — «.— • *--.— — -+ 

! Macros Cross Reference ! 
+•„-. ~ -.._— M . + 

REFERENCES... 



143 



(1) 



144 



(1) 



146 
146 
146 
146 
145 



617 



148 


(1) 


148 


(1) 


148 


(1) 


147 


(1) 



148 



(1) 



(1) 



+ -+ 

! Performance indicators ! 
+ „ + 



Phase 



Page faults 


CPU Time 
00:00:00.14 


Elapsed Time 


32 


00:00:00.42 


138 


00:00:00.89 


00:00:01.98 


608 


00:00:08.57 


00:00:16.25 





00:00:00.66 


00:00:01.62 


165 


00:00: )1. 97 


00:00:02.65 


37 


00:00:00.24 


00:00:00.32 


8 


00:00:00.03 


00:00:00.04 


60 


00:00:01.11 


00:00:01.67 


1052 


00:00:13.63 


00:00:24.95 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

P^ect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

40010 bytes (79 pages) of virtual memory were used to buffer the intermediate 
There were 30 pages of symbol table space allocated to hold 414 non-local and 
683 source lines were read in Pass 1, producing object records in Pass 2. 
63 pages of virtual memory were used to define 19 macros. 



code. 
31 local 



symbols 



ZZ-ENSAA-7,0 Cross reference 

SCB 

VAX-11 Macro Run Statistics 



SYSTEM CONTROL BLOCK 



27-JUL-1984 Fiche 13 Frame E5 Seguence 2528 

27-JUL-1984 1 5:44 :41 VAX-11 Macro V03-0T Page 33 
23-JUL-1984 16:23:54 DMA1 :CSYS0.SYSMAINTJSCB.MAR;54 (1) 



+ + 

! Macro library statistics ! 
+™ ™ — -. — - — — — — — + 

Macro library name Macros defined 

DRB1 :EDS.WORK3DIAG.MLB;955 4 

DRB1:[DS,W0RK]DS,ML3;218 5 

SYS$SYSR00T:[SYSLIB]LIB.MLB;1 2 

DMA1:CSYS0.SYSMAINTDDS.MLB;218 

DMA1:CSYS0.SYSMA1NT]D1A6.MLB;953 

SYSSSYSR00T:[SYSLIB]LIB.MLB;1 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;2 8 

TOTALS (all libraries) 19 

417 GETS were required to define 19 macros. 

There were no errors, warnings or information messages. 

MACRO/NOOBJECT/LISTsCDS.LISJ/CROSS/ENABLE^DEBUG, TRACE) SCB/UPDA=(SCB.UPD,SCB.ENH)+SYS$L1BRARY:LIB/L1BRARY+DMA1 ;CSYS0. SYSMAINTDD1AG/ 



ZZ-ENSAA-7.0 *** 

SCRIPT 

fable of contents 

108 
118 
141 
160 
194 
212 
226 
268 
425 
489 
544 
965 
1021 



SCRIPT Read from command stream 

*** SCRIPT Read from command 



F 5 
27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 



Frame F5 
VAX-11 Macro 



Sequence 
V03-01 



2529 
Page 







Libraries and External Symbols ; 

External Symbol Declarations 

Macros and Equated Symbols 

Data Psect Declarations 

Work Psect Declarations 

Absolute Psect Declarations 

SCRIPTSINIT - Initialize script 

SCRIPTSOPEN - Initialize a script file 

SCRIPTSFLUSH, STOP, CONT - Terminate all scripts open 

SCRIPTSFINISH - Terminate script input file 

DS GETLINE - Get program data input line 

COPY IT - Copy and translate 

ADVANCE - Advance to next record in buffer 



[123 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



r *J 

*** SCRIPT Read from command stream 27-JUL-1984 Fiche 13 Frame 65 Sequence 2530 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 VAX-11 Macro V03-01 ?*??-,« As 

23-MAY-1984 14:15:48 DMA1:CSYS0.SYSMAINTJSCRIPT.MAR;138<1 > 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
21 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



.Title 
.Jdent 
.NoShow 
.DSABL 



*** 



SCRIPT 
/07-18/ 
Conditionals 
GBL 



SCRIPT Read from command stream 

; For all the conditionals in the RMS macros 



Copyriqht (c) 1977, 1981 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE 0^ SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE " \ND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 



THE INFORMATION IN 
AND SHOULD NOT BE 
CORPORATION. 



THIS SOFTWARE 
CONSTRUED AS 



IS SUBJECT TO 
A COMMITMENT 



CHANGE WITHOUT NOTICE 
BY DIGITAL EQUIPMENT 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



ITS 



+ + 

FACILITY: 
ABSTRACT: 



VAX DIAGNOSTIC SUPERVISOR. 



ENVIRONMENT: 

AUTHOR: KEN CHAPMAN 



10-NOV-77 



VERSION 01 



MODIFICATIONS: 

01 
02 
03 



Riggs 

imp 



qgs 20-Jun-78 Version 02. 
lementation of scripting in USER mode. 



for mismatched scripts 



04 
05 



06 



Roger 

True 

Added code to implement "skipping... 

Roger Riags 12-Jun-1979 

changed W* to ,MI on DSASGL FLAGS references 

Roger Riggs, 17-Mar-1980, Version 5.3 

DS5LOAD returns changed, reflected by getting SS$_NORMAL 

Even if file was truncated. 

Dave Butenhof 28~apr-80 

Use SGET and $PUT for input/output if DS run from command file 

Roger Riggs, 3-Sep-1980, Version 6.0 

Modified SCRJPTSOPEN to use RMS instead of load 

Dave Butenhof, 10-sep-1980, Version 6.0 

Fix user mode RMS GETL1NE code to perform case translation 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



*** SCRIPT Read 



from command stream 
*** SCRIPT Read from 



H 5 
27-JUL-1984 Fiche 13 
command stream 27-JUL-1984 15:45:08 

23-MAY-1984 14:15:48 



Frame H5 Seguence 2531 
VAX-11 Macro V03-0T Page 2 
DMA1:CSYS0.SYSMAINT3SCRIPT. MAR; 138(1) 



0000 


51 ; 


07 


0000 


52 ; 




0000 


53 ; 




0000 


54 ; 




0000 


55 ; 


08 


0000 


56 ; 




0000 


57 ; 




0000 


58 ; 




0000 


59 ; 




0000 


60 ; 


09 


0000 


61 ; 




0000 


62 ; 




0000 


63 ; 




0000 


64 ; 




cooo 


65 ; 




0000 


66 ; 


10 


0000 


67 , 




0000 


68 . 




0000 


69 , 




0000 


70 , 




0000 


71 , 




0000 


72 , 




0000 


73 , 




0000 


74 ( 




0000 


75 ( 


11 


0000 


76 ( 




0000 


77 , 




0000 


7S , 




0000 


79 , 


12 


0000 


80 , 




0000 


81 , 




0000 


82 , 




0000 


83 




0000 


84 


13 


0000 


85 




0000 


86 




0000 


87 


14 


0000 


88 




0000 


89 




0000 


90 


15 


0000 


91 




0000 


92 




0000 


93 


i 16 


0000 


94 




0000 


95 




0000 


96 




0000 


97 


; 17 


0000 


98 




0000 


99 




0000 


100 




0000 


101 




0000 


102 




0000 


103 


; 18 


0000 


104 




0000 


105 




0000 


106 


• « M 



- Jack Stansbury, 22-0U-1981, Version 6.5 

Fixed truncation errors. Also added .LIBRARY statements for 
$DS and $DIAG. 

- Dave Butenhof, 12-NOV-1981, version 6.5 

Implement SET VERIFY/CLEAR VERIFY function. When cleared, 
this flag will cause command script input not to be echoed. 
This is basically for the System Functional Text (EVXBB). 

- Dave Butenhof, 17-Nov-1981 , version 6.5 

Implement type code bytes for all prompts. The type code 
will not be used in comparison of script file prompts, 
but will be typed out to console or log file, if BINARY 
flag is set. 

-Jack Stansbury, 18-Dec-1981, Version 6.6 
Added a little code in SCRIPTSFLUSH that will clear out the 
QA bit in the DSA flags. This is to insure that QA gets turned 
off when a Control-C interrupts a diagnostic in a script file, 
and a non-continuable command (i.e., one that causes the script 
file to be flushed) is issued. Before, if a START command was 
issued, and a Control-C was typed, and a subsequent START 
command was typed, the second one could be screwed up. 

-Jack Stansbury, 26-Feb-1982, Version 6.6 

Added comments to the DS.GETLINE routine to aid in 

deciphering it. 

- Jack Stansbury, 18-Mar-1982, Version 6.? 

Took out any reference to the TypMsg routine. This is so 
that type-coding can be added. Also added some new DS macros 
that should make this more understandable. 

Marion Baggett, 31-Mar-1982, Version 6.7 
Added SYS$LIBRARY:LIB/ 

Marion Baggett. 8-Apr-l982, Version 6.7 
Added type coding. 

Jack Stansbury, 12-Apr-1982, Version 6.7 

Added support for the Customer Runnable Diagnostics package. 



John Ciukaj, 4-Apr-1983, 
- Redefinea reference to CRD 
distinguish between online 



version 6.11 
bits in DSA Flags 
and offline 



to 



Peter Green, 20-Jul~1983, version 6.12 
Added code to support scripting where prompts are 
printed to the terminal and an answer is given by 
the user. This is only done when the script prompt 
ends with "\V\ 



M. Baggett 25-Jan-1984 Version 6.14 
Changea dynamic allocation of XAB, FAB, RAB to 
so script files will work. 



static form 



ZZ-ENSAA-7.0 Libraries and External Symbols ; [12J 27-JUL-1984 _ Fiche 13 Frame 15 Seguence 2532 

SCRIPT *** SCRIPT Read from command stream 27-JUL-1984 15;A5:08 VAX-11 Macro V03-0f _,_ *W,n,h 

07-18 Libraries and External Symbols ; [123 23-MAY-1984 14:15:48 0MA1 : CSYSO. SYSMA1NTDSCRJPT.MAR; 1 38(1 ) 

Libraries and External Symbols ; C123 



0000 


108 


.S8TTL 


0000 


109 ; 




0000 


110 ; 


INCLUDE FILES: 


0000 


111 ; 




0000 


112 


.LIBRARY 


0000 


113 


.Library 
.LIBRARY 


0000 


114 


ocoo 


115 


.LIBRARY 


0000 


116 





/SYS$LIBRARY:LIB/ 

/$CRD/ 

/$DS/ 

/SDIAG/ 



C13D 
[15] 

[07] 
[07] 



2Z-ENSAA-7.0 

SCRIPT 
07-18 



External Symbol 



Declarations 
*** SCRIPT Read 
External Symbol 



from command 
Declarations 



J 5 
27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 



Frame J5 Seguence 2533 
VAX-11 Macro V03-OT Page 4 
DMA1jCSYS0.SYSHAINTJSCRIPT.MAR; 138(1) 



0000 
0000 
0000 

ooco 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 



.SBTTL External Symbol Declarations 



EXTERNAL SYMBOLS 



.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.Extrn 



DS$CLI,DSX$PRJNT , DS ERRSUP, DSSLOAD ; C123 

DSRSCOMPLETION, DSSABtiRT 

scanscompare, scan$spaces 

dssgw ttout, dssgw ttjn 

dssglzclibase _ _ 

syssfso, sys$qiow, syssqio, sysswake, sysshiber, syssreadef 

ss$ normal, sssjnd0ff1le, ss$„controlc, sssjlliofunc 

io$~readprompt ,io$_writevblk, jo$,readvblk 

ds$gl flags 

exe$a[ononpaged, exesdeanonpaged 

ds$k bufsjz, dssgt buffer 

qiosCleanup, init Context, begin 

ds$rab input, ds$rab_output „ ^ 

DSXt>TYPE OUT ; C09] 

DEBUG.THE SUCKER ; , £993 

"^-- -— -- - - ^e address of the routine to ... C15J 

,,, communicate with CRD CI 52 



DSSGAlCRDlDSJnterface 



K 5 

ZZ-ENSAA-7,0 Macros and Equated Symbols 27-JUL-1984 4 F]£ h ? 13 Frame K 5 Sequence 2534 

SCRIPT *** SCRIPT Read from command stream 27-JUL-1984 15:45:08 VAX-11 Macro V03-0T P*9?, ft Jv 

07-18 Macros and Equated Symbols 23-MAY-1984 14:15:48 DMA1:ESYS0.SYSMAINT3SCRIPT.MR;138<1> 

.SBTTL Macros and Equated Symbols 

EQUATED SYMBOLS: 

SCRIPT$MINCORE — 2*512 ; NEEDS AT LEAST TWO PAGES FOR SCRIPT C123 

$DS DSADEF 

SDS^DSDEF 

DSFBEF 

CLJDEF 

SFA8DEF 

SRMSDEF 

SRABDEF 

SXABDEF 

SXA8FHCDEF wfkM 

$DS TypeDef ; Define DS error codes T09J 

$CRp Literals ; define some CRD equated symbols C15D 



Equated Symbols 




*** SCRIPT 


Read 


Macros and 


Equa 


0000 


141 


0000 


142 


0000 


143 


0000 


144 


0000 


145 


00000400 0000 


146 


0000 


147 


0000 


148 


0000 


149 


0000 


150 


0000 


151 


0000 


152 


0000 


153 


0000 


154 


cooo 


155 


0000 


156 


0000 


157 


oooo 


158 



ZZ-ENSAA-7.0 Data Psect Declarations 27-JUL-1984 , Fjche 13 Frame L i wA , s £9 uence 253 1 A 

SCRIPT *** SCRIPT Read from command stream 27-JUL-1984 15:A5:08 VAX-11 Macro V03-0T J?29?, D A 

07-18 Data Psect Declarations 23-MAY-1984 14:15:48 DMA1 :CSYS0.SYSMAINT3SCRIPT.MAR;138<1) 

0000 160 .SBTTL Data Psect Declarations 

00000000 161 ♦ Psect Data, Shr, Noexe, Ncwrt, Byte 

0000 162 ; 

STORAGE: 



0000 163 

0000 164 

0000 165 

0007 166 



MODNAM SCRIPT 



0007 167 T.DEF COM: 

4D 4F 43 2E 0007 168 .ASCII ".COM" 

0008 1 69 

0008 170 TJJULL: 

00' OOOB 171 .ASCJC ,MI 
00 0008 

OOOC 172 

COOC 173 T.EOF: 

3E 46 4F 45 3C 20 40 00' OOOC 174 .ASCJC "a <EOF>" 

07 OOOC 

0014 175 

0014 176 T ..PROMPT: 

2F 21 44 41 21 43 41 21 00 1 0014 177 .ASCJC "JACiAD!/" 

08 0014 

001 D 178 

001 D 179 T PROMPT2: 

43 41 21 43 41 21 00' 001D 180 .ASCIC M !AC!AC M 

06 001D 

0024 181 

0024 182 T PR0MPT3: 

2? 21 53 41 21 00 ■ 0024 183 .ASCJC "IAS!/" 
05 0024 

002A 184 

002A 185 T„SKIP: 

2£ 2E 20 67 6E 69 70 70 69 6B 53 00' O02A 186 .ASCJC •Skipping , . . ,, !AD ,, !/ , 
2F 21 2? 44 41 21 22 2E 0036 

13 002A 

003E 187 

003E 188 T ECHO: 

2F 21 44 41 21 53 41 21 00' 003E 189 .ASCJC 'JAS'AD!/ 1 ; Format line echo to log file 

08 003E 

0047 190 

0047 191 T PNF: 

43 41 21 22 20 74 70 6D 6F 12 50 00' 0047 192 m .ASCJC 'Prompt n !AC M not found in script!/* 

20 64 6E 75 6F 66 20 74 6F 6E 20 22 0053 
2F 21 74 70 69 72 63 73 20 6E 69 005F 

22 0047 



ZZ-ENSAA-7,0 

SCRIPT 

07-18 



Work Psect 



Declarations 

*** SCRIPT 
Work Psect 

006A 
00000000 
0000 
002C 
007C 
00C0 
00C0 

000000C4 00C0 
00C4 
00C4 

0OO000C8 00C4 
00C8 

00000001 00C8 

00C8 

COC8 

00 00C8 

00C9 



Read from command 
Declarations 



M 5 

27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:A5:08 
23-MAY-1984 14:15:48 



194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 



SCRIPT_XAB 
SCRIPT FAB 
SCR1PTIRA6 



.SBTTL Work Psect Declarations 
>SECT Work, Noshr, Noexe, Wrt, Long 



SXABFHC ; XAB 
$FAB XAB=SCRIPT_XAB 
$RAB FAB=SCRIPT^FAB 



FAB 



Frame M5 Seguence 2536 
VAX-11 Macro V03-01 Page., 7 
DMA1:[SYS0.SYSMAINT]SCRIPT.MAR;138<1) 



C183 
C183 
C18J 



I.LJNK: 



♦ BLKL 1 



L FLAGS; 



1 



.BLKL 

V_ECHOED=1 

DS$GB_QIOACT:; 

.BYTE 



ADDRESS (IF ANY) OF CURRENT SCRIPT DESCRIPTOR 

FLAG BITS 

SET JF LINE HAS BEEN READ BUT NOT ECHOED 

Low Bit set if input 010 active 

Used by PRINTx in user mode to cancel input 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



Absolute Psect Declarations 

*** SCRIPT Read from command 
Absolute Psect Declarations 





00C9 


212 .SBTTL 


Absolute 




00C9 


213 .SAVE 






00C9 


214 .PSECT 


$ABS$, 


00000000 


f:70 


215 .=0 




00000004 


oooo 


216 SCSL LINK: 


.BLKL 


00000008 


0004 


217 


.BLKL 


OOOOOOOA 


0008 


218 SCSW.SIZE: 


.BLKW 


oooooooc 


000A 


219 SC$W_LEN: 


.BLKW 


0000000E 


oooc 


220 SC$W„CURR: 


.BLKW 


00000010 


000E 


221 SCSWJND: 


.BLKW 


00000010 


0010 


??2 SC$A BUF: 


.BLKB 


00000010 


^:io 


2dl SCSC.BLN*. 




O00uOOC9 


224 .RESTORE 



N 5 
27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 



Psect Declarations 



Frame N5 Sequence 2537 
VAX-11 Macro V03-01 Pa 9* 8 , 
0«A1:CSYS0.SYSMAINT3SCRIPT.MAR;138(1) 



ABS 







ADDRESS (IF ANY) Or NEXT STACKED SCRIPT 

UNUSED 

SIZE OF ALLOCATED SPACE 

Length of current record SC$W CURR 

OFFSET TO CURRENT RECORD IN BOFFER 

NUMBER OF BYTES IN THIS BUFFER 

OFFSET TO START OF TEXT 



ZZ-ENSAA-7.0 

SCRIPT 

U7-18 



B 6 

SCRIPTSINIT - Initialize script 27-JUL-1984 Fiche 13 Frame^B6 Seguence 2538 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 VAX* i i Macro V03-OT J? a 9?, ft * 

SCRIPTSINIT - Initialize script 23-MAY-1984 14:15:48 DMA1 :CSYSO.SYSMAINT]SCRIPT, MAR; 138(1 ) 



00C9 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



226 
227 
228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 



.S8TTL SCRIPTSINIT - Initialize script 
.Psect Code, Shr, Exe, Nowrt, Byte 

FUNCTIONAL DESCRIPTION: 

This routine is called from KERNEL during initialization to 
initialize the SCRIPT functionality. 

CALLING SEQUENCE: 

BS8W SCRIPTSINIT 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

SCRIPT 



C 6 
SCR1PTSIN1T - Initialize script 27-JUL-1984 ^fjche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
SCRIPTS1NIT - Initialize script 23-MAY-1984 14:15:48 



Frame C6 Sequence 2539 
VAX-11 Macro V03-01 Page 10 
0MA1:tSYS0.SYSHAINT]SCRIPT. MAR; 138(1) 



OOOOOOCO'EF 
0163 



0000 263 SCRIPTS1NIT : 

D4 0000 264 CLRL 

30 0006 265 BS3W 

05 0009 266 RSB 



L LINK 
SCRIPTSSTOP 



Clear link to first script 
Indicate no scripts active 
Return 



[113 



ZZ-ENSAA-7.0 SCR1PTS0PEN - Initialize a 


scrip 


SCRIPT 


*** SCRIPT 


Read 


07-18 


SCRIPTSOPEJS 


1 - Ir 




OOOA 


268 




OOOOOOOA 


269 




OOOA 


270 




OOOA 


271 




OOOA 


272 




OOOA 


273 




OOOA 


274 




OOOA 


275 




OOOA 


276 




OOOA 


277 




OOOA 


278 




OOOA 


279 




OOOA 


280 




OOOA 


281 




COOA 


282 




OOOA 


283 




OOOA 


284 




OOOA 


285 




OOOA 


286 




OOOA 


287 




OOOA 


288 




OOOA 


289 




OOOA 


290 




OOOA 


291 




OOOA 


29? 




OOOA 


29^ 




OOOA 


294 




OOOA 


295 




OOOA 


296 




OOOA 


297 




OOOA 


298 




OOOA 


299 




OOOA 


300 




OOOA 


301 




OOOA 


302 




OOOA 


303 




OOOA 


304 




OOOA 


305 



6 
t file 27-JUL-1984 Fiche 13 
from command stream 27-JUL-1984 15:45:08 
Initialize a script file 23-MAY-1984 14:15:48 



Frame D6 Seguence 2540 
VAX-11 Macro VG3-01 Page 11 
DMA1:CSYS0.SYSMAINTJSCRIPT. MAR; 138(1) 



.SBTTL SCRIPTSOPEN - Initialize a script file 
.Psect Code, Shr, Exe, Nowrt, Byte 
++ 
FUNCTIONAL DESCRIPTION: 

This routine is called from CLI to process a Qfilespec commard* 
It allocates space for the necessary internal data structures/ 
Open the file specified and sets a flag that input should be 
taken from the script tile instead of the console. 

CALLING SEQUENCE: 

BS8W SCRIPTSOPEN 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

CLI$GL_BASE + CLI$Q.FILE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

DSSV.SCRIPT 
COMPLETION CODES: 

RMS Standard completion codes 
SIDE EFFECTS: 

NONE 



Length and Address of filespec 



May be set in DS$GL_FLAGS 



„. 



ZZ-ENSAA-7.0 

SCRIPT 
07-18 



E 6 

SCRIPTSOPEN - Initialize a script file 27-JUL-1984 Fjche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
SCR1PTS0PEN - Initialize a script file 23-MAY-1984 14:15:48 



Frame E6 Sequence 2541 
VAX-11 Macro V03-0T Page 12 
DMA1:[SYS0.SYSMAINT]SCRIPT.MAR;138(1) 



0144 30 
OOOOOOOO'EF 16 

OOOOOOOO'EF 6C FA 



57 OOOOOOOO'EF 9E 



59 0O000O2CEF 9E 

52 OOOOOOOO'EF 9E 

34 A9 08 A2 9C 

2C A9 OC A2 DO 

35 A9 04 90 

30 A9 00000007'EF 9E 



OOOA 
OOOA 
OOOD 
0013 
001B 
0022 
0022 
0022 
0022 
0022 
0022 
0029 
0029 
0029 
C029 
0030 
0037 
003C 
003C 
0041 
004 I 
0045 
004D 



307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 



SCRIPT$OPEN:: 

BSBW SCRIPTSFLUSH 
JSB INIT, CONTEXT 
Br Jf User 10$ 
CACLG~ <AP),QtO$CLEANUP 



Set pointer to XAB 



Flush scripts if console command 
Refresh Stacks, AST, PCS, PHD etc 
I f user mode, branch 
Flush current QIO database 



[11] 
[07] 
[123 



10$: MOVAB 

; Fill in FAB 

MOVAB 
MOVAB 
M0V8 

MOVL 

MOVB 
MOVAB 



SCRIPT_XAB,R7 



SCRIPT FAB,R9 
DS$GL_fLIBASE, R2 
CLI$Q FILE (R2>, - 

FABJB FNS (R9) 
CLISQ FTLE+4 <R2), 

FABfL FNA (R9) 
#4, FA8SB DNS (R9) 
L A T DEF_C0M, - 

FSB$L_DNA (R9) 



SAVE ADDRESS OF XAB 



SA^'F ADDRESS OF FAB 
Aduress of CLI database 
File name size 

File name address 

Default name size 
Default name address 



[18] 



8 



07 
11 



ZZ-ENSAA-7,0 

SCRIPT 

07-18 



F 6 . 

SCRIPTSOPEN - Initialize a script file 27-JUL-1984 ^ Fiche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 

SCRIPTSOPEN - Initialize a script file 23-MAY-1984 14:15:48 



Frame F6 Seguence 2542 
VAX-11 Macro V03-0T Page^ 13 v 
DMA1:[SYS0.SYSMAINT]SCRIPT.MAR;138<1) 



58 0000007CEF 



FFAO' 
03 50 
00E5 



50 



51 



10 
51 



A7 09 

14 A7 

10 A041 

FF89 

03 50 

0081 



62 

08 A2 

58 52 

08 A8 51 

6B OOOOOOCO'EF 

OOOOOOCO'EF 68 



53 10 
:>4 51 



AB 
10 





004D 


331 




004D 


332 




004D 


333 


9E 


004D 


334 




0054 


335 




0054 


336 




0054 


337 




0054 


338 




0054 


339 


30 


005D 


340 


E8 


0060 


341 


31 


0063 


342 




0066 


343 




0066 


344 




C066 


345 




0066 


346 




0066 


347 


78 


0066 


348 


3C 


006B 


349 


9E 


006F 


350 


30 


0074 


351 


E8 


0077 


352 


31 


007A 


353 




007D 


354 


7C 


007D 


355 


7C 


007F 


356 


DO 


0082 


357 


80 


0085 


358 


DO 


0089 


359 


DE 


0090 


360 




0097 


361 




009F 


362 


9E 


0OA7 


363 


C3 


0OA8 


364 



Set pointer to RAB 

MOVAB SCRIPT_RAB,R8 
$OPEN the file 



SOPEN FAB = (R9) 

BSBW DSRSCOMPLETJON 

BLBS R0,70$ 

BRW SCRIPT$OPEN_X 



Allocate buffer for script 



70$: ASHL #9,XAB$L EBK(R7),R0 

M0V2WL XABSW FFB(R7),R1 

MOVAB SC$C BLN(R0)[R1LR1 

BSBW EXE$*L0N0NPAGED 

BLBS RO, 71$ 

BRW 160$ 

71$: CLRQ (R2> 

CLRO 8(R2) 

MOVl R2,R11 

MOVW R1,SC$W SIZE(R11) 

MOVL L*L LINK, SC$L LINK <R11) 

MOVAL (R1T),L A L.LINR 
Clear.StrFlg 
Clear,CtrlC 

MOVAB SC$A BUF(R11),R3 

SUBL3 0SC$J BUF,R1,R4 



SAVE ADDRESS OF RAB 



[18] 



; Print errors if any 
; Branch to continue 
; txit w/error 



Get length of f *. le 

Get first free L/te 

Length required for script + a little 

Allocate space for buffer 

Branch around if no error 

Branch it error. Close and exit 

Clear first part of SC$. . . 

Clear second part of SC$,.. 

base script control area 

Set the length allocated 

Make current script the previous 

Make this the current script 

Clear started flag 

Clear A C flag 

Address of free space in buffer 

Length left in buffer 



[12J 
[12] 

[12] 



[07] 
[07] 
[12] 
[12] 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



6 6 
SCRJPTSOPEN - Initialize a script file 27-JUL-1984 _ Fiche 13 

*+* SCRIPT Read from command stream 27-JUL-1984 15:45:08 
SCRIPTSOPEN - Initialize a script file 23-MAY-1984 14:15:48 



Frame 66 Seguence 2543 
VAX-11 Macro V03-0T Page 14 
DMA1:CSYS0.SYSMAINTJSCRIPT.MAR; 138(1) 



24 A8 
20 A8 
54 000( 

20 A8 



50 



53 







OOAF 


366 


; + 










OOAF 


367 


; Connect to record stream 






OOAF 


368 


* 










OOAF 


369 












OOAF 


370 




SCONNECT RAB = (R8) 


43 50 


E9 


0088 
OOBB 


371 
372 




BLBC 


R0,160$ 


01 A3 


9E 


OOBB 


373 


100$: 


MOVAB 


KR3), RABSL UBF(R8) 


FF 8F 


9Q 


OOCO 


374 




MOVZBW 


#255, RAB$W DSZ(R8) 


0100 8F 


D1 


O0C5 


375 




CMPL 


#256, R4 " 


05 


15 


OOCC 


376 




BLEQ 


110$ 


54 01 


A3 


OOCE 
O0D3 


377 
378 




SUBW3 


#1, R4, RAB$W.USZ(R8) 






00D3 


379 


110$: 


$GET 


RAB = (R8) 


13 50 


E9 


CODC 


380 




BLBC 


RO, 130$ 


22 A8 


3C 


OODF 


381 




MOVZWL 


RAB$W RSZ(R8), RO 


63 50 


90 


00E3 


382 




M0V8 


RO, (R3) 


01 A340 


9E 


00E6 


383 




MOVAB 


1(R3)CR03 # R3 


54 50 


C2 


OOEB 


384 




SUBL 


RO, R4 


54 


D7 


OOEE 


385 




DECL 


R4 


C9 


11 


OOFO 


386 




BRB 


100$ 



Branch if error. Close and exit 

Set address to put data 

Limit size to 255 characters 

Room for count byte and 255 character? 

Branch if there is 

Shorten transfer size 

$GET a record 

Branch if error, includes EOF, RTB 

Get actual record length 

Set length of record 

Set new free 

Decrement length remaining 

Less one for length 

Try again 



2Z-ENSAA-7.0 

SCRIPT 

07-18 



H 6 
SCRIPTSOPEN - Initialize a script file 27-JUL-1984 _ rt< F ]'che 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
SCRIPTSOPEN - Initialize a script file 23-MAY-1984 14:15:48 



Frame H6 Sequence 2544 
VAX-11 Macro VO3-0T Page 15 
DMA1 :CSYS0.SYSMAINT3SCRIPT. MAR; 138(1) 











OOF 2 


388 










00F2 


389 










OOF 2 


390 










00F2 


391 




52 


50 


DO 


00F2 
OOF 5 
00 C E 
OOFE 


392 
393 
394 
395 




50 


52 


DO 


0107 


396 


0001 827A 8F 


50 


D1 


01 OA 


397 






08 


13 


0111 


398 






FEEA 1 


30 


0113 


399 






006F 


30 


0116 
0119 


400 
401 






30 


11 


C119 

0118 
0118 
0118 
01 IB 

0118 


402 
403 
404 
405 
406 
407 




50 


53 


DO 


0118 


408 


51 


50 


5B 


C3 


01 1 E 


409 


OE AB 


51 


10 


A3 


0122 


410 


51 


OF A1 


9E 


0127 


411 


08 AB 


51 


OF 


AB 


0128 


412 




54 


OF 


AA 


0130 


413 






OE 


13 


0133 


414 


50 


OF AO 


9E 


0135 


415 




50 


OF 


CA 


0139 


416 


08 


AO 


54 


BO 


013C 


417 






FEBD' 


30 


0140 
0143 

0143 
0148 
014B 


418 
419 
420 
421 
422 


00000000' EF 


17 


0148 


423 



; Error, EOF, or Record too big on GET 
130$: 



MOVL R0,R2 
SDISCONNECT 



RA8 - (R8) 



160$: 



SCLOSE 

MOVL 

CMPL 

BEQL 

BSBW 

BS8W 



170$: BRB 



FAB = (R9) 

R2,R0 

RO, 0RMS$ EOF 

180$ 

DSR$C0MPLHlON 

SCRIPTSf JNJSH 

SCRIPTSOPENJC 



Save return code 



Restore error code 
End of file? 
Branch if legit EOF 
Report the error 
Error, flush the script 

Exit 



EOF 



180$: 



MOVL 

SUBL3 

SU8W3 

MOVAB 

BICW3 

BICW 

BEQL 

MOVAB 

BJCL 

MOVW 

BSBW 



R3, RO 

R11- RO, R1 

#SC$A BUF, R1 

15(R1T, R1 

#15, R1, SC$W SIZE(R11> 

#15, R4 

190i 

15<R0), RO 

#15, RO 

R4, 8(R0) 

EXE$DEANONPAGED 



and save 
boundry 



190$: Set^Script 

SCRJPTSOPENJO 

JMP BEGIN 



; Free address in buffer 

; Length used 
SC$WJND(R11>; Save lenath of data 

Round up to Block boundry 

Truncate to block boundry 

Length remaining to block 

None, finish 

Round up to block boundry 

Finish rounding 

Set size of section to be released 

Release the unused portion 

Set to script mode and exit 



And force reentry of CLI 



[12] 



ZZ-ENSAA-7.0 

SCRIPT 
07-18 



I 6 
SCR1PTSFLUSH, STOP, CONT - Terminate all 27-JUL-1984 .. FJS h ?r. 1 L 

*** SCRIPT Read from command stream 27-JUL-1984 15:45 : 08 

SCRIPTSFLUSN, STOP, CONT - Terminate all 23-MAY-1984 14:15:48 



0151 
00000151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
C151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 
0151 



425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 



.SBTTL SCRIPT5FLUSH, STOP, CONT - 
.Psect Code, Shr, Exe, Nowrt, Byte 



Frame 16 Seguence 2545 

VAX-11 Macro V03-0T Page 16 k 

DMA1:CSYS0.SYSMAINT3SCRIPT. MAR; 138(1) 

Terminate all scripts open 



++ 



FUNCTIONAL DESCRIPTION: 



SCRIPTSFLUSH 

SCRIPTSSTOP 

5CRIPTSC0NT 

CALLING SEQUENCE: 



Will SCRIPT$FINISH until L_LINK is zero. 

Clears DS$V SCRIPT 

Sets DS$V SCRIPT if L_LINK NEQ 



BSBW SCRIPT$Fl.USH 
BS8W SCRIPTSSTOP 
BSBW SCRIPTSCONT 

INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

Current DS$GLJLAGS and script OWN data 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION COOFS: 

SSS.NORMAL 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



J 6 . «» 

SCRIPTSFLUSH, STOP, CONT - Terminate all 27-JUL-1984 _, F ]< h ? JL 

*<•* SCRIPT Read from command stream 27-JUL-1984 15:45:08 
SCRIPTSFLUSH, STOP, CONT - Terminate all 23-MAY-1984 14:15:48 



Frame J6 Sequence 2546 
VAX-11 Macro V03-0'f Page 17 
DMA1:ESYS0.SYSMAINT]SCR1PT.MAR;138(1> 







0151 


465 SCRIPTSFLUSH:: 








0151 


466 


Clear_QA 






0159 


467 








0159 


468 10$: 


Br If_Script 20$ 


25 


10 


0161 


469 


BSBB SCUPTSFINI 


OOQOOOCO'EF 


D5 


0163 


470 


TSTL L A 


L LINK 


EE 


12 


0169 
0168 


471 
472 


BNEQ 10$ 




05 


01 6B 
016C 
016C 


473 20$: 

474 

475 


RSB 






016C 


476 SCRJPT$STOP:: 






016C 


477 


Clear Script 




05 


0174 
C175 
0175 


478 
479 
480 


RSB 






0175 


481 SCRIPTSCONT:: 


F5 


10 


0175 


482 


BSBB SCRIPTSSTOP 


OOOOOOCO'EF 


D5 


0177 


483 


TSTL L*L„LINK 


08 


13 


017D 


484 


BEOL 10$ 






01 7F 


485 


Set.Scrip*. 






0187 


486 






05 


0187 


487 10$; 


RSB 





Turn off the QA flag 

Branch if script mode 
YES, FINISH TOP LEVEL 
ANY SCRIPTS ACTIVE? 
AND TRY AGAIN 



C12D 

[12] 
1071 
[07] 

no: 



Clear script flag 



Clear script flag 
Any scripts present? 
Branch if not 
Set script flag 



[12] 
[12] 



[07] 
[12] 



ZZ-ENSAA-7,0 

SCRIPT 

1)7-18 



K 6 

SCR1PUFIN1SH - Terminate script input f 27-JUL-1984 Fiche^. 13 Frame K6 u Sequence 2547 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 VAX-11 Macro V03-0T «? a 9S,„!§, 

SCR1PTSFJN1SH - Terminate script input f 23-MAY-1984 14:15:48 DMA1 : CSYSO. SYSMAINTJSCRIPT-MAR; 1 38( 1) 

.SBTU SCRIPTSFINISH - Terminate script input file 
.Psect Code, Shr, Exe, Nowrt, Byte 

FUNCTIONAL DESCRIPTION: 

This routine will (CLOSE the current script file (if *ny) and return the 
space allocated. If this is the last script file, it will clear the 
0SSV.SCR1PT flag in DS$GL„FLAGS. 

CALLING SEQUENCE: 

BS8W SCRIPTSFINISH 
INPUT PARAMETERS? 

NONE 
IMPLICIT INPUTS: 

Current DS$GL,FLAGS and Scripts OWN data. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

DS$GL_SCRIPT and OWN DATA 
COMPLETION CODES: 

SS$JJORMAL 
SIDE EFFECTS; 

NONE 



0188 


489 


00000188 


490 


0188 


491 


0188 


492 


0188 


493 


0188 


494 


0188 


495 


0188 


496 


0188 


497 


0188 


498 


0188 


499 


0188 


500 


0188 


501 


0188 


502 


C188 


503 


0188 


504 


0188 


505 


0188 


506 


0188 


507 


0188 


508 


0188 


509 


0188 


510 


0188 


511 


0188 


512 


0188 


513 


0188 


514 


0188 


515 


0188 


516 


0188 


517 


0188 


518 


0188 


519 


0188 


520 


0188 


521 


0188 


522 


0188 


523 


0188 


524 


0188 


525 



ZZ-ENSAA-7.0 

SCRIPT 
07-18 
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SCR1PTSFINISH - Terminate script input f 27-JUL-1984 -rtft , F J£ h ? r 1 L 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
SCRIPTSFJNISH - Terminate script input f 23-MAY-1984 14:15:48 



Frame l_6 Seguence 2548 
VAX-11 Macro V03-01 Page 19 
DMA1:CSYS0.SYSMAINT3SCRIPT.MAR;138(1) 







0188 


527 SCRIPTSFJNJSH: 




3C 


BB 


0188 
018A 


528 
529 


PUSHR 


# A M<R2, R3, R4, R5> 


50 OOOOOOCO^F 


DO 


018A 


530 10$; 


MOVL 


L A LJ.INK, RO 


12 


13 


0191 


531 


BEQL 


30$ 


OOOOOOCO'EF 60 


DO 


0193 


532 


MOVL 


SC$L LINK(RO),L A L..L 


FE63' 


30 


01 9A 
019D 


533 
534 


BS8W 


EXE$5EAN0NPAGED 


OOOOOOCO'EF 


D5 


019D 


535 20$: 


TSTL 


L A L_LINK 


02 


12 


01A3 
01A5 


536 
537 


BNEQ 


40$ 


C5 


10 


01A5 
01A7 


538 30$: 
539 


BSBB 


SCRIPT$STOP 


50 00' 


DO 


01A7 


540 40$: 


MOVL 


S**SS$ NORMAL, RO 


3C 


BA 


C1AA 


541 


POPR 


A M<R27 R3, R4, R5> 




05 


01AC 


542 


RSB 





; Save registers 

; GET POINTER TO CURRENT SCRIPT 

; NONE, EXIT RIGHT AWAY 

; MAKE NEXT CURRENT 

; DEALLOCATE IT 

; ANY CURRENT SCRIPT? 

; YES, JUST EXIT 

; Clear script active flag 

• IT WORKED! 

; Restore registers 

; RETURN 



[071 
1072 

LQ71 

cm 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



DS^GETLINE - Get pro 



M 6 
ram data input line 27-JUL-1984 Fiche 13 
CRIPT Read from command stream 27-JUL-1984 15:45:08 
DS GETLINE - Get program data input line 23-MAV-1984 14:15:48 



Frame M6 Sequence 2549 
VAX-11 Macro V03-01 Page, 20 
DMA1:CSYS0.SYSMAINTJSCRIPT.MAR;138<1> 



C1AD 
000001AD 
01AD 
01AD 
01A0 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AU 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 



544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 



.SBTTL 
.Psect 

FUNCTIONAL DESCRIPTION: 



DS GETLINE - 
Code, Shr, Exe, 



Get program 
Nowrt, Byte 



data input line 



This rou 
from a s 
<NULL> t 
Syncroni 
prompt s 
DS.GETLI 
is ignor 
tabs are 
addition 
input- U 
line is 
default 



tine returns a 
cript file. If 
he operator is 
zation between 
tring with the 
NE was called 



line from the input stream. It may be from the consol 
the first character of the user prompt from ASKS???? 
prompted directly without consulting the script, 
the scripts and f)S_??LINE is accomplished by matching 
line in the script file. If it does no f match and 
the program is aborted. If DS_SUPERI INE was called the 



ed and the next line T? examined. The prompt string and leading spac 
removed from the script line before it is returned to the program, 
lower case characters in the script are translated to uppercase. If 

ne is expected from the operator and the 0PERT0R flag is clear a nul 

returned. Currently the ASK$???? routines apply the program ^.pecifi 

value in the case of a null line. 



CALLING SEQUENCE 



CALL 

CALL 



DS 
DS 



GETLINE 
SUPERLINE 



INPUT PARAMETERS: 

4(AP) - 

8(AP) - 

12(AP) - 

16(AP) - 

20 (AP) - 



STRING BUFFER ADDRESS 

LONGWCRD FOR RETURNED STRING LENGTH 

STRING BUFFER SIZE 

Address of ASCIC user prompt 

Address of ASCIC extra prompt text 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



DSJ3ETL1NE - Get pro 

*** 



ram data input Line 
CRIPT Read from comn.ind stream 
DS GETLINE - Get program ana input 



N 6 
27-JUL-1984 Fiche 13 
27-JUL-19?' T V>:*jiZZ 
tine 23-MAY-I984 14: 1 5:48 



Frame N6 Seguence 2550 
"AX-11 Macro V03-OT Page 21 
DMA:: r SYS0.SYSMAINTJSCRlPT.MAR;138<1) 



01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
C1AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 
01AD 



575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 



IMPLICIT JNPUTS; 

NONE 
OUTPUT PARAMETERS; 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SS$_N0RMAL 
REGISTER USAGE: 



R4 
R5 
R6 



R7 
R8 
R11 



Length of current line in script 
Address of current line in script- 
Flags 

bit set if supervisor request, else clear 
bit 1 set if already printed "prompt not found text' 
Address of ASCIC user prompt 
address of informational prompt 
Base of current script block 



SIDE EFFECTS: 

R1 = RETURNED STRING LENGTH 



ZZ-ENSAA-7,0 

SCRIPT 
07-18 



B 7 
DS GETLINE - Get program data input Line 27-JUL-1984 4rtrt/ F jche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
DS GETLINE - Get program data input line 23-MAY-1984 14:15:48 



Frame 87 Sequence 2551 
VAX-11 Macro V03-01 Page 22 
DMA1:[SYS0.SYSMAINTJSCRIPT. MAR; 138(1) 



57 



5B 



55 





09FC 


01AD 


607 






01AF 


608 


56 01 


DO 


01AF 


609 


04 


11 


01B2 


610 






0184 


611 




09FC 


01B4 


612 






01B6 


613 


56 


D4 


01B6 


614 






01B8 


615 






0186 


616 


00000008' EF 


9t 


0188 


617 


58 57 


DO 


018F 


618 


04 6C 


D1 


01C2 


619 


00 


1F 


01C5 


620 


57 10 AC 


DO 


CK7 


621 


05 6C 


D1 


OUR 


622 


04 


1F 


01CE 


623 


58 14 a: 


DO 


01D0 


624 






01D4 


625 






01D4 


626 


OOOOOOCO'EF 


DO 


01DC 


627 


09 


13 


01E3 


628 






01E5 


629 


67 


95 


01E5 


630 


08 


13 


01E7 


631 


01 A7 


95 


01E9 


632 


03 


12 


01EC 


633 






01EE 


634 


00B4 


31 


01EE 


635 






01F1 


636 


0348 


30 


01F 1 


637 


OF 50 


E8 


01F4 


638 


OOOQOOOC'EF 


9E 


01 F 7 


639 


54 85 


9A 


01FE 


640 


0080 


30 


0201 


641 


B2 


11 


0204 


642 



.ENTRY DS.SUPERLINE, A M<R2,R3,R4,R5,R6,R7,R8,R11> 



MOVL 
BRB 



jM, R6 

COMMON 



; Flag supervisor request 
; Join at common 



.ENTRY DS_GETLJNE, A M<R2,R3,R4,R5,R6,R7,R8,R11> 
CLRL R6 ; Flag user request 



COMMON: 



10$: 



20$' 
30$: 



MOVAB 

MOVL 

CMPL 

BLSSU 

MOVL 

CMPL 

BLSSU 

MOVL 

Br If 
MOtfL ' 
BEQL 

TST8 
BEQL 
TSTB 
BNEO 

BRW 

BS8W 

8L8S 

MOVAB 

MOV28L 

BS8W 

BR8 



L*T NULL, R7 
R7,"R8 
(AP), *4 
10$ 

16<AP), R7 
(AP), 05 
10$ 
20(AP), R8 

Not Script 20$ 
' L*L LiNK, R11 
20$" 



<R7) 
30$ 
KR7) 
30$ 

CONSOLE 

ADVANCE 
RO, 40$ 
L A T EOF. R5 
(R57+, R4 
PRINT LINE, 
COMMON 



Initially a null user prompt 

Null information prompt 

Is user prompt address present? 

Branch if not 

Yes use it 

Is user info prompt present? 

Branch if not 

Yes, use it 

Branch if using, console now 

Any script active? 

Branch if no script active 

null user prompt? 
Yes, continue 
Is first character of 
Branch if can be "'""' 



1071 



C123 

C073 



prompt null? 
scripted 



Branch to use console 

Point to next record 

Branch if not <EOF> 

Text for "3 <E0F>" 

length of "S <E0F>" 

Type prompt and text — CH TO UQRD DISP 

And try aqain 



[07] 



ZZ-ENSAA-7,0 

SCRIPT 

07-18 



C 7 
DS GETLJNE - Get program data input Line 27-JUL-1984 _, Fl *£ h * 1 L 

*** SCRIPT Read from command stream 27-JUL-1984 1 5 :A5 : 08 
OS GETLIME - Get program data input line 23-MAY-1984 14:15:48 



Frame C7 Sequence 2552 

VAX-11 Macro V03-0T Page 23 
DMA1:CSYS0.SYSMAINT]SCRIPT, MAR; 138<1> 



65 



54 
09 
21 
04 
73 
A5 



53 
52 



15 



57 
83 
FDE4* 
52 
4A 
56 01 



57 

00000047 , EF 

7E 01 

7E 1E 

00000000' GF 04 

22 56 

50 OC AB 

10 AB40 

7E OA AB 

0000002A'EF 

7E 01 

7F 1F 

00000000' GF 05 

FF5A 

OA AB OA AB 

00000000' 9F U 

FD93' 



5C5C 8F 



65 

03 

002E 

OB 
029C 



51 08 BC 

50 00' 



D5 
13 
91 
12 
10 
11 

DO 
9A 
30 
D5 
13 
E2 

DD 
9F 
OA 
98 
FB 

E9 
3C 
9F 
3C 
9F 
9A 
98 
FB 
31 

B2 

FA 

30 

B1 
12 
31 

10 
30 

DC 
DO 
04 



0206 

0208 

020A 

020D 

020F 

0211 

0213 

0213 

0216 

0219 

021C 

021E 

0220 

0224 

C224 

0226 

022C 

022F 

0232 

0239 

0239 

023C 

0240 

0244 

0248 

024E 

0251 

0254 

025B 

025E 

02<E 

0263 

0263 

026A 

026A 

026D 

026D 

0272 

0274 

0277 

0277 

0279 

027C 

027C 

0280 

0283 



644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 



40$: 



50$: 



60$ ? 



70$ j 



80$: 



82$: 



TSTL 
BEQL 
CMPB 
BNEQ 
BS88 
BRB 

MOVL 

MOVZBl 

BS8W 

TSTL 

BEQL 

BBSS 

PUSHL 

PUSHAB 

mo\^bl 

cvtbl 

CALLS 

BL8C 

MOVZWL 

PUSHAB 

MOVZWL 

PUSHAB 

movzbl 

cvtbl. 

CALLS 

BRW 

MCOMW 

CALLG 

BS8W 

CMPW 
BNEQ 
BRW 

BS88 
BS8W 

MOVL 
MOVl 
RET 



R4 

50$ 

# A A M !' 

50$ 

PRINT LINE 

COMMOR 



(R5) 



R7, R3 

(R$)+, R2 

SCAN$COMPARE 

R2 

80$ 

#1, R6, 60$ 



Any characters in line? 

no, use it as is 

Comment line? 

No, use it 

Type prompt and text 

Try again 

Get address of user prompt 

Get length of ASC JC string 

Compare the strings 

Check for exhausted prompt string 

Branch if prompt match 

Branch if already told of error 



R7 ; Address of prompt string 

L A T PM ; Edit string for "Prompt Not Found' 

#DS$K PrintF # -(SP) ; Routine name constant 
#DS$K~Type Script Pnf, -(SP) ; The typecode constant 
#4, G x DSX$Print " ; Type it 



C07] 
[14] 
[14] 

[143 



R6, 70$ 

sc$w..curr(r11), r0 
sc$a buf(r11)[r0j 
sc$w~len(r11), -(sp) 
l*t Skip 

#DSlK.printf,-<sp) 



Branch if user request 

Get current offset 

Address of string 

Length of string 

Edit string for "skipping 1 

Routine 



#DS$K~type script. skip,-(sp) ; Print code. 

#5, G X DSX$PRINT ; Print it 

COMMON ; Branch to try again 



[07] 
[14] 
[14] 
CH] 



SC$W_LEN(R11), - 
SC$W LEN(R11) 
(AP)T 3WDS$AB0RT 

SCAN$SPACES 

(R5),0 A X5C5C 

82$ 
C0NS0LF 

PRINT LINE 
C0PYJT 



38(AP) 
S A #SS$ 



R1 
NORMAL , 



R0 



Complement len so record is used again 
Program request. ♦ .abort program 

Remove spaces and tabs from input 



CHECK FOR // AT THE END OF PROMPT 

IF NOT CONTINUE SCRIPT 

IF YES PRINT PROMPT AND WAIT FOR ANSWER 

Type it 

Copy input to buffer 

Get length of returned line 
It worked! 
Return to caller 



[17] 
[17] 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



D$_GETLINE - Get pro 

*** 



7E 54 

57 

00000014'EF 

7E 01 

7E 20 

OOOOOOOO'GF 06 



D 7 

ram data input line 27-JUL-1984 Fiche 13 
CRIPT Read from command stream 27-JUL-1984 15:45:08 
DS GETLINE - Get program data input Line 23-MAY-1984 14:15:48 



Frame 07 Sequence 2553 

VAX-11 Macro V03-0T Page 24 
DMA1:CSYS0.SYSMAINT3SCRIPT.MAR;138(1) 



0284 

0284 

0284 

0284 

0284 

0284 

70 028C 

DD 028F 

9F 0291 

9A 029? 

98 029A 

FB 029D 

02A4 

05 02A4 



691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 



Little subroutine to print a line iff the Verify bit is set. 



PRINT LINE: 

9r If 

NOflQ " 

PUSHL 

PUSHAB 

movzbl 

cvtbl 

CALLS 



■rify 
-<SP 



10$ 



Skip 
Push 
Push 
Type 



Not Verif 

Itf, 

R7 

L A T PROMPT 

0DS5K printf,-(sp) ; routine. 

#DS$K~type script„prompt,-(sp) ; code 

#6, G*DSX$PRINT ; Type prompt and returned line 



output if VERIFY is clear 
length/address of data 
address of ASCIC user prompt 
prompt and returned line 



10$: 



RS8 



Return 



[12] 



C07D 
[14] 
C14] 
[14] 

[08] 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



E 7 

DS 6ETLINE - Get program data input line 27-JUL-1984 Fiche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 

DS GETLINE - Get program data input line 23-MAY-1984 14:15:48 



Frame 17 Sequence 2554 

VAX-11 Macro V03-01 Page 25 

DMA1:CSYSO.SYSMAIAIT3SCRIPT.HAR;138<1) 









02A5 


706 








02A5 


707 








02A5 


708 








02A5 


709 








02A5 


710 


51 OOOOOOID'EF 


9E 


02A5 


711 




50 81 


9A 


02AC 


712 




7E 50 


7D 


02AF 


713 


00000000' EF 


9F 


0282 


714 


7E 


0000' 8F 


3f 


02B8 


715 




52 


D<t 


02BD 
02BF 


716 
717 


50 


04 AE 


DO 


02C7 


718 




60 02 


90 


02CB 
C2CE 


719 
720 




12 56 


E9 


02CE 


721 




67 04 


91 


02D1 


722 




00 


12 


02D4 


723 


203E5344 8F 


01 A7 


D1 


02D6 


724 




03 


12 


02DE 


725 




60 01 


90 


02E0 
02E3 
02E3 


726 
727 
728 




6E 


D7 


02E3 


729 




04 AE 


D6 


^E5 


730 




52 


06 


02E8 
02EA 


731 
732 




7t 57 


7D 


02EA 


733 




08 AE 


7F 


02ED 


734 




OC AE 


3F 


02F0 


735 




18 AE 


7F 


02F3 


736 


00000000 


'9F 05 


FB 


02F6 


737 




54 52 


E9 


02FD 


738 




6E 


D6 


0300 


739 




04 AE 


D7 


0302 


740 



No DS script currently active; get input from SYSSINPUT 



CONSOLE 



MOVAB L*T PROMPT2, R1 

HOVZBL (R17+, RO 

MOVQ RO, -(SP) 

PUSHAB L A DS$GT BUFFER 

MOVZWL #DS$K BOFSIZ, -(SP) 

clrl r2 " 



Br_If_Not Binary 



20$ 



10$: 



20$: 



movl 4Tsp), rO 

movb #ds$k type user pro.npt, 

(rO)" 

blbc r6, 10$ 

cmpb #4, (r7) 

bneq 10$ 

cmpl 1(r7), #*A"DS> " 

bneq 10$ 

movb 0ds$k type ds .prompt, - 

(rO) 

decl (sp) 

incl 4(sp) 

incl r2 

MOVQ R7, -(SP) 

PUSHAQ 8CSP) 

PUSHAW 12 (SP) 

PUSHAQ 24 (SP) 

CALLS #5, 3#SYS$FAO 

btbc r2, 60$ 

incl (sp) 

decl 4(sp) 



Address of edit string 
Get length of string 
Push descriptor 
Address of buffer 
Length of output buffer 
Indicator to save space 
If not BINARY, branch around 
Get address of buffer 
: Set first byte to the type code 
for general prompt 



Branch if it's not DS> 
Compare length to "DS> M 
If not, can r t be DS> 
Is it actually DS>? 
Skip if not 
Otherwise, load ... 
*.. DS prompt code 

Don't let FAO overwrite the type 

Remember that BINARY is set 

Push user prompt, info prompt 

Address of buffer descriptor 

Address to store final length 

Address of descriptor of edit string 

Edit prompt 

Branch if not BINARY 

Now include type code in string 



C07] 



C07] 

[09] 

[12] 

C09] 
[09] 
[09] 
[09] 
[09] 
[09] 
C09] 
[09] 
C09] 
[09] 

[09] 
[09] 
C09] 

[09] 



[09] 
[09] 
[09] 



2Z-ENSAA-7.0 

SCRIPT 

07-18 



F 7 
DS GETL1NE - Get program data input line 27-JUL-1984 rtn/ F j&he 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
DS GETLINE - Get program data input Line 23-MAY-1984 14:15:48 



Frame F7 Seguence 2555 
VAX-11 Macro V03-01 Page 26 
DMA1:[SYS0.SYSMAINT]SCRIPT.MAR;138(1) 







0305 


742 






0305 


743 






0305 


744 


48 00000000* EF 


E9 


0305 


745 


1F 


BB 


030C 


746 


54 6E 


9E 


030E 


747 


12 


11 


0311 


748 






0313 


749 


58 0000031 B* 01 0E0OO0' 


0313 


750 


2F 21 5D 


42 


0321 








0325 


751 


5E OA 


C2 


0325 


752 


6E 


9F 


0328 


753 


7E OA 


9A 


032A 


754 


53 6E 


99. 


032D 


755 


7E 18 B4 


9A 


0330 


756 


18 B4 


94 


0334 


757 


63 


9F 


0337 


758 


63 


9F 


0339 


759 


D5 AF 


9F 


0338 


760 


00000000' GF 04 


F8 


033E 


761 


7E 63 


7D 


0345 


762 


OOOOOOOO'EF 02 


FB 


0348 


763 


5E 64 


9E 


034F 


764 


1F 


BA 


0352 


765 






0354 


766 






0354 


767 






0354 


768 






0354 


769 






0354 


770 






0354 


771 






0354 


772 


7E 


7C 


0354 


171 


21 56 


E8 


0356 


77i> 






0359 


775 


08 AE 


7\ 


0361 


776 


00000024 , Ef 


9F 


0364 


777 


7E 01 


9A 


036A 


778 


7E 20 


98 


036D 


779 


00000000' GF 04 


FB 


0370 


780 


0192 


31 


0377 


781 



DEBUG *** 



blbc 
pushr 
movab 
brb 



L A Debug the sucker, 
# A M<rO, M, r2, rl. 
(sp), r4 
40$ 



50$ 
r4> 



30$: .ascid "Ctp=!ZBJ!/ ( 



40$: 



subl2 #10, sp 

pushab (sp) 

movzbl #10, -(sp) 

movab (sp), r3 

movzbl 324(r4), -(sp) 

ctrb S24(r4) 

pushab (r3) 

pushab (r3) 

pushab 30$ 

calls #4, G A sys$fao 

movq (r3), -(sp) 

calls #2, dsx$type_out 

movab (r4), sp 

popr #*M<rO, M. r2, r3, r4> 



50$: 



DEBUG *** 



60$: CLRQ -(SP) 

BL8S R6, 70$ 

Br If Oper 70$ 

PUSHAO 8(SP) 

L A T PROMPT3 

#DS$K printf,-(sp) 



PUSHAB 

movzbl 

cvtbl 

CALLS 

BRW 



#DS$K type script.prompt 
#4, G*DSX$PR1NT 

DS GETUNE_OKAY,X 



Skip debug stuff if flag clear 
Make debug transparent 
Save current sp 
Skip format string 

Format string 



Allocate space on stack 
Set it's address 
And it's length 
And remember it 
Final argument for FAO 
Clear it out 
Where to put length 
Address of result buffer- 
Address of format string 
FAO it 

Push address of result string 
Print it 

Restore initial stack 
Restore registers 



[99] 
[99] 
[99] 
C99] 

[123 



[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 
[99] 

[99] 



Space for IOSB 
Branch if commmand mode 
If operator present, branch around 
Address of prompt descriptor 
Edit string address 
Routine 
■(sp) ; Code. 
Type it ... 
... and exit w/null input Line 



[09] 

[12] 

[07] 
[14] 
[14] 
[14] 
C113 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



G 7 

DS GETL1NE - Get program data input line 27-JUL-1984 Fiche 13 

*** SCRIPT Read from command stream 27-JUL-1984 1 5:45:08 
DS GETLINE - Get program data input line 23-MAY-1984 14:15:48 



Frame G7 Sequence 2556 
VAX-11 Macro V03-0T Page 27 
DMA1:[SYS0.SYSMAINT]SCRIPT. MAR; 138(1) 



53 OOOOOOOO'EF 

52 OOOOOOOO'EF 

54 08 AE 

24 A2 04 AC 

20 A2 OC AC 

11 50 

0001 827A 8F 50 

05 

50 0000'8F 



0154 



02 



6E 
AE 



28 



50 22 A2 

01 

50 

A2 

50 

54 

0000003E f EF 

7^ 01 

7E 21 

00000000* 6F 06 

0109 



037A 

037A 

037A 

037A 

037A 

037A 

037A 

0382 

0382 

0382 

0382 

0382 

0382 

9E 0382 

9E 0389 

9E 0390 

DO 0394 

BO 0399 

039E 

E8 03A7 

D1 03AA 

12 03B1 

3C 03B3 

03B8 

31 03B8 

03BB 

3C 03BB 

BO 03BF 

BO 03C2 

DD 03C6 

DD 03C9 

DD 03CB 

9F 03CD 

9A 03D3 

98 03D6 

FB 03D9 

31 03E0 



783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

609 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 



Separate flow into two primary cases: 
SYSSINPUT is a file, and we are in use 
manipulate file. Otherwise, use Q10 s 



if DSSV^BATCH bit is set, then 
r mode^utilize RMS routines to 
ince it must run in standalone. 



70$: Brjf jgot_Batch 100$ 



; Branch if terminal or mailbox control [12] 



RMS 
via 



SYS$INPUT processing. Use $GET to 
$PUT (PRINT call) to SYS$OUTPUT 



80$: 
90$: 



M0VA8 

MOVAB 

MOVAB 

MOVL 

MOVW 

$GET 

BIOS 

CMPL 

BNEQ 

MOVZWL 

BRW 

MOVZWL 

MOVW 

MOVW 

PUSHL 

PUSHL 

PUSHL 

PUSHA8 

movzbl 

cvtbl 

CALLS 

BRW 



DS$RAB OUTPUT, R3 

DSSRABlJNPUT, R2 

8(SP), R4 

4(AP) f RA8$L UBFCR2) 

12<AP), RAB$Q.USZ(R2) 

(R2) 

RO, 90$ 

RO. #RMS$_EOF 

80$ 

*SS$ ENDOFFILE, RO 



DS.GETLJNEJC 



RO 



rab$w rsz(r2) 
#1, <5p) 

RO, 2(SP) 

RAB$L RBF(R2) 

RO 

R4 

L*T ECHO 

*DS5< printf,-(sp) 

#DS$K type script_echo,- 

#6, G*DSX$PR1NT 

CHECK.STATUS 



read record, and 'fake 1 echo 



Point to output RAB 
Point to input RAB 
Save pointer to prompt descriptor 
Load input buffer address 
And size of same 
Read a record 
Exit if error 

If this is end-of-file time 
:then 
::pretend it was SS end-of-file 

Exit routine 

Get size of input line 

Set success code in IOSB 

Set it into IOSB for common code 

Address of input record 

Size of input record 

Pointer to prompt descriptor 

Pointer to ASC1C control string 

routine. 

(sp) ; code 

; Output 

; Skip ahead 



[11] 



[07] 
[14] 
[14] 
[14] 
[11] 



22-EMSAA-7.0 

SCRIPT 
07-18 



DS.GETL1NE - 



04 
OC 



OOOOOOOO'FF 



51 50 



08 



10 
BC 
50 



00000000 ' ft 



H 7 

Get program data input Line 27-JUL-1984 Fiche 13 
*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
OS GETLINE - Get program data input Line 23-MAY-1984 14:15:48 
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45 11 
21 56 E9 



BC 
AC 
01 
01 
04 



10 
51 
00 1 



OC 
08 



AE 
AE 
02 
01 
04 



DF 
DD 
DD 
DD 
F8 



2E 50 E9 



EF 
DO 
DO 
04 



DD 
DD 
DD 
DD 
FB 



03E3 

03E3 

03E3 

03E3 

03E3 

03E3 

03EB 

03F3 

03FB 

03FD 

03FD 

0400 

0400 

0400 

C400 

0400 

0400 

0400 

0403 

0406 

0408 

040A 

0411 

0411 

0411 

0411 

0411 

0411 

0411 

0411 

0411 

0411 

0411 

0414 

0414 

0419 

041D 

0420 

0421 

0421 

0421 

0421 

0421 

0421 

0421 

0424 

0427 

0429 

0428 

0432 

0432 

0432 

0432 

0432 

0432 

0432 

0432 



821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 



QJO SYSSJNPUT. 
is a mailbox • 



Attempt QJO read with prompt— this will fail if SYSSINPUT 



100$: Br Jf CRD AutoTest Off 110$ 

Br"If"CRD"MenuTest"On 110$ 

Br*"]f"CRD"MenuTest;Off 110$ 
BrB TU$ 



112$: 



I f running 
If running 
If running 
Else, skip 



CRD-AutoTest, branch 
CRD-MenuTest, branch 
CRD Menu Test, branch 
all this CRD crap 



110$: BlbC R6, 112$ 



J f user prompt/ branch 



This is a DS 
where to put 



prompt (i.e., 
the returned 



"DS> ">. 

string as 



Push the address and length of 
parameters 4 and 3. 



PushAL 

PushL 

PushL 

PushL 

CalLS 



34 (AP) 
12 (AP) 



#DS$K Type DS Prompt 
#CRD$R TypeCoSe 



Push address of string as param-4 
Push length of string as param-3 
Push typecode as param-2 
Push type of call as param-1 



#4, 3L*DS$GA„CRD..DSJnterface ; And call the routine! 



It the routine returns: 

Success => return the string that this routine returned. 

(High word of RO = length of the returned string). 

Failure => do the Q10 and return that string. 
Note the the Length of the returned string is stored in the high word 
of R0, Thus, the Extract-Zero-Extended-Field instruction below. 



BLbC RO, 114$ 



ExtZV 
MovL 
MovL 
Ret 



#16, #16, RO, R1 
R1, 38 :ap> 
S A #SS$ Normal, RO 



Do the 010 if the routine fails 

Return the length of the string ... 
... in both R1 and the 2nd parameter 
Return success 
Return to the DS caller 



This is a user prompt. Push the address and length of the user's 
prompt as parameters 4 and 3. 



PushL 
PushL 
PushL 
PushL 
CalLS 



12 (SP) 

8 (SP) 

#DS$K Type User Prompt 

#CRD$R TypeCode , .-« 

#4, 3L*DS$GA_CRD_DSJnterface 



Push address of prompt as param-4 
Push length of prompt as param-3 
Push typecode as param-2 
Push type of call as param-1 
; And call the routine! 



If the routine returns: 

Success -> return the string that this routine returned. 

(High word of R0 = length of the returned string). 

Failure => do the QI0 and return that string. 
Note the the length of the returned string is stored in the high word 
of R0. Thus, the Extrac t-Zero-Extended-Field instruction below. 



[163 
[163 
[163 
[153 

[153 



[153 
C15J 



[153 
[15] 
C15D 
[153 
[153 



[153 
[153 
[153 
[153 
[153 
[153 



[153 

[153 
[153 
[153 
[153 



[153 
[153 



[153 
[153 
[153 
[153 
[153 



[153 

[153 

[15 

[15 , 

[153 

[15] 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



I 7 
DS„GETL1NE - Get program data input line 27-JUL-1984 ^^jche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
DS GETLINE - Get program data input tine 23-MAY-1984 14:15:48 
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0432 


878 






0432 


879 


OD 50 


b'9 


0432 


880 






0435 


881 


1 50 10 10 


EF 


0435 


882 


08 BC 51 


00 


043A 


883 


50 00* 


00 


043E 


884 




04 


0441 


885 






0442 


886 


50 6E 


7E 


0442 


887 






0445 


888 


OOOOOOCS'EF 01 


88 


0440 


889 






0454 


890 






0454 


891 






C454 


892 






0454 


893 






0454 


894 






0454 


895 






0454 


896 






0454 


897 






0454 


898 






0454 


899 






0479 


900 


O000O0C8'EF 


94 


0479 


901 


50 0000'8F 


81 


047F 


902 


03 


13 


0484 


903 


0063 


31 


0486 


904 



BlbC 

ExtZV 
MovL 
MovL 
Ret 



RO, 114$ 

*16, #16, RO, R1 
R1, 38 (AP) 
S A 0SS$ Normal, RO 



114$: MOVAQ <SP>, RO 

Br If Not User 115$ 
BlSB " #T, DS$GB_QJOACT 



115$: $QJ0W,S 



118$: 



CLR8 
CMPW 
BEOL 
BRW 



L A DS$GW TTIN, - 
S**J0$ READPROMPT, 
(RO), = 

pi=a4(AP), - 

P2=12(AP), - 

P5=12(R0), - 
P6=8(R0) 

DS$GB QIOACT 

#SS$ ILLIOFUNC, RO 

120$" 

CHECK STATUS 



; Do the 010 if the routine fails [153 

; Return the length of the string ... [15] 

; ... in both R1 and the 2nd parameter [153 

; Return success [153 

; Return to the DS caller [153 

; Point to allocated JOSB [153 

; Skip next if not user mode [123 

; Set input GIO active [153 

No efn C073 

Channel number 

Function code 

IOSB 

No ASTadr or ASTprm 

Buffe address 

Buffer size 

Prompt buffer address 

Prompt buffer size 

Clear QIO active 

Did readprompt fail? 

Yes try w/ prompt 

Branch to check the status [113 



ZZ-ENSAA-7.0 


DSJ3ETUNE - Get 


: pro 


gram data if 


SCRIPT 




*** 


SCRIPT 


Read 


07-18 




OS.GETLINE 


- Ge 








0489 


906 








0489 


907 








0489 


908 








0489 


909 




50 6E 


7E 


0489 
048C 
048C 
048C 
048C 
048C 
048C 
048C 


910 
911 
912 
913 
914 
915 
916 
917 




5f 50 


E9 


04AD 


918 




5C 6E 


E9 


04BO 


919 




50 6E 


7E 


04B3 
04B6 


920 
921 




00OO00C8'EF 01 


88 


04BE 
04C5 
04C5 
04C5 
04C5 
04C5 
04C5 
04C5 


922 
923 
924 
925 
926 
927 
928 
929 




0OOO0OC8'EF 


94 


04E6 
04EC 
04EC 
04EC 
04EC 


930 
931 
932 
933 
934 



J 7 

input tine 27-JUL-1984 Fiche 13 
from command stream 27-JUL-1984 15:45:08 
program data input line 23-MAY-1984 14:15:48 
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Mail box read: Fake "read with prompt" function via write followed by read, 



120$: M0VAQ (SP), R0 

SQIOW..S , - 

L A DS$GW TTOUT, - 
S**J0$ DRITEVBLK, 
<R0), - 
P1=ai2<R0>, - 
P2=8(R0) 
BL8C RO, DS GETLJNE X 
BLBC (SP), 5S.GETLlRE w X 
MOVAQ (SP), RQ 
Br Jf^Not User 130$ 
BlSB #T, DS$GB_QIOACT 



130$: $QJOW S 



CLRB 



L A DS$GW TT1N, - 
S A *IO$J?EADVBLK, 
(RO), - 
P1=94(AP), - 
P2=12(AP) 
DS$GB QJOACT 



Fall into the common completion part. 



Current stack level 

No efn 

Channel number 

Function code 

IOSB 

Prompt buffer address 

Prompt buffer size 

Finish if error on prompt 

Finish if error on prompt 

Current stack level 

Skip if not usermode 

Flag input QIO active 

No efn 

Channel number 

Function code 

IOSB 

Buffer address 

Buffer size 

Flag input QIO inactive 



[073 
HI] 

cm 

C1 13 

[111 
C113 

t11] 
[11] 

[123 



E07D 
[113 
[113 
[113 
[113 
[113 



[113 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



K 7 

DS GETL1NE - Get program data input Line 27-JUL-1984 _ Fjche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
DS GETLINE - Get program data input line 23-MAY-1984 14:15:48 
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04 AF 







04EC 


936 






04EC 


937 






04EC 


938 






04EC 


939 






04EC 


940 






04EC 


941 


20 50 


E9 


04EC 


942 


1D 6E 


E9 


04EF 


943 






04F2 


944 


50 0000'8F 


3C 


04F2 


945 


0001001A 8F 


D1 


04F7 


946 


OE 


13 


04FF 


94? 






0501 


948 


54 02 AE 


3C 


0501 


9<9 


55 04 AC 


DO 


C505 


950 


OOOC 


30 


0509 


951 






050C 


952 






050C 


953 






050C 


954 






050C 


955 






050C 


956 






050C 


957 


50 00* 


DO 


050C 


958 






050F 


959 






050F 


960 


51 02 AE 


3C 


050F 


961 


08 BC 51 


DO 


0513 


962 




04 


0517 


963 



Common completion section, joined from RMS section and both OIO sections 
via branch* Check status and translate output. 



CHECK STATUS: 
" BLBC 
BL8C 

MOVZWL 

CMPL 

BEQL 

MOVZWL 

MOVL 

BSBW 



RO, DS GETLINE X 

(SP), Bs_getliRe_x 

#SS$ ENDOFFJLE, RO 
* A X1001A, 4(SP) 
DSJiETLINEJl 

2(SP), R4 

4(AP), R5 
COPY IT 



RETURN I? QIO FAILED 
Return if QJO failed 

ASSUME END OF FILE 
SINGLE CHARACTER TERM= A Z? 
Exit with EOF 

GET STRING LENGTH 
Address of input string 
Copy and translate 



[11] 

C11] 
[11] 



cm 



Here if no error 



DSJiETLJNE OKAY..X: 

MOSL S A *SS$_NORMAL, RO 

DS_GETLINE X: 

MOtfZWL 2(SP) t R1 
MOVL R1, 8>8<AP) 
RET 



Return success! 



Return the string length ... 
... in both places 
Return to caller 



C11D 



tin 

[11] 

en: 



Z7-ENSAA-7.0 

SCRIPT 

07-18 



C0PY_IT - Copy and translate 

*** SCRIPT Read from command 
COPY IT - Copy and translate 



L 7 
27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 
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0518 
00000518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
C518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 



965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 



.S8TTL COPY IT - Copy and translate 
.PSECT CodeT Shr, Exe, NoWrt, Byte 

FUNCTIONAL DESCRIPTION: 

This routine is used to copy a line to the user buffer 
It translates lower case alpha's to upper case. 

CALLING SEQUENCE: 

BSBW COPY J T 
INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

R4 Length of string to be copied 

R5 Address of string to be copied 

4(AP) Address of user buffer 

8(AP) Address to store length of line returned 

12(AP) Length of user buf'er 

OUTPUT PARAMETERS: 

NONE 

IMPLICIT OUTPUTS: 

4(AP) buffer written 

a8(AP) written with length of buffer 

SIDE EFFECTS: 

NONE 

COMPLETION CODES: 

NONE 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



COPY^IT - Copy and translate 

*** SCRIPT Read from command 
COPY IT - Copy and translate 



M 7 

27-JUI-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 



04 











0518 


1007 


0C 


AC 


54 


D1 


0518 


1008 






04 


15 


051C 


1009 


54 


OC 


AC 


DO 


051E 
0522 


1010 
1011 


08 


BC 


54 


DO 


0522 


1C12 


50 


04 


AC 


DO 


0526 


1013 






OC 


11 


052A 


1014 




80 


85 


90 


052C 


1015 


FF 


AO 


06 


E1 


052F 


1016 


FF 


AO 


20 


8A 


0534 


1017 




F1 


54 


F4 


0538 


1018 



COPY J T: 



10$ 



20$: 



30$: 



05 053B 1019 



CMPL 
BLEQ 
MOVL 

MOVl 

MOVL 

BR8 

MOVB 

BBC 

BICB2 

SOBGEQ 

RSB 



Frame M7 Seguence 2562 
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R4, 12(AP) 
10$ 
12(AP), R4 

R4, 38(AP) 
4(AP), RO 
30$ 

(R5)+, (R0)+ 
#6. -1(R0), 
*52, -KRO) 
R4, 20$ 



30$ 



; Is buffer large enough? 
; Branch if it is 
; Shorten record 

Store length of record 
Get address of buffer 
Start with count of length 
Copy a byte 
Branch if not alpha 
force it to upper case 
Count and branch 
Return to caller 



ZZ-ENSAA-7.0 

SCRIPT 

07-18 



N 7 

ADVANCE - Advance to next record in buff 27-JUL-1984 _ Fiche 13 

*** SCRIPT Read from command stream 27-JUL-1984 15:45:08 
ADVANCE - Advance to next record in buff 23-MAY-1984 14:15:48 
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053C 
0O00O53C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
C53C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
053C 
0S3C 
053C 
053C 
053C 



1021 

1022 

1023 

1024 

1025 

1C26 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1C36 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

104L 

1049 

1050 

1051 

1052 

7053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 



.S8TTL ADVANCE - Advance to next record in buffer 
.PSECT Code, Shr, Exe, NoWrt, Byte 
++ 
FUNCTIONAL DESCRIPTION: 

Simulate the RMS $GET routine, deblocking records from disk blocks. 
Note that .SC$W CUR(R11) + SC$A BUF<R11) is address of current record 
Also .SC$W LEN(R11) is length oT that record. 

If length Ts negative the same record is to be used again and length 
is the complement of the record length. 

CALLING SEQUENCE: 

BSBB ADVANCE 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 



Offset to current record 
Length of current record 
Length of current record 
Address of current record 



IMPLICIT OUTPUTS: 

SC$W CURR 

SCSWlLEN 

R4 

R5 

COMPLETION CODES: 

SS$ NORMAL 
SS$_END0FFILE 

SIDE EFFECTS: 

THE CURRENT SCRIPT DESCRIPTOR IS UPDA TC D. 

REGISTER USAGE: 

R11 As s> lined co contain the base for the current script block 
R5 Current offset within buffer 
R4 Length of current record 



ZZ-ENSAA-7.0 

SCRIPT 

U7-18 



B 8 

ADVANCE - Advance to next record in buff 27-JUL-1984 Fiche 13_ 

**« SCRIPT Read from command stream 27-JUL-1984 15:45:08 
ADVANCE - Advance to next record in butf 23-MAY-1984 14:15:48 
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54 



55 



50 









053C 


1071 


55 


OC AB 


32 


053C 


1072 


54 


OA AB 


32 


0540 


1073 




1? 


19 


0544 
0546 


1074 

1075 




55 54 


CO 


0546 


1C76 


55 


QE AB 


81 


0549 


1077 




21 


15 


054D 


1078 




10 AB45 


9A 


054F 


1079 




55 


D6 


0554 


1080 




03 


11 


0556 
0558 


1081 
1082 




54 54 


D2 


0558 
0558 


1083 
1084 


Or 


A8 55 


BO 


C55B 


1085 


or 


AB 55 


BO 


055F 


1086 


0A 


AB 54 


BO 


0563 


1087 




10 AB45 


9E 


0567 


1088 




50 00' 


DO 


056C 


1089 






05 


056F 

0570 


1090 
:C91 




fC15 


30 


0570 


1092 




UOOO^F 


3C 


0573 


1093 






05 


0578 
0579 


1094 
1095 



ADVANCE 



60$: 
705; 



CVTWL SCSW CURR(A11), R5 

CVTWL SC$W LENCR11), R4 

BLSS 60$ ~ 

ADD! R4 f R5 

CMPW SC$W_END(R11), R5 

BLEQ 80$ 

M0V78L SC$A 8UF (R1 1) CR5J, R4 

INCL R5 " 

BRB 70$ 

MCOML R4, R4 



80$; 



MOVW 

MOVW 

MOVW 

M0VA8 

MOVL 

RS8 

BS8W 
M0V7WL 
RS8 
.END 



R5, SC$W CURR(R11) 
R5, SC$W~CURR(R11) 
R4, SC$WlLEN(R1l) 
SC$A 8UF7R1DCR5J, 
S A tfS$$ NORMAL, RO 



SCR]PT$FINISH 
#SS$ ENDOFFILE, RO 



R5 



Get current offset 
Get negated length 
Branch if record should 



be used again 



Skip previous record 
Past end of data? 
Branch if end of file 
Get length of next record 
Point to data 
Branch to finish 

Fix length 

Put current offset back 
Put current offset back 
Set current length 
Absolute address of line 
It worked! 



; Remove current script file 
; Indicate the end 
; Return 



ZZ-ENSAA-7.0 Symbol table 






SCRIPT 


*** SCRIPT Read fr 


Symbol table 






SS.TAB 


= 0000007C R 


D 03 


SS.T ABEND 


r OO0000CO R 


D 03 


SS.TMP 


= 00000000 


D 


SS.TMP1 


= 00000001 


D 


SS.TMP2 


= 00000062 




SST1 


= 00000001 


D 


$ER 


= 00000001 


D 


SMODULE 


00000000 R 


D 02 


ADVANCE 


0000053C R 


D 04 


BEGIN 


******** 


X 00 


BIT.., 


= 00000003 


D 


CHECK STATUS 


000004EC R 


D 04 


clisk~bufsiz 


= 00000100 


D 


CLISOIZE 


00000444 


D 


CllSL ADDRESS 


0000C018 


D 


CLISL'COMMAND 


00000004 


D 


CLlSLlDATA 


0000001 C 


D 


CLISL FLAGS 


00000000 


D 


CLISL~LAST 


00000024 


D 


UISL.NEXT 


00000030 


D 


CLISL.PASS 


0000002C 


D 


CLlSL SUBT 


00000028 


D 


CLISL.TEST 


00000020 


D 


CLISQ BUFQWD 


00000034 


D 


CLlSCfFILE 


00000008 


D 


CLISQ SECTION 


00000010 


D 


CLlSCfTIME 


0000043C 


D 


CLltT'BUFFER 


0000003C 


D 


CLISV~ADAPTER 


= 00000018 


D 


CLISV'ADR 


= 0000000B 


D 


CLISV"ASCII 


= 00000013 


D 


CLISV~BREAK 


= 0000000A 


D 


CLISV~BRIEF 


= 0000001B 


D 


CLISV'BYTE 


= 0000000D 


D 


CLlSV~CLEAR 


= 00000002 


D 


CLlSVlDEC 


= 00000010 


D 


CLISV DEFAULT 


= OOOOOOOC 


D 


CL1SV~DEP0SIT 


= 00000019 


D 


CLISVEVENT 


= 00000008 


D 


CLlSVlEXAM 


= 00000005 


D 


CLISV FLAGS 


= 00000009 


D 


CLlSVlHEX 


= 00000012 


D 


CLI$V KERNEL 


= 00000017 


D 


CLISV'LOAD 


= 00000006 


D 


CLISV^LONG 


= OOOOOOOF 


D 


CLISV NOTNUF 


= 00000001 


D 


CLISVIOCT 


= 00000011 


D 


CLISV PREG 


= 0000001 A 


D 


CLISV'QA 


= 00000007 


D 


CLlSV~QACKLOOPLOOPS 


= 0000001 C 


D 


CLlSV~QAERRORPRINTS 


= 00000018 


D 


CLISV'QAMULTIPLEPASS 


= 0000001F 


D 


CLISV'OASUBTESTLOOPS 


= 0000001 E 


D 


CLISV'QATESTLOOPS 


= 0000001 D 


D 


CLlSVlREG 


= 00000014 


D 


CLISV REQUIRED 


= 00000000 


D 


CLlSVlRUN 


= 000000'\5 


D 



c 8 . 

27-JUL-1984 Fiche 13 

command stream 27-JUL-1984 15:45:08 

23-MAY-1984 14:15:48 



CLISV.SET 
CLISV SHOW 
CLJSV~VALSEC 
CLISV WORD 
COMMOfl 
CONSOLE 
COPY IT 

crdsk crd initialization 
crdsk~ds Control c 
crdsk~ds~flags 

CRDSK.FAlLURE 

CRDSK. HOOK POINT 

CRDSK LAST'ACCESS CODE 

CRDSK~LAST~DS VARIABLE 

CRDSK'LAST'KURCTION 

CRD$KlLAST"HOOK POINT 

CRDSK READ" 

CRDSK. SUCCESS 

CRDSK TYPECODE 

CRDSK.WRI TE 

DEBUG THE.SUCKER 

DSSA85RT 

DSSCLI 

DSSGA..CRD DSJNTERFACE 

DSSGB.QIOSCT 

DSSGL.CLIBASE 

DSSGL. FLAGS 

DSSGT^BUFFER 

DSSGW TTIN 

DSSGW'TTOUT 

DSSKjUFSIZ 

DSSK.ERROR 

DSSK NORMAL 

DSSKJ>R1NTB 

DSSK PRINTF 

DSSK'PRINTI 

DS$K"PR!NTX 

DSSKlSEVERE 

DSSK.SU8SYS 

DSSK TYPE.ABGRT^PROGRAM 

DSSK TYPE ABORT TEST 

DSSK~TYPE~COMMAflD ERR 

DS$OYPE7C0MMAND"0UT 

DSSK. TYPE CRD AUTOTEST 

DSSK TYPE'DS PROMPT 

DSSK~TYPE~DS~START 

DSSK~TYPE~ERRDEV 

DSSK'TYPE'CRRHARD 

DSSK~TYPE~ERROR BODY 

DSSK~1YPE"ERR0R~END 

DSSK'TYPE ERRPRfP 

DS$K~TYPE~ERRSOFT 

DSSK~TYPE~ERRSUP 

DSSK"TYPE"lRRSYS 

DS$K"TYPE"ERR HALT 

DSSK~TYPE~EXCF?TION 

DSSK'TYPE'EXCEPTION HEAD 
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00000003 


D 




00000004 


D 




00000016 


D 




OOOOOOOE 


D 




000001B8 


R D 


04 


000002A5 


R D 


04 


00000518 R D 


04 


00000000 


G D 




00000001 


G D 




00000000 


G D 




00000000 


D 




00000000 


G D 




00000002 


G D 




00000002 


G D 




00000002 


G D 




00000001 


G D 




00000000 


G D 




00000001 


D 




00000001 


G D 




00000001 


G D 




******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


000000C8 RG D 


03 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******* * 


X 


00 


00000002 


D 




00000001 


D 




00000002 


D 




00000001 


D 




00000000 


D 




00000003 


D 




00000004 


D 




00000066 


D 




00000014 


D 




00000013 


D 




00000015 


D 




00000016 


D 




0000001 A 


D 




00000001 


D 




0000001 D 


D 




00000008 


D 




00000006 


D 




00000009 


D 




OOOOOOOA 


D 




0000001 B 


D 




00000007 


D 




00000004 


D 




00000005 


D 




OOOOOOOD 


D 




OOOOOOOC 


D 




OOOOOOOB 


D 
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*** SCRIPT Read from command 



D 8 
27-JUL-1984 Ffche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 



Frame D8 Sequence 2566 
VAX-11 Macro V03-01 Page 37 
D«A1:CSYS0.SYSMAINT]SCRIPT. MAR; 138(1) 



dssk type first pass 
ds$k~type~generSl 
ds$k~type~general error 
dssk"type"no tests 

DSSK'TYPE'PARaM ERROR 

ds$k~type~progrAm END 
ds$k~typeIprogram~info 

DSSkfTYPE PROGRAM" START 
DS$K~TYPE~QIO INVflDP 
DS$K~TYPE~QIO~NODRIVER 
DS$K~TYPE"QIO~WRONGVER 

dssk"type~scrTpt ECHO 

ds$k"type"script"pnf 

dssk"type"script>r0mpt 

ds$k"type~script"skip 

dssk"type"sequence error 

ds$k~type~startjrR 

dsskftype start list 

ds$k~type~summaRy 

dssk~type~user_prompt 

ds$k~warnTng 

dsslDad 

dssm abrtflg 

ds$m~badtime 

ds$m"batch 

dssm~brkclr 

ds$m"brkpt 

ds$m~charflg 

dssm'cmdflg 

ds$m~ctrlc 

dssm'ctrlo 

dssm'devflg 

ds$m~disablcc 

DSSMlDONFLG 

0S$M ERRFLG 

DSSM'EXCEPT 

DSSMlEXETST 

DS$M HLTFLG 

OSSM'LODFLG 

OS$M"MEMMGT 

DSSM'OUTPUT 

OSSM'RUBFLG 

DSSM"SCRIPT 

DS$M"SETIMR 

OSSM'STRFLG 

DS$M~SUBT 

DSSM'SYSFLG 

DSSM'TIMRON 

DS$R*B INPUT 

DSSRAB'OUTPUT 

DS$V ABRTFLG 

DSSV'BADTIME 

DSSV'BATCH 

PS$V"BRKCLR 

DS$V~BRKPT 

DS$V~CHARFLG 

OSSV'CMDFLG 



0000OO11 





00000000 


D 


00000003 


D 


00000012 


D 


0000001 c 


D 


00000010 





00000017 





O000OO0F 


D 


00000024 


D 


00000022 


D 


00000023 


D 


00000021 





0000001 E 


D 


00000020 


D 


0000001 F 


D 


00000019 


D 


00000018 


D 


00000025 


D 


OOOOOOOE 


D 


00000002 


D 


00000000 


D 


******** 


X 00 


00000040 


D 


00100000 





00400000 


D 


00001000 


D 


00000800 


D 


00000100 


D 


00000080 


D 


00000001 





00010000 





00000200 


D 


01000000 


D 


00002000 


D 


00000010 


D 


00080000 





00040000 


D 


00000008 


D 


00000002 


D 


00008000 


D 


00800000 


D 


00000020 


D 


00200000 


D 


02000000 


D 


00000004 


D 


00004000 


D 


00000400 


D 


00020000 


D 


******** 


X 00 


******** 


X 00 


00000006 


D 


00000014 





00000016 


D 


OO0OOO0C 


D 


O000O00B 





00000008 


D 


00000007 


D 



DS$V_CTRLC 

DS$V_CTRL0 

DSSV.0EVFL6 

DS$VJ)ISABLCC 

DS$V DONFLG 

DS$V^ERRFL(i 

DS$V EXCEPT 

DSSV~EXETST 

DSSV.HLTFLG 

DSSV.LODFLG 

DS$V MEMMGT 

DSSVlOUTPUT 

DS$V RUBFLG 

DSSVlSCRIPT 

DSSV.SETIMR 

DSSV.STRFLG 

DS$V_SUBT 

DS$V.SYSFLG 

DS$V TIMRON 

DS$ ARITH 

DS$~ASBE 

ds$;badlink 
ds$ baotype 

DS$""BIIC 

OS$ICHME 

DS$ CHMK 

DS$"DEVNAME 

DS$~ERR0R 

DS$IFHWE 

DS$ FRA6BUF 

DSS'ICBUSY 

DS$~!CERR 

DS$"1HWE 

DS$"ILLCHAR 

DS$~ILLPAGCNT 

DS$~ILLUNIT 

DS$"INSFMEM 

DS$ IPL2HI 

DS$~IVADDR 

DS$~1VVECT 

DS$~KRNLSTK 

DS$IL0GIC 

DS$ MCHK 

DSS'MMOFF 

DS$lNEEDUNIT 

DSS.NODE 

DS$ NOPCS 

DS$~N0RMAL 

DS$~N0SUPP0RT 

DS$"N0TD0N 

OSS'NOTIMP 

DSSINULLSTR 

DS$ OVERFLOW 

DS$"P0WER 

DS$lPR0GERR 

OSS SEVERE 

OS$"TRANSL 



00000000 


D 


00000010 


D 


00000009 


D 


00000018 


D 


OOOOOOOD 


D 


00000004 


D 


00000013 


D 


00000012 


D 


00000003 


D 


00000001 


D 


OOOOOOOF 


D 


00000017 


D 


00000005 


D 


00000015 


D 


00000019 


D 


00000002 


D 


OOOOOOOE 





OOOOOOOA 


D 


00000011 


D 


006600D0 


D 


00660118 


D 


006600F0 


D 


006600E8 


D 


00660120 


D 


006600A8 


D 


006600EO 


D 


00660108 


D 


00660002 


D 


00660068 


D 


00660080 


D 


006600C8 


D 


006600CO 


D 


00660060 


D 


00660018 


D 


00660078 


D 


00660100 


D 


00660050 





006600B8 


D 


00660040 


D 


00660038 


D 


00660090 


D 


00660070 


D 


00660088 


D 


00660058 


D 


006600F8 


D 


00660128 


D 


00660110 


D 


00660001 


D 


006600B1 


D 


00660030 


D 


006600B0 


D 


00660010 


D 


00660008 


D 


00660098 


D 


00660020 


D 


00660004 


D 


006600AO 


D 
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*** SCRIPT Read from command 



E 8 . 

27-JUL-1984 Fiche 13 

stream 27-JUL-1984 15:45:08 

23-MAY-1984 14:15:48 
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DSS TRUNCATE 
DSfUNEXPlNT 
DS$~VASFULL 
DSS'WARNING 
DSAfAL APTMAIL 

dsasat'apttxt 

dsa$glj\ptcom 

dsasgl devlen 

dsa$gl~errno 

osa$gl;event 

dsasgl flags 

dsa$gl"msgtyp 

dsa$gl~passes 

)sa$gl~passno 

dsa$gl"sectno 

dsa$gl~sid 

dsa$gl~subtno 

dsa$gl~testno 

dsa$gl~units 

dsa$gq"msgptr 

dsa$gt*devnam 

dsasv Binary 

dsa$v"crd autotest_0ff 

dsa$v""crd~menutest_off 

dsa$v~crd"*menutest_on 

dsa$v"oper 

DSA$V~QA 

DSA$V~USER 

DSASV'VERIFY 

DSR$C0MPLETION 

DSX$PRINT 

OSXSTYPE OUT 

DS ERRSUP 

DS~GETLINE 

DS~GETl INEJ)KAYJ( 

DS~GETLINE X 

DS'SUPERLlRE 

EXPSALONONPAGED 

EXE$DEANONPAGED 

FAB$B DNS 

FABSB'FNS 

FAB$C~BID 

FAB$C~BLN 

FAB$C SEQ 

FAB$C~VAR 

FABSL'ALQ 

FAB$L"DNA 

FABSllFNA 

FAB$L fOP 

FABSVCHAN.MODE 

FAB$V~FILE MODE 

FAB$V~LNM flODE 

FAB$W~GBC~ 

FALSE" 

INIT CONTEXT 

10$ READPROMPT 

I0$"READVBLK 



00660028 
006600D8 
00660048 
00660000 
0000FE00 
0000FA00 
0000FE04 
0000FE58 
000OFE44 
0000FE48 
0000FE00 
0000FE40 
0000FE08 
0000FE54 
0000FE10 
0000FEK 
O00OFE4C 
0000FE50 
0000FE0C 
0000FE68 
0000FE5C 
OOOOOOOi 
OOOOOOOB 
00000010 
00000012 
OOOOOOOC 
OOOOOOOF 
0000001 C 
00000009 

******** 
******** 

******** 
******** 

000001B4 
0000050C 
0000050F 

000001AD 
******** 
******** 

00000035 
00000034 
00000003 
00000050 
00000000 
00000002 
00000010 
00000030 
0000002C 
00000004 
00000002 
00000004 
00000000 
00000048 
00000000 
******** 
******** 
******** 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 



00 
00 
00 
00 



00 

00 



RG D 04 

R D 04 

R D 04 

RG D 04 

X 

X 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

X 

X 

X 



00 
00 

00 



10$ WRITEVBLK 

L FCAGS 

L LINK 

OFF 

ON 

PRINT LINE 

GI0$C[EANUP 

RAB$B RAC 

RAB$C"BID 

RA8$C~BLN 

RAB$C"SEQ 

RABSL CTX 

RAB$L"RBF 

RA8$L ROP 

RAB$L*"UBF 

RAB$W~RSZ 

RA8$W"U$Z 

RMS$JOF 

SC$A_BUF 

SC$C.BLN 

SC$L„LINK 

SC$W CURR 

SC$WJND 

SC$W,LEN 

SC$W SIZE 

SCANlCOMPARE 

5CAN$SPACES 

SCRIPT$C0NT 

SCRIPT$FINISH 

SCRIPT$FLUSH 

SCRIPTSINIT 

SCRIPT$«INCORE 

SCRIPT$0PEN 

SCRIPT$OPEN X 

SCRIPT$STOP" 

SCRIPT FAB 

SCRIPT"RAB 

SCRIPT'XAB 

SJZ..." 

SS$_C0NTR0LC 

SS$„END0FFILE 

SS$_ILL10FUNC 

SS$ NORMAL 

SYSJCLOSE 

SYS$C0NNECT 

SYS$DISC0NNECT 

SYS$FAO 

SYSSGET 

SYSSHIBER 

SYS$OPEN 

SYSSQ10 

SYS$QIOW 

SY$$READEF 

SYSSWAKE 

TRUE 

T DEF COM 

TECHO 



******** 


X 


00 


0OOOOOC4 


R D 


03 


ooooooco 


R D 


03 


00000000 


D 




00000001 


D 




00000284 


R D 


04 


******** 


X 


00 


0000001 E 


D 




00000001 







00000044 


D 




00000000 


D 




00000018 


D 




00000028 


D 




00000004 


D 




00000024 


D 




00000022 


D 




00000020 


D 




0001 827A 


D 




00000010 


D 




00000010 


D 




00000000 


D 




OOOOOOOC 


D 




OOOOOOOE 


D 




OOOOOOOA 


D 




00000008 


D 




******** 


X 


00 


******** 


X 


00 


00000175 


RG D 


04 


00000188 


R D 


04 


00000151 


RG D 


04 


00000000 


RG D 


04 


00000400 


G D 




OOOOOOOA 


RG D 


04 


000001 4B 


R D 


04 


000001 6C 


RG D 


04 


0000002C 


R D 


03 


0000007C 


R D 


03 


00000000 


R D 


03 


00000001 







******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


X 


00 


******** 


G 


04 


******** 


G 


04 


******** 


G 


04 


******** 


X 


00 


******** 


G 


04 


******** 


X 


00 


******** 


G 


04 


******** 


X 


00 


******** 


GX 


00 


******** 


X 


00 


******** 


X 


00 


00000001 







00000007 


R D 


02 


0000003E 


R D 


02 
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T.EOF 

T NULL 

T_PNF 

T PROMPT 

TPR0MPT2 

TPROMPT3 

T"SKIP 

V~ECHOED 

X^BSC FHC 

XAB$C~FHCLEN 

XABSLJBK 

XABSLJIXT 

XAB$W FFB 



Symbol table 



*** SCRIPT Read from command 
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O000OO0C R 


D 


02 


00000008 R 


D 


02 


00000047 R 


D 


02 


00000014 R 


D 


02 


0000001 D R 


D 


02 


00000024 R 


D 


02 


0000002A R 


D 


02 


00000001 


D 




0000001 D 


D 




0000002C 


D 




00000010 


D 




00000004 







00000014 


D 





PSECT name 

. ABS . 

$ABS$ 

DATA 

WORK 

CODE 



+ . + 

! Psect synopsis ! 
+ —.-+ 

Allocation PSECT No. Attributes 

00000000 ( 0.) 00 ( 0.) NOPIC USR 

OOOOFE70 (65136.) 01 ( 1.) NOPIC USR 

0000006A ( 106.) 02 ( 2.) NOPIC USR 

O000OOC9 ( 201.) 03 < 3.) NOPIC USR 

00000579 ( 1401.) 04 ( 4.) NOPIC USR 



CON 


ABS 


CON 


ABS 


CON 


REL 


CON 


REL 


CON 


REL 



LCL NOSHR NOEXE NORD 

LCL NOSHR EXE RD 

LCL SHR NOEXE RD 

LCL NOSHR NOEXE RD 

LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC BYTE 

WRT NOVEC LONG 

NOWRT NOVEC BYTE 
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*** SCRIPT Read from command 



r ft 
27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 
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SYMBOL 



SS.iAB 
SS.TABcND 
$$,TMP 
SS.TMP1 

$$.TMP2 

S$T1 

$ER 

SMODULE 

ADVANCE 

BEGIN 

BIT... 

CHECK STATUS 

CLISK'BUFSIZ 

CUSlTSlZE 

CLISL "ADDRESS 

CL I SL" COMMAND 

CLlSLlDATA 

CLItL FLAGS 

CLI$L""LAST 

CLI$L"NEXT 

CLI$L"PASS 

CLI$L"SUBT 

CLISL'TEST 

CLlSCfBUFQWD 

CLISQ'FILE 

CLISCf SECTION 

CLJ$Q~TIME 

CLI$rBUFFER 

CLISV ADAPTER 

CLISV'ADR 

CL ISVIASCI I 

CLISV.BREAK 

CLI$V BRIEF 

CLISVIBYTE 

CLI$V_CLEAR 

CLISV DEC 

CLI$V"DEFAULT 

CLISVDEPOSIT 

CLISV'EVENT 

CLI$V"EXAM 

CH$V~FLAGS 

CLISV.HEX 

CL!$V_KERNEL 

CLI$V LOAD 

CLI$V.LONG 

CLI$V NOTNUF 

ClI$V~OCT 

CLI$V"PREG 





! Symbol Cross Reference ! 


197 


(1) 


198 


(1) 




VALUE 


DEFINITE 


J REFERENCES... 
196 (1) 


=0000007C-R 


198 (1) 


=000000C0-R 


198 (1) 


196 


(1) 


197 


(1) 


198 


(1) 




=00000000 


198 n) 


197 


(1) 


198 


(1) 








=00000001 


801 (1) 


339 
395 


(1) 
(1) 


370 
801 


(1) 

(1) 


379 


(1) 


393 (1) 


=00000062 


801 (1) 


339 
395 


(1) 

(1) 


370 
801 


(1) 
(1) 


379 


(1) 


393 (1) 


=00000001 


929 (1) 


899 


(1) 


917 


(1) 


929 


(1) 




=00000001 


165 C1J 
















00000000-R 


165 <1J 
















0000053C-R 


1071 <1) 


#-637 


(1) 












00000000-XR 




134 


(1) 


423 


(1) 








=00000003 


158 (U 


149 


(1) 


150 


(1) 


157 


(1) 


158 (1) 


000004EC-R 


941 <1J 


#-819 


(1) 


#-904 


(1) 








=00000100 


151 (i; 


151 


(1) 












00000444 


151 (i; 
















00000018 


151 (i: 
















00000004 


151 (1, 
















0000001 C 


151 (1, 
















00000000 


151 <i; 
















00000024 


151 (1. 
















00000030 


151 (1, 
















0000002C 


151 (1. 
















00000028 


151 (1. 
















00000020 


151 (1. 
















00000034 


151 (1. 
















00000008 


151 (1. 


> #-323 


(1) 


#-325 


(1) 








00000010 


151 (1. 
















0000043C 


151 (1. 
















0000003C 


151 (1 
















=00000018 


151 (1 
















=00000008 


151 (1. 
















=00000013 


151 (1 
















=0000O0OA 


151 (1 
















=0000001B 


151 (1 
















=0000000D 


151 (1 
















=00000002 


151 (1 
















=00000010 


151 (1 
















=0000000C 


151 (1 
















=00000019 


151 (1 
















=00000008 


151 (1 
















=00000005 


151 (1 
















=00000009 


151 (1 
















=00000012 


151 (1 
















=00000017 


151 (1 
















=00000006 


151 (1 
















=0000000F 


151 (1 
















=00000001 


151 (1 
















=00000011 


151 (1 
















=0000001A 


151 (1 

















ZZ-ENSAA-7.0 

SCRIPT 

Cross reference 



Cross reference 



CLISV QA 

CLISV~QACKLOOPLOOPS 

CLISVJ3AERR0RPRINTS 

CLISV QAMULTIPLEPASS 

CLISVJJASUBTESTLOOPS 

CLISV QATESTLOOPS 

CLlSVlREG 

CLISV..REQUIRED 

CLISV RUN 

CLISV"SET 

CLISV^SHOW 

CLISVJ/ALSEC 

CLISV WORD 

COMMOR 

CONSOLE 

COPY IT 

crdsk crd initialization 
crdsk'ds Control c 
crdsk'ds'flags " 
crdsk failure 
crdsk~hookj>oint 
crdskllast^access code 
crdsk last ds variable 
crdskj.asOuRction 
crdsk last^hook point 
crdsk'read 

CRDSKlSUCCESS 

CRDSK.TYPECODE 

CRDSK.WRI TE 

DEBUG THE SUCKER 

DSSABDRT 

DSSCLI 

DSSGA CRD DS INTERFACE 

DSSGB-QIO^CT" 

DSSGL.CLIBASE 

DSSGLJLAGS 



DSSGT^BUFFER 
DSSGW.TTIN 
DSSGW TTOUT 
DSSK BUFSIZ 
DSSK^ERROR 
DSSK NORMAL 
DSSK'PRINTB 
DSSK^PRINTF 

DSSK PRINTI 

DSSK PRINTX 

DSSK^SEVERE 

DSSrC SUBSYS 

DSSK'TYPE ABORT PROGRAM 

DSSK"TYPE~ABORrTEST 

DSSK~TYPE;C0MMARD_ERR 

DSSK'TYPE COMMAND OUT 

DSSK"TYPE"CRD AUTDTEST 

DS$K"TYPE"DS PROMPT 



*** SCRIPT Read from command 



=00000007 151 

=0000001 C 151 

=00000016 151 

=0000001 F 151 

=0000001 E 151 

=0000001 D 151 

=00000014 151 

=00000000 151 

=00000015 151 

=00000003 151 

=00000004 151 

=00000016 151 

:000OO00E 151 

000001B8-R 616 

000002A5-R 710 

0000051 8-R 1007 

:00000000 158 

=00000001 158 

=00000000 158 

=00000000 158 

=00000000 158 

=00000002 158 

=00000002 158 

=00000002 158 

=00000001 158 

=00000000 158 

=00000001 158 

=00000001 158 

=00000001 158 

00000000-XR 

00000000-XR 

00000000-XR 

00000000-XR 

00OOOOC8-R 208 

00000000-XR 

00000000-XR 



00000000-XR 
00000000-XR 
00000000-XR 
00000000-XR 

=00000002 149 

'00000001 149 

=00000002 157 

=00000001 157 

=00000000 157 

=00000003 157 

=00000004 149 

=00000066 149 

=00000014 157 

^00000013 157 

=00000015 157 

=00000016 157 

=0000001 A 157 

=00000001 157 



(1) 



H 8 
27-JUL-1984 Fiche 13 
Stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 



#-841 



149 



#-726 



Frame H8 Sequence 2570 
VAX-11 Macro V03-0? Pa 9 e *] 
DMA1:CSYSO.SYSMAINTJSCRIPT. MAR; 138(1) 



#-610 


(1) 


#-642 


(1) 


#-635 


(1) 


#-682 


(1) 


#-685 


(1) 


#-951 


(1) 



(1) 



137 


(1) 


#-745 


124 


(1) 


676 


123 


(1) 




138 


(1) 


842 


#-889 


(1) 


#-901 


127 


(1) 


322 


131 


(1) 


361 


468 


(1) 


477 


789 


(1) 




133 


(1) 


714 


126 


(1) 


#-899 


126 


(1) 


#-917 


133 


(1) 


#-715 


#-660 


(1) 


#-669 


#-816 


(1) 





(1) 



(1) 



#-649 



(1) 



#-672 



(1) 



#-868 (1) 



869 
#-922 

362 
485 



#-929 



(1) 
(1) 

(1) 
(1) 



(1) 



#-930 

420 
626 



(1) 

(1) 
(1) 



(1) 



#-700 (1) 



#-778 



(1) 



#-840 (1) 



ZZ-ENSAA-7,0 
SCRIPT 

Cross reference 



Cross reference 



*** SCRIPT Read from command 



I 8 

27-JUL-1984 Fiche 13 
stream 27-JUL-1984 15:45:08 
23-MAY-1984 14:15:48 



Frame J8 Seguence 2571 
VAX-11 Macro V03-01 Pa 9? ^2 
DMA1:ESYS0.SYSMAINT]SCRIPT.MAR;138(1) 



DSSK TYPE DS START 
DS$K~TYPE~ERRDEV 
DS$K"TYPE"ERRHARD 
0S$K"TYPElERROR BODY 
DS$K~TYPE_ERROR^END 
DSSK"TYPE ERRPREP 
DS$K~TYPE"ERRS0FT 
DSSK~TYPE~ERRSUP 
DS$K~TYPEJRRSYS 
DS$K~TYPE ERR HALT 
DS$K"*TYPE EXCEPTION 
DS$K~TYPE~EXCEPTION HEAD 
DS$K~TYPE"FIRST PAS? 
DSSK"TYPE"GENERSL 
DS$kfTYPE~GENERAL ERROR 

ds$k"type no tests 
ds$k"type~paRam error 
ds$Ctype"progrSm,end 
dssk type programjnfo 
ds$k"type>rogram,start 

ds$k~ty>ejhojnvAdp 
dssiT type qioj:odr;ver 

dssk'type QIO WRONGER 
DSSK'TVPE^SCRTPT ECHO 
DSSkfTYPE SCRIPT PNF 

ds$k'type"script"prompt 
ds$k~typeIscript~skip 
dsslttype, sequence error 
dssxf type, start err 
ds$k~type start~list 

DS$K"TYPElSUMMARY 

dsm~type user^prompt 
dssk'warnTng 

DSSLOAD 

DS$M ABRTFLG 

DSSM'BADTIME 

DS$M~BATCH 

DS$M~BRKCLR 

D5$M'BRKPT 

DS$M"*CHARFLG 

DS$M~CMDFLG 

DS$M"CTRLC 

DSSM'CTRLO 

DSSM'DEVFLG 

DS$M~DISABLCC 

DS$M DONFLG 

DS$M~ERRFLG 

DS$M"EXCEPT 

DSSM'EXETST 

OS$M"HLTFLG 

DS$M~LODFLG 

DS$«"MEMMGT 

DS$M~OUTPUT 

DSSf-fRUBFLG 

DS$M SCRIPT 

DS$M~SETIMR 

DSSM'STRFLG 



=0000001 D 
=00000008 
=00000006 
=00000009 
=0000000A 
=00000018 
=00000007 
=00000004 
=00000005 
=00000000 
=0000000C 
=0000000B 
=00000011 
=00000000 
=00000003 
=00000012 
=0000001 C 
=00000010 
=00000017 
=0000000F 
=00000024 
=00000022 
=00000023 
=00000021 
=0000001 E 
=00000020 
=0000001 F 
=00000019 
=00000018 
=00000025 
=0000000E 
=00000002 
=00000000 
00000000 
=00000040 
=00100000 
=00400000 
=00001000 
=00000800 
=00000100 
=00000080 
=00000001 
=00010000 
=00000200 
=01000000 
=00002000 
=00000010 
=00080000 
=00040000 
=00000008 
=00000002 
=00008000 
=00800000 
=00000020 
=00200000 
=02000000 
-00000004 



-XR 



157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
157 
149 

150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 



#-817 
#-661 
#-701 
#-670 


(1) 
(1) 
(1) 
(1) 


#-719 


(1) 


123 


(1) 



#-779 



(1) 



#-867 



(1) 



ZZ-ENSAA-7,0 

SCRIPT 

Cross reference 

DS$M SUBT 

OSSMlSYSFLG 

DSSM TIMRON 

DSSR&B INPUT 

DSSRAB'OUTPUT 

DSSV ABRTFLG 

DSSV'BADTIME 

OSSV^BATCH 

DS$V BRKClR 

DSSV^BRKPT 

DSSV^CHARFLG 

DS$V_CMDFLG 

DS$V CTRLC 

DS$V^CTRLO 

DS$V_0EVFIG 

0S$V DISABLCC 

DSSV DONFLG 

DSSV ERRFLG 

DSSV^EXCEPT 

DSSVJXETST 

DS$V HLTFLG 

0S$VlLODFLG 

OSSV MEMMOT 

DSSV_OUTPUT 

OSSV RUBFLG 

OSSVlSCRIPT 

DSSV SET1MR 

DSSV^STRFLG 

DS$V SUBT 

DSSV_SYSFLG 

DSSV TIMRON 

DSS_SRITH 

DSS..ASBE 

DSS BADLINK 

DSS.BADTYPE 

DSS.BIIC 

DSS.CHME 

DSS.CHMK 

OSS DEVNAME 

DS$~ERROR 

DSS~FHWE 

DSS~FRAGBUF 

DSSJCBUSY 

DSSJCERR 

DSSJHWE 

DSSJLICHAR 

DSSJLLPAGCNT 

DS$ JLLUNIT 

DSSJNSFMEM 

DSSJPL2W 

DSS IVADDR 

DSS'IVVECT 

DSS'KRNLSTK 

DSS'LOGIC 

05$ MCHK 

OSS MMOFF 



Cross reference 



*** SCRIPT Read from command stream 



J 8 
27-JUL-1984 



Fiche 13 Frame J8 



Sequence 2572 



27-JUL-1984 15:^5:08 VAX-liMacro V03-OT Page 43 

23-MAY-1984 14:15:48 DMA1:CSYS0,SYSMAINT3SCR1PT.MAR;138(1) 



00004000 


150 ( 






00000400 


150 ( 






00020000 


150 ( 






00000000-XR 




135 


(1) 797 (1) 


00000000-XR 




135 


(1) 796 (1) 


00000006 


150 ( 






00000014 


150 ( 






00000016 


150 ( 


1) #-789 


(1) 


oooooooc 


150 ( 






O0OOOO0B 


150 ( 






00000008 


150 ( 






00000007 


150 ( 






00000000 


150 ( 


1) #-362 


(1) 


00000010 


150 ( 






00000009 


150 ( 






00000018 


150 ( 






OOOOOOOD 


150 ( 






00000004 


150 ( 






00000013 


150 ( 






00000012 


150 ( 






00000003 


150 ( 






00000001 


150 I 






OOOOOOOF 


150 1 






00000017 


150 I 






00000005 


150 






00000015 


150 i 


1) #-420 


(1) #-468 (1) 






#-626 


(1) 


-00000019 


150 \ 






=00000002 


150 


1) #-361 


(1) 


'OOOOOOOF 


150 






:0000000A 


150 






=00000011 


150 






=006600DO 


149 






^006601 18 


149 






=006600FO 


149 






=006600E8 


149 






=00660120 


149 






=006600A8 


149 






=006600EO 


149 






=00660108 


149 






=00o60002 


149 






=00660068 


149 






=00660080 


149 






=006600C8 


149 






=006600CO 


149 






=00660060 


149 






=00660018 


149 






=00660078 


149 






=00660100 


149 






=00660050 


149 






=00660088 


149 






=00660040 


149 






=00660038 


149 






=00660090 


149 






=00660070 


149 






=00660088 


149 






=00660058 


149 







#-477 



(1) 



#-485 



(1) 



ZZ-ENSAA-7.0 Cross refe: 


*ence 






K 
27-JUL 


8 

-1984 


Fkhe 


13 Frame 


K8 


Sequence 2573 
*o V03-01 Page 44 


SCRIPT 




*** SCRIPT Read from command stream 


27-JUL-1984 15:45 


;08 V.AX- 


11 Macr 


Cross reference 












23-MAY-1984 14:15 


.'48 DflAI 


:CSY$0, 


SYSMAINTJSCR1PT.MAR; 138(1) 


DS$_NEEDUN1T 




=006600F8 


149 
















DS$ NODE 




=00660128 


149 
















DSS'NOPCS 




=00660110 


149 
















DSSJJORMAl 




=00660001 


149 
















DSS NOSUPPORT 




=006600B1 


149 
















DS$~NOTDON 




=00660030 


149 
















DS$lNOTIMP 




=006600BO 


149 




149 (1) 










DSSJWLLSTR 




=00660010 


149 
















DSSJMRFLOW 




=00660008 


149 
















OSS POWER 




=00660098 


149 
















DSS'PROGERR 




=00660020 


149 
















DS$~SEVERE 




=00660004 


149 
















DSS TRANSL 




=006600AO 


149 
















DS$~TRUNCATE 




=00660028 


149 
















DSSJJNEXPINT 




=006600D8 


149 
















DSSJ/ASFULL 




=00660048 


149 
















DS$ WARNING 




=00660000 


149 




149 (1 












OSA$GL^FLAGS 




000OFE0O 






310 (1 


) 466 


<1> 


696 


(1) 


717 (1) 












775 (1 
888 (1 


) 826 
) 921 


(1) 
(1) 


827 


(1) 


828 (1) 


DSASV BINARY 




=00000001 






#-717 (1 












DSA$V~CRD AUTOTEST 


OFF 


=00000008 






#-826 (1 












DSA$V~CRD~MENUTEST" 


"OFF 


=00000010 






#-828 (1 












dsaWcrd'menutest; 


"ON 


=00000012 






#-827 (1 












DSASV'OPER 




=00OO00OC 






#-775 (1 












dsasv'qa 




=00O0000F 






#-466 (1 












DSA$V"USER 




=0000001 C 






#-310 V 


) #-888 


(1) 


#-921 


(1) 




DSA$V"VERIFY 




=00000009 






#-696 r 












dsrscOmpletion 




00000000-XR 






124 r 


) #-340 


(1) 


#-399 


(1) 




DSXSPRINT 




00000000-XR 






123 r 

780 r 


) 662 
) 818 


(1) 
(1) 


671 


(1) 


702 (1) 


DSX$TYPE OUT 




00000000-XR 






136 C 


) 763 


(1) 








DS ERRSUP 




00000000-XR 






123 ( 












DS~GETLINE 




000001B4-R 


612 


(1) 














DS'GETLINE OKAY_X 




0000050C-R 


957 


(1) 


#-781 C 












DSlGETLINE^X 




0000050F-R 


960 


(1) 


#-807 C 


I) #-918 


(1) 


#-919 


(1) 


#-942 (1) 












#-943 C 


I) #-947 


iV 








DS SUPERLINE 




000001AD-R 


607 


(1) 














EXPSALONONPAGED 




00000000-XR 






132 C 


I) #-351 


(1) 








EXE$DEANONPAGED 




00000000-XR 






132 ( 


I) #-418 


(1) 


#-533 


(1) 




FABSB.DNS 




=00000035 






#-327 C 












FABSB FNS 




=00000034 






#-324 ( 












FAB$C~BID 




=00000003 






197 ( 












FAB$C~BLN 




=00000050 






197 ( 












FAB$C"SEQ 




=00000000 






197 ( 












r.'.P" r "VAR 




=00000002 






197 ( 












F .i.'ALQ 




=00000010 






197 ( 












FAtiSLlDNA 




=00000030 






#-329 ( 












FAB$L_FNA 




=00000020 






#-326 ( 












FAB$L FOP 




=00000004 






197 ( 












FAB$V~CHAN MODE 




=00000002 






197 ( 












FABSV'FILElMODE 




=00000004 






197 ( 












fabsv'lnm Rode 




=00000000 






197 ( 












FAB$W"GBC" 




=00000048 






197 ( 












FALSE 




=00000000 


158 


(1) 














INI T CONTEXT 




00000000-XR 






134 ( 


1) 309 


(1) 








10$ Readprompt 




00000000-XR 






130 ( 


1 ) #-899 


(1) 









ZZ-ENSAA-7.0 Cross 


reference 






L 
27-JUL 


8 

-1984 


Fiche 


13 Frame 


L8 


Seguence 2574 
*o V03-0T Page 45 


SCRIPT 


*** SCRIPT Read from command stream 


27-JUL-1984 15:45 


:08 VAX- 


11 Macr 


Cross reference 










23-MAY-1984 14:15 


:48 DMA1 


:CSYSO. 


SYSMAINTJSCRIPT. MAR; 138(1) 


10$ READVBLK 


OOOOOOOO-XR 






130 (1 


) #-929 


(1) 








IOS'WRITEVBLK 


OOOOOOOO-XR 






130 (1 


) #-917 


(1) 








L FCAGS 


000000C4-R 


203 


(1) 














Clink 


OOOOOOCO-R 


200 


(1) 


#-264 (1 


) #-359 


(1) 


#-360 


(1) 


#-470 (1) 










#-483 (1 
#-627 (1 


) #-530 


(1) 


#-532 


(1) 


#-535 (1) 


OFF 


=00000000 


158 


(1) 














ON 


=00000001 


158 


(1) 














PRINT LINE 


00000284-R 


695 


(1) 


#-641 (1 


) #-648 


(1) 


#-684 


(1) 




qio$cCeanup 


00000000-XR 






134 (1 


) 311 


(1) 








RAB$B RAC 


=0000001 E 






198 (1 












RABSC^BID 


=00000001 






198 (1 












RAB$C_BLN 


=00000044 






198 (1 












RABSC SEQ 


=00000000 






198 (1 












RABSLlCTX 


=00000018 






198 (1 












RABSL RBF 


=00000028 






#-812 (1 












RAB$L~ROP 


=00000004 






198 (1 












RAB$L~UBF 


=00000024 






#-373 (1 


) #-799 


(1) 








RAB$W~RSZ 


=00000022 






#-381 (1 


) #-809 


(1) 








RAB*W"USZ 


=00000020 






#-374 (1 


) ff-377 


(1) 


#-800 


(1) 




R, M .SS FOF 


=0001827A 






#-397 (1 


) #-803 


(1) 








SCSA^BUF 


00000010 


222 


(1) 


#-1079 (1 


) 1088 


(1) 


363 


(1) 


#-364 (1) 










#-410 (1 


) 666 


(1) 








SCSC BLN 


=00000010 


223 


(1) 


350 (1 












SCSL'LINK 


00000000 


216 


(1) 


#-359 (1 


) #-532 


(1) 








SC$W"CURR 


0000000C 


220 


(1) 


#-1072 <1 


) #-1085 


(1) 


#-1086 


(1) 


#-665 (1) 


SCUf END 


0OO0O0OE 


221 


(1) 


#-1077 (1 


) #-410 


(1) 








scswIlen 


0OOO0OOA 


219 


(1) 


#-1073 (1 


) #-1087 


(1) 


#-667 


(1) 


#-674 (1) 










#-675 (1 












SC$W SIZE 


00000008 


218 


(1) 


#-358 (1 


) #-412 


(1) 








SCAN*COMPARE 


OOOOOOOO-XR 






125 (1 


) #-653 


(1) 








SCANSSPACES 


OOOOOOOO-XR 






125 (1 


) #-678 


(1) 








SCRIPTSCONT 


000001 75-R 


481 


(1) 














SCRIPTSFIMISH 


000001 88-R 


527 


(1) 


#-1092 (1 


) #-400 


(1) 


#-469 


(1) 




SCRIPTSFLUSH 


000001 51-R 


465 


(1) 


#-308 (1 












SCRIPTSINIT 


00000000-R 


263 


(1) 














SCRIPTSMINCORE 


=00000400 


146 


(1) 














SCRIPT$OPEN 


OOOOOOOA-R 


307 


(1) 














SCRIPTSOPEN^X 


000001 4B-R 


422 


(1) 


#-342 (1 


) #-402 


(1) 








SCRIPTSSTOP 


0000016C-R 


476 


(1) 


#-265 (1 


) #-482 


(1) 


#-538 


(1) 




SCRIPT FAB 


0000002C-R 


197 


(1) 


198 (1 


) 321 


(1) 








SCRIPT"RAB 


0000007C-R 


198 


(1) 


334 (1 












SCRIPT""XAB 


00000000-R 


196 


(1) 


197 (1 


) 317 


(1) 








SIZ..."" 


=00000001 


150 


(1) 


150 (1 












SS$ CONTROLC 


OOOOOOOO-XR 






129 (1 












SSS'ENDOFFILE 


OOOOOOOO-XR 






#-1093 (1 


) 129 


(1) 


#-805 


(1) 


#-945 (1) 


SS$~ILLI0FUNC 


OOOOOOOO-XR 






129 r 


) #-902 


(1) 








sssInormal 


OOOOOOOO-XR 






#-1089 r 


) 129 


(1) 


#-540 


(1) 


#-688 (1) 










#-857 C 


) #-884 


(1) 


#-958 


(1) 




SYSSCLOSE 


OOOOOOOO-XR 






395 ( 












SYS$CONNEC T 


OOOOOOOO-XR 






370 C 












SYS$DISCONNECT 


OOOOOOOO-XR 






393 C 












SYSSFAO 


OOOOOOOO-XR 






128 r 


I) 737 


(1) 


761 


(1) 




SYSSGET 


OOOOOOOO-XR 






M9 ( 


I) 801 


(1) 








SYSSHIBER 


OOOOOOOO-XR 






128 V 












SYS$OPEN 


OOOOOOOO-XR 






339 ( 












SYSSQIO 


OOOOOOOO-XR 






128 (' 













n 



ZZ-ENSAA-7,0 

SCRIPT 

Cross reference 

SYSSQ10W 

SYSSREADEF 

SYSSWAKE 

TRUE 

T DEF COM 

TechO 

T EOF 

rNuu 

T PNF 

T~PROMPT 

T~PR0MPT2 

TPROMPT3 

T'SKIP 

V~ECHOED 

XSBSC FHC 

XABSC'FNCLEN 

XAB$L~EBK 

XABSL'NXT 

XAB$W~FFB 



Cross reference 



8 



*** SCRIPT Read from command 



00000000- 
00000000- 
00000000- 
=00000001 
00000007- 
0000003E- 
00O00OOC- 
0000000B- 
00000047- 
0000001 A- 
0000001 D- 
00000024- 
0000002A- 
=00000001 
:0000001D 
=0000002C 
=00000010 
=00000004 
=00000014 



XR 
OCR 
•XR 

•R 
•R 
•R 
■R 
•R 
•R 
•R 
•R 
•R 



27-JUL-1984 Fiche 13 

stream 27-JUL-1984 15:45:08 

23-MAY-1984 14:15:48 





128 




128 




128 


158 < 




167 C 


) 328 


188 C 


) 815 


173 C 


) 639 


170 r 


) 617 


191 C 


) 659 


176 c 


) 699 


179 (' 


) 711 


182 C 


) 777 


185 (* 


) 668 


206 c 






196 




196 




#-348 




196 




#-349 
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899 



(1) 



917 



(1) 



929 



(1) 



ZZ-ENSAA-7.0 

SCRIPT 

Cross reference 



Cross reference 



*** SCRIPT Read from command 



N 8 
27-JUL-1984 Fiche 13 

stream 27-JUL-1984 1 5 : <i 5 : 08 

23-MAY-1984 14:15:48 



+ - + 

! Macros Cross Reference ! 
+ ™ — + 



MACkO 



SIZE 



$$R SET 

$$R~TABINIT 

$$R~VBFSET 

S$R"XSET 

SClOSE 

SCONNECT 

$CR0,LITERALS 

$DEf 

SDEFIN1 

SDISCONNECT 

$DS OSADEF 

SDS~DSDEF 

$DS~TYPEDEF 

SEQD 

SEQULS1 

SEQULST 

$FAB 

SFABDEF 

SGBLINI 

SGET 

SOPEN 

SP'JSHADR 

SPUSHTWC 

SQIOPUSH 

SQIGW S 

$RAB " 

SRABDEF 

SRMSCALL 

SRMSDEF 

$VIELD 

SVIELDi 

SXABDEF 

SXABFHC 

SXABFHCDEF 

BR IF CRD AUTOTEST OFF 

BR"lF"CRD"MENUTEST"OFF 

BR"IF""CRD""MENUTEST"ON 

8R~IF~N0T"BATCH 

BR"lF"NOT~BINARY 

9R"IF"N0T"SCRIPT 

BR'IF^NOT'USER 
BR" IF NOT VERIFY 
BR" IF OPER 
BR'IFlSCRIPT 

br" if user 
clE'arIctrlc 

CLEAR QA 
CLFAR'SCRIPT 



DEFINITION 



196 
196 
197 
196 
395 
370 
158 
158 
148 

393 
148 
149 

157 
158 
158 
149 
197 
152 

379 
339 
899 
899 
899 
891 
198 
154 
339 

153 

58 
155 
196 
156 
826 
828 
827 
789 
717 
626 
888 
696 
775 
468 
310 
362 
466 
477 



REFERENCES. 



196 
196 
197 
196 
395 
370 
158 

148 
155 
393 
148 
149 
157 
149 
149 
149 
197 
152 
149 
379 
339 
899 
899 
89V 
891 
198 
154 
339 
395 
133 
150 
150 
155 
196 
156 
826 
828 
827 
789 
717 
626 
888 
696 
775 
4b8 
310 
362 
466 
477 



197 
198 



921 



(1) 
(1) 



152 
156 


(1) 
(1) 


157 
157 
157 


(1) 
(1) 
(1) 


197 
150 
801 


(1) 
(1) 

(1) 


917 
917 
917 
912 


(1) 

(1) 
(1) 
(1) 


198 
370 
801 


(1) 
(1) 
(1) 


196 


(1) 


196 


(1) 



(1) 



Frame N8 Seguence 2576 
VAX-11 Macro V03-0T Page 47 
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198 



(1) 



153 



(1) 



154 



(1) 



158 
158 
158 



157 



(1) 
(1) 

(1) 



(1) 



158 



(1) 



929 


(1) 


929 


(1) 


929 


(1) 


924 


(1) 



379 



(1) 



393 



(1) 



ZM'NSAA-7.0 

SCRIPT 

Cross reference 

CLEAR STRFLG 

CLIDET 

DSFDEF 
MODNAM 
SET SCRIPT 



Cross reference 



*** SCRIPT Read from command 



B 9 

27-JUL-1984 Fiche 13 

stream 27-JUL-1984 15:45:08 

23-MAY-1984 14:15:48 



frame B9 Seguence 2577 

VAX-11 Macro V03-0T Page 48 

OMAItCSYSO.SVSMAINTJSCRIPT. MAR; 138(1) 



Phase 





1 
3 
3 

1 
1 


361 
151 
150 
165 
420 


(1) 361 (1) 
(1) 151 (1) 
(1) 150 (1) 
(1) 165 (1) 
(1) 420 (1) 




! Performance indicators ! 


Page 


faults 


CPU Time 

00:00:00.11 
00:00:00.89 
00:00:17.13 
00:00:01.30 
00:00:03.76 
00:00:00.28 
00:00:00.04 
00:00:01.62 
00:00:25.13 


Elapsed Time 




31 
145 

1065 



324 

46 

10 

153 

1778 


00:00:00.25 
00:00:02.48 
00:00:29.85 
00:00:02.71 
00:00:05.02 
00:00:00.31 
00:00:00.04 
00:00:02.31 
00:00:42.97 



485 



(1) 



Ini t i ali zat ion 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

T he working set limit was 1000 paqes. 

92599 bytes (181 pages) of virtual memory were used to buffer the intermediate code. 

J",ere were SO pages of symbol table space allocated ro hotd 927 non-local and 56 local symbols. 

1095 source lines were read in Pass 1, producing object records in Pass 2. 

134 pages of virtual memory were used to define 54 macros. 

+ -.. ......-....-—.. — + 

! Macro library statistics ! 
+ *.-.--^~.... — + 



Macro I ibrary name 

DRB1:LDS.W0RKDDIAG.MLB;955 

DRB1:CDS.W0R<JDS.MLB;218 

DRB1 :CDS.W0RK]CRD.ML8;12 

SYS$SYSR00T:[SYSLIB]LIB.MLB;1 

DMAl:CSYS0.SYSMAIrJTJDS.MLB;218 

DMA1:CSYS0.SYSMAINT3D1AG.MLB;953 

SYSSSYSROOT:CSYSLIB]l IB.MLB;1 

SYS$SYSR00T:CSYSLIB]SIARLET.MLB;2 

TOTALS (all libraries) 



Macros defined 

3 

i9 
1 





27 

51 



1526 GETS were required to define 50 macros. 

There were no errors, warnings or information messages. 

MACR0/NC0BJECT/U$T=[DS.LiSJ/CR0$S/ENA8LE^(DE8UG, TRACE) 5CRJPT/UPDA=(SCRJPT .UPD .SCRIPT. ENH)+S YSSUBRARY :L1B/LIBRARY+DMA1 : CSYSO.SYSMAl 



Z2-ENSAA-7.0 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 
00i5 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



*** SHOWMEM Handle Show Memory command 
*** SHOWMEM Handle Show Memory command 



C 9 

27-Jul-1984 Fiche 13 Frame C9 Sequence 2578 

27-Jul-1984 16:16:35 VAX-11 Bliss-32 V4. 0-742 _ Page 1 

26-Jul-1984 09:41:33 DMA1 : [SYS0.SYSMAINTDSHOWMEMORY.B32;1 (1) 



Supervisor SHOW MEMORY command 



XT i tie '*** SHOWMEM Handle Show Memory command' 
Module ShowMemory ( 

Ident = '06-06' , 

Addressing^Mode (External = Long.Relative) , 

Debug, 

OptleveL = 3, 

NoZip 

) = 

Copyright (c) 1982, 1983, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



+ + 
Faci lity: 

Diagnostic Supervisor 
Abstract: 

List physical memory map (virtual in user mode). 
Environment : 

Diagnostic Supervisor 
Author: 

Dave Butenhof 



ITS 



05-Feb-1982 



Modified by: 



LOU Dave Butenhof, 25-Mar-1982, version 6.7 

Fix order of non-paged pool and lookaside list typeouts, 
mask out region select bits (31 , 32) on POBR and P1BR addresses 
(to make them physical, not virtual), and change top-of-QS and 
physical-memory-si2e messages to show Kb, not bytes (easier to 
read). Also, print amount of available buffer space on /Buffer, 
and cut down on code some, by setting all option bits if /All is 
set, instead of checking it throughout. 

[02J Richard Brown, 9-July-82, Version 6.8 



ZZ-ENSAA-7,0 

SHOWMEMORY 
06-06 



*** SHOWMEM Handle Show Memory command 
*** SHOWMEM Handle Show Memory command 



0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 






















1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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26-Jul-1984 09:41:33 DMA1 : CSYS0.SYSMAINT]SH0WMEM0RY.B32;1 (1) 



Add printing of debugger memory allocation. 

[03] Jack Stansbury, 14-September-1982, Version 6.9 
Added showing the buffer count. 



04 

05 

06 



Bob Bergazzi May 17, 1983 version 6.11 
Changed the order of searching libraries. 

Bob Berga2zi Aug 29,1983 Version 6.13 
Added the VRSETMEM routine which sets a new memory 
size and then starts VDS at 10000. Doesn't get 
here in user mode. 

Bob Bergazzi Feb 14, 1984 Version 6.14 
Fixed VRSETMEM to call INJSLOAD.DEVICE which 
makes ptables for the console and boot devices. 



begin 



! Table of contents: 

i 

i 

! Include files: 

Library 'SDiag*; 

Library '$Ds'; 

Library *Sys$Library:lib*; 

Macros: 

Psect Definitions: 



[04] 
C043 
[04] 



Psect PI i t 

Psect Own 

Psect Global 

Psect Code 



Data (NoExecute, Share, NoWrite, Address 

Work (NoExecute, NoShare, Write, Address 

Work (NoExecute, NoShare, Write, Address 

Code (Execute, Share, NoWrite); 




Equated Symbols: 



$Ds_DsaDef; 
$Ds_TypeDef; 

Literal 

Sm.V Map = 0, 
Sm V'Buffer = 1, 



! Define DSA locations 
! Define type codes 

! Bits in ShowMemoryF lags 
! /Map 
! /Buffer 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

01 34 

0135 

0136 

0137 

0138 

0139 

OHO 

OKI 

0K2 

0K3 

OKA 

0K5 

0K6 
0K7 

0K8 

0K9 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 



*** SHOWMEM 
*** SHOWMEM 



Handle Show Memory command 
Handle Show Memory command 



E 9 * 
27-JuM984 

27-Jul-1984 

26-Jul-1984 



16: 16:35 

09:41:33 



Fiche 13 frame E9 
VAX-11 Bliss-32 



Sequence 2580 
V4, 0-742 Page 



DMA1:CSYS0.SYSMAINTJSHOWMEM0RY.B32;1 



3 

(1) 



Sm V Data = 2, 
SnfVJUl = 3, 
CR = 13, 
LF = 10; 



I /Data_Structure 
! /All 



Bind 



Format = SAscic 
Format2= SAscic 
Format 3= SAscic 
Formdt4= SAscic 
Format5= SAscic 
Format6= SAscic 



(*!22<!XL 
<'!22<!Xl 
('!22<!XL 
C!22<!XL 
<'!22<!XL 
C!22 : 



!-(%D!SL)!> 
!-<}!D!SL)!> 
i-(XD!SL)!> 
(!SLKb)!> : 
(!SLKb)!> : 
!AC!/'); 



: iAC!/ 1 ), 
: IAC1AC!/ 1 ), 
: !AC!AC!/'>, 
•AC!/'), 

1AC1AC!/ 1 ), 



Format strings 



Bind 



T ..Reserved = SAscic 
T DS = SAscic 
Oernel = SAscic 
T_lnterrupt = SAscic 
T~Executive = SAscic 
^Supervisors SAscic 
T~User = SAscic 
T~Stack * SAscic 
T~SP = SAscic 
T"P0 = SAscic 
T_P1 = SAscic 
TlSystem = SAscic 
T~Base = SAscic 
7~Length - SAscic 
T~P0j5ufCnt = SAscic 
T~Pl„8ufCnt = SAscic 
T_S0 BufCnt = SAscic 
T_BuTferSpace = SAsc 



Own storage: 



'Reserved page') , 

'Diagnostic Supervisor*) , 

'Kernel 1 ), 

'Interrupt') , 

•Executive 1 ) , 

•Supervisor') , 

•User'), 

' stack base*), 

' SP'), 

'FO'), 

•PT), 

'System'), 

1 Page Table 



C02D 
Common text parts 



con 

con 



* Page 
'Pages 
'Pages 
•Paqes 



base'), 
Table length (longwords) ') , 
in P0 space in use for buffers'), 
in P1 space in use for buffers'). 



in System space in use for buffers') 
ic ('Available buffer space '); 



C03] 
C03J 
C03D 

con 



Global 

ShowMemoryF lags : BitVector [4J; 



External references: 



External 

DsSGB TypeCode 
DsSGL^Flags, 
DSSGLlBufCnt : 
Ax 8u7f, 
Ph3^Base, 
Pcb Base, 
DsSflX Jib, 
Ds$AX""Arb, 
DsSAX^SoftPCB, 
Scb.Base, 
Stack Base, 
KStkPtr, 



: Byte, 

VECTOR C3, LONGJ, 



Type code 

Common flaqs (LODFLG) 

The three buffer counts 

Actual end of DS image 

Base of Process Header 

Base of Hardware PCB 

Base of pseudo JIB 

Base of pseudo ARB 

Base of pseudo software PCB 

Base of SCB 

Base of stack space 

Beginning of Kernel stack 



[033 



ZZ-ENSAA-7,0 

SHOWMEMORY 

06-06 



0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
01 84 
0185 
0186 
0187 
0188 
0189 
0190 



*** SHOWMEM Handle Show Memory command 
*** SHOWMEM Handle Show Memory command 



IStkPtr, 

EStkPtr, 

SStkPtr, 

UStkPtr, 

DsSA PrgBgn, 

P0PT~Base, 

DsSGC LookAside, 

Exe$GC_Splitadr, 

DsSGA LastAdr, 

DsSGL MemSize, 

DSSGLlSET.MEMSIZE, 

debug_lo, 

debug^hi; 



F 9 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:16:35 
09:41:33 



Fiche 13 Frame F9 
VAX-11 Bh'ss-32 



Sequence 2581 
V4. 0-742 Page 



DMA1:[SYS0.SYSMAINT:SHOWMEMORY.B32;1 



4 

(1) 



Where program starts 

End of built-in storage (LAST) 

Start of Look-aside IRP list 

Address of non-paged pool split 

End of run-time D5 

Size of physical memory 

Size of physical memory desired 

Bottom of debugger 

Top of debugger 



L05] 
C02] 
C02: 



Forward Routine 
DSRSCheckLoad 
DSV$ShowMemory 
ShowMemory 
VRSETMEM 



Jsb_None, 
Jsb^None NoValue, 
NoValue, 
JSB.CLI ; 



C05D 



zz- 


-ENSAA- 


7.0 


SHOWMEMORY 


06- 


-06 






0191 


1 




0192 


1 




0193 


1 




0194 


2 




0195 


2 




0196 


1 



21 44 

21 44 

21 43 

21 44 

43 41 



62 4B 
2F 

65 

70 75 



65 
73 


6C 
64 


70 
20 


73 
72 


70 
20 


73 
72 



25 28 

2F 21 

25 28 

41 21 

25 28 

21 43 



62 4B 4C 53 



4C 53 

21 43 

2f 21 

67 61 

53 20 



G 9 

27-jul-1984 Fiche 13 Frame 69 Sequence 2582 

27-JuL-1984 16:16:35 VAX-11 Bliss-32 V4. 0-742 ^ Page 5 

26-JuM984 09:41:33 DMA1 :CSYS0.SYSMAINTJSH0WMEM0RY.B32;1 (2) 



Is a program loaded, really? 

*** SHOWflEM Handle Show Memory command 

Is a program loaded, really? 

XSbttl Ms a program loaded, really? 1 

Global Routine DSRSCheckLoad : Jsb.None =■ 

Return ((.Ds$GL Flags <Ds$V LodFlg, 0» And CLSL^Environ <Env$V_Super, Env$S_Super> EqL Env$_Super)); 
End; 



!C03 
J [03 
!C03 



2D 21 20 

43 41 21 

2D 21 20 

43 41 21 

2D 21 20 

41 21 20 

21 28 20 

2F 21 43 

21 28 20 

41 21 43 

43 41 21 

70 20 64 

63 69 74 



74 70 

65 76 

72 6F 73 



4C 58 21 

20 3A 20 

4C 58 21 

20 3A 20 

4C 58 21 

20 3A 20 

4C 58 21 

41 21 20 

4C 58 21 

41 21 20 

20 3A 20 

65 76 72 

73 6F 6E 

72 6F 

6C 65 

75 72 72 

69 74 75 

69 76 72 



65 73 61 62 20 6B 63 



61 62 20 65 6C 62 61 



20 65 6C 62 61 

72 6F 77 67 6E 

20 30 50 20 6E 

6F 66 20 65 73 

20 31 50 20 6E 

6F 66 20 65 73 



65 74 73 79 53 20 6E 



6D 65 

54 20 65 

54 20 65 

6F 6C 28 

69 20 73 

75 20 6E 

73 72 

69 20 73 

75 20 6E 

71 72 

69 20 73 



3C 32 

3E 21 

3C 32 

3E 21 

3C 32 

3E 21 

3C 32 

3A 20 

3C 32 

3A 20 

20 32 

65 73 

67 61 

73 69 

6E 72 

65 74 

63 65 

65 70 

72 65 

61 74 
50 



74 73 

67 61 

67 61 

20 68 

65 67 

69 20 

65 66 

65 67 

69 20 

65 66 

65 67 



32 21 

29 4C 

32 21 

29 4C 

32 21 

29 4C 
2f 

32 21 

3E 21 

32 21 

3E 21 

32 21 

65 52 

69 44 

76 72 

65 4B 

6E 49 

78 45 
75 53 
73 55 

73 20 
53 20 

30 50 

31 50 

79 53 
50 20 

65 

50 20 

74 67 

61 50 

65 63 

66 75 
61 50 

65 63 

66 75 
61 50 



1B 
53 
1E 
53 
2f 
1F 
53 
21 
19 
29 
1C 
29 
0C 
0D 
15 
65 
06 
09 
09 
0A 
04 
0B 
03 
02 
02 
06 
10 
73 
1E 
6E 
29 
24 
61 
62 
24 
61 
62 
2S 



00000 



00000 

000OF 

0001 C 

0002B 

0003A 

0003B 

0004A 

00059 

0005B 

0006A 

00075 

00084 

00092 

0009F 

000AD 

000BC 

000C3 

000CA 

O0OD4 

000DE 

00OE9 

000EE 

000FA 

000FE 

00101 

00104 

0010B 

0011 A 

001 1 C 

001 2B 

001 3A 

001 3B 

0014A 

00159 

00160 

0016F 

0017E 

00185 



.TITLE SHOWMEMORY *** SHOWMEM Handle Show Memory comma 

nd 
.IDENT \06-06\ 

.PSECT W0RK,NOEXE,2 

SHOWMEMORYFLAGS:: 
.BLKB 1 

.PSFCT DATA,NOWRT,NOEXE, SHR,2 

P. AAA: .ASCII <27>\!22<!XL !-<XD!SL>!> : !AC!A 

P.AAB: .ASCII <30>\!22<!XL !-<XD!SL> !> : !AC!AC!A 

P.AACJ .ASCII <31>\!22<!XL !-UD!SL)!> : !AC!AC!A 



P.AAD 
P.AAE 

P.AAF 
P.AAG 
P.AAH 

P.AAI 
P.AAJ 
P.AAK 
P.AAL 
P.AAM 
P. A AN 
P.AAO 
P.AAP 
P.AAQ 
P.AAP 
P.AAS 

P.AAT 



.ASCII <25>\!22<!XL (!SLKb)!> ; !AC!A 

.ASCII <28>\!22<!XL (!SLKb)!> : !AC!AC!A 

.ASCII <12>\!22 : !AC!A 

.ASCII <13>\Reserved paqe\ 

.ASCII <21>\Diagnostic Supervisor\ 

.ASCII <6>\Kernel\ 

.ASCII <9>\lnterrupt\ 

.ASCII <9>\Executive\ 

.ASCII <10>\Supervisor\ 

.ASCII <4>\user\ 

.ASCII <11>\ stack base\ 

.ASCII <3>\ SP\ 

.ASCII <2>\P0\ 

.ASCII <2>\P1\ 

.ASCII <6>\System\ 

.ASCII <16>\ Page Table base\ 

.ASCII <30>\ Page Table length ( longwords)\ 



P.AAU: .ASCII \$Pages in PO space in use for bufters\ 
P. AAV: .ASCII \$Pages in PI space in use for buffers\ 
P.AAW: .ASCII \(Pages in System space in use tor buffer\ 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



Is a program loaded, really? 

*** SHOWWEM Handle Show Memory command 

Is a program loaded, really? 



H 9 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:16:35 
09:41:33 



Fiche 13 Frame H9 
VAX-11 BLiss-32 



Sequence 2583 
V4. 0-742 _ Page 



DMA1:CSYS0.SYSMAINVJSH0WMEM0RY.B32;1 



6 
(2) 



20 65 73 75 20 6E 69 20 65 63 61 70 73 20 6D 00194 

72 65 66 66 75 62 20 ?2 6F 66 001 A3 

73 001AD 

66 75 62 20 20 65 6C 62 61 6C 69 61 76 41 18 001AE P.AAX: 

20 65 63 61 70 73 20 72 65 66 001 BD 



.ASCII 
.ASCII 



DSA$AL APTMAIL= 

DSA$Gt~FLAGS= 

DSA$GL"APTCOM= 

DSA$GL>ASSES = 

DSA$GLJJNITS= 

DSA$GL SECTN0= 

DSA$GL"SID= 

0SA$GL"MSGTYP= 

DSA$GL~ERRNO= 

DSA$GL~EVENT= 

DSA$GL**SUBTNO= 

DSA$GL~TESTNO= 

DSA$GL~PASSNO= 

DSA$GL~DEVLEN= 

DSA$GL~D£VNAM= 

DSA$6L~MSGPTR= 

FORMATS 

F0RMAT2= 

F0RMAT3= 

FORMATS 

F0RMAT5= 

F0RMAT6= 

T.RESERVED= 

T DS= 

TKERNEL = 

T INTERRUPT= 

^EXECUTIVE* 

T_SUPERVIS0R= 

T.USER= 

T STACK= 

TSP= 

T P0= 

T"P1 = 

T"SYSTEM= 

T*"BASE = 

TLENGTH= 

t~p0„bufcnt= 
t"p1 bufcnt= 
t'so;sufcnt= 
t_buFferspace= 

.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 
.EXTRN 



\s\ 
<24>\Available 



buffer space \ 



65024 

65024 

65028 

65032 

65036 

65040 

65044 

65088 

65092 

65096 

65100 

65104 

65108 

65112 

65116 

65128 

P. AAA 

P.AAB 

P.AAC 

P.AAD 

P.AAE 

P.AAF 

P.AAG 

P.AAH 

P.AAI 

P.AAJ 

P.AAK 

P.AAL 

P.AAM 

P.AAN 

P.AA0 

P.AAP 

P.AAQ 

P.AAR 

P.AAS 

P.AAT 

P.AAU 

P. AAV 

P. A AW 

P AAX 
DS$GB*TYPEC0DE, DSSGL. FLAGS 
DS$GL~BUFCNT, AX BUFF 
PHD BASE, PCS BASE 
DS$JX„JIB, DSJAX ARB 
DS$AX_SOFTPCB, SfB BASE 
STACK BASE, KSTKPTR 
ISTKPTR, ESTKPTR 
SSTKPTR, USTKPTR 
DS$A PRGBGN, P0PT„BASE 
DSSGC LOOKASIDE 
EXE$GC.SPL1TADR 



ZZ-ENSAA-7.C 

SHOWMEMORY 

06-06 



Is a program loaded* really? 

*** SHOWflEM Handle Show Memory command 

Is a program loaded* really? 



01 00000204 9F 



51 00000000G EF 



08 



01 
51 
50 



02 
02 
50 
01 
51 
51 



I 9 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:16:35 
09:41:33 



Fiche 13 Frame 19 
VAX-11 Bliss-32 



Sequence 2584 
V4. 0-742 Page 



DMA1:[SYSO.SYSMAINT]SHOWMEMORY.B32;1 



7 

(2) 



.EXTRN DS$6A LASTADR, DS$GL J1EMSIZE 

.EXTRN DSSGLlSET.MEMSIZE 

.EXTRN DEBUG.LO, DEBUG.HI 

.PSECT CODE,NOWRT, SHR,2 



50 D4 00000 



ED 
12 
D6 
Ef 
D2 
CA 
05 



00002 
0000B 
OOOOD 
OOOOF 
00018 
0001B 
0001 E 



DSRSCHECKLOAD:: 

CLRL RO 

CMPZV 02, 

BNEQ 1$ 

INCL RO 

1$: EXTZV 01, 

MCOML R1, 

BJCL2 R1, 
RSB 



08, 9/TX00000204, 01 



0195 



01 
R1 
RO 



DSSGLJLAGS, R1 



0196 



; Routine size: 31 bytes. Routine Base: CODE + 0000 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



0197 
0198 
0199 
0200 
0201 
0202 



DSVSShowMemory routine 

*** SHOWMEM Handle Show Memory command 

DSVSShowMemory routine 

XSbttl 'DSVSShowMemory routine' 



J 9 

27-Jul-198A 

27-JuL-1984 
26-JuL~1984 



16:16:35 
09:41:33 



Fiche 13 Frame J9 
VAX-11 Btiss-32 



Sequence 2585 
V<i.0-7**2 Page 



DMA1:CSYS0.SYSMAINT3SHOWMEMORY.B32;1 



8 
(3) 



Global Routine DSVSShowMemory : Jsb.None NoValue = 
Begin 

ShowMemory () 
End; 



! Just CALLS routine 



0000V CF 



00 FB 00000 



05 00005 



DSVSSHOWMEMORY: 
CALLS 
RSB 



00, SHOWMEMORY 



0201 
0202 



Routine Size: 6 bytes. Routine Base: CODE + 001F 



ZZ-ENSAA- 


7.0 


SHOWMEMORY 


06-06 




; 0203 


1 


; 0204 


1 


; 0205 


1 


; 0206 


2 


; 0207 


2 


; 0208 


2 


; 0209 


£ 


; 0210 


2 


; 0211 


2 


; 0212 


2 


0213 


2 


; 0214 


-> 
c 


0215 


2 


; 0216 


2 


021? 


2 


; 0218 


2 


0219 


2 


; 0220 


2 


; 0221 


2 


; 0222 


2 


; 0223 


2 


; 0224 


3 


; 0225 


3 


; 0226 


3 


; 0227 


3 


; 0228 


2 


; 0229 


2 


; 0230 


2 


; 0231 


2 


; 0232 


2 


; 0233 


2 


; 023<« 


2 


; P 0235 


2 


; P 0236 


2 


; P 0237 


2 


; P 0238 


2 


; 0239 


2 


; 02^0 


2 


; 0241 


2 


; 0242 


2 


; P 0243 


2 


; P 0244 


2 


; P 0245 


2 


; P 0246 


2 


; 0247 


2 


; 0248 


2 


; 0249 


2 


; 0250 


2 


; P 0251 


2 


; P 0252 


2 


; P 0253 


2 


; P 0254 


<? 


; 0255 


2 


; 0256 


2 


; 0257 


2 


; 0258 


2 


; 0259 


2 



ShowMemory Routine 

*** SHOWMtM Handle Show Memory command 

ShowMemory Routine 

XSbttl 'ShowMemory Routine* 

Routine ShowMemory : NoValue s 
Begin 

Local 

Temp, 

MemoryFlags : BitVector [4J, 

OnLine : Byte; 

Suiltin 

Mfpr; 

MemoryFlags - . ShowMemoryF lags<0, 4>; 

If .MemoryFlags Eql 
Then 

MemoryFlags [Sm_V_Map] = 1; 

If .MemoryFlags [Sm_VJUU 
Then 

Begin 

MemoryFlags [Sm V_Map] = 1; 

MemoryFlags [Sm~ V_Buf ferJ - 1; 

MemoryFlags [SnfV.DataJ - 1 

End; 

OnLine = .DsaSV_User; 

DsSGB.TypeCode = Ds$K_Type_Command_0ut; 

If .MemoryFlags [Sm^V.Map] 
Then 

$Ds_PrintF ( 
"Format, 
0, 
T Reserved 

>7 

If .MemoryFlags CSm_V_Map] 
Then 

$Ds_PrintF ( 
"Format, 
DsSA^PrgBgn, 

SAscic ('Beginning of diagnostic region') 
* # 

If .MemoryFlags CSm^V.MapJ And DSR$CheckLoad () 
Then 

SDs.PrintF ( 
"Format, 
.LSA^LastAdr, 

SAscic ('End of loaded diagnostic') 
' * 

It .MemoryFlaas CSm V_8uffer] 
And DsrSCheckLoad T) 

Then 
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! Get flags locally 
! Default is /Map 

! Set all option bits if /All 



Get user mode bit locally 



First page of memory 



Begin of diagnostic 



End of diagnostic 



If /Buffer or /All 

.. and diagnostic is loaded 



[01] 
[01] 

con 

con 

[01] 
[01] 
[01] 



[01] 



[01] 



[01] 



[01] 

[01] 
[01] 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



P 
P 
P 

P 
P 
P 



0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 



ShowMemory Routine 

*+* SHOWMtM Handle Show Memory command 

ShowMemory Routine 

SDs.PrintF ( 
"Format5. 
XX'FAOO* - .L$A LastAdr, 
UX'FAOO' - .L$A_LastAdr)/1024, 
T BufferSpace, 
SAscic ('below Supervisor') 

>; 

If .MemoryFlags [Sm^V^Map] Or .MemoryFlags [Sm^V.Data] 
Then 

SDs.PrintF ( 
"Format, 
XX'FAOO', 
SAscic ('APT Ptext buffer') 

); 

If .MemoryFlags CSm_V Map] 
Or .MemoryFlags CSm^v^DataJ 
Then 

$DsJ>HntF ( 
Format, 
XX'FEOO', 

SAscic ('APT Mailbox') 
); 
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Available buffer space 

. . amount available 
.. same in Kb 



con 
con 

COM 

con 
con 
con 

con 



! APT Ptext buffer 



If .MemoryFlags CSm^V.MapJ 
Then 

$Ds_Printf ( 
"Format2, 
XX'10000\ 

SAscic ('Beginning of '), 
T DS 

>; 

If .MemoryFlags [Sm_V,Map] 
Then 

$Ds_PrintF ( 
~Furmat , 

AxJJuf f , 

SAicic ('End of Supervisor load image') 

); 

If .MemoryFlags [Sm_V_DataJ And Not .OnLine 
Then 

Begin 

$Ds„PrintF ( 
"Format, 
Phd.Base. 
SAscic (*PHD f ) 
); 

SDs^PrintF ( 
"Format , 
Pcb.Base. 
SAscic ('Hardware PCS') 

>;. 

SDs PrintF ( 

Format, 



con 



APT mai I box 



con 



i Begin of Supervisor 



con 



Top of DS image 



con 



PHD 



hardware PCB 



JIB 



ZZ-ENSAA- 


7.0 


ShowMemory Routine 

*** SHOWMEM Handle Show Memory command 


SHOWMEMORY 


06-06 




ShowMemory Routine 


; P 0317 


3 


Ds$AX Jib, 


; P 0318 


3 


SAscic ('JIB') 


; 0319 


3 


); 


; P 0320 


3 


SDs.PrintF ( 


; P 0321 


3 


"Format, 


; P 0322 


3 


DsSAX Arb, 


; P 0323 


3 


SAscic CARS') 


; 0324 


3 


); 


; P 0325 


3 


$D$_PrintF ( 


; P 0326 


3 


"Format, 


; P 0327 


3 


DsSAX SoftPCB, 


; P 0328 


3 


SAscic ('Software PCS') 


; 0329 


3 


); 


; P 0330 


3 


$Ds_PrintF ( 


; P 0331 


3 


"Format, 


; P 0332 


3 


SCB_8ase, 


; P 0333 


3 


SAscic CSC3') 


; 0334 


3 


); 


; P 0335 


3 


$Ds PrintF ( 


; P 0336 


3 


"Format, 


; P 0337 


3 


Stack_Base, 


; P 0338 


3 


T Reserved 


; 0339 


3 


); 


; 0340 


3 


Mfpr vPrS Ksp, Temp); 


; P 0341 


3 


$Ds_PrintF ( 


; P 0342 


3 


~Format2, 


; P 0343 


3 


.Temp, 


; P 0344 


3 


T Kernel, 


; P 0345 


3 


T"SP 


; C346 


3 


)7 


; P 0347 


3 


$Ds_PHntF ( 


; P 0348 


3 


"Format3, 


; P 0349 


3 


KStkPtr, 


; P 0350 


3 


T Kernel, 


; P 0351 


3 


T'Stack 


; 0352 


3 


); 


; 0353 


3 


Mfpr (Pr$ Isp, Temp); 


; P 0354 


3 


SDs^PrintF ( 


; P 0355 


3 


~Format2, 


; P 0356 


3 


.Temp, 


; P 0357 


3 


T Interrupt, 


; P 0358 


3 


T SP 


; 0359 


3 


); 


; P 0360 


3 


$Ds PrintF ( 


; P 0361 


3 


"Format3, 


; P 0362 


3 


IStkPtr, 


; P 0363 


3 


T Interrupt, 


; P 0364 


3 


T~Stack 


; 0365 


3 


)7 


; 0366 


3 


Mfpr (PrS Esp, Temp); 


; P 0367 


3 


$Ds_PrintF ( 


; P 0368 


3 


~Format2, 


; P 0369 


3 


.Temp, 


; P 0370 


3 


T Executive, 


; P 0371 


3 


tsp 


; 0372 


3 


); 


; P 0373 


3 


$Ds_PrintF ( 
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I ARB 



! software PCB 



! SCB 



! Reserved page 



! Kernel Stack pointer 



C03] 



! Kernel Stack pointer base 



[03] 



! Interrupt Stack pointer 



C033 



! Interrupt Stack pointer base 



C03] 



l Executive Stack pointer 



[03] 



! Executive Stack pointer base 



ZZ-ENSAA- 


7.0 


ShowMemory Routine 

*** SHOWMtM Handle Show Memory command 


SHOWMEMORY 


06-06 




ShowMemory Routine 


; P 037; 


3 


Format3, 


; P 0375 


3 


EStkPtr, 


; P 0376 


3 


T Executive, 


; P 0377 


3 


Otack 


; 0373 


3 


>; 


; 0379 


3 


Mfpr (Pr$ Ssp, Temp); 


; P 0330 


3 


$Ds_PrintF ( 


; P 0381 


3 


"Format2, 


; P 0382 


3 


.Temp, 


; P 0383 


3 


T Supervisor, 


; P 0384 


3 


T~SP 


; 0385 


3 


>7 


; P 0386 


3 


$Ds_PrintF ( 


; P 0387 


3 


Format3, 


; P 0388 


3 


SStkPtr, 


; P 0389 


3 


T_Supervisor, 


; P 0390 


3 


T^Stack 


0391 


3 


>; 


0392 


3 


*1fpr (Pr$ Usp, Temp); 


; P 0393 


3 


$Ds_PrintF ( 


; P 0394 


3 


~Formar2, 


; P 0395 


3 


.Temp, 


; P 0396 


3 


T_User, 


; P 0397 


3 


T SP 


0398 


3 


); 


; P 0399 


3 


$Ds_PrintF ( 


; P 0400 


3 


~Format3, 


; P 0401 


3 


UStkPtr, 


; •» 0402 


3 


T User, 


; P 0403 


3 


T^Stack 


0404 


3 


>; 


0405 


^ 


Mfpr (Pr$ P0BR, Temp) ; 


; P 0406 


3 


$Ds_PrintF ( 


; P 0407 


3 


~Format2, 


; P 0408 


3 


.Temp<0, 30>, 


; P 0409 


3 


T P0, 


; P 0410 


3 


T Base 


0411 


3 


)7 


0412 


3 


Mfpr (Prl POlR, Temp); 


; P 0413 


3 


$Ds_PrintF ( 


; P 0414 


3 


~Format3, 


; P 04^5 


3 


.Temp, 


; P 0416 


3 


T.P0, 


; P 0417 


3 


T Length 


0418 


* 


)7 


0419 


3 


Mfpr (Pr$ P18R, Temp) ; 


; p 0420 


3 


$Ds_PrintF ( 


; P 0421 


3 


*"Format2, 


; P 0422 


3 


,Temp<0, 30>, 


; P 0423 


3 


T.P1 # 


; P C424 


3 


T Base 


; 0425 


3 


>; 


; 0426 


3 


Mfpr (Pr$ P1LR, Temp); 


; P 0427 


3 


$Js_PrintF ( 


; P 0428 


3 


~Format3, 


; P 0429 


3 


.Temp, 


; P 0430 


3 


T.P1* 
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! C033 



! Supervisor Stack pointer 



C03] 



! Supervisor Stack pointer base 



[03] 



! User Stack pointer 



[03: 



! User Stack pointer base 



[03] 



! P0 Page table 



[01] 



! P0 Page table 



! P1 Page table 



[01] 



! PI Page table 



7Z-ENSAA- 


7.0 


SHOWMEMORY 


06-06 




; P 0431 




; 0432 


3 


: 0433 


3 


; P 04:14 


3 


; P 0435 


3 


; P 0436 


3 


; P 0437 


3 


; P 0438 


3 


; 0439 


3 


; 0440 


3 


; P 0441 


3 


; P 04A? 


3 


; P 0445 


3 


; P 0444 


3 


; P 0445 


3 


0446 


4 


0447 


2 


0448 


2 


0449 


2 


; 0450 


2 


0451 


3 


; P 0452 


3 


; P 0453 


3 


; P 0454 


3 


; P 0455 


3 


0456 


^ 


0457 


3 


0458 


3 


; 0459 


3 


; P 0460 


3 


; P 0461 


3 


; P 0462 


3 


; P 0463 


3 


0464 


3 


0465 


3 


0466 


2 


0467 


2 


0468 


2 


0469 


2 


04 70 


2 


; P 0471 


2 


; P 0472 


2 


; P 0473 


2 


; P 0474 


2 


; P 0475 


2 


; P 0476 


2 


0477 


2 


0478 


2 


04/9 


2 


; 0480 


3 


0481 


2 


; P 0482 


2 


; P 0483 


2 


; P 0484 


2 


; P 0485 


2 


; P 0486 


2 


; P 0487 


2 



ShowMemory Routine 

•** SHOWMEN Handle Show Memory command 

ShowMemory Routine 

T_Length 

Mfpr (Pr$ SBR, Temp); 
SDs.PrintF ( 
~Format2, 
.Temp, 

T_System, 
T Base 

); 

Mfpr (Pr$ SLR, Temp); 
$Ds_Pn'ntF ( 

Format3, 

.Temp, 

T^System, 

T^Length 

End; 

Jf .MemoryFlags [Sm^VJ^ap] Or .MemoryFlags CSm^V^DataD 
Then 

Beg^'n 

$Ds_PrintF ( ! 

"Format, 
.Ds$GL_LookAside, 
$Ascic~( 'Start of Supervisor memory pool') 

>; 

if .DsSGL.LookAside Neq .Exe$GL_Spl itAdr 
Then 

$Ds_PrintF ( 
"Format, 
.ExeSGL SpL itAdr, 

SAscic 7'Start of JRP Look-r.side list') 
); 

End; 

If .MemoryFlags [Sm V Map] 
Or .MemoryFlags [Sm^^DataJ 
Then 

$Ds_PrintF ( 
~Format5, 
.DsSGA LastAdr, 
(.DsfGS LasrAdr * 1023)/1024, 
SAscic 7' Top of run-time '), 
T DS 

)7 

If .MemoryFlags [Sm V Suffer] 
And (.Ds$GL_MemSi2i 5tr ,Ds$GA_LastAdr) 

Then 

$Ds_PrintF ( 

"Format5, 
.Ds$GL MemSize - .DsSGA LastAdr , 
(.Ds$G[_MemSi>e - .Ds$GA_LastAdr)/1024, 
T SufferSpace, 
SSscic Cabovj Supervisor*) 
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System Page table 



! System Page table 



[01] 



Non-Paged Pool 



Lookaside list start 



[013 



Top of run-time DS 
tt of Kb (next higher) 

If /Buffer or /All 

Available buffer space 

.. amount available 
. , same in Kb 



[01] 



ZZ-ENSAA- 


7.0 


SHOWMEMORY 


06-06 




; 0488 


2 


; 0489 


? 


0490 


2 


0491 


3 


; P 0492 


3 


; P 0493 


3 


; P 0494 


3 


; P 0495 


3 


0496 


3 


; P 0497 


3 


; P 0498 


3 


; P 0499 


3 


; P 0500 


3 


0501 


3 


; P 0502 


3 


; P 0503 


3 


; P 0504 


3 


; P 0505 


3 


; 0506 


3 


; 0507 


2 


0508 


2 


0509 


2 


0510 


L. 


0511 


3 


; P 0512 


3 


; P 0513 


3 


0514 


3 


0515 


3 


; 0516 


3 


; P 0517 


3 


0518 


3 


; P 0519 


3 


; P 0520 


3 


0521 


3 


; 0522 


2 


; 0523 


2 


0524 


2 


0525 


2 


; P 0526 


2 


; P 0527 


2 


; P 0528 


2 


; P 0529 


2 


; P 0530 


2 


0531 


2 


; 0532 


2 


; 0533 


1 



ShowMemory Routine 

*** SH0WMEM Handle Show Memory command 

ShowMemory Routine 

); 

If .MemoryFlags [Sm_V_Buf fer] Then 
Begin 

$DSJ>rintF ( 
"Format* 
.DSSGL BufCnt CO], 
T P0_BufCnt 

)7 
SDS^PrintF ( 
"Format, 
.)S$GL BufCnt [ID, 
T P1 BufCnt 

>7 " 

$DS„Pr intF ( 

Format, 

.DSSGL BufCnt [2J, 

T SO BufCnt 

>7 

End; 
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If ,dsa$v_debug 
then 

begin 

$ds_printf (format, 

.debug_lo, 

Sascic ('Bottom of debugger')); 
if not .online 
then 

$ds printf (format6, 

Sascic (' (includes allocation for symbol tables) 1 )); 
Sds_printf (format, 

,debug„hi, 

$ascic"('Top of debugger')); 
end; 



If /Buffer or /All 

Print the amount of buffer space being used in 

. . . P0 space. 

, . . This is the number of pages 



Print the amount of buffer space being used in 

. . . P1 space. 

, . . This is the number of pages 



Print the amount of buffer space being used in 

. . . SO space. 

. . . This is the number of pages 



If debugger is loaded, print its limits. 



C013 

[033 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[03] 
[03J 
C033 
[03] 
[03] 
[03] 
[03] 
[03] 
[031 
[03J 

[02] 



I f Not .OnLine 
Then 

$Ds_PrintF ( 
~Format4, 

.DsSGL MernSi^e, 
,DsSGLlMemSize/1024, 

SAscic ('Top of physical memory') 
> ; 
Ds$G8_TypeCode = 0; 

End; 



64 


20 


66 


6F 


20 


67 


6E 


69 


6E 


6E 


69 


67 


65 


42 


1E 


001C7 P.AAY: 


6F 


69 


67 


65 


72 


20 


63 


69 


74 


73 


6F 


6E 


67 


61 


69 
6E 


001D6 
001 E 5 


20 


64 


65 


64 


61 


6F 


6C 


20 


66 


6F 


20 


04 


6E 


45 


18 


001E6 P.AAZ: 












63 


69 


74 


7^ 


6F 


6E 


67 


61 


69 


64 


001F5 


73 


69 


76 


72 


65 


70 


75 


53 


20 


77 


6F 


6C 


65 


62 


10 


001FF P. ABA: 



! Top of physical memory 

! Kb of memory 

i Clear sticky typecode 

.PSECT DATA,N0WRT,N0EXE, SHR,2 

.ASCII <30>\Beginning of diagnostic region\ 

.ASCII <24>\End of loaded diagnostic\ 
.ASCII <16>\below Supervisor\ 



[01] 



ZZ-ENSAA-7,0 

SHOWMEMORY 

06-06 



ShowMemory Routine 

* + * SHOWMEM Handle Show Memory command 

ShowMemory Routine 



D 10 

27-JuM984 Fiche 13 Frame D10 Sequence 2592 

27-Jul-1984 16:16:35 VAX-11 Bliss-32 V4. 0-742 Page 15 

26-Jul-1984 09:41:33 DMA1 :[SYS0.SYSMAINTJSH0WMEM0RY.B32;1 (4) 



66 66 75 62 20 74 78 65 74 50 

78 6F 62 6C 69 61 40 

20 66 6F 20 67 6E 69 6E 6E 

69 76 72 65 70 75 53 20 66 6F 

65 67 61 60 69 20 64 61 6F 

42 43 50 20 65 72 61 77 



42 43 50 20 65 72 61 77 



72 65 
6F 70 

4C 20 

74 

6D 69 

73 69 

75 62 

6C 6C 

6D 79 

65 67 

61 63 



70 75 

20 79 

50 52 

73 69 

74 2D 

76 72 

65 64 

61 20 

73 20 

67 75 

69 73 



53 20 

72 6F 

49 20 

6C 20 

6E 75 

65 70 

20 66 

73 65 

72 6F 
73 

62 65 

79 68 



66 6F 

6D 65 

66 6F 

65 64 
72 20 

75 53 

6F 20 

64 75 

66 20 

65 6C 



20 74 

6D 2C 

20 74 

69 73 

66 6F 

20 65 

6D 6F 

6C 63 

6E 6F 

62 61 



64 20 66 6F 



70 20 
79 



66 6F 
72 6F 



50 00000000* EF 



03 
50 00OOFEO3 9F 







72 


6F 


0020E 






20 54 


50 


41 
72 


10 
65 


00210 P. ABB: 
0021 F 


.ASCII 


<16>\APT Ptext buffer\ 


20 54 


50 


41 


OB 


00221 P. ABC: 


.ASCII 


<11>\APT Mailbox\ 


69 67 


65 


42 


OD 


0022D P.ABD: 


.ASCII 


<13>\Beginning of \ 


20 64 


6E 


45 


1C 


0023B P.ABE: 


.ASCII 


<28>\End of Supervisor Load image\ 


6C 20 


72 


6F 


73 


0024A 






44 


48 


50 


03 


00258 P.ABF: 


.ASCII 


<3>\PHD\ 


64 72 


61 


48 


OC 


0025C P.AB6: 


.ASCII 


<12>\Hardware PCB\ 


42 


49 


4A 


03 


00269 P.ABH: 


.ASCII 


<3>\JIB\ 


42 


52 


41 


03 


0026D P.ABI: 


.ASCII 


<3>\ARB\ 


74 66 


6F 


53 


OC 


00271 P.ABJ: 


.ASCII 


<12>\Software PCB\ 


42 


43 


53 


03 


0027E P.A8K: 


.ASCII 


<3>\SCB\ 


72 61 


74 


53 


1F 


00282 P.ABL: 


.ASCII 


<31>\Start of Supervisor memory poolA 


72 6F 


73 


69 
6C 


76 
6F 


00291 
002AO 






72 61 


74 


53 


1C 


002A2 P. ABM: 


.ASCII 


<28>\Start of IRP Look-aside list\ 


61 2D 


6B 


6F 


6F 


002B1 






20 70 


6F 


54 
20 


10 
65 


002BF P.ABN: 
002CE 


.ASCII 


<16>\Top of run-time \ 


76 6F 


62 


61 
72 


10 
6F 


002DO P.A80: 
002DF 


.ASCII 


<16>\above Supervisor^ 


74 74 


6F 


42 


12 


002E1 P.ABP: 


.ASCII 


<18>\Bottom of debugger\ 


72 


65 


67 


67 


002F0 






6E 69 


28 


20 


28 


002F4 P.ABQ: 


.ASCII 


\( (includes allocation for symbol tables\ 


69 74 


61 


63 


6F 


00303 






74 20 


6C 


6F 


62 


00312 












29 


0031 C 


.ASCII 


\)\ 


20 70 


6F 


54 


OF 
72 


0031D P.ABR: 
0032C 


.ASCII 


<15>\Top of debuggerA 


20 70 


6F 


54 


16 


0032D P.ABS: 


.ASCII 


<22>\Top of physical memory\ 


6D 65 


6D 


20 


6C 


0033C 


.EXTRN 
.PSECT 


DSSPRINTF 
CODE,NOWRT, SHR,2 








OFFC 


00000 SHOWMEMORY: 














.WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


58 000000006 


EF 


9E 


00002 


MOVAB 


DS$GL_L00KASIDE, R11 


5A 000000006 


EF 


9E 


00009 


MOVAB 


DSSGB TYPECODE, RIO 


59 000000006 


EF 


9E 


00010 


MOVAB 


DS$GL~BUFCNT, R9 


58 000000006 


EF 


9E 


00017 


MOVAB 


DS$GL"*MEMSIZE, R8 


57 000000006 


EF 


9E 


0001 E 


MOVAB 


DS$GA~LASTADR, R7 


56 000000006 


9F 


9E 


00025 


MOVAB 


a#DS$PRINTF, R6 


55 00000000' 


EF 


9E 


0002C 


MOVAB 


FORMAT, R5 


04 




00 


EF 


00033 


EXTZV 


#0, 04, SH0UMEM0RYFLA6S, RO 


53 




50 


90 


0003C 


MOVB 


RO, MEM0RYFLA6S 






03 


12 


0003F 


BNEQ 


1$ 


53 




01 


SB 


00041 


BISB2 


#1, MEM0RYFLA6S 


53 




03 


E1 


00044 1$: 


BBC 


#3, MEMORYFLAGS, 2$ 


53 




07 


88 00048 


BISB2 


#7, MEMORYFLAGS 


01 




04 


EF 


0004B 2$: 


EXTZV 


#4, #1, a# A X0000FE03, RO 


54 




50 


90 


00054 


MOVB 


RO. ONLINE 

t*22 t DS$GB TYPECODE 


6A 




16 


90 


00057 


MOVB 


35 




53 


E9 


0005A 


BLBC 


MEMORYFLAGS, 3$ 


009F 


C5 


9F 


0005D 


PUSHAB 


T RESERVED 



0205 



0216 

02181 
0220 
0222 
0227 
0230 

0231 
023| 
023S 



ZZ-ENSAA-7.0 

SHOWMEMORY 
06-06 


ShowMemory Routine 
*** SHOWMEM Handle 
ShowMemory Routine 


Show Mei 








66 
27 








66 

15 








OF 




2E 




66 
53 

28 




50 0000021 A 
51 


9F 
50 
7E 
7E 




0E 




66 
04 
53 

7E 




OE 




66 
04 
53 

7E 

66 
26 

66 
OF 




03 




66 
53 

FA 

66 







27 


E 1C 
-Jul- 


) 
-1984 


Fiche 13 Frame E10 Sequence 2593 




mory command 


27 


-JuL- 


•1984 16:16 


:35 VAX-11 Bh"ss-32 V4. 0-742 Page 16 






26 


-Jul- 


•1984 09:41 


:33 DMA1:CSYS0.SYSMAINT3SHOWMEMORY.B32;1 


(4) 




7E 


D4 00061 




CLRL 


-(SP) 






55 


DD 00063 




PUSHL 


R5 






03 


FB 00065 




CALLS 


03, DS$PRINTF 






53 


E9 00068 




BLBC 


MEMORYFLAGS, 3$ 


0241 


01C7 


C5 


9F 0006B 




PUSHAB 


P.AAY 


0247 


0OCO00OOG 


EF 


9F 0006 F 




PUSHAB 


DS$A„PRGBGN 






55 


DD 00075 




PUSHL 


R5 






03 


FB 00077 




CALLS 


03, DS$PRINTF 






53 


E9 0007A 




BLdC 


MEMORYFLAGS, 3$ 


0249 


f 


'F5B 


30 0007D 




BSBW 


DSRSCHECKLOAD 






50 


E9 00080 




BL8C 


RO, 3$ 




01E6 


C5 


9F 00083 




PUSHAB 


P.AAZ 


0255 


000002" 4 


9F 


DD 00087 




PUSHL 


30 A XOOOOO214 






55 


DD 0008D 




PUSHL 


R5 






03 


FB 0008F 




CALLS 


03, DS$PRINTF 






01 


E1 00092 


3$: 


BBC 


01, MEMORYFLAGS, 4$ 


• 0257 


I 


•F42 


30 00096 




BSBW 


DSRSCHECKLOAD 


• 0258 




50 


E9 00099 




BLBC 


RO, 4$ 




01FF 


C5 


9F 0009C 




PUSHAB 


P. ABA 


• 0266 


01AC 


C5 


9F OOOAO 




PUSHAB 


T BUFFERSPACE 




0OOOFAO0 


8F 


C3 000A4 




SUBL3 


054000, 90 A XOOOOO214, RO 




00000400 


8F 


C7 OOOBO 




DIVL3 


01024, RO, R1 






51 


CE 00OB8 




MNEGL 


R1, -(.SP) 






50 


CE OOOBB 




MNEGL 


RO, -(SP) 




75 


A5 


9F OOOBE 




PUSHAB 


F0RMAT5 






05 


FB 000C1 




CALLS 


05, DSSPRINTF 


* 




53 


E8 000C4 


4$: 


BLBS 


MEMORYFLAGS, 5$ 


; 0268 




02 


E1 00OC7 




BBC 


02, MEMORYFLAGS, 6$ 




0210 


C5 


9F OOOCB 


5$; 


PUSHAB 


P. ABB 


: 0274 


FAOO 


8F 


3C OOOCF 




MOVZWL 


064000, -(SP) 






55 


DD O0OD4 




PUSHL 


R5 






03 


F8 00OD6 




CALLS 


03, DSSPRINTF 






53 


E8 O0OD9 6$: 


BLBS 


MEMORYFLAGS, 7$ 


• 0276 




02 


E1 OOODC 




BBC 


02, MEMORYFLAGS, 8$ 


; 0277 


0221 


C5 


9F OOOEO 7$: 


PUSHAB 


P. ABC 


; 0283 


FEOO 


8F 


3C 0OOE4 




MOVZWL 


065024, -(SP) 






5 j 


DD 00OE9 




PUSHL 


R5 






03 


FB OOOEB 




CALLS 


03, DSSPRINTF 






53 


E9 OOOEE 


8$: 


BLBC 


MEMORYFLAGS, 9$ 


; 0285 


OOAD 


C5 


9F O0OF1 




PUSHAB 


T DS 


; 0292 


022D 


C5 


9F O0OF5 




PUSHAB 


PTABD 




00010000 


8F 


DD O0OF9 




PUSHL 


065536 




1C 


A5 


9F OOOFF 




PUSHAB 


F0RMAT2 






04 


FB 00102 




CALLS 


04, DSSPRINTF 






53 


E9 00105 




BLBC 


MEMORYFLAGS, 9$ 


; 0294 


023B 


C5 


9F 00108 




PUSHAB 


P.ABE 


; 0300 


000000006 


EF 


9F 001 OC 




PUSHAB 


AX BUFF 






55 


DD 0011? 




PUSHL 


R5~ 






03 


FB 00114 




CALLS 


03, DSSPRINTF 






02 


EO 00117 


9$: 


BBS 


02, MEMORYFLAGS, 11$ 


• 0302 




01A7 


31 0011B 


10$: 


BRW 


12$ 






54 


E8 001 1 E 


11$: 


BLBS 


ONLINE, 10$ 




0258 


C5 


9F 00121 




PUSHAB 


P.ABF 


; 0309 


0O0000O0G 


EF 


9F 00125 




PUSHAB 


PHD BASE 






55 


DD 001 2B 




PUSHL 


R5 " 






03 


FB 001 2D 




CALLS 


03, DSSPRINTF 




025C 


C5 


9F 00130 




PUSHAB 


P.ABG 


; 031 4| 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



ShowMemory Routine 

*** SHOWMEM Handle Show Memory command 

ShowMemory Routine 

000000006 EF 9F 

55 DD 

66 03 F8 

0269 C5 9F 

00O00OOOG Ef 9F 

55 DD 

66 03 F8 

026D C5 9F 

000000006 EF 9F 

55 DD 

66 03 FB 

0271 C5 9F 

OOOOOOOOG EF 9F 

55 DD 

66 03 FB 

027E C5 9F 

OOOOOOOOG EF 9F 

55 DD 

66 03 F8 

009F C5 9F 

OOOOOOOOG EF 9F 

55 DD 

66 03 F8 

52 00 D8 

OOFA C5 9F 

00C3 C5 9F 

52 DD 

1 C A5 9F 

66 04 F8 

OOEE C5 9F 

00C3 C5 9F 

OOOOOOOOG EF 9F 

3B A5 9F 

66 04 F8 

52 04 DB 

OOFA C5 9F 

OOCA C5 9F 

52 DD 

1 C A5 9F 

66 04 F8 

OOEE C5 9F 

OOCA C5 9F 

OOOOOOOOG EF 9F 

3B A5 9F 

66 04 FB 

52 01 D8 

OOFA C5 9F 

00D4 C5 9F 

52 DD 

1C A5 9F 

66 04 FB 

OOEE C5 9F 

00D4 C5 9F 

OOOOOOOOG EF 9F 

38 A5 9F 

66 04 FB 

52 02 D8 



F 10 
27-JuL-1984 
27-Jul-1984 
26-JuM984 



16:16:35 
09:41:33 



Fiche 13 Frame F 10 
VAX-11 BLiss-32 



Sequence 2594 
V4. 0-742 Page 



DMA1 :CSYS0. SYSMAINT3SHOWMEMORY.B32; 1 



17 
(4) 



00134 

001 3A 

0013C 

0013F 

00143 

00149 

0014B 

0014E 

00152 

00158 

0015A 

0015D 

00161 

00167 

00169 

0016C 

00170 

00176 

00178 

0017B 

0017F 

00185 

00187 

0018A 

0018D 

00191 

00195 

00197 

0019A 

0019D 

001A1 

001A5 

001AB 

001AE 

001B1 

00184 

001B8 

001BC 

001BE 

001C1 

001C4 

001C8 

001CC 

001D2 

001D5 

001 D8 

001DB 

001DF 

001E3 

001 E r 

OOlEd 

001EB 

001EF 

001F3 

001F9 

001FC 

001 FF 



PUSHA8 

PUSHL 

CALLS 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

PUSHAB 

PUSHAB 

PUSHL 

CALLS 

MFPR 

PUSHAB 

PUSHAB 

PUSHL 

PUSHAB 

CALLS 

PUSHAB 

PUSHAB 

PUSHAB 

PUSHAB 

CALLS 

MFPR 

PUSHAB 

PUSHAB 

PUSHL 

PUSHAB 

CALLS 

PUSHAB 

PUSHAB 

PUSHAB 

PUSHAB 

CALLS 

MFPR 

PUSHAB 

PUSHAB 

PUSHL 

PUSHAB 

CALLS 

PUSHAB 

PUSHAB 

PUSHAB 

PUSHAB 

CALLS 

MFPR 



PCS 8ASE 

R5 " 

£3, DS$PRINTF 

P.ABH 

DS$AX JIB 

R5 

#3, DSSPRINTF 

P.ABI 

DSSAX.ARB 

R5 

03, DSSPRINTF 

P.ABJ 

DS$AX SOFTPCB 

R5 " 

#3, DSSPRINTF 

P.ABK 

SCB BASE 

R5 " 

03, DSSPRINTF 

T RESERVED 

STACK BASE 

R5 

03, DSSPRINTF 
#0, TEMP 

T SP 

T"KERNEL 

TEMP 

F0RMAT2 

#4, DSSPRINTF 

T.STACK 

T KERNEL 

K5TKPTR 

F0RMAT3 

04, DSSPRINTF 
04, TEMP 
T_SP 

T INTERRUPT 

TEMP 

F0RMAT2 

04, DSSPRINTF 

T STACK 

TlNTERRUPT 

ISTKPTR 

F0RMAT3 

04, DSSPRINTF 

01, TEMP 
T.SP 

T EXECUTIVE 

TEMP 

F0RMAT2 

04, DSSPRINTF 

T STACK 

TEXECUTIVE 

ESTKPTR 

F0RMAT3 

04, DSSPRINTF 

02, TEMP 



0319 
0324 
0329 
0334 
0339 



0340 
0346 



0352 



0353 
0359 



0365 



0366 
0372 



0378 



0379 



7Z-ENSAA-7.Q 

SHOWMEMORY 

06-06 



?E 



7E 



ShowMemory Routine 

+ ** SHOWMEM Handle Show Memory command 

ShowMemory Routine 

00FA C5 

OODE C5 

52 

1C A5 

66 04 

OOEE C5 

OODE C5 

000000006 EF 

38 A5 

66 04 

52 03 

OOFA C5 

0OE9 C5 

52 

1C A5 

66 04 

OOEE C5 

0OE9 C5 

0OOO0O00G E^ 

3B A5 

66 04 

52 08 

0108 C5 

OOFE C5 

52 1E 00 

1C A5 

66 04 

52 09 

OIK C5 

OOFE C5 

52 

3B A5 

66 04 

52 OA 

0108 C5 

0101 C5 

52 1E 00 

1C A5 

66 04 

52 08 

one c5 

0101 C5 

52 

3B A5 

66 04 

52 OC 

010B C5 

0104 C5 

52 

1C A5 

66 04 

52 OD 

one c5 

0104 C5 

52 

38 A5 

66 04 



G 10 

27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



16:16:35 
09:41:33 



Fiche 13 Freme 610 
VAX-11 BLiss-32 



Sequence 2595 
V4. 0-742 Page 



DMA1sCSYS0.SYSMAINT]SH0WMEM0RY.B32;1 



9F 00202 
9F 00206 
DD 0020A 
9F 0020C 
F8 0020F 
9F 00212 
9F 00216 
9F 0021 A 
9F 00220 
F8 00223 
DB 00226 
9F 00229 
9F 0022D 
DD 00231 
9F 00233 
FB 00236 
9F 00239 
9F 0023D 
9F 00241 
9F 00247 
FB 0024A 
DB 0024D 
9F 00250 
9F 00254 
EF 00258 
9F 0025D 
FB 00260 
DB 00263 
9F 00266 
9F 0026A 
DD 0026E 
9F 00270 
F8 00273 
D8 00276 
9F 00279 
9F 0027D 
EF 00281 
9F 00286 
F8 00289 
D8 0028C 
9F 0028F 
9F 00293 
DD 00297 
9F 00299 
F8 0029C 
D8 0029F 
9F 002A2 
9F 002A6 
DD 002AA 
9F 002AC 
F8 002AF 
D8 002B2 
9F 002B5 
9F 002B9 
DD 0028D 
9F 002BF 
FB 002C2 



PUSHAB T_SP 

PUSHAB T SUPERVISOR 

PUSHL TEMP 

PUSHAB F0RMAT2 

CALLS #4, DSSPRINTF 

PUSHAB T.STACK 

PUSHAB T SUPERVISOR 

PUSHAB SSTKPTR 

PUSHAB F0RMAT3 

CALLS #4, DSSPRINTF 

MFPR #3, TEMP 

PUSHAB T.SP 

PUSHAB T USER 

PUSHL TEMP 

PUSHAB FORMA T2 

CALLS #4, DSSPRINTF 

PUSHAB T.STACK 

PUSHAB T USER 

PUSHAB U3TKPTR 

PUSHAB F0RMAT3 

CALLS #4, DSSPRINTF 

MFPR #8, TEMP 

PUSHAB T.BASE 

PUSHAB T PO 

EXTZV #0, #30, TEMP, -<SP) 

PUSHAB F0RMAT2 

CALLS #4, DSSPRINTF 

MFPR 09, TEMP 

PUSHAB T_LEN6TH 

PUSHAB T PO 

PUSHL TEMP 

PUSHAB F0RMAT3 

CALLS #4, DSSPRINTF 

MFPR #10, TEMP 

PUSHAB T BASE 

PUSHAB T"P1 

EXTZV #0, #30, TEMP, -<SP> 

PUSHAB F0RMAT2 

CALLS #4, DSSPRINTF 

MFPR #11, TEMP 

PUSHAB T.LEN6TH 

PUSHAB T P1 

PUSHL TEMP 

PUSHAB F0RMAT3 

CALLS #4. DSSPRINTF 

MFPR #12, TEMP 

PUSHAB T.BASE 

PUSHAB T SYSTEM 

PUSHL TEMP 

PUSHAB F0RMAT2 

CALLS #4, DSSPRINTF 

MFPR #13, TEMP 

PUSHAB T LEN6TH 

PUSHAB T'SYSTEM 

PUSHL TEMP 

PUSHAB F0RMAT3 

CALLS #4, DSSPRINTF 



18 
(4) 

0385 



0391 



0392 
0398 



0404 



0405 
0411 



0412 
0418 



0419 

0425 



0426 

0432 



0433 
0439 



U440 
04 46 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



ShowMemory Routine 

*** SHOWMEM Handle Show Memory command 

ShowMemory Routine 





04 




53 


23 


53 




02 






0282 


C5 
68 
55 




66 




03 


0OOO0OO0G 


EF 




68 
OF 






02A2 


C5 






00000000G 


EF 
55 




66 




03 




04 




53 


20 


53 




02 






OOAD 


C5 






028F 


C5 


50 


6? 


000003FF 


8F 


7E 


50 


00000400 


8F 
67 






75 


A5 




66 




05 


48 


53 




01 




67 




68 
1C 






02D0 


C5 






01AE 


C5 


50 


68 




67 


7E 


50 


00000400 


8F 
50 






75 


A5 




66 




05 


21 


53 




01 






013B 


C5 
69 
55 




66 




03 






0160 


C5 






0« 


A9 
55 




66 




03 






0185 


C5 






08 


A9 
55 




66 




03 


2C 00Q0FE03 


9F 




02 






02E1 


C5 






000000006 


EF 
55 




66 




03 




08 




54 






02F4 


C5 






0092 


C5 




66 




02 






031D 


C5 




66 


00000000G 


EF 
55 
03 



H 10 
27-Jul-1984 
27-JuM984 
26-JuM984 



16:16:35 
09:41:33 



Fiche 13 Frame H10 
VAX-11 Bliss-32 



Sequence 2596 
V4. 0-742 __ Page 



DMA1:CSYS0.SYSMAINT3SHOWMEMORY.B32;1 



E8 002C5 12$: BLBS MEMORYFLAGS, 13$ 

E1 002C8 BBC #2. MEMORYFLAGS, 14$ 

9F 002CC 13$: PUSHAB P.ABL 

OD 00200 PUSHL DSSGL.LOOKASIDE 

DD 00202 PUSHL R5 

F8 002D4 CALLS #3, DSSPRINTF 

D1 002D7 CMPL DSSGLJ.OOKASIDE, EXESGL.SPLITADR 

13 002DE BEQL 14$ 

9F 002E0 PUSHAB P. ABM 

DD 002E4 PUSHL EXESGL^SPLITADR 

DD 002EA PUSHL R5 

F8 002EC CALLS #3, DSSPRINTF 

E8 002EF 14$: BLBS MEMORYFLAGS, 15$ 

E1 002F2 BBC #2, MEMORYFLAGS, 16$ 

9F 002F6 15$: PUSHAB T.DS 

9F 002FA PUSHAB P.ABN 

C1 002FE ADDL3 #1023, DS$GA LASTADR, RO 

C7 00306 DIVL3 #1024, RO, -TSP) 

DD 0030C PUSHL DSSGA LASTADR 

9F 00310 PUSHAB FORMATS 

FB 00313 CALLS #5, DS$PRINTF 

E1 00316 16$: BBC #1 , MEMORYFLAGS, 18$ 

D1 0031 A CMPL DSSGLJ1EMSIZE, DSSGA.LASTADR 

15 0031D BLEQ 17$ 

9F 0031 F PUSHAB P.ABO 

9F 00323 PUSHAB T BUFFERSPACE 

C3 00327 SUBL3 D3$GA_LASTADR, DS$GL_MEMSIZE, RO 

C7 00328 DIVL3 #1024, RO, -<SP> 

DD 00333 PUSHL RO 

9F 00335 PUSHAB F0RMAT5 

FB 00338 CALLS #5, DS$PRINTF 

F1 0033B 17$: BBC #1, MEMORYFLAGS, 18$ 

9F 0033F PUSHAB T PO BUFCNT 

DD 00343 PUSHL DSSGC.BUFCNT 

DD 00345 PUSHL R5 

FB 00347 CALLS Hi. DS$PRINTF 

9F 0034 A PUSHAB T PI BUFCNT 

DD 0034E PUSHL D5$G[_BUFCNT+4 

DD 00351 PUSHL R5 

FB 00353 CALLS #3, DS$PRINTF 

9F 00356 PUSHAB T SO BUFCNT 

DD 0035A PUSHL D5$GC.BUFCNT+8 

DD 0035D PUSHL R5 

FB 0035F CALLS #3, DS$PRINTF 

E1 00362 18$: BBC #2, cW*XO00QFE03, 20$ 

9F 0036A PUSHAB P.ABP 

DD 0036E PUSHL DEBUG.LO 

DD 00374 PUSHL R5 

FB 00376 CALLS #3, DS$PR1NTF 

E8 00379 BLBS ONLINE, 19$ 

9F 0037C PUSHAB P.ABQ 

9F 00380 PUSHAB F0RMAT6 

FB 00384 CALLS #2, DSSPRINTF 

9F 00387 19$: PUSHAB P.ABR 

DD 0038B PUSHL DEBUG..HJ 

DD 00391 PUSHL R5 

FB 00393 CALLS #3, DSSPRINTF 



19 
(4) 

0449 

0456 

0458 

0464 



0468 
0469 
0477 



0479 

0480 

0488 



0490 
0496 



0501 



0506 



0509 
0514 



0515 
0518 



0521 



ZZ-ENSAA-7.0 

SHOWMEMORY 

06-06 



ShowMemory Routine 

*** SHOWMtM Handle Show Memory command 

ShowMemory Routine 



7E 



14 

032D 
68 00000400 



66 



5B 



54 
C5 
8F 
68 
A5 
04 
6A 



I 10 
27-Jul-1984 

27-Jul-1984 
26-Jul-1984 



16:16:35 
09:41:33 



Fiche 13 Frame 110 
VAX-11 Bliss-32 



Sequence 2597 
V4. 0-742 _. Page 



DMA1:[SYS0.SYSMAINT3SHOWMEMORY.B32;1 



E8 00396 20$: 

9F 00399 

C7 0039D 

DD 003A5 

9F 003A7 

F8 003AA 

94 003AD 21$: 

04 003AF 



BL8S ONLINE, 21$ 

PUSHAB P.ABS 

DIVL3 #1024, DSS6L MEMSIZE, -<SP) 

PUSHL DS$GL MEMSIZF 

PUSHAB F0RMAT4 

CALLS M. 0S$PRINTF 

CLRB DS$GB TYPEC0DE 

RET 



20 
(4) 

0524 
0531 



0532 
0533 



Routine Size: 944 bytes. Routine Base: CODE + 0025 



0534 1 



72-ENSAA-7.Q 

SHOWMEMORY 
06-06 

0535 1 

0536 1 

0537 1 

0538 1 

0539 1 

0540 1 

0541 1 

0542 1 

0543 1 

0544 1 

0545 1 

0546 1 

0547 1 

0548 1 

0549 1 

0550 1 

0551 1 

0552 1 

0553 1 

0554 1 

0555 1 

0556 1 

0557 1 

0558 1 

0559 1 

0560 1 

0561 1 

0562 1 

0563 1 

0564 1 

0565 1 

0566 1 

0567 1 

0568 1 

0569 1 

0570 1 

0571 1 

0572 2 

0573 2 

0574 2 

0575 2 

0576 2 

0577 2 

0578 2 

0579 2 

0580 2 

0581 2 

0582 2 

0583 2 

0584 2 
0565 2 

0586 2 

0587 2 

0588 2 

0589 3 

0590 3 

0591 3 



ShowMemory Routine 

*** SH0WMEM Handle Show Memory command 

ShowMemory Routine 



XSBTTL 'VRSETMEM' 

GLOBAL ROUTINE VRSETMEM (CL1.BASE) 



J 10 
27-Jul-1984 Fiche 13 Frame J10 Sequence 2598 

27-Jul-1984 16:16:35 VAX-11 BUss-32 V4. 0-742 Page 2} 

26-Jul-1984 09:41:33 DMA1 :[$YS0.SYSMAJMT3SHOWMEMORY.B32;1 (5) 

BEGIN C05] 



JSB^CLJ = 



+ + 



FUNCTIONAL DESCRIPTION: 



This routine is called from the CLI module. It sets the value of 
DS$GL_SET MEMSIZE to the value specified, remaps memory, and goes 
to commancl level (DS>). 

CALLER(S): 

CLI 
FORMAL PARAMETERS: 

R2 - Points to the CLI data table base. 
IMPLICIT INPUTS: 

CLI_BASE [CLI$L^DATA3 - Indicates the new value of memory. 
IMPLICIT OUTPUTS: 

New value for DSSGL.SETJIEMSIZE. 
COMPLETION CODES: 

None 
SIDE EFFECTS: 

Executes user's cleanup code. 



BEGIN 



EXTERNAL ROUTINE 

BEGIN BLISS : INT, 
DSRSMMENABLE ; JS8 0, 
DS CLEANUP : JSB.NuNE, 
INTSLOAD.DE VICE : JSB.NONE, 
INISPTABEE : JS8 NONE, 
MAPMEM : J SB NONE, 
SCRIPTSFLUSH": JSB.NONE; 

LOCAL 

WASSET; 



C063 



MAP 



CLI BASE : REF BLOCK [, BYTE]; 



If (.CLI BASE CCLl$L DATA] LSS 0) 

THEN'SDS PRIHTF TSASCIC USTRING ( ! ?? Error, negative number of pages speci f ied! ! ' , 5JCHAR (CR, LP)))) 
ELSE BEGIN 



zz- 


•ENSAA- 


7.0 


SHOWMEMORY 


06- 


•06 






0592 


3 




0593 


3 




0594 


3 




0595 


3 




0596 


3 




0597 


3 




0598 


3 




0599 


3 




0600 


3 




0601 


3 




0602 


1 



VRSETMEM 

*** SHOWMEM Handle Show Memory command 

VRSETMEM 



K 10 

27-Jul-1984 
27-Jul-1984 
26-JuM984 



16:16:35 
09:41:33 



Fiche 13 Frame K10 
VAX-11 BUss-32 



Sequence 
V4. 0-742 



2599 



DMA1:[SYS0.SYSMAINT]SHOWMEMORY.B32;1 



Page 



22 
(5) 



<0>; 



END; 



END 



DSSGL SET MEMSIZE = ,CLI_BASE CCHSL.DATA]; 

SCRIPTSFLOSH (); 

DS CLEANUP (); 

WA5SET = DSRSMMENA8LE 

MAPMEM (); 

\F .WASSET EGL SS$ WASSET THEN DSRSMMENABLE (1); 

INISPTABLE <); 

INISLOAD DEVICE 0; 

BEGIN.BLlSS () 



61 67 65 6E 20 2C 72 6F 72 72 45 20 3F 3F 30 00344 P. AST: .ASCII 
20 66 6F 20 72 65 62 6D 75 6E 20 65 76 69 74 00353 



63 65 70 73 20 73 65 67 61 70 00362 
OA OD 21 21 64 65 69 66 69 0036C 



52 DD 00000 



OO000O00G 
OOOOOOOOG 



9F 
EF 

52 
09 
50 



1C 

00000000 • 

tc 

OOOOOOOOG 
OOOOOOOOG 

OOOOOOOOG 

OOOOOOOOG 



OOOOOOOOG 
OOOOOOOOG 
OOOOOOOOG 
OOOOOOOOG 



A2 
OF 
EF 

01 
45 
A2 
cF 
EF 
50 
U 
50 
EF 
52 
09 
01 
EF 
EF 
EF 
EF 
04 



D5 
18 
9F 
F8 
11 
DO 
16 
16 
D4 
16 
DO 
16 
D1 
12 
DO 
16 
16 
16 
16 
BA 
05 



00002 
00005 
00007 
OOOOD 
00014 
00016 
0001E 
00024 
0002A 
0002C 
00032 
00035 
0003B 
0003E 
00040 
00043 
00049 
0004F 
00055 
00058 
0005D 



VRSETMEM:: 

PUSHL 

T3TL 

BGEQ 

PUSHAB 

CALLS 

BRB 

1$: MOVL 
JSB 
JSB 
CLRL 
JSB 
MOVL 
JSB 
CMPL 
BNEQ 
MOVL 
JSB 

2$: JSB 
JSB 
JSB 

3$: POPR 
RSB 



Routine Size: 94 bytes. Routine Base: CODE + 03D5 



Set the new value of memory 

Flush scripts if console command 

Execute user's cleanup code 

Turn off memory management 

Remap memory with new value 

Reset memory management if on before 

Initialize P-tables 

ATT console and boot devices 

Reset and go to DS> 

End 



[06D 



[05] 



.PSECT DATA,N0WRT,NOEXE, SHR,2 

\0?? Error, negative number of pages spec\ 



.ASCII \ified!!\<13><10> 

.EXTRN BEGIN BLISS, DSRSMMENABLE 

.EXTRN DS CLEANUP, INI $L OAD^DEVI CE 

.EXTRN INTSPTABLE, MAPMEM 

.EXTRN SCRIPTSFLUSH 

.PSECT C0DE,N0WRT, SHR,2 



R2 
28<CLI_BASE) 

1$ 

P.ABT 

01, a*DS$PRINTr 

3$ 

28CCLI BASE), DS$Gl_SET_MEM!>IZE 

SCRIPT$FLUSH 

DS CLEANUP 

RO" 

DSRSMMENABLE 

RO, WASSET 

MAPMEM 

WASSET, #9 

2S 

AM, RO 

DSRSMMENABLE 

INISPTABLE 

INISLOAD DEVICE 

BEGIN BLlSS 

JTM<R2> 



0538 
0589 

0590 



0592 
0593 
0594 
0595 



0596 
0597 



0598 
0599 
0600 
0602 



0603 1 

0604 1 



End 



! End of module 



ZZ-ENSAA-7,0 

SHOWMEMORY 

06-06 

0605 



VRSETMEM 
*** SHOWMEM 
VRSETMEM 

Eludom 



Handle Show Memory command 



L 10 
27-Jul-1984 
27-Jul-1984 
26-Jul-1984 



Flche 13 Frame L10 Sequence 2600 
16:16:35 VAX-11 Bliss-32 V4. 0-742 Page 23 

09:41:33 DMA1 :CSYS0.SYSMAINTJSHOWMEMORY.B32; 1 (S) 



PSECT SUMMARY 



Name 



Bytes 



DAT', 
WORK 
CODE 



885 NOVECNONRT, 

1 NOVEC, WRT, 

1075 NOVEC, NOWRT, 



Attributes 

RD ,NOEXE, SHR, LCL, REL, 

RD ,NOEXE,N0SHR, LCL, REL, 

RD , EXE, SHR, LCL, REL, 



C0N,N0PIC,AL1GN(2) 
C0N,N0PJC,ALJGN(2) 
C0N,N0PIC,ALIGN(2) 



Library Statistics 



File 

DRB1:CDS.WORK]DIAG. 132:265 

DRB1:CDS.WORKDDS.L32;159 

SYS$SYSROOT:CSYSLJBJLJB.L32;7 



Total 

784 

653 

18017 



Symbols 
Loaded 

11 

6 

15 



Percent 



Pages 
Mapped 

85 

42 

975 



Processing 
Time 

00:00.2 
00:00.2 
00:04.6 



COMMAND QUALIFIERS 
BL I SS/NOOBJECT/L I ST=CDS.L JSD/OPTJMI ZE=( LEVEL :3, SPACE) /DEBUG/TRACE SHOWMEMORY 



Size: 1075 code 
Run Time: 00:24.9 
Elapsed Time: 00:49.0 
Lines/CPU Min: 1460 
Lexemes/CPU-Min: 18569 
Memory Used: 276 pages 
Compilation Complete 



886 data bytes 



.„J 



ZZ-ENSAA- 


•7.0 * 


START 




Table of 


contents 


(3) 


178 


(3) 


269 


(3) 


700 


(O 


842 


(4) 


901 


W 


963 



M 10 
START Handle START command 27-JUL-1984 « n Fiche 13 Frame M10 Sequence 2601 

*** START Handle START command 27-JUL-1984 15:45:52 VAX-11 Macro V03-01 Page 

Dec larations 

VRStart and VRReStart Routines 
VRAbort and DSXSAbort Routines 
VRSupport Routines 
VRShowSections Routine 
DSISTJME AST Routine 



ZZ-ENSAA-7,0 

START 

l>7-41 



*** START Handle START command 

*** START Handle START command 



N 10 
27-JUL-1984 Fiche 13 
27-JUL-1984 15:45:52 
23-MAY-1984 14:15:55 



Frame N10 Sequence 2602 
VAX-11 Macro V03-01 Page 1 
DMA1:[SYS0.SYSMAINTJSTART.MAR;220 (1) 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 
oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



.TITLE 
.IDENT 
.NoShow 



START 
/07-41/ 

Conditionals 



*** START Handle START command 



Copyright (c) 1977, 1981, 1982, 1983, 1>84 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTFR SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 



ITS 



FACILITY: 
ABSTRACT: 



VAX DIAGNOSTIC SUPERVISOR. 

CONTAINS ALL PROGRAM STARTING AND STOPPING FUNCTIONS: 
"START" COMMAND SUBROUTINE. 
"CONTINUE" COMMAND SUBROUTINE. 
"ABORT" COMMAND SUBROUTINE. 
$DS ABORT DIAGNOSTIC SERVICE PROCEDURE. 



ENVIRONMENT: 
AUTHOR; 



KEN CHAPMAN 



10-N0V-77 



VERSION 01. 



ZZ-ENSAA-7.0 

START 



*** START Handle STAR, command 

*** START Handle START command 



B 11 
27-JUL-1984 Fiche 13 

27-JUL-1984 15:45:52 
23-MAY-1984 U: 15:55 



Frame B11 Sequence 2603 

VAX-11 Macro V03-0T Paj 

DMA1:[SYS0.SYSMAINnSTART.M*R;< 



[ 20 



? 
(2) 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



37 

38 

39 

40 

41 

4? 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

71 

74 

75 

76 

77 

78 

79 

80 

81 



MODIFIED BY: 

01 
02 
03 



04 
05 



06 

07 
08 
09 

10 

11 
12 

13 



14 
15 



17 
18 

19 

20 



TOM SOUTTER 17-U0V-77 VERSION 02 (ESSAA-3.04) . 

DSPR 025 - CONTINUE FROM BREAKPOINT PROBLEMS. 

DSPR #42 - APT FUNCTION UPDATE. 

FIX TO AVOID 'BUG CHECK" WHEN PROCEEDING FROM AN EXCEPTION, 

KEN CHAPMAN 08-DEC-77 VERSION 03 (ESSAA-3.05) . 
ADD NEW-LINE TO EN" OF PROGRAM J 1 1LZ MESSAGE. 
DSPR #4, #5 - ADDED 'C^TINUE AND ABORT MESSAGES. 



N. HOWGATE 
QIO SUPPORT 



15-FEB 78 



VERSION 04 (ESSAA-4.00), 



KEN CHAPMAN 20-MAR-78 VERSION 05 (ESSAA-4,01 ) . 

ALLOW CONTINUE PROM ANY BREAKPOINT OR A C. 

ADD TEST COUNT TO PROGRAM TITLE MESSAGE. 

CLEAR TIMER VECTOR IN STARTUP SEQUENCE. 

Roger Riggs 12-Jun-78 VERSION 06 (ESSAA-4.03) . 

Standardizing program related messages. 

NICK HOWGATE 23-JUN-78 

CORRECT 'APT 1 ABORT PROBLEM 

Roger Riggs 07-Aug-78 

Install test number range checking, also update DS$GL NUMTEST. 

fix so DS$M DONFLG is set by DS_CLEANUP and not checked 

before calling it. 

Changes reflected by new structure of basic loop. 

i.e. START and RESTART commands call test program directly 

Roger Riggs 23-OCT-1978 VERSION 07 <ESSAA-5.01) 

Changes to VRSTART to support new 010 ini tialiiation. 

Added code to verify that this program is compatible with 

this supervisor, via ENV$V_SUPER, Value must match 

ENV$_SUPER, in DIAG. Updated when supervisor interface 

changes REQUIRE diagnostic changes. 

Roger Riggs 4-Sept-1979 

Removed cneck of APT flag during start command 

Roger Riggs, 14-Feb-1980, Vervsion 5.2 

Changed so program will not be started if OiO initial ieat ion 

fails, QIO has already printed the error message. 

Roger Riggs, 12-Mar-1980, Version 5.3 

In VRABORT or DSX$AB0RT change mode back to kernel before 

doing cleanup but after the abort message is printed 

Roger Riggs, 5-Jun-1980, Version 5.4 

Added code to change mode and stack back to kernel 
before calling cleanup as a result of start. 



ZZ-ENSAA-7.0 

START 
07- A 1 



*** START Handle START command 

*** START Handle START command 



0000 


83 ; 


21 


0000 


84 ; 




0000 


85 ; 




0000 


86 ; 




0000 


87 ; 




0000 


88 ; 




0000 


89 ; 




oouo 


90 ; 


22 


0000 


91 ; 




0000 


92 ; 




0000 


93 ; 


23 


oooc 


94 ; 




0000 


95 ; 




0000 


96 ; 




cooo 


97 ; 


24 


0000 


98 . 
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99 , 




0000 


100 , 


25 


0000 


101 , 




0000 


10? , 




0000 


103 , 




0000 


104 , 


26 


0000 


105 , 




0000 


106 , 




0000 


107 , 


27 


0000 


108 ( 




0000 


109 , 




0000 


110 , 


! 28 


0000 


111 . 




0000 


112 




0000 


113 , 




0000 


114 , 


29 


0000 


115 




0000 


116 




0000 


117 




0000 


118 




0000 


119 


; 30 


0000 


120 




0000 


121 




0000 
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i 31 
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0000 
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0000 
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0000 
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0000 
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0000 
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135 




0000 


136 
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0000 


137 
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C 11 
27-JUL-1984 Fiche 13 
27-JUL-1984 15:45:52 
23-MAY-1984 14:15:55 



Frame C11 Seguence 2604 
VAX-11 Macro V03-07 Page 3 
DMA1:[SYS0.SYSMAINTJSTART.MAR;220 (3) 



- dave butenhof, 09-Sep-1981, version 6.- 

It is desirable, under APT, and if program error had 
occured, to have ABORT leave machine state intact, for 
purposes of isolating error. Add special code to skip 
INIT_C0NTEXT and CLEANUP calls if in APT mode and error 
flag set. 

- Marion Baggett 80-oct-1981 Version 6.- 

Added new entry point to support command SHOW SUPPORT 

- Jack Stansbury, 21-Oct-1981, Version 6.- 
Added calls to QA$MAJN for the QA enhancement. 
Also added .LIBRARY statements for $DS and $DIAG. 

- Jack Stansbury, 22-0ct-1981. Version 6.- 
Fixed truncation errors. 

• Jack Stansbury, 26-0c t-1981 , Version 6.- 
Changed most of the error messages to mixed case 
(as per government affirmative action regulations)! 

- Dave Butenhof, 19-Nov-1981 , version 6.- 
Add type codes to printouts 

- Jack Stansbury, 16-Nov-1981, Version 6.5 
Added the VRSH0WSECTI0NS routine. 

- Jack Stansbury, 21-Nov-1981, Version 6.5 
Commented out three of the calls to QA.MAIN because it 
appears they will not be needed for the 6.5 DS version. 

- Jack Stansbury, 5-Jan-1982, Version 6.6 

Added comments to the START routine in preparation for the 
version 30 changes. Also took out the commented-out calls 
to QA^MAIN since I will not be needing them. 

- Jack Stansbury, 6-Jan-1982, Version 6.6 

Added code and moved other code around in the START routine so 
as to facilitate the "QA Start Loop". 



- Jack Stansbury, 15-Jan-1982, Version 6.6 
Changed the FMT_PR0G header line so that it would print the 
number of tests on the first line. Only the time appears on the 
second line. This is in keeping with the EndPass message and 
the End-Of-Looping message (in EndSub). 



- Jack Stansbury, 20-Jan-1982, Version 6.6 
Added code to not print the header line if 
Subtest check was executing and if 
This prevents the header line from 
subtest in the diagnostic when the 
routine is executing. 



the QA Loop on 
a flag bit had been cleared, 
being output once for every 
Loop on Subtest check 



Marion Baqqett, 9-Apr-1982, Version 6.7 
Added .NoShow Conditionals after . I DENT , 
statements. Change DSSPRINTF statement to 



ordered .LIBRARY 
use type codes 



ZZ-ENSAA-7.0 

START 
07-41 



*** START Handle START command 

*** START Handle START command 



0000 


140 ; 


34 
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35 
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0000 
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36 
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38 
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41 


0000 


174 




0000 


175 




0000 


176 


>""■- 
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Richard Brown, 30-June-82, Version 6.8 
Addition of call to MAP_DEBUGGER so repeated STARTS will 
not wipe out the debugger once it has been loaded. 
Also, addition of loading debugger before diagnostic is 
started, if proper flag is set. 



Marion Baggett, 24-Sept-82 
Fixed truncation error. 



Version 6.9 



Bob Bergazzi 2-Nov-1982 Version 6.9 

Changed VRSTART so that if we are loaded under APT do not 

check the DSA$V_L0AD_DEBUGGER flag. APT sets this flag for 

reasons long sines lost. When running under APT, every 

START would cause the supervisor to try and load the debugger 

from the console device and cause APT to timeout. 

Jack Stansburv, 8-Mar-1983, Version 6.11 

Changed the abort routines to make sure they print the true 

(if there is one) user PC. 

John Ciukaj 3-May-1983 Version 6.11 

- Alter Start routine so that an error does not occur 

when an ambiguous section name is found AND the section name 

is equivalent to the name entered. 

Bob Bergazzi May 16, 1983 Version 6.11 
Changed the order of the .LIB statements. 

Bob Bergazzi Sep 21, 1983 Version 6.13 
Added BIN TIME quadword in PSECT WORK for START/TIME switch. 
Just before call to DISPATCH, do a SSETIMR if /TIME was given. 
Commented out for version 6.13 and 6.14, and 7.0 



Bob Bergazzi 
Fixed ABORT so 
user PC. 



Jan. 26, 1984 Version 6.14 
it won't print out VMS system 



addresses as the 
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Frame E11 Sequence 2606 
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0000 


17G 




.S8TTL Declara 


0000 


179 ; 






0000 


180 ; 


INCLUDE FILES: 


0000 


181 ; 






0000 


182 




.LIBRARY 


0000 


183 




.LIBRARY 


0000 


184 




.LIBRARY 


0000 


185 






0000 


186 , 






0000 


187 , 


MACROS: 


0000 


188 , 






0000 


189 






0000 


190 , 






0000 


191 t 


EQUATED SYMBOLS: 


cooo 


192 t 






0000 


196 




$DS CFDEF 


0000 


197 




$DS~CLIDEF 


0000 


198 




$DS~DSADEF 


0000 


199 




$DS"ENVDEF 


0000 


200 




$DS"HDRDEF 


0000 


201 




$DS~SCBDEF 


0000 


202 




sprBef 


0000 


203 




APTDEF 


0000 


204 




CLIDEF 


0000 


205 




DSFDEF 


0000 


206 




DSQA 


0000 


207 




DS.QADEFS 


0000 


208 




$ds_typedef 


0000 


209 






0000 


213 




.PAGE 


0000 


214 




.PS^CJ WORK, N 


0000 


215 






0000 


216 


•BIN.TIME:: ,BLKQ 1 


0000 


217 






0000 


218 


;BEGIN„ 


.TIME:: .BLKQ 1 


0000 


219 






0000 


220 


•CTRLC. 


TIME:: .BLKQ 1 



/Sys$library: lib/ 

/$DS/ 

/$DIAG/ 



[33] 
[393 
[39] 



DSQASK constant definitions 
Other QA$K constant definitions 
Define type codes 



Holds converted 64-bit time 

specified by user with /TIME 

Holds absolute time when diag 

started. 

Holds abs time at A C. 



was 



[32] 
[32] 
[26] 



[40] 

[40] 
[40] 
[40] 
[40] 
[40] 
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Declarations 



F 11 

27-JUL-1984 



Sequence 2607 
27-JUL-1984 15:45:52 VAX-11 Macro V03-0T Pa< 



61 72 67 6F 72 
69 76 65 72 20 
4C 55 21 2E AC 
25 21 74 73 65 
25 21 20 74 61 



65 74 72 6F 62 

74 61 20 6D 61 

21 20 2C 4C 55 

21 2E 4C 58 21 



65 74 72 6F 62 

74 61 20 6D 61 
21 20 2C 4C 55 



54 52 41 54 



50 20 2E 2E 2F 

2C 43 41 21 20 

55 21 20 6E 6F 

74 20 4C 55 21 

20 20 20 2F 21 

2F 21 



41 20 2E 2E 2F 
72 67 6F 72 70 
21 20 73 73 61 
20 43 50 20 2C 



41 20 2E 2E 2F 

72 67 6F 72 70 

21 20 73 73 61 

2F 21 21 



21 20 79 6C 6E 
20 2C 53 25 21 
72 20 74 73 65 



4F 20 3F 3F 2F 

74 73 65 74 20 

74 20 6B 63 65 

2F 21 2E 65 67 



222 
223 
224 



00000000 

0000 

0000 

53 00' 0000 

05 0000 

0006 

0006 

21 00' 0006 

3A 6D 0012 

69 73 001 E 

20 2C 002A 
2C 53 0036 
2E 54 0042 

3F 0006 

C046 228 

0046 

0046 

21 00' 0046 

20 64 0052 

70 20 005E 
53 41 006A 

2? 0076 
30 0046 

0077 

0077 

21 00 1 0077 

20 64 0083 
70 20 008F 
53 41 0098 

28 0077 
00A0 
OOAO 
00A0 
OOAO 
OOAO 
OOAO 
OOAO 
OOAO 

21 00' OOAO 
4C 55 OOAC 
68 63 0088 
6E 61 00C4 

2A OOAO 



SMODULE : 



Fiche 13 Frame F11 
15. '45 j 52 VAX-11 P 
23-MAY-1984 14:15:55 DMA1 :CSYS0.SYSMAINT3START.MAR; 

.PSECT Data, Shr, NoExe, NoWrt, Byte 

MODNAM START 

-ASCIC \START\ 



le 6 
M (3) 



225 

226 FMT.PROG: „ , „, ; 

227 .ASCIC "!/.. Program: iAC, revision !UL.!UL, iUL test \%S, !/"- ; 



[25] 
[31] 



" at !XT.!/" 
229 

230 FMT,A80RT: 

231 .ASCIC \!/.. Aborted program at pass !UL, !AS, PC JXL.!/\ 



[31] 

[25] 
[25] 



232 

233 Fmt Abort No PC: 

234 ~ .flSClC \!/.. Aborted program at pass JUL, JAS.JA 



235 

236 ;FMT TIME EXPIRED: 

237 ; " .ASCIC "!/.. Time limit has expired at pass !UL, !AS, PC !XL.!/"; 
238 

239 ;FMT TIME EXPIRED NO PC: 

240 ; " .ASCIC "T/.7 Time limit has expired at pass !UL, !AS.!/ M 
241 

242 FMT TESTRANGE: 

243 " .ASCIC \!/?? Only !UL testlXS, check test range. !/\ 



[373 
[37] 



[40] 



[40] 

[25] 
[25] 



6 11 „ „ 
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OOCB 245 FMT„N0UNITS: . . , ;,, C25J 

73 74 69 6E 75 20 6F 4E 20 3F 3F 00' OOCB 246 .ASCJC "?? No units to test, none selected with device type(s)!/ ; C25J 
6F 6E 20 2C 74 73 65 74 20 6F 74 20 00D7 
20 64 65 74 63 65 6C 65 73 20 65 6E 00E3 
20 65 63 69 76 65 64 20 68 74 69 77 OOEF 
2F 21 29 73 28 65 70 79 74 OOFB 

38 OOCB 

0104 247 

0104 248 FMT START: ; C253 

6F 72 70 20 6F 4E 20 3F 3F 2F 21 00 1 0104 249 .ASCJC \!/?? No program loaded. !/\ ; C25D 

2E 64 65 64 61 6F 6C 20 6D 61 72 67 0110 

2F 21 one 
19 0104 

011E 250 

CUE 251 FMT ILLSEC: ; £25J 

61 67 65 6C 6C 49 20 3F 3F 2F 21 00' 01 IE 252 .ASCJC \!/?? Illegal section name, should be one of!/\ ; C253 

61 6E 20 6E 6F 69 74 63 65 73 20 6C 012A 

62 20 64 6C 75 6F 68 73 20 2C 65 6D 0136 

2F 21 66 6F 20 65 6E 6F 20 65 0142 

2D 011E 

014C 253 

014C 254 FMT AM8SEC: ; C25D 

75 67 69 62 6D 41 20 3F 3F 2F 21 00' 014C 255 " .ASCJC \!/?? Ambiguous section name, should be one of!/\ ; C25] 
20 6E 6F 69 74 63 65 73 20 73 75 6F 0158 
64 6C 75 6F 68 73 20 2C 65 6D 61 6E 0164 
2F 21 66 6F 20 65 6E 6F 20 65 62 20 0170 

2F 014C 



ZZ-ENSAA- 


•7,0 


Declarations 






START 
















*** 


START 


07-41 
















Declaratii 




















017C 


6E 69 


61 


74 6E 


6F 


63 


20 


43 


41 


21 00* 


01 7C 


77 6F 


6C 


6C 6F 


66 


20 


65 


68 


74 


20 73 


0188 


73 6E 


6F 


69 74 


63 


65 


73 


20 


67 6E 69 


0194 
















2F 


21 3A 
26 


01AO 
017C 
01A3 
01A3 


23 21 


20 


3A 67 


6F 


69 


74 


73 


65 


54 00* 


01A3 








2F 


21 


29 


53 


41 


37 28 
12 


01AF 
01A3 
01B6 
0186 


76 65 


72 


20 73 


69 


68 


54 


20 


3F 


3F 00' 


0186 


74 73 


6F 


6E 67 


61 


69 


64 


20 


66 


6F 20 


C1C2 


20 74 


6F 


6E 20 


6C 


6C 


69 


77 


20 


63 69 


01CE 


69 68 


74 


20 68 


74 


69 


77 


20 


6E 


75 72 


01 DA 


72 6F 


73 


69 76 


72 


65 


70 


75 


73 


20 73 

2F 21 

3D 


01E6 
01F2 
01B6 
01F4 
01F4 


76 65 


64 


20 6F 


4E 


20 


3F 


3F 


2^ 


21 00 » 


01F4 


20 74 


72 


6F 70 


70 


75 


73 


20 


65 


63 69 


0200 


67 6F 


72 


70 20 


6E 


69 


20 


74 


73 


69 6C 


020C 










2F 


21 


2E 


6D 


61 72 
29 


0218 
01F4 



Handle START command 
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Frame H11 Seguence 2609 

VAX-11 Macro V03-01 Pa< 

DMA1:[SYS0.SYSMAINn$TART.MAR;< 



!20 



257 FMT.SECTIONS: 

258 .ASCJC "!AC contains the following sections:!/' 



259 

260 FMTJESTING: 

261 .ASCIC Uesting: 2#(7AS) !/\ 



8 
(3) 

L273 
L273 



C253 
L251 



262 

263 FMTJUSMATCH: ; , ,, C25J 

264 .ASCJC "?? This rev of diagnostic will not run with this supervisor!/ ;C25J 



265 

266 FMT_N0DEVICE: 

267 .ASCIC \!/?? No device support list in program. !/\ 



C22: 
[22] 
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Frame 111 Sequence 2610 
VAX-11 Macro V03-01 Page 
DMA1:[SYS0.SYSMAINT]START.MAR;220 



9 
(3) 



021E 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 



.SBTTL VRStart and VRReStart Routines 
.PSECT Code, Shr, Exe, NoWrt, Byte 



++ 

FUNCTIONAL DESCRIPTION: 

This subroutine is called from CLI to start the program. It verifies the 
command parameters and builds P-tables from the selected devices, and if 
necessary, initializes the QI0 database. 

CALLING SEQUENCE: 

Subroutine call from the command line interpreter. 
INPUT PARAMETERS: 

NONE 



IMPLICIT INPUTS: 

R2 

CLI$L„TEST(R2) 
CLI$L^LAST(R2) 
CLI$L_PASS(R2) 
CLISL SUBTCR2) 
LSLJJRIT 

OUTPUT PARAMETERS: 



BASE ADDRESS FOR CLI DATA BLOCK. 
FIRST TEST TO EXECUTE. 
LAST TEST TO EXECUTE. 
NUMBER OF PASSES TO RUN. 
SUBTEST NUMBER FOR LOOP. 
MAXIMUM NUMBER OF UNITS. 



NONE 



IMPLICIT OUTPUTS: NONE 

COMPLETION CODES: NONE 

SIDE EFFECTS: 

MAPFREE is called to initialize free memory Device for Q10 may be initialize 

REGISTER USAGE: 

R2 = BASE ADDRESS FOR CLI DATA BLOCK. 

R3 = UNIT COUNT. 

R4 = SECTION NAME ADDRESS LIST POINTER. 

R5 = SECTION NAME LIST COUNTER. 

R6 = SECTION NAME ASCII POINTER. 

R7 = INPUT CHARACTER COUNT. 

R8 ^ INPUT ASCII POINTER. 

R9 = Equivalent name flag [38] 

R10= Ambiguous name flag [38] 
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Frame J11 Sequence 2611 
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0000 


318 


; + 








0000 


319 




This i 






0000 


320 




been L 






0000 


321 


;- 








0000 


322 










0000 


323 VRSTART 


« • 

• • 


00000000' EF 01 


EO 


0000 


324 




BBS 


16 




0007 


325 










0008 


326 




$PRINT 






0008 


327 










0008 


328 






00000104'EF 


9F 


0008 








7E 01 


9A 


000E 








7E 15 


98 


0011 








00000000 'GF 03 


FB 


0014 








0321 


31 


001B 
001 E 


329 
330 




BRW 






001E 


331 


10$: 


Br If. 


OOOOFEOO'EF 1F 


EO 


001 E 






BB3 


14 




0025 








1E 


E1 


0026 


332 




BBC 


OC OOOOFEOO'EF 




0028 


333 






00000000' EF 


16 


002E 


334 




JSB 


00000000 'EF 


16 


0034 


335 




JSB 


40000000 8F 


CA 


003A 


336 20$: 


BJCL2 


OOOOFEOO'EF 




0040 


337 






02FD 


30 


0045 


338 




BS8W 






0048 


339 




QA MAI 


16 


DD 


0048 






puShl 


00000000' 9F 01 


FB 


004A 






CALLS 



the entry point 
Loaded. 



for the CLI call. Check to see if a program has 



CHECK LOAD FLAG. 



#DS$V LODFLG, - 

L A D3$GL_FLAGS, 10$ 
#ds$k type^command_err, - 

0dsSk printf, - 

L A FMT~START 
PUSHAB ~L A FMT„START 
movzbl 0ds$k_printf , -(sp) 
cvtbl 0ds$k type command err, -(sp) 
CALLS *$$N+2, G A t5SX$PRINT 
VRSTART X ; Exit routine 



; Command error message 
.. use printf 
"No program Loaded" 



Apt 20$ 

#DSA$V Apt, - 

L A DSA$GL FLags, 20$ 

*DSA$V^L0AB DEBUGGER,- 

DSASGL FLAGS, 20$ 

ACT DEFAULT DBG 

DSVlDEBUG " 

#DSASM LOAD DEBUGGER,- 

L a DSA$5LJLSGS 

Check QA Bit 
N Start'VRStart 

#DSQA$K Start, VRStart 

#1, a^QA$MAIN 



APT sets this fLag so don't check it 
; If bit set, branch 

IF USER' HAS TYPED "/DEBUG" 

THEN 

GET DEFAULT FILENAME FOR DEBUGGER 
LOAD AND START THE DEBUGGER 
Set up for new /DEBUG command 

Set or clear QA DSA bit 

CaLL QA$Main 



[29] 
[29] 



[303 
[26] 
[26] 
[26] 



[29] 

[36] 
[29] 
[29] 
[36] 
[34] 
[34] 
[34] 
[36] 
[36] 
[30] 
[30J 
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50 







0051 


341 


; + 








0051 


342 




Check to 






0051 


343 




Also ini 






0051 


344 


;- 








0051 


345 










0051 


346 


VRRESTART:: 






0051 


347 START1: 




00000000' EF 


16 


0051 


348 




JSB 


00000204 9F 08 02 


EF 


0057 
0060 
0060 


349 
350 
351 




extzv 


01 50 


D1 


0060 


352 




cmpl 


16 


13 


0063 


353 




BEQL 






0065 


354 




SPRINT 






0065 


355 










0065 


356 






000001B6 I EF 


9F 


0065 








7E 01 


9A 


006B 








7E 18 


98 


006E 








00000000' GF 03 


FB 


0071 








02C4 


31 


0078 
0078 


357 
358 




BRW 


00000000' EF 


16 


0078 


359 


10$: 


JS8 


02C1 


30 


0081 
0084 
0084 


360 
361 
362 




BSBW 






0084 


363 




QA MAIN 


12 


DD 


0084 






puShl 


00000000' 9F 01 


FB 


0086 






CALLS 



make sure the dia< 
tialize context am 



inostic and this 
I call QASMain. 



Supervisor match. 



SCRIPTSFLUSH 

#env$v super, - 

#envSs_super, - 

cWl$l_environ, rO 
rQ, 0env$ super 
10$ 
#ds$ktype_start err, - 

#ds$k prTntf, - 

L A FMT"MISMATCH 
PUSHAB "L A FMTJ1ISMATCH 
movzbl #ds$k_printf , -<sp) 
cvtb! 0ds$k type start err, -(sp) 
CALLS tf$$N+2, G A PSX$PRlNT 
VRSTART.X ; And Exit 



Flush scripts if console cmd 



Fetch Diagnostic version 

Is it identical? 

Branch if valid 

Error starting diagnostic 

.. use PRINTF 

Inform of mismatch 



[29] 
[29] 



[24] 
[26] 
[26] 
[26] 
[26] 

C26] 
[26] 
[26] 



INIT CONTEXT 
ChecE QA Bit 



Start, VRRestart 
JDSQAlK St art, VRRes tart 
#1- 3#QJ$MAIN 



Reset stacks and modes 
Set or clear QA OSA bit. Note: the 
QA bit was cleared by the 
SCRIPT$FLUSH routine above. 
Call QA$Main 



[24] 
[30] 
[30] 
[30] 
[30] 
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008D 


365 ; + 








008D 


366 ; 


Clean 






008D 


367 ;- 








008D 


368 




00000000' BF 


16 


008D 
0093 


369 
370 


JS8 


OOOOFEOO'C-F 1C 


EO 


0093 


371 


BBS 


07 




009A 


372 




00000000' EF 00 


FB 


0098 


373 


CALLS 



Cleanup the previous diagnostic and QIO (if applicable). 
DS CLEANUP ; DO CLEANUP IF NECESSARY 



1291 
[243 



#DSA$V USER, - 
DSASGL'FLAGS, 15$ 
0O,QIO$CLEANUP 



SKIP Q10SCLEANUP IN USERMODE 
Remove traces of QIO database 
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00A2 


375 












00A2 


376 












00A2 


377 












00A2 


378 




52 


00000000'EF 


DE 


00A2 


379 






OOOOFEIO'EF 


D4 


00A9 


380 








10 A2 


D5 


OOAF 


381 








03 


12 


00B2 


382 








00A7 


31 


00B4 
00B7 


383 
384 




54 


00000250'EF 


DO 


00B7 


385 








55 84 


DO 


OOBE 
00C1 


386 
387 








5A 


D4 


00C1 


388 








56 84 


DO 


00C3 


389 








59 


D4 


00C6 


390 






57 


10 A2 


DO 


00C8 


391 






58 


14 A2 


DO 


OOCC 


392 








57 66 


91 


0000 


393 








57 


19 


00D3 


394 








57 86 


91 


00D5 


395 








02 


12 


00D8 


396 








59 


D6 


OODA 
OODC 


397 
398 








88 86 


91 


OODC 


399 








4B 


12 


OODF 


400 








F8 57 


F5 


00E1 


401 


OOOOFEIO'EF 


00000250 


FF 55 


C3 


00E4 


402 












OOFO 


403 








59 


D5 


OOFO 


.404 








07 


13 


OOF 2 


405 






3B 


62 16 


E3 


00F4 
OOF 8 
00F8 


406 
407 
408 








0038 


31 


00F8 
OOFB 


409 
410 






2D 


62 16 


E3 


OOFB 
OOFF 


411 
412 








5A 01 


DO 


OOFF 


413 








0027 


31 


0102 
0105 
0105 
0105 
0105 


414 
415 
416 
417 
418 






OOOOOKC'EF 


9F 


0105 










7E 01 


9A 


010B 








7E 


EB 8F 


98 


010E 






00000000 


•GF 03 


FB 


0112 






50 


00000250 9F 


DO 


0119 


419 








023F 


30 


0120 


420 






00000000' EF 


94 


0123 


421 








0213 


31 


0129 


422 



Check the requested section name. 



15$: 



18$: 



20$: 



30$: 



32$: 



35$: 



MOVAL 

CLRL 

TSTL 

BNEQ 
brw 

MOVL 
MOVL 

CLRL 
MOVL 
CLRL 
MOVL 
MOVL 
CMPB 
BLSS 
CMPB 
BNEQ 
INCL 

CMP8 
BNEQ 
S086TR 
SUBL3 

TSTL 
BEQL 
BBCS 



BRW 

BBCS 

MOVL 
BRW 

SPRINT 



MOVL 
BSSW 
ctrb 
BRW 



DS$GL CLIBASE, R2 

DSASGC SECTNO 

CLI$QjECTJ0N(R2) 

18$ 

50$ 

L$A StCNAM, R4 
(R47+, R5 

R10 

(R4H, R6 

R9 

CL1SQ SECTI0N(R2), R7 

C!.I$Q SECTJON+4(R2), R8 

(R6),~R7 

40$ 

(R6)+, R7 

30$ 

R9 

(R6)+, (R8)+ 

40$ 

R7, 30$ 

R5, SLSA^SECNAM, - 

DSASGL^SECTNO 
R9 
32$ 
#CLI$V VALSEC, - 

CLI$CjLAGS(R2>, 42$ 

42$ 

rfCLISV VALSEC, - 

CLI$I\FLAGS(R2), 40$ 
#1, R10 
40$ 



Adress the CLI vector. 
INJT SECTION TO "DEFAULT 11 . 
CHECK FOR SECTION SWITCH. 
If found, continue 
Branch 

GET SECTION LIST ADDRESS. 
GET SECTION COUNT. 

Ambiguous name Flag 

GET SECTION NAME ASCII POINTER. 

Equivalent name Flag 

GET REQUESTED SECTION ASCII CNT. 

GET STRING POINTER. 

CHECK LENGTHS. 

BR IF INPUT TOO LONG. 

Characters Equivalent 

No 

Yes 

COMPARE CHARACTERS. 
BR IF MISMATCH. 
COUNT CHARACTERS. 
COMPUTE SECTION NUMBER. 

Equivalent name 

No 

SET VALID SECTION FLG. 

Set Valid Section Flag 
All Done 

SET AND CHECK VALID SECTION FIG, 

Indicate Ambiguous name 
Continue with list 



[29] 
[30D 



[26J 
[26] 



[38] 
[38] 

[38] 

[38] 
[38] 
[38] 



; command error (sticky) 
. use PRINTF 
?? Ambiguous section name." 



0-dsSk type.command^err, - 

#ds$K printf, - 

L A FMTJtf»8SEC ; * 
PUSHAB L A FMT_AMBSEC 
movzbl #ds$k printf, -<sp) 
cvtbl #~ds$C type commano err, -(sp) 
CALLS *$$N+2. G A DSX$PRINT 

d*L$A SECNAM,&0 ; Point to section names 
PRLIST ; Print list 

L*ds$gb_typecode ; Clear type code after done 
VRSTART^X 



[38] 
[38] 

[38] 
[38] 
[38] 
[38] 



[383 
[38] 
138] 
[26] 
[26] 
[26] 



[263 



ZZ-ENSAA- 

START 

07-41 



7.0 VRStart and 



94 



VRReStart Routines 

*** START Handle START command 
VRStart and VRReStart Routines 



55 
5A 
D2 
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27-JUL-1984 Firhe 13 
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23-MAY-1984 14:15:55 
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F5 
D5 
12 



27 62 16 EO 



000001 1E'EF 9F 

7E 01 9A 

7E EB 8F 98 

00000000'GF 03 FB 

50 00000250 9F DO 

020D 30 

OOOOOOOO'EF 94 

1 E1 31 



012C 
012F 
0131 
0133 
0133 
0137 
0137 
0137 
0137 
0137 
013D 
OHO 
0144 
014B 
C152 
0155 
01 5B 



424 40$: 

425 

426 

427 42$: 

428 

429 

430 

431 

432 



433 
434 
435 
436 



S086TR 

TSTL 

DNEQ 

BBS 

$PRINT 



R5 A 
RIO 

35$ 



20$ 



fOUNT SECTIONS. 
Ambiguous Name found? 
Yes 

CHECK FOR A VALID SECTION. 



MOVL 
BSBW 
clrb 
BRW 



#CLI$V VALSEC, - 

CLI$C_FLAGS<R2), 50$ 
#-ds$k t v oe_command_err, - 
0ds$E p.-?ritf, - ; . 
• "EC ; ' 
'V' : MTJLLSEC 
0as$k printf, -(sp) 
#-ds$E type command err, -(sp> 
#$$N+27 6 A D3X$PRINT 
SECNAM,R0 ; Point to section names 



PUSH/V 

movzbl 

cvtbl 

CALLS 



; Command error (sticky) 
. use PRINTF 
?? Illegal section name." 



[38] 
[38] 
C38J 



C263 
[26] 
[26] 



PRLIST 

L A ds$gb_typecode 

VRSTART^X 



Print 
Clear 
Exit 



section names 

type code after done 



[26] 
1272 



7Z-ENSAA-7.0 VRStart and VRReStart Routines 

START *♦« START Handle START command 

17-41 VRStart and VRReStart Routines 
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015E 


438 


;♦ 


























Q15E 


439 


» 


The 


section name checked out. 


Set the 


default 


ft 


ags. 






015E 


440 


t 






















015E 


441 
























015E 


442 


50$; 






















CA 01 SE 


443 




BJCL2 


* DS$M 


DONFLG 


- 




CLEAR CLEANUP 


DONE 






015F 


444 








DS$M" 


"STRFLG 


- 




AND 


PROGRAM 


STARTED 






015F 


445 








DSJM" 


"HLTFLG 


- 




AND 


HALTED ( 


3N 


ERROR 






015F 


446 








DS$M 


"CTRLC 


- 




• AND 


STOPPED 


BY 


A C 






015F 


447 








0$$M" 


"8RKPT 


- 




AND 


STOPPED 


BY 


BREAKPOINT 






015F 


448 








DS$M" 


'EXCEPT - 




AND 


STOPPED 


BY 


EXCEPTION 


uOQQQOOO'EF 


ooo82bqd sf 


015F 


449 








, L A DS$GL„.FLAGS 




• IN ' 


THE GLOBAL 


FLAGS 



[293 



L243 



ZZ-ENSAA-7.0 

START 
07-41 



VRStart and VRReStar t Routines 

*** START Handle START command 
VRStart and VRReStart Routines 
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0169 


451 






0169 


452 






0^69 


453 






0169 


454 


50 00000254' FF 


DO 


0169 


455 


OOOOOOOO'EF 50 


DO 


0170 


456 


51 


D4 


0177 


457 


0000FE08'EF 2C A2 


DO 


0179 


458 






0181 


459 


OOOOOOOO'EF 20 A2 


DO 


0181 


460 






0189 


461 


43 


19 


0189 


462 


06 


12 


01 8B 


463 


OOOOOOOO'EF 


D6 


018D 


464 






C193 


465 


OOOOOOOO'EF 24 A2 


DO 


0193 


466 






01 98 


467 


31 


19 


01 9B 


468 


OB 


12 


019D 


469 


OOOOOOOO'EF OOOOOOOO'EF 


DO 


019F 


470 






01AA 


471 






01AA 


472 


OOOOOOOO'EF OOOOOOOO'EF 


D1 


01AA 


473 






01B5 


474 


17 


14 


0185 


475 


OOOOOOOO'EF OOOOOOOO'EF 


D1 


0187 


476 






01C2 


477 


OA 


14 


01C2 


478 






01C4 


479 


OOOOOOOO'EF 28 A2 


DO 


01C4 


480 






01CC 


481 


1C 


11 


01CC 


482 






OUE 


483 






01CE 


484 






01CE 


485 






01CE 


486 






01CE 


487 


OOOOOOOO'EF 


DD 


OKE 




OOOOOOAO'EF 


9F 


01D4 




7E 01 


9A 


01DA 




7E 15 


98 


01DD 




00000000' GF 04 


F8 


01E0 




0155 


31 


01E7 


488 



Check the requested test numbers (i.e. TEST:x:y). 



80$: 



90$: 



MOVL 3L$A TSTCNT, HO 
MOVL RO,L*DS$GL_NUMTEST 
CLRL R1 
MOVL CLI$L PASS(R2), - 

DSAJGL PASSES 
MOVL CL1SL TE3T(R2), - 

L A D$$GL FSTTEST 
BLSS 95$ 
BNEQ 80$ 
INCL L A DS$GL_FSTTEST 

MOVL CL1$L LAST(R2), - 
L A D5$GL„LSTTEST 

BLSS 95$ 

BNEQ 90$ 

MOVL L A DS$GL NUMTEST, - 
L A DS$5L_LSTTEST 

CMPL L A DS$GL FSTTEST, - 
L A DS$BL NUMTEST 

BGTR 95$ 

CMPL L A DS$GL LSTTEST, - 

L A DS$5L_NUMTEST 

BGTR 95$ 

MOVL CLI$L SUBT(R2>, - 
L A D5$GL SUBTEST 
BR8 100$ 



95$: 



$PRJNT #ds$k type command err, - 

#ds$k pnntt, - 

L A FMT~TESTRANGE, - 

L A DS$5L NUMTEST 
PUSHL L*DS$GL NUMTEST 
PUSHAB L A FMT_TESTRANGE 
mov?bl #ds$k_printf , -(sp) 
cvtbl 0ds$k~type command err, -(sp) 
CALLS #$$N+2, G A DSX$PR1NT 
BRW VRSTARTJC ; EXIT 



GET ACTUAL TEST COUNT. 
SET HIGHEST TEST NUMBER 
Address page zero 
PASS COUNT 

FIRST TEST NUMBER 

MUST BE POSITIVE 
SKIP If NOT BLANK. 
START AT TEST 1. 

LAST TEST NUMBER. 

MUST BE POSITIVE 
SKIP IF NOT 0. 
DEFAULT LAST TEST. 



FIRST TEST NUMBER IN RANGE? 

NO, ERROR AND EXIT TO COMMAND 
LAST TEST NUMBER IN RANGE? 

NO, ERROR AND EXIT TO COMMAND 

SUBTEST NUMBER. 

CONTINUE 

; Command error 
.. use PRINTF 
. . format 
,. error in test numbers 



[29] 



[24] 



[24] 



[24] 

[24] 
[24] 



[24] 
[24] 

[24] 
[24] 

[24] 
[24] 



[24] 
[24] 



[26] 
[26] 
[26] 
[26] 



ZZ-ENSAA-7.0 

START 
07-41 



VRStart and VRReStart Routines 

*** START Handle START command 
VRStart and VRReStart Routines 
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01EA 


490 






01EA 


491 






01EA 


492 






01EA 


493 






01EA 


494 


17 


DD 


01EA 




00000000' 9F 01 


F8 


01EC 








01F3 


495 


OOOOFEOO'EF OF 


E1 


01F3 


496 


1A 




01FA 


497 


03 


EO 


01FB 


498 


00000000'EF 




01FD 


499 


OA 




0202 


500 


05 


EO 


0203 


501 


00000000'EF 




C205 


502 


02 




020A 


503 


08 


11 


0208 


504 






020D 


505 


00000000'EF 06 


EO 


020D 


506 


27 




0214 


507 






0215 


508 






0215 


509 






0215 


510 






0215 


511 






0215 


512 






0215 


513 






0215 


514 






0215 


515 






0215 


516 






0215 


517 


00 


DD 


0215 




00000254'FF 


DD 


0217 




0210 C1 


DD 


021D 




020C C1 


DD 


0221 




0208 C1 


DD 


0225 




00000006' EF 


9F 


0229 




7E 01 


9A 


022F 




7E OF 


98 


0232 




00000000 'GF 08 


F8 


0235 








023C 


518 






023C 


519 



100$: 



Print the diagnostic header lines, except under special circumstances 

QA MAIN Start Before_Header ; Call QA$Main 
PUSHL *DSQA$K Start Before Header 
CALLS n, a*QA$MAIN~ 

BBC 
BBS 



103$: 



8BS 

BR8 
BBS 



104$: SPRINT 



0DSASV QA, - 

l a dsb$gl flags, 104$ 
#qa$k looplon, subtest ,- 
l*qA$aob_chFck_state,~ 

103$ 

#qa$k error phase one, - 
l a qA$aob Check State, - 

103$ 
104$ 

0QA$K NO HEADER, - 
L*Q'A$AuB FLAGS, - 
105$ 



If not running QA, branch. 

If the Loop on Subtest check is 
executing, branch. 

If the Error Phase One check is 
executing, branch. 

Otherwise, branch and print header 

If header should not be printed, 
then branch around the print. 



; Start program 
Use PRINTF 
Format string 
Program name, 
revision 
update 

number of tests 
current time 



0ds$k type^program.start 

0dsSk pnntf, - 

L*FMT~PROG, - 

L$A N*ME(RD, - 

L$L~REV(R1>, - 

L$LJJPDATE(R1), - 

3l$a_tstcnt, - 

#0 

PUSHL #0 
PUSHL ai$a tstcnt 
PUSHL L$Lj)PDATE(R1) 
PUSHL L$L REV(R1) 
PUSHL L$A"NAME(R1) 
PUSHAB L A FWT PROG 
movzbl #ds$k_printf, -(sp) 
cvtbl #ds$k type ^program start, -(sp) 
CALLS 0$$N+2, G A BSX$PRINT 



[293 
[303 



[323 
[323 
[323 
[323 
[323 
[323 
[323 
[323 
[323 

[323 
[323 
[323 

[323 
[263 
[263 
C263 
[263 
[263 
[263 
[263 



105$: 



[323 



ZZ-ENSAA-7.0 

START 

07-41 



VRStart and VRReStart Routines 

*** START Handle START command 
VRStart and VRReStart Routines 
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54 







023C 


521 






023C 


522 






023C 


523 






023C 


524 


OOOOFEOC'EF 


DA 


023C 


525 


00000220'EF 


D5 


0242 


526 


03 


12 


0248 


527 


0083 


31 


024A 


528 






024D 


529 


00000000'EF 00 


FB 


024D 


530 






0254 


531 


OOOOFEOC'EF 01 


C3 


0254 


532 


27 


18 


025C 


533 






025E 


534 






C25E 


535 






025E 


536 






025E 


537 


00O000CB f EP 


9F 


025E 




7E 01 


9A 


0264 




7E E8 8F 


98 


0267 




OOOOOOOO'GF 03 


FB 


0260 




50 0000021 C 9F 


DO 


0272 


538 


00E6 


30 


0279 


539 


OOOOOOOO'EF 


94 


027C 


540 


008A 


31 


0282 


541 



Make Ptables for all the units. Print what this diagnostic is testing. C29J 



CLRL DSA$GL UNITS 

TSTL L$L UNIT 

BNEQ 107$ 

BRW 1 70$ 

107$: CALLS 0O,DSP$GEN_PTABLES 



SU8L3 
BGEQ 

SPRINT 



MOVL 
BS8W 
clrb 
BRW 



*1,DSA$GL UNITS, R4 
110$ 



; Initialize unit counter 

; Does program test units? 

; Yes, go generate Ptables for them. 

; No, skip unit dependent setup. 

; Make P-tables for selected units 

; Highest unit number 

; Branch if one found 



Error starting 
.. use PRINTF 
.. no units to 



test text 



0-ds$k type_start_err, - 

0ds$E printf, -" 

L A FMTlNOUNITS 
PUSHAB L A FMT_NOUNITS 
movzbl #ds$k printf, -(sp) 
cvtbl #-ds$k type start err, -(sp) 
CALLS tf$$N+2, G A D5X$PRlfl)T 

9#L$A DEVP,R0 ; Get address of DEVTYP 

PRLIST ; Print device types 

L A ds$gb typecode ; Clear sticky type code 
VRSTART^X ; RETURN TO COMMAND MODE 



[32: 
C32J 



C29: 

C263 
[26D 
[263 



list 



[29: 

[26: 



2Z-ENSAA-7.0 

START 

07-41 



VRStart and VRReStart Routines 

*** START Handle START command 
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0285 


543 






0285 


544 






0285 


545 






0285 


546 






0285 


547 






0285 


548 






0285 


549 


oooofeoo'ef of 


E1 


0285 


550 


1A 




028C 


551 


03 


EO 


028D 


552 


00000000'EF 




028F 


553 


OA 




0294 


554 


05 


EO 


0295 


555 


00000000'EF 




0297 


556 


02 




029C 


557 


08 


11 


029D 


558 






029F 


559 


00000000' EF 06 


EO 


029F 


560 


29 




02A6 


561 






02A7 


562 






02A7 


563 






02A7 


564 


7E 


DF 


02A7 




54 


OD 


02A9 




00000000' 9F 02 


F8 


02AB 




F2 54 


F4 


02B2 


565 






0285 


566 


OOOOFEOC'EF 


DD 


02B5 


567 


50 6E 04 


11 


02BB 


568 


000001A3'EF 


9F 


C2BF 


569 


01 


DD 


02C5 


570 


17 


DD 


02C7 


571 


00000000 'GF 50 


FB 


02C9 


572 






02D0 


5?3 






02D0 


574 



; I f QA is running, AND if either the Loop on Subtest check or the 

; Error Phase One check is executing, do not print the 'Testing: .., 

; message unless the No.Header bit is False. This stops the message 

; being printed too many times. 



110$: 



115$: 



120$: 



BBC 0DSASV QA, - 

L A DSa$GL_FLAGS, 120$ 
BBS #QA$K L0OP_0N SUBTEST, - 

L A ufl$AOB CHECK STATE,- 

115$ 

bbs #qa$k error phase one,- 
l a qB$aob Check State, - 

115$ 
BRB 120$ 

bbs 0qa$k no header, - 
l*qA$aBb,flags, - 

130$ 

$DS_GPHARD S R4,-(SP) 

PU5HAL -(SP) 

PUSHL R4 

CALLS 02, S)#DS$GPHARD 
SOBGEQ R4, 120$ 



PUSHL 

ADDL3 

PUSHAB 

pushl 

push I 

CALLS 



DSA$GL UNITS 
#4,(SPT,R0 
L A FMT_TESTING 
#ds$k_printf 
0ds$k~type orogranMnfo 
RO, G*DS " 



BIO 



If not running QA, branch. 

If the Loop on Subtest check is 
executing, branch. 

If the Error Phase One check is 
executing, branch. 

Otherwise, branch and print message. 

If header should not be printed, 
then branch around the print. 



Get Potable address 



Decrement and branch if more 

Repeat count for !#(AD) 
Total parameter count 
ASCIC EDIT STRING 
Use printf 

Program info type code 
TYPE IT 



130$: 



[32] 
[32] 
[32: 
[32] 



[323 
[32] 
[32J 
[32] 
[32J 
[32] 
[32] 
[32] 
[32] 

[32] 
[32] 
[32] 

[32] 



[32] 



[26] 
[24] 
[26] 
[26] 
[26] 

[32] 



ZZ-ENSAA-7.0 

START 

07-41 



VRStart and VRReStart Routines 

*** START Handle START command 
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02 







02D0 


576 






02D0 


577 






02D0 


578 






02D0 


579 


OOOOFEOO'EF 1C 


EO 


02D0 


580 


54 




02D7 


581 


00000000'EF 00 


FB 


02D8 


582 


OOOOFEOO'EF 1A 


E1 


02DF 


583 


06 




02E6 


584 


00000000' EF 


16 


02E7 


585 






02ED 


586 






02ED 


587 


00O00OC0 8F 


DD 


02ED 




00000000' 9F 01 


FB 


02F3 








C2FA 


588 


00000204' EF 02 00 


ED 


02FA 


589 






0303 


590 


27 


12 


0303 


591 


54 


D4 


0305 


592 






0307 


593 






0307 


594 


7E 


DF 


0307 




54 


DD 


0309 




00000000 '9F 02 


FB 


030B 




51 8E 


DO 


0312 


595 


14 50 


E9 


0315 


596 


51 


DD 


0318 


597 


00000000' EF 01 


FB 


031A 


598 


18 50 


E9 


0321 


599 


DB 54 OOOOFEOC'EF 


F2 


0324 


600 



Add to the QIO database. 



170$: BBS 



CALLS 
BBC 



172$: 



J SB 
$DS 



#DSA$V USER, - 

DSA$5L FLAGS, 180$ 
#0,L A MAPFREE 
#DSA$V_DEBUG, - 
DSA$GL FLAGS, 172$ 
MAP DEBUGGER 



CLRVEC S #SCB$L. TIMER 
PU5HL 0SCB$L TIMER 
CALLS 01, a*DS$CLRV. 



CMPZV #0,*2,L$L ENVIRON, - 

#SEP_FUNCTlONAL 
BNEQ 180$ 
CLRL R4 

175$: $DS GPHARD S R4,-(SP> 

PU3HAL -<SP> 

PUSHL R4 

CALLS #2, a#DS$GPHARD 
MOVL (SP)+,R1 
BLBC R0,180$ 
PUSHL R1 

CALLS #1,QI0$ADDUNIT 
BLBC RO, VRSTART X 
A08LSS DSA$GL_UNlTS, R4, 175$ 



BRANCH IF USER MODE 

Map free memory 

U DEBUGGER IS RESIDENT [34] 

THEN C34] 

MAP DEBUGGER'S MEMORY SPACEC34] 

E34J 
Reset timer vector 



System and Functional? 

Branch if should not add unit to QIO 

Start with unit zero 

Get P-table address 



P-table address 
Exit if error 
Push for addunit 
Add this unit to 
Return to CLI if 



1291 



C243 



010 database 
errors 



Count and continue if more units 



ZZ-ENSAA-7.0 

START 

07-41 
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032C 


602 




032C 


603 




032C 


604 




032C 


605 




032C 


606 




032C 


607 




03?C 


608 




032C 


609 




032C 


610 




032C 


611 




032C 


612 




032C 


613 




032C 


614 




032C 


615 




C32C 


616 




032C 


617 




032C 


618 




032C 


619 




032C 


620 




032C 


621 




032C 


622 


OOOOOOOO'EF 


16 032C 


623 


OOOOOOOO'EF 04 


C8 0332 


624 




0339 


625 




0339 


626 




0339 


627 




0339 


628 




0339 


629 




0339 


630 




0339 


631 




0339 


632 




0339 


633 




0339 


634 


00000000' EF 


16 0339 


635 




033F 


636 



180$: 



Reinitia 
tests, a 
return t 
Just bef 
on the S 
and enab 
but can 1 
CLISQ TI 
/TIME~wa 
if we sh 
which we 
we can f 



Lize the stacks, set the started flag, dispatch the 

nd go back to command mode. Note: the DISPATCH routine will 

o here only if the EndPass routine is NOT done. 

ore call to DISPATCH, do a SSETIMR if a /TIME switch was given 

TART or RUN command. Since INN CONTEXT fnits all registers 

les ASTs, we do the SSETIMR after the call to INIT_C0NTEXT 

t use any regs after the call to INIT_C0NTEXT. So, we test 

ME before the call to INN CONTEXT, and clear BIN_TIME if no 

s given. Then, after INIT CONTEXT, test BIN TIME to determine 

ould SSETIMR. Load up BEGIN TIME with the aBsolute time at 



did the SETIMR, in case the user 
igure out how much more to time. 



does a A C and a CONTINUE 



180$: TSTL 



BNEQ 
CLRQ 

J SB 
BISL 

M0VQ 
BEQL 



CLISQ TIME(R2) 



185$ 
BINJJME 

INIT CONTEXT 
#DS$fl STRFL6, - 
L A D5$GL. FLAGS 
L A BIN - JIME,L*BIN_TIME 
190$ 



Any /TIME given ? Check CLI$Q_TIME 
because it is initialized on every 
command, BIN TIME is not. 
Branch if TIME was given 
No TIME, init BIN.TIME 

REINITIALIZE STACKS ETC. 
SET PROGRAM STARTED 



Any /TIME given? 
Branch if not 



(test for zero) 



$GETTIM S TIMADR=BEGIN TIME 
$SETIMR"S EFN=#0, - 

"*DAYTIM=BIN TIME, - 

ASTADR=DSI$TIMEJ\ST, 

REQIDT^-2 



190$: JS8 



DISPATCH 



Store current time, in case A C, CONT 

Supervisor efn 

Address of quad with 64-bit time 

AST to DSISTIME AST 

ID for /TIME $SfTIMR 

CALL PROGRAM 



[293 
[29] 
[29] 
[40] 
[40] 
C40] 
[40] 
[40] 
[40] 
[40] 
[403 
[40] 



[40] 
[40] 
[40] 
[40] 
[40] 

[243 
[24] 
[24] 
[40] 
[40] 

[40] 
[40] 
[40] 
[40] 
[40] 

[24] 
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033F 638 ;+ . r ^ n 

033F 639 ; End of the VRSTART routine. Return indirectly to the CLI routine. C29] 

033F 640 ;- 

033F 641 

033F 642 VRSTART J<: r-w ., 

OOOOOOOO'EF 17 033F 643 JMP BEGIN ; Return to command decoder C24] 



ZZ-ENSAA-7.0 

START 

07-41 
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*** START Handle START command 
VRStart and VRReStart Routines 
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"0 



23 
(3) 



50 OOOOOOOO'EF 
09 60 07 



OOOOFEOO'EF 



OF 
00 



OOOOFEOO'EF OF 
00 



0345 
0345 
0345 
0345 
0345 
0345 
0345 
0345 
0345 
0345 

DE 0345 

E1 034C 
0350 

E3 0350 
C357 
0358 

05 0358 
0359 

l:5 0359 
0360 
0361 
0361 

05 0361 



645 

646 

647 

648 

649 

650 

651 

652 

653 

654 Check, 

655 

656 

657 

658 

659 

660 

661 10$: 

662 

663 20$: 

664 

665 

666 

667 30$: 



Routine to turn the QA flag on or off depending on whether 
or not the CLJ QA flag was set. This routine destroys R0. 
Usage: 

BSBB Check QA Bit 

BSBW Check'QA'Bit 

JSB ChecklOAlBit 



QA Bit: 

' ROVAL 

BBC 

BBCS 



RS8 
BBCC 

RS8 



DS$GL CUBASE, RO 
0CLI$V QA, - 

CLJ$E FLAGS (RO), 20$ 
0DSA$V 3A, - 

DSA$3L FLAGS, 10$ 



0DSA$V QA, - 

DSASGL.FLAGS, 30$ 



Readdress CLI command area 

If bit clear, go clear DSA bit 

Set DSA QA bit 



Return to caller 
Clear DSA QA bit 

Return to caller 



[29] 
£30] 
[30] 
[30] 
[30] 
[30] 



[30] 
[23] 
[30] 

[23] 

[30] 

[30] 

[30] 
[30] 
[23] 

[30] 
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START 
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51 60 




7E 


2F21 8F 
05 




7E 


202C 8F 




7E 


4341 8F 

7E 21 

FO 51 




51 


60 05 
71 51 
51 60 

6041 

FA 51 

51 60 

6E41 
51 03 
?E 01 
7E 25 




00000000 


•GF 51 
50 BE 
5E 50 



Start Routines 

*** START Handle START command 

VRStart and VRReStart Routines 
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0362 

0362 

0362 

0362 

0362 

0362 

0362 

0362 

0362 

00 0362 

BO 0365 

1 1 036A 

BO 036C 

BO 0371 

90 0376 

F5 0379 

C5 037C 

90 0380 

DO 0383 

DD 0386 

F5 0389 

DO 038C 

DF 038F 

CO 0392 

9A 0395 

98 0398 

FB 0398 

9A 03A2 

CO 03A5 

05 03A8 



66° 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 



This routine is used to print a List of ascic NAMES. RO= address of list. 

Usage: 

JSB PRLIST 
BS8W PRLIST 
BSBB PRLIST 



PRLIST: 



10$: 
20$: 



30$: 



MOVL (R0),R1 

MOVW # A A M !/'XSP) 

BRB 20$ 

MOVW # A A", ",-($?) 

MOVW # A A ,, AC ,, ,-(SP) 

MOVB # A A M !",-(SP) 

SOBGTR R1,10$ 

MULL3 #5,<R0),R1 

MOVB R1.-CSP) 

MOVL (R0),R1 

PUSHL (RO)LRi: 

SOBGTR R1.30S 

MOVL (R0),R1 

PUSHAL (SP)CR13 

ADDL2 *3,R1 

movzbl 0ds$k_printf ,-(sp) 

cvtbl #ds$k typo start list, 

CALLS R1, G*DSX$PRINT 

M0VZ8L (SP)*,R0 

ADDL R0,SP 

RSB 



Get number of entries in List 

Create edit string starting with 

Skip first "," 

append ", " 

Append "AC" 

Append M !" 

one for each parameter in List 

Get count back 

Make edit string ASCIC 

Get count back 

Push address of argument 

Each address now on stack 

Get count back 

Address of ASCIC string 

Total count of print args 

Use PRINTF 
(sp) ; Code 
; Print the text 
; Get length of edit string 
; Remove edit string from stack 
; Return 



• M 



\r 



[33] 

[33] 
[33] 
[33] 
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03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
C3A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 
03A9 



700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

72? 

723 

72U 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 



♦SBTTL VRAbort and DSXSAbort Routines 
+ + 

FUNCTIONAL DESCRIPTION: 

ABORTS CURRENT USER PROGRAM AFTER ERROR HALT, A C, BREAKPOINT, OR 
EXCEPTION, OR /TIME HAS EXPIRED. 

CALLING SEQUENCE: 

BS8W VRABORT 
-or- CALLG (SP) ,DS$AB0RT 
-or- from DSISTIME .AST, fix up the argument List to return to VRABORT 

INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS; 



[403 



C40D 



(AP) - USER REGISTER LIST, 
DS$GL„FLAGS: 

DS$V BRKPT 

DSSV'EXCEPT 

DSSVlHLTFLG 

DSSV.CMDFLG 

DS$VJ)ONFLG 



- BREAKPOINT FLAG. 

- EXCEPTION FLAG. 

- ERROR HALT FLAG. 

- COMMAND MODE FLAG. 

- PROGRAM COMPLETE FLAG, 



OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFFCTS: 

ALL USER PROGRAM CONTEXT CLEARED. 
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0000 

OOOOFEOO'EF OF El 

16 

05 01 



0E 00000000'EF 



00010000'EF 
00000000'EF 



50 
07 
00 



01 
00000000'EF 



00000000'EF 00080808 Qf 

00000000'EF 02 

03 

0074 

00000000'EF 



50 



01 
00 
23 



CA 



00000000'EF 00080808 8F 

FC88 31 

50 10 AD DO 

04 11 



50 3C AC DO 



D1 
18 
F8 



B8 

16 
CA 



EO 

31 
16 

BA 
D1 
13 



03A9 

03AB 

03AB 

03B2 

03B3 

03B5 

03B5 

03BB 

03BC 

03BC 

03BC 

03C6 

03C9 

03C9 

C3CD 

03CF 

03CF 

03CF 

03CF 

03CF 

03CF 

03Q 

03CF 

03D3 

03D3 

03D3 

03D3 

03D3 

03D3 

03D3 

03D3 

03D3 

03DA 

03DC 

03E3 

03E3 

03E3 

03E3 

03E3 

03E3 

03E5 

03E5 

03EB 

035 C 

03EC 

03EC 

03F6 

03FD 

03FE 

0401 

0407 

0407 

0409 

040C 

040E 

040E 

040E 



738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 
787 

788 
789 
790 
791 
792 
793 
794 



.ENTRY DSXSABORT, A M<> 
BBC 



10$: 



BBC 



BICL2 



BRW 

MOVL 

Brb 



DSJSABORT: 

BJSL2 

BRB 

VRABORT:: 

MOVL 



#DSA$V QA, - 

l a ds*$gl flags, 10$ 
#qa$k error phase one, - 
l a qS$aobJ!heckJtate,- 

10$ 
#DS$M HLTFLG ! - 

DS$M;BRKPT ! - 

DSSM EXCEPT 
,l A DS$GL FLAGS 
VRRESTART 

16(FP),R0 
Is_ItJJser_PC 



#DS$M SETIMR, - 
L A DS$5L FLAGS 
ISJTJJ5ER.PC 



60(AP),R0 



Now, check to .nake sure this is 
XXMOOOO*). If RO is GTR 10000, 
call frame stack. 



Is_Jt„User_PC: 
CmpL 
BleqU 
Calls 

VRA80RT_C0M: 



RO, A X00010000 

VRAbort Com 

00, L A D5R$Find_User_PC 



If not running QA, branch. 

If not running the Error Phase One 
check, branch. 

Clear halt on error. 
Clear "breakpoint" flag. 
Clear "exception" flag. 

Go back and Restart the diagnostic 

Get callers PC 

Is this real ly a user PC? 

Entry point for /TIME ABORT 
Set /TIME flag 

Join common code 



Get PC from CLJ args 



a user's PC (i.e*, less than 

then look for the user's PC on the 



Js this really a user PC? 
Compare the start of VDS code 
If lers than 10000, it's a user PC 
Search on the stack for it 



[32] 
C32] 
C32] 
[323 
[323 
[323 
[32] 
[323 
[323 
[32] 

C323 

[373 

C40D 
[40] 
[40] 
[40] 



; RO now contains either a user PC or 0. 
PUSHR 0*MRO 



5$: 



JS8 


SCRIPTSFLUSH 


BICL2 


9 DSSM HLTFLG ! - 




DSSM'BRKPT ! - 




DSSM'EXCEPT - 




, L A DS$GL FLAGS 


BBS 


#DS$V STRFLG, - 




L A D5$GL,FLAGS,5$ 


BRW 


100$ 


J SB 


DS.JESTID 


POPR 


# A MR0 


CmpL 


#0, RO 


Beql 


15$ 


B8SC 


*DS$V SETIMR, - 




L A DS$5L_FLAGS,10$ 



Save PC at error for PRINTF below 

Flush scripts if console command 

CLEAR HALT ON ERROR. 

CLEAR "BREAKPOINT" FLAG. 

CLEAR "EXCEPTION" FLAG, 

Started? 

Branch if not started 
GET TEST/SUBTEST STRING, 

Restore PC at error 
Did we find a real user PC? 
Branch if we did not 
ABORT or /TIME ran out? 



[37] 
[37] 
[373 



[37] 
[37] 
[41] 
[37] 



[373 



[24] 



[24] 
[24] 
[243 
[403 
[35] 



[37] 
[37] 
[403 
[403 
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*** START Handle START command 
VRAbort and DSX$Abort Routines 



50 

00000000' 8F 

0000FE54'EF 

00000046' EF 

7E 01 

7E 14 

00000000' CF 06 

21 



ooooooocsf 

0000FE54'EF 

00000077* EF 

7E 01 

7E 14 

00000000' GF 05 

00 



OOOOFEOO'EF 
00000000'EF 



IF 

08 

04 
OC 



OOOOOCOO'EF 
00000000' EF 



DD 
DD 
OD 
9F 
9A 
98 
FB 
11 



DD 
DD 
9F 
9A 
98 
FB 
11 



E1 

EO 



16 
16 



QOOOQOQQ^f 04 CA 



0000FE40'EF 06 DO 



04QE 

040E 

OAOE 

040E 

040E 

040E 

OAOE 

0410 

0416 

041C 

0422 

0425 

0428 

042F 

0431 

0431 

0431 

0431 

0431 

0431 

0431 

0431 

0431 

0431 

043i 

0431 

0431 

0431 

0431 

0431 

0431 

0431 

0437 

043D 

0443 

0446 

0449 

0450 

0452 

0452 

0452 

0452 

0452 

0452 

0452 

0452 

0459 

045A 

0461 

046? 

0462 

0468 

046E 

046E 

0475 

0475 

04 75 



795 
796 
797 
798 
799 
800 



801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 

816 
817 

818 



819 
820 
8?1 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 



$PRJNT 



10$: 



Brb 
$PRJNT 



15$: 



5$: 



BRB 
BBSC 

$Print 



20$: 



BRB 
$PRJNT 



25$: 



50$: 



75$: 



100$; 



Bbc 
Bbs 

Jsb 
Jsb 

Bid 
MOVL 
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Abort program message 
use Pn'ntF 
abort message 
current pass number 
test id 
user PC 



#ds$k type abort program, - 

0ds$k prTntf, = 

L A FMT ABORT, - 

DSA$6C PASSNO, - 

*DS$GCfTESVID, - 

RO 

PUSHL RO 

PUSHL #DS$GQ TESTJD 
PUSHL DSA$GL~PASSNO 
PUSHAB L A FMTjteORT 
movzbl 0ds$k_printf , -(sp) 
cvtbl 0ds$k type abort program, -(sp) 
CALLS tf$$N+2, 6 A DSX$PRlNT 
25$ ; Do rest of abort 



27 
(4) 

C26J 
1261 
[26] 
[37] 
[37] 
[37] 



*DS$K TYPE ABORT PROGRAM, 

#DS$K~PR]NTF, - ~ 

L A F*rTlME EXPIRED, - ; 

DSA$GE_PAS5N0, - 

#DS$GQ_TESTJD, - 

RO 

25$ 

#DS$V SETJMR, - 
L a DS$5l_FLAGS,20$ 



; CRD should never see this 
PRINTF 
the message 
current pass number 
test and subtest 

Do rest of /TIME abort 

ABORT or /TIME ran out? 



Abort program typecode 
use PrintF 
abort message 
the current pass number 
test/subtest 



#DS$K Type Abort Program 

*DS$K PrTntF, - 

L A Fmt"Abort No_PC, - 

DSA$GC PassRo, - 

#DS$GCf TestJd 
PUSHL *DS$GQ Testid 
PUSHL DSA$GL"PassNo 
PUSHAB L A rmt.Sbort No,PC 
movzbl 0DS$K_PrintF, -(sp) 
cvtbl 0DS$K Type Abort Program, -(sp) 
CALLS tf$$N+2, G A DSX$PRlNT 
25$ ; Finish the ABORT 



C371 

C40D 
[40] 
[40] 
[40] 
[40] 

C40] 

[40] 
[40] 

[37] 
[373 
[37] 
[37] 
[37] 



#DS$K TYPE ABORT.PROGRAM 
#DS$K"PRJ>jTf, - 
L A FMT~T1ME EXPIRED NO^PC 
DSA$GC.PAS5N0, - " 
*DS$GCLTESTID 

0DSASV Apt, - 

DSA$GC Flags, 50$ 
fDS$V ErrFlg, - 

DS$GC^Flags, 75$ 

!nit Context 
DS_CTcanup 

0DS$M StrFlg, - 
DS$GC_Flags 

#APM$J\BTDON, - 



; CRD should never see this 
PRINTF 

; the message 
current pass number 
test ?nd subtest 

Clean up it not in APT mode 

Skip clejnup if APT mode 
... anu there was an error 

Reset stacks and all 
Do user cleanup 

Clear start flag 



[40] 

[40] 
[40] 
[40] 
[40] 
[40] 

[37] 
[21] 
[21] 
[21] 

[24] 
[24] 

[21] 
[21] 
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0A7C 839 DSASGL MSGTYP ; YES- INDICATE ABORT DONE 

OUUUUUUU'fcF 1/ 047C 8AQ JMP BEGIN " ; TRANSFER TO SUPERVISOR CLEANUP. [24 J 



Z2-ENSAA-7.Q 
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VRSupport 



Routines 

*** START 

VRSupport 

0482 

0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
C482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 
0482 



Handle START 
Routines 



842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 



C 13 

27-JUL-1984 Fiche 13 
command 27-JUL-1984 15:45:52 

23-MAY-1984 14:15:55 

♦SBTTL VRSupport Routines 
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+ + 



FUNCTIONAL DESCRIPTION: 

This subroutine is called from CLI to show the devices a diagnostic 
supports. It will issue messages for no diagnostics loaded, no 
devices supported. 

CALLING SEQUENCE: 

SUBROUTINE CALL FROM THE COMMAND LINE INTERPRETER. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: NONE 
IMPLICIT OUTPUTS: NONE 
COMPLETION CODES: NONE 
SIDE EFFECTS: NONE 
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00000000' EF 



01 
14 



00000104'EF 

7E 01 

7E 15 

00000000* 6F 03 



01 00000204 9F 08 02 



50 



0000021 C 
51 



E1 
9F 
60 
51 
14 



000001F4'EF 

7E 01 

7E 16 

00000000' 6F 03 



16 

00000000' EF 

FE8D 

00000000' EF 



0482 

EO 0482 

0489 

048A 

048A 

048A 

9F 048A 

9A 0490 

98 0493 

FB 0496 

05 049D 

049E 

ED 049E 

04A7 

C4A7 

04A7 

12 04A7 

00 04A9 

DO 0480 

D5 04B3 

12 04B5 

04B7 

04B7 

04B7 

04B7 

9F 04B7 

9A 04BD 

98 04CO 

FB 04C3 

05 04CA 

04CB 

90 04 C8 

04CD 

30 04D2 

94 04D5 

05 04D8 



872 VRSUPPORT:: 

873 BBS 
874 

875 5$: $PRJNT 

876 

877 



8?8 

879 

880 10$ 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 



893 

894 

895 20$ 

896 

897 

898 

899 



RSB 
cmpzv 



bneq 
MOVL 
MOVL 

TSTL 
BNEQ 

$PRINT 



RSB 

movb 

BSBW 
clrb 
RSB 
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*DS$V LODFLG, - 

L A BS$GL_FLAGS, 10$ 
0ds$k type^command.err,- 

0ds$k onntf , - 

L A FMT START 
PUSHAB ~ 
movzbl 
cvtbl 
CALLS 



Check load flag. 

Command error 
.. use PRINTF 



L A FMT_START 
0ds$k_printf , -(sp) 
0ds$k~type command err, -(sp) 
#$$N+2, G A PSX$PRINT 

; Return to caller. 



#env$v_super, • 
#env$s_super, 
a0l$l.„environ 
0env$""super 

5$ 

S*L$A DEVP,R0 

(R0),R1 

R1 

20$ 



Make sure a diagnostic 

. . loaded, and has the 

.. version for this 

.. Supervisor 

If not, error 

Get address of DEVTYP list 

Get value pointed to 

Check if device list exists 

Brancn if list exists 



is really 
correct 



0ds$k type <v command_out,- 

0ds$k printf, - 

L A FMTlN0DEVICE 
PUSHAB L A FMT_N0DEVICE 
movzbl 0ds$k_printf, -(sp) 
cvtbl #ds$k type command out, 
CALLS #$$N+2, G A DSX$PRINT 

; Return 



Command output (no devices) 

.. use PRINTF 

"No device supported." 



-(sp) 
to caller 



0ds$k type command_out,- 

L A ds$gb typecode 
PRLIST 
L A ds$gb_typecode 



Set command type 
. . in global 
Print device types 
Clear type code 
Return to caller 



code 



30 
(4) 

1221 
1221 
1221 
[26] 
1261 
1221 



1221 

1261 
1261 
[26] 
C26D 
[26] 
[22] 
1221 
1221 
1221 

1261 
[263 
[22] 



[20] 

[263 
[26] 
[20] 
[26] 
[20] 
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04DC 
04DC 

04DC 
040C 
04DC 
04DC 
04DC 
04DC 
040C 
04DC 
04DC 
04DC 
04DC 
04DC 
C4DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
04DC 
040C 
04DC 
04DC 



901 

902 

903 

904 

905 

906 

9C7 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 



.SBTTL VRShowSections Routine 



++ 

FUNCTIONAL DESCRIPTION: 

This subroutine is called from CLI to show the sections that 
a diagnostic supports. 

CALLING SEQUENCE: 

JS8 VRSHOWSECTIONS 
INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

L$A SECNAM - Pointer to list of section names 
L$A~NAME - Pointer to diagnostic program name 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION COOES: 

NONE 
SIDE EFFECTS: 

NONE 



ZZ-ENSAA-7.0 

START 

07-41 



VRShowSections Routine 

*** START Handle START command 
VRShowSections Routine 



VRSHOWSECTIONS 



01 







04DC 


939 






04DC 


940 


OOOOOOOO'EF 01 


EO 


04DC 


941 


14 




04E3 


942 






04E4 


943 






04E4 


944 






04E4 


945 


00000104'EF 


9F 


04E4 




7E 01 


9A 


04EA 




7E 15 


98 


04ED 




00000000 'GF 03 


FB 


04F0 






05 


04F7 


946 






04F8 


947 


204 9F 08 02 


ED 


04F8 


948 






C501 


949 






0501 


950 






0501 


951 


E1 


12 


0501 


952 






0503 


953 






0503 


954 






0503 


955 






0503 


956 


00000208'EF 


DD 


0503 




000001 7CEF 


9F 


0509 




7E 01 


9A 


050F 




7E EA 8F 


98 


0512 




00000000' GF 04 


FB 


0516 




50 00000250 9F 


DO 


051D 


957 


FE3B 


30 


0524 


958 


OOOOOOOO'EF 


94 


0527 


959 




05 


052D 


960 






052E 


961 



5$: 



BBS 
SPRINT 



10$: 



RS8 
cmpzv 



bneq 
SPRINT 



MOVL 
BS8W 
clrb 
RS8 
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#DS$V LODFLG, - 

L A BS$GL_FLAGS, 10$ 
#ds$k type^command^err, - 

#ds$k pnntf, - 

L A FMT~START 



Frame F13 Seguence 2633 
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Check load flag. 



!20 



32 
(4) 



PUSHAB 
movzbl 
cvtbl 
CALLS 



L A FMT_START 
0ds$k printf, -(sp) 
#ds$k'type command err, 
0$$N+2, G A PSX$PRINT 



Command error 
.. use PRINTF 
. . No diagnostic 



running 



-(sp) 



Return to caller. 



#env$v_s 
#env$s 
S)*l$l e 
#env$ s 

5$ 

0-ds$k t 
#ds$E 
L A FMT 
L A L$A 

PUSHL 

PUSHAB 

movzbl 

cvtbl 

CALLS 

a#L$A SE 

PRLIST 

L A ds$gb_ 



uper, - 
super, - 
nviron, - 
uper 



ype_command^out, - 
printf, - 
SECTIONS, - 
NAME 

L A l$AJJAME 
L A FMT.SECTIONS 
0ds$k printf, -(sp) 
0-ds$k type command out/ -(sp) 
tf$$N+27 G A D5X$PRINT~ 
CNAM,R0 ; Point 

Print 
typecode 



Make sure a diagnostic is really 
.♦ loaded, and has the correct 
. • version for this 
.. Supervisor 
If not, error 

Command output (sticky) 

.. use PRINTF 

.. format 

. • the sections message 



1271 
1271 
L261 

[26] 
1271 



1271 

1261 
[26] 
[26] 
[26] 
E26] 
[26] 
[26] 
[26] 
1271 



to section names 
list of sections 
Clear sticky code 



[27] 
[27] 
[26] 
[27] 
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052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
C52E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 
052E 



963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 



.SBTTL DSISTIME AST Routine 



FUNCTIONAL DESCRIPTION: 

This is the AST routine for the /TIME switch on the START command. C403 
Since we come here 

via an AST from a SSETIMR, the AP points to a parameter list which.has 
the PC in the program or supervisor to return to. This routine modifies 
that PC to point to the DSISABORT routine. Note that the PC in the call 
frame cannot be changed, since it points to a VMS (or VDS) routine 
which cleans up after the AST. The value of R0 which is contained in the 
parameter list is replaced with the PC, so that DSISABORT can decide 
if the PC was in the program or not. 

CALLING SEQUENCE: 

Called with a CALLG from system service which delivers ASTs. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 



IMPLICIT OUTPUTS: 
COMPLETION CODES: 
SIDE EFFECTS: 



NONE 

Sets DSSV.SETIMR. 

NONE 

Causes VDS to abort the program. 



•ENTfiY DSISTIME AST, A M<> 

MOVL T6(AP),8(AP) 



M0VAB DSISABORT, 16(AP) 

RET 

.END 



Move PC at which we were interrupted 
to R0 in the AST arg list, so that 
DSISABORT can print it out 
Abort the program by replacing the 
PC in the AST argument list. 
Back to AST deliverer. 



[40] 
[403 
C40.1 
[403 
[403 
[403 
[403 
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$$N 

SER 

SMODULE 

ACT DEFAULT DBG 

APC$ ABORT 

APCS^CONTINUE 

APC$~DUMP 

APCS'NOP 

APCS^START 

APCS^ZERO 

APMS ABTDON 

APMS""DEVERR 

APMS^DONE 

APMS EXCEPT 

APMS HARDERR 

APMS~MQRE 

APMS~NOMES 

APMS'PREPERR 

APMS~PRGERR 

APMS~SOFTERR 

APMS'SPOOL 

APMS~SYSERR 

BEGlR 

BIT... 

CEP FUNCTIONAL 

CEP~REPAIR 

CF$C AP 

cfsl'fp 
cfsl~qncond 

CFSLlPC 
CF$L REG 
CF$W~MASK 
CFSVfPSW 

checr qa bit 

clisk"alRum 

clisiTalpha 

clisk^bif 

clisk^bifs 

CLISK.BR 

clisk bufsiz 
cliskIcall 
clisk comma 
clisk_dec 
cliskjol 
clisk error 

CLISKlEXIT 
CLISK FILE 
CLlSKlHEX 
CLISK.KEYWORD 
CLISKJJUM 
CLISK.OCT 
CLISK RETURN 
CLJSKlSIZE 
CLISK SLASH 
CLlStTSPACE 
CLISK STRING 
CLISK'SYMBOL 
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00000002 


D 


00000001 


D 


00000000 R 


D 02 


******** 


X 03 


00000006 


D 


00000009 


D 


00000003 


D 


00000000 


D 


00000005 


D 


00000004 


D 


00000006 


D 


00000002 


D 


OOOOOOOA 


D 


0000O00B 


D 


00000003 


D 


00000008 


D 


00000000 


D 


OOOOOOOC 


D 


00000005 


D 


00000004 


D 


00000009 


D 


00000001 


D 


******** 


X 03 


00000004 


D 


00000000 


D 


00000001 


D 


00000008 


D 


OOOOOOOC 


D 


00000000 


D 


00000010 


D 


00000014 


D 


00000006 


D 


00000004 


D 


00000345 R 


D 03 


00000087 


D 


00000086 


D 


00000083 


D 


00000094 


D 


00000082 


D 


00000100 


D 


00000092 


D 


0000008E 


D 


0000008A 


D 


00000091 


D 


00000080 


D 


00000081 


D 


00000095 


D 


00000089 


D 


0000008C 


D 


00000085 


D 


00000088 


D 


00000093 


D 


00000444 


D 


00000090 


D 


00000084 





00000088 


D 


0000008D 


D 



CLISK_VALUE 

CLISL_ADDRESS 

CLISL COMMAND 

CLISLIDATA 

CLISL FLAGS 

CLISL_LAST 

CLI$L_NEXT 

CLISL„PASS 

CLISL.SUBT 

CLISL^TEST 

CLI$Q_BUFQWD 

CLISQ.FILE 

CLISQ^SECTION 

CLISQ..TIME 

CLIST.BUFFFR 

CLISV.ADAPTER 

CLISV.ADR 

CLISV.ASCII 

CLISV BREAK 

CLISV„BRIEF 

CLISV^BYTE 

CLISV CLEAR 

CLISV DEC 

CLISV_DEFAULT 

CLISV..DEPOSIT 

CLJSV EVENT 

CLJSV.EXAM 

CLISV.FLAGS 

CLISV.HEX 

CUSV.KERNEL 

CLISV.LOAD 

CLISV,LONG 

CLISV NOTNUF 

CLJSVlOCT 

CLISV.PREG 

CLJSV QA 

CLJSV.QACKLOOPLOOPS 

CLISV.QAERRORPRINTS 

CLJSV.QAMULTIPLEPASS 

CLISV^QASUBTESTLOOPS 

CLISV.QATESTLOOPS 

CLJSV.REG 

CLISV^REQUIRED 

CLISV.RUN 

CLISV^SET 

CLISV.SHOW 

CLJSV.VALSEC 

CLISV WORD 

DISPATCH 

DSSCLRVEC 

DSSGB^TYPECODE 

DSSGL^CLIBASE 

DSSGL, FLAGS 

DSSGL.FSTTEST 

DSSGL.LSTTEST 

DSSGL.NUMTEST 

DSSGL^SUBTEST 



0000008F 


D 




00000018 


D 




00000004 


D 




0000001 c 


D 




00000000 


D 




00000024 


D 




00000030 


D 




0000002C 


D 




00000028 


D 




00000020 


D 




00000034 


D 




00000008 


D 




00000010 


D 




0/00043C 


D 




0000003C 


D 




00000018 


D 




OOOOOOOB 


D 




00000013 


D 




OOOOOOOA 


D 




00000018 


D 




OOOOOOOD 


D 




00000002 


D 




00000010 


D 




OOOOOOOC 


D 




00000019 


D 




00000008 


D 




00000005 


D 




00000009 


D 




00000012 


D 




00000017 


D 




00000006 


D 




OOOOOOOF 


D 




00000001 


D 




00000011 


D 




0000001 A 


D 




00000007 


D 




0000001 c 


D 




0000001 B 


D 




0000001 F 


D 




0000001 E 


D 




0000001 D 


D 




00000014 


D 




00000000 


D 




00000015 


D 




00000003 
00000004 


D 
D 




00000016 


D 




OOOOOOOE 


D 




******** 


X 


03 


******** 


X 


03 


******** 


X 


03 


******** 


X 


03 


******** 


X 


03 


******** 


X 


03 


******** 


X 


03 


******** 


X 


03 


******** 


X 


03 
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DSS6PHARD 

DSSGQ TESTID 

DSSK 5BC 

DSSK'BBCC 

DSSK~BBCCI 

DSSK"BBCS 

DSSK'BBS 

dssk~bbsc 
dssk'pbss 
dssk bbssi 
dssk~bcc m 
dssk~bcs~m 
dsskIbeqQlb 
dssk beqlu m 
dssk'beql 5 
dssk~beql~m 
dssk berror 
dssk'bgequ.b 
dssk'bgequ m 
dssk bgeq b 

DSSK~BGECfM 

ds$k"bgtro.b 
dssk'bgtru m 
dssk~bgtr b 
ds$k;bgtr~m 
dssk blbc 
dssk~blbs 
dssk~blequ_b 
ds$Olequ m 

DSSK BlEQ B 

DSSK~BLEQ"M 

DSSK~BL$S0 B 

DSSK'BLSSU~M 

DSSK~BLSSj5 

DSSK'BLSS M 

DSSK BNEQO B 

OS$K"BNEQU~M 

DSSK BNEG B 

DSSK"BNECfM 

DSSK~BNERROR 

DSSKlBVC.M 

DSSK^BVS M 

DSSK DS 5TART1NG.LOCATION 

DSSK'PRTNTB 

DSSK PRINTF 

DSSK~PRINTI 

DSSK~PRINTX 

DSSK'TYPE ABORT PROGRAM 

DSSK"TYPE~ABORrTEST 

DS$K~TYPE~COMMAnD ERR 

DS*K"TYPElCOMMAND~0UT 

DSSK TYPE CRD AUTOTEST 

DS$K~TYPE~DS PROMPT 

DSSK"TYPElDS"START 

DSSK'TYPE ERRDEV 

DS$\"TYPE"ERRHARD 

DSSK'TYPE'ERROR BODY 



******** 

******** 

0000001 D 

00000021 

00000023 

0000001 F 

0000001 c 

00000020 

0000001 E 

00000022 

0000001 B 

0000001A 

00000005 

00000011 

00000004 

00000010 

00000026 

00000007 

00000013 

00000006 

00000012 

00000009 

00000015 

00000008 

000000H 

00000025 

00000024 

OC000003 

OOOOOOOF 

00000002 

OOOOOOOE 

00000001 

OOOOOOOD 

00000000 

oooooooc 

OOOOOOOB 
00000017 
OOOOOOOA 
00000016 
00000027 
00000019 
00000018 
00010000 
00000002 
00000001 
00000000 
00000003 
OOOOOOK 
00000013 
00000015 
00000016 
0000001A 
00000001 
0000001 D 
00000008 
00000006 
00000009 



G 
6 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



03 
03 



DSSK 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK, 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSK. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM. 

DSSM 

DSSM. 

DSSM 

DSSM 

DSSM 

DSSM' 

DSSM. 

DSSM, 

DSSM 

DSSM' 

DSSM] 

DSSM. 

DSSM 

DSSM 

DSSV] 

DSSV 

DSSV. 
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TYPE ERROR END 
TYPE'ERRPREP 
TYPE"ERRSOFT 
TYPE~ERRSUP 
TYPE ERRSYS 
TYPE'ERR HALT 
TYPE EXCEPTION 
TYPE"EXCEPTION HEAD 
TYPE~FIRST PASS 
TYPE"*GENERAL 
TYPElGENERAL ERROR 
TYPE_.NO TESTS 
TYPE PARAM ERROR 
TYPE~PROGR*M END 
TYPE"PROGRAMllNFO 
TYPE'PROGRAM START 
TYPE**QIOJNV&DP 
TYPE"QJO,NODRIVER 
TYPE QIO WRONGVER 
TYPE~SCRlPT ECHO 
TYPE~SCRIPT PNF 
TYPESCRIPT PROMPT 
TYPE~SCRIPT~SKIP 
'TYPElSEQUENtE. error 

type start err 
type~start~list 
*type~summaRy 
type'user.prqmpt 

ABRTFLG 
BADTIME 
BATCH 
BRKCLR 
BRKPT 
CHARFLG 
"CMDFL6 
.CTRLC 
CTRLO 
.DEVFLG 
.D1SABLCC 
DONFLG 
ERRFLG 
'EXCEPT 
EXETST 
"HLTFLG 
LODFLG 
MEMMGT 
OUTPUT 
RUBFLG 
SCRIPT 
'SETIMR 
STRFLG 
[SUBT 
SYSFLG 
TIMRON 
'ABRTFLG 
"BADTIME 
"BATCH 
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00000012 
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OOOOOOK 
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00000010 
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00000017 
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00000024 
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00000022 
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00000023 
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00000021 
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0000001 E 
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00000020 
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0000001 F 
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00000019 
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00000018 
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00000025 
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00000002 
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00000040 


D 


00100000 
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00400000 


D 


00001000 


D 


00000800 


D 


00000100 


D 


00000080 


D 


00000001 


D 


00010000 


D 


00000200 
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01000000 


D 


00002000 


D 


00000010 


D 


00080000 
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00040000 
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00000008 
00000002 


D 
D 


00008000 


D 


00800000 


D 


00000020 


D 


00200000 


D 


02000000 


D 


00000004 
00004000 


D 


D 


00000400 


D 


00020000 
00000006 


D 


D 


00000014 


D 


00000016 


D 
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DSSV BRKCLR 

DS$V~BRKPT 

DSSV~CHARFLG 

DSSV~CMDFLG 

DSSV~CTRLC 

DSSVlCTRLO 

DSSV DEVFLG 

DSSVJMSABLCC 

DSSV DONFLG 

DSSV'ERRFLG 

DSSV~EXCEPT 

DSSV~EXETST 

DSSV~*HLTFLG 

DSSV~LODFLG 

DSSV~MEMMGT 

DSSV'OUTPUT 

DSSV'RUBFLG 

DSSV~SCRIPT 

DSSV~SETIMR 

DSSV~STRFLG 

DSSV^SUBT 

DSSV SYSFLG 

DSSV~T1MR0N 

DSASGL APTMAIL 

DSASAT~APTTXT 

DSASGL~APTCOM 

DSASGL~DEVLEN 

DSASGL^ERRNO 

DSASGL EVENT 

DSASGL'FLAGS 

DSASGL~MSGTYP 

DSASG'.'PASSES 

DSA$GL"PASSNO 

DSASGL'SECTNO 

DSASGL'SID 

DSASGl.~SUBTNO 

DSASGL.TESTNO 

DSASGL UNITS 

DSASGG~MSGPTR 

DSASGT'DEVNAM 

DSASMjOAD DEBUGGER 

DSASV.APT " 

DSASV.DEBUG 

DSASV LOAD DEBUGGER 

DSA$V~QA 

dsa$v~user 

dspsgEn ptables 

dsqask cispat after ini t 

DSQA$rOI SPATlBEFORE.INI T 
DSQASKlDISPAT^CALLTEST 
DSQASK DISPAT DONE. TESTS 
DSQA$K~DISPAT"DSX$ENDPASS_BGN 
DSQASK~DlSPArDSXSENDPASS,END 
DSQA$K~DISPAT DSXSENDPASS MID 
DSQASK'DISPAT^DS.CLEANUP.BGN 
DSCASK~DISPAT DS„CLEANUP_END 
DSQASK'DUMMY T 



0000000C 

0000000B 

00000008 

00000007 

00000000 

00000010 

00000009 

00000018 

0OO00O0D 

00000004 

00000013 

00000012 

00000003 

00000001 

OOOOOOOF 

00000017 

00000005 

00000015 

00000019 

00000002 

OOOOOOOE 

OOOOOOOA 

0000001 1 

OOOOFEOO 

OOOOFAOO 

0000FE04 

0000FE58 

0000FE44 

0000FE48 

OOOOFEOO 

0000FE40 

0000FE08 

0000FE54 

0000FE10 

OOOOFEH 

0000FE4C 

0O00FE50 

OOOOFEOC 

0000FE68 

0000FE5C 

40000000 

0000001 F 

0000001A 

0000001 E 

OOOOOOOF 

0000001 c 

******** 

00000014 
00000013 
00000015 
00000018 
00000001 
00000002 
00000000 
00000003 
00000004 
00000007 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

K 
D 
D 
D 
D 
D 

r 

D 
D 
D 
D 



03 



DSQASK ERRORJRROR.BGN 

DSQASK"ERROR ERROR.FND 

DSGASK~KERNE[ INN CONTEXT 

DSQASKlLOOP.DSXSBGfJSUB 

DSQASK.LOOP^DSXSCKLOOP 

DSQASK LOOP DSXSENDSUB 

DSQASK~PARAfl DSXSGETADDRESS 

DSQASK'PARAM'DSXSGETDATA 

DSQASKlPARAMlDSXSGETLOGICAL 

DSQASK PARAM.DSXSGETSTRING 

DSQASK PARAM DSXSGETVIELD 

DSQA$K~QA DSHSBRANCH 

DSQASKlSTjRT.BEFORE HEADER 

DSQASK START VRRESTART 

DSQASKlSTART"VRSTART 

DSRSFlFlD USER PC 

DSVSDEBUC 

DSXSABORT 

DSXSPRINT 

DS CLEANUP 

DS TEST1D 

ENV%H DOMAIN 

ENVSM.LEVEL 

ENVSM SUPER 

ENVSS'DOK. ? f.' 

6NVSS. LEVEL 

ENVSS.SUPER 

ENVSV.DOMAIN 

ENVSV LEVEL 

ENVSV SUPER 

ENVS.CPU 

ENVS.FUNCTIONAL 

ENVS.REPAIR 

ENV$ M SUPER 

ENVS S'STEM 

FALSE 

FMT ABORT 

FMT~ABORT NO.PC 

FMT~AMBSEC 

FMTIILLSEC 

FMT MISMATCH 

FMT~N0DEVICE 

FMT~NOUNITS 

FMT'PROG 

FMT'SECTIONS 

FMTlSTART 

FMT TESTING 

FMT'TESTRANGE 

INlT CONTEXT 

IS IT USER.PC 

LSS.CCP 

LSA DEVP 

L$A"DREG 

LSA"DTP 

LSA^ICP 

LSA LASTADR 

LSA'NAME 



00000006 
00000005 
00000008 
00000009 
OOOOOOOB 
OOOOOOOA 
OOOOOOOE 
OOOOOOOC 
OOOOOOOF 
00000010 
OOOOOOOD 
00000011 
00000017 
00000012 
00000016 
******** 

******** 

000003A9 
******** 

******** 
******** 

00000002 
00000001 
OOOOOJFC 
00000001 
00000001 
00000008 
00000001 
00000000 
00000002 
00000000 
00000000 
00000001 
00000001 
00000001 
00000000 
00000046 
00000077 
0000014C 
000001 1E 
000001 B6 
000001 F4 
OOOOOOCB 
00000006 
000001 7C 
00000104 
000001 A3 

OOOOOOAO 
******** 

000003D3 
00000240 
0000021 C 
00000224 
00000218 
0000023C 
00000214 
00000208 



D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 



R 



03 
03 



03 
03 



RG D 03 
X 03 
X 
X 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 



02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
03 
03 
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LSA REPP 

lsa'secnam 

l$a"s t atab 

lsa tstcnt 

l*l~environ 

lsl'errtyp 

lsl^headiength 

L$L REV 

LSL UNIT 

L$L~UNUSED 

L$L"UPDATE 

MAPFREE 

MAP DEBUGGER 

OFF" 

ON 

PRLIST 

QASAOB CHECK STATE 

QA$AOB~FLAGS" 

QA$K ABORT NOW 

3A$K APT PHASE ONE 

QASK"APT"PHASE"TWO 

QA$K~BAD~ADDRE5S 

QA$K~CONTrOL C CONT 

qask"deallocXtTon 
qask~error phase one 
qa$k"error~phase'"three 
qask'errorlphase'two 
qask~failuRe 
qaskjirst branch.code 
qa$k first time 
qask'init Context done 
qa$k"last"branch Code 
qask~loop"on subtest 
qa$k"loop"on"test 
qa$k"loop"tlSt done 
qask'memoRy PARAGE 
gask'multipCe^pass 
gask~nodef 
qa$k~normal start 
qa$k~no header 
qa$k~nurber of. checks 

QASKlNUMBER'QA FLAGS 
QA$K NUMB ROUTINE^STATES 

qaskIqa^dEbug 
qa$k qa done 
qa$k rur backwards 

GA$K~SECTlON 
QA$K SUCCESS 
GASMAN 

qa$v_check.done 
qa$v doing.cleanup 
qa$v~error found 
qa$v"init bone 
qiosAddunTt 
qioscleanup 
scbsl.access 
scbsl arith 



00000244 


D 




00000250 


D 




00000248 


D 




00000254 


D 




00000204 


D 




0000024C 


D 




00000200 


D 




0000020C 


D 




00000220 


D 




00000228 


D 




00000210 


D 




******** 


X 


03 


******** 


X 


03 


00000000 


D 




00000001 


D 




00000362 R 


D 


03 


******** 


X 


03 


******** 


X 


03 


00000007 


D 




0000000B 


D 




0000000C 


D 




00000009 


D 




0000000A 


D 




0000000E 


D 




00000005 


D 




00000007 


D 




00000006 


D 




00000000 


D 




00000000 


D 




00000005 


D 




00000003 


D 




00000025 


D 




00000003 


D 




00000002 


D 




00000004 


D 




OOOOOOOD 


D 




00000001 


D 




00000000 


D 




00000000 


D 




00000006 


D 




OOOOOOOF 


D 




00000008 


D 




00000004 


D 




00000001 


D 




00000002 


D 




00000004 


D 




00000008 


D 




00000001 


D 




******** 


X 


03 


00000003 


D 




00000002 


D 




U0000001 


D 




00000000 


D 




******** 


X 


03 


******** 


X 


03 


00000020 


D 




00000034 


D 





SCBSL BREAK 

SCB$L"CHME 

SCBSL'CHMK 

SCBSL'CHMS 

SCBSL'CHMU 

SCBSLICOMPAT 

SCBSL KNLSTK 

SCBSLlMACHCHK 

SCBSL.OPCCUS 

SC8SL.0PCDEC 

SCBSL POWER 

SCBSL'RADRMOD 

SCBSL'ROPRAND 

SCBSLlRXDB 

SCBSL SFTLVL1 

SCBSL. SFTLVL10 

SCBSL. SFTLVL11 

SCBSL.SFTLVL12 

SCBSL SFTLVL13 

SC8SLISFTLVL14 

SCBSL.SFTLVL15 

SCBSL. SFTLVL2 

SCBSL. SFTLVL3 

SCBSL. SFTLVL4 

SCBSL. SFTLVL5 

SC8SL.SFTLVL6 

SCBSL. SFTLVL7 

SCBSL.SFTLVL8 

SCBSL.SFTLVL9 

SCBSLlTBIT 

SCBSL.TIMER 

SCBSL TRANSL 

SC8SLITXD8 

SCBSL. ZERO 

SCRIPTSFLUSH 

SEP.FUNCTIONAL 

SEP REPAIR 

SJZT.. 

START1 

TRUE 

VRABORT 

VRA80RT COM 

VRRESTART 

VRSHOWSECTIONS 

VRSTART 

vrstart x 
vrsuppoRt 



0000002C 
00000044 
00000040 
00000048 
0000004C 
00000030 
00000008 
00000004 
00000014 
0000001 

oooooooc 

0000001 C 
00000018 
OOOO00F8 
00000084 
OOOO00A8 
OOOOOOAC 
OOOOOOBO 
0OOO0OB4 
0OOO00B8 
OOOOOOBC 
00000088 
0000008C 
00000090 
00000094 
00000098 
0000009C 
OOOOOOAO 
0OOO00A4 
00000028 
OOOOOOCO 
00000024 
OOOOOOFC 
00000000 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



******** x Q3 



00000002 
00000003 
00000001 
00000051 
00000001 
000003CF 
000003E3 
00000051 
000004DC 
OOOOOQQO 
0000033F 
00000482 



R 



03 



RG D 03 

R D 03 

RG D 03 

RG D 03 

RG D 03 

R D 03 

RG D 03 
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PSECT name 

ABS , 
SA8SS 
DATA 

CODE 



Allocation 

00000000 
O0OOFE7O 
0000021 E 
O0O0OS2E 



! Psect synopsis ! 
+*,— .. — — ..+ 

PSECT No. Attributes 

( 0.) 00 ( 0.) NOPIC USR 

(65136.) 01 ( 1.) NOPIC USR 

( 542.) 02 ( 2.) NOPIC USR 

( 1326.) 03 ( 3.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


CON 


ABS 


LCL 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


SHP 


NOEXE 


RD 


NOWRT 


NOVEC 


BYTE 


CON 


REL 


LCL 


SHR 


EXE 


RD 


NOWRT 


NOVEC 


BYTE 
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START 

Cross reference 



Cross reference 



*** START Handle START command 
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SYMBOL 



SER 

tMODULE 

ACT DEFAULT DBG 

APC5 ABORT % 

APC$~CONTINUE 

APC$~DUMP 

APCS'NOP 

APC$~START 

APC$"ZERO 

APMS'ABTDON 

APM$~DEVERR 

APM$~DONE 

APMS'EXCEPT 

APM$~HARDERR 

APM$"MORE 

APM$~NOMES 

APM$~PREPERR 

APM$"PRGERR 

APM$*SOFTERR 

APM$~SP00L 

APMS'SYSERR 

BEGlR 

BIT... 

cep functional 
cep'repair 
check qa bit 
cli$k~alF)um 
cli$k"alpha 

CLJSfcfBIF 

CLISK'BIFS 

CLI$K"BR 

am~BUFsiz 

CLI$KlCALL 

CLISK COMMA 

CL I$K"DEC 

CLI$K~E0L 

CLI$K'ERROR 

CLi$K~EXIT 

CLISK'FILE 

am~HEx 

CLI$K"KEYWORD 

CLi$K~NUM 

CLI$K~OCT 

CLI$K"R£TURN 

CUSlTSIZE 





! Symbol Cross Reference ! 














VALUE 


DEFINITION 


REFERENCES,.. 














=00000002 


956 


(4) 


#-328 


(3) 


#-356 


(3) 


#-418 


(3) 


#-432 


(3) 








487 


(3) 


517 


(3) 


#-537 


(3) 


800 


(4) 








818 


(4) 


#-877 


(4) 


#-892 


(4) 


#-945 


(4) 








956 


(4) 














=00000001 


224 


(3) 


















00000000-R 


224 


(3) 


















00000000-XR 






334 


(3) 














=00000006 


203 


(3) 


















=00000009 


203 


(3) 


















=00000003 


203 


(3) 


















=00000000 


203 


(3) 


















=00000005 


203 


(3) 


















=00000004 


203 


(3) 


















=00000006 


203 


(3) 


#-838 


(4) 














=00000002 


203 


(3) 


















=O0000OOA 


203 


(3) 


















=O0OO00OB 


203 


(3) 


















=00000003 


203 


(3) 


















=00000008 


203 


(3) 


















=00000000 


203 


(3) 


















=00O0G0OC 


203 


(3) 


















=00000005 


203 


(3) 


















=00000004 


203 


(3) 


















=00000009 


203 


(3) 


















=00000001 


203 


(3) 


















00000000-XR 






643 


(3) 


840 


(4) 










=00000004 


208 


(3) 


197 
207 


(3) 
(3) 


199 
208 


(3) 
(3) 


205 


(3) 


206 


(3) 


=00000000 


199 


(3) 


















=00000001 


199 


(3) 


















00000345-R 


654 


(3) 


#-338 


(3) 


#-360 


(3) 










=00000087 


197 


(3) 


















=00000086 


197 


(3) 


















=00000083 


197 


(3) 


















=00000094 


197 


(3) 


















=00000082 


197 


(3) 


















=00000100 


204 


(3) 


204 


(3) 














=00000092 


197 


(3) 


















=0000008E 


197 


(3) 


















=0000008A 


197 


(3) 


















=00000091 


197 


(3) 


















=00000080 


197 


(3) 


















=00000081 


197 


(3) 


















=00000095 


197 


(3) 


















=00000089 


197 


(3) 


















=0000008C 


197 


(3) 


















=00000085 


197 


(3) 


















=00000088 


197 


(3) 


















=00000093 


197 


(3) 


















00000444 


204 


(3) 
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CLISK^SLASH 


=00000090 




197 


(3) 










CL1SK SPACE 


=00000084 




197 


(3) 










CLI$K~STR1NG 


=00000088 




197 


(3) 










CLI$K"SYMBOL 


=0000008D 




197 


(3) 










cu$Oalue 


=0000008F 




197 


(3) 










CUSLJUJDRESS 


00000018 




204 


(3) 










CL1CL COMMAND 


000GC004 




204 


(3) 










CLISL"*DATA 


0000001 C 




20^ 


(3) 










CLliOlAGS 


00000000 




20, 


(3) 


407 


(3) 


412 (3) 429 (3) 657 (3) 




CLIlL LAST 


00000024 




204 


(3) 


#-466 


(3) 






CL1SL~NEXT 


00000030 




204 


(3) 










CLISL^PASS 


0000002C 




204 


(3) 


#-458 


(3) 






CL1SL SUBT 


00000028 




204 


(3) 


#-480 


(3) 






CLI$L~TEST 


00000020 




204 


(3) 


#-460 


(3) 






CLI$Q~BUFQWD 


00O0OC34 




204 


(3) 










CLISQ"FILE 


00000008 




20a 


(3) 










CLlSCf SECTl'N 


00000010 




204 


(3) 


#-381 


(3) 


#-391 (3) #-392 (3) 




CL1SQ"TIME 


0000043C 




20<. 


(3) 










CL1ST"'BUFFER 


0000003C 




204 


(3) 










CLISV'ADAPTER 


=00000018 




204 


(3) 










CLISVlADR 


=00O0O00B 




204 


(3) 










CLI$V_ASCIi 


=00000013 




20<, 


(3) 










CLI$V BREAK 


=0OO0O00A 




204 


(3) 










CL1$V~BRIEF 


=0000001B 




20*. 


(3) 










CLI$V~BYTE 


=00000000 




204 


(3) 










CLISV'CLEAR 


=00000002 




204 


(3) 










CLISVlDEC 


=00000010 




204 


(3) 










CL1$V DEFAULT 


=0000000C 




204 


(3) 










CLI$V"DCPOSIT 


=00000019 




204 


(3) 










CLI$V~EVENT 


=00000008 




204 


(3) 










CLI$V~EXAM 


=00000005 




204 


(3) 










CU$V"FLAGS 


=00000009 




204 


(3) 










CL1$V~HEX 


=00000012 




204 


(3) 










CL i$v"kernel 


=00000017 




204 


(3) 










cli$v*"load 


=00000006 




204 


(3) 










CLISV'LONG 


=OOO0OOOF 




204 


(3) 










CLl$V"NOTNUF 


=00000001 




204 


(3) 










CLI$V OCT 


=00000011 




204 


(3) 










CLI$V>REG 


=0000001A 




204 


(3) 










CL1$V"QA 


=0000000? 




204 


(3) 


#-656 


(3) 






CLI$V"QACKLOOPLOOPS 


=0000001 c 




204 


(3) 










CUSV~QAERRORPRINTS 


=00000018 




204 


(3) 










CLI$V"QAMULTIPLEPASS 


=0000001 F 




204 


(3) 










CLISV'QASUBTESTLOOPS 


=00000015 




204 


(3) 










CLI$V"QATESTLOOPS 


=00000010 




204 


(3) 










CLISV'REG 


=00000014 




204 


(3) 










CLI$V"REQUIRED 


=00000000 




204 


(3) 










CLISVlRUN 


=00000015 




204 


(3) 










CLISV.SET 


=00000003 




204 


(3) 










CLISV SHOW 


=00000004 




204 


(3) 










CLISVlVALSEC 


=00000016 




204 


(3) 


#-406 


(3) 


#-411 (3) #-428 (3) 




CLI$V WORD 


=OOO00O0E 




204 


(3) 










DISPATCH 


00000000- 


XR 






635 


(3) 






DSSCLRVEC 


00000000- 


XR 






587 


(3) 






DS$GB_TYPECODE 


00000000- 


XR 






#-421 


(3) 


#-435 (3) #-540 (3) #-896 (4) 














#-898 


U) 


#-959 (4) 




DS$GL_CLIBASE 


oooooooo- 


XR 






379 


(3) 


655 (3) 
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START 


*** START 


Handle START 


command 
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41 
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(4) 


DSSGL.flAGS 


00000000- 


XR 




325 


(3) 


#-449 


(3) 


#-625 (3) #-748 (4) 












#-783 
874 


(4) 
(4) 


785 
942 


(4) 
(4) 


830 (4) #-036 <4> 




DS$GL^f STTEST 


00000000- 


XR 




#-461 


(3) 


#-464 


(3) 


#-473 (3) 




DS*Gl LSTTFST 


00000000- 


XR 




#-467 


(3* 


#-471 


(3) 


#•476 (3) 




dssgl'numtest 


00000000- 


XR 




#-456 


(3) 


#-470 


(3) 


#-4?4 (3) #-477 (3) 












#-487 


(3) 










DStGL SUBTEST 


oooorooo- 


XR 




#-481 


(3) 










dsigpRard 


00000000- 


XR 




564 


(3) 


594 


(3) 






DSiGO TEST ID 


00000000- 


XR 




#-800 


(4) 


#-818 


(4) 






DS$K BBC 


=00000010 




207 (3 














DSU'BBCC 


=00000021 




207 (3 














dssObcci 


=00000023 




207 (3 














DS$K BBCS 


=0000001 F 




207 (3 














DS$K~BBS 


-OO000C1C 




207 (3 














DSSK BBSC 


=00000020 




20? (3 














DSSk'BBSS 


=0000001 £ 




207 (3 














DSSK'^BSSl 


=00000022 




20/ (3 














DS$K~bCC_M 


=00000018 




207 (3 














DS$K'BCS m 


=0000001A 




207 (3 














ds$k"beolu B 


=00000005 




207 (3 














os$k;beolu"m 


=00000011 




207 (3 














DSSK.BEQL S 


=00000004 




207 (3 














DSK BtOL'M 


=00000010 




207 (3 














dssk'berrOr 


=00000026 




207 (3 














dssk'bgequ.b 


=0000000*' 




207 (3 














dssk'bgeqj m 


=00000013 




207 (3 














ds$k~bgeq 5 


=00000006 




207 (3 














ds$k"bgeq~m 


=00000012 




^07 (3 














dssh'bgtrG b 


=00000009 




207 (3 














dssk'bgtru m 


=00000015 




207 (3 














ds$k~bgtr B 


=00000008 




207 (3 














ds$k"bgtr~m 


=00000014 




207 (3 














dssk^blbc" 


=00000025 




207 (3 


) 207 


(3) 










DSSK BIBS 


-00000024 




207 (3 














DS$K~BIEQU_B 


=00000003 




207 (3 














dssk'biequ m 


=0OO0000F 




207 (3 














DS$K BLEQ B 


=00000002 




207 (3 














DSUlBLEQ'M 


=0000000E 




207 (3 














DS$K BLSSO.B 


=00000001 




207 (3 














nSSK'BLSSU M 


=00000000 




20/ (3 














DS$K~BLSS B 


=00000000 




207 (3 


) 207 


(3) 










?S$K~BLSS~M 


=0000000C 




207 (3 














DS$K~BNEOD_B 


=00000008 




207 (3 














DS$Kl8NEQU.M 


=00000017 




2Q y (3 














DS$K 8NEQ B 


-OOOOOOOA 




207 (3 














DS$K"BNEQ"M 


=00000016 




20? (3 














dssk'bnerRor 


=00000027 




207 (3 














dssk'bvc m 


=00000010 




207 (3 














ds$k;bvs"m 


=00000018 




207 (3 














ds$k ds Starting lucatjon 


=00010000 




207 (3 














dssk'prTntb 


=00000002 




208 (3 














dssiTprintf 


=00000001 




208 (3 


) #-328 


(3) 


#-356 


(3) 


#-418 (3) #-432 (3) 


i 










#-48? 


(3) 


#-51? 


(3) 


#-537 (3) #-570 (3) 


i 










#-693 


(3) 


#-800 


(4) 


#-818 (4) #-877 (4) 


l 

i 










#-092 


<4> 


#-945 


(4) 


#-956 (4) 




DS$K_PRIMI 


■■■uUOOOOOO 




208 (3 


) 










| 

t 
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i 

t 
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START 


*** START 


Handle 


START c 


ommand 




27-JUL-1984 15:45 


: 52 VAX- 


Cross reference 












23-MAY-1984 14:15 


:55 DMA1 


:[syso.sysmaint: 


DSU PRINTX 


=00000003 


208 


( 7 ) 












dssk'type abort program 


=00000014 


208 


(3) 


#-800 


(4) 


#-818 U) 






ds$k~type"abort"test 


=00000013 


208 


(3) 












dsskjype.commaFIdjrr 


=00000015 


208 


(3) 


x -728 


(3) 


#-418 (3) 


#-432 


(3) #-487 










#-877 


(4) 


#-945 (4) 






DSSK TYPE COMMAND OUT 


=00000016 


208 


(3) 


#-892 


(4) 


#-895 (4) 


#-956 


(4) 


DSSKf TYPE~CRD AUTOTFST 


=0000001 A 


208 


(3) 












dssk'type'ds Prompt 


=00000001 


208 


(3) 












DS$K~TYPElD$;START 


=0000001 D 


208 


(3) 












dsskJtypejrRdev 


=00000008 


208 


(3) 












DSSK TYPE ERRHARD 


=00000006 


20* 


(3) 












DSSK'TYPE'ERROR BODY 


=00000009 


208 


(3) 












DSSK~TYPE~ERROR~END 


=0000000A 


208 


(3) 












dssk'type'errprEp 


=00000018 


208 


(3) 












ds$k"type"frrsoft 


=00000007 


208 


(3) 












dssk"typf"i KRSUP 


=00000004 


208 


(3) 












DS$H"TYf ! i tHRSYS 


=00000005 


208 


(3) 












DS$K"TYPh"ERR HALT 


=00000000 


208 


(3) 












dssiTtypeIexcEption 


=O0OOOOOC 


208 


(3) 












dssk type exception head 


=0000000B 


208 


(3) 












dssk'type'first PASS 


=00000011 


208 


(3) 












dswT type'generSl 


=00000000 


208 


(3) 












ds$Oype_general error 


=00000003 


208 


(3) 












DSSK TYPE NO TEST? 


=00000012 


208 


(3) 












ossk'type'paRam error 


=0000001 c 


208 


(3) 












dssk~type~progr*m_end 


=00000010 


208 


(3) 












dssk'type program info 


=00000017 


208 


(3) 


#-571 


(3) 








dssk~type>rogram~start 


=00„0000F 


208 


(3) 


#-517 


(3) 








dssk~type~qio invAdp 


=00000024 


208 


(3) 












dssk~type~qio~nodriver 


=00000022 


208 


(3) 












dssk'type'qjo wrongver 


=00000023 


208 


(3) 












dssk~type~scrTpt rCHO 


=00000021 


208 


(3) 












ds$k"type"script^pnf 


=0000001 E 


208 


(3) 












dssk"type scrjpt"promp^ 


=00000020 


208 


(3) 












DSSK~TYPE~SCRIPT~SKIP 


=0000001 F 


208 


(3) 












DSSK~TYPE~SEQUENtE error 


=00000019 


208 


(3: 












DSSK~TYPE"START ERR 


=00000018 


208 


(3) 


#-356 


(3) 


#-537 (3) 






DSSK~TYPE~START~LIST 


=00000025 


208 


(3) 


#-694 


(3) 








dssk~type~summaRy 


=0000U00E 


208 


(3) 












DSSK~TYPE~USER PROMPT 


=00000002 


208 


(3) 












DSSM'ABRTFlG 


=00000040 


205 


(3) 












DSSMlBADTJME 


=00100000 


205 


. (3) 












DSSM BATCH 


=00400000 


205 


(3) 












DSSM'BRKCLR 


=00001000 


205 


(3) 












DSSM~8RKPT 


=00000800 


205 


(3) 


#-447 


(3) 


#-746 (4) 


#-781 


(4) 


DSSM~CHARFLG 


=00000100 


205 


(3) 












DSSM'CMDFLG 


=00000080 


205 


(3) 












DSSM~CTRLC 


=00000001 


205 


(3) 


#-446 


(3) 








DSSM~CTRLO 


=00010000 


205 


(3) 












DSSMlDEVFLG 


=00000200 


205 


(3) 












DSSM DJSABLCC 


=01000000 


205 


(3) 












DSSMlDONFLG 


=00002000 


205 


(3) 


#-443 


(3) 








DSSM.ERRFLG 


=00000010 


205 


(3) 












DSSM EXCEPT 


=00080000 


205 


(3) 


#-448 


(3) 


#-747 (4) 


#-782 


(4) 


DSSM'EXETST 


=00040000 


205 


(3) 












DSSM"HLTFLG 


=00000008 


205 


(3) 


#-445 


(3) 


#-745 (4) 


#-780 


(4) 


dssm"lodflg 


=00000002 


20b 


(3) 
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START 
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Handle S 
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ommand 




27-JUL-198' 
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Page 


43 


Cross reference 












23-MAY-198* 


» 14:15 


:55 DMA1 


:CSYS0.SYSMAINT2START.MAR;220 


(4) 


DSSM MEMMGT 




=00008000 


205 


(3) 


















DS$f"f OUTPUT 




=00800000 


205 


(3) 


















DSSM RUBFL6 




=00000020 


205 


(3) 


















DSSM'SCRIPT 




=00200000 


205 


(3) 


















DS$M~SET1MR 




=02000000 


205 


(3) 


















DS$M~STRFLG 




=00000004 


205 


(3) 


#-444 


(3) 


#-624 


(3) 


#-835 


(4) 






DSSM'SUBT 




=00004000 


205 


(3) 


















DS$M~SYSFLG 




=00000400 


205 


(3) 


















DS$M~TIMRON 




=00020000 


205 


(3) 


















DS$V~ABRTFLG 




=00000006 


205 


(3) 


















DSSVIBADTIME 




=00000014 


205 


(3) 


















DSSV BATCH 




=00000016 


205 


(3) 


















DSSV'BRKCLR 




=0000000C 


205 


(3) 


















DS$V 8RKPT 




=00000003 


205 


(3) 


















DS$V~CHARFLG 




=00000008 


205 


(3) 


















OS$V"CMDFLC 




=00000007 


205 


(3) 


















DSSV'CTRLC 




=00000000 


205 


(3) 


















DS$V~CTRL0 




=00000010 


205 


(3) 


















DS$VJ)EVFIG 




=00000009 


205 


(3) 


















DS$V DISABLCC 




=00000018 


205 


(3) 


















DSSV~DONFLG 




=00000000 


205 


(3) 


















DS$V~ERRFLG 




=00000004 


205 


(3) 


#-829 


(4) 














DS$V*EXCEPT 




=00000013 


205 


(3) 


















OSSV'EXETST 




=00000012 


205 


(3) 


















DS$V~HLTFLG 




=00000003 


205 


(3) 


















DS$V LODFLG 




=00000001 


205 


(3) 


#-324 


(3) 


#-873 


(4) 


#-941 


(4) 






DS$V~MEMMGT 




=O0000OOF 


205 


(3) 


















DS$V~OUTPUT 




=00000017 


205 


(3) 


















DS$V~RUBFLG 




=00000005 


205 


(3) 


















DS$V SCRIPT 




=00000015 


205 


(3) 


















DS$V~SETIMR 




-00000019 


2C^ 


(3) 


















DSSV'STRFLG 




=00000002 


205 


(3) 


#-784 


(4) 














DS$V~SUBT 




=0000000E 


205 


(3) 


















DSSV'SYSFLG 




=00O00OOA 


205 


(3) 


















DS$V~TIMRON 




=00000011 


205 


(3) 


















DSA$5L_FLAGS 




OOOOFEOO 






331 


(3) 


333 


(3) 


#-337 


(3) 372 


(3) 














497 


(3) 


551 


(3) 


581 


(3) 584 


(3) 














659 


(3) 


664 


(3) 


741 


(4) 828 


(4) 




DSASGL MSGTYP 




0OO0FE40 






#-839 


(4) 














OSASGL'PASSES 




0000FEO8 






#-459 


(3) 














DSA$GL~PASSNO 




0000FE54 






#-800 


(4) 


#-818 


(4) 










DSA$GL~SECTNO 




0000FE10 






#-380 


(3) 


#-403 


(3) 










DSASGL UNITS 




OOOOFEOC 






#-525 


(3) 


#-532 


(3) 


#-567 


(3) #-600 


(3) 




DSASM COAD DEBUGGER 


=40000000 






#-336 


(3) 














DSASV'APT " 




=00000O1F 






#-331 


(3) 


#-827 


(4) 










DSASV DEBUG 




=000000U 






#-583 


(3) 














DSA$V~LOAD DEBUGGER 


=000000 1E 






#-332 


(3) 














DSASVlQA " 




=O0O00OOF 






#-496 


(3) 


#-550 


(3) 


#-658 


(3) #-663 


(3) 














#-740 


(4) 














DS4$V USER 




=0000001 c 






#-371 


(3) 


#-580 


(3) 










dspsgEn ptable 


b 


00000000- 


XR 




530 


(3) 














DSQASK BlSPAT 


AFTER INI T 


=00000014 


206 


(3) 


















DSQA$K"DISPAT" 


'BEFORE INIT 


=00000013 


206 


(3) 


















DSQA$K~DISPAT' 


"CALLTE5T 


=00000015 


206 


(3) 


















DSQA$K"DISPAT" 


'DONE TESTS 


=00000018 


206 


(3) 


















DSQA$<"DISPAT" 


*DSX$ENDPASS bgn 


=00000001 


205 


(3) 


















DSQA$K*DISPAT" 


*DSX$ENDPASS~END 


=00000002 


206 


(3) 
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START 


*** START 


HandLe 


START command 




27-JUL-198< 


15:45 


:52 VAX- 
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23-MAY-1984 


14:15 


:55 DMA1 


••CSYSO.SYSMAINTJSTART.MAR;; 


520 (4) 


DSQASK DISPAT„.DSX$ENDPASS MID 


=00000000 




206 


(3) 
















DSQA$K"DISPAT OS CLEANUP BGN 


=00000003 




206 


(3) 
















DSQA$K"DISPAT"OS'CLEANUPlEND 


=00000004 




206 


(3) 
















DSQASK~DUMMY T " 


=00000007 




206 


(3) 
















DSQA$K~ERROR~ERROR BGN 


=00000006 




206 


(3) 
















DSQA$K~ERROR~ERROR"'END 


=00000005 




206 


(3) 
















DSQASK'KERNEC INIT~CONTEXT 


=00000008 




206 


(3) 
















DSQASlTLOOP DSXSBGflSUB 


=00000009 




206 


(3) 
















DSQA$M.OOP"DSX$CKL0OP 


=00000008 




206 


(3) 
















DSQA$lTLOOP~DSX$ENDSUB 


=0O000O0A 




206 


(3) 
















DSQA$K~PARAfl DSXSGETADDRESS 


=OO000O0E 




206 


(3) 
















DSQA$K~PARAM~DSX$GETDATA 


=0000000C 




206 


(3) 
















DSQA$K~PARAM~DSX$GETLOGICAL 


=0000OO0F 




206 


(3) 
















DSQA$K~PARAM~DSX$GETSTRING 


=00000010 




206 


(3) 
















DSQA$lCPARAffDSX$GETVIELD 


=OOO0OCOD 




206 


(3) 
















DSQA$K~QA DS5?$BRANCH 


=00000011 




206 


(3) 
















DSQA$K"*START BFFORE HEADER 


=00000017 




206 


(3) 


#-494 


(3) 












DSQA$K~START"VRREST5RT 


=00000012 




206 


(3) 


#-363 


(3) 












DSQA$lCSTART~VRSTART 


=00000016 




206 


(3) 


#-339 


(3) 












DSRSFlRD USEFLPC 


00000000- 


XR 






771 


(4) 












DSVSDEBUS 


00000000- 


XR 






335 


(3) 












DSXSABORT 


000003A9- 


R 


738 


(4) 
















DSX$PRINT 


00000000- 


XR 






328 


(3) 


356 


(3) 


418 


(3) 432 (3) 














487 


(3) 


517 


(3) 


537 


(3) 572 (3) 














695 


(3) 


800 


(4) 


818 


(4) 877 (4) 














892 


(4) 


945 


(4) 


956 


(4) 




DS CLEANUP 


00000000- 


XR 






^69 


(3) 


833 


(4) 








ds"testid 


00000000- 


XR 






787 


(4) 












ENtf$M DOMAIN 


=00000002 




199 


(3) 
















env$m~level 


=00000001 




199 


(3) 
















envsm~super 


=000003FC 




199 


(3) 
















env$s~domain 


=00000001 




199 


(3) 
















env$s~level 


=00000001 




199 


(3) 
















env$s~super 


=00000008 




199 


(3) 


#-350 


(3) 


#-881 


(4) 


#-949 


(4) 




envsv~domain 


=00000001 




199 


(3) 


199 


(3) 












envsv'level 


=00000000 




199 


(3) 


199 


(3) 












env$v"super 


=00000002 




199 


(3) 


#-349 


(3) 


#-880 


(A) 


#-948 


(4) 




env$Jpu 


=00000000 




199 


(3) 


199 


(3) 












ENV$ FUNCTIONAL 


=00000000 




199 


(3) 


199 


(3) 












envs'repair 


=00000001 




199 


(3) 


199 


(3) 












envs.super 


=00000001 




199 


(3) 


#-352 


(3) 


#-883 


(4) 


#-951 


(4) 




ENV$ SYSTEM 


=00000001 




199 


(3) 


199 


(3) 












FALSF 


=00000000 




207 


(3) 
















FMT ABORT 


00000046- 


•R 


230 


(3) 


800 


(4) 












FMT'ABORT NO PC 


00000077- 


■R 


233 


(3) 


818 


(4) 












FMT"AMBSEr " 


00000HO 


-R 


254 


(3) 


418 


(3) 












FMT'ILLSEC 


0000011E- 


•R 


251 


(3) 


432 


(3) 












FMT'MISMATCH 


000001B6- 


•R 


263 


(3) 


356 


(3) 












FMT'NODEVICE 


000001 FA- 


•R 


266 


(3) 


892 


(4) 












FMT'NOUNITS 


OOOOOOCB- 


-R 


245 


(3) 


537 


(3) 












FMT>ROG 


00000006- 


■R 


226 


(3) 


517 


(3) 












FMT SECTIONS 


0000017C- 


■R 


257 


(3) 


956 


(4) 












FMT~START 


00000104- 


-R 


248 


(3) 


328 


(3) 


877 


(4) 


945 


(4) 




FMT'TESTING 


000001A3- 


-R 


260 


(3) 


569 


(3) 












FMT'TESTRANGE 


OOOOOOAO- 


■R 


242 


(3) 


487 


(3) 












INlT CONTEXT 


00000000- 


•XR 






359 


(3) 


623 


(3) 


832 


(4) 




IS IT USER PC 


000003D3- 


•R 


768 


(4) 


#-752 


(4) 













ZZ-ENSAA-7,0 Cross refe 


rence 








27- 


F 14 

-JUL-1984 


Fiche 


13 Frame 


F14 Sequence 2646 
11 Macro V03-0T Pat 




START 


*** START 


Handle START c 
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27-JUL-1984 15:45 
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23-MAY-1984 14:15 


:55 DMA1 


.'CSYS0.SYSMAINT3START.MAR;; 


?20 (4) 


LSA DEVP 


0000021 C 








#-538 


(3) 


#-885 


(4) 








L$A~NAME 


00000208 








#-517 


(3) 


#-956 


(4) 








L$A~SECNAM 


00000250 








#-385 


(3) 


#-402 


(3) 


#-419 


(3) #-433 (3) 




™ 










#-957 


(4) 












LSA TSTCNT 


00000254 








#-455 


(3) 


#-517 


(3) 








L$L~ENV1R0N 


00000204 








351 


(3) 


589 


(3) 


882 


(4) 950 (4) 




LSL'REV 


0000020C 








#-517 


(3) 












L$L~UNIT 


00000220 








#-526 


(3) 












L$L~UPDATE 


00000210 








#-517 


(3) 












mapFree 


00000000- 


XR 






582 


(3) 












MAP DEBUGGER 


00000000- 


XR 






585 


(3) 












OFF" 


=00000000 




207 


(3) 
















ON 


=00000001 




207 


(3) 
















PRLIST 


00000362- 


R 


677 


(3) 


£-420 
#-958 


(3) 
(4) 


#-434 


(3) 


#-539 


(3) #-897 (4) 




QA$AOB_CHECKJ>TATE 


00000000- 


XR 






499 


(3) 


502 


(3) 


553 


(3) 556 (3) 














743 


(4) 












QASAOB FLAGS 


00000000- 


XR 






507 


(3) 


561 


(3) 








QASK^ABORT NOW 


=00000007 




207 


(3) 
















QA$K APT PRASE ONE 


=00000008 




207 


(3) 
















QA$K"APT PHASE TWO 


=00000001 




207 


(3) 
















QA$K~BAD~ADDRE5S 


=00000009 




207 


(3) 
















qask'conTrol c cont 


=000OOOOA 




207 


(3) 
















qa$k~deallocStTon 


=0000000E 




207 


(3) 
















QASK'ERROR PHASE ONE 


=00000005 




207 


(3) 


#-501 


(3) 


#-555 


(3) 


#-742 


(4) 




QA$K"ERROR"PHASE"THREE 


=00000007 




207 


(3) 
















QASk"ERROR~PHASE~TWO 


--00000006 




207 


(3) 
















gask'failuRe 


=00000000 




207 


(3) 
















QA$K~FIRST 8RANCH„C0DE 


=00000000 




207 


(3) 
















qask'first time 


=00000005 




207 


(3) 
















qask'init Context done 


=00000003 




207 


(3) 
















qask^lasTbranch Code 


=00000025 




207 


(3) 
















qa$k"loop"on SUBTEST 


=00000003 




207 


(3) 


#-498 


(3) 


#-552 


(3) 








QASK"LOOP""ON"TEST 


=00000002 




207 


(3) 
















QA$K~LOOP~TE$T DONE 


=00000004 




207 


(3) 
















qa$k~memoRy maRage 


=0000000D 




207 


(3) 
















qa$k~multipCe PASS 


=00000001 




207 


(3) 
















QA$K~*NODEF 


=00000000 




207 


(3) 
















QA$K~NORMAL START 


=00000000 




207 


(3) 
















QASK'NO HEARER 


=00000006 




207 


(3) 


#-506 


(3) 


#-560 


(3) 








QA$K"NUHBER OF CHECKS 


=0000000F 




207 


(3) 
















QA$K~NUMBER~QA"FLAGS 


=00000008 




207 


(3) 
















QA$K~NUMB ROUTINE STATES 


=00000004 




207 


(3) 
















qa$k~qa.dEbug 


=00000001 




207 


(3) 
















GA$K QA DONE 


=00000002 




207 


(3) 
















QA$K~RUR BACKWARDS 


=00000004 




207 


(3) 
















QA$K~SECTlON 


=00000008 




207 


(3) 
















QA$K"SUCCESS 


=00000001 




207 


(3) 
















QA$M*IN 


00000000- 


XR 






339 


(3) 


363 


(3) 


494 


(3) 




QA$V CHECK DONE 


=00000003 




207 


(3) 
















QA$V~DOING~CLEANUP 


=00000002 




207 


(3) 
















GA$\TERROR~FOUND 


=00000001 




207 


(3) 
















qaWinit Done 


=00000000 




207 


(3) 
















qiosSddunTt 


00000000- 


XR 






598 


(3) 












QIOSCLEANUP 


00000000- 


XR 






373 


(3) 












SCBSL TIMER 


ooooooco 








#-587 


(3) 












SCRIPTSFLUSH 


00000000- 


XR 






348 


(3) 


779 


(4) 









ZZ-ENSAA-7.0 Cross 


reference 






27 


START 


*** START Handle 


START command 


Cross reference 










SEP FUNCTIONAL 


=00000002 


199 


(3) 


#-590 


SEP~REPAIR 


=00000003 


199 


(3) 




sizT.. 


=00000001 


205 


(3) 


199 


START1 


00000051-R 


347 


(3) 




TRUE 


=00000001 


207 


(3) 




VRABORT 


000003CF-R 


759 


(4) 




VRABORT COM 


000003E3-R 


773 


(4) 


#-770 


vrrestaRt 


00000051 -R 


346 


(3) 


#-749 


VRSHOWSECTIONS 


000004DC-R 


939 


(4) 




VRSTART 


00000000-R 


323 


(3) 




VRSTARTJC 


0000033F-R 


642 


(3) 


#-329 










#-488 


VRSUPPORT 


00000482-R 


872 


(4) 
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27-JUL-1984 Fiche 13 

27-JUL-1984 15:45:52 
23-MAY-1984 14:15:55 



(3) 
(3) 



(4) 
(4) 



(3) 
(3) 



Frame G14 Seguence 2647 

VAX-11 Macro V03-01 Page 46 

DMA1 :CSYS0,SYSMAINT]START.MAR;220 (4) 



205 



(3) 



#-357 
#-541 



(3) 
(3) 



#-422 
#-599 



(3) 
(3) 



#-436 



(3) 



Z7-ENSAA-7.0 

START 

Cross reference 



Cross reference 



*** START Handle START command 



H 14 

27-JUL-1984 Fiche 13 

27-JUI-1984 15:45:52 
23-MAY-1984 14:15:55 



Frame H14 Seguence 2648 

VAX-11 Macro V03-01 Page 47 

D«A1:CSYS0.SYSMAINT]START.MAR;?20 (4) 











+ 
+ 


Macros 


Cross Reference ! 
















MACRO 


SIZE 


DEFINITION 






REFERENCES... 


















$D1 J>RINT_S 


1 


328 


(3) 






328 


(3) 


356 


(3) 


418 


(3) 


432 


(3) 


487 


(3) 














517 
892 


(3) 
(4) 


537 
945 


(3) 
(4) 


800 
956 


(4) 
(4) 


818 


(4) 


877 


(4) 


SDEF 




208 


(3) 


























SDEFINI 




196 


(3) 






196 


(3) 


198 


(3) 


200 


(3) 


201 


(3) 


202 


(3) 


SDS CFDEF 




196 


(3) 






196 


(3) 


















SDS~CL1DEF 




197 


(3) 






197 


(3) 


















SDS~CLRVEC S 




587 


(3) 






587 


(3) 


















SDS'DSADEF"* 




198 


(3) 






198 


(3) 


















SDSlENVDEF 


2 


199 


(3) 






199 


(3) 


















SDS GPHARD S 


1 


564 


(3) 






564 


(3) 


594 


(3) 














SDSlHDRDtF" 


2 


200 


(3) 






200 


<3) 


















SDS QADEF 


2 


207 


(3) 






207 


(3) 


















SDS SC8DEF 


3 


201 


(3) 






201 


(3) 


















SDS TYPEDEF 


4 


208 


(3) 






208 


(3) 


















SEQO 


1 


208 


(3) 






197 


(3) 


199 


(3) 


206 


(3) 


207 


(3) 


208 


(3) 


SEQULS1 


1 


208 


(3) 






197 


(3) 


199 


(3) 


206 


(3) 


207 


(3) 


208 


(3) 


SEOUL ST 


1 


197 


(3) 






197 


(3) 


199 


(3) 


206 


(3) 


207 


(3) 


208 


(3) 


SGBLINI 


2 










197 
208 


(3) 
(3) 


199 


(3) 


205 


(3) 


206 


(3) 


207 


(3) 


SPRDEF 


4 


202 


(3) 






202 


(3) 


















SPRINT 


2 


326 


(3) 






326 


(3) 


354 


(3) 


416 


(3) 


430 


(3) 


484 


(3) 














510 


(3) 


535 


(3) 


795 


(4) 


8H 


(4) 


875 


(4) 














890 


(4) 


943 


(4) 


953 


(4) 










SVIELD 


1 










199 


(3) 


205 


(3) 














SV1ELD1 


1 


208 


(3) 






199 


(3) 


205 


(3) 














APTDEF 


1 


203 


(3) 






203 


(3) 


















BR IF APT 


1 


331 


(3) 






331 


(3) 


















CLTOEF 


3 


204 


(3) 






204 


(3) 


















DSFDEF 


3 


205 


(3) 






205 


(3) 


















DSQA 


2 


206 


(3) 






206 


(3) 


















DS QADEFS 


6 


207 


(3) 






207 


(3) 


















moDnam 


1 


224 


(3) 






224 


(3) 


















QAJWIN 


1 


3^9 


(3) 


i 
i 




339 


(3) 


363 


(3) 


494 


(3) 












Performance indicators ! 


Phase 




Page faults 


CPL 


i Ti 


me 


.12 


Elapsel 1 
00:00:00 


rime 
30 
















Initialization 


33 


00: 


00. 


00 


Command processing 


H3 


00:00. 


00,83 


00:00:01 


74 
















Pass 1 




950 


00: 


00 


15 


.25 


00:00:24 


53 
















Symbol table sort 





00: 


00 


00 


.80 


00:00:00 


.88 
















Pass 2 




267 


00:00 


03 


.59 


00:00:04 


.67 
















Symbol table output 


57 


00: 


00 


00 


.34 


00:00:00 


.64 
















Psect synopsis 


output 


7 


00.00 


00 


.04 


00:00:00 


.07 
















Cross-reference output 


124 


00: 


00 


01 


.77 


00:00:02 


.15 
















Assembler run I 


totals 


1585 


00:00 


22 


.75 


00:00:34 


.99 
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ZZ-FNSAA-7.0 Cross reference 27-JUL-1984 Fiche 13 Frame 114 Sequence 2649 

START *** START Handle START command 27-JUL-1984 15:45:52 VAX-11 Macro V03-OT Page 48 

VAX-11 Macro Run Statistics 23-MAY-1984 14:15:55 DMA1 :[SYS0,SYSMAINT]START,MAR;22O (4) 

The working set Limit was 1000 pages. 

102702 bytes (201 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 573 non-local and 47 local symbols. 

1007 source lines were read in Pass 1, producing object records in Pass 2. 

114 pages of virtual memory were used to define 28 macros. 

+ ™™„™. - + 

! Macro library statistics ! 
+ — . + 

Macro library name Macros defined 

DRP1:CDS.UORK3DIAG.MLd;955 11 

DRB1 :CDS.WORK]DS.ML8;218 9 

SYSSSYSR00T:[SYSLIB3L1B.MLB:1 

0MA1:[SYS0.SYSMAJNT]DS.MLB;518 

DMA1 :CSYS0.SYSMA1NT]DIAG.MLB;953 

SYS$SYSR00T:[SYSLIB]UB.MLB;1 

SYS$SYSR00T:CSYSLIB]STARl.ET.MLB;2 6 

TOTALS (all libraries) 26 

752 GETS were required to define 26 macros. 

There were no errors, warnings or information messages. 

MACR0/N009JEC T/L J ST = C0S. LI S]/CROSS/ENABLE = (DEBUG, TRACE) START/UPDA= (START, U. Q D, START, ENH) + SYSSUBRARY : L JB/LIBRARY+DMA1 :[SYSO.SYSMAINT 



27-ENSAA-7.0 *** TSBTDR1VR driver for TS11/TS04, TU80 27-JUL-198^» Fiche 13 Frame JH Seguence 2650 
TSBTDRIVR *** TSBTDRIVR driver for TS11/TS04, TU80 27-JUL-1984 1 5 : A 8 : 1 4 VAX-11 Macro V03-01 Page 

able of contents 

(2) 37 DECLARATIONS 

(3) 303.1 TS11/TSCK, TU80 Bootstrap driver 



ZZ-ENSAA-7.0 
TSBT0R1VR 
VOI -02 



-2 



*** TS8TDR1VR driver for TS11/TS04, TU80 

*** TSBTDRIVR driver tor 



K H 
27-JUL-1984 Fiche 13 
TS11/TS04, TU80 27-JUL-1984 15:48:14 

3-MAR-1981 10:38:36 



Frame K14 Sequence 2651 
VAX-11 Macro V03-0T Page 1 
DMA1:CSYS0.SYSMAJNT]TSBTDRJVR.MAR;(1) 



-1 



-2 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 

cooo 

0000 

ocoo 

0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



.1 

.2 
3 
4 
5 

.1 

7 

8 

9 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
27 
.1 
,2 
30 
31 
32 
33 
34 
.1 
.2 
.3 
.4 
.5 
.6 
.7 
.8 
.9 
35 



.TITLE TSBTDRIVR 
.IDENT /V01-02/ 
.DISABLE GLOBAL 



*** TSBTDRIVR driver for TS11/TS04, TU80 magtape 



COPYRIGHT (c) 1980 J 982 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B.' DIGITAL EQUIPMENT 
CORPORATION. 



DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



OF ITS 



+ * 
FACILITY: 



DIAGNOSTIC SUPERVISOR 



ABSTRACT: 

This module contains the file load driver for 
UNIBUS TS11/TS04 and TU80 magtape 

ENVIRONMENT: kernel mode 

AUTHOR: Roger Riggs, CREATION DATE: 2-OCT-1980 

MODIFIED BY: 



01 



02 



Bob Bergazzi Aug 30, 1982 v6.9 

Changed MSSCMD to reside all on one page. Routine 

MAP_VA won't work if MSSCMD is split over a page boundary 

Marion Baggett Dec 01, 1982 V6.10 
Added comment changes for TU80, 
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ZZ-ENSAA-7.0 


DECLARATIONS 








27-JUL-1984 




Fiche 13 Frame L14 Seguence 2652 
15:48:14 VAX-11 Macro V03-0T Paae 2 
10:38:36 DMA1 :[SYSO.SYSMAINTJTSBTDRIVR.MAR; (2) 


TSBTDR1VR 


*** TSBTDRIVR driver i 


or TS11/TS04, TU80 27-JUL- 


1984 


V01 -02 


DECLARATIONS 








3-MAR- 


1981 




0000 


37 




.S8TTL 


DECLARATIONS 








0000 


38 














0000 


39 


• INCLUDE FILES: 










0000 


40 














0000 


41 














0000 


42 




SBTDDEF 






. Define boot device types 




0000 


43 




SIODEF 








Define I/O function codes 




0000 


44 




SNDTDEF 








Define NEXUS device types 




oooo 


45 




SPTEDEF 








Define page tabLe entry 




0000 


46 




SPRDEF 








Define processor registers 
Define RPB offsets 




0000 


47 




SRPBDEF 










0000 


48 




SSSDEF 








Define system status codes 




0000 


49 




SVADEF 








Define virtural address fieLds 




0000 


50 














cooo 


51 














0000 


52 


; MACROS: 










0000 


53 














0000 


54 














0000 


55 














0000 


56 














0000 


57 


; EQUATED SYMBOLS, 








0000 


58 














00000081 0000 


59 


BTDSK 


TM = 17/ ( 


Temp 








00000082 0000 


60 


btd$k; 


ITS = 178 t 


Temp 








0000 


61 














0000 


62 


* 












0000 


63 


; LOCAL SYMBOLS 










0000 


64 


# 












0000 


65 














0000 


66 


• 












0000 


.1 


; TS11/TS04, TU80 COMMAND PACKET DEFINITION 


-1 


0000 
0000 
0000 


68 
69 
70 














0000 


71 




SDEFINI 


MS 








0000 


72 














0000 


73 














00000000 0000 


74 


.=0 










RESET PC?????? 




0000 


75 


SDEF 


MS CPHD 


.BLKW 1 






COMMAND PACKET HEADER 




000? 


76 




_VlELD 


MS CPHD,0,<- 










0002 


77 






<CuD,5>,- 






COMMAND CODE FIELD 




0002 


78 






<,2>.- 






B5-86 ALWAYS FOR TS04 




0002 


79 






<IE,,M>,- 






INTERRUPT ENABLE 




0002 


80 






<M0D,4>,- 






COMMAND MODE F1ELD(B1 1-88) 




0002 


81 






- 






B8=REVERSE & B9=RETRY 




0002 


82 






<SWB,,M>,- 






•SWAP RYTES BIKB12) 




0002 


83 






<OPP,,M>,- 






■OPPOSITE BITCB13) 




0002 


84 






<CVC,,M>,- 






•CLEAR VOLUME CHECK(BH) 




0002 


85 






<ACK,,M>,- 






•ACKNOWLEDGE BIT(BIS) 




0002 


86 




> 












0002 


87 


SDEF 


MS.BACT 


.BLKW 1 






•BUS ADDRESSCB15-B0) OR COUNT 




0004 


88 


$DEF 


MS 8A1 


.BLKW 1 






•BUS ADDRESS B17-B16(R1GHT JUST) 




0006 


89 


SDEF 


MSlPNT 


.BLKW 1 






•BYTE COUNT 




0008 


90 












•FOR WRITE CHARACTERISTIC DATA 




0008 


91 


$DEF 


MS M8A0 


.BLKW 1 






MESSAGE BUFFER ADDR. WRD I 




OOOA 


92 


$DEF 


MS"M8A1 


.BLKW 1 






.-MESSAGE BUFFER ADDR. WRD 2 




oooc 


93 


SDEF 


MSlLNTH 


.BLKW 1 






;MESSAGE BUFFER LENGTHCALWAYS 14.) 



ZZ-ENSAA-7.0 DECLARATIONS 










M 14 
27-JUL-1984 


Fie he 


13 Frame M14 Sequence 2653 


TSBTDRIVR 


*** TSBTDR1VR driver 


for TS11/TS04, TU80 27-JUL- 


1984 15:48:14 VAX-11 Macro V03-C1 Paae 3 
1981 10:38:36 DMA1 :CSYS0.SVSMAINT3TSBTDRIVR.MAR; <2> 


VOI -02 


DECLARATIONS 








3-MAR- 




OOOE 


94 


$DEF 


MS 


CHWD 


.BLKW 1 




CHARACTERISTIC WORD 




0010 


95 




.VlELD 


MS CHWD, 4, <- 








0010 


96 








<ERl,,M>,- 




ENABLE MESSAGE BUFFER RELEASE INTERRUPTS 




0010 


97 








<EAI,,M>,- 




ENABLE ATTENTION INTERRUPTS 




0010 


98 








<ENB,,M>,- 




USED WITH ESS BIT*** 




0010 


99 








<ESS,,M>,- 




ENABLE SKIP TAPE MARKS STOP 




0010 


100 




> 












0010 


101 
















0010 


102 
















0010 


.1 


; TS11/TS0< 


►,TU80 MESSAGE PACKET 


DEFINITION 


-1 


0010 
0010 
0010 


104 
105 
106 
















0010 


107 


$DEF 


MS 


MHD 


♦ BLKW 1 




MESSAGE PACKET 




C012 


108 




.VlELD 


MS MHD,0,<- 




MESSAGE HEADER WORD 




0012 


109 








<C0D,5>,- 




MESSAGE CODE FIELD 




C312 


110 








<FMT,3>,- 




FORMAT FIELD 




0012 


111 








<CLS,4>,- 




CLASS CODE FIELD 




0012 


112 








<RSR,3>,- 




RESERVED FIELD 




0012 


113 








<ACK,,M>,- 




MESSAGE ACKNOWLEDGE BITCB15) 




0012 


114 




> 












0012 


115 


SDEF 


MS. 


.LNH 


.BLKW 1 




MESSAGE LENGTH WORD 




0014 


116 












HIGH BYTE=0,LOW BYTE=1 01 (LENGTH) 




0014 


117 


SDEF 


MS, 


R8PC 


.BLKW 1 




RESIDUAL BYTE/POSITION COUNT 




0016 


118 


SDEF 


MS 


XSRO 


.BLKW 1 




EXTENDED STATUS REGISTER 




0018 


119 




.VlELD 


MS XSR0,0,<- 








0018 


120 








<EDT,,M>,- 




END OF TAPE DETECTED(BO) 




0018 


121 








<BOT,,M>,- 




BEGINNING OF TAPE(B1) 




0018 


122 








<WLK,,M>,- 




WRITE L0CKED<B2) 




0018 


123 








<PED,,M>,- 




•PHASE ENCODED DRIVE(B3) 




0018 


124 








<VCK,,M>,- 




•VOLUME CHECK(B4) 




0018 


125 








<IE,,M>,- 




INTERRUPT WAS ENABLED(BS) 




0018 


126 








<ONL,,M>,- 




DEVICE 0N-LINE(B6) 




0018 


127 








<MOT,,M>,- 




•TAPE MOVING ON LAST C0MMAND(B7) 




0018 


128 








<ILA,,M>,- 




•ILLEGAL ADDRESS(B8) 




0018 


129 








<ILC,,M>,- 




•ILLEGAL C0MMAND(B9) 




0018 


130 








<NEF,,M>,- 




•NON-EXECUTAI.BE FUNCTIONCB10) 




0018 


131 








<WLE,,M>,- 




•WRITE LOCK ERROR(BH) 




0018 


132 








<RLL,,M>,- 




•RECORD LENGTH L0NGCB12) 




0018 


133 








<LET,,M>,- 




•LOGICAL END OF TAPECB13) 




0018 


134 








<RLS,,M>,- 




•RECORD LENGTH SH0RT(B14) 




0018 


135 








<TMK,,M>,~ 




•TAPE MARK DETECTED<B15) 




0018 


136 




> 












0018 


137 


SDEF 


MS 


XSR1 


.BLKW 1 




•EXTENDED STATUS REGISTER 1 




001A 


138 




_VlELD 


MS XSR1,0,<- 








001A 


139 








<MTE,,M>,- 




;(PE) MULTI-TRACK ERROR 




001A 


140 








- 




;<NRZ) VERTICAL PARITY ERROR 




001A 


141 








<UNC,,M>,- 




;(PE) UNCORRECTABLE DATA ERR0R(B1) 




001A 


142 








• 




;(NRZ) CYCLIC REDUNDANCY CHECK ERROR 




001A 


143 








<P0L,,M>,- 




;(PE) POSTAMBLE L0NGCB2) 




001A 


144 








» 




;(NR2) LONGITUDINAL REDUNDANCY CHECK ERROR 
:(PE) POSTAMBLE SHORT (B3) 




001A 


145 








<POS,,M>,- 






001A 


146 








- 




;(NRZ) NOISE RECORD 




001A 


147 








<IED,,M>,- 




;(?V INVALID END DATA(B4) 




001A 


148 








- 




; viV.Z) LRC WAS 0. 




001A 


149 








<1P0,,M>,- 




;(PE) INVALID POSTAMBLE (B5) 




001A 


150 








»* 




;(NRZ) ILLEGAL TAPE MARK 

_ „ -. 



ZZ-ENSAA-7,0 

TSBTDR1VR 

V'01-02 



DECLARATIONS 



**< fSBTDRIVR 

DECLARATIONS 



N 14 
27-JUL-1984 fiche 13 

driver for TS1 1/TSO^. TU80 27-JUL-1984 15:48:14 

3-MAR-1981 10:38:36 



Frame N14 Seguence 2654 

VAX-11 Macro V03-0? Paae 4 

DMA1 :CSYS0,SYSMAIN 'JTSBTDRIVR.MAR; (2) 



-1 



00000000 
00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 



00000000 



001A 

001A 

001A 

001A 

001A 

001 A 

001A 

001A 

00U 

001A 

001A 

001A 

001A 

001A 

C01C 

001 C 

001C 

001C 

001C 

001 c 

001C 

001C 

001C 

001C 

001C 

001E 

001E 

001E 

0C1E 

001E 

001E 

001E 

001E 

001E 

001E 

001E 

001 E 

001E 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 



151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 
189 

190 
i 

192 
193 
194 
195 
196 
197 

198 
190 

200 
201 
202 
203 
204 
205 
206 
207 



SDEf 



MS XSR2 
_VlELD 



$DEF 



> 

MS XSR3 
_VlELD 



<SYN,,M>,- 

<IPR,,M>,- 

<SCK,,M>,- 
<DBF,,M>,- 

<TIG,,M>,- 
vCRS,,K>,- 
<COR,,M>,- 

<,1>,- 

<DLT,,M>,~ 

.BLKW 1 
MS XSR2,0,O 
<l)TP,8>,- 
<XSK,,M>,- 
<WCF,,M>,- 

<CAF,,M>,- 
<BPF,,M>,- 
<SIP,,M>,- 
<OPM,,M>,- 

♦ BLKW i 

MS XSR3,0,< 

<RTB,,M>,- 

<LXS,,M>,- 

<NOI,,M>,- 

<DCK,,M>,- 

<CRF,,M>,- 

<REV,,M>,- 

<OPI,,M>,- 

<LMX,,M>,- 

<FEC,8>,~ 



(PE) SYNCH ER*OR(B6) 

(NRZ) FRAME DROPOUT 

(PE) INVALID PREAMBLE(B7) 

RESERVED BIT 

SPEED CHECKC89) 

(PE) DESKEW BUFFER FAILCB10) 

(NRZ) NRZ BOmRD FIFO OVERFLOW 

TRASH IN GAP(BH) 

CREASE DETECTEDCB12) 

CORRCTABLE DATA(B13) 

UNUSED BITCB14) 

DATA I.ATECB15) 

EXTENDED STATUS REGISTER 2 

DEAD TRACK PARITY,B7-B0 

EXCESSIVE SKEWCB9) 

WRITE CLOCK FAIL (B10) .BROKEN HARDWARE 

B11 NOT USFD 

CAPSTAN ACCELERATION FAILCB12) 

SERIAL BUS PARITY ERROR AT DRIVE(B13> 

SILO PARITY ERROR(BH) 

OPERATION IN PROGRESS(B15) 

EXTENDED STATUS REGISER 3 

REVERSE INTO BOT(BO) 

LIMIT EXCEEDED STAT; CALL Y (Bl ) 

NOISE RECORD(B2) 

DENSITY CHECK(B3) 

CAPSTAN RESPONSE FAIL(B4) 

TAPE MOVED BACKWARDS (B5) 

OPERATION IN COMPLETE (B6) 

TAPE LIMIT EXCEEDED(B7) 

815-88, FATAL ERROR COPE (U-DI AGNOST I C ) 



SDEFFND MS 



TS11/TS04,TU80 TSSR TERMINATION CLASS CODES 



TCC.NML-O 
TCC ATN=1 
TCC~TSA=2 
TCC~FNR=3 
TCC~REM=4 
TCC"rtEN~5 
TCC~UER=6 
TCC"FTL=7 



; FATAL CLASS (FC) CODES JN TSSR 



NORAML TERMINATION 

ATTENTION CONDITION 

TAPE STATUS ALERT 

FUNCTION REJECT 

RECOVERABLE ERRORCTAFE MOVED) 

RECOVERABLE ERRORCTAPE NOT MOVED) 

UNRECOVERABLE ERROR(TAPE POSI. LOST) 

FATAL CONTROLLER ERROR 



FCC IDF=0 



INTERNAL MAG. FAILURE 



ZZ-ENSAA-7,0 

TSBTDR1VR 

vOI-02 



DECLARATIONS 



-1 



-1 



*** TS8TDR1VR 
DECLARATIONS 



B 15 
27-JUL-1984 fiche 13 
driver tor TS11/TS04, TU80 27-JUL-1984 15:48:H 

3-MAR-1981 10:38:36 



Frame B15 Sequence 2655 
VAX-11 Macro V03-01 Paae 5 
DMA1 :[SYSO.SYSMAINT]TSBTDRIVR.flAR; (2) 



00000001 
00000002 
00000003 



00000010 
00000011 
00000012 
00000013 
00000014 



00000000 
00000001 

00000000 
00000001 
00000002 
00000003 



00000000 
00000000 
00000000 
00000000 
00000000 
00000000 



000OC001 
0O0OC004 

O00OC0O8 

0000C108 

000OC208 

0000C308 

0000C408 

O0OOC1QA 

O00OC00B 

QOOOCUOf 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



208 
209 
210 
211 
212 

.1 

214 
215 
216 
21? 
218 
219 
220 
221 
222 
223 
221* 
225 
226 
22? 
228 
229 
230 
231 
232 

?« 

234 

2-S 
.1 
21? 
238 
239 

240 
241 

24? 

245 
244 
245 
246 
247 
248 
249 
2<0 
2>1 
252 
253 
254 
255 
2S6 
257 
258 
259 

260 
261 
26? 
26 1 
264 



FCC.CPE=1 
FCC.UPE=2 
FCC LAP=3 



10 SEOl'FNCE CROM 
U-PROCESSOR CROM 
LOSS OF AC POWER 



PARITY ERROR 
PARITY ERROR 
DETECTED 



OR OTHER 



TS11/TS04, TU80 MESSAGE CODES IN MS^MHD^COD 



MSG END= A 0020 
MSG"FAL= A 0021 
MSG"ERR= A 0022 
MSG>TN= A 0023 
MSG L0G= A 0024 



END 

FAIL 

ERROR 

ATTENTION 

LOG (NOT USED) 



CLASS CODE FOR MESSAGE CODES (MS.MHD.Ci.S VAiUES) 



CLS 
CLS 



ONMO 
'MDr =1 



CLS PTB^O 
CL^'OTHER: 
CLS~WLN~2 
CIS MDE = 3 



"WHEN MSG TYPE=ATTENTION*« 
;0N OR OFFLINE 
;MICRO DIAG, FAILURE 
**WHEN MSG TYPE*FAU** 

PACKtT BAD(SERIAL BUS PARITY t'RROR) 

OTHERS 

WRITE LOCK ERROR OR NON-EXECUTABLE f UNCTION 

MICRO DIAGNOSTIC ERROR 



TSH/TS04, TU80 HARDWARE COMMAND MODES/CODES 



HC NOP^O 

hc"pak=hc nop 
hc"wck=hc~nop 
hc wkr=hc nop 
hc~rp:=hc"nop 
hc"sch-hc"nop 



; INTERRUPT ENABLE I ACKNOWLEDGE 
.-SIMULATED NOP(REAL NO OPERATION) 

SIMULATED PACK ACKNOWLEDGE 
SIMULATED WRITE CHECK 
SIMULATED WRITE CHECK REVERSE 
SIMULATED READ IN PRESET 
SIMULATED SET CHARACTERISTICS 



HC RDN= 
HC,WRC= 
HC SR>= 

hc;srr= 

HC,STF-- 
HClSTR= 
HC RWD= 

HCIUNL= 
Hf DRI= 
HC"GST- 



A 00001 
A 00004 
*00010 
A 00410 

A 01010 
A 01410 
'O'OIO 
A 00412 
A 00013 
A 00017 



MS 

MS 

MS, 

MS, 

MS, 

MS 

MS, 

MS 

MS 

MS' 



CPHD 

CPHD, 

CPHD 

;cphd; 

CPH^» 
'CPHD' 
CPHD' 
CPHD' 
CPHD 

:cphd: 



M.CVCIMS 

M.CVC!MS 

M.CVCIMS 

*M.CVC!MS" 

M.CVCJMS, 

MJVC.'MS 

"M.CVCIMS 

'M.CVCIMS 

M CVC.'MS 

>fCVC!MS; 



cphd m ack 
cphd'm'ack 

fPHD'M" ACK 
CPHD»CK 
CPHD M ACK 
CPHD"M"ACK 
CPHD"M"ACK 
CPHD"M"ACK 
CPHD"M"ACK 
CPHD"M"ACK 
• 'ROTE" 

• => DATA X 

♦ => (SPCU 
$ o POSITI 
- s> FORMAT 



• REAf> NEXT (FORWARD) 

♦ WRlTt CHARACTERISTICS 
$ SPACE RECORDS FORWARD 
S SPACE RECORDS REVERSE 

% S*'P TAPE HARKS FORWARD 
$ SKIP TA#»E MARKS REVERSE 
S REWIND 

- REWIND AND UNLOAD 

- DRIVER INITIALISE 

- GET STATUS IMMEDIATE 



FR 

AD 

ON 

.CONTROL, INITIALISE, & STATUS 



TSSR dets 



ZZ-ENSAA-7.0 

1SBTDR1VR 
V01 -02 



DECLARATIONS 



*** T S8TDRI VR 

DECLARATIONS 



C 15 
P7-JUL-1984 Fiche 13 
driver tor TSl1/TbO^ # 1U80 27-JUL-1984 15:48:14 

3-MAR-1981 10:38:36 



-1 



-2 



- 1 



0000 265 

0000 266 

00000000 0000 267 

00000000 0000 268 

00000002 0000 269 

0000 270 

0000 .1 

0000 272 

0000 273 

0000 2?<< 

oooo in 

0000 276 

0000 27? 

0000 278 

C000 279 

0000 280 

0000 281 

0000 282 

OOOO 285 

0000 284 

OOOO 285 

0000 286 

OOOO 287 

OOOO 288 

00000000 .1 

00000020 OOOO 291 

0020 292 

0020 29^ 

0020 294 

0020 295 

0020 296 

0020 297 

0020 . 1 

0020 299 

0020 300 

0020 30^ 

0020 302 



Frame C15 Sequence 2656 
VAX- 11 Macro V03-01 
0MA1:CSYS0.SYSMAJNT3TSBTDRIVR 



Page 
R.MA 



6 
AR;(2) 



TSD8 
TS8A 
TSSR 

JMELD 



OWN 



MSSCMDj 



= 
= 
= 2 

MS rssr.,i # <- 

<TfC,3>,- 

<FC,2>.- 

<OFL,,M>,- 

<SSR,,M>,- 

<A16,,M>,~ 

<A17,,M>,- 

<N8A,,M>,- 

<NXM,,M>,- 

<RMR,,M>,- 

<sp:,,m>,- 

<UPE,,M>,- 

<SC,,M>,- 

> 



REG1STER(B0 

FIELD 

FIELD 



Offset to TSD8 
Offset to TS8A 
Offset to TSSR 

TS11/TS04, TU80 STATUS 
TERMINATION CLASS CODE 
FATAL ERROR CLASS CODE 
DEVICE IS 0FF-LINE(B6) 
SUBSYSTEM READY(B7) 
BUFFER ADDRESS BIT 16 
BUFFER ADDRESS Bi T U 
NEED BUFFER ADDRESS(BIO) 
NON-FXISTENT MEM0RY<B11> 
REGISTER MODIFICATION REFUSED(BI2) 
SERIAL BUS PARITY ERR0R(B13) 
UNIBUS PARITY ERROR(BH) 
SPECIAL C0NDITI0N(B15) 



UNUSED) 



,PSECT 



DATA, 

,BLKW 



SHR, 
16 



NOEXE, NOWRT, 5 

; Command packet/char data/message area 



BOOT DRIVER TABLE ENTRY 



SBOOT^DRIVER 



DEVTYPf = 8TD$K TS,- 
SIZE - rs11 DRV5IZ,- 
ADDR = TSH"l)RIVER,- 
ENTRY = TS1T DRIVER, - 
DRIVRNAME = DfilVERNAME 



Device type (UNIBUS) 
Driver size 
Driver add r ess 
Entry point 
Driver name 



ZZ-ENSAA-7,0 
TSBTDR1VR 
V01 -02 



-1 



D 15 
TS11/TS04, TU80 Bootstrap driver 27-JUL-1984 Fiche ;.' 

*** TSBT&RIVR driver for TS11/TS04, TU80 27-JUL-1984 15:48:14 
TS1 1/TS0A # TU80 Bootstrap driver 3-MAR-1981 10:38:36 



Frame 015 Seguence 2657 
VAX-11 Macro V03-01 Page 7 
Di-.M:CSYS0«SYS«AINT3TSBT0RIVR.«AR;(3) 



-1 



0000 


.1 


0000 


305 


0000 


306 


0000 


307 


0000 


308 


0000 


309 


0000 


310 


0000 


311 


0000 


312 


0000 


313 


0000 


3H 


0000 


315 


0000 


316 


0000 


317 


cooo 


318 


0000 


319 


0000 


320 


0000 


321 


0000 


322 


0000 


323 


0000 


324 


0000 


325 


0000 


326 


0000 


327 


0000 


328 


0000 


329 


0000 


330 


0000 


331 


0000 


332 


0000 


333 


0000 


33^ 


0000 


335 


0000 


336 


0000 


337 


0000 


338 


0000 


339 


0000 


340 


0000 


341 


0000 


342 


0000 


343 


0000 


344 


0000 


345 


0000 


346 


0000 


J 


0000 


.2 


0000 


.3 


0000 


.4 


0000 


.5 


0000 


.6 


0000 


.7 


0000 


348 


0000 


349 


0000 


350 


0000 


351 


0000 


352 


0000 


353 


0000 


354 



.SBTTL TS11/T304, TU80 Bootstrap driver 



+ + 



Functional description: 



This rou 
function 
backward 
support 
tape ope 
prior to 
Drive cl 
bit in t 
which in 
the tunc 



tine pe 
s are s 
) and s 

drive c 
ration 

the fi 
ear ini 
he driv 

the TS 
tion is 



rforms basic 
upported for 
kip records 
Lear. Drive 
as it is nee 
rst position 
tial i zd tion 
e. This bit 
11 causes th 
rejected wi 



magnetic tape positioning. 

read* rewind, skip files (forward 
(forward and backward). It also 

clear must be called before the first 
essary to initialize the tape subsystem 

or transfer operation, 
clears the Need Buffer Aadress (NBA) 
can be reset by a UNJBUS reset/init 
e tape to be rewound. If NBA is set 
th tape position lost. 



Inputs: 



R3 
R5 
R6 
R7 
R8 
R9 
R10 



base address of adapter's register space 

LBN for current piece of transfer 

contains 

Address of devices CSR 

size of transfer in bytes 

address of the RPB 

starting address of transfer (byte offset in first 

page ORed with starting map register number) 



FUNC(AP)- I/O operation (10$ READLCiK or JOS REWIND only) 
MODE(AP)- Address interpretation mode (0 = physical, 1 = virtual) 
SIZE CAP)- Size of buffer in bytes 
BUF(AP) - Address of buffer 



Implicit inputs: 

RP8$8.SLAVE 
RPB$W_UNIT 



- Slave number of drive 

- RPB field containing boot device unit 



number 



Outputs: 
R0 



- status code 



S3$,N0RMAl 

SS$ TAPEPOSLOST 

SSS^TIMEOUT 

SS$ DATAOVERUN 

SSS'ILLIOFUNC 

SSS'CTRLERR 

SSSIENDOFFILE 

SS$_DEV0FFLINE 



successful transfer 
Tape position lost 
Device timeout 
Record too long 
I llegal I/O funct ion 
Controller error 
Tape mark was read 
Device is offline 



Register usage: 



R5 - Map number 
R11 - Address of 



of map for command area 
command buffer 



E 15 

ZZ-ENSAA-7.0 TS11/TS04, TU80 Boot .p driver 27-JUL-1984 Ffche 13 Frame E15 Sequence 2658 

TSBTDRIVR *** i.-nlDRIVR driver for TS1 1 /TS04, TU80 27-JUL-1984 15.-48.U VAX-11 Macro V03-0T Paae 8 

V01-02 TS11/TS04, TU80 Bootstrap driver 3-MAR-1981 10:38:36 DMA1 :[SYSO.SYSMAINTJTSBTDRIVR.HAR; <3> 





0000 


355 




00000004 


0000 


356 BUF = 


U 


00000008 


0000 


357 SIZE 


= 8 


oooooooc 


0000 


358 LBN = 


"2 


00000010 


0000 


359 FUNC 


= 16 


000000K 


0000 


360 MODE 


= 20 



ZZ-ENSAA-7.0 

TSBTDR1VR 

V01-02 



-1 



F 15 
TS11/TS04, TU80 Bootstrap driver 27-JUL-1984 Fiche 13 

*** TSBTDRIVR driver for TS11/TS04, TU80 27-JUL-1984 15:48:14 
TS11/TS04, TU80 Bootstrap driver 3-MAR-1981 10;38;36 



Frame F 1 5 Seguence 2659 
VAX-11 Macro V03-0T Page 9 
DMA1 jCSYSO.SYSMAINTJTSBTDRIVR.MAR; (4) 



04 AE 

52 02 A7 

0C 52 0A 

04 10 AC 

06 

50 0224 8F 



09 00 

55 5A 

55 03FF C845 

55 f7 8F 

55 

00000000 ! 8F 

5B 

15 09 

50 58 

51 0800 C345 

90000000 EO 

61 



81 81 



01 
61 



8000 8F 

10 AB 

50 10 AS 

013C 

08 AB 50 
CC AB OE 

OE AB 

6B C004 8F 

50 08 AB 

0125 

02 AB 50 

06 AB 08 

010C 

00A5 

25 50 



21 
24 
25 

26 



10 AC 

10 AC 
1A 

10 AC 
AC 

10 AC 



D4 
BO 
El 
D1 
13 
3C 
05 

EF 

9E 
78 



DO 
EF 

re 

9E 



CI 

DA 

BO 

3E 
30 

DO 
BO 
BA 

BO 
9E 
30 
DO 
BO 

30 
30 
E9 



D1 
13 
D1 
13 
D1 
13 
D1 



0000 

0000 

0000 

0003 

0007 

0008 

OOOF 

0011 

0016 

0017 

0017 

001A 

001C 

0022 

C026 

0027 

0027 

002D 

002E 

0031 

0033 

0039 

003F 

0040 

0040 

0044 

0046 

0046 

004A 

004C 

0050 

0053 

0053 

0057 

005B 

005E 

005E 

0063 

0067 

006A 

006E 

0072 

0072 

0075 

0078 

00 7Q 

007B 

0078 

0078 

007B 

0078 

007F 

0081 
0085 
0087 
0088 
008D 



.1 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
37A 
375 

3/6 
377 

378 
3/9 
380 
381 

382 
383 
384 
385 
386 

387 

388 

389 

390 

391 

392 

393 

39A 

395 

3% 

397 

398 

399 

A00 

A01 

A02 

A03 

AOA 

A05 

A06 

407 

408 

AC9 

A10 

A11 

A12 

A13 

41A 



TS11.DRJVER:: 

CLRL 

MOVW 

BBC 

CMPL 

BEQL 

MOVZWL 

RS8 



10$: 



EXT2V 

M0VA8 
ASML 



MOVL 

EXTZV 

MOVAL 
MOVAB 



ADDL3 
CLRL 

MOVW 

MOVAW 
BSBW 

MOVL 
MOVW 
CLRW 

MOVW 

M0VA8 

BS8W 

MOVL 

MOVW 

BS8W 
BS8W 
BL8C 



4(SP) 

TSSR(R7), R2 

*MS TSSR V NBA, R2, 10$ 

FUNC(AP)T#TO$ DRVCLR 

10$ 

0SS$ TAPEPOSLOST, RO 



#VA$V BYTE, #VA$S_BYTE,- 
R10, R5 

A X3FF(R8)[R53,R5 
#-9, R5, R5 



0MS$CMD, R11 



TS11/TS04, TU80 driver 

Clear retry count **************** 

Get current status 

Branch if not reset since last op 

Drive clear? 

If so continue 

Assume tape position lost 



Byte offset f rum start 

Length of transfer + extra page 

Number of pages to mapped + 1 



Address of command area 



#VA$V VPN, 0VA$S VPN,- 
R'\'\ L RO " ; Get PFN to map 

A X800(R3)[R5], R1 * Address of map register 

<PTE$M VAUD]PTE$C.KW>(RO>, - 



(R1) 

#1, (R1)+, (R1)+ 

(R1) 



; Map first page 
; Map 2nd page 
; And clear srd 



#MS_MHDJVM,MSJ1HD<R11J; Set ACK 1n message buffer 



MS MHDCR11), RO 
MAP„VA 

RO, MS M8A0(R11) 

#14, ms lnth(rii) 
ms_chwd7rii) 

#hc wrc, ms cphd^rid 

MS flBA0(R1lT, RO 
MAP VA 

R0,"MS BACT(R11) 
#8, MSlCNT(R11) 

EXECUTE 

WAIT 

RO, RETURN 



Copy message buffer address 
Get UNJ8US address of this VA 



Set address of 
Length of message bu 
Characteristics word 



message buffer 
ffer 



Write characteristics command 
Address of characteristic data 
Get UNJBUS address of this VA 
Set low and high address 
Set length of area 

Execute function 

Wait for Subsystem Ready to set 

Exit if subsystem ready does not 



set 



branch on function type 

CMPL FUNC(AP),AJO$ READLBLK 

BEQL E READ 

CMPL F0NC(AP),#IOS REWIND 

BEOL E REWIND 

CMPL F0nC(AP),*IO$ SKIPFJLE 

BEQL E SKIPFJLE " 

CMPL fONC(AP),#IO$.SKIPRECORD 



Read logical 

Execute read 

Rewind? 

Do a rewind 

Skip past eof 

Do it 

Skip records? 



block? 
function 



ZZ-ENSAA-7.0 


TS11/TS04, TU80 


Bootstrap ( 


jn'ver 






6 15 

27-JUL-1984 F i che 1J Frame G15 Sequence 2660 


TSBTDR1VR 






*** 


TS3TDR1VR driver for TS11/TSQ4, TU80 27-JUL-K84 15:48:14 VAX-11 Macro V03-01 Page 10 


V01 -02 






TS11/TS04, 


TU80 Bootstrap driver 3-MAR-1981 10:38:36 DMA1 :[SYSO.SYSMAINTJTSBTDRIVR.MAR; (4) 






68 


13 


0091 


415 




BEQL 


E SKIPRECORD , Do it 






50 01 


DO 


0093 


416 




MOVL 


#5S$ NjMAL, RO ; Assume normal completion 




04 


10 AC 


D1 


0096 


417 




CMPL 


FUNC7AP),*J0$ DRVCLR ; Drive clear? 






04 


13 


009A 


418 




BEQL 


RETURN " ; If so have already done it 




50 


F4 8F 


9A 


009C 
OOAO 


419 
420 


RETURN: 


MOVZBL 


#SS$JLUOFUMC,RO ; illegal I/O function 








05 


OOAO 
00A1 


421 
422 


; + 


RS8 


; Return to caller 










00A1 


423 


; Rewind slave 


drive, wait for completion 










00A1 


424 


♦ 














00A1 


425 


E_REWIND: 






6B 


C408 8F 


BO 


00A1 


426 




MOVW 


#HC RWD, MS CPHD(R11) ; Set function to rewind 






50 5B 


DO 


00A6 


427 




MOVL 


R117 RO ; VA to map 






00D5 


50 


00A9 


428 




BSBW 


EXECUTE ; Execute function 






006E 


30 


COAC 


429 




BS8W 


WAIT ; Wait for ready to sec 








05 


OOAF 
0080 


430 
431 


; + 


RS8 


; Exit 










OOBO 


432 


; Read 


block of 


data 










OOBO 


433 


• 














OOBO 


434 


E_READ: 








6B 


C001 8F 


BO 


OOBO 


435 




MOVW 


*HC_RDN, MS CPHD(R11) ; Set function to read next 




02 


AB 5A 


DO 


00B5 


436 




MOVL 


RIO. MS BACT(RH) ; Set address to re?d to 




06 


AB 58 


BO 


0089 


437 




MOVW 


R8, MS CNT(RH) ; Set length to read 






00C1 


30 


OOBD 


438 




BSBW 


EXECUTE ; Execute function 






005A 


30 


OOCC 


439 




BS8W 


WAIT ; Wait fo> completion 




51 


14 AB 


3C 


00C3 


440 




MOVZWL 


MS R8PC(R11), R1 ; Bytes residual byte count 




51 


58 51 


C3 


00C7 


441 




SU8L3 


R17 R8, R1 ; From desired length is transfered 






OA 50 


E9 


OOCB 


442 




BLBC 


RO, 20$ ; Branch if complete failure 




05 16 


AB OC 


El 


OOCE 
00D3 


443 
444 




BBC 


MS XSRO V^RLL. MS XSR0<R11), • 

20$ ; Branch if record not longer than but 




50 


0838 8F 


3C 


00D3 


445 




MOVZWL 


0SS$_DATAOVERUN, RO ; Longer, change return 








05 


00D8 
00D9 
00D9 


446 
447 
448 


20$: 


RS8 












00D9 


449 


; Skip 


tc end o 


f file 










00D9 


450 


; P1 is 


negative if backwards else forwards 










00D9 


451 


4 














00D9 


452 


E..SK1PFIIE: 








50 01 


DO 


00D9 


453 




MOVL 


#SS$ NORMAL, RO ; Assume it works 




6B 


C208 8f 


BO 


OODC 


454 




MOVW 


*HC 5TF, MS CPHD(R11) ; Set function to space tape marks 




02 AB 


04 AC 


\7 


00E1 


455 




CVTLW 


BUFTAP), MS;BACT(R11) ; Set count of marks to skip ! 






OC 


14 


00E6 


456 




BGTR 


10$ ; Branch if positive 






10 


13 


00E8 


457 




BEQL 


20$ ; Branch if count 




6B 


C308 8F 


BO 


OOEA 


458 




MOVW 


*HC STR, MS CPHD(RH) : Set function to space marks reverse 




02 AB 


02 A8 


AE 


OOEF 
00F4 


459 

460 




MNEGW 


M$JACT<R11J,MS_8ACT(R115; Make count positive 






008A 


30 


00F4 
OOF 7 


461 
462 


10$: 


BSBW 


EXECUTE ; Start function 






0023 


30 


OOF 7 


463 




BS8W 


WAIT ; Wait for it to fini$h 








05 


OOFA 
OOFB 
00F8 


464 
465 
466 


20$: 

• + 


RS8 


I 
I 










00F8 


467 


; Skip 


to end c 


>f record, read w/o buffer I 










OOFB 


46S 


; P1 is 


negative it backwards else forwards j 










00F8 


469 


» 




i 










OOFB 


470 


E„SKJPRECORD: 


| 






50 01 


DO 


OOFB 


471 




MOVL 


#SS$„N0RMAL,R0 ; Assume it works , 

i 

i 



ZZ-ENSAA-7.0 
TSBTDRIVR 
V01 -02 



H 15 
TS11/TS04, TU80 Bootstrap driver 27-JUL-198A Fiche 13 

*** TSBTDRIVR driver for TS11/TS04, TU80 ^7-JUL-198^ 15:48:14 
TS11/TS04, TU80 Bootstrap driver 3-MAR-1981 10:38:36 



Frame H15 Seguence 2661 

VAX-11 Macro V03-01 Page 11 

DMA1:CSYS0.SYSMAINT]TSBT0RlVR.f1AR;(4) 



68 C008 8F 

02 AB 04 AC 

0C 

10 

6B C108 8F 

02 AB 02 AB 

0068 
0001 



3B9ACA00 8F 

50 

0080 8F 

02 A7 

09 

F5 50 

50 022C 8F 



50 0054 8F 

51 7C00 8F 



51 



0? A? 
36 



51 03 01 
50 

50 0054 8F 

21 



8003 8f 
16 AB 



50 



16 

0870 8F 

12 



B0 
F7 
14 
13 
B0 
AE 

30 
30 

05 



DO 

B3 

12 
F5 
3C 
05 

3C 
B3 



3F 12 



32 
18 

EF 



3C 
11 



B3 



13 
3C 
11 



OOFE 
0103 
0108 
01 OA 
010C 
0111 
0116 
0116 
0119 
011C 

one 

01 ID 
01 ID 

0110 
CI ID 

011D 
011D 
01 ID 

0123 

0124 

0128 

01 2A 

012C 

012F 

0134 

0135 

0135 

013A 

013F 

013F 

013F 

0141 

0141 

0145 

0147 

0147 

014B 

OHC 

0158 

015D 

015F 

015F 

015F 

015F 

015F 

0163 

0165 

0165 

0165 

0165 

0167 

016C 

016E 

016E 

016E 

016E 

016E 



472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 



30$: 
50$: 



MOVW 

CVTLW 

B6TR 

BFQL 

MOVW 

MNEGW 

BSBW 
BS8W 

RSB 



#HC SRF, MS CPHDCRin 

BUFTAP), MS'BACTCRll) 

30$ 

50$ 

*HC SRR, MS CPHD(R11) 



Assume forward 
Set record count 
All set, execute 
Finish if space - 
Function = space reverse 



MSJJACT(R11T,MS..BACT<R11>; Set record count 



EXECUTE 
WAIT 



Translate R11 command and execute 
Wait for it to finish 



; Wait tor slave to quiesce 

WAIT: 

MOVL 01000000000, R0 



; time out counter 



490 10$: BITW #MS_TSSRJ*LSSR, TSSR<R7); Subsystem ready? 



491 

492 

493 

494 

495 

496 20$: 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 , 

5H 50$: 



515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 



BNEO 
S08GTR 
MOVZWL 
RSB 

MOVZWL 
BJTW 



BNEQ 

CVTWL 

BGEQ 

EXTZV 

CASE 

MOVZWL 

BRB 



20$ 

R0, 10$ 
#SS$_TJMEOUT, R0 



; Exit if subsystem ready 

; Count and try again 

; Set return code 

; return 



#SS$ CTRLERR, R0 ; Assume controller error 
*MS TSSR M UPE ! MS TSSR MSPE ! - 
MS TSSR H RMR ! MSjSSR fl RxM ! - 
MS~TSSR"M~NBA, R1 ; Any fatal errors? 
90$ ; Exit if any 



TSSR(R7), R1 
80$ 



; Get TSSR 

; Branch if SC clear, normal 



fMSJSSR V..TCC, *MS_TSSR S TCC, - 

R1, R0 ; Get termination class 

R0, LIMIT = 0TCC.NML, DISPLIST = <80$, 80$, 50$, 60$> 

*SS$_CTRLERR, RO ; Assume controller error 

90$ ; And exit 



Tape 



status condition 
BJTW #MS.XSR0.M w TMK ! - 

MS XSR0 M B0T ! - 
MS"XSR0"M"E0T, - 
MS XSR0TRT1) 

BEQL 80! 

MOVZWL #SS$_ENDOFFILE,RQ 

BRB 90$ 



Tape mark detected? 
No, exit normal 
Assume EOF sensed 
Exit 



Function reject 



60$: 



ZZ-ENSAA-7.0 


TS11/TS04, , 


fU80 


Bootstrap < 


jriver 






I 15 
27-JUL-1984 Fiche 


13 Frame 115 Sequence 2662 


TSBTDRIVR 








*** 


TSBTDRIVR driver for TS11/TS04, TU80 27-JUL-1984 15:48:14 VAX-11 Macro V03-01 Page 12 


V01 -02 








TS11/TS04, 


TU80 Bootstrap driver 3-MAR-1981 10:38:36 DMA1 :[SYSO,SYSMAINT]TSBTDRIVR.MAR; (4) 




50 


84 


8F 


9A 


016E 


526 




MOVZBL 


#SS$ DEVOFFLINE,R0 


Assume offline 




09 16 


AB 


06 


El 


0172 


527 




BBC 


#MS RSRO.V ONL. - 

MSjSRO(RlT), 90$ 














0177 


528 






Branch if offline 












0177 


529 












50 


54 


8F 


9A 


0177 


530 




MOVZBL 


#SS$_CTRLERR,R0 


Assume error 








03 


11 


0178 
01 7D 


531 
532 ; 


+ 


BRB 


90$ 


Exit 












01 7D 


533 ; 


Success 
















01 7D 


534 ■ 


- 












50 


01 


DO 


017D 


535 &0$: 


MOVL 


0SSS..NORMAL, RO 


Success 










05 


0180 


536 90S: 


RS8 


# 


Return from WAIT 












0181 


537 




















0181 


538 




















0181 


539 ; 


+ 


















C181 


540 ; 


Execute command pointer 3R11 














0181 


541 . 


- 


















0181 


542 EXECUTE 


« 










50 


5B 


DO 


0181 


543 




MOVL 


R11, RO 


VA to map 








09 


10 


0184 


544 




BSB8 


MAP^VA 


Map to UNI8US space 




51 


50 


10 


9C 


0186 


545 




ROTL 


#16, RO, R1 


Position bits 16 & 17 




67 


51 


50 


A9 
05 


018A 
018E 
018F 
018F 


546 
547 
548 

549 , 


+ 


BJSW3 
RSB 


RO, R1, TSBA(R7) 


Execute the function 












018F 


550 ( 


Map and translate VA to UN1BUS address 














018F 


551 , 


RO is 


VA to 


be mapped to UNJBUS space 














013F 


552 , 




RO 


Vm to be mapped 














018F 


553 , 




R3 


Base of adapter space 














018F 


554 , 




R5 


Map register number assigned for command/message area 












018F 


555 






may require two maps 














018F 


556 , 


•- 


















018F 


557 P 


•lAP^VA: 










OOOOOOOO 


•8F 


DO 


018F 


558 




MOVL 


0MS$CMD, R1 


Get command address 








51 




0195 














51 


f? 


8F 

51 


78 


0196 
019A 
0198 


559 
560 




ASHL 


#-9, R1,R1 


PFN only 




50 


15 


09 
51 


ED 


0198 
019F 


561 
562 




CMPZV 


*VA$V VPN, MASS VPN, - 

RO, RT 

10$ 


Does VA map same page? 

Branch if should be other page 








07 


12 


01A0 


563 




BNFQ 




15 


09 


55 
50 


FO 


01A2 
01A6 
01A7 


564 
565 




1NSV 


R5, *VA$V_VPN, #VA$S_VPN, 
RO 


Insert UNIBUS PFN 








15 


11 


01A7 
01A9 


566 

567 




BRB 


20$ 


Exit 








51 


D6 


01A9 


568 


10$: 


JNCL 


R1 


Next map maps next PFN 




54 


15 


09 

51 


ED 


01 AB 
01AF 


^69 
570 




CMPZV 


*VA$V VPN, 0VASS.VPN, - 

R4 f RT 

30* 


Does it map this page? 








00 


1? 


0180 


571 




BNEO 


Abort if page not mapped by either 




15 


09 


55 
50 


FO 


01B2 
01B6 
01B7 


572 
573 




INSV 


R5, #VASV_VPN, #VA$S_VPN, 
RO 


Insert UNIBUS PFN 




00000200 


8F 


CO 


01B7 


574 




ADDL 


#*X200, RO 


Map to next page 








50 




01BD 
01BE 


575 


















05 


01BE 


576 


20$: 


RSB 


j 


Return 












01BF 


577 











ZZ-ENSAA-7.0 

TSBT0R1VR 

V01-02 



J 15 
TS11/TS04, TU80 Bootstrap driver 27-JUL-1984 Fiche 13 

*** TS8TDRIVR driver for TS11/TS04, TU80 27-JUL-1984 15:48:14 
TS11/TS04, TU80 Bootstrap driver 3-MAR-1981 10:38:36 



Frame J15 Seguence 2663 
VAX-11 Macro V03-01 Paae 13 
DMA1:[SYS0.SYSMAINTDTSBTDRIVR.«AR;U> 



50 



2C 
8E 



49 
58 



52 
45 



44 
2E 



53 
52 



54 
45 



-1 



3C 
D5 
05 



00 • 

56 

45 

oc 



000001D2 



01BF 
01C2 
01C4 

01C5 
01C5 
01C5 
01C5 
0KB 
01D1 
01C5 
01D2 
01D2 
01D2 
01D2 



578 30$: M0V2WL *S$$„AB0RT, RO 

579 TSTL <SP)* 

580 RSB 
581 

582 

583 DRIVERNAME: 
J ,ASCIC /TSDRJVER.EXE/ 



585 

586 TS11 ORVSJZ = .-TS1 1. DRIVER 

587 

588 .END 



Set return code 

Return extra return address 

And return from bootdriver 



Boot device 
TSDRJVER 



driver name 



iZ-ENSAA-7.0 
TSBTDR1VP 

Symbol table 

STABLE 

BIT... 

BTD$K TM 

BTD$K~TS 

BUF ** 

CLS.MDE 

CLS.MDF 

CLS ONF 

CLS~OTHER 

CLS"PTB 

CLS'WLN 

DRI&ERNAME 

EXECUTE 

E.READ 

E.REWIND 

E SK1PFILE 

E SKIPRECORD 

FCC CPE 

FCC. IDF 

FCC LAP 

FCC'UPE 

FUNC 

HC DR1 

HC'GST 

HC~NOP 

HC~PAK 

HC'RDN 

HC~RPS 

HC.RWD 

HC SCH 

HC~SRF 

HC'SRR 

HC'STF 

HC'STR 

Hf.'UNL 

HC'WCK 

HC~WKR 

HC'WRC 

10? DRVCLR 

IO$'READLBLK 

IO$~REWJND 

iO$;S<IPFJLE 

10$ SKIPRECORD 

LBN" 

MAP VA 

MODE 

MS$CMD 

MSG ATN 

MSG'END 

MSG~ERR 

MSG'FAL 

MSC'LOG 

MS BA1 

MS'BACT 

MS'CHWD 
MS~CNT 

MS'CPHD 



Symbol table 



*** TSBTDR1VR driver for 



00000000 R 03 
00000010 D 
OO0O00B1 D 
00000082 D 
00000004 D 
00000003 

00000001 D 

00000000 

00000001 

00000000 D 

00000002 D 
000001 C 5 R D 04 
00000181 R D 04 
000000B0 R D 04 
OOOO0OA1 R D 04 
OO0O00D9 R D 04 
OOOOOOFB R D 04 

00000001 D 
00000000 D 

00000003 D 

00000002 
00000010 D 
0000C008 D 
OOOOCOOF D 
00000000 D 
00000000 D 
OOOOC001 D 
00000000 D 
0000C408 D 
00000000 D 
0O0OC0O8 D 
000OC1O8 D 
0000C208 D 
0000C308 D 
0000C10A D 
00000000 D 
00000000 D 
0000C004 D 

00000004 D 
00000021 D 

00000024 

00000025 D 

00000026 D 
OOOOOOOC D 
000001 8F R 04 
00000014 D 
00000000 RG D 02 

00000013 D 

00000010 D 
00000012 D 

00000011 D 

00000014 D 
00000004 D 
00000002 D 

ooooooor d 

00000006 D 

00000000 D 



K 15 
27-JUL-1984 Flche 13 

TS11/TS04, TU80 27-JUL-1984 15:48:14 

3-MAR-1981 10i38:36 



Frame K15 Seguence 2664 

VAX-11 Macro V03-07 Paae 14 

DMA1:CSYS0.SYSMAJNT3TSBTDRIVR.MAR;(4) 



MS CPHD M ACK 

MSJPHD'MlCVC 

MS.LNH 

MS.LNTH 

MS MBAO 

MSlMBAI 

MS MHD 

MS'MHD M ACK 

MS.RBPC 

MS TSSR M A16 

MSlTSSR~M>17 

MSJSSRX.NBA 

MS. TSSR M NXM 

MS.TSSR.M.OFL 

MS.TSSRJ1 RMR 

MSJS3RJ1.SC 

MS.TSSRJ1.,SPE 

MS TSSR M.SSR 

MS~TSSR~M UPE 

MSlTSSRlSlFC 

MS.TSSR.S.TCC 

MS TSSR V A16 

MS.TSSRIV.A17 

MS TSSR V.FC 

MSlTSSRlV.NBA 

MS TSSR V.NXM 

MS.TSSRlV.OFL 

MS TSSR V RMR 

MS_TSSR_V.SC 

MS TSSR V_SPE 

MS'.TSSR.V.SSR 

MS TSSR^V.TCC 

MSJSSR VJJPE 

MS.XSRO 

MS^XSRO^BOT 

MS.XSRO.MJOT 

MS XSRO MJMK 

MS.XSRO.V ONL 

MS.XSRO_V.RLL 

MS.XSR1 

MS XSR2 

ms.xsr! 

PTESC.KW 
PTESM VALID 

RETURFJ 

sjz,., 

SIZE 

SS$ ABORT 

SS$ CTRLERR 

SSS^OATAOVERUN 

SS$_DEV0FFLINE 

SSS.ENOOFFILE 

SS$ ILL IOFUNC 

SS$ NORMAL 

SS$lTAPEPOSLOST 

SS$ TIMEOUT 

TCC'ATN 



00008000 
00004000 
00000012 
OOOOOOOC 
00000008 
OOOOOOOA 
00000010 
00008000 
OOOOOOH 
00000100 
00000200 
00000400 
00000800 
00000040 
00001000 
00008000 
00002000 
00000080 
00004000 
00000002 
00000003 
00000008 
00000009 
00000004 
OOOOOOOA 
OOOOOOOB 
00000006 
OOOOOOOC 
OOOOOQOF 
OOOOOOOD 
00000007 
00OO00O1 
OOOOOOOE 
00000016 
00000002 
00O000O1 
00008000 
00000006 
OOOOOOOC 
00000018 
0000001 A 
0000001 C 
10000000 
80000000 

SfiOfifflAO 

00000001 
00000008 
0000002C 
00000054 
00000838 
00000084 
00000870 
0OO00OF4 

00000001 
00000224 
0000022C 
00000001 



R 



D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 



04 



ZZ-ENSAA-7.0 
TSBTDR1VR 
Symbol, table 

TCCJNR 

TCC.FTL 

TCC NML 

TCC'REM 

TCC~REN 

TCC~TSA 

TCC'UER 

TS1T DRIVER 

TSII'DRVSIZ 

TSBA" 

TSDB 

TSSR 

VA$S BYTE 

VASS VPN 

VAtV'BYTE 

VA$V~VPN 

WAIT 



Symbol table 



*** TSBTDR1VR driver for 



L 15 
27-JUL-1984 Fiche 13 

TS11/TS04, TU80 27-JUL-1984 15;48r14 

3-MAR-1981 10:38:36 



Frame L15 Seguence 2665 
VAX-11 Macro V03-01 Page 15 
DMA1:[SYS0.SYSMAINTJTSBTDRIVR.MAR;<4) 



00000003 
00000007 
00000000 
00000004 
00000005 
00000002 
00000006 
00000000 
000001 D2 
00000000 
00000000 
00000002 
00000009 
00000015 

oooocooo 

00000009 
0000011 D 



RG 



04 



04 



PSECT name 

. ABS . 
$ABS$ 
DATA 

BOOTDRIVR 4 
BOOTDRIVR'2 



Allocation 

00000000 
0000001E 
00000020 
00000018 
000001 D2 



! Psect synopsis ! 
+„- ... .™— ™™-+ 

PSECT No. Attributes 

0,) 00 ( 0.) NOPIC USR 

30.) 01 ( 1J NOPIC USR 

32.) 02 ( 2J NOPIC USR 

24.) 03 ( 3.) NOPIC USR 

466.) 04 ( 4.) NOPIC USR 



CON 


ABS L 


CON 


ABS L 


CON 


REL L 


CON 


REL L 


CON 


REL I 



CL NOSHR NOEXE NORO 

CL NOSHR EXE RD 

CL SHR NOEXE RD 

CL NOSHR EXE RD 

CL NOSHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC 21 

WRT NOVEC BYTE 

WRT NOVEC BYTE 













M 15 


" * — : — ■ - — i 


ZZ-ENSAA-7.0 Cross 


reference 






27- 


•JUL-1984 Fiche 13 Frame M15 Sequence 2666 


TSBTDR1VR 


*** TSBTDR1VR driver for 


TS11/TS04 


, TU80 


27-JUL-1984 15:48:14 VAX-11 Macro V03-01 Page 16 
3-MAR-1981 10:38:36 DMA1 : CSYSO.SYSMAINT]TSBTDRIVR.MAR; (A) 


Cross reference 












! Symbol Cross Reference ! 


SYMBOL 


VALUE 


DEFJNI 


t ION 


REFERENCES. 


i • 


STABLE 


=00000000-R 


302 


(2) 


302 


(2) 




BIT... 


=00000010 


284 


(2) 


284 


(2) 




BTDSK TM 


=OOOOO0B1 


59 


(2) 








BTD$K~TS 


=000000B2 


60 


(2) 


302 


(2) 




BUF " 


=00000004 


356 


(3) 


#-455 


(4) 


#-473 (4) 


CLS HOE 


=00000003 


233 


(2) 








CLS~MDF 


=00000001 


228 


(2) 








CLSJM 


=00000000 


227 


(2) 








CLS.OTHER 


=00000001 


231 


(2) 








CLS PTB 


=00000000 


230 


(2) 








CLS'WLN 


=00000002 


232 


(2) 








DRltfERNAME 


000001 C5-R 


583 


(4) 


302 


(2) 




EXECUTE 


000001 81 -R 


542 


(4) 


#-400 

#-479 


(4) 
(4) 


#-428 (4) #-438 (4) #-461 (4) 


F READ 


OOOOOOBO-R 


434 


(4) 


#-409 


(4) 




E'REWINO 


O00O00A1-R 


425 


(4) 


*,-411 


(4) 




E"SK1PFILE 


O00OO0D9-R 


452 


(4) 


#•413 


(4) 




E'SKIPRFCORD 


OOOOOOFB-R 


470 


(4) 


#-415 


(4) 




FfC CPE 


=00000001 


208 


(2) 








FCCllDF 


=00000000 


207 


(2) 








FCC LAP 


=00000003 


210 


(2) 








FCC'UPF 


=00000002 


209 


(2) 








FUN? 


=00000010 


359 


(3) 


#-367 
#-414 


(4) 
(4) 


#-408 (4) #-410 (4) #-412 (4) 
#-417 (4) 


HC.DRi 


=O0OOC0OB 


256 


(2) 








HC GST 


=0000C00F 


257 


(2) 








HC'NOP 


=00000000 


240 


(2) 


241 


(2) 


242 (2) 243 (2) 244 (2) 










245 


(2) 




HC PAK 


=00000000 


241 


(2) 








HC'RDN 


=O0OOCOO1 


248 


(2) 


#-435 


(4) 




HC~RPS 


=00000000 


244 


(2) 








HC"RWD 


=O00OC408 


254 


(2: 


#-426 


(4) 




HC'SCH 


=00000000 


245 


(2) 








HC~SRF 


-0000C008 


250 


(2) 


#-472 


(4) 




HC'SRR 


=OOOOC108 


251 


(2) 


#-476 


(4) 




HC 'STF 


=00OOC2O8 


252 


(2) 


#-454 


(4) 




HC'STR 


=0000^308 


253 


(2) 


#-458 


(4) 




HClUM 


=OOOOC10A 


255 


(2) 








HC WCK 


=00000000 


242 


(2) 








HC~WKR 


=00000000 


243 


(2) 








HC'WRC 


=00000004 


249 


(2) 


#-394 


(4) 




JO$ DRVCLR 


=00000004 






#-367 


(4) 


#-417 (4) 


lOS'READLBLK 


=00000021 






#-408 


(4) 




JO$~REWIND 


=00000024 






#-410 


(4) 




!0$*"SKIPFILE 


=0000002 u 






#-412 


(4) 




IOSlSKIPRECORD 


=00000026 






#-414 


(4) 




LBM 


=O0OOOOOC 


353 


(3) 








MAP VA 


0000018F-R 


557 


(4) 


#-388 


(4) 


#-396 (4) #-544 (4) 


MODE 


=00000014 


360 


(3) 








MSSCMD 


00000000-R 


291 


(2) 


#-377 


(4) 


#-558 (4) 

i 



ZZ-ENSAA-7.0 Cross 


reference 






27- 


N 15 

-JUL-1984 


Fiche 


13 Frame N15 Seguence 2667 

:14 VAX-11 Macro V03-0T Page 17 

:36 DMA1:£SYS0.$Y$MAJNTJTSBTDRIVR.flAR;(4) 


TSBTDR1VR 


*** TSBTDRIVR driver for 


TS11/TS04 


, TU80 27-JUL-1984 15:48 


Cross reference 












3-MAR-198 


I 10:38 


MSG ATN 


=00000013 


219 


(2) 












MSG~END 


=00000010 


216 


(2) 












MSG'ERR 


=00000012 


218 


(2) 












MSG'FAl 


=00000011 


217 


(2) 












msg'log 


=00000014 


220 


(2) 












msJSact 


00000002 






#-397 


(4) 


#-436 


(4) 


#-455 (4) 0-459 (4) 










#-473 


(4) 


#-477 


(4) 




MS CHWD 


0000000E 






#-392 


(4) 








MS~CNT 


00000006 






#-398 


(4) 


#-437 


(4) 




MS^CPHO 


00000000 






#-394 


(4) 


#-426 


(4) 


#-435 (4) #-454 (4) 










#-458 


(4) 


#-472 


(4) 


#-476 (4) 


MS.CPHDJLACK 


=00008000 






248 


(2) 


249 


(2) 


250 (2) 251 (2) 










252 
256 


(2) 
(2) 


253 
257 


(2) 
(2) 


254 (2) 255 (2) 


MS_CPHDJ1j:VC 


=00004C00 






248 


(2) 


249 


(2) 


250 (2) 251 (?) 










252 
256 


(2) 
(2) 


253 
257 


(2) 
(2) 


254 (2) 255 (2) 


MS LNTN 


oooooooc 






#-391 


(4) 








ms"mbao 


00000008 






#-390 


(4) 


395 


(4) 




MS'MHD 


00000010 






#-386 


(4) 


387 


(4) 




MS~MHD M ACK 


=00008000 






#-386 


(4) 








MS^RBPt ' 


00000014 






#-440 


(4) 








MS"TSSR M A16 


-00000100 


284 


(?) 












MS'TSSR'M'AI/' 


=00000200 


284 


(2) 












MS'TSSR'M'NBA 


-00^0400 


284 


(2) 


#-499 


(4) 








MS~TSSR~M~N!XM 


=0r 0800 


284 


(2) 


#-4V8 


(4) 








MS~TSSR~M~OFL 


=00000040 


284 


(2) 












ms~tssr~m"rmr 


=00001000 


284 


(2) 


#-498 


(4) 








m$~tssr~m~sc 


-00008000 


284 


(2) 












MS~T$SR~M~SPE 


-00002000 


284 


(2) 


#-497 


(4) 








MS'TSSRlM'SSR 


=00000080 


284 


(2) 


#-490 


(4) 








MS'TSSR M"UPE 


=00004000 


284 


(2) 


#-497 


(4) 








MS"TSSR"S"FC 


-C0000002 


284 


(2) 












MS~TSSR~S~TCC 


=00000003 


284 


(2) 


#-505 


(4) 








M5"TSSR"V'A16 


=00000008 


284 


(2) 












MS~T$SR~V~A17 


-00000009 


284 


(2) 












MS'TSSR'V'FC 


-00000004 


284 


(2) 












MS~TSSR~V"NBA 


=0000000A 


284 


(2) 


#-366 


(4) 








ms"tssr"v"nxm 


=00000008 


284 


(2) 












MS~TSSR~V"OFL 


=00000006 


284 


(2) 












MS"TSSR"V"RMR 


=O0OOO0OC 


284 


(2) 












MS'TSSR'V'SC 


=0000000f 


284 


(2) 












MS~TSSR~V~SPE 


=00000000 


284 


(2) 












MS'TSSR'VISSR 


=00000007 


284 


<2) 












MS'TSSR'V TCC 


=00000001 


284 


(2) 


#-505 


(4) 








MS~TSSR~V~UPE 


=O0O0O0OE 


284 


(2) 












MS'XSRO" ' 


00000016 






443 


(4) 


rf-517 


(4) 


528 (A) 


MS'XSRO M HOT 


=00000002 






#-515 


(4) 








MS'XSRO'M'Uif 


=00000001 






#-516 


(4) 








MS~XSRO~M~TMK 


=00008000 






#-514 


(4) 








MS~XSRO'V~ONL 


=00000006 






#-527 


(4) 








M$"XSR0"v"RU 


-oooooooc 






#-443 


(4) 








PTFSC kQ " 


=10000000 






381 


(4) 








PTE$M"VAUD 


=80000000 






381 


(4) 








returR 


OOOOOOAO-R 


420 


(4) 


#-402 


(4) 


#-418 


(4) 




SIZ — 


=00000001 


284 


(?) 


284 


'2) 






i 


SIZE 


=00000008 


357 


(3) 










1 
i 

! 

i 













B 16 










... _ . 


J7-ENSAA-7.0 Cross 


reference 






?7- 


-JUL-1984 


Mch 


e 


13 Frame 


816 Sequence 
n Macro V03-0T 


TSBTDRIVR 


• ** TSBTDRIVR driver for 


TS11/T504 


, TU80 


?7-JUL-198< 


► 15: 


48 


:14 VAX- 


( ross reference 












3-MAR-1981 


10: 


38 


s36 DMA1 


{[SYS0.SYSMAINTDTS8T 


SSS ABORT 


=000000?C 






#-578 


(4) 












SSS'CTRLERR 


=00000054 






#-490 


(4) 


#-508 


(4) 




#-530 


(4) 


SSS~DATAOVERUN 


=00000838 






#-445 


(4) 












SSfDE VOn LINE 


=00000084 






#-5?6 


(4) 












SSS^ENDOFF iLE 


=00000870 






#-519 


(4) 












SS$ ILLIOFUNC 


=000000F4 






#-419 


(4) 












SSt'NORMAL 


^-00000001 






#-416 


(4) 


#-453 


(4) 




#-471 


(4) #-535 (4) 


SSS'TAPFPOSLOST 


-00000224 






#-369 


(4) 












SS$I?IME0UT 


=000002?C 






#-493 


(4) 












TCC ATN 


-00000001 


195 


(?) 
















TCC"FNR 


^00000003 


197 


(?) 
















TfC'fTL 


=00000007 


201 


(?) 
















TCC'NML 


=00000000 


VH 


(?) 


#-507 


(4) 












TCC^REM 


-00000004 


1 f 3 


(?) 
















rcc REN 


=00000C05 


iyq 


(?) 
















TCOSA 


=0000000? 


196 


<?' 
















TCC UER 


=00000006 


?oo 


(?) 
















T Si T DRIVER 


00000000-R 


361.1 


(4) 


30? 


(?) 


586 


(4) 








TS) TORVSI/ 


=000001D? 


586 


(4) 


30? 


(?) 












TSBA" 


=00000000 


?68 


(?) 


#-546 


(4) 












TSDB 


=00000000 


?67 


(?; 
















TSSR 


-00000003 


269 


(?) 


#-365 


(4) 


#-490 


(4) 




#-50? 


(4) 


VAS5 BYT^ 


-^00000009 






#-37? 


(4) 












VASS>PN 


= 0000001 s 






#-378 


(4) 


#-561 


(4) 




#-564 


(4) tf-569 (4) 










#-57? 


(4) 












VA$',' SYTf 


•- 00000000 






#-37«> 


(4) 












VA$V'"vPN 


=00000009 






#-378 


(4) 


#-56 1 


(4) 




#-564 


(4) #-569 (4) 










#-57? 


(4) 












WAIT 


0QGGG11D-R 


488 


(4> 


#-401 
#-480 


(4) 
(4) 


#-429 


<4> 




#-439 


(4) #-463 (A) 



?668 

Page ^8 



_ 



/Z-ENSAA-7.0 
TSBTORIVR 
iross reference 



Cross reference 



C 16 
27-JUL-198^. Fiche 13 
*** TSBTDR1VR driver for TS11/TS04, TU80 27-JUL-1984 15:48:14 

3-MAR-1981 10:38:36 



+ ... ... - + 

! Macro? Cross Reference i 
+ .-.- + 



Frame C 1 6 Seguence 2669 

VAX-11 Macro V03-0T Page 19 

DMA1:CSYS0.SYSMAii^TJTSBTDRiVR.MAR;(A) 



MACRO 


SIZE 
1 


DEFINITION 
297.1 (2) 


REFERENCES... 














SBOOl DRIVER 


297.1 


(2) 




ibtddFf 


1 


42 


(2) 


42 


(2) 














SDEFINI 


) 


A? 


(?) 


4? 


(2) 


43 


(?) 


44 


(2) 


45 


(2) 










47 


(2) 


48 


(2) 


49 


(2) 


71 


(2) 


SIODEF 


1/ 


43 


(?) 


43 


(2) 














SNDTDEF 




44 


(2) 


44 


(2) 














SPRDEF 


4 


46 


(2) 


46 


(2> 














IPHDEF 


\ 


4S 


(2) 


45 


(2) 














tRPBDEF 


s 


4<* 


(2) 


47 


(2) 














SSSDEF 


rM 


48 


(2) 


48 


(2) 














SVADEF 


1 


A 9 


(2) 


49 


(2) 














SVIELD1 


1 






284 


(2) 














CASE 


1 


50? 


(4) 


507 


(4) 














VIFLD 


1 






270.1 


(2> 















46 



(2) 



^ ......................... « 

! Performance indicates ! 

Phase 

Initial i;at ion 
Command process in j 

PaSS i 

Symbol table so* t 
Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 

The working set limit was 1000 paaes. 

71 7 f " bytes (141 pages) of virtual memory were used to buffer the intermediate code. 

ihere were 70 pages of symbol table space allocated to hold 1284 non-local and 17 local symbols. 



Page faults 


CPU Time 
00:00:00.15 


Elapsed Time 


32 


00:00:00.82 
00:00:03.37 


158 


00:00:00.85 


617 


00:00:15.24 


00:00:52.92 


. • 


00:00:01,94 


00:00:03.89 


"I6U 


00:00:03.35 


00:00:06.77 


16 


00:00:00.11 


C0:00:00.29 


7 


00:00:00.04 


00:00:00.06 


37 


00:00:00.53 


00:00:01.21 


1015 


00:00:22.22 


00:01:09.34 



602 source lines were read in Pass 1, producing object 
S1 pages of virtual memory were used to define 18 macros 



records in Pass 2. 



+ - 



Mac ro I ibrary name 

0MA1:CSVS0,bVSMAJNl]0S,MLB; 21 8 
D«A1:CSVS0.SYS«AINT]0IAG.MLB;95 3 
SYSSSYSR00T:CSYSU8]IIB.ML8;1 
SVS*$YSR00T: r $YSU8JSTARLET.MlB;2 

TOTALS (all I ibraries) 

1185 GETS were required to define 14 macros. 



Macro I ibrary stat istKS 



Mac r os def ined 





6 

? 

14 



D 16 

Z/-FNSAA-7.0 Cross reference ?7-JUl-1984 Fiche 13 Frame D16 a Sequence 2670 

TSBTDR1VR *** TSBTDfUVR driver for TS11/TS04, TU80 27-JUL-1984 15:48:H VAX-11 Macro V03-01 Pacje 20 

VAX-11 Macro Run Statistics 3-MAR-1981 10:38:36 DMA1 :[SYSO.SYSMAINTJTSBTDRIVR.MAR; (4) 

There were no errors* warnings or information messages. 

MACRO/NOOBJECT/L I ST=[DS.LIS]/CR0SS/ENA8LE=( DEBUG, TRACE) TS8TDRlVR/UPDAs( TSBTDRI VR.UPD. TSBTDRI VR.ENH)+SYS$L IBRARY jLIB/L 1BRARY+DMA1 : CS 



E 16 

/Z-ENSAA-7.0 - SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 Fi$he 13 Frame F16 Sequence 2671 

UNWIND - SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 VAX-11 Macro V03-01 Page 
'able of contents 

(1) 60 UNWIND PROCEDURE CALL STACK 

(1) ^06 UNWIND CONDITION HANDLER 

(1) 221 CALCULATE VALUE OF SP BEFORE CALL 



Z7-ENSAA-7.0 

UNWIND 



F 16 
- SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 Fiche 13 

- SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 

3-MAR-1981 10:38:41 



Frame F16 Seguence 2672 
VAX-11 Macro V03~0f Page 
DMA1:CSYS0.SYSMAINTJUNWIND.MAR;18 



1 

(1) 



00000004 
00000008 



00000000 
00000004 
00000006 
00000008 

oooooooc 

00C00010 
00000014 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1 

2 
3 
4 
5 
6 
7 
8 

Q 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
?6 
?7 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
45 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. TJ TLE 

.IDENT 



UNWIND - 
/01-1/ 



SYSTEM SERVICE UNWIND PROCEDURE CALL STACK 



COPYRIGHT (C) 1977, 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY 
OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM 
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 

D. N. CUTLER 16-DEC-76 

R, S. Ri'ggs 9-Apri 1-1979 

01 Added REI to STARTUNWIND to return to correct stack 
after exception, 

SYSTEM SERVICE UNWIND PROCEDURE CALL STACK 
MACRO LIBRARY CALLS 



SCHFDEF 
$SSDEF 



LOCAL SYMBOLS 

ARGUMENT LIST OFFSET DEFINITIONS 



DEPADR=4 
NEWPC=8 



; CALL FRAME OFFSET DEFINITIONS 



HANDLLR=0 

SAVPSW=4 

SAVMSK=6 

SAVAP=8 

SAVF^=12 

SAvPC=16 

SAVRG^20 



;DEHNE CONDITION HANDLING ARGLIST OFFSETS 
/DEFINE SYSTEM STATUS VALUES 



.'ADDRESS OF NUMBER OF FRAMES TO UNWIND 
♦•CHANGE OF FLOW FINAL RETURN ADDRESS 



CONDITION HANDLER ADDRESS 
SAVED PSW FROM CALL 
REGISTER SAVE MASK 
SAVED AP REGISTER IMAGE 
SAVED FP REGISTER IMAGE 
SAVED PC REGISTER IMAGE 
OTHER SAVED REGISTER IMAGES 



6 16 

ZZ-ENSAA-7,0 - SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 Ffche 13 Frame G16 Sequence 2673 

UNWIND - SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 VAX-11 Macro V03-01 Page 2 

in-1 3-MAR-1981 10:38:41 DMA1 iCSrSO.SYSMAINTDUNWIND.MAR; 18 (1) 

00000000 58 .PSECT SEP, SHR, WRT, EXE, LONG 



ZZ-ENSAA-7.0 

UNWIND 
01-1 



UNWIND PROCEDURE CALL STACK 

- SYSTEM SERVICE 
UNWIND PROCEDURE 



6D OOEA'CF 



003C 
DE 



54 5D DO 



50 0900 8F 3C 

54 OC A4 DO 

19 13 

10 A4 0000000"8F D1 

10 13 

10 A4 O000OOD2'8F D1 

E6 12 

50 0928 8F 3C 

04 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

cooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0007 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOA 
OOOF 
0013 
0015 
001D 
001F 

0027 
0029 
002E 
002F 
002F 



60 

61 

62 

63 

64 

6 1 ) 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

11 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 



H 16 

27-JUL-1984 Fiche 13 Frame H16 Seguence 2674 
UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 VAX-11 Macro V03-01 Page 
CALL STACK 3-MAR-1981 10:38:41 DMA1 .'CSYSO^SYSMAINTJUNWIND. MAR/18 

.S8TTL UNWIND PROCEDURE CALL STACK 

+ 

EXESUNWJND - UNWIND PROCEDURE CALL STACK 

THIS SERVICE PROVIDES THE CAPABILITY TO UNWIND THE PROCEDURE CALL STACK 
TO A SPECIFIED DEPTH AFTER A HARDWARE- OR SOFTWARE-DETECTED EXCEPTION 
CONDITION HAS BEEN SIGNALLED, OPTIONALLY A CHANGE OF FLOW RETURN ADDRESS 
MAY ALSO BE SPECIFIED. THE ACTUAL UNWIND IS NOT PERFORMED IMMEDIATELY RY 
THE SERVICE, BUT RATHER THE RETURN ADDRESSES IN THE CALL STACK ARE MODIFIED 
SUCH THAT WHEN THE CONDITION HANDLER RETURNS THE UNWIND OCCURS. 

INPUTS: 

DEPADR(AP) = ADDRESS OF NUMBER OF FRAMES TO UNWIND. 
NEWPC(AP) = CHANGE OF FLOW FINAL RETURN ADDRESS. 

R4 * CURRENT PROCESS PCB ADDRESS, 

OUTPUTS: 

ro low bit clear indicates failure to fully unwind call stack. 

ro = ss$ accvio - call stack not accessible to calling access 
Rode, 

ro = ss$ insframe - insufficient call frames to unwind to 
Specified depth. 

ro = ss$jjosignal - no signal is currently active to unwind, 

ro = ss$,unwinding - unwind already in progress, 

ro low bit set indicates successful completion. 

ro = ss$_normal - normal completion, 



3 
(1) 



.ENTRY EXE$UNWIND,*M<R2,R3,R4,R5> 



MOVAL W*CHANDL,(FP) 
MOVL FP,R4 



/ESTABLISH CONDITION HANDLER 

;SET ADDRESS OF FIRST FRAME TO EXAMINE 



SEARCH CALL STACK FOR A FRAME THAT WAS CREATED BY A CALL FROM THE SIGNAL 
DISPATCH VECTOR OR BY A CALL FROM THE UNWIND SIGNAL DISPATCHER. 



10$: 



20$: 



MOVZWL 

MOVL 

BEQL 

CMPL 

BEQL 

CMPL 

BNEQ 

MOVZWL 

RET 



#SS$ NOSIGNAL,RO 

SAVFP(R4),R4 

20$ 



ASSUME NO SIGNAL ACTIVE 

GET ADDRESS OF PREVIOUS FRAME 

IF EQL END OF CALL STACK 



#SYS$CALL_HANDL*4,SAVPC(&4) ;CALL FROM CONDITION HANDLER DISPATCHER? 



30$ 

*CALLUNWIND+4,SAVPC(R4) 
10$ 
#SS$JJNWINDJNG,R0 



IF EQL YES 

CALL FROM UNWIND SIGNAL DISPATCHER? 

IF NEQ NO 

SET ALREADY UNWINDING 



ZZ-ENSAA-7.0 

UNWIND 

01-1 



UNWIND PROCEDURE CALL STACK 

- SYSTEM SERVICE 
UNWIND PROCEDURE 



I 16 
27-JUL-1984 Fiche 13 
UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 
CALL STACK 3-MAR-1981 10:38:41 



Frame 116 Seguence 2675 
VAX-11 Macro V03-01 Page 
DMA1:CSYS0.SYSMAINT3UNWIND.MAR;18 



4 

(1) 



53 



10 A4 



53 04 AC 
05 
63 
OF 
54 
00C9 
OC A2 
A2 01 
3E 
A3'AF 



53 
52 



52 
08 



55 


OC A4 




4? 




53 




2F 


10 A5 00000004' 8F 




18 




52 55 




009F 


52 


OC A2 


04 


A2 55 




OB 


10 A5 


B6'AF 


55 


OC A5 




£F 


10 A5 


B6 , AF 




54 55 




C7 




50 01 


51 


08 AC 




10 


55 


OC A4 




05 


10 


A5 51 


50 


012C 8F 


6E 24 


AE 09 




6E 04 



002F 

002F 

002F 

DO 002F 

13 0033 

DO 0035 

11 0038 
DO 003A 
30 003D 
DO 0040 
C1 0044 
15 0049 
DE 0048 

0050 

C050 

0050 

0050 

0050 

DO 0050 

13 0054 

D7 0056 

15 0058 

D1 005A 

12 0062 
DC 0064 
30 0067 
DO 006A 
D1 006E 

13 0072 
DE 00^4 
DO 0079 
11 007D 
DE 007F 
DO 0084 
11 0087 

0089 

0089 

0089 

0089 

0089 

3C 0089 

DO 008C 

1 3 0090 

DO 0092 

1 3 0096 

DO 0098 

04 009C 

3C 009D 

04 00A2 

00A3 

00A3 

00A3 

00A3 

00A3 

00A3 

CI O0A3 

C4 00A8 



117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

I 50 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 
173 



SET TO UNWIND PROCEDURE CALL 



STa"" 



U.v 



TO SPECIFIED DEPTH 



GET ADDRESS OF NUMBER OF FRAMES TO UNWIND 

IF EQL NONE SPECIFIED 

GET NUMBER OF FRAMES TO UNWIND 



30$: MOVL DEPADR(AP) ,R3 

BEQL 40$ 

MOVL <R3),R3 

BRB 50$ 

40$: MOVL R4, R2 ;COPY CURRENT FRAME ADDRESS 

BS8W OLDSP ; CALCULATE VALUE OF SP BEFORE CALL 

MOVL CHF$L MCHARGLST+4(R2), R2 ;GET ADDRESS OF MECHANISM ARGUMENT LIST 

ADDL3 *1 f CHF$L_MCH DEPTH(R2),R3 ."CALCULATE DEPTH OF ESTABLISHER' S CALLER 

50$: BLEQ 90$ " ;U LEQ NO FRAMES TO REMOVE 

MOVAL B*STARTUNWIND,SAVPC(R4) ;SET CONDITION HANDLER UNWIND ADDRESS 

; SCAN THROUGH SPECIFIED NUMBER OF FRAMES SETTING EACH FRAME TO UNWIND ON RETURN 



60$: MOVL SAVFP(R4),R5 

BEQL 100$ 

DECL R3 

BLEQ 90$ 

CMPL *SYS$CALL HANDL+4, 

BNEQ 80$ 

MOVL R5.R2 

BS8W OLDSP 

MOVL CHfSL MCHARGLST+4( 

70$: CMPL R5,CHF$L MCH FRAME 

BEQL 80$ 

MOVAL B A LOOPUNWIND,SAVPC 

MOVL SAVFP(R5),R5 

BRB 70$ 

80$: MOVAL B A LOOPUNWIND,SAVPC 

MOVL R5,R4 

BR8 60$ 



GET ADDRESS OF PREVIOUS FRAME 
IF EQL INSUFICIENT FRAMES 
ANY MORE FRAMES TO CONSIDER? 
,IF LEQ NO 
SAVPC(R5) ;CALL FROM CONDITION DISPATCHER? 
IF NEQ NO 

COPY ADDRESS OF CURRENT FRAME 
.CALCULATE VALUE OF SP BEFORE CALL 
R2),R2 ;GET ADDRESS OF MECHANISM ARGUMENT LIST 
(R2> .-UNWOUND TO ESTABLISHER FRAME? 

.IF EQL YES 
(R5) ;SET FRAME UNWIND ADDRESS 

GET ADDRESS OF PREVIOUS FRAME 



(R5) 



SET CRAME UNWIND ADDRESS 
SET ADDRESS OF CURRENT FRAME 



MODIFY CHANGE OF FLOW RETURN IF NEW ADDRESS SPECIFIED 



90$: 



100$ 
110$ 



,M0V2WL 

MOVL 

BEQL 

MOVL 

BEQL 

MOVl 

RFT 

MOVZWL 
RET 



#SS$ NORMAL. RO 

NEWPC(AP),R1 

110$ 

SAVFP(R4),R5 

100$ 

R1,SAVPC(R5> 

#SS$JNSFRAME,RO 



SET NORMAL COMPLETION 

GET CHANGE OF FLOW RETURN ADDRESS 

IF EQL NONE SPECIFIED 

GET ADDRESS OF PREVIOUS FRAME 

IF EQL INSUFFICIENT FRAMES 

SET NEW FINAL RETURN ADDRESS 

SET INSUFFICIENT FRAMES 



UNWIND HANDLER FRAME 



STARTUNWIND: 
ADDL3 
MULLt 



#9,36<SP),(SP) 
#4,<SP) 



.-START OF ACTUAL UNWIND 
; Count of longwords to PSL 
; Byte offset 



ZZ-ENSAA-7,0 

UNWIND 
01-1 



UNWIND PROCEDURE CALL STACK 

- SYSTEM SERVICE 
UNWIND PROCEDURE 



J 16 
27-JUL-1984 Fiche 13 
UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 
CALL STACK 3-MAR-1981 10:38:41 
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50 K AE 


7D 


0OA8 


174 




MOVQ 


5E 6E 


CO 


OOAF 


175 




ADDL2 


B6'AF 


9F 


0082 


176 




PUSHAB 




02 


0OB5 
00B6 
0OB6 


177 
178 
179 




REI 






00B6 


180 


; UNWIND CALL 






00B6 


181 










00B6 


182 










0086 


183 




.ENABL 






0OB6 


184 


LQOPUNWIND: 


6D 


D5 


00B6 


185 




TSTL 


1C 


13 


0088 


186 




BECl 


76 0920 8F 


3C 


008A 


187 




MOVZWL 


01 


DD 


COBF 


188 




PUSHL 


03 


BB 


00C1 


189 




PUSHR 


00 


DD 


00C3 


190 




PUSHL 


5D 


DD 


00C5 


191 




PUSHL 


0'. 


DD 


00C7 


19c 




PUSHL 


6E 


DF 


00C9 


193 




PUSHAL 


18 AE 


DF 


OOCB 


194 




PUSHAL 






OOCE 


195 


CALLUNWIND: 


00 BD 02 


FB 


OOCE 


196 




CALLS 


50 OC AE 


7D 


0OD2 


197 




MOVQ 


5C 14 AD 


DE 


00D6 


198 


10$: 


MOVAL 


03 06 AD 


E9 


OODA 


199 




BLBC 


8C 50 


DO 


OODE 


200 




MOVL 


O'i 06 AD 01 


E1 


00E1 


201 


20$: 


BBC 


6C 51 


DO 


00F6 


202 




MOVL 




04 


0OE9 


203 


30$: 


RET 






OOEA 


204 




♦DSA8L 



28<SP),R0 
(SP),SP 

B A LOOPUNWIND 



; Restore R0/R1 

; Remove alt args down to PSL 

; Address to resume on correct stack 

; Resume beLow on correct stack 



FRAME SIGNALING CONDITION HANDLER IF ONE IS SPECIFIED 



LSB 

(??) 

10$ 

#SS$ UNWIND, -(SP) 

#1 "" 

**M<R0,R1> 

MO 

FP 

#4 

(SP) 

24(SP) 

#2,a<pp) 

CHf$L MCH_SAVR0(SP),R0 

SAVRG7FP).AP 

SAVMSK(FP),20$ 

R0,(AP)+ 

#1,SAVMSK(FP),30$ 

R1,<AP) 

LSB 



UNWIND CALL FRAME 

CONDITION HANDLER SPECIFIED? 

IF EQL NO 

PUSH UNWIND SIGNAL CONDITION 

PUSH NUMBER OF SIGNAL ARGUMENTS 

PUSH REGISTERS RO AND R1 

PUSH FRAMS DEPTH 

PUSH FRAME ADDRESS 

PUSH NUMBER OF MECHANISM ARGUMENTS 

PUSH ADDRESS OF MECHANISM ARGUMENTS 

PUSH ADDRESS OF SIGNAL ARGUMENTS 

SIGNAL UNWIND 

CALL CONDITION HANDLER 

RETRIEVE NEW VALUES FOR RO AND R1 

GET ADDRESS OF REGISTER SAVE AREA 

IF LBC RO NOT SAVED 

SAVE RO FOR SUBSEQUENT RESTORATION 

IF CLR, R1 NOT SAVED 

SAVE R1 FOR SUBSEQUENT RESTORATION 



ZZ-ENSAA-7.0 
UNWIND 

01-1 



UNWIND CONDITION HANDLER 

- SYSTEM SERVICE 
UNWIND CONDITION 



K 16 
27-JUL-1984 Fiche 13 

UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 
HANDLER 3-MAR-1981 10:38:41 
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04 AO 



50 



OC 



51 
A1 



FEF8 







OOEA 


206 






OOEA 


207 






OOEA 


208 






OOEA 


209 






OOEA 


210 




0000 


OOEA 


211 


04 AC 


DO 


OOEC 


212 


0920 8F 


B1 


OOFO 


213 


10 


13 


00F6 


214 


08 AC 


DO 


00F8 


215 


04 AO 


DO 


OOFC 


216 


7E 


7C 


0101 


217 


CF 02 


F8 


0103 


218 




04 


0108 


219 



.SBTTL UNWIND CONDITION HANDLER 
; UNW1 f CONDITION HANDLER 

CHANDL' .WORD ;ENTRY MASK 

MOVL CHF$L SIGARGLST(AP),RO ;GET ADDRESS OF SIGNAL ARGUMENT LIST 

CMPW #SS$ ONWIND,CHF$L SIG NAME(RO) .-UNWINDING? 

BEQL 10$ - " " ;IF EQL YES 

MOVL CHFSL MCHARGLST(AP) ,R1 ;GET ADDRESS OF MECHANISM ARGUMENT LIST 

MOVL CHF$L"SIG NAME(RO) , CHFSL MCH SAVR0(R1) ;SET FINAL RETURN STATUS 

CLRQ -<SP>" " TCLESR DEPTH AND NEW PC ARGUMENTS 

CALLS #2,W A EXE$UNWIND ;UNWIND TO ESTABLISHER f S CALLER 

10$; RET 



ZZ-ENSAA-7.0 
UNWIND 

01-1 



L 16 
CALCULATE VALUE Of SP BEFORE CALL 27-JUL-1984 Fiche 13 

- SYSTEM SERVICE UNWIND PROCEDURE CALL S 27-JUL-1984 15:49:26 
CALCULATE VALUE OF SP BEFORE CALL 3-MAR-1981 10:38:41 



Frame L16 Sequence 2678 

VAX-11 Macro V03-01 Page 7 

DMA1:[SYS0.SY$MAINTJUNWIND.MAR;18 (1) 



?E 
51 



06 
06 



A2 
A2 



51 51 



02 
OC 
52 
52 
I 
52 



03 
FF 



OE 
00 
14 
8E 
51 
04 
8F 
F3 



EF 
EF 
CO 
CO 
E9 
CO 
78 
12 
05 



0109 
0109 
0109 
0109 
0109 
0109 
010F 
0115 
0118 
0118 
01 IE 
0121 
0126 
0128 
C129 
0129 



221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 



.SBTTL CALCULATE VALUE OF SP BEFORE C*LL 
SUBROUTINE TO CALCULATE VALUE OF SP BEFORE CALL 



OLDSP: 



10$: 
20$: 



EXTZV 

EXTZV 

ADDL 

ADDL 

BLBC 

ADDL 

ASHL 

BNEQ 

RS8 

♦ END 



*14,02,SAVMSK(R2),-(SP) 

#0,*12,SAVMSK<R2),R1 

*SAVRG.R2 

(SPH.R2 

R1,20$ 

#4.R2 

AM,R1,R1 

10$ 



AREA 



GET STACK ALIGNMENT ?JAS 

GET REGISTER SAVE MASK 

ADD OFFSET TO REGISTER SAVE 

ADD STACK ALIGNMENT BIAS 

IF LBC CORRESPONDING REGISTER NOT SAVED 

ADJUST FOR SAVED REGISTER 

ANY MORE REGISTERS SAVED? 

IF NEQ YES 



B 1 
I 1 



J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 





E 
F 
G 
H 
I 

J 
K 
L 
M 
N 
B 
C 
D 
t 
F 

G 

H 
I 
J 
K 
L 
M 
N 



F 1 

G 1 

H 1 

1 1 



1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
C 3 



3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 

A 
4 

4 
4 



B 5 
C 5 



RMS$D1SC0NNECT routine 

RMSSCLOSE routine 

RMSSCLOSE routine 

RMSSCLOSE routine 

**+ RT11 Console media RMS rou 

declarations 

advance record pointers 

Access file block via cache 

Access file block via cache 

Access file block via cache 

RT-11 OPEN service 

RT-11 OPEN service 

RT-11 OPEN service 

RT-11 OPEN service 

RT11SGET routine 

RT11SGET routine 

RT11SGET routine 

RT11SGET routine 

RT11SGET routine 

RT11SREAD routine 

RT11SREAD routine 

RT11SREAD routine 

SYSTEM CONTROL BLOCK 

CONTROL 

CONTROL 

CONTROL 



BLOCK 
BLOCK 
BLOCK 



SYSTEM 

SYSTEM 

SYSTEM 

DECLARATIONS 

DECLARATIONS 

DECLARATIONS 

INITIAL SYSTEM CONTROL 

INITIAL SYSTEM CONTROL 

DSX$INITSCB INITIALIZE 

DSXSINITSCB INITIALIZE 

DSXSINlfSCB INITIALIZE 



BLOCK I 
BLOCK I 
SYSTEM 
SYSTEM 
SYSTEM 



DSXSSETVEC 

DSXSSETVEC 

DSXSSETVEC 

DSXSCLRVEC 

DSXSCLRVEC 

CHECK VECTOR 

CHECK-VECTOR 



SET VECTOR ROUTINE 
SET VECTOR ROUTINE 
SET VECTOR ROUTINE 
RESTORE VECTOR ROUT 
RESTORE VECTOR ROUT 
Verify vector ran 
Verify vector ran 



H 5 
I 5 



DSXSSfTIPL SET INTERRUPT PRIOR 

DSXSSETIPL SET INTERRUPT PRIOR 

SOFTSINT Software interrupt ve 

Symbol table 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

*** SCRIPT Read from command s 

*** fRIPT Read from command s 

*** SCRIPT Read from command s 

Libraries and External Symbols 



L 5 
M 5 
N 5 

B 6 
C 
D 
E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 



C 
n 

E 

F 
G 
H 
I 
J 
K 
L 

H 



6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



B 8 



H 8 



I 8 

J 8 

K 8 

L 8 

M 8 

N 8 

B 9 



9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 



External Symbol Declarations 
Macros and Equated Symbols 
Data Psect Declarations 
Work Psect Declarations 
Absolute Psect Declarations 



Initialize 
Initialize 
Initialize 
Initialize 
Initialize 
Initialize 
Initialize 
STOP, CONT 
STOP, CONT 

- Terminate 

- Terminate 
Get 
Get 
Get 
Get 
Get 
Get 
Get 
Get 
Get 
Get 
Get 
Get 



SCRIPTS1NIT 

SCRIPTS1NIT - 

SCRIPTSOPEN - 

SCRIPTSOPEN - 

SCRIPTSOPEN - 

SCRIPTSOPEN - 

SCRIPTSOPEN - 

SCR1PTSFLUSH, 

SCRJPTSFLUSH, 

SCRIPTSFINISH 

SCRIPTSFINISH 

DS GETLINE - Get program 

DS^GETLINE - Get program 

DS.GETLJNE - Get program 

DS GETLINE - Get program 

DS GETLINE - Get program 

DS~GETLINE - Get program 

DS^GETLINE ~ Get program 

DS^GETLINE - Get program 

DS.GETLJNE - Get program 

DS GETLINE - Get program 

DS^GETLJNE - Get program 

DS GETLINE - Get program _.. 

COPYJf - Copy and translate 

COPY IT - Copy and translate 

ADVANCE - Advance to next reco 

ADVANCE - Advance to next reco 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Cross reference 

reference 

reference 

reference 

reference 

reference 

reference 

reference 

reference 

SHOWMEM Handle 

*** SHOWMEM Handle 

Handle 

Handle 



scrip 
scrip 
a scr 
scr 
scr 
scr 
scr 
Ter 
Ter 
scri 
scri 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 



Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
Cross 
*** 



*** 



SHOWMEM 
*** SHOWMEM 
Is a program 
Is a program 
Is a program 



Show Memory 
Show Memory 
Show Memo-y 
Show Memory 

loaded, really? 

loaded, really? 

loaded^ really? 



DSVSShowMemory routine 
ShowMemory Routine 



B 10 

C 10 
D 10 



ShowMemory 
ShowMemory 
ShowMemory 
ShowMemory 
ShowMemory 
ShowMemory 



Routine 
Routine 
Routine 
Routine 
Routine 
Routine 



E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 



ShowMemory Routine 

ShowMemory Routine 

ShowMemory Routine 

ShowMemory Routine 

ShowMemory Routine 

ShowMemory Routine 
VRSETMEM 



VRSETMEM 
*** 



START Handle START command 
START Handle START command 
START Handle START command 
START Handle START command 
START Handle START command 

Declarations 

Declarations 

Declarations 

Declarations 

VRStart and VRReStart 



VRStart 

VRStart 

VRStart 

VRStart 

VRStart 

VRStart 

VRStart 

VRStart 

VRStart 

VRStart 

VRb s «rt 

VRSU^t 

VRStart 

VRStart 

VRStart 

VRAbort 

VRAbori 

VRAbort 

VRAbort 

VRSupport 

VRSupport 



and VRReStart 
and VRReStart 
and VRReStart 
and VRReStart 
and VRReStart 
and VRReStart 
and VRReStart 
and VRReStart 
*nd VRReStart 
and VRReStart 
and VRReStart 
and VRReStart 
*nd VRReStart 
rid VRReStart 
jr.d VRReStart 
and DSXSAbort 
and DSXSAbort 
and DSXSAbort 
and DSXSAbort 
Routines 
Routines 



Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 
Routines 



VRShowSections Routine 

VRShowSections Routine 

DSIITIME.AST Routine 

Symbol table 

Symbol table 

Symbol table 

Symbol table 

Psect synopsis 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

Cross reference 

*** TSBTDRIVR driver for 

*** TSBTDRIVR driver for 

DECLARATIONS 



TS11/ 
TS11/ 



N 
h 
C 
D 
E 
F 
(i 
H 
I 

J 
K 
L 
M 
N 
B 
C 

E 
F 
G 
H 
I 
J 
K 
L 



H 

15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 



DECLARATIONS 
DECLARATIONS 
DECLARATIONS 
DECLARATIONS 



TS11/TS04, 
TS11/TS04, 
TS11/TS04, 
TS11/TS0'*, 
TS11/TS04, 

TS11/TSOA, 

TS11/TS04, 

Symbol 

Symbol 

Cross 

Cross 

Cross 

Cross 

Cross 

- SYSTEM 

- SYSTEM 



TU80 
TU80 

TU80 
TU80 
TU8U 
TU80 
TU80 



table 

table 

refer rnce 

reference 

reference 

reference 

reference 

SERVICE 

SERVICE 



Bootstrap 
Bootstrap 
Bootstrap 
Bootstrap 
Bootstrap 
Bootstrap 
Bootstrap 



driv 
driv 
driv 
driv 
driv 
driv 
driv 



- SYSTEM SERVICE 
UNWIND PROCEDURE 
UNWIND PROCEDURE 
UNWIND PROCEDURE 
UNWIND CONDITION 
CALCULATE VALUE 



UNWIND 

UNWIND 
UNWIND 
CALL 
CALL 



PROCED 
PROCED 
PROCED 

STACK 

STACK 



CALL STACK 
HANDLER 
OF SP BEFORE 



ZZ-ENSAA-7.0 
UNWIND 
Symbol table 

CALLUNWINO 

CHANDL 

CHFSl^MCHARGLST 

CHFSLlMCH.DEPTH 

CHF$LJ1CHJRAME 

CHFSL MCH SAVRO 

CHFSlISIGSRGLST 

CHF$L SIGJJAME 

DEPADR 

EXESUNWIND 

HANDLER 

LOOPUNWiND 

NEWPC 

OLDSP 

SAVAP 

SAVFP 

SAVMSK 

SAVPC 

SAVPSW 

SAVRG 

SSIJNSFRAME 

SS$~NORMAL 

SS$~NOSIGNAL 

SS$JJNWIND 

SS$~UNWINDING 

STAfiTUNWIND 

SYS$CALL HANDL 



Symbol table 



S 1 
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JOI 
000! . A 

saw* 




RG 

R 

R 



14 
I00012C 

iooWo 

00000920 
00000928 
OO0OOOA3 R 

******** 



PSECT name 

, ABS ♦ 

$ABS$ 

SEP 



Allocation 




t 



02 
02 
02 



t 



j Psect synopsis ! 

PSECT No, Attributes 

o.) goT~cu NOPIC USR 
5.) 01 ( i.) nopic usr 

297.) 02 ( 2.) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON ABS LCL NOSHR EXE RD 
CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 



Z2-ENSAA-7.0 

UNWIND 

Cross reference 



Cross reference 



- SYSTEM SERVICE UNWIND 



SYMBOL 

CALLUNWIND 
CHANDL 

chf$l_mcharglst 
ci!f$lj1chj>epth 
chf$lj1cnjrame 
chf$l~mch^savr0 
ckfsl^sigSrglst 
cmf$l sigjyame 

DEPADR 

EXESUNWIND 

HANDLER 

LOOPUNWIND 

NEWPC 

OLDSP 

SAVAP 

SaVFP 

SAVMSK 

SAVPC 

SAVPSW 

SAVRG 

SSSJNSFRAME 

SSS^NORMAL 

SS$JJOSIGNAL 

SS$JJNWIND 

SS$ UNWINDING 

STARTUNWIND 

SYS$CALL HANDL 



VALUE 

0000QQCE-R 
00O000EA-R 

=00000008 

=00000008 

=00000004 

=00OQ00OC 

=00000004 

•0QQQQQ04 

*OO0OOOQ4 

!P 

rR 

000001 09-R 
=00000008 
*0000000C 
=90000006 
=00000010 

=00000004 
=00000014 
«Q0OQ012C 
=00000001 
^00000900 

w 

000Q0QA3-R 
00000000-XR 



C 1 
27-JUL-1984 Fiche 14 

PROCEDURE CALL S 27-JUL-1984 15:49:26 

3-MAR-1981 10:38:41 
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! Symbol Cross Reference ! 



DEFINITION 



195 
211 



(1) 
(1) 



43 

97 

50 

184 

44 

226 

53 

54 

52 

55 

51 
56 



171 



(1) 



REFERENCES... 



#-111 
98 
#-126 
#-127 
#-144 
#-197 
#-212 
#-213 
#-12 
21 



146 
#-158 
#-125 

#-107 
#-199 
#-109 
#-146 

198 
#-164 
#-157 
#-106 
#-187 
#-113 

129 
#-109 



#-143 



(1) 



#-215 



(1) 



#-216 


(1) 






#-216 


(1) 






149 


(1) 


176 


(1) 


#-142 


(1) 






#-135 

201 
#-111 
#-149 


(1) 
(1) 
(1) 
(1) 


#-147 

226 

#-129 

#-162 


(1) 
M> 

(1) 
(1) 



#-160 

227 

#-139 



(1) 
(1) 
(1) 



#-228 (1) 



#-213 
#-139 



(1) 
(1) 



ZZ-ENSAA-7.0 

UNWIND 

Cross reference 



Cross reference 



D 1 
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! Macros Cross Reference ! 



MACRO 



SCHFDEF 
SDEFIN1 
$GSDEF 



SIZE 

1 
1 
21 



DEFINITION 



REFERENCES.,, 



34 

h 

35 



(1) 
(1) 
v1) 



34 
34 
35 



(1) 
(1) 

(1) 



35 



(1) 



! Performance indicators ! 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 



Page faults 

31 

• 134 

<>36 



CPU Ti'me 



S 

5 
7 

15 
539 



» 8 



00; 
00: 




Elapsed Time 
"io~ 




The working set limit was 1000 pages. 

23413 bytes (46 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 431 non-local and 1? local symbol?. 

236 source lines were read in Pass I, producing object records in Pass 2. 

14 pages of virtual memory were used to define 8 macros, 



Macro library name 

DMA?;CSYSO.SYSMAINT3DS,MLB;218 
DMA1jCSYS0.$YSMAINT2DIAG.MLB;953 
SYSSSYSR00T : CSYSLIB3L JB.ML8; I 
SYS$SYSR00T;CSYSLIB3STARLET.ML8;2 
TOTALS (all libraries) 



! Macro library statistics ! 
Macros defined 



5 



481 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/LIST=CDS,LIS3/CR0SS/ENABLE=(DEBUG,TRACE) UNWIND/UPDA= (UNWIND. UPD, UNWIND. ENH)+SYS$LIBRARY :LIB/LIBRARY*DMA1 :CSYS0.SYSMA< 



ZZ-ENSAA-7,0 27-JUL-1984 Fiche 14 Frame E1 Sequence 2682 

VER730 27-JUL-1984 15:49:49 VAX-11 Macro V03-0T Page 

Table of contents 



(1) 36 DECLARATIONS 



ZZ-EN"VAA-7.0 

VER730 
7.0 



VER730 



0000 



0001 



.1 
.2 

3 

5 



8 

9 

10 

11 

13 
14 
15 

if 

18 

19 

20 

1 



'5 

7 



.ident 



.title 
/ 7.0/ 
.LIST 
.NLJST 



F 1 
27-JUL-1984 Fiche 14 
27-JUL-1984 15:49:49 
26-JUL-1984 09:25:08 

ver?30 

MEB 
CND 



Frame F1 Seguence 2683 
VAX-11 Macro V03-0T Page 1 
DMA1:CSYS0.SYSMAINTDVER73O.MAR;574(1) 



Copyright (c) 1977. 1982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY: 
ABSTRACT: 
ENVIRONMENT j 
AUTHOR: 



VAX DIAGNOSTIC SUPERVISOR. 



KEN CHAPMAN 



13-SEP-78 



VERSION 01, 



ZZ-ENSAA-7.0 
VER730 
7.0 



-1 



DECLARATIONS 



OOOOOI 



00000008 
4C 55 4A 
20 34 38 
3A 35 32 
35 31 



47 41 49 
43 49 54 
52 45 50 
k 52 4F 
45 2D 5A 
2D 41 
2D 30 

25 30 32 



2D 30 2E 



010E0000 
2D 36 32 

31 

39 

37 



39 
iA 
!E 



2D 



8 



44 2F 
53 4F 




37 
34 



20 
37 



20 3E 53 44 



00' 

35 

08 

00' 
04 

ooooi 



00000002'EF 1? 



6 1 
27-JUL-1984 Fkhe 14 

27-JUL-1984 15:49:49 VAX-11 Macro V03-01 Page 2 
26-JUI-1984 09:25:08 DHA1:CSYS0.SVSHAINTJVER730. MAR; 574(1) 



Frame 61 
VAX-11 



Seguence 2684 

;-oi 



f 

38 
39 
40 
41 
42 
43 
44 
45 

8 

48 
49 
50 
51 

53 
54 
.1 



•S8TTL DECLARATIONS 
INCLUDE FILES: 

MACROS $ - 

EQUATED SYMBOLS: 



OWN STORAGE: 

•PSECT DATA, SHR, NOEXE, NOWRT, LONG 
DS$GQ DAYTIM:: 
.asci3 /26-JUL-1984 09:25:0?. 15/ 



56 DSSGT.START:: 

57 .BYTE 
.1 .ascii 



10$-. -1 

'! /DIAGNOSTIC SUPERVISOR. 



2Z-ENSAA-' 



.2 .ascii / 7.0-/ 
,3 .ascii /574/ 

61 .ASCII " !20XD!/" 

62 10$: 

63 DS$GT..VDS,Version:: 

.1 JSCIC ' 7.0-574' 



65 DSSGT.PROMPT:: 

66 .ASCIC \DS> \ 

67 

68 .PSECT CODE, SHR, EXE, NOWRT, BYTE 

69 DSSENTRY:: 

70 .VECTOR DS$USERMODE,*M<> 

71 MP DS5USERM0DE+2 

?2 

73 .END DSSENTRY 



C023 



; GO TO USER MODE INIT CODE. C023 



ZZ-ENSAA-7.0 
VER?30 
Symbol table 



Symbol table 



DSSENTRY 
DS$GQJ)AYTIM 
DS$GTJ>ROMPT 
DSttT~START 

dssgOds version 
dssusErmoBe 



00000000 RG D 

00000000 RG D 

I5D RG D 

11 F RG D 

>54 RG fc 

******** X 




PSECT nam© 



. ABS 

DATA 
CODE 



Allocation 
00000000*" ( 

0Q89Q062 c 

00000008 ( 



H 1 
27-JUL-1984 Flche 14 
27-JUL-1984 15:49:49 
26-JUL-1984 09:25:08 



Frame H1 Seguence 2685 
VAX-1 1 Macro V03-0T Pago 3 
DMA1:CSYS0.SYSMAINT3VER730. MAR; 574(1) 



02 
01 

?! 

01 
02 



! Psect synopsis ! 

PSECT No* Attributes 

0.) 00 7 0J NOPir^USR 

98.) 01 ( 1.) NOPIC USR 

8.) 02 ( 2.) NOPJC USR 



CON 


ABS 


LCL 


NOSHR NOEXE 


NORD 


CON 


REL 


LCL 


SHR NOEXE 


RD 


CON 


REL 


LCL 


SHR BXE 


RD 



NOWRT NOVEC BYTE 
NQyRT NOVEC LONG 
NOWRT NOVEC BYTE 



2Z-ENSAA-7.0 

VER730 

Cross reference 



Cross reference 



27< 



\WL-191 



7-JUL-19I 



Fiche 14 Frame 11 
J4 15:49:49 VAX-11 Macro 



Sequence 2686 
V03-OT 



A Page 4 

>6-JUL-l9fi4 09:25:08 DMA1 jCSYS0.SYSMAINT3VER73O.MAR;574<1> 



! Symbol Cross Reference ! 



SYMBOL 



DSSENfRY 

DS$GQJ)AYTIM 

DS$6TJ>R0MPT 

DS$GT~START 

DSMT.VDS VERSION 

OSSUSERMOtSE 



VALUE 
00000000-R 

QQOQQQQO-r 

00QQOO5D-R 
0OOOQ01F-R 
0OOQ0054-R 
00000000-XR 



DEFINITION 



REFERENCES.. 



69 
54 

$5 
56 
63 



(1 
(1 
(1 
(1 
(1 



71 



(1) 



! Performance indicators ! 



Phase 



Initialization 

Command processing 

Pass 1 

Svmbol table sort 

Pass 2 

Symbol table output 

Psec; synopsis output 

Cross-reference output 

Assembler run totals 



Page faults CPU Time 



31 

142 

102 



54 
1 
4 

L 

341 




Elapsed Time 

""55755765" 

jQQ:52.84 

'i00i01.81 

:p?:? 

mm 



The working set limit t.-as 950 pages. 

1101 bytes (3 paqes) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 1 local symbols. 

73 source lines were read in Pass 1, producing object records in Pass 2. 

pages of virtual memory were used to define macros. 



! Macro library statistics ! 



Macro library name 

DMA?jCSYS0.SYSMaInT3DS.MLB;218 
0MA1 jCSYSO.SYSMAINT DIAG.MLB;953 
SYS$SYSR00T:[SYSLIB LI8.MLB;1 
SYSSSYSR0QT:tSYSLIB!$TARLET.MLB;2 
TOTALS (all libraries) 



Macros defined 
0"" 

% 






GETS were required to define macros. 

There were no errors, warnings or information messages. 

MACRO/N00BJECT/LIST=[DS.LISJ/CROSS/ENABLE=(PEBUG, TRACE) VER730/UPDA=(VER730.UPD,V6R730.ENH)+$YS$LIBRARYaiB/LIBRARY*DMAl jCSYSG.SYSMA 



J 1 

ZZ-EN5AA-7.0 *** VMSDUMMY Fake VMS driver entry point 27-JUL-1984 Fiche H Frame J1 Sequence 2687 

VMSDUMMY *** VMSDUMMY " " ' " ---.-**-.. . -- 

Table of contents 



entry point 27-JUL-1984 Fiche H Frame J1 Seguence 2687 

Fake VMS driver entry point 2/-JUL-1984 1 5:50: 16 VAX-11 Macro V03-0T Page 



(1) 39 History 

(1) 49 Declarations 

(1) 63 Return-only Dummy Routines ; C02H 

(1) 108 MUTEX Control Routines 



ZZ-ENSAA-7.0 

VMSDUMMY 

05-02 



K 1 
*** VMSDUMMY Fake VMS driver entry point 27-JUL-1984 

*** VMSDUMMY Fake VMS driver e"*ry point 27~ 

17- 



Fiche 14 Frame K1 



Sequence 2688 



JUL-1984 15:50:16 VAX-11 Macro V03-0T Page 

AUG-1982 15:04:51 



1 



QOI 
00! 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 
17 

1 

1 

20 

21 



;i 



.TITLE 
•IDENT 



VMSDUMMY 
•OS-OS' 



DMA1:CSYS0,SVSMAINT3VMSOUMMY.mJ1r;1<1) 
*** VMSDUMMY Fake VMS driven entry points 



*************** ************** ************ *********************************** 



COPYRIGHT (c) 1977, 1978, 1979, 1980 

BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 86 USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 



********************************************** **************** ************** 



++ 

FACILITY 



Diagnostic Supervisor 



ABSTRACT: 

This module includes dunvtries of VMS routines which are either 
unnecessary in the Supervisor, or exist only in drastically reduced form, 
and do not fit within any other Supervisor module. 

ENVIRONMENT: 



ZZ-ENSAA-7.0 

VMSDUMMY 

05-02 



History 



L 1 



27-JUL-1984 Fiche 14 Frame L1 Seguence 2689 
*** VMSDUMMY Fake VMS driver entry point 27-JUL-1984 15:50:16 VAX-11 Macro V03-0T. Page 2 



History 




00 

on 



17-AUG-1982 15:04:51 DMA1 :CSYS0.SY$MAINT3VMSDUMMY,MAR;1 (1) 



39 
40 
41 
42 
43 
44 
45 
46 
4? 



• Sbttl HUtory 



AUTHOR; 

MODIFIED 

01 



BY: 



Dave Butenhof CREATION DATE; 18-jun-1980 



Jack Stansbury, Version 6,8, July 1 f 1982 

Took out the ExeSPwrTimChk routine label because J am adding 

the real routine to the QIO module. 



nnm«<r 



M 1 

ZZ*ENSAA-7.0 Declarations 27-JUL-198A Fiche H Frame M1 Seguence 2690 

VMSOUMMY *'* VMSDUMMY Fake VMS driver entry point 27-JUL-1984 15:50i16 VAX-11 fcacro V03-0T Page 3 

05-02 Declarations 17-AUG-1982 15:04:51 DMA1 :[SY$0,SY$MAINT]VM$DUMMY.MAR;1 (1) 

•Sbttl Declarations 

; INCLUDE FILES- 



EQUATES 

SSSDEF ; Define SS return codes 



tOO 



s 



60 ; OWN STORAGE 
61 ; 



ZZ-ENSAA-7.0 

VMSDUMMY 
05-02 



Retur only Dummy Routines ; 1023 

*** VMSDUMMY Fake VMS driver 
Return-only Dummy Routines ; 



N 1 

27-JIJL-1984 



Fi*he 14 



entry ooint 27-JUI-1984 15:50*16 
C02D 17-AU6-1982 15i04»51 



Frame N1 Sequence 2691 
VAX-11 Macro V03-01 
DMA1 ;CSYSO.SYSMAINTDVMSDUKMY 



0000 
00000000 



50 



50 01 



05 



DO 
05 



0000 



6600 

0000 

0000 

DA 01 



i 



63 
64 
5 
6 

67 
68 
69 
70 
71 
72 
73 
74 
75 

78 

80 

82 

§3 
84 
85 
86 
87 

§8 
89 
90 
91 
92 
93 
94 
95 



♦Sbttl Retur only Dummy Routines 
.Psect Code jhr, Exe, NoWrt, Byte 



Page 4 
,MAR;t<1> 

£021 
1021 



FUNCTIONAL DESCRIPTION; 

RoutJrv»H which require no Supervisor action. Rather than edit the 
calls from sources, these dummy entry points are provided to return 
immediately, 

CALLING SEQUENCE: 
JSB type. 

INPUT PARAMETERS: 
Ignored. 

IMPLICIT INPUTS: 
None 

OUTPUT PARAMETERS: 

HO may indicate completion status or "fake function value. 

IMPLICIT OUTPUTS: 
none 

COMPLETION CODES: 

SIDE EFFECTS: 
none 



mtscheck access:: 
Clrl ro 

E*rSNDEVM$G: 
Ei LJRELEASEMB 

erJdevioerrj 

ERlSdEVICTMO: 

EXESPWRTIMCHK:: 

RS8 

EXESBUFFRQUOTA:: 

EXEIBUFQUOPRC:: 

SCHSWAKE:: 

MOVL #SS$ NORMAL, R0 

RSB 



; Put into QIO module 
; Return 



; Success code 



C02] 



7Z-ENSAA-7.0 

VMSDUMMY 

05-02 



MUTEX Control Routines 

*** VMSDUMMY Fake VMS driver 
MUTEX Control Routines 



B 2 
27-JUL-1984 Fiche H 
entry point 27-JUL-1984 15:50:16 
17-AU6-1982 15:04:51 



Frame 82 Seguence 2692 
VAX-11 Macro V03-0T Page 5 
0MA1:CSYS0.SVSMAINnVMS0UMMY.MAR;1(1) 



.Sbttl MUTEX Control Routines 



♦ + 



FUNCTIONAL DESCRIPTION: 

Lock and unlock MUTEX database. Since the Supervisor does not 
implement multi-programming, a 'ttUTEX'-type lock is implemented via 
disabling AST delivery. 



CALLING SEQUENCE: 
SCH$L0CKW - 

J SB 
SCHSUNLOCK - 

J SB 



SCHSLOCKW 
SCHSUNLOCK 



INPUT PARAMETERS: 

Ignored. In Supervisor implmentation, which MUTEX is targeted for 
lock or unlock is irrelevant, since no data is accessed. 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

COMPLETION COOES: 
SSSJIORMAL 

SIDE EFFECTS: 

SCHSLOCKW results in AST delivery for the current mode to be 
disabled. SCHSUNLOCK results in AST delivery being re-enabled. 



ZZ-ENSAA-7.0 

VMSDUMMY 

05-02 



MUTEX Control Routines 

*** VMSDUMMY Fake VMS driver 
MUTEX Control Routines 



C 2 
27-JUL-1984 Fiche 14 
entry point 27-JUL-1984 15:50:16 
17-AUG-1982 15:04:51 



Frame C2 Sequence 2693 
VAX-11 Macro V03-01 Pa 
DMA1 :CSYS0.SYSMAJNT3VMSDUMMY 



Page 
.MA 



6 
R;1<1) 









0007 


143 ; 












0007 


144 ; Lock 


common 


data block for write 








m 


145 ; 
146 


.ENABL 


Lse 








0007 


147 












0007 


148 SCHSLOCKW:: 




7E 


50 


7D 


0007 


149 


MOVQ 


R0,~(SP) 




?E 


D* 


000A 


150 


CLRL 


-CSP) 




05 


11 


OOOC 
OOOE 


151 
152 


BRB 


10$ 








OOOE 


153 SCHSUNLOCK:: 




7E 


50 


7D 


OOOE 


154 


MOVQ 


RO,-(SP> 




01 


DD 


0011 
0013 


155 


PUSHL 


#1 








156 






00000000' 9F 


01 


FB 


m 


157 10$: 


CALLS 


#1, 9*eXE$SETAST 


50 


8E 


7D 


158 


MOVQ 


(SP)+,R0 






05 


001D 
001E 


159 
160 


RSB 










001E 
001E 


161 


.DISABLE LSB 








162 


.END 





Save RO, R1 

Set to disable AST delivery 

Join common code 



Save RO, R1 
Set to enable 



AST delivery 



; Enable/disable AST 
; Restore registers 



delivery 
reg 
Return with SETAST completion code 



ZZ-ENSAA-7.0 
VMSDJMMY 
Symbol table 

ERLSDEVKERR 

ERLSDEVKTMO 

ERL$RELEASEMB 

EXESBUFFRQUOTA 

EXESBUFQUOPRC 

EXESSETAST 

EXESSNDEVMSG 

MTSCHECK ACCESS 

SCH$LOCK0 

SCHSUNLOCK 

SCHSWAKE 

SSS.NORMAL 



Symbol table 



D 2 
27-JUL-1984 Fiche 14 Frame 02 Seguence 2694 
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17-AU6-1982 15:04:51 DMA1 ;CSYS0.SYSMAINT3VMS0UMMY.MAR;H1) 



00000002 
00000002 

mm 

00000003 

*•*****• 

00000002 
00000000 
00000007 
OOOOOOOE 
00000003 
00000001 



RG D 
RG D 
RG 
RG 
RG 



RG 
RG 
RG 
RG 
RG 



02 
02 

8 

02 
02 
02 
02 
02 
02 
02 



PSECT name 



. ABS 

$ABS$ 
CODE 



Allocation 

00000000 ( 
09000000 ( 
0000001 E ( 



! Psect synopsis i 

PSECT No. Attributes 

0.) 00 I 0.) N0P1C USR 

0.) 01 ( 1.) NOPIC USR 

30.) 02 ( 2,) NOPIC USR 



CON ABS LCL NOSHR NOEXE NORD 
CON ABS LCL NOSHk EXE RD 
CON REL LCL SHR EXE RD 



NOWRT NOVEC BYTE 

WRT NOVEC BYTE 

NOWRT NOVEC BYTE 



ZZ-ENSAA-7.0 

VMSDUMMY 

Cross reference 



Cross reference 



*** VMSDUMMY Fake VMS driver 



E 2 
27-JUL-1984 Fiche 14 
entry point 27-JUL-1984 15:50:16 
17-AUG-1982 15:04:51 



Frame E2 Sequence 2695 

VAX-11 Macro V03-01 Page 8 
DMA1:CSYS0.SYSMAINTJVMSDUMMY.MAR;1<1) 



! Symbol Cross Reference ! 

+ + 



SYMBOL 



erlsdevicerr 

erl$devictmo 

erlsreleasemb 

exesbuffrquota 

exeibufquoprc 

exessetast 

exessndevmsg 

mt$check access 

schslockD 

schsunlock 

schswake 

sss.normal 



VALUE 

00000002-R 
00000002-R 

00000003-R 

00000000-XR 

00000002-R 

00000000-R 

00QQOQO?~R 

OOOOOOOE-R 

0000000>R 

=00000001 



DEFINITION 


REFERENCES... 


97 (1) 




98 (1) 




96 (1) 




102 (D 

103 (1) 








157 (1) 


95 (1) 




93 (1) 




148 (1) 




153 (1) 




104 (1) 






#-105 (1) 



ZZ-ENSAA-7.0 Cross reference 

VMSDUMMY 

Cross reference 



F 2 
27-JUL-1984 Ffche 14 Frame F2 Seguence 2696 
*** VMSDUMMY Fake VMS driver entry point 27-JUL-1984 15:50:16 VAX-11 Macro V03-0T Page 9 

17-AUG-1982 15:04:51 DMA1 :CSYS0.SYSMAINT3VMSOUMMY.MAR;1 (1 ) 



MACRO 



SOEFINI 
SSSDEF 



SIZE 

1 
21 



Phase 





TION 

(1) 

(1) 

CPU 

00: 
00: 

8! 

00: 
00: 
00: 
00: 
00: 


! Macros 


Cross Reference 


DEF1N] 

57 
57 


REFERENCES... 

57 (1) 
57 (1) 




i Performance indicators 


Page faults 

31 

159 

223 



64 

2 

3 

7 

492 


Time 

00:00.11 
00:00.87 
00:03.86 
00:00.60 
00:00.76 

00:00.03 
00:00.01 
00:00.08 
00:06.33 


Elapsed Time 

00:00:00. 34 
00:00:01.95 

00:00:08.09 
00:00:00.79 
00:00:01.32 
00:00:00.03 
00j00.-00.02 
00:00:00.08 
00:00:12.62 



Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 1000 pages. 

19914 bytes (39 pages) of virtual memory were used to buffer the intermediate 

There were 30 pages of symbol table space allocated to hold 413 non-local and 

162 source lines were read in 

9 pag-?s of virtual memory were 



iaoic jfjatc ciuvi.a^y vv mwiu *t i j nuiriutai a 

Pass 1, producing object records in Pass 2. 
> used to define 7 macros, . 



code. 

1 local symbols. 



Macro library name 

0MA?:CSYS0.SYSMAJNT3DS,ML8;218 
DMA1:CSYS0.SYSMAINT3DIAG.MIB;953 
SYS$SYSR00T tCSYSLIBJUB.MLB; 1 
SY$$SYSROOT:CSYSLIB3STARLET.MLB;2 
TOTALS (all libraries) 



i Macro library statistics ! 
Macros defined 



464 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 

MACR0/N00BJECT/U$T=CDS.USJ/CR0SS/£NABLE=(DEBU6, TRACE) VMSDUMMY/UPDA=(VMSDUMMY.UPD,VMSDUMMY,ENH)+SYS$HBRARY:LIB/L1BRARY+0MA1 : CSYSOl 



ZZ-ENSAA-7,0 Directory 



6 2 

27-JUL-1984 



Fiche 



Frame G2 



Sequence 2697 



Fi 



he 



Frame 
81 
B5 
M8 
N8 
D9 
£9 
F9 
G9 
H9 
K9 
M9 
N9 
D10 
G10 
111 
K11 
B12 

^l 
M12 

C13 

013 

J13 

L13 

M13 

FH 

114 

MH 

nn 

C15 

D15 

G15 

115 

J15 

K15 

LIS 

Ml 5 

C16 

E16 

F16 

G16 

H16 

D1 

F1 

61 

H1 

LI 

C2 

Di 

61 

Hi 

Ki 

b: 

fs 

K3 
B4 
14 



Sequence 
•T 
53 
103 
104 
107 
108 
109 
110 
111 
114 
116 
117 
120 
123 
138 
HO 
HA 
147 
155 
158 
159 

167 
168 
174 

177 
181 
182 
184 
185 
188 
190 
191 
192 
193 
194 
197 
199 
200 
201 



Documentation 

Map 

VAX DIAGNOSTIC 

*** ACPFDT ACP function dispatch 

ACCESS AND CREATE ACP FUNCTION PROCESSIN 

DEACCESS ACP FUNCTION PROCESSING 

DELETE AND MODIFY ACP FUNCTION PROCESSIN 

MOUNT ACP FUNCTION PROCESSING 

READ AND WRITE BLOCK ACP FUNCTION PROCES 

Symbol table 

Psect synopsis 

Cross reference 

*** ANSI magtape RMS support 

ansilopen 

ansilclose 

ansi$cachevbn 

ansiSread 

ansilget 

*** APT interface to APT control 

DECLARATIONS 

APT SUPPORT ROUTINES 

Symbol table 

Psect synopsis 

Cross reference 

*** ASSIGN assign device 

ASSIGN I/O CHANNEL 

TEST IF MAILBOX SPECIFIED 

Symbol table 

Psect synopsis 

Cross reference 

*** ASTCON AST control service 

DECLARATIONS 

EXESSETAST - SET AST ENABLES 

Symbol table 

Psect synopsis 

Cross reference 

*** ASTDEL AST delivery 

HISTORY ; DETAILED 

Librarys and Equatecj Symbols 

Data PSect Declarations 

SCH$ASTDEL - AST DELIVERY INTERRUPT HAND 

SCHSQAST - ENQUEUE AST CONTROL BLOCK FOR 

Symbol table 

Psect synopsis 

Cross reference 

*** ATTACH Handle ATTACH command 

Libraries/ Equated Symbols, Externals 

Data Psect Declarations 

Work Psect Declarations 

DSVSATTACH Attach command processor 

DSX$ATTACH Process ATTACH command 

Process invalid generic name error 

Get name processing 

Get device attributes 

arse device name 

T INTERPRET Decode PT-descriptor 
DPJEXTRACT Make P-table printable 



I 
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Fiche 14 Frame H2 



Sequence 2698 



Frame 
B5 
D5 
F5 
H5 

jS 

K5 

L5 

06 

16 

L6 

N6 

C? 

E7 

G7 

17 

K7 

B8 

C8 

N8 

E9 

G9 

H9 

M9 

BIO 

E10 

G10 

H1Q 

M10 

E11 

F11 

111 

J11 

Ol 

111 

N11 

D12 

E12 

F12 

G12 

H1 

11 

J1 

K1 

U 

N1 

C1 

D1 

F1 

H1 

N13 
OH 
GMi 



GET LINE Condition getline 

FORMAT PROMPT format and load prompt 

DSVlSHOWDEVICE Oisplay device informatio 

DSVSSHOWSELECT Display information selec 

DSVSDEATTACH Deattach device 

Deattach subtree 

DSVSSELECT Select device for testing 

DSVSDESELECT Deselect device for testing 

SHOW, DEV Routine 

INISPTA8LE Initialize P-table 

Check ambiguous device 

Locate /Adapter value 

L0CSPTA8LE Routine 

LOCSPTDESC Locate PT-descriptor 

INS$PTA8LE Insert P-table 

Symbol table 

Psect synopsis 

Cross reference 

*** BOOTDRJVR non-interrupt I/O 

Declarations 

DRIVER FIXED DATA AREA 

BQQIQIO - BOOTSTRAP QIO ROUTINE 

BQOSMAP - ROUTINE TO MAP DATA FOR BOO$QI 

BOOSPURDPR - Purge UBA Buffered Datapath 

BOOISELECT - Select boot driver 

Symbol table 

Psect synopsis 

Cross reference 

- BOOTSTRAP FILEREAO 10 MODULE 

RDWRTLBN - READ/WRITE LOGICAL BLOCK NUMB 

BQQICACHEJNIT - INN FILEREAO CACHE 

BOO$IMAGE M ATT - Get image attributes fro 

SYSlASSIGN, Dummy assign device system s 

Symbol table 

Cross reference 

*** BUFCTL QIO buffer control 

GET ONE BYTE OF DATA FROM USER BUFFER 

PUT ONE BYTE OF DATA INTO USER'S BUFFER 

INITIALIZE FOR SINGLE BYTE TRANSFERS 

MOVE FROM USER BUFFER 

MOVE TO USER BUFFER 

FILL SYSTEM PTE WITH TRANSFER PTE 

Symbol table 

Psect synopsis 

Crosfi reference 

*** BUFFER GETBUF/REL8UF routines 

DECLARATIONS 

GET A VERTUAL MEMORY BUFFER. 

RELEASE A MEMORY BUFFER. 

Symbol table 

Psect synopsis 

Cross reference 

*** CANCEL cancel QIO 

CANCEL I/O ON CHANNEL 

Symbol table 

Psect synopsis 

Cross reference 



27-JUL-1984 
27-JUL*198< 
27-JUL-1984 
27-JUL-1984 
27-JUL-1984 
27-JUL-1984 
27-JUL-1984 
27-JUL-1984 
27- JUL-1 984 
V-JUL-1984 

J7-JUL-1984 

I7-JUL- - "*'" 

(7-JUL* 

I7-JUL- 

I7-JUL- 

[7-JUL- 

J7-JUL- 
27-JUL- 
1Z-JUL- 

7-JUL- 

[7-JUL- 

27-JUL- 

17-JUL- 

[7-JUL- 

J7-JUL- 

27-JUL- 

IZ-JUL- 

S7-JUL- 

[7-JUL- 

7-JUL- 

7-JUl- 
!7-JUL- 
J7-JUL- 

7-JUL- 

Z"JUL- 
[7-JUL- 
{7-JUL- 

sSwi- 

??-JUL~ 

S7-JUL- 
{7-JUL* 

S7-JUL- 
[7-JUL- 

7-JUL- 

7-JUL- 

jSJUL- 
!?-JUL- 
[7-JUL* 
(7-JUL- 
[7-JUL- 

{7-JUL- 
7-JUL-. 

(7-JUL-1 
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Sequence 2699 
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2 
2 
2 
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2 
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3 
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3 
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3 
3 
3 
3 
3 
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Frame 


Seguence 


M14 


387 


C15 


390 


H15 


395 


J15 


397 


K15 


398 


L15 


399 


H15 


400 


N15 


401 


B16 


402 


C16 


403 


D16 


404 


E16 


405 


F16 


406 


G16 


407 


H16 


408 


D1 


415 


E1 


416 
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F1 


G1 
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H1 


419 


11 


420 


J1 


421 


K1 


422 


M1 


424 


N1 


425 


B2 


426 


C2 


427 


62 


429 


G2 


431 


H2 


432 


C3 


440 


E3 


442 


F3 


443 


H3 


445 


13 


446 
447 


J3 


K3 


448 


L3 


449 


C4 


453 


65 


465 


C5 


466 


D5 


467 


F5 

H5 
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J5 


473 


K5 


474 


L5 
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M5 
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C6 
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06 
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E6 
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485 


J6 


486 


L6 


488 



services for NEBULA 



ADAPTER INJT FUNCTION 

BUS INIT FUNCTION 

ABORT FUNCTION 

ENABLE INTERRUPTS 

PURGE 

DISABLE INTERRUPTS 

CLEAR ADAPTER 

GET ADAPTER STATUS 

SET DEFEAT PARITY 

CLEAR DEFEAT PARITY 

COMMON CALL RETURN 



SPECIFIC STATUS 
ADAPTER STATUS 
HARDWARE ERROR STATUS 
DATA BLOCK 



*** CHAN730 Channel 
DECLARATIONS 
SCHANNEL CALL 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL - 
SCHANNEL CALL « 
SSETMAP CALL 
DSPSSH0WM8A 
DSPSSHOWUBI 
SSHOWCHAN CALL 
SHOW.UBI STATUS 
SHOWBlTS 

DETERMINE ADAPTER 
DETERMINE GENERAL 
DETERMINE ADAPTER 
BUILD THE CHANNEL 
SET ADAPTER VECTOR(S) 
CLEAR ADAPTER VECTOR(S) 
INTERRUPT PRE-PROCESS 

Symbol tablo 

Psect synopsis 

Cross reference 

*** CHMK Change mode to kernel handler 

DECLARATIONS 

CHANGE MODE TO KERNEL ROUTINE 

ASTEXIT SYSTEM SERVICE 

Local intermediate dispatches 

Symbol table 

Psect synopsis 

Cross reference 

DIAGNOSTIC SUPERVISOR COMMAND LINE INTER 

Libraries, Macros, Equated Symbols 

Work Psect Storage 

Data Psect Storage 

Commands A-C 

Directory. Deattach, Deselect, Deposit C 

Commands Exit, Examine 

Help, InitPCS, Load, Next, Run 

Commands Set, Select, Show, Start, Summa 

End of Line Processing 

Illegal Command Processing 

Incomplete Command Processing 

Bad List Processing 

Bad Qualifier Processing 

Get Generir Device Name 

Deattach Processing 

Deselect and Select Processing 

Get a File Specification 

Start and Run Processing 
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(7-Jji 
!7-J-i 
7-JUI 
17-JUI 
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4 
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G3 



J 2 
27-JUL-1984 



Start and Run Qualifiers 

Show Parameters and Qualifiers 

Clear Parameters and Qualifiers 

Set Parameters and Qualifiers 

Examine Qualifiers *nd Parameters 

Deposit Parameters and Qualifiers 

Set Default Parameters 

DS$Cli Routine - Command Line Interprete 

CLI Action Routines. 

Null and Context-Saving Action Routines 

Failure, Notnuf, Enuf Action Ro 

A-C Action Routines 



Success, 
Commands 
Commands 
Commands 
Commands 



D-E 
H-R 
S-Z 



Action 
Action 
Action 



Routines 
Routines 
Routines 



CRD command 

Fitespec, Optional, Required Action Rout 

Start and Run Qualifier Action Routines 

Event and Flags Action Routines 

Base, Address, Break Action Routines 

All, Default Action Routines 

Show Calls Routine ; C703 

CRDTrace Action Routines : C653 

Bell* Binary, Halt, lEx Action Routines 

Loop, Oper, Prompt Quick Action r outines 

Search, Trace, Verify Action Routines 

Set/Show Page, Width Action Routine 

Set/Show QA Action Routines 

QADef Action Routine 

Efn, Next, Ascii Action Routines 

Register Action Routines 



Backup, AJvance, Data 



Long, Word 
IF Action 



Action Routines 
Dec, Oct Action 



- Byte, Hex, 

Routines 
Xdelta Accion Routines 
Device, Brut Adaptor Ac Hon Routines 
Show Select, Do^Cmo, Set Load, Show Load 
MM On, Off, and Show Action Routines 
Show Status, Show Support 
Symbol table 
Psect synopsis 
Cross reference 
INTERVAL TIMER ROUTINES, 
Macros and Equated Symbols 
Data Psect Declarations 
DS$CanWait - CANCEL DijLAY ROUTINE 
$WAKE - Wakeup from hibernate 
DSXSWaitMS ~ MILLISECOND DELAY ROUTINE 
DSXfWaitUC - MICROSECOND DELAY ROUTINE 
EXESHIBER - HIBERNATE SYSTEM SERVICE RQU 
EXcfCANTIM ~ CANCEL TIMER SYSTEM SERVICE 
DSR$SETIMRJNI - SET TIMER QUEUE INITIAL 
EXE$Sftimr - SET TIMER SYSTEM SERVICE. 
DSliTimSrv - INTERVAL TIMER INTERRUPT SE 
DSISTIMER - Level 7 timer interrupt serv 
CLMREJNIT - SYSTEM TIMER INITIALIZAT1Q 
Symbol table 
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f iche 


Frame 


A 


K3 


A 


L3 


A 


FA 


A 


IA 


A 


JA 


A 


KA 


A 


I' 


A 


M<* 


A 


B5 


A 


D5 


A 


E5 


A 


H5 


A 


86 


A 


E6 


A 


16 


A 


B7 


A 


E7 


A 


H7 


A 


K7 


A 


L7 


A 


(58 


A 


L8 


A 


M8 


A 


N8 


A 


E9 


A 


G9 


A 


19 


A 


K9 


A 


N9 


A 


CIO 


A 

A 


m 


A 


M10 


A 


C11 


A 


m 


A 


sn 


A 


B12 


A 


i> 1 ! 


A 


E 1 S 
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F12 
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G12 


A 


H12 


A 
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K12 


A 


I 1 l 


A 


N13 


A 


cu 


A 


GH 


A 


114 


A 


NH 


A 


H15 


A 


N15 


A 


F16 


A 


H16 


5 


B1 


5 


n 


5 


G1 



Psect synopsis 

Cross reference 

*** COMDRVSUB driver support routines 

COMSDELATTNAST - DELIVER ATTENTION ASTS 

COM$PLUSHATTNS - FLUSH ATTENTION AST LIS 

COMSPOST - POST 1.0 CO iPLETION INDEPENDE 

COMfDRVDEALMEM - DEALLOCATE DRIVER MEMOR 

COMlSETATTNAST - SET UP ATTENTION AST 

Symbol table 

Psect synopsis 

Cross reference 

*** CONFIG Configure load device 

INISLOAD DEVICE Make ptables for consol 

DSPICONFlG tOAD Configure load device 

Common routines 

configure RB730 

Attach UDA-50/LESI load path 

Symbol table 

Psect synopsis 

Cross reference 

*** CONSOLE Console I/O handler 

Libraries, Equated Symbols, Macros 

Work Psect Declarations ; £133 

Data Psect Declarations ; C13J 

VRSetWidth Routine - Set terminal width 

VRShowWidth Routine - Show terminal widt 

KBJ'oll Routine - Keyboard ready bit che 

RInput Routine - 



RTy'pe Routine 



- Flag driven terminal in 
____..' Retype input line ( ,A R' 
Out Routines - Flag driven terminal outp 
WriteVBlk Routine - Console write driver 
ReadVBlk Routine - Console read rtrfver 
SIZE^TERM Routine to size the console te 
Symbol table 
Psect synopsis 
Cross reference 

*** Loading and Unloading the CRD Image 
Libraries 
Other Literals 
External Routines 
Psect Definitions 
Local ASCIC Bindings 
Own Storage 
DSRSLoad^CRD Routine 
DSRSUnload^CRD Routine 
DSRIRestorl CRD., Vectors Routine 
Exchangejn spate h_ Vectors Routine 
CRDJExTt Routine 
CRD^Error Routine 
InternaLError Routine 
DSRIPrinTTypeCode^Name Routine 
*** CVRTIM time conversion routines 
CONVERT BINARY TIME TO ASCII STRING 
CONVERT ASCII STRING TO BINARY TIME 
CONVERT BINARY TIME TO NUMERIC TIME 
Symbol table 
Cross reference 



27-JUL-1 

27-JUL- 

27-JUL- 

27-JUL- 

27- JUL* 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

17-JUL- 

}?-JUL- 

J7-JUL- 
27-JUL- 
27-JUL- 

2ZSWL- 

27-JUL- 

27-JUL* 

27-JUL« 

27-JUL- 

27-JUL- 

27-JUL- 

2i 'JUL* 

27-JUL- 

27-JUL- 

27«JUL« 

J7-JUL* 

7-JUL- 

7-JUL- 

7-JUL- 

f?-JUL- 

>7«JUL- 

S7-JUL- 

IZ-JUL- 

7-JUL- 

7~Jul~ 

{/•Jul* 

*7~Jul~ 

[7-Jul~ 

7~Jul~ 

7-Jul- 

7-Jul- 

7-Ju. 

;7-Ju ,*■ 

7-Ju 

!7-Ju 

!~Ju 

>-Ju 

SJu 

57-ju 
17-JU 

Siu 

17-JU 



I' 

?: 




ZZ-ENSAA-7.0 Directory 



27-JUL-1984 



Fiche 14 Frame L2 
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Frame 
J1 
LI 
Ml 

& 

G2 
12 
L2 
N2 
C3 
03 
G3 
J3 
L3 
M3 
E4 
14 
KA 
C5 
F5 
M5 
N5 
B6 
D6 
F6 
J6 
N6 
F7 

Q? 
17 

J l 
K? 

17 

M7 

C8 

E8 

F8 

6§ 

M8 

N8 

89 

09 

H9 

E1Q 

H10 

K1 

Mli 

N1 

81 

C11 

011 

611 

KIT 

N11 

B12 



- Converts ASCII to RAD50 
DECLARATIONS 

CVTFILNAM - CONVERT FILE NAME FROM ASCII 

STORER50BYTE - CONVERT AND STORE ASCII B 

PACKRAD50 - PACK 3 BYTES OF RAD50 CHARAC 

ASCIIT0RAD50 - CONVERT ASCII CHARACTER T 

Symbol table 

Cross reference 

*** DASSGN deassign QIO channel 

DEASSIGN I/O CHANNEL 

Symbol table 

Psect synopsis 

Cross reference 

- CONSOLE TU58 BOOT DRIVER 
DECLARATIONS 

DD_SELECT - Select correct CPUs for this 

Console TU58 Driver 

Character transmission 

Symbol table 

Cross reference 

EXAMINE, DEPOSIT, AND BREAKPOINT SU8R0UT 

DECLARATIONS 

SET BASE ADDRESS SUBROUTINE 

SHOW BASE ADDRESS SUBROUTINE ; C13J 

SET DEFAULTS SUBROUTINE 

SHOW DEFAULTS SUBROUTINE 

EXAMINE MEMORY AND REGISTERS SUBROUTINE 

VRTYPEXAMNE Type out location EXAMINE 'd 

DEPOSIT MEMORY AND REGISTERS SUBROUTINE 

SET BREAKPOINT SUBROUTINE 

CLEAR BREAKPOINT SUBROUTINE 

DSPSREM0VE8REAK Remove breakpoints 

SHOW BREAKPOINTS SUBROUTINE 

FIND BPT FIND BPT IN BPT TABLE 

DEBUBGER CONDITION HANDIER 

BREAKPOINT CONDITION SUBROUTINE 

TBIT CONDITION SUBROUTINE 

TEMPORARY BREAKPOINT REMOVAL SUBROUTINE 

BREAKPOINT REPLACEMEMT SUBROUTINE 

FETCH_STORE COPY BYTE ROUTINE 

Handle EXAMINE/DEPOSIT of IPRs in KERNEL 

FETCH STOR.PAEG Move data to/from IPR 

DSVIOEBUG - Process DEBUG Command CI 4 

Symbol table 

Cross reference 

*** DEVALC device allocation routines 

ALLOCATE DEVICE 

DEALLOCATE DEVICE 

LOCK I/O DATA BASE AND SEARCH FOR DEVICE 

DECREMENT REFERENCE COUNT, CLEAR OWNERSH 

DSXfMOUNT - Mount a device 

DSXIDISMOUNT - Dismount a device 

Symbol table 

Cross reference 

*** DEVICE Handle PTABLEs 

DSS6PHARD Retreive address of P-table 

DSP$GENJ>TA8LES Setup UUT's to test 
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Frame 

MS 
E12 

F12 

J12 

N12 

D13 

F13 

H13 

K13 

B1A 

G1A 

MA 

G15 

115 

N15 

B16 

C16 

F16 

Di 

G1 

J1 

M1 

B2 

F2 

G2 

03 

F3 

H3 

a 

BA 
DA 
GA 
JA 
LA 
MA 
B5 
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H5 

M5 

N5 

D6 

F6 

H6 



Se 



uence 
970 
971 
972 
976 
980 
983 
985 
987 
990 
99A 
999 
1005 
1012 
101A 
1019 
1020 
1021 
102A 
1033 
1036 
1039 
10A2 
10AA 
10A8 
1QA9 
1059 
1061 
1063 
1067 
1068 

107? 
1078 

in 

1083 

V 

1 

1 

1 

1 

11 

11 

11 

11 

11 

111 

111 

112 



Symbol table 

Psect synopsis 

Cross reference 

*** DIRECTORY Handle DIRECTORY command 

Put filename to buffer, if matches pattern 

RAD50 

format„od$1 

format„ods2 

RT-11 directory 

ANSI directory 

ods directory 

Main code 

Master routine 

*** DISPAT Diagnostic test sequence cont 

Libraries and SymDol Definitions 

Work Declarations 

Data Declarations 

Dispatch Routine 

DSXIEndPass Routine 

DSCleanup Routine 

DSXfDoSummary and VRSummary Routines 

VRShowStatus Routine 

Symbol table 

Pseit synopsis 

Cross reference 

- RL01/2 BOOT DRIVER 
DECURAUONS 

RL01/2 Bootstrap driver code 

Symbol table 

Cro9s reference 

• RK06/7 BOOT DRIVER 

DECLARATIONS 

RK06/7 Bootstrap driver code 

ECC - PERFORM ECC ERROR CORRECTION 

Symbol table 

Cross reference 

- RB730?RB02/R880 BOOT DRIVER 
DECLARATIONS 

R8730;R802/RB80 Bootstrap driver code 
Symbol table 
Cross reference 

- DR32 interrupt handler 
DECLARATIONS 

DRIINT - DR32 INTERRUPT HANDLER 

Symbol table 

Cross reference 

*** DSL0AD DSILOAD routine 

DSXSL0AD routine 

*** DSVECS Module 

Libraries and Macros 

The Dispatch Vectors 

Symbol table 

Cross reference 

*** ENTRY DS service entry vectors 

Libraries and Equated Symbols 

Data Psect Declarations 

DS Entry Points 



27-JUL-1984 
27-JUL-1984 
27-JUL-1984 
17-Jul-1984 

7-JuM984 
!7«Jul«1984 
J7-Jul-1984 
27-Jul-1984 
27-JuM984 
27-Jul-1984 
27~Jul-1984 
27«JuM984 
27-JUL-1984 
27-JUL-1984 
27-JUL-1984 

7-JUL-' 

!?«JUL~19l 
J7-JUL-19) 

I7-JUL-1984 

[7-JUL-1984 
J7-JUL-1984 
27-JUL-1984 
y-JUL-1984 

>7~JUL~1984 

IZ-JUL-1984 
?-JUL~19§4 
7-JUL-1984 
7-JUL-1984 
7-JUL- 984 

7-JUL-1984 

7-JUL-1984 

7-JUL-1984 

7-JUL-1984 

2-JUL-1 

JHJUL-1 

2SWL-1 

S7-JULH984 

J?«JUL-1984 

7«JUL«1984 

Klul-1984 

}7«JuW9l 

J7»JUL-1 r 

•JUL-1 1 

. -JUL-1 

[7-JUL-T 
Z-JUL-T 

S7-JUL-1U 
[7-JUL-19J 

7-JUI.-1 

7-JUM" 



ZZ-ENSAA-7.0 Directory 



N 2 
27-JUL-1984 



Fiche 14 frame N2 



Sequence 2704 



Fiche 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
? 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



Frame 
B12 
C12 

F12 

112 

E13 
113 
J13 
K13 
F14 
HK 

IM 
KH 

M14 

B15 

F15 

G15 

J15 

L15 

C16 

K16 

L16 

B1 

C1 

E1 

G1 

H 
K1 
M1 
B2 
E2 

K2 
F3 
13 
D4 

F4 

H' 

f 

K5 
L5 
J6 
M6 

a 

H? 
J? 

tf 

F8 
18 
L8 
N8 
B9 



Sequence 

1174 DSSSRVDISP TABLE - Dispatch table for VD 

1175 DSX$SERVICEj)ISPATCHER ~ Service Dispatc 

1176 Resrvd„Entry Routine - For entry errors 
1178 Symbol table 

1181 Psect synopsis 

1182 Cross reference 

1190 *** ERROR Error routines 

1194 Libraries, Macros, Equated Symbols 

1195 Work Psect Declarations 

1196 Data Psect Declarations 
1204 DSXSErrSoft Routine 

1206 DSX$ErrHard Routine 

1207 DSX$ErrPrep Routine [17] 
1209 DSXSErrDev Routine 

12: 1 DSXSErrSys Routine 
1213 RRtpError Routine 

1217 DSJestJD Routine 

1218 DS„ErrSup Routine 
1221 DSWCompletion Routine 
1223 Symbol table 

1227 Cross reference 

*** EVENT flag system services 

Declarations 

check for legal evei t flag number 

set event flag routing 

Clear event flag routine 

post event flag 

read event flags routine 

wait for single event flag routine 

wait for logical or of event flags routine 

wait for logical and of event flags routine 

*** EXCEPT Machine Exception handling 

Libraries, External t Equated Symbols, M 

Work Psect Declarations 

Data Psect Declarations 

C0ND HANDLR ROUTINE - HANDLE UNWANTED EX 

DSXSPrfntSig Routine * Format Signal Arr 

FIND US6RPC Find USER PC on stack 

TSTSMChk Routine - Machine Check Handler 

HARDWARE EXCEPTION ENTRY POINTS 

SEARCH FOR CONDITION HANDLER 

DSXISETPRIEXV - ESTABLISH PRIMARY EXCEPT 

Symbol table 

Psect synop^s 

Cross reference 

*** « FORMATTED ASCII OUTPUT 

Libraries, Equated Symbols 

FA0 " Main program 

GETCHAR * Routine to get next char from 

G5TCOUNT - Routine to get repeat-count o 

CVTASC - Insert ASCII string 

CVTNUM - Convert numeric parameter to AS 

QUICKSERVE - Small service routines 

PERCENT - Time directives and plural 'S' 

HANDLER - Condition handler 

Symbol table 

Psect synopsis 



27-JUL- 
27-JUL- 

27-JUL-' 

27-JUL- 

27-JUL-* 

27-JUL-' 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL-" 

27-JUL- 4 

27-JUL-' 

27-JUL-' 

27-JUL-' 

27~JUL< 

27-JUL' 

27-JUL- 

27-Jul-' 

27-Jul- 

27-Jul**' 

2?«Jul 

27-Jul- 

27-Jul- 

27-JuL- 

*7-Jut 

!7-Jul- 

f7~Jul- 

!7-JUL- 

&-JUL 

>7~JUL< 

J7-JUL 

27-JUL- 

27-JUL 

]7~JUL- 

S7-JUL' 

7~JUL< 
7-JUl' 
7-JUL- 
!?~JUL 

I7-JUI-' 

7-JUL' 

7-JUL' 

7-JUL- 

I7-JUL 

7*JUL- 

!7~JUL~ 

[7-JUL- 

>7«JUL< 

!7-JUL' 

>7«JUL' 

(7-JUL-' 



ZZ-ENSAA-7.G Directory 



B 3 

27-JUL-1984 
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Sequence 2705 



Mche 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



Frame 
C9 
F9 
19 
L9 
v n 
FIO 
G10 
H10 

no 

K10 
N10 
G11 
J11 
L11 
Mil 
C12 
E12 
F12 
H12 
K12 
H12 
N12 
C13 
D13 
J13 
N13 
B14 
C14 
E14 
G14 

114 

K14 

M14 

B15 

D15 

115 

K15 

L15 

MIS 

B16 

C16 

D16 

F16 

H16 

116 

J16 

L16 

C1 

E1 

G1 

11 

H3 
L3 
N3 
D4 



Sequence 
T342 
1345 
1348 

1351 

1359 
1360 
1361 
1363 
1366 
1372 
1375 
1377 
1378 
1381 
1383 
1384 

1386 
1389 
1391 
1392 
1394 
1395 
1401 
1405 
1406 
1407 
1409 
1411 
1413 
1415 
1417 
1419 
1421 

14; 
h; 
h; 

1430 
1432 
1433 
1434 

1438 
1439 
1440 
1442 
1444 
1446 
1448 
1450 
1458 
1466 
1475 
1479 
1481 
1484 



Cross reference 

- FILES11 LEVEL 1 ft 2 FILE READING ROUTI 
DECLARATIONS 

FIL$OPENFILE - RETURN FILE HEADER AND ST 

F1LICACHEJN1T - 1NJT FJLEREAD CACHE 

FIL$CACHE TRUNC - TRUNCATE FJLEREAD CACH 

ASSIGN DEV - ASSIGN A DEVICE AND RETURN 

STORE30IGITS - STORE 3 ASCII DIGITS 

FORMDIRSTRING - GET A DIRECTORY STRING 

MOUNT - MOUNT THE VOLUME, INIT FOR FILE 

FINDFILJD - FIND FILE ID FOR SPECIFIED F 

FILIFINDFILID - STRUCTURE LEVEL 2 

FILSFINDFILID - STRUCTURE LEVEL 1 

READ„DIR„LBN - READ NEXT DIRECTORY LBN 

RDCHRFILHDR - READ AND CHECK FILE HEADER 

READVBN- WRITE VBN - READ/WRITE VIRTUAL B 

INIRTRVPTRSCAN - INITIALIZE RETRIEVAL PO 

GETRTRVPTR - CONVERT NEXT RETRIEVAL PQIN 

STATBLK - GET FILE STATISTICS BLOCK 

FILSCHKFILHDR - CHECK FILE HEADER VALIDI 

CHECKSUM - VALIDATE A CHECKSUM 

Symbol table 

Psect synopsis 

Cross reference 

*** FLAGS Set/Clear/Show flags 

Libraries, Macros, fjquated Symbols 

Data Psect Declarations 

VRSetflg Routine - Set control flags 

VRClrFlg Routine - Clear control flags 

VRSetEF Routine - Set event flags 

VRClrEF Routine - Clear event flags 

VRShowFlg Routine - Show control flags 

VRShowEF Routine - Show event flags 

Symbol table 

Cross reference 

*** FRKCTL QIO fork control 

CREATE I/O DRIVER FORK PROCESS 

CREATE FORK PROCESS 

SOFTWARE INTERRUPT FORK DISPATCHER 

Symbol table 

Psect synopsis 

Cross reference 

- SYSTEM SERVICE GET TIME 
GET TIME 

Symbol table 

Cross reference 

*** GTCHAN Get channel 

GET I/O CHANNEL DEVICE 

Symbol table 

Cross reference 

*** HELP Handle HELP command 

Help control routine 

do help stuff 

check for key on line 

print key list 

rint help text 

ist other keys 



information 
INFORMATION 



P 



27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

7-JU 

7-JU 

7-JU 

7-JU 

7-JU 

7-JU 

7-JU 

7-JU 

7-JU 

27-JU 

7-JU 

7-JU 

7-JU 

27-JU 

"7-JU 
7-JU 
7-ju 

7-JU 
7-JU 
17-JU 
7-JU 
17-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
17-JU 
7-JU 
7-JU 

7-JU 
7-JU 

7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-JU 
7-Ju 
l 7-Ju 
!7-Ju 
7-Ju 
7-Ju 
7-Ju 
27-Ju 



984 
984 
984 
984 
984 
984 
984 
984 
984 
984 
984 



91 
91 
91 
91 
9J 
9\ 
91 
91 
91 
91 



984 
984 
984 
984 

984 
984 



91 
91 
91 
9\ 
91 



91 
91 
91 
91 
91 



4 
4 
4 
4 
4 
A 
84 
4 



14 
14 
14 
(4 
J4 

m 

14 
14 
14 
(4 

* 
14 

14 

!* 

14 

(4 
14 
14 
14 
984 
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Sequence 2706 



Mche 


Frame 


8 


FA 


8 


HA 


8 


LA 


8 


B5 


8 


G5 


8 


15 


8 


L5 


8 


N5 


8 


C6 


8 


F6 


8 


H6 


8 


110 


8 


N10 


8 


B11 


8 


Mil 


8 


D12 


8 


H12 


8 


N12 


8 


F13 


8 


613 


8 


H15 


8 


J15 


8 


K1S 


8 


L15 


8 


B16 


8 


D16 


8 


G16 


8 


116 


8 


K16 


8 


L16 


9 


C1 


9 


G1 


9 


H1 


9 


m 


9 


02 


9 


E2 


9 


F2 


9 


G2 


9 


H2 


9 


12 


9 


J2 


9 


K2 


9 


12 


9 


M2 


9 


N2 


9 


B3 


9 


C3 


9 


D3 


9 


*l 


9 


F3 


9 


G3 


9 


13 


9 


J3 


9 


N3 


9 


DA 


9 


EA 


9 


FA 



Sequence 

1A86 PrintHeader 

1A88 print_otherhelp main code 

1A92 Read random record 

1A95 compare keys 

1500 skip„blanks 

1502 scan word 

1505 find character 

1507 print blank Line 

1509 - Interpreted code for TSP 

1512 DECLARATIONS 

151A Device description database 

1567 Symbol table 

1572 Psect synopsis 

1573 Cross reference 

158A *** I0BASE 1/0 data base 

1588 DECLARATIONS 

1592 Device description database 

1598 Symbol table 

1603 Psect synopsis 

160A Cross reference 

1631 *** I0POST 1/0 completion posting 

1633 HISTORY ; DETAILED 

163 A DECLARATIONS 

1635 1/0 COMPLETION POSTING 

1638 VIRTUAL I/O COMPLETION 

16A0 QUEUE NEXT SEGMENT 

1643 BUFFERED READ COMPLETION AST ROUTINE 

16A5 DIRECT I/O COMPLETION AST ROUTINE 

16A7 MOVE DATA TO USER BUFFER 

16A8 UNLOCK AREAS IN IRPE'S 

1650 Symbol table 

165A Psect synopsis 

1655 Cross reference 

1660 *** IOSNPG services for QJO 

166A CANCEL I/O ON CHANNEL 

1665 FILL DIAGNOSTIC BUFFER 

1666 RELEASE I/O CHANNEL 

1667 REQUEST I/O CHANNEL 

1668 I/O REQUEST COMPLETION PROCESSING 

1669 INITIATE I/O FUNCTION ON DEVICE 

1670 RELEASE BUFFERED DATAPATH 

1671 REQUEST BUFFERED DATAPATH 

1672 RELEASE UNIBUS MAP REGISTERS 

1673 REQUEST UNIBUS MAP REGISTERS 
167A ALTER UBA MAP REGISTER BITMAP 

1675 SEARCH MAP REGISTER BITMAP AND ALLOCATE 

1676 RETURN TO CALLER 

1677 WAITFOR INTERRUPT OR TIMEOUT AND KEEP CH 

1678 WAITFOR INTERRUPT OR TIMEOUT AND RELEASE 

1679 ALLOCATE SYSTEM PAGE TABLE 

1680 Symbol table 

1682 Psect synopsis 

1683 Cross reference 

1687 *** IOSPGD services for QIO 

1690 CONVERT DEVICE NAME AND UNIT 

1691 FIND FREE I/O CHANNEL 

1692 SEARCH FOR DEVICE 



27-Jul- 

27-Jul- 

27-Jul- 

27-Jul- 

27-Jul- 

27-Jul~ 

27-Jul- 

27-Jul- 

27-JUL- 

27-JUL- 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 

27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
27-JU 
(7-JU 
J7-JU 

7-JU 

7~JU 
?7«JU 
J7-JU 
J7-JU 

7-JU 
S7-JU 
[7-JU 
f?«JU 
[7-JU 
!7-JU 
!7«JU 

SIU 

7-JU 

7-JU 
J7-JU 
27-JU 



98A 
984 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
98A 
984 
984 
98A 
98A 
98A 
984 
98A 
984 
984 
984 
984 
984 
984 

984 
984 
984 
984 
984 
984 



ZZ-ENSAA-7.0 


Fiche 


Frame 


9 


14 


9 


J4 


9 


K4 


9 


N4 


9 


D5 


9 


G5 


9 


15 


9 


J5 


9 


M5 


9 


N5 


9 


B6 


9 


D6 


9 


G6 


9 


I? 


9 


J? 


9 


L? 


9 


M7 


9 


C8 


9 


68 


9 


18 


9 


N8 


9 


H9 


9 


M9 


9 


D10 


9 


610 


9 


110 


9 


J10 


9 


L10 


9 


N10 


9 


C11 


9 


G11 


9 


H11 


9 


B 1 2 


9 


C12 


9 


D13 


9 


G13 


9 


Hi3 


9 


113 


9 


J13 


9 


L13 


9 


M13 


9 


N13 


9 


D14 


9 


F14 


9 


G14 


9 


MIA 


9 


D15 


9 


F15 


9 


G15 


9 


H15 


9 


115 


9 


K15 


9 


B16 


9 


D16 


9 


F16 


9 


J16 


10 


E1 



Directory 
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Sequence 2707 



Sequence 
T695 
1696 
1697 
1700 
1703 
1706 
1708 
1709 
1712 
1713 
1714 
1716 
1719 
1734 
1735 
1737 
1738 
1741 
1745 
1747 
1752 
1759 
1764 
1768 
1769 
1773 
1774 
1776 
1778 
1780 
1784 
1785 
1792 
1793 
1807 
1810 
1811 
1812 
1813 
1815 
1816 
1817 
1820 
1822 
1823 
1829 
1833 
1835 




UNLOCK I/O DATA BASE AND RETURN STATUS 

VERIFY I/O CHANNEL NUMBER 

Symbol table 

Cross reference 

*** IOSRAM random access I/O service rou 

APPLY ECC CORRECTION 

CONVERT LOGICAL BLOCK TO PHYSICAL ADDRES 

MAP VIRTUAL TO LOGICAL BLOCK 

UPDATE TRANSFER PARAMETERS 

SENSE DISK'S SIZE FDT ROUTINE 

Symbol table 

Cross reference 

*** KERNEL Main control routine 

Libraries and Macros 

Equated Symbols 

Data Psect Declarations 

Work Psect Declarations 

Data Psect Declarations 

SHELL OF STAND ALONE SUPERVISOR MEMORY, 

DIAGNOSTIC SUPERVISOR BOOTSTRAP ROUTINE, 

USEP KERNEL ROUTINE 

COMMON KERNEL REFRESH ENTRY POINT. 

INIT CONTEXT Initialize process context 

CONTROL-C AST HANDLER 

KEYBOARD CHECK ROUTINE 

DSXlCNTRLC Program enable for Control-C 

DSVSEXIT, Process EXIT command 

EXITSHANDLR Process EXIT handler 

DSRSCheckJIenuTest^Off Jet Routine 

DSRSCheck AutoTest Off Set Routine 

DSXSGETTERM Get User Terminal Character 

Symbol table 

Psect synopsis 

Cross reference 

*** LOAD Set/Show load 

Libraries, Equated Symbols 

Work Psect Declarations 

Data Psect Declarations 

DSVfSETLOAD SET THE DEFAULT LOAD DEVICE/ 

DSV5SH0WL0AD Display default load device 

DSRSIFLOADDEV Is it the load device? 

DSVSLOAD PROGRAM IMAGE LOAD SUBROUTINE 

Symbol table 

Psect synopsis 

Cross reference 

*** LODMAP load adapter map registers 

LOAD UNIBUS ADAPTER MAP REGISTERS 

GET PFN FROM INVALID PTE 

Symbol table 

Psect synopsis 

Cross reference 

*** LOOP Loop control 

Declarations 

DSX$Escape Routine 

DSXSBgnSub Routine 

DSXSEhdSub Routine 

DSX$CkLoop Routine 



27-JUI 
27-JUI 

27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 
27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

27-JUI 

7-JUI 

7-JUI 

7-JUI 

7-JUI 

f?-JUI 

7-JUI 

7-JUI 

7-JUI 

7-JUI 

7-JUI 
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Sequence 2708 



Fiche 


Frame 


10 


61 


10 


11 


10 


L1 


10 


M1 


10 


H2 


10 


K2 


10 


M2 


10 


N2 


10 


C3 


10 


E3 


10 


63 


10 


13 


10 


BA 


10 


0A 


10 


JA 


10 


LA 


10 


MA 


10 


NA 


10 


B5 


10 


C5 


10 


E5 


10 


65 


10 


K5 


10 


B6 


10 


C6 


10 


D6 


10 


E6 


10 


K6 


10 


M6 


10 


N6 


10 


B? 


10 


0? 


10 


67 


10 


J? 


10 


K7 


10 


17 


10 


M? 


10 


08 


10 


F8 


10 


68 


10 


H8 


10 


18 


10 


L§ 


10 


09 


10 


M9 


10 


C10 


10 


HI 


10 


1! 


M1Q 
N10 


10 


B11 


10 


F11 


10 


611 


10 


111 


10 


K11 


10 


B12 


10 


£12 



Sequence 
1860 
1862 
1865 
1866 
1874 
1877 
1879 
1880 
1882 
1884 
1886 
1891 
1894 
1899 
1 902 
1904 
1905 
1906 
1907 
1908 
1910 
1912 
1916 
.1920 
1921 
1922 
1923 
1929 
1931 
1932 
1933 
1935 
1938 
1941 
1942 
1943 
1944 
1948 
1950 
1951 
1952 
1953 
1956 
1961 
1970 
1973 
197< 
197' 




DSX$InLoop Routine 
Symbol table 
Psect synopsis 
Cross reference 

- MASSBUS ADAPTER INTERRUPT DISPATCHER 
MASSBUS ADAPTER INTERRUPT DISPATCHER 
MASSBUS ADAPTER INITIALIZATION 
Symbol table 

Cross reference 

*** MCHK730 machine check formatter 

CHKSMCHK 

DSRSFAULT CLEAR 

*** MEMALC dynamic memory allocation 

ALLOCATE MEMORY AND CONDITIONALLY WAIT 

ALLOCATE NONPAGED DYNAMIC MEMORY 

GENERAL ALLOCATE MEMORY SUBROUTINE 

DEALLOCATE N0NPA6ED DYNAMIC MEMORY 

CHECK BLOCK PARAMETERS SUBROUTINE 

GENERAL DEALLOCATION SUBROUTINE 

MEMPOOLSINIT ;USER MODE MEMORY INITIAL 

Symbol table 

Cross reference 

*** MEMMGT Memory management setup/contr 

Libraries, Macros, and External Symbols 

Own Storage 

Data Storage 

MapMem Routine * Map all of memory 

MAPMEM$IOSPACE Setup page tables for I/O 

ACCESSABLE check a page for accessabilit 

STACKPROT 

MAP FREE MEMORY PROCEDURE, 

GET A BLOCK OF VIRTUAL MEMORY, 

RELEASE A BLOCK OF VIRTUAL MEMORY. 

TURN MEMORY MANAGEMENT ON. 

TURN MEMORY MANAGEMENT OFF. 

DSRSMMENABLE Enable to disable memory ma 

SET PROTECTION ON PAGES. 

CALCULATE PTE ADDRESS SUBROUTINE 

DSXSMAPDBGBLQCK - MAP A BLOCK OF MEMORY 

DSXIFREEDBGSYM - FREE MEMORY MAPPED TO D 

MAP DEBUGGER - MAP THE DEBUGGER'S MEMORY 

UNMXP.DEBUGGER - UNMAP THE DEBUGGER'S ME 

Symbol table 

Cross reference 

- TU81 LOAD DRIVER 
DECLARATIONS 

TU81 load device initialization 

TU81 load driver QIO 

Symbol table 

Psect synopsis 

Cross reference 

*** ODS Disk RMS routines 

declarations 

Advance RFA 

Access file block 

ODS OPEN service 

ODSSGET routine 



27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL' 
27-JUL- 
27-JUL' 
27-JUL' 
27-Jul- 
27~Jul< 
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Frame 
J12 
N*2 
D13 
F13 
113 
K13 
L13 
N13 
BH 
CH 
OH 
EH 
FH 
HH 
JH 
LH 
MH 
F15 
115 
J15 
E16 
G16 
116 
116 
C1 
E1 
G1 

a 

D2 
E2 
F2 
G2 
H2 
J2 
M2 
D3 
E3 
F3 
G3 
13 
K3 
C4 

^ 
14 

85 

E5 

F5 

N5 

C6 

F6 

16 

K6 

N6 

D 7 

F 7 

G? 



Sequence 
2006 
2010 
2013 
2015 
2018 
2020 
2021 
2023 
2024 
2025 
2026 
2027 
2028 
2030 
2032 
2034 
2035 
2041 
2044 
2045 
2053 
2055 
2057 
2060 
2062 
2064 
2066 
2068 
2074 
2076 
2077 
2078 
2C79 
2080 
2082 
2085 
2089 
2090 
2091 
2092 
2094 
2096 
2101 

2113 
2116 
2117 
2125 
2127 
2130 
2133 
2135 

2141 
2143 
2144 



ODSSREAO routine 

*** ONLY730 NEBULA specific routines 

Macro invocations 

DSPICONFIG ADP Build P-table for adapter 

MAP$I0SPACE Validate mapping for adapter 

FETCH LONG Retreive longword from possib 

PURGE DATAPATH 

UBASINITIAL UNI8US ADAPTER INITIAL IZATIO 

IOSTESTCSR x Test CSR for existence 

I0GEN$C0NN"VEC 

QI0CLEAN_CPU 

ONLY SCB CPU specific SC8 setup 

SCBVECTOR xxx Otherwise undefined SCB ve 

0NLY_CL0CR INIT Perform cpu-specific TOD 

Symbol table 

Psect synopsis 

Cross reference 

ASCII STRING PARSE ROUTINE. 

DECLARATIONS 

ASCII STRING PARSE ROUTINE. 

SCANISYM80L Scan symbol 

SCANICQMPARE Compare strings 

SCANSNUMERIC Scan number 

SCANSSEARCHLIST Search list for unique s 

SCANSDEVICE Scan a device name 

Breakup File name into parts 

Symbol table 

Cross reference 

PCSL0AD Module 

Libraries 

Table of Contents 

Psect Definitions 

PCSLOAD-Static Storage 

DSXSLOADPCS Routine 

DSVIINITPCS Routine 

*** PRJNT Formatted print routines 

Libraries, Macros, and Equated Symbols 

work Psect Declarations 

Data Psect Declarations 

DSVfSetPage Routine - Set terminal page 

DSVlShowPage Routine - Show terminal pag 
Type Out Routine - Do actual print 
Print Routine - Load type code byte 
PrintX Routines - Extended print rou 
CvtReg Routine - Mnemonic register c 

Symbol table 

Psect synopsis 

Cross reference 

*** PROSE Check address accessibility 

DSXIPR0BE 

ACCIHANDLER 

- UDA50 BOOT DRIVER 

DECLARATIONS 

UDA5Q Bootstrap device initialization 

UDA50 Bootstrap driver QJ0 

Symbol table 

Psect synopsis 




27~Ju • 
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27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 

!7~JUL~ 

J7-JUL- 

*7-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUl- 

27- JUL- 

27-JUL- 

27-JUL- 

27-Jul~ 

27-Jul- 

27-Jul- 

27-Jul- 

27-Jul- 

27-Jul- 

27-Jul* 

27-JUL- 

27-JUL- 

17-JUL- 

|7-JUL~ 

S7-JUL- 

JNJUL* 

7-JUL- 

>7«JUL- 

!7~JUL« 

!7«JUL- 

J7-JUL- 

7-JUL- 

7-JUL- 

!7-JuI- 

>7~Jul- 

J7-Jul- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 
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Sequence 2710 



Fi 



he Frame Sequence 

H7 2145 Cross reference 

L7 2149 *** QA Check Routines 

M7 21S0 Table of Contents 

H? 2151 Libraries 

B8 2152 Included Macros and Literals 

C8 2153 External Routines 

D8 2154 External Own Storage 

E8 2155 Psect Definitions 

F8 2156 Local Macro Definitions 

H8 2158 Module-Global Static Storage 

18 2159 ASCIC Bindings 

L8 2162 QASNormal Start 

F9 2169 QAIMultipTe Pass 

J9 2173 QA$Loop„0nJest 

C10 2179 QASLoop On Subtest 

J10 2186 QASRun.BacEwards 

111 2198 End of Module QACHECKS 

J11 2199 *** Setting and Showing QA Flags 

L11 2201 Table of Contents 

M11 2202 Psect Definitions 

N11 2203 Literals 

B12 2204 Static Storage 

C12 2205 Global Bindings 

D12 2206 VRSetQA 

H12 2210 VRShowQA 

L12 2214 End of Module QAFLAGS 

M12 2215 *** QA Routines 

B13 2217 Linkage Definitions 

C13 2218 Table of Contents 

D13 2219 Libraries 

E13 2220 Included Macros and Literals 

F13 2221 External Routines 

G13 2222 External Own Storage 

H13 2223 Psect Definitions 

113 2224 Local Macro Definitions 

K13 2226 Module-Global Literals 

113 2227 Field Definitions 

M13 2228 Module-Global Static Storage 

N13 2229 Supervisor-Global Static St< 

B14 2230 DSXlBAANCH 

L14 2240 QA$Abort„QA 

N14 2242 QASAdd Forcedjrror 

B15 2243 New 

J15 2251 QASAdd^QA Error 

K15 2252 QAICorvFroTf Handler 

M15 2254 QAIDump 

K16 2265 QA$F1nd^User^CaU,Frame 

2 D1 2269 QAIInit 

2 F1 2271 QASMain 

2 H 22§2 QA$Print„Forced^Frrors 

2 E2 2283 Dispose 

2 K2 2289 QASPrfnt.Overal I Errors 

2 E3 22% End of Module QAflAIN 

2 F3 2297 

2 G3 2298 QI0 

2 H3 2299 07-18 

2 13 2300 



:orage 



27-JUL-' 

27-Ja 

27-Ju 

27-Jul 

27-Jul 

27-Ju! 

27-Jui 

27-Jui 

27-Ju 

27-Jul 

27-Jul 

27-Ju 

27-Jui 

27-Jui 

27-Ju 

27-Jul 

27-Ju> 

27-Jui 

27-Jui 

27-Ju 

27-Jul 

27-Jul 

27-Jui 

!7-Jul 

(7-Jui 

|7-Jin 

27«Jul 

27-Jui 
27-Jul 
27-Jul 
27-Jui 
27-Jul 
27-Jul 
!7-Ju 
!7-Jul 
!7-Ju 
.7-Ju 
!7-Jul 
!7-Ju 

y-jui 

!7-Jul 
!7-Ju 
[7-Jul 

>7-Jul 
.7-Ju! 
7-Jul 
27-Jui 

27-Jul 

27-Jul 

>7-Ju> 

S7-Jul. 

17-JUL 

7-JUL-' 

7-JUL< 

•7-JUL- 
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Fiche 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 

12 
12 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

1 

1 

1 

1 

1 

12 

12 



Frame 
J3 
L3 
CA 
EA 
GA 
JA 
D5 
F5 
G5 
15 
J5 
K5 
D6 
F6 
G6 
H6 
16 
K6 
D7 
E7 
88 

E8 

F8 

(38 

H8 

18 

K8 

L8 

M8 

N8 

89 

09 

E9 

G9 

J9 

N9 

D10 

E10 

J10 

K10 

M10 
N10 
811 
C11 
611 
H11 
L11 
N11 

8 1 
C1 

E1 

n 

Kl 

81 
C13 



Libraries and Equated Symbols 

External Symbols 

EXESQIO QIO DISPATCHING ROUTINE 

QIOSINITIALIZE Initialize QIO database 

QIOSCLEANUP Remove old QIO database 

QIOSADDUNIT Add a unit to the QIO databa 

INI_MBADP BUILD ADP AND INITIALIZE MBA 

INIJJBADP BUILD ADP AND INITIALIZE UBA 

INI DRADP BUILD ADP AND INITIALIZE DRA 

MAXIMIZE ACCESS MODE 

BU6SCHECK Bugcheck notification routine 

QIOSLOAD DB Insert unit into data base 

DB.ERROR ERROR LOADING DATABASE 

IOGENSCNTRL INI Initialize a controller 

MEMORY ALLOCATION SUBROUTINES 

ADPLINK Link adapter to end of ADP list 

ExeSPwrTimChk - Check reasonable interva 

Symbol table 

Psect synopsis 

Cross reference 

*** QIOFDT function dispatch routines 

ONE PARAMETER FUNCTION PROCESSING 

ZERO PARAMETER FUNCTION PROCESSING 

READ AND WRITE FUNCTION PROCESSING 

READ AND WRITE FUNCTION BUFFER CHECK AND 

READ AND WRITE BUFFER CHECK AND LOCK AND 

CHECK BUFFER ACCESSIBILITY FOR READ FUNC 

CHECK BUFFER ACCESSIBILITY FOR WRITE FUN 

CHECK BUFFER ACCESSIBILITY FOR READ FUNC 

CHECK BUFFER ACCESSIBILITY FOR WRITE FUN 

SET DEVICE MODE AND CHAAr CTERISTICS FUNC 

SENSE DEVICE MODE AND CHARACTERISTICS FU 

CARRIAGE CONTROL INTERPRETATION 

Symbol table 

Cross reference 

*** QIOREO handle QIO request 

DECLARATIONS 

QUEUE I/O REQUEST 

COMPLETE I/O OPERATION 

QUEUE I/O PACKET TO DRIVER 

EXEIALTQUEPKT - Call driver ALTSTART ent 

QUEUE I/O PACKET TO ACP 

INSERT I/O PACKET IN UNIT QUEUE 

INSERT I/O PACKET IN QUEUE BY PRIORITY 

Symbol table 

Psect synopsis 

Cross reference 

*** RELOCDRV relocate I/O 

INITIALIZE DRIVER DATA BAJ 

REINITIALIZE DRIVER DATA i 

LOCAL SUBROUTINE TO EXECU' 

LOCAL SUBROUTINE TO LOCATE 

Symbol table 

Cross reference 

*** RMS Master RMS routines 

Device support table 

Allocate pseudo RPB 



driver 
IE 

IASE 

E OPERATION CO 
DATA STRUCTUR 



27-JUL- 
2 7- JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL" 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27%JUL~ 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27-JUL- 
27- JUL- 
27-JUL- 
37-JUL- 

27-JUL- 

27-JUL- 

27-JUL- 

"J7-JUL- 

7-JUL- 

(7-JUL- 

7-JUL- 

J7-JUL- 

7-JUL- 

7-JUL- 

?7~JUL- 

!7-JUL- 

!?-JUL- 

>7~JUL- 

S7-JUL- 

JZ-JUL- 

7*JUL* 
?-JUL- 
[7-JUL- 
J7-JUL- 
!7~JUL- 
•JUL- 
»JUL« 
. \IUL- 
-JUL- 
■JUL- 

[7-JuT- 

7-Jul- 
S7-Jul- 
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12 
12 
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12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
13 

13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 

13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 

13 

13 
13 
13 
13 



Frame 
J13 
K13 
OH 
GK 
114 
K1A 
114 
N14 
B15 
C15 
D15 
K15 
G1S 
C16 
F16 
116 
L16 
C1 
F1 
G1 
H1 
11 
U 
C2 
H2 
K2 
B3 
E3 
G3 
J3 
M3 
B4 
D4 
F4 
G4 
J4 
K4 
F5 
15 
J5 
K5 
L5 
M5 
N5 
66 
D6 
16 
K6 

» 

N7 

68 
C9 

G 2 

J9 
K? 



'571 



'586 



Deallocate RPB 

Check device support tables 

load error status 

load XAB 

allocate cache blocks 

initialize static table 

clean up code 

load error code in RAB 

load FAB error code 

verify validity of FAB 

verify cblock 

verify validity of RAB 

RMSSOPEN routine 

RECONNECT routine 

RMS routine 

RMSSREAD routine 

RMSlDISCONNECT routine 

RMSICLOSE routine 

*** RT11 Console media RMS routines 

declarations 

advance record pointers 

Access file block via cache 

RT-11 OPEN service 

RT1U6ET routine 

RT11SREAD routine 

SYSTEM CONTROL BLOCK 

DECLARATIONS 

INITIAL SYSTEM CONTROL BLOCK IMAGE, 

DSXJINITSCB INITIALIZE SYSTEM CONTROL BL 

DSXISETVEC SET VECTOR ROUTINE 

DSXSCLRVEC RESTORE VECTOR ROUTINE 

CHECK VECTOR Verify vector ranae 

DSXISETIPL SET INTERRUPT PRIORITY LEVEL 

SOFT$INT Software interrupt vectors 

Symbol table 

Psect synopsis 

Cross reference 

*** SCRIPT Read from command stream 

Libraries and External Symbols ; [123 

External Symbol Declarations 

Macros and Equated Symbols 

Data Psect Declarations 

Work Psect Declarations 

Absolute Psect Declarations 

SCRIPTflNIT - Initialize script 

SCRIPTJOPEN - Initialize a script file 

SCRIPTSFLUSH, STOP, CONT - Terminate all 

SCRIPTSFINISH - Terminate script input f 

DSJ3ETLINE - Get program data input line 

COPY IT - Copy and translate 

ADVANCE - Advance to next record in buff 

Symbol table 

Cross reference 

*** SHOWMEM Handle Show Memory command 

Is a program loaded, really? 

DSVIShowMemory routine 

ShowMemory Routine 
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>7-Jul~ 
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>7-jul- 
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»7*\Jul* 

7-Jul- 

7-Jul- 

!7-Jul- 

J7-Jul~ 

27-Jul- 

?7*Jul~ 

;7-Jul* 

7-Jul- 

>7~Jul~ 

J7**Jul~ 

7~Jul~ 

7-Jul~ 

I7-JUL- 

I7-JUL- 

[7-JUL- 

7-JUL- 

>7*JUL~ 

|7~JUL- 

7-JUL- 

7-JUL- 

S?SJUL- 

J7-JUL- 

7 «JUL* 

'-JUL- 

J7-JUL- 

>JUL- 

>jul~ 

?7-JUL- 

I7-JUL- 

•JUL* 

'-JUL- 

7-JUL- 

7-JUL* 

7-JUL- 

S7-JUL- 

|7%JUL- 

J7-JUL- 

-JUL- 

'*JUL~ 

7*JUL- 

\Z m M m 

7-Jul- 
7-Jul- 
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13 


K1Q 

M10 


2599 


13 


2601 


13 


E11 


2606 


13 


111 


2610 


13 


|.12 


2626 


13 


C13 


2630 


13 


E13 


2632 


13 


G13 


2634 


13 


H13 


2635 


13 


L13 


2639 


13 


M13 


2640 


13 


J14 


2650 


13 


L14 


2652 


13 


D15 


2657 


13 


K15 


2664 


13 


M15 


2666 

2671 


13 


E16 


13 


H16 


2674 


13 


K16 


2677 


13 


116 


2678 


14 


B1 


2679 


14 


CI 


2680 


14 


E1 


2682 


14 


F1 


2683 


14 


G1 


2684 


14 


H1 


2685 


14 


11 


2o86 


14 


J1 


2o87 


14 


L1 


2689 


14 


M1 


2690 


14 


N1 


2691 


14 


B2 


2692 


14 


*>l 


2694 


14 


E2 


2695 



VRSETMEM 

*** START Handle START command 

Declarations 

VRStart and VRReStart Routines 

VRAbort and DSXSAbort Routines 

VRSupport Routines 

VRShowSections Routine 

DSI$TIMEJ\ST Routine 

Symbol table 

Psect synopsis 

Cross reference 

*** TSBTDRIVR driver for TS11/TSQ4, TU80 

DECLARATIONS 

TS11/TS04, TU80 Bootstrap driver 

Symbol table 

Cross reference 

- SYSTEM SERVICE 

UNWIND PROCEDURE 

UNWIND CONDITION 

CALCULATE VALUE 

Symbol table 

Cross reference 

VER730 

Symbol table 

Cross reference 

*** VMSDUMMY Fake VMS driver entry point 

History 

Declarations 

Return-only Dummy Routines ; COcj 

MUTEX Control Routines 

Symbol table 

Cross reference 



UNWIND PROCEDURE CALL S 
CALL STACK 
HANDLER 
OF SP BEFORE CALL 
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•1984 

•198< 

•1984 

•19 

•19 

►19 

•19 

•19 

•19 

•19 

•19 

•1984 

•1904 

•1984 

■?984 

•1984 

•1984 

•1984 

•19 

-19 

•19 

•19 

•19 

•19 

•19 

•19 



•1984 



•191 
•191 
•191 
•191 
•191 
•191 



-1984 



B 
I 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 



1 
1 
1 

1 
1 
1 
1 
1 

1 

n 

1 
1 
1 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 



Symbol table 
Cross reference 
Cross reference 

VER730 

Symbol table 

Cross reference 

*** VMSDUMMY Fake VMS driver e 

*** VMSDUMMY Fake VMS driver e 

History 

Dec larations 

Return-only Dummy Routines ; 

MUTEX Control Routines 

MUTEX Control Routines 

Symbol table 

Cross reference 

Cross reference 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 

Directory 



